1 rem paperboy (elite/encore)
2 rem infinite lives and papers by m pugh
3 rem cassette -v1- commodore format
4 for x=380 to 419:read y:c=c+y:poke x,y:next
5 if c<>4114 then print "data error": end
6 input "infinite lives y/n";a$: if a$="y" then poke 411,140
7 input "infinite papers y/n";b$: if b$="y" then poke 416,140
8 poke 157,128:sys 380
9 data 032,104,225,169,001,141,244,003
10 data 169,032,141,063,003,169,150,141
11 data 064,003,169,001,141,065,003,076
12 data 013,008,238,032,208,160,096,172
13 data 166,041,160,096,172,107,040,096
Download PRG...