1 rem cops and robbers
2 rem infinite lives, ammo & no collision by waz
3 rem cassette -v1- commodore format
4 for x=516 to 561:read y:c=c+y:poke x,y:next
5 if c<>4591 then print "data error":end
6 input "infinite lives y/n";a$: if a$="n" then poke 545,206
7 input "infinite ammo y/n";b$: if b$="n" then poke 550,206
8 input "no collisions y/n";b$: if b$="n" then poke 555,51
9 poke 157,128:sys 516
10 data 032,086,245,169,019,141,207,003
11 data 206,208,003,096,087,065,090,169
12 data 032,141,013,010,169,002,141,014
13 data 010,076,230,003,169,173,141,007
14 data 026,169,173,141,246,047,169,033
15 data 141,031,057,076,064,061
Download PRG...