PRINT
PRINT "１２個のコインがある。"
PRINT "１個だけ重さの違う偽物がある。"
PRINT "天秤を３回使って、偽物を見つけ出せ。"
PRINT 

DIM OMORI(12)
INPUT PROMPT "１ から １２ までの自然数を１つ選んでネ  ":a
INPUT PROMPT "その数を  1: そのまま用いる  2: 負の数にする  ":b
PRINT 
FOR i=1 TO 12
   LET OMORI(i)=2
NEXT i
IF b=1 THEN 
   LET OMORI(a)=3
ELSE
   LET OMORI(a)=1
END IF


IF OMORI(1)+OMORI(2)+OMORI(3)+OMORI(4) = OMORI(5)+OMORI(6)+OMORI(7)+OMORI(8) THEN GOTO 100
IF OMORI(1)+OMORI(2)+OMORI(3)+OMORI(4) > OMORI(5)+OMORI(6)+OMORI(7)+OMORI(8) THEN GOTO 200
IF OMORI(1)+OMORI(2)+OMORI(3)+OMORI(4) < OMORI(5)+OMORI(6)+OMORI(7)+OMORI(8) THEN GOTO 300


    ! OMORI(9)〜OMORI(12)の中に偽物がある。
100 IF OMORI(1)+OMORI(2)+OMORI(3) = OMORI(9)+OMORI(10)+OMORI(11) THEN GOTO 110
    IF OMORI(1)+OMORI(2)+OMORI(3) > OMORI(9)+OMORI(10)+OMORI(11) THEN GOTO 120
    IF OMORI(1)+OMORI(2)+OMORI(3) < OMORI(9)+OMORI(10)+OMORI(11) THEN GOTO 130

    ! OMORI(12)が軽いか重い。
110 IF OMORI(1) > OMORI(12) THEN GOTO 112
    IF OMORI(1) < OMORI(12) THEN GOTO 113
112 PRINT "あなたが選んだ数は −１２ です。"
    GOTO 400
113 PRINT "あなたが選んだ数は １２ です。"
    GOTO 400

    ! OMORI(9)またはOMORI(10)またはOMORI(11)が軽い。
120 IF OMORI(9) = OMORI(10) THEN GOTO 121
    IF OMORI(9) > OMORI(10) THEN GOTO 122
    IF OMORI(9) < OMORI(10) THEN GOTO 123
121 PRINT "あなたが選んだ数は −１１ です。"
    GOTO 400
122 PRINT "あなたが選んだ数は −１０ です。"
    GOTO 400
123 PRINT "あなたが選んだ数は −９ です。"
    GOTO 400

    ! OMORI(9)またはOMORI(10)またはOMORI(11)が重い。
130 IF OMORI(9) = OMORI(10) THEN GOTO 131
    IF OMORI(9) > OMORI(10) THEN GOTO 132
    IF OMORI(9) < OMORI(10) THEN GOTO 133
131 PRINT "あなたが選んだ数は １１ です。"
    GOTO 400
132 PRINT "あなたが選んだ数は ９ です。"
    GOTO 400
133 PRINT "あなたが選んだ数は １０ です。"
    GOTO 400


    ! OMORI(9)〜OMORI(12)は本物。
200 IF OMORI(1)+OMORI(2)+OMORI(6) = OMORI(3)+OMORI(5)+OMORI(9) THEN GOTO 210
    IF OMORI(1)+OMORI(2)+OMORI(6) > OMORI(3)+OMORI(5)+OMORI(9) THEN GOTO 220
    IF OMORI(1)+OMORI(2)+OMORI(6) < OMORI(3)+OMORI(5)+OMORI(9) THEN GOTO 230

    ! OMORI(4)が重いか、OMORI(7)またはOMORI(8)が軽い。
210 IF OMORI(7) = OMORI(8) THEN GOTO 211
    IF OMORI(7) > OMORI(8) THEN GOTO 212
    IF OMORI(7) < OMORI(8) THEN GOTO 213
211 PRINT "あなたが選んだ数は ４ です。"
    GOTO 400
212 PRINT "あなたが選んだ数は −８ です。"
    GOTO 400
213 PRINT "あなたが選んだ数は −７ です。"
    GOTO 400

    ! OMORI(1)またはOMORI(2)が重いか、OMORI(5)が軽い。
220 IF OMORI(1) = OMORI(2) THEN GOTO 221
    IF OMORI(1) > OMORI(2) THEN GOTO 222
    IF OMORI(1) < OMORI(2) THEN GOTO 223
221 PRINT "あなたが選んだ数は −５ です。"
    GOTO 400
222 PRINT "あなたが選んだ数は １ です。"
    GOTO 400
223 PRINT "あなたが選んだ数は ２ です。"
    GOTO 400

    ! OMORI(6)が軽いか、OMORI(3)が重い。
230 IF OMORI(9) = OMORI(6) THEN GOTO 231
    IF OMORI(9) > OMORI(6) THEN GOTO 232
231 PRINT "あなたが選んだ数は ３ です。"
    GOTO 400
232 PRINT "あなたが選んだ数は −６ です。"
    GOTO 400


    ! OMORI(9)〜OMORI(12)は本物。
300 IF OMORI(1)+OMORI(2)+OMORI(6) = OMORI(3)+OMORI(5)+OMORI(9) THEN GOTO 310
    IF OMORI(1)+OMORI(2)+OMORI(6) > OMORI(3)+OMORI(5)+OMORI(9) THEN GOTO 320
    IF OMORI(1)+OMORI(2)+OMORI(6) < OMORI(3)+OMORI(5)+OMORI(9) THEN GOTO 330

    ! OMORI(4)が軽いか、OMORI(7)またはOMORI(8)が重い
310 IF OMORI(7) = OMORI(8) THEN GOTO 311
    IF OMORI(7) > OMORI(8) THEN GOTO 312
    IF OMORI(7) < OMORI(8) THEN GOTO 313
311 PRINT "あなたが選んだ数は −４ です。"
    GOTO 400
312 PRINT "あなたが選んだ数は ７ です。"
    GOTO 400
313 PRINT "あなたが選んだ数は ８ です。"
    GOTO 400

    ! OMORI(3)が軽いか、OMORI(6)が重い。
320 IF OMORI(6) = OMORI(9) THEN GOTO 321
    IF OMORI(6) > OMORI(9) THEN GOTO 322
321 PRINT "あなたが選んだ数は −３ です。"
    GOTO 400
322 PRINT "あなたが選んだ数は ６ です。"
    GOTO 400

    ! OMORI(1)またはOMORI(2)が軽いか、OMORI(5)が重い。
330 IF OMORI(1) = OMORI(2) THEN GOTO 331
    IF OMORI(1) > OMORI(2) THEN GOTO 332
    IF OMORI(1) < OMORI(2) THEN GOTO 333
331 PRINT "あなたが選んだ数は ５ です。"
    GOTO 400
332 PRINT "あなたが選んだ数は −２ です。"
    GOTO 400
333 PRINT "あなたが選んだ数は −１ です。"
    GOTO 400

400 END