1 rem moonwalker (US GOLD/Kixx)
2 rem skip level by waz
3 rem cassette -v1- commodore format
4 for x=384 to 438:read y:c=c+y:poke x,y:next
5 for x=272 to 314:read y:c=c+y:poke x,y:next
6 if c<>12091 then print "data error":end
7 input "skip level 1 y/n";a$
8 if a$="n" then poke 414,32:poke 419,0:poke 424,128
9 input "skip level 2 y/n";b$
10 if b$="n" then poke 273,32:poke 278,0:poke 283,128
11 input "skip level 3 y/n";c$
12 if c$="n" then poke 288,32:poke 293,172:poke 298,9
13 poke 157,128:sys 384
14 data 032,086,245,169,168,141,208,008
15 data 169,057,141,209,008,076,016,008
16 data 169,157,141,016,207,169,001,141
17 data 017,207,076,000,207,169,076,141
18 data 052,198,169,063,141,053,198,169
19 data 198,141,054,198,076,016,001,169
20 data 099,141,000,192,076,000,128,169
21 data 076,141,068,198,169,079,141,069
22 data 198,169,198,141,070,198,169,076
23 data 141,084,198,169,095,141,085,198
24 data 169,198,141,086,198,169,175,141
25 data 101,198,169,001,141,102,198,076
26 data 023,198
Download PRG...
