2000 IFTI$>"000006"ANDI=1THENH=3:S=1+INT(RND(0)*32):RETURN
2010 PRINT"{purple}!"TAB(S)A$(I)TAB(38)"{purple}!":RD=RD+1:I=I+1:IFI<5THEN2023
2021 I=1:S=1+INT(RND(0)*34):POKEM4,17:POKEM5,30:POKEM6,100
2023 IFRD<120THENRETURN
2030 IFI=1THENH=2:RD=0:GOTO4000
2500 IFTI$>"000006"ANDI=1THENH=3:S=1+INT(RND(0)*32):RETURN
2510 PRINT"{purple}!"TAB(S)A$(I)TAB(S1)A$(I)TAB(38)"{purple}!":RD=RD+1:I=I+1:IFI<5THEN2533
2531 S=1+INT(RND(0)*15):S1=19+INT(RND(0)*15):I=1:POKEM4,33:POKEM5,40:POKEM6,100
2533 IFRD<100THENRETURN
2535 IFI=1THENH=5:S=5:I=2:RD=0:POKE53281,15:POKE53280,15:POKEM4,33
2540 RETURN
3000 POKEM4,17:POKEM5,(I*10):POKEM6,(I*10):PRINT"{purple}!"TAB(S)"{dark gray}"B$(I)TAB(38)"{purple}!":I=I+1:IFI<6THENRETURN
3040 H=H2:TI$="000000":I=1:S=10:S1=20:RETURN
3100 PRINTTAB(S)"{blue}%%{space*7}%%":RD=RD+1:I=I+1:IFI>SXTHENIX=-IX:SX=INT(RND(0)*15):I=0
3140 S=S+IX:IFS<3ORS>24THENIX=-IX
3143 IFRD<100THENRETURN
3145 H=4:H2=4:POKE53281,3:POKE53280,3:RD=0:S=4:S1=33:I=1:TI$="000000":RETURN
3200 IFI>1THEN3220
3211 PRINT"{purple}!"TAB(S)"{white}"E$TAB(38)"{purple}!":GOTO3225
3220 PRINT"{purple}!"TAB(38)"{purple}!":POKEM1,15-I
3225 POKEM1,15-I:POKEM4,33:POKEM5,20:POKEM6,100:RD=RD+1:I=I+1:IFI>10THENS=INT(RND(0)*27):I=1
3236 IFRD>80ANDI=8THENH=7:H2=7:RD=0:I=0:POKE53281,12:POKE53280,12:VL=15
3240 RETURN
3300 RD=RD+1:IFRD>=85ANDRD<100THENPRINT"{purple}!"TAB(38)"{purple}!":RETURN
3306 POKEM4,33:POKEM5,10:POKEM6,100:POKEM1,VL:VL=VL-2:IFRD>=100THENRD=0:H=8:H2=8:I=1:S=15:
POKE53281,3:POKE53280,3:POKEM1,15:RETURN
3310 IFI<=7THENPRINT"{space*12}{gray}%{green}%%%%{space*6}{gray}%":VL=15:GOTO3350
3320 IF(I>7ANDI<=13)OR(I>20ANDI<27)THENPRINT"{space*12}{gray}%{space*10}%":GOTO3350
3330 IFI>13ANDI<=20THENPRINT"{space*12}{gray}%{space*6}{green}%%%%{gray}%":VL=15
3350 I=I+1:IFI=26THENI=1
3360 RETURN
3400 RD=RD+1:IFRD>140ANDI=0THEN3455
3415 IFRD>116THENPRINT"{black}!"TAB(38)"{black}!":RETURN
3420 POKEM4,17:POKEM5,15-(I*2):POKEM6,20:PRINT"{black}!"TAB(S)D$(I)TAB(38)"{black}!":I=I+1:IFI=4THENI=0:S=1+INT(RND(0)*33)
3440 RETURN
3455 I=8:H=6:H2=6:RD=0:GOTO4100
3490 RETURN
3500 I=I+1:RD=RD+1:IFRD>100ANDI>5THENH=9:H2=9:RD=0:I=3:RETURN
3530 IFI>5THENI=1:S=1+INT(RND(0)*32)
3540 PRINT"{purple}!"TAB(S)B$(I)TAB(38)"{purple}!":POKEM4,33:POKEM5,(I*2):POKEM6,20:POKEM2,10:RETURN
3600 IFI=2THENPRINT:GOTO3640
3610 IFI>2THENPRINT"{dark gray}!"TAB(38)"{dark gray}!":GOTO3640
3630 FORU=1TOS:PRINT"{green}%";:NEXT:PRINT"{blue}!{space*7}!";:FORU=1TO39-S-9:PRINT"{green}%";:NEXT
3640 I=I+1:IFI=18THENI=1:S=1+INT(RND(0)*19)
3650 RD=RD+1:IFRD<100THENRETURN
3655 IFRD<130THENI=16:RETURN
3690 H=10:H2=10:RD=0:I=1:S=10:S1=20:POKE53281,15:POKE53280,15:RETURN
3700 RD=RD+1:IFRD<160THEN3715
3712 H=11:H2=11:RD=0:I=0:S=5:S1=25:POKE53281,12:POKE53280,12:RETURN
3715 IFRD>132THENPRINT"{purple}!"TAB(38)"{purple}!":RETURN
3720 PRINT"{purple}!"TAB(S)F$(I)TAB(S1)F$(I)TAB(38)"{purple}!":I=I+1:IFI<4THENRETURN
3735 I=1:S=1+INT(RND(0)*15):S1=19+INT(RND(0)*17):POKEM4,129:POKEM5,15-(I*2):POKEM6,10:POKEM2,10:RETURN
3800 RD=RD+1:IFRD>116ANDRD<=140THENPRINT"{purple}!"TAB(38)"{purple}!":RETURN
3810 IFRD>140THEN3890
3815 POKEM4,17:POKEM5,15-(I*2):POKEM6,20:POKEM2,10:PRINT"{purple}!"TAB(S)D$(I)TAB(S1)D$(I)TAB(38)"{purple}!":I=I+1:IFI=4THENI=0:S=1+INT(RND(0)*15):S1=19+INT(RND(0)*15)
3840 RETURN
3890 IFDEMO=1THEN15
3895 FORU=1TO500:NEXT:H=1:H2=1:P=P+50:RD=0:I=1:S=10:S1=20:L=L-1:RETURN