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

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

10 print"[147]creating object file."
11 fori=1to10000:next
20 hi=26:lo=236:open2,8,2,"predict.obj,p,w":print#2,chr$(lo)chr$(hi);
30 fori=6892to7679:reada:x=x+a:print#2,chr$(a);:next:close2
40 ifx<>81314thenprint"error in data.":stop
50 print"[147]type:":print"load "chr$(34)"predict.obj"chr$(34)",8,1[146]";
60 print"& sys6892[146] to run.":new
70 data 76,211,27,127,128,127,128,127,128,127
80 data 128,127,128,127,128,127,128,127,128,0
90 data 0,162,2,157,44,150,157,66,150,202
100 data 16,247,96,162,2,157,63,150,157,85
110 data 150,202,16,247,96,162,2,157,162,151
120 data 157,184,151,202,16,247,96,162,2,157
130 data 181,151,157,203,151,202,16,247,96,169
140 data 225,141,12,144,162,255,160,64,202,208
150 data 253,136,208,250,169,0,141,10,144,141
160 data 12,144,96,169,225,141,10,144,76,54
170 data 27,162,2,24,189,229,30,117,139,201
180 data 58,144,2,233,10,157,229,30,202,16
190 data 239,173,229,30,201,49,240,1,96,24
200 data 160,0,162,14,32,240,255,169,202,160
210 data 29,32,30,203,24,160,0,162,15,32
220 data 240,255,169,232,160,29,32,30,203,165
230 data 197,201,64,240,250,201,11,240,12,201
240 data 28,208,242,169,0,141,145,2,133,198
250 data 0,104,76,211,27,162,2,24,189,251
260 data 30,117,251,201,58,144,2,233,10,157
270 data 251,30,202,16,239,173,251,30,201,49
280 data 240,1,96,24,160,0,162,14,32,240
290 data 255,169,216,160,29,32,30,203,76,124
300 data 27,169,147,32,210,255,169,14,32,210
310 data 255,169,128,141,145,2,169,8,141,15
320 data 144,169,0,133,251,133,252,133,139,133
330 data 140,169,1,133,253,133,141,169,5,162
340 data 0,157,0,150,157,0,151,232,208,247
350 data 169,99,162,22,157,21,30,157,139,31
360 data 202,208,247,169,100,162,22,157,87,30
370 data 157,205,31,202,208,247,169,0,32,1
380 data 27,32,13,27,32,25,27,32,37,27
390 data 169,160,162,2,157,44,30,157,63,30
400 data 157,162,31,157,181,31,157,66,30,157
410 data 85,30,157,184,31,157,203,31,202,16
420 data 229,24,160,5,162,2,32,240,255,169
430 data 117,160,29,32,30,203,24,160,5,162
440 data 3,32,240,255,169,132,160,29,32,30
450 data 203,24,160,5,162,19,32,240,255,169
460 data 145,160,29,32,30,203,24,160,5,162
470 data 20,32,240,255,169,158,160,29,32,30
480 data 203,24,160,0,162,10,32,240,255,169
490 data 172,160,29,32,30,203,24,160,0,162
500 data 11,32,240,255,169,187,160,29,32,30
510 data 203,169,15,141,14,144,174,255,26,189
520 data 239,26,48,5,160,0,76,185,28,160
530 data 1,165,197,201,64,208,8,162,255,142
540 data 0,27,76,185,28,205,0,27,240,237
550 data 201,7,240,85,201,8,240,3,76,185
560 data 28,141,0,27,174,255,26,222,239,26
570 data 14,255,26,173,255,26,41,15,141,255
580 data 26,192,0,240,27,32,49,27,169,0
590 data 32,13,27,32,25,27,169,2,32,1
600 data 27,169,6,32,37,27,32,81,27,76
610 data 170,28,32,73,27,169,0,32,13,27
620 data 32,37,27,169,2,32,1,27,169,6
630 data 32,25,27,32,165,27,76,170,28,141
640 data 0,27,174,255,26,254,239,26,14,255
650 data 26,173,255,26,41,15,73,1,141,255
660 data 26,192,1,240,27,32,49,27,169,0
670 data 32,1,27,32,37,27,169,2,32,13
680 data 27,169,6,32,25,27,32,81,27,76
690 data 170,28,32,73,27,169,0,32,1,27
700 data 32,25,27,169,2,32,13,27,169,6
710 data 32,37,27,32,165,27,76,170,28,18
720 data 30,160,160,80,76,65,89,69,82,39
730 data 83,160,160,0,160,160,160,160,77,79
740 data 86,69,160,160,160,160,0,160,67,79
750 data 77,80,85,84,69,82,39,83,160,0
760 data 160,80,82,69,68,73,67,84,73,79
770 data 78,160,146,0,18,80,76,65,89,69
780 data 82,160,160,146,160,48,48,48,0,18
790 data 67,79,77,80,85,84,69,82,146,32
800 data 48,48,48,0,208,76,65,89,69,82
810 data 32,87,73,78,83,45,45,0,195,79
820 data 77,80,85,84,69,82,32,87,73,78
830 data 83,45,45,0,193,78,79,84,72,69
840 data 82,32,71,65,77,69,32,40,18,217
850 data 146,47,18,206,146,41,63,0