GAP FILL

FILE INFORMATION

FILENAME(S): GAP FILL

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-10-19 22:48:34

APPEARS ON: 1 disk(s)

FILE HASH

c27425934d00bd2a544d7fe2af7e0c1da84008b4b4ef7ec31c1758bbd654c838

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MM UTILITY	GAP FILL	PRG	Radd Maxx	5	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 39 04 00 00 8F 20  54 48 45 20 54 52 41 4E  |..9.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56  4F 4C 55 4D 45 20 35 20  |SACTOR VOLUME 5 |
00000020: 49 53 53 55 45 20 30 36  20 20 20 20 20 20 20 20  |ISSUE 06        |
00000030: 20 20 50 41 47 45 20 35  37 00 56 04 0A 00 8F 20  |  PAGE 57.V.... |
00000040: 53 41 56 45 22 30 3A 47  41 50 20 46 49 4C 4C 2E  |SAVE"0:GAP FILL.|
00000050: 42 41 53 22 2C 38 00 95  04 64 00 8F 20 2A 2A 20  |BAS",8...d.. ** |
00000060: 52 54 45 2F 38 34 20 2D  20 47 41 50 20 46 49 4C  |RTE/84 - GAP FIL|
00000070: 4C 45 52 20 46 4F 52 20  53 50 41 43 45 53 20 4C  |LER FOR SPACES L|
00000080: 45 46 54 20 49 4E 20 59  4F 55 52 20 44 49 52 45  |EFT IN YOUR DIRE|
00000090: 43 54 4F 52 59 00 C0 04  6E 00 99 22 2A 2A 20 44  |CTORY...n.."** D|
000000A0: 49 52 45 43 54 4F 52 59  20 47 41 50 20 46 49 4C  |IRECTORY GAP FIL|
000000B0: 4C 45 52 20 2D 20 52 54  45 2F 38 34 20 2A 2A 22  |LER - RTE/84 **"|
000000C0: 00 D4 04 78 00 99 22 44  52 49 56 45 20 54 59 50  |...x.."DRIVE TYP|
000000D0: 45 20 3A 22 00 16 05 82  00 85 22 31 29 20 31 35  |E :"......"1) 15|
000000E0: 34 31 2F 32 30 33 31 2F  34 30 34 30 20 4F 52 20  |41/2031/4040 OR |
000000F0: 32 29 20 38 30 35 30 2F  38 32 35 30 20 22 3B 44  |2) 8050/8250 ";D|
00000100: 54 3A 20 8B 20 44 54 B3  31 20 B0 20 44 54 B1 32  |T: . DT.1 . DT.2|
00000110: 20 A7 20 31 33 30 00 56  05 8C 00 4D 54 52 4B B2  | . 130.V...MTRK.|
00000120: 31 38 3A 20 8B 20 44 54  B2 32 20 A7 20 4D 54 52  |18: . DT.2 . MTR|
00000130: 4B B2 33 39 3A 20 8F 20  41 53 53 49 47 4E 20 43  |K.39: . ASSIGN C|
00000140: 4F 52 52 45 43 54 20 44  49 52 45 43 54 4F 52 59  |ORRECT DIRECTORY|
00000150: 20 54 52 41 43 4B 00 77  05 96 00 85 22 44 52 49  | TRACK.w...."DRI|
00000160: 56 45 20 23 20 22 3B 44  52 3A 20 8B 20 44 52 B1  |VE # ";DR: . DR.|
00000170: 31 20 A7 20 31 35 30 00  7D 05 A0 00 3A 00 A9 05  |1 . 150.}...:...|
00000180: AA 00 86 20 44 49 52 24  28 32 32 33 29 3A 20 8F  |... DIR$(223): .|
00000190: 20 2A 2A 20 4D 41 58 20  44 49 52 45 43 54 4F 52  | ** MAX DIRECTOR|
000001A0: 59 20 45 4E 54 52 49 45  53 00 D9 05 B4 00 86 20  |Y ENTRIES...... |
000001B0: 54 4C 24 28 32 37 29 2C  20 53 4C 24 28 32 37 29  |TL$(27), SL$(27)|
000001C0: 3A 20 8F 20 2A 2A 20 54  52 41 43 4B 2F 53 45 43  |: . ** TRACK/SEC|
000001D0: 54 4F 52 20 4C 49 4E 4B  53 00 18 06 BE 00 54 52  |TOR LINKS.....TR|
000001E0: 4B B2 4D 54 52 4B 3A 20  53 45 43 B2 31 3A 20 8F  |K.MTRK: SEC.1: .|
000001F0: 20 44 49 52 45 43 54 4F  52 59 20 54 52 41 43 4B  | DIRECTORY TRACK|
00000200: 20 41 4E 44 20 46 49 52  53 54 20 53 45 43 54 4F  | AND FIRST SECTO|
00000210: 52 20 54 4F 20 55 53 45  00 32 06 C8 00 43 54 52  |R TO USE.2...CTR|
00000220: B2 30 3A 20 4C 4E 4B B2  30 3A 20 5A 24 B2 C7 28  |.0: LNK.0: Z$..(|
00000230: 30 29 00 75 06 D2 00 52  50 24 B2 22 22 3A 20 81  |0).u...RP$."": .|
00000240: 20 58 20 B2 20 30 20 A4  20 32 39 3A 20 52 50 24  | X . 0 . 29: RP$|
00000250: B2 52 50 24 AA C7 28 30  29 3A 20 82 3A 20 8F 20  |.RP$..(0): .: . |
00000260: 2A 2A 20 52 45 50 4C 41  43 45 4D 45 4E 54 20 53  |** REPLACEMENT S|
00000270: 54 52 49 4E 47 00 7B 06  DC 00 3A 00 B2 06 E6 00  |TRING.{...:.....|
00000280: 9F 20 31 35 2C 38 2C 31  35 3A 20 9F 20 35 2C 38  |. 15,8,15: . 5,8|
00000290: 2C 35 2C 22 23 22 3A 20  8F 20 43 4F 4D 4D 41 4E  |,5,"#": . COMMAN|
000002A0: 44 20 43 48 41 4E 4E 45  4C 20 2B 20 42 55 46 46  |D CHANNEL + BUFF|
000002B0: 45 52 00 EB 06 F0 00 98  31 35 2C 22 55 31 3A 22  |ER......15,"U1:"|
000002C0: 3B 35 3B 44 52 3B 54 52  4B 3B 53 45 43 3A 20 8F  |;5;DR;TRK;SEC: .|
000002D0: 20 52 45 41 44 20 44 49  52 20 45 4E 54 52 59 20  | READ DIR ENTRY |
000002E0: 49 4E 54 4F 20 42 55 46  46 45 52 00 F1 06 FA 00  |INTO BUFFER.....|
000002F0: 3A 00 08 07 04 01 81 20  58 20 B2 20 30 20 A4 20  |:...... X . 0 . |
00000300: 32 35 35 20 A9 20 33 32  00 36 07 0E 01 A1 23 35  |255 . 32.6....#5|
00000310: 2C 54 24 2C 53 24 3A 20  8B 20 58 20 A7 20 32 39  |,T$,S$: . X . 29|
00000320: 30 3A 20 8F 20 47 45 54  20 43 4F 52 52 45 43 54  |0: . GET CORRECT|
00000330: 20 4C 49 4E 4B 53 00 61  07 18 01 54 52 4B B2 C6  | LINKS.a...TRK..|
00000340: 28 54 24 AA 5A 24 29 3A  20 53 45 43 B2 C6 28 53  |(T$.Z$): SEC..(S|
00000350: 24 AA 5A 24 29 3A 20 8F  20 4C 49 4E 4B 20 54 2F  |$.Z$): . LINK T/|
00000360: 53 00 9F 07 22 01 81 20  59 20 B2 20 32 20 A4 20  |S...".. Y . 2 . |
00000370: 33 31 3A 20 A1 23 35 2C  41 24 3A 44 49 52 24 28  |31: .#5,A$:DIR$(|
00000380: 43 54 52 29 B2 44 49 52  24 28 43 54 52 29 AA C7  |CTR).DIR$(CTR)..|
00000390: 28 C6 28 41 24 AA 5A 24  29 29 3A 20 82 20 59 00  |(.(A$.Z$)): . Y.|
000003A0: E2 07 2C 01 41 24 B2 CA  28 44 49 52 24 28 43 54  |..,.A$..(DIR$(CT|
000003B0: 52 29 2C 34 2C 31 36 29  3A 20 8B 20 C6 28 44 49  |R),4,16): . .(DI|
000003C0: 52 24 28 43 54 52 29 29  20 A7 20 33 32 30 3A 20  |R$(CTR)) . 320: |
000003D0: 8F 20 49 46 20 4E 4F 54  20 53 43 52 41 54 43 48  |. IF NOT SCRATCH|
000003E0: 45 44 00 10 08 36 01 99  20 41 24 20 A3 31 37 29  |ED...6.. A$ .17)|
000003F0: 22 3C 3C 20 47 41 50 20  3E 3E 22 3A 20 44 49 52  |"<< GAP >>": DIR|
00000400: 24 28 43 54 52 29 B2 22  22 3A 20 89 20 33 33 30  |$(CTR)."": . 330|
00000410: 00 24 08 40 01 99 20 41  24 3A 20 43 54 52 B2 43  |.$.@.. A$: CTR.C|
00000420: 54 52 AA 31 00 2C 08 4A  01 82 20 58 00 32 08 54  |TR.1.,.J.. X.2.T|
00000430: 01 3A 00 57 08 5E 01 54  4C 24 28 4C 4E 4B 29 B2  |.:.W.^.TL$(LNK).|
00000440: C7 28 54 52 4B 29 3A 20  53 4C 24 28 4C 4E 4B 29  |.(TRK): SL$(LNK)|
00000450: B2 C7 28 53 45 43 29 00  88 08 68 01 8B 20 54 52  |..(SEC)...h.. TR|
00000460: 4B 20 A7 20 4C 4E 4B B2  4C 4E 4B AA 31 3A 20 89  |K . LNK.LNK.1: .|
00000470: 20 32 34 30 3A 20 8F 20  4F 4B 20 2D 20 47 4F 20  | 240: . OK - GO |
00000480: 46 4F 52 20 4D 4F 52 45  00 8E 08 72 01 3A 00 CC  |FOR MORE...r.:..|
00000490: 08 7C 01 8F 20 2A 2A 20  44 49 52 45 43 54 4F 52  |.|.. ** DIRECTOR|
000004A0: 59 20 43 4F 4D 50 4C 45  54 45 4C 59 20 4C 4F 41  |Y COMPLETELY LOA|
000004B0: 44 45 44 20 49 4E 20 2D  20 4E 4F 57 20 54 49 4D  |DED IN - NOW TIM|
000004C0: 45 20 54 4F 20 50 41 43  4B 20 2A 2A 00 E7 08 86  |E TO PACK **....|
000004D0: 01 54 52 4B B2 4D 54 52  4B 3A 20 53 45 43 B2 31  |.TRK.MTRK: SEC.1|
000004E0: 3A 20 46 49 4E B2 30 00  08 09 90 01 81 20 58 20  |: FIN.0...... X |
000004F0: B2 20 30 20 A4 20 4C 4E  4B 3A 20 98 31 35 2C 22  |. 0 . LNK: .15,"|
00000500: 42 2D 50 3A 22 35 3B 30  00 32 09 9A 01 54 53 24  |B-P:"5;0.2...TS$|
00000510: B2 54 4C 24 28 58 29 AA  53 4C 24 28 58 29 3A 20  |.TL$(X).SL$(X): |
00000520: 44 44 24 B2 22 22 3A 20  8F 20 4C 49 4E 4B 20 54  |DD$."": . LINK T|
00000530: 2F 53 00 65 09 A4 01 81  20 59 20 B2 20 30 20 A4  |/S.e.... Y . 0 .|
00000540: 20 37 3A 20 41 24 B2 44  49 52 24 28 46 49 4E 29  | 7: A$.DIR$(FIN)|
00000550: 3A 20 8B 20 46 49 4E B2  B1 43 54 52 20 A7 20 41  |: . FIN..CTR . A|
00000560: 24 B2 52 50 24 00 A7 09  AE 01 44 44 24 B2 44 44  |$.RP$.....DD$.DD|
00000570: 24 AA 41 24 3A 20 8B 20  59 B3 37 20 A7 20 44 44  |$.A$: . Y.7 . DD|
00000580: 24 B2 44 44 24 AA C7 28  30 29 AA C7 28 30 29 3A  |$.DD$..(0)..(0):|
00000590: 20 8F 20 57 41 53 54 45  44 20 32 20 42 59 54 45  | . WASTED 2 BYTE|
000005A0: 53 2F 45 4E 54 52 59 00  BA 09 B8 01 46 49 4E B2  |S/ENTRY.....FIN.|
000005B0: 46 49 4E AA 31 3A 20 82  20 59 00 FD 09 C2 01 98  |FIN.1: . Y......|
000005C0: 35 2C 54 53 24 3B 44 44  24 3B 3A 20 98 31 35 2C  |5,TS$;DD$;: .15,|
000005D0: 22 55 32 3A 22 3B 35 3B  44 52 3B 54 52 4B 3B 53  |"U2:";5;DR;TRK;S|
000005E0: 45 43 3B 3A 20 8F 20 46  49 4C 4C 20 42 55 46 46  |EC;: . FILL BUFF|
000005F0: 45 52 20 54 48 45 4E 20  57 52 49 54 45 00 1E 0A  |ER THEN WRITE...|
00000600: CC 01 54 52 4B B2 C6 28  54 4C 24 28 58 29 29 3A  |..TRK..(TL$(X)):|
00000610: 20 53 45 43 B2 C6 28 53  4C 24 28 58 29 29 00 32  | SEC..(SL$(X)).2|
00000620: 0A D6 01 82 20 58 3A 20  A0 35 3A 20 A0 31 35 3A  |.... X: .5: .15:|
00000630: 20 80 00 00 00                                    | ....           |

