Multiple names: CODEPHONE (L), CODEPHONE
FILE INFORMATION
FILENAME(S):
• CODEPHONE (L)<br>• CODEPHONE
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-12-01 01:06:20
APPEARS ON: 2 disk(s)
FILE HASH
4052dd0c965092bc8ac3afd8c09860feba21b6cc30eab17c0e6ffdfc0a1e05e8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NYTTOPROGRAM 1 | CODEPHONE (L) | PRG | hedning, groth | 17 | 0 | DOWNLOAD FILE |
| STANDARD BASIC 1 | CODEPHONE | PRG | hedning, groth | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 04 00 97 37 37 34 2C 31 33 31 00 31 |.......774,131.1|
00000010: 08 64 00 99 22 93 11 11 11 11 11 11 11 11 11 11 |.d.."...........|
00000020: 53 4B 52 49 56 20 49 4E 20 4B 4F 44 45 4E 22 3A |SKRIV IN KODEN":|
00000030: 99 00 48 08 6E 00 51 24 B2 22 44 41 4E 4E 45 22 |..H.n.Q$."DANNE"|
00000040: 3A 57 B2 C3 28 51 24 29 00 53 08 78 00 81 58 B2 |:W..(Q$).S.x..X.|
00000050: 31 A4 57 00 66 08 82 00 A1 41 24 3A 8B 41 24 B2 |1.W.f....A$:.A$.|
00000060: 22 22 A7 31 33 30 00 86 08 8C 00 8B 41 24 B3 B1 |"".130......A$..|
00000070: CA 28 51 24 2C 58 2C 31 29 20 A7 20 99 22 2A 22 |.(Q$,X,1) . ."*"|
00000080: 3B 3A 89 31 32 30 00 A2 08 96 00 8B 41 24 B2 CA |;:.120......A$..|
00000090: 28 51 24 2C 58 2C 31 29 A7 20 99 22 2A 22 3B 3A |(Q$,X,1). ."*";:|
000000A0: 82 58 00 BA 08 A0 00 81 58 B2 30 A4 32 35 35 3A |.X......X.0.255:|
000000B0: 97 35 33 32 38 30 2C 58 3A 82 00 D2 08 AA 00 8F |.53280,X:.......|
000000C0: 20 54 4F 55 43 48 2D 54 4F 4E 45 20 44 49 41 4C | TOUCH-TONE DIAL|
000000D0: 45 52 00 E7 08 B4 00 8F 20 42 59 20 42 4F 42 20 |ER...... BY BOB |
000000E0: 48 55 46 46 4D 41 4E 00 ED 08 BE 00 3A 00 1A 09 |HUFFMAN.....:...|
000000F0: C8 00 8F 20 54 4F 52 4F 4E 54 4F 20 42 42 53 20 |... TORONTO BBS |
00000100: 4E 55 4D 42 45 52 53 20 42 59 20 52 49 43 48 41 |NUMBERS BY RICHA|
00000110: 52 44 20 42 52 41 44 4C 45 59 00 2E 09 D2 00 86 |RD BRADLEY......|
00000120: 20 42 24 28 35 30 29 2C 43 24 28 35 30 29 00 40 | B$(50),C$(50).@|
00000130: 09 DC 00 83 20 44 41 4E 4E 45 2C 31 31 39 34 33 |.... DANNE,11943|
00000140: 00 54 09 E6 00 83 20 4B 52 49 53 54 45 52 2C 31 |.T.... KRISTER,1|
00000150: 30 30 30 32 00 6B 09 F0 00 83 20 48 41 52 41 4C |0002.k.... HARAL|
00000160: 44 53 53 4F 4E 2C 31 31 32 37 32 00 7E 09 FA 00 |DSSON,11272.~...|
00000170: 83 20 42 45 4E 44 49 4B 2C 31 32 37 33 35 00 8F |. BENDIK,12735..|
00000180: 09 04 01 83 20 4A 55 48 41 2C 31 32 37 31 37 00 |.... JUHA,12717.|
00000190: A5 09 0E 01 83 20 4A 49 4D 4D 59 2C 30 31 37 34 |..... JIMMY,0174|
000001A0: 34 32 30 31 31 00 C1 09 18 01 83 20 51 5A 2D 44 |42011...... QZ-D|
000001B0: 41 54 4F 52 20 33 30 30 2C 30 38 38 30 31 35 32 |ATOR 300,0880152|
000001C0: 33 00 DD 09 22 01 83 20 41 42 43 2D 4B 4C 55 42 |3...".. ABC-KLUB|
000001D0: 42 45 4E 2C 30 33 35 31 31 30 37 37 31 00 FD 09 |BEN,035110771...|
000001E0: 2C 01 83 20 4B 45 4E 54 20 28 4B 41 52 4C 53 54 |,.. KENT (KARLST|
000001F0: 41 44 29 2C 30 35 34 31 31 34 30 35 35 00 17 0A |AD),054114055...|
00000200: 36 01 83 20 44 41 54 41 54 52 4F 4E 49 43 2C 30 |6.. DATATRONIC,0|
00000210: 38 31 39 30 35 32 32 00 2C 0A 40 01 83 20 53 54 |8190522.,.@.. ST|
00000220: 45 46 46 45 4E 2C 34 32 31 35 38 30 00 40 0A 4A |EFFEN,421580.@.J|
00000230: 01 83 20 4D 5D 52 54 45 4E 2C 31 38 35 37 35 34 |.. M]RTEN,185754|
00000240: 00 55 0A 54 01 83 20 55 53 41 2C 36 30 34 38 32 |.U.T.. USA,60482|
00000250: 36 35 37 38 30 00 64 0A 5E 01 83 20 55 53 41 2C |65780.d.^.. USA,|
00000260: 30 30 39 31 00 7C 0A 68 01 83 4A 41 4E 20 45 4B |0091.|.h..JAN EK|
00000270: 53 54 52 5C 4D 2C 34 32 30 31 35 31 00 86 0A 72 |STR\M,420151...r|
00000280: 01 83 20 30 2C 30 00 A0 0A 7C 01 97 20 35 33 32 |.. 0,0...|.. 532|
00000290: 38 31 2C 31 35 3A 97 20 35 33 32 38 30 2C 31 32 |81,15:. 53280,12|
000002A0: 00 B3 0A 86 01 99 20 C7 28 31 34 37 29 C7 28 31 |...... .(147).(1|
000002B0: 35 31 29 00 BB 0A 90 01 50 B2 31 00 CD 0A 9A 01 |51).....P.1.....|
000002C0: 87 20 42 24 28 50 29 2C 43 24 28 50 29 00 E3 0A |. B$(P),C$(P)...|
000002D0: A4 01 8B 20 42 24 28 50 29 B2 22 30 22 20 A7 20 |... B$(P)."0" . |
000002E0: 34 34 30 00 F3 0A AE 01 50 B2 50 AA 31 3A 89 20 |440.....P.P.1:. |
000002F0: 34 31 30 00 28 0B B8 01 50 4D B2 50 AB 31 3A 43 |410.(...PM.P.1:C|
00000300: 46 B2 31 2E 30 31 35 3A 4B B2 2E 30 35 39 36 30 |F.1.015:K..05960|
00000310: 34 36 34 35 3A 8F 20 41 52 4D 45 52 49 4B 41 20 |4645:. ARMERIKA |
00000320: 43 46 3D 30 2E 39 37 35 00 43 0B C2 01 81 20 4E |CF=0.975.C.... N|
00000330: B2 30 20 A4 20 33 3A 87 20 46 3A 46 B2 46 AC 43 |.0 . 3:. F:F.F.C|
00000340: 46 AD 4B 00 6A 0B CC 01 52 48 28 4E 29 B2 B5 28 |F.K.j...RH(N)..(|
00000350: 46 AD 32 35 36 29 3A 52 4C 28 4E 29 B2 46 AB 32 |F.256):RL(N).F.2|
00000360: 35 36 AC 52 48 28 4E 29 3A 82 00 80 0B D6 01 83 |56.RH(N):.......|
00000370: 20 36 39 37 2C 37 37 30 2C 38 35 32 2C 39 34 31 | 697,770,852,941|
00000380: 00 9B 0B E0 01 81 20 4E B2 30 20 A4 20 32 3A 87 |...... N.0 . 2:.|
00000390: 20 46 3A 46 B2 46 AC 43 46 AD 4B 00 C2 0B EA 01 | F:F.F.CF.K.....|
000003A0: 43 48 28 4E 29 B2 B5 28 46 AD 32 35 36 29 3A 43 |CH(N)..(F.256):C|
000003B0: 4C 28 4E 29 B2 46 AB 32 35 36 AC 43 48 28 4E 29 |L(N).F.256.CH(N)|
000003C0: 3A 82 00 D7 0B F4 01 83 20 31 32 30 39 2C 31 33 |:....... 1209,13|
000003D0: 33 36 2C 31 34 37 37 00 F7 0B FE 01 56 31 B2 35 |36,1477.....V1.5|
000003E0: 34 32 37 32 3A 56 32 B2 56 31 AA 37 3A 97 20 56 |4272:V2.V1.7:. V|
000003F0: 31 AA 32 34 2C 31 35 00 0F 0C 08 02 97 20 56 31 |1.24,15...... V1|
00000400: AA 35 2C 30 3A 97 20 56 31 AA 36 2C 32 34 30 00 |.5,0:. V1.6,240.|
00000410: 27 0C 12 02 97 20 56 32 AA 35 2C 30 3A 97 20 56 |'.... V2.5,0:. V|
00000420: 32 AA 36 2C 32 34 30 00 2F 0C 1C 02 50 B2 31 00 |2.6,240./...P.1.|
00000430: 56 0C 26 02 99 20 C7 28 31 34 37 29 22 4B 45 59 |V.&.. .(147)"KEY|
00000440: 20 20 50 41 52 54 59 22 A3 32 37 29 22 4E 55 4D | PARTY".27)"NUM|
00000450: 42 45 52 22 3A 99 00 6C 0C 30 02 8B 20 42 24 28 |BER":..l.0.. B$(|
00000460: 50 29 B2 22 30 22 20 A7 20 36 36 30 00 87 0C 3A |P)."0" . 660...:|
00000470: 02 99 20 50 3B A3 34 29 42 24 28 50 29 3B A3 32 |.. P;.4)B$(P);.2|
00000480: 33 29 43 24 28 50 29 00 91 0C 44 02 50 B2 50 AA |3)C$(P)...D.P.P.|
00000490: 31 00 B2 0C 4E 02 8B 20 28 50 AB 31 29 AD 31 38 |1...N.. (P.1).18|
000004A0: B2 B5 28 28 50 AB 31 29 AD 31 38 29 20 A7 20 36 |..((P.1).18) . 6|
000004B0: 31 30 00 BB 0C 58 02 89 35 36 30 00 EA 0C 62 02 |10...X..560...b.|
000004C0: 99 3A 85 20 22 45 4E 54 45 52 20 4B 45 59 20 4F |.:. "ENTER KEY O|
000004D0: 52 20 52 45 54 55 52 4E 20 46 4F 52 20 4E 45 58 |R RETURN FOR NEX|
000004E0: 54 20 50 41 47 45 22 3B 41 24 00 FB 0C 6C 02 41 |T PAGE";A$...l.A|
000004F0: B2 C5 28 41 24 AA C7 28 30 29 29 00 0B 0D 76 02 |..(A$..(0))...v.|
00000500: 8B 20 41 B2 30 20 A7 20 35 35 30 00 31 0D 80 02 |. A.0 . 550.1...|
00000510: 8B 20 41 B1 50 4D 20 A7 20 99 22 54 52 59 20 41 |. A.PM . ."TRY A|
00000520: 47 41 49 4E 22 3A 41 24 B2 22 22 3A 89 20 36 31 |GAIN":A$."":. 61|
00000530: 30 00 45 0D 8A 02 4E 42 24 B2 43 24 28 41 29 3A |0.E...NB$.C$(A):|
00000540: 89 20 37 32 30 00 6D 0D 94 02 99 3A 85 20 22 45 |. 720.m....:. "E|
00000550: 4E 54 45 52 20 4B 45 59 20 4F 52 20 52 45 54 55 |NTER KEY OR RETU|
00000560: 52 4E 20 54 4F 20 45 4E 44 22 3B 41 24 00 7E 0D |RN TO END";A$.~.|
00000570: 9E 02 41 B2 C5 28 41 24 AA C7 28 30 29 29 00 9D |..A..(A$..(0))..|
00000580: 0D A8 02 8B 20 41 24 B2 22 52 22 20 A7 20 50 B2 |.... A$."R" . P.|
00000590: 31 3A 41 24 B2 22 22 3A 89 20 35 35 30 00 AB 0D |1:A$."":. 550...|
000005A0: B2 02 8B 20 41 B2 30 20 A7 20 80 00 D1 0D BC 02 |... A.0 . ......|
000005B0: 8B 20 41 B1 50 4D 20 A7 20 99 22 54 52 59 20 41 |. A.PM . ."TRY A|
000005C0: 47 41 49 4E 22 3A 41 24 B2 22 22 3A 89 20 36 36 |GAIN":A$."":. 66|
000005D0: 30 00 DF 0D C6 02 4E 42 24 B2 43 24 28 41 29 00 |0.....NB$.C$(A).|
000005E0: F2 0D D0 02 81 20 4A B2 31 20 A4 20 C3 28 4E 42 |..... J.1 . .(NB|
000005F0: 24 29 00 04 0E DA 02 4E 24 B2 CA 28 4E 42 24 2C |$).....N$..(NB$,|
00000600: 4A 2C 31 29 00 1B 0E E4 02 8B 20 4E 24 B2 22 30 |J,1)...... N$."0|
00000610: 22 20 A7 20 4E 24 B2 22 31 31 22 00 32 0E EE 02 |" . N$."11".2...|
00000620: 8B 20 4E 24 B2 22 2A 22 20 A7 20 4E 24 B2 22 31 |. N$."*" . N$."1|
00000630: 30 22 00 49 0E F8 02 8B 20 4E 24 B2 22 23 22 20 |0".I.... N$."#" |
00000640: A7 20 4E 24 B2 22 31 32 22 00 70 0E 02 03 8B 20 |. N$."12".p.... |
00000650: 4E 24 B2 22 20 22 B0 4E 24 B2 22 2D 22 B0 4E 24 |N$." ".N$."-".N$|
00000660: B2 22 28 22 B0 4E 24 B2 22 29 22 A7 20 38 36 30 |."(".N$.")". 860|
00000670: 00 7F 0E 0C 03 56 41 B2 C5 28 4E 24 29 AB 31 00 |.....VA..(N$).1.|
00000680: 8B 0E 16 03 52 25 B2 56 41 AD 33 00 9A 0E 20 03 |....R%.VA.3... .|
00000690: 43 25 B2 56 41 AB 33 AC 52 25 00 B8 0E 2A 03 97 |C%.VA.3.R%...*..|
000006A0: 20 56 31 AA 31 2C 52 48 28 52 25 29 3A 97 20 56 | V1.1,RH(R%):. V|
000006B0: 31 2C 52 4C 28 52 25 29 00 D6 0E 34 03 97 20 56 |1,RL(R%)...4.. V|
000006C0: 32 AA 31 2C 43 48 28 43 25 29 3A 97 20 56 32 2C |2.1,CH(C%):. V2,|
000006D0: 43 4C 28 43 25 29 00 EE 0E 3E 03 97 20 56 31 AA |CL(C%)...>.. V1.|
000006E0: 34 2C 31 37 3A 97 20 56 32 AA 34 2C 31 37 00 00 |4,17:. V2.4,17..|
000006F0: 0F 48 03 81 20 4E B2 31 20 A4 20 31 30 30 3A 82 |.H.. N.1 . 100:.|
00000700: 00 16 0F 52 03 97 20 56 31 AA 34 2C 30 3A 97 20 |...R.. V1.4,0:. |
00000710: 56 32 AA 34 2C 30 00 2C 0F 5C 03 82 3A 50 B2 31 |V2.4,0.,.\..:P.1|
00000720: 3A 41 24 B2 22 22 3A 89 20 35 35 30 00 00 00 |:A$."":. 550... |
.......774,131.1.D.."...........SKRIV IN
KODEN":..H.N.Q$."DANNE":W.C(Q$).S.X..X.
1.W.F....A$:.A$."".130......A$..J(Q$,X,1
) . ."*";:.120......A$.J(Q$,X,1). ."*";:
.X... ..X.0.255:.53280,X:..R.... TOUCH-T
ONE DIALER...... BY BOB HUFFMAN.....:...
H.. TORONTO BBS NUMBERS BY RICHARD BRADL
EY...R.. B$(50),C$(50).@.... DANNE,11943
.T.... KRISTER,10002.K.... HARALDSSON,11
272.~.... BENDIK,12735...... JUHA,12717.
..... JIMMY,017442011.A.... QZ-DATOR 300
,08801523...".. ABC-KLUBBEN,035110771...
,.. KENT (KARLSTAD),054114055...6.. DATA
TRONIC,08190522.,.@.. STEFFEN,421580.@.J
.. M]RTEN,185754.U.T.. USA,6048265780.D.
^.. USA,0091.|.H..JAN EKSTR\M,420151...R
.. 0,0. .|.. 53281,15:. 53280,12...... G
(147)G(151).....P.1.M.... B$(P),C$(P)...
... B$(P)."0" . 440.....P.P.1:. 410.(...
PM.P.1:CF.1.015:K..059604645:. ARMERIKA
CF=0.975.C.B.. N.0 . 3:. F:F.F.CF.K.J.L.
RH(N)..(F.256):RL(N).F.256.RH(N):....V..
697,770,852,941...... N.0 . 2:. F:F.F.C
F.K.B...CH(N)..(F.256):CL(N).F.256.CH(N)
:..W.... 1209,1336,1477.....V1.54272:V2.
V1.7:. V1.24,15...... V1.5,0:. V1.6,240.
'.... V2.5,0:. V2.6,240./...P.1.V.&.. G(
147)"KEY PARTY".27)"NUMBER":..L.0.. B$(
P)."0" . 660...:.. P;.4)B$(P);.23)C$(P).
..D.P.P.1...N.. (P.1).18..((P.1).18) . 6
10...X..560...B..:. "ENTER KEY OR RETURN
FOR NEXT PAGE";A$...L.A.E(A$.G(0))...V.
. A.0 . 550.1.... A.PM . ."TRY AGAIN":A$
."":. 610.E...NB$.C$(A):. 720.M....:. "E
NTER KEY OR RETURN TO END";A$.~...A.E(A$
.G(0))...... A$."R" . P.1:A$."":. 550...
... A.0 . ..Q.... A.PM . ."TRY AGAIN":A$
."":. 660...F.NB$.C$(A)...P.. J.1 . C(NB
$)...Z.N$.J(NB$,J,1)...... N$."0" . N$."
11".2.... N$."*" . N$."10".I.... N$."#"
. N$."12".P.... N$." ".N$."-".N$."(".N$.
")". 860....VA.E(N$).1.....R%.VA.3... .
C%.VA.3.R%...*.. V1.1,RH(R%):. V1,RL(R%)
.V.4.. V2.1,CH(C%):. V2,CL(C%)...>.. V1.
4,17:. V2.4,17...H.. N.1 . 100:....R.. V
1.4,0:. V2.4,0.,.\..:P.1:A$."":. 550...
> CLICK IMAGE PREVIEW FOR FULL MODAL