Compute! Gazette 1986 October/1986-10.d64/line count_64

Commodore BASIC | 1986-01-01 | 1.6 KB | 25 lines

10 fora=49152to49539:readb:pokea,b:c=c+b:next
20 ifc<>51719thenprint"[147]data error":stop
30 print "[147]sys 49155: to initialize":print "sys 49152: for a report"
40 data 76,13,193,32,41,192,162,14,160,0,169,255,145,251,136,208,251,230,252
50 data 202,208,246,169,50,141,8,3,169,192,141,9,3,169,255,141,129,193,141
60 data 130,193,96,169,0,133,251,169,194,133,252,96,32,41,192,165,58,201,255
70 data 240,98,205,130,193,208,7,165,57,205,129,193,240,86,160,1,185,57,0
80 data 153,129,193,136,16,247,160,0,177,251,200,49,251,201,255,208,17,165,58
90 data 145,251,136,165,57,145,251,32,160,192,32,160,192,208,47,160,0,177,251
100 data 217,57,0,208,32,200,192,2,208,244,32,160,192,208,28,32,88,193,169
110 data 99,160,193,32,30,171,166,57,165,58,32,205,189,162,128,108,0,3,32
120 data 64,193,76,82,192,76,228,167,160,2,177,251,24,105,1,145,251,208,7
130 data 200,177,251,105,0,145,251,96,169,0,141,131,193,32,41,192,160,0,177
140 data 251,200,49,251,201,255,240,65,160,1,177,251,153,129,193,136,16,248,160
150 data 4,177,251,56,237,129,193,200,177,251,237,130,193,176,33,169,1,141,131
160 data 193,160,7,177,251,72,136,16,250,160,4,104,145,251,200,192,8,208,248
170 data 160,0,104,145,251,200,192,4,208,248,32,64,193,76,187,192,173,131,193
180 data 208,167,96,32,179,192,32,41,192,169,13,32,210,255,160,0,177,251,170
190 data 200,49,251,201,255,240,25,177,251,32,78,193,169,58,32,210,255,200,177
200 data 251,170,200,177,251,32,78,193,32,64,193,208,214,76,88,193,165,251,24
210 data 105,4,133,251,165,252,105,0,133,252,96,140,131,193,32,205,189,172,131
220 data 193,96,169,228,141,8,3,169,167,141,9,3,96,13,84,79,79,32,77
230 data 65,78,89,32,69,88,69,67,85,84,73,79,78,83,32,79,70,32,76
240 data 73,78,69,32,0,0,0,0