1 rem agent orange
2 rem infinite lives & seeds by m pugh
3 rem cassette -v1- commodore format
5 for x=517 to 576:read y:c=c+y:poke x,y:next
6 if c6248 then print "data error":end
7 input "infinite lives y/n";a$:if a$="y" then poke 568,141
8 input "infinite seeds y/n";b$: if b$="y" then poke 573,141
9 poke 157,128:sys 517
10 data 169,018,141,040,003,169,002,141
11 data 041,003,032,086,245,169,032,141
12 data 178,002,169,002,141,179,002,096
13 data 072,077,080,169,032,141,222,003
14 data 169,051,141,223,003,169,002,141
15 data 224,003,032,069,003,096,238,032
16 data 208,169,165,173,023,098,169,165
17 data 173,117,099,096
Download PRG...