FIX DIRECTORY
FILE INFORMATION
FILENAME(S): FIX DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 18:24:51
APPEARS ON: 1 disk(s)
FILE HASH
c2bdbf4f6d0ffb1d8c737b31ec8ee3ada8506ce9b6b2063d6d6d8c252968f935
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK UTILLITES | FIX DIRECTORY | PRG | Sailor, Sensei | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3A 08 64 00 99 C7 28 31 34 32 29 22 93 90 |..:.d...(142)"..| 00000010: AC A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000020: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000030: A2 A2 A2 A2 A2 A2 A2 BB 22 3B 00 6D 08 6E 00 99 |........";.m.n..| 00000040: 22 12 A1 20 20 54 48 49 53 20 49 53 20 41 20 50 |".. THIS IS A P| 00000050: 52 4F 47 52 41 4D 20 46 4F 52 20 43 48 41 4E 47 |ROGRAM FOR CHANG| 00000060: 45 20 4F 46 20 20 20 20 20 92 A1 22 3B 00 A0 08 |E OF ..";...| 00000070: 78 00 99 22 12 A1 20 20 54 48 45 20 44 49 43 52 |x..".. THE DICR| 00000080: 45 43 54 4F 52 59 20 53 45 51 55 45 4E 43 45 20 |ECTORY SEQUENCE | 00000090: 4F 46 20 4E 41 4D 45 53 20 20 20 20 92 A1 22 3B |OF NAMES ..";| 000000A0: 00 D3 08 82 00 99 22 BC 12 A2 A2 A2 A2 A2 A2 A2 |......".........| 000000B0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 000000C0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 92 |................| 000000D0: BE 22 3B 00 01 09 8C 00 99 22 20 20 20 43 4F 50 |.";......" COP| 000000E0: 59 52 49 47 48 54 20 31 30 2E 38 33 20 42 59 20 |YRIGHT 10.83 BY | 000000F0: 4D 49 43 48 41 45 4C 20 57 45 47 4D 45 52 11 11 |MICHAEL WEGMER..| 00000100: 22 00 27 09 96 00 99 22 20 20 20 20 20 20 20 20 |".'...." | 00000110: 50 4C 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 |PLEASE INSERT DI| 00000120: 53 4B 20 41 4E 44 22 00 4C 09 A0 00 99 22 20 20 |SK AND".L...." | 00000130: 20 20 20 20 20 20 50 55 53 48 20 54 48 45 20 3C | PUSH THE <| 00000140: 52 45 54 55 52 4E 3E 20 4B 45 59 22 00 67 09 A5 |RETURN> KEY".g..| 00000150: 00 81 49 B2 31 A4 33 30 3A 4C 45 24 B2 4C 45 24 |..I.1.30:LE$.LE$| 00000160: AA C7 28 30 29 3A 82 00 7E 09 AA 00 A1 41 24 3A |..(0):..~....A$:| 00000170: 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 37 30 00 A7 |.A$...(13).170..| 00000180: 09 B4 00 99 22 11 11 20 20 20 42 59 20 50 55 53 |....".. BY PUS| 00000190: 48 49 4E 47 20 54 48 45 20 43 4F 52 52 45 53 50 |HING THE CORRESP| 000001A0: 4F 4E 44 49 4E 47 22 00 D2 09 BE 00 99 22 20 20 |ONDING"......" | 000001B0: 20 4E 55 4D 42 45 52 53 2C 20 59 4F 55 20 57 49 | NUMBERS, YOU WI| 000001C0: 4C 4C 20 53 57 41 50 20 54 48 45 20 4E 41 4D 45 |LL SWAP THE NAME| 000001D0: 53 22 00 EF 09 C8 00 99 22 11 20 20 20 4E 4F 57 |S"......". NOW| 000001E0: 20 52 45 41 44 49 4E 47 20 4E 41 4D 45 3A 22 00 | READING NAME:".| 000001F0: 1F 0A D2 00 86 50 4E 24 28 34 35 29 2C 53 50 28 |.....PN$(45),SP(| 00000200: 39 29 2C 53 45 28 39 29 3A 4E 4E B2 30 3A 53 4E |9),SE(9):NN.0:SN| 00000210: B2 30 3A 53 50 25 B2 31 38 3A 53 45 25 B2 31 00 |.0:SP%.18:SE%.1.| 00000220: 3B 0A DC 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |;....15,8,15,"I"| 00000230: 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 6A 0A E6 00 |:.2,8,2,"#".j...| 00000240: 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B 53 50 25 |.15,"U1";2;0;SP%| 00000250: 3B 53 45 25 3A 53 50 28 53 4E 29 B2 53 50 25 3A |;SE%:SP(SN).SP%:| 00000260: 53 45 28 53 4E 29 B2 53 45 25 00 87 0A F0 00 A1 |SE(SN).SE%......| 00000270: 23 32 2C 45 47 24 3A 8B 45 47 24 B2 22 22 A7 45 |#2,EG$:.EG$."".E| 00000280: 47 24 B2 C7 28 30 29 00 AF 0A FA 00 53 50 25 B2 |G$..(0).....SP%.| 00000290: C6 28 45 47 24 29 3A A1 23 32 2C 45 47 24 3A 8B |.(EG$):.#2,EG$:.| 000002A0: 45 47 24 B2 22 22 A7 45 47 24 B2 C7 28 30 29 00 |EG$."".EG$..(0).| 000002B0: C3 0A 04 01 53 45 25 B2 C6 28 45 47 24 29 3A 50 |....SE%..(EG$):P| 000002C0: 5A B2 32 00 FF 0A 0E 01 98 31 35 2C 22 42 2D 50 |Z.2......15,"B-P| 000002D0: 22 3B 32 3B 50 5A 3A 4E 4E B2 4E 4E AA 31 3A 81 |";2;PZ:NN.NN.1:.| 000002E0: 49 B2 31 A4 33 30 3A A1 23 32 2C 45 47 24 3A 8B |I.1.30:.#2,EG$:.| 000002F0: 45 47 24 B2 22 22 A7 45 47 24 B2 C7 28 30 29 00 |EG$."".EG$..(0).| 00000300: 24 0B 18 01 50 4E 24 28 4E 4E 29 B2 50 4E 24 28 |$...PN$(NN).PN$(| 00000310: 4E 4E 29 AA 45 47 24 3A 82 3A 8B 4E 4E B1 34 34 |NN).EG$:.:.NN.44| 00000320: A7 36 34 30 00 4C 0B 1D 01 52 B2 C6 28 50 4E 24 |.640.L...R..(PN$| 00000330: 28 4E 4E 29 29 3A 8B 52 B2 30 B0 52 B2 31 32 38 |(NN)):.R.0.R.128| 00000340: A7 50 4E 24 28 4E 4E 29 B2 4C 45 24 00 7D 0B 22 |.PN$(NN).LE$.}."| 00000350: 01 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............| 00000360: 11 11 22 3B A3 32 30 29 3B CA 28 50 4E 24 28 4E |..";.20);.(PN$(N| 00000370: 4E 29 2C 34 2C 31 36 29 3B A6 31 36 29 00 97 0B |N),4,16);.16)...| 00000380: 2C 01 8B 50 5A AB 32 32 36 A7 50 5A B2 50 5A AA |,..PZ.226.PZ.PZ.| 00000390: 33 32 3A 89 32 37 30 00 B2 0B 36 01 8B 53 50 25 |32:.270...6..SP%| 000003A0: A7 50 5A B2 32 3A 53 4E B2 53 4E AA 31 3A 89 32 |.PZ.2:SN.SN.1:.2| 000003B0: 33 30 00 C3 0B 40 01 41 4E B2 30 3A 81 49 B2 31 |30...@.AN.0:.I.1| 000003C0: A4 4E 4E 00 D4 0B 4A 01 8B 49 B1 4E 4E AB 41 4E |.NN...J..I.NN.AN| 000003D0: A7 33 37 30 00 EF 0B 54 01 8B C6 28 CA 28 50 4E |.370...T...(.(PN| 000003E0: 24 28 49 29 2C 34 29 29 B3 B1 30 A7 33 37 30 00 |$(I),4))..0.370.| 000003F0: 06 0C 5E 01 8B 49 B2 4E 4E A7 41 4E B2 41 4E AA |..^..I.NN.AN.AN.| 00000400: 31 3A 89 33 33 30 00 48 0C 68 01 58 24 B2 50 4E |1:.330.H.h.X$.PN| 00000410: 24 28 49 29 3A 81 4A B2 49 AA 31 A4 4E 4E 3A 50 |$(I):.J.I.1.NN:P| 00000420: 4E 24 28 4A AB 31 29 B2 50 4E 24 28 4A 29 3A 82 |N$(J.1).PN$(J):.| 00000430: 3A 50 4E 24 28 4E 4E 29 B2 58 24 3A 41 4E B2 41 |:PN$(NN).X$:AN.A| 00000440: 4E AA 31 3A 89 33 33 30 00 71 0C 72 01 82 3A 58 |N.1:.330.q.r..:X| 00000450: 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............| 00000460: 1D 1D 1D 1D 1D 1D 1D 22 3A 4E 4E B2 4E 4E AB 41 |.......":NN.NN.A| 00000470: 4E 00 A3 0C 7C 01 99 22 93 12 20 20 20 20 20 20 |N...|..".. | 00000480: 20 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 20 | THE DIRECTORY | 00000490: 4E 41 4D 45 53 20 41 52 45 3A 20 20 20 20 20 20 |NAMES ARE: | 000004A0: 20 20 22 00 D3 0C 86 01 81 49 B2 31 A4 B5 28 4E | "......I.1..(N| 000004B0: 4E AD 32 AA 2E 35 29 3A 99 C9 28 C4 28 49 29 2C |N.2..5):..(.(I),| 000004C0: 32 29 22 20 22 CA 28 50 4E 24 28 49 29 2C 34 2C |2)" ".(PN$(I),4,| 000004D0: 31 36 29 00 E1 0C 90 01 82 3A 99 22 13 11 11 22 |16)......:."..."| 000004E0: 3B 00 16 0D 9A 01 81 49 B2 B5 28 4E 4E AD 32 AA |;......I..(NN.2.| 000004F0: 2E 35 29 AA 31 A4 4E 4E 3A 99 58 24 C9 28 C4 28 |.5).1.NN:.X$.(.(| 00000500: 49 29 2C 32 29 22 20 22 CA 28 50 4E 24 28 49 29 |I),2)" ".(PN$(I)| 00000510: 2C 34 2C 31 36 29 00 1C 0D A4 01 82 00 3F 0D AE |,4,16).......?..| 00000520: 01 59 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |.Y$."...........| 00000530: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".| 00000540: 62 0D B8 01 99 59 24 22 43 48 4F 4F 53 45 20 4E |b....Y$"CHOOSE N| 00000550: 55 4D 42 45 52 20 28 40 3D 45 4E 44 29 20 3F 20 |UMBER (@=END) ? | 00000560: 22 3B 00 87 0D C2 01 A1 41 24 3A 8B 28 41 24 B3 |";......A$:.(A$.| 00000570: 22 30 22 B0 41 24 B1 22 39 22 29 AF 41 24 B3 B1 |"0".A$."9").A$..| 00000580: 22 40 22 A7 34 35 30 00 97 0D CC 01 8B 41 24 B2 |"@".450......A$.| 00000590: 22 40 22 A7 35 39 30 00 A8 0D D6 01 99 41 24 3B |"@".590......A$;| 000005A0: 3A 41 B2 C5 28 41 24 29 00 CF 0D E0 01 A1 41 24 |:A..(A$)......A$| 000005B0: 3A 8B 28 41 24 B3 22 30 22 B0 41 24 B1 22 39 22 |:.(A$."0".A$."9"| 000005C0: 29 AF 41 24 B3 B1 C7 28 31 33 29 A7 34 38 30 00 |).A$...(13).480.| 000005D0: F0 0D EA 01 8B 41 24 B3 B1 C7 28 31 33 29 A7 99 |.....A$...(13)..| 000005E0: 41 24 3B 3A 41 B2 41 AC 31 30 AA C5 28 41 24 29 |A$;:A.A.10..(A$)| 000005F0: 00 02 0E F4 01 8B 41 B3 31 B0 41 B1 4E 4E A7 35 |......A.1.A.NN.5| 00000600: 38 30 00 13 0E FE 01 99 22 20 57 49 54 48 20 3F |80......" WITH ?| 00000610: 20 22 3B 00 2E 0E 08 02 A1 41 24 3A 8B 41 24 B3 | ";......A$:.A$.| 00000620: 22 30 22 B0 41 24 B1 22 39 22 A7 35 32 30 00 3F |"0".A$."9".520.?| 00000630: 0E 12 02 99 41 24 3B 3A 42 B2 C5 28 41 24 29 00 |....A$;:B..(A$).| 00000640: 66 0E 1C 02 A1 41 24 3A 8B 28 41 24 B3 22 30 22 |f....A$:.(A$."0"| 00000650: B0 41 24 B1 22 39 22 29 AF 41 24 B3 B1 C7 28 31 |.A$."9").A$...(1| 00000660: 33 29 A7 35 34 30 00 87 0E 26 02 8B 41 24 B3 B1 |3).540...&..A$..| 00000670: C7 28 31 33 29 A7 99 41 24 3B 3A 42 B2 42 AC 31 |.(13)..A$;:B.B.1| 00000680: 30 AA C5 28 41 24 29 00 9D 0E 30 02 8B 42 B3 31 |0..(A$)...0..B.1| 00000690: B0 42 B1 4E 4E B0 42 B2 41 A7 35 38 30 00 C8 0E |.B.NN.B.A.580...| 000006A0: 3A 02 5A 24 B2 50 4E 24 28 41 29 3A 50 4E 24 28 |:.Z$.PN$(A):PN$(| 000006B0: 41 29 B2 50 4E 24 28 42 29 3A 50 4E 24 28 42 29 |A).PN$(B):PN$(B)| 000006C0: B2 5A 24 3A 89 33 38 30 00 FF 0E 44 02 99 59 24 |.Z$:.380...D..Y$| 000006D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006F0: 20 20 20 20 20 20 20 20 22 3B 3A 89 34 34 30 00 | ";:.440.| 00000700: 31 0F 4E 02 99 22 93 12 20 20 20 20 20 4E 4F 57 |1.N..".. NOW| 00000710: 20 57 52 49 54 49 4E 47 20 54 48 45 20 4E 45 57 | WRITING THE NEW| 00000720: 20 44 49 52 45 43 54 4F 52 59 3A 20 20 20 20 20 | DIRECTORY: | 00000730: 22 00 6A 0F 58 02 50 4E 25 B2 31 3A 81 4A B2 30 |".j.X.PN%.1:.J.0| 00000740: A4 53 4E 3A 98 31 35 2C 22 42 2D 50 22 3B 32 3B |.SN:.15,"B-P";2;| 00000750: 30 3A 98 32 2C C7 28 53 50 28 4A AA 31 29 29 3B |0:.2,.(SP(J.1));| 00000760: C7 28 53 45 28 4A AA 31 29 29 00 A9 0F 62 02 50 |.(SE(J.1))...b.P| 00000770: 5A B2 32 3A 81 49 B2 31 A4 38 3A 98 31 35 2C 22 |Z.2:.I.1.8:.15,"| 00000780: 42 2D 50 22 3B 32 3B 50 5A 3A 98 32 2C 50 4E 24 |B-P";2;PZ:.2,PN$| 00000790: 28 50 4E 25 29 3B 3A 50 4E 25 B2 50 4E 25 AA 31 |(PN%);:PN%.PN%.1| 000007A0: 3A 50 5A B2 50 5A AA 33 32 00 DE 0F 6C 02 99 CA |:PZ.PZ.32...l...| 000007B0: 28 50 4E 24 28 50 4E 25 AB 31 29 2C 34 2C 31 36 |(PN$(PN%.1),4,16| 000007C0: 29 3A 82 3A 98 31 35 2C 22 55 32 22 3B 32 3B 30 |):.:.15,"U2";2;0| 000007D0: 3B 53 50 28 4A 29 3B 53 45 28 4A 29 3A 82 00 EB |;SP(J);SE(J):...| 000007E0: 0F 76 02 A0 32 3A A0 31 35 3A 80 00 2D 10 80 02 |.v..2:.15:..-...| 000007F0: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 20 |."............. | 00000800: 20 54 4F 4F 20 4D 41 4E 59 20 4E 41 4D 45 53 20 | TOO MANY NAMES | 00000810: 49 4E 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 |IN THE DIRECTORY| 00000820: 20 21 21 21 11 11 11 22 3A 89 36 33 30 00 00 00 | !!!...":.630...| 00000830: 44 4E EA 00 20 |DN.. |
..:.D..G(142)"..........................
................";.M.N..".. THIS IS A P
ROGRAM FOR CHANGE OF ..";. .X.."..
THE DICRECTORY SEQUENCE OF NAMES ..";
.S....".................................
.........";......" COPYRIGHT 10.83 BY
MICHAEL WEGMER..".'...." PLEASE I
NSERT DISK AND".L. .." PUSH THE <
RETURN> KEY".G....I.1.30:LE$.LE$.G(0):..
~....A$:.A$..G(13).170......".. BY PUS
HING THE CORRESPONDING".R...." NUMBERS
, YOU WILL SWAP THE NAMES"...H..". NOW
READING NAME:"...R..PN$(45),SP(9),SE(9)
:NN.0:SN.0:SP%.18:SE%.1.;....15,8,15,"I"
:.2,8,2,"#".J....15,"U1";2;0;SP%;SE%:SP(
SN).SP%:SE(SN).SE%......#2,EG$:.EG$."".E
G$.G(0).....SP%.F(EG$):.#2,EG$:.EG$."".E
G$.G(0).C...SE%.F(EG$):PZ.2......15,"B-P
";2;PZ:NN.NN.1:.I.1.30:.#2,EG$:.EG$."".E
G$.G(0).$...PN$(NN).PN$(NN).EG$:.:.NN.44
.640.L...R.F(PN$(NN)):.R.0.R.128.PN$(NN)
.LE$.}.".."...............";.20);J(PN$(N
N),4,16);.16)...,..PZ.226.PZ.PZ.32:.270.
..6..SP%.PZ.2:SN.SN.1:.230.C.@.AN.0:.I.1
.NN.T.J..I.NN.AN.370...T..F(J(PN$(I),4))
..0.370...^..I.NN.AN.AN.1:.330.H.H.X$.PN
$(I):.J.I.1.NN:PN$(J.1).PN$(J):.:PN$(NN)
.X$:AN.AN.1:.330.Q.R..:X$.".............
.......":NN.NN.AN...|..".. THE DI
RECTORY NAMES ARE: ".S....I.1..(N
N.2..5):.I(D(I),2)" "J(PN$(I),4,16).....
.:."...";......I..(NN.2..5).1.NN:.X$I(D(
I),2)" "J(PN$(I),4,16).......?...Y$."...
......................".B....Y$"CHOOSE N
UMBER (@=END) ? ";...B..A$:.(A$."0".A$."
9").A$.."@".450...L..A$."@".590...V..A$;
:A.E(A$).O....A$:.(A$."0".A$."9").A$..G(
13).480......A$..G(13)..A$;:A.A.10.E(A$)
......A.1.A.NN.580......" WITH ? ";.....
.A$:.A$."0".A$."9".520.?....A$;:B.E(A$).
F....A$:.(A$."0".A$."9").A$..G(13).540..
.&..A$..G(13)..A$;:B.B.10.E(A$)...0..B.1
.B.NN.B.A.580.H.:.Z$.PN$(A):PN$(A).PN$(B
):PN$(B).Z$:.380...D..Y$"
";:.440.1.N.."..
NOW WRITING THE NEW DIRECTORY:
".J.X.PN%.1:.J.0.SN:.15,"B-P";2;0:.2,G(S
P(J.1));G(SE(J.1))...B.PZ.2:.I.1.8:.15,"
B-P";2;PZ:.2,PN$(PN%);:PN%.PN%.1:PZ.PZ.3
2...L..J(PN$(PN%.1),4,16):.:.15,"U2";2;0
;SP(J);SE(J):....V. 2: 15:..-...."......
....... TOO MANY NAMES IN THE DIRECTORY
!!!...":.630...DN..
> CLICK IMAGE PREVIEW FOR FULL MODAL