DISK LIBRARY
FILE INFORMATION
FILENAME(S): DISK LIBRARY
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
fb2d4f7849e34ab08200406ceb83a5613644c5444c18bdd513ecf3ed8eb33550
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | DISK LIBRARY | PRG | Sailor, Ganheden | 12 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 05 00 8B 43 30 B3 B1 30 A7 36 30 00 |.......C0..0.60.|
00000010: 33 08 0A 00 86 41 53 24 28 35 30 30 29 2C 44 49 |3....AS$(500),DI|
00000020: 24 28 32 39 29 3A 43 30 B2 31 3A 9F 31 35 2C 38 |$(29):C0.1:.15,8|
00000030: 2C 31 35 00 5B 08 14 00 99 22 93 11 11 11 11 11 |,15.[...."......|
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 4B | DISK|
00000050: 20 4C 49 42 52 41 52 49 41 4E 22 00 7E 08 1E 00 | LIBRARIAN".~...|
00000060: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 42 |.". B|
00000070: 59 20 47 2E 45 2E 43 4F 4C 42 45 52 54 22 00 A4 |Y G.E.COLBERT"..|
00000080: 08 23 00 99 22 11 20 20 20 20 20 20 20 20 45 44 |.#..". ED|
00000090: 49 54 45 44 20 42 59 20 41 2E 43 2E 45 41 52 4E |ITED BY A.C.EARN|
000000A0: 45 53 54 22 00 D0 08 28 00 99 22 11 11 11 11 11 |EST"...(..".....|
000000B0: 20 20 20 20 20 20 20 20 50 52 45 53 53 20 12 52 | PRESS .R|
000000C0: 45 54 55 52 4E 92 20 54 4F 20 42 45 47 49 4E 22 |ETURN. TO BEGIN"|
000000D0: 00 E6 08 32 00 A1 57 24 3A 8B 57 24 B3 B1 C7 28 |...2..W$:.W$...(|
000000E0: 31 33 29 A7 35 30 00 05 09 3C 00 99 22 93 11 44 |13).50...<.."..D|
000000F0: 49 53 4B 53 20 45 4E 54 45 52 45 44 20 53 4F 20 |ISKS ENTERED SO |
00000100: 46 41 52 3A 22 00 11 09 46 00 81 4C B2 31 A4 44 |FAR:"...F..L.1.D|
00000110: 49 00 1F 09 50 00 99 44 49 24 28 4C 29 3A 82 00 |I...P..DI$(L):..|
00000120: 49 09 5A 00 99 22 11 20 20 20 20 20 20 12 41 92 |I.Z..". .A.|
00000130: 44 44 20 44 49 53 4B 20 20 12 50 92 52 49 4E 54 |DD DISK .P.RINT|
00000140: 20 20 12 53 92 4F 52 54 22 00 5C 09 64 00 A1 57 | .S.ORT".\.d..W|
00000150: 24 3A 8B 57 24 B2 22 22 A7 31 30 30 00 6D 09 6E |$:.W$."".100.m.n|
00000160: 00 8B 57 24 B2 22 50 22 A7 31 30 30 30 00 7E 09 |..W$."P".1000.~.|
00000170: 73 00 8B 57 24 B2 22 53 22 A7 32 31 30 30 00 8F |s..W$."S".2100..|
00000180: 09 78 00 8B 57 24 B3 B1 22 41 22 A7 31 30 30 00 |.x..W$.."A".100.|
00000190: BA 09 82 00 99 22 11 49 4E 53 45 52 54 20 44 49 |.....".INSERT DI|
000001A0: 53 4B 20 54 4F 20 42 45 20 45 4E 54 45 52 45 44 |SK TO BE ENTERED|
000001B0: 20 49 4E 54 4F 20 54 48 45 22 00 DE 09 8C 00 99 | INTO THE"......|
000001C0: 22 43 41 54 41 4C 4F 47 2C 20 54 48 45 4E 20 50 |"CATALOG, THEN P|
000001D0: 52 45 53 53 20 12 52 45 54 55 52 4E 92 22 00 F5 |RESS .RETURN."..|
000001E0: 09 91 00 A1 57 24 3A 8B 57 24 B3 B1 C7 28 31 33 |....W$:.W$...(13|
000001F0: 29 A7 31 34 35 00 03 0A 96 00 98 31 35 2C 22 49 |).145......15,"I|
00000200: 30 3A 22 00 16 0A A0 00 84 31 35 2C 45 2C 45 24 |0:"......15,E,E$|
00000210: 2C 45 31 2C 45 32 00 30 0A AA 00 8B 45 B3 B1 30 |,E1,E2.0....E..0|
00000220: A7 99 45 3B 45 24 3B 45 31 3B 45 32 3A 89 39 30 |..E;E$;E1;E2:.90|
00000230: 00 3D 0A BE 00 8D 35 30 30 3A 89 36 30 00 46 0A |.=....500:.60.F.|
00000240: F4 01 46 4C B2 31 00 59 0A FE 01 A0 31 3A 9F 31 |..FL.1.Y....1:.1|
00000250: 2C 38 2C 30 2C 22 24 30 22 00 67 0A 08 02 A1 23 |,8,0,"$0".g....#|
00000260: 31 2C 41 24 2C 42 24 00 75 0A 12 02 A1 23 31 2C |1,A$,B$.u....#1,|
00000270: 41 24 2C 42 24 00 83 0A 1C 02 A1 23 31 2C 41 24 |A$,B$......#1,A$|
00000280: 2C 42 24 00 8B 0A 26 02 43 B2 30 00 9F 0A 30 02 |,B$...&.C.0...0.|
00000290: 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 |.A$.."".C..(A$).|
000002A0: B9 0A 3A 02 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA |..:..B$.."".C.C.|
000002B0: C6 28 42 24 29 AC 32 35 36 00 E0 0A 44 02 41 53 |.(B$).256...D.AS|
000002C0: 24 28 43 30 29 B2 C9 28 22 20 20 20 20 22 AA CA |$(C0)..(" "..|
000002D0: 28 C4 28 43 29 2C 32 29 2C 33 29 AA 22 20 20 22 |(.(C),2),3)." "|
000002E0: 00 F6 0A 4E 02 A1 23 31 2C 42 24 3A 8B 53 54 B3 |...N..#1,B$:.ST.|
000002F0: B1 30 A7 37 30 35 00 09 0B 58 02 8B 42 24 B3 B1 |.0.705...X..B$..|
00000300: C7 28 33 34 29 A7 35 39 30 00 37 0B 62 02 A1 23 |.(34).590.7.b..#|
00000310: 31 2C 42 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 |1,B$:.B$...(34).|
00000320: 41 53 24 28 43 30 29 B2 41 53 24 28 43 30 29 AA |AS$(C0).AS$(C0).|
00000330: 42 24 3A 89 36 31 30 00 50 0B 6C 02 A1 23 31 2C |B$:.610.P.l..#1,|
00000340: 42 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 36 32 30 |B$:.B$..(32).620|
00000350: 00 5A 0B 76 02 43 24 B2 22 22 00 7A 0B 80 02 43 |.Z.v.C$."".z...C|
00000360: 24 B2 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B |$.C$.B$:.#1,B$:.|
00000370: 42 24 B3 B1 22 22 A7 36 34 30 00 AA 0B 8A 02 41 |B$.."".640.....A|
00000380: 53 24 28 43 30 29 B2 C8 28 41 53 24 28 43 30 29 |S$(C0)..(AS$(C0)|
00000390: AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000003A0: 20 20 20 20 20 22 2C 32 31 29 00 CB 0B 94 02 41 | ",21).....A|
000003B0: 53 24 28 43 30 29 B2 41 53 24 28 43 30 29 AA C8 |S$(C0).AS$(C0)..|
000003C0: 28 22 20 20 22 AA 43 24 2C 35 29 00 FF 0B 9E 02 |(" ".C$,5).....|
000003D0: 8B 46 4C B2 31 A7 46 4C B2 32 3A 44 49 B2 44 49 |.FL.1.FL.2:DI.DI|
000003E0: AA 31 3A 44 49 24 28 44 49 29 B2 41 53 24 28 43 |.1:DI$(DI).AS$(C|
000003F0: 30 29 3A 43 30 B2 43 30 AB 31 3A 89 36 39 30 00 |0):C0.C0.1:.690.|
00000400: 29 0C A8 02 41 53 24 28 43 30 29 B2 41 53 24 28 |)...AS$(C0).AS$(|
00000410: 43 30 29 AA 22 20 20 2D 20 20 22 AA C9 28 44 49 |C0)." - "..(DI|
00000420: 24 28 44 49 29 2C 32 31 29 00 36 0C AD 02 99 41 |$(DI),21).6....A|
00000430: 53 24 28 43 30 29 00 4C 0C B2 02 43 30 B2 43 30 |S$(C0).L...C0.C0|
00000440: AA 31 3A 8B 53 54 B2 30 A7 35 33 30 00 63 0C BC |.1:.ST.0.530.c..|
00000450: 02 41 53 24 28 43 30 29 B2 22 22 3A 43 30 B2 43 |.AS$(C0)."":C0.C|
00000460: 30 AB 31 00 72 0C C1 02 41 53 24 28 43 30 29 B2 |0.1.r...AS$(C0).|
00000470: 22 22 00 79 0C C6 02 A0 31 00 7F 0C DA 02 8E 00 |"".y....1.......|
00000480: 9E 0C E8 03 8F 2A 2A 2A 2A 2A 20 50 52 49 4E 54 |.....***** PRINT|
00000490: 20 43 41 54 41 4C 4F 47 20 2A 2A 2A 2A 2A 00 AB | CATALOG *****..|
000004A0: 0C F2 03 9F 34 2C 34 3A 50 B2 31 00 D0 0C FC 03 |....4,4:P.1.....|
000004B0: 99 22 50 4F 53 49 54 49 4F 4E 20 50 41 50 45 52 |."POSITION PAPER|
000004C0: 20 54 4F 20 54 4F 50 20 4F 46 20 46 4F 52 4D 22 | TO TOP OF FORM"|
000004D0: 00 EB 0C 06 04 99 22 54 48 45 4E 20 50 52 45 53 |......"THEN PRES|
000004E0: 53 20 12 52 45 54 55 52 4E 92 22 00 03 0D 10 04 |S .RETURN.".....|
000004F0: A1 57 24 3A 8B 57 24 B3 B1 C7 28 31 33 29 A7 31 |.W$:.W$...(13).1|
00000500: 30 34 30 00 12 0D 15 04 98 34 2C 20 C7 28 31 34 |040......4, .(14|
00000510: 37 29 00 21 0D 1A 04 81 4C B2 31 A4 43 30 A9 36 |7).!....L.1.C0.6|
00000520: 30 00 54 0D 24 04 98 34 2C 22 20 20 20 20 20 20 |0.T.$..4," |
00000530: 20 20 20 20 22 C7 28 31 34 29 22 44 49 53 4B 20 | ".(14)"DISK |
00000540: 43 41 54 41 4C 4F 47 20 20 20 50 41 47 45 20 20 |CATALOG PAGE |
00000550: 23 22 3B 50 00 9C 0D 2E 04 98 34 2C 22 20 20 20 |#";P......4," |
00000560: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 46 49 | # FI|
00000570: 4C 45 20 4E 41 4D 45 20 20 20 20 20 20 54 59 50 |LE NAME TYP|
00000580: 45 20 20 20 20 20 44 49 53 4B 20 20 20 20 20 20 |E DISK |
00000590: 20 20 20 20 20 20 20 44 49 53 4B 22 00 E4 0D 38 | DISK"...8|
000005A0: 04 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 42 |..4," B|
000005B0: 4C 4B 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |LKS |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 | NA|
000005D0: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ME |
000005E0: 49 44 20 22 00 F0 0D 42 04 81 4A B2 30 A4 35 34 |ID "...B..J.0.54|
000005F0: 00 0F 0E 4C 04 98 34 2C 22 20 20 20 20 20 20 20 |...L..4," |
00000600: 20 20 20 22 41 53 24 28 4C AA 4A 29 3A 82 4A 00 | "AS$(L.J):.J.|
00000610: 32 0E 60 04 98 34 2C C7 28 31 34 29 22 20 20 20 |2.`..4,.(14)" |
00000620: 20 20 20 50 41 47 45 20 23 22 3B 50 3A 50 B2 50 | PAGE #";P:P.P|
00000630: AA 31 00 3F 0E 6A 04 98 34 2C C7 28 31 30 29 00 |.1.?.j..4,.(10).|
00000640: 46 0E 7E 04 82 4C 00 4D 0E 88 04 A0 34 00 55 0E |F.~..L.M....4.U.|
00000650: 92 04 89 36 30 00 74 0E D0 07 8F 20 2A 2A 2A 2A |...60.t.... ****|
00000660: 2A 20 53 4F 52 54 20 52 4F 55 54 49 4E 45 20 2A |* SORT ROUTINE *|
00000670: 2A 2A 2A 2A 00 A6 0E DA 07 99 22 11 20 20 20 53 |****......". S|
00000680: 4F 52 54 20 42 59 20 12 53 92 49 5A 45 20 12 4E |ORT BY .S.IZE .N|
00000690: 92 41 4D 45 20 12 54 92 59 50 45 20 12 44 92 49 |.AME .T.YPE .D.I|
000006A0: 53 4B 20 49 44 22 00 C0 0E E4 07 85 57 24 3A 8B |SK ID"......W$:.|
000006B0: 57 24 B2 22 53 22 A7 50 B2 30 3A 89 32 30 37 30 |W$."S".P.0:.2070|
000006C0: 00 D6 0E EE 07 8B 57 24 B2 22 4E 22 A7 50 B2 35 |......W$."N".P.5|
000006D0: 3A 89 32 30 37 30 00 ED 0E F8 07 8B 57 24 B2 22 |:.2070......W$."|
000006E0: 54 22 A7 50 B2 32 33 3A 89 32 30 37 30 00 04 0F |T".P.23:.2070...|
000006F0: 02 08 8B 57 24 B2 22 44 22 A7 50 B2 33 31 3A 89 |...W$."D".P.31:.|
00000700: 32 30 37 30 00 0E 0F 0C 08 89 32 30 31 30 00 19 |2070......2010..|
00000710: 0F 16 08 97 38 32 38 2C 50 00 3D 0F 20 08 8F 20 |....828,P.=. .. |
00000720: 2A 2A 2A 2A 2A 20 43 41 4C 4C 20 53 4F 52 54 20 |***** CALL SORT |
00000730: 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 00 51 0F |ROUTINE *****.Q.|
00000740: 2A 08 93 22 43 48 41 49 4E 20 53 4F 52 54 22 2C |*.."CHAIN SORT",|
00000750: 38 00 77 0F 34 08 99 20 A6 38 29 22 11 12 4C 4F |8.w.4.. .8)"..LO|
00000760: 41 44 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 92 |AD PROGRAM DISK.|
00000770: 22 3A 89 32 30 31 30 00 00 00 00 30 31 30 00 00 |":.2010....010..|
00000780: 00 00 |.. |
.......C0..0.60.3....AS$(500),DI$(29):C0
.1:.15,8,15.[...."...... DISK
LIBRARIAN".~....". BY G.E.CO
LBERT"...#..". EDITED BY A.C.EARN
EST".P.(.."..... PRESS .RETURN. T
O BEGIN"...2..W$:.W$..G(13).50...<.."..D
ISKS ENTERED SO FAR:"...F..L.1.DI...P..D
I$(L):..I.Z..". .A.DD DISK .P.RINT
.S.ORT".\.D..W$:.W$."".100.M.N..W$."P"
.1000.~.S..W$."S".2100...X..W$.."A".100.
.....".INSERT DISK TO BE ENTERED INTO TH
E"......"CATALOG, THEN PRESS .RETURN."..
....W$:.W$..G(13).145......15,"I0:"... .
.15,E,E$,E1,E2.0....E..0..E;E$;E1;E2:.90
.=....500:.60.F...FL.1.Y... 1:.1,8,0,"$0
".G....#1,A$,B$.U....#1,A$,B$......#1,A$
,B$...&.C.0...0..A$.."".C.F(A$)...:..B$.
."".C.C.F(B$).256...D.AS$(C0).I(" ".J
(D(C),2),3)." "...N..#1,B$:.ST..0.705..
.X..B$..G(34).590.7.B..#1,B$:.B$..G(34).
AS$(C0).AS$(C0).B$:.610.P.L..#1,B$:.B$.G
(32).620.Z.V.C$."".Z...C$.C$.B$:.#1,B$:.
B$.."".640.....AS$(C0).H(AS$(C0)."
",21).K...AS$(C0).AS$(C0).H
(" ".C$,5)......FL.1.FL.2:DI.DI.1:DI$(D
I).AS$(C0):C0.C0.1:.690.)...AS$(C0).AS$(
C0)." - ".I(DI$(DI),21).6....AS$(C0).L
...C0.C0.1:.ST.0.530.C...AS$(C0)."":C0.C
0.1.R.A.AS$(C0)."".Y.F. 1..Z........***
** PRINT CATALOG *****......4,4:P.1.P...
."POSITION PAPER TO TOP OF FORM"......"T
HEN PRESS .RETURN."......W$:.W$..G(13).1
040......4, G(147).!....L.1.C0.60.T.$..4
," "G(14)"DISK CATALOG PAGE
#";P......4," # FILE NAME
TYPE DISK DISK"...8
..4," BLKS
NAME ID "...B..J.0.54
...L..4," "AS$(L.J):.J.2.`..4,G
(14)" PAGE #";P:P.P.1.?.J..4,G(10).
F.~..L.M... 4.U....60.T.P.. ***** SORT R
OUTINE *****...Z..". SORT BY .S.IZE .N
.AME .T.YPE .D.ISK ID"......W$:.W$."S".P
.0:.2070.V....W$."N".P.5:.2070......W$."
T".P.23:.2070......W$."D".P.31:.2070....
..2010......828,P.=. .. ***** CALL SORT
ROUTINE *****.Q.*.."CHAIN SORT",8.W.4..
.8)"..LOAD PROGRAM DISK.":.2010....010..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL