TOCH TONER
FILE INFORMATION
FILENAME(S): TOCH TONER
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 20:14:38
APPEARS ON: 1 disk(s)
FILE HASH
7926a2355ee7fbed865cb4d9669cc8df37c14a2d7f65de7353f45dbbecd70200
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BRUGER | TOCH TONER | PRG | Curtcool, LPN | 15 | 1 | 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 8A 08 64 00 83 20 53 4F 45 42 |$(50)...d.. SOEB|
00000080: 4F 52 47 2B 2C 39 31 38 33 32 00 A0 08 6E 00 83 |ORG+,91832...n..|
00000090: 20 53 4F 45 42 4F 52 47 53 51 2C 39 31 38 33 33 | SOEBORGSQ,91833|
000000A0: 00 B6 08 78 00 83 20 53 4F 45 42 4F 52 47 2C 39 |...x.. SOEBORG,9|
000000B0: 31 38 30 35 30 35 00 CD 08 82 00 83 20 54 4C 46 |180505...... TLF|
000000C0: 20 4B 4C 4F 4B 4B 45 4E 2C 30 30 35 35 00 E4 08 | KLOKKEN,0055...|
000000D0: 8C 00 83 20 50 4F 55 4C 20 41 53 43 2E 2C 33 30 |... POUL ASC.,30|
000000E0: 39 31 30 31 00 EE 08 DE 03 83 20 30 2C 30 00 08 |9101...... 0,0..|
000000F0: 09 E0 03 97 20 35 33 32 38 31 2C 31 35 3A 97 20 |.... 53281,15:. |
00000100: 35 33 32 38 30 2C 31 32 00 1B 09 E1 03 99 20 C7 |53280,12...... .|
00000110: 28 31 34 37 29 C7 28 31 35 31 29 00 23 09 E8 03 |(147).(151).#...|
00000120: 50 B2 31 00 35 09 F2 03 87 20 42 24 28 50 29 2C |P.1.5.... B$(P),|
00000130: 43 24 28 50 29 00 4C 09 FC 03 8B 20 42 24 28 50 |C$(P).L.... B$(P|
00000140: 29 B2 22 30 22 20 A7 20 31 30 34 30 00 5D 09 06 |)."0" . 1040.]..|
00000150: 04 50 B2 50 AA 31 3A 89 20 31 30 31 30 00 7E 09 |.P.P.1:. 1010.~.|
00000160: 10 04 50 4D B2 50 AB 31 3A 43 46 B2 31 2E 30 31 |..PM.P.1:CF.1.01|
00000170: 35 3A 4B B2 2E 30 35 39 36 30 34 36 34 35 00 99 |5:K..059604645..|
00000180: 09 1A 04 81 20 4E B2 30 20 A4 20 33 3A 87 20 46 |.... N.0 . 3:. F|
00000190: 3A 46 B2 46 AC 43 46 AD 4B 00 C0 09 24 04 52 48 |:F.F.CF.K...$.RH|
000001A0: 28 4E 29 B2 B5 28 46 AD 32 35 36 29 3A 52 4C 28 |(N)..(F.256):RL(|
000001B0: 4E 29 B2 46 AB 32 35 36 AC 52 48 28 4E 29 3A 82 |N).F.256.RH(N):.|
000001C0: 00 D6 09 2E 04 83 20 36 39 37 2C 37 37 30 2C 38 |...... 697,770,8|
000001D0: 35 32 2C 39 34 31 00 F1 09 38 04 81 20 4E B2 30 |52,941...8.. N.0|
000001E0: 20 A4 20 32 3A 87 20 46 3A 46 B2 46 AC 43 46 AD | . 2:. F:F.F.CF.|
000001F0: 4B 00 18 0A 42 04 43 48 28 4E 29 B2 B5 28 46 AD |K...B.CH(N)..(F.|
00000200: 32 35 36 29 3A 43 4C 28 4E 29 B2 46 AB 32 35 36 |256):CL(N).F.256|
00000210: AC 43 48 28 4E 29 3A 82 00 2D 0A 43 04 83 20 31 |.CH(N):..-.C.. 1|
00000220: 32 30 39 2C 31 33 33 36 2C 31 34 37 37 00 4D 0A |209,1336,1477.M.|
00000230: 44 04 56 31 B2 35 34 32 37 32 3A 56 32 B2 56 31 |D.V1.54272:V2.V1|
00000240: AA 37 3A 97 20 56 31 AA 32 34 2C 31 35 00 65 0A |.7:. V1.24,15.e.|
00000250: 45 04 97 20 56 31 AA 35 2C 30 3A 97 20 56 31 AA |E.. V1.5,0:. V1.|
00000260: 36 2C 32 34 30 00 7D 0A 46 04 97 20 56 32 AA 35 |6,240.}.F.. V2.5|
00000270: 2C 30 3A 97 20 56 32 AA 36 2C 32 34 30 00 85 0A |,0:. V2.6,240...|
00000280: 4C 04 50 B2 31 00 AC 0A 56 04 99 20 C7 28 31 34 |L.P.1...V.. .(14|
00000290: 37 29 22 4B 45 59 20 20 50 41 52 54 59 22 A3 32 |7)"KEY PARTY".2|
000002A0: 37 29 22 4E 55 4D 42 45 52 22 3A 99 00 C3 0A 60 |7)"NUMBER":....`|
000002B0: 04 8B 20 42 24 28 50 29 B2 22 30 22 20 A7 20 31 |.. B$(P)."0" . 1|
000002C0: 32 32 30 00 DE 0A 6A 04 99 20 50 3B A3 34 29 42 |220...j.. P;.4)B|
000002D0: 24 28 50 29 3B A3 32 33 29 43 24 28 50 29 00 E8 |$(P);.23)C$(P)..|
000002E0: 0A 74 04 50 B2 50 AA 31 00 0A 0B 7E 04 8B 20 28 |.t.P.P.1...~.. (|
000002F0: 50 AB 31 29 AD 31 38 B2 B5 28 28 50 AB 31 29 AD |P.1).18..((P.1).|
00000300: 31 38 29 20 A7 20 31 31 37 30 00 14 0B 88 04 89 |18) . 1170......|
00000310: 31 31 32 30 00 43 0B 92 04 99 3A 85 20 22 45 4E |1120.C....:. "EN|
00000320: 54 45 52 20 4B 45 59 20 4F 52 20 52 45 54 55 52 |TER KEY OR RETUR|
00000330: 4E 20 46 4F 52 20 4E 45 58 54 20 50 41 47 45 22 |N FOR NEXT PAGE"|
00000340: 3B 41 24 00 54 0B 9C 04 41 B2 C5 28 41 24 AA C7 |;A$.T...A..(A$..|
00000350: 28 30 29 29 00 65 0B A6 04 8B 20 41 B2 30 20 A7 |(0)).e.... A.0 .|
00000360: 20 31 31 31 30 00 8C 0B B0 04 8B 20 41 B1 50 4D | 1110...... A.PM|
00000370: 20 A7 20 99 22 54 52 59 20 41 47 41 49 4E 22 3A | . ."TRY AGAIN":|
00000380: 41 24 B2 22 22 3A 89 20 31 31 37 30 00 A1 0B BA |A$."":. 1170....|
00000390: 04 4E 42 24 B2 43 24 28 41 29 3A 89 20 31 32 37 |.NB$.C$(A):. 127|
000003A0: 30 00 C9 0B C4 04 99 3A 85 20 22 45 4E 54 45 52 |0......:. "ENTER|
000003B0: 20 4B 45 59 20 4F 52 20 52 45 54 55 52 4E 20 54 | KEY OR RETURN T|
000003C0: 4F 20 45 4E 44 22 3B 41 24 00 DA 0B CE 04 41 B2 |O END";A$.....A.|
000003D0: C5 28 41 24 AA C7 28 30 29 29 00 FA 0B D3 04 8B |.(A$..(0))......|
000003E0: 20 41 24 B2 22 52 22 20 A7 20 50 B2 31 3A 41 24 | A$."R" . P.1:A$|
000003F0: B2 22 22 3A 89 20 31 31 31 30 00 08 0C D8 04 8B |."":. 1110......|
00000400: 20 41 B2 30 20 A7 20 80 00 2F 0C E2 04 8B 20 41 | A.0 . ../.... A|
00000410: B1 50 4D 20 A7 20 99 22 54 52 59 20 41 47 41 49 |.PM . ."TRY AGAI|
00000420: 4E 22 3A 41 24 B2 22 22 3A 89 20 31 32 32 30 00 |N":A$."":. 1220.|
00000430: 3D 0C EC 04 4E 42 24 B2 43 24 28 41 29 00 50 0C |=...NB$.C$(A).P.|
00000440: F6 04 81 20 4A B2 31 20 A4 20 C3 28 4E 42 24 29 |... J.1 . .(NB$)|
00000450: 00 62 0C 00 05 4E 24 B2 CA 28 4E 42 24 2C 4A 2C |.b...N$..(NB$,J,|
00000460: 31 29 00 79 0C 0A 05 8B 20 4E 24 B2 22 30 22 20 |1).y.... N$."0" |
00000470: A7 20 4E 24 B2 22 31 31 22 00 90 0C 14 05 8B 20 |. N$."11"...... |
00000480: 4E 24 B2 22 2A 22 20 A7 20 4E 24 B2 22 31 30 22 |N$."*" . N$."10"|
00000490: 00 A7 0C 1E 05 8B 20 4E 24 B2 22 23 22 20 A7 20 |...... N$."#" . |
000004A0: 4E 24 B2 22 31 32 22 00 CF 0C 28 05 8B 20 4E 24 |N$."12"...(.. N$|
000004B0: B2 22 20 22 B0 4E 24 B2 22 2D 22 B0 4E 24 B2 22 |." ".N$."-".N$."|
000004C0: 28 22 B0 4E 24 B2 22 29 22 A7 20 31 34 31 30 00 |(".N$.")". 1410.|
000004D0: DE 0C 32 05 56 41 B2 C5 28 4E 24 29 AB 31 00 EA |..2.VA..(N$).1..|
000004E0: 0C 3C 05 52 25 B2 56 41 AD 33 00 F9 0C 46 05 43 |.<.R%.VA.3...F.C|
000004F0: 25 B2 56 41 AB 33 AC 52 25 00 17 0D 50 05 97 20 |%.VA.3.R%...P.. |
00000500: 56 31 AA 31 2C 52 48 28 52 25 29 3A 97 20 56 31 |V1.1,RH(R%):. V1|
00000510: 2C 52 4C 28 52 25 29 00 35 0D 5A 05 97 20 56 32 |,RL(R%).5.Z.. V2|
00000520: AA 31 2C 43 48 28 43 25 29 3A 97 20 56 32 2C 43 |.1,CH(C%):. V2,C|
00000530: 4C 28 43 25 29 00 4D 0D 64 05 97 20 56 31 AA 34 |L(C%).M.d.. V1.4|
00000540: 2C 31 37 3A 97 20 56 32 AA 34 2C 31 37 00 5F 0D |,17:. V2.4,17._.|
00000550: 6E 05 81 20 4E B2 31 20 A4 20 33 30 30 3A 82 00 |n.. N.1 . 300:..|
00000560: 75 0D 78 05 97 20 56 31 AA 34 2C 30 3A 97 20 56 |u.x.. V1.4,0:. V|
00000570: 32 AA 34 2C 30 00 8C 0D 82 05 82 3A 50 B2 31 3A |2.4,0......:P.1:|
00000580: 41 24 B2 22 22 3A 89 20 31 31 31 30 00 00 00 31 |A$."":. 1110...1|
....... TOUCH-TONE DIALER...... BY BOB H
UFFMAN.4...:.A.(.. TORONTO BBS NUMBERS B
Y RICHARD BRADLEY.U.2.. B$(50),C$(50)...
D.. SOEBORG+,91832. .N.. SOEBORGSQ,91833
...X.. SOEBORG,9180505.M.... TLF KLOKKEN
,0055...... POUL ASC.,309101...... 0,0..
.... 53281,15:. 53280,12...... G(147)G(1
51).#...P.1.5.... B$(P),C$(P).L.... B$(P
)."0" . 1040.]...P.P.1:. 1010.~...PM.P.1
:CF.1.015:K..059604645...... N.0 . 3:. F
:F.F.CF.K...$.RH(N)..(F.256):RL(N).F.256
.RH(N):..V.... 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.M.
D.V1.54272:V2.V1.7:. V1.24,15.E.E.. V1.5
,0:. V1.6,240.}.F.. V2.5,0:. V2.6,240...
L.P.1...V.. G(147)"KEY PARTY".27)"NUMBE
R":..C.`.. B$(P)."0" . 1220...J.. P;.4)B
$(P);.23)C$(P)...T.P.P.1...~.. (P.1).18.
.((P.1).18) . 1170......1120.C....:. "EN
TER KEY OR RETURN FOR NEXT PAGE";A$.T...
A.E(A$.G(0)).E.... A.0 . 1110...... A.PM
. ."TRY AGAIN":A$."":. 1170.....NB$.C$(
A):. 1270.I.D..:. "ENTER KEY OR RETURN T
O END";A$.Z.N.A.E(A$.G(0))...S.. A$."R"
. P.1:A$."":. 1110...X.. A.0 . ../.... A
.PM . ."TRY AGAIN":A$."":. 1220.=...NB$.
C$(A).P.... J.1 . C(NB$).B...N$.J(NB$,J,
1).Y.... N$."0" . N$."11"...... N$."*" .
N$."10"...... N$."#" . N$."12".O.(.. 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%).5.Z.. V2.1,CH(C%
):. V2,CL(C%).M.D.. V1.4,17:. V2.4,17._.
N.. N.1 . 300:..U.X.. V1.4,0:. V2.4,0...
...:P.1:A$."":. 1110...1
> CLICK IMAGE PREVIEW FOR FULL MODAL