home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 March
/
64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64
/
toggle
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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-