LIBRARY
FILE INFORMATION
FILENAME(S): LIBRARY
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-12-01 01:48:30
APPEARS ON: 1 disk(s)
FILE HASH
477d945e49fd31c5a07fc4bf3292f48ba1d7bb006afda4b7d5c81234f5ca7fe7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD187 DCB 6 88 | LIBRARY | PRG | hedning, Mattias H00r | 10 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 0A 00 86 41 31 24 28 31 35 30 29 3A |..A....A1$(150):|
00000010: 86 41 32 24 28 31 35 30 29 3A 86 41 33 24 28 31 |.A2$(150):.A3$(1|
00000020: 35 30 29 3A 86 50 31 24 28 31 35 30 29 3A 86 50 |50):.P1$(150):.P|
00000030: 32 24 28 31 35 30 29 3A 86 50 33 24 28 31 35 30 |2$(150):.P3$(150|
00000040: 29 00 59 08 0F 00 86 20 50 52 47 24 28 31 35 30 |).Y.... PRG$(150|
00000050: 29 3A 86 49 24 28 33 30 29 00 74 08 14 00 97 35 |):.I$(30).t....5|
00000060: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:|
00000070: 89 34 34 30 00 9B 08 1E 00 8F 2A 2A 20 4C 4F 41 |.440......** LOA|
00000080: 44 20 50 52 4F 47 52 41 4D 20 46 52 4F 4D 20 44 |D PROGRAM FROM D|
00000090: 49 52 45 43 54 4F 52 59 20 2A 2A 00 CA 08 28 00 |IRECTORY **...(.|
000000A0: 99 22 91 91 9E 50 55 54 20 54 48 45 20 44 49 53 |."...PUT THE DIS|
000000B0: 4B 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 |K YOU WISH TO SE|
000000C0: 4C 45 43 54 20 46 52 4F 4D 22 00 F2 08 32 00 99 |LECT FROM"...2..|
000000D0: 22 9E 49 4E 20 54 48 45 20 44 52 49 56 45 2C 54 |".IN THE DRIVE,T|
000000E0: 48 45 4E 20 50 52 45 53 53 20 52 45 54 55 52 4E |HEN PRESS RETURN|
000000F0: 2E 22 00 08 09 3C 00 A1 20 41 4E 24 3A 8B 20 41 |."...<.. AN$:. A|
00000100: 4E 24 B2 22 22 A7 36 30 00 1B 09 41 00 8B 41 4E |N$."".60...A..AN|
00000110: 24 B3 B1 C7 28 31 33 29 A7 36 30 00 53 09 42 00 |$...(13).60.S.B.|
00000120: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 1C |."..............|
00000130: 20 20 20 20 20 20 20 2A 2A 2A 20 9E 4C 4F 41 44 | *** .LOAD|
00000140: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 1C 2A |ING DIRECTORY .*|
00000150: 2A 2A 22 00 86 09 46 00 4C 24 B2 22 13 11 11 11 |**"...F.L$."....|
00000160: 1C 4C 4F 41 44 22 AA C7 28 33 34 29 3A 5A 24 B2 |.LOAD"..(34):Z$.|
00000170: 22 22 3A 59 24 B2 22 22 3A 41 44 52 B2 30 3A 5A |"":Y$."":ADR.0:Z|
00000180: B2 30 3A 59 B2 30 00 96 09 50 00 9F 31 2C 38 2C |.0:Y.0...P..1,8,|
00000190: 30 2C 22 24 30 22 00 A4 09 5A 00 A1 23 31 2C 41 |0,"$0"...Z..#1,A|
000001A0: 24 2C 42 24 00 B2 09 64 00 A1 23 31 2C 41 24 2C |$,B$...d..#1,A$,|
000001B0: 42 24 00 C0 09 6E 00 A1 23 31 2C 41 24 2C 42 24 |B$...n..#1,A$,B$|
000001C0: 00 D9 09 78 00 A1 23 31 2C 42 24 3A 8B 20 53 54 |...x..#1,B$:. ST|
000001D0: B3 B1 30 20 A7 20 31 38 30 00 EF 09 82 00 8B 20 |..0 . 180...... |
000001E0: 42 24 B3 B1 C7 28 33 34 29 20 A7 20 31 32 30 00 |B$...(34) . 120.|
000001F0: 1E 0A 8C 00 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 |.....#1,B$:. B$.|
00000200: B1 C7 28 33 34 29 A7 50 52 47 24 28 4E 29 B2 50 |..(34).PRG$(N).P|
00000210: 52 47 24 28 4E 29 AA 42 24 3A 89 31 34 30 00 3A |RG$(N).B$:.140.:|
00000220: 0A 96 00 A1 23 31 2C 42 24 3A 8B 20 42 24 B2 C7 |....#1,B$:. B$..|
00000230: 28 33 32 29 20 A7 20 31 35 30 00 57 0A A0 00 8B |(32) . 150.W....|
00000240: 20 42 24 B2 22 53 22 A7 50 52 47 24 28 4E 29 B2 | B$."S".PRG$(N).|
00000250: 22 22 3A 89 31 30 30 00 6C 0A AA 00 8B 53 54 B2 |"":.100.l....ST.|
00000260: 30 A7 4E B2 4E AA 31 3A 89 31 30 30 00 73 0A B4 |0.N.N.1:.100.s..|
00000270: 00 A0 31 00 7D 0A BE 00 50 52 B2 33 30 00 B3 0A |..1.}...PR.30...|
00000280: C8 00 99 22 93 12 9A 11 20 20 20 4C 4F 41 44 20 |...".... LOAD |
00000290: 41 20 50 52 4F 47 52 41 4D 20 46 52 4F 4D 20 54 |A PROGRAM FROM T|
000002A0: 48 45 20 44 49 52 45 43 54 4F 52 59 20 20 20 13 |HE DIRECTORY .|
000002B0: 11 11 22 00 C4 0A CD 00 8B 4E B1 50 52 A7 4E 4F |.."......N.PR.NO|
000002C0: 25 B2 31 35 00 D6 0A D2 00 8B 4E B3 50 52 A7 4E |%.15......N.PR.N|
000002D0: 4F 25 B2 4E AD 32 00 E3 0A D7 00 81 58 B2 31 A4 |O%.N.2......X.1.|
000002E0: 4E 4F 25 00 FB 0A DC 00 99 22 1C 22 3B 58 3B 22 |NO%......".";X;"|
000002F0: 1E 20 22 3B 50 52 47 24 28 58 29 00 09 0B E1 00 |. ";PRG$(X).....|
00000300: 82 58 3A 99 22 13 11 11 22 00 17 0B E6 00 8B 4E |.X:."..."......N|
00000310: B1 50 52 A7 32 34 35 00 28 0B EB 00 81 58 B2 4E |.PR.245.(....X.N|
00000320: 4F 25 AA 31 A4 4E AB 31 00 31 0B F0 00 89 32 35 |O%.1.N.1.1....25|
00000330: 30 00 41 0B F5 00 81 58 B2 4E 4F 25 AA 31 A4 50 |0.A....X.NO%.1.P|
00000340: 52 00 5D 0B FA 00 99 A3 32 30 29 22 1C 22 3B 58 |R.].....20)".";X|
00000350: 3B 22 1E 20 22 3B 50 52 47 24 28 58 29 00 64 0B |;". ";PRG$(X).d.|
00000360: FF 00 82 58 00 74 0B 00 01 8B 4E B3 50 52 AA 31 |...X.t....N.PR.1|
00000370: A7 32 36 35 00 A2 0B 01 01 99 22 11 9E 54 48 45 |.265......"..THE|
00000380: 52 45 20 41 52 45 20 4D 4F 52 45 20 50 52 4F 47 |RE ARE MORE PROG|
00000390: 52 41 4D 53 20 4F 4E 20 54 48 45 20 44 49 53 4B |RAMS ON THE DISK|
000003A0: 2E 22 00 CB 0B 03 01 99 22 44 4F 20 59 4F 55 20 |."......"DO YOU |
000003B0: 57 49 53 48 20 54 4F 20 53 45 45 20 54 48 45 4D |WISH TO SEE THEM|
000003C0: 3F 28 1C 59 9E 2F 1C 4E 9E 29 22 00 E0 0B 04 01 |?(.Y./.N.)".....|
000003D0: A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 32 36 30 |.AN$:.AN$."".260|
000003E0: 00 FB 0B 06 01 8B 41 4E 24 B2 22 59 22 A7 50 52 |......AN$."Y".PR|
000003F0: B2 50 52 AA 33 30 3A 89 32 30 30 00 0D 0C 08 01 |.PR.30:.200.....|
00000400: 8B 41 4E 24 B3 B1 22 4E 22 A7 32 36 30 00 35 0C |.AN$.."N".260.5.|
00000410: 09 01 85 22 11 11 9E 57 48 49 43 48 20 50 52 4F |..."...WHICH PRO|
00000420: 47 52 41 4D 20 1C 23 9E 20 54 4F 20 4C 4F 41 44 |GRAM .#. TO LOAD|
00000430: 22 3B 41 4E 24 00 4E 0C 0B 01 8B C5 28 41 4E 24 |";AN$.N.....(AN$|
00000440: 29 B1 4E A7 99 22 91 91 22 3A 89 32 36 35 00 5B |).N.."..":.265.[|
00000450: 0C 0E 01 43 B2 C5 28 41 4E 24 29 00 6E 0C 2C 01 |...C..(AN$).n.,.|
00000460: 9F 32 2C 38 2C 30 2C 50 52 47 24 28 43 29 00 7C |.2,8,0,PRG$(C).||
00000470: 0C 36 01 A1 23 32 2C 5A 24 2C 59 24 00 83 0C 40 |.6..#2,Z$,Y$...@|
00000480: 01 A0 32 00 AD 0C 4A 01 5A B2 C6 28 5A 24 AA C7 |..2...J.Z..(Z$..|
00000490: 28 30 29 29 3A 59 B2 C6 28 59 24 AA C7 28 30 29 |(0)):Y..(Y$..(0)|
000004A0: 29 3A 41 44 52 B2 59 AC 32 35 36 AA 5A 00 CD 0C |):ADR.Y.256.Z...|
000004B0: 54 01 8B 20 28 41 44 52 B2 32 30 34 38 29 B0 28 |T.. (ADR.2048).(|
000004C0: 41 44 52 B2 32 30 34 39 29 A7 33 39 30 00 E2 0C |ADR.2049).390...|
000004D0: 5E 01 8B 20 41 44 52 B2 33 32 37 36 38 20 A7 34 |^.. ADR.32768 .4|
000004E0: 31 30 00 F6 0C 68 01 8B 20 41 44 52 B3 32 30 34 |10...h.. ADR.204|
000004F0: 38 20 A7 34 32 35 00 17 0D 72 01 99 22 93 22 AA |8 .425...r..".".|
00000500: 4C 24 AA 50 52 47 24 28 43 29 AA C7 28 33 34 29 |L$.PRG$(C)..(34)|
00000510: AA 22 2C 38 2C 31 22 00 2D 0D 77 01 99 22 11 11 |.",8,1".-.w.."..|
00000520: 11 11 22 3B 22 53 59 53 22 3B 41 44 52 00 4F 0D |..";"SYS";ADR.O.|
00000530: 7C 01 99 22 13 22 3A 97 36 33 31 2C 31 33 3A 97 ||..".":.631,13:.|
00000540: 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A 80 00 |632,13:.198,2:..|
00000550: 6E 0D 86 01 99 22 93 22 AA 4C 24 AA 50 52 47 24 |n....".".L$.PRG$|
00000560: 28 43 29 AA C7 28 33 34 29 AA 22 2C 38 22 00 7D |(C)..(34).",8".}|
00000570: 0D 8B 01 99 22 11 11 11 11 52 55 4E 22 00 9F 0D |...."....RUN"...|
00000580: 90 01 99 22 13 22 3A 97 36 33 31 2C 31 33 3A 97 |...".":.631,13:.|
00000590: 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A 80 00 |632,13:.198,2:..|
000005A0: C0 0D 9A 01 99 22 93 22 AA 4C 24 AA 50 52 47 24 |.....".".L$.PRG$|
000005B0: 28 43 29 AA C7 28 33 34 29 AA 22 2C 38 2C 31 22 |(C)..(34).",8,1"|
000005C0: 00 D2 0D 9F 01 99 22 11 11 11 11 53 59 53 39 30 |......"....SYS90|
000005D0: 34 22 00 F4 0D A4 01 99 22 13 22 3A 97 36 33 31 |4"......".":.631|
000005E0: 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 31 39 38 |,13:.632,13:.198|
000005F0: 2C 32 3A 80 00 1A 0E A9 01 99 22 93 22 AA 4C 24 |,2:.......".".L$|
00000600: AA 50 52 47 24 28 43 29 AA C7 28 33 34 29 AA 22 |.PRG$(C)..(34)."|
00000610: 2C 38 2C 31 22 AA 22 13 11 22 00 34 0E AE 01 99 |,8,1"."..".4....|
00000620: 22 13 22 3A 97 36 33 31 2C 31 33 3A 97 31 39 38 |".":.631,13:.198|
00000630: 2C 31 3A 80 00 49 0E B8 01 8F 2A 2A 20 4D 41 49 |,1:..I....** MAI|
00000640: 4E 20 4D 45 4E 55 20 2A 2A 00 84 0E C2 01 99 C7 |N MENU **.......|
00000650: 28 31 34 32 29 3A 99 22 93 11 12 9A 20 20 20 20 |(142):.".... |
00000660: 53 20 4F 20 46 20 54 20 57 20 41 20 52 20 45 20 |S O F T W A R E |
00000670: 20 20 4C 20 49 20 42 20 52 20 41 20 52 20 59 20 | L I B R A R Y |
00000680: 20 20 20 22 00 9F 0E CC 01 99 22 11 11 1D 1D 1D | "......".....|
00000690: 9E 59 4F 55 52 20 4F 50 54 49 4F 4E 53 3A 22 00 |.YOUR OPTIONS:".|
000006A0: CE 0E D6 01 99 22 11 11 1D 1D 1D 1D 1D 1D 1E 28 |.....".........(|
000006B0: 1C 31 1E 29 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |.1.) INFORMATION|
000006C0: 20 41 42 4F 55 54 20 48 2E 41 2E 4C 2E 22 00 00 | ABOUT H.A.L."..|
000006D0: 0F E0 01 99 22 11 1D 1D 1D 1D 1D 1D 1E 28 1C 32 |...."........(.2|
000006E0: 1E 29 20 41 43 43 45 53 53 20 59 4F 55 52 20 53 |.) ACCESS YOUR S|
000006F0: 4F 46 54 57 41 52 45 20 43 41 54 41 4C 4F 47 22 |OFTWARE CATALOG"|
00000700: 00 30 0F EA 01 99 22 11 1D 1D 1D 1D 1D 1D 1E 28 |.0...."........(|
00000710: 1C 33 1E 29 20 4C 4F 41 44 20 46 52 4F 4D 20 41 |.3.) LOAD FROM A|
00000720: 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 | DISK DIRECTORY"|
00000730: 00 5F 0F EF 01 99 22 11 1D 1D 1D 1D 1D 1D 1E 28 |._...."........(|
00000740: 1C 34 1E 29 20 56 49 45 57 2F 50 52 49 4E 54 20 |.4.) VIEW/PRINT |
00000750: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 00 |DISK DIRECTORY".|
00000760: 8A 0F F4 01 99 22 11 1D 1D 1D 1D 1D 1D 1E 28 1C |....."........(.|
00000770: 35 1E 29 20 52 45 41 44 2F 50 52 49 4E 54 20 53 |5.) READ/PRINT S|
00000780: 45 51 2E 20 46 49 4C 45 53 22 00 B0 0F FE 01 99 |EQ. FILES"......|
00000790: 22 11 1D 1D 1D 1D 1D 1D 1E 28 1C 36 1E 29 20 52 |"........(.6.) R|
000007A0: 45 54 55 52 4E 20 54 4F 20 48 2E 41 2E 4C 2E 22 |ETURN TO H.A.L."|
000007B0: 00 D4 0F 08 02 99 22 11 11 1D 1D 1D 9E 57 48 49 |......"......WHI|
000007C0: 43 48 20 4F 50 54 49 4F 4E 20 1C 23 9E 20 3F 22 |CH OPTION .#. ?"|
000007D0: 3A 4D B2 30 00 E9 0F 12 02 A1 41 4E 24 3A 8B 41 |:M.0......AN$:.A|
000007E0: 4E 24 B2 22 22 A7 35 33 30 00 FB 0F 1C 02 8B 41 |N$."".530......A|
000007F0: 4E 24 B2 22 31 22 A7 31 30 32 30 00 0C 10 26 02 |N$."1".1020...&.|
00000800: 8B 41 4E 24 B2 22 32 22 A7 36 31 30 00 1C 10 30 |.AN$."2".610...0|
00000810: 02 8B 41 4E 24 B2 22 33 22 A7 34 30 00 2E 10 3A |..AN$."3".40...:|
00000820: 02 8B 41 4E 24 B2 22 34 22 A7 31 32 30 30 00 49 |..AN$."4".1200.I|
00000830: 10 44 02 8B 41 4E 24 B2 22 35 22 A7 48 44 24 B2 |.D..AN$."5".HD$.|
00000840: 22 50 22 3A 89 31 35 30 30 00 5C 10 4E 02 8B 41 |"P":.1500.\.N..A|
00000850: 4E 24 B2 22 36 22 A7 31 30 30 30 30 00 65 10 58 |N$."6".10000.e.X|
00000860: 02 89 35 33 30 00 88 10 62 02 8F 2A 2A 20 41 43 |..530...b..** AC|
00000870: 43 45 53 53 20 43 41 54 41 4C 4F 47 20 52 4F 55 |CESS CATALOG ROU|
00000880: 54 49 4E 45 53 20 2A 2A 00 B2 10 63 02 9F 31 35 |TINES **...c..15|
00000890: 2C 38 2C 31 35 3A 9F 38 2C 38 2C 38 2C 22 30 3A |,8,15:.8,8,8,"0:|
000008A0: 43 41 54 41 4C 4F 47 2C 53 2C 52 22 3A 8D 32 30 |CATALOG,S,R":.20|
000008B0: 30 30 00 C2 10 64 02 84 38 2C 58 24 3A 8D 32 30 |00...d..8,X$:.20|
000008C0: 30 30 00 CD 10 65 02 A0 38 3A A0 31 35 00 DF 10 |00...e..8:.15...|
000008D0: 66 02 8B 20 58 24 B3 B1 22 30 22 A7 36 33 30 00 |f.. X$.."0".630.|
000008E0: 12 11 67 02 99 22 93 11 11 11 11 11 11 11 11 11 |..g.."..........|
000008F0: 1C 20 20 20 20 20 20 53 4F 46 54 57 41 52 45 20 |. SOFTWARE |
00000900: 43 41 54 41 4C 4F 47 20 49 53 20 45 4D 50 54 59 |CATALOG IS EMPTY|
00000910: 2E 22 00 48 11 68 02 99 22 9E 11 11 44 4F 20 59 |.".H.h.."...DO Y|
00000920: 4F 55 20 57 49 53 48 20 54 4F 20 4D 41 4B 45 20 |OU WISH TO MAKE |
00000930: 45 4E 54 52 49 45 53 20 54 4F 20 49 54 3F 28 1C |ENTRIES TO IT?(.|
00000940: 59 9E 2F 1C 4E 9E 29 22 00 5D 11 69 02 A1 41 4E |Y./.N.)".].i..AN|
00000950: 24 3A 8B 41 4E 24 B2 22 22 A7 36 31 37 00 6E 11 |$:.AN$."".617.n.|
00000960: 6A 02 8B 41 4E 24 B2 22 59 22 A7 38 31 30 00 80 |j..AN$."Y".810..|
00000970: 11 6B 02 8B 41 4E 24 B3 B1 22 4E 22 A7 36 31 37 |.k..AN$.."N".617|
00000980: 00 89 11 6C 02 89 34 34 30 00 B3 11 76 02 9F 31 |...l..440...v..1|
00000990: 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 32 30 30 |5,8,15,"I0":.200|
000009A0: 30 3A 43 52 24 B2 C7 28 31 33 29 3A 4A B2 31 3A |0:CR$..(13):J.1:|
000009B0: 46 B2 31 00 D4 11 80 02 9F 38 2C 38 2C 38 2C 22 |F.1......8,8,8,"|
000009C0: 30 3A 43 41 54 41 4C 4F 47 2C 53 2C 52 22 3A 8D |0:CATALOG,S,R":.|
000009D0: 32 30 30 30 00 F0 11 8A 02 84 38 2C 50 31 24 28 |2000......8,P1$(|
000009E0: 4A 29 2C 50 32 24 28 4A 29 2C 50 33 24 28 4A 29 |J),P2$(J),P3$(J)|
000009F0: 00 00 12 94 02 52 53 B2 53 54 3A 8D 32 30 30 30 |.....RS.ST:.2000|
00000A00: 00 11 12 99 02 8B 20 52 53 B2 36 34 20 A7 36 38 |...... RS.64 .68|
00000A10: 30 00 21 12 9A 02 8B 20 52 53 B2 30 20 A7 36 37 |0.!.... RS.0 .67|
00000A20: 30 00 43 12 9B 02 99 22 42 41 44 1D 44 49 53 4B |0.C...."BAD.DISK|
00000A30: 1D 53 54 41 54 55 53 1D 49 53 1D 22 52 53 3A 89 |.STATUS.IS."RS:.|
00000A40: 36 38 30 00 52 12 9E 02 4A B2 4A AA 31 3A 89 36 |680.R...J.J.1:.6|
00000A50: 35 30 00 5D 12 A8 02 A0 38 3A A0 31 35 00 65 12 |50.]....8:.15.e.|
00000A60: B2 02 58 B2 31 00 98 12 BC 02 99 22 93 11 9E 43 |..X.1......"...C|
00000A70: 55 52 52 45 4E 54 20 54 49 54 4C 45 53 20 49 4E |URRENT TITLES IN|
00000A80: 20 59 4F 55 52 20 53 4F 46 54 57 41 52 45 20 43 | YOUR SOFTWARE C|
00000A90: 41 54 41 4C 4F 47 3A 22 00 C1 12 C6 02 81 58 B2 |ATALOG:"......X.|
00000AA0: 58 A4 28 58 AA 31 34 29 3A 99 A3 35 29 22 1E 23 |X.(X.14):..5)".#|
00000AB0: 1C 22 58 22 1E 2D 20 22 50 31 24 28 58 29 3A 82 |."X".- "P1$(X):.|
00000AC0: 58 00 F7 12 D0 02 99 22 9E 11 50 52 45 53 53 27 |X......"..PRESS'|
00000AD0: 1C 4C 9E 27 54 4F 20 4C 4F 41 44 2C 27 1C 41 9E |.L.'TO LOAD,'.A.|
00000AE0: 27 54 4F 20 41 44 44 2C 27 1C 44 9E 27 54 4F 20 |'TO ADD,'.D.'TO |
00000AF0: 44 45 4C 45 54 45 22 00 2C 13 DA 02 99 22 9E 11 |DELETE".,...."..|
00000B00: 27 1C 4D 9E 27 46 4F 52 20 4D 4F 52 45 20 54 49 |'.M.'FOR MORE TI|
00000B10: 54 4C 45 53 2C 27 1C 52 9E 27 54 4F 20 52 45 54 |TLES,'.R.'TO RET|
00000B20: 55 52 4E 20 54 4F 20 4D 45 4E 55 22 00 41 13 E4 |URN TO MENU".A..|
00000B30: 02 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 37 34 |..AN$:.AN$."".74|
00000B40: 30 00 53 13 EE 02 8B 41 4E 24 B2 22 4C 22 A7 31 |0.S....AN$."L".1|
00000B50: 31 30 30 00 64 13 F8 02 8B 41 4E 24 B2 22 41 22 |100.d....AN$."A"|
00000B60: A7 38 31 30 00 76 13 02 03 8B 41 4E 24 B2 22 44 |.810.v....AN$."D|
00000B70: 22 A7 31 34 30 30 00 87 13 0C 03 8B 41 4E 24 B2 |".1400......AN$.|
00000B80: 22 4D 22 A7 37 30 30 00 98 13 16 03 8B 41 4E 24 |"M".700......AN$|
00000B90: B2 22 52 22 A7 34 34 30 00 A1 13 20 03 89 34 34 |."R".440... ..44|
00000BA0: 30 00 C4 13 2A 03 8F 2A 2A 20 41 44 44 20 54 4F |0...*..** ADD TO|
00000BB0: 20 4C 49 42 52 41 52 59 20 52 4F 55 54 49 4E 45 | LIBRARY ROUTINE|
00000BC0: 20 2A 2A 2A 00 00 14 34 03 99 22 93 11 11 11 11 | ***...4..".....|
00000BD0: 9E 45 4E 54 45 52 20 54 48 45 20 54 49 54 4C 45 |.ENTER THE TITLE|
00000BE0: 20 4F 46 20 4E 45 57 20 53 4F 46 54 57 41 52 45 | OF NEW SOFTWARE|
00000BF0: 20 54 4F 20 41 44 44 3A 11 22 3A 4D B2 4D AA 31 | TO ADD:.":M.M.1|
00000C00: 00 37 14 3E 03 85 22 1E 22 3B 41 31 24 28 4D 29 |.7.>..".";A1$(M)|
00000C10: 3A 99 22 9E 11 11 45 4E 54 45 52 20 46 49 4C 45 |:."...ENTER FILE|
00000C20: 4E 41 4D 45 20 55 53 45 44 20 54 4F 20 4C 4F 41 |NAME USED TO LOA|
00000C30: 44 20 49 54 3A 11 22 00 7A 14 48 03 85 22 1E 22 |D IT:.".z.H.."."|
00000C40: 3B 41 32 24 28 4D 29 3A 99 22 9E 11 11 43 48 4F |;A2$(M):."...CHO|
00000C50: 4F 53 45 20 57 48 49 43 48 20 41 50 50 4C 49 45 |OSE WHICH APPLIE|
00000C60: 53 3A 28 1C 31 9E 29 27 2C 38 27 4F 52 28 1C 32 |S:(.1.)',8'OR(.2|
00000C70: 9E 29 27 2C 38 2C 31 27 3A 22 00 93 14 52 03 85 |.)',8,1':"...R..|
00000C80: 22 1E 22 3B 41 24 3A 8B C5 28 41 24 29 B1 32 A7 |".";A$:..(A$).2.|
00000C90: 38 35 30 00 AA 14 5C 03 8B 41 24 B2 22 31 22 A7 |850...\..A$."1".|
00000CA0: 41 33 24 28 4D 29 B2 22 41 22 00 C1 14 66 03 8B |A3$(M)."A"...f..|
00000CB0: 41 24 B2 22 32 22 A7 41 33 24 28 4D 29 B2 22 42 |A$."2".A3$(M)."B|
00000CC0: 22 00 F3 14 70 03 85 22 9E 11 11 44 4F 20 59 4F |"...p.."...DO YO|
00000CD0: 55 20 57 41 4E 54 20 54 4F 20 41 44 44 20 4D 4F |U WANT TO ADD MO|
00000CE0: 52 45 20 54 49 54 4C 45 53 28 59 2D 4E 29 22 3B |RE TITLES(Y-N)";|
00000CF0: 41 4E 24 00 04 15 7A 03 8B 41 4E 24 B2 22 59 22 |AN$...z..AN$."Y"|
00000D00: A7 38 31 30 00 15 15 84 03 8B 41 4E 24 B2 22 4E |.810......AN$."N|
00000D10: 22 A7 39 32 30 00 1E 15 8E 03 89 38 38 30 00 3A |".920......880.:|
00000D20: 15 98 03 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |....15,8,15:.15,|
00000D30: 22 49 30 22 3A 8D 32 30 30 30 00 42 15 9D 03 41 |"I0":.2000.B...A|
00000D40: B2 31 00 64 15 A2 03 9F 38 2C 38 2C 38 2C 22 40 |.1.d....8,8,8,"@|
00000D50: 30 3A 43 41 54 41 4C 4F 47 2C 53 2C 57 22 3A 8D |0:CATALOG,S,W":.|
00000D60: 32 30 30 30 00 74 15 A4 03 8B 20 46 B3 B1 31 20 |2000.t.... F..1 |
00000D70: A7 39 35 30 00 80 15 A7 03 81 20 4B B2 31 A4 4A |.950...... K.1.J|
00000D80: 00 8E 15 AC 03 98 38 2C 50 31 24 28 4B 29 00 9C |......8,P1$(K)..|
00000D90: 15 AD 03 98 38 2C 50 32 24 28 4B 29 00 AA 15 AE |....8,P2$(K)....|
00000DA0: 03 98 38 2C 50 33 24 28 4B 29 00 B7 15 B1 03 8D |..8,P3$(K)......|
00000DB0: 32 30 30 30 3A 82 4B 00 C2 15 B6 03 81 4E B2 31 |2000:.K......N.1|
00000DC0: A4 4D 00 D0 15 C0 03 98 38 2C 41 31 24 28 4E 29 |.M......8,A1$(N)|
00000DD0: 00 DE 15 C1 03 98 38 2C 41 32 24 28 4E 29 00 EC |......8,A2$(N)..|
00000DE0: 15 C2 03 98 38 2C 41 33 24 28 4E 29 00 00 16 C5 |....8,A3$(N)....|
00000DF0: 03 8D 32 30 30 30 3A 82 4E 3A A0 38 3A A0 31 35 |..2000:.N:.8:.15|
00000E00: 00 2A 16 CA 03 99 22 1C 11 59 4F 55 52 20 4E 45 |.*...."..YOUR NE|
00000E10: 57 20 53 4F 46 54 57 41 52 45 20 48 41 53 20 42 |W SOFTWARE HAS B|
00000E20: 45 45 4E 20 41 44 44 45 44 22 00 61 16 D4 03 99 |EEN ADDED".a....|
00000E30: 22 54 4F 20 54 48 45 20 4C 49 42 52 41 52 59 27 |"TO THE LIBRARY'|
00000E40: 53 20 43 41 54 41 4C 4F 47 2E 22 3A 81 54 B2 31 |S CATALOG.":.T.1|
00000E50: A4 33 30 30 30 3A 82 54 3A 46 B2 31 3A 89 34 34 |.3000:.T:F.1:.44|
00000E60: 30 00 67 16 DE 03 90 00 88 16 FC 03 8F 20 2A 2A |0.g.......... **|
00000E70: 2A 20 4C 4F 41 44 20 44 4F 43 55 4D 45 4E 54 41 |* LOAD DOCUMENTA|
00000E80: 54 49 4F 4E 20 2A 2A 2A 00 A9 16 06 04 47 31 24 |TION ***.....G1$|
00000E90: B2 22 44 4F 43 55 4D 45 4E 54 41 54 49 4F 4E 22 |."DOCUMENTATION"|
00000EA0: 3A 47 32 24 B2 22 2C 38 22 00 C5 16 10 04 97 35 |:G2$.",8"......5|
00000EB0: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:|
00000EC0: 99 22 93 90 22 00 D0 16 24 04 97 31 39 38 2C 39 |.".."...$..198,9|
00000ED0: 00 E8 16 2E 04 99 22 93 11 11 4C 4F 41 44 22 C7 |......"...LOAD".|
00000EE0: 28 33 34 29 47 31 24 3B 00 FB 16 38 04 99 20 C7 |(34)G1$;...8.. .|
00000EF0: 28 33 34 29 47 32 24 22 13 22 3B 00 30 17 42 04 |(34)G2$".";.0.B.|
00000F00: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 36 33 3A |.631,13:.632,63:|
00000F10: 97 36 33 33 2C 33 34 3A 97 36 33 34 2C 31 35 38 |.633,34:.634,158|
00000F20: 3A 97 36 33 35 2C 33 34 3A 97 36 33 36 2C 31 33 |:.635,34:.636,13|
00000F30: 00 4D 17 47 04 97 36 33 37 2C 38 32 3A 97 36 33 |.M.G..637,82:.63|
00000F40: 38 2C 31 31 37 3A 97 36 33 39 2C 31 33 00 53 17 |8,117:.639,13.S.|
00000F50: 48 04 80 00 7A 17 4C 04 85 22 11 4C 49 4E 45 20 |H...z.L..".LINE |
00000F60: 23 20 4F 46 20 53 4F 46 54 57 41 52 45 20 54 4F |# OF SOFTWARE TO|
00000F70: 20 4C 4F 41 44 22 3B 41 4E 24 00 87 17 56 04 4C | LOAD";AN$...V.L|
00000F80: B2 C5 28 41 4E 24 29 00 C2 17 60 04 47 31 24 B2 |..(AN$)...`.G1$.|
00000F90: 50 32 24 28 4C 29 3A 8B 50 33 24 28 4C 29 B2 22 |P2$(L):.P3$(L)."|
00000FA0: 41 22 A7 47 32 24 B2 22 2C 38 22 3A 8B 50 33 24 |A".G2$.",8":.P3$|
00000FB0: 28 4C 29 B2 22 42 22 A7 47 32 24 B2 22 2C 38 2C |(L)."B".G2$.",8,|
00000FC0: 31 22 00 DD 17 65 04 8B 50 33 24 28 4C 29 B2 22 |1"...e..P3$(L)."|
00000FD0: 42 22 A7 47 32 24 B2 22 2C 38 2C 31 22 00 05 18 |B".G2$.",8,1"...|
00000FE0: 6A 04 99 22 9E 91 50 4C 45 41 53 45 20 50 55 54 |j.."..PLEASE PUT|
00000FF0: 20 54 48 45 20 1C 22 50 31 24 28 4C 29 22 9E 20 | THE ."P1$(L)". |
00001000: 44 49 53 4B 22 00 2E 18 74 04 99 22 49 4E 54 4F |DISK"...t.."INTO|
00001010: 20 54 48 45 20 44 52 49 56 45 2C 41 4E 44 20 50 | THE DRIVE,AND P|
00001020: 52 45 53 53 20 27 52 45 54 55 52 4E 27 22 00 4A |RESS 'RETURN'".J|
00001030: 18 7E 04 A1 20 41 4E 24 3A 8B 20 41 4E 24 B3 B1 |.~.. AN$:. AN$..|
00001040: C7 28 31 33 29 A7 31 31 35 30 00 54 18 88 04 89 |.(13).1150.T....|
00001050: 31 30 33 30 00 74 18 B0 04 8F 20 2A 2A 2A 20 44 |1030.t.... *** D|
00001060: 49 52 45 43 54 4F 52 59 20 52 4F 55 54 49 4E 45 |IRECTORY ROUTINE|
00001070: 20 2A 2A 2A 00 A7 18 B5 04 99 22 93 12 9A 11 20 | ***......".... |
00001080: 20 20 20 20 20 4C 20 49 20 53 20 54 20 20 20 44 | L I S T D|
00001090: 20 49 20 52 20 45 20 43 20 54 20 4F 20 52 20 59 | I R E C T O R Y|
000010A0: 20 A0 A0 A0 A0 20 22 00 D0 18 BA 04 99 22 1C 11 | .... "......"..|
000010B0: 12 56 92 9E 49 45 57 20 4F 52 20 1C 12 50 92 9E |.V..IEW OR ..P..|
000010C0: 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 3F 22 |RINT DIRECTORY?"|
000010D0: 00 E6 18 BF 04 A1 41 4E 24 3A 8B 41 4E 24 B2 22 |......AN$:.AN$."|
000010E0: 22 A7 31 32 31 35 00 FE 18 C4 04 8B 41 4E 24 B2 |".1215......AN$.|
000010F0: 22 56 22 A7 9F 33 2C 33 3A 89 31 32 33 35 00 1C |"V"..3,3:.1235..|
00001100: 19 C9 04 8B 41 4E 24 B2 22 50 22 A7 9F 33 2C 34 |....AN$."P"..3,4|
00001110: 3A 8D 31 39 32 35 3A 89 31 32 33 35 00 26 19 CE |:.1925:.1235.&..|
00001120: 04 89 31 32 31 35 00 56 19 D3 04 8D 31 32 36 30 |..1215.V....1260|
00001130: 3A 99 22 9E 4C 49 53 54 20 41 4E 4F 54 48 45 52 |:.".LIST ANOTHER|
00001140: 20 44 49 52 45 43 54 4F 52 59 3F 20 28 1C 59 9E | DIRECTORY? (.Y.|
00001150: 2F 1C 4E 9E 29 22 00 6C 19 D8 04 A1 41 4E 24 3A |/.N.)".l....AN$:|
00001160: 8B 41 4E 24 B2 22 22 A7 31 32 34 30 00 7D 19 DA |.AN$."".1240.}..|
00001170: 04 8B 41 4E 24 B2 22 4E 22 A7 34 34 30 00 90 19 |..AN$."N".440...|
00001180: DD 04 8B 41 4E 24 B3 B1 22 59 22 A7 31 32 34 30 |...AN$.."Y".1240|
00001190: 00 9A 19 E2 04 89 31 32 30 35 00 B6 19 E7 04 8F |......1205......|
000011A0: 20 20 44 49 52 45 43 54 4F 52 59 20 53 55 42 52 | DIRECTORY SUBR|
000011B0: 4F 55 54 49 4E 45 00 C3 19 EC 04 5A 30 24 B2 C7 |OUTINE.....Z0$..|
000011C0: 28 30 29 00 D5 19 F1 04 9F 38 2C 38 2C 30 2C 22 |(0)......8,8,0,"|
000011D0: 24 30 3A 2A 22 00 0B 1A F6 04 99 22 11 9E 1C 12 |$0:*"......"....|
000011E0: 53 50 41 43 45 92 9E 20 54 4F 47 47 4C 45 53 20 |SPACE.. TOGGLES |
000011F0: 50 41 55 53 45 20 20 20 1C 12 53 48 49 46 54 92 |PAUSE ..SHIFT.|
00001200: 9E 20 54 4F 20 45 4E 44 11 1E 22 00 25 1A FB 04 |. TO END..".%...|
00001210: A1 23 38 2C 41 24 2C 41 24 3A 8B 41 24 B2 22 22 |.#8,A$,A$:.A$.""|
00001220: A7 31 33 35 35 00 39 1A 00 05 A1 23 38 2C 41 24 |.1355.9....#8,A$|
00001230: 2C 41 24 2C 41 24 2C 44 24 00 6E 1A 05 05 42 4B |,A$,A$,D$.n...BK|
00001240: B2 C6 28 41 24 AA 5A 30 24 29 AA 32 35 36 AC C6 |..(A$.Z0$).256..|
00001250: 28 44 24 AA 5A 30 24 29 3A 42 4B 24 B2 22 20 20 |(D$.Z0$):BK$." |
00001260: 20 20 20 22 AA C4 28 42 4B 29 AA 22 20 22 00 80 | "..(BK)." "..|
00001270: 1A 0A 05 8B 53 54 B2 30 A7 98 33 2C 42 4B 24 3B |....ST.0..3,BK$;|
00001280: 00 90 1A 0F 05 8B 53 54 B3 B1 30 A7 31 33 35 35 |......ST..0.1355|
00001290: 00 D5 1A 14 05 A1 23 38 2C 49 24 28 31 29 2C 49 |......#8,I$(1),I|
000012A0: 24 28 32 29 2C 49 24 28 33 29 2C 49 24 28 34 29 |$(2),I$(3),I$(4)|
000012B0: 2C 49 24 28 35 29 2C 49 24 28 36 29 2C 49 24 28 |,I$(5),I$(6),I$(|
000012C0: 37 29 2C 49 24 28 38 29 2C 49 24 28 39 29 2C 49 |7),I$(8),I$(9),I|
000012D0: 24 28 31 30 29 00 23 1B 19 05 A1 23 38 2C 49 24 |$(10).#....#8,I$|
000012E0: 28 31 31 29 2C 49 24 28 31 32 29 2C 49 24 28 31 |(11),I$(12),I$(1|
000012F0: 33 29 2C 49 24 28 31 34 29 2C 49 24 28 31 35 29 |3),I$(14),I$(15)|
00001300: 2C 49 24 28 31 36 29 2C 49 24 28 31 37 29 2C 49 |,I$(16),I$(17),I|
00001310: 24 28 31 38 29 2C 49 24 28 31 39 29 2C 49 24 28 |$(18),I$(19),I$(|
00001320: 32 30 29 00 55 1B 1E 05 A1 23 38 2C 49 24 28 32 |20).U....#8,I$(2|
00001330: 31 29 2C 49 24 28 32 32 29 2C 49 24 28 32 33 29 |1),I$(22),I$(23)|
00001340: 2C 49 24 28 32 34 29 2C 49 24 28 32 35 29 2C 49 |,I$(24),I$(25),I|
00001350: 24 28 32 36 29 00 91 1B 23 05 98 33 2C 49 24 28 |$(26)...#..3,I$(|
00001360: 31 29 49 24 28 32 29 49 24 28 33 29 49 24 28 34 |1)I$(2)I$(3)I$(4|
00001370: 29 49 24 28 35 29 49 24 28 36 29 49 24 28 37 29 |)I$(5)I$(6)I$(7)|
00001380: 49 24 28 38 29 49 24 28 39 29 49 24 28 31 30 29 |I$(8)I$(9)I$(10)|
00001390: 3B 00 D6 1B 28 05 98 33 2C 49 24 28 31 31 29 49 |;...(..3,I$(11)I|
000013A0: 24 28 31 32 29 49 24 28 31 33 29 49 24 28 31 34 |$(12)I$(13)I$(14|
000013B0: 29 49 24 28 31 35 29 49 24 28 31 36 29 49 24 28 |)I$(15)I$(16)I$(|
000013C0: 31 37 29 49 24 28 31 38 29 49 24 28 31 39 29 49 |17)I$(18)I$(19)I|
000013D0: 24 28 32 30 29 3B 00 03 1C 2D 05 98 33 2C 49 24 |$(20);...-..3,I$|
000013E0: 28 32 31 29 49 24 28 32 32 29 49 24 28 32 33 29 |(21)I$(22)I$(23)|
000013F0: 49 24 28 32 34 29 49 24 28 32 35 29 49 24 28 32 |I$(24)I$(25)I$(2|
00001400: 36 29 3B 00 34 1C 32 05 8B 49 24 28 32 36 29 B3 |6);.4.2..I$(26).|
00001410: B1 22 22 A7 A1 23 38 2C 41 24 2C 49 24 28 32 36 |.""..#8,A$,I$(26|
00001420: 29 3A 98 33 2C 41 24 49 24 28 32 36 29 3B 3A 89 |):.3,A$I$(26);:.|
00001430: 31 33 33 30 00 5C 1C 37 05 8B C2 28 36 35 33 29 |1330.\.7...(653)|
00001440: A7 98 33 3A 89 31 33 35 35 3A 8F 20 53 48 49 46 |..3:.1355:. SHIF|
00001450: 54 20 4B 45 59 20 44 45 54 45 43 54 00 70 1C 3C |T KEY DETECT.p.<|
00001460: 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 33 35 30 |..A$:.A$."".1350|
00001470: 00 84 1C 41 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...A..A$:.A$."".|
00001480: 31 33 34 35 00 97 1C 46 05 8B 53 54 B2 30 A7 98 |1345...F..ST.0..|
00001490: 33 3A 89 31 32 38 30 00 AB 1C 4B 05 97 31 39 38 |3:.1280...K..198|
000014A0: 2C 30 3A 98 33 3A A0 33 3A A0 38 00 B1 1C 50 05 |,0:.3:.3:.8...P.|
000014B0: 8E 00 CE 1C 78 05 8F 20 2A 2A 2A 20 44 45 4C 45 |....x.. *** DELE|
000014C0: 54 45 20 43 41 54 41 4C 4F 47 20 2A 2A 2A 00 FA |TE CATALOG ***..|
000014D0: 1C 82 05 99 22 54 48 49 53 20 57 49 4C 4C 20 44 |...."THIS WILL D|
000014E0: 45 4C 45 54 45 20 54 48 45 20 45 4E 54 49 52 45 |ELETE THE ENTIRE|
000014F0: 20 43 41 54 41 4C 4F 47 2E 22 00 27 1D 8C 05 85 | CATALOG.".'....|
00001500: 22 44 4F 20 59 4F 55 20 53 54 49 4C 4C 20 57 49 |"DO YOU STILL WI|
00001510: 53 48 20 54 4F 20 50 52 4F 43 45 45 44 28 59 2F |SH TO PROCEED(Y/|
00001520: 4E 29 22 3B 41 4E 24 00 38 1D 96 05 8B 41 4E 24 |N)";AN$.8....AN$|
00001530: B2 22 4E 22 A7 34 34 30 00 4A 1D A0 05 8B 41 4E |."N".440.J....AN|
00001540: 24 B3 B1 22 59 22 A7 34 34 30 00 6B 1D AA 05 9F |$.."Y".440.k....|
00001550: 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 3A 43 |15,8,15:.15,"S:C|
00001560: 41 54 41 4C 4F 47 22 3A A0 31 35 00 A7 1D B4 05 |ATALOG":.15.....|
00001570: 99 22 1C 54 48 45 20 53 4F 46 54 57 41 52 45 20 |.".THE SOFTWARE |
00001580: 43 41 54 41 4C 4F 47 20 48 41 53 20 42 45 45 4E |CATALOG HAS BEEN|
00001590: 20 44 45 4C 45 54 45 44 2E 22 3A 81 54 B2 31 A4 | DELETED.":.T.1.|
000015A0: 33 30 30 30 3A 82 54 00 B4 1D BE 05 46 B2 30 3A |3000:.T.....F.0:|
000015B0: 89 34 34 30 00 D0 1D DC 05 42 24 B2 22 22 3A 43 |.440.....B$."":C|
000015C0: 24 B2 22 11 22 3A 54 B2 30 3A 99 C7 28 31 34 29 |$.".":T.0:..(14)|
000015D0: 00 03 1E E1 05 99 22 93 12 9A 11 20 20 20 20 D3 |......".... .|
000015E0: 20 C5 20 D1 20 2E 20 20 20 C6 20 C9 20 CC 20 C5 | . . . . . . .|
000015F0: 20 20 20 D2 20 C5 20 C1 20 C4 20 C5 20 D2 20 20 | . . . . . . |
00001600: 20 20 22 00 2E 1E E4 05 99 22 11 9E C9 CE D3 C5 | "......"......|
00001610: D2 D4 A0 C4 C9 D3 CB A0 D7 C9 D4 C8 A0 C6 C9 CC |................|
00001620: C5 28 D3 29 20 D4 CF A0 D2 C5 C1 C4 2E 22 00 5D |.(.) ........".]|
00001630: 1E E6 05 99 22 11 11 11 9E C5 CE D4 C5 D2 20 27 |...."......... '|
00001640: 1C CC 9E 27 20 C6 CF D2 20 CC C9 D3 D4 20 CF C6 |...' ... .... ..|
00001650: 20 D3 C5 D1 2E 20 C6 C9 CC C5 D3 2E 22 00 87 1E | .... ......"...|
00001660: EB 05 99 22 C5 CE D4 C5 D2 20 27 1C CD 9E 27 20 |..."..... '...' |
00001670: D4 CF 20 D2 C5 D4 D5 D2 CE 20 D4 CF 20 CD C5 CE |.. ...... .. ...|
00001680: D5 2E 91 91 91 91 22 00 AB 1E F0 05 46 B2 30 3A |......".....F.0:|
00001690: 85 22 9E D2 C5 C1 C4 20 D7 C8 C1 D4 20 C6 C9 CC |."..... .... ...|
000016A0: C5 20 CE C1 CD C5 22 3B 46 49 24 00 DB 1E F5 05 |. ....";FI$.....|
000016B0: 8B 46 49 24 B2 22 4C 22 A7 99 22 11 11 11 11 1C |.FI$."L"..".....|
000016C0: CC CF C1 C4 C9 CE C7 2C D0 CC C5 C1 D3 C5 A0 D7 |.......,........|
000016D0: C1 C9 D4 2E 22 3A 8D 31 37 32 30 00 0B 1F F6 05 |....":.1720.....|
000016E0: 8B 46 49 24 B2 22 CC 22 A7 99 22 11 11 11 11 1C |.FI$."."..".....|
000016F0: CC CF C1 C4 C9 CE C7 2C D0 CC C5 C1 D3 C5 A0 D7 |.......,........|
00001700: C1 C9 D4 2E 22 3A 8D 31 37 32 30 00 1C 1F FA 05 |....":.1720.....|
00001710: 8B 46 49 24 B2 22 4D 22 A7 34 34 30 00 2D 1F FB |.FI$."M".440.-..|
00001720: 05 8B 46 49 24 B2 22 CD 22 A7 34 34 30 00 4B 1F |..FI$.".".440.K.|
00001730: 04 06 99 22 93 11 9E C6 C9 CC C5 A0 D4 CF A0 D2 |..."............|
00001740: C5 C1 C4 3A 20 1E 22 3B 46 49 24 00 83 1F 09 06 |...: .";FI$.....|
00001750: 99 22 11 9E D4 CF 20 12 1C D3 92 9E C3 D2 C5 C5 |.".... .........|
00001760: CE 20 CF CE CC D9 20 CF D2 20 12 1C D0 92 9E D2 |. .... .. ......|
00001770: C9 CE D4 C5 D2 20 26 20 D3 C3 D2 C5 C5 CE 20 1E |..... & ...... .|
00001780: 91 91 22 00 99 1F 0E 06 A1 41 4E 24 3A 8B 41 4E |.."......AN$:.AN|
00001790: 24 B2 22 22 A7 31 35 35 30 00 B2 1F 13 06 8B 41 |$."".1550......A|
000017A0: 4E 24 B2 22 53 22 A7 8D 31 36 36 35 3A 89 31 35 |N$."S"..1665:.15|
000017B0: 36 35 00 CB 1F 18 06 8B 41 4E 24 B2 22 50 22 A7 |65......AN$."P".|
000017C0: 8D 31 39 32 35 3A 8D 31 35 38 38 00 0B 20 1D 06 |.1925:.1588.. ..|
000017D0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000017E0: 11 11 11 11 11 11 11 11 11 11 11 11 9E D2 C5 C1 |................|
000017F0: C4 A0 C1 CE CF D4 C8 C5 D2 A0 C6 C9 CC C5 20 3F |.............. ?|
00001800: 20 28 1C D9 9E 2F 1C CE 9E 29 22 00 21 20 22 06 | (.../...)".! ".|
00001810: A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 31 35 37 |.AN$:.AN$."".157|
00001820: 30 00 33 20 27 06 8B 41 4E 24 B2 22 59 22 A7 31 |0.3 '..AN$."Y".1|
00001830: 35 30 30 00 46 20 2C 06 8B 41 4E 24 B3 B1 22 4E |500.F ,..AN$.."N|
00001840: 22 A7 31 35 37 30 00 4F 20 31 06 89 34 34 30 00 |".1570.O 1..440.|
00001850: 6A 20 34 06 9F 33 2C 33 3A 9F 34 2C 34 2C 37 3A |j 4..3,3:.4,4,7:|
00001860: 9F 31 2C 38 2C 35 2C 46 49 24 00 A4 20 36 06 99 |.1,8,5,FI$.. 6..|
00001870: 3A 99 22 20 20 1C 12 D3 D0 C1 C3 C5 92 9E 20 D4 |:." ......... .|
00001880: CF C7 C7 CC C5 D3 20 D0 C1 D5 D3 C5 20 20 20 20 |...... ..... |
00001890: 12 1C D2 C5 D4 D5 D2 CE 92 9E 20 D4 CF 20 C5 CE |.......... .. ..|
000018A0: C4 1E 11 22 00 B7 20 37 06 8B 46 B2 30 A7 46 B2 |...".. 7..F.0.F.|
000018B0: 31 3A 89 31 35 39 35 00 CD 20 38 06 A1 41 4E 24 |1:.1595.. 8..AN$|
000018C0: 3A 8B 41 4E 24 B2 22 22 A7 31 35 39 32 00 E1 20 |:.AN$."".1592.. |
000018D0: 39 06 8B 41 4E 24 B2 C7 28 31 33 29 A7 31 36 36 |9..AN$..(13).166|
000018E0: 30 00 F4 20 3A 06 8B 41 4E 24 B3 B1 22 20 22 A7 |0.. :..AN$.." ".|
000018F0: 31 35 39 32 00 0B 21 3B 06 A1 41 4E 24 3A 8B 41 |1592..!;..AN$:.A|
00001900: 4E 24 B2 22 20 22 A7 31 35 39 30 00 23 21 3F 06 |N$." ".1590.#!?.|
00001910: A1 23 31 2C 41 24 3A 4F 4B B2 53 54 3A 41 53 24 |.#1,A$:OK.ST:AS$|
00001920: B2 41 24 00 3A 21 40 06 8B 41 53 24 B2 22 93 22 |.A$.:!@..AS$."."|
00001930: A7 41 53 24 B2 C7 28 31 37 29 00 4C 21 45 06 8B |.AS$..(17).L!E..|
00001940: 41 24 B3 B1 22 93 22 A7 31 36 32 30 00 6F 21 4A |A$..".".1620.o!J|
00001950: 06 99 22 9E D0 D2 C5 D3 D3 A0 C1 CE D9 A0 CB C5 |..".............|
00001960: D9 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 2E 22 00 |..............".|
00001970: 85 21 4F 06 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |.!O..AN$:.AN$.""|
00001980: A7 31 36 31 35 00 90 21 54 06 98 33 2C 41 24 3B |.1615..!T..3,A$;|
00001990: 00 9C 21 59 06 98 34 2C 41 53 24 3B 00 B8 21 5E |..!Y..4,AS$;..!^|
000019A0: 06 8B C6 28 41 24 29 B2 31 33 A7 98 33 2C 42 24 |...(A$).13..3,B$|
000019B0: 3B 3A 98 34 2C 43 24 3B 00 C8 21 63 06 8B 4F 4B |;:.4,C$;..!c..OK|
000019C0: B3 B1 30 A7 31 36 36 30 00 DD 21 68 06 8B 41 53 |..0.1660..!h..AS|
000019D0: 24 B3 B1 C7 28 33 34 29 A7 31 35 39 35 00 F6 21 |$...(34).1595..!|
000019E0: 6D 06 8B 54 B2 30 A7 43 24 B2 22 22 3A 54 B2 31 |m..T.0.C$."":T.1|
000019F0: 3A 89 31 35 39 35 00 10 22 72 06 8B 54 B2 31 A7 |:.1595.."r..T.1.|
00001A00: 43 24 B2 22 11 22 3A 54 B2 30 3A 89 31 35 39 35 |C$.".":T.0:.1595|
00001A10: 00 1D 22 77 06 99 22 45 52 52 4F 52 22 00 32 22 |.."w.."ERROR".2"|
00001A20: 7C 06 98 34 3A 98 34 3A A0 34 3A A0 33 3A A0 31 ||..4:.4:.4:.3:.1|
00001A30: 3A 8E 00 3B 22 81 06 9F 33 2C 33 00 4A 22 85 06 |:..;"...3,3.J"..|
00001A40: 9F 31 2C 38 2C 35 2C 46 49 24 00 84 22 86 06 99 |.1,8,5,FI$.."...|
00001A50: 3A 99 22 20 20 1C 12 D3 D0 C1 C3 C5 92 9E 20 D4 |:." ......... .|
00001A60: CF C7 C7 CC C5 D3 20 D0 C1 D5 D3 C5 20 20 20 20 |...... ..... |
00001A70: 12 1C D2 C5 D4 D5 D2 CE 92 9E 20 D4 CF 20 C5 CE |.......... .. ..|
00001A80: C4 1E 11 22 00 97 22 87 06 8B 46 B2 30 A7 46 B2 |...".."...F.0.F.|
00001A90: 31 3A 89 31 36 37 35 00 AD 22 88 06 A1 41 4E 24 |1:.1675.."...AN$|
00001AA0: 3A 8B 41 4E 24 B2 22 22 A7 31 36 37 32 00 C1 22 |:.AN$."".1672.."|
00001AB0: 89 06 8B 41 4E 24 B2 C7 28 31 33 29 A7 31 37 31 |...AN$..(13).171|
00001AC0: 35 00 D4 22 8A 06 8B 41 4E 24 B3 B1 22 20 22 A7 |5.."...AN$.." ".|
00001AD0: 31 36 37 32 00 EB 22 8B 06 A1 41 4E 24 3A 8B 41 |1672.."...AN$:.A|
00001AE0: 4E 24 B2 22 20 22 A7 31 36 37 30 00 FC 22 8F 06 |N$." ".1670.."..|
00001AF0: A1 23 31 2C 41 24 3A 4F 4B B2 53 54 00 0E 23 90 |.#1,A$:OK.ST..#.|
00001B00: 06 8B 41 24 B3 B1 22 93 22 A7 31 36 39 35 00 31 |..A$..".".1695.1|
00001B10: 23 95 06 99 22 9E D0 D2 C5 D3 D3 A0 C1 CE D9 A0 |#..."...........|
00001B20: CB C5 D9 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 2E |................|
00001B30: 22 00 47 23 9A 06 A1 41 4E 24 3A 8B 41 4E 24 B2 |".G#...AN$:.AN$.|
00001B40: 22 22 A7 31 36 39 30 00 52 23 9F 06 98 33 2C 41 |"".1690.R#...3,A|
00001B50: 24 3B 00 67 23 A4 06 8B C6 28 41 24 29 B2 31 33 |$;.g#....(A$).13|
00001B60: A7 98 33 2C 42 24 3B 00 77 23 A9 06 8B 4F 4B B3 |..3,B$;.w#...OK.|
00001B70: B1 30 A7 31 37 31 35 00 81 23 AE 06 89 31 36 37 |.0.1715..#...167|
00001B80: 35 00 8D 23 B3 06 A0 33 3A A0 31 3A 8E 00 AB 23 |5..#...3:.1:...#|
00001B90: B8 06 4E B2 30 3A 81 58 B2 30 A4 39 38 3A 50 52 |..N.0:.X.0.98:PR|
00001BA0: 47 24 28 58 29 B2 22 22 3A 82 58 00 BB 23 BD 06 |G$(X)."":.X..#..|
00001BB0: 9F 31 2C 38 2C 30 2C 22 24 30 22 00 C9 23 C2 06 |.1,8,0,"$0"..#..|
00001BC0: A1 23 31 2C 41 24 2C 42 24 00 D7 23 C7 06 A1 23 |.#1,A$,B$..#...#|
00001BD0: 31 2C 41 24 2C 42 24 00 E5 23 CC 06 A1 23 31 2C |1,A$,B$..#...#1,|
00001BE0: 41 24 2C 42 24 00 FF 23 D1 06 A1 23 31 2C 42 24 |A$,B$..#...#1,B$|
00001BF0: 3A 8B 20 53 54 B3 B1 30 20 A7 20 31 37 37 35 00 |:. ST..0 . 1775.|
00001C00: 16 24 D6 06 8B 20 42 24 B3 B1 C7 28 33 34 29 20 |.$... B$...(34) |
00001C10: A7 20 31 37 34 35 00 46 24 DB 06 A1 23 31 2C 42 |. 1745.F$...#1,B|
00001C20: 24 3A 8B 20 42 24 B3 B1 C7 28 33 34 29 A7 50 52 |$:. B$...(34).PR|
00001C30: 47 24 28 4E 29 B2 50 52 47 24 28 4E 29 AA 42 24 |G$(N).PRG$(N).B$|
00001C40: 3A 89 31 37 35 35 00 63 24 E0 06 A1 23 31 2C 42 |:.1755.c$...#1,B|
00001C50: 24 3A 8B 20 42 24 B2 C7 28 33 32 29 20 A7 20 31 |$:. B$..(32) . 1|
00001C60: 37 36 30 00 82 24 E5 06 8B 20 42 24 B3 B1 22 53 |760..$... B$.."S|
00001C70: 22 A7 50 52 47 24 28 4E 29 B2 22 22 3A 89 31 37 |".PRG$(N)."":.17|
00001C80: 33 35 00 98 24 EA 06 8B 53 54 B2 30 A7 4E B2 4E |35..$...ST.0.N.N|
00001C90: AA 31 3A 89 31 37 33 35 00 B1 24 EF 06 A0 31 3A |.1:.1735..$...1:|
00001CA0: 8B 50 52 47 24 28 31 29 B3 B1 22 22 A7 31 38 32 |.PRG$(1).."".182|
00001CB0: 30 00 E0 24 F4 06 99 22 11 9E D4 C8 C5 D2 C5 A0 |0..$..."........|
00001CC0: C1 D2 C5 A0 CE CF A0 D3 C5 D1 2E A0 C6 C9 CC C5 |................|
00001CD0: D3 A0 CF CE A0 D4 C8 C9 D3 A0 C4 C9 D3 CB 2E 22 |..............."|
00001CE0: 00 05 25 F9 06 99 22 11 D2 C5 C1 C4 A0 C1 CE CF |..%...".........|
00001CF0: D4 C8 C5 D2 A0 C4 C9 D3 CB 3F A0 28 1C D9 9E 2F |.........?.(.../|
00001D00: 1C CE 9E 29 22 00 1B 25 FE 06 A1 41 4E 24 3A 8B |...)"..%...AN$:.|
00001D10: 41 4E 24 B2 22 22 A7 31 37 39 30 00 2F 25 03 07 |AN$."".1790./%..|
00001D20: 8B 41 4E 24 B3 B1 22 59 22 A7 36 35 35 33 35 00 |.AN$.."Y".65535.|
00001D30: 57 25 08 07 99 22 11 C9 CE D3 C5 D2 D4 A0 C4 C9 |W%..."..........|
00001D40: D3 CB A0 C1 CE C4 A0 D0 D2 C5 D3 D3 A0 1C D2 C5 |................|
00001D50: D4 D5 D2 CE 9E 2E 22 00 6D 25 0D 07 A1 41 4E 24 |......".m%...AN$|
00001D60: 3A 8B 41 4E 24 B2 22 22 A7 31 38 30 35 00 82 25 |:.AN$."".1805..%|
00001D70: 12 07 8B 41 4E 24 B3 B1 C7 28 31 33 29 A7 31 38 |...AN$...(13).18|
00001D80: 30 35 00 8E 25 17 07 8D 31 37 32 30 3A 8E 00 9D |05..%...1720:...|
00001D90: 25 1C 07 50 52 B2 33 30 3A 53 45 B2 31 00 D3 25 |%..PR.30:SE.1..%|
00001DA0: 1D 07 99 22 93 12 9A 11 20 CC C9 D3 D4 A0 CF C6 |...".... .......|
00001DB0: 20 D3 C5 D1 D5 C5 CE D4 C9 C1 CC A0 C6 C9 CC C5 | ...............|
00001DC0: D3 A0 CF CE A0 D4 C8 C9 D3 A0 C4 C9 D3 CB 20 13 |.............. .|
00001DD0: 11 11 22 00 E4 25 21 07 8B 4E B1 50 52 A7 4E 4F |.."..%!..N.PR.NO|
00001DE0: 25 B2 31 35 00 00 26 26 07 8B 4E B3 50 52 A7 4E |%.15..&&..N.PR.N|
00001DF0: 4F 25 B2 28 4E AB 28 50 52 AB 33 30 29 29 AD 32 |O%.(N.(PR.30)).2|
00001E00: 00 0D 26 2B 07 81 58 B2 31 A4 4E 4F 25 00 27 26 |..&+..X.1.NO%.'&|
00001E10: 30 07 99 22 1C 22 3B 53 45 3B 22 1E 20 22 3B 50 |0..".";SE;". ";P|
00001E20: 52 47 24 28 53 45 29 00 3D 26 35 07 53 45 B2 53 |RG$(SE).=&5.SE.S|
00001E30: 45 AA 31 3A 82 58 3A 99 22 13 11 11 22 00 4C 26 |E.1:.X:."...".L&|
00001E40: 3A 07 8B 4E B1 50 52 A7 31 38 36 35 00 61 26 3F |:..N.PR.1865.a&?|
00001E50: 07 81 58 B2 4E 4F 25 AA 31 A4 4E AB 50 52 AA 32 |..X.NO%.1.N.PR.2|
00001E60: 39 00 6B 26 44 07 89 31 38 37 30 00 78 26 49 07 |9.k&D..1870.x&I.|
00001E70: 81 58 B2 31 36 A4 33 30 00 96 26 4E 07 99 A3 32 |.X.16.30..&N...2|
00001E80: 30 29 22 1C 22 3B 53 45 3B 22 1E 20 22 3B 50 52 |0)".";SE;". ";PR|
00001E90: 47 24 28 53 45 29 00 A5 26 53 07 53 45 B2 53 45 |G$(SE)..&S.SE.SE|
00001EA0: AA 31 3A 82 58 00 B6 26 58 07 8B 4E B3 50 52 AA |.1:.X..&X..N.PR.|
00001EB0: 31 A7 31 39 31 30 00 E6 26 5D 07 99 22 11 9E D4 |1.1910..&].."...|
00001EC0: C8 C5 D2 C5 A0 C1 D2 C5 A0 CD CF D2 C5 A0 D3 C5 |................|
00001ED0: D1 2E 20 C6 C9 CC C5 D3 A0 CF CE A0 D4 C8 C5 A0 |.. .............|
00001EE0: C4 C9 D3 CB 2E 22 00 10 27 62 07 99 22 C4 CF A0 |....."..'b.."...|
00001EF0: D9 CF D5 A0 D7 C9 D3 C8 A0 D4 CF A0 D3 C5 C5 A0 |................|
00001F00: D4 C8 C5 CD 3F 20 28 1C D9 9E 2F 1C CE 9E 29 22 |....? (.../...)"|
00001F10: 00 26 27 67 07 A1 41 4E 24 3A 8B 41 4E 24 B2 22 |.&'g..AN$:.AN$."|
00001F20: 22 A7 31 38 39 35 00 42 27 6C 07 8B 41 4E 24 B2 |".1895.B'l..AN$.|
00001F30: 22 59 22 A7 50 52 B2 50 52 AA 33 30 3A 89 31 38 |"Y".PR.PR.30:.18|
00001F40: 32 31 00 55 27 71 07 8B 41 4E 24 B3 B1 22 4E 22 |21.U'q..AN$.."N"|
00001F50: A7 31 38 39 35 00 97 27 76 07 85 22 11 11 9E D7 |.1895..'v.."....|
00001F60: C8 C9 C3 C8 A0 1C 23 9E 20 D4 CF A0 D2 C5 C1 C4 |......#. .......|
00001F70: 20 28 1C CD 9E 20 D4 CF 20 C1 C2 CF D2 D4 29 22 | (... .. .....)"|
00001F80: 3B 41 4E 24 3A 8B 41 4E 24 B2 22 4D 22 A7 46 49 |;AN$:.AN$."M".FI|
00001F90: 24 B2 22 4D 22 3A 8E 00 B1 27 7B 07 8B C5 28 41 |$."M":...'{...(A|
00001FA0: 4E 24 29 B1 4E A7 99 22 91 91 22 3A 89 31 39 31 |N$).N.."..":.191|
00001FB0: 30 00 CC 27 80 07 43 B2 C5 28 41 4E 24 29 3A 46 |0..'..C..(AN$):F|
00001FC0: 49 24 B2 50 52 47 24 28 43 29 3A 8E 00 DA 27 85 |I$.PRG$(C):...'.|
00001FD0: 07 A0 34 2C 34 3A 9F 34 2C 34 00 F4 27 8A 07 98 |..4,4:.4,4..'...|
00001FE0: 34 3A 8B A8 C2 28 31 34 34 29 AF 31 32 38 A7 89 |4:...(144).128..|
00001FF0: 31 39 34 30 00 2E 28 8F 07 99 22 1C 2A 2A 2A 20 |1940..(...".*** |
00002000: 9E D0 CC C5 C1 D3 C5 A0 D4 D5 D2 CE A0 D4 C8 C5 |................|
00002010: A0 D0 D2 C9 CE D4 C5 D2 A0 CF CE A0 1C 2A 2A 2A |.............***|
00002020: 9E 91 22 3A 50 50 B2 31 3A 89 31 39 33 30 00 63 |..":PP.1:.1930.c|
00002030: 28 94 07 8B 50 50 B2 31 A7 99 22 20 20 20 20 20 |(...PP.1.." |
00002040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002060: 20 91 22 00 6E 28 99 07 A0 34 2C 34 3A 8E 00 83 | .".n(...4,4:...|
00002070: 28 D0 07 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |(...15,EN,EM$,ET|
00002080: 2C 45 53 00 92 28 DA 07 8B 20 45 4E B2 30 20 A7 |,ES..(... EN.0 .|
00002090: 20 8E 00 AF 28 E4 07 99 22 1D 1D 1D 1D 05 12 20 | ...(..."...... |
000020A0: 45 52 52 4F 52 20 4F 4E 20 44 49 53 4B 20 22 00 |ERROR ON DISK ".|
000020B0: C1 28 EE 07 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 |.(...EN;EM$;ET;E|
000020C0: 53 00 CB 28 F8 07 A0 36 3A A0 38 00 D1 28 02 08 |S..(...6:.8..(..|
000020D0: 80 00 F7 28 10 27 8F 2A 2A 2A 20 52 45 54 55 52 |...(.'.*** RETUR|
000020E0: 4E 20 54 4F 20 48 2E 41 2E 4C 2E 20 52 4F 55 54 |N TO H.A.L. ROUT|
000020F0: 49 4E 45 20 2A 2A 2A 00 0B 29 15 27 8B 48 44 24 |INE ***..).'.HD$|
00002100: B3 B1 22 50 22 A7 31 30 30 31 30 00 3E 29 16 27 |.."P".10010.>).'|
00002110: 99 22 11 20 9A 48 2E 41 2E 4C 2E 9E 20 44 49 53 |.". .H.A.L.. DIS|
00002120: 4B 20 49 4E 20 44 52 49 56 45 2E 2E 2E 2E 2E 50 |K IN DRIVE.....P|
00002130: 52 45 53 53 20 1C 12 52 45 54 55 52 4E 22 00 59 |RESS ..RETURN".Y|
00002140: 29 17 27 A1 41 4E 24 3A 8B 41 4E 24 B3 B1 C7 28 |).'.AN$:.AN$...(|
00002150: 31 33 29 A7 31 30 30 30 37 00 75 29 1A 27 97 35 |13).10007.u).'.5|
00002160: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:|
00002170: 99 22 93 90 22 00 85 29 2E 27 48 24 B2 22 48 2E |.".."..).'H$."H.|
00002180: 41 2E 4C 2E 22 00 90 29 38 27 97 31 39 38 2C 34 |A.L."..)8'.198,4|
00002190: 00 A7 29 42 27 99 22 93 11 11 4C 4F 41 44 22 C7 |..)B'."...LOAD".|
000021A0: 28 33 34 29 48 24 3B 00 B9 29 4C 27 99 20 C7 28 |(34)H$;..)L'. .(|
000021B0: 33 34 29 22 2C 38 13 22 3B 00 DE 29 56 27 97 36 |34)",8.";..)V'.6|
000021C0: 33 31 2C 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 |31,13:.632,82:.6|
000021D0: 33 33 2C 31 31 37 3A 97 36 33 34 2C 31 33 00 E4 |33,117:.634,13..|
000021E0: 29 60 27 80 00 00 00 |)`'.... |
..A....A1$(150):.A2$(150):.A3$(150):.P1$
(150):.P2$(150):.P3$(150).Y.... PRG$(150
):.I$(30).T....53280,0:.53281,0:.440....
..** LOAD PROGRAM FROM DIRECTORY **.J.(.
."...PUT THE DISK YOU WISH TO SELECT FRO
M"...2..".IN THE DRIVE,THEN PRESS RETURN
."...<.. AN$:. AN$."".60...A..AN$..G(13)
.60.S.B..".............. *** .LOAD
ING DIRECTORY .***"...F.L$.".....LOAD".G
(34):Z$."":Y$."":ADR.0:Z.0:Y.0...P..1,8,
0,"$0"...Z..#1,A$,B$...D..#1,A$,B$...N..
#1,A$,B$.Y.X..#1,B$:. ST..0 . 180......
B$..G(34) . 120......#1,B$:. B$..G(34).P
RG$(N).PRG$(N).B$:.140.:....#1,B$:. B$.G
(32) . 150.W. .. B$."S".PRG$(N)."":.100.
L....ST.0.N.N.1:.100.S... 1.}...PR.30...
H..".... LOAD A PROGRAM FROM THE DIREC
TORY ...".D.M..N.PR.NO%.15.V.R..N.PR.N
O%.N.2...W..X.1.NO%......".";X;". ";PRG$
(X)......X:."..."......N.PR.245.(....X.N
O%.1.N.1.1....250.A....X.NO%.1.PR.].....
20)".";X;". ";PRG$(X).D....X.T....N.PR.1
.265......"..THERE ARE MORE PROGRAMS ON
THE DISK.".K...."DO YOU WISH TO SEE THEM
?(.Y./.N.)"......AN$:.AN$."".260......AN
$."Y".PR.PR.30:.200......AN$.."N".260.5.
..."...WHICH PROGRAM .#. TO LOAD";AN$.N.
...E(AN$).N.."..":.265.[...C.E(AN$).N.,.
.2,8,0,PRG$(C).|.6..#2,Z$,Y$...@. 2...J.
Z.F(Z$.G(0)):Y.F(Y$.G(0)):ADR.Y.256.Z.M.
T.. (ADR.2048).(ADR.2049).390...^.. ADR.
32768 .410...H.. ADR.2048 .425...R..".".
L$.PRG$(C).G(34).",8,1".-.W.."....";"SYS
";ADR.O.|..".":.631,13:.632,13:.198,2:..
N....".".L$.PRG$(C).G(34).",8".}...."...
.RUN"......".":.631,13:.632,13:.198,2:..
.....".".L$.PRG$(C).G(34).",8,1".R....".
...SYS904"......".":.631,13:.632,13:.198
,2:.......".".L$.PRG$(C).G(34).",8,1".".
.".4....".":.631,13:.198,1:..I....** MAI
N MENU **...B..G(142):.".... S O F T
W A R E L I B R A R Y "...L..".....
.YOUR OPTIONS:".N.V..".........(.1.) INF
ORMATION ABOUT H.A.L."......"........(.2
.) ACCESS YOUR SOFTWARE CATALOG".0....".
.......(.3.) LOAD FROM A DISK DIRECTORY"
._...."........(.4.) VIEW/PRINT DISK DIR
ECTORY"......"........(.5.) READ/PRINT S
EQ. FILES"......"........(.6.) RETURN TO
H.A.L.".T...."......WHICH OPTION .#. ?"
:M.0......AN$:.AN$."".530......AN$."1".1
020...&..AN$."2".610...0..AN$."3".40...:
..AN$."4".1200.I.D..AN$."5".HD$."P":.150
0.\.N..AN$."6".10000.E.X..530...B..** AC
CESS CATALOG ROUTINES **...C..15,8,15:.8
,8,8,"0:CATALOG,S,R":.2000.B.D..8,X$:.20
00.M.E. 8: 15...F.. X$.."0".630...G.."..
......... SOFTWARE CATALOG IS EMPTY
.".H.H.."...DO YOU WISH TO MAKE ENTRIES
TO IT?(.Y./.N.)".].I..AN$:.AN$."".617.N.
J..AN$."Y".810...K..AN$.."N".617...L..44
0...V..15,8,15,"I0":.2000:CR$.G(13):J.1:
F.1.T....8,8,8,"0:CATALOG,S,R":.2000....
..8,P1$(J),P2$(J),P3$(J).....RS.ST:.2000
...... RS.64 .680.!.... RS.0 .670.C...."
BAD.DISK.STATUS.IS."RS:.680.R...J.J.1:.6
50.]... 8: 15.E...X.1......"...CURRENT T
ITLES IN YOUR SOFTWARE CATALOG:".A.F..X.
X.(X.14):..5)".#."X".- "P1$(X):.X...P.."
..PRESS'.L.'TO LOAD,'.A.'TO ADD,'.D.'TO
DELETE".,.Z.."..'.M.'FOR MORE TITLES,'.R
.'TO RETURN TO MENU".A....AN$:.AN$."".74
0.S....AN$."L".1100.D....AN$."A".810.V..
..AN$."D".1400......AN$."M".700......AN$
."R".440... ..440.D.*..** ADD TO LIBRARY
ROUTINE ***...4.."......ENTER THE TITLE
OF NEW SOFTWARE TO ADD:.":M.M.1.7.>..".
";A1$(M):."...ENTER FILENAME USED TO LOA
D IT:.".Z.H..".";A2$(M):."...CHOOSE WHIC
H APPLIES:(.1.)',8'OR(.2.)',8,1':"...R..
".";A$:.E(A$).2.850...\..A$."1".A3$(M)."
A".A.F..A$."2".A3$(M)."B"...P.."...DO YO
U WANT TO ADD MORE TITLES(Y-N)";AN$...Z.
.AN$."Y".810......AN$."N".920......880.:
....15,8,15:.15,"I0":.2000.B...A.1.D....
8,8,8,"@0:CATALOG,S,W":.2000.T.... F..1
.950...... K.1.J......8,P1$(K)......8,P2
$(K)......8,P3$(K)......2000:.K.B....N.1
.M.P....8,A1$(N)...A..8,A2$(N)...B..8,A3
$(N)...E..2000:.N: 8: 15.*.J.."..YOUR NE
W SOFTWARE HAS BEEN ADDED".A.T.."TO THE
LIBRARY'S CATALOG.":.T.1.3000:.T:F.1:.44
0.G.......... *** LOAD DOCUMENTATION ***
.....G1$."DOCUMENTATION":G2$.",8".E....5
3280,0:.53281,0:."..".P.$..198,9......".
..LOAD"G(34)G1$;...8.. G(34)G2$".";.0.B.
.631,13:.632,63:.633,34:.634,158:.635,34
:.636,13.M.G..637,82:.638,117:.639,13.S.
H...Z.L..".LINE # OF SOFTWARE TO LOAD";A
N$...V.L.E(AN$).B.`.G1$.P2$(L):.P3$(L)."
A".G2$.",8":.P3$(L)."B".G2$.",8,1"...E..
P3$(L)."B".G2$.",8,1"...J.."..PLEASE PUT
THE ."P1$(L)". DISK"...T.."INTO THE DRI
VE,AND PRESS 'RETURN'".J.~.. AN$:. AN$..
G(13).1150.T....1030.T.... *** DIRECTORY
ROUTINE ***......".... L I S T D
I R E C T O R Y ".P...."...V..IEW
OR ..P..RINT DIRECTORY?"......AN$:.AN$."
".1215...D..AN$."V"..3,3:.1235...I..AN$.
"P"..3,4:.1925:.1235.&.N..1215.V.S..1260
:.".LIST ANOTHER DIRECTORY? (.Y./.N.)".L
.X..AN$:.AN$."".1240.}.Z..AN$."N".440...
...AN$.."Y".1240......1205...... DIRECT
ORY SUBROUTINE.C...Z0$.G(0).U....8,8,0,"
$0:*"......"....SPACE.. TOGGLES PAUSE
..SHIFT.. TO END..".%....#8,A$,A$:.A$.""
.1355.9....#8,A$,A$,A$,D$.N...BK.F(A$.Z0
$).256.F(D$.Z0$):BK$." ".D(BK)." "..
....ST.0..3,BK$;......ST..0.1355.U....#8
,I$(1),I$(2),I$(3),I$(4),I$(5),I$(6),I$(
7),I$(8),I$(9),I$(10).#....#8,I$(11),I$(
12),I$(13),I$(14),I$(15),I$(16),I$(17),I
$(18),I$(19),I$(20).U....#8,I$(21),I$(22
),I$(23),I$(24),I$(25),I$(26)...#..3,I$(
1)I$(2)I$(3)I$(4)I$(5)I$(6)I$(7)I$(8)I$(
9)I$(10);.V.(..3,I$(11)I$(12)I$(13)I$(14
)I$(15)I$(16)I$(17)I$(18)I$(19)I$(20);..
.-..3,I$(21)I$(22)I$(23)I$(24)I$(25)I$(2
6);.4.2..I$(26)..""..#8,A$,I$(26):.3,A$I
$(26);:.1330.\.7..B(653)..3:.1355:. SHIF
T KEY DETECT.P.<..A$:.A$."".1350...A..A$
:.A$."".1345...F..ST.0..3:.1280...K..198
,0:.3: 3: 8...P...N.X.. *** DELETE CATAL
OG ***......"THIS WILL DELETE THE ENTIRE
CATALOG.".'...."DO YOU STILL WISH TO PR
OCEED(Y/N)";AN$.8....AN$."N".440.J. ..AN
$.."Y".440.K....15,8,15:.15,"S:CATALOG":
15......".THE SOFTWARE CATALOG HAS BEEN
DELETED.":.T.1.3000:.T.....F.0:.440.P..
.B$."":C$.".":T.0:.G(14)......".... S
E Q . F I L E R E A D E R ".....
."..INSERT DISK WITH FILE(S) TO READ.".]
...."....ENTER '.L.' FOR LIST OF SEQ. FI
LES."......"ENTER '.M.' TO RETURN TO MEN
U.....".....F.0:.".READ WHAT FILE NAME";
FI$......FI$."L"..".....LOADING,PLEASE W
AIT.":.1720......FI$."L"..".....LOADING,
PLEASE WAIT.":.1720......FI$."M".440.-..
..FI$."M".440.K...."...FILE TO READ: .";
FI$......"..TO ..S..CREEN ONLY OR ..P..R
INTER & SCREEN ..."......AN$:.AN$."".155
0......AN$."S"..1665:.1565.K....AN$."P".
.1925:.1588.. ..."......................
.....READ ANOTHER FILE ? (.Y./.N.)".! ".
.AN$:.AN$."".1570.3 '..AN$."Y".1500.F ,.
.AN$.."N".1570.O 1..440.J 4..3,3:.4,4,7:
.1,8,5,FI$.. 6..:." ..SPACE.. TOGGLES P
AUSE ..RETURN.. TO END..".. 7..F.0.F.
1:.1595.M 8..AN$:.AN$."".1592.. 9..AN$.G
(13).1660.. :..AN$.." ".1592..!;..AN$:.A
N$." ".1590.#!?..#1,A$:OK.ST:AS$.A$.:!@.
.AS$.".".AS$.G(17).L!E..A$..".".1620.O!J
..".PRESS ANY KEY TO CONTINUE."..!O..AN$
:.AN$."".1615..!T..3,A$;..!Y..4,AS$;..!^
..F(A$).13..3,B$;:.4,C$;.H!C..OK..0.1660
..!H..AS$..G(34).1595..!M..T.0.C$."":T.1
:.1595.."R..T.1.C$.".":T.0:.1595.."W.."E
RROR".2"|..4:.4: 4: 3: 1:..;"...3,3.J"..
.1,8,5,FI$.."...:." ..SPACE.. TOGGLES P
AUSE ..RETURN.. TO END..".."...F.0.F.
1:.1675.."...AN$:.AN$."".1672.A"...AN$.G
(13).1715.T"...AN$.." ".1672.."...AN$:.A
N$." ".1670.."...#1,A$:OK.ST..#...A$..".
".1695.1#...".PRESS ANY KEY TO CONTINUE.
".G#...AN$:.AN$."".1690.R#...3,A$;.G#...
F(A$).13..3,B$;.W#...OK..0.1715..#...167
5..#.. 3: 1:...#..N.0:.X.0.98:PRG$(X).""
:.X..#...1,8,0,"$0".I#B..#1,A$,B$.W#G..#
1,A$,B$..#L..#1,A$,B$..#Q..#1,B$:. ST..0
. 1775..$V.. B$..G(34) . 1745.F$...#1,B
$:. B$..G(34).PRG$(N).PRG$(N).B$:.1755.C
$...#1,B$:. B$.G(32) . 1760..$... B$.."S
".PRG$(N)."":.1735..$...ST.0.N.N.1:.1735
..$.. 1:.PRG$(1).."".1820..$..."..THERE
ARE NO SEQ. FILES ON THIS DISK."..%...".
READ ANOTHER DISK? (.Y./.N.)"..%...AN$:.
AN$."".1790./%...AN$.."Y".65535.W%...".I
NSERT DISK AND PRESS .RETURN..".M%...AN$
:.AN$."".1805..%...AN$..G(13).1805..%...
1720:...%..PR.30:SE.1.S%...".... LIST OF
SEQUENTIAL FILES ON THIS DISK ..."..%!.
.N.PR.NO%.15..&&..N.PR.NO%.(N.(PR.30)).2
..&+..X.1.NO%.'&0..".";SE;". ";PRG$(SE).
=&5.SE.SE.1:.X:."...".L&:..N.PR.1865.A&?
..X.NO%.1.N.PR.29.K&D..1870.X&I..X.16.30
..&N...20)".";SE;". ";PRG$(SE)..&S.SE.SE
.1:.X..&X..N.PR.1.1910..&].."..THERE ARE
MORE SEQ. FILES ON THE DISK."..'B.."DO
YOU WISH TO SEE THEM? (.Y./.N.)".&'G..AN
$:.AN$."".1895.B'L..AN$."Y".PR.PR.30:.18
21.U'Q..AN$.."N".1895..'V.."...WHICH .#.
TO READ (.M. TO ABORT)";AN$:.AN$."M".FI
$."M":...'{..E(AN$).N.."..":.1910.L'..C.
E(AN$):FI$.PRG$(C):..Z'.. 4,4:.4,4..'...
4:..B(144).128..1940..(...".*** .PLEASE
TURN THE PRINTER ON .***..":PP.1:.1930.C
(...PP.1.."
.".N(.. 4,4:...(P..15,EN,EM$,ET
,ES..(Z.. EN.0 . ...(..."...... ERROR ON
DISK ".A(...EN;EM$;ET;ES.K(.. 6: 8.Q(..
...(.'.*** RETURN TO H.A.L. ROUTINE ***.
.).'.HD$.."P".10010.>).'.". .H.A.L.. DIS
K IN DRIVE.....PRESS ..RETURN".Y).'.AN$:
.AN$..G(13).10007.U).'.53280,0:.53281,0:
.".."..).'H$."H.A.L."..)8'.198,4..)B'.".
..LOAD"G(34)H$;..)L'. G(34)",8.";..)V'.6
31,13:.632,82:.633,117:.634,13..)`'....
> CLICK IMAGE PREVIEW FOR FULL MODAL