PHONE BOOK
FILE INFORMATION
FILENAME(S): PHONE BOOK
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
2e85f5aab30eb81a5565c283dc195a1f05dd35c9c77b7a8a078b2c45bb25896d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | PHONE BOOK | PRG | High Voltage Complete C64 Collection | 8 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 9F 31 2C 38 2C 31 35 3A A0 31 |.......1,8,15:.1|
00000010: 3A 9F 31 2C 38 2C 31 35 3A 9F 33 2C 30 00 33 08 |:.1,8,15:.3,0.3.|
00000020: 0A 00 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 |...53281,0:.5328|
00000030: 30 2C 30 00 68 08 0F 00 99 22 93 98 12 20 20 54 |0,0.h...."... T|
00000040: 48 45 20 50 48 4F 4E 45 20 44 49 52 45 43 54 4F |HE PHONE DIRECTO|
00000050: 52 59 20 20 20 20 42 59 3A 4A 49 4D 20 46 49 54 |RY BY:JIM FIT|
00000060: 43 48 20 20 20 92 22 3B 00 9A 08 14 00 99 22 1C |CH .";......".|
00000070: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000080: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000090: B7 B7 B7 B7 B7 B7 B7 B7 98 22 00 CE 08 16 00 99 |........."......|
000000A0: 20 22 12 1C 20 20 20 43 41 4C 4C 20 53 41 54 45 | ".. CALL SATE|
000000B0: 4C 4C 49 54 45 20 36 34 20 2D 2D 2D 2D 20 32 37 |LLITE 64 ---- 27|
000000C0: 31 2D 38 30 39 39 20 20 20 20 20 20 22 3B 00 00 |1-8099 ";..|
000000D0: 09 17 00 99 20 22 05 B7 B7 B7 B7 B7 B7 B7 B7 B7 |.... "..........|
000000E0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000000F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |..............."|
00000100: 00 08 09 18 00 99 22 22 00 2C 09 19 00 99 22 20 |......"".,...." |
00000110: 20 20 20 20 20 20 20 31 2E 20 20 41 44 44 20 50 | 1. ADD P|
00000120: 48 4F 4E 45 20 4E 55 4D 42 45 52 11 00 56 09 1E |HONE NUMBER..V..|
00000130: 00 99 22 20 20 20 20 20 20 20 20 32 2E 20 20 50 |.." 2. P|
00000140: 52 49 4E 54 20 45 4E 54 49 52 45 20 44 49 52 45 |RINT ENTIRE DIRE|
00000150: 43 54 4F 52 59 11 00 70 09 23 00 99 22 20 20 20 |CTORY..p.#.." |
00000160: 20 20 20 20 20 33 2E 20 20 53 45 41 52 43 48 11 | 3. SEARCH.|
00000170: 00 8D 09 28 00 99 22 20 20 20 20 20 20 20 20 34 |...(.." 4|
00000180: 2E 20 20 46 41 53 54 20 53 43 41 4E 11 00 B6 09 |. FAST SCAN....|
00000190: 2A 00 99 22 20 20 20 20 20 20 20 20 35 2E 20 20 |*.." 5. |
000001A0: 43 52 45 41 54 45 20 4E 45 57 20 44 41 54 41 20 |CREATE NEW DATA |
000001B0: 42 41 53 45 11 22 00 E3 09 2D 00 99 22 20 20 20 |BASE."...-.." |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5B | [|
000001D0: 12 31 92 5D 9D 9D 22 3B 3A 41 B2 31 3A 42 24 B2 |.1.]..";:A.1:B$.|
000001E0: 22 31 22 00 02 0A 32 00 4C B2 30 3A 81 49 B2 31 |"1"...2.L.0:.I.1|
000001F0: A4 35 30 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 |.50:.A$:.A$.."".|
00000200: 35 35 00 16 0A 33 00 82 49 3A 99 22 92 22 3B 42 |55...3..I:.".";B|
00000210: 24 3B 22 9D 22 3B 00 35 0A 34 00 4C B2 31 3A 81 |$;".";.5.4.L.1:.|
00000220: 49 B2 31 A4 35 30 3A A1 41 24 3A 8B 41 24 B3 B1 |I.1.50:.A$:.A$..|
00000230: 22 22 A7 35 35 00 49 0A 35 00 82 49 3A 99 22 12 |"".55.I.5..I:.".|
00000240: 22 3B 42 24 3B 22 9D 22 3B 00 52 0A 36 00 89 20 |";B$;".";.R.6.. |
00000250: 35 30 00 64 0A 37 00 8B 41 24 B2 C7 28 31 33 29 |50.d.7..A$..(13)|
00000260: A7 31 30 30 00 82 0A 3C 00 8B 41 24 B1 22 35 22 |.100...<..A$."5"|
00000270: B0 41 24 B3 22 31 22 A7 91 4C AA 31 89 35 31 2C |.A$."1"..L.1.51,|
00000280: 35 33 00 93 0A 41 00 99 22 12 22 3B 41 24 3B 22 |53...A..".";A$;"|
00000290: 9D 22 3B 00 A9 0A 46 00 41 B2 C5 28 41 24 29 3A |.";...F.A..(A$):|
000002A0: 42 24 B2 41 24 3A 89 35 30 00 CC 0A 64 00 91 20 |B$.A$:.50...d.. |
000002B0: 41 20 89 20 31 30 30 30 2C 32 30 30 30 2C 33 30 |A . 1000,2000,30|
000002C0: 30 30 2C 36 30 30 30 2C 34 30 30 30 00 D5 0A C8 |00,6000,4000....|
000002D0: 00 89 20 35 30 00 DB 0A CD 00 3A 00 F8 0A 2C 01 |.. 50.....:...,.|
000002E0: 83 20 31 2C 33 32 2C 34 36 2C 38 38 2C 31 32 38 |. 1,32,46,88,128|
000002F0: 2C 31 36 38 2C 32 30 38 00 19 0B 31 01 8F 20 44 |,168,208...1.. D|
00000300: 41 54 41 20 4E 41 4D 45 2C 50 48 4F 4E 45 23 2C |ATA NAME,PHONE#,|
00000310: 41 44 44 52 2C 49 4E 46 4F 00 1F 0B 36 01 3A 00 |ADDR,INFO...6.:.|
00000320: 31 0B E8 03 8F 20 41 44 44 20 50 48 4F 4E 45 20 |1.... ADD PHONE |
00000330: 23 00 3D 0B E9 03 43 43 24 B2 22 07 22 00 70 0B |#.=...CC$.".".p.|
00000340: ED 03 8D 35 30 30 30 3A 99 22 93 92 52 45 43 4F |...5000:."..RECO|
00000350: 52 44 20 23 3A 22 3B 4C 52 AA 31 3A 99 22 13 1D |RD #:";LR.1:."..|
00000360: 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 85 52 3A 99 3A 99 |.......";:.R:.:.|
00000370: 00 85 0B EE 03 8B 52 B3 31 B0 52 B1 28 4C 52 AA |......R.1.R.(LR.|
00000380: 31 29 A7 31 30 00 A6 0B F2 03 9F 32 2C 38 2C 33 |1).10......2,8,3|
00000390: 2C 22 44 41 54 41 20 42 41 53 45 2C 4C 2C 22 AA |,"DATA BASE,L,".|
000003A0: C7 28 32 30 39 29 00 C5 0B F7 03 52 B2 52 AA 31 |.(209).....R.R.1|
000003B0: 3A 48 B2 B5 28 52 AD 32 35 36 29 3A 4C B2 52 AB |:H..(R.256):L.R.|
000003C0: 48 AC 32 35 36 00 DA 0B F8 03 8B 28 52 AB 31 29 |H.256......(R.1)|
000003D0: B2 4C 52 AA 31 A7 31 30 39 30 00 EA 0B FC 03 8C |.LR.1.1090......|
000003E0: 3A 81 49 B2 31 A4 33 3A 87 41 00 09 0C 1A 04 98 |:.I.1.3:.A......|
000003F0: 31 2C 22 50 22 3B C7 28 33 29 3B C7 28 4C 29 3B |1,"P";.(3);.(L);|
00000400: C7 28 48 29 3B C7 28 41 29 00 17 0C 1F 04 84 32 |.(H);.(A)......2|
00000410: 2C 41 24 3A 99 41 24 00 1E 0C 24 04 82 49 00 2B |,A$:.A$...$..I.+|
00000420: 0C 29 04 99 3A 81 49 B2 31 A4 33 00 4D 0C 2E 04 |.)..:.I.1.3.M...|
00000430: 87 41 3A 98 31 2C 22 50 22 3B C7 28 33 29 3B C7 |.A:.1,"P";.(3);.|
00000440: 28 4C 29 3B C7 28 48 29 3B C7 28 41 29 00 5E 0C |(L);.(H);.(A).^.|
00000450: 2F 04 84 32 2C 41 24 3A 99 41 24 3A 82 49 00 64 |/..2,A$:.A$:.I.d|
00000460: 0C 33 04 99 00 71 0C 42 04 99 22 13 11 11 11 22 |.3...q.B.."...."|
00000470: 3B 00 89 0C 47 04 84 33 2C 4E 24 3A 4E 24 B2 C8 |;...G..3,N$:N$..|
00000480: 28 4E 24 2C 33 30 29 3A 99 00 A1 0C 4C 04 84 33 |(N$,30):....L..3|
00000490: 2C 50 24 3A 50 24 B2 C8 28 50 24 2C 31 32 29 3A |,P$:P$..(P$,12):|
000004A0: 99 00 B9 0C 51 04 84 33 2C 41 24 3A 41 24 B2 C8 |....Q..3,A$:A$..|
000004B0: 28 41 24 2C 34 30 29 3A 99 00 BF 0C 56 04 99 00 |(A$,40):....V...|
000004C0: E7 0C 5B 04 81 49 B2 31 A4 33 3A 84 33 2C 41 24 |..[..I.1.3:.3,A$|
000004D0: 28 49 29 3A 41 24 28 49 29 B2 C8 28 41 24 28 49 |(I):A$(I)..(A$(I|
000004E0: 29 2C 33 39 29 3A 99 00 EE 0C 60 04 82 49 00 1C |),39):....`..I..|
000004F0: 0D 65 04 99 3A 99 22 41 52 45 20 59 4F 55 20 53 |.e..:."ARE YOU S|
00000500: 55 52 45 28 59 2F 4E 29 3F 22 3B 3A 84 33 2C 42 |URE(Y/N)?";:.3,B|
00000510: 24 3A 42 24 B2 C8 28 42 24 2C 31 29 00 2F 0D 6A |$:B$..(B$,1)./.j|
00000520: 04 8B 42 24 B2 22 4E 22 A7 A0 32 3A 89 31 30 00 |..B$."N"..2:.10.|
00000530: 38 0D 74 04 8C 3A 87 41 00 61 0D 7E 04 98 31 2C |8.t..:.A.a.~..1,|
00000540: 22 50 22 3B C7 28 33 29 3B C7 28 4C 29 3B C7 28 |"P";.(3);.(L);.(|
00000550: 48 29 3B C7 28 41 29 3A 98 32 2C 43 43 24 3B 4E |H);.(A):.2,CC$;N|
00000560: 24 00 8D 0D 83 04 87 41 3A 98 31 2C 22 50 22 3B |$......A:.1,"P";|
00000570: C7 28 33 29 3B C7 28 4C 29 3B C7 28 48 29 3B C7 |.(3);.(L);.(H);.|
00000580: 28 41 29 3A 98 32 2C 43 43 24 3B 50 24 00 B9 0D |(A):.2,CC$;P$...|
00000590: 88 04 87 41 3A 98 31 2C 22 50 22 3B C7 28 33 29 |...A:.1,"P";.(3)|
000005A0: 3B C7 28 4C 29 3B C7 28 48 29 3B C7 28 41 29 3A |;.(L);.(H);.(A):|
000005B0: 98 32 2C 43 43 24 3B 41 24 00 C4 0D 8D 04 81 49 |.2,CC$;A$......I|
000005C0: B2 31 A4 33 00 E6 0D 92 04 87 41 3A 98 31 2C 22 |.1.3......A:.1,"|
000005D0: 50 22 3B C7 28 33 29 3B C7 28 4C 29 3B C7 28 48 |P";.(3);.(L);.(H|
000005E0: 29 3B C7 28 41 29 00 FA 0D 93 04 98 32 2C 43 43 |);.(A)......2,CC|
000005F0: 24 3B 41 24 28 49 29 3A 82 49 00 2C 0E A6 04 8B |$;A$(I):.I.,....|
00000600: 28 52 AB 31 29 B1 4C 52 A7 98 31 2C 22 50 22 3B |(R.1).LR..1,"P";|
00000610: C7 28 33 29 3B C7 28 31 29 3B C7 28 30 29 3B C7 |.(3);.(1);.(0);.|
00000620: 28 31 29 3A 98 32 2C 28 52 AB 31 29 00 37 0E AB |(1):.2,(R.1).7..|
00000630: 04 A0 32 3A 89 31 30 00 3D 0E B0 04 80 00 5A 0E |..2:.10.=.....Z.|
00000640: D0 07 8F 20 50 52 49 4E 54 20 45 4E 54 49 52 45 |... PRINT ENTIRE|
00000650: 20 44 49 52 45 43 54 4F 52 59 00 64 0E D5 07 8D | DIRECTORY.d....|
00000660: 35 30 30 30 00 85 0E D6 07 9F 32 2C 38 2C 33 2C |5000......2,8,3,|
00000670: 22 44 41 54 41 20 42 41 53 45 2C 4C 2C 22 AA C7 |"DATA BASE,L,"..|
00000680: 28 32 30 39 29 00 8D 0E DA 07 52 B2 30 00 B9 0E |(209).....R.0...|
00000690: E4 07 99 22 93 92 52 45 43 4F 52 44 20 23 22 3B |..."..RECORD #";|
000006A0: 52 AA 31 3A 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D |R.1:."..........|
000006B0: 22 3B 3A 84 33 2C 52 3A 99 00 CE 0E E9 07 8B 52 |";:.3,R:.......R|
000006C0: B3 31 B0 52 B1 4C 52 A7 A0 32 3A 89 31 30 00 D4 |.1.R.LR..2:.10..|
000006D0: 0E EE 07 99 00 F5 0E F8 07 48 B2 B5 28 28 52 AA |.........H..((R.|
000006E0: 31 29 AD 32 35 36 29 3A 4C B2 28 52 AA 31 29 AB |1).256):L.(R.1).|
000006F0: 48 AC 32 35 36 00 05 0F 02 08 8C 3A 81 49 B2 31 |H.256......:.I.1|
00000700: A4 33 3A 87 41 00 24 0F 07 08 98 31 2C 22 50 22 |.3:.A.$....1,"P"|
00000710: 3B C7 28 33 29 3B C7 28 4C 29 3B C7 28 48 29 3B |;.(3);.(L);.(H);|
00000720: C7 28 41 29 00 32 0F 0C 08 84 32 2C 41 24 3A 99 |.(A).2....2,A$:.|
00000730: 41 24 00 39 0F 16 08 82 49 00 46 0F 1B 08 99 3A |A$.9....I.F....:|
00000740: 81 49 B2 31 A4 33 00 68 0F 20 08 87 41 3A 98 31 |.I.1.3.h. ..A:.1|
00000750: 2C 22 50 22 3B C7 28 33 29 3B C7 28 4C 29 3B C7 |,"P";.(3);.(L);.|
00000760: 28 48 29 3B C7 28 41 29 00 79 0F 2A 08 84 32 2C |(H);.(A).y.*..2,|
00000770: 41 24 3A 99 41 24 3A 82 49 00 7F 0F 34 08 99 00 |A$:.A$:.I...4...|
00000780: 94 0F 39 08 99 22 50 52 45 53 53 20 41 4E 59 20 |..9.."PRESS ANY |
00000790: 4B 45 59 22 00 A8 0F 3E 08 A1 41 24 3A 8B 41 24 |KEY"...>..A$:.A$|
000007A0: B2 22 22 A7 32 31 31 30 00 B2 0F 43 08 89 32 30 |."".2110...C..20|
000007B0: 32 30 00 BF 0F B8 0B 8F 20 53 45 41 52 43 48 00 |20...... SEARCH.|
000007C0: FE 0F B9 0B 99 22 93 92 53 45 41 52 43 48 20 46 |....."..SEARCH F|
000007D0: 4F 52 20 28 4E 29 41 4D 45 20 4F 52 20 28 50 29 |OR (N)AME OR (P)|
000007E0: 48 4F 4E 45 20 23 3A 22 3B 3A 84 33 2C 41 24 3A |HONE #:";:.3,A$:|
000007F0: 41 24 B2 C8 28 41 24 2C 31 29 3A 99 3A 99 00 18 |A$..(A$,1):.:...|
00000800: 10 BA 0B 99 22 50 41 54 54 45 52 4E 20 3A 22 3B |...."PATTERN :";|
00000810: 3A 84 33 2C 50 24 3A 99 00 29 10 BB 0B 8C 3A 8B |:.3,P$:..)....:.|
00000820: 41 24 B2 22 4E 22 A7 87 41 00 3A 10 BC 0B 8B 41 |A$."N"..A.:....A|
00000830: 24 B2 22 50 22 A7 87 41 2C 41 00 44 10 BD 0B 8D |$."P"..A,A.D....|
00000840: 35 30 30 30 00 65 10 BF 0B 9F 32 2C 38 2C 33 2C |5000.e....2,8,3,|
00000850: 22 44 41 54 41 20 42 41 53 45 2C 4C 2C 22 AA C7 |"DATA BASE,L,"..|
00000860: 28 32 30 39 29 00 73 10 C2 0B 81 49 B2 32 A4 4C |(209).s....I.2.L|
00000870: 52 AA 31 00 8C 10 C7 0B 48 B2 B5 28 49 AD 32 35 |R.1.....H..(I.25|
00000880: 36 29 3A 4C B2 49 AB 48 AC 32 35 36 00 A4 10 CC |6):L.I.H.256....|
00000890: 0B 99 22 93 11 11 11 11 52 45 43 4F 52 44 20 23 |..".....RECORD #|
000008A0: 22 49 AB 31 00 C2 10 D6 0B 98 31 2C 22 50 22 C7 |"I.1......1,"P".|
000008B0: 28 33 29 3B C7 28 4C 29 3B C7 28 48 29 3B C7 28 |(3);.(L);.(H);.(|
000008C0: 41 29 00 DD 10 D7 0B 84 32 2C 41 24 3A 41 24 B2 |A)......2,A$:A$.|
000008D0: C9 28 41 24 2C C3 28 41 24 29 AB 31 29 00 F6 10 |.(A$,.(A$).1)...|
000008E0: E0 0B 8B 50 24 B2 C8 28 41 24 2C C3 28 50 24 29 |...P$..(A$,.(P$)|
000008F0: 29 A7 33 31 30 30 00 FD 10 EA 0B 82 49 00 08 11 |).3100......I...|
00000900: F4 0B A0 32 3A 89 31 30 00 18 11 1C 0C 8C 3A 81 |...2:.10......:.|
00000910: 4A B2 31 A4 33 3A 87 42 00 37 11 21 0C 98 31 2C |J.1.3:.B.7.!..1,|
00000920: 22 50 22 3B C7 28 33 29 3B C7 28 4C 29 3B C7 28 |"P";.(3);.(L);.(|
00000930: 48 29 3B C7 28 42 29 00 45 11 26 0C 84 32 2C 41 |H);.(B).E.&..2,A|
00000940: 24 3A 99 41 24 00 4C 11 30 0C 82 4A 00 59 11 35 |$:.A$.L.0..J.Y.5|
00000950: 0C 99 3A 81 4A B2 31 A4 33 00 7B 11 3A 0C 87 42 |..:.J.1.3.{.:..B|
00000960: 3A 98 31 2C 22 50 22 3B C7 28 33 29 3B C7 28 4C |:.1,"P";.(3);.(L|
00000970: 29 3B C7 28 48 29 3B C7 28 42 29 00 8C 11 3B 0C |);.(H);.(B)...;.|
00000980: 84 32 2C 41 24 3A 99 41 24 3A 82 4A 00 A4 11 44 |.2,A$:.A$:.J...D|
00000990: 0C 99 3A 99 22 50 52 45 53 53 20 41 4E 59 20 4B |..:."PRESS ANY K|
000009A0: 45 59 2E 22 00 B8 11 49 0C A1 41 24 3A 8B 41 24 |EY."...I..A$:.A$|
000009B0: B2 22 22 A7 33 31 34 35 00 C2 11 4E 0C 89 33 30 |."".3145...N..30|
000009C0: 35 30 00 DD 11 A0 0F 8F 20 43 52 45 41 54 45 20 |50...... CREATE |
000009D0: 4E 45 57 20 44 41 54 41 20 42 41 53 45 00 06 12 |NEW DATA BASE...|
000009E0: A1 0F 99 22 93 92 41 52 45 20 59 4F 55 20 53 55 |..."..ARE YOU SU|
000009F0: 52 45 3F 22 3B 3A 84 33 2C 41 24 3A 41 24 B2 C8 |RE?";:.3,A$:A$..|
00000A00: 28 41 24 2C 31 29 00 16 12 A2 0F 8B 41 24 B3 B1 |(A$,1)......A$..|
00000A10: 22 59 22 A7 31 30 00 2C 12 A3 0F 98 31 2C 22 53 |"Y".10.,....1,"S|
00000A20: 30 3A 44 41 54 41 20 42 41 53 45 22 00 4D 12 A5 |0:DATA BASE".M..|
00000A30: 0F 9F 32 2C 38 2C 33 2C 22 44 41 54 41 20 42 41 |..2,8,3,"DATA BA|
00000A40: 53 45 2C 4C 2C 22 AA C7 28 32 30 39 29 00 6C 12 |SE,L,"..(209).l.|
00000A50: AA 0F 84 31 2C 41 2C 41 24 2C 42 2C 43 3A 8F 20 |...1,A,A$,B,C:. |
00000A60: 43 4C 45 41 52 20 45 52 52 4F 52 53 00 8C 12 AF |CLEAR ERRORS....|
00000A70: 0F 85 22 93 92 4D 41 58 49 4D 55 4E 20 23 20 4F |.."..MAXIMUN # O|
00000A80: 46 20 4E 41 4D 45 53 3A 22 3B 4D 58 00 AA 12 B4 |F NAMES:";MX....|
00000A90: 0F 4D 48 B2 B5 28 4D 58 AD 32 35 36 29 3A 4D 4C |.MH..(MX.256):ML|
00000AA0: B2 4D 58 AB 4D 48 AC 32 35 36 00 CD 12 BE 0F 98 |.MX.MH.256......|
00000AB0: 31 2C 22 50 22 3B C7 28 33 29 3B C7 28 4D 4C 29 |1,"P";.(3);.(ML)|
00000AC0: 3B C7 28 4D 48 29 3B C7 28 32 30 38 29 00 E1 12 |;.(MH);.(208)...|
00000AD0: BF 0F 84 31 2C 41 2C 41 24 2C 42 2C 43 20 3A 98 |...1,A,A$,B,C :.|
00000AE0: 32 00 03 13 C3 0F 98 32 3A 98 31 2C 22 50 22 3B |2......2:.1,"P";|
00000AF0: C7 28 33 29 3B C7 28 31 29 3B C7 28 30 29 3B C7 |.(3);.(1);.(0);.|
00000B00: 28 31 29 00 0C 13 C8 0F 98 32 2C 30 00 2B 13 C9 |(1)......2,0.+..|
00000B10: 0F 98 31 2C 22 50 22 3B C7 28 33 29 3B C7 28 32 |..1,"P";.(3);.(2|
00000B20: 29 3B C7 28 30 29 3B C7 28 31 29 00 56 13 CA 0F |);.(0);.(1).V...|
00000B30: 8C 3A 81 49 B2 31 A4 33 3A 87 41 3A 98 31 2C 22 |.:.I.1.3:.A:.1,"|
00000B40: 50 22 3B C7 28 33 29 3B C7 28 32 29 3B C7 28 30 |P";.(3);.(2);.(0|
00000B50: 29 3B C7 28 41 29 00 68 13 CB 0F 98 32 2C 22 45 |);.(A).h....2,"E|
00000B60: 4D 50 54 59 22 3A 82 49 00 90 13 CC 0F 81 49 B2 |MPTY":.I......I.|
00000B70: 31 A4 33 3A 87 41 3A 98 31 2C 22 50 22 3B C7 28 |1.3:.A:.1,"P";.(|
00000B80: 33 29 C7 28 32 29 3B C7 28 30 29 3B C7 28 41 29 |3).(2);.(0);.(A)|
00000B90: 00 C4 13 CD 0F 98 32 2C 22 20 20 20 20 20 20 20 |......2," |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BC0: 22 3A 82 49 00 CB 13 D2 0F A0 32 00 D4 13 DC 0F |":.I......2.....|
00000BD0: 89 20 31 30 00 EC 13 88 13 8F 20 47 45 54 20 4C |. 10...... GET L|
00000BE0: 41 53 54 20 52 45 43 4F 52 44 20 23 00 0D 14 8D |AST RECORD #....|
00000BF0: 13 9F 32 2C 38 2C 33 2C 22 44 41 54 41 20 42 41 |..2,8,3,"DATA BA|
00000C00: 53 45 2C 4C 2C 22 AA C7 28 32 30 39 29 00 2B 14 |SE,L,"..(209).+.|
00000C10: 92 13 98 31 2C 22 50 22 C7 28 33 29 3B C7 28 31 |...1,"P".(3);.(1|
00000C20: 29 3B C7 28 30 29 3B C7 28 31 29 00 3A 14 97 13 |);.(0);.(1).:...|
00000C30: 84 32 2C 4C 52 3A A0 32 3A 8E 00 4B 14 70 17 8F |.2,LR:.2:..K.p..|
00000C40: 20 51 55 49 43 4B 20 53 43 41 4E 00 79 14 7A 17 | QUICK SCAN.y.z.|
00000C50: 8D 35 30 30 30 3A 99 22 93 92 54 48 45 52 45 20 |.5000:."..THERE |
00000C60: 41 52 45 22 3B 4C 52 3B 22 20 4E 55 4D 42 45 52 |ARE";LR;" NUMBER|
00000C70: 53 20 53 54 4F 52 45 53 22 00 92 14 7F 17 99 22 |S STORES"......"|
00000C80: 53 54 41 52 54 20 41 54 20 23 3A 22 3B 3A 84 33 |START AT #:";:.3|
00000C90: 2C 52 00 B1 14 80 17 99 3A 99 3A 99 22 20 4E 41 |,R......:.:." NA|
00000CA0: 4D 45 20 22 3B A3 33 31 29 22 50 48 4F 4E 45 23 |ME ";.31)"PHONE#|
00000CB0: 22 00 DF 14 81 17 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"......"--------|
00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000CE0: F0 14 84 17 8B 52 B3 31 B0 52 B1 4C 52 A7 31 30 |.....R.1.R.LR.10|
00000CF0: 00 11 15 89 17 9F 32 2C 38 2C 33 2C 22 44 41 54 |......2,8,3,"DAT|
00000D00: 41 20 42 41 53 45 2C 4C 2C 22 AA C7 28 32 30 39 |A BASE,L,"..(209|
00000D10: 29 00 21 15 8B 17 81 49 B2 52 AA 31 A4 4C 52 AA |).!....I.R.1.LR.|
00000D20: 31 00 3A 15 8E 17 48 B2 B5 28 49 AD 32 35 36 29 |1.:...H..(I.256)|
00000D30: 3A 4C B2 49 AB 48 AC 32 35 36 00 5C 15 93 17 8C |:L.I.H.256.\....|
00000D40: 3A 87 41 2C 42 3A 98 31 2C 22 50 22 C7 28 33 29 |:.A,B:.1,"P".(3)|
00000D50: C7 28 4C 29 C7 28 48 29 C7 28 41 29 00 66 15 98 |.(L).(H).(A).f..|
00000D60: 17 84 32 2C 4E 24 00 81 15 9D 17 98 31 2C 22 50 |..2,N$......1,"P|
00000D70: 22 C7 28 33 29 C7 28 4C 29 C7 28 48 29 C7 28 42 |".(3).(L).(H).(B|
00000D80: 29 00 8B 15 A2 17 84 32 2C 50 24 00 9B 15 A7 17 |)......2,P$.....|
00000D90: 99 4E 24 3B A3 32 37 29 3B 50 24 00 A5 15 AC 17 |.N$;.27);P$.....|
00000DA0: 82 49 3A A0 32 00 C4 15 B1 17 99 3A 85 20 22 50 |.I:.2......:. "P|
00000DB0: 52 45 53 53 20 52 45 54 55 52 4E 3A 22 3B 41 24 |RESS RETURN:";A$|
00000DC0: 3A 89 31 30 00 00 00 |:.10... |
.......1,8,15: 1:.1,8,15:.3,0.3....53281
,0:.53280,0.H...."... THE PHONE DIRECTO
RY BY:JIM FITCH .";......".........
.................................".N....
".. CALL SATELLITE 64 ---- 271-8099
";...... "..........................
..............."......"".,...." 1
. ADD PHONE NUMBER..V...." 2. P
RINT ENTIRE DIRECTORY..P.#.." 3.
SEARCH....(.." 4. FAST SCAN....
*.." 5. CREATE NEW DATA BASE."..
.-.." [.1.]..";:A.1:B$.
"1"...2.L.0:.I.1.50:.A$:.A$.."".55...3..
I:.".";B$;".";.5.4.L.1:.I.1.50:.A$:.A$..
"".55.I.5..I:.".";B$;".";.R.6.. 50.D.7..
A$.G(13).100...<..A$."5".A$."1"..L.1.51,
53...A..".";A$;".";...F.A.E(A$):B$.A$:.5
0.L.D.. A . 1000,2000,3000,6000,4000.U.H
.. 50...M.:...,.. 1,32,46,88,128,168,208
...1.. DATA NAME,PHONE#,ADDR,INFO...6.:.
1.... ADD PHONE #.=...CC$.".".P....5000:
."..RECORD #:";LR.1:.".........";:.R:.:.
......R.1.R.(LR.1).10......2,8,3,"DATA B
ASE,L,".G(209).E...R.R.1:H..(R.256):L.R.
H.256.Z....(R.1).LR.1.1090......:.I.1.3:
.A......1,"P";G(3);G(L);G(H);G(A)......2
,A$:.A$...$..I.+.)..:.I.1.3.M....A:.1,"P
";G(3);G(L);G(H);G(A).^./..2,A$:.A$:.I.D
.3...Q.B.."....";...G..3,N$:N$.H(N$,30):
....L..3,P$:P$.H(P$,12):....Q..3,A$:A$.H
(A$,40):....V.....[..I.1.3:.3,A$(I):A$(I
).H(A$(I),39):....`..I...E..:."ARE YOU S
URE(Y/N)?";:.3,B$:B$.H(B$,1)./.J..B$."N"
. 2:.10.8.T..:.A.A.~..1,"P";G(3);G(L);G(
H);G(A):.2,CC$;N$......A:.1,"P";G(3);G(L
);G(H);G(A):.2,CC$;P$......A:.1,"P";G(3)
;G(L);G(H);G(A):.2,CC$;A$.D....I.1.3....
..A:.1,"P";G(3);G(L);G(H);G(A)......2,CC
$;A$(I):.I.,....(R.1).LR..1,"P";G(3);G(1
);G(0);G(1):.2,(R.1).7... 2:.10.=.....Z.
P.. PRINT ENTIRE DIRECTORY.D.U..5000...V
..2,8,3,"DATA BASE,L,".G(209)...Z.R.0...
..."..RECORD #";R.1:."..........";:.3,R:
..N....R.1.R.LR. 2:.10.T.........H..((R.
1).256):L.(R.1).H.256......:.I.1.3:.A.$.
...1,"P";G(3);G(L);G(H);G(A).2....2,A$:.
A$.9....I.F....:.I.1.3.H. ..A:.1,"P";G(3
);G(L);G(H);G(A).Y.*..2,A$:.A$:.I..4...
..9.."PRESS ANY KEY"...>..A$:.A$."".2110
...C..2020...... SEARCH......"..SEARCH F
OR (N)AME OR (P)HONE #:";:.3,A$:A$.H(A$,
1):.:......."PATTERN :";:.3,P$:..)....:.
A$."N"..A.:....A$."P"..A,A.D....5000.E..
..2,8,3,"DATA BASE,L,".G(209).S.B..I.2.L
R.1...G.H..(I.256):L.I.H.256...L..".....
RECORD #"I.1.B.V..1,"P"G(3);G(L);G(H);G(
A)...W..2,A$:A$.I(A$,C(A$).1)......P$.H(
A$,C(P$)).3100......I..... 2:.10......:.
J.1.3:.B.7.!..1,"P";G(3);G(L);G(H);G(B).
E.&..2,A$:.A$.L.0..J.Y.5..:.J.1.3.{.:..B
:.1,"P";G(3);G(L);G(H);G(B)...;..2,A$:.A
$:.J...D..:."PRESS ANY KEY."...I..A$:.A$
."".3145.B.N..3050... .. CREATE NEW DATA
BASE......"..ARE YOU SURE?";:.3,A$:A$.H
(A$,1)......A$.."Y".10.,....1,"S0:DATA B
ASE".M....2,8,3,"DATA BASE,L,".G(209).L.
...1,A,A$,B,C:. CLEAR ERRORS......"..MAX
IMUN # OF NAMES:";MX.....MH..(MX.256):ML
.MX.MH.256.M....1,"P";G(3);G(ML);G(MH);G
(208)......1,A,A$,B,C :.2...C..2:.1,"P";
G(3);G(1);G(0);G(1)...H..2,0.+.I..1,"P";
G(3);G(2);G(0);G(1).V.J..:.I.1.3:.A:.1,"
P";G(3);G(2);G(0);G(A).H.K..2,"EMPTY":.I
...L..I.1.3:.A:.1,"P";G(3)G(2);G(0);G(A)
.D.M..2,"
":.I.K.R. 2.T.... 10...... GET L
AST RECORD #......2,8,3,"DATA BASE,L,".G
(209).+....1,"P"G(3);G(1);G(0);G(1).:...
.2,LR: 2:..K.P.. QUICK SCAN.Y.Z..5000:."
..THERE ARE";LR;" NUMBERS STORES"....."
START AT #:";:.3,R......:.:." NAME ";.31
)"PHONE#"......"------------------------
--------------"......R.1.R.LR.10......2,
8,3,"DATA BASE,L,".G(209).!....I.R.1.LR.
1.:...H..(I.256):L.I.H.256.\....:.A,B:.1
,"P"G(3)G(L)G(H)G(A).F....2,N$......1,"P
"G(3)G(L)G(H)G(B)......2,P$......N$;.27)
;P$......I: 2.D....:. "PRESS RETURN:";A$
:.10...
> CLICK IMAGE PREVIEW FOR FULL MODAL