ADDRESS/PHONE
FILE INFORMATION
FILENAME(S): ADDRESS/PHONE
FILE TYPE(S): PRG
FILE SIZE: 7.3K
FIRST SEEN: 2025-12-01 01:48:30
APPEARS ON: 1 disk(s)
FILE HASH
382db55c2dc00a8d8050517ae284f5d7f7c94e8840ee140628722fe08e6338bf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD187 DCB 6 88 | ADDRESS/PHONE | PRG | hedning, Mattias H00r | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 0A 00 9C 3A 52 54 4E 24 B2 C7 28 31 |.......:RTN$..(1|
00000010: 33 29 00 36 08 14 00 54 4C B2 31 35 30 3A 52 53 |3).6...TL.150:RS|
00000020: B2 39 3A 53 55 42 B2 31 3A 4C 4C B2 35 3A 45 42 |.9:SUB.1:LL.5:EB|
00000030: 24 B2 22 4C 42 22 00 5E 08 1E 00 44 4E 24 B2 22 |$."LB".^...DN$."|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000050: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 92 |............."..|
00000060: 08 28 00 52 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D |.(.RX$."........|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000090: 1D 22 00 AB 08 32 00 86 20 4D 4C 24 28 54 4C 2C |."...2.. ML$(TL,|
000000A0: 52 53 29 2C 57 44 24 28 34 30 29 00 C7 08 3C 00 |RS),WD$(40)...<.|
000000B0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
000000C0: 30 3A 4C 4E B2 32 34 00 E2 08 46 00 8D 31 36 30 |0:LN.24...F..160|
000000D0: 30 3A 8F 20 4C 4F 41 44 20 41 44 44 52 45 53 53 |0:. LOAD ADDRESS|
000000E0: 45 53 00 F3 08 50 00 8D 31 37 35 30 3A 8F 20 4D |ES...P..1750:. M|
000000F0: 45 4E 55 00 06 09 5A 00 8F 23 23 55 4E 44 45 52 |ENU...Z..##UNDER|
00000100: 53 43 4F 52 45 53 00 0F 09 64 00 8D 39 31 30 00 |SCORES...d..910.|
00000110: 21 09 6E 00 8F 23 23 50 52 49 4E 54 20 41 44 44 |!.n..##PRINT ADD|
00000120: 52 00 2A 09 78 00 8D 39 38 30 00 3C 09 82 00 8F |R.*.x..980.<....|
00000130: 23 23 54 45 53 54 20 49 4E 50 55 54 00 4F 09 8C |##TEST INPUT.O..|
00000140: 00 A1 4E 24 3A 8B 4E 24 B2 22 22 A7 31 34 30 00 |..N$:.N$."".140.|
00000150: 60 09 96 00 8B 4E 24 B3 B1 22 45 22 A7 31 37 30 |`....N$.."E".170|
00000160: 00 76 09 A0 00 8D 31 31 31 30 3A 43 47 24 B2 22 |.v....1110:CG$."|
00000170: 59 22 3A 89 39 30 00 87 09 AA 00 8B 4E 24 B3 B1 |Y":.90......N$..|
00000180: 22 48 22 A7 31 39 30 00 99 09 B4 00 9F 34 2C 34 |"H".190......4,4|
00000190: 3A 8D 31 33 31 30 3A A0 34 00 AA 09 BE 00 8B 4E |:.1310:.4......N|
000001A0: 24 B3 B1 22 42 22 A7 32 33 30 00 B8 09 C8 00 53 |$.."B".230.....S|
000001B0: 55 42 B2 31 3A 89 39 30 00 C9 09 E6 00 8B 4E 24 |UB.1:.90......N$|
000001C0: B3 B1 22 4E 22 A7 32 38 30 00 E4 09 F0 00 53 55 |.."N".280.....SU|
000001D0: 42 B2 53 55 42 AA 31 3A 8B 53 55 42 B3 54 4C A7 |B.SUB.1:.SUB.TL.|
000001E0: 32 36 30 3A 00 08 0A FA 00 53 55 42 B2 4C 4E 3A |260:.....SUB.LN:|
000001F0: 4D 53 47 24 B2 22 46 49 4C 45 20 49 53 20 46 55 |MSG$."FILE IS FU|
00000200: 4C 4C 2E 22 3A 89 39 30 00 30 0A 04 01 8B 20 53 |LL.":.90.0.... S|
00000210: 55 42 B1 52 43 A7 53 55 42 B2 52 43 3A 4D 53 47 |UB.RC.SUB.RC:MSG|
00000220: 24 B2 22 50 41 53 54 20 45 4E 44 22 3A 89 39 30 |$."PAST END":.90|
00000230: 00 38 0A 0E 01 89 39 30 00 59 0A 18 01 8B 20 C6 |.8....90.Y.... .|
00000240: 28 4E 24 29 B2 31 33 33 20 A7 20 53 55 42 B2 53 |(N$).133 . SUB.S|
00000250: 55 42 AA 35 3A 89 33 34 30 00 7B 0A 22 01 8B 20 |UB.5:.340.{.".. |
00000260: C6 28 4E 24 29 B2 31 33 34 20 A7 20 53 55 42 B2 |.(N$).134 . SUB.|
00000270: 53 55 42 AA 31 30 3A 89 33 34 30 00 9D 0A 2C 01 |SUB.10:.340...,.|
00000280: 8B 20 C6 28 4E 24 29 B2 31 33 35 20 A7 20 53 55 |. .(N$).135 . SU|
00000290: 42 B2 53 55 42 AA 32 30 3A 89 33 34 30 00 BE 0A |B.SUB.20:.340...|
000002A0: 36 01 8B 20 C6 28 4E 24 29 B2 31 33 36 20 A7 20 |6.. .(N$).136 . |
000002B0: 53 55 42 B2 53 55 42 AB 35 3A 89 33 34 30 00 DA |SUB.SUB.5:.340..|
000002C0: 0A 40 01 8B 20 C6 28 4E 24 29 B2 31 34 30 20 A7 |.@.. .(N$).140 .|
000002D0: 8D 33 36 33 30 3A 89 33 34 30 00 E3 0A 4A 01 89 |.3630:.340...J..|
000002E0: 33 37 30 00 16 0B 54 01 8B 20 53 55 42 B1 52 43 |370...T.. SUB.RC|
000002F0: 20 A7 20 53 55 42 B2 52 43 3A 4D 53 47 24 B2 22 | . SUB.RC:MSG$."|
00000300: 50 41 53 54 20 45 4E 44 20 4F 46 20 54 41 42 4C |PAST END OF TABL|
00000310: 45 22 3A 89 39 30 00 47 0B 5E 01 8B 20 53 55 42 |E":.90.G.^.. SUB|
00000320: B3 31 20 A7 20 53 55 42 B2 31 3A 4D 53 47 24 B2 |.1 . SUB.1:MSG$.|
00000330: 22 42 45 59 4F 4E 44 20 53 54 41 52 54 20 4F 46 |"BEYOND START OF|
00000340: 20 54 41 42 4C 45 22 00 4F 0B 68 01 89 39 30 00 | TABLE".O.h..90.|
00000350: 60 0B 72 01 8B 4E 24 B3 B1 22 50 22 A7 34 37 30 |`.r..N$.."P".470|
00000360: 00 7B 0B 7C 01 53 55 42 B2 53 55 42 AB 31 3A 8B |.{.|.SUB.SUB.1:.|
00000370: 53 55 42 B3 31 A7 53 55 42 B2 31 00 83 0B 86 01 |SUB.1.SUB.1.....|
00000380: 89 39 30 00 94 0B D6 01 8B 4E 24 B3 B1 22 4D 22 |.90......N$.."M"|
00000390: A7 34 39 30 00 A2 0B E0 01 8D 31 37 34 30 3A 89 |.490......1740:.|
000003A0: 39 30 00 B3 0B EA 01 8B 4E 24 B3 B1 22 46 22 A7 |90......N$.."F".|
000003B0: 35 33 30 00 C1 0B F4 01 8D 32 34 37 30 3A 89 39 |530......2470:.9|
000003C0: 30 00 D2 0B 12 02 8B 4E 24 B3 B1 22 44 22 A7 35 |0......N$.."D".5|
000003D0: 35 30 00 E7 0B 1C 02 8D 37 36 30 3A 43 47 24 B2 |50......760:CG$.|
000003E0: 22 59 22 3A 89 39 30 00 F8 0B 26 02 8B 4E 24 B3 |"Y":.90...&..N$.|
000003F0: B1 22 41 22 A7 35 38 30 00 09 0C 30 02 8D 38 37 |."A".580...0..87|
00000400: 30 3A 43 47 24 B2 22 59 22 00 2C 0C 3A 02 8F 23 |0:CG$."Y".,.:..#|
00000410: 23 54 45 53 54 20 46 4F 52 20 43 4F 4E 54 49 4E |#TEST FOR CONTIN|
00000420: 55 45 20 4F 46 20 53 45 41 52 43 48 00 3B 0C 44 |UE OF SEARCH.;.D|
00000430: 02 8B 53 31 B3 B1 31 A7 36 30 30 00 56 0C 4E 02 |..S1..1.600.V.N.|
00000440: 8B 4E 24 B2 22 43 22 A7 59 58 B2 53 52 42 AA 31 |.N$."C".YX.SRB.1|
00000450: 3A 8D 32 35 39 30 00 5E 0C 58 02 89 39 30 00 8C |:.2590.^.X..90..|
00000460: 0C 62 02 81 58 B2 31 A4 33 30 3A 57 44 24 28 54 |.b..X.1.30:WD$(T|
00000470: 4D 29 B2 22 22 3A 82 58 3A 54 4D B2 30 3A 5A 5A |M)."":.X:TM.0:ZZ|
00000480: 24 B2 22 22 3A 99 22 05 3F 1C 22 3B 00 9F 0C 6C |$."":.".?.";...l|
00000490: 02 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 36 32 30 00 |..K$:.K$."".620.|
000004A0: BA 0C 76 02 8B C6 28 4B 24 29 B3 33 32 B0 C6 28 |..v...(K$).32..(|
000004B0: 4B 24 29 B1 39 35 A7 36 36 30 00 D8 0C 80 02 54 |K$).95.660.....T|
000004C0: 4D B2 54 4D AA 31 3A 8B 54 4D B1 46 4C A7 54 4D |M.TM.1:.TM.FL.TM|
000004D0: B2 46 4C 3A 89 36 32 30 00 FB 0C 8A 02 57 44 24 |.FL:.620.....WD$|
000004E0: 28 54 4D 29 B2 4B 24 3A 99 22 9D 9E 22 3B 4B 24 |(TM).K$:."..";K$|
000004F0: 3B 22 05 3F 22 3B 3A 89 36 32 30 00 12 0D 94 02 |;".?";:.620.....|
00000500: 8B 4B 24 B2 52 54 4E 24 A7 8B 4C 50 B1 32 A7 37 |.K$.RTN$..LP.2.7|
00000510: 31 30 00 45 0D 9E 02 8B 4E 24 B2 22 45 22 A7 8B |10.E....N$."E"..|
00000520: 4B 24 B2 C7 28 31 33 29 A7 8B 54 4D B2 30 A7 99 |K$..(13)..TM.0..|
00000530: 22 9D 22 C8 28 4D 4C 24 28 53 55 42 2C 4C 50 29 |".".(ML$(SUB,LP)|
00000540: 2C 31 29 3A 8E 00 64 0D A8 02 8B 4E 24 B2 22 41 |,1):..d....N$."A|
00000550: 22 A7 8B 4B 24 B2 52 54 4E 24 A7 8B 54 4D B2 30 |"..K$.RTN$..TM.0|
00000560: A7 36 32 30 00 75 0D B2 02 8B 4B 24 B2 52 54 4E |.620.u....K$.RTN|
00000570: 24 A7 37 31 30 00 7E 0D BC 02 89 37 33 30 00 AB |$.710.~....730..|
00000580: 0D C6 02 99 22 9D 20 97 22 3A 8B 54 4D B3 B1 30 |....". .":.TM..0|
00000590: A7 20 81 58 B2 31 A4 54 4D 3A 5A 5A 24 B2 5A 5A |. .X.1.TM:ZZ$.ZZ|
000005A0: 24 AA 57 44 24 28 58 29 3A 82 58 00 B1 0D D0 02 |$.WD$(X):.X.....|
000005B0: 8E 00 C4 0D DA 02 8B 4B 24 B3 B1 C7 28 32 30 29 |.......K$...(20)|
000005C0: A7 36 32 30 00 EA 0D E4 02 99 22 97 9D 9D A4 A4 |.620......".....|
000005D0: 9D 9D 1C 3F 97 22 3B 3A 57 44 24 28 54 4D 29 B2 |...?.";:WD$(TM).|
000005E0: 22 22 3A 54 4D B2 54 4D AB 31 00 F3 0D EE 02 89 |"":TM.TM.1......|
000005F0: 36 32 30 00 0E 0E F8 02 8F 20 2A 2A 2A 20 44 45 |620...... *** DE|
00000600: 4C 45 54 45 20 45 4E 54 52 59 20 2A 2A 2A 00 2B |LETE ENTRY ***.+|
00000610: 0E 02 03 4D 53 47 24 B2 22 9E 44 45 4C 45 54 45 |...MSG$.".DELETE|
00000620: 3F 28 1C 59 9E 2F 1C 4E 9E 29 22 00 53 0E 0C 03 |?(.Y./.N.)".S...|
00000630: 8D 39 38 30 3A 4D 53 47 24 B2 22 44 20 45 20 4C |.980:MSG$."D E L|
00000640: 20 45 20 54 20 49 20 4E 20 47 22 3A 44 55 42 B2 | E T I N G":DUB.|
00000650: 53 55 42 00 68 0E 16 03 A1 44 45 24 3A 8B 44 45 |SUB.h....DE$:.DE|
00000660: 24 B2 22 22 A7 37 39 30 00 7A 0E 20 03 8B 44 45 |$."".790.z. ..DE|
00000670: 24 B3 B1 22 59 22 A7 38 35 30 00 8B 0E 2A 03 8D |$.."Y".850...*..|
00000680: 39 38 30 3A 4D 53 47 24 B2 22 22 00 B1 0E 34 03 |980:MSG$.""...4.|
00000690: 81 58 B2 31 A4 52 53 3A 4D 4C 24 28 44 55 42 2C |.X.1.RS:ML$(DUB,|
000006A0: 58 29 B2 4D 4C 24 28 44 55 42 AA 31 2C 58 29 3A |X).ML$(DUB.1,X):|
000006B0: 82 00 CA 0E 3E 03 8B 44 55 42 B2 52 43 A7 52 43 |....>..DUB.RC.RC|
000006C0: B2 52 43 AB 31 3A 89 38 35 30 00 DD 0E 48 03 44 |.RC.1:.850...H.D|
000006D0: 55 42 B2 44 55 42 AA 31 3A 89 38 32 30 00 EB 0E |UB.DUB.1:.820...|
000006E0: 52 03 4D 53 47 24 B2 22 22 3A 8E 00 16 0F 5C 03 |R.MSG$."":....\.|
000006F0: 99 22 1D 1D 1D 1D 9E 45 4E 54 45 52 20 43 4F 4D |.".....ENTER COM|
00000700: 4D 41 4E 44 20 53 48 4F 57 4E 20 4F 4E 20 53 43 |MAND SHOWN ON SC|
00000710: 52 45 45 4E 2E 22 00 23 0F 66 03 53 55 42 B2 52 |REEN.".#.f.SUB.R|
00000720: 43 AA 31 00 37 0F 70 03 8B 20 53 55 42 B3 20 54 |C.1.7.p.. SUB. T|
00000730: 4C 20 A7 20 39 30 30 00 5B 0F 7A 03 4D 53 47 24 |L . 900.[.z.MSG$|
00000740: B2 22 4E 4F 20 4D 4F 52 45 20 52 4F 4F 4D 20 54 |."NO MORE ROOM T|
00000750: 4F 20 41 44 44 2E 22 3A 89 39 30 00 6C 0F 84 03 |O ADD.":.90.l...|
00000760: 8D 39 31 30 3A 8D 31 31 31 30 3A 8E 00 86 0F 8E |.910:.1110:.....|
00000770: 03 8F 23 23 23 50 52 49 4E 54 20 55 4E 44 45 52 |..###PRINT UNDER|
00000780: 53 43 4F 52 45 53 00 8F 0F 98 03 99 22 93 22 00 |SCORES......".".|
00000790: 9B 0F A2 03 81 4C 50 B2 31 A4 35 00 C8 0F AC 03 |.....LP.1.5.....|
000007A0: 99 22 11 1C 22 4C 50 22 1E A4 A4 A4 A4 A4 A4 A4 |.".."LP"........|
000007B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000007C0: A4 A4 A4 A4 A4 A4 A4 22 00 D0 0F B6 03 82 4C 50 |......."......LP|
000007D0: 00 F6 0F C0 03 99 22 11 1E 20 20 20 20 50 48 4F |......".. PHO|
000007E0: 4E 45 20 23 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |NE # ..........|
000007F0: A4 A4 A4 11 11 22 00 0C 10 D4 03 8F 23 23 23 44 |....."......###D|
00000800: 53 50 4C 59 20 41 44 44 52 45 53 53 00 15 10 DE |SPLY ADDRESS....|
00000810: 03 99 22 13 22 00 22 10 E8 03 81 4C 50 B2 31 A4 |.."."."....LP.1.|
00000820: 4C 4C 00 39 10 F2 03 99 22 11 1D 1D 1D 22 4D 4C |LL.9...."...."ML|
00000830: 24 28 53 55 42 2C 4C 50 29 00 44 10 FC 03 97 31 |$(SUB,LP).D....1|
00000840: 39 38 2C 30 00 4C 10 06 04 82 4C 50 00 58 10 10 |98,0.L....LP.X..|
00000850: 04 4C 50 B2 4C 50 AB 31 00 83 10 1A 04 99 22 13 |.LP.LP.1......".|
00000860: 22 3B C8 28 44 4E 24 2C 31 32 29 3B C8 28 52 58 |";.(DN$,12);.(RX|
00000870: 24 2C 31 32 29 3B 4D 4C 24 28 53 55 42 2C 4C 50 |$,12);ML$(SUB,LP|
00000880: AA 31 29 00 A4 10 24 04 99 22 91 22 3B C8 28 52 |.1)...$..".";.(R|
00000890: 58 24 2C 33 35 29 3B 4D 4C 24 28 53 55 42 2C 4C |X$,35);ML$(SUB,L|
000008A0: 50 AA 32 29 00 C5 10 2E 04 99 22 11 22 3B C8 28 |P.2)......".";.(|
000008B0: 52 58 24 2C 31 36 29 3B 4D 4C 24 28 53 55 42 2C |RX$,16);ML$(SUB,|
000008C0: 4C 50 AA 33 29 00 E6 10 38 04 99 22 91 22 3B C8 |LP.3)...8..".";.|
000008D0: 28 52 58 24 2C 33 34 29 3B 4D 4C 24 28 53 55 42 |(RX$,34);ML$(SUB|
000008E0: 2C 4C 50 AA 34 29 00 F0 10 42 04 8D 32 39 30 30 |,LP.4)...B..2900|
000008F0: 00 F6 10 4C 04 8E 00 0F 11 56 04 8F 23 23 23 52 |...L.....V..###R|
00000900: 45 41 44 20 46 52 4F 4D 20 53 43 52 45 45 4E 00 |EAD FROM SCREEN.|
00000910: 18 11 60 04 99 22 13 22 00 22 11 6A 04 46 4C B2 |..`..".".".j.FL.|
00000920: 33 30 00 2E 11 74 04 81 4C 50 B2 31 A4 35 00 34 |30...t..LP.1.5.4|
00000930: 11 7E 04 99 00 45 11 88 04 99 22 1D 1D 1D 22 3B |.~...E...."...";|
00000940: 3A 8D 36 31 30 00 62 11 92 04 8B 5A 5A 24 B3 B1 |:.610.b....ZZ$..|
00000950: 22 22 A7 4D 4C 24 28 53 55 42 2C 4C 50 29 B2 5A |"".ML$(SUB,LP).Z|
00000960: 5A 24 00 6A 11 9C 04 82 4C 50 00 82 11 A6 04 8B |Z$.j....LP......|
00000970: 20 4E 24 B3 B1 22 45 22 20 A7 20 52 43 B2 52 43 | N$.."E" . RC.RC|
00000980: AA 31 00 8C 11 B0 04 46 4C B2 31 32 00 A7 11 BA |.1.....FL.12....|
00000990: 04 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000009A0: 22 3B 3A 8D 36 31 30 00 C4 11 C4 04 8B 20 5A 5A |";:.610...... ZZ|
000009B0: 24 B3 B1 22 22 A7 4D 4C 24 28 53 55 42 2C 36 29 |$.."".ML$(SUB,6)|
000009C0: B2 5A 5A 24 00 CD 11 CE 04 46 4C B2 31 00 D3 11 |.ZZ$.....FL.1...|
000009D0: 14 05 8E 00 E6 11 1E 05 8F 23 23 23 50 52 49 4E |.........###PRIN|
000009E0: 54 45 4E 54 52 59 00 F2 11 28 05 81 4C 50 B2 31 |TENTRY...(..LP.1|
000009F0: A4 36 00 1A 12 32 05 8B 20 C8 28 4D 4C 24 28 53 |.6...2.. .(ML$(S|
00000A00: 55 42 2C 4C 50 29 2C 31 29 B2 22 5F 22 A7 98 34 |UB,LP),1)."_"..4|
00000A10: 2C 22 A0 22 3A 89 31 33 35 30 00 2D 12 3C 05 98 |,".":.1350.-.<..|
00000A20: 34 2C 4D 4C 24 28 53 55 42 2C 4C 50 29 00 35 12 |4,ML$(SUB,LP).5.|
00000A30: 46 05 82 4C 50 00 4D 12 50 05 81 5A 50 B2 31 A4 |F..LP.M.P..ZP.1.|
00000A40: 45 53 3A 98 34 2C 22 20 22 3A 82 5A 50 00 53 12 |ES:.4," ":.ZP.S.|
00000A50: 5A 05 8E 00 88 12 BE 05 8D 36 35 30 30 3A 99 22 |Z........6500:."|
00000A60: 91 91 91 1C 20 20 20 20 20 20 2A 2A 2A 20 9E 53 |.... *** .S|
00000A70: 41 56 49 4E 47 20 41 44 44 52 45 53 53 20 46 49 |AVING ADDRESS FI|
00000A80: 4C 45 20 1C 2A 2A 2A 22 00 9B 12 C3 05 8F 23 23 |LE .***"......##|
00000A90: 50 55 54 20 54 4F 20 44 49 53 4B 00 A8 12 C8 05 |PUT TO DISK.....|
00000AA0: 9F 31 35 2C 38 2C 31 35 00 CC 12 D2 05 9F 32 2C |.15,8,15......2,|
00000AB0: 38 2C 32 2C 22 40 30 3A 41 44 44 52 45 53 53 45 |8,2,"@0:ADDRESSE|
00000AC0: 53 2C 53 2C 57 22 3A 8D 32 34 34 30 00 EF 12 E6 |S,S,W":.2440....|
00000AD0: 05 98 32 2C 45 42 24 3B 52 54 4E 24 3B 45 57 3B |..2,EB$;RTN$;EW;|
00000AE0: 52 54 4E 24 3B 45 50 3B 52 54 4E 24 3B 45 53 00 |RTN$;EP;RTN$;ES.|
00000AF0: F9 12 F0 05 98 32 2C 52 43 00 06 13 FA 05 81 50 |.....2,RC......P|
00000B00: 54 B2 31 A4 52 43 00 12 13 04 06 81 58 B2 31 A4 |T.1.RC......X.1.|
00000B10: 52 53 00 33 13 0E 06 8B 4D 4C 24 28 50 54 2C 58 |RS.3....ML$(PT,X|
00000B20: 29 B2 22 22 20 A7 20 98 32 2C 22 5C 22 3A 89 31 |)."" . .2,"\":.1|
00000B30: 35 37 30 00 44 13 18 06 98 32 2C 4D 4C 24 28 50 |570.D....2,ML$(P|
00000B40: 54 2C 58 29 00 4B 13 22 06 82 58 00 53 13 2C 06 |T,X).K."..X.S.,.|
00000B50: 82 50 54 00 66 13 36 06 A0 32 3A 8D 32 34 34 30 |.PT.f.6..2:.2440|
00000B60: 3A A0 31 35 3A 8E 00 7B 13 40 06 8F 23 23 47 45 |:.15:..{.@..##GE|
00000B70: 54 20 46 52 4F 4D 20 44 49 53 4B 00 B5 13 45 06 |T FROM DISK...E.|
00000B80: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 1D |."..............|
00000B90: 1D 1D 1D 1D 1D 1C 2A 2A 2A 20 9E 4C 4F 41 44 49 |......*** .LOADI|
00000BA0: 4E 47 20 41 44 44 52 45 53 53 20 46 49 4C 45 20 |NG ADDRESS FILE |
00000BB0: 1C 2A 2A 2A 22 00 C2 13 4A 06 9F 31 35 2C 38 2C |.***"...J..15,8,|
00000BC0: 31 35 00 E3 13 5E 06 9F 33 2C 38 2C 33 2C 22 41 |15...^..3,8,3,"A|
00000BD0: 44 44 52 45 53 53 45 53 2C 53 2C 52 22 3A 8D 32 |DDRESSES,S,R":.2|
00000BE0: 34 34 30 00 09 14 68 06 84 33 2C 45 42 24 3A 8B |440...h..3,EB$:.|
00000BF0: 45 42 24 B3 B1 22 4C 42 22 A7 52 43 B2 C5 28 45 |EB$.."LB".RC..(E|
00000C00: 42 24 29 3A 89 31 36 37 30 00 19 14 72 06 84 33 |B$):.1670...r..3|
00000C10: 2C 45 57 2C 45 50 2C 45 53 00 23 14 7C 06 84 33 |,EW,EP,ES.#.|..3|
00000C20: 2C 52 43 00 30 14 86 06 81 50 54 B2 31 A4 52 43 |,RC.0....PT.1.RC|
00000C30: 00 3C 14 90 06 81 58 B2 31 A4 52 53 00 53 14 9A |.<....X.1.RS.S..|
00000C40: 06 84 33 2C 4D 4C 24 28 50 54 2C 58 29 3A 8D 32 |..3,ML$(PT,X):.2|
00000C50: 34 34 30 00 7B 14 A4 06 8B 20 C8 28 4D 4C 24 28 |440.{.... .(ML$(|
00000C60: 50 54 2C 58 29 2C 31 29 B2 22 5C 22 20 A7 20 4D |PT,X),1)."\" . M|
00000C70: 4C 24 28 50 54 2C 58 29 B2 22 22 00 82 14 AE 06 |L$(PT,X)."".....|
00000C80: 82 58 00 8A 14 B8 06 82 50 54 00 97 14 C2 06 A0 |.X......PT......|
00000C90: 33 3A A0 31 35 3A 8E 00 B3 14 CC 06 8F 23 23 50 |3:.15:.......##P|
00000CA0: 45 52 46 4F 52 4D 20 4C 49 53 54 41 4E 44 20 46 |ERFORM LISTAND F|
00000CB0: 49 4E 44 00 BF 14 D6 06 4C 53 42 B2 53 55 42 00 |IND.....LSB.SUB.|
00000CC0: F3 14 E0 06 99 22 93 11 11 12 9A 20 20 41 20 44 |....."..... A D|
00000CD0: 20 44 20 52 20 45 20 53 20 53 20 2F 20 50 20 48 | D R E S S / P H|
00000CE0: 20 4F 20 4E 20 45 20 20 20 42 20 4F 20 4F 20 4B | O N E B O O K|
00000CF0: 20 20 22 00 0B 15 EA 06 99 22 11 11 11 1D 1D 1D | "......"......|
00000D00: 9E 4F 50 54 49 4F 4E 53 3A 11 22 00 33 15 F4 06 |.OPTIONS:.".3...|
00000D10: 99 A3 35 29 22 11 1E 28 1C 31 1E 29 20 56 49 45 |..5)"..(.1.) VIE|
00000D20: 57 20 50 48 4F 4E 45 20 23 20 4C 49 53 54 49 4E |W PHONE # LISTIN|
00000D30: 47 53 22 00 5B 15 FE 06 99 A3 35 29 22 11 1E 28 |GS".[.....5)"..(|
00000D40: 1C 32 1E 29 20 56 49 45 57 20 41 44 44 52 45 53 |.2.) VIEW ADDRES|
00000D50: 53 20 4C 49 53 54 49 4E 47 53 22 00 80 15 08 07 |S LISTINGS".....|
00000D60: 99 A3 35 29 22 11 1E 28 1C 33 1E 29 20 50 52 49 |..5)"..(.3.) PRI|
00000D70: 4E 54 20 41 20 50 48 4F 4E 45 20 42 4F 4F 4B 22 |NT A PHONE BOOK"|
00000D80: 00 A8 15 12 07 99 A3 35 29 22 11 1E 28 1C 34 1E |.......5)"..(.4.|
00000D90: 29 20 50 52 49 4E 54 20 41 4E 20 41 44 44 52 45 |) PRINT AN ADDRE|
00000DA0: 53 53 20 42 4F 4F 4B 22 00 D2 15 1C 07 99 A3 35 |SS BOOK".......5|
00000DB0: 29 22 11 1E 28 1C 35 1E 29 20 41 43 43 45 53 53 |)"..(.5.) ACCESS|
00000DC0: 20 49 4E 44 49 56 49 44 55 41 4C 20 46 49 4C 45 | INDIVIDUAL FILE|
00000DD0: 53 22 00 F5 15 26 07 99 A3 35 29 22 11 1E 28 1C |S"...&...5)"..(.|
00000DE0: 36 1E 29 20 52 45 54 55 52 4E 20 54 4F 20 48 2E |6.) RETURN TO H.|
00000DF0: 41 2E 4C 2E 22 00 0F 16 30 07 99 22 11 11 1D 1D |A.L."...0.."....|
00000E00: 1D 9E 59 4F 55 52 20 43 48 4F 49 43 45 3F 22 00 |..YOUR CHOICE?".|
00000E10: 25 16 3A 07 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |%.:..AN$:.AN$.""|
00000E20: A7 31 38 35 30 00 38 16 44 07 8B 20 41 4E 24 B2 |.1850.8.D.. AN$.|
00000E30: 22 31 22 A7 32 31 30 30 00 4B 16 4E 07 8B 20 41 |"1".2100.K.N.. A|
00000E40: 4E 24 B2 22 32 22 A7 33 30 30 30 00 5E 16 53 07 |N$."2".3000.^.S.|
00000E50: 8B 20 41 4E 24 B2 22 33 22 A7 32 37 31 30 00 78 |. AN$."3".2710.x|
00000E60: 16 58 07 8B 20 41 4E 24 B2 22 34 22 A7 4C 53 42 |.X.. AN$."4".LSB|
00000E70: B2 31 3A 89 31 39 32 30 00 89 16 62 07 8B 20 41 |.1:.1920...b.. A|
00000E80: 4E 24 B2 22 35 22 A7 39 30 00 9D 16 6C 07 8B 20 |N$."5".90...l.. |
00000E90: 41 4E 24 B2 22 36 22 A7 31 30 30 30 30 00 A7 16 |AN$."6".10000...|
00000EA0: 76 07 89 31 37 36 30 00 D7 16 80 07 99 22 11 50 |v..1760......".P|
00000EB0: 52 45 53 53 20 27 1C 52 45 54 55 52 4E 9E 27 20 |RESS '.RETURN.' |
00000EC0: 57 48 45 4E 20 50 52 49 4E 54 45 52 20 49 53 20 |WHEN PRINTER IS |
00000ED0: 52 45 41 44 59 2E 22 00 FC 16 85 07 99 22 11 50 |READY."......".P|
00000EE0: 52 45 53 53 20 27 1C 43 9E 27 20 54 4F 20 43 41 |RESS '.C.' TO CA|
00000EF0: 4E 43 45 4C 20 50 52 49 4E 54 2E 22 00 12 17 8A |NCEL PRINT."....|
00000F00: 07 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 31 39 |..AN$:.AN$."".19|
00000F10: 33 30 00 30 17 8F 07 8B 41 4E 24 B3 B1 22 43 22 |30.0....AN$.."C"|
00000F20: AF 41 4E 24 B3 B1 C7 28 31 33 29 A7 31 39 33 30 |.AN$...(13).1930|
00000F30: 00 42 17 94 07 8B 41 4E 24 B2 22 43 22 A7 31 37 |.B....AN$."C".17|
00000F40: 35 30 00 4B 17 9E 07 9F 34 2C 34 00 5E 17 A8 07 |50.K....4,4.^...|
00000F50: 8B 4C 53 42 B1 28 52 43 29 A7 32 30 38 30 00 76 |.LSB.(RC).2080.v|
00000F60: 17 B2 07 8B 4D 4C 24 28 4C 53 42 2C 31 29 B2 22 |....ML$(LSB,1)."|
00000F70: 22 A7 32 30 36 30 00 8F 17 BC 07 98 34 2C C7 28 |".2060......4,.(|
00000F80: 31 35 29 C7 28 31 34 35 29 3A 98 34 2C 22 22 00 |15).(145):.4,"".|
00000F90: AA 17 C6 07 98 34 2C C7 28 31 36 29 22 31 30 22 |.....4,.(16)"10"|
00000FA0: 4D 4C 24 28 4C 53 42 2C 31 29 00 B6 17 D0 07 81 |ML$(LSB,1)......|
00000FB0: 4C 50 B2 32 A4 36 00 D2 17 DA 07 8B 20 4D 4C 24 |LP.2.6...... ML$|
00000FC0: 28 4C 53 42 2C 4C 50 29 B2 22 22 20 A7 20 32 30 |(LSB,LP)."" . 20|
00000FD0: 33 30 00 EE 17 E4 07 98 34 2C C7 28 31 36 29 22 |30......4,.(16)"|
00000FE0: 31 35 22 4D 4C 24 28 4C 53 42 2C 4C 50 29 00 F6 |15"ML$(LSB,LP)..|
00000FF0: 17 EE 07 82 4C 50 00 12 18 02 08 A1 4B 24 3A 8B |....LP......K$:.|
00001000: 4B 24 B2 22 43 22 A7 98 34 3A A0 34 3A 89 31 37 |K$."C"..4:.4:.17|
00001010: 35 30 00 20 18 0C 08 4C 53 42 B2 4C 53 42 AA 31 |50. ...LSB.LSB.1|
00001020: 00 31 18 16 08 8B 4C 53 42 B3 52 43 A7 31 39 37 |.1....LSB.RC.197|
00001030: 30 00 48 18 20 08 98 34 2C C7 28 31 35 29 C7 28 |0.H. ..4,.(15).(|
00001040: 31 30 29 3A A0 34 2C 34 00 52 18 2A 08 89 31 37 |10):.4,4.R.*..17|
00001050: 35 30 00 68 18 34 08 8F 2A 2A 56 49 45 57 20 50 |50.h.4..**VIEW P|
00001060: 48 4F 4E 45 23 53 2A 2A 00 9C 18 3E 08 99 22 93 |HONE#S**...>..".|
00001070: 11 1D 12 9A 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00001080: 20 20 50 48 4F 4E 45 20 42 4F 4F 4B 20 20 20 20 | PHONE BOOK |
00001090: 20 20 20 20 20 20 20 20 20 20 11 22 00 CF 18 48 | ."...H|
000010A0: 08 59 5A 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.YZ$." |
000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 00 | .".|
000010D0: DB 18 52 08 81 58 B2 31 A4 52 43 00 F3 18 5C 08 |..R..X.1.RC...\.|
000010E0: 8B C3 28 4D 4C 24 28 58 2C 36 29 29 B3 35 A7 32 |..(ML$(X,6)).5.2|
000010F0: 31 36 30 00 21 19 66 08 99 59 5A 24 3A 99 22 1E |160.!.f..YZ$:.".|
00001100: 22 4D 4C 24 28 58 2C 31 29 3B C7 28 31 36 29 3A |"ML$(X,1);.(16):|
00001110: 99 A3 32 36 29 22 91 22 3B 4D 4C 24 28 58 2C 36 |..26)".";ML$(X,6|
00001120: 29 00 30 19 70 08 8B 58 B2 31 37 A7 32 31 38 30 |).0.p..X.17.2180|
00001130: 00 3F 19 71 08 8B 58 B2 33 34 A7 32 31 38 30 00 |.?.q..X.34.2180.|
00001140: 4E 19 72 08 8B 58 B2 35 31 A7 32 31 38 30 00 5D |N.r..X.51.2180.]|
00001150: 19 73 08 8B 58 B2 36 38 A7 32 31 38 30 00 6C 19 |.s..X.68.2180.l.|
00001160: 74 08 8B 58 B2 38 35 A7 32 31 38 30 00 7C 19 75 |t..X.85.2180.|.u|
00001170: 08 8B 58 B2 31 30 32 A7 32 31 38 30 00 8C 19 76 |..X.102.2180...v|
00001180: 08 8B 58 B2 31 31 39 A7 32 31 38 30 00 9C 19 77 |..X.119.2180...w|
00001190: 08 8B 58 B2 31 33 36 A7 32 31 38 30 00 A3 19 7A |..X.136.2180...z|
000011A0: 08 82 58 00 D5 19 7B 08 99 22 11 11 1C 12 20 20 |..X...{..".... |
000011B0: 20 20 20 20 20 20 50 52 45 53 53 20 41 4E 59 20 | PRESS ANY |
000011C0: 4B 45 59 20 46 4F 52 20 4D 45 4E 55 2E 20 20 20 |KEY FOR MENU. |
000011D0: 20 20 20 20 22 00 EB 19 7C 08 A1 41 4E 24 3A 8B | "...|..AN$:.|
000011E0: 41 4E 24 B2 22 22 A7 32 31 37 32 00 F5 19 7D 08 |AN$."".2172...}.|
000011F0: 89 31 37 35 30 00 26 1A 84 08 99 22 11 9E 12 20 |.1750.&...."... |
00001200: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 46 4F |PRESS ANY KEY FO|
00001210: 52 20 4D 4F 52 45 20 50 48 4F 4E 45 20 4E 55 4D |R MORE PHONE NUM|
00001220: 42 45 52 53 20 22 00 3C 1A 8E 08 A1 41 4E 24 3A |BERS ".<....AN$:|
00001230: 8B 41 4E 24 B2 22 22 A7 32 31 39 30 00 70 1A 91 |.AN$."".2190.p..|
00001240: 08 99 22 93 11 1D 12 9A 20 20 20 20 20 20 20 20 |.."..... |
00001250: 20 20 20 20 20 20 50 48 4F 4E 45 20 42 4F 4F 4B | PHONE BOOK|
00001260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 11 22 | ."|
00001270: 00 7A 1A 93 08 89 32 31 37 30 00 89 1A 88 09 84 |.z....2170......|
00001280: 31 35 2C 45 4E 2C 45 4D 24 00 98 1A 92 09 8B 20 |15,EN,EM$...... |
00001290: 45 4E B2 30 20 A7 20 8E 00 B5 1A 9C 09 99 22 12 |EN.0 . .......".|
000012A0: 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 45 4E 2C |DISK ERROR":.EN,|
000012B0: 45 4D 24 3A 80 00 CE 1A A6 09 8F 23 23 53 45 41 |EM$:.......##SEA|
000012C0: 52 43 48 20 46 4F 52 20 53 54 52 49 4E 47 00 DE |RCH FOR STRING..|
000012D0: 1A B0 09 53 31 B2 30 3A 53 52 24 B2 22 22 00 13 |...S1.0:SR$.""..|
000012E0: 1B BA 09 99 22 93 11 11 11 11 11 1D 9E 54 59 50 |...."........TYP|
000012F0: 45 20 49 4E 20 57 48 41 54 20 59 4F 55 20 57 49 |E IN WHAT YOU WI|
00001300: 53 48 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 |SH TO SEARCH FOR|
00001310: 3A 11 22 00 20 1B C4 09 85 22 1E 22 3B 53 52 24 |:.". ....".";SR$|
00001320: 00 31 1B CE 09 8B 53 52 24 B2 22 22 A7 32 30 39 |.1....SR$."".209|
00001330: 30 00 65 1B D8 09 99 22 11 11 1D 9E 53 45 41 52 |0.e...."....SEAR|
00001340: 43 48 20 28 1C 4E 9E 29 41 4D 45 20 4F 4E 4C 59 |CH (.N.)AME ONLY|
00001350: 20 4F 52 20 28 1C 45 9E 29 4E 54 49 52 45 20 46 | OR (.E.)NTIRE F|
00001360: 49 4C 45 3F 22 00 7B 1B DD 09 A1 57 33 24 3A 8B |ILE?".{....W3$:.|
00001370: 57 33 24 B2 22 22 A7 32 35 32 35 00 94 1B E2 09 |W3$."".2525.....|
00001380: 8B 20 57 33 24 B2 22 4E 22 A7 4C 37 B2 31 3A 89 |. W3$."N".L7.1:.|
00001390: 32 35 35 30 00 A7 1B E7 09 8B 57 33 24 B3 B1 22 |2550......W3$.."|
000013A0: 45 22 A7 32 35 32 35 00 B0 1B EC 09 4C 37 B2 36 |E".2525.....L7.6|
000013B0: 00 DA 1B F6 09 99 52 54 4E 24 22 11 53 45 41 52 |......RTN$".SEAR|
000013C0: 43 48 49 4E 47 20 46 4F 52 22 52 54 4E 24 22 11 |CHING FOR"RTN$".|
000013D0: 12 9A 22 53 52 24 22 92 9E 22 00 05 1C 00 0A 99 |.."SR$".."......|
000013E0: 52 54 4E 24 22 11 9E 45 4E 54 45 52 20 27 1C 43 |RTN$"..ENTER '.C|
000013F0: 9E 27 20 54 4F 20 43 41 4E 43 45 4C 20 53 45 41 |.' TO CANCEL SEA|
00001400: 52 43 48 2E 22 00 14 1C 0A 0A 53 52 42 B2 31 3A |RCH.".....SRB.1:|
00001410: 59 58 B2 31 00 21 1C 14 0A 4C B2 C3 28 53 52 24 |YX.1.!...L..(SR$|
00001420: 29 00 30 1C 1E 0A 81 53 52 42 B2 59 58 A4 52 43 |).0....SRB.YX.RC|
00001430: 00 5F 1C 28 0A 99 22 13 11 11 11 11 11 11 11 11 |._.(..".........|
00001440: 11 11 11 11 11 11 11 11 11 11 11 45 4E 54 52 49 |...........ENTRI|
00001450: 45 53 20 53 45 41 52 43 48 45 44 22 53 52 42 00 |ES SEARCHED"SRB.|
00001460: 6B 1C 32 0A 81 58 B2 31 A4 4C 37 00 80 1C 3C 0A |k.2..X.1.L7...<.|
00001470: 4C 54 B2 C3 28 4D 4C 24 28 53 52 42 2C 58 29 29 |LT..(ML$(SRB,X))|
00001480: 00 8E 1C 46 0A 4C 35 B2 4C 54 AB 4C AA 31 00 9B |...F.L5.LT.L.1..|
00001490: 1C 50 0A 81 43 4E B2 31 A4 4C 35 00 BC 1C 5A 0A |.P..CN.1.L5...Z.|
000014A0: 8B CA 28 4D 4C 24 28 53 52 42 2C 58 29 2C 43 4E |..(ML$(SRB,X),CN|
000014B0: 2C 4C 29 B2 53 52 24 A7 32 37 30 30 00 D4 1C 64 |,L).SR$.2700...d|
000014C0: 0A A1 43 4E 24 3A 8B 43 4E 24 B3 B1 22 43 22 A7 |..CN$:.CN$.."C".|
000014D0: 32 36 38 30 00 F2 1C 6E 0A 4D 53 47 24 B2 22 53 |2680...n.MSG$."S|
000014E0: 45 41 52 43 48 20 43 41 4E 43 45 4C 4C 45 44 22 |EARCH CANCELLED"|
000014F0: 3A 8E 00 02 1D 78 0A 82 43 4E 3A 82 58 3A 82 53 |:....x..CN:.X:.S|
00001500: 52 42 00 20 1D 82 0A 4D 53 47 24 B2 22 53 45 41 |RB. ...MSG$."SEA|
00001510: 52 43 48 20 43 4F 4D 50 4C 45 54 45 2E 22 3A 8E |RCH COMPLETE.":.|
00001520: 00 54 1D 8C 0A 53 55 42 B2 53 52 42 3A 53 31 B2 |.T...SUB.SRB:S1.|
00001530: 31 3A 4D 53 47 24 B2 22 9E 27 1C 43 9E 27 20 54 |1:MSG$.".'.C.' T|
00001540: 4F 20 43 4F 4E 54 49 4E 55 45 20 53 45 41 52 43 |O CONTINUE SEARC|
00001550: 48 22 3A 8E 00 74 1D 96 0A 99 22 93 11 1D 1C 12 |H":..t....".....|
00001560: 50 52 49 4E 54 49 4E 47 20 50 48 4F 4E 45 20 42 |PRINTING PHONE B|
00001570: 4F 4F 4B 22 00 8C 1D A0 0A 99 22 11 11 1D 1D 1C |OOK"......".....|
00001580: 41 1E 4C 4C 20 45 4E 54 52 49 45 53 00 B2 1D AA |A.LL ENTRIES....|
00001590: 0A 99 22 11 1D 1D 1C 45 1E 4E 54 52 49 45 53 20 |.."....E.NTRIES |
000015A0: 57 49 54 48 20 50 48 4F 4E 45 23 53 20 4F 4E 4C |WITH PHONE#S ONL|
000015B0: 59 22 00 C6 1D B4 0A A1 4C 24 3A 8B 4C 24 B2 22 |Y"......L$:.L$."|
000015C0: 22 A7 32 37 34 30 00 E0 1D BE 0A 8B 4C 24 B3 B1 |".2740......L$..|
000015D0: 22 45 22 AF 4C 24 B3 B1 22 41 22 A7 32 37 34 30 |"E".L$.."A".2740|
000015E0: 00 10 1E BF 0A 99 22 11 50 52 45 53 53 20 27 1C |......".PRESS '.|
000015F0: 52 45 54 55 52 4E 9E 27 20 57 48 45 4E 20 50 52 |RETURN.' WHEN PR|
00001600: 49 4E 54 45 52 20 49 53 20 52 45 41 44 59 2E 22 |INTER IS READY."|
00001610: 00 35 1E C0 0A 99 22 11 50 52 45 53 53 20 27 1C |.5....".PRESS '.|
00001620: 43 9E 27 20 54 4F 20 43 41 4E 43 45 4C 20 50 52 |C.' TO CANCEL PR|
00001630: 49 4E 54 2E 22 00 4B 1E C1 0A A1 41 4E 24 3A 8B |INT.".K....AN$:.|
00001640: 41 4E 24 B2 22 22 A7 32 37 35 33 00 69 1E C2 0A |AN$."".2753.i...|
00001650: 8B 41 4E 24 B3 B1 22 43 22 AF 41 4E 24 B3 B1 C7 |.AN$.."C".AN$...|
00001660: 28 31 33 29 A7 32 37 35 33 00 7B 1E C3 0A 8B 41 |(13).2753.{....A|
00001670: 4E 24 B2 22 43 22 A7 31 37 35 30 00 AE 1E C8 0A |N$."C".1750.....|
00001680: 99 22 11 1D 9E 45 4E 54 45 52 20 27 1C 43 9E 27 |."...ENTER '.C.'|
00001690: 20 54 4F 20 43 41 4E 43 45 4C 20 44 55 52 49 4E | TO CANCEL DURIN|
000016A0: 47 20 50 52 49 4E 54 2E 22 3A 54 4D B2 30 00 BF |G PRINT.":TM.0..|
000016B0: 1E D2 0A 9F 34 2C 34 3A 81 58 B2 31 A4 52 43 00 |....4,4:.X.1.RC.|
000016C0: D7 1E DC 0A A1 4B 24 3A 8B 4B 24 B2 22 43 22 A7 |.....K$:.K$."C".|
000016D0: 98 34 3A A0 34 3A 8E 00 F8 1E E6 0A 8B 20 4C 24 |.4:.4:....... L$|
000016E0: B2 22 45 22 A7 8B C3 28 4D 4C 24 28 58 2C 36 29 |."E"...(ML$(X,6)|
000016F0: 29 B3 35 A7 32 38 31 30 00 1B 1F F0 0A 98 34 2C |).5.2810......4,|
00001700: 4D 4C 24 28 58 2C 31 29 3B C7 28 31 36 29 22 33 |ML$(X,1);.(16)"3|
00001710: 30 22 3B 4D 4C 24 28 58 2C 36 29 00 2E 1F FA 0A |0";ML$(X,6).....|
00001720: 82 58 3A 98 34 3A A0 34 3A 89 31 37 35 30 00 41 |.X:.4:.4:.1750.A|
00001730: 1F 54 0B 99 22 13 22 3B C8 28 44 4E 24 2C 31 37 |.T..".";.(DN$,17|
00001740: 29 00 6A 1F 5E 0B 99 22 20 20 20 20 1C 45 4E 54 |).j.^.." .ENT|
00001750: 52 59 20 4E 55 4D 42 45 52 22 53 55 42 3B 22 20 |RY NUMBER"SUB;" |
00001760: 4F 46 20 22 3B 52 43 22 9E 22 00 A3 1F 68 0B 99 |OF ";RC"."...h..|
00001770: 22 11 20 1C 41 1E 44 44 20 20 20 1C 44 1E 45 4C |". .A.DD .D.EL|
00001780: 45 54 45 20 20 20 1C 45 1E 44 49 54 20 20 20 1C |ETE .E.DIT .|
00001790: 48 1E 41 52 44 43 4F 50 59 20 20 20 1C 46 1E 49 |H.ARDCOPY .F.I|
000017A0: 4E 44 22 00 DA 1F 72 0B 99 22 11 20 1C 4E 1E 45 |ND"...r..". .N.E|
000017B0: 58 54 20 20 20 20 1C 50 1E 52 45 56 49 4F 55 53 |XT .P.REVIOUS|
000017C0: 20 20 20 20 1C 42 1E 45 47 49 4E 4E 49 4E 47 20 | .B.EGINNING |
000017D0: 20 20 20 1C 4D 1E 45 4E 55 22 00 E9 1F 7C 0B 8B | .M.ENU"...|..|
000017E0: 46 52 B2 30 A7 32 39 36 30 00 09 20 86 0B 99 22 |FR.0.2960.. ..."|
000017F0: 12 1C 22 C8 28 4D 53 47 24 2C 31 34 29 46 52 22 |..".(MSG$,14)FR"|
00001800: 92 9E 22 3A 89 32 39 37 30 00 1B 20 90 0B 99 22 |..":.2970.. ..."|
00001810: 12 1C 22 4D 53 47 24 22 92 9E 22 00 2E 20 9A 0B |.."MSG$"..".. ..|
00001820: 4D 53 47 24 B2 22 22 3A 46 52 B2 30 3A 8E 00 4B |MSG$."":FR.0:..K|
00001830: 20 B8 0B 8F 2A 2A 20 56 49 45 57 20 41 44 44 52 | ...** VIEW ADDR|
00001840: 45 53 53 20 42 4F 4F 4B 20 2A 2A 00 82 20 C2 0B |ESS BOOK **.. ..|
00001850: 41 B2 30 3A 99 22 93 22 3A 8B 4C 53 42 B1 28 52 |A.0:.".":.LSB.(R|
00001860: 43 29 A7 99 22 20 1C 2A 2A 2A 20 9E 4C 41 53 54 |C).." .*** .LAST|
00001870: 20 45 4E 54 52 59 20 1C 2A 2A 2A 22 3A 89 33 31 | ENTRY .***":.31|
00001880: 32 30 00 9A 20 CC 0B 8B 4D 4C 24 28 4C 53 42 2C |20.. ...ML$(LSB,|
00001890: 31 29 B2 22 22 A7 33 31 30 30 00 AD 20 D6 0B 99 |1)."".3100.. ...|
000018A0: C7 28 31 35 29 C7 28 31 34 35 29 3A 99 00 CB 20 |.(15).(145):... |
000018B0: E0 0B 99 C7 28 31 36 29 22 1C 22 4D 4C 24 28 4C |....(16)"."ML$(L|
000018C0: 53 42 2C 31 29 3A 41 B2 41 AA 31 00 D7 20 EA 0B |SB,1):A.A.1.. ..|
000018D0: 81 4C 50 B2 32 A4 36 00 F3 20 F4 0B 8B 20 4D 4C |.LP.2.6.. ... ML|
000018E0: 24 28 4C 53 42 2C 4C 50 29 B2 22 22 20 A7 20 33 |$(LSB,LP)."" . 3|
000018F0: 30 38 30 00 0C 21 FE 0B 99 C7 28 31 36 29 22 1E |080..!....(16)".|
00001900: 22 4D 4C 24 28 4C 53 42 2C 4C 50 29 00 14 21 08 |"ML$(LSB,LP)..!.|
00001910: 0C 82 4C 50 00 27 21 12 0C A1 4B 24 3A 8B 4B 24 |..LP.'!...K$:.K$|
00001920: B2 22 43 22 A7 20 8E 00 35 21 1C 0C 4C 53 42 B2 |."C". ..5!..LSB.|
00001930: 4C 53 42 AA 31 00 4A 21 21 0C 8B 20 41 B2 33 20 |LSB.1.J!!.. A.3 |
00001940: A7 20 33 31 32 30 3A 41 B2 30 00 5D 21 26 0C 8B |. 3120:A.0.]!&..|
00001950: 4C 53 42 B3 52 43 AA 31 A7 33 30 32 30 00 6D 21 |LSB.RC.1.3020.m!|
00001960: 30 0C 99 C7 28 31 35 29 C7 28 31 30 29 00 9E 21 |0...(15).(10)..!|
00001970: 3A 0C 99 22 9E 45 4E 54 45 52 20 27 1C 4E 9E 27 |:..".ENTER '.N.'|
00001980: 20 46 4F 52 20 4E 45 58 54 20 27 1C 50 9E 27 20 | FOR NEXT '.P.' |
00001990: 46 4F 52 20 50 52 45 56 49 4F 55 53 2E 22 00 C5 |FOR PREVIOUS."..|
000019A0: 21 44 0C 99 22 20 20 20 20 50 52 45 53 53 20 27 |!D.." PRESS '|
000019B0: 1C 52 45 54 55 52 4E 9E 27 20 46 4F 52 20 4D 45 |.RETURN.' FOR ME|
000019C0: 4E 55 2E 91 22 00 DB 21 4E 0C A1 41 4E 24 3A 8B |NU.."..!N..AN$:.|
000019D0: 41 4E 24 B2 22 22 A7 33 31 35 30 00 EF 21 58 0C |AN$."".3150..!X.|
000019E0: 8B 41 4E 24 B2 C7 28 31 33 29 A7 31 37 35 30 00 |.AN$..(13).1750.|
000019F0: 01 22 5D 0C 8B 41 4E 24 B2 22 50 22 A7 33 32 30 |."]..AN$."P".320|
00001A00: 30 00 13 22 5E 0C 8B 41 4E 24 B2 22 4E 22 A7 33 |0.."^..AN$."N".3|
00001A10: 30 31 30 00 1D 22 62 0C 89 33 31 35 30 00 38 22 |010.."b..3150.8"|
00001A20: 80 0C 4C 53 42 B2 4C 53 42 AB 36 3A 8B 4C 53 42 |..LSB.LSB.6:.LSB|
00001A30: B3 31 A7 4C 53 42 B2 31 00 42 22 8A 0C 89 33 30 |.1.LSB.1.B"...30|
00001A40: 31 30 00 54 22 64 19 8F 20 42 55 42 42 4C 45 20 |10.T"d.. BUBBLE |
00001A50: 53 4F 52 54 00 87 22 69 19 99 22 93 11 11 11 11 |SORT.."i..".....|
00001A60: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 1C |...... .|
00001A70: 2A 2A 2A 9E 20 53 4F 52 54 49 4E 47 20 4D 4F 44 |***. SORTING MOD|
00001A80: 45 20 1C 2A 2A 2A 22 00 B2 22 6E 19 99 22 11 11 |E .***".."n.."..|
00001A90: 11 20 20 20 20 20 20 20 20 20 1C 2A 2A 2A 9E 20 |. .***. |
00001AA0: 50 4C 45 41 53 45 20 57 41 49 54 2E 20 1C 2A 2A |PLEASE WAIT. .**|
00001AB0: 2A 22 00 C0 22 78 19 81 49 B2 31 A4 52 43 AB 31 |*".."x..I.1.RC.1|
00001AC0: 00 C8 22 82 19 53 B2 49 00 D6 22 8C 19 81 4A B2 |.."..S.I.."...J.|
00001AD0: 49 AA 31 A4 52 43 00 F1 22 96 19 8B 4D 4C 24 28 |I.1.RC.."...ML$(|
00001AE0: 53 2C 31 29 B1 4D 4C 24 28 4A 2C 31 29 A7 53 B2 |S,1).ML$(J,1).S.|
00001AF0: 4A 00 F8 22 A0 19 82 4A 00 02 23 AA 19 8D 37 30 |J.."...J..#...70|
00001B00: 30 30 00 09 23 B4 19 82 49 00 0F 23 BE 19 8E 00 |00..#...I..#....|
00001B10: 1A 23 58 1B 8F 20 53 57 41 50 00 45 23 62 1B 48 |.#X.. SWAP.E#b.H|
00001B20: 31 24 B2 4D 4C 24 28 49 2C 31 29 3A 48 32 24 B2 |1$.ML$(I,1):H2$.|
00001B30: 4D 4C 24 28 49 2C 32 29 3A 48 33 24 B2 4D 4C 24 |ML$(I,2):H3$.ML$|
00001B40: 28 49 2C 33 29 00 70 23 67 1B 48 34 24 B2 4D 4C |(I,3).p#g.H4$.ML|
00001B50: 24 28 49 2C 34 29 3A 48 35 24 B2 4D 4C 24 28 49 |$(I,4):H5$.ML$(I|
00001B60: 2C 35 29 3A 48 36 24 B2 4D 4C 24 28 49 2C 36 29 |,5):H6$.ML$(I,6)|
00001B70: 00 AA 23 6C 1B 4D 4C 24 28 49 2C 31 29 B2 4D 4C |..#l.ML$(I,1).ML|
00001B80: 24 28 53 2C 31 29 3A 4D 4C 24 28 49 2C 32 29 B2 |$(S,1):ML$(I,2).|
00001B90: 4D 4C 24 28 53 2C 32 29 3A 4D 4C 24 28 49 2C 33 |ML$(S,2):ML$(I,3|
00001BA0: 29 B2 4D 4C 24 28 53 2C 33 29 00 E4 23 71 1B 4D |).ML$(S,3)..#q.M|
00001BB0: 4C 24 28 49 2C 34 29 B2 4D 4C 24 28 53 2C 34 29 |L$(I,4).ML$(S,4)|
00001BC0: 3A 4D 4C 24 28 49 2C 35 29 B2 4D 4C 24 28 53 2C |:ML$(I,5).ML$(S,|
00001BD0: 35 29 3A 4D 4C 24 28 49 2C 36 29 B2 4D 4C 24 28 |5):ML$(I,6).ML$(|
00001BE0: 53 2C 36 29 00 0F 24 76 1B 4D 4C 24 28 53 2C 31 |S,6)..$v.ML$(S,1|
00001BF0: 29 B2 48 31 24 3A 4D 4C 24 28 53 2C 32 29 B2 48 |).H1$:ML$(S,2).H|
00001C00: 32 24 3A 4D 4C 24 28 53 2C 33 29 B2 48 33 24 00 |2$:ML$(S,3).H3$.|
00001C10: 3A 24 7B 1B 4D 4C 24 28 53 2C 34 29 B2 48 34 24 |:${.ML$(S,4).H4$|
00001C20: 3A 4D 4C 24 28 53 2C 35 29 B2 48 35 24 3A 4D 4C |:ML$(S,5).H5$:ML|
00001C30: 24 28 53 2C 36 29 B2 48 36 24 00 40 24 80 1B 8E |$(S,6).H6$.@$...|
00001C40: 00 66 24 10 27 8F 2A 2A 2A 20 52 45 54 55 52 4E |.f$.'.*** RETURN|
00001C50: 20 54 4F 20 48 2E 41 2E 4C 2E 20 52 4F 55 54 49 | TO H.A.L. ROUTI|
00001C60: 4E 45 20 2A 2A 2A 00 79 24 15 27 8B 43 47 24 B2 |NE ***.y$.'.CG$.|
00001C70: 22 59 22 A7 8D 31 34 37 30 00 8F 24 1A 27 97 35 |"Y"..1470..$.'.5|
00001C80: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00001C90: 9F 24 2E 27 48 24 B2 22 48 2E 41 2E 4C 2E 22 00 |.$.'H$."H.A.L.".|
00001CA0: AA 24 38 27 97 31 39 38 2C 34 00 C2 24 42 27 99 |.$8'.198,4..$B'.|
00001CB0: 22 93 90 11 11 4C 4F 41 44 22 C7 28 33 34 29 48 |"....LOAD".(34)H|
00001CC0: 24 3B 00 D4 24 4C 27 99 20 C7 28 33 34 29 22 2C |$;..$L'. .(34)",|
00001CD0: 38 13 22 3B 00 F9 24 56 27 97 36 33 31 2C 31 33 |8.";..$V'.631,13|
00001CE0: 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C 31 31 |:.632,82:.633,11|
00001CF0: 37 3A 97 36 33 34 2C 31 33 00 FF 24 60 27 80 00 |7:.634,13..$`'..|
00001D00: 00 00 |.. |
.......:RTN$.G(13).6...TL.150:RS.9:SUB.1
:LL.5:EB$."LB".^...DN$."................
............."...(.RX$."................
........................."...2.. ML$(TL,
RS),WD$(40).G.<..53281,0:.53280,0:LN.24.
..F..1600:. LOAD ADDRESSES...P..1750:. M
ENU...Z..##UNDERSCORES...D..910.!.N..##P
RINT ADDR.*.X..980.<....##TEST INPUT.O..
..N$:.N$."".140.`....N$.."E".170.V. ..11
10:CG$."Y":.90......N$.."H".190......4,4
:.1310: 4......N$.."B".230...H.SUB.1:.90
.I....N$.."N".280.....SUB.SUB.1:.SUB.TL.
260:.....SUB.LN:MSG$."FILE IS FULL.":.90
.0.... SUB.RC.SUB.RC:MSG$."PAST END":.90
.8....90.Y.... F(N$).133 . SUB.SUB.5:.34
0.{.".. F(N$).134 . SUB.SUB.10:.340...,.
. F(N$).135 . SUB.SUB.20:.340...6.. F(N$
).136 . SUB.SUB.5:.340.Z.@.. F(N$).140 .
.3630:.340...J..370...T.. SUB.RC . SUB.R
C:MSG$."PAST END OF TABLE":.90.G.^.. SUB
.1 . SUB.1:MSG$."BEYOND START OF TABLE".
O.H..90.`.R..N$.."P".470.{.|.SUB.SUB.1:.
SUB.1.SUB.1......90...V..N$.."M".490....
..1740:.90......N$.."F".530.A....2470:.9
0.R....N$.."D".550......760:CG$."Y":.90.
..&..N$.."A".580...0..870:CG$."Y".,.:..#
#TEST FOR CONTINUE OF SEARCH.;.D..S1..1.
600.V.N..N$."C".YX.SRB.1:.2590.^.X..90..
.B..X.1.30:WD$(TM)."":.X:TM.0:ZZ$."":.".
?.";...L..K$:.K$."".620...V..F(K$).32.F(
K$).95.660.X...TM.TM.1:.TM.FL.TM.FL:.620
.....WD$(TM).K$:."..";K$;".?";:.620.....
.K$.RTN$..LP.2.710.E....N$."E"..K$.G(13)
..TM.0.."."H(ML$(SUB,LP),1):..D....N$."A
"..K$.RTN$..TM.0.620.U....K$.RTN$.710.~.
...730...F..". .":.TM..0. .X.1.TM:ZZ$.ZZ
$.WD$(X):.X...P...D.Z..K$..G(20).620....
.."........?.";:WD$(TM)."":TM.TM.1......
620...... *** DELETE ENTRY ***.+...MSG$.
".DELETE?(.Y./.N.)".S....980:MSG$."D E L
E T I N G":DUB.SUB.H....DE$:.DE$."".790
.Z. ..DE$.."Y".850...*..980:MSG$.""...4.
.X.1.RS:ML$(DUB,X).ML$(DUB.1,X):..J.>..D
UB.RC.RC.RC.1:.850...H.DUB.DUB.1:.820...
R.MSG$."":....\..".....ENTER COMMAND SHO
WN ON SCREEN.".#.F.SUB.RC.1.7.P.. SUB. T
L . 900.[.Z.MSG$."NO MORE ROOM TO ADD.":
.90.L....910:.1110:.......###PRINT UNDER
SCORES......"."......LP.1.5.H....".."LP"
...............................".P....LP
......".. PHONE # ..............."..
.T..###DSPLY ADDRESS......"."."....LP.1.
LL.9...."...."ML$(SUB,LP).D....198,0.L..
..LP.X...LP.LP.1......".";H(DN$,12);H(RX
$,12);ML$(SUB,LP.1)...$..".";H(RX$,35);M
L$(SUB,LP.2).E....".";H(RX$,16);ML$(SUB,
LP.3)...8..".";H(RX$,34);ML$(SUB,LP.4)..
.B..2900...L.....V..###READ FROM SCREEN.
..`..".".".J.FL.30...T..LP.1.5.4.~...E..
.."...";:.610.B....ZZ$.."".ML$(SUB,LP).Z
Z$.J....LP...... N$.."E" . RC.RC.1.....F
L.12......".............";:.610.D.D.. ZZ
$.."".ML$(SUB,6).ZZ$.M.N.FL.1.S.........
.###PRINTENTRY...(..LP.1.6...2.. H(ML$(S
UB,LP),1)."_"..4," ":.1350.-.<..4,ML$(SU
B,LP).5.F..LP.M.P..ZP.1.ES:.4," ":.ZP.S.
Z........6500:.".... *** .SAVING AD
DRESS FILE .***"...C..##PUT TO DISK...H.
.15,8,15.L.R..2,8,2,"@0:ADDRESSES,S,W":.
2440......2,EB$;RTN$;EW;RTN$;EP;RTN$;ES.
.....2,RC......PT.1.RC......X.1.RS.3....
ML$(PT,X)."" . .2,"\":.1570.D....2,ML$(P
T,X).K."..X.S.,..PT.F.6. 2:.2440: 15:..{
.@..##GET FROM DISK...E.."..............
......*** .LOADING ADDRESS FILE .***".B.
J..15,8,15...^..3,8,3,"ADDRESSES,S,R":.2
440...H..3,EB$:.EB$.."LB".RC.E(EB$):.167
0...R..3,EW,EP,ES.#.|..3,RC.0....PT.1.RC
.<....X.1.RS.S....3,ML$(PT,X):.2440.{...
. H(ML$(PT,X),1)."\" . ML$(PT,X)."".....
.X......PT...B. 3: 15:....L..##PERFORM L
ISTAND FIND...V.LSB.SUB......"..... A D
D R E S S / P H O N E B O O K ".....
.".......OPTIONS:.".3.....5)"..(.1.) VIE
W PHONE # LISTINGS".[.....5)"..(.2.) VIE
W ADDRESS LISTINGS".......5)"..(.3.) PRI
NT A PHONE BOOK".......5)"..(.4.) PRINT
AN ADDRESS BOOK".R.....5)"..(.5.) ACCESS
INDIVIDUAL FILES"...&...5)"..(.6.) RETU
RN TO H.A.L."...0.."......YOUR CHOICE?".
%.:..AN$:.AN$."".1850.8.D.. AN$."1".2100
.K.N.. AN$."2".3000.^.S.. AN$."3".2710.X
.X.. AN$."4".LSB.1:.1920...B.. AN$."5".9
0...L.. AN$."6".10000...V..1760.W....".P
RESS '.RETURN.' WHEN PRINTER IS READY.".
.....".PRESS '.C.' TO CANCEL PRINT."....
..AN$:.AN$."".1930.0....AN$.."C".AN$..G(
13).1930.B....AN$."C".1750.K....4,4.^...
.LSB.(RC).2080.V....ML$(LSB,1)."".2060..
....4,G(15)G(145):.4,""...F..4,G(16)"10"
ML$(LSB,1)...P..LP.2.6.R.Z.. ML$(LSB,LP)
."" . 2030......4,G(16)"15"ML$(LSB,LP)..
....LP......K$:.K$."C"..4: 4:.1750. ...L
SB.LSB.1.1....LSB.RC.1970.H. ..4,G(15)G(
10): 4,4.R.*..1750.H.4..**VIEW PHONE#S**
...>.."..... PHONE BOOK
.".O.H.YZ$."
."...R..X.1.RC...\.
.C(ML$(X,6)).5.2160.!.F..YZ$:."."ML$(X,1
);G(16):..26)".";ML$(X,6).0.P..X.17.2180
.?.Q..X.34.2180.N.R..X.51.2180.].S..X.68
.2180.L.T..X.85.2180.|.U..X.102.2180...V
..X.119.2180...W..X.136.2180...Z..X.U.{.
.".... PRESS ANY KEY FOR MENU.
"...|..AN$:.AN$."".2172...}..1750.&.
..."... PRESS ANY KEY FOR MORE PHONE NUM
BERS ".<....AN$:.AN$."".2190.P....".....
PHONE BOOK ."
.Z....2170......15,EN,EM$...... EN.0 . .
......".DISK ERROR":.EN,EM$:..N....##SEA
RCH FOR STRING.....S1.0:SR$.""......"...
.....TYPE IN WHAT YOU WISH TO SEARCH FOR
:.". .D..".";SR$.1.N..SR$."".2090.E.X.."
....SEARCH (.N.)AME ONLY OR (.E.)NTIRE F
ILE?".{....W3$:.W3$."".2525...... W3$."N
".L7.1:.2550......W3$.."E".2525.....L7.6
.Z....RTN$".SEARCHING FOR"RTN$"..."SR$".
."......RTN$"..ENTER '.C.' TO CANCEL SEA
RCH.".....SRB.1:YX.1.!...L.C(SR$).0....S
RB.YX.RC._.(.."....................ENTRI
ES SEARCHED"SRB.K.2..X.1.L7...<.LT.C(ML$
(SRB,X))...F.L5.LT.L.1...P..CN.1.L5...Z.
.J(ML$(SRB,X),CN,L).SR$.2700.T.D..CN$:.C
N$.."C".2680...N.MSG$."SEARCH CANCELLED"
:....X..CN:.X:.SRB. ...MSG$."SEARCH COMP
LETE.":..T...SUB.SRB:S1.1:MSG$.".'.C.' T
O CONTINUE SEARCH":..T....".....PRINTING
PHONE BOOK"... ..".....A.LL ENTRIES....
.."....E.NTRIES WITH PHONE#S ONLY".F....
L$:.L$."".2740......L$.."E".L$.."A".2740
......".PRESS '.RETURN.' WHEN PRINTER IS
READY.".5....".PRESS '.C.' TO CANCEL PR
INT.".K.A..AN$:.AN$."".2753.I.B..AN$.."C
".AN$..G(13).2753.{.C..AN$."C".1750...H.
."...ENTER '.C.' TO CANCEL DURING PRINT.
":TM.0...R..4,4:.X.1.RC.W....K$:.K$."C".
.4: 4:....... L$."E"..C(ML$(X,6)).5.2810
......4,ML$(X,1);G(16)"30";ML$(X,6).....
.X:.4: 4:.1750.A.T..".";H(DN$,17).J.^.."
.ENTRY NUMBER"SUB;" OF ";RC"."...H..
". .A.DD .D.ELETE .E.DIT .H.ARDCOP
Y .F.IND".Z.R..". .N.EXT .P.REVIOUS
.B.EGINNING .M.ENU"...|..FR.0.296
0.. ...".."H(MSG$,14)FR"..":.2970.. ..."
.."MSG$"..".. ..MSG$."":FR.0:..K ...** V
IEW ADDRESS BOOK **.. B.A.0:.".":.LSB.(R
C).." .*** .LAST ENTRY .***":.3120.. L..
ML$(LSB,1)."".3100.. V..G(15)G(145):..K
...G(16)"."ML$(LSB,1):A.A.1.W ...LP.2.6.
. ... ML$(LSB,LP)."" . 3080..!...G(16)".
"ML$(LSB,LP)..!...LP.'!...K$:.K$."C". ..
5!..LSB.LSB.1.J!!.. A.3 . 3120:A.0.]!&..
LSB.RC.1.3020.M!0..G(15)G(10)..!:..".ENT
ER '.N.' FOR NEXT '.P.' FOR PREVIOUS.".E
!D.." PRESS '.RETURN.' FOR MENU.."..!
N..AN$:.AN$."".3150..!X..AN$.G(13).1750.
."]..AN$."P".3200.."^..AN$."N".3010.."B.
.3150.8"..LSB.LSB.6:.LSB.1.LSB.1.B"...30
10.T"D.. BUBBLE SORT.."I.."...........
.***. SORTING MODE .***".."N.."..
. .***. PLEASE WAIT. .***".."X..
I.1.RC.1.H"..S.I.V"...J.I.1.RC.."...ML$(
S,1).ML$(J,1).S.J.." ..J..#...7000..#...
I..#.....#X.. SWAP.E#B.H1$.ML$(I,1):H2$.
ML$(I,2):H3$.ML$(I,3).P#G.H4$.ML$(I,4):H
5$.ML$(I,5):H6$.ML$(I,6)..#L.ML$(I,1).ML
$(S,1):ML$(I,2).ML$(S,2):ML$(I,3).ML$(S,
3)..#Q.ML$(I,4).ML$(S,4):ML$(I,5).ML$(S,
5):ML$(I,6).ML$(S,6)..$V.ML$(S,1).H1$:ML
$(S,2).H2$:ML$(S,3).H3$.:${.ML$(S,4).H4$
:ML$(S,5).H5$:ML$(S,6).H6$.@$....F$.'.**
* RETURN TO H.A.L. ROUTINE ***.Y$.'.CG$.
"Y"..1470..$.'.53280,0:.53281,0..$.'H$."
H.A.L."..$8'.198,4.B$B'."....LOAD"G(34)H
$;.T$L'. G(34)",8.";..$V'.631,13:.632,82
:.633,117:.634,13..$`'....
> CLICK IMAGE PREVIEW FOR FULL MODAL