00000000: 00 80 5E 55 3A 48 41 43 4B 45 52 0D 0D 20 20 20 |..^U:HACKER.. |
00000010: 20 20 20 20 20 20 20 D2 C5 CE D5 CD C2 C5 D2 20 | ........ |
00000020: C2 C1 D3 C9 C3 0D 0D 0D D7 52 49 54 54 45 4E 20 |.........RITTEN |
00000030: 42 59 3A 20 20 C3 48 41 52 4C 45 53 20 CD 4F 45 |BY: .HARLES .OE|
00000040: 48 52 49 4E 47 45 52 0D 0D D0 4F 57 45 52 D0 4C |HRINGER...OWER.L|
00000050: 41 59 20 CD 41 47 41 5A 49 4E 45 0D CD 41 59 20 |AY .AGAZINE..AY |
00000060: 31 39 38 35 0D 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A |1985...*********|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D CE CF |*************...|
00000090: D4 C5 3A 20 20 D4 48 49 53 20 50 52 4F 47 52 41 |..: .HIS PROGRA|
000000A0: 4D 20 44 4F 45 53 20 4E 4F 54 0D 52 45 43 4F 4E |M DOES NOT.RECON|
000000B0: 4E 45 43 54 20 54 4F 20 54 48 45 20 CC 4F 41 44 |NECT TO THE .OAD|
000000C0: 53 54 41 52 20 4F 50 45 52 41 54 49 4E 47 0D 53 |STAR OPERATING.S|
000000D0: 59 53 54 45 4D 2E 20 20 D4 4F 20 52 45 54 55 52 |YSTEM. .O RETUR|
000000E0: 4E 20 54 4F 20 CC 4F 41 44 53 54 41 52 2C 0D 52 |N TO .OADSTAR,.R|
000000F0: 45 42 4F 4F 54 20 54 48 45 20 44 49 53 4B 2E 0D |EBOOT THE DISK..|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 0D 0D 0D 20 20 D4 48 45 52 45 |******... .HERE|
00000130: 20 49 53 20 4F 46 54 45 4E 20 41 20 4E 45 45 44 | IS OFTEN A NEED|
00000140: 20 54 4F 20 49 4E 53 45 52 54 20 4E 45 57 0D C2 | TO INSERT NEW..|
00000150: C1 D3 C9 C3 20 50 52 4F 47 52 41 4D 20 4C 49 4E |.... PROGRAM LIN|
00000160: 45 53 20 42 45 54 57 45 45 4E 20 45 58 49 53 54 |ES BETWEEN EXIST|
00000170: 49 4E 47 0D 4F 4E 45 53 2E 20 20 CB 45 45 50 49 |ING.ONES. .EEPI|
00000180: 4E 47 20 54 52 41 43 4B 20 4F 46 20 41 4C 4C 20 |NG TRACK OF ALL |
00000190: 54 48 45 0D C7 CF D4 CF 53 2C 20 C7 CF D3 D5 C2 |THE.....S, .....|
000001A0: 53 2C 20 41 4E 44 20 D4 C8 C5 CE 53 20 49 53 20 |S, AND ....S IS |
000001B0: 41 20 43 48 4F 52 45 2E 0D D2 C5 CE D5 CD C2 C5 |A CHORE.........|
000001C0: D2 20 C2 C1 D3 C9 C3 20 48 41 4E 44 4C 45 53 20 |. ..... HANDLES |
000001D0: 41 4C 4C 20 4F 46 20 54 48 49 53 0D 41 55 54 4F |ALL OF THIS.AUTO|
000001E0: 4D 41 54 49 43 41 4C 4C 59 2E 0D 0D 20 20 D7 48 |MATICALLY... .H|
000001F0: 45 4E 20 41 20 50 52 4F 47 52 41 4D 20 4C 4F 4F |EN A PROGRAM LOO|
00000200: 4B 53 20 4C 49 4B 45 20 54 48 49 53 3A 0D 0D 20 |KS LIKE THIS:.. |
00000210: 20 2E 0D 20 20 2E 0D 20 31 34 30 20 D0 D2 C9 CE | .. .. 140 ....|
00000220: D4 22 D4 C8 C9 D3 20 CC C9 CE C5 20 C9 D3 20 C6 |.".... .... .. .|
00000230: D5 CC CC 22 0D 20 31 34 31 20 D0 D2 C9 CE D4 22 |...". 141 ....."|
00000240: C1 CE C4 20 D3 CF 20 C9 D3 20 D4 C8 C9 D3 22 0D |... .. .. ....".|
00000250: 20 31 34 32 20 D0 D2 C9 CE D4 22 C7 D5 C5 D3 D3 | 142 .....".....|
00000260: 20 D7 C8 C1 D4 3F 22 0D 20 20 2E 0D 20 20 2E 0D | ....?". .. ..|
00000270: 0D 0D 41 4E 44 20 43 4F 44 45 20 4E 45 45 44 53 |..AND CODE NEEDS|
00000280: 20 54 4F 20 42 45 20 49 4E 53 45 52 54 45 44 2C | TO BE INSERTED,|
00000290: 0D D2 C5 CE D5 CD C2 C5 D2 20 C2 C1 D3 C9 C3 20 |......... ..... |
000002A0: 54 4F 20 54 48 45 20 52 45 53 43 55 45 2E 0D 0D |TO THE RESCUE...|
000002B0: 20 20 D2 D5 CE 20 54 48 45 20 52 45 4E 55 4D 42 | ... THE RENUMB|
000002C0: 45 52 20 50 52 4F 47 52 41 4D 20 41 4E 44 20 45 |ER PROGRAM AND E|
000002D0: 4E 54 45 52 0D 54 48 45 20 46 4F 4C 4C 4F 57 49 |NTER.THE FOLLOWI|
000002E0: 4E 47 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 3A 0D |NG INFORMATION:.|
000002F0: 0D 20 20 20 2D 2D 20 C6 49 4C 45 20 4E 41 4D 45 |. -- .ILE NAME|
00000300: 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D 20 | OF THE PROGRAM |
00000310: 54 4F 0D 20 20 20 20 20 20 42 45 20 52 45 4E 55 |TO. BE RENU|
00000320: 4D 42 45 52 45 44 0D 0D 20 20 20 2D 2D 20 CE 45 |MBERED.. -- .E|
00000330: 57 20 53 54 41 52 54 49 4E 47 20 4C 49 4E 45 20 |W STARTING LINE |
00000340: 4E 55 4D 42 45 52 0D 0D 20 20 20 2D 2D 20 CC 49 |NUMBER.. -- .I|
00000350: 4E 45 20 4E 55 4D 42 45 52 20 49 4E 43 52 45 4D |NE NUMBER INCREM|
00000360: 45 4E 54 0D 0D 0D 20 20 D4 4F 20 52 45 4E 55 4D |ENT... .O RENUM|
00000370: 42 45 52 20 54 48 45 20 41 42 4F 56 45 20 45 58 |BER THE ABOVE EX|
00000380: 41 4D 50 4C 45 0D 53 54 41 52 54 49 4E 47 20 41 |AMPLE.STARTING A|
00000390: 54 20 4C 49 4E 45 20 32 30 30 2C 20 45 4E 54 45 |T LINE 200, ENTE|
000003A0: 52 20 32 30 30 2C 20 54 48 45 4E 0D 31 30 2E 20 |R 200, THEN.10. |
000003B0: 20 D4 48 45 20 45 4E 54 49 52 45 20 50 52 4F 47 | .HE ENTIRE PROG|
000003C0: 52 41 4D 20 57 49 4C 4C 20 42 45 0D 52 45 4E 55 |RAM WILL BE.RENU|
000003D0: 4D 42 45 52 45 44 2C 20 43 4F 4D 4D 45 4E 43 49 |MBERED, COMMENCI|
000003E0: 4E 47 20 41 54 20 4C 49 4E 45 20 32 30 30 2E 0D |NG AT LINE 200..|
000003F0: D3 55 42 53 45 51 55 45 4E 54 20 4C 49 4E 45 20 |.UBSEQUENT LINE |
00000400: 4E 55 4D 42 45 52 53 20 57 49 4C 4C 20 42 45 20 |NUMBERS WILL BE |
00000410: 32 31 30 2C 0D 32 32 30 2C 20 45 54 43 2E 20 20 |210,.220, ETC. |
00000420: D4 48 45 20 41 50 50 52 4F 58 49 4D 41 54 45 20 |.HE APPROXIMATE |
00000430: 4D 41 58 49 4D 55 4D 0D 4C 45 4E 47 54 48 20 4F |MAXIMUM.LENGTH O|
00000440: 46 20 54 48 45 20 50 52 4F 47 52 41 4D 20 54 4F |F THE PROGRAM TO|
00000450: 20 42 45 0D 52 45 4E 55 4D 42 45 52 45 44 20 49 | BE.RENUMBERED I|
00000460: 53 20 33 35 CB 20 28 41 50 50 52 4F 58 49 4D 41 |S 35. (APPROXIMA|
00000470: 54 45 4C 59 20 31 34 31 0D 53 45 43 54 4F 52 53 |TELY 141.SECTORS|
00000480: 29 2E 0D 0D 20 20 C1 20 57 4F 52 44 20 4F 46 20 |)... . WORD OF |
00000490: 43 41 55 54 49 4F 4E 3A 20 20 42 45 20 53 55 52 |CAUTION: BE SUR|
000004A0: 45 20 54 4F 20 53 41 56 45 0D 54 48 45 20 4D 4F |E TO SAVE.THE MO|
000004B0: 53 54 20 52 45 43 45 4E 54 20 56 45 52 53 49 4F |ST RECENT VERSIO|
000004C0: 4E 20 4F 46 20 54 48 45 0D 4F 52 49 47 49 4E 41 |N OF THE.ORIGINA|
000004D0: 4C 20 50 52 4F 47 52 41 4D 20 42 45 46 4F 52 45 |L PROGRAM BEFORE|
000004E0: 20 52 45 4E 55 4D 42 45 52 49 4E 47 2C 0D 41 4E | RENUMBERING,.AN|
000004F0: 44 20 53 41 56 45 20 54 48 45 20 52 45 4E 55 4D |D SAVE THE RENUM|
00000500: 42 45 52 45 44 20 56 45 52 53 49 4F 4E 0D 42 45 |BERED VERSION.BE|
00000510: 46 4F 52 45 20 41 54 54 45 4D 50 54 49 4E 47 20 |FORE ATTEMPTING |
00000520: 54 4F 20 52 55 4E 20 49 54 2E 0D 0D 0D 3E C6 49 |TO RUN IT....>.I|
00000530: 4C 45 53 20 54 48 49 53 20 50 52 4F 47 52 41 4D |LES THIS PROGRAM|
00000540: 20 55 53 45 53 3A 0D 0D 20 D2 C5 CE D5 CD C2 C5 | USES:.. .......|
00000550: D2 20 C2 CF CF D4 20 20 20 20 20 D2 C5 CE D5 CD |. .... .....|
00000560: C2 C5 D2 2D C2 C1 D3 C9 C3 0D 20 D2 C5 CE D5 CD |...-...... .....|
00000570: C2 C5 D2 20 20 20 20 20 20 20 20 20 20 D4 2E D2 |... ...|
00000580: C5 CE D5 CD C2 C5 D2 20 C2 CF CF D4 0D 0D 20 20 |....... ...... |
00000590: 20 20 20 20 2A 2A 2A 2A 2A 20 C5 4E 44 20 4F 46 | ***** .ND OF|
000005A0: 20 D4 45 58 54 20 2A 2A 2A 2A 2A 0D | .EXT *****. |
..^U:HACKER.. RENUMBER BASIC...
WRITTEN BY: CHARLES MOEHRINGER..POWERPL
AY MAGAZINE.MAY 1985...*****************
*********************.NOTE: THIS PROGRA
M DOES NOT.RECONNECT TO THE LOADSTAR OPE
RATING.SYSTEM. TO RETURN TO LOADSTAR,.R
EBOOT THE DISK..************************
**************... THERE IS OFTEN A NEED
TO INSERT NEW.BASIC PROGRAM LINES BETWE
EN EXISTING.ONES. KEEPING TRACK OF ALL
THE.GOTOS, GOSUBS, AND THENS IS A CHORE.
.RENUMBER BASIC HANDLES ALL OF THIS.AUTO
MATICALLY... WHEN A PROGRAM LOOKS LIKE
THIS:.. .. .. 140 PRINT"THIS LINE IS F
ULL". 141 PRINT"AND SO IS THIS". 142 PRI
NT"GUESS WHAT?". .. ....AND CODE NEEDS
TO BE INSERTED,.RENUMBER BASIC TO THE R
ESCUE... RUN THE RENUMBER PROGRAM AND E
NTER.THE FOLLOWING INFORMATION:.. -- F
ILE NAME OF THE PROGRAM TO. BE RENU
MBERED.. -- NEW STARTING LINE NUMBER..
-- LINE NUMBER INCREMENT... TO RENUM
BER THE ABOVE EXAMPLE.STARTING AT LINE 2
00, ENTER 200, THEN.10. THE ENTIRE PROG
RAM WILL BE.RENUMBERED, COMMENCING AT LI
NE 200..SUBSEQUENT LINE NUMBERS WILL BE
210,.220, ETC. THE APPROXIMATE MAXIMUM.
LENGTH OF THE PROGRAM TO BE.RENUMBERED I
S 35K (APPROXIMATELY 141.SECTORS)... A
WORD OF CAUTION: BE SURE TO SAVE.THE MO
ST RECENT VERSION OF THE.ORIGINAL PROGRA
M BEFORE RENUMBERING,.AND SAVE THE RENUM
BERED VERSION.BEFORE ATTEMPTING TO RUN I
T....>FILES THIS PROGRAM USES:.. RENUMBE
R BOOT RENUMBER-BASIC. RENUMBER
T.RENUMBER BOOT.. ***** END OF
TEXT *****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL