6-23
FILE INFORMATION
FILENAME(S): 6-23
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
0d1e6d21a6b5ac413b4a548504bb489b60e7456e2d4fb745c8217ba5fe1cebe2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 6-23 | PRG | DuncanTwain | 22 | 4 | DOWNLOAD FILE |
| PROG 64 WEST | 6-23 | PRG | DuncanTwain | 22 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..3.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 00 65 08 01 00 8F 20 2A 20 20 20 52 45 |***.e.... * RE|
00000040: 4C 49 41 42 4C 45 20 52 45 4E 55 4D 42 45 52 20 |LIABLE RENUMBER |
00000050: 55 54 49 4C 49 54 59 20 46 4F 52 20 54 48 45 20 |UTILITY FOR THE |
00000060: 36 34 20 20 2A 00 97 08 02 00 8F 20 2A 2A 2A 2A |64 *...... ****|
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 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 00 C9 08 03 00 8F 20 2A 20 |*******...... * |
000000A0: 41 50 50 45 4E 44 20 54 48 49 53 20 50 52 4F 47 |APPEND THIS PROG|
000000B0: 52 41 4D 2C 20 57 49 54 48 4F 55 54 20 54 48 45 |RAM, WITHOUT THE|
000000C0: 20 52 45 4D 53 2E 20 20 2A 00 FB 08 04 00 8F 20 | REMS. *...... |
000000D0: 2A 20 52 55 4E 20 36 30 30 30 30 20 20 20 20 52 |* RUN 60000 R|
000000E0: 45 4E 55 4D 42 45 52 53 20 50 41 52 54 20 4F 52 |ENUMBERS PART OR|
000000F0: 20 41 4C 4C 20 4F 46 20 20 20 2A 00 2D 09 05 00 | ALL OF *.-...|
00000100: 8F 20 2A 20 42 41 53 49 43 3A 2D 20 4C 49 4E 45 |. * BASIC:- LINE|
00000110: 4E 55 4D 42 45 52 53 20 41 4E 44 20 44 45 53 54 |NUMBERS AND DEST|
00000120: 49 4E 41 54 49 4F 4E 53 20 4F 46 20 2A 00 5F 09 |INATIONS OF *._.|
00000130: 06 00 8F 20 2A 20 47 4F 54 4F 2C 20 47 4F 20 54 |... * GOTO, GO T|
00000140: 4F 2C 20 47 4F 53 55 42 2C 20 54 48 45 4E 2C 20 |O, GOSUB, THEN, |
00000150: 4F 4E 2C 20 52 55 4E 2C 20 4C 49 53 54 2E 2A 00 |ON, RUN, LIST.*.|
00000160: 91 09 07 00 8F 20 2A 20 41 4C 4C 4F 57 53 20 46 |..... * ALLOWS F|
00000170: 4F 52 20 4D 4F 53 54 20 4E 55 4D 42 45 52 49 4E |OR MOST NUMBERIN|
00000180: 47 20 45 56 45 4E 54 55 41 4C 49 54 49 45 53 2E |G EVENTUALITIES.|
00000190: 2A 00 C3 09 08 00 8F 20 2A 20 4C 45 4E 47 54 48 |*...... * LENGTH|
000001A0: 45 4E 45 44 20 4C 49 4E 45 4E 55 4D 42 45 52 53 |ENED LINENUMBERS|
000001B0: 20 4E 45 45 44 20 4D 41 4E 55 41 4C 20 20 20 20 | NEED MANUAL |
000001C0: 20 20 2A 00 F5 09 09 00 8F 20 2A 20 43 4F 52 52 | *...... * CORR|
000001D0: 45 43 54 49 4F 4E 20 4F 4E 4C 59 20 57 48 45 4E |ECTION ONLY WHEN|
000001E0: 20 49 4E 44 49 43 41 54 45 44 20 20 20 20 20 20 | INDICATED |
000001F0: 20 20 20 20 2A 00 26 0A 0A 00 8F 2A 2A 2A 2A 2A | *.&....*****|
00000200: 2A 2A 2A 28 43 29 2A 2A 52 2A 57 45 53 54 2A 2A |***(C)**R*WEST**|
00000210: 2A 31 39 38 34 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*1984***********|
00000220: 2A 2A 2A 2A 2A 2A 00 53 0A 5F EA 8F 20 2A 2A 20 |******.S._.. ** |
00000230: 53 45 54 20 55 50 3B 20 41 4C 4C 4F 57 53 20 46 |SET UP; ALLOWS F|
00000240: 4F 52 20 36 30 30 2D 4C 49 4E 45 20 50 52 4F 47 |OR 600-LINE PROG|
00000250: 52 41 4D 00 72 0A 60 EA 85 20 22 52 45 4E 55 4D |RAM.r.`.. "RENUM|
00000260: 42 45 52 20 46 52 4F 4D 2C 54 4F 20 22 3B 20 4C |BER FROM,TO "; L|
00000270: 2C 48 00 91 0A 65 EA 85 20 22 53 54 41 52 54 2C |,H...e.. "START,|
00000280: 20 49 4E 43 52 45 4D 45 4E 54 20 22 3B 20 53 2C | INCREMENT "; S,|
00000290: 49 00 B5 0A 6A EA 86 20 4C 28 36 30 30 2C 32 29 |I...j.. L(600,2)|
000002A0: 3A 20 41 B2 32 30 34 39 3A 20 42 B2 32 35 36 3A |: A.2049: B.256:|
000002B0: 20 4A B2 AB 31 00 E5 0A C3 EA 8F 20 2A 2A 20 42 | J..1...... ** B|
000002C0: 55 49 4C 44 20 54 41 42 4C 45 20 4F 46 20 4F 4C |UILD TABLE OF OL|
000002D0: 44 2F 4E 45 57 20 4C 49 4E 45 53 2C 20 50 4F 49 |D/NEW LINES, POI|
000002E0: 4E 54 45 52 53 00 13 0B C4 EA 4A B2 4A AA 31 3A |NTERS.....J.J.1:|
000002F0: 20 4C 28 4A 2C 30 29 B2 C2 28 41 AA 32 29 AA 42 | L(J,0)..(A.2).B|
00000300: AC C2 28 41 AA 33 29 3A 20 4C 28 4A 2C 32 29 B2 |..(A.3): L(J,2).|
00000310: 41 AA 34 00 46 0B C9 EA 8B 20 4C 28 4A 2C 30 29 |A.4.F.... L(J,0)|
00000320: B3 4C 20 B0 20 4C 28 4A 2C 30 29 B1 48 20 A7 20 |.L . L(J,0).H . |
00000330: 4C 28 4A 2C 31 29 B2 4C 28 4A 2C 30 29 3A 20 89 |L(J,1).L(J,0): .|
00000340: 20 36 30 31 32 30 00 69 0B CE EA 4C 28 4A 2C 31 | 60120.i...L(J,1|
00000350: 29 B2 53 AA 52 AC 49 3A 20 52 B2 52 AA 31 3A 20 |).S.R.I: R.R.1: |
00000360: 4E 4C B2 4C 28 4A 2C 31 29 00 8C 0B D3 EA 97 20 |NL.L(J,1)...... |
00000370: 41 AA 32 2C 4E 4C AB B5 28 4E 4C AD 42 29 AC 42 |A.2,NL..(NL.B).B|
00000380: 3A 20 97 20 41 AA 33 2C 4E 4C AD 42 00 AF 0B D8 |: . A.3,NL.B....|
00000390: EA 41 B2 C2 28 41 29 AA 42 AC C2 28 41 AA 31 29 |.A..(A).B..(A.1)|
000003A0: 3A 20 8B 20 41 B1 30 20 89 20 36 30 31 30 30 00 |: . A.0 . 60100.|
000003B0: E2 0B 27 EB 8F 20 2A 2A 20 53 43 41 4E 20 45 41 |..'.. ** SCAN EA|
000003C0: 43 48 20 4C 49 4E 45 20 4F 46 20 42 41 53 49 43 |CH LINE OF BASIC|
000003D0: 20 28 45 58 43 45 50 54 20 52 45 4E 55 4D 42 45 | (EXCEPT RENUMBE|
000003E0: 52 29 00 1F 0C 28 EB 81 20 4B B2 30 20 A4 20 4A |R)...(.. K.0 . J|
000003F0: AB 33 30 3A 20 41 B2 4C 28 4B 2C 32 29 3A 8F 20 |.30: A.L(K,2):. |
00000400: 50 52 49 4E 54 20 22 52 45 4E 55 4D 42 45 52 49 |PRINT "RENUMBERI|
00000410: 4E 47 20 4C 49 4E 45 22 20 4C 28 4B 2C 30 29 00 |NG LINE" L(K,0).|
00000420: 41 0C 2D EB 50 B2 C2 28 41 29 3A 20 53 50 B2 30 |A.-.P..(A): SP.0|
00000430: 3A 20 8B 20 50 B2 30 20 A7 20 82 20 4B 20 3A 20 |: . P.0 . . K : |
00000440: 80 00 7E 0C 32 EB 8B 50 B3 B1 31 33 37 AF 50 B3 |..~.2..P..137.P.|
00000450: B1 31 33 38 AF 50 B3 B1 31 34 31 AF 50 B3 B1 31 |.138.P..141.P..1|
00000460: 35 35 AF 50 B3 B1 31 36 37 AF 50 B3 B1 32 30 33 |55.P..167.P..203|
00000470: A7 41 B2 41 AA 31 3A 89 20 36 30 32 30 35 00 B4 |.A.A.1:. 60205..|
00000480: 0C 8B EB 8F 20 2A 20 47 4F 54 4F 2C 20 52 55 4E |.... * GOTO, RUN|
00000490: 2C 20 47 4F 53 55 42 2C 20 4C 49 53 54 2C 20 54 |, GOSUB, LIST, T|
000004A0: 48 45 4E 2C 20 4F 52 20 47 4F 20 57 41 53 20 46 |HEN, OR GO WAS F|
000004B0: 4F 55 4E 44 00 E6 0C 8C EB 4E B2 30 3A 20 41 B2 |OUND.....N.0: A.|
000004C0: 41 AA 31 3A 20 50 B2 C2 28 41 29 3A 20 8B 20 50 |A.1: P..(A): . P|
000004D0: B2 33 32 20 A7 20 53 50 B2 53 50 AA 31 3A 20 89 |.32 . SP.SP.1: .|
000004E0: 20 36 30 33 30 30 00 0D 0D 91 EB 8B 20 50 B2 31 | 60300...... P.1|
000004F0: 36 34 20 89 20 36 30 33 30 30 20 3A 8F 20 27 54 |64 . 60300 :. 'T|
00000500: 4F 27 20 41 46 54 45 52 20 27 47 4F 27 00 2F 0D |O' AFTER 'GO'./.|
00000510: 96 EB 8B 20 50 B3 C6 28 22 30 22 29 20 B0 20 50 |... P..("0") . P|
00000520: B1 C6 28 22 39 22 29 20 89 20 36 30 32 30 35 00 |..("9") . 60205.|
00000530: 6B 0D 9B EB 8B 20 50 B1 34 37 20 AF 20 50 B3 35 |k.... P.47 . P.5|
00000540: 38 20 A7 20 4E B2 31 30 AC 4E 20 AA 20 28 50 AB |8 . N.10.N . (P.|
00000550: 34 38 29 3A 20 41 B2 41 AA 31 3A 20 50 B2 C2 28 |48): A.A.1: P..(|
00000560: 41 29 3A 20 89 20 36 30 33 31 35 00 90 0D A0 EB |A): . 60315.....|
00000570: 81 20 51 B2 30 20 A4 20 4A AB 33 30 3A 20 8B 20 |. Q.0 . J.30: . |
00000580: 4E B2 4C 28 51 2C 30 29 20 89 20 36 30 33 33 30 |N.L(Q,0) . 60330|
00000590: 00 C6 0D A5 EB 82 20 51 3A 20 99 20 22 2A 2A 2A |...... Q: . "***|
000005A0: 20 55 4E 52 45 46 45 52 45 4E 43 45 44 20 4C 49 | UNREFERENCED LI|
000005B0: 4E 45 20 49 4E 22 20 4C 28 4B 2C 31 29 3A 20 89 |NE IN" L(K,1): .|
000005C0: 20 36 30 35 30 30 00 E2 0D AA EB 8B 20 4C 28 51 | 60500...... L(Q|
000005D0: 2C 30 29 B2 4C 28 51 2C 31 29 20 89 20 36 30 35 |,0).L(Q,1) . 605|
000005E0: 30 30 00 0E 0E EF EB 8F 20 2A 2A 20 49 46 20 4E |00...... ** IF N|
000005F0: 45 57 20 4C 49 4E 45 4E 55 4D 42 45 52 20 46 49 |EW LINENUMBER FI|
00000600: 54 53 2C 20 50 4F 4B 45 20 49 54 20 49 4E 00 2D |TS, POKE IT IN.-|
00000610: 0E F0 EB 4E 24 B2 C4 28 4C 28 51 2C 31 29 29 3A |...N$..(L(Q,1)):|
00000620: 20 4F 24 B2 C4 28 4C 28 51 2C 30 29 29 00 62 0E | O$..(L(Q,0)).b.|
00000630: F5 EB 44 B2 C3 28 4E 24 29 3A 20 44 32 B2 C3 28 |..D..(N$): D2..(|
00000640: 4F 24 29 3A 20 8B 20 44 B3 44 32 20 A7 20 4E 24 |O$): . D.D2 . N$|
00000650: B2 C7 28 33 32 29 AA 4E 24 3A 20 89 20 36 30 34 |..(32).N$: . 604|
00000660: 30 35 00 9F 0E FA EB 8B 20 44 B1 44 32 AA 53 50 |05...... D.D2.SP|
00000670: 20 A7 20 99 20 22 12 2A 2A 2A 20 50 55 54 22 20 | . . ".*** PUT" |
00000680: 4E 24 20 22 20 49 4E 54 4F 20 4C 49 4E 45 22 20 |N$ " INTO LINE" |
00000690: 4C 28 4B 2C 31 29 3A 20 89 20 36 30 35 30 30 00 |L(K,1): . 60500.|
000006A0: CB 0E FF EB 58 B2 41 AB 44 AB 31 3A 20 81 20 51 |....X.A.D.1: . Q|
000006B0: B2 32 20 A4 20 44 3A 20 97 20 58 AA 51 2C C6 28 |.2 . D: . X.Q,.(|
000006C0: CA 28 4E 24 2C 51 29 29 3A 20 82 00 FC 0E 53 EC |.(N$,Q)): ....S.|
000006D0: 8F 20 2A 2A 20 53 4B 49 50 20 53 50 41 43 45 53 |. ** SKIP SPACES|
000006E0: 3B 20 43 48 45 43 4B 20 43 4F 4D 4D 41 20 28 4F |; CHECK COMMA (O|
000006F0: 4E 29 2C 20 2D 20 28 4C 49 53 54 29 00 20 0F 54 |N), - (LIST). .T|
00000700: EC 8B 20 50 B2 33 32 20 A7 20 41 B2 41 AA 31 3A |.. P.32 . A.A.1:|
00000710: 20 50 B2 C2 28 41 29 3A 20 89 20 36 30 35 30 30 | P..(A): . 60500|
00000720: 00 56 0F 59 EC 8B 20 50 B2 34 34 20 B0 20 50 B2 |.V.Y.. P.44 . P.|
00000730: 31 37 31 20 A7 20 53 50 B2 30 3A 20 89 20 36 30 |171 . SP.0: . 60|
00000740: 33 30 30 3A 20 8F 20 4C 4F 4F 4B 20 46 4F 52 20 |300: . LOOK FOR |
00000750: 2C 20 4F 52 20 2D 00 62 0F 5E EC 89 20 36 30 32 |, OR -.b.^.. 602|
00000760: 30 35 00 00 00 |05... |
..3.... ********************************
***********.E.... * RELIABLE RENUMBER
UTILITY FOR THE 64 *...... ************
*******************************.I.... *
APPEND THIS PROGRAM, WITHOUT THE REMS.
*...... * RUN 60000 RENUMBERS PART OR
ALL OF *.-.... * BASIC:- LINENUMBERS
AND DESTINATIONS OF *._.... * GOTO, GO T
O, GOSUB, THEN, ON, RUN, LIST.*...... *
ALLOWS FOR MOST NUMBERING EVENTUALITIES.
*.C.... * LENGTHENED LINENUMBERS NEED MA
NUAL *...... * CORRECTION ONLY WHEN
INDICATED *.&....********(C)**
R*WEST***1984*****************.S._.. **
SET UP; ALLOWS FOR 600-LINE PROGRAM.R.`.
. "RENUMBER FROM,TO "; L,H...E.. "START,
INCREMENT "; S,I...J.. L(600,2): A.2049
: B.256: J..1...C.. ** BUILD TABLE OF OL
D/NEW LINES, POINTERS...D.J.J.1: L(J,0).
B(A.2).B.B(A.3): L(J,2).A.4.F.I.. L(J,0)
.L . L(J,0).H . L(J,1).L(J,0): . 60120.I
.N.L(J,1).S.R.I: R.R.1: NL.L(J,1)...S..
A.2,NL..(NL.B).B: . A.3,NL.B...X.A.B(A).
B.B(A.1): . A.0 . 60100...'.. ** SCAN EA
CH LINE OF BASIC (EXCEPT RENUMBER)...(..
K.0 . J.30: A.L(K,2):. PRINT "RENUMBERI
NG LINE" L(K,0).A.-.P.B(A): SP.0: . P.0
. . K : ..~.2..P..137.P..138.P..141.P..1
55.P..167.P..203.A.A.1:. 60205...... * G
OTO, RUN, GOSUB, LIST, THEN, OR GO WAS F
OUND.....N.0: A.A.1: P.B(A): . P.32 . SP
.SP.1: . 60300...... P.164 . 60300 :. 'T
O' AFTER 'GO'./.... P.F("0") . P.F("9")
. 60205.K.... P.47 . P.58 . N.10.N . (P.
48): A.A.1: P.B(A): . 60315... .. Q.0 .
J.30: . N.L(Q,0) . 60330.F.... Q: . "***
UNREFERENCED LINE IN" L(K,1): . 60500..
.... L(Q,0).L(Q,1) . 60500...... ** IF N
EW LINENUMBER FITS, POKE IT IN.-...N$.D(
L(Q,1)): O$.D(L(Q,0)).B...D.C(N$): D2.C(
O$): . D.D2 . N$.G(32).N$: . 60405......
D.D2.SP . . ".*** PUT" N$ " INTO LINE"
L(K,1): . 60500.K...X.A.D.1: . Q.2 . D:
. X.Q,F(J(N$,Q)): ....S.. ** SKIP SPACES
; CHECK COMMA (ON), - (LIST). .T.. P.32
. A.A.1: P.B(A): . 60500.V.Y.. P.44 . P.
171 . SP.0: . 60300: . LOOK FOR , OR -.B
.^.. 60205...
> CLICK IMAGE PREVIEW FOR FULL MODAL