1000 (PROGRAM8)
1010 "YAMAKUZUSHI"
1020 Z=? 

1100 (STEP1)
1110 R=0
1120 "AITENO TOTTA 2BAI";
1130 " MADE TORERU";
1140 Z=?
1150 "SAIGO WO TORU";
1160 " TO KACHI";
1170 Z=? 

1200 (STEP2)
1210 N=@(R)
1220 N=N/3+21
1230 #=(N>99)*1220
1240 "STONE=";
1250 ?=N

1300 (STEP3)
1310 "YOU(1-";
1320 ?=N-1;
1330 ")?";
1340 Y=?
1350 R=R+Y
1360 #=(Y=0)+(Y=N)+(Y>N)*2100
1370 N=N-Y
1380 "STONE=";
1390 ?=N

1400 (STEP4)
1410 #=2200
1420 J=(N=1)+(N=4)+(N=6)+(N=9)
1430 J=(N=12)+(N=14)+(N=17)+J
1440 J=(N=19)+J
1450 J=(N=2)+(N=7)+(N=10)*2+J
1460 J=(N=15)+(N=20)*2+J
1470 J=(N=3)+(N=11)+(N=16)*3+J
1480 J=(N=5)*5+J
1490 J=(N=8)+(N=18)*8+J
1500 J=(N=13)*13+J
1510 J=(N>20)*10+J
1520 #=(2*Y<J)*1550
1530 I=J
1540 #=1560
1550 I=2*Y
1560 "I=";
1570 #=2200
1580 ?=I;

1600 (STEP5)
1610 #=2200
1620 ""
1630 N=N-I
1640 "STONE=";
1650 ?=N
1660 #=(N=0)*1900

1700 (STEP6)
1710 "YOU=";
1720 Y=?
1730 #=(Y=0)+(Y>N)*1900
1740 #=(2*I<Y)*1900

1800 (STEP7)
1810 N=N-Y
1820 "STONE=";
1830 ?=N
1840 #=(N=0)*2000
1850 #=1400

1900 (STEP8)
1910 "**YOU LOSE**";
1920 Z=?
1930 #=1200

2000 (STEP9)
2010 "**YOU WIN**";
2020 Z=?
2030 #=1200

2100 (STEP10)
2110 "**END**"
2120 #=65535

2200 (STEP11)
2210 S=!
2220 L=0
2230 L=L+1
2240 #=(L<150)*2230
2250 #=S