PRINT
PRINT "お互いが仲よく真下に境界線を引いたときを"
PRINT "黒０目、かつ、白０目 としましょう。"
PRINT
10 INPUT PROMPT "1:両先手  2:貴方の片先手  3:相手の片先手  4:両後手  →  ":n
   PRINT
   SELECT CASE n
   CASE 1
      INPUT PROMPT "貴方が打てば、貴方は何目得？":A1
      INPUT PROMPT "貴方が打てば、相手は何目損？":A2
      INPUT PROMPT "相手が打てば、貴方は何目損？":B1
      INPUT PROMPT "相手が打てば、相手は何目得？":B2
      PRINT
      LET C=A1+A2+B1+B2
      PRINT "この「両先手」は、両方にとって";C;"目の手です。"
      PRINT
      PRINT "貴方がこの局面を打てば、"
      PRINT "もし、この両先手以上に大きな両先手がなければ、"
      PRINT "次の大きなの局面も、あなたが先手で打てます。"
      PRINT
      PRINT "相手がこの局面を打てば、"
      PRINT "もし、この両先手以上に大きな両先手がなければ、"
      PRINT "次の大きなの局面も、相手に先手で打たれます。"
      PRINT
   CASE 2
      INPUT PROMPT "貴方が打てば、貴方は何目得？":A1
      INPUT PROMPT "貴方が打てば、相手は何目損？":A2
      INPUT PROMPT "相手が打てば、相手は何目得？":B1
      INPUT PROMPT "相手が打てば、貴方は何目損？":B2
      PRINT
      LET C=A1+A2+B1+B2
      PRINT "この「貴方の片先手」は、あなたにとって";C;"目の手です。"
      PRINT "貴方がこの局面を打てば、"
      PRINT "もし、他に両先手がなければ、次の大きな局面も貴方が先手で打てます。"
      PRINT
      PRINT "この「貴方の片先手」は、相手にとって";2*C;"目の手です。"
      PRINT "相手がこの局面を打てば、"
      PRINT "次の大きな局面を貴方が先手で打てます。"
      PRINT
   CASE 3
      INPUT PROMPT "相手が打てば、相手は何目得？":B1
      INPUT PROMPT "相手が打てば、貴方は何目損？":B2
      INPUT PROMPT "貴方が打てば、貴方は何目得？":A1
      INPUT PROMPT "貴方が打てば、相手は何目損？":A2
      PRINT
      LET C=A1+A2+B1+B2
      PRINT "この「相手の片先手」は、相手にとって";C;"目の手です。"
      PRINT "対手がこの局面を打てば、"
      PRINT "もし、他に両先手がなければ、次の大きな局面も相手に先手で打たれます。"
      PRINT
      PRINT "この「相手の片先手」は、あなたにとって";2*C;"目の手です。"
      PRINT "貴方がこの局面を打てば、"
      PRINT "次の大きな局面は相手に先手で打たれます。"
      PRINT
   CASE 4
      INPUT PROMPT "貴方が打てば、貴方は何目得？":A1
      INPUT PROMPT "貴方が打てば、相手は何目損？":A2
      INPUT PROMPT "相手が打てば、相手は何目得？":B1
      INPUT PROMPT "相手が打てば、貴方は何目損？":B2
      PRINT
      LET C=A1+A2+B1+B2
      PRINT "この両後手は、両方にとって";C;"目の手です。"
      PRINT
      PRINT "貴方がこの局面を打てば、"
      PRINT "次の大きな局面は相手に先手で打たれます。"
      PRINT
   END SELECT
   PRINT
   INPUT PROMPT "終了は Ｑキー、 続行はリターンキー。 ":INKEY$
   IF INKEY$="q" OR INKEY$="Q" THEN
      GOTO 20
   ELSE 
      GOTO 10
   END IF
20 PRINT
END