TELEFON 6
FILE INFORMATION
FILENAME(S): TELEFON 6
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 19:38:44
APPEARS ON: 1 disk(s)
FILE HASH
dde94243534265894803a0552f466a3ae6aeba2a9303b66b6b51b28e3bd324d7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BUSK 2 | TELEFON 6 | PRG | Curtcool, Brian | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 8F 2A 2A 2A 20 54 45 4C 45 46 |..%....*** TELEF| 00000010: 4F 4E 4C 49 53 54 45 20 46 4F 52 20 53 58 2D 36 |ONLISTE FOR SX-6| 00000020: 34 20 2A 2A 2A 00 2F 08 01 00 89 20 31 30 30 00 |4 ***./.... 100.| 00000030: 3A 08 0A 00 83 20 31 30 30 30 00 42 08 14 00 87 |:.... 1000.B....| 00000040: 20 41 00 4A 08 19 00 51 B2 30 00 66 08 1E 00 99 | A.J...Q.0.f....| 00000050: 22 93 4E 41 56 4E 2C 54 45 4C 45 46 4F 4E 2D 4E |".NAVN,TELEFON-N| 00000060: 55 4D 4D 45 52 22 00 87 08 28 00 85 43 24 2C 44 |UMMER"...(..C$,D| 00000070: 24 3A 99 22 93 11 11 11 22 41 22 44 41 54 41 22 |$:."...."A"DATA"| 00000080: 43 24 22 2C 22 44 24 00 99 08 32 00 8B 43 24 B2 |C$","D$...2..C$.| 00000090: 22 53 54 4F 50 22 A7 8A 30 00 C1 08 3C 00 99 22 |"STOP"..0...<.."| 000000A0: 52 55 4E 20 37 30 13 22 3A 97 31 39 38 2C 32 3A |RUN 70.":.198,2:| 000000B0: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A |.631,13:.632,13:| 000000C0: 80 00 DE 08 46 00 87 41 3A 41 B2 41 AA 31 3A 99 |....F..A:A.A.1:.| 000000D0: 22 93 11 11 11 31 30 20 44 41 54 41 22 41 00 06 |"....10 DATA"A..| 000000E0: 09 50 00 99 22 52 55 4E 20 39 30 13 22 3A 97 31 |.P.."RUN 90.":.1| 000000F0: 39 38 2C 32 3A 97 36 33 31 2C 31 33 3A 97 36 33 |98,2:.631,13:.63| 00000100: 32 2C 31 33 3A 80 00 0E 09 5A 00 89 32 30 00 21 |2,13:....Z..20.!| 00000110: 09 64 00 86 43 24 28 33 30 29 2C 44 24 28 33 30 |.d..C$(30),D$(30| 00000120: 29 00 29 09 67 00 51 B2 31 00 3F 09 68 00 97 35 |).).g.Q.1.?.h..5| 00000130: 33 32 38 30 2C 37 3A 97 35 33 32 38 31 2C 37 00 |3280,7:.53281,7.| 00000140: 4A 09 69 00 99 22 93 22 3B 3A 00 83 09 6A 00 99 |J.i..".";:...j..| 00000150: 22 12 50 41 55 4C 20 20 20 20 20 20 20 20 20 20 |".PAUL | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 42 55 53 4B 92 22 3A 99 22 91 | BUSK.":.".| 00000180: 22 3B 3A 00 B7 09 6C 00 99 22 12 20 20 20 20 20 |";:...l..". | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 59 | MENY| 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 92 22 3B 3A 00 F0 09 6D 00 99 22 12 20 | .";:...m..". | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 20 20 20 20 20 20 20 92 22 3A 99 22 91 22 3B 3A | .":.".";:| 000001F0: 00 FC 09 6E 00 99 22 11 11 11 11 22 00 19 0A 78 |...n.."...."...x| 00000200: 00 99 A3 31 34 29 22 12 31 2E 92 20 53 4B 52 49 |...14)".1.. SKRI| 00000210: 56 45 20 49 4E 44 22 3A 99 00 30 0A 82 00 99 A3 |VE IND":..0.....| 00000220: 31 34 29 22 12 32 2E 92 20 53 30 47 45 22 3A 99 |14)".2.. S0GE":.| 00000230: 00 4B 0A 8C 00 99 A3 31 34 29 22 12 33 2E 92 20 |.K.....14)".3.. | 00000240: 55 44 53 4B 52 49 46 54 22 3A 99 00 62 0A 91 00 |UDSKRIFT":..b...| 00000250: 99 A3 31 34 29 22 12 34 2E 92 20 53 4C 55 54 22 |..14)".4.. SLUT"| 00000260: 3A 99 00 78 0A 96 00 99 22 11 11 11 1D 1D 1D 1D |:..x....".......| 00000270: 1D 1D 1D 1D 1D 1D 22 3B 00 7F 0A A0 00 A1 58 00 |......";......X.| 00000280: 8A 0A A5 00 8B 58 B2 34 A7 80 00 9C 0A AA 00 91 |.....X.4........| 00000290: 58 89 31 30 2C 32 30 30 2C 33 39 30 00 B9 0A B4 |X.10,200,390....| 000002A0: 00 8B 58 B3 B1 31 B0 58 B3 B1 32 B0 58 B3 B1 33 |..X..1.X..2.X..3| 000002B0: B0 58 B3 B1 34 A7 31 36 30 00 C7 0A C8 00 8B 51 |.X..4.160......Q| 000002C0: B2 31 A7 20 87 20 41 00 CF 0A CD 00 49 B2 31 00 |.1. . A.....I.1.| 000002D0: E0 0A D2 00 87 43 24 28 49 29 2C 44 24 28 49 29 |.....C$(I),D$(I)| 000002E0: 00 F6 0A DC 00 8B 44 24 28 49 29 B2 22 53 54 4F |......D$(I)."STO| 000002F0: 50 22 A7 32 34 30 00 05 0B E6 00 49 B2 49 AA 31 |P".240.....I.I.1| 00000300: 3A 89 32 31 30 00 20 0B F0 00 99 22 93 11 11 11 |:.210. ...."....| 00000310: 54 41 53 54 20 4E 41 56 4E 45 54 20 49 4E 44 22 |TAST NAVNET IND"| 00000320: 00 2B 0B FA 00 99 22 11 11 11 22 00 33 0B 04 01 |.+...."...".3...| 00000330: 85 4C 24 00 3F 0B 0E 01 4C B2 C3 28 4C 24 29 00 |.L$.?...L..(L$).| 00000340: 56 0B 13 01 81 49 B2 31 A4 4C AA 32 3A 99 22 2D |V....I.1.L.2:."-| 00000350: 22 3B 3A 82 3A 99 00 61 0B 18 01 81 4A B2 31 A4 |";:.:..a....J.1.| 00000360: 49 00 82 0B 22 01 8B C8 28 43 24 28 4A 29 2C 4C |I..."...(C$(J),L| 00000370: 29 B2 4C 24 A7 99 43 24 28 4A 29 2C 2C 44 24 28 |).L$..C$(J),,D$(| 00000380: 4A 29 00 88 0B 2C 01 82 00 B1 0B 36 01 99 22 11 |J)...,.....6..".| 00000390: 11 11 56 49 4C 20 44 55 20 53 30 47 45 20 4D 45 |..VIL DU S0GE ME| 000003A0: 52 45 20 12 4A 92 41 20 20 12 4E 92 45 4A 20 3F |RE .J.A .N.EJ ?| 000003B0: 22 00 C5 0B 40 01 A1 53 24 3A 8B 53 24 B2 22 22 |"...@..S$:.S$.""| 000003C0: A7 33 32 30 3A 00 D4 0B 45 01 8B 53 24 B2 22 4E |.320:...E..S$."N| 000003D0: 22 A7 8A 30 00 DD 0B 4A 01 89 32 34 30 00 EA 0B |"..0...J..240...| 000003E0: 86 01 99 22 93 11 11 11 11 22 00 0F 0C 87 01 99 |..."....."......| 000003F0: 22 20 20 20 20 20 55 44 53 4B 52 49 46 54 20 50 |" UDSKRIFT P| 00000400: 41 41 20 12 50 92 52 49 4E 54 45 52 20 3F 22 00 |AA .P.RINTER ?".| 00000410: 1A 0C 88 01 99 22 11 11 11 22 00 3F 0C 89 01 99 |....."...".?....| 00000420: 22 20 20 20 20 20 55 44 53 4B 52 49 46 54 20 50 |" UDSKRIFT P| 00000430: 41 41 20 12 56 92 49 44 45 4F 20 20 20 3F 22 00 |AA .V.IDEO ?".| 00000440: 54 0C 8B 01 A1 4A 49 24 3A 8B 4A 49 24 B2 22 22 |T....JI$:.JI$.""| 00000450: A7 33 39 35 00 65 0C 8C 01 8B 4A 49 24 B2 22 50 |.395.e....JI$."P| 00000460: 22 A7 34 30 30 00 76 0C 8D 01 8B 4A 49 24 B2 22 |".400.v....JI$."| 00000470: 56 22 A7 38 30 30 00 91 0C 8E 01 8B 4A 49 24 B3 |V".800......JI$.| 00000480: B1 22 50 22 B0 4A 49 24 B3 B1 22 56 22 A7 33 39 |."P".JI$.."V".39| 00000490: 35 00 9D 0C 90 01 8B 51 B2 31 A7 87 41 00 A5 0C |5......Q.1..A...| 000004A0: 95 01 49 B2 31 00 B6 0C 9A 01 87 43 24 28 49 29 |..I.1......C$(I)| 000004B0: 2C 44 24 28 49 29 00 CC 0C A4 01 8B 44 24 28 49 |,D$(I)......D$(I| 000004C0: 29 B2 22 53 54 4F 50 22 A7 34 34 30 00 F2 0C A9 |)."STOP".440....| 000004D0: 01 8B C3 28 43 24 28 49 29 29 B3 32 35 A7 43 24 |...(C$(I)).25.C$| 000004E0: 28 49 29 B2 43 24 28 49 29 AA 22 20 22 3A 89 34 |(I).C$(I)." ":.4| 000004F0: 32 35 00 01 0D AE 01 49 B2 49 AA 31 3A 89 34 31 |25.....I.I.1:.41| 00000500: 30 00 0B 0D B8 01 49 B2 49 AB 31 00 15 0D C2 01 |0.....I.I.1.....| 00000510: 45 B2 49 AB 31 00 1D 0D CC 01 46 B2 30 00 28 0D |E.I.1.....F.0.(.| 00000520: D6 01 81 4A B2 31 A4 45 00 40 0D E0 01 8B 43 24 |...J.1.E.@....C$| 00000530: 28 4A AA 31 29 B1 B2 43 24 28 4A 29 A7 35 31 30 |(J.1)..C$(J).510| 00000540: 00 88 0D EA 01 58 24 B2 43 24 28 4A 29 3A 43 24 |.....X$.C$(J):C$| 00000550: 28 4A 29 B2 43 24 28 4A AA 31 29 3A 43 24 28 4A |(J).C$(J.1):C$(J| 00000560: AA 31 29 B2 58 24 3A 59 24 B2 44 24 28 4A 29 3A |.1).X$:Y$.D$(J):| 00000570: 44 24 28 4A 29 B2 44 24 28 4A AA 31 29 3A 44 24 |D$(J).D$(J.1):D$| 00000580: 28 4A AA 31 29 B2 59 24 00 90 0D F4 01 46 B2 31 |(J.1).Y$.....F.1| 00000590: 00 96 0D FE 01 82 00 A0 0D 08 02 45 B2 45 AB 31 |...........E.E.1| 000005A0: 00 AD 0D 12 02 8B 46 B2 31 A7 34 36 30 00 B6 0D |......F.1.460...| 000005B0: 1C 02 9F 34 2C 34 00 D1 0D 26 02 98 34 2C C7 28 |...4,4...&..4,.(| 000005C0: 31 34 29 22 54 45 4C 45 46 4F 4E 4C 49 53 54 45 |14)"TELEFONLISTE| 000005D0: 22 00 DE 0D 30 02 98 34 2C C7 28 31 35 29 00 E9 |"...0..4,.(15)..| 000005E0: 0D 3A 02 81 4A B2 31 A4 49 00 FC 0D 44 02 98 34 |.:..J.1.I...D..4| 000005F0: 2C 43 24 28 4A 29 3B 44 24 28 4A 29 00 02 0E 4E |,C$(J);D$(J)...N| 00000600: 02 82 00 09 0E 58 02 A0 34 00 10 0E 62 02 8A 30 |.....X..4...b..0| 00000610: 00 23 0E 20 03 8B 51 B2 31 A7 87 41 3A 99 22 93 |.#. ..Q.1..A:.".| 00000620: 22 3B 3A 00 2B 0E 25 03 49 B2 31 00 3C 0E 2A 03 |";:.+.%.I.1.<.*.| 00000630: 87 43 24 28 49 29 2C 44 24 28 49 29 00 52 0E 34 |.C$(I),D$(I).R.4| 00000640: 03 8B 44 24 28 49 29 B2 22 53 54 4F 50 22 A7 38 |..D$(I)."STOP".8| 00000650: 34 30 00 78 0E 39 03 8B C3 28 43 24 28 49 29 29 |40.x.9...(C$(I))| 00000660: B3 32 35 A7 43 24 28 49 29 B2 43 24 28 49 29 AA |.25.C$(I).C$(I).| 00000670: 22 20 22 3A 89 38 32 35 00 87 0E 3E 03 49 B2 49 |" ":.825...>.I.I| 00000680: AA 31 3A 89 38 31 30 00 91 0E 48 03 49 B2 49 AB |.1:.810...H.I.I.| 00000690: 31 00 9B 0E 52 03 45 B2 49 AB 31 00 A3 0E 5C 03 |1...R.E.I.1...\.| 000006A0: 46 B2 30 00 AE 0E 66 03 81 4A B2 31 A4 45 00 C6 |F.0...f..J.1.E..| 000006B0: 0E 70 03 8B 43 24 28 4A AA 31 29 B1 B2 43 24 28 |.p..C$(J.1)..C$(| 000006C0: 4A 29 A7 39 31 30 00 0E 0F 7A 03 58 24 B2 43 24 |J).910...z.X$.C$| 000006D0: 28 4A 29 3A 43 24 28 4A 29 B2 43 24 28 4A AA 31 |(J):C$(J).C$(J.1| 000006E0: 29 3A 43 24 28 4A AA 31 29 B2 58 24 3A 59 24 B2 |):C$(J.1).X$:Y$.| 000006F0: 44 24 28 4A 29 3A 44 24 28 4A 29 B2 44 24 28 4A |D$(J):D$(J).D$(J| 00000700: AA 31 29 3A 44 24 28 4A AA 31 29 B2 59 24 00 16 |.1):D$(J.1).Y$..| 00000710: 0F 84 03 46 B2 31 00 1C 0F 8E 03 82 00 26 0F 98 |...F.1.......&..| 00000720: 03 45 B2 45 AB 31 00 33 0F A2 03 8B 46 B2 31 A7 |.E.E.1.3....F.1.| 00000730: 38 36 30 00 47 0F B6 03 99 22 54 45 4C 45 46 4F |860.G...."TELEFO| 00000740: 4E 4C 49 53 54 45 22 00 52 0F CA 03 81 4A B2 31 |NLISTE".R....J.1| 00000750: A4 49 00 63 0F D4 03 99 43 24 28 4A 29 3B 44 24 |.I.c....C$(J);D$| 00000760: 28 4A 29 00 69 0F DE 03 82 00 7E 0F DF 03 A1 46 |(J).i.....~....F| 00000770: 47 24 3A 8B 46 47 24 B2 22 22 A7 39 39 31 00 85 |G$:.FG$."".991..| 00000780: 0F E0 03 8A 30 00 94 0F D0 07 83 53 54 4F 50 2C |....0......STOP,| 00000790: 53 54 4F 50 00 00 FF |STOP... |
..%....*** TELEFONLISTE FOR SX-64 ***./.
... 100.:.... 1000.B.... A.J...Q.0.F....
".NAVN,TELEFON-NUMMER"...(..C$,D$:."....
"A"DATA"C$","D$...2..C$."STOP"..0.A.<.."
RUN 70.":.198,2:.631,13:.632,13:....F..A
:A.A.1:."....10 DATA"A...P.."RUN 90.":.1
98,2:.631,13:.632,13:....Z..20.!.D..C$(3
0),D$(30).).G.Q.1.?.H..53280,7:.53281,7.
J.I..".";:...J..".PAUL
BUSK.":.".";:...L..".
MENY .";:.
..M..".
.":.".";:...N.."...."...X...14)".
1.. SKRIVE IND":..0.....14)".2.. S0GE":.
.K.....14)".3.. UDSKRIFT":..B.....14)".4
.. SLUT":..X....".............";.. ..X.
.....X.4........X.10,200,390......X..1.X
..2.X..3.X..4.160.G.H..Q.1. . A.O.M.I.1.
..R..C$(I),D$(I)......D$(I)."STOP".240..
...I.I.1:.210. ...."....TAST NAVNET IND"
.+...."...".3....L$.?...L.C(L$).V....I.1
.L.2:."-";:.:..A....J.1.I..."..H(C$(J),L
).L$..C$(J),,D$(J)...,.....6.."...VIL DU
S0GE MERE .J.A .N.EJ ?".E.@..S$:.S$.""
.320:.T.E..S$."N"..0...J..240......"....
."......" UDSKRIFT PAA .P.RINTER ?".
....."...".?...." UDSKRIFT PAA .V.ID
EO ?".T....JI$:.JI$."".395.E....JI$."P
".400.V....JI$."V".800......JI$.."P".JI$
.."V".395......Q.1..A.....I.1......C$(I)
,D$(I).L....D$(I)."STOP".440......C(C$(I
)).25.C$(I).C$(I)." ":.425.....I.I.1:.41
0.....I.I.1...B.E.I.1...L.F.0.(.V..J.1.E
.@....C$(J.1)..C$(J).510.....X$.C$(J):C$
(J).C$(J.1):C$(J.1).X$:Y$.D$(J):D$(J).D$
(J.1):D$(J.1).Y$.....F.1....... ...E.E.1
......F.1.460......4,4.Q.&..4,G(14)"TELE
FONLISTE"...0..4,G(15)...:..J.1.I...D..4
,C$(J);D$(J)...N.....X. 4...B..0.#. ..Q.
1..A:.".";:.+.%.I.1.<.*..C$(I),D$(I).R.4
..D$(I)."STOP".840.X.9..C(C$(I)).25.C$(I
).C$(I)." ":.825...>.I.I.1:.810...H.I.I.
1...R.E.I.1...\.F.0...F..J.1.E.F.P..C$(J
.1)..C$(J).910...Z.X$.C$(J):C$(J).C$(J.1
):C$(J.1).X$:Y$.D$(J):D$(J).D$(J.1):D$(J
.1).Y$.....F.1.......&...E.E.1.3....F.1.
860.G...."TELEFONLISTE".R.J..J.1.I.C.T..
C$(J);D$(J).I.....~....FG$:.FG$."".991..
....0...P..STOP,STOP...
> CLICK IMAGE PREVIEW FOR FULL MODAL