1 rem pacmania (grandslam)
2 rem infinite lives by gareth edmondson
3 rem cassette -v1- zzapp64 iss.49
4 for x=320 to 357:ready:c=c+y:poke x,y:next
5 if c=3695 then poke 157,128:sys 320
6 print "data error!!!":end
7 data 32,86,245,169,81,141,202,2,169,1,141,203,2
8 data 96,72,77,80,169,94,141,134,5,169,1,141,135
9 data 5,76,0,4,169,165,141,104,111,76,0,56
Download PRG...