start tok64 d64-XZraIe
160 b=53280:POKEb,6:POKEb+1,6
170 PRINT"{white}{clear}
180 FORi=1TO10:PRINT:NEXT:PRINTSPC(15)"renumber
190 PRINT:PRINT:PRINT:PRINTSPC(18)"64
200 PRINT:PRINT:PRINT
210 s=.:FORi=49152TO49749:READx:s=s+x:POKEi,x:POKEb,x:PRINT,"{up}"49749-i"{left} ":NEXT
240 POKEb,6:IFs=68818THEN290
250 PRINT"{clear}
260 FORi=1TO5:PRINT:NEXT:POKEb,.
270 PRINT"fel i datasatserna {!*3}
280 PRINT:PRINT"skillnad ="68818-s:END
290 PRINT"{clear}
300 FORi=1TO5:PRINT:NEXT
310 PRINT" hur man anv[nder renumber 64
320 PRINT"{-*30}
330 PRINT:PRINT"skriv in kommandot 'new'.
340 PRINT:PRINT"ladda in det program som ska numreras om
350 PRINT"anropa med sys49152,n1,n2
360 PRINT:PRINT" n1 = radnumret p] den f{pound}rsta raden
380 PRINT" n2 = stegtal f{pound}r radnumreringen
390 PRINT:PRINT:PRINT"vid felet 'line number to big error'
400 PRINT"m]ste n1 och/eller n2 minskas,
410 PRINT"och man m]ste numrera om en g]ng till.
420 REM datasatser
430 DATA32,253,174,32,235,183,138,208,2,169,10,133,77,165,20,166,21,133,78
440 DATA134,79,32,142,166,32,50,194,32,93,192,144,251,169,255,160,1,145,75
450 DATA165,43,166,44,133,122,134,123,32,180,192,176,22,165,36,166,37,133
460 DATA122,134,123,165,78,24,101,77,144,2,230,79,133,78,76,46,192,32,142
470 DATA166,32,50,194,32,36,193,144,251,32,89,166,32,51,65,76,116,164,160
480 DATA1,177,122,208,4,56,76,134,192,165,122,24,105,4,144,2,230,123,133
490 DATA122,32,115,0,201,137,240,14,201,141,240,10,201,167,240,6,201,0,208
500 DATA 237,24,96,32,115,0,176,233,32,107,169,160,0,165,20,145,75,200,165
510 DATA21,145,75,200,169,0,145,75,165,75,24,105,3,144,2,230,76,133,75,32
520 DATA121,0,201,44,240,214,76,129,192,160,0,32,50,194,177,122,133,36,200
530 DATA177,122,208,4,56,76,35,193,133,37,200,177,122,133,20,200,177,122
540 DATA133,21,166,78,165,79,201,250,144,10,169,59,160,194,32,30,171,76,195
550 DATA192,145,122,138,136,145,122,160,2,177,75,208,36,136,177,75,201,255
560 DATA240,43,170,136,177,75,197,20,208,21,228,21,208,17,165,78,166,79,160
570 DATA0,145,75,200,138,145,75,200,169,255,145,75,165,75,24,105,3,144,2
580 DATA230,76,133,75,76,234,192,24,96,160,1,177,122,208,4,56,76,77,193,165
590 DATA122,24,105,4,144,2,230,123,133,122,32,115,0,201,137,240,14,201,141
600 DATA240,10,201,167,240,6,201,0,208,237,24,96,32,115,0,176,233,160,0,177
610 DATA75,170,200,177,75,133,98,134,99,162,144,56,32,73,188,32,223,189,160
620 DATA0,169,0,162,1,133,36,134,37,32,121,0,176,82,177,36,240,11,200,162
630 DATA0,129,122,32,115,0,76,117,193,132,78,24,165,45,105,255,133,45,165
640 DATA46,105,255,133,46,165,122,166,123,133,34,134,35,160,0,200,177,34
650 DATA136,145,34,230,34,208,2,230,35,165,35,197,46,208,238,165,34,197,45
660 DATA208,232,24,165,122,105,255,133,122,165,123,105,255,133,123,164,78
670 DATA76,128,193,177,36,240,77,200,230,45,208,2,230,46,133,78,132,79,165
680 DATA45,166,46,24,105,254,133,34,134,35,160,0,177,34,200,145,34,165,34
690 DATA197,122,208,9,165,35,197,123,208,3,76,9,194,24,165,34,105,255,133
700 DATA34,165,35,105,255,133,35,76,227,193,165,78,164,79,162,0,129,122,230
710 DATA122,208,2,230,123,76,201,193,165,75,24,105,3,144,2,230,76,133,75
720 DATA32,121,0,201,44,240,3,76,72,193,76,83,193,169,96,162,194,133,75,134
730 DATA76,96,63,76,73,78,69,32,78,85,77,66,69,82,32,84,79,79,32,66,73,71
740 DATA32,69,82,82,79,82,0
stop tok64
(bastext 1.0)