PHONE FILES V1.2
FILE INFORMATION
FILENAME(S): PHONE FILES V1.2
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-12-01 02:25:33
APPEARS ON: 1 disk(s)
FILE HASH
37b79a5f21f8825a101458c7967249f83809f2c4740b723ae34d172f26337d82
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | PHONE FILES V1.2 | PRG | hedning, shine | 14 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 99 C7 28 31 34 32 29 3A 97 35 |........(142):.5|
00000010: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00000020: 3B 08 01 00 99 22 11 93 99 20 AF AF AF AF AF AF |;...."... ......|
00000030: AF AF AF AF AF AF AF AF AF AF 22 00 55 08 02 00 |..........".U...|
00000040: 99 22 CE A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |."..............|
00000050: A6 A6 CE B4 22 00 71 08 03 00 99 22 A5 20 98 D5 |....".q....". ..|
00000060: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 20 99 A7 A6 B4 |........... ....|
00000070: 22 00 8F 08 04 00 99 22 A5 98 20 C2 20 9C C3 B2 |"......".. . ...|
00000080: B2 C3 20 20 20 20 20 98 C2 20 99 AA A6 B4 22 00 |.. .. ....".|
00000090: BD 08 05 00 99 22 B4 20 98 C2 20 20 9C C2 C2 20 |.....". .. ... |
000000A0: 20 20 20 20 20 98 C2 20 99 A7 A6 B4 20 20 20 20 | .. .... |
000000B0: 20 20 1F 4D 4F 44 49 46 49 45 44 99 22 00 E8 08 | .MODIFIED."...|
000000C0: 06 00 99 22 B4 20 98 C2 20 20 9C C2 C2 20 20 20 |...". .. ... |
000000D0: 20 20 20 98 C2 20 99 A7 A6 B4 20 20 20 20 20 20 | .. .... |
000000E0: 20 20 20 9F 42 59 99 22 00 18 09 07 00 99 22 B4 | .BY."......".|
000000F0: 20 98 C2 20 9E 53 4F 46 54 57 41 52 45 20 98 C2 | .. .SOFTWARE ..|
00000100: 20 99 A7 A6 B4 20 20 20 20 05 4A 49 4D 20 54 55 | .... .JIM TU|
00000110: 56 45 52 53 4F 4E 99 22 00 49 09 08 00 99 22 B4 |VERSON.".I....".|
00000120: 20 98 C2 20 20 9C C2 C2 20 20 20 20 20 20 98 C2 | .. ... ..|
00000130: 20 99 A7 A6 B4 20 20 20 96 57 45 53 54 20 48 49 | .... .WEST HI|
00000140: 4C 4C 53 2C 20 43 41 99 22 00 68 09 09 00 99 22 |LLS, CA.".h...."|
00000150: B4 20 98 C2 20 9C CA CB C2 20 1D 9F 27 38 38 20 |. .. .... ..'88 |
00000160: 98 C2 20 99 A7 A6 B4 22 00 95 09 0A 00 99 22 B4 |.. ...."......".|
00000170: 20 98 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 20 99 | ............. .|
00000180: AA A6 B4 20 20 20 20 20 20 1C D5 C3 C3 C3 C3 C3 |... .......|
00000190: C3 C3 C9 99 22 00 C0 09 0B 00 99 22 CC AF AF AF |...."......"....|
000001A0: AF AF AF AF AF AF AF AF AF AF AF BA A6 B4 20 20 |.............. |
000001B0: 20 20 20 20 1C C2 43 45 4E 54 52 41 4C C2 99 22 | ..CENTRAL.."|
000001C0: 00 EF 09 0C 00 99 22 A5 1C 20 20 2E 20 20 20 2E |......".. . .|
000001D0: 20 20 20 2E 20 20 20 99 A7 A6 B4 20 20 20 20 20 | . .... |
000001E0: 1C 20 C2 20 9A D7 D7 D7 D7 D7 20 1C C2 99 22 00 |. . ...... ...".|
000001F0: 1E 0A 0D 00 99 22 A5 20 20 D7 20 20 20 D7 20 20 |.....". . . |
00000200: 20 D7 20 20 1C 3A 99 A7 A6 B4 20 20 20 20 20 1C | . .:.... .|
00000210: 20 C2 9A 20 D7 D7 D7 D7 D7 1C 20 C2 99 22 00 4B | .. ...... ..".K|
00000220: 0A 0E 00 99 22 CC AF AF AF AF AF AF AF AF AF AF |...."...........|
00000230: AF AF AF AF BA CE 20 20 20 20 20 20 1C 20 C2 96 |...... . ..|
00000240: 20 D7 D7 D7 D7 D7 1C 20 C2 99 22 00 78 0A 0F 00 | ...... ..".x...|
00000250: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000260: 20 20 20 20 20 20 20 20 20 1C 20 C2 96 20 D7 D7 | . .. ..|
00000270: D7 D7 D7 1C 20 C2 99 22 00 A5 0A 10 00 99 22 20 |.... .."......" |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 20 20 20 1C 20 C2 20 9B D1 D1 D1 D1 D1 | . . ......|
000002A0: 1C 20 C2 99 22 00 D1 0A 11 00 99 22 20 20 20 20 |. .."......" |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 1C 20 C2 43 4F 4E 54 52 4F 4C 1C C2 99 | . .CONTROL...|
000002D0: 22 00 FE 0A 12 00 99 22 9C 12 20 20 20 20 54 45 |"......".. TE|
000002E0: 4C 45 50 48 4F 4E 45 20 20 20 20 92 20 20 20 20 |LEPHONE . |
000002F0: 20 20 20 1C CA C3 C3 C3 C3 C3 C3 C3 CB 22 00 1A | .........."..|
00000300: 0B 13 00 99 22 9E 12 20 20 20 20 20 20 46 49 4C |....".. FIL|
00000310: 45 53 20 20 20 20 20 20 92 22 00 34 0B 14 00 99 |ES .".4....|
00000320: 22 99 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000330: A3 A3 A3 22 00 74 0B 15 00 41 24 B2 22 1E 48 45 |...".t...A$.".HE|
00000340: 52 45 27 53 20 4D 4F 52 45 2E 2E 05 54 55 56 45 |RE'S MORE...TUVE|
00000350: 52 53 4F 4E 99 53 4F 46 54 57 41 52 45 20 20 20 |RSON.SOFTWARE |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 2A 22 00 7C 0B 16 00 8D 32 33 00 8D 0B 17 | *".|....23....|
00000380: 00 81 47 B2 30 A4 31 3A 82 3A 58 B2 31 00 C4 0B |..G.0.1:.:X.1...|
00000390: 18 00 47 24 B2 CA 28 41 24 2C 58 2C 31 29 3A 8B |..G$..(A$,X,1):.|
000003A0: 47 24 B3 B1 22 2A 22 A7 99 A3 33 38 29 3B 47 24 |G$.."*"...38);G$|
000003B0: 3B 22 91 22 3A 58 B2 58 AA 31 3A 81 43 B2 31 A4 |;".":X.X.1:.C.1.|
000003C0: 35 30 3A 82 00 E2 0B 19 00 8B 47 24 B3 B1 22 2A |50:.......G$.."*|
000003D0: 22 A7 99 22 1D 22 C7 28 32 30 29 22 91 22 3A 89 |"..".".(20)".":.|
000003E0: 32 34 00 EA 0B 1A 00 89 32 37 00 16 0C 1B 00 99 |24......27......|
000003F0: 22 11 11 05 20 20 20 20 20 12 3C 54 4F 20 43 4F |"... .<TO CO|
00000400: 4E 54 49 4E 55 45 20 50 52 45 53 53 20 41 4E 59 |NTINUE PRESS ANY|
00000410: 20 4B 45 59 3E 22 00 37 0C 1C 00 97 31 39 38 2C | KEY>".7....198,|
00000420: 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 |0:.198,1:.A$:.A$|
00000430: B2 22 2A 22 A7 33 30 00 48 0C 1E 00 99 22 93 9E |."*".30.H...."..|
00000440: 22 3B C7 28 31 34 32 29 00 6C 0C 1F 00 99 22 11 |";.(142).l....".|
00000450: 11 20 20 20 20 54 48 45 20 9A 54 45 4C 45 50 48 |. THE .TELEPH|
00000460: 4F 4E 45 20 9E 4C 49 53 54 45 52 22 00 8D 0C 20 |ONE .LISTER"... |
00000470: 00 99 22 20 20 20 20 99 C5 C5 C5 C5 C5 C5 C5 C5 |.." .........|
00000480: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 00 B1 0C |............"...|
00000490: 28 00 99 22 05 20 12 50 48 4F 4E 45 20 4E 55 4D |(..". .PHONE NUM|
000004A0: 42 45 52 20 4D 41 4B 45 52 2F 4C 4F 41 44 45 52 |BER MAKER/LOADER|
000004B0: 22 00 CD 0C 29 00 99 22 11 11 9F 20 20 44 4F 20 |"...).."... DO |
000004C0: 59 4F 55 20 57 41 4E 54 20 54 4F 3A 22 00 F1 0C |YOU WANT TO:"...|
000004D0: 2D 00 99 22 11 96 20 20 20 20 20 20 12 31 92 20 |-..".. .1. |
000004E0: 4D 41 4B 45 20 41 20 50 48 4F 4E 45 20 46 49 4C |MAKE A PHONE FIL|
000004F0: 45 00 15 0D 32 00 99 22 11 99 20 20 20 20 20 20 |E...2..".. |
00000500: 12 32 92 20 52 45 41 44 20 41 20 50 48 4F 4E 45 |.2. READ A PHONE|
00000510: 20 46 49 4C 45 00 36 0D 37 00 99 22 11 9A 20 20 | FILE.6.7..".. |
00000520: 20 20 20 20 12 33 92 20 44 45 4C 45 54 45 20 41 | .3. DELETE A|
00000530: 20 46 49 4C 45 22 00 4E 0D 3C 00 99 22 11 9E 20 | FILE".N.<..".. |
00000540: 20 20 20 20 20 12 34 92 20 51 55 49 54 22 00 78 | .4. QUIT".x|
00000550: 0D 41 00 99 22 11 11 1C 20 20 50 52 45 53 53 3A |.A.."... PRESS:|
00000560: 20 20 12 31 92 2C 20 12 32 92 2C 20 12 33 92 2C | .1., .2., .3.,|
00000570: 20 4F 52 20 12 34 92 22 00 AC 0D 42 00 99 22 11 | OR .4."...B..".|
00000580: 11 98 4E 4F 54 45 3A 20 4F 52 49 47 49 4E 41 4C |..NOTE: ORIGINAL|
00000590: 20 12 50 47 4D 92 20 42 59 20 42 45 4E 53 20 55 | .PGM. BY BENS U|
000005A0: 2F 4C 20 31 32 2F 32 39 2F 38 37 22 00 D8 0D 46 |/L 12/29/87"...F|
000005B0: 00 A1 43 24 3A 8B 43 24 B3 B1 22 31 22 AF 43 24 |..C$:.C$.."1".C$|
000005C0: B3 B1 22 32 22 AF 43 24 B3 B1 22 33 22 AF 43 24 |.."2".C$.."3".C$|
000005D0: B3 B1 22 34 22 A7 37 30 00 E8 0D 4B 00 8B 43 24 |.."4".70...K..C$|
000005E0: B2 22 32 22 A7 32 33 30 00 F8 0D 50 00 8B 43 24 |."2".230...P..C$|
000005F0: B2 22 33 22 A7 33 31 30 00 08 0E 55 00 8B 43 24 |."3".310...U..C$|
00000600: B2 22 34 22 A7 33 34 35 00 3C 0E 5A 00 99 22 93 |."4".345.<.Z..".|
00000610: 11 11 99 12 54 59 50 45 20 54 48 45 20 4E 41 4D |....TYPE THE NAM|
00000620: 45 2C 20 50 48 4F 4E 45 20 41 4E 44 20 41 44 44 |E, PHONE AND ADD|
00000630: 52 45 53 53 20 41 54 20 20 20 20 22 00 6C 0E 5F |RESS AT ".l._|
00000640: 00 99 22 12 50 52 4F 4D 50 54 3B 20 48 49 54 20 |..".PROMPT; HIT |
00000650: 52 45 54 55 52 4E 20 49 46 20 4E 4F 20 49 4E 46 |RETURN IF NO INF|
00000660: 4F 52 4D 41 54 49 4F 4E 20 49 53 22 00 9C 0E 64 |ORMATION IS"...d|
00000670: 00 99 22 12 54 4F 20 42 45 20 45 4E 54 45 52 45 |..".TO BE ENTERE|
00000680: 44 20 49 4E 20 54 48 41 54 20 4C 49 4E 45 20 4F |D IN THAT LINE O|
00000690: 46 20 54 48 45 20 46 49 4C 45 2E 22 00 CB 0E 69 |F THE FILE."...i|
000006A0: 00 99 22 9E 11 4E 41 4D 45 20 4F 46 20 54 48 45 |.."..NAME OF THE|
000006B0: 20 46 49 4C 45 20 54 4F 20 4D 41 4B 45 20 41 4E | FILE TO MAKE AN|
000006C0: 44 20 12 53 41 56 45 92 3A 11 22 00 D3 0E 6E 00 |D .SAVE.:."...n.|
000006D0: 85 4E 24 00 ED 0E 73 00 9F 35 2C 38 2C 35 2C 22 |.N$...s..5,8,5,"|
000006E0: 30 3A 22 AA 4E 24 AA 22 2C 53 2C 57 22 00 0B 0F |0:".N$.",S,W"...|
000006F0: 78 00 99 22 11 11 4E 41 4D 45 20 4F 46 20 54 48 |x.."..NAME OF TH|
00000700: 45 20 50 45 52 53 4F 4E 3A 11 22 00 13 0F 7D 00 |E PERSON:."...}.|
00000710: 85 41 24 00 1D 0F 82 00 98 35 2C 41 24 00 27 0F |.A$......5,A$.'.|
00000720: 87 00 41 24 B2 22 22 00 4D 0F 8C 00 99 22 11 50 |..A$."".M....".P|
00000730: 48 4F 4E 45 20 4E 55 4D 42 45 52 20 57 49 54 48 |HONE NUMBER WITH|
00000740: 20 41 52 45 41 20 43 4F 44 45 3A 11 22 00 55 0F | AREA CODE:.".U.|
00000750: 91 00 85 41 24 00 5F 0F 96 00 98 35 2C 41 24 00 |...A$._....5,A$.|
00000760: 69 0F 9B 00 41 24 B2 22 22 00 82 0F A0 00 99 22 |i...A$.""......"|
00000770: 11 53 54 52 45 45 54 20 41 44 44 52 45 53 53 3A |.STREET ADDRESS:|
00000780: 11 22 00 8A 0F A5 00 85 41 24 00 94 0F AA 00 98 |."......A$......|
00000790: 35 2C 41 24 00 9E 0F AF 00 41 24 B2 22 22 00 C2 |5,A$.....A$.""..|
000007A0: 0F B4 00 99 22 11 43 49 54 59 2C 20 53 54 41 54 |....".CITY, STAT|
000007B0: 45 2C 20 41 4E 44 20 5A 49 50 20 43 4F 44 45 3A |E, AND ZIP CODE:|
000007C0: 11 22 00 CA 0F B9 00 85 41 24 00 D4 0F BE 00 98 |."......A$......|
000007D0: 35 2C 41 24 00 DE 0F C3 00 41 24 B2 22 22 00 08 |5,A$.....A$.""..|
000007E0: 10 C8 00 99 22 11 41 52 45 20 59 4F 55 20 54 48 |....".ARE YOU TH|
000007F0: 52 4F 55 47 48 20 41 44 44 49 4E 47 3F 20 12 59 |ROUGH ADDING? .Y|
00000800: 92 45 53 2F 12 4E 92 4F 00 25 10 CD 00 A1 59 24 |.ES/.N.O.%....Y$|
00000810: 3A 8B 59 24 B3 B1 22 59 22 AF 59 24 B3 B1 22 4E |:.Y$.."Y".Y$.."N|
00000820: 22 A7 32 30 35 00 35 10 D2 00 8B 59 24 B2 22 4E |".205.5....Y$."N|
00000830: 22 A7 31 32 30 00 42 10 D7 00 98 35 2C 22 45 4F |".120.B....5,"EO|
00000840: 46 22 00 49 10 DC 00 A0 35 00 4F 10 E1 00 8A 00 |F".I....5.O.....|
00000850: 7B 10 E6 00 99 22 05 11 20 20 50 52 49 4E 54 20 |{....".. PRINT |
00000860: 54 4F 20 12 53 92 43 52 45 45 4E 20 4F 52 20 12 |TO .S.CREEN OR .|
00000870: 50 92 52 49 4E 54 45 52 3F 22 3B 00 83 10 EB 00 |P.RINTER?";.....|
00000880: A1 53 24 00 9C 10 F0 00 8B 53 24 B3 B1 22 53 22 |.S$......S$.."S"|
00000890: AF 53 24 B3 B1 22 50 22 A7 32 33 35 00 AC 10 F5 |.S$.."P".235....|
000008A0: 00 8B 53 24 B2 22 50 22 A7 33 35 30 00 D4 10 FA |..S$."P".350....|
000008B0: 00 99 22 93 11 11 9F 4E 41 4D 45 20 4F 46 20 50 |.."....NAME OF P|
000008C0: 48 4F 4E 45 20 46 49 4C 45 20 54 4F 20 4C 4F 41 |HONE FILE TO LOA|
000008D0: 44 3A 11 22 00 DC 10 FF 00 85 4E 24 00 E6 10 00 |D:."......N$....|
000008E0: 01 99 22 05 11 22 00 00 11 04 01 9F 35 2C 38 2C |..".."......5,8,|
000008F0: 35 2C 22 30 3A 22 AA 4E 24 AA 22 2C 53 2C 52 22 |5,"0:".N$.",S,R"|
00000900: 00 0A 11 09 01 84 35 2C 4C 24 00 39 11 0E 01 8B |......5,L$.9....|
00000910: 4C 24 B2 22 45 4F 46 22 A7 99 22 11 9E 4E 4F 20 |L$."EOF".."..NO |
00000920: 4D 4F 52 45 20 4E 55 4D 42 45 52 53 20 49 4E 20 |MORE NUMBERS IN |
00000930: 46 49 4C 45 21 11 11 9C 22 00 4B 11 13 01 8B 4C |FILE!...".K....L|
00000940: 24 B2 22 45 4F 46 22 A7 32 39 30 00 53 11 18 01 |$."EOF".290.S...|
00000950: 99 4C 24 00 5C 11 1D 01 89 32 36 35 00 85 11 22 |.L$.\....265..."|
00000960: 01 99 22 98 50 52 45 53 53 20 54 48 45 20 12 53 |..".PRESS THE .S|
00000970: 50 41 43 45 1D 42 41 52 92 20 54 4F 20 43 4F 4E |PACE.BAR. TO CON|
00000980: 54 49 4E 55 45 00 8C 11 27 01 A0 33 00 A4 11 2C |TINUE...'..3...,|
00000990: 01 A1 57 57 24 3A 8B 57 57 24 B3 B1 22 20 22 A7 |..WW$:.WW$.." ".|
000009A0: 33 30 30 3A 00 AC 11 31 01 8D 33 30 00 D6 11 36 |300:...1..30...6|
000009B0: 01 99 22 93 11 11 11 11 96 4E 41 4D 45 20 4F 46 |.."......NAME OF|
000009C0: 20 54 48 45 20 46 49 4C 45 20 54 4F 20 44 45 4C | THE FILE TO DEL|
000009D0: 45 54 45 3A 11 22 00 DE 11 3B 01 85 46 24 00 FE |ETE:."...;..F$..|
000009E0: 11 40 01 99 22 11 41 52 45 20 59 4F 55 20 53 55 |.@..".ARE YOU SU|
000009F0: 52 45 20 12 59 92 45 53 2F 12 4E 92 4F 3F 00 1B |RE .Y.ES/.N.O?..|
00000A00: 12 45 01 A1 59 24 3A 8B 59 24 B3 B1 22 59 22 AF |.E..Y$:.Y$.."Y".|
00000A10: 59 24 B3 B1 22 4E 22 A7 33 32 35 00 29 12 4A 01 |Y$.."N".325.).J.|
00000A20: 8B 59 24 B2 22 4E 22 A7 8A 00 4E 12 4F 01 9F 31 |.Y$."N"...N.O..1|
00000A30: 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 3A 22 AA |5,8,15:.15,"S:".|
00000A40: 46 24 3A 98 31 35 2C 22 56 22 3A A0 31 35 00 54 |F$:.15,"V":.15.T|
00000A50: 12 54 01 8A 00 60 12 59 01 A0 35 3A A0 33 3A 80 |.T...`.Y..5:.3:.|
00000A60: 00 8C 12 5E 01 99 22 93 9E 11 11 11 11 4E 41 4D |...^.."......NAM|
00000A70: 45 20 4F 46 20 50 48 4F 4E 45 20 46 49 4C 45 20 |E OF PHONE FILE |
00000A80: 54 4F 20 4C 4F 41 44 3A 11 11 1F 22 00 95 12 63 |TO LOAD:..."...c|
00000A90: 01 9F 33 2C 34 00 9D 12 68 01 85 4E 24 00 B6 12 |..3,4...h..N$...|
00000AA0: 6D 01 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 4E 24 |m..5,8,5,"0:".N$|
00000AB0: AA 22 2C 53 2C 52 00 C0 12 72 01 84 35 2C 4C 24 |.",S,R...r..5,L$|
00000AC0: 00 FA 12 77 01 8B 4C 24 B2 22 45 4F 46 22 A7 99 |...w..L$."EOF"..|
00000AD0: 22 9E 11 11 4E 4F 20 4D 4F 52 45 20 50 48 4F 4E |"...NO MORE PHON|
00000AE0: 45 20 4E 55 4D 42 45 52 53 20 49 4E 20 54 48 49 |E NUMBERS IN THI|
00000AF0: 53 20 46 49 4C 45 21 11 11 22 00 0C 13 7C 01 8B |S FILE!.."...|..|
00000B00: 4C 24 B2 22 45 4F 46 22 A7 32 39 30 00 16 13 81 |L$."EOF".290....|
00000B10: 01 98 33 2C 4C 24 00 1F 13 86 01 89 33 37 30 00 |..3,L$......370.|
00000B20: 00 00 |.. |
.......G(142):.53280,0:.53281,0.;...."..
. ................".U...."N.............
..N.".Q....". .U..........I ...."......"
.. B .C..C .B ...."......". .B .BB
.B .... .MODIFIED."......". .B
.BB .B .... .BY."......".
.B .SOFTWARE .B .... .JIM TUVERSON."
.I....". .B .BB .B .... .WEST HI
LLS, CA.".H....". .B .JKB ..'88 .B ...."
......". .JCCCCCCCCCCK .... .UCCCCC
CCI."......"L................. .BCE
NTRALB."......".. . . . ....
. B .WWWWW .B."......". W W W .:..
.. . B. WWWWW. B.".K...."L..........
.....N . B. WWWWW. B.".X...."
. B. WWWWW. B."......"
. B .QQQQQ. B.".Q.
..." . BCONTROL.B.
"......".. TELEPHONE . .JCCC
CCCCK"......".. FILES .".4....
"..................".T...A$.".HERE'S MOR
E...TUVERSON.SOFTWARE
*".|....23......G.0.1:.:X.1.D...G$.J(A
$,X,1):.G$.."*"...38);G$;".":X.X.1:.C.1.
50:.......G$.."*".."."G(20)".":.24......
27......"... .<TO CONTINUE PRESS ANY
KEY>".7....198,0:.198,1:.A$:.A$."*".30.
H...."..";G(142).L....".. THE .TELEPH
ONE .LISTER"... .." .EEEEEEEEEEEEEEEE
EEEE"...(..". .PHONE NUMBER MAKER/LOADER
".M.).."... DO YOU WANT TO:"...-.."..
.1. MAKE A PHONE FILE...2.."..
.2. READ A PHONE FILE.6.7..".. .3.
DELETE A FILE".N.<..".. .4. QUIT".X
.A.."... PRESS: .1., .2., .3., OR .4."
...B.."...NOTE: ORIGINAL .PGM. BY BENS U
/L 12/29/87".X.F..C$:.C$.."1".C$.."2".C$
.."3".C$.."4".70...K..C$."2".230...P..C$
."3".310...U..C$."4".345.<.Z..".....TYPE
THE NAME, PHONE AND ADDRESS AT ".L._
..".PROMPT; HIT RETURN IF NO INFORMATION
IS"...D..".TO BE ENTERED IN THAT LINE O
F THE FILE.".K.I.."..NAME OF THE FILE TO
MAKE AND .SAVE.:.".S.N..N$...S..5,8,5,"
0:".N$.",S,W"...X.."..NAME OF THE PERSON
:."...}..A$......5,A$.'...A$."".M....".P
HONE NUMBER WITH AREA CODE:.".U....A$._.
...5,A$.I...A$.""... ..".STREET ADDRESS:
."......A$......5,A$.....A$."".B....".CI
TY, STATE, AND ZIP CODE:.".J....A$.T....
5,A$...C.A$.""...H..".ARE YOU THROUGH AD
DING? .Y.ES/.N.O.%.M..Y$:.Y$.."Y".Y$.."N
".205.5.R..Y$."N".120.B.W..5,"EOF".I...
5.O.....{....".. PRINT TO .S.CREEN OR .
P.RINTER?";......S$......S$.."S".S$.."P"
.235......S$."P".350.T...."....NAME OF P
HONE FILE TO LOAD:."......N$......".."..
....5,8,5,"0:".N$.",S,R"......5,L$.9....
L$."EOF".."..NO MORE NUMBERS IN FILE!...
".K....L$."EOF".290.S....L$.\....265..."
..".PRESS THE .SPACE.BAR. TO CONTINUE...
'. 3...,..WW$:.WW$.." ".300:...1..30.V.6
.."......NAME OF THE FILE TO DELETE:."..
.;..F$...@..".ARE YOU SURE .Y.ES/.N.O?..
.E..Y$:.Y$.."Y".Y$.."N".325.).J..Y$."N".
..N.O..15,8,15:.15,"S:".F$:.15,"V": 15.T
.T...`.Y. 5: 3:....^.."......NAME OF PHO
NE FILE TO LOAD:..."...C..3,4...H..N$...
M..5,8,5,"0:".N$.",S,R...R..5,L$...W..L$
."EOF".."...NO MORE PHONE NUMBERS IN THI
S FILE!.."...|..L$."EOF".290......3,L$..
....370...
> CLICK IMAGE PREVIEW FOR FULL MODAL