1 SU1=1 2 SU2=2 3 SU32=32 4 S128=128 5 SUBK=728 100 HP=3 110 HUKU=SU0 120 GSUB 1000 180 FOR 200 I=536 TO 600 32 190 CELL(I)=CELL(760) 200 NEXT 210 FOR 250 J=527 TO 751 32 220 FOR 240 K=1 TO 8 1 230 CELL(J+K-1)=CELL(SUBK) 240 NEXT 250 NEXT 300 PRNT 15,"1MORE-SL" 301 PRNT 47,"NO -SR" 302 TONE NO1 309 S=SU0 310 P=SU0 320 I=SU0 330 GSUB 1500 340 I=SU1 350 GSUB 1500 380 KEY 1 J,K 390 IF K=SU2 THEN 430 400 IF K<>SU1 THEN 380 410 I=SU2 420 GSUB 1500 430 MYPT=S 500 S=SU0 510 P=SU1 520 I=SU0 530 GSUB 1500 540 I=SU1 550 GSUB 1500 551 IF S>MYPT THEN 600 552 IF S=9 THEN 600 560 I=SU2 570 GSUB 1500 600 PRNT 47,"PUSH PAD" 610 IF S<>MYPT THEN 640 620 PRNT 15,"DRAW" 621 TONE NO2 630 GOTO 800 640 IF SSU0 THEN 689 681 HUKU=4 682 TONE NO4 683 GOTO 800 689 TONE NO2 690 GOTO 800 700 PRNT 15,"YOU WIN!" 701 TONE NO3 710 HUKU=HUKU+SU1 720 GSUB 1000 800 KEY 1 J,K 810 IF J=SU0 THEN 800 811 TONE NO3 820 IF HUKU>=4 THEN 100 830 GOTO 210 1000 I=129+HUKU*4 1010 IF HUKU<3 THEN 1100 1020 I=I+12 1100 FOR 1210 J=207 TO 495 32 1110 FOR 1200 K=1 TO 8 1 1130 CELL(J+K-1)=CELL(I) 1140 I=I+SU32 1160 IF I<=768 THEN 1200 1180 I=I-639 1200 NEXT 1210 NEXT 1220 RTN 1500 FUDA=RAND(9) 1501 A=FUDA*SU2+SU1 1510 IF FUDA<6 THEN 1530 1520 A=A+12 1530 K=527+P*S128+I*3 1550 FOR 1600 J=32 TO 96 32 1551 X=J-SU32 1560 CELL(K+X)=CELL(A+X) 1580 CELL(K+X+1)=CELL(A+X+1) 1600 NEXT 1610 S=S+FUDA 1620 S=S-S/10*10 1625 K=623+P*S128 1630 PRNT K,S 1640 RTN 9999 END