1 rem wwf wrestling (ocean)
2 rem infinite energy, credits and time by martin pugh
3 rem cassette -v1- commodore format
4 for x=527 to 585:read y:c=c+y:poke x,y:next
5 if c<>7044 then print "data error":end
6 input "infinite energy y/n";a$:if a$="y" then poke 571,141
7 input "infinite credits y/n";b$:if b$="y" then poke 576,141
8 input "infinite time y/n";c$:if c$="y" then poke 581,141
9 poke 157,128:sys 527
10 data 032,086,245,169,032,141,084,003
11 data 169,002,141,086,003,096,072,077
12 data 080,173,032,208,072,169,032,141
13 data 203,005,169,053,141,204,005,169
14 data 002,141,205,005,104,096,173,032
15 data 208,072,169,248,173,117,146,169
16 data 173,173,048,176,169,234,173,120
17 data 224,104,096,000,000,000,000,000
Download PRG...