GAP REMOVER

FILE INFORMATION

FILENAME(S): GAP REMOVER

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:05:28

APPEARS ON: 2 disk(s)

FILE HASH

5c090c3f9f04bdcc36d754f0dd086432d927121b92d973786dc88d286e1a56c4

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DE BRUIN 12B	GAP REMOVER	PRG	DuncanTwain	20	14	DOWNLOAD FILE
QST DE WB4ZOJ	GAP REMOVER	PRG	DuncanTwain	20	14	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 32 08 00 00 97 35  33 32 38 30 2C 30 3A 97  |..2....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A  97 36 34 36 2C 31 34 3A  |53281,0:.646,14:|
00000020: 99 C7 28 31 34 37 29 3A  81 4C B2 30 A4 36 3A 99  |..(147):.L.0.6:.|
00000030: 3A 82 00 6C 08 01 00 99  A6 31 30 29 22 44 49 52  |:..l.....10)"DIR|
00000040: 45 43 54 4F 52 59 20 47  41 50 20 46 49 4C 4C 45  |ECTORY GAP FILLE|
00000050: 52 22 3A 99 3A 99 C7 28  31 35 33 29 A6 31 35 29  |R":.:..(153).15)|
00000060: 22 44 52 49 56 45 20 54  59 50 45 22 00 A6 08 02  |"DRIVE TYPE"....|
00000070: 00 99 22 20 20 20 20 22  C7 28 31 35 30 29 22 31  |.."    ".(150)"1|
00000080: 22 C7 28 31 35 33 29 22  20 31 35 34 31 2F 32 30  |".(153)" 1541/20|
00000090: 33 31 2F 34 30 34 30 20  4F 52 20 22 C7 28 31 35  |31/4040 OR ".(15|
000000A0: 30 29 22 32 22 3B 00 C4  08 03 00 99 C7 28 31 35  |0)"2";.......(15|
000000B0: 33 29 22 20 38 30 35 30  2F 38 32 35 30 22 C7 28  |3)" 8050/8250".(|
000000C0: 31 35 38 29 00 D8 08 04  00 A1 44 44 24 3A 8B 44  |158)......DD$:.D|
000000D0: 44 24 B2 22 31 22 A7 36  00 E8 08 05 00 8B 44 44  |D$."1".6......DD|
000000E0: 24 B3 B1 22 32 22 A7 34  00 08 09 06 00 44 54 B2  |$.."2".4.....DT.|
000000F0: C5 28 44 44 24 29 3A 4D  54 B2 31 38 3A 8B 44 54  |.(DD$):MT.18:.DT|
00000100: B2 32 A7 4D 54 B2 33 39  00 42 09 07 00 99 3A 99  |.2.MT.39.B....:.|
00000110: A6 31 30 29 22 44 45 56  49 43 45 20 4E 55 4D 42  |.10)"DEVICE NUMB|
00000120: 45 52 20 22 C7 28 31 35  30 29 22 38 22 C7 28 31  |ER ".(150)"8".(1|
00000130: 35 38 29 22 20 4F 52 20  22 C7 28 31 35 30 29 22  |58)" OR ".(150)"|
00000140: 39 22 00 57 09 08 00 A1  44 44 24 3A 8B 44 44 24  |9".W....DD$:.DD$|
00000150: B2 22 38 22 A7 31 30 00  67 09 09 00 8B 44 44 24  |."8".10.g....DD$|
00000160: B3 B1 22 39 22 A7 38 00  7D 09 0A 00 44 4E B2 C5  |.."9".8.}...DN..|
00000170: 28 44 44 24 29 3A 99 C7  28 31 35 39 29 00 B5 09  |(DD$):..(159)...|
00000180: 0B 00 99 A6 31 30 29 22  44 52 49 56 45 20 4E 55  |....10)"DRIVE NU|
00000190: 4D 42 45 52 20 20 22 C7  28 31 35 30 29 22 30 22  |MBER  ".(150)"0"|
000001A0: C7 28 31 35 39 29 22 20  4F 52 20 22 C7 28 31 35  |.(159)" OR ".(15|
000001B0: 30 29 22 31 22 00 CA 09  0C 00 A1 44 44 24 3A 8B  |0)"1"......DD$:.|
000001C0: 44 44 24 B2 22 30 22 A7  31 34 00 DB 09 0D 00 8B  |DD$."0".14......|
000001D0: 44 44 24 B3 B1 22 31 22  A7 31 32 00 0C 0A 0E 00  |DD$.."1".12.....|
000001E0: 44 52 B2 C5 28 44 44 24  29 3A 99 C7 28 31 34 37  |DR..(DD$):..(147|
000001F0: 29 3A 99 3A 97 35 33 32  38 30 2C 36 3A 97 35 33  |):.:.53280,6:.53|
00000200: 32 38 31 2C 36 3A 97 36  34 36 2C 31 00 47 0A 0F  |281,6:.646,1.G..|
00000210: 00 86 44 49 24 28 32 32  33 29 2C 54 4C 24 28 32  |..DI$(223),TL$(2|
00000220: 37 29 2C 53 4C 24 28 32  37 29 3A 54 52 B2 4D 54  |7),SL$(27):TR.MT|
00000230: 3A 53 45 B2 31 3A 43 54  B2 30 3A 4C 4E B2 30 3A  |:SE.1:CT.0:LN.0:|
00000240: 5A 24 B2 C7 28 30 29 00  7F 0A 10 00 52 50 24 B2  |Z$..(0).....RP$.|
00000250: 22 22 3A 81 58 B2 30 A4  32 39 3A 52 50 24 B2 52  |"":.X.0.29:RP$.R|
00000260: 50 24 AA C7 28 30 29 3A  82 3A 9F 31 35 2C 44 4E  |P$..(0):.:.15,DN|
00000270: 2C 31 35 3A 9F 35 2C 44  4E 2C 35 2C 22 23 22 00  |,15:.5,DN,5,"#".|
00000280: B4 0A 11 00 98 31 35 2C  22 55 31 3A 22 3B 35 3B  |.....15,"U1:";5;|
00000290: 44 52 3B 54 52 3B 53 45  3A 81 58 B2 30 A4 32 35  |DR;TR;SE:.X.0.25|
000002A0: 35 A9 33 32 3A A1 23 35  2C 54 24 2C 53 24 3A 8B  |5.32:.#5,T$,S$:.|
000002B0: 58 A7 31 39 00 D0 0A 12  00 54 52 B2 C6 28 54 24  |X.19.....TR..(T$|
000002C0: AA 5A 24 29 3A 53 45 B2  C6 28 53 24 AA 5A 24 29  |.Z$):SE..(S$.Z$)|
000002D0: 00 02 0B 13 00 81 59 B2  32 A4 33 31 3A A1 23 35  |......Y.2.31:.#5|
000002E0: 2C 41 24 3A 44 49 24 28  43 54 29 B2 44 49 24 28  |,A$:DI$(CT).DI$(|
000002F0: 43 54 29 AA C7 28 C6 28  41 24 AA 5A 24 29 29 3A  |CT)..(.(A$.Z$)):|
00000300: 82 59 00 28 0B 14 00 41  24 B2 CA 28 44 49 24 28  |.Y.(...A$..(DI$(|
00000310: 43 54 29 2C 34 2C 31 36  29 3A 8B C6 28 44 49 24  |CT),4,16):..(DI$|
00000320: 28 43 54 29 29 A7 32 32  00 4E 0B 15 00 99 41 24  |(CT)).22.N....A$|
00000330: A3 31 37 29 22 3C 3C 20  47 41 50 20 3E 3E 22 3A  |.17)"<< GAP >>":|
00000340: 44 49 24 28 43 54 29 B2  22 22 3A 89 32 33 00 5E  |DI$(CT)."":.23.^|
00000350: 0B 16 00 99 41 24 3A 43  54 B2 43 54 AA 31 00 65  |....A$:CT.CT.1.e|
00000360: 0B 17 00 82 58 00 95 0B  18 00 54 4C 24 28 4C 4E  |....X.....TL$(LN|
00000370: 29 B2 C7 28 54 52 29 3A  53 4C 24 28 4C 4E 29 B2  |)..(TR):SL$(LN).|
00000380: C7 28 53 45 29 3A 8B 54  52 A7 4C 4E B2 4C 4E AA  |.(SE):.TR.LN.LN.|
00000390: 31 3A 89 31 37 00 A9 0B  19 00 54 52 B2 4D 54 3A  |1:.17.....TR.MT:|
000003A0: 53 45 B2 31 3A 46 49 B2  30 00 DC 0B 1A 00 81 58  |SE.1:FI.0......X|
000003B0: B2 30 A4 4C 4E 3A 98 31  35 2C 22 42 2D 50 3A 22  |.0.LN:.15,"B-P:"|
000003C0: 35 3B 30 3A 54 53 24 B2  54 4C 24 28 58 29 AA 53  |5;0:TS$.TL$(X).S|
000003D0: 4C 24 28 58 29 3A 44 44  24 B2 22 22 00 01 0C 1B  |L$(X):DD$.""....|
000003E0: 00 81 59 B2 30 A4 37 3A  41 24 B2 44 49 24 28 46  |..Y.0.7:A$.DI$(F|
000003F0: 49 29 3A 8B 46 49 B2 B1  43 54 A7 41 24 B2 52 50  |I):.FI..CT.A$.RP|
00000400: 24 00 27 0C 1C 00 44 44  24 B2 44 44 24 AA 41 24  |$.'...DD$.DD$.A$|
00000410: 3A 8B 59 B3 37 A7 44 44  24 B2 44 44 24 AA C7 28  |:.Y.7.DD$.DD$..(|
00000420: 30 29 AA C7 28 30 29 00  58 0C 1D 00 46 49 B2 46  |0)..(0).X...FI.F|
00000430: 49 AA 31 3A 82 59 3A 98  35 2C 54 53 24 3B 44 44  |I.1:.Y:.5,TS$;DD|
00000440: 24 3B 3A 98 31 35 2C 22  55 32 3A 22 3B 35 3B 44  |$;:.15,"U2:";5;D|
00000450: 52 3B 54 52 3B 53 45 3B  00 80 0C 1E 00 54 52 B2  |R;TR;SE;.....TR.|
00000460: C6 28 54 4C 24 28 58 29  29 3A 53 45 B2 C6 28 53  |.(TL$(X)):SE..(S|
00000470: 4C 24 28 58 29 29 3A 82  58 3A A0 35 3A A0 31 35  |L$(X)):.X:.5:.15|
00000480: 00 BF 0C 1F 00 99 3A 99  22 20 20 50 52 45 53 53  |......:."  PRESS|
00000490: 20 22 C7 28 31 38 29 22  52 45 54 55 52 4E 22 C7  | ".(18)"RETURN".|
000004A0: 28 31 34 36 29 22 20 54  4F 20 57 4F 52 4B 20 4F  |(146)" TO WORK O|
000004B0: 4E 20 41 4E 4F 54 48 45  52 20 44 49 53 4B 22 00  |N ANOTHER DISK".|
000004C0: D5 0C 20 00 A1 41 24 3A  8B 41 24 B3 B1 C7 28 31  |.. ..A$:.A$...(1|
000004D0: 33 29 A7 33 32 00 DB 0C  21 00 8A 00 00 00        |3).32...!.....  |

