TELEPHONE DIRECT
FILE INFORMATION
FILENAME(S): TELEPHONE DIRECT
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-10-19 22:49:39
APPEARS ON: 1 disk(s)
FILE HASH
7e947a7a704b478d2b9a5378c194c9a6e4fc6be0c8e9a3c8e397ec7a96ff1069
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MICRO MANIAC | TELEPHONE DIRECT | PRG | Radd Maxx | 16 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 97 20 34 35 2C C2 28 31 37 34 |....... 45,.(174|
00000010: 29 3A 97 20 34 36 2C C2 28 31 37 35 29 3A 9C 00 |):. 46,.(175):..|
00000020: 33 08 01 00 53 24 B2 22 22 3A 43 52 24 B2 C7 28 |3...S$."":CR$..(|
00000030: 31 33 29 00 41 08 03 00 9F 20 31 35 2C 38 2C 31 |13).A.... 15,8,1|
00000040: 35 00 8A 08 04 00 50 48 24 B2 22 D0 48 41 52 4D |5.....PH$.".HARM|
00000050: 41 43 49 45 53 22 3A 48 4F 24 B2 22 C8 4F 53 50 |ACIES":HO$.".OSP|
00000060: 49 54 41 4C 20 28 4E 4F 4E 2D 45 4D 45 52 47 45 |ITAL (NON-EMERGE|
00000070: 4E 43 59 29 22 3A 45 52 24 B2 22 C5 CD C5 D2 C7 |NCY)":ER$.".....|
00000080: C5 CE C3 D9 A0 D2 CF CF CD 22 00 B5 08 05 00 96 |........."......|
00000090: 20 A5 41 28 58 29 B2 B5 28 58 AD 32 35 36 29 3A | .A(X)..(X.256):|
000000A0: 96 20 A5 42 28 58 29 B2 58 AB 28 A5 41 28 58 29 |. .B(X).X.(.A(X)|
000000B0: AC 32 35 36 29 00 04 09 06 00 46 50 24 B2 22 C6 |.256).....FP$.".|
000000C0: 41 4D 49 4C 59 20 D0 48 59 53 49 43 49 41 4E 22 |AMILY .HYSICIAN"|
000000D0: 3A 53 50 24 B2 22 D3 50 45 43 49 41 4C 49 53 54 |:SP$.".PECIALIST|
000000E0: 53 22 3A 56 45 24 B2 22 D6 45 54 45 52 49 4E 41 |S":VE$.".ETERINA|
000000F0: 52 49 41 4E 53 22 3A 44 45 24 B2 22 C4 45 4E 54 |RIANS":DE$.".ENT|
00000100: 49 53 54 22 00 44 09 07 00 50 48 24 B2 22 D0 48 |IST".D...PH$.".H|
00000110: 41 52 4D 41 43 49 45 53 22 3A 48 4F 24 B2 22 D0 |ARMACIES":HO$.".|
00000120: CF CC C9 C3 C5 A0 C1 CE C4 A0 C6 C9 D2 C5 22 3A |..............":|
00000130: 45 52 24 B2 22 C5 CD C5 D2 C7 C5 CE C3 D9 A0 D2 |ER$."...........|
00000140: CF CF CD 22 00 93 09 08 00 50 53 24 B2 22 D0 C1 |...".....PS$."..|
00000150: D2 C1 CD C5 C4 C9 C3 A0 D3 C5 D2 D6 C9 C3 C5 22 |..............."|
00000160: 3A 50 43 24 B2 22 D0 CF C9 D3 CF CE A0 C3 CF CE |:PC$."..........|
00000170: D4 D2 CF CC A0 C3 C5 CE D4 C5 D2 22 3A 48 49 24 |...........":HI$|
00000180: B2 22 C8 45 41 4C 54 48 20 C9 4E 53 55 52 41 4E |.".EALTH .NSURAN|
00000190: 43 45 22 00 C6 09 09 00 48 4C 24 B2 22 C8 4F 54 |CE".....HL$.".OT|
000001A0: 4C 49 4E 45 53 22 3A 42 4C 24 B2 22 22 3A 81 49 |LINES":BL$."":.I|
000001B0: B2 30 A4 32 34 3A 42 4C 24 B2 42 4C 24 AA C7 28 |.0.24:BL$.BL$..(|
000001C0: 31 36 30 29 3A 82 00 FE 09 0A 00 99 22 93 12 1E |160):......."...|
000001D0: 20 20 20 20 20 20 20 20 C8 C5 C1 CC D4 C8 A0 D4 | ........|
000001E0: C5 CC C5 D0 C8 CF CE C5 A0 C4 C9 D2 C5 C3 D4 CF |................|
000001F0: D2 D9 A0 A0 A0 A0 A0 A0 90 92 11 11 11 22 00 15 |............."..|
00000200: 0A 0B 00 8B C2 28 38 37 38 29 B3 B1 30 30 A7 9E |.....(878)..00..|
00000210: 36 34 37 33 38 00 5B 0A 14 00 99 22 31 2E 20 C3 |64738.[...."1. .|
00000220: 52 45 41 54 45 20 41 20 4E 45 57 20 44 49 52 45 |REATE A NEW DIRE|
00000230: 43 54 4F 52 59 22 3A 99 3A 99 22 32 2E 20 C5 4E |CTORY":.:."2. .N|
00000240: 54 45 52 20 4E 45 57 20 54 45 4C 45 50 48 4F 4E |TER NEW TELEPHON|
00000250: 45 20 4E 55 4D 42 45 52 53 22 3A 00 A8 0A 1E 00 |E NUMBERS":.....|
00000260: 99 22 33 2E 20 C3 48 41 4E 47 45 20 54 45 4C 45 |."3. .HANGE TELE|
00000270: 50 48 4F 4E 45 20 4E 55 4D 42 45 52 53 22 3A 99 |PHONE NUMBERS":.|
00000280: 3A 99 22 34 2E 20 D6 49 45 57 20 53 45 4C 45 43 |:."4. .IEW SELEC|
00000290: 54 45 44 20 54 45 4C 45 50 48 4F 4E 45 20 4E 55 |TED TELEPHONE NU|
000002A0: 4D 42 45 52 53 22 3A 99 00 F0 0A 28 00 99 22 35 |MBERS":....(.."5|
000002B0: 2E 20 D6 49 45 57 20 54 48 45 20 D7 C8 CF CC C5 |. .IEW THE .....|
000002C0: 20 44 49 52 45 43 54 4F 52 59 22 3A 99 3A 99 22 | DIRECTORY":.:."|
000002D0: 36 2E 20 D0 52 49 4E 54 20 54 48 45 20 D7 C8 CF |6. .RINT THE ...|
000002E0: CC C5 20 44 49 52 45 43 54 4F 52 59 22 3A 99 3A |.. DIRECTORY":.:|
000002F0: 00 38 0B 32 00 99 22 37 2E 20 C5 52 41 53 45 20 |.8.2.."7. .RASE |
00000300: 41 4E 20 45 4E 54 49 52 45 20 44 49 52 45 43 54 |AN ENTIRE DIRECT|
00000310: 4F 52 59 22 3A 99 3A 99 22 38 2E 20 D2 45 54 55 |ORY":.:."8. .ETU|
00000320: 52 4E 20 54 4F 20 54 48 45 20 CD 41 49 4E 20 CD |RN TO THE .AIN .|
00000330: 45 4E 55 22 3A 99 3A 99 00 50 0B 3C 00 8D 20 31 |ENU":.:..P.<.. 1|
00000340: 36 31 30 3A 8B 20 41 B3 31 B0 41 B1 38 A7 31 30 |610:. A.1.A.8.10|
00000350: 00 7E 0B 3D 00 91 20 41 20 8D 20 32 30 30 30 2C |.~.=.. A . 2000,|
00000360: 31 30 30 2C 31 30 30 2C 31 30 30 2C 39 34 30 2C |100,100,100,940,|
00000370: 39 36 30 2C 32 31 30 30 2C 36 30 30 30 30 00 87 |960,2100,60000..|
00000380: 0B 3E 00 89 20 31 30 00 8D 0B 64 00 3A 00 93 0B |.>.. 10...d.:...|
00000390: 6E 00 3A 00 99 0B 78 00 3A 00 AF 0B 7D 00 4D B2 |n.:...x.:...}.M.|
000003A0: 30 3A 8B 20 41 B2 32 B0 41 B2 33 A7 4D B2 31 00 |0:. A.2.A.3.M.1.|
000003B0: E4 0B 82 00 99 22 93 12 1C 20 20 20 20 20 20 20 |....."... |
000003C0: 20 20 20 20 20 20 D3 45 4C 45 43 54 49 4F 4E 20 | .ELECTION |
000003D0: CD 45 4E 55 20 20 20 20 20 20 20 20 20 20 20 20 |.ENU |
000003E0: 20 90 92 22 00 0F 0C 8C 00 99 22 31 2E 20 20 22 | .."......"1. "|
000003F0: 46 50 24 3A 99 3A 99 22 32 2E 20 20 22 53 50 24 |FP$:.:."2. "SP$|
00000400: 3A 99 3A 99 22 33 2E 20 20 22 56 45 24 3A 99 00 |:.:."3. "VE$:..|
00000410: 3A 0C 96 00 99 22 34 2E 20 20 22 44 45 24 3A 99 |:...."4. "DE$:.|
00000420: 3A 99 22 35 2E 20 20 22 50 48 24 3A 99 3A 99 22 |:."5. "PH$:.:."|
00000430: 36 2E 20 20 22 48 4C 24 3A 99 00 4B 0C A0 00 99 |6. "HL$:..K....|
00000440: 22 37 2E 20 20 22 48 49 24 3A 99 00 78 0C AA 00 |"7. "HI$:..x...|
00000450: 99 22 1C 38 2E 20 20 22 45 52 24 3A 99 3A 99 22 |.".8. "ER$:.:."|
00000460: 39 2E 20 20 22 50 43 24 3A 99 3A 99 22 31 30 2E |9. "PC$:.:."10.|
00000470: 20 22 50 53 24 22 90 22 00 97 0C AB 00 99 3A 99 | "PS$"."......:.|
00000480: 22 1C 31 31 2E 20 D0 CF CC C9 C3 C5 20 C1 CE C4 |".11. ...... ...|
00000490: 20 C6 C9 D2 C5 90 22 00 BE 0C AC 00 99 22 D0 52 | ....."......".R|
000004A0: 45 53 53 20 46 31 20 54 4F 20 52 45 54 55 52 4E |ESS F1 TO RETURN|
000004B0: 20 54 4F 20 C4 49 52 45 43 54 4F 52 59 22 00 CA | TO .IRECTORY"..|
000004C0: 0C AF 00 5A 58 B2 B8 28 30 29 00 E0 0C B4 00 8D |...ZX..(0)......|
000004D0: 20 31 36 31 30 3A 8B 41 B2 31 33 33 20 A7 20 8E | 1610:.A.133 . .|
000004E0: 00 F4 0C B9 00 8B 20 41 B3 31 B0 41 B1 31 31 A7 |...... A.1.A.11.|
000004F0: 20 31 33 30 00 2A 0D BE 00 91 20 41 20 8D 20 32 | 130.*.... A . 2|
00000500: 31 30 2C 32 37 30 2C 33 34 30 2C 34 32 30 2C 35 |10,270,340,420,5|
00000510: 30 30 2C 35 35 30 2C 36 32 30 2C 37 36 30 2C 38 |00,550,620,760,8|
00000520: 32 30 2C 38 38 30 2C 37 30 30 00 34 0D C8 00 89 |20,880,700.4....|
00000530: 20 31 33 30 00 3A 0D D2 00 3A 00 40 0D DC 00 3A | 130.:...:.@...:|
00000540: 00 46 0D E6 00 3A 00 6E 0D F0 00 99 22 93 12 1F |.F...:.n...."...|
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 22 46 50 24 | "FP$|
00000560: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 98 |" "..|
00000570: 0D FA 00 58 B2 30 3A 52 4E B2 31 3A 8D 20 31 30 |...X.0:RN.1:. 10|
00000580: 30 30 3A 8B 20 4D B3 B1 30 A7 8D 31 32 32 30 3A |00:. M..0..1220:|
00000590: 8D 20 32 33 30 30 3A 8E 00 A4 0D 04 01 8D 31 35 |. 2300:.......15|
000005A0: 30 30 3A 8E 00 AA 0D 0E 01 3A 00 C3 0D 18 01 8F |00:......:......|
000005B0: 20 20 20 20 20 20 20 20 20 53 50 45 43 49 41 4C | SPECIAL|
000005C0: 49 53 54 00 C9 0D 22 01 3A 00 E0 0D 2C 01 81 20 |IST...".:...,.. |
000005D0: 43 32 B2 30 20 A4 20 34 3A 52 4E B2 43 32 AA 32 |C2.0 . 4:RN.C2.2|
000005E0: 00 12 0E 36 01 99 22 93 90 12 20 20 20 20 20 20 |...6.."... |
000005F0: 20 20 20 20 20 20 22 53 50 24 22 20 23 22 43 32 | "SP$" #"C2|
00000600: AA 31 22 9D 20 20 20 20 20 20 20 20 20 20 20 20 |.1". |
00000610: 20 22 00 42 0E 40 01 58 B2 31 3A 8D 31 30 30 30 | ".B.@.X.1:.1000|
00000620: 3A 8B 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 |:.M..0..1220:.Z$|
00000630: B2 C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 20 |..(134)..2300:. |
00000640: 43 32 00 4F 0E 45 01 8B 20 4D B2 31 A7 20 8E 00 |C2.O.E.. M.1. ..|
00000650: 68 0E 4A 01 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 |h.J..1500:. Z$..|
00000660: 28 31 33 33 29 A7 20 8E 00 72 0E 4F 01 82 43 32 |(133). ..r.O..C2|
00000670: 3A 8E 00 78 0E 54 01 3A 00 93 0E 5E 01 8F 20 20 |:..x.T.:...^.. |
00000680: 20 20 20 20 20 20 56 45 54 45 52 49 4E 41 52 49 | VETERINARI|
00000690: 41 4E 53 00 99 0E 68 01 3A 00 B1 0E 72 01 81 43 |ANS...h.:...r..C|
000006A0: 32 B2 30 A4 31 3A 52 4E B2 37 AA 43 32 3A 58 B2 |2.0.1:RN.7.C2:X.|
000006B0: 30 00 EB 0E 7C 01 8B 20 43 32 B2 30 A7 99 22 9C |0...|.. C2.0..".|
000006C0: 12 93 20 20 20 20 20 20 20 20 20 20 D2 45 47 55 |.. .EGU|
000006D0: 4C 41 52 20 D6 45 54 45 52 49 4E 41 52 49 41 4E |LAR .ETERINARIAN|
000006E0: 20 20 20 20 20 20 20 20 20 20 22 00 25 0F 86 01 | ".%...|
000006F0: 8B 20 43 32 B2 31 A7 99 22 9C 12 93 20 20 20 20 |. C2.1.."... |
00000700: 20 20 20 20 20 20 32 34 2D C8 4F 55 52 20 C1 4E | 24-.OUR .N|
00000710: 49 4D 41 4C 20 C8 4F 53 50 49 54 41 4C 20 20 20 |IMAL .OSPITAL |
00000720: 20 20 20 20 22 00 52 0F 90 01 8D 31 30 30 30 3A | ".R....1000:|
00000730: 8B 20 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 |. M..0..1220:.Z$|
00000740: B2 C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 20 |..(134)..2300:. |
00000750: 43 32 00 5E 0F 95 01 8B 20 4D B2 31 A7 8E 00 77 |C2.^.... M.1...w|
00000760: 0F 9A 01 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 28 |....1500:. Z$..(|
00000770: 31 33 33 29 A7 20 8E 00 81 0F 9F 01 82 43 32 3A |133). .......C2:|
00000780: 8E 00 87 0F A4 01 3A 00 9E 0F AE 01 8F 20 20 20 |......:...... |
00000790: 20 20 20 20 22 C4 45 4E 54 49 53 54 53 22 00 A4 | ".ENTISTS"..|
000007A0: 0F B8 01 3A 00 D5 0F C2 01 99 22 93 12 1F 20 20 |...:......"... |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000007C0: 44 45 24 22 20 20 20 20 20 20 20 20 20 20 20 20 |DE$" |
000007D0: 20 20 20 20 22 00 FF 0F CC 01 58 B2 30 3A 52 4E | ".....X.0:RN|
000007E0: B2 39 3A 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 30 |.9:. 1000:. M..0|
000007F0: A7 8D 31 32 32 30 3A 8D 20 32 33 30 30 3A 8E 00 |..1220:. 2300:..|
00000800: 0B 10 D6 01 8D 31 35 30 30 3A 8E 00 11 10 E0 01 |.....1500:......|
00000810: 3A 00 2B 10 EA 01 8F 20 20 20 20 20 20 20 20 20 |:.+.... |
00000820: 20 50 48 41 52 4D 41 43 49 45 53 00 31 10 F4 01 | PHARMACIES.1...|
00000830: 3A 00 4A 10 FE 01 81 43 32 B2 30 A4 31 3A 52 4E |:.J....C2.0.1:RN|
00000840: B2 31 30 AA 43 32 3A 58 B2 30 00 84 10 08 02 8B |.10.C2:X.0......|
00000850: 20 43 32 B2 30 A7 99 22 9C 12 93 20 20 20 20 20 | C2.0.."... |
00000860: 20 20 20 20 20 20 20 D2 45 47 55 4C 41 52 20 D0 | .EGULAR .|
00000870: 48 41 52 4D 41 43 59 20 20 20 20 20 20 20 20 20 |HARMACY |
00000880: 20 20 20 22 00 BE 10 12 02 8B 20 43 32 B2 31 A7 | "...... C2.1.|
00000890: 99 22 9C 12 93 20 20 20 20 20 20 20 20 20 20 20 |."... |
000008A0: 20 32 34 2D C8 4F 55 52 20 D0 48 41 52 4D 41 43 | 24-.OUR .HARMAC|
000008B0: 59 20 20 20 20 20 20 20 20 20 20 20 20 22 00 ED |Y "..|
000008C0: 10 1C 02 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 30 |.... 1000:. M..0|
000008D0: A7 8D 20 31 32 32 30 3A 8B 5A 24 B2 C7 28 31 33 |.. 1220:.Z$..(13|
000008E0: 34 29 A7 8D 32 33 30 30 3A 82 20 43 32 00 FA 10 |4)..2300:. C2...|
000008F0: 1D 02 8B 20 4D B2 31 A7 20 8E 00 0C 11 21 02 8D |... M.1. ....!..|
00000900: 20 31 35 30 30 3A 82 20 43 32 3A 8E 00 12 11 26 | 1500:. C2:....&|
00000910: 02 3A 00 2C 11 30 02 8F 20 20 20 20 20 20 20 20 |.:.,.0.. |
00000920: 20 20 20 48 4F 54 20 4C 49 4E 45 53 00 32 11 3A | HOT LINES.2.:|
00000930: 02 3A 00 4A 11 44 02 81 20 43 32 B2 30 20 A4 20 |.:.J.D.. C2.0 . |
00000940: 34 3A 52 4E B2 43 32 AA 31 32 00 81 11 4E 02 99 |4:RN.C2.12...N..|
00000950: 22 93 90 12 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
00000960: 20 20 20 20 22 48 4C 24 22 9D 20 23 22 43 32 AA | "HL$". #"C2.|
00000970: 31 22 9D 20 20 20 20 20 20 20 20 20 20 20 20 20 |1". |
00000980: 22 00 B3 11 58 02 58 B2 34 3A 8D 31 30 30 30 3A |"...X.X.4:.1000:|
00000990: 8B 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 B2 |.M..0..1220:.Z$.|
000009A0: C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 20 43 |.(134)..2300:. C|
000009B0: 32 3A 8E 00 BF 11 5D 02 8B 20 4D B2 31 A7 8E 00 |2:....].. M.1...|
000009C0: D8 11 62 02 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 |..b..1500:. Z$..|
000009D0: 28 31 33 33 29 A7 20 8E 00 E2 11 67 02 82 43 32 |(133). ....g..C2|
000009E0: 3A 8E 00 E8 11 6C 02 3A 00 EE 11 76 02 3A 00 F4 |:....l.:...v.:..|
000009F0: 11 80 02 3A 00 0D 12 8A 02 81 43 32 B2 30 A4 31 |...:......C2.0.1|
00000A00: 3A 52 4E B2 31 37 AA 43 32 3A 58 B2 32 00 47 12 |:RN.17.C2:X.2.G.|
00000A10: 94 02 8B 20 43 32 B2 30 A7 99 22 9C 12 93 20 20 |... C2.0.."... |
00000A20: 20 20 20 20 20 20 20 20 20 20 CD 45 44 49 43 41 | .EDICA|
00000A30: 4C 20 C9 4E 53 55 52 41 4E 43 45 20 20 20 20 20 |L .NSURANCE |
00000A40: 20 20 20 20 20 20 22 00 81 12 9E 02 8B 20 43 32 | "...... C2|
00000A50: B2 31 A7 99 22 9C 12 93 20 20 20 20 20 20 20 20 |.1.."... |
00000A60: 20 20 20 20 C4 45 4E 54 41 4C 20 C9 4E 53 55 52 | .ENTAL .NSUR|
00000A70: 41 4E 43 45 20 20 20 20 20 20 20 20 20 20 20 20 |ANCE |
00000A80: 22 00 B0 12 A8 02 8D 31 30 30 30 3A 8B 20 4D B3 |"......1000:. M.|
00000A90: B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 B2 C7 28 31 |.0..1220:.Z$..(1|
00000AA0: 33 34 29 A7 8D 20 32 33 30 30 3A 82 43 32 3A 8E |34).. 2300:.C2:.|
00000AB0: 00 BD 12 A9 02 8B 20 4D B2 31 A7 20 8E 00 D6 12 |...... M.1. ....|
00000AC0: AD 02 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 28 31 |...1500:. Z$..(1|
00000AD0: 33 33 29 A7 20 8E 00 E0 12 B2 02 82 43 32 3A 8E |33). .......C2:.|
00000AE0: 00 E6 12 BC 02 3A 00 01 13 C6 02 8F 20 20 20 20 |.....:...... |
00000AF0: 20 20 20 20 20 20 50 4F 4C 49 43 45 20 46 49 52 | POLICE FIR|
00000B00: 45 00 07 13 D0 02 3A 00 20 13 DA 02 81 43 32 B2 |E.....:. ....C2.|
00000B10: 30 A4 31 3A 52 4E B2 31 39 AA 43 32 3A 58 B2 35 |0.1:RN.19.C2:X.5|
00000B20: 00 5A 13 DF 02 8B 20 43 32 B2 30 A7 99 22 9C 12 |.Z.... C2.0.."..|
00000B30: 93 20 20 20 20 20 20 20 20 20 20 20 20 C6 49 52 |. .IR|
00000B40: 45 20 C4 45 50 41 52 54 4D 45 4E 54 20 20 20 20 |E .EPARTMENT |
00000B50: 20 20 20 20 20 20 20 20 20 22 00 94 13 E4 02 8B | "......|
00000B60: 20 43 32 B2 31 A7 99 22 9C 12 93 20 20 20 20 20 | C2.1.."... |
00000B70: 20 20 20 20 20 20 D0 4F 4C 49 43 45 20 C4 45 50 | .OLICE .EP|
00000B80: 41 52 54 4D 45 4E 54 20 20 20 20 20 20 20 20 20 |ARTMENT |
00000B90: 20 20 20 22 00 C1 13 E9 02 8D 31 30 30 30 3A 8B | "......1000:.|
00000BA0: 20 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 B2 | M..0..1220:.Z$.|
00000BB0: C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 20 43 |.(134)..2300:. C|
00000BC0: 32 00 CD 13 EE 02 8B 20 4D B2 31 A7 8E 00 E6 13 |2...... M.1.....|
00000BD0: F3 02 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 28 31 |...1500:. Z$..(1|
00000BE0: 33 33 29 A7 20 8E 00 F0 13 F4 02 82 43 32 3A 8E |33). .......C2:.|
00000BF0: 00 F6 13 F8 02 3A 00 12 14 02 03 8F 20 20 20 20 |.....:...... |
00000C00: 20 20 20 20 45 4D 45 52 47 45 4E 43 59 20 52 4F | EMERGENCY RO|
00000C10: 4F 4D 00 18 14 0C 03 3A 00 42 14 16 03 99 22 93 |OM.....:.B....".|
00000C20: 12 1C 20 20 20 DB 20 20 20 20 20 20 20 20 20 22 |.. . "|
00000C30: 45 52 24 22 20 20 20 20 20 20 20 20 20 DB 20 20 |ER$" . |
00000C40: 20 22 00 6D 14 20 03 58 B2 33 3A 52 4E B2 32 31 | ".m. .X.3:RN.21|
00000C50: 3A 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 30 A7 8D |:. 1000:. M..0..|
00000C60: 31 32 32 30 3A 8D 20 32 33 30 30 3A 8E 00 79 14 |1220:. 2300:..y.|
00000C70: 2A 03 8D 31 35 30 30 3A 8E 00 7F 14 34 03 3A 00 |*..1500:....4.:.|
00000C80: 9F 14 3E 03 8F 20 20 20 20 20 50 4F 49 53 4F 4E |..>.. POISON|
00000C90: 20 43 4F 4E 54 52 4F 4C 20 43 45 4E 54 45 52 00 | CONTROL CENTER.|
00000CA0: A5 14 48 03 3A 00 C8 14 52 03 99 22 93 12 1C 20 |..H.:...R.."... |
00000CB0: 20 20 DB 20 20 20 20 20 22 50 43 24 22 20 20 20 | . "PC$" |
00000CC0: 20 20 20 DB 20 20 20 22 00 F3 14 5C 03 58 B2 35 | . "...\.X.5|
00000CD0: 3A 52 4E B2 32 33 3A 8D 20 31 30 30 30 3A 8B 20 |:RN.23:. 1000:. |
00000CE0: 4D B3 B1 30 A7 8D 31 32 32 30 3A 8D 20 32 33 30 |M..0..1220:. 230|
00000CF0: 30 3A 8E 00 FF 14 66 03 8D 31 35 30 30 3A 8E 00 |0:....f..1500:..|
00000D00: 05 15 70 03 3A 00 23 15 7A 03 8F 20 20 20 20 20 |..p.:.#.z.. |
00000D10: 20 20 50 41 52 41 4D 45 44 49 43 20 53 45 52 56 | PARAMEDIC SERV|
00000D20: 49 43 45 00 29 15 84 03 3A 00 50 15 8E 03 99 22 |ICE.)...:.P...."|
00000D30: 93 12 1C 20 20 20 DB 20 20 20 20 20 20 20 22 50 |... . "P|
00000D40: 53 24 22 20 20 20 20 20 20 20 20 DB 20 20 20 22 |S$" . "|
00000D50: 00 7B 15 98 03 58 B2 35 3A 52 4E B2 32 32 3A 8D |.{...X.5:RN.22:.|
00000D60: 20 31 30 30 30 3A 8B 20 4D B3 B1 30 A7 8D 31 32 | 1000:. M..0..12|
00000D70: 32 30 3A 8D 20 32 33 30 30 3A 8E 00 87 15 A2 03 |20:. 2300:......|
00000D80: 8D 31 35 30 30 3A 8E 00 8D 15 AC 03 3A 00 AA 15 |.1500:......:...|
00000D90: AD 03 8F 20 20 20 20 20 20 20 56 49 45 57 20 41 |... VIEW A|
00000DA0: 4C 4C 20 52 45 43 4F 52 44 53 00 B0 15 AE 03 3A |LL RECORDS.....:|
00000DB0: 00 BC 15 AF 03 49 B2 31 3A 4D B2 30 00 F3 15 B0 |.....I.1:M.0....|
00000DC0: 03 91 20 20 49 20 8D 20 32 31 30 2C 34 32 30 2C |.. I . 210,420,|
00000DD0: 37 30 30 2C 37 36 30 2C 38 32 30 2C 38 38 30 2C |700,760,820,880,|
00000DE0: 32 37 30 2C 33 34 30 2C 36 32 30 2C 35 30 30 2C |270,340,620,500,|
00000DF0: 35 35 30 00 05 16 B4 03 8B 20 5A 24 B2 C7 28 31 |550...... Z$..(1|
00000E00: 33 33 29 A7 8E 00 18 16 B5 03 49 B2 49 AA 31 3A |33).......I.I.1:|
00000E10: 8B 49 B1 31 31 A7 20 8E 00 22 16 B7 03 89 20 39 |.I.11. ..".... 9|
00000E20: 34 34 00 61 16 C0 03 A0 34 3A 99 22 93 11 11 11 |44.a....4:."....|
00000E30: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D CD 41 4B |..............AK|
00000E40: 45 20 53 55 52 45 20 59 4F 55 52 20 50 52 49 4E |E SURE YOUR PRIN|
00000E50: 54 45 52 20 49 53 20 54 55 52 4E 45 44 20 4F 4E |TER IS TURNED ON|
00000E60: 2E 00 8E 16 C1 03 99 22 11 11 11 11 11 1D 1D 1D |......."........|
00000E70: 1D 1D D0 52 45 53 53 20 53 50 41 43 45 20 42 41 |...RESS SPACE BA|
00000E80: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 A2 |R TO CONTINUE"..|
00000E90: 16 C2 03 A1 20 5A 24 3A 8B 5A 24 B2 22 22 A7 39 |.... Z$:.Z$."".9|
00000EA0: 36 32 00 AD 16 C3 03 9F 34 2C 34 2C 37 00 EF 16 |62......4,4,7...|
00000EB0: C4 03 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 |...4," |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ED0: 20 C8 C5 C1 CC D4 C8 20 D4 C5 CC C5 D0 C8 CF CE | ...... ........|
00000EE0: C5 20 C4 C9 D2 C5 C3 D4 CF D2 D9 22 3A 9D 34 00 |. .........":.4.|
00000EF0: 2E 17 C5 03 4E B2 31 3A 81 49 B2 31 A4 31 31 3A |....N.1:.I.1.11:|
00000F00: 91 49 89 39 36 36 2C 39 36 37 2C 39 36 38 2C 39 |.I.966,967,968,9|
00000F10: 37 32 2C 39 37 33 2C 39 37 37 2C 39 38 32 2C 39 |72,973,977,982,9|
00000F20: 38 35 2C 39 38 38 2C 39 39 31 2C 39 39 34 00 57 |85,988,991,994.W|
00000F30: 17 C6 03 99 3A 99 22 C6 41 4D 49 4C 59 20 D0 48 |....:.".AMILY .H|
00000F40: 59 53 49 43 49 41 4E 22 3B 3A 58 B2 30 3A 52 4E |YSICIAN";:X.0:RN|
00000F50: B2 31 3A 89 39 39 37 00 8C 17 C7 03 81 43 32 B2 |.1:.997......C2.|
00000F60: 30 A4 34 3A 52 4E B2 43 32 AA 32 3A 58 B2 31 3A |0.4:RN.C2.2:X.1:|
00000F70: 99 3A 99 22 D3 50 45 43 49 41 4C 49 53 54 20 23 |.:.".PECIALIST #|
00000F80: 20 22 43 32 AA 31 3B 3A 89 39 39 36 00 AD 17 C8 | "C2.1;:.996....|
00000F90: 03 99 C7 28 31 32 29 3A 81 43 32 B2 30 A4 31 3A |...(12):.C2.0.1:|
00000FA0: 52 4E B2 37 AA 43 32 3A 58 B2 30 3A 99 00 D2 17 |RN.7.C2:X.0:....|
00000FB0: C9 03 8B 43 32 B2 30 A7 99 22 D2 45 47 55 4C 41 |...C2.0..".EGULA|
00000FC0: 52 20 D6 45 54 45 52 49 4E 41 52 49 41 4E 20 20 |R .ETERINARIAN |
00000FD0: 22 3B 00 F8 17 CA 03 8B 43 32 B2 31 A7 99 22 32 |";......C2.1.."2|
00000FE0: 34 2D 48 4F 55 52 20 C1 4E 49 4D 41 4C 20 C8 4F |4-HOUR .NIMAL .O|
00000FF0: 53 50 49 54 41 4C 22 3B 00 01 18 CB 03 89 39 39 |SPITAL";......99|
00001000: 36 00 21 18 CC 03 99 3A 99 22 C4 45 4E 54 49 53 |6.!....:.".ENTIS|
00001010: 54 22 3B 3A 58 B2 30 3A 52 4E B2 39 3A 89 39 39 |T";:X.0:RN.9:.99|
00001020: 37 00 57 18 CD 03 81 43 32 B2 30 A4 31 3A 52 4E |7.W....C2.0.1:RN|
00001030: B2 31 30 AA 43 32 3A 58 B2 30 3A 99 3A 8B 43 32 |.10.C2:X.0:.:.C2|
00001040: B2 30 A7 99 22 D2 45 47 55 4C 41 52 20 D0 48 41 |.0..".EGULAR .HA|
00001050: 52 4D 41 43 59 22 3B 00 76 18 CE 03 8B 43 32 B2 |RMACY";.v....C2.|
00001060: 31 A7 99 22 32 34 2D 48 4F 55 52 20 D0 48 41 52 |1.."24-HOUR .HAR|
00001070: 4D 41 43 59 22 3B 00 7F 18 CF 03 89 39 39 36 00 |MACY";......996.|
00001080: A1 18 D1 03 99 C7 28 31 32 29 3A 81 43 32 B2 30 |......(12):.C2.0|
00001090: A4 34 3A 58 B2 34 3A 52 4E B2 43 32 AA 31 32 3A |.4:X.4:RN.C2.12:|
000010A0: 99 00 BE 18 D2 03 99 22 C8 4F 54 20 CC 49 4E 45 |.......".OT .INE|
000010B0: 20 23 20 22 43 32 AA 31 3B 3A 89 39 39 36 00 F5 | # "C2.1;:.996..|
000010C0: 18 D6 03 81 43 32 B2 30 A4 31 3A 52 4E B2 31 37 |....C2.0.1:RN.17|
000010D0: AA 43 32 3A 58 B2 32 3A 99 3A 8B 43 32 B2 30 A7 |.C2:X.2:.:.C2.0.|
000010E0: 99 22 CD 45 44 49 43 41 4C 20 C9 4E 53 55 52 41 |.".EDICAL .NSURA|
000010F0: 4E 43 45 22 3B 00 14 19 D7 03 8B 43 32 B2 31 A7 |NCE";......C2.1.|
00001100: 99 22 C4 45 4E 54 41 4C 20 C9 4E 53 55 52 41 4E |.".ENTAL .NSURAN|
00001110: 43 45 22 3B 00 1D 19 D8 03 89 39 39 36 00 59 19 |CE";......996.Y.|
00001120: D9 03 99 C7 28 31 32 29 3A 81 43 32 B2 30 A4 31 |....(12):.C2.0.1|
00001130: 3A 52 4E B2 31 39 AA 43 32 3A 58 B2 35 3A 99 3A |:RN.19.C2:X.5:.:|
00001140: 8B 43 32 B2 30 A7 99 22 C6 49 52 45 20 C4 45 50 |.C2.0..".IRE .EP|
00001150: 41 52 54 4D 45 4E 54 22 3B 00 79 19 DA 03 8B 43 |ARTMENT";.y....C|
00001160: 32 B2 31 A7 99 22 D0 4F 4C 49 43 45 20 C4 45 50 |2.1..".OLICE .EP|
00001170: 41 52 54 4D 45 4E 54 22 3B 00 82 19 DB 03 89 39 |ARTMENT";......9|
00001180: 39 36 00 AA 19 DC 03 58 B2 33 3A 52 4E B2 32 31 |96.....X.3:RN.21|
00001190: 3A 99 3A 99 22 C5 4D 45 52 47 45 4E 43 59 20 D2 |:.:.".MERGENCY .|
000011A0: 4F 4F 4D 22 3B 3A 89 39 39 37 00 D9 19 DF 03 58 |OOM";:.997.....X|
000011B0: B2 35 3A 52 4E B2 32 33 3A 99 3A 99 22 D0 4F 49 |.5:RN.23:.:.".OI|
000011C0: 53 4F 4E 20 C3 4F 4E 54 52 4F 4C 20 C3 45 4E 54 |SON .ONTROL .ENT|
000011D0: 45 52 22 3B 3A 89 39 39 37 00 04 1A E2 03 58 B2 |ER";:.997.....X.|
000011E0: 35 3A 52 4E B2 32 32 3A 99 3A 99 22 D0 41 52 41 |5:RN.22:.:.".ARA|
000011F0: 4D 45 44 49 43 20 D3 45 52 56 49 43 45 22 3B 3A |MEDIC .ERVICE";:|
00001200: 89 39 39 37 00 15 1A E4 03 8D 33 30 30 30 3A 82 |.997......3000:.|
00001210: 3A 89 39 39 38 00 1F 1A E5 03 8D 33 30 30 30 00 |:.998......3000.|
00001220: 3D 1A E6 03 82 3A 98 34 3A 98 34 2C C7 28 31 32 |=....:.4:.4,.(12|
00001230: 29 3A 98 34 3A A0 34 3A 4E B2 30 3A 8E 00 43 1A |):.4:.4:N.0:..C.|
00001240: E7 03 80 00 49 1A E8 03 3A 00 66 1A F2 03 8F 20 |....I...:.f.... |
00001250: 20 20 20 20 44 41 54 41 20 48 41 4E 44 4C 49 4E | DATA HANDLIN|
00001260: 47 20 52 4F 55 54 00 6C 1A FC 03 3A 00 75 1A FD |G ROUT.l...:.u..|
00001270: 03 99 22 90 22 00 89 1A FE 03 8B 20 4E B3 B1 30 |.."."...... N..0|
00001280: A7 8D 20 33 30 30 30 3A 8E 00 D6 1A 01 04 4E 41 |.. 3000:......NA|
00001290: 24 B2 22 4E 41 4D 45 22 3A 43 31 24 B2 22 43 4F |$."NAME":C1$."CO|
000012A0: 4D 4D 45 4E 54 22 3A 43 32 24 B2 22 22 3A 8B 58 |MMENT":C2$."":.X|
000012B0: B2 32 A7 4E 41 24 B2 22 43 41 52 52 49 45 52 22 |.2.NA$."CARRIER"|
000012C0: 3A 43 32 24 B2 43 31 24 3A 43 31 24 B2 22 50 4F |:C2$.C1$:C1$."PO|
000012D0: 4C 49 43 59 23 22 00 F3 1A 02 04 8B 20 58 B2 33 |LICY#"...... X.3|
000012E0: 20 A7 20 43 31 24 B2 22 44 49 52 45 43 54 49 4F | . C1$."DIRECTIO|
000012F0: 4E 53 22 00 2D 1B 03 04 4E 41 24 B2 C8 28 4E 41 |NS".-...NA$..(NA|
00001300: 24 AA 42 4C 24 2C 31 30 29 3A 43 31 24 B2 C8 28 |$.BL$,10):C1$..(|
00001310: 43 31 24 AA 42 4C 24 2C 31 30 29 3A 43 32 24 B2 |C1$.BL$,10):C2$.|
00001320: C8 28 43 32 24 AA 42 4C 24 2C 31 30 29 00 68 1B |.(C2$.BL$,10).h.|
00001330: 06 04 8B 58 B2 31 A7 97 32 31 30 2C A5 41 28 31 |...X.1..210,.A(1|
00001340: 31 38 34 29 3A 97 20 32 30 39 2C A5 42 28 31 31 |184):. 209,.B(11|
00001350: 38 34 29 3A 99 22 53 50 45 43 49 41 4C 54 59 20 |84):."SPECIALTY |
00001360: 3A 22 42 4C 24 22 3A 22 00 9D 1B 10 04 8B 58 B3 |:"BL$":"......X.|
00001370: 35 A7 97 32 31 30 2C A5 41 28 31 32 36 34 29 3A |5..210,.A(1264):|
00001380: 97 20 32 30 39 2C A5 42 28 31 32 36 34 29 3A 99 |. 209,.B(1264):.|
00001390: 20 4E 41 24 22 3A 22 42 4C 24 22 3A 22 00 D8 1B | NA$":"BL$":"...|
000013A0: 1A 04 8B 58 B3 34 A7 97 32 31 30 2C A5 41 28 31 |...X.4..210,.A(1|
000013B0: 33 34 34 29 3A 97 20 32 30 39 2C A5 42 28 31 33 |344):. 209,.B(13|
000013C0: 34 34 29 3A 99 22 41 44 44 52 45 53 53 20 20 20 |44):."ADDRESS |
000013D0: 3A 22 42 4C 24 22 3A 22 00 15 1C 24 04 8B 58 B3 |:"BL$":"...$..X.|
000013E0: 34 A7 20 20 97 32 31 30 2C A5 41 28 31 34 32 34 |4. .210,.A(1424|
000013F0: 29 3A 97 20 32 30 39 2C A5 42 28 31 34 32 34 29 |):. 209,.B(1424)|
00001400: 3A 99 22 20 20 20 20 20 20 20 20 20 20 3A 22 42 |:." :"B|
00001410: 4C 24 22 3A 22 00 52 1C 2E 04 97 32 31 30 2C A5 |L$":".R....210,.|
00001420: 41 28 31 35 30 34 29 3A 97 20 32 30 39 2C A5 42 |A(1504):. 209,.B|
00001430: 28 31 35 30 34 29 3A 99 22 50 48 4F 4E 45 20 20 |(1504):."PHONE |
00001440: 20 20 20 3A 28 20 20 20 29 20 20 20 2D 20 20 20 | :( ) - |
00001450: 20 22 00 81 1C 38 04 97 32 31 30 2C A5 41 28 31 | "...8..210,.A(1|
00001460: 35 38 34 29 3A 97 20 32 30 39 2C A5 42 28 31 35 |584):. 209,.B(15|
00001470: 38 34 29 3A 99 43 31 24 22 3A 22 42 4C 24 22 3A |84):.C1$":"BL$":|
00001480: 22 00 B8 1C 42 04 97 32 31 30 2C A5 41 28 31 36 |"...B..210,.A(16|
00001490: 36 34 29 3A 97 20 32 30 39 2C A5 42 28 31 36 36 |64):. 209,.B(166|
000014A0: 34 29 3A 99 43 32 24 22 3A 22 42 4C 24 22 3A 22 |4):.C2$":"BL$":"|
000014B0: 3A 8D 31 31 30 30 3A 8E 00 BE 1C 4C 04 3A 00 E0 |:.1100:....L.:..|
000014C0: 1C 56 04 8F 20 20 47 45 54 20 44 41 54 41 20 46 |.V.. GET DATA F|
000014D0: 52 4F 4D 20 44 49 53 4B 20 52 4F 55 54 49 4E 45 |ROM DISK ROUTINE|
000014E0: 00 E6 1C 60 04 3A 00 EC 1C 61 04 8C 00 F9 1C 62 |...`.:...a.....b|
000014F0: 04 A0 34 3A 9F 20 34 2C 34 00 0B 1D 63 04 8B 20 |..4:. 4,4...c.. |
00001500: 4E B3 B1 30 A7 20 98 34 3A A0 34 00 2A 1D 65 04 |N..0. .4:.4.*.e.|
00001510: 9F 20 33 2C 38 2C 33 2C 22 44 49 52 45 43 54 4F |. 3,8,3,"DIRECTO|
00001520: 52 59 22 3A 8D 20 35 30 30 30 00 34 1D 66 04 41 |RY":. 5000.4.f.A|
00001530: 24 B2 22 22 00 49 1D 6A 04 81 20 43 B2 30 A4 36 |$."".I.j.. C.0.6|
00001540: 3A 53 24 28 43 29 B2 22 22 00 61 1D 74 04 8B 20 |:S$(C)."".a.t.. |
00001550: 58 B2 35 20 AF 20 43 B2 31 A7 20 89 20 31 31 39 |X.5 . C.1. . 119|
00001560: 31 00 7A 1D 7E 04 8B 20 58 B1 33 AF 28 43 B2 32 |1.z.~.. X.3.(C.2|
00001570: B0 43 B2 33 29 A7 31 31 39 31 00 91 1D 88 04 43 |.C.3).1191.....C|
00001580: 4C 28 43 29 B2 31 31 38 34 AA 43 AC 38 30 AA 31 |L(C).1184.C.80.1|
00001590: 31 00 B1 1D 92 04 50 B2 43 AC 32 36 AA 31 3A 8B |1.....P.C.26.1:.|
000015A0: 43 B1 34 A7 50 B2 28 43 AB 31 29 AC 32 36 AA 31 |C.4.P.(C.1).26.1|
000015B0: 31 00 D5 1D 9C 04 98 31 35 2C 22 50 22 C7 28 33 |1......15,"P".(3|
000015C0: 29 C7 28 52 4E 29 C7 28 30 29 C7 28 50 29 3A 8D |).(RN).(0).(P):.|
000015D0: 20 35 30 30 30 00 FE 1D 9D 04 84 31 35 2C 41 2C | 5000......15,A,|
000015E0: 42 24 3A 8B 41 B3 B1 30 A7 99 22 45 52 52 4F 52 |B$:.A..0.."ERROR|
000015F0: 20 49 4E 20 31 31 38 30 22 3A A0 33 3A 80 00 13 | IN 1180":.3:...|
00001600: 1E A0 04 8B 20 41 24 B2 C7 28 32 35 35 29 A7 31 |.... A$..(255).1|
00001610: 31 39 36 00 30 1E A1 04 A1 23 33 2C 41 24 3A 8B |196.0....#3,A$:.|
00001620: 20 41 24 B2 C7 28 32 35 35 29 A7 20 31 31 39 36 | A$..(255). 1196|
00001630: 00 53 1E A2 04 8B 20 41 24 B2 C7 28 31 33 29 B0 |.S.... A$..(13).|
00001640: 41 24 B2 22 22 A7 20 53 24 B2 22 22 3A 89 20 31 |A$."". S$."":. 1|
00001650: 31 39 36 00 75 1E A6 04 84 33 2C 53 24 3A 8B 20 |196.u....3,S$:. |
00001660: 58 B3 B1 31 AF 43 B2 30 A7 20 41 24 B2 22 22 3A |X..1.C.0. A$."":|
00001670: 53 24 B2 22 22 00 85 1E A7 04 53 24 28 43 29 B2 |S$."".....S$(C).|
00001680: 41 24 AA 53 24 00 8C 1E AC 04 82 43 00 A8 1E AD |A$.S$......C....|
00001690: 04 8B 20 4E B3 B1 30 20 A7 20 A0 33 3A 98 31 35 |.. N..0 . .3:.15|
000016A0: 2C 22 49 30 3A 22 3A 8E 00 BA 1E AE 04 53 24 B2 |,"I0:":......S$.|
000016B0: 22 22 3A 81 20 43 B2 30 A4 36 00 EC 1E AF 04 8B |"":. C.0.6......|
000016C0: 20 43 B2 34 A7 53 24 28 34 29 B2 C8 28 53 24 28 | C.4.S$(4)..(S$(|
000016D0: 34 29 2C 31 30 29 3A 43 4C B2 43 4C 28 34 29 3A |4),10):CL.CL(4):|
000016E0: 8D 31 34 33 30 3A 89 20 31 32 30 35 00 01 1F B1 |.1430:. 1205....|
000016F0: 04 8B 20 58 B3 B1 31 AF 43 B2 30 A7 89 31 32 30 |.. X..1.C.0..120|
00001700: 35 00 19 1F B2 04 8B 20 58 B2 35 20 AF 20 43 B2 |5...... X.5 . C.|
00001710: 31 A7 20 89 20 31 32 30 35 00 32 1F B3 04 8B 20 |1. . 1205.2.... |
00001720: 58 B1 33 AF 28 43 B2 32 B0 43 B2 33 29 A7 31 32 |X.3.(C.2.C.3).12|
00001730: 30 35 00 69 1F B4 04 97 32 30 39 2C A5 42 28 43 |05.i....209,.B(C|
00001740: 4C 28 43 29 29 3A 97 32 31 30 2C A5 41 28 43 4C |L(C)):.210,.A(CL|
00001750: 28 43 29 29 3A 99 22 1F 12 22 C8 28 53 24 28 43 |(C)):."..".(S$(C|
00001760: 29 AA 42 4C 24 2C 32 35 29 00 71 1F B5 04 82 20 |).BL$,25).q.... |
00001770: 43 00 84 1F BA 04 A0 33 3A 98 31 35 2C 22 49 30 |C......3:.15,"I0|
00001780: 3A 22 3A 8E 00 8A 1F C4 04 3A 00 A8 1F CE 04 8F |:":......:......|
00001790: 20 20 20 20 20 20 44 41 54 41 20 46 49 45 4C 44 | DATA FIELD|
000017A0: 20 48 41 4E 44 4C 45 52 00 AE 1F D8 04 3A 00 F3 | HANDLER.....:..|
000017B0: 1F D9 04 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000017C0: 11 11 11 11 11 11 11 11 11 11 1C C4 4F 20 4E 4F |............O NO|
000017D0: 54 20 55 53 45 20 43 4F 4D 4D 41 53 2C 20 53 45 |T USE COMMAS, SE|
000017E0: 4D 49 43 4F 4C 4F 4E 53 20 4F 52 20 43 4F 4C 4F |MICOLONS OR COLO|
000017F0: 4E 53 22 00 1D 20 DA 04 99 22 D0 52 45 53 53 20 |NS".. ...".RESS |
00001800: D2 C5 D4 D5 D2 CE 20 54 4F 20 4D 4F 56 45 20 42 |...... TO MOVE B|
00001810: 45 54 57 45 45 4E 20 42 4F 58 45 53 22 00 5C 20 |ETWEEN BOXES".\ |
00001820: DB 04 99 22 D0 52 45 53 53 20 46 31 20 54 4F 20 |...".RESS F1 TO |
00001830: 52 45 54 55 52 4E 20 54 4F 20 CD 45 4E 55 22 3A |RETURN TO .ENU":|
00001840: 99 22 D0 52 45 53 53 20 46 33 20 54 4F 20 53 41 |.".RESS F3 TO SA|
00001850: 56 45 20 52 45 43 4F 52 44 2E 90 22 00 78 20 E2 |VE RECORD..".x .|
00001860: 04 53 24 B2 22 22 3A 43 B2 30 3A 8B 58 B3 B1 31 |.S$."":C.0:.X..1|
00001870: AF 43 B2 30 A7 43 B2 31 00 8E 20 EC 04 41 B2 30 |.C.0.C.1.. ..A.0|
00001880: 3A 50 B2 31 3A 8B 43 B1 36 20 A7 43 B2 30 00 A0 |:P.1:.C.6 .C.0..|
00001890: 20 ED 04 8B 58 B3 B1 31 AF 43 B2 30 A7 43 B2 31 | ...X..1.C.0.C.1|
000018A0: 00 B4 20 EE 04 8B 20 58 B2 34 AF 28 43 B2 32 29 |.. ... X.4.(C.2)|
000018B0: A7 43 B2 34 00 C8 20 EF 04 8B 20 58 B2 35 AF 28 |.C.4.. ... X.5.(|
000018C0: 43 B2 31 29 A7 43 B2 34 00 E0 20 F6 04 43 4C B2 |C.1).C.4.. ..CL.|
000018D0: 31 31 39 35 AA 43 AC 38 30 3A 8D 20 31 34 37 30 |1195.C.80:. 1470|
000018E0: 00 F7 20 F7 04 A1 20 41 24 3A 41 B2 C6 28 41 24 |.. ... A$:A..(A$|
000018F0: AA C7 28 33 31 29 29 00 28 21 F8 04 8B 41 B2 32 |..(31)).(!...A.2|
00001900: 39 B0 41 B2 31 39 B0 41 B2 32 30 B0 41 B2 31 35 |9.A.19.A.20.A.15|
00001910: 37 B0 41 B2 31 33 33 B0 41 B2 31 33 34 B0 41 B2 |7.A.133.A.134.A.|
00001920: 31 34 38 A7 31 33 37 30 00 49 21 FA 04 8B 20 41 |148.1370.I!... A|
00001930: 24 B2 22 2C 22 B0 41 24 B2 22 3B 22 B0 41 24 B2 |$.",".A$.";".A$.|
00001940: 22 3A 22 A7 20 31 32 37 31 00 5B 21 00 05 43 4C |":". 1271.[!..CL|
00001950: B2 31 31 39 35 AA 43 AC 38 30 3A 00 8D 21 0A 05 |.1195.C.80:..!..|
00001960: 8B A8 28 41 B1 33 31 AF 41 B3 39 31 29 AF A8 28 |..(A.31.A.91)..(|
00001970: 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA 22 29 |A$..".".A$..".")|
00001980: AF 41 B3 B1 31 33 20 A7 20 31 32 37 31 00 C0 21 |.A..13 . 1271..!|
00001990: 0B 05 8B 20 41 B2 31 33 20 A7 20 43 B2 43 AA 31 |... A.13 . C.C.1|
000019A0: 3A 53 24 28 34 29 B2 C8 28 53 24 28 34 29 2C 31 |:S$(4)..(S$(4),1|
000019B0: 30 29 3A 8D 20 31 34 37 30 3A 89 20 31 32 36 30 |0):. 1470:. 1260|
000019C0: 00 E7 21 1E 05 8B 20 43 B2 34 AF 20 A8 28 28 41 |..!... C.4. .((A|
000019D0: B1 34 37 29 AF 28 41 B3 35 38 29 B0 41 B2 33 32 |.47).(A.58).A.32|
000019E0: 29 A7 20 31 32 37 30 00 29 22 28 05 53 24 28 43 |). 1270.)"(.S$(C|
000019F0: 29 B2 C8 28 53 24 28 43 29 2C 50 AB 31 29 AA 41 |)..(S$(C),P.1).A|
00001A00: 24 AA CA 28 53 24 28 43 29 AA 42 4C 24 2C 50 AA |$..(S$(C).BL$,P.|
00001A10: 31 2C 32 35 29 3A 50 B2 50 AA 31 3A 8B 20 50 B1 |1,25):P.P.1:. P.|
00001A20: 32 35 20 A7 20 50 B2 32 35 00 59 22 32 05 53 24 |25 . P.25.Y"2.S$|
00001A30: 28 43 29 B2 C8 28 53 24 28 43 29 2C 32 35 29 3A |(C)..(S$(C),25):|
00001A40: 8B 20 43 B2 34 20 A7 20 53 24 28 43 29 B2 C8 28 |. C.4 . S$(C)..(|
00001A50: 53 24 28 43 29 2C 31 30 29 00 70 22 37 05 8B 20 |S$(C),10).p"7.. |
00001A60: 43 B2 34 A7 8D 31 34 33 30 3A 89 20 31 32 37 30 |C.4..1430:. 1270|
00001A70: 00 96 22 3C 05 99 22 13 1F 12 22 3B 3A 97 20 32 |.."<.."...";:. 2|
00001A80: 30 39 2C A5 42 28 43 4C 29 3A 97 20 32 31 30 2C |09,.B(CL):. 210,|
00001A90: A5 41 28 43 4C 29 00 A8 22 46 05 99 53 24 28 43 |.A(CL).."F..S$(C|
00001AA0: 29 3A 89 20 31 32 37 30 00 B3 22 50 05 89 20 31 |):. 1270.."P.. 1|
00001AB0: 32 37 30 00 D3 22 5A 05 8B 20 41 B2 32 39 20 A7 |270.."Z.. A.29 .|
00001AC0: 20 50 B2 50 AA 31 3A 8B 20 50 B1 32 35 A7 50 B2 | P.P.1:. P.25.P.|
00001AD0: 32 35 3A 00 F0 22 64 05 8B 20 41 B2 31 39 A7 20 |25:.."d.. A.19. |
00001AE0: 43 B2 30 3A 8D 31 34 37 30 3A 89 20 31 32 35 30 |C.0:.1470:. 1250|
00001AF0: 00 29 23 6E 05 8B 41 B2 32 30 AF 50 B1 31 A7 53 |.)#n..A.20.P.1.S|
00001B00: 24 28 43 29 B2 C8 28 53 24 28 43 29 2C 50 AB 32 |$(C)..(S$(C),P.2|
00001B10: 29 AA CA 28 53 24 28 43 29 AA 42 4C 24 2C 50 2C |)..(S$(C).BL$,P,|
00001B20: 32 36 29 3A 50 B2 50 AB 31 00 6C 23 73 05 8B 41 |26):P.P.1.l#s..A|
00001B30: B2 31 34 38 AF C9 28 53 24 28 43 29 2C 31 29 B2 |.148..(S$(C),1).|
00001B40: 22 20 22 A7 53 24 28 43 29 B2 C8 28 53 24 28 43 |" ".S$(C)..(S$(C|
00001B50: 29 2C 50 AB 31 29 AA 22 20 22 AA CA 28 53 24 28 |),P.1)." "..(S$(|
00001B60: 43 29 AA 42 4C 24 2C 50 2C 32 36 29 00 89 23 78 |C).BL$,P,26)..#x|
00001B70: 05 8B 20 41 B2 31 35 37 AF 50 B1 31 A7 20 50 B2 |.. A.157.P.1. P.|
00001B80: 50 AB 31 3A 89 31 32 37 30 00 A2 23 82 05 8B A8 |P.1:.1270..#....|
00001B90: 28 41 B2 31 33 33 B0 41 B2 31 33 34 29 A7 31 33 |(A.133.A.134).13|
00001BA0: 33 30 00 B8 23 83 05 5A 24 B2 41 24 3A 8B 20 41 |30..#..Z$.A$:. A|
00001BB0: B2 31 33 33 20 A7 20 8E 00 F4 23 84 05 99 22 13 |.133 . ...#...".|
00001BC0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001BD0: 11 11 11 12 1C 22 42 4C 24 42 4C 24 42 4C 24 42 |....."BL$BL$BL$B|
00001BE0: 4C 24 42 4C 24 42 4C 24 42 4C 24 42 4C 24 3B 3A |L$BL$BL$BL$BL$;:|
00001BF0: 99 22 13 22 00 2A 24 85 05 99 22 13 11 11 11 11 |.".".*$...".....|
00001C00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001C10: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 50 4C |. PL|
00001C20: 45 41 53 45 20 57 41 49 54 22 00 30 24 87 05 8E |EASE WAIT".0$...|
00001C30: 00 69 24 96 05 99 22 13 1F 12 22 3B 3A 97 20 32 |.i$..."...";:. 2|
00001C40: 30 39 2C A5 42 28 43 4C AA 31 29 3A 97 32 31 30 |09,.B(CL.1):.210|
00001C50: 2C A5 41 28 43 4C AA 31 29 3A 99 C8 28 53 24 28 |,.A(CL.1):..(S$(|
00001C60: 34 29 AA 42 4C 24 2C 33 29 00 A5 24 A0 05 99 22 |4).BL$,3)..$..."|
00001C70: 13 12 1F 22 3B 3A 97 20 32 30 39 2C A5 42 28 43 |...";:. 209,.B(C|
00001C80: 4C AA 35 29 3A 97 32 31 30 2C A5 41 28 43 4C AA |L.5):.210,.A(CL.|
00001C90: 35 29 3A 99 CA 28 53 24 28 34 29 AA 42 4C 24 2C |5):..(S$(4).BL$,|
00001CA0: 34 2C 33 29 3B 00 E0 24 AA 05 99 22 13 12 1F 22 |4,3);..$..."..."|
00001CB0: 3B 3A 97 20 32 30 39 2C A5 42 28 43 4C AA 39 29 |;:. 209,.B(CL.9)|
00001CC0: 3A 97 32 31 30 2C A5 41 28 43 4C AA 39 29 3A 99 |:.210,.A(CL.9):.|
00001CD0: CA 28 53 24 28 34 29 AA 42 4C 24 2C 37 2C 34 29 |.(S$(4).BL$,7,4)|
00001CE0: 00 E6 24 B4 05 8E 00 19 25 BE 05 99 22 13 22 3A |..$.....%...".":|
00001CF0: 43 50 B2 43 4C AA 33 39 3A 97 20 32 30 39 2C A5 |CP.CL.39:. 209,.|
00001D00: 42 28 43 50 29 3A 97 32 31 30 2C A5 41 28 43 50 |B(CP):.210,.A(CP|
00001D10: 29 3A 99 42 4C 24 22 20 22 00 2F 25 C3 05 8B 20 |):.BL$" "./%... |
00001D20: 43 B2 34 AF 50 B3 34 A7 43 50 B2 43 50 AA 31 00 |C.4.P.4.CP.CP.1.|
00001D30: 4A 25 C8 05 8B 20 43 B2 34 AF 50 B1 33 AF 50 B3 |J%... C.4.P.3.P.|
00001D40: 37 A7 20 43 50 B2 43 50 AA 32 00 6C 25 CD 05 8B |7. CP.CP.2.l%...|
00001D50: 20 43 B2 34 AF 50 B1 36 A7 43 50 B2 43 50 AA 33 | C.4.P.6.CP.CP.3|
00001D60: 3A 8B 50 B1 31 30 A7 20 50 B2 31 30 00 A0 25 D2 |:.P.10. P.10..%.|
00001D70: 05 8B 41 B3 B1 31 33 AF 41 B3 B1 31 39 A7 97 32 |..A..13.A..19..2|
00001D80: 30 39 2C A5 42 28 43 50 AA 50 29 3A 97 32 31 30 |09,.B(CP.P):.210|
00001D90: 2C A5 41 28 43 50 AA 50 29 3A 99 22 90 A3 1F 22 |,.A(CP.P):."..."|
00001DA0: 00 A6 25 D7 05 8E 00 AC 25 DC 05 3A 00 C8 25 E6 |..%.....%..:..%.|
00001DB0: 05 8F 20 20 20 20 20 50 55 53 48 20 41 4E 59 20 |.. PUSH ANY |
00001DC0: 4B 45 59 20 52 4F 55 54 00 CE 25 F0 05 3A 00 DC |KEY ROUT..%..:..|
00001DD0: 25 F1 05 8B 20 4E B3 B1 30 A7 20 8E 00 02 26 F5 |%... N..0. ...&.|
00001DE0: 05 99 22 13 22 3A 97 20 32 30 39 2C A5 42 28 31 |..".":. 209,.B(1|
00001DF0: 39 30 34 29 3A 97 32 31 30 2C A5 41 28 31 39 30 |904):.210,.A(190|
00001E00: 34 29 00 1E 26 F6 05 99 22 D0 52 45 53 53 20 46 |4)..&...".RESS F|
00001E10: 31 20 46 4F 52 20 4D 45 4E 55 20 4F 52 22 00 5E |1 FOR MENU OR".^|
00001E20: 26 FA 05 97 20 32 31 30 2C A5 41 28 31 39 38 34 |&... 210,.A(1984|
00001E30: 29 3A 97 20 32 30 39 2C A5 42 28 31 39 38 34 29 |):. 209,.B(1984)|
00001E40: 3A 99 22 D0 55 53 48 20 53 50 41 43 45 20 42 41 |:.".USH SPACE BA|
00001E50: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 74 |R TO CONTINUE".t|
00001E60: 26 04 06 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 A7 |&... Z$:. Z$."".|
00001E70: 31 35 34 30 00 7A 26 0E 06 8E 00 80 26 18 06 3A |1540.z&.....&..:|
00001E80: 00 9E 26 22 06 8F 20 20 20 20 20 20 43 48 4F 49 |..&".. CHOI|
00001E90: 43 45 20 4F 46 20 41 20 4E 55 4D 42 45 52 00 A4 |CE OF A NUMBER..|
00001EA0: 26 2C 06 3A 00 C6 26 36 06 97 32 31 30 2C A5 41 |&,.:..&6..210,.A|
00001EB0: 28 31 39 30 34 29 3A 97 32 30 39 2C A5 42 28 31 |(1904):.209,.B(1|
00001EC0: 39 30 34 29 3A 3B 00 0B 27 4A 06 97 32 30 39 2C |904):;..'J..209,|
00001ED0: A5 42 28 31 39 38 34 29 3A 97 32 31 30 2C A5 41 |.B(1984):.210,.A|
00001EE0: 28 31 39 38 34 29 3A 99 22 C5 4E 54 45 52 20 41 |(1984):.".NTER A|
00001EF0: 20 4E 55 4D 42 45 52 20 41 4E 44 20 50 52 45 53 | NUMBER AND PRES|
00001F00: 53 20 D2 C5 D4 D5 D2 CE 3A 22 3B 00 15 27 4F 06 |S ......:";..'O.|
00001F10: 53 24 B2 22 22 00 33 27 54 06 A1 20 41 24 3A 41 |S$."".3'T.. A$:A|
00001F20: B2 C5 28 41 24 29 3A 41 32 B2 C6 28 41 24 AA 22 |..(A$):A2..(A$."|
00001F30: 20 22 29 00 6A 27 5E 06 8B 28 41 B3 31 B0 41 B1 | ").j'^..(A.1.A.|
00001F40: 39 29 AF A8 28 41 32 B2 32 30 B0 41 32 B2 31 35 |9)..(A2.20.A2.15|
00001F50: 37 B0 41 32 B2 31 33 B0 41 32 B2 34 38 B0 41 32 |7.A2.13.A2.48.A2|
00001F60: B2 31 33 33 29 A7 31 36 32 30 00 8E 27 63 06 8B |.133).1620..'c..|
00001F70: 20 28 41 32 B2 32 30 B0 41 32 B2 31 35 37 29 AF | (A2.20.A2.157).|
00001F80: C3 28 53 24 29 B3 B2 30 A7 41 24 B2 22 22 00 CA |.(S$)..0.A$.""..|
00001F90: 27 64 06 8B 28 41 32 B2 32 30 B0 41 32 B2 31 35 |'d..(A2.20.A2.15|
00001FA0: 37 29 AF C3 28 53 24 29 B1 30 A7 53 24 B2 C8 28 |7)..(S$).0.S$..(|
00001FB0: 53 24 2C C3 28 53 24 29 AB 31 29 3A 41 24 B2 C7 |S$,.(S$).1):A$..|
00001FC0: 28 32 30 29 3A 89 31 36 39 30 00 E1 27 65 06 8B |(20):.1690..'e..|
00001FD0: 20 41 32 B2 31 33 33 20 A7 20 41 B2 31 33 33 3A | A2.133 . A.133:|
00001FE0: 8E 00 0B 28 68 06 8B 20 C3 28 53 24 29 B2 32 AF |...(h.. .(S$).2.|
00001FF0: A8 28 41 32 B2 32 30 B0 41 32 B2 31 35 37 B0 41 |.(A2.20.A2.157.A|
00002000: 32 B2 31 33 29 A7 31 36 32 30 29 00 32 28 72 06 |2.13).1620).2(r.|
00002010: 8B 20 41 32 B2 31 33 A7 20 41 24 B2 22 22 3A 8B |. A2.13. A$."":.|
00002020: C3 28 53 24 29 B1 30 A7 20 41 B2 C5 28 53 24 29 |.(S$).0. A..(S$)|
00002030: 3A 8E 00 56 28 7C 06 8B 20 28 41 32 B2 32 30 B0 |:..V(|.. (A2.20.|
00002040: 41 32 B2 31 35 37 29 AF C3 28 53 24 29 B3 B2 30 |A2.157)..(S$)..0|
00002050: A7 41 24 B2 22 22 00 92 28 86 06 8B 28 41 32 B2 |.A$.""..(...(A2.|
00002060: 32 30 B0 41 32 B2 31 35 37 29 AF C3 28 53 24 29 |20.A2.157)..(S$)|
00002070: B1 30 A7 53 24 B2 C8 28 53 24 2C C3 28 53 24 29 |.0.S$..(S$,.(S$)|
00002080: AB 31 29 3A 41 24 B2 C7 28 32 30 29 3A 89 31 36 |.1):A$..(20):.16|
00002090: 39 30 00 9F 28 90 06 53 24 B2 53 24 AA 41 24 00 |90..(..S$.S$.A$.|
000020A0: B0 28 9A 06 99 20 41 24 3B 3A 89 20 31 36 32 30 |.(... A$;:. 1620|
000020B0: 00 B6 28 CE 07 80 00 BC 28 CF 07 80 00 C2 28 D0 |..(.....(.....(.|
000020C0: 07 3A 00 DE 28 D1 07 8F 20 20 20 20 20 20 43 52 |.:..(... CR|
000020D0: 45 41 54 45 20 46 49 4C 45 20 52 4F 55 54 00 E4 |EATE FILE ROUT..|
000020E0: 28 D2 07 3A 00 EC 28 DA 07 50 B2 31 00 07 29 DB |(..:..(..P.1..).|
000020F0: 07 A0 33 3A 9F 20 33 2C 38 2C 33 2C 22 44 49 52 |..3:. 3,8,3,"DIR|
00002100: 45 43 54 4F 52 59 22 00 28 29 DC 07 84 31 35 2C |ECTORY".()...15,|
00002110: 41 2C 42 24 3A A0 33 3A 8B 20 41 B2 37 30 B0 41 |A,B$:.3:. A.70.A|
00002120: B2 36 32 A7 32 30 33 30 00 62 29 E2 07 99 22 93 |.62.2030.b)...".|
00002130: 11 11 11 11 11 11 11 11 C3 52 45 41 54 49 4E 47 |.........REATING|
00002140: 20 41 20 4E 45 57 20 44 49 52 45 43 54 4F 52 59 | A NEW DIRECTORY|
00002150: 20 57 49 4C 4C 20 45 52 41 53 45 20 54 48 45 22 | WILL ERASE THE"|
00002160: 3A 99 00 90 29 E3 07 99 22 44 49 52 45 43 54 4F |:...)..."DIRECTO|
00002170: 52 59 20 50 52 45 53 45 4E 54 4C 59 20 4F 4E 20 |RY PRESENTLY ON |
00002180: 54 48 45 20 44 49 53 4B 2E 20 C1 52 45 22 3A 99 |THE DISK. .RE":.|
00002190: 00 BB 29 E4 07 99 22 59 4F 55 20 53 55 52 45 20 |..)..."YOU SURE |
000021A0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 45 41 |YOU WANT TO CREA|
000021B0: 54 45 20 41 20 4E 45 57 22 3A 99 00 CF 29 E5 07 |TE A NEW":...)..|
000021C0: 85 22 44 49 52 45 43 54 4F 52 59 22 3B 41 24 00 |."DIRECTORY";A$.|
000021D0: F5 29 E6 07 41 24 B2 C8 28 41 24 2C 31 29 3A 8B |.)..A$..(A$,1):.|
000021E0: 20 A8 28 41 24 B2 22 59 22 20 B0 20 41 24 B2 22 | .(A$."Y" . A$."|
000021F0: D9 22 29 A7 8E 00 36 2A E7 07 99 22 93 11 11 11 |.")...6*..."....|
00002200: 11 11 11 11 11 11 11 11 D0 52 45 53 53 20 53 50 |.........RESS SP|
00002210: 41 43 45 42 41 52 20 54 4F 20 50 52 4F 43 45 45 |ACEBAR TO PROCEE|
00002220: 44 22 43 52 24 22 D2 C5 D4 D5 D2 CE A0 54 4F 20 |D"CR$".......TO |
00002230: 41 42 4F 52 54 22 00 4A 2A E8 07 A1 5A 24 3A 8B |ABORT".J*...Z$:.|
00002240: 5A 24 B2 22 22 A7 32 30 32 34 00 5B 2A E9 07 8B |Z$."".2024.[*...|
00002250: 20 5A 24 B2 C7 28 31 33 29 A7 8E 00 7B 2A EC 07 | Z$..(13)...{*..|
00002260: 98 31 35 2C 22 53 30 3A 44 49 52 45 43 54 4F 52 |.15,"S0:DIRECTOR|
00002270: 59 22 3A 84 31 35 2C 41 2C 42 24 00 A4 2A EE 07 |Y":.15,A,B$..*..|
00002280: 9F 20 33 2C 38 2C 33 2C 22 44 49 52 45 43 54 4F |. 3,8,3,"DIRECTO|
00002290: 52 59 2C 4C 2C 22 AA C7 28 32 30 30 29 3A 8D 20 |RY,L,"..(200):. |
000022A0: 35 30 30 30 00 F3 2A EF 07 99 22 93 11 11 11 11 |5000..*...".....|
000022B0: 11 11 11 11 11 20 20 20 20 20 20 20 20 20 C3 52 |..... .R|
000022C0: 45 41 54 49 4E 47 20 59 4F 55 52 20 44 49 52 45 |EATING YOUR DIRE|
000022D0: 43 54 4F 52 59 22 3A 99 22 20 20 20 20 20 20 20 |CTORY":." |
000022E0: 20 20 20 20 20 20 20 50 4C 45 41 53 45 20 57 41 | PLEASE WA|
000022F0: 49 54 22 00 2E 2B F3 07 99 22 20 20 20 20 20 20 |IT"..+..." |
00002300: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
00002310: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 20 20 20 20 |========== |
00002320: 20 20 20 91 20 20 20 20 20 20 20 20 22 3B 00 5D | . ";.]|
00002330: 2B 02 08 98 31 35 2C 22 50 22 C7 28 33 29 C7 28 |+...15,"P".(3).(|
00002340: 34 32 29 C7 28 30 30 29 C7 28 31 29 3A 44 49 B2 |42).(00).(1):DI.|
00002350: 31 3A 8D 20 35 30 30 30 3A 44 49 B2 30 00 7A 2B |1:. 5000:DI.0.z+|
00002360: 0C 08 98 33 2C 22 45 4E 44 22 3A 44 49 B2 31 3A |...3,"END":DI.1:|
00002370: 8D 35 30 30 30 3A 44 49 B2 30 00 B1 2B 2A 08 A0 |.5000:DI.0..+*..|
00002380: 33 3A 99 22 93 11 11 11 11 11 11 11 11 11 11 11 |3:."............|
00002390: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000023A0: 20 20 20 C4 CF CE C5 22 3A 8D 20 31 35 30 30 3A | ....":. 1500:|
000023B0: 8E 00 B7 2B 34 08 3A 00 D4 2B 3E 08 8F 20 20 20 |...+4.:..+>.. |
000023C0: 20 20 45 52 41 53 45 20 46 49 4C 45 20 52 4F 55 | ERASE FILE ROU|
000023D0: 54 49 4E 45 00 DA 2B 48 08 3A 00 27 2C 52 08 99 |TINE..+H.:.',R..|
000023E0: 22 93 11 11 11 11 11 11 11 11 11 11 11 22 3A 99 |"............":.|
000023F0: 22 C1 52 45 20 59 4F 55 20 12 53 55 52 45 92 20 |".RE YOU .SURE. |
00002400: 59 4F 55 20 57 41 4E 54 20 54 4F 20 45 52 41 53 |YOU WANT TO ERAS|
00002410: 45 22 3A 85 22 54 48 49 53 20 44 49 52 45 43 54 |E":."THIS DIRECT|
00002420: 4F 52 59 22 3B 41 24 00 4D 2C 5C 08 41 24 B2 C8 |ORY";A$.M,\.A$..|
00002430: 28 41 24 2C 31 29 3A 8B 20 A8 28 41 24 B2 22 59 |(A$,1):. .(A$."Y|
00002440: 22 20 B0 20 41 24 B2 22 D9 22 29 A7 8E 00 8E 2C |" . A$.".")....,|
00002450: 66 08 99 22 93 11 11 11 11 11 11 11 11 11 11 11 |f.."............|
00002460: D0 52 45 53 53 20 53 50 41 43 45 42 41 52 20 54 |.RESS SPACEBAR T|
00002470: 4F 20 50 52 4F 43 45 45 44 22 43 52 24 22 D2 C5 |O PROCEED"CR$"..|
00002480: D4 D5 D2 CE A0 54 4F 20 41 42 4F 52 54 22 00 A2 |.....TO ABORT"..|
00002490: 2C 70 08 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 31 |,p..Z$:.Z$."".21|
000024A0: 36 30 00 B3 2C 7A 08 8B 20 5A 24 B2 C7 28 31 33 |60..,z.. Z$..(13|
000024B0: 29 A7 8E 00 E0 2C 84 08 98 31 35 2C 22 53 30 3A |)....,...15,"S0:|
000024C0: 44 49 52 45 43 54 4F 52 59 22 3A 99 22 93 11 11 |DIRECTORY":."...|
000024D0: 11 11 11 11 11 11 11 45 52 41 53 49 4E 47 22 3B |.......ERASING";|
000024E0: 00 09 2D 8E 08 81 20 43 B2 31 A4 31 30 3A 99 22 |..-... C.1.10:."|
000024F0: 2E 20 20 22 3B 3A 81 20 43 31 B2 31 A4 32 30 30 |. ";:. C1.1.200|
00002500: 3A 82 43 31 3A 82 43 3A 99 00 16 2D 98 08 8D 20 |:.C1:.C:...-... |
00002510: 35 30 30 30 3A 8E 00 1C 2D FC 08 3A 00 3C 2D 06 |5000:...-..:.<-.|
00002520: 09 8F 20 20 20 20 20 53 41 56 45 20 44 41 54 41 |.. SAVE DATA|
00002530: 20 54 4F 20 54 48 45 20 44 49 53 4B 00 42 2D 10 | TO THE DISK.B-.|
00002540: 09 3A 00 51 2D 15 09 8B 20 41 B2 31 33 33 20 A7 |.:.Q-... A.133 .|
00002550: 8E 00 69 2D 1A 09 9F 20 33 2C 38 2C 33 2C 22 44 |..i-... 3,8,3,"D|
00002560: 49 52 45 43 54 4F 52 59 22 00 75 2D 24 09 81 20 |IRECTORY".u-$.. |
00002570: 43 B2 30 A4 36 00 95 2D 2E 09 50 B2 43 AC 32 36 |C.0.6..-..P.C.26|
00002580: AA 31 3A 8B 43 B1 34 A7 50 B2 28 43 AB 31 29 AC |.1:.C.4.P.(C.1).|
00002590: 32 36 AA 31 31 00 B2 2D 38 09 98 31 35 2C 22 50 |26.11..-8..15,"P|
000025A0: 22 C7 28 33 29 C7 28 52 4E 29 C7 28 30 29 C7 28 |".(3).(RN).(0).(|
000025B0: 50 29 00 D0 2D 42 09 98 33 2C 53 24 28 43 29 3A |P)..-B..3,S$(C):|
000025C0: 53 24 28 43 29 B2 22 22 3A 82 43 3A A0 33 3A 8E |S$(C)."":.C:.3:.|
000025D0: 00 D6 2D B8 0B 3A 00 F4 2D BD 0B 8F 20 20 20 20 |..-..:..-... |
000025E0: 20 20 20 50 52 49 4E 54 20 41 4C 4C 20 52 45 43 | PRINT ALL REC|
000025F0: 4F 52 44 53 00 FA 2D C2 0B 3A 00 05 2E C3 0B 8D |ORDS..-..:......|
00002600: 20 31 31 30 30 00 16 2E C5 0B 9F 20 34 2C 34 2C | 1100...... 4,4,|
00002610: 37 3A 9D 28 34 29 00 3E 2E C6 0B 81 20 43 B2 30 |7:.(4).>.... C.0|
00002620: A4 36 3A 53 48 24 B2 22 22 3A 53 48 B2 C3 28 53 |.6:SH$."":SH..(S|
00002630: 24 28 43 29 29 3A 81 49 52 B2 31 A4 53 48 00 67 |$(C)):.IR.1.SH.g|
00002640: 2E C7 0B 8B CA 28 53 24 28 43 29 2C 49 52 2C 31 |.....(S$(C),IR,1|
00002650: 29 B2 22 A0 22 A7 53 48 24 B2 53 48 24 AA 22 20 |).".".SH$.SH$." |
00002660: 22 3A 89 33 30 31 38 00 81 2E C9 0B 53 48 24 B2 |":.3018.....SH$.|
00002670: 53 48 24 AA CA 28 53 24 28 43 29 2C 49 52 2C 31 |SH$..(S$(C),IR,1|
00002680: 29 00 93 2E CA 0B 82 3A 53 24 28 43 29 B2 53 48 |)......:S$(C).SH|
00002690: 24 3A 82 00 9E 2E CB 0B 81 43 B2 30 A4 36 00 EA |$:.......C.0.6..|
000026A0: 2E CC 0B 4E 41 24 B2 22 4E 41 4D 45 22 3A 43 31 |...NA$."NAME":C1|
000026B0: 24 B2 22 43 4F 4D 4D 45 4E 54 22 3A 43 32 24 B2 |$."COMMENT":C2$.|
000026C0: 22 22 3A 8B 58 B2 32 A7 4E 41 24 B2 22 43 41 52 |"":.X.2.NA$."CAR|
000026D0: 52 49 45 52 22 3A 43 32 24 B2 43 31 24 3A 43 31 |RIER":C2$.C1$:C1|
000026E0: 24 B2 22 50 4F 4C 49 43 59 23 00 05 2F D1 0B 8B |$."POLICY#../...|
000026F0: 20 58 B2 33 A7 43 31 24 B2 22 C4 49 52 45 43 54 | X.3.C1$.".IRECT|
00002700: 49 4F 4E 53 22 00 27 2F D6 0B 8B 20 58 B2 31 AF |IONS".'/... X.1.|
00002710: 43 B2 30 A7 99 22 D3 50 45 43 49 41 4C 54 59 3A |C.0..".PECIALTY:|
00002720: 20 22 53 24 28 30 29 00 46 2F DB 0B 8B 20 58 B3 | "S$(0).F/... X.|
00002730: 35 AF 43 B2 31 A7 20 99 4E 41 24 22 3A 20 20 20 |5.C.1. .NA$": |
00002740: 22 53 24 28 43 29 00 7F 2F E0 0B 8B 20 58 B3 34 |"S$(C)../... X.4|
00002750: 20 AF 20 43 B2 32 20 A7 20 99 22 C1 44 44 52 45 | . C.2 . .".DDRE|
00002760: 53 53 3A 20 22 53 24 28 43 29 43 52 24 22 20 20 |SS: "S$(C)CR$" |
00002770: 20 20 20 20 20 20 20 22 53 24 28 43 AA 31 29 00 | "S$(C.1).|
00002780: BC 2F E5 0B 8B 43 B2 34 A7 99 22 D0 48 4F 4E 45 |./...C.4..".HONE|
00002790: 3A 20 28 22 C8 28 53 24 28 43 29 2C 33 29 22 29 |: (".(S$(C),3)")|
000027A0: 22 CA 28 53 24 28 43 29 2C 34 2C 33 29 22 2D 22 |".(S$(C),4,3)"-"|
000027B0: CA 28 53 24 28 43 29 2C 37 2C 34 29 00 D8 2F EA |.(S$(C),7,4)../.|
000027C0: 0B 8B 20 43 B2 35 A7 20 99 43 31 24 22 3A 20 20 |.. C.5. .C1$": |
000027D0: 20 20 22 53 24 28 43 29 00 F5 2F EF 0B 8B 20 43 | "S$(C)../... C|
000027E0: B2 36 20 A7 20 99 43 32 24 22 3A 20 20 20 20 22 |.6 . .C2$": "|
000027F0: 53 24 28 43 29 00 FE 2F F4 0B 82 43 3A 8E 00 04 |S$(C)../...C:...|
00002800: 30 88 13 3A 00 1F 30 8D 13 8F 20 20 20 20 20 20 |0..:..0... |
00002810: 45 52 52 4F 52 20 20 48 41 4E 44 4C 49 4E 47 00 |ERROR HANDLING.|
00002820: 25 30 92 13 3A 00 32 30 97 13 84 31 35 2C 41 2C |%0..:.20...15,A,|
00002830: 42 24 00 54 30 9C 13 8B 20 28 41 B3 31 39 20 AF |B$.T0... (A.19 .|
00002840: 20 41 B3 B1 31 29 B0 28 41 B2 35 30 AF 44 49 B2 | A..1).(A.50.DI.|
00002850: 31 29 A7 8E 00 65 30 A1 13 8B 20 41 B2 31 20 A7 |1)...e0... A.1 .|
00002860: 20 35 30 37 35 00 78 30 A6 13 8B 20 20 41 B2 32 | 5075.x0... A.2|
00002870: 36 20 A7 20 35 30 38 30 00 8A 30 AB 13 8B 20 41 |6 . 5080..0... A|
00002880: B3 34 39 20 A7 20 35 30 35 30 00 A3 30 B0 13 8B |.49 . 5050..0...|
00002890: 20 41 B2 35 32 20 B0 20 41 B2 37 32 20 A7 20 35 | A.52 . A.72 . 5|
000028A0: 30 38 35 00 C3 30 B5 13 8B 20 41 B2 36 32 20 B0 |085..0... A.62 .|
000028B0: 20 41 B2 37 30 20 B0 20 41 B2 37 34 20 A7 20 35 | A.70 . A.74 . 5|
000028C0: 30 39 30 00 F6 30 BA 13 99 22 93 11 11 11 11 11 |090..0..."......|
000028D0: 11 11 11 D9 4F 55 52 20 44 49 53 4B 20 44 52 49 |....OUR DISK DRI|
000028E0: 56 45 20 49 53 20 4D 41 4C 46 55 4E 43 54 49 4F |VE IS MALFUNCTIO|
000028F0: 4E 49 4E 47 2E 22 00 3C 31 BF 13 99 22 C3 48 45 |NING.".<1...".HE|
00002900: 43 4B 20 59 4F 55 52 20 4F 57 4E 45 52 27 53 20 |CK YOUR OWNER'S |
00002910: 4D 41 4E 55 41 4C 20 46 4F 52 20 50 52 4F 50 45 |MANUAL FOR PROPE|
00002920: 52 22 3A 99 22 4F 50 45 52 41 54 49 4E 47 20 49 |R":."OPERATING I|
00002930: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 5F 31 C4 |NSTRUCTIONS"._1.|
00002940: 13 A0 33 3A A0 35 3A A0 34 3A 98 31 35 2C 22 49 |..3:.5:.4:.15,"I|
00002950: 30 3A 22 3A 8D 20 31 35 30 30 3A 89 20 31 30 00 |0:":. 1500:. 10.|
00002960: 92 31 D3 13 99 22 93 11 11 11 11 11 11 11 11 20 |.1..."......... |
00002970: 20 20 20 20 20 20 20 20 20 C4 49 52 45 43 54 4F | .IRECTO|
00002980: 52 59 20 44 45 4C 45 54 45 44 22 3A 89 20 35 30 |RY DELETED":. 50|
00002990: 36 30 00 CC 31 D8 13 99 22 93 11 11 11 11 11 11 |60..1...".......|
000029A0: 11 11 20 20 20 20 20 20 D4 48 49 53 20 44 49 53 |.. .HIS DIS|
000029B0: 4B 20 49 53 20 57 52 49 54 45 2D 50 52 4F 54 45 |K IS WRITE-PROTE|
000029C0: 43 54 45 44 22 3A 89 20 35 30 36 30 00 19 32 DD |CTED":. 5060..2.|
000029D0: 13 99 22 93 11 11 11 11 11 11 11 11 D4 48 49 53 |.."..........HIS|
000029E0: 20 44 49 53 4B 20 49 53 20 46 55 4C 4C 2E 20 20 | DISK IS FULL. |
000029F0: C9 4E 53 45 52 54 20 41 20 42 4C 41 4E 4B 22 3A |.NSERT A BLANK":|
00002A00: 99 22 49 4E 49 54 49 41 4C 49 5A 45 44 20 44 49 |."INITIALIZED DI|
00002A10: 53 4B 22 3A 89 35 30 36 30 00 59 32 E2 13 99 22 |SK":.5060.Y2..."|
00002A20: 93 11 11 11 11 11 11 11 11 C9 4E 53 45 52 54 20 |..........NSERT |
00002A30: 54 48 45 20 D4 45 4C 45 50 48 4F 4E 45 20 C4 49 |THE .ELEPHONE .I|
00002A40: 52 45 43 54 4F 52 59 20 C4 41 54 41 20 44 49 53 |RECTORY .ATA DIS|
00002A50: 4B 22 3A 89 20 35 30 36 30 00 5F 32 60 EA 3A 00 |K":. 5060._2`.:.|
00002A60: 7C 32 6A EA 8F 20 20 20 20 52 45 54 55 52 4E 20 ||2j.. RETURN |
00002A70: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 82 32 74 |TO MAIN MENU..2t|
00002A80: EA 3A 00 C1 32 7E EA 99 22 93 11 11 11 11 11 11 |.:..2~..".......|
00002A90: 11 11 11 11 11 11 11 11 11 90 C1 52 45 20 59 4F |...........RE YO|
00002AA0: 55 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 |U SURE YOU WANT |
00002AB0: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 |TO RETURN TO THE|
00002AC0: 22 00 D6 32 88 EA 85 22 CD 41 49 4E 20 CD 45 4E |"..2...".AIN .EN|
00002AD0: 55 22 3B 41 4B 24 00 00 33 92 EA 41 4B 24 B2 C8 |U";AK$..3..AK$..|
00002AE0: 28 41 4B 24 2C 31 29 3A 8B 20 41 4B 24 B3 B1 22 |(AK$,1):. AK$.."|
00002AF0: 59 22 AF 41 4B 24 B3 B1 22 D9 22 20 A7 20 31 30 |Y".AK$.."." . 10|
00002B00: 00 3E 33 9C EA 99 22 93 11 11 11 11 11 11 11 11 |.>3...".........|
00002B10: 11 11 11 11 11 11 11 90 CD 41 4B 45 20 53 55 52 |.........AKE SUR|
00002B20: 45 20 54 48 45 20 C1 50 50 4C 45 20 41 20 C4 41 |E THE .PPLE A .A|
00002B30: 59 20 D0 52 4F 47 52 41 4D 20 44 49 53 4B 00 5C |Y .ROGRAM DISK.\|
00002B40: 33 9E EA 99 22 49 53 20 49 4E 20 54 48 45 20 44 |3..."IS IN THE D|
00002B50: 49 53 4B 20 44 52 49 56 45 22 3A 99 00 74 33 A1 |ISK DRIVE":..t3.|
00002B60: EA 99 22 41 4E 44 20 50 52 45 53 53 20 D2 C5 D4 |.."AND PRESS ...|
00002B70: D5 D2 CE 22 00 8F 33 A6 EA A1 41 4B 24 3A 8B 41 |..."..3...AK$:.A|
00002B80: 4B 24 B3 B1 C7 28 31 33 29 A7 36 30 30 37 30 00 |K$...(13).60070.|
00002B90: BD 33 AF EA 99 22 93 11 11 11 11 11 11 11 11 11 |.3..."..........|
00002BA0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 D0 4C |...... .L|
00002BB0: 45 41 53 45 20 D7 41 49 54 2E 2E 2E 22 00 F1 33 |EASE .AIT..."..3|
00002BC0: B0 EA A0 33 3A 9F 33 2C 38 2C 33 2C 22 4D 41 49 |...3:.3,8,3,"MAI|
00002BD0: 4E 20 4D 45 4E 55 2C 53 2C 52 22 3A 84 31 35 2C |N MENU,S,R":.15,|
00002BE0: 41 2C 42 24 3A 8B 41 B3 B1 36 34 A7 36 30 30 33 |A,B$:.A..64.6003|
00002BF0: 30 00 04 34 BA EA 93 22 4D 41 49 4E 20 4D 45 4E |0..4..."MAIN MEN|
00002C00: 55 22 2C 38 00 00 00 00 55 22 2C 38 00 00 00 00 |U",8....U",8....|
....... 45,B(174):. 46,B(175):..3...S$."
":CR$.G(13).A.... 15,8,15.....PH$."PHARM
ACIES":HO$."HOSPITAL (NON-EMERGENCY)":ER
$."EMERGENCY ROOM"...... .A(X)..(X.256):
. .B(X).X.(.A(X).256).....FP$."FAMILY PH
YSICIAN":SP$."SPECIALISTS":VE$."VETERINA
RIANS":DE$."DENTIST".D...PH$."PHARMACIES
":HO$."POLICE AND FIRE":ER$."EMERGENCY R
OOM".....PS$."PARAMEDIC SERVICE":PC$."PO
ISON CONTROL CENTER":HI$."HEALTH INSURAN
CE".F...HL$."HOTLINES":BL$."":.I.0.24:BL
$.BL$.G(160):......."... HEALTH T
ELEPHONE DIRECTORY ....."......B(87
8)..00..64738.[...."1. CREATE A NEW DIRE
CTORY":.:."2. ENTER NEW TELEPHONE NUMBER
S":......"3. CHANGE TELEPHONE NUMBERS":.
:."4. VIEW SELECTED TELEPHONE NUMBERS":.
...(.."5. VIEW THE WHOLE DIRECTORY":.:."
6. PRINT THE WHOLE DIRECTORY":.:.8.2.."7
. ERASE AN ENTIRE DIRECTORY":.:."8. RETU
RN TO THE MAIN MENU":.:..P.<.. 1610:. A.
1.A.8.10.~.=.. A . 2000,100,100,100,940,
960,2100,60000...>.. 10...D.:...N.:...X.
:...}.M.0:. A.2.A.3.M.1......"...
SELECTION MENU .."....
.."1. "FP$:.:."2. "SP$:.:."3. "VE$:..
:...."4. "DE$:.:."5. "PH$:.:."6. "HL$
:..K. .."7. "HI$:..X....".8. "ER$:.:."
9. "PC$:.:."10. "PS$"."......:.".11. PO
LICE AND FIRE."......"PRESS F1 TO RETURN
TO DIRECTORY".J...ZX..(0)...... 1610:.A
.133 . ....... A.1.A.11. 130.*.... A . 2
10,270,340,420,500,550,620,760,820,880,7
00.4.H.. 130.:.R.:.@...:.F...:.N...."...
"FP$" ".....X.0:R
N.1:. 1000:. M..0..1220:. 2300:.......15
00:......:.C.... SPECIALIST.I.".
:...,.. C2.0 . 4:RN.C2.2...6.."...
"SP$" #"C2.1". ".B.@.X
.1:.1000:.M..0..1220:.Z$.G(134)..2300:.
C2.O.E.. M.1. ..H.J..1500:. Z$.G(133). .
.R.O..C2:..X.T.:...^.. VETERINARI
ANS...H.:...R..C2.0.1:RN.7.C2:X.0...|..
C2.0.."... REGULAR VETERINARIAN
".%.... C2.1.."... 24
-HOUR ANIMAL HOSPITAL ".R....1000:
. M..0..1220:.Z$.G(134)..2300:. C2.^....
M.1...W....1500:. Z$.G(133). .......C2:
......:...... "DENTISTS".....:.U.B
.."... "DE$"
"...L.X.0:RN.9:. 1000:. M..0..1220:.
2300:....V..1500:......:.+....
PHARMACIES.1...:.J....C2.0.1:RN.10.C2:X
.0...... C2.0.."... REGULAR P
HARMACY "...... C2.1.."...
24-HOUR PHARMACY "..
.... 1000:. M..0.. 1220:.Z$.G(134)..2300
:. C2...... M.1. ....!.. 1500:. C2:....&
.:.,.0.. HOT LINES.2.:.:.J.D..
C2.0 . 4:RN.C2.12...N.."...
"HL$". #"C2.1". "...X.X.
4:.1000:.M..0..1220:.Z$.G(134)..2300:. C
2:....].. M.1...X.B..1500:. Z$.G(133). .
...G..C2:....L.:...V.:.....:......C2.0.1
:RN.17.C2:X.2.G.... C2.0.."...
MEDICAL INSURANCE "...... C2
.1.."... DENTAL INSURANCE
"......1000:. M..0..1220:.Z$.G(1
34).. 2300:.C2:....... M.1. ..V....1500:
. Z$.G(133). .......C2:......:...F..
POLICE FIRE...P.:. .Z..C2.0.1:RN.1
9.C2:X.5.Z.... C2.0.."... FIR
E DEPARTMENT "...... C2.1.."
... POLICE DEPARTMENT
".A....1000:. M..0..1220:.Z$.G(134)..
2300:. C2.M.... M.1........1500:. Z$.G(1
33). .......C2:......:...... EMER
GENCY ROOM.....:.B...."... . "
ER$" . ".M. .X.3:RN.21:. 1000:
. M..0..1220:. 2300:..Y.*..1500:...4.:.
..>.. POISON CONTROL CENTER...H.:.H.
R.."... . "PC$" . "...\.X.5
:RN.23:. 1000:. M..0..1220:. 2300:....F.
.1500:....P.:.#.Z.. PARAMEDIC SERV
ICE.)...:.P...."... . "PS$"
. ".{...X.5:RN.22:. 1000:. M..0..12
20:. 2300:.......1500:......:......
VIEW ALL RECORDS.....:.....I.1:M.0....
.. I . 210,420,700,760,820,880,270,340,
620,500,550...... Z$.G(133).......I.I.1:
.I.11. ..".... 944.A... 4:."............
.....MAKE SURE YOUR PRINTER IS TURNED ON
....A.."..........PRESS SPACE BAR TO CON
TINUE"...B.. Z$:.Z$."".962...C..4,4,7...
D..4," HEALTH
TELEPHONE DIRECTORY":.4...E.N.1:.I.1.11:
.I.966,967,968,972,973,977,982,985,988,9
91,994.W.F..:."FAMILY PHYSICIAN";:X.0:RN
.1:.997...G..C2.0.4:RN.C2.2:X.1:.:."SPEC
IALIST # "C2.1;:.996...H..G(12):.C2.0.1:
RN.7.C2:X.0:..R.I..C2.0.."REGULAR VETERI
NARIAN ";...J..C2.1.."24-HOUR ANIMAL HO
SPITAL";...K..996.!.L..:."DENTIST";:X.0:
RN.9:.997.W.M..C2.0.1:RN.10.C2:X.0:.:.C2
.0.."REGULAR PHARMACY";.V.N..C2.1.."24-H
OUR PHARMACY";..O..996...Q..G(12):.C2.0
.4:X.4:RN.C2.12:....R.."HOT LINE # "C2.1
;:.996...V..C2.0.1:RN.17.C2:X.2:.:.C2.0.
."MEDICAL INSURANCE";...W..C2.1.."DENTAL
INSURANCE";...X..996.Y.Y..G(12):.C2.0.1
:RN.19.C2:X.5:.:.C2.0.."FIRE DEPARTMENT"
;.Y.Z..C2.1.."POLICE DEPARTMENT";......9
96.....X.3:RN.21:.:."EMERGENCY ROOM";:.9
97.Y...X.5:RN.23:.:."POISON CONTROL CENT
ER";:.997.....X.5:RN.22:.:."PARAMEDIC SE
RVICE";:.997......3000:.:.998......3000.
=....:.4:.4,G(12):.4: 4:N.0:..C.....I...
:.F.... DATA HANDLING ROUT.L...:.U..
.."."...... N..0.. 3000:..V...NA$."NAME"
:C1$."COMMENT":C2$."":.X.2.NA$."CARRIER"
:C2$.C1$:C1$."POLICY#"...... X.3 . C1$."
DIRECTIONS".-...NA$.H(NA$.BL$,10):C1$.H(
C1$.BL$,10):C2$.H(C2$.BL$,10).H....X.1..
210,.A(1184):. 209,.B(1184):."SPECIALTY
:"BL$":"......X.5..210,.A(1264):. 209,.B
(1264):. NA$":"BL$":".X....X.4..210,.A(1
344):. 209,.B(1344):."ADDRESS :"BL$":"
...$..X.4. .210,.A(1424):. 209,.B(1424)
:." :"BL$":".R....210,.A(1504):
. 209,.B(1504):."PHONE :( ) -
"...8..210,.A(1584):. 209,.B(1584):.C1$
":"BL$":"...B..210,.A(1664):. 209,.B(166
4):.C2$":"BL$":":.1100:....L.:...V.. GE
T DATA FROM DISK ROUTINE...`.:...A.....B
. 4:. 4,4...C.. N..0. .4: 4.*.E.. 3,8,3,
"DIRECTORY":. 5000.4.F.A$."".I.J.. C.0.6
:S$(C)."".A.T.. X.5 . C.1. . 1191.Z.~..
X.3.(C.2.C.3).1191.....CL(C).1184.C.80.1
1.....P.C.26.1:.C.4.P.(C.1).26.11.U....1
5,"P"G(3)G(RN)G(0)G(P):. 5000......15,A,
B$:.A..0.."ERROR IN 1180": 3:.... .. A$.
G(255).1196.0....#3,A$:. A$.G(255). 1196
.S.... A$.G(13).A$."". S$."":. 1196.U...
.3,S$:. X..1.C.0. A$."":S$."".....S$(C).
A$.S$......C...... N..0 . 3:.15,"I0:":.
.....S$."":. C.0.6...... C.4.S$(4).H(S$(
4),10):CL.CL(4):.1430:. 1205...... X..1.
C.0..1205...... X.5 . C.1. . 1205.2....
X.3.(C.2.C.3).1205.I....209,.B(CL(C)):.2
10,.A(CL(C)):.".."H(S$(C).BL$,25).Q....
C..... 3:.15,"I0:":....D.:...N.. DA
TA FIELD HANDLER...X.:...Y.."...........
...........DO NOT USE COMMAS, SEMICOLONS
OR COLONS".. Z.."PRESS RETURN TO MOVE B
ETWEEN BOXES".\ ..."PRESS F1 TO RETURN T
O MENU":."PRESS F3 TO SAVE RECORD..".X .
.S$."":C.0:.X..1.C.0.C.1.. ..A.0:P.1:.C.
6 .C.0. ...X..1.C.0.C.1.. ... X.4.(C.2)
.C.4.H ... X.5.(C.1).C.4.. ..CL.1195.C.8
0:. 1470.. ... A$:A.F(A$.G(31)).(!...A.2
9.A.19.A.20.A.157.A.133.A.134.A.148.1370
.I!... A$.",".A$.";".A$.":". 1271.[!..CL
.1195.C.80:..!....(A.31.A.91)..(A$.."A".
A$.."Z").A..13 . 1271..!... A.13 . C.C.1
:S$(4).H(S$(4),10):. 1470:. 1260..!... C
.4. .((A.47).(A.58).A.32). 1270.)"(.S$(C
).H(S$(C),P.1).A$.J(S$(C).BL$,P.1,25):P.
P.1:. P.25 . P.25.Y"2.S$(C).H(S$(C),25):
. C.4 . S$(C).H(S$(C),10).P"7.. C.4..143
0:. 1270.."<.."...";:. 209,.B(CL):. 210,
.A(CL).."F..S$(C):. 1270.."P.. 1270.S"Z.
. A.29 . P.P.1:. P.25.P.25:.."D.. A.19.
C.0:.1470:. 1250.)#N..A.20.P.1.S$(C).H(S
$(C),P.2).J(S$(C).BL$,P,26):P.P.1.L#S..A
.148.I(S$(C),1)." ".S$(C).H(S$(C),P.1)."
".J(S$(C).BL$,P,26)..#X.. A.157.P.1. P.
P.1:.1270..#....(A.133.A.134).1330..#..Z
$.A$:. A.133 . ...#...".................
....."BL$BL$BL$BL$BL$BL$BL$BL$;:.".".*$.
.."...................... PL
EASE WAIT".0$....I$..."...";:. 209,.B(CL
.1):.210,.A(CL.1):.H(S$(4).BL$,3)..$ .."
...";:. 209,.B(CL.5):.210,.A(CL.5):.J(S$
(4).BL$,4,3);..$..."...";:. 209,.B(CL.9)
:.210,.A(CL.9):.J(S$(4).BL$,7,4)..$.....
%...".":CP.CL.39:. 209,.B(CP):.210,.A(CP
):.BL$" "./%C.. C.4.P.4.CP.CP.1.J%H.. C.
4.P.3.P.7. CP.CP.2.L%M.. C.4.P.6.CP.CP.3
:.P.10. P.10. %R..A..13.A..19..209,.B(CP
.P):.210,.A(CP.P):."..."..%W....%..:.H%.
.. PUSH ANY KEY ROUT.N%..:..%... N..
0. ...&...".":. 209,.B(1904):.210,.A(190
4)..&..."PRESS F1 FOR MENU OR".^&... 210
,.A(1984):. 209,.B(1984):."PUSH SPACE BA
R TO CONTINUE".T&... Z$:. Z$."".1540.Z&.
....&..:..&".. CHOICE OF A NUMBER..
&,.:.F&6..210,.A(1904):.209,.B(1904):;..
'J..209,.B(1984):.210,.A(1984):."ENTER A
NUMBER AND PRESS RETURN:";..'O.S$."".3'
T.. A$:A.E(A$):A2.F(A$." ").J'^..(A.1.A.
9)..(A2.20.A2.157.A2.13.A2.48.A2.133).16
20..'C.. (A2.20.A2.157).C(S$)..0.A$."".J
'D..(A2.20.A2.157).C(S$).0.S$.H(S$,C(S$)
.1):A$.G(20):.1690..'E.. A2.133 . A.133:
...(H.. C(S$).2..(A2.20.A2.157.A2.13).16
20).2(R.. A2.13. A$."":.C(S$).0. A.E(S$)
:..V(|.. (A2.20.A2.157).C(S$)..0.A$.""..
(...(A2.20.A2.157).C(S$).0.S$.H(S$,C(S$)
.1):A$.G(20):.1690..(..S$.S$.A$..(... A$
;:. 1620..(N....(O...B(P.:..(Q.. CR
EATE FILE ROUT..(R.:..(Z.P.1..).. 3:. 3,
8,3,"DIRECTORY".()...15,A,B$: 3:. A.70.A
.62.2030.B)...".........CREATING A NEW D
IRECTORY WILL ERASE THE":...)..."DIRECTO
RY PRESENTLY ON THE DISK. ARE":...)..."Y
OU SURE YOU WANT TO CREATE A NEW":..O)..
."DIRECTORY";A$..)..A$.H(A$,1):. .(A$."Y
" . A$."Y")...6*..."............PRESS SP
ACEBAR TO PROCEED"CR$"RETURN TO ABORT".J
*...Z$:.Z$."".2024.[*... Z$.G(13)...{*..
.15,"S0:DIRECTORY":.15,A,B$..*... 3,8,3,
"DIRECTORY,L,".G(200):. 5000..*...".....
..... CREATING YOUR DIRECTORY":.
" PLEASE WAIT"..+..."
======================= .
";.]+...15,"P"G(3)G(42)G(00)G(1):DI.
1:. 5000:DI.0.Z+...3,"END":DI.1:.5000:DI
.0..+*. 3:.".............
DONE":. 1500:...+4.:.T+>.. ERASE
FILE ROUTINE.Z+H.:.',R.."............":.
"ARE YOU .SURE. YOU WANT TO ERASE":."THI
S DIRECTORY";A$.M,\.A$.H(A$,1):. .(A$."Y
" . A$."Y")....,F.."............PRESS SP
ACEBAR TO PROCEED"CR$"RETURN TO ABORT"..
,P..Z$:.Z$."".2160..,Z.. Z$.G(13)....,..
.15,"S0:DIRECTORY":."..........ERASING";
..-... C.1.10:.". ";:. C1.1.200:.C1:.C:
...-... 5000:...-..:.<-... SAVE DATA
TO THE DISK.B-..:.Q-... A.133 ...I-...
3,8,3,"DIRECTORY".U-$.. C.0.6..-..P.C.26
.1:.C.4.P.(C.1).26.11..-8..15,"P"G(3)G(R
N)G(0)G(P).P-B..3,S$(C):S$(C)."":.C: 3:.
.V-..:..-... PRINT ALL RECORDS..-B
.:...C.. 1100...E.. 4,4,7:.(4).>.F.. C.0
.6:SH$."":SH.C(S$(C)):.IR.1.SH.G.G..J(S$
(C),IR,1)." ".SH$.SH$." ":.3018...I.SH$.
SH$.J(S$(C),IR,1)...J..:S$(C).SH$:....K.
.C.0.6...L.NA$."NAME":C1$."COMMENT":C2$.
"":.X.2.NA$."CARRIER":C2$.C1$:C1$."POLIC
Y#../Q.. X.3.C1$."DIRECTIONS".'/V.. X.1.
C.0.."SPECIALTY: "S$(0).F/... X.5.C.1. .
NA$": "S$(C)./... X.4 . C.2 . ."ADDRE
SS: "S$(C)CR$" "S$(C.1)../...C.4
.."PHONE: ("H(S$(C),3)")"J(S$(C),4,3)"-"
J(S$(C),7,4).X/... C.5. .C1$": "S$(C)
../... C.6 . .C2$": "S$(C)../...C:...
0..:..0... ERROR HANDLING.%0..:.20
...15,A,B$.T0... (A.19 . A..1).(A.50.DI.
1)...E0... A.1 . 5075.X0... A.26 . 5080
..0... A.49 . 5050..0... A.52 . A.72 . 5
085.C0... A.62 . A.70 . A.74 . 5090..0..
.".........YOUR DISK DRIVE IS MALFUNCTIO
NING.".<1..."CHECK YOUR OWNER'S MANUAL F
OR PROPER":."OPERATING INSTRUCTIONS"._1D
. 3: 5: 4:.15,"I0:":. 1500:. 10..1S.."..
....... DIRECTORY DELETED":. 50
60.L1X.."......... THIS DISK IS WRI
TE-PROTECTED":. 5060..2...".........THIS
DISK IS FULL. INSERT A BLANK":."INITIA
LIZED DISK":.5060.Y2...".........INSERT
THE TELEPHONE DIRECTORY DATA DISK":. 506
0._2`.:.|2J.. RETURN TO MAIN MENU..2T
.:.A2~..".................ARE YOU SURE Y
OU WANT TO RETURN TO THE".V2..."MAIN MEN
U";AK$..3..AK$.H(AK$,1):. AK$.."Y".AK$..
"Y" . 10.>3...".................MAKE SUR
E THE APPLE A DAY PROGRAM DISK.\3..."IS
IN THE DISK DRIVE":..T3..."AND PRESS RET
URN"..3...AK$:.AK$..G(13).60070..3..."..
.............. PLEASE WAIT..."..3
.. 3:.3,8,3,"MAIN MENU,S,R":.15,A,B$:.A.
.64.60030..4..."MAIN MENU",8....U",8....
> CLICK IMAGE PREVIEW FOR FULL MODAL