FILELIB.PGM
FILE INFORMATION
FILENAME(S): FILELIB.PGM
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-12-02 02:14:59
APPEARS ON: 1 disk(s)
FILE HASH
72f279de6534273632fcd5089eed2a01c19faa33cd9c210bc721c00256521d17
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS DATABASE 03 | FILELIB.PGM | PRG | The BAM Archive | 7 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..P.... ********|
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 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 00 6B 08 14 00 8F 20 20 20 20 20 20 20 20 20 46 |.k.... F|
00000060: 49 4C 45 20 4C 49 42 52 41 52 59 00 92 08 1E 00 |ILE LIBRARY.....|
00000070: 8F 20 50 52 4F 47 52 41 4D 20 4C 49 42 52 41 52 |. PROGRAM LIBRAR|
00000080: 59 20 4D 41 49 4E 54 45 4E 41 4E 43 45 20 54 4F |Y MAINTENANCE TO|
00000090: 4F 4C 00 B9 08 28 00 8F 20 42 59 20 44 45 41 4E |OL...(.. BY DEAN|
000000A0: 20 4A 2E 20 53 54 45 49 43 48 45 4E 20 20 20 20 | J. STEICHEN |
000000B0: 20 4A 55 4C 59 20 27 38 33 00 DF 08 32 00 8F 20 | JULY '83...2.. |
000000C0: 44 49 41 42 4C 4F 20 56 41 4C 4C 45 59 20 43 4F |DIABLO VALLEY CO|
000000D0: 4D 4D 4F 4D 4F 44 4F 52 45 20 55 53 45 52 53 00 |MMOMODORE USERS.|
000000E0: FB 08 3C 00 8F 20 50 55 42 4C 49 43 20 44 4F 4D |..<.. PUBLIC DOM|
000000F0: 41 49 4E 20 50 52 4F 47 52 41 4D 00 4A 09 46 00 |AIN PROGRAM.J.F.|
00000100: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6D 09 50 00 97 |**********.m.P..|
00000150: 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 31 |53280,6:.53281,1|
00000160: 35 3A 86 20 54 42 24 28 32 32 32 32 29 00 77 09 |5:. TB$(2222).w.|
00000170: 5A 00 8D 32 35 30 30 00 94 09 64 00 8B 20 C2 28 |Z..2500...d.. .(|
00000180: 34 39 33 33 31 29 20 B3 B1 20 31 37 33 20 A7 20 |49331) .. 173 . |
00000190: 33 30 30 30 00 A2 09 6E 00 43 52 24 B2 C7 28 31 |3000...n.CR$..(1|
000001A0: 33 29 00 C8 09 78 00 53 50 24 B2 22 20 20 20 20 |3)...x.SP$." |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000001C0: 8F 20 53 50 41 43 45 53 00 00 0A 82 00 4D 31 24 |. SPACES.....M1$|
000001D0: B2 20 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |. ".............|
000001E0: 11 11 11 20 20 20 20 20 20 20 20 12 1C 20 4D 41 |... .. MA|
000001F0: 4B 45 20 53 45 4C 45 43 54 49 4F 4E 20 92 90 22 |KE SELECTION .."|
00000200: 00 38 0A 8C 00 4D 32 24 B2 20 22 13 11 11 11 11 |.8...M2$. ".....|
00000210: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 22 00 7C 0A 96 00 4D 33 24 | ".|...M3$|
00000240: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000250: 11 11 20 20 20 20 20 20 20 20 95 12 20 52 45 41 |.. .. REA|
00000260: 44 49 4E 47 20 44 49 53 4B 45 54 54 45 20 90 92 |DING DISKETTE ..|
00000270: 20 20 20 20 20 20 20 20 20 20 20 22 00 C2 0A 9B | "....|
00000280: 00 4D 34 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.M4$."..........|
00000290: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 4C 4F |........... LO|
000002A0: 41 44 20 41 50 50 52 4F 50 52 49 41 54 45 20 44 |AD APPROPRIATE D|
000002B0: 49 53 4B 45 54 54 45 20 49 4E 20 44 52 49 56 45 |ISKETTE IN DRIVE|
000002C0: 20 22 00 E9 0A AA 00 99 22 93 11 11 90 20 20 20 | "......".... |
000002D0: 20 20 20 20 20 20 20 20 12 20 46 49 4C 45 20 4C | . FILE L|
000002E0: 49 42 52 41 52 59 20 92 22 00 04 0B B4 00 99 22 |IBRARY ."......"|
000002F0: 11 11 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |.. DO YOU WISH T|
00000300: 4F 20 3A 22 00 2C 0B B6 00 99 22 11 20 20 12 20 |O :".,....". . |
00000310: 31 92 20 20 55 53 45 20 41 4E 20 45 58 49 53 54 |1. USE AN EXIST|
00000320: 49 4E 47 20 4C 49 42 52 41 52 59 22 00 57 0B B8 |ING LIBRARY".W..|
00000330: 00 99 22 11 20 20 12 20 32 92 20 20 41 44 44 20 |..". . 2. ADD |
00000340: 54 4F 20 41 4E 20 45 58 49 53 54 49 4E 47 20 4C |TO AN EXISTING L|
00000350: 49 42 52 41 52 59 22 00 7C 0B BA 00 99 22 11 20 |IBRARY".|....". |
00000360: 20 12 20 33 92 20 20 43 52 45 41 54 45 20 41 20 | . 3. CREATE A |
00000370: 4E 45 57 20 4C 49 42 52 41 52 59 22 00 9D 0B BC |NEW LIBRARY"....|
00000380: 00 99 22 11 20 20 12 20 34 92 20 20 45 4E 44 20 |..". . 4. END |
00000390: 54 48 49 53 20 53 45 53 53 49 4F 4E 22 00 A7 0B |THIS SESSION"...|
000003A0: D2 00 99 20 4D 31 24 00 BE 0B DC 00 A1 20 51 24 |... M1$...... Q$|
000003B0: 3A 8B 20 51 24 B2 22 22 20 A7 20 32 32 30 00 C8 |:. Q$."" . 220..|
000003C0: 0B E6 00 99 20 4D 32 24 00 D4 0B F0 00 51 B2 C5 |.... M2$.....Q..|
000003D0: 28 51 24 29 00 EF 0B FA 00 91 20 51 20 89 20 35 |(Q$)...... Q . 5|
000003E0: 37 30 2C 32 38 30 2C 32 38 30 2C 31 32 30 30 00 |70,280,280,1200.|
000003F0: F8 0B 0E 01 89 32 32 30 00 02 0C 18 01 99 20 4D |.....220...... M|
00000400: 34 24 00 40 0C 1A 01 99 22 13 11 11 11 11 11 11 |4$.@....".......|
00000410: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000420: 20 20 20 12 1C 20 48 49 54 20 41 4E 59 20 4B 45 | .. HIT ANY KE|
00000430: 59 20 57 48 45 4E 20 52 45 41 44 59 20 92 90 22 |Y WHEN READY .."|
00000440: 00 57 0C 1C 01 A1 20 41 24 3A 8B 20 41 24 B2 22 |.W.... A$:. A$."|
00000450: 22 20 A7 20 32 38 34 00 95 0C 1E 01 99 22 13 11 |" . 284......"..|
00000460: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000470: 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 92 90 22 00 AA 0C 20 01 9F 31 35 2C 38 2C | .."... ..15,8,|
000004A0: 31 35 3A 98 31 35 2C 22 49 22 00 C0 0C 22 01 9F |15:.15,"I"..."..|
000004B0: 31 2C 38 2C 32 2C 22 24 30 22 3A 99 20 4D 33 24 |1,8,2,"$0":. M3$|
000004C0: 00 D9 0C 2C 01 81 20 4C B2 30 20 A4 20 31 34 31 |...,.. L.0 . 141|
000004D0: 3A A1 23 31 2C 41 24 3A 82 00 14 0D 36 01 54 50 |:.#1,A$:....6.TP|
000004E0: 24 28 30 29 B2 22 44 22 3A 54 50 24 28 31 29 B2 |$(0)."D":TP$(1).|
000004F0: 22 53 22 3A 54 50 24 28 32 29 B2 22 50 22 3A 54 |"S":TP$(2)."P":T|
00000500: 50 24 28 33 29 B2 22 55 22 3A 54 50 24 28 34 29 |P$(3)."U":TP$(4)|
00000510: B2 22 52 22 00 28 0D 40 01 4A B2 31 37 3A 8D 34 |."R".(.@.J.17:.4|
00000520: 37 30 3A 4E 24 B2 42 24 00 3B 0D 4A 01 4A B2 32 |70:N$.B$.;.J.J.2|
00000530: 3A 8D 34 37 30 3A 49 24 B2 42 24 00 4E 0D 54 01 |:.470:I$.B$.N.T.|
00000540: 4A B2 32 3A 8D 34 37 30 3A 4F 24 B2 42 24 00 69 |J.2:.470:O$.B$.i|
00000550: 0D 5E 01 81 20 4C B2 31 36 38 20 A4 20 32 35 35 |.^.. L.168 . 255|
00000560: 3A A1 23 31 2C 41 24 3A 82 00 84 0D 68 01 81 20 |:.#1,A$:....h.. |
00000570: 50 B2 31 20 A4 20 38 3A A1 23 31 2C 54 24 2C 41 |P.1 . 8:.#1,T$,A|
00000580: 24 2C 41 24 00 9C 0D 72 01 8B 20 53 54 20 A7 20 |$,A$...r.. ST . |
00000590: A0 31 3A A0 31 35 3A 89 20 35 31 35 00 B4 0D 7C |.1:.15:. 515...||
000005A0: 01 8B 20 54 24 B2 22 22 20 A7 20 54 24 B2 C7 28 |.. T$."" . T$..(|
000005B0: 31 32 38 29 00 C8 0D 86 01 4A B2 31 35 3A 8D 34 |128).....J.15:.4|
000005C0: 37 30 3A 46 24 B2 42 24 00 F1 0D 90 01 A1 23 31 |70:F$.B$......#1|
000005D0: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C |,A$,A$,A$,A$,A$,|
000005E0: 41 24 2C 41 24 2C 41 24 2C 41 24 2C 4C 24 2C 48 |A$,A$,A$,A$,L$,H|
000005F0: 24 00 07 0E 9A 01 8B 20 54 24 B2 C7 28 31 32 38 |$...... T$..(128|
00000600: 29 20 A7 20 34 34 30 00 27 0E A4 01 4C B2 C6 28 |) . 440.'...L..(|
00000610: 4C 24 AA C7 28 30 29 29 AA 32 35 36 AC C6 28 48 |L$..(0)).256..(H|
00000620: 24 AA C7 28 30 29 29 00 65 0E AE 01 58 B2 58 AA |$..(0)).e...X.X.|
00000630: 31 3A 54 42 24 28 58 29 B2 46 24 AA 43 52 24 AA |1:TB$(X).F$.CR$.|
00000640: 54 50 24 28 C6 28 54 24 29 AB 31 32 38 29 AA 43 |TP$(.(T$).128).C|
00000650: 52 24 AA C4 28 4C 29 AA 43 52 24 AA 4E 24 AA 43 |R$..(L).CR$.N$.C|
00000660: 52 24 AA 49 24 00 7B 0E B8 01 8B 20 50 B3 38 20 |R$.I$.{.... P.8 |
00000670: A7 20 A1 23 31 2C 41 24 2C 41 24 00 83 0E C2 01 |. .#1,A$,A$.....|
00000680: 82 20 50 00 8C 0E CC 01 89 33 36 30 00 B0 0E D6 |. P......360....|
00000690: 01 42 24 B2 22 22 3A 8F 20 42 55 49 4C 44 20 53 |.B$."":. BUILD S|
000006A0: 54 52 49 4E 47 20 53 55 42 52 4F 55 54 49 4E 45 |TRING SUBROUTINE|
000006B0: 00 D3 0E E0 01 81 4C B2 30 A4 4A 3A A1 23 31 2C |......L.0.J:.#1,|
000006C0: 41 24 3A 8B 20 41 24 B2 C7 28 31 36 30 29 A7 20 |A$:. A$..(160). |
000006D0: 35 30 30 00 E0 0E EA 01 42 24 B2 42 24 AA 41 24 |500.....B$.B$.A$|
000006E0: 00 E6 0E F4 01 82 00 EC 0E FE 01 8E 00 17 0F 03 |................|
000006F0: 02 99 22 11 20 20 20 20 20 20 20 20 4E 4F 54 45 |..". NOTE|
00000700: 20 25 20 55 53 45 44 20 3D 20 22 3B 28 58 AC 31 | % USED = ";(X.1|
00000710: 30 30 29 AD 37 30 30 00 50 0F 08 02 99 22 13 11 |00).700.P...."..|
00000720: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 |.............. |
00000730: 20 20 20 20 1F 12 20 41 4E 4F 54 48 45 52 20 44 | .. ANOTHER D|
00000740: 49 53 4B 45 54 54 45 20 28 59 2F 4E 29 3F 90 22 |ISKETTE (Y/N)?."|
00000750: 00 67 0F 12 02 A1 20 41 24 3A 8B 20 41 24 B2 22 |.g.... A$:. A$."|
00000760: 22 20 A7 20 35 33 30 00 9F 0F 17 02 99 22 13 11 |" . 530......"..|
00000770: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000007A0: B6 0F 1C 02 8B 20 41 24 B2 22 59 22 20 A7 20 A0 |..... A$."Y" . .|
000007B0: 31 3A 89 32 38 30 00 C9 0F 26 02 8B 20 41 24 B2 |1:.280...&.. A$.|
000007C0: 22 4E 22 20 A7 20 35 37 30 00 D2 0F 30 02 89 35 |"N" . 570...0..5|
000007D0: 33 30 00 D8 0F 3A 02 99 00 FE 0F 44 02 99 22 93 |30...:.....D..".|
000007E0: 11 11 20 20 20 20 20 20 20 20 20 12 20 4F 50 54 |.. . OPT|
000007F0: 49 4F 4E 53 20 4D 45 4E 55 20 92 11 11 22 00 26 |IONS MENU ...".&|
00000800: 10 4E 02 99 22 11 20 20 20 12 20 31 92 20 20 20 |.N..". . 1. |
00000810: 57 52 49 54 45 20 45 4E 54 52 49 45 53 20 54 4F |WRITE ENTRIES TO|
00000820: 20 44 49 53 4B 22 00 58 10 58 02 99 22 11 20 20 | DISK".X.X..". |
00000830: 20 12 20 32 92 20 20 20 44 49 53 50 4C 41 59 2F | . 2. DISPLAY/|
00000840: 50 52 49 4E 54 20 45 4E 54 52 49 45 53 20 46 52 |PRINT ENTRIES FR|
00000850: 4F 4D 20 44 49 53 4B 22 00 77 10 62 02 99 22 11 |OM DISK".w.b..".|
00000860: 20 20 20 12 20 33 92 20 20 20 53 4F 52 54 20 45 | . 3. SORT E|
00000870: 4E 54 52 49 45 53 22 00 9D 10 6C 02 99 22 11 20 |NTRIES"...l..". |
00000880: 20 20 12 20 34 92 20 20 20 52 45 54 55 52 4E 20 | . 4. RETURN |
00000890: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 CF 10 |TO MAIN MENU"...|
000008A0: 76 02 8B 20 53 43 20 B1 20 30 20 A7 20 99 22 11 |v.. SC . 0 . .".|
000008B0: 20 20 20 20 20 1F 12 20 53 4F 52 54 20 43 4F 4D | .. SORT COM|
000008C0: 50 4C 45 54 45 44 20 92 90 22 3A 53 43 B2 30 00 |PLETED ..":SC.0.|
000008D0: F2 10 80 02 99 22 11 11 20 20 20 20 20 1C 12 20 |.....".. .. |
000008E0: 4D 41 4B 45 20 53 45 4C 45 43 54 49 4F 4E 20 92 |MAKE SELECTION .|
000008F0: 90 22 00 09 11 8A 02 A1 20 41 24 3A 8B 20 41 24 |."...... A$:. A$|
00000900: B2 22 22 20 A7 20 36 35 30 00 15 11 94 02 49 B2 |."" . 650.....I.|
00000910: C5 28 41 24 29 00 30 11 9E 02 91 20 49 20 8D 20 |.(A$).0.... I . |
00000920: 36 39 30 2C 37 37 30 2C 31 32 32 30 2C 31 37 30 |690,770,1220,170|
00000930: 00 3A 11 A8 02 89 20 35 37 30 00 4E 11 B2 02 8F |.:.... 570.N....|
00000940: 20 57 52 49 54 45 20 54 4F 20 44 49 53 4B 00 7C | WRITE TO DISK.||
00000950: 11 BC 02 8B 20 51 B2 33 20 A7 20 9F 38 2C 38 2C |.... Q.3 . .8,8,|
00000960: 38 2C 22 40 30 3A 46 49 4C 45 4C 49 42 52 41 52 |8,"@0:FILELIBRAR|
00000970: 59 2C 53 2C 57 22 3A 89 20 37 33 30 00 8D 11 C6 |Y,S,W":. 730....|
00000980: 02 8B 20 51 20 B3 B1 20 32 20 A7 20 8E 00 AC 11 |.. Q .. 2 . ....|
00000990: D0 02 9F 38 2C 38 2C 38 2C 22 30 3A 46 49 4C 45 |...8,8,8,"0:FILE|
000009A0: 4C 49 42 52 41 52 59 2C 53 2C 41 22 00 DA 11 DA |LIBRARY,S,A"....|
000009B0: 02 99 22 93 11 11 11 20 20 20 20 20 20 20 12 20 |..".... . |
000009C0: 57 52 49 54 49 4E 47 20 45 4E 54 52 49 45 53 20 |WRITING ENTRIES |
000009D0: 54 4F 20 44 49 53 4B 92 20 22 00 0A 12 E4 02 81 |TO DISK. "......|
000009E0: 20 49 B2 31 20 A4 20 58 3A 98 38 2C 54 42 24 28 | I.1 . X:.8,TB$(|
000009F0: 49 29 3A 99 22 13 11 11 11 11 11 20 20 20 20 45 |I):."...... E|
00000A00: 4E 54 52 59 20 22 3B 49 3A 82 00 11 12 EE 02 A0 |NTRY ";I:.......|
00000A10: 38 00 17 12 F8 02 8E 00 38 12 02 03 8F 20 44 49 |8.......8.... DI|
00000A20: 53 50 4C 41 59 20 4F 52 20 50 52 49 4E 54 20 46 |SPLAY OR PRINT F|
00000A30: 52 4F 4D 20 44 49 53 4B 00 5D 12 07 03 45 4A B2 |ROM DISK.]...EJ.|
00000A40: 30 3A 8F 20 43 4C 4F 53 45 20 46 49 4C 45 20 41 |0:. CLOSE FILE A|
00000A50: 46 54 45 52 20 45 41 43 48 20 55 53 45 00 7C 12 |FTER EACH USE.|.|
00000A60: 0C 03 9F 38 2C 38 2C 38 2C 22 30 3A 46 49 4C 45 |...8,8,8,"0:FILE|
00000A70: 4C 49 42 52 41 52 59 2C 53 2C 52 22 00 A7 12 16 |LIBRARY,S,R"....|
00000A80: 03 99 22 11 11 44 49 53 50 4C 41 59 20 4F 4E 20 |.."..DISPLAY ON |
00000A90: 53 43 52 45 45 4E 20 4F 52 20 50 52 49 4E 54 20 |SCREEN OR PRINT |
00000AA0: 28 44 2F 50 29 3F 22 00 BE 12 20 03 A1 20 41 24 |(D/P)?"... .. A$|
00000AB0: 3A 8B 20 41 24 B2 22 22 20 A7 20 38 30 30 00 D1 |:. A$."" . 800..|
00000AC0: 12 2A 03 8B 20 41 24 B2 22 44 22 20 A7 20 38 34 |.*.. A$."D" . 84|
00000AD0: 30 00 E5 12 34 03 8B 20 41 24 B2 22 50 22 20 A7 |0...4.. A$."P" .|
00000AE0: 20 31 30 31 30 00 EE 12 3E 03 89 38 30 30 00 FC | 1010...>..800..|
00000AF0: 12 48 03 4A B2 30 3A 8D 20 39 39 30 00 12 13 52 |.H.J.0:. 990...R|
00000B00: 03 84 38 2C 46 24 2C 54 24 2C 4C 24 2C 4E 24 2C |..8,F$,T$,L$,N$,|
00000B10: 49 24 00 2C 13 5C 03 8B 20 53 54 B2 36 34 20 A7 |I$.,.\.. ST.64 .|
00000B20: A0 38 3A 45 4A B2 31 3A 89 39 31 30 00 43 13 66 |.8:EJ.1:.910.C.f|
00000B30: 03 4A B2 4A AA 31 3A 8B 20 4A B3 31 30 20 A7 20 |.J.J.1:. J.10 . |
00000B40: 39 31 30 00 78 13 70 03 99 22 11 11 1C 20 20 12 |910.x.p.."... .|
00000B50: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |HIT ANY KEY TO C|
00000B60: 4F 4E 54 49 4E 55 45 20 2E 2E 46 31 20 54 4F 20 |ONTINUE ..F1 TO |
00000B70: 53 54 4F 50 20 92 90 22 00 91 13 7A 03 A1 20 41 |STOP .."...z.. A|
00000B80: 24 3A 8B 20 41 24 20 B2 20 22 22 20 A7 20 38 39 |$:. A$ . "" . 89|
00000B90: 30 00 A8 13 7F 03 8B 20 41 24 B2 C7 28 31 33 33 |0...... A$..(133|
00000BA0: 29 20 A7 20 A0 38 3A 8E 00 B7 13 84 03 4A B2 31 |) . .8:......J.1|
00000BB0: 3A 20 8D 20 39 39 30 00 D1 13 8E 03 46 24 B2 46 |: . 990.....F$.F|
00000BC0: 24 AA C8 28 53 50 24 2C 31 36 AB C3 28 46 24 29 |$..(SP$,16..(F$)|
00000BD0: 29 00 E1 13 93 03 46 24 B2 C8 28 46 24 2C 31 36 |).....F$..(F$,16|
00000BE0: 29 00 FB 13 98 03 4E 24 B2 4E 24 AA C8 28 53 50 |).....N$.N$..(SP|
00000BF0: 24 2C 31 38 AB C3 28 4E 24 29 29 00 0B 14 9D 03 |$,18..(N$)).....|
00000C00: 4E 24 B2 C8 28 4E 24 2C 31 37 29 00 24 14 A2 03 |N$..(N$,17).$...|
00000C10: 4C 24 B2 C8 28 53 50 24 2C 33 AB C3 28 4C 24 29 |L$..(SP$,3..(L$)|
00000C20: 29 AA 4C 24 00 37 14 A7 03 4C 24 B2 C9 28 4C 24 |).L$.7...L$..(L$|
00000C30: 2C 33 29 AA 22 20 22 00 4C 14 AC 03 99 20 46 24 |,3)." ".L.... F$|
00000C40: 3B 54 24 3B 4C 24 3B 4E 24 3B 49 24 00 5F 14 B6 |;T$;L$;N$;I$._..|
00000C50: 03 8B 20 45 4A B2 30 20 A7 20 89 20 38 35 30 00 |.. EJ.0 . . 850.|
00000C60: 90 14 C0 03 99 22 11 11 1C 20 20 20 20 20 12 48 |....."... .H|
00000C70: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 |IT ANY KEY TO RE|
00000C80: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 20 92 90 22 |TURN TO MENU .."|
00000C90: 00 A9 14 CA 03 A1 20 41 24 3A 8B 20 41 24 20 B2 |...... A$:. A$ .|
00000CA0: 20 22 22 20 A7 20 39 37 30 00 AF 14 D4 03 8E 00 | "" . 970.......|
00000CB0: E5 14 DE 03 99 22 93 12 11 46 49 4C 45 4E 41 4D |....."...FILENAM|
00000CC0: 45 20 20 20 20 20 54 59 50 45 20 42 4C 4B 92 20 |E TYPE BLK. |
00000CD0: 12 44 49 53 4B 45 54 54 45 20 20 20 20 20 20 20 |.DISKETTE |
00000CE0: 20 49 44 92 22 00 EB 14 E8 03 8E 00 F9 14 F2 03 | ID."...........|
00000CF0: 9F 34 2C 34 3A 43 54 B2 30 00 1C 15 FC 03 99 22 |.4,4:CT.0......"|
00000D00: 11 11 20 20 20 45 4E 54 45 52 20 44 41 54 45 20 |.. ENTER DATE |
00000D10: 46 4F 52 20 48 45 41 44 49 4E 47 22 00 3D 15 06 |FOR HEADING".=..|
00000D20: 04 99 22 20 20 41 4E 59 20 46 4F 52 4D 20 4D 4F |.." ANY FORM MO|
00000D30: 2F 44 41 59 2F 59 52 20 42 45 53 54 22 00 4E 15 |/DAY/YR BEST".N.|
00000D40: 10 04 85 20 22 3D 3D 3D 3E 22 3B 44 54 24 00 58 |... "===>";DT$.X|
00000D50: 15 1A 04 8D 31 31 36 30 00 6E 15 24 04 84 38 2C |....1160.n.$..8,|
00000D60: 46 24 2C 54 24 2C 4C 24 2C 4E 24 2C 49 24 00 88 |F$,T$,L$,N$,I$..|
00000D70: 15 2E 04 46 24 B2 46 24 AA C8 28 53 50 24 2C 31 |...F$.F$..(SP$,1|
00000D80: 37 AB C3 28 46 24 29 29 00 A2 15 38 04 4E 24 B2 |7..(F$))...8.N$.|
00000D90: 4E 24 AA C8 28 53 50 24 2C 31 39 AB C3 28 4E 24 |N$..(SP$,19..(N$|
00000DA0: 29 29 00 BB 15 42 04 4C 24 B2 C8 28 53 50 24 2C |))...B.L$..(SP$,|
00000DB0: 34 AB C3 28 4C 24 29 29 AA 4C 24 00 D3 15 4C 04 |4..(L$)).L$...L.|
00000DC0: 8B 20 53 54 20 B3 B1 20 30 20 A7 20 A0 38 3A 45 |. ST .. 0 . .8:E|
00000DD0: 4A B2 31 00 FD 15 56 04 98 34 2C 46 24 3B 22 20 |J.1...V..4,F$;" |
00000DE0: 20 22 3B 54 24 3B 22 20 20 22 3B 4C 24 3B 22 20 | ";T$;" ";L$;" |
00000DF0: 20 22 3B 4E 24 3B 22 20 20 22 3B 49 24 00 1F 16 | ";N$;" ";I$...|
00000E00: 60 04 43 54 B2 43 54 AA 31 3A 4C B2 4C AA 31 3A |`.CT.CT.1:L.L.1:|
00000E10: 8B 20 4C B1 35 35 20 A7 20 8D 20 31 31 36 30 00 |. L.55 . . 1160.|
00000E20: 32 16 6A 04 8B 20 45 4A B2 30 20 A7 20 89 31 30 |2.j.. EJ.0 . .10|
00000E30: 36 30 00 5D 16 74 04 98 34 3A 98 34 2C 22 20 20 |60.].t..4:.4," |
00000E40: 20 20 54 4F 54 41 4C 20 46 49 4C 45 4E 41 4D 45 | TOTAL FILENAME|
00000E50: 20 43 4F 55 4E 54 20 3D 20 22 3B 43 54 00 66 16 | COUNT = ";CT.f.|
00000E60: 7E 04 A0 34 3A 8E 00 96 16 88 04 98 34 2C C7 28 |~..4:.......4,.(|
00000E70: 31 32 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |12);" |
00000E80: 20 46 49 4C 45 20 4C 49 42 52 41 52 59 20 4C 49 | FILE LIBRARY LI|
00000E90: 53 54 49 4E 47 22 00 9D 16 8D 04 98 34 00 E1 16 |STING"......4...|
00000EA0: 92 04 98 34 2C 22 46 49 4C 45 4E 41 4D 45 20 20 |...4,"FILENAME |
00000EB0: 20 20 20 20 20 20 20 54 59 50 45 20 42 4C 4B 53 | TYPE BLKS|
00000EC0: 20 20 44 49 53 4B 45 54 54 45 20 20 20 20 20 20 | DISKETTE |
00000ED0: 20 20 20 20 20 20 49 44 20 20 20 20 22 3B 44 54 | ID ";DT|
00000EE0: 24 00 29 17 9C 04 98 34 2C 22 2D 2D 2D 2D 2D 2D |$.)....4,"------|
00000EF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F20: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 36 17 A6 04 98 34 |--------".6....4|
00000F30: 3A 4C B2 34 3A 8E 00 58 17 B0 04 99 20 22 11 11 |:L.4:..X.... "..|
00000F40: 20 20 20 20 20 20 20 20 20 12 20 45 4E 44 20 4F | . END O|
00000F50: 46 20 4A 4F 42 20 92 22 00 5E 17 BA 04 80 00 71 |F JOB .".^.....q|
00000F60: 17 C4 04 8F 20 53 4F 52 54 20 45 4E 54 52 49 45 |.... SORT ENTRIE|
00000F70: 53 00 9E 17 CE 04 99 22 93 11 11 20 20 20 20 20 |S......"... |
00000F80: 20 20 20 20 12 20 53 4F 52 54 20 53 45 4C 45 43 | . SORT SELEC|
00000F90: 54 49 4F 4E 20 4D 45 4E 55 20 92 11 11 22 00 C9 |TION MENU ..."..|
00000FA0: 17 D8 04 99 22 11 20 20 20 12 20 31 92 20 20 53 |....". . 1. S|
00000FB0: 4F 52 54 20 4F 4E 4C 59 20 43 55 52 52 45 4E 54 |ORT ONLY CURRENT|
00000FC0: 20 45 4E 54 52 49 45 53 22 00 F1 17 E2 04 99 22 | ENTRIES"......"|
00000FD0: 11 20 20 20 12 20 32 92 20 20 53 4F 52 54 20 4F |. . 2. SORT O|
00000FE0: 4E 4C 59 20 44 49 53 4B 20 45 4E 54 52 49 45 53 |NLY DISK ENTRIES|
00000FF0: 22 00 23 18 EC 04 99 22 11 20 20 20 12 20 33 92 |".#....". . 3.|
00001000: 20 20 53 4F 52 54 20 42 4F 54 48 20 43 55 52 52 | SORT BOTH CURR|
00001010: 45 4E 54 20 26 20 44 49 53 4B 20 45 4E 54 52 49 |ENT & DISK ENTRI|
00001020: 45 53 22 00 4B 18 F6 04 99 22 11 20 20 20 12 20 |ES".K....". . |
00001030: 34 92 20 20 52 45 54 55 52 4E 20 54 4F 20 4F 50 |4. RETURN TO OP|
00001040: 54 49 4F 4E 53 20 4D 45 4E 55 22 00 72 18 0A 05 |TIONS MENU".r...|
00001050: 99 22 20 20 20 20 20 20 20 20 11 11 11 1C 12 20 |." ..... |
00001060: 4D 41 4B 45 20 53 45 4C 45 43 54 49 4F 4E 20 90 |MAKE SELECTION .|
00001070: 92 22 00 8A 18 14 05 A1 20 41 24 3A 8B 20 41 24 |."...... A$:. A$|
00001080: B2 22 22 20 A7 20 31 33 30 30 00 A9 18 1E 05 49 |."" . 1300.....I|
00001090: B2 C5 28 41 24 29 3A 8B 20 49 B3 30 20 B0 20 49 |..(A$):. I.0 . I|
000010A0: B1 34 20 A7 20 31 33 30 30 00 C7 18 28 05 91 20 |.4 . 1300...(.. |
000010B0: 49 20 8D 20 31 34 30 30 2C 31 33 35 30 2C 31 33 |I . 1400,1350,13|
000010C0: 36 30 2C 31 33 34 30 00 E2 18 32 05 8F 20 47 4F |60,1340...2.. GO|
000010D0: 20 42 41 43 4B 20 54 4F 20 4D 41 49 4E 20 4D 45 | BACK TO MAIN ME|
000010E0: 4E 55 00 E8 18 3C 05 8E 00 F0 18 46 05 58 B2 30 |NU...<.....F.X.0|
000010F0: 00 0F 19 50 05 9F 38 2C 38 2C 38 2C 22 30 3A 46 |...P..8,8,8,"0:F|
00001100: 49 4C 45 4C 49 42 52 41 52 59 2C 53 2C 52 22 00 |ILELIBRARY,S,R".|
00001110: 29 19 5A 05 84 38 2C 5A 24 3A 58 B2 58 AA 31 3A |).Z..8,Z$:X.X.1:|
00001120: 54 42 24 28 58 29 B2 5A 24 00 42 19 64 05 8B 20 |TB$(X).Z$.B.d.. |
00001130: 53 54 B2 36 34 20 20 A7 20 A0 38 3A 89 20 31 34 |ST.64 . .8:. 14|
00001140: 30 30 00 4C 19 6E 05 89 31 33 37 30 00 6D 19 78 |00.L.n..1370.m.x|
00001150: 05 8F 20 43 41 4C 4C 20 4D 41 43 48 49 4E 45 20 |.. CALL MACHINE |
00001160: 4C 41 4E 47 55 41 47 45 20 53 4F 52 54 00 A2 19 |LANGUAGE SORT...|
00001170: 82 05 97 20 34 39 33 31 32 2C 38 34 3A 97 34 39 |... 49312,84:.49|
00001180: 33 31 33 2C 36 36 3A 8F 20 54 3D 38 34 2C 42 3D |313,66:. T=84,B=|
00001190: 36 36 20 4F 46 20 54 42 24 28 58 29 20 41 52 52 |66 OF TB$(X) ARR|
000011A0: 41 59 00 D7 19 8C 05 4E 32 B2 B5 28 58 AD 32 35 |AY.....N2..(X.25|
000011B0: 36 29 3A 97 34 39 33 31 35 2C 4E 32 3A 8F 20 45 |6):.49315,N2:. E|
000011C0: 4C 45 4D 45 4E 54 20 43 4F 55 4E 54 20 2D 48 49 |LEMENT COUNT -HI|
000011D0: 47 48 20 42 59 54 45 00 FF 19 96 05 4E 31 B2 58 |GH BYTE.....N1.X|
000011E0: AB 4E 32 AC 32 35 36 3A 20 20 97 34 39 33 31 34 |.N2.256: .49314|
000011F0: 2C 4E 31 3A 8F 20 2D 4C 4F 57 20 42 59 54 45 00 |,N1:. -LOW BYTE.|
00001200: 1C 1A A0 05 99 20 22 93 11 11 20 20 20 20 20 20 |..... "... |
00001210: 2E 2E 2E 2E 53 4F 52 54 49 4E 47 22 00 36 1A AA |....SORTING".6..|
00001220: 05 9E 34 39 33 33 31 3A 8F 20 43 41 4C 4C 20 4D |..49331:. CALL M|
00001230: 4C 20 53 4F 52 54 00 56 1A B4 05 45 43 B2 C2 28 |L SORT.V...EC..(|
00001240: 34 39 33 31 36 29 3A 8F 20 20 3F 20 45 52 52 4F |49316):. ? ERRO|
00001250: 52 20 43 4F 44 45 00 82 1A BE 05 8B 20 45 43 B2 |R CODE...... EC.|
00001260: 31 20 A7 20 99 20 22 12 1C 20 45 52 52 4F 52 20 |1 . . ".. ERROR |
00001270: 2D 20 41 52 52 41 59 20 4E 4F 54 20 46 4F 55 4E |- ARRAY NOT FOUN|
00001280: 44 22 00 9C 1A C8 05 53 43 B2 31 3A 8F 20 53 4F |D".....SC.1:. SO|
00001290: 52 54 20 43 4F 4D 50 4C 45 54 45 44 00 A2 1A D2 |RT COMPLETED....|
000012A0: 05 8E 00 B5 1A C4 09 8F 20 49 4E 53 54 52 55 43 |........ INSTRUC|
000012B0: 54 49 4F 4E 53 00 DA 1A CE 09 99 22 93 11 11 20 |TIONS......"... |
000012C0: 20 20 20 20 20 20 20 20 12 90 20 49 4E 53 54 52 | .. INSTR|
000012D0: 55 43 54 49 4F 4E 53 20 92 22 00 FF 1A D8 09 99 |UCTIONS ."......|
000012E0: 22 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 |".THIS PROGRAM I|
000012F0: 53 20 4D 45 4E 55 20 44 52 49 56 45 4E 2E 22 00 |S MENU DRIVEN.".|
00001300: 2A 1B E2 09 99 22 11 49 54 20 49 53 20 49 4E 54 |*....".IT IS INT|
00001310: 45 4E 44 45 44 20 54 4F 20 43 52 45 41 54 45 20 |ENDED TO CREATE |
00001320: 41 20 53 4F 52 54 45 44 20 22 00 56 1B EC 09 99 |A SORTED ".V....|
00001330: 22 49 4E 56 45 4E 54 4F 52 59 20 4F 46 20 41 4C |"INVENTORY OF AL|
00001340: 4C 20 59 4F 55 52 20 44 49 53 4B 20 46 49 4C 45 |L YOUR DISK FILE|
00001350: 4E 41 4D 45 53 22 00 86 1B F6 09 99 22 28 49 2E |NAMES"......"(I.|
00001360: 45 2E 20 41 4E 20 49 4E 44 45 58 20 4F 46 20 59 |E. AN INDEX OF Y|
00001370: 4F 55 52 20 50 52 4F 47 52 41 4D 20 4C 49 42 52 |OUR PROGRAM LIBR|
00001380: 41 52 59 29 2E 22 00 AE 1B 00 0A 99 22 11 49 54 |ARY)."......".IT|
00001390: 20 43 4F 4D 42 49 4E 45 53 20 49 4E 44 49 56 49 | COMBINES INDIVI|
000013A0: 44 55 41 4C 20 44 49 53 4B 45 54 54 45 22 00 DA |DUAL DISKETTE"..|
000013B0: 1B 0A 0A 99 22 44 49 52 45 43 54 4F 52 49 45 53 |...."DIRECTORIES|
000013C0: 20 49 4E 54 4F 20 41 20 4C 41 52 47 45 20 41 52 | INTO A LARGE AR|
000013D0: 52 41 59 20 57 48 49 43 48 22 00 04 1C 14 0A 99 |RAY WHICH"......|
000013E0: 22 49 54 20 57 49 4C 4C 20 53 4F 52 54 20 41 4E |"IT WILL SORT AN|
000013F0: 44 20 57 52 49 54 45 20 54 4F 20 44 49 53 4B 20 |D WRITE TO DISK |
00001400: 46 4F 52 22 00 33 1C 1E 0A 99 22 53 55 42 53 45 |FOR".3...."SUBSE|
00001410: 51 55 45 4E 54 20 53 43 52 45 45 4E 20 42 52 4F |QUENT SCREEN BRO|
00001420: 57 53 49 4E 47 20 4F 52 20 50 52 49 4E 54 49 4E |WSING OR PRINTIN|
00001430: 47 2E 22 00 67 1C 22 0A 81 54 B2 36 A4 32 A9 AB |G.".g."..T.6.2..|
00001440: 31 3A 81 4A B2 30 A4 32 30 3A 97 36 34 36 2C 54 |1:.J.0.20:.646,T|
00001450: 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |:.".............|
00001460: 11 11 11 11 11 22 3B 00 A9 1C 23 0A 99 22 20 20 |.....";...#.." |
00001470: 41 46 54 45 52 20 4C 4F 41 44 49 4E 47 20 41 4C |AFTER LOADING AL|
00001480: 4C 20 44 49 53 4B 20 46 49 4C 45 53 3A 20 57 52 |L DISK FILES: WR|
00001490: 49 54 45 20 20 20 20 20 54 4F 20 44 49 53 4B 20 |ITE TO DISK |
000014A0: 42 45 46 4F 52 45 20 22 3B 00 DE 1C 26 0A 99 22 |BEFORE ";...&.."|
000014B0: 44 55 4D 50 49 4E 47 20 20 54 4F 20 20 50 52 49 |DUMPING TO PRI|
000014C0: 4E 54 45 52 20 20 20 20 20 4F 52 20 54 4F 20 53 |NTER OR TO S|
000014D0: 43 52 45 45 4E 2E 22 20 3A 82 4A 3A 82 54 00 05 |CREEN." :.J:.T..|
000014E0: 1D 28 0A 99 22 11 20 20 20 20 1C 12 20 48 49 54 |.(..". .. HIT|
000014F0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 54 41 52 | ANY KEY TO STAR|
00001500: 54 20 92 90 22 00 1D 1D 32 0A A1 20 41 24 3A 8B |T .."...2.. A$:.|
00001510: 20 41 24 B2 22 22 20 A7 20 32 36 31 30 00 23 1D | A$."" . 2610.#.|
00001520: 3C 0A 8E 00 42 1D B8 0B 99 22 93 11 11 11 20 20 |<...B....".... |
00001530: 20 20 12 1C 20 45 52 52 4F 52 20 21 21 21 20 90 | .. ERROR !!! .|
00001540: 92 22 00 6F 1D C2 0B 99 22 11 11 59 4F 55 20 4D |.".o...."..YOU M|
00001550: 55 53 54 20 45 58 45 43 55 54 45 20 54 48 45 20 |UST EXECUTE THE |
00001560: 27 42 4F 4F 54 2E 46 49 4C 45 4C 49 42 27 22 00 |'BOOT.FILELIB'".|
00001570: 9C 1D CC 0B 99 22 50 52 4F 47 52 41 4D 20 12 4F |....."PROGRAM .O|
00001580: 52 92 20 54 48 45 20 27 53 4F 52 54 4C 4F 41 44 |R. THE 'SORTLOAD|
00001590: 45 52 27 20 50 52 4F 47 52 41 4D 22 00 C8 1D D6 |ER' PROGRAM"....|
000015A0: 0B 99 22 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |.."BEFORE RUNNIN|
000015B0: 47 20 46 49 4C 45 4C 49 42 2E 50 47 4D 2E 20 20 |G FILELIB.PGM. |
000015C0: 42 4F 54 48 20 4F 46 22 00 F7 1D E0 0B 99 22 54 |BOTH OF"......"T|
000015D0: 48 45 53 45 20 50 52 4F 47 52 41 4D 53 20 50 55 |HESE PROGRAMS PU|
000015E0: 54 20 54 48 45 20 4D 41 43 48 49 4E 45 20 4C 41 |T THE MACHINE LA|
000015F0: 4E 47 55 41 47 45 22 00 22 1E EA 0B 99 22 53 4F |NGUAGE"."...."SO|
00001600: 52 54 20 50 52 4F 47 52 41 4D 20 49 4E 54 4F 20 |RT PROGRAM INTO |
00001610: 50 52 4F 54 45 43 54 45 44 20 4D 45 4D 4F 52 59 |PROTECTED MEMORY|
00001620: 2E 22 00 4D 1E F4 0B 99 22 11 44 4F 20 4E 4F 54 |.".M....".DO NOT|
00001630: 20 4C 4F 41 44 20 44 4F 53 20 57 45 44 47 45 20 | LOAD DOS WEDGE |
00001640: 4F 52 20 41 4E 59 20 4F 54 48 45 52 22 00 7A 1E |OR ANY OTHER".z.|
00001650: FE 0B 99 22 50 52 4F 47 52 41 4D 20 57 48 49 43 |..."PROGRAM WHIC|
00001660: 48 20 55 53 45 53 20 24 43 30 30 30 20 28 34 39 |H USES $C000 (49|
00001670: 31 35 32 29 20 41 4E 44 20 22 00 A6 1E 08 0C 99 |152) AND "......|
00001680: 22 41 42 4F 56 45 20 53 50 41 43 45 20 53 49 4E |"ABOVE SPACE SIN|
00001690: 43 45 20 54 48 41 54 27 53 20 57 48 45 52 45 20 |CE THAT'S WHERE |
000016A0: 49 20 50 55 54 22 00 CD 1E 12 0C 99 22 54 48 45 |I PUT"......"THE|
000016B0: 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 | MACHINE LANGUAG|
000016C0: 45 20 53 48 45 4C 4C 20 53 4F 52 54 22 00 D3 1E |E SHELL SORT"...|
000016D0: 1C 0C 80 00 00 74 |.....t |
..P.... ********************************
****************************************
.K.... FILE LIBRARY...... PROGRA
M LIBRARY MAINTENANCE TOOL...(.. BY DEAN
J. STEICHEN JULY '83...2.. DIABLO V
ALLEY COMMOMODORE USERS...<.. PUBLIC DOM
AIN PROGRAM.J.F.. **********************
****************************************
**********.M.P..53280,6:.53281,15:. TB$(
2222).W.Z..2500...D.. B(49331) .. 173 .
3000...N.CR$.G(13).H.X.SP$."
":. SPACES.....M1$. ".............
... .. MAKE SELECTION ..".8...M2$
. "................
".|...M3$."................
.. READING DISKETTE .. ".B..
.M4$."..................... LOAD APPRO
PRIATE DISKETTE IN DRIVE "......"....
. FILE LIBRARY ."......".. DO YO
U WISH TO :".,....". . 1. USE AN EXIST
ING LIBRARY".W....". . 2. ADD TO AN EX
ISTING LIBRARY".|....". . 3. CREATE A
NEW LIBRARY"......". . 4. END THIS SES
SION"...R.. M1$...... Q$:. Q$."" . 220.H
.... M2$.T...Q.E(Q$)...... Q . 570,280,2
80,1200......220...... M4$.@....".......
................ .. HIT ANY KEY WHEN R
EADY ..".W.... A$:. A$."" . 284......"..
.....................
.."... ..15,8,15:.15,"I"..."..
1,8,2,"$0":. M3$.Y.,.. L.0 . 141:.#1,A$:
....6.TP$(0)."D":TP$(1)."S":TP$(2)."P":T
P$(3)."U":TP$(4)."R".(.@.J.17:.470:N$.B$
.;.J.J.2:.470:I$.B$.N.T.J.2:.470:O$.B$.I
.^.. L.168 . 255:.#1,A$:....H.. P.1 . 8:
.#1,T$,A$,A$...R.. ST . 1: 15:. 515...|
.. T$."" . T$.G(128).H...J.15:.470:F$.B$
......#1,A$,A$,A$,A$,A$,A$,A$,A$,A$,L$,H
$...... T$.G(128) . 440.'...L.F(L$.G(0))
.256.F(H$.G(0)).E...X.X.1:TB$(X).F$.CR$.
TP$(F(T$).128).CR$.D(L).CR$.N$.CR$.I$.{.
... P.8 . .#1,A$,A$...B.. P...L..360...V
.B$."":. BUILD STRING SUBROUTINE.S....L.
0.J:.#1,A$:. A$.G(160). 500.....B$.B$.A$
..................". NOTE % USED
= ";(X.100).700.P...."................
.. ANOTHER DISKETTE (Y/N)?.".G.... A
$:. A$."" . 530......"...............
"...... A$
."Y" . 1:.280.I.&.. A$."N" . 570.R.0..5
30.X.:.....D.."... . OPTIONS MEN
U ...".&.N..". . 1. WRITE ENTRIES TO
DISK".X.X..". . 2. DISPLAY/PRINT EN
TRIES FROM DISK".W.B..". . 3. SORT E
NTRIES"...L..". . 4. RETURN TO MAIN
MENU".O.V.. SC . 0 . .". .. SORT COM
PLETED ..":SC.0......".. .. MAKE SEL
ECTION .."...... A$:. A$."" . 650.....I.
E(A$).0.... I . 690,770,1220,170.:.... 5
70.N.... WRITE TO DISK.|.... Q.3 . .8,8,
8,"@0:FILELIBRARY,S,W":. 730...F.. Q ..
2 . ....P..8,8,8,"0:FILELIBRARY,S,A".Z.Z
..".... . WRITING ENTRIES TO DISK.
"...... I.1 . X:.8,TB$(I):."...... E
NTRY ";I:...... 8.......8.... DISPLAY OR
PRINT FROM DISK.]...EJ.0:. CLOSE FILE A
FTER EACH USE.|....8,8,8,"0:FILELIBRARY,
S,R"......"..DISPLAY ON SCREEN OR PRINT
(D/P)?"... .. A$:. A$."" . 800.Q.*.. A$.
"D" . 840...4.. A$."P" . 1010...>..800..
.H.J.0:. 990...R..8,F$,T$,L$,N$,I$.,.\..
ST.64 . 8:EJ.1:.910.C.F.J.J.1:. J.10 .
910.X.P.."... .HIT ANY KEY TO CONTINUE
..F1 TO STOP .."...Z.. A$:. A$ . "" . 89
0..... A$.G(133) . 8:......J.1: . 990.
Q...F$.F$.H(SP$,16.C(F$)).....F$.H(F$,16
).....N$.N$.H(SP$,18.C(N$)).....N$.H(N$,
17).$...L$.H(SP$,3.C(L$)).L$.7...L$.I(L$
,3)." ".L.... F$;T$;L$;N$;I$._.... EJ.0
. . 850......"... .HIT ANY KEY TO RE
TURN TO MENU .."...J.. A$:. A$ . "" . 97
0...T........"...FILENAME TYPE BLK.
.DISKETTE ID."............4,4:CT.
0......".. ENTER DATE FOR HEADING".=..
.." ANY FORM MO/DAY/YR BEST".N.... "===
>";DT$.X....1160.N.$..8,F$,T$,L$,N$,I$..
...F$.F$.H(SP$,17.C(F$))...8.N$.N$.H(SP$
,19.C(N$))...B.L$.H(SP$,4.C(L$)).L$.S.L.
. ST .. 0 . 8:EJ.1...V..4,F$;" ";T$;"
";L$;" ";N$;" ";I$...`.CT.CT.1:L.L.1:
. L.55 . . 1160.2.J.. EJ.0 . .1060.].T..
4:.4," TOTAL FILENAME COUNT = ";CT.F.
~. 4:.......4,G(12);" FILE LI
BRARY LISTING"......4......4,"FILENAME
TYPE BLKS DISKETTE ID
";DT$.)....4,"----------------------
----------------------------------------
".6....4:L.4:..X.... ".. . END O
F JOB .".^.....Q.D.. SORT ENTRIES...N.."
... . SORT SELECTION MENU ...".I
.X..". . 1. SORT ONLY CURRENT ENTRIES
"......". . 2. SORT ONLY DISK ENTRIES
".#....". . 3. SORT BOTH CURRENT & DI
SK ENTRIES".K....". . 4. RETURN TO OP
TIONS MENU".R...." ..... MAKE SEL
ECTION .."...... A$:. A$."" . 1300.....I
.E(A$):. I.0 . I.4 . 1300.G.(.. I . 1400
,1350,1360,1340...2.. GO BACK TO MAIN ME
NU...<.....F.X.0...P..8,8,8,"0:FILELIBRA
RY,S,R".).Z..8,Z$:X.X.1:TB$(X).Z$.B.D..
ST.64 . 8:. 1400.L.N..1370.M.X.. CALL
MACHINE LANGUAGE SORT...... 49312,84:.49
313,66:. T=84,B=66 OF TB$(X) ARRAY.W...N
2..(X.256):.49315,N2:. ELEMENT COUNT -HI
GH BYTE.....N1.X.N2.256: .49314,N1:. -L
OW BYTE... .. "... ....SORTING".6..
..49331:. CALL ML SORT.V...EC.B(49316):.
? ERROR CODE...... EC.1 . . ".. ERROR
- ARRAY NOT FOUND"...H.SC.1:. SORT COMPL
ETED...R.....D.. INSTRUCTIONS.Z.N.."...
.. INSTRUCTIONS ."...X..".THIS P
ROGRAM IS MENU DRIVEN.".*....".IT IS INT
ENDED TO CREATE A SORTED ".V...."INVENTO
RY OF ALL YOUR DISK FILENAMES"......"(I.
E. AN INDEX OF YOUR PROGRAM LIBRARY)."..
....".IT COMBINES INDIVIDUAL DISKETTE".Z
...."DIRECTORIES INTO A LARGE ARRAY WHIC
H"......"IT WILL SORT AND WRITE TO DISK
FOR".3...."SUBSEQUENT SCREEN BROWSING OR
PRINTING.".G."..T.6.2..1:.J.0.20:.646,T
:."..................";...#.." AFTER LO
ADING ALL DISK FILES: WRITE TO DISK
BEFORE ";...&.."DUMPING TO PRINTER
OR TO SCREEN." :.J:.T...(..". .. HIT
ANY KEY TO START .."...2.. A$:. A$."" .
2610.#.<...B....".... .. ERROR !!! .
.".O.B.."..YOU MUST EXECUTE THE 'BOOT.FI
LELIB'"...L.."PROGRAM .OR. THE 'SORTLOAD
ER' PROGRAM".H.V.."BEFORE RUNNING FILELI
B.PGM. BOTH OF"......"THESE PROGRAMS PU
T THE MACHINE LANGUAGE"."...."SORT PROGR
AM INTO PROTECTED MEMORY.".M....".DO NOT
LOAD DOS WEDGE OR ANY OTHER".Z...."PROG
RAM WHICH USES $C000 (49152) AND "......
"ABOVE SPACE SINCE THAT'S WHERE I PUT".M
...."THE MACHINE LANGUAGE SHELL SORT".S.
.....T
> CLICK IMAGE PREVIEW FOR FULL MODAL