DIALER.C

FILE INFORMATION

FILENAME(S): DIALER.C

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-10-19 22:48:26

APPEARS ON: 1 disk(s)

FILE HASH

a0e344eb8c81c789770d0ea75f5d7fede2c5c783ba6a7df8238520eeceffb6f2

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
1541TEST DEMO	DIALER.C	PRG	Radd Maxx	23	9	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 89 08  64 00 83 20 54 50 55 47  |$(50)...d.. TPUG|
00000080: 2C 32 32 33 2D 32 36 32  35 00 9C 08 6E 00 83 20  |,223-2625...n.. |
00000090: 50 53 49 2C 36 32 34 2D  35 34 33 31 00 B2 08 78  |PSI,624-5431...x|
000000A0: 00 83 20 4E 4F 52 54 45  43 2C 34 38 37 2D 35 38  |.. NORTEC,487-58|
000000B0: 33 33 00 C6 08 82 00 83  20 43 46 54 52 2C 33 36  |33...... CFTR,36|
000000C0: 36 2D 32 30 36 39 00 D9  08 8C 00 83 20 52 54 43  |6-2069...... RTC|
000000D0: 2C 38 38 34 2D 34 31 36  35 00 E3 08 DE 03 83 20  |,884-4165...... |
000000E0: 30 2C 30 00 FD 08 E0 03  97 20 35 33 32 38 31 2C  |0,0...... 53281,|
000000F0: 31 35 3A 97 20 35 33 32  38 30 2C 31 32 00 10 09  |15:. 53280,12...|
00000100: E1 03 99 20 C7 28 31 34  37 29 C7 28 31 35 31 29  |... .(147).(151)|
00000110: 00 18 09 E8 03 50 B2 31  00 2A 09 F2 03 87 20 42  |.....P.1.*.... B|
00000120: 24 28 50 29 2C 43 24 28  50 29 00 41 09 FC 03 8B  |$(P),C$(P).A....|
00000130: 20 42 24 28 50 29 B2 22  30 22 20 A7 20 31 30 34  | B$(P)."0" . 104|
00000140: 30 00 52 09 06 04 50 B2  50 AA 31 3A 89 20 31 30  |0.R...P.P.1:. 10|
00000150: 31 30 00 72 09 10 04 50  4D B2 50 AB 31 3A 43 46  |10.r...PM.P.1:CF|
00000160: B2 2E 39 37 35 3A 4B B2  2E 30 35 39 36 30 34 36  |..975:K..0596046|
00000170: 34 35 00 8D 09 1A 04 81  20 4E B2 30 20 A4 20 33  |45...... N.0 . 3|
00000180: 3A 87 20 46 3A 46 B2 46  AC 43 46 AD 4B 00 B4 09  |:. F:F.F.CF.K...|
00000190: 24 04 52 48 28 4E 29 B2  B5 28 46 AD 32 35 36 29  |$.RH(N)..(F.256)|
000001A0: 3A 52 4C 28 4E 29 B2 46  AB 32 35 36 AC 52 48 28  |:RL(N).F.256.RH(|
000001B0: 4E 29 3A 82 00 CA 09 2E  04 83 20 36 39 37 2C 37  |N):....... 697,7|
000001C0: 37 30 2C 38 35 32 2C 39  34 31 00 E5 09 38 04 81  |70,852,941...8..|
000001D0: 20 4E B2 30 20 A4 20 32  3A 87 20 46 3A 46 B2 46  | N.0 . 2:. F:F.F|
000001E0: AC 43 46 AD 4B 00 0C 0A  42 04 43 48 28 4E 29 B2  |.CF.K...B.CH(N).|
000001F0: B5 28 46 AD 32 35 36 29  3A 43 4C 2A 4E 29 B2 46  |.(F.256):CL*N).F|
00000200: AB 32 35 36 AC 43 48 28  4E 29 3A 82 00 21 0A 43  |.256.CH(N):..!.C|
00000210: 04 83 20 31 32 30 39 2C  31 33 33 36 2C 31 34 37  |.. 1209,1336,147|
00000220: 37 00 41 0A 44 04 56 31  B2 35 34 32 37 32 3A 56  |7.A.D.V1.54272:V|
00000230: 32 B2 56 31 AA 37 3A 97  20 56 31 AA 32 34 2C 31  |2.V1.7:. V1.24,1|
00000240: 35 00 59 0A 45 04 97 20  56 31 AA 35 2C 30 3A 97  |5.Y.E.. V1.5,0:.|
00000250: 20 56 31 AA 36 2C 32 34  30 00 71 0A 46 04 97 20  | V1.6,240.q.F.. |
00000260: 56 32 AA 35 2C 30 3A 97  20 56 32 AA 36 2C 32 34  |V2.5,0:. V2.6,24|
00000270: 30 00 79 0A 4C 04 50 B2  31 00 A0 0A 56 04 99 20  |0.y.L.P.1...V.. |
00000280: C7 28 31 34 37 29 22 4B  45 59 20 20 50 41 52 54  |.(147)"KEY  PART|
00000290: 59 22 A3 32 37 29 22 4E  55 4D 42 45 52 22 3A 99  |Y".27)"NUMBER":.|
000002A0: 00 B7 0A 60 04 8B 20 42  24 28 50 29 B2 22 30 22  |...`.. B$(P)."0"|
000002B0: 20 A7 20 31 32 32 30 00  D2 0A 6A 04 99 20 50 3B  | . 1220...j.. P;|
000002C0: A3 34 29 42 24 28 50 29  3B A3 32 33 29 43 24 28  |.4)B$(P);.23)C$(|
000002D0: 50 29 00 DC 0A 74 04 50  B2 50 AA 31 00 FE 0A 7E  |P)...t.P.P.1...~|
000002E0: 04 8B 20 28 50 AB 31 29  AD 31 38 B2 B5 28 28 50  |.. (P.1).18..((P|
000002F0: AB 31 29 AD 31 38 29 20  A7 20 31 31 37 30 00 08  |.1).18) . 1170..|
00000300: 0B 88 04 89 31 31 32 30  00 37 0B 92 04 99 3A 85  |....1120.7....:.|
00000310: 20 22 45 4E 54 45 52 20  4B 45 59 20 4F 52 20 52  | "ENTER KEY OR R|
00000320: 45 54 55 52 4E 20 46 4F  52 20 4E 45 58 54 20 50  |ETURN FOR NEXT P|
00000330: 41 47 45 22 3B 41 24 00  48 0B 9C 04 41 B2 C5 28  |AGE";A$.H...A..(|
00000340: 41 24 AA C7 28 30 29 29  00 59 0B A6 04 8B 20 41  |A$..(0)).Y.... A|
00000350: B2 30 20 A7 20 31 31 31  30 00 80 0B B0 04 8B 20  |.0 . 1110...... |
00000360: 41 B1 50 4D 20 A7 20 99  22 54 52 59 20 41 47 41  |A.PM . ."TRY AGA|
00000370: 49 4E 22 3A 41 24 B2 22  22 3A 89 20 31 31 37 30  |IN":A$."":. 1170|
00000380: 00 95 0B BA 04 4E 42 24  B2 43 24 28 41 29 3A 89  |.....NB$.C$(A):.|
00000390: 20 31 32 37 30 00 BD 0B  C4 04 99 3A 85 20 22 45  | 1270......:. "E|
000003A0: 4E 54 45 52 20 4B 45 59  20 4F 52 20 52 45 54 55  |NTER KEY OR RETU|
000003B0: 52 4E 20 54 4F 20 45 4E  44 22 3B 41 24 00 CE 0B  |RN TO END";A$...|
000003C0: CE 04 41 B2 C5 28 41 24  AA C7 28 30 29 29 00 EE  |..A..(A$..(0))..|
000003D0: 0B D3 04 8B 20 41 24 B2  22 52 22 20 A7 20 50 B2  |.... A$."R" . P.|
000003E0: 31 3A 41 24 B2 22 22 3A  89 20 31 31 31 30 00 FC  |1:A$."":. 1110..|
000003F0: 0B D8 04 8B 20 41 B2 30  20 A7 20 80 00 23 0C E2  |.... A.0 . ..#..|
00000400: 04 8B 20 41 B1 50 4D 20  A7 20 99 22 54 52 59 20  |.. A.PM . ."TRY |
00000410: 41 47 41 49 4E 22 3A 41  24 B2 22 22 3A 89 20 31  |AGAIN":A$."":. 1|
00000420: 32 32 30 00 31 0C EC 04  4E 42 24 B2 43 24 28 41  |220.1...NB$.C$(A|
00000430: 29 00 44 0C F6 04 81 20  4A B2 31 20 A4 20 C3 28  |).D.... J.1 . .(|
00000440: 4E 42 24 29 00 56 0C 00  05 4E 24 B2 CA 28 4E 42  |NB$).V...N$..(NB|
00000450: 24 2C 4A 2C 31 29 00 6D  0C 0A 05 8B 20 4E 24 B2  |$,J,1).m.... N$.|
00000460: 22 30 22 20 A7 20 4E 24  B2 22 31 31 22 00 84 0C  |"0" . N$."11"...|
00000470: 14 05 8B 20 4E 24 B2 22  2A 22 20 A7 20 4E 24 B2  |... N$."*" . N$.|
00000480: 22 31 30 22 00 9B 0C 1E  05 8B 20 4E 24 B2 22 23  |"10"...... N$."#|
00000490: 22 20 A7 20 4E 24 B2 22  31 32 22 00 C3 0C 28 05  |" . N$."12"...(.|
000004A0: 8B 20 4E 24 B2 22 20 22  B0 4E 24 B2 22 2D 22 B0  |. N$." ".N$."-".|
000004B0: 4E 24 B2 22 28 22 B0 4E  24 B2 22 29 22 A7 20 31  |N$."(".N$.")". 1|
000004C0: 34 31 30 00 D2 0C 32 05  56 41 B2 C5 28 4E 24 29  |410...2.VA..(N$)|
000004D0: AB 31 00 DE 0C 3C 05 52  25 B2 56 41 AD 33 00 ED  |.1...<.R%.VA.3..|
000004E0: 0C 46 05 43 25 B2 56 41  AB 33 AC 52 25 00 0B 0D  |.F.C%.VA.3.R%...|
000004F0: 50 05 97 20 56 31 AA 31  2C 52 48 28 52 25 29 3A  |P.. V1.1,RH(R%):|
00000500: 97 20 56 31 2C 52 4C 28  52 25 29 00 29 0D 5A 05  |. V1,RL(R%).).Z.|
00000510: 97 20 56 32 AA 31 2C 43  48 28 43 25 29 3A 97 20  |. V2.1,CH(C%):. |
00000520: 56 32 2C 43 4C 28 43 25  29 00 41 0D 64 05 97 20  |V2,CL(C%).A.d.. |
00000530: 56 31 AA 34 2C 31 37 3A  97 20 56 32 AA 34 2C 31  |V1.4,17:. V2.4,1|
00000540: 37 00 53 0D 6E 05 81 20  4E B2 31 20 A4 20 31 30  |7.S.n.. N.1 . 10|
00000550: 30 3A 82 00 69 0D 78 05  97 20 56 31 AA 34 2C 30  |0:..i.x.. V1.4,0|
00000560: 3A 97 20 56 32 AA 34 2C  30 00 80 0D 82 05 82 3A  |:. V2.4,0......:|
00000570: 50 B2 31 3A 41 24 B2 22  22 3A 89 20 31 31 31 30  |P.1:A$."":. 1110|
00000580: 00 00 00                                          |...             |

....... TOUCH-TONE DIALER...... BY BOB H
UFFMAN.4...:.A.(.. TORONTO BBS NUMBERS B
Y RICHARD BRADLEY.U.2.. B$(50),C$(50)...
D.. TPUG,223-2625...N.. PSI,624-5431...X
.. NORTEC,487-5833.F.... CFTR,366-2069.Y
.... RTC,884-4165...... 0,0...... 53281,
15:. 53280,12...... G(147)G(151).....P.1
.*.... B$(P),C$(P).A.... B$(P)."0" . 104
0.R...P.P.1:. 1010.R...PM.P.1:CF..975:K.
.059604645...... N.0 . 3:. F:F.F.CF.K...
$.RH(N)..(F.256):RL(N).F.256.RH(N):..J..
.. 697,770,852,941...8.. N.0 . 2:. F:F.F
.CF.K...B.CH(N)..(F.256):CL*N).F.256.CH(
N):..!.C.. 1209,1336,1477.A.D.V1.54272:V
2.V1.7:. V1.24,15.Y.E.. V1.5,0:. V1.6,24
0.Q.F.. V2.5,0:. V2.6,240.Y.L.P.1. .V.. 
G(147)"KEY  PARTY".27)"NUMBER":....`.. B
$(P)."0" . 1220.R.J.. P;.4)B$(P);.23)C$(
P)...T.P.P.1...~.. (P.1).18..((P.1).18) 
. 1170......1120.7....:. "ENTER KEY OR R
ETURN FOR NEXT PAGE";A$.H...A.E(A$.G(0))
.Y.... A.0 . 1110...... A.PM . ."TRY AGA
IN":A$."":. 1170.....NB$.C$(A):. 1270...
D..:. "ENTER KEY OR RETURN TO END";A$.N.
N.A.E(A$.G(0))...S.. A$."R" . P.1:A$."":
. 1110...X.. A.0 . ..#.... A.PM . ."TRY 
AGAIN":A$."":. 1220.1...NB$.C$(A).D.... 
J.1 . C(NB$).V...N$.J(NB$,J,1).M.... N$.
"0" . N$."11"...... N$."*" . N$."10"....
.. N$."#" . N$."12".C.(.. N$." ".N$."-".
N$."(".N$.")". 1410.R.2.VA.E(N$).1...<.R
%.VA.3...F.C%.VA.3.R%...P.. V1.1,RH(R%):
. V1,RL(R%).).Z.. V2.1,CH(C%):. V2,CL(C%
).A.D.. V1.4,17:. V2.4,17.S.N.. N.1 . 10
0:..I.X.. V1.4,0:. V2.4,0......:P.1:A$."
":. 1110...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL