1 rem vengeance (crl)
2 rem infinite lives, power and no collision by waz
3 rem cassette -v1- commodore format
4 for x=516 to 567:read y:c=c+y:poke x,y:next
5 if c<>6030 then print "data error":end
6 input "infinite lives y/n";a$: if a$="n" then poke 545,202
7 input "no collisions y/n";b$: if b$="n" then poke 550,162
8 input "infinite power y/n";c$
9 if c$="n" then for x=554 to 564:poke x,y:next
10 poke 157,128:sys 516
11 data 032,086,245,169,019,141,207,003
12 data 206,208,003,096,087,065,090,169
13 data 032,141,013,010,169,002,141,014
14 data 010,076,230,003,169,234,141,131
15 data 117,169,096,141,105,117,169,234
16 data 141,233,089,141,234,089,141,235
17 data 089,076,000,072
18 reminds me of paris in the winter
Download PRG...