1 rem knuckle buster (melbourne house)
2 rem infinite lives & time by tim and lan fraser
3 rem cassette -v1- zzap64 no.25
4 print chr$(147) "please wait"
5 def fnr(a)=peek(a)+peek(a+1)*256
6 i=49152
7 reada:t=t+a:ifa=256 then print "ok":sys49152
8 if a>256 and a<348 and a>344 then t=t+345
9 if a>256 then c=a:t=t-a:if t<>c then print "data error in line" fnr(63):end
10 if a>256 then c=0:t=0:goto 7
11 poke i,a:i=i+1:goto 7
100 data 169,1,168,170,32,186,255,169,1150
101 data 0,32,189,255,32,213,255,169,1145
102 data 23,133,2,162,67,160,192,169,908
103 data 181,134,251,132,252,133,253,162,1498
104 data 4,134,254,162,0,161,251,129,1095
105 data 253,230,251,208,2,230,252,230,1656
106 data 253,208,2,230,254,198,2,16,1163
107 data 236,169,0,133,2,234,234,234,1242
108 data 76,94,192,174,2,0,188,132,858
109 data 1,185,171,1,72,185,170,1,786
110 data 72,96,32,244,4,138,105,5,696
111 data 141,2,0,234,234,234,162,89,1096
112 data 189,107,192,157,87,1,202,208,1143
113 data 247,76,247,192,169,55,133,1,1120
114 data 32,2,253,169,27,141,17,208,849
115 data 32,167,2,32,167,2,76,49,527
116 data 2,32,244,4,188,41,5,138,654
117 data 105,6,141,2,0,177,174,145,750
118 data 253,136,208,249,120,76,180,4,1226
119 data 0,0,0,0,0,0,0,0,345
120 data 0,0,0,0,0,0,0,0,345
121 data 0,0,0,0,2,0,0,0,347
122 data 0,0,2,0,0,0,0,0,347
123 data 0,0,0,0,0,4,195,4,108,311
124 data 1,87,1,76,49,2,162,378
125 data 2,189,43,2,157,138,144,189,864
126 data 46,2,157,130,144,202,16,241,938
127 data 169,173,141,184,171,76,0,109,1023
128 data 76,141,144,76,133,144,162,2,878
129 data 189,63,2,157,138,8,202,16,775
130 data 247,76,40,8,76,18,2,162,629
131 data 47,189,199,192,157,18,2,202,1006
132 data 16,247,76,144,4,254,256,997
Download PRG...
