Loadstar 36/036.d81/renumber

Commodore BASIC | 2022-08-26 | 5KB | 129 lines

10 rem***  c64 renumber ml loader  ***
20 poke 53280,14:poke 53281,14
30 print"[147]":print"**renumber your c64 basic program**"
40 print"by chuck moehringer"
50 print"please wait while loading data...."
60 z=0:for x=49408 to 49523:read y:z=z+y:pokex,y:nextx
70 ifz<>19626thenprint"data wrong in lines 70 to 130":end
80 data 162,0,230,251,208,2,230,252,161,251,208,40
85 data 24,165,251,105,2,133,253,144
90 data 7,164,252,200,132,254,208,4,164,252,132
95 data 254,161,253,208,3,134,253,96
100 data 24,165,251,105,4,133,251,144,210,230,252
105 data 208,206,201,137,240,10,201
110 data 141,240,6,201,167,240,2,208,10,230,251
115 data 208,2,230,252,232,134,253,96
120 data 201,203,208,14,230,251,208,2,230,252,161
125 data 251,201,164,240,230,208,242
130 data201,34,208,160,230,251,208,2,230,252,161
135 data 251,201,34,240,148,201,0,240
140 data 154,208,238
150 z=0:for x=49664 to 49724:read y:z=z+y:pokex,y:nextx
160 ifz<>10631thenprint"data wrong in lines 160 to 190":end
170 data 162,0,164,251,200,132,253,208,7,164,252
175 data 200,132,254,208,4,164,252
180 data 132,254,161,253,208,27,230,253,208,2,230
185 data 254,161,253,208,15,230,253
190 data 208,2,230,254,161,253,208,5,169,0,129,251
195 data 96,169,0,129,251,230,251,208
200 data 201,230,252,208,197
210 z=0:for x=49920 to 49990:read y:z=z+y:pokex,y:nextx
220 ifz<>11976thenprint"data wrong in lines 220 to 250":end
230 data 162,0,161,251,72,230,251,208,2,230,252
235 data 161,251,208,48,164,251,200,132
240 data 253,208,7,164,252,200,132,254,208,4,164
245 data 252,132,254,161,253,208,24
250 data 230,253,208,2,230,254,161,253,208,14,104
255 data 129,251,169,0,230,253,208,2
260 data 230,254,129,253,96,161,251,168,104,129,251,152,76,4,195
270 z=0:for x=50170 to 50316:read y:z=z+y:pokex,y:nextx
280 ifz<>22293thenprint"data wrong in lines 280 to 350":end
290 data173,37,192,141,0,192,160,1,162,0,142,16,192
295 data 169,192,133,254,169,16,133
300 data 253,161,251,201,32,208,8,230,251,208,246
305 data 230,252,208,242,161,251,201
310 data 48,144,19,201,58,176,15,238,16,192,230
315 data 253,129,253,230,251,208,235
320 data 230,252,208,231,201,32,144,12,201,44,176
325 data 8,230,251,208,219,230,252
330 data 208,215,201,0,240,12,201,58,240,8,201,44
335 data 240,9,140,48,192,96,142,32
340 data 192,240,3,140,32,192,173,16,192,205,0,192
345 data 240,7,142,48,192,140,64,192
350 data96,160,16,134,253,230,253,161,253,209,253
355 data 208,12,206,0,192,208,243,142
360 data48,192,142,64,192,96,142,48,192,232,142,64,192,96
370 z=0:for x=50432 to 50446:read y:z=z+y:pokex,y:nextx
380 ifz<>2748thenprint"data wrong in lines 380 to 390":end
390 data162,0,161,251,208,1,96,230,251,208,247,230,252,208,243
400 z=0:for x=50688 to 51068:read y:z=z+y:pokex,y:nextx
410 ifz<>56300thenprint"data wrong in lines 410 to 600":end
420 data169,4,133,251,169,8,133,252,32,0,193,165
425 data253,208,1,96,165,251,133,178
430 data165,252,133,179,32,41,198,165,178,133,251
435 data165,179,133,252,32,0,193,76
440 data11,198,32,250,195,165,251,141,113,192,165
445 data252,141,114,192,173,48,192
450 data240,22,173,114,192,133,179,173,113,192,133
455 data178,240,5,198,178,76,80,198
460 data198,178,198,179,96,173,64,192,208,84,173
465 data16,192,205,80,192,208,3,76,108
470 data198,144,6,32,221,198,76,108,198,32,54,199
475 data162,0,169,81,133,253,169,192
480 data133,254,56,161,253,233,15,129,178,206,16
485 data192,240,14,230,253,208,2,230
490 data254,230,178,208,234,230,179,208,230,230
495 data178,208,2,230,179,161,178,201
500 data58,240,14,201,0,240,10,201,44,240,6,169,32
505 data129,178,208,230,173,113,192
510 data133,178,173,114,192,133,179,165,178,240
515 data5,198,178,76,193,198,198,178
520 data198,179,173,32,192,240,22,24,165,178,105
525 data2,133,178,144,2,230,179,165
530 data178,133,251,165,179,133,252,76,41,198,96
535 data56,173,16,192,237,80,192,141
540 data115,192,173,115,192,208,7,173,80,192,141
545 data16,192,96,165,178,133,251,165
550 data179,133,252,32,0,194,206,115,192,173,113
555 data192,240,6,206,113,192,76,18
560 data199,206,113,192,206,114,192,165,179,205,97
565 data192,144,9,208,24,165,178,205
570 data96,192,176,17,173,96,192,240,6,206,96,192
575 data76,51,199,206,96,192,206,97
580 data192,76,231,198,56,173,80,192,237,16,192
585 data141,115,192,173,115,192,208,7
590 data173,80,192,141,16,192,96,165,178,133,251
595 data165,179,133,252,32,0,195,206
600 data115,192,238,113,192,208,3,238,114,192,165
605 data179,205,97,192,144,9,208,15
610 data165,178,205,96,192,176,8,238,96,192,208,3,238,97,192,76,64,199
620 z=0:for x=51200 to 51321:read y:z=z+y:pokex,y:nextx
630 ifz<>19347thenprint"data wrong in lines 630 to 690":end
640 data169,4,133,251,169,8,133,252,32,0,193,165
645 data253,208,1,96,165,251,133,253
650 data165,252,133,254,32,33,200,32,0,193,76,11
655 data200,162,0,161,253,201,32,208
660 data8,230,253,208,246,230,254,208,242,161,253
665 data201,33,144,17,201,43,176,13
670 data24,105,15,129,253,230,253,208,237,230,254
675 data208,233,201,0,240,4,201,58
680 data208,17,165,253,208,2,198,254,198,253,165
685 data253,133,251,165,254,133,252
690 data96,201,44,240,12,201,32,240,8,201,48,144
695 data227,201,58,176,223,230,253
700 data208,188,230,254,208,184,207
710 z=0:for x=51456 to 51522:read y:z=z+y:pokex,y:nextx
720 ifz<>11606thenprint"data wrong in lines 720 to 750":end
730 data169,1,133,251,133,253,169,8,133,252,133
735 data254,162,0,160,1,177,251,208
740 data1,96,24,165,251,105,4,133,251,144,2,230
745 data252,230,251,208,2,230,252,161
750 data251,208,246,230,251,208,2,230,252,165,252
755 data145,253,165,251,129,253,165
760 data251,133,253,165,252,133,254,208,206,255
770 print"[147]":print"[154]poke44,150:poke38400,0:new"
780 print"load ";chr$(34);"renumber-basic";chr$(34);",8"
790 print"run"
800 poke631,13:poke632,13:poke633,13:poke198,3
810 print"";:end