1 rem cataball (hit pak trio)
2 rem infinite lives by waz
3 rem cassette -v1- commodore format
4 for x=528 to 580:read y:c=c+y:poke x,y:next
5 if c<>5814 then print "data error":end
6 input "infinite lives y/n";a$:if a$="n" then poke 570,198
7 input "balloons to win level";b:if b<1 or b>10 then 7
8 poke 575,b:poke 157,128:sys 528
9 data 032,104,225,169,032,141,243,003
10 data 169,002,141,244,003,076,013,008
11 data 169,032,141,063,003,169,050,141
12 data 064,003,169,002,141,065,003,076
13 data 132,255,072,238,032,208,206,032
14 data 208,169,165,141,158,097,169,010
15 data 141,191,094,104,096
Download PRG...