TOUCH TONE DIAL
FILE INFORMATION
FILENAME(S): TOUCH TONE DIAL
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-01 13:47:46
APPEARS ON: 1 disk(s)
FILE HASH
2ad25605a5f864b30642c7907a447bade4c0a897e819c59a230b6393831a5825
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISC 036 | TOUCH TONE DIAL | PRG | hedning, Zeta | 35 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 8F 20 54 4F 55 43 48 2D 54 4F |....... TOUCH-TO|
00000010: 4E 45 20 44 49 41 4C 45 52 00 2E 08 14 00 8F 20 |NE DIALER...... |
00000020: 42 59 20 42 4F 42 20 48 55 46 46 4D 41 4E 00 34 |BY BOB HUFFMAN.4|
00000030: 08 1E 00 3A 00 61 08 28 00 8F 20 54 4F 52 4F 4E |...:.a.(.. TORON|
00000040: 54 4F 20 42 42 53 20 4E 55 4D 42 45 52 53 20 42 |TO BBS NUMBERS B|
00000050: 59 20 52 49 43 48 41 52 44 20 42 52 41 44 4C 45 |Y RICHARD BRADLE|
00000060: 59 00 75 08 32 00 86 20 42 24 28 35 30 29 2C 43 |Y.u.2.. B$(50),C|
00000070: 24 28 35 30 29 00 8C 08 64 00 83 20 54 45 4C 45 |$(50)...d.. TELE|
00000080: 50 48 4F 4E 45 2C 37 38 31 39 34 35 00 A3 08 82 |PHONE,781945....|
00000090: 00 83 20 54 45 4C 45 50 48 4F 4E 45 2C 37 38 32 |.. TELEPHONE,782|
000000A0: 39 35 32 00 BA 08 8C 00 83 20 54 45 4C 45 50 48 |952...... TELEPH|
000000B0: 4F 4E 45 2C 34 39 37 34 31 30 00 D1 08 96 00 83 |ONE,497410......|
000000C0: 20 54 45 4C 45 50 48 4F 4E 45 2C 37 38 32 30 32 | TELEPHONE,78202|
000000D0: 31 00 E8 08 B4 00 83 20 54 45 4C 45 50 48 4F 4E |1...... TELEPHON|
000000E0: 45 2C 30 30 30 30 30 30 00 FF 08 BE 00 83 20 54 |E,000000...... T|
000000F0: 45 4C 45 50 48 4F 4E 45 2C 30 30 30 30 30 30 00 |ELEPHONE,000000.|
00000100: 16 09 C8 00 83 20 54 45 4C 45 50 48 4F 4E 45 2C |..... TELEPHONE,|
00000110: 30 30 30 30 30 30 00 2D 09 D2 00 83 20 54 45 4C |000000.-.... TEL|
00000120: 45 50 48 4F 4E 45 2C 30 30 30 30 30 30 00 44 09 |EPHONE,000000.D.|
00000130: DC 00 83 20 54 45 4C 45 50 48 4F 4E 45 2C 30 30 |... TELEPHONE,00|
00000140: 30 30 30 30 00 5B 09 E6 00 83 20 54 45 4C 45 50 |0000.[.... TELEP|
00000150: 48 4F 4E 45 2C 30 30 30 30 30 30 00 72 09 F0 00 |HONE,000000.r...|
00000160: 83 20 54 45 4C 45 50 48 4F 4E 45 2C 30 30 30 30 |. TELEPHONE,0000|
00000170: 30 30 00 7C 09 DE 03 83 20 30 2C 30 00 96 09 E0 |00.|.... 0,0....|
00000180: 03 97 20 35 33 32 38 31 2C 31 35 3A 97 20 35 33 |.. 53281,15:. 53|
00000190: 32 38 30 2C 31 32 00 A9 09 E1 03 99 20 C7 28 31 |280,12...... .(1|
000001A0: 34 37 29 C7 28 31 35 31 29 00 B1 09 E8 03 50 B2 |47).(151).....P.|
000001B0: 31 00 C3 09 F2 03 87 20 42 24 28 50 29 2C 43 24 |1...... B$(P),C$|
000001C0: 28 50 29 00 DA 09 FC 03 8B 20 42 24 28 50 29 B2 |(P)...... B$(P).|
000001D0: 22 30 22 20 A7 20 31 30 34 30 00 EB 09 06 04 50 |"0" . 1040.....P|
000001E0: B2 50 AA 31 3A 89 20 31 30 31 30 00 20 0A 10 04 |.P.1:. 1010. ...|
000001F0: 50 4D B2 50 AB 31 3A 43 46 B2 31 2E 30 31 35 3A |PM.P.1:CF.1.015:|
00000200: 4B B2 2E 30 35 39 36 30 34 36 34 35 3A 8F 20 41 |K..059604645:. A|
00000210: 52 4D 45 52 49 4B 41 20 43 46 3D 30 2E 39 37 35 |RMERIKA CF=0.975|
00000220: 00 3B 0A 1A 04 81 20 4E B2 30 20 A4 20 33 3A 87 |.;.... N.0 . 3:.|
00000230: 20 46 3A 46 B2 46 AC 43 46 AD 4B 00 62 0A 24 04 | F:F.F.CF.K.b.$.|
00000240: 52 48 28 4E 29 B2 B5 28 46 AD 32 35 36 29 3A 52 |RH(N)..(F.256):R|
00000250: 4C 28 4E 29 B2 46 AB 32 35 36 AC 52 48 28 4E 29 |L(N).F.256.RH(N)|
00000260: 3A 82 00 78 0A 2E 04 83 20 36 39 37 2C 37 37 30 |:..x.... 697,770|
00000270: 2C 38 35 32 2C 39 34 31 00 93 0A 38 04 81 20 4E |,852,941...8.. N|
00000280: B2 30 20 A4 20 32 3A 87 20 46 3A 46 B2 46 AC 43 |.0 . 2:. F:F.F.C|
00000290: 46 AD 4B 00 BA 0A 42 04 43 48 28 4E 29 B2 B5 28 |F.K...B.CH(N)..(|
000002A0: 46 AD 32 35 36 29 3A 43 4C 28 4E 29 B2 46 AB 32 |F.256):CL(N).F.2|
000002B0: 35 36 AC 43 48 28 4E 29 3A 82 00 CF 0A 43 04 83 |56.CH(N):....C..|
000002C0: 20 31 32 30 39 2C 31 33 33 36 2C 31 34 37 37 00 | 1209,1336,1477.|
000002D0: EF 0A 44 04 56 31 B2 35 34 32 37 32 3A 56 32 B2 |..D.V1.54272:V2.|
000002E0: 56 31 AA 37 3A 97 20 56 31 AA 32 34 2C 31 35 00 |V1.7:. V1.24,15.|
000002F0: 07 0B 45 04 97 20 56 31 AA 35 2C 30 3A 97 20 56 |..E.. V1.5,0:. V|
00000300: 31 AA 36 2C 32 34 30 00 1F 0B 46 04 97 20 56 32 |1.6,240...F.. V2|
00000310: AA 35 2C 30 3A 97 20 56 32 AA 36 2C 32 34 30 00 |.5,0:. V2.6,240.|
00000320: 27 0B 4C 04 50 B2 31 00 4E 0B 56 04 99 20 C7 28 |'.L.P.1.N.V.. .(|
00000330: 31 34 37 29 22 4B 45 59 20 20 50 41 52 54 59 22 |147)"KEY PARTY"|
00000340: A3 32 37 29 22 4E 55 4D 42 45 52 22 3A 99 00 65 |.27)"NUMBER":..e|
00000350: 0B 60 04 8B 20 42 24 28 50 29 B2 22 30 22 20 A7 |.`.. B$(P)."0" .|
00000360: 20 31 32 32 30 00 80 0B 6A 04 99 20 50 3B A3 34 | 1220...j.. P;.4|
00000370: 29 42 24 28 50 29 3B A3 32 33 29 43 24 28 50 29 |)B$(P);.23)C$(P)|
00000380: 00 8A 0B 74 04 50 B2 50 AA 31 00 AC 0B 7E 04 8B |...t.P.P.1...~..|
00000390: 20 28 50 AB 31 29 AD 31 38 B2 B5 28 28 50 AB 31 | (P.1).18..((P.1|
000003A0: 29 AD 31 38 29 20 A7 20 31 31 37 30 00 B6 0B 88 |).18) . 1170....|
000003B0: 04 89 31 31 32 30 00 E5 0B 92 04 99 3A 85 20 22 |..1120......:. "|
000003C0: 45 4E 54 45 52 20 4B 45 59 20 4F 52 20 52 45 54 |ENTER KEY OR RET|
000003D0: 55 52 4E 20 46 4F 52 20 4E 45 58 54 20 50 41 47 |URN FOR NEXT PAG|
000003E0: 45 22 3B 41 24 00 F6 0B 9C 04 41 B2 C5 28 41 24 |E";A$.....A..(A$|
000003F0: AA C7 28 30 29 29 00 07 0C A6 04 8B 20 41 B2 30 |..(0))...... A.0|
00000400: 20 A7 20 31 31 31 30 00 2E 0C B0 04 8B 20 41 B1 | . 1110...... A.|
00000410: 50 4D 20 A7 20 99 22 54 52 59 20 41 47 41 49 4E |PM . ."TRY AGAIN|
00000420: 22 3A 41 24 B2 22 22 3A 89 20 31 31 37 30 00 43 |":A$."":. 1170.C|
00000430: 0C BA 04 4E 42 24 B2 43 24 28 41 29 3A 89 20 31 |...NB$.C$(A):. 1|
00000440: 32 37 30 00 6B 0C C4 04 99 3A 85 20 22 45 4E 54 |270.k....:. "ENT|
00000450: 45 52 20 4B 45 59 20 4F 52 20 52 45 54 55 52 4E |ER KEY OR RETURN|
00000460: 20 54 4F 20 45 4E 44 22 3B 41 24 00 7C 0C CE 04 | TO END";A$.|...|
00000470: 41 B2 C5 28 41 24 AA C7 28 30 29 29 00 9C 0C D3 |A..(A$..(0))....|
00000480: 04 8B 20 41 24 B2 22 52 22 20 A7 20 50 B2 31 3A |.. A$."R" . P.1:|
00000490: 41 24 B2 22 22 3A 89 20 31 31 31 30 00 AA 0C D8 |A$."":. 1110....|
000004A0: 04 8B 20 41 B2 30 20 A7 20 80 00 D1 0C E2 04 8B |.. A.0 . .......|
000004B0: 20 41 B1 50 4D 20 A7 20 99 22 54 52 59 20 41 47 | A.PM . ."TRY AG|
000004C0: 41 49 4E 22 3A 41 24 B2 22 22 3A 89 20 31 32 32 |AIN":A$."":. 122|
000004D0: 30 00 DF 0C EC 04 4E 42 24 B2 43 24 28 41 29 00 |0.....NB$.C$(A).|
000004E0: F2 0C F6 04 81 20 4A B2 31 20 A4 20 C3 28 4E 42 |..... J.1 . .(NB|
000004F0: 24 29 00 04 0D 00 05 4E 24 B2 CA 28 4E 42 24 2C |$).....N$..(NB$,|
00000500: 4A 2C 31 29 00 1B 0D 0A 05 8B 20 4E 24 B2 22 30 |J,1)...... N$."0|
00000510: 22 20 A7 20 4E 24 B2 22 31 31 22 00 32 0D 14 05 |" . N$."11".2...|
00000520: 8B 20 4E 24 B2 22 2A 22 20 A7 20 4E 24 B2 22 31 |. N$."*" . N$."1|
00000530: 30 22 00 49 0D 1E 05 8B 20 4E 24 B2 22 23 22 20 |0".I.... N$."#" |
00000540: A7 20 4E 24 B2 22 31 32 22 00 71 0D 28 05 8B 20 |. N$."12".q.(.. |
00000550: 4E 24 B2 22 20 22 B0 4E 24 B2 22 2D 22 B0 4E 24 |N$." ".N$."-".N$|
00000560: B2 22 28 22 B0 4E 24 B2 22 29 22 A7 20 31 34 31 |."(".N$.")". 141|
00000570: 30 00 80 0D 32 05 56 41 B2 C5 28 4E 24 29 AB 31 |0...2.VA..(N$).1|
00000580: 00 8C 0D 3C 05 52 25 B2 56 41 AD 33 00 9B 0D 46 |...<.R%.VA.3...F|
00000590: 05 43 25 B2 56 41 AB 33 AC 52 25 00 B9 0D 50 05 |.C%.VA.3.R%...P.|
000005A0: 97 20 56 31 AA 31 2C 52 48 28 52 25 29 3A 97 20 |. V1.1,RH(R%):. |
000005B0: 56 31 2C 52 4C 28 52 25 29 00 D7 0D 5A 05 97 20 |V1,RL(R%)...Z.. |
000005C0: 56 32 AA 31 2C 43 48 28 43 25 29 3A 97 20 56 32 |V2.1,CH(C%):. V2|
000005D0: 2C 43 4C 28 43 25 29 00 EF 0D 64 05 97 20 56 31 |,CL(C%)...d.. V1|
000005E0: AA 34 2C 31 37 3A 97 20 56 32 AA 34 2C 31 37 00 |.4,17:. V2.4,17.|
000005F0: 01 0E 6E 05 81 20 4E B2 31 20 A4 20 31 30 30 3A |..n.. N.1 . 100:|
00000600: 82 00 17 0E 78 05 97 20 56 31 AA 34 2C 30 3A 97 |....x.. V1.4,0:.|
00000610: 20 56 32 AA 34 2C 30 00 2E 0E 82 05 82 3A 50 B2 | V2.4,0......:P.|
00000620: 31 3A 41 24 B2 22 22 3A 89 20 31 31 31 30 00 00 |1:A$."":. 1110..|
00000630: 00 FF 56 80 00 00 FF 20 FF |..V.... . |
....... TOUCH-TONE DIALER...... BY BOB H
UFFMAN.4...:.A.(.. TORONTO BBS NUMBERS B
Y RICHARD BRADLEY.U.2.. B$(50),C$(50)...
D.. TELEPHONE,781945...... TELEPHONE,782
952...... TELEPHONE,497410.Q.... TELEPHO
NE,782021...... TELEPHONE,000000...... T
ELEPHONE,000000...H.. TELEPHONE,000000.-
.R.. TELEPHONE,000000.D.... TELEPHONE,00
0000.[.... TELEPHONE,000000.R.... TELEPH
ONE,000000.|.... 0,0...... 53281,15:. 53
280,12...... G(147)G(151).....P.1.C....
B$(P),C$(P).Z.... B$(P)."0" . 1040.....P
.P.1:. 1010. ...PM.P.1:CF.1.015:K..05960
4645:. ARMERIKA CF=0.975.;.... N.0 . 3:.
F:F.F.CF.K.B.$.RH(N)..(F.256):RL(N).F.2
56.RH(N):..X.... 697,770,852,941...8.. N
.0 . 2:. F:F.F.CF.K...B.CH(N)..(F.256):C
L(N).F.256.CH(N):..O.C.. 1209,1336,1477.
..D.V1.54272:V2.V1.7:. V1.24,15...E.. V1
.5,0:. V1.6,240...F.. V2.5,0:. V2.6,240.
'.L.P.1.N.V.. G(147)"KEY PARTY".27)"NUM
BER":..E.`.. B$(P)."0" . 1220...J.. P;.4
)B$(P);.23)C$(P)...T.P.P.1...~.. (P.1).1
8..((P.1).18) . 1170......1120......:. "
ENTER KEY OR RETURN FOR NEXT PAGE";A$...
..A.E(A$.G(0))...... A.0 . 1110...... A.
PM . ."TRY AGAIN":A$."":. 1170.C...NB$.C
$(A):. 1270.K.D..:. "ENTER KEY OR RETURN
TO END";A$.|.N.A.E(A$.G(0))...S.. A$."R
" . P.1:A$."":. 1110...X.. A.0 . ..Q....
A.PM . ."TRY AGAIN":A$."":. 1220.....NB
$.C$(A)...... J.1 . C(NB$).....N$.J(NB$,
J,1)...... N$."0" . N$."11".2.... N$."*"
. N$."10".I.... N$."#" . N$."12".Q.(..
N$." ".N$."-".N$."(".N$.")". 1410...2.VA
.E(N$).1...<.R%.VA.3...F.C%.VA.3.R%...P.
. V1.1,RH(R%):. V1,RL(R%).W.Z.. V2.1,CH(
C%):. V2,CL(C%)...D.. V1.4,17:. V2.4,17.
..N.. N.1 . 100:....X.. V1.4,0:. V2.4,0.
.....:P.1:A$."":. 1110....V.... .
> CLICK IMAGE PREVIEW FOR FULL MODAL