..2....53280,0:.53281,0:.646,14:.G(147):
.L.0.6:.:..L.....10)"DIRECTORY GAP FILLE
R":.:.G(153).15)"DRIVE TYPE"......"    "
G(150)"1"G(153)" 1541/2031/4040 OR "G(15
0)"2";.D....G(153)" 8050/8250"G(158).X..
..DD$:.DD$."1".6......DD$.."2".4.....DT.
E(DD$):MT.18:.DT.2.MT.39.B....:..10)"DEV
ICE NUMBER "G(150)"8"G(158)" OR "G(150)"
9".W....DD$:.DD$."8".10.G....DD$.."9".8.
}...DN.E(DD$):.G(159).......10)"DRIVE NU
MBER  "G(150)"0"G(159)" OR "G(150)"1".J.
...DD$:.DD$."0".14......DD$.."1".12.....
DR.E(DD$):.G(147):.:.53280,6:.53281,6:.6
46,1.G....DI$(223),TL$(27),SL$(27):TR.MT
:SE.1:CT.0:LN.0:Z$.G(0)....RP$."":.X.0.
29:RP$.RP$.G(0):.:.15,DN,15:.5,DN,5,"#".
.....15,"U1:";5;DR;TR;SE:.X.0.255.32:.#5
,T$,S$:.X.19.P...TR.F(T$.Z$):SE.F(S$.Z$)
......Y.2.31:.#5,A$:DI$(CT).DI$(CT).G(F(
A$.Z$)):.Y.(...A$.J(DI$(CT),4,16):.F(DI$
(CT)).22.N....A$.17)"<< GAP >>":DI$(CT).
"":.23.^....A$:CT.CT.1.E....X.....TL$(LN
).G(TR):SL$(LN).G(SE):.TR.LN.LN.1:.17...
..TR.MT:SE.1:FI.0......X.0.LN:.15,"B-P:"
5;0:TS$.TL$(X).SL$(X):DD$.""......Y.0.7:
A$.DI$(FI):.FI..CT.A$.RP$.'...DD$.DD$.A$
:.Y.7.DD$.DD$.G(0).G(0).X...FI.FI.1:.Y:.
5,TS$;DD$;:.15,"U2:";5;DR;TR;SE;.....TR.
F(TL$(X)):SE.F(SL$(X)):.X: 5: 15......:.
"  PRESS "G(18)"RETURN"G(146)" TO WORK O
N ANOTHER DISK".U. ..A$:.A$..G(13).32...
!.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL