0C
FILE INFORMATION
FILENAME(S): 0C
FILE TYPE(S): DEL, PRG
FILE SIZE: 9.9K
FIRST SEEN: 2025-12-01 01:09:15
APPEARS ON: 2 disk(s)
FILE HASH
802e613fd747a4f907e8c15469657b2dbfb24e4845487d87cfd5cd541109be86
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| YAMAHA | 0C | DEL | hedning, loot | 4 | 11 | DOWNLOAD FILE |
| DEMO DISK | 0C | PRG | hedning, loot | 4 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 29 08 E8 03 8F 20 28 43 29 20 49 42 20 48 |..).... (C) IB H|
00000010: 41 52 44 20 26 20 53 4F 46 54 57 41 52 45 20 4C |ARD & SOFTWARE L|
00000020: 44 54 2E 2C 20 31 39 38 34 00 53 08 F2 03 42 B2 |DT., 1984.S...B.|
00000030: C2 28 35 33 32 38 30 29 3A 47 B2 C2 28 35 33 32 |.(53280):G..(532|
00000040: 38 31 29 3A 46 31 B2 C2 28 36 34 36 29 3A 46 32 |81):F1..(646):F2|
00000050: B2 31 33 00 68 08 FC 03 97 37 39 32 2C 31 39 33 |.13.h....792,193|
00000060: 3A 97 37 38 38 2C 35 32 00 9A 08 06 04 99 22 93 |:.788,52......".|
00000070: 11 1D 12 20 4D 20 55 20 4C 20 54 20 49 20 20 20 |... M U L T I |
00000080: 44 20 49 20 53 20 4B 20 20 20 43 20 41 20 54 20 |D I S K C A T |
00000090: 41 20 4C 20 4F 20 47 20 20 22 00 CB 08 10 04 99 |A L O G "......|
000000A0: 22 11 1D 12 20 20 20 43 41 50 41 43 49 54 59 3A |"... CAPACITY:|
000000B0: 20 20 38 30 30 20 46 49 4C 45 4E 41 4D 45 53 20 | 800 FILENAMES |
000000C0: 50 45 52 20 46 49 4C 45 20 20 22 00 FB 08 1A 04 |PER FILE ".....|
000000D0: 99 22 11 11 11 1D 4E 4F 54 45 3A 20 43 4F 4D 50 |."....NOTE: COMP|
000000E0: 55 54 45 52 20 57 49 4C 4C 20 42 45 43 4F 4D 45 |UTER WILL BECOME|
000000F0: 20 56 45 52 59 20 53 4C 4F 57 22 00 3A 09 1B 04 | VERY SLOW".:...|
00000100: 99 22 11 1D 57 48 45 4E 20 54 48 45 52 45 20 41 |."..WHEN THERE A|
00000110: 52 45 20 4D 4F 52 45 20 54 48 41 4E 20 35 30 30 |RE MORE THAN 500|
00000120: 20 4E 41 4D 45 53 20 49 4E 20 20 20 11 54 48 45 | NAMES IN .THE|
00000130: 20 43 41 54 41 4C 4F 47 2E 22 00 7B 09 1C 04 99 | CATALOG.".{....|
00000140: 22 11 1D 50 4C 45 41 53 45 20 44 4F 4E 27 54 20 |"..PLEASE DON'T |
00000150: 43 41 52 45 2E 20 43 4F 4D 50 55 54 45 52 20 57 |CARE. COMPUTER W|
00000160: 49 4C 4C 20 47 4F 20 4F 4E 20 20 11 41 46 54 45 |ILL GO ON .AFTE|
00000170: 52 20 41 20 57 48 49 4C 45 2E 22 00 87 09 24 04 |R A WHILE."...$.|
00000180: 9F 32 2C 38 2C 31 35 00 B0 09 2E 04 8D 33 30 36 |.2,8,15......306|
00000190: 30 3A 99 22 11 11 1D 1D 1D 1D 1D 48 49 54 20 41 |0:.".......HIT A|
000001A0: 4E 59 20 4B 45 59 20 54 4F 20 53 54 41 52 54 22 |NY KEY TO START"|
000001B0: 00 C4 09 33 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...3..A$:.A$."".|
000001C0: 31 30 37 35 00 DE 09 38 04 51 B2 38 30 30 3A 86 |1075...8.Q.800:.|
000001D0: 4E 24 28 38 30 30 29 3A 86 42 24 28 37 29 00 E8 |N$(800):.B$(7)..|
000001E0: 09 42 04 89 32 30 37 30 00 F2 09 4C 04 4E 24 B2 |.B..2070...L.N$.|
000001F0: 22 22 00 30 0A 56 04 99 22 93 11 11 1D 1D 1D 1D |"".0.V..".......|
00000200: 49 4E 53 45 52 54 20 22 3B 3A 97 36 34 36 2C 46 |INSERT ";:.646,F|
00000210: 32 3A 99 22 12 50 52 4F 47 52 41 4D 92 22 3B 3A |2:.".PROGRAM.";:|
00000220: 97 36 34 36 2C 46 31 3A 99 22 20 44 49 53 4B 22 |.646,F1:." DISK"|
00000230: 00 3A 0A 60 04 8D 32 39 30 30 00 5A 0A 6A 04 9F |.:.`..2900.Z.j..|
00000240: 31 2C 38 2C 30 2C 22 24 30 22 3A 8B 4E 24 28 30 |1,8,0,"$0":.N$(0|
00000250: 29 B2 22 22 A7 41 46 B2 AB 31 00 68 0A 74 04 A1 |)."".AF..1.h.t..|
00000260: 23 31 2C 41 24 2C 42 24 00 76 0A 7E 04 A1 23 31 |#1,A$,B$.v.~..#1|
00000270: 2C 41 24 2C 42 24 00 84 0A 88 04 A1 23 31 2C 41 |,A$,B$......#1,A|
00000280: 24 2C 42 24 00 8C 0A 92 04 43 B2 30 00 A3 0A 9C |$,B$.....C.0....|
00000290: 04 8B 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 |.. A$.."" . C..(|
000002A0: 41 24 29 00 C0 0A A6 04 8B 20 42 24 B3 B1 22 22 |A$)...... B$..""|
000002B0: 20 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 | . C.C..(B$).256|
000002C0: 00 D1 0A B0 04 44 24 B2 CA 28 C4 28 43 29 2C 32 |.....D$..(.(C),2|
000002D0: 29 00 EB 0A BA 04 A1 23 31 2C 42 24 3A 8B 20 53 |)......#1,B$:. S|
000002E0: 54 B3 B1 30 20 A7 20 31 33 30 30 00 02 0B C4 04 |T..0 . 1300.....|
000002F0: 8B 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 31 32 |. B$...(34) . 12|
00000300: 31 30 00 27 0B CE 04 A1 23 31 2C 42 24 3A 8B 42 |10.'....#1,B$:.B|
00000310: 24 B3 B1 C7 28 33 34 29 A7 4E 24 B2 4E 24 AA 42 |$...(34).N$.N$.B|
00000320: 24 3A 89 31 32 33 30 00 44 0B D8 04 A1 23 31 2C |$:.1230.D....#1,|
00000330: 42 24 3A 8B 20 42 24 B2 C7 28 33 32 29 20 A7 20 |B$:. B$..(32) . |
00000340: 31 32 34 30 00 4F 0B E2 04 3A 43 24 B2 22 22 00 |1240.O...:C$."".|
00000350: 74 0B EC 04 43 24 B2 43 24 AA 42 24 3A A1 23 31 |t...C$.C$.B$:.#1|
00000360: 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 20 A7 20 |,B$:. B$.."" . |
00000370: 31 32 36 30 00 92 0B F6 04 8B 44 24 B2 22 30 22 |1260......D$."0"|
00000380: A7 49 44 24 B2 C8 28 43 24 2C 33 29 3A 8D 31 33 |.ID$..(C$,3):.13|
00000390: 32 30 00 AC 0B 00 05 8B C8 28 43 24 2C 33 29 B3 |20.......(C$,3).|
000003A0: B1 22 50 52 47 22 A7 8D 31 33 31 30 00 C8 0B 0A |."PRG"..1310....|
000003B0: 05 8D 31 33 38 30 3A 8B 53 54 B2 30 A7 4E 24 B2 |..1380:.ST.0.N$.|
000003C0: 22 22 3A 89 31 31 35 30 00 D5 0B 14 05 A0 31 3A |"":.1150......1:|
000003D0: 89 32 36 32 30 00 E7 0B 1E 05 4E 24 B2 22 22 3A |.2620.....N$."":|
000003E0: 44 24 B2 22 22 3A 8E 00 19 0C 28 05 99 22 93 11 |D$."":....(.."..|
000003F0: 1D 12 20 20 20 20 20 20 20 20 20 53 45 4C 45 43 |.. SELEC|
00000400: 54 20 44 49 53 4B 45 54 54 45 20 4E 55 4D 42 45 |T DISKETTE NUMBE|
00000410: 52 20 20 20 20 20 20 20 22 00 30 0C 32 05 99 22 |R ".0.2.."|
00000420: 11 1D 44 49 53 4B 20 4E 41 4D 45 3A 20 22 4E 24 |..DISK NAME: "N$|
00000430: 00 53 0C 3C 05 97 31 39 38 2C 30 3A 44 5A 24 B2 |.S.<..198,0:DZ$.|
00000440: 22 22 3A 99 22 11 1D 44 49 53 4B 20 49 44 3D 22 |"":."..DISK ID="|
00000450: 49 44 24 00 79 0C 46 05 99 22 11 1D 44 49 53 4B |ID$.y.F.."..DISK|
00000460: 2D 49 44 2E 20 20 22 3B 49 44 24 3B 3A 85 22 9D |-ID. ";ID$;:.".|
00000470: 9D 9D 9D 9D 22 3B 44 5A 24 00 9D 0C 50 05 53 24 |....";DZ$...P.S$|
00000480: B2 22 22 3A 85 22 11 1D 44 49 53 4B 2D 53 49 44 |."":."..DISK-SID|
00000490: 45 20 20 20 20 31 9D 9D 9D 22 3B 53 24 00 A3 0C |E 1...";S$...|
000004A0: 5A 05 8E 00 B5 0C 64 05 8B 44 24 B3 B1 22 22 A7 |Z.....d..D$.."".|
000004B0: 8D 31 34 30 30 00 BB 0C 6E 05 8E 00 F4 0C 78 05 |.1400...n.....x.|
000004C0: 99 22 93 11 1D 12 20 53 54 4F 52 45 20 50 52 4F |.".... STORE PRO|
000004D0: 47 52 41 4D 53 20 49 4E 20 4D 55 4C 54 49 20 44 |GRAMS IN MULTI D|
000004E0: 49 53 4B 20 43 41 54 41 4C 4F 47 20 22 3A 4A 4E |ISK CATALOG ":JN|
000004F0: 24 B2 22 22 00 18 0D 82 05 99 22 11 1D 4E 41 4D |$.""......"..NAM|
00000500: 45 20 20 3A 20 22 4E 24 3A 99 22 11 1D 42 4C 4F |E : "N$:."..BLO|
00000510: 43 4B 53 3A 20 22 44 24 00 2F 0D 8C 05 99 22 11 |CKS: "D$./....".|
00000520: 1D 44 49 53 4B 20 49 44 3A 20 22 3B 44 5A 24 00 |.DISK ID: ";DZ$.|
00000530: 4E 0D 96 05 97 31 39 38 2C 30 3A 99 22 11 11 11 |N....198,0:."...|
00000540: 1D 1D 1D 53 41 56 45 20 20 20 20 20 20 3F 00 86 |...SAVE ?..|
00000550: 0D A0 05 99 22 11 11 11 11 11 11 11 12 C3 C3 C3 |...."...........|
00000560: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000570: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000580: C3 C3 C3 C3 C3 22 00 B3 0D AA 05 99 22 11 1D 1D |....."......"...|
00000590: 1D 1D 1D 1D 1D 12 20 46 20 37 20 92 20 3D 20 59 |...... F 7 . = Y|
000005A0: 45 53 20 3B 20 12 20 46 20 31 20 92 20 3D 20 4E |ES ; . F 1 . = N|
000005B0: 4F 20 22 00 DC 0D B4 05 99 22 13 11 11 11 11 11 |O "......"......|
000005C0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005D0: 1D 1D 1D 22 3B 3A 97 32 30 34 2C 30 00 F2 0D BE |...";:.204,0....|
000005E0: 05 A1 4A 4E 24 3A 8B 4A 4E 24 B2 22 22 A7 31 34 |..JN$:.JN$."".14|
000005F0: 37 30 00 17 0E C8 05 8B 4A 4E 24 B2 22 85 22 A7 |70......JN$.".".|
00000600: 99 22 1D 1D 1D 4E 4F 20 20 22 3A 97 32 30 34 2C |."...NO ":.204,|
00000610: 31 3A 89 31 35 32 30 00 42 0E D2 05 8B 4A 4E 24 |1:.1520.B....JN$|
00000620: B2 22 88 22 A7 99 22 1D 1D 1D 20 59 45 53 20 22 |.".".."... YES "|
00000630: 3A 97 32 30 34 2C 31 3A 43 46 B2 31 3A 89 31 35 |:.204,1:CF.1:.15|
00000640: 31 30 00 4C 0E DC 05 89 31 34 37 30 00 61 0E E6 |10.L....1470.a..|
00000650: 05 8D 33 30 30 30 3A 8B 41 46 B1 51 A7 32 38 30 |..3000:.AF.Q.280|
00000660: 30 00 67 0E F0 05 8E 00 7E 0E FA 05 8F 20 2D 2D |0.g.....~.... --|
00000670: 2D 20 50 52 49 4E 54 49 4E 47 20 2D 2D 2D 00 9B |- PRINTING ---..|
00000680: 0E 04 06 58 B2 30 3A 4C 4C B2 30 3A 99 22 93 22 |...X.0:LL.0:."."|
00000690: 3B 3A 53 B2 30 3A 8D 31 39 36 30 00 C7 0E 0E 06 |;:S.0:.1960.....|
000006A0: 8B 4E 24 28 58 29 B3 B1 22 22 A7 97 36 34 36 2C |.N$(X)..""..646,|
000006B0: 46 31 3A 99 58 AA 31 3A 99 22 91 1D 1D 1D 1D 1D |F1:.X.1:."......|
000006C0: 1D 22 4E 24 28 58 29 00 DE 0E 18 06 A1 42 52 24 |."N$(X)......BR$|
000006D0: 3A 8B 42 52 24 B2 22 93 22 A7 32 30 37 30 00 EE |:.BR$.".".2070..|
000006E0: 0E 22 06 58 B2 58 AA 31 3A 53 B2 53 AA 31 00 1A |.".X.X.1:S.S.1..|
000006F0: 0F 2C 06 8B 4E 24 28 58 29 B3 B1 22 22 A7 97 36 |.,..N$(X)..""..6|
00000700: 34 36 2C 46 32 3A 99 58 AA 31 3A 99 22 91 1D 1D |46,F2:.X.1:."...|
00000710: 1D 1D 1D 1D 22 4E 24 28 58 29 00 3B 0F 36 06 8B |...."N$(X).;.6..|
00000720: 4E 24 28 58 29 B3 B1 22 22 A7 58 B2 58 AA 31 3A |N$(X).."".X.X.1:|
00000730: 53 B2 53 AA 31 3A 89 31 36 31 30 00 58 0F 40 06 |S.S.1:.1610.X.@.|
00000740: 97 31 39 38 2C 30 3A 8D 32 30 35 30 3A 8D 31 39 |.198,0:.2050:.19|
00000750: 38 30 3A 89 32 30 37 30 00 8F 0F 4A 06 8B 53 B2 |80:.2070...J..S.|
00000760: 32 30 B0 4E 24 28 58 29 B2 22 22 A7 97 31 39 38 |20.N$(X).""..198|
00000770: 2C 30 3A 8D 32 30 35 30 3A 8D 31 39 38 30 3A 8B |,0:.2050:.1980:.|
00000780: 52 54 B2 31 A7 52 54 B2 30 3A 89 32 30 37 30 00 |RT.1.RT.0:.2070.|
00000790: AA 0F 54 06 8B 4C 4C B2 31 A7 4C 4C B2 30 3A 99 |..T..LL.1.LL.0:.|
000007A0: 22 93 22 3B 3A 8D 31 39 36 30 00 B4 0F 5E 06 89 |".";:.1960...^..|
000007B0: 31 35 35 30 00 CB 0F 68 06 8D 31 39 34 30 3A 97 |1550...h..1940:.|
000007C0: 31 39 38 2C 30 3A 89 32 30 37 30 00 E6 0F 72 06 |198,0:.2070...r.|
000007D0: 8F 20 2A 2A 2A 20 4C 45 53 45 20 52 4F 55 54 49 |. *** LESE ROUTI|
000007E0: 4E 45 20 2A 2A 2A 00 18 10 7C 06 99 22 93 11 1D |NE ***...|.."...|
000007F0: 12 20 20 20 20 20 20 20 20 52 45 41 44 49 4E 47 |. READING|
00000800: 20 53 45 51 55 45 4E 54 49 41 4C 20 46 49 4C 45 | SEQUENTIAL FILE|
00000810: 20 20 20 20 20 20 20 22 00 49 10 90 06 4E 55 24 | ".I...NU$|
00000820: B2 22 22 3A 85 22 11 11 1D 43 41 54 41 4C 4F 47 |."":."...CATALOG|
00000830: 4E 41 4D 45 22 3B 4E 55 24 3A 8B C3 28 4E 55 24 |NAME";NU$:..(NU$|
00000840: 29 B1 31 32 A7 31 36 38 30 00 5A 10 A4 06 8B 4E |).12.1680.Z....N|
00000850: 55 24 B2 22 22 A7 34 30 30 30 00 7F 10 AE 06 99 |U$."".4000......|
00000860: 22 11 11 53 45 41 52 43 48 49 4E 47 20 46 4F 52 |"..SEARCHING FOR|
00000870: 20 22 4E 55 24 22 20 43 41 54 41 4C 4F 47 22 00 | "NU$" CATALOG".|
00000880: 99 10 B8 06 9F 31 2C 38 2C 32 2C 22 12 22 AA 4E |.....1,8,2,".".N|
00000890: 55 24 AA 22 2C 53 2C 52 22 00 A3 10 C2 06 8D 32 |U$.",S,R"......2|
000008A0: 33 39 30 00 B6 10 CC 06 58 B2 30 3A 99 22 4C 4F |390.....X.0:."LO|
000008B0: 41 44 49 4E 47 22 00 DE 10 D6 06 84 31 2C 4E 24 |ADING"......1,N$|
000008C0: 3A 8B 4E 24 B3 B1 22 5C 22 A7 4E 24 28 58 29 B2 |:.N$.."\".N$(X).|
000008D0: 4E 24 3A 4E 24 B2 22 22 3A 89 31 37 38 30 00 18 |N$:N$."":.1780..|
000008E0: 11 E0 06 8F 20 20 47 45 54 23 31 2C 4E 24 3A 49 |.... GET#1,N$:I|
000008F0: 46 4E 24 3C 3E 43 48 52 24 28 31 33 29 54 48 45 |FN$<>CHR$(13)THE|
00000900: 4E 4E 24 28 58 29 3D 4E 24 28 58 29 2B 4E 24 3A |NN$(X)=N$(X)+N$:|
00000910: 47 4F 54 4F 36 31 30 30 00 2E 11 EA 06 8B C3 28 |GOTO6100.......(|
00000920: 4E 24 28 58 29 29 B3 32 30 A7 31 38 31 30 00 38 |N$(X)).20.1810.8|
00000930: 11 F4 06 58 B2 58 AA 31 00 42 11 08 07 89 31 37 |...X.X.1.B....17|
00000940: 35 30 00 56 11 12 07 A0 31 3A 41 46 B2 58 AB 31 |50.V....1:AF.X.1|
00000950: 3A 89 32 30 37 30 00 74 11 1C 07 8F 20 2A 2A 2A |:.2070.t.... ***|
00000960: 20 53 43 48 52 45 49 42 20 52 4F 55 54 49 4E 45 | SCHREIB ROUTINE|
00000970: 20 2A 2A 2A 00 AB 11 26 07 99 22 93 11 11 11 11 | ***...&..".....|
00000980: 1D 1D 1D 1D 1D 1D 1D 49 4E 53 45 52 54 20 12 22 |.......INSERT ."|
00000990: 3B 3A 97 36 34 36 2C 46 32 3A 99 22 44 41 54 41 |;:.646,F2:."DATA|
000009A0: 92 22 3B 3A 97 36 34 36 2C 46 31 00 B8 11 28 07 |.";:.646,F1...(.|
000009B0: 99 22 20 44 49 53 4B 22 00 C2 11 30 07 8D 32 39 |." DISK"...0..29|
000009C0: 30 30 00 F4 11 3A 07 99 22 93 11 1D 12 20 20 20 |00...:..".... |
000009D0: 20 20 20 20 20 57 52 49 54 49 4E 47 20 53 45 51 | WRITING SEQ|
000009E0: 55 45 4E 54 49 41 4C 20 46 49 4C 45 20 20 20 20 |UENTIAL FILE |
000009F0: 20 20 20 22 00 23 12 58 07 4E 55 24 B2 22 22 3A | ".#.X.NU$."":|
00000A00: 85 22 11 11 1D 43 41 54 41 4C 4F 47 20 4E 41 4D |."...CATALOG NAM|
00000A10: 45 22 3B 4E 55 24 3A 8B 4E 55 24 B2 22 22 A7 34 |E";NU$:.NU$."".4|
00000A20: 30 30 30 00 3F 12 62 07 9F 31 2C 38 2C 32 2C 22 |000.?.b..1,8,2,"|
00000A30: 40 3A 12 22 AA 4E 55 24 AA 22 2C 53 2C 57 22 00 |@:.".NU$.",S,W".|
00000A40: 51 12 6C 07 58 B2 30 3A 43 52 24 B2 C7 28 31 33 |Q.l.X.0:CR$..(13|
00000A50: 29 00 5E 12 76 07 98 31 2C 4E 24 28 58 29 00 79 |).^.v..1,N$(X).y|
00000A60: 12 80 07 8B 4E 24 28 58 29 B3 B1 22 22 A7 58 B2 |....N$(X).."".X.|
00000A70: 58 AA 31 3A 89 31 39 31 30 00 9E 12 8A 07 98 31 |X.1:.1910......1|
00000A80: 2C 22 5C 22 3A A0 31 3A 8D 32 33 39 30 3A 43 46 |,"\":.1:.2390:CF|
00000A90: B2 30 3A 8D 32 38 33 30 3A 89 32 30 37 30 00 B2 |.0:.2830:.2070..|
00000AA0: 12 94 07 A1 57 24 3A 8B 57 24 B2 22 22 A7 31 39 |....W$:.W$."".19|
00000AB0: 34 30 00 B8 12 9E 07 8E 00 F4 12 A8 07 97 36 34 |40............64|
00000AC0: 36 2C 46 31 3A 99 22 12 4C 46 4E 52 20 20 50 52 |6,F1:.".LFNR PR|
00000AD0: 4F 47 52 41 4D 4D 2D 4E 41 4D 45 20 20 20 20 20 |OGRAMM-NAME |
00000AE0: 42 4C 43 4B 53 20 20 49 44 20 20 53 49 44 45 20 |BLCKS ID SIDE |
00000AF0: 92 22 3A 8E 00 02 13 B2 07 97 36 34 36 2C 46 31 |.":.......646,F1|
00000B00: 3A 8E 00 0A 13 BC 07 A1 57 24 00 1B 13 C0 07 8F |:.......W$......|
00000B10: 20 53 45 52 23 20 30 30 30 30 31 00 34 13 C6 07 | SER# 00001.4...|
00000B20: 8B 57 24 B2 22 11 22 A7 53 B2 30 3A 4C 4C B2 31 |.W$.".".S.0:LL.1|
00000B30: 3A 8E 3A 8E 00 58 13 D0 07 8B 57 24 B2 22 91 22 |:.:..X....W$."."|
00000B40: A7 53 B2 30 3A 58 B2 58 AB 34 30 3A 4C 4C B2 31 |.S.0:X.X.40:LL.1|
00000B50: 3A 8D 32 30 33 30 3A 8E 00 6B 13 DA 07 8B 57 24 |:.2030:..k....W$|
00000B60: B2 22 93 22 A7 52 54 B2 31 3A 8E 00 75 13 E4 07 |.".".RT.1:..u...|
00000B70: 89 31 39 38 30 00 84 13 EE 07 8B 58 B3 30 A7 58 |.1980......X.0.X|
00000B80: B2 30 3A 8E 00 8A 13 F8 07 8E 00 CE 13 02 08 97 |.0:.............|
00000B90: 36 34 36 2C 46 31 3A 99 C8 28 56 54 24 2C 32 34 |646,F1:..(VT$,24|
00000BA0: 29 3B 22 1D 1D 1D 1D 1D 55 53 45 20 43 52 53 52 |);".....USE CRSR|
00000BB0: 20 12 55 50 92 2F 12 44 4F 57 4E 92 20 3B 20 12 | .UP./.DOWN. ; .|
00000BC0: 43 4C 52 92 20 54 4F 20 45 58 49 54 22 3B 00 D4 |CLR. TO EXIT";..|
00000BD0: 13 0C 08 8E 00 0E 14 16 08 97 36 34 36 2C 46 31 |..........646,F1|
00000BE0: 3A 99 22 93 11 1D 12 20 4D 55 4C 54 49 20 44 49 |:.".... MULTI DI|
00000BF0: 53 4B 20 43 41 54 41 4C 4F 47 20 56 34 20 20 2A |SK CATALOG V4 *|
00000C00: 2A 2A 20 4D 41 49 4E 20 4D 45 4E 55 20 22 00 4F |** MAIN MENU ".O|
00000C10: 14 20 08 97 36 34 36 2C 46 32 3A 99 22 11 1D 12 |. ..646,F2:."...|
00000C20: 20 28 43 29 20 43 4F 50 59 52 49 47 48 54 20 49 | (C) COPYRIGHT I|
00000C30: 42 20 20 48 41 52 44 20 26 20 53 4F 46 54 2C 20 |B HARD & SOFT, |
00000C40: 20 31 39 38 34 20 22 3A 97 36 34 36 2C 46 31 00 | 1984 ":.646,F1.|
00000C50: 76 14 2A 08 42 24 28 31 29 B2 22 53 45 4E 44 20 |v.*.B$(1)."SEND |
00000C60: 43 4F 4D 4D 41 4E 44 20 54 4F 20 44 49 53 4B 20 |COMMAND TO DISK |
00000C70: 44 52 49 56 45 22 00 9B 14 34 08 42 24 28 32 29 |DRIVE"...4.B$(2)|
00000C80: B2 22 53 48 4F 57 20 54 48 45 20 43 41 54 41 4C |."SHOW THE CATAL|
00000C90: 4F 47 20 43 4F 4E 54 45 4E 53 22 00 C2 14 3E 08 |OG CONTENS"...>.|
00000CA0: 42 24 28 35 29 B2 22 43 48 41 4E 47 45 20 43 4F |B$(5)."CHANGE CO|
00000CB0: 4C 4F 52 54 4F 4E 45 20 4F 46 20 53 43 52 45 45 |LORTONE OF SCREE|
00000CC0: 4E 22 00 DB 14 48 08 42 24 28 36 29 B2 22 51 55 |N"...H.B$(6)."QU|
00000CD0: 49 54 20 50 52 4F 47 52 41 4D 22 00 FF 14 4D 08 |IT PROGRAM"...M.|
00000CE0: 42 24 28 34 29 B2 22 53 45 4E 44 20 43 4F 4D 4D |B$(4)."SEND COMM|
00000CF0: 41 4E 44 20 54 4F 20 43 41 54 41 4C 4F 47 22 00 |AND TO CATALOG".|
00000D00: 27 15 4F 08 42 24 28 33 29 B2 22 53 45 4E 44 20 |'.O.B$(3)."SEND |
00000D10: 43 41 54 41 4C 4F 47 20 54 4F 20 54 48 45 20 50 |CATALOG TO THE P|
00000D20: 52 49 4E 54 45 52 22 00 46 15 52 08 48 54 24 B2 |RINTER".F.R.HT$.|
00000D30: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000D40: 1D 1D 1D 1D 1D 22 00 6B 15 5C 08 56 54 24 B2 22 |.....".k.\.VT$."|
00000D50: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000D60: 11 11 11 11 11 11 11 11 11 11 22 00 8A 15 66 08 |.........."...f.|
00000D70: 4C 45 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |LE$." |
00000D80: 20 20 20 20 20 20 20 20 20 22 00 9D 15 70 08 41 | "...p.A|
00000D90: 43 B2 36 3A 56 43 B2 35 3A 41 42 B2 32 00 AC 15 |C.6:VC.5:AB.2...|
00000DA0: 7A 08 99 C8 28 56 54 24 2C 56 43 29 00 B8 15 84 |z...(VT$,VC)....|
00000DB0: 08 81 49 B2 31 A4 41 43 00 CC 15 8E 08 4C B2 C3 |..I.1.AC.....L..|
00000DC0: 28 42 24 28 49 29 29 3A 4D 4D B2 31 00 E1 15 98 |(B$(I)):MM.1....|
00000DD0: 08 8B 4C AD 32 B2 B5 28 4C AD 32 29 A7 4D 4D B2 |..L.2..(L.2).MM.|
00000DE0: 30 00 EE 15 A2 08 4C B2 B5 28 4C AD 32 29 00 FA |0.....L..(L.2)..|
00000DF0: 15 AC 08 4C 4C B2 32 30 AB 4C 00 21 16 B6 08 42 |...LL.20.L.!...B|
00000E00: 24 28 49 29 B2 C8 28 4C 45 24 2C 4C 4C 29 AA 42 |$(I)..(LE$,LL).B|
00000E10: 24 28 49 29 AA C8 28 4C 45 24 2C 4C 4C AB 4D 4D |$(I)..(LE$,LL.MM|
00000E20: 29 00 32 16 C0 08 99 22 11 22 42 24 28 49 29 3B |).2...."."B$(I);|
00000E30: 3A 82 00 40 16 CA 08 52 B2 31 3A 89 32 33 31 30 |:..@...R.1:.2310|
00000E40: 00 48 16 D4 08 A1 41 24 00 5B 16 DE 08 8B 41 24 |.H....A$.[....A$|
00000E50: B2 C7 28 31 33 29 A7 32 33 35 30 00 78 16 E8 08 |..(13).2350.x...|
00000E60: 8B 41 24 B2 22 11 22 A7 52 B2 52 AA 31 3A 8B 52 |.A$.".".R.R.1:.R|
00000E70: B1 41 43 A7 52 B2 41 43 00 99 16 F2 08 8B 41 24 |.AC.R.AC......A$|
00000E80: B2 22 91 22 A7 52 B2 52 AB 31 3A 8B 52 B3 31 A7 |.".".R.R.1:.R.1.|
00000E90: 52 B2 31 3A 89 32 32 36 30 00 BD 16 FC 08 8B 41 |R.1:.2260......A|
00000EA0: 24 B3 B1 22 11 22 AF 41 24 B3 B1 22 91 22 AF 41 |$..".".A$..".".A|
00000EB0: 24 B3 B1 C7 28 31 33 29 A7 32 32 36 30 00 D8 16 |$...(13).2260...|
00000EC0: 06 09 99 C8 28 56 54 24 2C 52 52 AC 32 AA 56 43 |....(VT$,RR.2.VC|
00000ED0: 29 3B 42 24 28 52 52 29 00 FA 16 10 09 8B 52 B2 |);B$(RR)......R.|
00000EE0: 41 43 AB 31 A7 99 C8 28 56 54 24 2C 41 43 AC 32 |AC.1...(VT$,AC.2|
00000EF0: AA 56 43 29 42 24 28 41 43 29 00 24 17 1A 09 99 |.VC)B$(AC).$....|
00000F00: C8 28 56 54 24 2C 52 AC 32 AA 56 43 29 22 12 22 |.(VT$,R.2.VC)"."|
00000F10: 42 24 28 52 29 3A 8B 52 B3 41 43 AF 52 B1 30 A7 |B$(R):.R.AC.R.0.|
00000F20: 52 52 B2 52 00 2E 17 24 09 89 32 32 36 30 00 4E |RR.R...$..2260.N|
00000F30: 17 2E 09 91 52 89 34 30 30 30 2C 31 35 33 30 2C |....R.4000,1530,|
00000F40: 32 34 37 30 2C 35 30 30 30 2C 37 30 30 30 00 80 |2470,5000,7000..|
00000F50: 17 38 09 99 22 93 11 1D 12 20 20 45 4E 44 20 4F |.8..".... END O|
00000F60: 46 20 53 45 53 53 49 4F 4E 20 20 20 20 20 20 20 |F SESSION |
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000F80: 00 B2 17 42 09 99 22 11 11 11 1D 41 52 45 20 59 |...B.."....ARE Y|
00000F90: 4F 55 20 53 55 52 45 20 3F 22 3B 3A 85 4A 4E 24 |OU SURE ?";:.JN$|
00000FA0: 3A 8B 4A 4E 24 B2 22 59 45 53 22 A7 9E 36 34 37 |:.JN$."YES"..647|
00000FB0: 33 38 00 BC 17 4C 09 89 32 30 37 30 00 DD 17 56 |38...L..2070...V|
00000FC0: 09 8F 20 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F |.. *** DISK ERRO|
00000FD0: 52 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 ED 17 |R ROUTINE ***...|
00000FE0: 60 09 84 32 2C 48 2C 4A 24 2C 4B 2C 4C 00 F8 17 |`..2,H,J$,K,L...|
00000FF0: 6A 09 8B 48 B2 30 A7 8E 00 3A 18 74 09 97 36 34 |j..H.0...:.t..64|
00001000: 36 2C 46 32 3A 99 22 93 11 1D 12 20 20 20 20 20 |6,F2:.".... |
00001010: 20 20 20 20 20 44 20 49 20 53 20 4B 20 20 2D 20 | D I S K - |
00001020: 20 45 20 52 20 52 20 4F 20 52 20 20 20 20 20 20 | E R R O R |
00001030: 20 22 3A 97 36 34 36 2C 46 31 00 5A 18 7E 09 99 | ":.646,F1.Z.~..|
00001040: 22 11 1D 4E 4F 2E 9D 22 48 3B 22 20 20 22 4A 24 |"..NO.."H;" "J$|
00001050: 22 20 4F 4E 20 44 49 53 4B 22 00 75 18 88 09 99 |" ON DISK".u....|
00001060: 22 11 1D 54 52 41 43 4B 22 4B 22 3B 20 53 45 43 |"..TRACK"K"; SEC|
00001070: 54 4F 52 22 4C 00 8A 18 92 09 8D 32 39 30 30 3A |TOR"L......2900:|
00001080: A0 31 2C 34 3A 89 32 30 37 30 00 90 18 9C 09 8E |.1,4:.2070......|
00001090: 00 AE 18 A6 09 8F 20 2A 2A 2A 20 4C 49 53 54 20 |...... *** LIST |
000010A0: 4F 4E 20 50 52 49 4E 54 45 52 20 2A 2A 2A 00 E1 |ON PRINTER ***..|
000010B0: 18 B0 09 99 22 93 11 1D 12 20 20 4C 49 53 54 20 |....".... LIST |
000010C0: 20 4F 4E 20 20 50 52 49 4E 54 45 52 20 28 4D 50 | ON PRINTER (MP|
000010D0: 53 20 38 30 31 29 20 20 20 20 20 20 20 20 20 92 |S 801) .|
000010E0: 22 00 FD 18 B5 09 99 22 11 11 1D 1D 1D 54 55 52 |"......".....TUR|
000010F0: 4E 20 4F 4E 20 50 52 49 4E 54 45 52 22 00 22 19 |N ON PRINTER".".|
00001100: B6 09 99 22 11 11 1D 1D 1D 1D 1D 48 49 54 20 41 |...".......HIT A|
00001110: 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 |NY KEY WHEN READ|
00001120: 59 22 00 36 19 B7 09 A1 41 24 3A 8B 41 24 B2 22 |Y".6....A$:.A$."|
00001130: 22 A7 32 34 38 37 00 43 19 BA 09 9F 34 2C 34 3A |".2487.C....4,4:|
00001140: 58 B2 30 00 78 19 C4 09 98 34 2C C7 28 31 38 29 |X.0.x....4,.(18)|
00001150: 3B 22 4E 52 20 20 50 52 4F 47 52 41 4D 4D 4E 41 |;"NR PROGRAMMNA|
00001160: 4D 45 20 20 20 20 20 20 42 4C 4F 43 4B 53 20 44 |ME BLOCKS D|
00001170: 49 53 4B 20 53 20 22 3B 00 B3 19 CE 09 98 34 2C |ISK S ";......4,|
00001180: 22 20 20 20 20 4E 52 20 20 20 50 52 4F 47 52 41 |" NR PROGRA|
00001190: 4D 4D 4E 41 4D 45 20 20 20 20 20 20 42 4C 4F 43 |MMNAME BLOC|
000011A0: 4B 53 20 44 49 53 4B 20 53 20 22 3B C7 28 31 34 |KS DISK S ";.(14|
000011B0: 36 29 3B 00 CB 19 D8 09 52 B2 B5 28 41 46 AD 32 |6);.....R..(AF.2|
000011C0: 29 3A 52 52 B2 41 46 AD 32 AB 52 00 D9 19 E2 09 |):RR.AF.2.R.....|
000011D0: 98 34 2C C7 28 31 30 29 3B 00 E4 19 EC 09 81 58 |.4,.(10);......X|
000011E0: B2 30 A4 52 00 F7 19 F6 09 8B 4E 24 28 58 29 B2 |.0.R......N$(X).|
000011F0: 22 22 A7 32 36 31 30 00 22 1A 00 0A 48 B2 58 AA |"".2610."...H.X.|
00001200: 31 3A 98 34 2C C7 28 31 36 29 3B 22 30 30 22 3B |1:.4,.(16);"00";|
00001210: C9 28 C4 28 48 29 2C C3 28 C4 28 48 29 29 AB 31 |.(.(H),.(.(H)).1|
00001220: 29 3B 00 3B 1A 0A 0A 98 34 2C C7 28 31 36 29 3B |);.;....4,.(16);|
00001230: 22 30 34 22 3B 4E 24 28 58 29 3B 00 6F 1A 14 0A |"04";N$(X);.o...|
00001240: 48 B2 52 AA 58 AA 52 52 AC 32 3A 98 34 2C C7 28 |H.R.X.RR.2:.4,.(|
00001250: 31 36 29 3B 22 34 30 22 3B C9 28 C4 28 48 AA 31 |16);"40";.(.(H.1|
00001260: 29 2C C3 28 C4 28 48 AA 31 29 29 AB 31 29 3B 00 |),.(.(H.1)).1);.|
00001270: 87 1A 1E 0A 98 34 2C C7 28 31 36 29 3B 22 34 35 |.....4,.(16);"45|
00001280: 22 3B 4E 24 28 48 29 00 8D 1A 28 0A 82 00 9A 1A |";N$(H)...(.....|
00001290: 32 0A A0 34 3A 89 32 30 37 30 00 A9 1A 3C 0A 8B |2..4:.2070...<..|
000012A0: 43 46 B2 30 A7 32 30 37 30 00 B8 1A 46 0A 8B 43 |CF.0.2070...F..C|
000012B0: 46 B2 31 A7 36 30 30 30 00 BE 1A C8 0A 22 00 E4 |F.1.6000....."..|
000012C0: 1A F0 0A 99 22 93 11 1D 4D 41 58 2E 20 43 41 50 |...."...MAX. CAP|
000012D0: 41 43 49 54 59 3A 22 51 22 9D 20 46 49 4C 45 53 |ACITY:"Q". FILES|
000012E0: 22 3A A0 31 00 FB 1A FA 0A 81 56 5A B2 30 A4 38 |":.1......VZ.0.8|
000012F0: 30 30 30 3A 82 3A 89 31 38 32 30 00 39 1B 04 0B |000:.:.1820.9...|
00001300: 9F 31 2C 38 2C 30 2C 22 24 22 3A 99 22 93 11 1D |.1,8,0,"$":."...|
00001310: 12 20 20 20 20 45 58 49 53 54 49 4E 47 20 44 41 |. EXISTING DA|
00001320: 54 41 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 4B |TA FILES ON DISK|
00001330: 20 20 20 20 20 20 20 11 22 00 5A 1B 0E 0B 8B 53 | .".Z....S|
00001340: 54 B3 B1 36 34 A7 A1 23 31 2C 41 24 3A 8B 41 24 |T..64..#1,A$:.A$|
00001350: B3 B1 22 12 22 A7 32 38 33 30 00 6A 1B 18 0B 8B |..".".2830.j....|
00001360: 53 54 B2 36 34 A7 32 38 39 30 00 74 1B 22 0B 99 |ST.64.2890.t."..|
00001370: 22 1D 22 3B 00 8E 1B 2C 0B A1 23 31 2C 41 24 3A |".";...,..#1,A$:|
00001380: 8B 41 24 B2 C7 28 33 34 29 A7 32 38 33 30 00 9D |.A$..(34).2830..|
00001390: 1B 36 0B 99 41 24 3B 3A 89 32 38 36 30 00 A9 1B |.6..A$;:.2860...|
000013A0: 40 0B 99 3A 89 32 38 33 30 00 BE 1B 4A 0B 99 3A |@..:.2830...J..:|
000013B0: A0 31 3A 8D 32 39 30 30 3A 89 34 30 30 30 00 C9 |.1:.2900:.4000..|
000013C0: 1B 54 0B 99 22 11 11 11 22 00 E7 1B 5E 0B 81 5A |.T.."..."...^..Z|
000013D0: B2 30 A4 31 30 30 3A A1 57 24 3A 8B 57 24 B3 B1 |.0.100:.W$:.W$..|
000013E0: 22 22 A7 32 39 38 30 00 ED 1B 68 0B 82 00 12 1C |"".2980...h.....|
000013F0: 72 0B 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |r.."............|
00001400: 20 20 20 20 48 49 54 20 41 4E 59 20 4B 45 59 20 | HIT ANY KEY |
00001410: 20 22 00 30 1C 7C 0B 81 5A B2 30 A4 31 30 30 3A | ".0.|..Z.0.100:|
00001420: A1 57 24 3A 8B 57 24 B3 B1 22 22 A7 32 39 38 30 |.W$:.W$.."".2980|
00001430: 00 36 1C 86 0B 82 00 5B 1C 90 0B 99 22 91 1D 1D |.6.....[...."...|
00001440: 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 |......... |
00001450: 20 20 20 20 20 20 20 20 20 20 22 00 65 1C 9A 0B | ".e...|
00001460: 89 32 39 31 30 00 6B 1C A4 0B 8E 00 75 1C AE 0B |.2910.k.....u...|
00001470: 89 32 30 37 30 00 9A 1C B8 0B 42 4C 24 B2 22 20 |.2070.....BL$." |
00001480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001490: 20 20 20 20 20 20 20 20 20 22 00 B5 1C C2 0B 52 | ".....R|
000014A0: 43 24 B2 4E 24 AA C8 28 42 4C 24 2C 31 38 AB C3 |C$.N$..(BL$,18..|
000014B0: 28 4E 24 29 29 00 D3 1C CC 0B 52 43 24 B2 52 43 |(N$)).....RC$.RC|
000014C0: 24 AA 44 24 AA C8 28 42 4C 24 2C 37 AB C3 28 44 |$.D$..(BL$,7..(D|
000014D0: 24 29 29 00 F3 1C D6 0B 52 43 24 B2 52 43 24 AA |$)).....RC$.RC$.|
000014E0: 44 5A 24 AA C8 28 42 4C 24 2C 35 AB C3 28 44 5A |DZ$..(BL$,5..(DZ|
000014F0: 24 29 29 00 11 1D E0 0B 52 43 24 B2 52 43 24 AA |$)).....RC$.RC$.|
00001500: 53 24 AA C8 28 42 4C 24 2C 32 AB C3 28 53 24 29 |S$..(BL$,2..(S$)|
00001510: 29 00 2A 1D EA 0B 41 46 B2 41 46 AA 31 3A 4E 24 |).*...AF.AF.1:N$|
00001520: 28 41 46 29 B2 52 43 24 3A 8E 00 39 1D F4 0B 81 |(AF).RC$:..9....|
00001530: 49 B2 38 32 38 A4 39 37 37 00 4D 1D FE 0B 87 58 |I.828.977.M....X|
00001540: 3A 97 49 2C 58 3A 53 B2 53 AA 58 3A 82 00 79 1D |:.I,X:S.S.X:..y.|
00001550: 08 0C 83 31 36 30 2C 30 2C 31 37 37 2C 34 37 2C |...160,0,177,47,|
00001560: 34 38 2C 31 33 2C 32 30 30 2C 31 37 37 2C 34 37 |48,13,200,177,47|
00001570: 2C 31 36 2C 38 2C 31 36 30 00 A4 1D 12 0C 83 34 |,16,8,160......4|
00001580: 2C 31 37 37 2C 34 37 2C 32 30 31 2C 31 2C 32 34 |,177,47,201,1,24|
00001590: 30 2C 31 2C 39 36 2C 32 34 2C 31 36 35 2C 34 37 |0,1,96,24,165,47|
000015A0: 2C 31 30 35 00 D2 1D 1C 0C 83 37 2C 31 33 33 2C |,105......7,133,|
000015B0: 31 31 30 2C 31 36 35 2C 34 38 2C 31 30 35 2C 30 |110,165,48,105,0|
000015C0: 2C 31 33 33 2C 31 31 31 2C 31 36 30 2C 30 2C 31 |,133,111,160,0,1|
000015D0: 37 37 00 03 1E 26 0C 83 31 31 30 2C 32 34 30 2C |77...&..110,240,|
000015E0: 32 33 36 2C 31 33 33 2C 33 34 2C 32 30 30 2C 31 |236,133,34,200,1|
000015F0: 37 37 2C 31 31 30 2C 31 35 33 2C 33 34 2C 30 2C |77,110,153,34,0,|
00001600: 31 39 32 00 35 1E 30 0C 83 32 2C 32 30 38 2C 32 |192.5.0..2,208,2|
00001610: 34 36 2C 31 36 35 2C 31 31 30 2C 31 33 33 2C 31 |46,165,110,133,1|
00001620: 31 33 2C 31 36 35 2C 31 31 31 2C 31 33 33 2C 31 |13,165,111,133,1|
00001630: 31 34 2C 32 34 00 64 1E 3A 0C 83 31 36 35 2C 31 |14,24.d.:..165,1|
00001640: 31 33 2C 31 30 35 2C 33 2C 31 33 33 2C 31 31 33 |13,105,3,133,113|
00001650: 2C 31 34 34 2C 32 2C 32 33 30 2C 31 31 34 2C 31 |,144,2,230,114,1|
00001660: 36 30 2C 30 00 93 1E 44 0C 83 31 37 37 2C 31 31 |60,0...D..177,11|
00001670: 33 2C 32 34 30 2C 36 31 2C 31 33 33 2C 37 37 2C |3,240,61,133,77,|
00001680: 31 39 37 2C 33 34 2C 31 34 34 2C 32 2C 31 36 35 |197,34,144,2,165|
00001690: 2C 33 34 00 C2 1E 4E 0C 83 31 33 33 2C 38 35 2C |,34...N..133,85,|
000016A0: 32 30 30 2C 31 37 37 2C 31 31 33 2C 31 35 33 2C |200,177,113,153,|
000016B0: 37 37 2C 30 2C 31 39 32 2C 32 2C 32 30 38 2C 32 |77,0,192,2,208,2|
000016C0: 34 36 00 F0 1E 58 0C 83 31 36 30 2C 30 2C 31 37 |46...X..160,0,17|
000016D0: 37 2C 33 35 2C 32 30 39 2C 37 38 2C 32 34 30 2C |7,35,209,78,240,|
000016E0: 34 2C 31 37 36 2C 31 31 2C 31 34 34 2C 32 30 37 |4,176,11,144,207|
000016F0: 00 21 1F 62 0C 83 32 30 30 2C 31 39 36 2C 38 35 |.!.b..200,196,85|
00001700: 2C 32 30 38 2C 32 34 31 2C 31 39 36 2C 33 34 2C |,208,241,196,34,|
00001710: 31 37 36 2C 31 39 38 2C 31 36 30 2C 32 2C 31 37 |176,198,160,2,17|
00001720: 37 00 53 1F 6C 0C 83 31 31 30 2C 31 37 30 2C 31 |7.S.l..110,170,1|
00001730: 37 37 2C 31 31 33 2C 31 34 35 2C 31 31 30 2C 31 |77,113,145,110,1|
00001740: 35 33 2C 33 34 2C 30 2C 31 33 38 2C 31 34 35 2C |53,34,0,138,145,|
00001750: 31 31 33 00 83 1F 76 0C 83 31 33 36 2C 31 36 2C |113...v..136,16,|
00001760: 32 34 30 2C 34 38 2C 31 37 38 2C 32 34 2C 31 36 |240,48,178,24,16|
00001770: 35 2C 31 31 30 2C 31 30 35 2C 33 2C 31 33 33 2C |5,110,105,3,133,|
00001780: 31 31 30 00 A0 1F 80 0C 83 31 34 34 2C 31 34 33 |110......144,143|
00001790: 2C 32 33 30 2C 31 31 31 2C 32 30 38 2C 31 33 39 |,230,111,208,139|
000017A0: 00 AA 1F 8A 0C 58 B2 30 3A 8E 00 B9 1F 94 0C 9E |.....X.0:.......|
000017B0: 38 32 38 3A 89 32 36 32 30 00 C8 1F 9E 0C 9E 38 |828:.2620......8|
000017C0: 32 38 3A 89 32 30 37 30 00 DE 1F A8 0C 8F 20 2D |28:.2070...... -|
000017D0: 2D 2D 20 41 45 4E 44 45 52 4E 20 2D 2D 2D 00 10 |-- AENDERN ---..|
000017E0: 20 B2 0C 99 22 93 11 1D 12 20 20 20 20 20 20 20 | ...".... |
000017F0: 20 43 48 41 4E 47 45 20 44 41 54 41 20 20 20 20 | CHANGE DATA |
00001800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001810: 00 3B 20 BC 0C 4C 46 B2 30 3A 85 22 11 11 11 1D |.; ..LF.0:."....|
00001820: 54 49 54 4C 45 20 4E 55 4D 42 45 52 22 3B 4C 46 |TITLE NUMBER";LF|
00001830: 3A 8B 4C 46 B2 30 A7 32 30 37 30 00 65 20 C6 0C |:.LF.0.2070.e ..|
00001840: 4C 46 B2 4C 46 AB 31 3A 4C 46 24 B2 C4 28 4C 46 |LF.LF.1:LF$..(LF|
00001850: 29 3A 4C 46 24 B2 C9 28 4C 46 24 2C C3 28 4C 46 |):LF$..(LF$,.(LF|
00001860: 24 29 AB 31 29 00 73 20 D0 0C 99 22 11 1D 4E 4F |$).1).s ..."..NO|
00001870: 57 3A 22 00 88 20 DA 0C 99 4C 46 AA 31 3B A3 36 |W:".. ...LF.1;.6|
00001880: 29 3B 4E 24 28 4C 46 29 00 93 20 E4 0C 43 43 24 |);N$(LF).. ..CC$|
00001890: B2 22 22 00 B9 20 EE 0C 99 22 11 22 4C 46 AA 31 |."".. ..."."LF.1|
000018A0: 3B A3 36 29 4E 24 28 4C 46 29 3A 99 22 91 22 3B |;.6)N$(LF):.".";|
000018B0: A3 34 29 3B 3A 85 43 43 24 00 D0 20 F8 0C 8B 43 |.4);:.CC$.. ...C|
000018C0: 43 24 B2 22 22 A7 43 43 24 B2 C7 28 32 35 35 29 |C$."".CC$..(255)|
000018D0: 00 08 21 02 0D 8B 43 54 B2 30 A7 4E 24 28 4C 46 |..!...CT.0.N$(LF|
000018E0: 29 B2 43 43 24 3A 9E 38 32 38 3A 8B 43 43 24 B2 |).CC$:.828:.CC$.|
000018F0: C7 28 32 35 35 29 A7 4E 24 28 41 46 29 B2 22 22 |.(255).N$(AF).""|
00001900: 3A 41 46 B2 41 46 AB 31 00 12 21 16 0D 89 32 30 |:AF.AF.1..!...20|
00001910: 37 30 00 36 21 20 0D 8F 20 53 45 41 52 43 48 49 |70.6! .. SEARCHI|
00001920: 4E 47 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NG--------------|
00001930: 2D 2D 2D 2D 2D 2D 00 70 21 2A 0D 97 36 34 36 2C |------.p!*..646,|
00001940: 46 31 3A 99 22 93 11 1D 12 20 20 20 53 20 45 20 |F1:.".... S E |
00001950: 41 20 52 20 43 20 48 20 49 20 4E 20 47 20 20 20 |A R C H I N G |
00001960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001970: 00 8B 21 34 0D 85 22 11 1D 53 45 41 52 43 48 49 |..!4.."..SEARCHI|
00001980: 4E 47 20 46 4F 52 22 3B 53 46 24 00 B3 21 3E 0D |NG FOR";SF$..!>.|
00001990: 81 53 46 B2 30 A4 41 46 3A 8B 53 46 24 B2 C8 28 |.SF.0.AF:.SF$..(|
000019A0: 4E 24 28 53 46 29 2C C3 28 53 46 24 29 29 A7 33 |N$(SF),.(SF$)).3|
000019B0: 34 34 30 00 B9 21 48 0D 82 00 E3 21 52 0D 99 22 |440..!H....!R.."|
000019C0: 11 1D 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 |..FILE NOT FOUND|
000019D0: 20 45 52 52 4F 52 22 3A 8D 32 39 30 30 3A 89 32 | ERROR":.2900:.2|
000019E0: 30 37 30 00 0C 22 5C 0D 85 22 11 1D 43 4F 4E 54 |070.."\.."..CONT|
000019F0: 49 4E 55 45 22 3B 4A 4E 24 3A 8B C8 28 4A 4E 24 |INUE";JN$:..(JN$|
00001A00: 2C 31 29 B2 22 4E 22 A7 32 30 37 30 00 16 22 66 |,1)."N".2070.."f|
00001A10: 0D 89 33 34 30 30 00 31 22 70 0D 99 22 93 11 11 |..3400.1"p.."...|
00001A20: 1D 1D 1D 50 52 47 2D 4E 4F 2E 3A 22 3B 53 46 AA |...PRG-NO.:";SF.|
00001A30: 31 00 54 22 7A 0D 99 22 11 1D 1D 1D 50 52 47 2D |1.T"z.."....PRG-|
00001A40: 4E 41 4D 45 3A 20 22 3B C8 28 4E 24 28 53 46 29 |NAME: ";.(N$(SF)|
00001A50: 2C 31 36 29 00 79 22 84 0D 99 22 11 1D 1D 1D 42 |,16).y"..."....B|
00001A60: 4C 4F 43 4B 53 20 20 3A 20 22 3B CA 28 4E 24 28 |LOCKS : ";.(N$(|
00001A70: 53 46 29 2C 31 39 2C 33 29 00 B7 22 8E 0D 99 22 |SF),19,3).."..."|
00001A80: 11 1D 50 52 47 20 49 53 20 4F 4E 20 44 49 53 4B |..PRG IS ON DISK|
00001A90: 20 22 CA 28 4E 24 28 53 46 29 2C 32 36 2C 33 29 | ".(N$(SF),26,3)|
00001AA0: 22 20 20 53 49 44 45 20 22 CA 28 4E 24 28 53 46 |" SIDE ".(N$(SF|
00001AB0: 29 2C 33 31 2C 31 29 00 C1 22 98 0D 89 33 34 32 |),31,1).."...342|
00001AC0: 30 00 D0 22 A0 0F 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |0.."... --------|
00001AD0: 00 DF 22 AA 0F 8F 20 53 55 42 20 4D 45 4E 55 00 |.."... SUB MENU.|
00001AE0: EE 22 B4 0F 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 00 28 |."... --------.(|
00001AF0: 23 E6 0F 97 36 34 36 2C 46 31 3A 99 22 93 11 1D |#...646,F1:."...|
00001B00: 12 20 4D 55 4C 54 49 20 44 49 53 4B 20 43 41 54 |. MULTI DISK CAT|
00001B10: 41 4C 4F 47 20 56 34 20 20 2A 2A 2A 20 20 53 55 |ALOG V4 *** SU|
00001B20: 42 20 4D 45 4E 55 20 22 00 69 23 F0 0F 97 36 34 |B MENU ".i#...64|
00001B30: 36 2C 46 32 3A 99 22 11 1D 12 20 28 43 29 20 43 |6,F2:."... (C) C|
00001B40: 4F 50 59 52 49 47 48 54 20 49 42 20 20 48 41 52 |OPYRIGHT IB HAR|
00001B50: 44 20 26 20 53 4F 46 54 2C 20 20 31 39 38 34 20 |D & SOFT, 1984 |
00001B60: 22 3A 97 36 34 36 2C 46 31 00 91 23 FA 0F 42 24 |":.646,F1..#..B$|
00001B70: 28 31 29 B2 22 4C 4F 41 44 20 4D 41 49 4E 20 43 |(1)."LOAD MAIN C|
00001B80: 41 54 41 4C 4F 47 20 46 52 4F 4D 20 44 49 53 4B |ATALOG FROM DISK|
00001B90: 22 00 B7 23 04 10 42 24 28 32 29 B2 22 53 41 56 |"..#..B$(2)."SAV|
00001BA0: 45 20 4D 41 49 4E 20 43 41 54 41 4C 4F 47 20 4F |E MAIN CATALOG O|
00001BB0: 4E 20 44 49 53 4B 22 00 DE 23 0E 10 42 24 28 33 |N DISK"..#..B$(3|
00001BC0: 29 B2 22 44 49 53 50 4C 41 59 20 44 41 54 41 20 |)."DISPLAY DATA |
00001BD0: 46 49 4C 45 53 20 4F 4E 20 44 49 53 4B 22 00 00 |FILES ON DISK"..|
00001BE0: 24 18 10 42 24 28 34 29 B2 22 42 41 43 4B 20 54 |$..B$(4)."BACK T|
00001BF0: 4F 20 54 48 45 20 4D 41 49 4E 20 4D 45 4E 55 22 |O THE MAIN MENU"|
00001C00: 00 1F 24 22 10 48 54 24 B2 22 1D 1D 1D 1D 1D 1D |..$".HT$."......|
00001C10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 |..............".|
00001C20: 44 24 2C 10 56 54 24 B2 22 13 11 11 11 11 11 11 |D$,.VT$.".......|
00001C30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001C40: 11 11 11 22 00 63 24 36 10 4C 45 24 B2 22 20 20 |...".c$6.LE$." |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C60: 20 20 22 00 76 24 40 10 41 43 B2 34 3A 56 43 B2 | ".v$@.AC.4:VC.|
00001C70: 35 3A 41 42 B2 32 00 85 24 4A 10 99 C8 28 56 54 |5:AB.2..$J...(VT|
00001C80: 24 2C 56 43 29 00 91 24 54 10 81 49 B2 31 A4 41 |$,VC)..$T..I.1.A|
00001C90: 43 00 A5 24 5E 10 4C B2 C3 28 42 24 28 49 29 29 |C..$^.L..(B$(I))|
00001CA0: 3A 4D 4D B2 31 00 BA 24 68 10 8B 4C AD 32 B2 B5 |:MM.1..$h..L.2..|
00001CB0: 28 4C AD 32 29 A7 4D 4D B2 30 00 C7 24 72 10 4C |(L.2).MM.0..$r.L|
00001CC0: B2 B5 28 4C AD 32 29 00 D3 24 7C 10 4C 4C B2 32 |..(L.2)..$|.LL.2|
00001CD0: 30 AB 4C 00 FA 24 86 10 42 24 28 49 29 B2 C8 28 |0.L..$..B$(I)..(|
00001CE0: 4C 45 24 2C 4C 4C 29 AA 42 24 28 49 29 AA C8 28 |LE$,LL).B$(I)..(|
00001CF0: 4C 45 24 2C 4C 4C AB 4D 4D 29 00 0B 25 90 10 99 |LE$,LL.MM)..%...|
00001D00: 22 11 22 42 24 28 49 29 3B 3A 82 00 19 25 9A 10 |"."B$(I);:...%..|
00001D10: 52 B2 31 3A 89 34 33 31 30 00 21 25 A4 10 A1 41 |R.1:.4310.!%...A|
00001D20: 24 00 34 25 AE 10 8B 41 24 B2 C7 28 31 33 29 A7 |$.4%...A$..(13).|
00001D30: 34 33 35 30 00 51 25 B8 10 8B 41 24 B2 22 11 22 |4350.Q%...A$."."|
00001D40: A7 52 B2 52 AA 31 3A 8B 52 B1 41 43 A7 52 B2 41 |.R.R.1:.R.AC.R.A|
00001D50: 43 00 72 25 C2 10 8B 41 24 B2 22 91 22 A7 52 B2 |C.r%...A$.".".R.|
00001D60: 52 AB 31 3A 8B 52 B3 31 A7 52 B2 31 3A 89 34 32 |R.1:.R.1.R.1:.42|
00001D70: 36 30 00 96 25 CC 10 8B 41 24 B3 B1 22 11 22 AF |60..%...A$..".".|
00001D80: 41 24 B3 B1 22 91 22 AF 41 24 B3 B1 C7 28 31 33 |A$..".".A$...(13|
00001D90: 29 A7 34 32 36 30 00 B1 25 D6 10 99 C8 28 56 54 |).4260..%....(VT|
00001DA0: 24 2C 52 52 AC 32 AA 56 43 29 3B 42 24 28 52 52 |$,RR.2.VC);B$(RR|
00001DB0: 29 00 D3 25 E0 10 8B 52 B2 41 43 AB 31 A7 99 C8 |)..%...R.AC.1...|
00001DC0: 28 56 54 24 2C 41 43 AC 32 AA 56 43 29 42 24 28 |(VT$,AC.2.VC)B$(|
00001DD0: 41 43 29 00 FD 25 EA 10 99 C8 28 56 54 24 2C 52 |AC)..%....(VT$,R|
00001DE0: AC 32 AA 56 43 29 22 12 22 42 24 28 52 29 3A 8B |.2.VC)"."B$(R):.|
00001DF0: 52 B3 41 43 AF 52 B1 30 A7 52 52 B2 52 00 07 26 |R.AC.R.0.RR.R..&|
00001E00: F4 10 89 34 32 36 30 00 22 26 FE 10 91 52 89 31 |...4260."&...R.1|
00001E10: 36 35 30 2C 31 38 32 30 2C 32 38 32 30 2C 32 30 |650,1820,2820,20|
00001E20: 37 30 00 33 26 88 13 8F 20 2D 2D 2D 2D 2D 2D 2D |70.3&... -------|
00001E30: 2D 2D 2D 00 44 26 92 13 8F 20 53 55 42 20 4D 45 |---.D&... SUB ME|
00001E40: 4E 55 20 32 00 55 26 9C 13 8F 20 2D 2D 2D 2D 2D |NU 2.U&... -----|
00001E50: 2D 2D 2D 2D 2D 00 8F 26 CE 13 97 36 34 36 2C 46 |-----..&...646,F|
00001E60: 31 3A 99 22 93 11 1D 12 20 4D 55 4C 54 49 20 44 |1:.".... MULTI D|
00001E70: 49 53 4B 20 43 41 54 41 4C 4F 47 20 56 34 20 2A |ISK CATALOG V4 *|
00001E80: 2A 2A 20 53 55 42 20 4D 45 4E 55 20 32 20 22 00 |** SUB MENU 2 ".|
00001E90: D0 26 D8 13 97 36 34 36 2C 46 32 3A 99 22 11 1D |.&...646,F2:."..|
00001EA0: 12 20 28 43 29 20 43 4F 50 59 52 49 47 48 54 20 |. (C) COPYRIGHT |
00001EB0: 49 42 20 20 48 41 52 44 20 26 20 53 4F 46 54 2C |IB HARD & SOFT,|
00001EC0: 20 20 31 39 38 34 20 22 3A 97 36 34 36 2C 46 31 | 1984 ":.646,F1|
00001ED0: 00 F7 26 E2 13 42 24 28 31 29 B2 22 43 48 41 4E |..&..B$(1)."CHAN|
00001EE0: 47 45 20 41 20 52 45 43 4F 52 44 20 49 4E 20 43 |GE A RECORD IN C|
00001EF0: 41 54 41 4C 4F 47 22 00 1F 27 EC 13 42 24 28 32 |ATALOG"..'..B$(2|
00001F00: 29 B2 22 53 4F 52 54 20 43 41 54 41 4C 4F 47 20 |)."SORT CATALOG |
00001F10: 41 4C 50 48 41 42 45 54 49 43 41 4C 4C 59 22 00 |ALPHABETICALLY".|
00001F20: 42 27 F6 13 42 24 28 33 29 B2 22 53 45 41 52 43 |B'..B$(3)."SEARC|
00001F30: 48 49 4E 47 20 46 4F 52 20 41 20 52 45 43 4F 52 |HING FOR A RECOR|
00001F40: 44 22 00 6C 27 FB 13 42 24 28 34 29 B2 22 50 55 |D".l'..B$(4)."PU|
00001F50: 54 20 4E 45 57 20 50 52 4F 47 52 41 4D 53 20 49 |T NEW PROGRAMS I|
00001F60: 4E 54 4F 20 43 41 54 41 4C 4F 47 22 00 8E 27 00 |NTO CATALOG"..'.|
00001F70: 14 42 24 28 35 29 B2 22 42 41 43 4B 20 54 4F 20 |.B$(5)."BACK TO |
00001F80: 54 48 45 20 4D 41 49 4E 20 4D 45 4E 55 22 00 AD |THE MAIN MENU"..|
00001F90: 27 0A 14 48 54 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D |'..HT$."........|
00001FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 D2 27 |............"..'|
00001FB0: 14 14 56 54 24 B2 22 13 11 11 11 11 11 11 11 11 |..VT$.".........|
00001FC0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001FD0: 11 22 00 F1 27 1E 14 4C 45 24 B2 22 20 20 20 20 |."..'..LE$." |
00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FF0: 22 00 04 28 28 14 41 43 B2 35 3A 56 43 B2 35 3A |"..((.AC.5:VC.5:|
00002000: 41 42 B2 32 00 13 28 32 14 99 C8 28 56 54 24 2C |AB.2..(2...(VT$,|
00002010: 56 43 29 00 1F 28 3C 14 81 49 B2 31 A4 41 43 00 |VC)..(<..I.1.AC.|
00002020: 33 28 46 14 4C B2 C3 28 42 24 28 49 29 29 3A 4D |3(F.L..(B$(I)):M|
00002030: 4D B2 31 00 48 28 50 14 8B 4C AD 32 B2 B5 28 4C |M.1.H(P..L.2..(L|
00002040: AD 32 29 A7 4D 4D B2 30 00 55 28 5A 14 4C B2 B5 |.2).MM.0.U(Z.L..|
00002050: 28 4C AD 32 29 00 61 28 64 14 4C 4C B2 32 30 AB |(L.2).a(d.LL.20.|
00002060: 4C 00 88 28 6E 14 42 24 28 49 29 B2 C8 28 4C 45 |L..(n.B$(I)..(LE|
00002070: 24 2C 4C 4C 29 AA 42 24 28 49 29 AA C8 28 4C 45 |$,LL).B$(I)..(LE|
00002080: 24 2C 4C 4C AB 4D 4D 29 00 99 28 78 14 99 22 11 |$,LL.MM)..(x..".|
00002090: 22 42 24 28 49 29 3B 3A 82 00 A7 28 82 14 52 B2 |"B$(I);:...(..R.|
000020A0: 31 3A 89 35 33 31 30 00 AF 28 8C 14 A1 41 24 00 |1:.5310..(...A$.|
000020B0: C2 28 96 14 8B 41 24 B2 C7 28 31 33 29 A7 35 33 |.(...A$..(13).53|
000020C0: 35 30 00 DF 28 A0 14 8B 41 24 B2 22 11 22 A7 52 |50..(...A$.".".R|
000020D0: B2 52 AA 31 3A 8B 52 B1 41 43 A7 52 B2 41 43 00 |.R.1:.R.AC.R.AC.|
000020E0: 00 29 AA 14 8B 41 24 B2 22 91 22 A7 52 B2 52 AB |.)...A$.".".R.R.|
000020F0: 31 3A 8B 52 B3 31 A7 52 B2 31 3A 89 35 32 36 30 |1:.R.1.R.1:.5260|
00002100: 00 24 29 B4 14 8B 41 24 B3 B1 22 11 22 AF 41 24 |.$)...A$..".".A$|
00002110: B3 B1 22 91 22 AF 41 24 B3 B1 C7 28 31 33 29 A7 |..".".A$...(13).|
00002120: 35 32 36 30 00 3F 29 BE 14 99 C8 28 56 54 24 2C |5260.?)....(VT$,|
00002130: 52 52 AC 32 AA 56 43 29 3B 42 24 28 52 52 29 00 |RR.2.VC);B$(RR).|
00002140: 61 29 C8 14 8B 52 B2 41 43 AB 31 A7 99 C8 28 56 |a)...R.AC.1...(V|
00002150: 54 24 2C 41 43 AC 32 AA 56 43 29 42 24 28 41 43 |T$,AC.2.VC)B$(AC|
00002160: 29 00 8B 29 D2 14 99 C8 28 56 54 24 2C 52 AC 32 |)..)....(VT$,R.2|
00002170: AA 56 43 29 22 12 22 42 24 28 52 29 3A 8B 52 B3 |.VC)"."B$(R):.R.|
00002180: 41 43 AF 52 B1 30 A7 52 52 B2 52 00 95 29 DC 14 |AC.R.0.RR.R..)..|
00002190: 89 35 32 36 30 00 B5 29 E6 14 91 52 89 33 32 34 |.5260..)...R.324|
000021A0: 30 2C 33 32 33 30 2C 33 33 36 30 2C 31 31 30 30 |0,3230,3360,1100|
000021B0: 2C 32 30 37 30 00 C6 29 70 17 8F 20 2D 2D 2D 2D |,2070..)p.. ----|
000021C0: 2D 2D 2D 2D 2D 2D 00 D7 29 7A 17 8F 20 53 55 42 |------..)z.. SUB|
000021D0: 20 4D 45 4E 55 20 33 00 E8 29 84 17 8F 20 2D 2D | MENU 3..)... --|
000021E0: 2D 2D 2D 2D 2D 2D 2D 2D 00 22 2A B6 17 97 36 34 |--------."*...64|
000021F0: 36 2C 46 31 3A 99 22 93 11 1D 12 20 4D 55 4C 54 |6,F1:.".... MULT|
00002200: 49 20 44 49 53 4B 20 43 41 54 41 4C 4F 47 20 56 |I DISK CATALOG V|
00002210: 34 20 2A 2A 2A 20 53 55 42 20 4D 45 4E 55 20 33 |4 *** SUB MENU 3|
00002220: 20 22 00 63 2A C0 17 97 36 34 36 2C 46 32 3A 99 | ".c*...646,F2:.|
00002230: 22 11 1D 12 20 28 43 29 20 43 4F 50 59 52 49 47 |"... (C) COPYRIG|
00002240: 48 54 20 49 42 20 20 48 41 52 44 20 26 20 53 4F |HT IB HARD & SO|
00002250: 46 54 2C 20 20 31 39 38 34 20 22 3A 97 36 34 36 |FT, 1984 ":.646|
00002260: 2C 46 31 00 91 2A CA 17 42 24 28 31 29 B2 22 50 |,F1..*..B$(1)."P|
00002270: 55 54 20 46 55 52 54 48 45 52 20 50 52 4F 47 52 |UT FURTHER PROGR|
00002280: 41 4D 53 20 49 4E 54 4F 20 43 41 54 41 4C 4F 47 |AMS INTO CATALOG|
00002290: 22 00 B7 2A D4 17 42 24 28 32 29 B2 22 47 4F 54 |"..*..B$(2)."GOT|
000022A0: 4F 20 43 41 54 41 4C 4F 47 20 43 4F 4D 4D 41 4E |O CATALOG COMMAN|
000022B0: 44 20 4D 45 4E 55 22 00 DA 2A DE 17 42 24 28 33 |D MENU"..*..B$(3|
000022C0: 29 B2 22 47 4F 54 4F 20 44 49 53 4B 20 43 4F 4D |)."GOTO DISK COM|
000022D0: 4D 41 4E 44 20 4D 45 4E 55 22 00 FA 2A E3 17 42 |MAND MENU"..*..B|
000022E0: 24 28 34 29 B2 22 52 45 54 55 52 4E 20 54 4F 20 |$(4)."RETURN TO |
000022F0: 4D 41 49 4E 20 4D 45 4E 55 22 00 19 2B F2 17 48 |MAIN MENU"..+..H|
00002300: 54 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |T$."............|
00002310: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 3E 2B FC 17 56 54 |........".>+..VT|
00002320: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00002330: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 5D |.............".]|
00002340: 2B 06 18 4C 45 24 B2 22 20 20 20 20 20 20 20 20 |+..LE$." |
00002350: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 70 2B | ".p+|
00002360: 10 18 41 43 B2 34 3A 56 43 B2 35 3A 41 42 B2 32 |..AC.4:VC.5:AB.2|
00002370: 00 7F 2B 1A 18 99 C8 28 56 54 24 2C 56 43 29 00 |..+....(VT$,VC).|
00002380: 8B 2B 24 18 81 49 B2 31 A4 41 43 00 9F 2B 2E 18 |.+$..I.1.AC..+..|
00002390: 4C B2 C3 28 42 24 28 49 29 29 3A 4D 4D B2 31 00 |L..(B$(I)):MM.1.|
000023A0: B4 2B 38 18 8B 4C AD 32 B2 B5 28 4C AD 32 29 A7 |.+8..L.2..(L.2).|
000023B0: 4D 4D B2 30 00 C1 2B 42 18 4C B2 B5 28 4C AD 32 |MM.0..+B.L..(L.2|
000023C0: 29 00 CD 2B 4C 18 4C 4C B2 32 30 AB 4C 00 F4 2B |)..+L.LL.20.L..+|
000023D0: 56 18 42 24 28 49 29 B2 C8 28 4C 45 24 2C 4C 4C |V.B$(I)..(LE$,LL|
000023E0: 29 AA 42 24 28 49 29 AA C8 28 4C 45 24 2C 4C 4C |).B$(I)..(LE$,LL|
000023F0: AB 4D 4D 29 00 05 2C 60 18 99 22 11 22 42 24 28 |.MM)..,`.."."B$(|
00002400: 49 29 3B 3A 82 00 13 2C 6A 18 52 B2 31 3A 89 36 |I);:...,j.R.1:.6|
00002410: 33 31 30 00 1B 2C 74 18 A1 41 24 00 2E 2C 7E 18 |310..,t..A$..,~.|
00002420: 8B 41 24 B2 C7 28 31 33 29 A7 36 33 35 30 00 4B |.A$..(13).6350.K|
00002430: 2C 88 18 8B 41 24 B2 22 11 22 A7 52 B2 52 AA 31 |,...A$.".".R.R.1|
00002440: 3A 8B 52 B1 41 43 A7 52 B2 41 43 00 6C 2C 92 18 |:.R.AC.R.AC.l,..|
00002450: 8B 41 24 B2 22 91 22 A7 52 B2 52 AB 31 3A 8B 52 |.A$.".".R.R.1:.R|
00002460: B3 31 A7 52 B2 31 3A 89 36 32 36 30 00 90 2C 9C |.1.R.1:.6260..,.|
00002470: 18 8B 41 24 B3 B1 22 11 22 AF 41 24 B3 B1 22 91 |..A$..".".A$..".|
00002480: 22 AF 41 24 B3 B1 C7 28 31 33 29 A7 36 32 36 30 |".A$...(13).6260|
00002490: 00 AB 2C A6 18 99 C8 28 56 54 24 2C 52 52 AC 32 |..,....(VT$,RR.2|
000024A0: AA 56 43 29 3B 42 24 28 52 52 29 00 CD 2C B0 18 |.VC);B$(RR)..,..|
000024B0: 8B 52 B2 41 43 AB 31 A7 99 C8 28 56 54 24 2C 41 |.R.AC.1...(VT$,A|
000024C0: 43 AC 32 AA 56 43 29 42 24 28 41 43 29 00 F7 2C |C.2.VC)B$(AC)..,|
000024D0: BA 18 99 C8 28 56 54 24 2C 52 AC 32 AA 56 43 29 |....(VT$,R.2.VC)|
000024E0: 22 12 22 42 24 28 52 29 3A 8B 52 B3 41 43 AF 52 |"."B$(R):.R.AC.R|
000024F0: B1 30 A7 52 52 B2 52 00 01 2D C4 18 89 36 32 36 |.0.RR.R..-...626|
00002500: 30 00 1C 2D CE 18 91 52 89 31 31 30 30 2C 34 30 |0..-...R.1100,40|
00002510: 30 30 2C 35 30 30 30 2C 32 30 37 30 00 34 2D 58 |00,5000,2070.4-X|
00002520: 1B 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00002530: 2D 2D 2D 2D 00 4C 2D 62 1B 8F 20 43 48 41 4E 47 |----.L-b.. CHANG|
00002540: 45 20 43 4F 4C 4F 52 20 54 4F 4E 45 00 64 2D 6C |E COLOR TONE.d-l|
00002550: 1B 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00002560: 2D 2D 2D 2D 00 6D 2D 71 1B 99 22 93 22 00 A7 2D |----.m-q.."."..-|
00002570: 76 1B 97 36 34 36 2C 46 31 3A 99 22 13 11 1D 12 |v..646,F1:."....|
00002580: 20 20 43 48 41 4E 47 45 20 54 48 45 20 43 4F 4C | CHANGE THE COL|
00002590: 4F 52 20 54 4F 4E 45 20 4F 46 20 54 48 45 20 53 |OR TONE OF THE S|
000025A0: 43 52 45 45 4E 20 22 00 C5 2D 80 1B 99 22 11 1D |CREEN "..-..."..|
000025B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 45 4E 43 4F 4C 4F |.........PENCOLO|
000025C0: 52 20 31 20 22 00 F3 2D 8A 1B 97 36 34 36 2C 46 |R 1 "..-...646,F|
000025D0: 32 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 |2:."...........P|
000025E0: 45 4E 43 4F 4C 4F 52 20 32 20 22 3A 97 36 34 36 |ENCOLOR 2 ":.646|
000025F0: 2C 46 31 00 15 2E 94 1B 99 22 11 11 11 1D 1D 1D |,F1......"......|
00002600: 42 4F 52 44 45 52 20 20 20 20 20 20 20 3D 3E 20 |BORDER => |
00002610: 12 46 31 92 22 00 35 2E 9E 1B 99 22 11 1D 1D 1D |.F1.".5...."....|
00002620: 42 41 43 4B 47 52 4F 55 4E 44 20 20 20 3D 3E 20 |BACKGROUND => |
00002630: 12 46 33 92 22 00 55 2E A8 1B 99 22 11 1D 1D 1D |.F3.".U...."....|
00002640: 50 45 4E 43 4F 4C 4F 52 20 31 20 20 20 3D 3E 20 |PENCOLOR 1 => |
00002650: 12 46 35 92 22 00 7D 2E B2 1B 97 36 34 36 2C 46 |.F5.".}....646,F|
00002660: 32 3A 99 22 11 1D 1D 1D 50 45 4E 43 4F 4C 4F 52 |2:."....PENCOLOR|
00002670: 20 32 20 20 20 3D 3E 20 12 46 37 92 22 00 A8 2E | 2 => .F7."...|
00002680: BC 1B 97 36 34 36 2C 46 31 3A 99 22 11 11 1D 1D |...646,F1:."....|
00002690: 1D 1D 1D 48 49 54 20 12 52 45 54 55 52 4E 92 20 |...HIT .RETURN. |
000026A0: 54 4F 20 45 58 49 54 22 00 BF 2E C6 1B A1 41 24 |TO EXIT"......A$|
000026B0: 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 |:.A$."".A$..(0).|
000026C0: D2 2E CB 1B 8B 41 24 B2 C7 28 31 33 29 A7 32 30 |.....A$..(13).20|
000026D0: 37 30 00 F0 2E D0 1B 8B C6 28 41 24 29 B3 31 33 |70.......(A$).13|
000026E0: 33 B0 C5 28 41 24 29 B1 31 33 36 A7 37 31 31 30 |3..(A$).136.7110|
000026F0: 00 13 2F DA 1B 91 C6 28 41 24 29 AB 31 33 32 89 |../....(A$).132.|
00002700: 37 31 34 30 2C 37 31 35 30 2C 37 31 36 30 2C 37 |7140,7150,7160,7|
00002710: 31 37 30 00 2F 2F E4 1B 42 B2 42 AA 31 AF 31 35 |170.//..B.B.1.15|
00002720: 3A 97 35 33 32 38 30 2C 42 3A 89 37 30 33 30 00 |:.53280,B:.7030.|
00002730: 4B 2F EE 1B 47 B2 47 AA 31 AF 31 35 3A 97 35 33 |K/..G.G.1.15:.53|
00002740: 32 38 31 2C 47 3A 89 37 30 33 30 00 60 2F F8 1B |281,G:.7030.`/..|
00002750: 46 31 B2 46 31 AA 31 AF 31 35 3A 89 37 30 33 30 |F1.F1.1.15:.7030|
00002760: 00 75 2F 02 1C 46 32 B2 46 32 AA 31 AF 31 35 3A |.u/..F2.F2.1.15:|
00002770: 89 37 30 33 30 00 7B 2F 40 1F 8F 00 9D 2F 4A 1F |.7030.{/@..../J.|
00002780: 8F 20 20 20 20 28 43 29 20 49 42 20 48 41 52 44 |. (C) IB HARD|
00002790: 20 26 20 53 4F 46 54 2C 20 31 39 38 34 00 A3 2F | & SOFT, 1984../|
000027A0: 54 1F 8F 00 00 00 CC 41 FF 32 46 FE CA |T......A.2F.. |
..).... (C) IB HARD & SOFTWARE LDT., 198
4.S...B.B(53280):G.B(53281):F1.B(646):F2
.13.H....792,193:.788,52......".... M U
L T I D I S K C A T A L O G ".K....
"... CAPACITY: 800 FILENAMES PER FILE
"......"....NOTE: COMPUTER WILL BECOME
VERY SLOW".:...."..WHEN THERE ARE MORE
THAN 500 NAMES IN .THE CATALOG.".{....
"..PLEASE DON'T CARE. COMPUTER WILL GO O
N .AFTER A WHILE."...$..2,8,15......306
0:.".......HIT ANY KEY TO START".D.3..A$
:.A$."".1075...8.Q.800:.N$(800):.B$(7)..
.B..2070...L.N$."".0.V..".......INSERT "
;:.646,F2:.".PROGRAM.";:.646,F1:." DISK"
.:.`..2900.Z.J..1,8,0,"$0":.N$(0)."".AF.
.1.H.T..#1,A$,B$.V.~..#1,A$,B$......#1,A
$,B$.....C.0...... A$.."" . C.F(A$).....
. B$.."" . C.C.F(B$).256.Q...D$.J(D(C),2
)......#1,B$:. ST..0 . 1300...D.. B$..G(
34) . 1210.'.N..#1,B$:.B$..G(34).N$.N$.B
$:.1230.D.X..#1,B$:. B$.G(32) . 1240.O..
.:C$."".T...C$.C$.B$:.#1,B$:. B$.."" .
1260......D$."0".ID$.H(C$,3):.1320......
H(C$,3).."PRG"..1310.H....1380:.ST.0.N$.
"":.1150.U... 1:.2620.....N$."":D$."":..
..(..".... SELECT DISKETTE NUMBE
R ".0.2.."..DISK NAME: "N$.S.<..19
8,0:DZ$."":."..DISK ID="ID$.Y.F.."..DISK
-ID. ";ID$;:.".....";DZ$...P.S$."":."..
DISK-SIDE 1...";S$...Z.....D..D$.."".
.1400...N.....X..".... STORE PROGRAMS IN
MULTI DISK CATALOG ":JN$.""......"..NAM
E : "N$:."..BLOCKS: "D$./...."..DISK ID
: ";DZ$.N....198,0:."......SAVE ?..
. .."........CCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC"......"......... F 7 . = Y
ES ; . F 1 . = NO "......"..............
...........";:.204,0......JN$:.JN$."".14
70...H..JN$.".".."...NO ":.204,1:.1520.
B.R..JN$.".".."... YES ":.204,1:CF.1:.15
10.L....1470.A....3000:.AF.Q.2800.G.....
~.... --- PRINTING ---.....X.0:LL.0:."."
;:S.0:.1960.G....N$(X)..""..646,F1:.X.1:
."......."N$(X)......BR$:.BR$.".".2070..
.".X.X.1:S.S.1...,..N$(X)..""..646,F2:.X
.1:."......."N$(X).;.6..N$(X).."".X.X.1:
S.S.1:.1610.X.@..198,0:.2050:.1980:.2070
...J..S.20.N$(X).""..198,0:.2050:.1980:.
RT.1.RT.0:.2070...T..LL.1.LL.0:.".";:.19
60...^..1550.K.H..1940:.198,0:.2070...R.
. *** LESE ROUTINE ***...|.."....
READING SEQUENTIAL FILE ".I...NU$
."":."...CATALOGNAME";NU$:.C(NU$).12.168
0.Z....NU$."".4000....."..SEARCHING FOR
"NU$" CATALOG"......1,8,2,".".NU$.",S,R
"...B..2390...L.X.0:."LOADING"...V..1,N$
:.N$.."\".N$(X).N$:N$."":.1780...... GE
T#1,N$:IFN$<>CHR$(13)THENN$(X)=N$(X)+N$:
GOTO6100......C(N$(X)).20.1810.8...X.X.1
.B....1750.V... 1:AF.X.1:.2070.T.... ***
SCHREIB ROUTINE ***...&.."............I
NSERT .";:.646,F2:."DATA.";:.646,F1...(.
." DISK".B.0..2900...:..".... WRI
TING SEQUENTIAL FILE ".#.X.NU$."":
."...CATALOG NAME";NU$:.NU$."".4000.?.B.
.1,8,2,"@:.".NU$.",S,W".Q.L.X.0:CR$.G(13
).^.V..1,N$(X).Y....N$(X).."".X.X.1:.191
0......1,"\": 1:.2390:CF.0:.2830:.2070..
....W$:.W$."".1940............646,F1:.".
LFNR PROGRAMM-NAME BLCKS ID SIDE
.":.......646,F1:.......W$...... SER# 00
001.4.F..W$.".".S.0:LL.1:.:..X.P..W$."."
.S.0:X.X.40:LL.1:.2030:..K.Z..W$.".".RT.
1:..U....1980......X.0.X.0:........N....
646,F1:.H(VT$,24);".....USE CRSR .UP./.D
OWN. ; .CLR. TO EXIT";.T..........646,F1
:.".... MULTI DISK CATALOG V4 *** MAIN
MENU ".O. ..646,F2:."... (C) COPYRIGHT I
B HARD & SOFT, 1984 ":.646,F1.V.*.B$(1
)."SEND COMMAND TO DISK DRIVE"...4.B$(2)
."SHOW THE CATALOG CONTENS".B.>.B$(5)."C
HANGE COLORTONE OF SCREEN"...H.B$(6)."QU
IT PROGRAM"...M.B$(4)."SEND COMMAND TO C
ATALOG".'.O.B$(3)."SEND CATALOG TO THE P
RINTER".F.R.HT$."....................".K
.\.VT$.".........................."...F.
LE$." "...P.AC.6:VC.5
:AB.2...Z..H(VT$,VC)......I.1.AC.L...L.C
(B$(I)):MM.1......L.2..(L.2).MM.0.....L.
.(L.2).....LL.20.L.!...B$(I).H(LE$,LL).B
$(I).H(LE$,LL.MM).2...."."B$(I);:..@.J.R
.1:.2310.H.T..A$.[....A$.G(13).2350.X...
.A$.".".R.R.1:.R.AC.R.AC......A$.".".R.R
.1:.R.1.R.1:.2260......A$..".".A$..".".A
$..G(13).2260.X....H(VT$,RR.2.VC);B$(RR)
......R.AC.1..H(VT$,AC.2.VC)B$(AC).$....
H(VT$,R.2.VC)"."B$(R):.R.AC.R.0.RR.R...$
..2260.N....R.4000,1530,2470,5000,7000..
.8..".... END OF SESSION
"...B.."....ARE YOU SURE ?";:.JN$
:.JN$."YES"..64738...L..2070...V.. *** D
ISK ERROR ROUTINE ***...`..2,H,J$,K,L...
J..H.0...:.T..646,F2:.".... D I
S K - E R R O R ":.646,F1.Z.~..
"..NO.."H;" "J$" ON DISK".U...."..TRACK
"K"; SECTOR"L......2900: 1,4:.2070......
...... *** LIST ON PRINTER ***......"...
. LIST ON PRINTER (MPS 801) .
"......".....TURN ON PRINTER"."...."....
...HIT ANY KEY WHEN READY".6....A$:.A$."
".2487.C....4,4:X.0.X.D..4,G(18);"NR PR
OGRAMMNAME BLOCKS DISK S ";...N..4,
" NR PROGRAMMNAME BLOCKS DISK
S ";G(146);.K.X.R..(AF.2):RR.AF.2.R.Y...
.4,G(10);......X.0.R......N$(X)."".2610.
"...H.X.1:.4,G(16);"00";I(D(H),C(D(H)).1
);.;....4,G(16);"04";N$(X);.O...H.R.X.RR
.2:.4,G(16);"40";I(D(H.1),C(D(H.1)).1);.
.....4,G(16);"45";N$(H)...(.....2. 4:.20
70...<..CF.0.2070...F..CF.1.6000...H."..
...."...MAX. CAPACITY:"Q". FILES": 1....
..VZ.0.8000:.:.1820.9....1,8,0,"$":."...
. EXISTING DATA FILES ON DISK .
".Z....ST..64..#1,A$:.A$..".".2830.J....
ST.64.2890.T."..".";...,..#1,A$:.A$.G(34
).2830...6..A$;:.2860...@..:.2830...J..:
1:.2900:.4000.I.T.."..."...^..Z.0.100:.
W$:.W$.."".2980...H.....R.."............
HIT ANY KEY ".0.|..Z.0.100:.W$:.W$.
."".2980.6.....[...."............
".E....2910.K.....U....2070...
..BL$." "...B.R
C$.N$.H(BL$,18.C(N$)).S.L.RC$.RC$.D$.H(B
L$,7.C(D$))...V.RC$.RC$.DZ$.H(BL$,5.C(DZ
$)).....RC$.RC$.S$.H(BL$,2.C(S$)).*...AF
.AF.1:N$(AF).RC$:..9....I.828.977.M....X
:.I,X:S.S.X:..Y....160,0,177,47,48,13,20
0,177,47,16,8,160......4,177,47,201,1,24
0,1,96,24,165,47,105.R....7,133,110,165,
48,105,0,133,111,160,0,177...&..110,240,
236,133,34,200,177,110,153,34,0,192.5.0.
.2,208,246,165,110,133,113,165,111,133,1
14,24.D.:..165,113,105,3,133,113,144,2,2
30,114,160,0...D..177,113,240,61,133,77,
197,34,144,2,165,34.B.N..133,85,200,177,
113,153,77,0,192,2,208,246...X..160,0,17
7,35,209,78,240,4,176,11,144,207.!.B..20
0,196,85,208,241,196,34,176,198,160,2,17
7.S.L..110,170,177,113,145,110,153,34,0,
138,145,113...V..136,16,240,48,178,24,16
5,110,105,3,133,110. ....144,143,230,111
,208,139.....X.0:.......828:.2620.H....8
28:.2070...... --- AENDERN ---.. ..."...
. CHANGE DATA "
.; ..LF.0:."....TITLE NUMBER";LF:.LF.0.2
070.E F.LF.LF.1:LF$.D(LF):LF$.I(LF$,C(LF
$).1).S P.."..NOW:".. Z..LF.1;.6);N$(LF)
.. ..CC$."".. ..."."LF.1;.6)N$(LF):.".";
.4);:.CC$.P ...CC$."".CC$.G(255)..!...CT
.0.N$(LF).CC$:.828:.CC$.G(255).N$(AF).""
:AF.AF.1..!...2070.6! .. SEARCHING------
--------------.P!*..646,F1:.".... S E
A R C H I N G "..!4..".
.SEARCHING FOR";SF$..!>..SF.0.AF:.SF$.H(
N$(SF),C(SF$)).3440..!H....!R.."..FILE N
OT FOUND ERROR":.2900:.2070.."\.."..CONT
INUE";JN$:.H(JN$,1)."N".2070.."F..3400.1
"P.."......PRG-NO.:";SF.1.T"Z.."....PRG-
NAME: ";H(N$(SF),16).Y"..."....BLOCKS :
";J(N$(SF),19,3).."..."..PRG IS ON DISK
"J(N$(SF),26,3)" SIDE "J(N$(SF),31,1).
A"...3420.P" .. --------.."... SUB MENU.
."... --------.(#...646,F1:.".... MULTI
DISK CATALOG V4 *** SUB MENU ".I#...64
6,F2:."... (C) COPYRIGHT IB HARD & SOFT
, 1984 ":.646,F1..#..B$(1)."LOAD MAIN C
ATALOG FROM DISK"..#..B$(2)."SAVE MAIN C
ATALOG ON DISK"..#..B$(3)."DISPLAY DATA
FILES ON DISK"..$..B$(4)."BACK TO THE MA
IN MENU"..$".HT$."....................".
D$,.VT$."..........................".C$6
.LE$." ".V$@.AC.4:VC.
5:AB.2..$J..H(VT$,VC)..$T..I.1.AC..$^.L.
C(B$(I)):MM.1..$H..L.2..(L.2).MM.0.G$R.L
..(L.2).S$|.LL.20.L..$..B$(I).H(LE$,LL).
B$(I).H(LE$,LL.MM)..%..."."B$(I);:...%..
R.1:.4310.!%...A$.4%...A$.G(13).4350.Q%.
..A$.".".R.R.1:.R.AC.R.AC.R%B..A$.".".R.
R.1:.R.1.R.1:.4260..%L..A$..".".A$..".".
A$..G(13).4260..%V..H(VT$,RR.2.VC);B$(RR
).S%...R.AC.1..H(VT$,AC.2.VC)B$(AC)..%..
.H(VT$,R.2.VC)"."B$(R):.R.AC.R.0.RR.R..&
...4260."&...R.1650,1820,2820,2070.3&...
----------.D&... SUB MENU 2.U&... -----
-----..&N..646,F1:.".... MULTI DISK CATA
LOG V4 *** SUB MENU 2 ".P&X..646,F2:."..
. (C) COPYRIGHT IB HARD & SOFT, 1984 "
:.646,F1..&..B$(1)."CHANGE A RECORD IN C
ATALOG"..'..B$(2)."SORT CATALOG ALPHABET
ICALLY".B'..B$(3)."SEARCHING FOR A RECOR
D".L'..B$(4)."PUT NEW PROGRAMS INTO CATA
LOG"..'..B$(5)."BACK TO THE MAIN MENU"..
'..HT$."....................".R'..VT$.".
........................."..'..LE$."
"..((.AC.5:VC.5:AB.2..(2
..H(VT$,VC)..(<..I.1.AC.3(F.L.C(B$(I)):M
M.1.H(P..L.2..(L.2).MM.0.U(Z.L..(L.2).A(
D.LL.20.L..(N.B$(I).H(LE$,LL).B$(I).H(LE
$,LL.MM)..(X.."."B$(I);:...(..R.1:.5310.
.(...A$.B(...A$.G(13).5350..( ..A$.".".R
.R.1:.R.AC.R.AC..)...A$.".".R.R.1:.R.1.R
.1:.5260.$)...A$..".".A$..".".A$..G(13).
5260.?)...H(VT$,RR.2.VC);B$(RR).A)H..R.A
C.1..H(VT$,AC.2.VC)B$(AC)..)R..H(VT$,R.2
.VC)"."B$(R):.R.AC.R.0.RR.R..)...5260..)
...R.3240,3230,3360,1100,2070.F)P.. ----
------.W)Z.. SUB MENU 3..)... ----------
."*...646,F1:.".... MULTI DISK CATALOG V
4 *** SUB MENU 3 ".C*...646,F2:."... (C)
COPYRIGHT IB HARD & SOFT, 1984 ":.646
,F1..*J.B$(1)."PUT FURTHER PROGRAMS INTO
CATALOG"..*T.B$(2)."GOTO CATALOG COMMAN
D MENU".Z*..B$(3)."GOTO DISK COMMAND MEN
U"..*..B$(4)."RETURN TO MAIN MENU"..+..H
T$."....................".>+..VT$.".....
.....................".]+..LE$."
".P+..AC.4:VC.5:AB.2.+...H(
VT$,VC)..+$..I.1.AC..+..L.C(B$(I)):MM.1.
.+8..L.2..(L.2).MM.0.A+B.L..(L.2).M+L.LL
.20.L..+V.B$(I).H(LE$,LL).B$(I).H(LE$,LL
.MM)..,`.."."B$(I);:...,J.R.1:.6310..,T.
.A$..,~..A$.G(13).6350.K,...A$.".".R.R.1
:.R.AC.R.AC.L,...A$.".".R.R.1:.R.1.R.1:.
6260..,...A$..".".A$..".".A$..G(13).6260
..,...H(VT$,RR.2.VC);B$(RR).M,...R.AC.1.
.H(VT$,AC.2.VC)B$(AC)..,...H(VT$,R.2.VC)
"."B$(R):.R.AC.R.0.RR.R..-D..6260..-N..R
.1100,4000,5000,2070.4-X.. -------------
----.L-B.. CHANGE COLOR TONE.D-L.. -----
------------.M-Q.."."..-V..646,F1:."....
CHANGE THE COLOR TONE OF THE SCREEN ".
E-..."...........PENCOLOR 1 "..-...646,F
2:."...........PENCOLOR 2 ":.646,F1.....
."......BORDER => .F1.".5...."....
BACKGROUND => .F3.".U...."....PENCOLOR
1 => .F5.".}....646,F2:."....PENCOLOR
2 => .F7."......646,F1:.".......HIT .
RETURN. TO EXIT"...F..A$:.A$."".A$.G(0).
R.K..A$.G(13).2070...P..F(A$).133.E(A$).
136.7110../Z..F(A$).132.7140,7150,7160,7
170.//..B.B.1.15:.53280,B:.7030.K/..G.G.
1.15:.53281,G:.7030.`/..F1.F1.1.15:.7030
.U/..F2.F2.1.15:.7030.{/@..../J.. (C)
IB HARD & SOFT, 1984../T.....LA.2F.J
> CLICK IMAGE PREVIEW FOR FULL MODAL