Compute! Gazette 1986 June/1986-06.d64/predictor_64

Commodore BASIC | 2022-09-20 | 3KB | 85 lines

10 print"[147]loading ml...":fori=49152to49956:reada:pokei,a:x=x+a:next
20 ifx<>91612thenprint"error in data.":stop
30 print"[147]type sys49152[146] to activate.":end
40 data 76,221,192,127,128,127,128,127,128,127
50 data 128,127,128,127,128,127,128,127,128,0
60 data 0,162,2,157,120,216,157,160,216,202
70 data 16,247,96,162,2,157,157,216,157,197
80 data 216,202,16,247,96,162,2,157,248,218
90 data 157,32,219,202,16,247,96,162,2,157
100 data 29,219,157,69,219,202,16,247,96,169
110 data 0,141,4,212,169,33,141,4,212,96
120 data 169,0,141,4,212,169,129,141,4,212
130 data 96,162,2,24,189,193,5,117,139,201
140 data 58,144,2,233,10,157,193,5,202,16
150 data 239,173,193,5,201,49,240,1,96,24
160 data 160,16,162,11,32,240,255,169,239,160
170 data 194,32,30,171,24,160,16,162,12,32
180 data 240,255,169,13,160,195,32,30,171,165
190 data 197,201,64,240,250,201,25,240,12,201
200 data 39,208,242,169,0,141,145,2,133,198
210 data 0,104,76,221,192,162,2,24,189,233
220 data 5,117,251,201,58,144,2,233,10,157
230 data 233,5,202,16,239,173,233,5,201,49
240 data 240,1,96,24,160,16,162,11,32,240
250 data 255,169,253,160,194,32,30,171,76,134
260 data 192,169,147,32,210,255,169,14,32,210
270 data 255,169,128,141,145,2,169,0,141,32
280 data 208,141,33,208,133,251,133,252,133,139
290 data 133,140,169,1,133,253,133,141,169,5
300 data 162,0,157,0,216,157,0,217,157,0
310 data 218,157,0,219,232,208,241,169,99,162
320 data 40,157,79,4,157,207,6,202,208,247
330 data 169,100,162,40,157,199,4,157,71,7
340 data 202,208,247,169,0,32,21,192,32,33
350 data 192,32,45,192,32,57,192,169,160,162
360 data 2,157,120,4,157,157,4,157,248,6
370 data 157,29,7,157,160,4,157,197,4,157
380 data 32,7,157,69,7,202,16,229,24,160
390 data 14,162,3,32,240,255,169,154,160,194
400 data 32,30,171,24,160,14,162,4,32,240
410 data 255,169,169,160,194,32,30,171,24,160
420 data 14,162,19,32,240,255,169,182,160,194
430 data 32,30,171,24,160,14,162,20,32,240
440 data 255,169,195,160,194,32,30,171,24,160
450 data 0,162,11,32,240,255,169,209,160,194
460 data 32,30,171,24,160,0,162,12,32,240
470 data 255,169,224,160,194,32,30,171,162,25
480 data 169,0,157,0,212,202,208,250,169,15
490 data 141,24,212,169,79,141,1,212,169,22
500 data 141,5,212,174,19,192,189,3,192,48
510 data 5,160,0,76,222,193,160,1,165,197
520 data 201,64,208,8,162,255,142,20,192,76
530 data 222,193,205,20,192,240,237,201,0,240
540 data 85,201,57,240,3,76,222,193,141,20
550 data 192,174,19,192,222,3,192,14,19,192
560 data 173,19,192,41,15,141,19,192,192,0
570 data 240,27,32,69,192,169,0,32,33,192
580 data 32,45,192,169,2,32,21,192,169,6
590 data 32,57,192,32,91,192,76,207,193,32
600 data 80,192,169,0,32,33,192,32,57,192
610 data 169,2,32,21,192,169,6,32,45,192
620 data 32,175,192,76,207,193,141,20,192,174
630 data 19,192,254,3,192,14,19,192,173,19
640 data 192,41,15,73,1,141,19,192,192,1
650 data 240,27,32,69,192,169,0,32,21,192
660 data 32,57,192,169,2,32,33,192,169,6
670 data 32,45,192,32,91,192,76,207,193,32
680 data 80,192,169,0,32,21,192,32,45,192
690 data 169,2,32,33,192,169,6,32,57,192
700 data 32,175,192,76,207,193,18,30,32,160
710 data 80,76,65,89,69,82,39,83,160,160
720 data 0,160,160,160,160,77,79,86,69,160
730 data 160,160,160,0,160,67,79,77,80,85
740 data 84,69,82,39,83,160,0,160,80,82
750 data 69,68,73,67,84,73,79,78,160,146
760 data 0,18,80,76,65,89,69,82,160,160
770 data 146,160,48,48,48,0,18,67,79,77
780 data 80,85,84,69,82,146,32,48,48,48
790 data 0,208,76,65,89,69,82,32,87,73
800 data 78,83,45,45,0,195,79,77,80,85
810 data 84,69,82,32,87,73,78,83,45,45
820 data 0,193,78,79,84,72,69,82,32,71
830 data 65,77,69,32,40,18,217,146,47,18
840 data 206,146,41,63,0