64'er/64ER_CD.iso/93xx/9303b.d64/toggle

Commodore BASIC | 1995-03-30 | 1KB | 21 lines

5 PRINT"[147]":POKE53281,0:DIMA(31,15):B=0:E=0:X=15:Y=8:PRINT"               [159]- TOGGLE -[158]"
10 POKE53280,0:FORI=9TO24:POKE214,I:FORJ=4TO35:POKE211,J:SYS58640:PRINT"[209]";:NEXT:NEXT:PRINT""
12 PRINT"LEVEL:";LE+1,"[158]":LE=LE+1:DATA,3,1,3,2,3,3,3,4,3,4,2,4
15 FORZ=1TO20:READX,Y:GOSUB140:X=31-X:GOSUB140:Y=15-Y:GOSUB140:X=31-X:GOSUB140:NEXT: READS,X,Y
60 S=S-1:PRINT"[156]STEPS LEFT :    [157][157][157][157]";S;"[158]":IFS=0ANDB<>0THEN170
70 IFB=0THEN:ONLEGOTO12,12,12,12,170:DATA1,4,,6,3,7,3,8,4,9,4,11,7,11,6,11,5,11,4
80 C=PEEK(56320):ON(2+((C-118)>0))GOTO90,80:DATA12,4,13,4,14,4,15,4,161,,,6,2,5,3
90 ON(C-118)GOTO100,80,80,80,110,80,120,130,80:DATA6,4,7,3,1,6,2,6,3,6,2,7,9,7,10,7
100 X=X+1AND31:GOSUB140:GOTO60:DATA10,6,11,6,11,5,12,5,12,4,13,4,13,3,14,3,14,2,15,2
110 X=X-1AND31:GOSUB140:GOTO60:DATA211,,,2,1,1,2,2,2,11,,11,1,11,2,11,3,12,4,13,4
120 Y=Y+1AND15:GOSUB140:GOTO60:DATA14,4,15,4,15,6,14,7,6,4,4,5,5,5,7,5,8,5,6,6,6,7,221
130 Y=Y-1AND15:GOSUB140:GOTO60:DATA,,1,7,1,6,2,6,6,2,5,2,5,3,5,4,7,5,8,5,7,7,8,7,9,2
140 POKE54296,15:POKE54296,0:ONA(X,Y)+1GOTO150,160:DATA10,2,10,3,10,4,15,2,14,4
150 POKE211,X+4:POKE214,Y+9:SYS58640:PRINT"[154][209]";:A(X,Y)=1:B=B+1:RETURN:DATA13,4,13
160 POKE211,X+4:POKE214,Y+9:SYS58640:PRINT"[158][209]";:A(X,Y)=0:B=B-1:RETURN:DATA5,13,6,221,,,,,,1
170 PRINT"CONGRATULATIONS  ![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]PLAY AGAIN ? Y/N"
180 IFB<>0THENPRINT"YOU'LL NEVER SAVE THE WORLD  !":DATA,2,1,,2,,3,3,4,3,5,2
190 GETA$:FORF=55501TO55530:POKEF,G:NEXT:G=G+1AND15:DATA5,4,8,2,9,2,7,7,8,6,9,7,9,5,10
192 IFA$<>"Y"ANDA$<>"N"THEN190:DATA6,11,7,14,4,15,3,15,5,281,,,
195 PRINT"[147]":POKE53280,14:POKE53281,6:POKE646,14:IFA$="Y"THENRUN:               -DAN SPARK'92-