..9.... THE TRANSACTOR VOLUME 5 ISSUE 06
          PAGE 57.V.... SAVE"0:GAP FILL.
BAS",8...D.. ** RTE/84 - GAP FILLER FOR 
SPACES LEFT IN YOUR DIRECTORY...N.."** D
IRECTORY GAP FILLER - RTE/84 **".T.X.."D
RIVE TYPE :"......"1) 1541/2031/4040 OR 
2) 8050/8250 ";DT: . DT.1 . DT.2 . 130.V
...MTRK.18: . DT.2 . MTRK.39: . ASSIGN C
ORRECT DIRECTORY TRACK.W...."DRIVE # ";D
R: . DR.1 . 150.}. .:...... DIR$(223): .
 ** MAX DIRECTORY ENTRIES.Y.... TL$(27),
 SL$(27): . ** TRACK/SECTOR LINKS.....TR
K.MTRK: SEC.1: . DIRECTORY TRACK AND FIR
ST SECTOR TO USE.2.H.CTR.0: LNK.0: Z$.G(
0).U.R.RP$."": . X . 0 . 29: RP$.RP$.G(0
): .: . ** REPLACEMENT STRING.{...:.....
. 15,8,15: . 5,8,5,"#": . COMMAND CHANNE
L + BUFFER......15,"U1:";5;DR;TRK;SEC: .
 READ DIR ENTRY INTO BUFFER.....:...... 
X . 0 . 255 . 32.6....#5,T$,S$: . X . 29
0: . GET CORRECT LINKS.A...TRK.F(T$.Z$):
 SEC.F(S$.Z$): . LINK T/S...".. Y . 2 . 
31: .#5,A$:DIR$(CTR).DIR$(CTR).G(F(A$.Z$
)): . Y...,.A$.J(DIR$(CTR),4,16): . F(DI
R$(CTR)) . 320: . IF NOT SCRATCHED...6..
 A$ .17)"<< GAP >>": DIR$(CTR)."": . 330
.$.@.. A$: CTR.CTR.1.,.J.. X.2.T.:.W.^.T
L$(LNK).G(TRK): SL$(LNK).G(SEC)...H.. TR
K . LNK.LNK.1: . 240: . OK - GO FOR MORE
...R.:.L.|.. ** DIRECTORY COMPLETELY LOA
DED IN - NOW TIME TO PACK **.....TRK.MTR
K: SEC.1: FIN.0...... X . 0 . LNK: .15,"
B-P:"5;0.2...TS$.TL$(X).SL$(X): DD$."": 
. LINK T/S.E.... Y . 0 . 7: A$.DIR$(FIN)
: . FIN..CTR . A$.RP$.....DD$.DD$.A$: . 
Y.7 . DD$.DD$.G(0).G(0): . WASTED 2 BYTE
S/ENTRY.....FIN.FIN.1: . Y...B..5,TS$;DD
$;: .15,"U2:";5;DR;TRK;SEC;: . FILL BUFF
ER THEN WRITE...L.TRK.F(TL$(X)): SEC.F(S
L$(X)).2.V.. X:  5:  15: ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL