TELEPHONE DIRECT
FILE INFORMATION
FILENAME(S): TELEPHONE DIRECT
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-11-30 21:05:42
APPEARS ON: 1 disk(s)
FILE HASH
61855372cf281aad21ed6a0851d67b09a56623ed7b1f4672c5f85a3e3c31456e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| APPLE A DAY | TELEPHONE DIRECT | PRG | DuncanTwain | 16 | 2 | 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 32 33 A7 9E |.....(878)..23..|
00000210: 36 34 37 33 38 00 5C 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 99 00 A9 0A 1E |E NUMBERS":.....|
00000260: 00 99 22 33 2E 20 C3 48 41 4E 47 45 20 54 45 4C |.."3. .HANGE TEL|
00000270: 45 50 48 4F 4E 45 20 4E 55 4D 42 45 52 53 22 3A |EPHONE NUMBERS":|
00000280: 99 3A 99 22 34 2E 20 D6 49 45 57 20 53 45 4C 45 |.:."4. .IEW SELE|
00000290: 43 54 45 44 20 54 45 4C 45 50 48 4F 4E 45 20 4E |CTED TELEPHONE N|
000002A0: 55 4D 42 45 52 53 22 3A 99 00 F1 0A 28 00 99 22 |UMBERS":....(.."|
000002B0: 35 2E 20 D6 49 45 57 20 54 48 45 20 D7 C8 CF CC |5. .IEW THE ....|
000002C0: C5 20 44 49 52 45 43 54 4F 52 59 22 3A 99 3A 99 |. DIRECTORY":.:.|
000002D0: 22 36 2E 20 D0 52 49 4E 54 20 54 48 45 20 D7 C8 |"6. .RINT THE ..|
000002E0: CF CC C5 20 44 49 52 45 43 54 4F 52 59 22 3A 99 |... DIRECTORY":.|
000002F0: 3A 00 39 0B 32 00 99 22 37 2E 20 C5 52 41 53 45 |:.9.2.."7. .RASE|
00000300: 20 41 4E 20 45 4E 54 49 52 45 20 44 49 52 45 43 | AN ENTIRE DIREC|
00000310: 54 4F 52 59 22 3A 99 3A 99 22 38 2E 20 D2 45 54 |TORY":.:."8. .ET|
00000320: 55 52 4E 20 54 4F 20 54 48 45 20 CD 41 49 4E 20 |URN TO THE .AIN |
00000330: CD 45 4E 55 22 3A 99 3A 99 00 51 0B 3C 00 8D 20 |.ENU":.:..Q.<.. |
00000340: 31 36 31 30 3A 8B 20 41 B3 31 B0 41 B1 38 A7 31 |1610:. A.1.A.8.1|
00000350: 30 00 7F 0B 3D 00 91 20 41 20 8D 20 32 30 30 30 |0...=.. A . 2000|
00000360: 2C 31 30 30 2C 31 30 30 2C 31 30 30 2C 39 34 30 |,100,100,100,940|
00000370: 2C 39 36 30 2C 32 31 30 30 2C 36 30 30 30 30 00 |,960,2100,60000.|
00000380: 88 0B 3E 00 89 20 31 30 00 8E 0B 64 00 3A 00 94 |..>.. 10...d.:..|
00000390: 0B 6E 00 3A 00 9A 0B 78 00 3A 00 B0 0B 7D 00 4D |.n.:...x.:...}.M|
000003A0: B2 30 3A 8B 20 41 B2 32 B0 41 B2 33 A7 4D B2 31 |.0:. A.2.A.3.M.1|
000003B0: 00 E5 0B 82 00 99 22 93 12 1C 20 20 20 20 20 20 |......"... |
000003C0: 20 20 20 20 20 20 20 D3 45 4C 45 43 54 49 4F 4E | .ELECTION|
000003D0: 20 CD 45 4E 55 20 20 20 20 20 20 20 20 20 20 20 | .ENU |
000003E0: 20 20 90 92 22 00 10 0C 8C 00 99 22 31 2E 20 20 | .."......"1. |
000003F0: 22 46 50 24 3A 99 3A 99 22 32 2E 20 20 22 53 50 |"FP$:.:."2. "SP|
00000400: 24 3A 99 3A 99 22 33 2E 20 20 22 56 45 24 3A 99 |$:.:."3. "VE$:.|
00000410: 00 3B 0C 96 00 99 22 34 2E 20 20 22 44 45 24 3A |.;...."4. "DE$:|
00000420: 99 3A 99 22 35 2E 20 20 22 50 48 24 3A 99 3A 99 |.:."5. "PH$:.:.|
00000430: 22 36 2E 20 20 22 48 4C 24 3A 99 00 4C 0C A0 00 |"6. "HL$:..L...|
00000440: 99 22 37 2E 20 20 22 48 49 24 3A 99 00 79 0C AA |."7. "HI$:..y..|
00000450: 00 99 22 1C 38 2E 20 20 22 45 52 24 3A 99 3A 99 |..".8. "ER$:.:.|
00000460: 22 39 2E 20 20 22 50 43 24 3A 99 3A 99 22 31 30 |"9. "PC$:.:."10|
00000470: 2E 20 22 50 53 24 22 90 22 00 98 0C AB 00 99 3A |. "PS$"."......:|
00000480: 99 22 1C 31 31 2E 20 D0 CF CC C9 C3 C5 20 C1 CE |.".11. ...... ..|
00000490: C4 20 C6 C9 D2 C5 90 22 00 BF 0C AC 00 99 22 D0 |. ....."......".|
000004A0: 52 45 53 53 20 46 31 20 54 4F 20 52 45 54 55 52 |RESS F1 TO RETUR|
000004B0: 4E 20 54 4F 20 C4 49 52 45 43 54 4F 52 59 22 00 |N TO .IRECTORY".|
000004C0: CB 0C AF 00 5A 58 B2 B8 28 30 29 00 E1 0C B4 00 |....ZX..(0).....|
000004D0: 8D 20 31 36 31 30 3A 8B 41 B2 31 33 33 20 A7 20 |. 1610:.A.133 . |
000004E0: 8E 00 F5 0C B9 00 8B 20 41 B3 31 B0 41 B1 31 31 |....... A.1.A.11|
000004F0: A7 20 31 33 30 00 2B 0D BE 00 91 20 41 20 8D 20 |. 130.+.... A . |
00000500: 32 31 30 2C 32 37 30 2C 33 34 30 2C 34 32 30 2C |210,270,340,420,|
00000510: 35 30 30 2C 35 35 30 2C 36 32 30 2C 37 36 30 2C |500,550,620,760,|
00000520: 38 32 30 2C 38 38 30 2C 37 30 30 00 35 0D C8 00 |820,880,700.5...|
00000530: 89 20 31 33 30 00 3B 0D D2 00 3A 00 41 0D DC 00 |. 130.;...:.A...|
00000540: 3A 00 47 0D E6 00 3A 00 6F 0D F0 00 99 22 93 12 |:.G...:.o...."..|
00000550: 1F 20 20 20 20 20 20 20 20 20 20 20 20 22 46 50 |. "FP|
00000560: 24 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |$" ".|
00000570: 99 0D FA 00 58 B2 30 3A 52 4E B2 31 3A 8D 20 31 |....X.0:RN.1:. 1|
00000580: 30 30 30 3A 8B 20 4D B3 B1 30 A7 8D 31 32 32 30 |000:. M..0..1220|
00000590: 3A 8D 20 32 33 30 30 3A 8E 00 A5 0D 04 01 8D 31 |:. 2300:.......1|
000005A0: 35 30 30 3A 8E 00 AB 0D 0E 01 3A 00 C4 0D 18 01 |500:......:.....|
000005B0: 8F 20 20 20 20 20 20 20 20 20 53 50 45 43 49 41 |. SPECIA|
000005C0: 4C 49 53 54 00 CA 0D 22 01 3A 00 E1 0D 2C 01 81 |LIST...".:...,..|
000005D0: 20 43 32 B2 30 20 A4 20 34 3A 52 4E B2 43 32 AA | C2.0 . 4:RN.C2.|
000005E0: 32 00 13 0E 36 01 99 22 93 90 12 20 20 20 20 20 |2...6.."... |
000005F0: 20 20 20 20 20 20 20 22 53 50 24 22 20 23 22 43 | "SP$" #"C|
00000600: 32 AA 31 22 9D 20 20 20 20 20 20 20 20 20 20 20 |2.1". |
00000610: 20 20 22 00 43 0E 40 01 58 B2 31 3A 8D 31 30 30 | ".C.@.X.1:.100|
00000620: 30 3A 8B 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A |0:.M..0..1220:.Z|
00000630: 24 B2 C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 |$..(134)..2300:.|
00000640: 20 43 32 00 50 0E 45 01 8B 20 4D B2 31 A7 20 8E | C2.P.E.. M.1. .|
00000650: 00 69 0E 4A 01 8D 31 35 30 30 3A 8B 20 5A 24 B2 |.i.J..1500:. Z$.|
00000660: C7 28 31 33 33 29 A7 20 8E 00 73 0E 4F 01 82 43 |.(133). ..s.O..C|
00000670: 32 3A 8E 00 79 0E 54 01 3A 00 94 0E 5E 01 8F 20 |2:..y.T.:...^.. |
00000680: 20 20 20 20 20 20 20 56 45 54 45 52 49 4E 41 52 | VETERINAR|
00000690: 49 41 4E 53 00 9A 0E 68 01 3A 00 B2 0E 72 01 81 |IANS...h.:...r..|
000006A0: 43 32 B2 30 A4 31 3A 52 4E B2 37 AA 43 32 3A 58 |C2.0.1:RN.7.C2:X|
000006B0: B2 30 00 EC 0E 7C 01 8B 20 43 32 B2 30 A7 99 22 |.0...|.. C2.0.."|
000006C0: 9C 12 93 20 20 20 20 20 20 20 20 20 20 D2 45 47 |... .EG|
000006D0: 55 4C 41 52 20 D6 45 54 45 52 49 4E 41 52 49 41 |ULAR .ETERINARIA|
000006E0: 4E 20 20 20 20 20 20 20 20 20 20 22 00 26 0F 86 |N ".&..|
000006F0: 01 8B 20 43 32 B2 31 A7 99 22 9C 12 93 20 20 20 |.. C2.1.."... |
00000700: 20 20 20 20 20 20 20 32 34 2D C8 4F 55 52 20 C1 | 24-.OUR .|
00000710: 4E 49 4D 41 4C 20 C8 4F 53 50 49 54 41 4C 20 20 |NIMAL .OSPITAL |
00000720: 20 20 20 20 20 22 00 53 0F 90 01 8D 31 30 30 30 | ".S....1000|
00000730: 3A 8B 20 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A |:. M..0..1220:.Z|
00000740: 24 B2 C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 |$..(134)..2300:.|
00000750: 20 43 32 00 5F 0F 95 01 8B 20 4D B2 31 A7 8E 00 | C2._.... M.1...|
00000760: 78 0F 9A 01 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 |x....1500:. Z$..|
00000770: 28 31 33 33 29 A7 20 8E 00 82 0F 9F 01 82 43 32 |(133). .......C2|
00000780: 3A 8E 00 88 0F A4 01 3A 00 9F 0F AE 01 8F 20 20 |:......:...... |
00000790: 20 20 20 20 20 22 C4 45 4E 54 49 53 54 53 22 00 | ".ENTISTS".|
000007A0: A5 0F B8 01 3A 00 D6 0F C2 01 99 22 93 12 1F 20 |....:......"... |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 22 44 45 24 22 20 20 20 20 20 20 20 20 20 20 20 |"DE$" |
000007D0: 20 20 20 20 20 22 00 00 10 CC 01 58 B2 30 3A 52 | ".....X.0:R|
000007E0: 4E B2 39 3A 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 |N.9:. 1000:. M..|
000007F0: 30 A7 8D 31 32 32 30 3A 8D 20 32 33 30 30 3A 8E |0..1220:. 2300:.|
00000800: 00 0C 10 D6 01 8D 31 35 30 30 3A 8E 00 12 10 E0 |......1500:.....|
00000810: 01 3A 00 2C 10 EA 01 8F 20 20 20 20 20 20 20 20 |.:.,.... |
00000820: 20 20 50 48 41 52 4D 41 43 49 45 53 00 32 10 F4 | PHARMACIES.2..|
00000830: 01 3A 00 4B 10 FE 01 81 43 32 B2 30 A4 31 3A 52 |.:.K....C2.0.1:R|
00000840: 4E B2 31 30 AA 43 32 3A 58 B2 30 00 85 10 08 02 |N.10.C2:X.0.....|
00000850: 8B 20 43 32 B2 30 A7 99 22 9C 12 93 20 20 20 20 |. C2.0.."... |
00000860: 20 20 20 20 20 20 20 20 D2 45 47 55 4C 41 52 20 | .EGULAR |
00000870: D0 48 41 52 4D 41 43 59 20 20 20 20 20 20 20 20 |.HARMACY |
00000880: 20 20 20 20 22 00 BF 10 12 02 8B 20 43 32 B2 31 | "...... C2.1|
00000890: A7 99 22 9C 12 93 20 20 20 20 20 20 20 20 20 20 |.."... |
000008A0: 20 20 32 34 2D C8 4F 55 52 20 D0 48 41 52 4D 41 | 24-.OUR .HARMA|
000008B0: 43 59 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |CY ".|
000008C0: EE 10 1C 02 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 |..... 1000:. M..|
000008D0: 30 A7 8D 20 31 32 32 30 3A 8B 5A 24 B2 C7 28 31 |0.. 1220:.Z$..(1|
000008E0: 33 34 29 A7 8D 32 33 30 30 3A 82 20 43 32 00 FB |34)..2300:. C2..|
000008F0: 10 1D 02 8B 20 4D B2 31 A7 20 8E 00 0D 11 21 02 |.... M.1. ....!.|
00000900: 8D 20 31 35 30 30 3A 82 20 43 32 3A 8E 00 13 11 |. 1500:. C2:....|
00000910: 26 02 3A 00 2D 11 30 02 8F 20 20 20 20 20 20 20 |&.:.-.0.. |
00000920: 20 20 20 20 48 4F 54 20 4C 49 4E 45 53 00 33 11 | HOT LINES.3.|
00000930: 3A 02 3A 00 4B 11 44 02 81 20 43 32 B2 30 20 A4 |:.:.K.D.. C2.0 .|
00000940: 20 34 3A 52 4E B2 43 32 AA 31 32 00 82 11 4E 02 | 4:RN.C2.12...N.|
00000950: 99 22 93 90 12 20 20 20 20 20 20 20 20 20 20 20 |."... |
00000960: 20 20 20 20 20 22 48 4C 24 22 9D 20 23 22 43 32 | "HL$". #"C2|
00000970: AA 31 22 9D 20 20 20 20 20 20 20 20 20 20 20 20 |.1". |
00000980: 20 22 00 B4 11 58 02 58 B2 34 3A 8D 31 30 30 30 | "...X.X.4:.1000|
00000990: 3A 8B 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 |:.M..0..1220:.Z$|
000009A0: B2 C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 20 |..(134)..2300:. |
000009B0: 43 32 3A 8E 00 C0 11 5D 02 8B 20 4D B2 31 A7 8E |C2:....].. M.1..|
000009C0: 00 D9 11 62 02 8D 31 35 30 30 3A 8B 20 5A 24 B2 |...b..1500:. Z$.|
000009D0: C7 28 31 33 33 29 A7 20 8E 00 E3 11 67 02 82 43 |.(133). ....g..C|
000009E0: 32 3A 8E 00 E9 11 6C 02 3A 00 EF 11 76 02 3A 00 |2:....l.:...v.:.|
000009F0: F5 11 80 02 3A 00 0E 12 8A 02 81 43 32 B2 30 A4 |....:......C2.0.|
00000A00: 31 3A 52 4E B2 31 37 AA 43 32 3A 58 B2 32 00 48 |1:RN.17.C2:X.2.H|
00000A10: 12 94 02 8B 20 43 32 B2 30 A7 99 22 9C 12 93 20 |.... C2.0.."... |
00000A20: 20 20 20 20 20 20 20 20 20 20 20 CD 45 44 49 43 | .EDIC|
00000A30: 41 4C 20 C9 4E 53 55 52 41 4E 43 45 20 20 20 20 |AL .NSURANCE |
00000A40: 20 20 20 20 20 20 20 22 00 82 12 9E 02 8B 20 43 | "...... C|
00000A50: 32 B2 31 A7 99 22 9C 12 93 20 20 20 20 20 20 20 |2.1.."... |
00000A60: 20 20 20 20 20 C4 45 4E 54 41 4C 20 C9 4E 53 55 | .ENTAL .NSU|
00000A70: 52 41 4E 43 45 20 20 20 20 20 20 20 20 20 20 20 |RANCE |
00000A80: 20 22 00 B1 12 A8 02 8D 31 30 30 30 3A 8B 20 4D | "......1000:. M|
00000A90: B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 B2 C7 28 |..0..1220:.Z$..(|
00000AA0: 31 33 34 29 A7 8D 20 32 33 30 30 3A 82 43 32 3A |134).. 2300:.C2:|
00000AB0: 8E 00 BE 12 A9 02 8B 20 4D B2 31 A7 20 8E 00 D7 |....... M.1. ...|
00000AC0: 12 AD 02 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 28 |....1500:. Z$..(|
00000AD0: 31 33 33 29 A7 20 8E 00 E1 12 B2 02 82 43 32 3A |133). .......C2:|
00000AE0: 8E 00 E7 12 BC 02 3A 00 02 13 C6 02 8F 20 20 20 |......:...... |
00000AF0: 20 20 20 20 20 20 20 50 4F 4C 49 43 45 20 46 49 | POLICE FI|
00000B00: 52 45 00 08 13 D0 02 3A 00 21 13 DA 02 81 43 32 |RE.....:.!....C2|
00000B10: B2 30 A4 31 3A 52 4E B2 31 39 AA 43 32 3A 58 B2 |.0.1:RN.19.C2:X.|
00000B20: 35 00 5B 13 DF 02 8B 20 43 32 B2 30 A7 99 22 9C |5.[.... C2.0..".|
00000B30: 12 93 20 20 20 20 20 20 20 20 20 20 20 20 C6 49 |.. .I|
00000B40: 52 45 20 C4 45 50 41 52 54 4D 45 4E 54 20 20 20 |RE .EPARTMENT |
00000B50: 20 20 20 20 20 20 20 20 20 20 22 00 95 13 E4 02 | ".....|
00000B60: 8B 20 43 32 B2 31 A7 99 22 9C 12 93 20 20 20 20 |. C2.1.."... |
00000B70: 20 20 20 20 20 20 20 D0 4F 4C 49 43 45 20 C4 45 | .OLICE .E|
00000B80: 50 41 52 54 4D 45 4E 54 20 20 20 20 20 20 20 20 |PARTMENT |
00000B90: 20 20 20 20 22 00 C2 13 E9 02 8D 31 30 30 30 3A | "......1000:|
00000BA0: 8B 20 4D B3 B1 30 A7 8D 31 32 32 30 3A 8B 5A 24 |. M..0..1220:.Z$|
00000BB0: B2 C7 28 31 33 34 29 A7 8D 32 33 30 30 3A 82 20 |..(134)..2300:. |
00000BC0: 43 32 00 CE 13 EE 02 8B 20 4D B2 31 A7 8E 00 E7 |C2...... M.1....|
00000BD0: 13 F3 02 8D 31 35 30 30 3A 8B 20 5A 24 B2 C7 28 |....1500:. Z$..(|
00000BE0: 31 33 33 29 A7 20 8E 00 F1 13 F4 02 82 43 32 3A |133). .......C2:|
00000BF0: 8E 00 F7 13 F8 02 3A 00 13 14 02 03 8F 20 20 20 |......:...... |
00000C00: 20 20 20 20 20 45 4D 45 52 47 45 4E 43 59 20 52 | EMERGENCY R|
00000C10: 4F 4F 4D 00 19 14 0C 03 3A 00 43 14 16 03 99 22 |OOM.....:.C...."|
00000C20: 93 12 1C 20 20 20 DB 20 20 20 20 20 20 20 20 20 |... . |
00000C30: 22 45 52 24 22 20 20 20 20 20 20 20 20 20 DB 20 |"ER$" . |
00000C40: 20 20 22 00 6E 14 20 03 58 B2 33 3A 52 4E B2 32 | ".n. .X.3:RN.2|
00000C50: 31 3A 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 30 A7 |1:. 1000:. M..0.|
00000C60: 8D 31 32 32 30 3A 8D 20 32 33 30 30 3A 8E 00 7A |.1220:. 2300:..z|
00000C70: 14 2A 03 8D 31 35 30 30 3A 8E 00 80 14 34 03 3A |.*..1500:....4.:|
00000C80: 00 A0 14 3E 03 8F 20 20 20 20 20 50 4F 49 53 4F |...>.. POISO|
00000C90: 4E 20 43 4F 4E 54 52 4F 4C 20 43 45 4E 54 45 52 |N CONTROL CENTER|
00000CA0: 00 A6 14 48 03 3A 00 C9 14 52 03 99 22 93 12 1C |...H.:...R.."...|
00000CB0: 20 20 20 DB 20 20 20 20 20 22 50 43 24 22 20 20 | . "PC$" |
00000CC0: 20 20 20 20 DB 20 20 20 22 00 F4 14 5C 03 58 B2 | . "...\.X.|
00000CD0: 35 3A 52 4E B2 32 33 3A 8D 20 31 30 30 30 3A 8B |5:RN.23:. 1000:.|
00000CE0: 20 4D B3 B1 30 A7 8D 31 32 32 30 3A 8D 20 32 33 | M..0..1220:. 23|
00000CF0: 30 30 3A 8E 00 00 15 66 03 8D 31 35 30 30 3A 8E |00:....f..1500:.|
00000D00: 00 06 15 70 03 3A 00 24 15 7A 03 8F 20 20 20 20 |...p.:.$.z.. |
00000D10: 20 20 20 50 41 52 41 4D 45 44 49 43 20 53 45 52 | PARAMEDIC SER|
00000D20: 56 49 43 45 00 2A 15 84 03 3A 00 51 15 8E 03 99 |VICE.*...:.Q....|
00000D30: 22 93 12 1C 20 20 20 DB 20 20 20 20 20 20 20 22 |"... . "|
00000D40: 50 53 24 22 20 20 20 20 20 20 20 20 DB 20 20 20 |PS$" . |
00000D50: 22 00 7C 15 98 03 58 B2 35 3A 52 4E B2 32 32 3A |".|...X.5:RN.22:|
00000D60: 8D 20 31 30 30 30 3A 8B 20 4D B3 B1 30 A7 8D 31 |. 1000:. M..0..1|
00000D70: 32 32 30 3A 8D 20 32 33 30 30 3A 8E 00 88 15 A2 |220:. 2300:.....|
00000D80: 03 8D 31 35 30 30 3A 8E 00 8E 15 AC 03 3A 00 AB |..1500:......:..|
00000D90: 15 AD 03 8F 20 20 20 20 20 20 20 56 49 45 57 20 |.... VIEW |
00000DA0: 41 4C 4C 20 52 45 43 4F 52 44 53 00 B1 15 AE 03 |ALL RECORDS.....|
00000DB0: 3A 00 BD 15 AF 03 49 B2 31 3A 4D B2 30 00 F4 15 |:.....I.1:M.0...|
00000DC0: B0 03 91 20 20 49 20 8D 20 32 31 30 2C 34 32 30 |... I . 210,420|
00000DD0: 2C 37 30 30 2C 37 36 30 2C 38 32 30 2C 38 38 30 |,700,760,820,880|
00000DE0: 2C 32 37 30 2C 33 34 30 2C 36 32 30 2C 35 30 30 |,270,340,620,500|
00000DF0: 2C 35 35 30 00 06 16 B4 03 8B 20 5A 24 B2 C7 28 |,550...... Z$..(|
00000E00: 31 33 33 29 A7 8E 00 19 16 B5 03 49 B2 49 AA 31 |133).......I.I.1|
00000E10: 3A 8B 49 B1 31 31 A7 20 8E 00 23 16 B7 03 89 20 |:.I.11. ..#.... |
00000E20: 39 34 34 00 62 16 C0 03 A0 34 3A 99 22 93 11 11 |944.b....4:."...|
00000E30: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D CD 41 |...............A|
00000E40: 4B 45 20 53 55 52 45 20 59 4F 55 52 20 50 52 49 |KE SURE YOUR PRI|
00000E50: 4E 54 45 52 20 49 53 20 54 55 52 4E 45 44 20 4F |NTER IS TURNED O|
00000E60: 4E 2E 00 8F 16 C1 03 99 22 11 11 11 11 11 1D 1D |N.......".......|
00000E70: 1D 1D 1D D0 52 45 53 53 20 53 50 41 43 45 20 42 |....RESS SPACE B|
00000E80: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |AR TO CONTINUE".|
00000E90: A3 16 C2 03 A1 20 5A 24 3A 8B 5A 24 B2 22 22 A7 |..... Z$:.Z$."".|
00000EA0: 39 36 32 00 AE 16 C3 03 9F 34 2C 34 2C 37 00 F0 |962......4,4,7..|
00000EB0: 16 C4 03 98 34 2C 22 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 20 C8 C5 C1 CC D4 C8 20 D4 C5 CC C5 D0 C8 CF | ...... .......|
00000EE0: CE C5 20 C4 C9 D2 C5 C3 D4 CF D2 D9 22 3A 9D 34 |.. .........":.4|
00000EF0: 00 2F 17 C5 03 4E B2 31 3A 81 49 B2 31 A4 31 31 |./...N.1:.I.1.11|
00000F00: 3A 91 49 89 39 36 36 2C 39 36 37 2C 39 36 38 2C |:.I.966,967,968,|
00000F10: 39 37 32 2C 39 37 33 2C 39 37 37 2C 39 38 32 2C |972,973,977,982,|
00000F20: 39 38 35 2C 39 38 38 2C 39 39 31 2C 39 39 34 00 |985,988,991,994.|
00000F30: 58 17 C6 03 99 3A 99 22 C6 41 4D 49 4C 59 20 D0 |X....:.".AMILY .|
00000F40: 48 59 53 49 43 49 41 4E 22 3B 3A 58 B2 30 3A 52 |HYSICIAN";:X.0:R|
00000F50: 4E B2 31 3A 89 39 39 37 00 8D 17 C7 03 81 43 32 |N.1:.997......C2|
00000F60: B2 30 A4 34 3A 52 4E B2 43 32 AA 32 3A 58 B2 31 |.0.4:RN.C2.2:X.1|
00000F70: 3A 99 3A 99 22 D3 50 45 43 49 41 4C 49 53 54 20 |:.:.".PECIALIST |
00000F80: 23 20 22 43 32 AA 31 3B 3A 89 39 39 36 00 AE 17 |# "C2.1;:.996...|
00000F90: C8 03 99 C7 28 31 32 29 3A 81 43 32 B2 30 A4 31 |....(12):.C2.0.1|
00000FA0: 3A 52 4E B2 37 AA 43 32 3A 58 B2 30 3A 99 00 D3 |:RN.7.C2:X.0:...|
00000FB0: 17 C9 03 8B 43 32 B2 30 A7 99 22 D2 45 47 55 4C |....C2.0..".EGUL|
00000FC0: 41 52 20 D6 45 54 45 52 49 4E 41 52 49 41 4E 20 |AR .ETERINARIAN |
00000FD0: 20 22 3B 00 F9 17 CA 03 8B 43 32 B2 31 A7 99 22 | ";......C2.1.."|
00000FE0: 32 34 2D 48 4F 55 52 20 C1 4E 49 4D 41 4C 20 C8 |24-HOUR .NIMAL .|
00000FF0: 4F 53 50 49 54 41 4C 22 3B 00 02 18 CB 03 89 39 |OSPITAL";......9|
00001000: 39 36 00 22 18 CC 03 99 3A 99 22 C4 45 4E 54 49 |96."....:.".ENTI|
00001010: 53 54 22 3B 3A 58 B2 30 3A 52 4E B2 39 3A 89 39 |ST";:X.0:RN.9:.9|
00001020: 39 37 00 58 18 CD 03 81 43 32 B2 30 A4 31 3A 52 |97.X....C2.0.1:R|
00001030: 4E B2 31 30 AA 43 32 3A 58 B2 30 3A 99 3A 8B 43 |N.10.C2:X.0:.:.C|
00001040: 32 B2 30 A7 99 22 D2 45 47 55 4C 41 52 20 D0 48 |2.0..".EGULAR .H|
00001050: 41 52 4D 41 43 59 22 3B 00 77 18 CE 03 8B 43 32 |ARMACY";.w....C2|
00001060: B2 31 A7 99 22 32 34 2D 48 4F 55 52 20 D0 48 41 |.1.."24-HOUR .HA|
00001070: 52 4D 41 43 59 22 3B 00 80 18 CF 03 89 39 39 36 |RMACY";......996|
00001080: 00 A2 18 D1 03 99 C7 28 31 32 29 3A 81 43 32 B2 |.......(12):.C2.|
00001090: 30 A4 34 3A 58 B2 34 3A 52 4E B2 43 32 AA 31 32 |0.4:X.4:RN.C2.12|
000010A0: 3A 99 00 BF 18 D2 03 99 22 C8 4F 54 20 CC 49 4E |:.......".OT .IN|
000010B0: 45 20 23 20 22 43 32 AA 31 3B 3A 89 39 39 36 00 |E # "C2.1;:.996.|
000010C0: F6 18 D6 03 81 43 32 B2 30 A4 31 3A 52 4E B2 31 |.....C2.0.1:RN.1|
000010D0: 37 AA 43 32 3A 58 B2 32 3A 99 3A 8B 43 32 B2 30 |7.C2:X.2:.:.C2.0|
000010E0: A7 99 22 CD 45 44 49 43 41 4C 20 C9 4E 53 55 52 |..".EDICAL .NSUR|
000010F0: 41 4E 43 45 22 3B 00 15 19 D7 03 8B 43 32 B2 31 |ANCE";......C2.1|
00001100: A7 99 22 C4 45 4E 54 41 4C 20 C9 4E 53 55 52 41 |..".ENTAL .NSURA|
00001110: 4E 43 45 22 3B 00 1E 19 D8 03 89 39 39 36 00 5A |NCE";......996.Z|
00001120: 19 D9 03 99 C7 28 31 32 29 3A 81 43 32 B2 30 A4 |.....(12):.C2.0.|
00001130: 31 3A 52 4E B2 31 39 AA 43 32 3A 58 B2 35 3A 99 |1:RN.19.C2:X.5:.|
00001140: 3A 8B 43 32 B2 30 A7 99 22 C6 49 52 45 20 C4 45 |:.C2.0..".IRE .E|
00001150: 50 41 52 54 4D 45 4E 54 22 3B 00 7A 19 DA 03 8B |PARTMENT";.z....|
00001160: 43 32 B2 31 A7 99 22 D0 4F 4C 49 43 45 20 C4 45 |C2.1..".OLICE .E|
00001170: 50 41 52 54 4D 45 4E 54 22 3B 00 83 19 DB 03 89 |PARTMENT";......|
00001180: 39 39 36 00 AB 19 DC 03 58 B2 33 3A 52 4E B2 32 |996.....X.3:RN.2|
00001190: 31 3A 99 3A 99 22 C5 4D 45 52 47 45 4E 43 59 20 |1:.:.".MERGENCY |
000011A0: D2 4F 4F 4D 22 3B 3A 89 39 39 37 00 DA 19 DF 03 |.OOM";:.997.....|
000011B0: 58 B2 35 3A 52 4E B2 32 33 3A 99 3A 99 22 D0 4F |X.5:RN.23:.:.".O|
000011C0: 49 53 4F 4E 20 C3 4F 4E 54 52 4F 4C 20 C3 45 4E |ISON .ONTROL .EN|
000011D0: 54 45 52 22 3B 3A 89 39 39 37 00 05 1A E2 03 58 |TER";:.997.....X|
000011E0: B2 35 3A 52 4E B2 32 32 3A 99 3A 99 22 D0 41 52 |.5:RN.22:.:.".AR|
000011F0: 41 4D 45 44 49 43 20 D3 45 52 56 49 43 45 22 3B |AMEDIC .ERVICE";|
00001200: 3A 89 39 39 37 00 16 1A E4 03 8D 33 30 30 30 3A |:.997......3000:|
00001210: 82 3A 89 39 39 38 00 20 1A E5 03 8D 33 30 30 30 |.:.998. ....3000|
00001220: 00 3E 1A E6 03 82 3A 98 34 3A 98 34 2C C7 28 31 |.>....:.4:.4,.(1|
00001230: 32 29 3A 98 34 3A A0 34 3A 4E B2 30 3A 8E 00 44 |2):.4:.4:N.0:..D|
00001240: 1A E7 03 80 00 4A 1A E8 03 3A 00 67 1A F2 03 8F |.....J...:.g....|
00001250: 20 20 20 20 20 44 41 54 41 20 48 41 4E 44 4C 49 | DATA HANDLI|
00001260: 4E 47 20 52 4F 55 54 00 6D 1A FC 03 3A 00 76 1A |NG ROUT.m...:.v.|
00001270: FD 03 99 22 90 22 00 8A 1A FE 03 8B 20 4E B3 B1 |..."."...... N..|
00001280: 30 A7 8D 20 33 30 30 30 3A 8E 00 D7 1A 01 04 4E |0.. 3000:......N|
00001290: 41 24 B2 22 4E 41 4D 45 22 3A 43 31 24 B2 22 43 |A$."NAME":C1$."C|
000012A0: 4F 4D 4D 45 4E 54 22 3A 43 32 24 B2 22 22 3A 8B |OMMENT":C2$."":.|
000012B0: 58 B2 32 A7 4E 41 24 B2 22 43 41 52 52 49 45 52 |X.2.NA$."CARRIER|
000012C0: 22 3A 43 32 24 B2 43 31 24 3A 43 31 24 B2 22 50 |":C2$.C1$:C1$."P|
000012D0: 4F 4C 49 43 59 23 22 00 F4 1A 02 04 8B 20 58 B2 |OLICY#"...... X.|
000012E0: 33 20 A7 20 43 31 24 B2 22 44 49 52 45 43 54 49 |3 . C1$."DIRECTI|
000012F0: 4F 4E 53 22 00 2E 1B 03 04 4E 41 24 B2 C8 28 4E |ONS".....NA$..(N|
00001300: 41 24 AA 42 4C 24 2C 31 30 29 3A 43 31 24 B2 C8 |A$.BL$,10):C1$..|
00001310: 28 43 31 24 AA 42 4C 24 2C 31 30 29 3A 43 32 24 |(C1$.BL$,10):C2$|
00001320: B2 C8 28 43 32 24 AA 42 4C 24 2C 31 30 29 00 69 |..(C2$.BL$,10).i|
00001330: 1B 06 04 8B 58 B2 31 A7 97 32 31 30 2C A5 41 28 |....X.1..210,.A(|
00001340: 31 31 38 34 29 3A 97 20 32 30 39 2C A5 42 28 31 |1184):. 209,.B(1|
00001350: 31 38 34 29 3A 99 22 53 50 45 43 49 41 4C 54 59 |184):."SPECIALTY|
00001360: 20 3A 22 42 4C 24 22 3A 22 00 9E 1B 10 04 8B 58 | :"BL$":"......X|
00001370: B3 35 A7 97 32 31 30 2C A5 41 28 31 32 36 34 29 |.5..210,.A(1264)|
00001380: 3A 97 20 32 30 39 2C A5 42 28 31 32 36 34 29 3A |:. 209,.B(1264):|
00001390: 99 20 4E 41 24 22 3A 22 42 4C 24 22 3A 22 00 D9 |. NA$":"BL$":"..|
000013A0: 1B 1A 04 8B 58 B3 34 A7 97 32 31 30 2C A5 41 28 |....X.4..210,.A(|
000013B0: 31 33 34 34 29 3A 97 20 32 30 39 2C A5 42 28 31 |1344):. 209,.B(1|
000013C0: 33 34 34 29 3A 99 22 41 44 44 52 45 53 53 20 20 |344):."ADDRESS |
000013D0: 20 3A 22 42 4C 24 22 3A 22 00 16 1C 24 04 8B 58 | :"BL$":"...$..X|
000013E0: B3 34 A7 20 20 97 32 31 30 2C A5 41 28 31 34 32 |.4. .210,.A(142|
000013F0: 34 29 3A 97 20 32 30 39 2C A5 42 28 31 34 32 34 |4):. 209,.B(1424|
00001400: 29 3A 99 22 20 20 20 20 20 20 20 20 20 20 3A 22 |):." :"|
00001410: 42 4C 24 22 3A 22 00 53 1C 2E 04 97 32 31 30 2C |BL$":".S....210,|
00001420: A5 41 28 31 35 30 34 29 3A 97 20 32 30 39 2C A5 |.A(1504):. 209,.|
00001430: 42 28 31 35 30 34 29 3A 99 22 50 48 4F 4E 45 20 |B(1504):."PHONE |
00001440: 20 20 20 20 3A 28 20 20 20 29 20 20 20 2D 20 20 | :( ) - |
00001450: 20 20 22 00 82 1C 38 04 97 32 31 30 2C A5 41 28 | "...8..210,.A(|
00001460: 31 35 38 34 29 3A 97 20 32 30 39 2C A5 42 28 31 |1584):. 209,.B(1|
00001470: 35 38 34 29 3A 99 43 31 24 22 3A 22 42 4C 24 22 |584):.C1$":"BL$"|
00001480: 3A 22 00 B9 1C 42 04 97 32 31 30 2C A5 41 28 31 |:"...B..210,.A(1|
00001490: 36 36 34 29 3A 97 20 32 30 39 2C A5 42 28 31 36 |664):. 209,.B(16|
000014A0: 36 34 29 3A 99 43 32 24 22 3A 22 42 4C 24 22 3A |64):.C2$":"BL$":|
000014B0: 22 3A 8D 31 31 30 30 3A 8E 00 BF 1C 4C 04 3A 00 |":.1100:....L.:.|
000014C0: E1 1C 56 04 8F 20 20 47 45 54 20 44 41 54 41 20 |..V.. GET DATA |
000014D0: 46 52 4F 4D 20 44 49 53 4B 20 52 4F 55 54 49 4E |FROM DISK ROUTIN|
000014E0: 45 00 E7 1C 60 04 3A 00 ED 1C 61 04 8C 00 FA 1C |E...`.:...a.....|
000014F0: 62 04 A0 34 3A 9F 20 34 2C 34 00 0C 1D 63 04 8B |b..4:. 4,4...c..|
00001500: 20 4E B3 B1 30 A7 20 98 34 3A A0 34 00 2B 1D 65 | N..0. .4:.4.+.e|
00001510: 04 9F 20 33 2C 38 2C 33 2C 22 44 49 52 45 43 54 |.. 3,8,3,"DIRECT|
00001520: 4F 52 59 22 3A 8D 20 35 30 30 30 00 35 1D 66 04 |ORY":. 5000.5.f.|
00001530: 41 24 B2 22 22 00 4A 1D 6A 04 81 20 43 B2 30 A4 |A$."".J.j.. C.0.|
00001540: 36 3A 53 24 28 43 29 B2 22 22 00 62 1D 74 04 8B |6:S$(C)."".b.t..|
00001550: 20 58 B2 35 20 AF 20 43 B2 31 A7 20 89 20 31 31 | X.5 . C.1. . 11|
00001560: 39 31 00 7B 1D 7E 04 8B 20 58 B1 33 AF 28 43 B2 |91.{.~.. X.3.(C.|
00001570: 32 B0 43 B2 33 29 A7 31 31 39 31 00 92 1D 88 04 |2.C.3).1191.....|
00001580: 43 4C 28 43 29 B2 31 31 38 34 AA 43 AC 38 30 AA |CL(C).1184.C.80.|
00001590: 31 31 00 B2 1D 92 04 50 B2 43 AC 32 36 AA 31 3A |11.....P.C.26.1:|
000015A0: 8B 43 B1 34 A7 50 B2 28 43 AB 31 29 AC 32 36 AA |.C.4.P.(C.1).26.|
000015B0: 31 31 00 D6 1D 9C 04 98 31 35 2C 22 50 22 C7 28 |11......15,"P".(|
000015C0: 33 29 C7 28 52 4E 29 C7 28 30 29 C7 28 50 29 3A |3).(RN).(0).(P):|
000015D0: 8D 20 35 30 30 30 00 FF 1D 9D 04 84 31 35 2C 41 |. 5000......15,A|
000015E0: 2C 42 24 3A 8B 41 B3 B1 30 A7 99 22 45 52 52 4F |,B$:.A..0.."ERRO|
000015F0: 52 20 49 4E 20 31 31 38 30 22 3A A0 33 3A 80 00 |R IN 1180":.3:..|
00001600: 14 1E A0 04 8B 20 41 24 B2 C7 28 32 35 35 29 A7 |..... A$..(255).|
00001610: 31 31 39 36 00 31 1E A1 04 A1 23 33 2C 41 24 3A |1196.1....#3,A$:|
00001620: 8B 20 41 24 B2 C7 28 32 35 35 29 A7 20 31 31 39 |. A$..(255). 119|
00001630: 36 00 54 1E A2 04 8B 20 41 24 B2 C7 28 31 33 29 |6.T.... A$..(13)|
00001640: B0 41 24 B2 22 22 A7 20 53 24 B2 22 22 3A 89 20 |.A$."". S$."":. |
00001650: 31 31 39 36 00 76 1E A6 04 84 33 2C 53 24 3A 8B |1196.v....3,S$:.|
00001660: 20 58 B3 B1 31 AF 43 B2 30 A7 20 41 24 B2 22 22 | X..1.C.0. A$.""|
00001670: 3A 53 24 B2 22 22 00 86 1E A7 04 53 24 28 43 29 |:S$."".....S$(C)|
00001680: B2 41 24 AA 53 24 00 8D 1E AC 04 82 43 00 A9 1E |.A$.S$......C...|
00001690: AD 04 8B 20 4E B3 B1 30 20 A7 20 A0 33 3A 98 31 |... N..0 . .3:.1|
000016A0: 35 2C 22 49 30 3A 22 3A 8E 00 BB 1E AE 04 53 24 |5,"I0:":......S$|
000016B0: B2 22 22 3A 81 20 43 B2 30 A4 36 00 ED 1E AF 04 |."":. C.0.6.....|
000016C0: 8B 20 43 B2 34 A7 53 24 28 34 29 B2 C8 28 53 24 |. C.4.S$(4)..(S$|
000016D0: 28 34 29 2C 31 30 29 3A 43 4C B2 43 4C 28 34 29 |(4),10):CL.CL(4)|
000016E0: 3A 8D 31 34 33 30 3A 89 20 31 32 30 35 00 02 1F |:.1430:. 1205...|
000016F0: B1 04 8B 20 58 B3 B1 31 AF 43 B2 30 A7 89 31 32 |... X..1.C.0..12|
00001700: 30 35 00 1A 1F B2 04 8B 20 58 B2 35 20 AF 20 43 |05...... X.5 . C|
00001710: B2 31 A7 20 89 20 31 32 30 35 00 33 1F B3 04 8B |.1. . 1205.3....|
00001720: 20 58 B1 33 AF 28 43 B2 32 B0 43 B2 33 29 A7 31 | X.3.(C.2.C.3).1|
00001730: 32 30 35 00 6A 1F B4 04 97 32 30 39 2C A5 42 28 |205.j....209,.B(|
00001740: 43 4C 28 43 29 29 3A 97 32 31 30 2C A5 41 28 43 |CL(C)):.210,.A(C|
00001750: 4C 28 43 29 29 3A 99 22 1F 12 22 C8 28 53 24 28 |L(C)):."..".(S$(|
00001760: 43 29 AA 42 4C 24 2C 32 35 29 00 72 1F B5 04 82 |C).BL$,25).r....|
00001770: 20 43 00 85 1F BA 04 A0 33 3A 98 31 35 2C 22 49 | C......3:.15,"I|
00001780: 30 3A 22 3A 8E 00 8B 1F C4 04 3A 00 A9 1F CE 04 |0:":......:.....|
00001790: 8F 20 20 20 20 20 20 44 41 54 41 20 46 49 45 4C |. DATA FIEL|
000017A0: 44 20 48 41 4E 44 4C 45 52 00 AF 1F D8 04 3A 00 |D HANDLER.....:.|
000017B0: F4 1F D9 04 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
000017C0: 11 11 11 11 11 11 11 11 11 11 11 1C C4 4F 20 4E |.............O N|
000017D0: 4F 54 20 55 53 45 20 43 4F 4D 4D 41 53 2C 20 53 |OT USE COMMAS, S|
000017E0: 45 4D 49 43 4F 4C 4F 4E 53 20 4F 52 20 43 4F 4C |EMICOLONS OR COL|
000017F0: 4F 4E 53 22 00 1E 20 DA 04 99 22 D0 52 45 53 53 |ONS".. ...".RESS|
00001800: 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 4D 4F 56 45 20 | ...... TO MOVE |
00001810: 42 45 54 57 45 45 4E 20 42 4F 58 45 53 22 00 5D |BETWEEN BOXES".]|
00001820: 20 DB 04 99 22 D0 52 45 53 53 20 46 31 20 54 4F | ...".RESS F1 TO|
00001830: 20 52 45 54 55 52 4E 20 54 4F 20 CD 45 4E 55 22 | RETURN TO .ENU"|
00001840: 3A 99 22 D0 52 45 53 53 20 46 33 20 54 4F 20 53 |:.".RESS F3 TO S|
00001850: 41 56 45 20 52 45 43 4F 52 44 2E 90 22 00 79 20 |AVE RECORD..".y |
00001860: E2 04 53 24 B2 22 22 3A 43 B2 30 3A 8B 58 B3 B1 |..S$."":C.0:.X..|
00001870: 31 AF 43 B2 30 A7 43 B2 31 00 8F 20 EC 04 41 B2 |1.C.0.C.1.. ..A.|
00001880: 30 3A 50 B2 31 3A 8B 43 B1 36 20 A7 43 B2 30 00 |0:P.1:.C.6 .C.0.|
00001890: A1 20 ED 04 8B 58 B3 B1 31 AF 43 B2 30 A7 43 B2 |. ...X..1.C.0.C.|
000018A0: 31 00 B5 20 EE 04 8B 20 58 B2 34 AF 28 43 B2 32 |1.. ... X.4.(C.2|
000018B0: 29 A7 43 B2 34 00 C9 20 EF 04 8B 20 58 B2 35 AF |).C.4.. ... X.5.|
000018C0: 28 43 B2 31 29 A7 43 B2 34 00 E1 20 F6 04 43 4C |(C.1).C.4.. ..CL|
000018D0: B2 31 31 39 35 AA 43 AC 38 30 3A 8D 20 31 34 37 |.1195.C.80:. 147|
000018E0: 30 00 F8 20 F7 04 A1 20 41 24 3A 41 B2 C6 28 41 |0.. ... A$:A..(A|
000018F0: 24 AA C7 28 33 31 29 29 00 29 21 F8 04 8B 41 B2 |$..(31)).)!...A.|
00001900: 32 39 B0 41 B2 31 39 B0 41 B2 32 30 B0 41 B2 31 |29.A.19.A.20.A.1|
00001910: 35 37 B0 41 B2 31 33 33 B0 41 B2 31 33 34 B0 41 |57.A.133.A.134.A|
00001920: B2 31 34 38 A7 31 33 37 30 00 4A 21 FA 04 8B 20 |.148.1370.J!... |
00001930: 41 24 B2 22 2C 22 B0 41 24 B2 22 3B 22 B0 41 24 |A$.",".A$.";".A$|
00001940: B2 22 3A 22 A7 20 31 32 37 31 00 5C 21 00 05 43 |.":". 1271.\!..C|
00001950: 4C B2 31 31 39 35 AA 43 AC 38 30 3A 00 8E 21 0A |L.1195.C.80:..!.|
00001960: 05 8B A8 28 41 B1 33 31 AF 41 B3 39 31 29 AF A8 |...(A.31.A.91)..|
00001970: 28 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA 22 |(A$..".".A$.."."|
00001980: 29 AF 41 B3 B1 31 33 20 A7 20 31 32 37 31 00 C1 |).A..13 . 1271..|
00001990: 21 0B 05 8B 20 41 B2 31 33 20 A7 20 43 B2 43 AA |!... A.13 . C.C.|
000019A0: 31 3A 53 24 28 34 29 B2 C8 28 53 24 28 34 29 2C |1:S$(4)..(S$(4),|
000019B0: 31 30 29 3A 8D 20 31 34 37 30 3A 89 20 31 32 36 |10):. 1470:. 126|
000019C0: 30 00 E8 21 1E 05 8B 20 43 B2 34 AF 20 A8 28 28 |0..!... C.4. .((|
000019D0: 41 B1 34 37 29 AF 28 41 B3 35 38 29 B0 41 B2 33 |A.47).(A.58).A.3|
000019E0: 32 29 A7 20 31 32 37 30 00 2A 22 28 05 53 24 28 |2). 1270.*"(.S$(|
000019F0: 43 29 B2 C8 28 53 24 28 43 29 2C 50 AB 31 29 AA |C)..(S$(C),P.1).|
00001A00: 41 24 AA CA 28 53 24 28 43 29 AA 42 4C 24 2C 50 |A$..(S$(C).BL$,P|
00001A10: AA 31 2C 32 35 29 3A 50 B2 50 AA 31 3A 8B 20 50 |.1,25):P.P.1:. P|
00001A20: B1 32 35 20 A7 20 50 B2 32 35 00 5A 22 32 05 53 |.25 . P.25.Z"2.S|
00001A30: 24 28 43 29 B2 C8 28 53 24 28 43 29 2C 32 35 29 |$(C)..(S$(C),25)|
00001A40: 3A 8B 20 43 B2 34 20 A7 20 53 24 28 43 29 B2 C8 |:. C.4 . S$(C)..|
00001A50: 28 53 24 28 43 29 2C 31 30 29 00 71 22 37 05 8B |(S$(C),10).q"7..|
00001A60: 20 43 B2 34 A7 8D 31 34 33 30 3A 89 20 31 32 37 | C.4..1430:. 127|
00001A70: 30 00 97 22 3C 05 99 22 13 1F 12 22 3B 3A 97 20 |0.."<.."...";:. |
00001A80: 32 30 39 2C A5 42 28 43 4C 29 3A 97 20 32 31 30 |209,.B(CL):. 210|
00001A90: 2C A5 41 28 43 4C 29 00 A9 22 46 05 99 53 24 28 |,.A(CL).."F..S$(|
00001AA0: 43 29 3A 89 20 31 32 37 30 00 B4 22 50 05 89 20 |C):. 1270.."P.. |
00001AB0: 31 32 37 30 00 D4 22 5A 05 8B 20 41 B2 32 39 20 |1270.."Z.. A.29 |
00001AC0: A7 20 50 B2 50 AA 31 3A 8B 20 50 B1 32 35 A7 50 |. P.P.1:. P.25.P|
00001AD0: B2 32 35 3A 00 F1 22 64 05 8B 20 41 B2 31 39 A7 |.25:.."d.. A.19.|
00001AE0: 20 43 B2 30 3A 8D 31 34 37 30 3A 89 20 31 32 35 | C.0:.1470:. 125|
00001AF0: 30 00 2A 23 6E 05 8B 41 B2 32 30 AF 50 B1 31 A7 |0.*#n..A.20.P.1.|
00001B00: 53 24 28 43 29 B2 C8 28 53 24 28 43 29 2C 50 AB |S$(C)..(S$(C),P.|
00001B10: 32 29 AA CA 28 53 24 28 43 29 AA 42 4C 24 2C 50 |2)..(S$(C).BL$,P|
00001B20: 2C 32 36 29 3A 50 B2 50 AB 31 00 6D 23 73 05 8B |,26):P.P.1.m#s..|
00001B30: 41 B2 31 34 38 AF C9 28 53 24 28 43 29 2C 31 29 |A.148..(S$(C),1)|
00001B40: B2 22 20 22 A7 53 24 28 43 29 B2 C8 28 53 24 28 |." ".S$(C)..(S$(|
00001B50: 43 29 2C 50 AB 31 29 AA 22 20 22 AA CA 28 53 24 |C),P.1)." "..(S$|
00001B60: 28 43 29 AA 42 4C 24 2C 50 2C 32 36 29 00 8A 23 |(C).BL$,P,26)..#|
00001B70: 78 05 8B 20 41 B2 31 35 37 AF 50 B1 31 A7 20 50 |x.. A.157.P.1. P|
00001B80: B2 50 AB 31 3A 89 31 32 37 30 00 A3 23 82 05 8B |.P.1:.1270..#...|
00001B90: A8 28 41 B2 31 33 33 B0 41 B2 31 33 34 29 A7 31 |.(A.133.A.134).1|
00001BA0: 33 33 30 00 B9 23 83 05 5A 24 B2 41 24 3A 8B 20 |330..#..Z$.A$:. |
00001BB0: 41 B2 31 33 33 20 A7 20 8E 00 F5 23 84 05 99 22 |A.133 . ...#..."|
00001BC0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001BD0: 11 11 11 11 12 1C 22 42 4C 24 42 4C 24 42 4C 24 |......"BL$BL$BL$|
00001BE0: 42 4C 24 42 4C 24 42 4C 24 42 4C 24 42 4C 24 3B |BL$BL$BL$BL$BL$;|
00001BF0: 3A 99 22 13 22 00 2B 24 85 05 99 22 13 11 11 11 |:.".".+$..."....|
00001C00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001C10: 11 12 20 20 20 20 20 20 20 20 20 20 20 20 20 50 |.. P|
00001C20: 4C 45 41 53 45 20 57 41 49 54 22 00 31 24 87 05 |LEASE WAIT".1$..|
00001C30: 8E 00 6A 24 96 05 99 22 13 1F 12 22 3B 3A 97 20 |..j$..."...";:. |
00001C40: 32 30 39 2C A5 42 28 43 4C AA 31 29 3A 97 32 31 |209,.B(CL.1):.21|
00001C50: 30 2C A5 41 28 43 4C AA 31 29 3A 99 C8 28 53 24 |0,.A(CL.1):..(S$|
00001C60: 28 34 29 AA 42 4C 24 2C 33 29 00 A6 24 A0 05 99 |(4).BL$,3)..$...|
00001C70: 22 13 12 1F 22 3B 3A 97 20 32 30 39 2C A5 42 28 |"...";:. 209,.B(|
00001C80: 43 4C AA 35 29 3A 97 32 31 30 2C A5 41 28 43 4C |CL.5):.210,.A(CL|
00001C90: AA 35 29 3A 99 CA 28 53 24 28 34 29 AA 42 4C 24 |.5):..(S$(4).BL$|
00001CA0: 2C 34 2C 33 29 3B 00 E1 24 AA 05 99 22 13 12 1F |,4,3);..$..."...|
00001CB0: 22 3B 3A 97 20 32 30 39 2C A5 42 28 43 4C AA 39 |";:. 209,.B(CL.9|
00001CC0: 29 3A 97 32 31 30 2C A5 41 28 43 4C AA 39 29 3A |):.210,.A(CL.9):|
00001CD0: 99 CA 28 53 24 28 34 29 AA 42 4C 24 2C 37 2C 34 |..(S$(4).BL$,7,4|
00001CE0: 29 00 E7 24 B4 05 8E 00 1A 25 BE 05 99 22 13 22 |)..$.....%..."."|
00001CF0: 3A 43 50 B2 43 4C AA 33 39 3A 97 20 32 30 39 2C |:CP.CL.39:. 209,|
00001D00: A5 42 28 43 50 29 3A 97 32 31 30 2C A5 41 28 43 |.B(CP):.210,.A(C|
00001D10: 50 29 3A 99 42 4C 24 22 20 22 00 30 25 C3 05 8B |P):.BL$" ".0%...|
00001D20: 20 43 B2 34 AF 50 B3 34 A7 43 50 B2 43 50 AA 31 | C.4.P.4.CP.CP.1|
00001D30: 00 4B 25 C8 05 8B 20 43 B2 34 AF 50 B1 33 AF 50 |.K%... C.4.P.3.P|
00001D40: B3 37 A7 20 43 50 B2 43 50 AA 32 00 6D 25 CD 05 |.7. CP.CP.2.m%..|
00001D50: 8B 20 43 B2 34 AF 50 B1 36 A7 43 50 B2 43 50 AA |. C.4.P.6.CP.CP.|
00001D60: 33 3A 8B 50 B1 31 30 A7 20 50 B2 31 30 00 A1 25 |3:.P.10. P.10..%|
00001D70: D2 05 8B 41 B3 B1 31 33 AF 41 B3 B1 31 39 A7 97 |...A..13.A..19..|
00001D80: 32 30 39 2C A5 42 28 43 50 AA 50 29 3A 97 32 31 |209,.B(CP.P):.21|
00001D90: 30 2C A5 41 28 43 50 AA 50 29 3A 99 22 90 A3 1F |0,.A(CP.P):."...|
00001DA0: 22 00 A7 25 D7 05 8E 00 AD 25 DC 05 3A 00 C9 25 |"..%.....%..:..%|
00001DB0: E6 05 8F 20 20 20 20 20 50 55 53 48 20 41 4E 59 |... PUSH ANY|
00001DC0: 20 4B 45 59 20 52 4F 55 54 00 CF 25 F0 05 3A 00 | KEY ROUT..%..:.|
00001DD0: DD 25 F1 05 8B 20 4E B3 B1 30 A7 20 8E 00 03 26 |.%... N..0. ...&|
00001DE0: F5 05 99 22 13 22 3A 97 20 32 30 39 2C A5 42 28 |...".":. 209,.B(|
00001DF0: 31 39 30 34 29 3A 97 32 31 30 2C A5 41 28 31 39 |1904):.210,.A(19|
00001E00: 30 34 29 00 1F 26 F6 05 99 22 D0 52 45 53 53 20 |04)..&...".RESS |
00001E10: 46 31 20 46 4F 52 20 4D 45 4E 55 20 4F 52 22 00 |F1 FOR MENU OR".|
00001E20: 5F 26 FA 05 97 20 32 31 30 2C A5 41 28 31 39 38 |_&... 210,.A(198|
00001E30: 34 29 3A 97 20 32 30 39 2C A5 42 28 31 39 38 34 |4):. 209,.B(1984|
00001E40: 29 3A 99 22 D0 55 53 48 20 53 50 41 43 45 20 42 |):.".USH SPACE B|
00001E50: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |AR TO CONTINUE".|
00001E60: 75 26 04 06 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 |u&... Z$:. Z$.""|
00001E70: A7 31 35 34 30 00 7B 26 0E 06 8E 00 81 26 18 06 |.1540.{&.....&..|
00001E80: 3A 00 9F 26 22 06 8F 20 20 20 20 20 20 43 48 4F |:..&".. CHO|
00001E90: 49 43 45 20 4F 46 20 41 20 4E 55 4D 42 45 52 00 |ICE OF A NUMBER.|
00001EA0: A5 26 2C 06 3A 00 C7 26 36 06 97 32 31 30 2C A5 |.&,.:..&6..210,.|
00001EB0: 41 28 31 39 30 34 29 3A 97 32 30 39 2C A5 42 28 |A(1904):.209,.B(|
00001EC0: 31 39 30 34 29 3A 3B 00 0C 27 4A 06 97 32 30 39 |1904):;..'J..209|
00001ED0: 2C A5 42 28 31 39 38 34 29 3A 97 32 31 30 2C A5 |,.B(1984):.210,.|
00001EE0: 41 28 31 39 38 34 29 3A 99 22 C5 4E 54 45 52 20 |A(1984):.".NTER |
00001EF0: 41 20 4E 55 4D 42 45 52 20 41 4E 44 20 50 52 45 |A NUMBER AND PRE|
00001F00: 53 53 20 D2 C5 D4 D5 D2 CE 3A 22 3B 00 16 27 4F |SS ......:";..'O|
00001F10: 06 53 24 B2 22 22 00 34 27 54 06 A1 20 41 24 3A |.S$."".4'T.. A$:|
00001F20: 41 B2 C5 28 41 24 29 3A 41 32 B2 C6 28 41 24 AA |A..(A$):A2..(A$.|
00001F30: 22 20 22 29 00 6B 27 5E 06 8B 28 41 B3 31 B0 41 |" ").k'^..(A.1.A|
00001F40: B1 39 29 AF A8 28 41 32 B2 32 30 B0 41 32 B2 31 |.9)..(A2.20.A2.1|
00001F50: 35 37 B0 41 32 B2 31 33 B0 41 32 B2 34 38 B0 41 |57.A2.13.A2.48.A|
00001F60: 32 B2 31 33 33 29 A7 31 36 32 30 00 8F 27 63 06 |2.133).1620..'c.|
00001F70: 8B 20 28 41 32 B2 32 30 B0 41 32 B2 31 35 37 29 |. (A2.20.A2.157)|
00001F80: AF C3 28 53 24 29 B3 B2 30 A7 41 24 B2 22 22 00 |..(S$)..0.A$."".|
00001F90: CB 27 64 06 8B 28 41 32 B2 32 30 B0 41 32 B2 31 |.'d..(A2.20.A2.1|
00001FA0: 35 37 29 AF C3 28 53 24 29 B1 30 A7 53 24 B2 C8 |57)..(S$).0.S$..|
00001FB0: 28 53 24 2C C3 28 53 24 29 AB 31 29 3A 41 24 B2 |(S$,.(S$).1):A$.|
00001FC0: C7 28 32 30 29 3A 89 31 36 39 30 00 E2 27 65 06 |.(20):.1690..'e.|
00001FD0: 8B 20 41 32 B2 31 33 33 20 A7 20 41 B2 31 33 33 |. A2.133 . A.133|
00001FE0: 3A 8E 00 0C 28 68 06 8B 20 C3 28 53 24 29 B2 32 |:...(h.. .(S$).2|
00001FF0: AF A8 28 41 32 B2 32 30 B0 41 32 B2 31 35 37 B0 |..(A2.20.A2.157.|
00002000: 41 32 B2 31 33 29 A7 31 36 32 30 29 00 33 28 72 |A2.13).1620).3(r|
00002010: 06 8B 20 41 32 B2 31 33 A7 20 41 24 B2 22 22 3A |.. A2.13. A$."":|
00002020: 8B C3 28 53 24 29 B1 30 A7 20 41 B2 C5 28 53 24 |..(S$).0. A..(S$|
00002030: 29 3A 8E 00 57 28 7C 06 8B 20 28 41 32 B2 32 30 |):..W(|.. (A2.20|
00002040: B0 41 32 B2 31 35 37 29 AF C3 28 53 24 29 B3 B2 |.A2.157)..(S$)..|
00002050: 30 A7 41 24 B2 22 22 00 93 28 86 06 8B 28 41 32 |0.A$.""..(...(A2|
00002060: B2 32 30 B0 41 32 B2 31 35 37 29 AF C3 28 53 24 |.20.A2.157)..(S$|
00002070: 29 B1 30 A7 53 24 B2 C8 28 53 24 2C C3 28 53 24 |).0.S$..(S$,.(S$|
00002080: 29 AB 31 29 3A 41 24 B2 C7 28 32 30 29 3A 89 31 |).1):A$..(20):.1|
00002090: 36 39 30 00 A0 28 90 06 53 24 B2 53 24 AA 41 24 |690..(..S$.S$.A$|
000020A0: 00 B1 28 9A 06 99 20 41 24 3B 3A 89 20 31 36 32 |..(... A$;:. 162|
000020B0: 30 00 B7 28 CE 07 80 00 BD 28 CF 07 80 00 C3 28 |0..(.....(.....(|
000020C0: D0 07 3A 00 DF 28 D1 07 8F 20 20 20 20 20 20 43 |..:..(... C|
000020D0: 52 45 41 54 45 20 46 49 4C 45 20 52 4F 55 54 00 |REATE FILE ROUT.|
000020E0: E5 28 D2 07 3A 00 ED 28 DA 07 50 B2 31 00 08 29 |.(..:..(..P.1..)|
000020F0: DB 07 A0 33 3A 9F 20 33 2C 38 2C 33 2C 22 44 49 |...3:. 3,8,3,"DI|
00002100: 52 45 43 54 4F 52 59 22 00 29 29 DC 07 84 31 35 |RECTORY".))...15|
00002110: 2C 41 2C 42 24 3A A0 33 3A 8B 20 41 B2 37 30 B0 |,A,B$:.3:. A.70.|
00002120: 41 B2 36 32 A7 32 30 33 30 00 63 29 E2 07 99 22 |A.62.2030.c)..."|
00002130: 93 11 11 11 11 11 11 11 11 C3 52 45 41 54 49 4E |..........REATIN|
00002140: 47 20 41 20 4E 45 57 20 44 49 52 45 43 54 4F 52 |G A NEW DIRECTOR|
00002150: 59 20 57 49 4C 4C 20 45 52 41 53 45 20 54 48 45 |Y WILL ERASE THE|
00002160: 22 3A 99 00 91 29 E3 07 99 22 44 49 52 45 43 54 |":...)..."DIRECT|
00002170: 4F 52 59 20 50 52 45 53 45 4E 54 4C 59 20 4F 4E |ORY PRESENTLY ON|
00002180: 20 54 48 45 20 44 49 53 4B 2E 20 C1 52 45 22 3A | THE DISK. .RE":|
00002190: 99 00 BC 29 E4 07 99 22 59 4F 55 20 53 55 52 45 |...)..."YOU SURE|
000021A0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 45 | YOU WANT TO CRE|
000021B0: 41 54 45 20 41 20 4E 45 57 22 3A 99 00 D0 29 E5 |ATE A NEW":...).|
000021C0: 07 85 22 44 49 52 45 43 54 4F 52 59 22 3B 41 24 |.."DIRECTORY";A$|
000021D0: 00 F6 29 E6 07 41 24 B2 C8 28 41 24 2C 31 29 3A |..)..A$..(A$,1):|
000021E0: 8B 20 A8 28 41 24 B2 22 59 22 20 B0 20 41 24 B2 |. .(A$."Y" . A$.|
000021F0: 22 D9 22 29 A7 8E 00 37 2A E7 07 99 22 93 11 11 |".")...7*..."...|
00002200: 11 11 11 11 11 11 11 11 11 D0 52 45 53 53 20 53 |..........RESS S|
00002210: 50 41 43 45 42 41 52 20 54 4F 20 50 52 4F 43 45 |PACEBAR TO PROCE|
00002220: 45 44 22 43 52 24 22 D2 C5 D4 D5 D2 CE A0 54 4F |ED"CR$".......TO|
00002230: 20 41 42 4F 52 54 22 00 4B 2A E8 07 A1 5A 24 3A | ABORT".K*...Z$:|
00002240: 8B 5A 24 B2 22 22 A7 32 30 32 34 00 5C 2A E9 07 |.Z$."".2024.\*..|
00002250: 8B 20 5A 24 B2 C7 28 31 33 29 A7 8E 00 7C 2A EC |. Z$..(13)...|*.|
00002260: 07 98 31 35 2C 22 53 30 3A 44 49 52 45 43 54 4F |..15,"S0:DIRECTO|
00002270: 52 59 22 3A 84 31 35 2C 41 2C 42 24 00 A5 2A EE |RY":.15,A,B$..*.|
00002280: 07 9F 20 33 2C 38 2C 33 2C 22 44 49 52 45 43 54 |.. 3,8,3,"DIRECT|
00002290: 4F 52 59 2C 4C 2C 22 AA C7 28 32 30 30 29 3A 8D |ORY,L,"..(200):.|
000022A0: 20 35 30 30 30 00 F4 2A EF 07 99 22 93 11 11 11 | 5000..*..."....|
000022B0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 C3 |...... .|
000022C0: 52 45 41 54 49 4E 47 20 59 4F 55 52 20 44 49 52 |REATING YOUR DIR|
000022D0: 45 43 54 4F 52 59 22 3A 99 22 20 20 20 20 20 20 |ECTORY":." |
000022E0: 20 20 20 20 20 20 20 20 50 4C 45 41 53 45 20 57 | PLEASE W|
000022F0: 41 49 54 22 00 2F 2B F3 07 99 22 20 20 20 20 20 |AIT"./+..." |
00002300: 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ============|
00002310: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 20 20 20 |=========== |
00002320: 20 20 20 20 91 20 20 20 20 20 20 20 20 22 3B 00 | . ";.|
00002330: 5E 2B 02 08 98 31 35 2C 22 50 22 C7 28 33 29 C7 |^+...15,"P".(3).|
00002340: 28 34 32 29 C7 28 30 30 29 C7 28 31 29 3A 44 49 |(42).(00).(1):DI|
00002350: B2 31 3A 8D 20 35 30 30 30 3A 44 49 B2 30 00 7B |.1:. 5000:DI.0.{|
00002360: 2B 0C 08 98 33 2C 22 45 4E 44 22 3A 44 49 B2 31 |+...3,"END":DI.1|
00002370: 3A 8D 35 30 30 30 3A 44 49 B2 30 00 B2 2B 2A 08 |:.5000:DI.0..+*.|
00002380: A0 33 3A 99 22 93 11 11 11 11 11 11 11 11 11 11 |.3:."...........|
00002390: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000023A0: 20 20 20 20 C4 CF CE C5 22 3A 8D 20 31 35 30 30 | ....":. 1500|
000023B0: 3A 8E 00 B8 2B 34 08 3A 00 D5 2B 3E 08 8F 20 20 |:...+4.:..+>.. |
000023C0: 20 20 20 45 52 41 53 45 20 46 49 4C 45 20 52 4F | ERASE FILE RO|
000023D0: 55 54 49 4E 45 00 DB 2B 48 08 3A 00 28 2C 52 08 |UTINE..+H.:.(,R.|
000023E0: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 22 3A |."............":|
000023F0: 99 22 C1 52 45 20 59 4F 55 20 12 53 55 52 45 92 |.".RE YOU .SURE.|
00002400: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 45 52 41 | YOU WANT TO ERA|
00002410: 53 45 22 3A 85 22 54 48 49 53 20 44 49 52 45 43 |SE":."THIS DIREC|
00002420: 54 4F 52 59 22 3B 41 24 00 4E 2C 5C 08 41 24 B2 |TORY";A$.N,\.A$.|
00002430: C8 28 41 24 2C 31 29 3A 8B 20 A8 28 41 24 B2 22 |.(A$,1):. .(A$."|
00002440: 59 22 20 B0 20 41 24 B2 22 D9 22 29 A7 8E 00 8F |Y" . A$.".")....|
00002450: 2C 66 08 99 22 93 11 11 11 11 11 11 11 11 11 11 |,f.."...........|
00002460: 11 D0 52 45 53 53 20 53 50 41 43 45 42 41 52 20 |..RESS SPACEBAR |
00002470: 54 4F 20 50 52 4F 43 45 45 44 22 43 52 24 22 D2 |TO PROCEED"CR$".|
00002480: C5 D4 D5 D2 CE A0 54 4F 20 41 42 4F 52 54 22 00 |......TO ABORT".|
00002490: A3 2C 70 08 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 |.,p..Z$:.Z$."".2|
000024A0: 31 36 30 00 B4 2C 7A 08 8B 20 5A 24 B2 C7 28 31 |160..,z.. Z$..(1|
000024B0: 33 29 A7 8E 00 E1 2C 84 08 98 31 35 2C 22 53 30 |3)....,...15,"S0|
000024C0: 3A 44 49 52 45 43 54 4F 52 59 22 3A 99 22 93 11 |:DIRECTORY":."..|
000024D0: 11 11 11 11 11 11 11 11 45 52 41 53 49 4E 47 22 |........ERASING"|
000024E0: 3B 00 0A 2D 8E 08 81 20 43 B2 31 A4 31 30 3A 99 |;..-... C.1.10:.|
000024F0: 22 2E 20 20 22 3B 3A 81 20 43 31 B2 31 A4 32 30 |". ";:. C1.1.20|
00002500: 30 3A 82 43 31 3A 82 43 3A 99 00 17 2D 98 08 8D |0:.C1:.C:...-...|
00002510: 20 35 30 30 30 3A 8E 00 1D 2D FC 08 3A 00 3D 2D | 5000:...-..:.=-|
00002520: 06 09 8F 20 20 20 20 20 53 41 56 45 20 44 41 54 |... SAVE DAT|
00002530: 41 20 54 4F 20 54 48 45 20 44 49 53 4B 00 43 2D |A TO THE DISK.C-|
00002540: 10 09 3A 00 52 2D 15 09 8B 20 41 B2 31 33 33 20 |..:.R-... A.133 |
00002550: A7 8E 00 6A 2D 1A 09 9F 20 33 2C 38 2C 33 2C 22 |...j-... 3,8,3,"|
00002560: 44 49 52 45 43 54 4F 52 59 22 00 76 2D 24 09 81 |DIRECTORY".v-$..|
00002570: 20 43 B2 30 A4 36 00 96 2D 2E 09 50 B2 43 AC 32 | C.0.6..-..P.C.2|
00002580: 36 AA 31 3A 8B 43 B1 34 A7 50 B2 28 43 AB 31 29 |6.1:.C.4.P.(C.1)|
00002590: AC 32 36 AA 31 31 00 B3 2D 38 09 98 31 35 2C 22 |.26.11..-8..15,"|
000025A0: 50 22 C7 28 33 29 C7 28 52 4E 29 C7 28 30 29 C7 |P".(3).(RN).(0).|
000025B0: 28 50 29 00 D1 2D 42 09 98 33 2C 53 24 28 43 29 |(P)..-B..3,S$(C)|
000025C0: 3A 53 24 28 43 29 B2 22 22 3A 82 43 3A A0 33 3A |:S$(C)."":.C:.3:|
000025D0: 8E 00 D7 2D B8 0B 3A 00 F5 2D BD 0B 8F 20 20 20 |...-..:..-... |
000025E0: 20 20 20 20 50 52 49 4E 54 20 41 4C 4C 20 52 45 | PRINT ALL RE|
000025F0: 43 4F 52 44 53 00 FB 2D C2 0B 3A 00 06 2E C3 0B |CORDS..-..:.....|
00002600: 8D 20 31 31 30 30 00 17 2E C5 0B 9F 20 34 2C 34 |. 1100...... 4,4|
00002610: 2C 37 3A 9D 28 34 29 00 3F 2E C6 0B 81 20 43 B2 |,7:.(4).?.... C.|
00002620: 30 A4 36 3A 53 48 24 B2 22 22 3A 53 48 B2 C3 28 |0.6:SH$."":SH..(|
00002630: 53 24 28 43 29 29 3A 81 49 52 B2 31 A4 53 48 00 |S$(C)):.IR.1.SH.|
00002640: 68 2E C7 0B 8B CA 28 53 24 28 43 29 2C 49 52 2C |h.....(S$(C),IR,|
00002650: 31 29 B2 22 A0 22 A7 53 48 24 B2 53 48 24 AA 22 |1).".".SH$.SH$."|
00002660: 20 22 3A 89 33 30 31 38 00 82 2E C9 0B 53 48 24 | ":.3018.....SH$|
00002670: B2 53 48 24 AA CA 28 53 24 28 43 29 2C 49 52 2C |.SH$..(S$(C),IR,|
00002680: 31 29 00 94 2E CA 0B 82 3A 53 24 28 43 29 B2 53 |1)......:S$(C).S|
00002690: 48 24 3A 82 00 9F 2E CB 0B 81 43 B2 30 A4 36 00 |H$:.......C.0.6.|
000026A0: EB 2E CC 0B 4E 41 24 B2 22 4E 41 4D 45 22 3A 43 |....NA$."NAME":C|
000026B0: 31 24 B2 22 43 4F 4D 4D 45 4E 54 22 3A 43 32 24 |1$."COMMENT":C2$|
000026C0: B2 22 22 3A 8B 58 B2 32 A7 4E 41 24 B2 22 43 41 |."":.X.2.NA$."CA|
000026D0: 52 52 49 45 52 22 3A 43 32 24 B2 43 31 24 3A 43 |RRIER":C2$.C1$:C|
000026E0: 31 24 B2 22 50 4F 4C 49 43 59 23 00 06 2F D1 0B |1$."POLICY#../..|
000026F0: 8B 20 58 B2 33 A7 43 31 24 B2 22 C4 49 52 45 43 |. X.3.C1$.".IREC|
00002700: 54 49 4F 4E 53 22 00 28 2F D6 0B 8B 20 58 B2 31 |TIONS".(/... X.1|
00002710: AF 43 B2 30 A7 99 22 D3 50 45 43 49 41 4C 54 59 |.C.0..".PECIALTY|
00002720: 3A 20 22 53 24 28 30 29 00 47 2F DB 0B 8B 20 58 |: "S$(0).G/... X|
00002730: B3 35 AF 43 B2 31 A7 20 99 4E 41 24 22 3A 20 20 |.5.C.1. .NA$": |
00002740: 20 22 53 24 28 43 29 00 80 2F E0 0B 8B 20 58 B3 | "S$(C)../... X.|
00002750: 34 20 AF 20 43 B2 32 20 A7 20 99 22 C1 44 44 52 |4 . C.2 . .".DDR|
00002760: 45 53 53 3A 20 22 53 24 28 43 29 43 52 24 22 20 |ESS: "S$(C)CR$" |
00002770: 20 20 20 20 20 20 20 20 22 53 24 28 43 AA 31 29 | "S$(C.1)|
00002780: 00 BD 2F E5 0B 8B 43 B2 34 A7 99 22 D0 48 4F 4E |../...C.4..".HON|
00002790: 45 3A 20 28 22 C8 28 53 24 28 43 29 2C 33 29 22 |E: (".(S$(C),3)"|
000027A0: 29 22 CA 28 53 24 28 43 29 2C 34 2C 33 29 22 2D |)".(S$(C),4,3)"-|
000027B0: 22 CA 28 53 24 28 43 29 2C 37 2C 34 29 00 D9 2F |".(S$(C),7,4)../|
000027C0: EA 0B 8B 20 43 B2 35 A7 20 99 43 31 24 22 3A 20 |... C.5. .C1$": |
000027D0: 20 20 20 22 53 24 28 43 29 00 F6 2F EF 0B 8B 20 | "S$(C)../... |
000027E0: 43 B2 36 20 A7 20 99 43 32 24 22 3A 20 20 20 20 |C.6 . .C2$": |
000027F0: 22 53 24 28 43 29 00 FF 2F F4 0B 82 43 3A 8E 00 |"S$(C)../...C:..|
00002800: 05 30 88 13 3A 00 20 30 8D 13 8F 20 20 20 20 20 |.0..:. 0... |
00002810: 20 45 52 52 4F 52 20 20 48 41 4E 44 4C 49 4E 47 | ERROR HANDLING|
00002820: 00 26 30 92 13 3A 00 33 30 97 13 84 31 35 2C 41 |.&0..:.30...15,A|
00002830: 2C 42 24 00 55 30 9C 13 8B 20 28 41 B3 31 39 20 |,B$.U0... (A.19 |
00002840: AF 20 41 B3 B1 31 29 B0 28 41 B2 35 30 AF 44 49 |. A..1).(A.50.DI|
00002850: B2 31 29 A7 8E 00 66 30 A1 13 8B 20 41 B2 31 20 |.1)...f0... A.1 |
00002860: A7 20 35 30 37 35 00 79 30 A6 13 8B 20 20 41 B2 |. 5075.y0... A.|
00002870: 32 36 20 A7 20 35 30 38 30 00 8B 30 AB 13 8B 20 |26 . 5080..0... |
00002880: 41 B3 34 39 20 A7 20 35 30 35 30 00 A4 30 B0 13 |A.49 . 5050..0..|
00002890: 8B 20 41 B2 35 32 20 B0 20 41 B2 37 32 20 A7 20 |. A.52 . A.72 . |
000028A0: 35 30 38 35 00 C4 30 B5 13 8B 20 41 B2 36 32 20 |5085..0... A.62 |
000028B0: B0 20 41 B2 37 30 20 B0 20 41 B2 37 34 20 A7 20 |. A.70 . A.74 . |
000028C0: 35 30 39 30 00 F7 30 BA 13 99 22 93 11 11 11 11 |5090..0...".....|
000028D0: 11 11 11 11 D9 4F 55 52 20 44 49 53 4B 20 44 52 |.....OUR DISK DR|
000028E0: 49 56 45 20 49 53 20 4D 41 4C 46 55 4E 43 54 49 |IVE IS MALFUNCTI|
000028F0: 4F 4E 49 4E 47 2E 22 00 3D 31 BF 13 99 22 C3 48 |ONING.".=1...".H|
00002900: 45 43 4B 20 59 4F 55 52 20 4F 57 4E 45 52 27 53 |ECK YOUR OWNER'S|
00002910: 20 4D 41 4E 55 41 4C 20 46 4F 52 20 50 52 4F 50 | MANUAL FOR PROP|
00002920: 45 52 22 3A 99 22 4F 50 45 52 41 54 49 4E 47 20 |ER":."OPERATING |
00002930: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 60 31 |INSTRUCTIONS".`1|
00002940: C4 13 A0 33 3A A0 35 3A A0 34 3A 98 31 35 2C 22 |...3:.5:.4:.15,"|
00002950: 49 30 3A 22 3A 8D 20 31 35 30 30 3A 89 20 31 30 |I0:":. 1500:. 10|
00002960: 00 93 31 D3 13 99 22 93 11 11 11 11 11 11 11 11 |..1...".........|
00002970: 20 20 20 20 20 20 20 20 20 20 C4 49 52 45 43 54 | .IRECT|
00002980: 4F 52 59 20 44 45 4C 45 54 45 44 22 3A 89 20 35 |ORY DELETED":. 5|
00002990: 30 36 30 00 CD 31 D8 13 99 22 93 11 11 11 11 11 |060..1..."......|
000029A0: 11 11 11 20 20 20 20 20 20 D4 48 49 53 20 44 49 |... .HIS DI|
000029B0: 53 4B 20 49 53 20 57 52 49 54 45 2D 50 52 4F 54 |SK IS WRITE-PROT|
000029C0: 45 43 54 45 44 22 3A 89 20 35 30 36 30 00 1A 32 |ECTED":. 5060..2|
000029D0: DD 13 99 22 93 11 11 11 11 11 11 11 11 D4 48 49 |..."..........HI|
000029E0: 53 20 44 49 53 4B 20 49 53 20 46 55 4C 4C 2E 20 |S DISK IS FULL. |
000029F0: 20 C9 4E 53 45 52 54 20 41 20 42 4C 41 4E 4B 22 | .NSERT A BLANK"|
00002A00: 3A 99 22 49 4E 49 54 49 41 4C 49 5A 45 44 20 44 |:."INITIALIZED D|
00002A10: 49 53 4B 22 3A 89 35 30 36 30 00 5A 32 E2 13 99 |ISK":.5060.Z2...|
00002A20: 22 93 11 11 11 11 11 11 11 11 C9 4E 53 45 52 54 |"..........NSERT|
00002A30: 20 54 48 45 20 D4 45 4C 45 50 48 4F 4E 45 20 C4 | THE .ELEPHONE .|
00002A40: 49 52 45 43 54 4F 52 59 20 C4 41 54 41 20 44 49 |IRECTORY .ATA DI|
00002A50: 53 4B 22 3A 89 20 35 30 36 30 00 60 32 60 EA 3A |SK":. 5060.`2`.:|
00002A60: 00 7D 32 6A EA 8F 20 20 20 20 52 45 54 55 52 4E |.}2j.. RETURN|
00002A70: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 83 32 | TO MAIN MENU..2|
00002A80: 74 EA 3A 00 C2 32 7E EA 99 22 93 11 11 11 11 11 |t.:..2~.."......|
00002A90: 11 11 11 11 11 11 11 11 11 11 90 C1 52 45 20 59 |............RE Y|
00002AA0: 4F 55 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 |OU SURE YOU WANT|
00002AB0: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 48 | TO RETURN TO TH|
00002AC0: 45 22 00 D7 32 88 EA 85 22 CD 41 49 4E 20 CD 45 |E"..2...".AIN .E|
00002AD0: 4E 55 22 3B 41 4B 24 00 01 33 92 EA 41 4B 24 B2 |NU";AK$..3..AK$.|
00002AE0: C8 28 41 4B 24 2C 31 29 3A 8B 20 41 4B 24 B3 B1 |.(AK$,1):. AK$..|
00002AF0: 22 59 22 AF 41 4B 24 B3 B1 22 D9 22 20 A7 20 31 |"Y".AK$.."." . 1|
00002B00: 30 00 3F 33 9C EA 99 22 93 11 11 11 11 11 11 11 |0.?3..."........|
00002B10: 11 11 11 11 11 11 11 11 90 CD 41 4B 45 20 53 55 |..........AKE SU|
00002B20: 52 45 20 54 48 45 20 C1 50 50 4C 45 20 41 20 C4 |RE THE .PPLE A .|
00002B30: 41 59 20 D0 52 4F 47 52 41 4D 20 44 49 53 4B 00 |AY .ROGRAM DISK.|
00002B40: 5D 33 9E EA 99 22 49 53 20 49 4E 20 54 48 45 20 |]3..."IS IN THE |
00002B50: 44 49 53 4B 20 44 52 49 56 45 22 3A 99 00 75 33 |DISK DRIVE":..u3|
00002B60: A1 EA 99 22 41 4E 44 20 50 52 45 53 53 20 D2 C5 |..."AND PRESS ..|
00002B70: D4 D5 D2 CE 22 00 90 33 A6 EA A1 41 4B 24 3A 8B |...."..3...AK$:.|
00002B80: 41 4B 24 B3 B1 C7 28 31 33 29 A7 36 30 30 37 30 |AK$...(13).60070|
00002B90: 00 BE 33 AF EA 99 22 93 11 11 11 11 11 11 11 11 |..3...".........|
00002BA0: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 D0 |....... .|
00002BB0: 4C 45 41 53 45 20 D7 41 49 54 2E 2E 2E 22 00 F2 |LEASE .AIT..."..|
00002BC0: 33 B0 EA A0 33 3A 9F 33 2C 38 2C 33 2C 22 4D 41 |3...3:.3,8,3,"MA|
00002BD0: 49 4E 20 4D 45 4E 55 2C 53 2C 52 22 3A 84 31 35 |IN MENU,S,R":.15|
00002BE0: 2C 41 2C 42 24 3A 8B 41 B3 B1 36 34 A7 36 30 30 |,A,B$:.A..64.600|
00002BF0: 33 30 00 05 34 BA EA 93 22 4D 41 49 4E 20 4D 45 |30..4..."MAIN ME|
00002C00: 4E 55 22 2C 38 00 00 00 00 55 22 2C 38 00 00 00 |NU",8....U",8...|
00002C10: 00 |. |
....... 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)..23..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":.:.9.2.."
7. ERASE AN ENTIRE DIRECTORY":.:."8. RET
URN TO THE MAIN MENU":.:..Q.<.. 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
$:..L. .."7. "HI$:..Y....".8. "ER$:.:.
"9. "PC$:.:."10. "PS$"."......:.".11. P
OLICE AND FIRE."......"PRESS F1 TO RETUR
N TO DIRECTORY".K...ZX..(0)...... 1610:.
A.133 . ....... A.1.A.11. 130.+.... A .
210,270,340,420,500,550,620,760,820,880,
700.5.H.. 130.;.R.:.A...:.G...:.O...."..
. "FP$" ".....X.0:
RN.1:. 1000:. M..0..1220:. 2300:.......1
500:......:.D.... SPECIALIST.J."
.:...,.. C2.0 . 4:RN.C2.2...6.."...
"SP$" #"C2.1". ".C.@.
X.1:.1000:.M..0..1220:.Z$.G(134)..2300:.
C2.P.E.. M.1. ..I.J..1500:. Z$.G(133).
..S.O..C2:..Y.T.:...^.. VETERINAR
IANS...H.:...R..C2.0.1:RN.7.C2:X.0...|..
C2.0.."... REGULAR VETERINARIA
N ".&.... C2.1.."... 2
4-HOUR ANIMAL HOSPITAL ".S....1000
:. M..0..1220:.Z$.G(134)..2300:. C2._...
. M.1...X....1500:. Z$.G(133). .......C2
:......:...... "DENTISTS".....:.V.
B.."... "DE$"
"...L.X.0:RN.9:. 1000:. M..0..1220:
. 2300:....V..1500:......:.,....
PHARMACIES.2...:.K....C2.0.1:RN.10.C2:
X.0...... C2.0.."... REGULAR
PHARMACY "...... C2.1.."...
24-HOUR PHARMACY ".
..... 1000:. M..0.. 1220:.Z$.G(134)..230
0:. C2...... M.1. ....!.. 1500:. C2:....
&.:.-.0.. HOT LINES.3.:.:.K.D.
. C2.0 . 4:RN.C2.12...N.."...
"HL$". #"C2.1". "...X.X
.4:.1000:.M..0..1220:.Z$.G(134)..2300:.
C2:....].. M.1...Y.B..1500:. Z$.G(133).
....G..C2:....L.:...V.:.....:......C2.0.
1:RN.17.C2:X.2.H.... C2.0.."...
MEDICAL INSURANCE "...... C
2.1.."... DENTAL INSURANCE
"......1000:. M..0..1220:.Z$.G(
134).. 2300:.C2:....... M.1. ..W....1500
:. Z$.G(133). .......C2:......:...F..
POLICE FIRE...P.:.!.Z..C2.0.1:RN.
19.C2:X.5.[.... C2.0.."... FI
RE DEPARTMENT "...... C2.1..
"... POLICE DEPARTMENT
".B....1000:. M..0..1220:.Z$.G(134).
.2300:. C2.N.... M.1........1500:. Z$.G(
133). .......C2:......:...... EME
RGENCY ROOM.....:.C...."... .
"ER$" . ".N. .X.3:RN.21:. 1000
:. M..0..1220:. 2300:..Z.*..1500:....4.:
. .>.. POISON CONTROL CENTER...H.:.I
.R.."... . "PC$" . "...\.X.
5:RN.23:. 1000:. M..0..1220:. 2300:....F
..1500:....P.:.$.Z.. PARAMEDIC SER
VICE.*...:.Q...."... . "PS$"
. ".|...X.5:RN.22:. 1000:. M..0..1
220:. 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.B... 4:."...........
......MAKE SURE YOUR PRINTER IS TURNED O
N....A.."..........PRESS SPACE BAR TO CO
NTINUE"...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,
991,994.X.F..:."FAMILY PHYSICIAN";:X.0:R
N.1:.997...G..C2.0.4:RN.C2.2:X.1:.:."SPE
CIALIST # "C2.1;:.996...H..G(12):.C2.0.1
:RN.7.C2:X.0:..S.I..C2.0.."REGULAR VETER
INARIAN ";...J..C2.1.."24-HOUR ANIMAL H
OSPITAL";...K..996.".L..:."DENTIST";:X.0
:RN.9:.997.X.M..C2.0.1:RN.10.C2:X.0:.:.C
2.0.."REGULAR PHARMACY";.W.N..C2.1.."24-
HOUR 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.."DENTA
L INSURANCE";...X..996.Z.Y..G(12):.C2.0.
1:RN.19.C2:X.5:.:.C2.0.."FIRE DEPARTMENT
";.Z.Z..C2.1.."POLICE DEPARTMENT";......
996.....X.3:RN.21:.:."EMERGENCY ROOM";:.
997.Z...X.5:RN.23:.:."POISON CONTROL CEN
TER";:.997.....X.5:RN.22:.:."PARAMEDIC S
ERVICE";:.997......3000:.:.998. ....3000
.>....:.4:.4,G(12):.4: 4:N.0:..D.....J..
.:.G.... DATA HANDLING ROUT.M...:.V.
..."."...... N..0.. 3000:..W...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).I....X.1.
.210,.A(1184):. 209,.B(1184):."SPECIALTY
:"BL$":"......X.5..210,.A(1264):. 209,.
B(1264):. NA$":"BL$":".Y....X.4..210,.A(
1344):. 209,.B(1344):."ADDRESS :"BL$":
"...$..X.4. .210,.A(1424):. 209,.B(1424
):." :"BL$":".S....210,.A(1504)
:. 209,.B(1504):."PHONE :( ) -
"...8..210,.A(1584):. 209,.B(1584):.C1
$":"BL$":"...B..210,.A(1664):. 209,.B(16
64):.C2$":"BL$":":.1100:....L.:...V.. G
ET DATA FROM DISK ROUTINE...`.:...A.....
B. 4:. 4,4...C.. N..0. .4: 4.+.E.. 3,8,3
,"DIRECTORY":. 5000.5.F.A$."".J.J.. C.0.
6:S$(C)."".B.T.. X.5 . C.1. . 1191.{.~..
X.3.(C.2.C.3).1191.....CL(C).1184.C.80.
11.....P.C.26.1:.C.4.P.(C.1).26.11.V....
15,"P"G(3)G(RN)G(0)G(P):. 5000......15,A
,B$:.A..0.."ERROR IN 1180": 3:.... .. A$
.G(255).1196.1....#3,A$:. A$.G(255). 119
6.T.... A$.G(13).A$."". S$."":. 1196.V..
..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.3....
X.3.(C.2.C.3).1205.J....209,.B(CL(C)):.
210,.A(CL(C)):.".."H(S$(C).BL$,25).R....
C..... 3:.15,"I0:":....D.:...N.. D
ATA FIELD HANDLER...X.:...Y.."..........
............DO NOT USE COMMAS, SEMICOLON
S OR COLONS".. Z.."PRESS RETURN TO MOVE
BETWEEN BOXES".] ..."PRESS F1 TO RETURN
TO MENU":."PRESS F3 TO SAVE RECORD..".Y
..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.I ... X.5.(C.1).C.4.. ..CL.1195.C.
80:. 1470.. ... A$:A.F(A$.G(31)).)!...A.
29.A.19.A.20.A.157.A.133.A.134.A.148.137
0.J!... A$.",".A$.";".A$.":". 1271.\!..C
L.1195.C.80:..!....(A.31.A.91)..(A$.."A"
.A$.."Z").A..13 . 1271.A!... 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.Z"2.S$(C).H(S$(C),25)
:. C.4 . S$(C).H(S$(C),10).Q"7.. C.4..14
30:. 1270.."<.."...";:. 209,.B(CL):. 210
,.A(CL).."F..S$(C):. 1270.."P.. 1270.T"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.M#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$;:.".".+$
..."...................... P
LEASE WAIT".1$....J$..."...";:. 209,.B(C
L.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(C
P):.BL$" ".0%C.. C.4.P.4.CP.CP.1.K%H.. C
.4.P.3.P.7. CP.CP.2.M%M.. C.4.P.6.CP.CP.
3:.P.10. P.10..%R..A..13.A..19..209,.B(C
P.P):.210,.A(CP.P):."..."..%W....%..:.I%
... PUSH ANY KEY ROUT.O%..:..%... N.
.0. ...&...".":. 209,.B(1904):.210,.A(19
04)..&..."PRESS F1 FOR MENU OR"._&... 21
0,.A(1984):. 209,.B(1984):."PUSH SPACE B
AR TO CONTINUE".U&... Z$:. Z$."".1540.{&
.....&..:..&".. CHOICE OF A NUMBER.
.&,.:.G&6..210,.A(1904):.209,.B(1904):;.
.'J..209,.B(1984):.210,.A(1984):."ENTER
A NUMBER AND PRESS RETURN:";..'O.S$."".4
'T.. A$:A.E(A$):A2.F(A$." ").K'^..(A.1.A
.9)..(A2.20.A2.157.A2.13.A2.48.A2.133).1
620..'C.. (A2.20.A2.157).C(S$)..0.A$."".
K'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).1
620).3(R.. A2.13. A$."":.C(S$).0. A.E(S$
):..W(|.. (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...C(P.:..(Q.. C
REATE FILE ROUT..(R.:..(Z.P.1..).. 3:. 3
,8,3,"DIRECTORY".))...15,A,B$: 3:. A.70.
A.62.2030.C)...".........CREATING A NEW
DIRECTORY WILL ERASE THE":...)..."DIRECT
ORY PRESENTLY ON THE DISK. ARE":...)..."
YOU SURE YOU WANT TO CREATE A NEW":..P).
.."DIRECTORY";A$..)..A$.H(A$,1):. .(A$."
Y" . A$."Y")...7*..."............PRESS S
PACEBAR TO PROCEED"CR$"RETURN TO ABORT".
K*...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.{+...3,"END":DI.1:.5000:D
I.0..+*. 3:.".............
DONE":. 1500:...+4.:.U+>.. ERASE
FILE ROUTINE..+H.:.(,R.."............":
."ARE YOU .SURE. YOU WANT TO ERASE":."TH
IS DIRECTORY";A$.N,\.A$.H(A$,1):. .(A$."
Y" . A$."Y")....,F.."............PRESS S
PACEBAR 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 DAT
A TO THE DISK.C-..:.R-... A.133 ...J-...
3,8,3,"DIRECTORY".V-$.. C.0.6..-..P.C.2
6.1:.C.4.P.(C.1).26.11..-8..15,"P"G(3)G(
RN)G(0)G(P).Q-B..3,S$(C):S$(C)."":.C: 3:
..W-..:..-... PRINT ALL RECORDS..-
B.:...C.. 1100...E.. 4,4,7:.(4).?.F.. C.
0.6:SH$."":SH.C(S$(C)):.IR.1.SH.H.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$."POLI
CY#../Q.. X.3.C1$."DIRECTIONS".(/V.. X.1
.C.0.."SPECIALTY: "S$(0).G/... X.5.C.1.
.NA$": "S$(C)../... X.4 . C.2 . ."ADDR
ESS: "S$(C)CR$" "S$(C.1)../...C.
4.."PHONE: ("H(S$(C),3)")"J(S$(C),4,3)"-
"J(S$(C),7,4).Y/... C.5. .C1$": "S$(C
)../... C.6 . .C2$": "S$(C)../...C:..
.0..:. 0... ERROR HANDLING.&0..:.3
0...15,A,B$.U0... (A.19 . A..1).(A.50.DI
.1)...F0... A.1 . 5075.Y0... A.26 . 508
0..0... A.49 . 5050..0... A.52 . A.72 .
5085.D0... A.62 . A.70 . A.74 . 5090..0.
..".........YOUR DISK DRIVE IS MALFUNCTI
ONING.".=1..."CHECK YOUR OWNER'S MANUAL
FOR PROPER":."OPERATING INSTRUCTIONS".`1
D. 3: 5: 4:.15,"I0:":. 1500:. 10..1S..".
........ DIRECTORY DELETED":. 5
060.M1X.."......... THIS DISK IS WR
ITE-PROTECTED":. 5060..2...".........THI
S DISK IS FULL. INSERT A BLANK":."INITI
ALIZED DISK":.5060.Z2...".........INSERT
THE TELEPHONE DIRECTORY DATA DISK":. 50
60.`2`.:.}2J.. RETURN TO MAIN MENU..2
T.:.B2~..".................ARE YOU SURE
YOU WANT TO RETURN TO THE".W2..."MAIN ME
NU";AK$..3..AK$.H(AK$,1):. AK$.."Y".AK$.
."Y" . 10.?3...".................MAKE SU
RE THE APPLE A DAY PROGRAM DISK.]3..."IS
IN THE DISK DRIVE":..U3..."AND PRESS RE
TURN"..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