QTH-K.3
FILE INFORMATION
FILENAME(S): QTH-K.3
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
e02b1dc0e7799bd325a47f674c3e1f62564b4b8c759edbbdfa0f6634f9f35bd4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | QTH-K.3 | PRG | Curtcool, Bo | 5 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A 99 22 93 90 22 00 4B 08 |53281,1:."..".K.|
00000020: 14 00 99 22 44 49 45 53 45 53 20 50 52 4F 47 52 |..."DIESES PROGR|
00000030: 41 4D 4D 20 42 45 52 45 43 48 4E 45 54 20 45 4E |AMM BERECHNET EN|
00000040: 54 46 45 52 4E 55 4E 47 45 4E 22 00 78 08 1E 00 |TFERNUNGEN".x...|
00000050: 99 22 11 5A 57 49 53 43 48 45 4E 20 32 20 41 4D |.".ZWISCHEN 2 AM|
00000060: 41 54 45 55 52 46 55 4E 4B 53 54 45 4C 4C 45 4E |ATEURFUNKSTELLEN|
00000070: 2E 20 42 49 54 54 45 22 00 A5 08 28 00 99 22 11 |. BITTE"...(..".|
00000080: 47 45 42 45 4E 20 53 49 45 20 53 54 41 4E 44 4F |GEBEN SIE STANDO|
00000090: 52 54 4B 45 4E 4E 45 52 20 49 4E 20 44 45 52 20 |RTKENNER IN DER |
000000A0: 55 45 42 2D 22 00 BE 08 32 00 99 22 11 4C 49 43 |UEB-"...2..".LIC|
000000B0: 48 45 4E 20 46 4F 52 4D 20 45 49 4E 2E 22 00 EF |HEN FORM EIN."..|
000000C0: 08 3C 00 99 22 11 11 57 45 4E 4E 20 53 49 45 20 |.<.."..WENN SIE |
000000D0: 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 42 45 45 |DAS PROGRAMM BEE|
000000E0: 4E 44 45 4E 20 4D 4F 45 43 48 54 45 4E 2C 22 00 |NDEN MOECHTEN,".|
000000F0: 14 09 46 00 99 22 11 47 45 42 45 4E 20 53 49 45 |..F..".GEBEN SIE|
00000100: 20 42 49 54 54 45 20 45 49 4E 20 27 2A 27 20 45 | BITTE EIN '*' E|
00000110: 49 4E 21 22 00 43 09 50 00 99 22 11 11 11 42 49 |IN!".C.P.."...BI|
00000120: 54 54 45 20 44 52 55 45 43 4B 45 4E 20 53 49 45 |TTE DRUECKEN SIE|
00000130: 20 49 52 47 45 4E 44 45 49 4E 45 20 54 41 53 54 | IRGENDEINE TAST|
00000140: 45 21 22 00 55 09 5A 00 A1 54 24 3A 8B 54 24 B2 |E!".U.Z..T$:.T$.|
00000150: 22 22 A7 39 30 00 5F 09 64 00 99 22 93 1F 22 00 |"".90._.d.."..".|
00000160: 8C 09 6E 00 41 4E B2 31 3A 99 22 42 49 54 54 45 |..n.AN.1:."BITTE|
00000170: 20 47 45 42 45 4E 20 53 49 45 20 44 45 4E 20 51 | GEBEN SIE DEN Q|
00000180: 54 48 2D 4B 45 4E 4E 45 52 22 3A 99 00 B1 09 78 |TH-KENNER":....x|
00000190: 00 99 22 44 45 53 20 45 49 47 45 4E 45 4E 20 53 |.."DES EIGENEN S|
000001A0: 54 41 4E 44 4F 52 54 45 53 20 45 49 4E 21 11 11 |TANDORTES EIN!..|
000001B0: 22 00 C9 09 82 00 8D 33 33 30 3A 8B 41 4E B2 31 |"......330:.AN.1|
000001C0: AF 41 4A B2 31 A7 31 31 30 00 E4 09 8C 00 41 4E |.AJ.1.110.....AN|
000001D0: B2 30 3A 4C 31 B2 47 4C 3A 42 31 B2 47 42 3A 45 |.0:L1.GL:B1.GB:E|
000001E0: 24 B2 42 24 00 0B 0A 96 00 99 22 93 42 49 54 54 |$.B$......".BITT|
000001F0: 45 20 47 45 42 45 4E 20 53 49 45 20 44 45 4E 20 |E GEBEN SIE DEN |
00000200: 51 54 48 2D 4B 45 4E 4E 45 52 22 00 2B 0A A0 00 |QTH-KENNER".+...|
00000210: 99 22 11 44 45 52 20 47 45 47 45 4E 53 54 41 54 |.".DER GEGENSTAT|
00000220: 49 4F 4E 20 45 49 4E 21 11 11 22 00 3E 0A AA 00 |ION EIN!..".>...|
00000230: 8D 33 33 30 3A 8B 41 4A B2 31 A7 33 32 30 00 54 |.330:.AJ.1.320.T|
00000240: 0A B4 00 4C 32 B2 47 4C 3A 42 32 B2 47 42 3A 47 |...L2.GL:B2.GB:G|
00000250: 24 B2 42 24 00 5F 0A BE 00 99 22 11 11 11 22 00 |$.B$._...."...".|
00000260: 90 0A C8 00 43 46 B2 BE 28 B6 28 4C 31 AB 4C 32 |....CF..(.(L1.L2|
00000270: 29 AC FF AD 31 38 30 29 AC BE 28 42 31 AC FF AD |)...180)..(B1...|
00000280: 31 38 30 29 AC BE 28 42 32 AC FF AD 31 38 30 29 |180)..(B2...180)|
00000290: 00 B2 0A D2 00 43 46 B2 43 46 AA BF 28 42 31 AC |.....CF.CF..(B1.|
000002A0: FF AD 31 38 30 29 AC BF 28 42 32 AC FF AD 31 38 |..180)..(B2...18|
000002B0: 30 29 00 CE 0A DC 00 46 B2 AB C1 28 43 46 AD BA |0).....F...(CF..|
000002C0: 28 31 AB 43 46 AC 43 46 29 29 AA FF AD 32 00 DC |(1.CF.CF))...2..|
000002D0: 0A E6 00 44 58 B2 46 AC 36 33 36 38 00 E5 0A F0 |...DX.F.6368....|
000002E0: 00 99 22 93 22 00 15 0B FA 00 99 22 44 49 45 20 |.."."......"DIE |
000002F0: 45 4E 54 46 45 52 4E 55 4E 47 20 20 22 45 24 3B |ENTFERNUNG "E$;|
00000300: 22 2D 22 3B 47 24 3B 22 20 20 42 45 54 52 41 45 |"-";G$;" BETRAE|
00000310: 47 54 22 3A 99 00 39 0B 04 01 99 22 20 20 20 20 |GT":..9...." |
00000320: 20 20 22 3B B5 28 44 58 AA 2E 35 29 3B 22 4B 49 | ";.(DX..5);"KI|
00000330: 4C 4F 4D 45 54 45 52 2E 22 00 50 0B 0E 01 4C B2 |LOMETER.".P...L.|
00000340: 4C AA B5 28 44 58 AA 2E 35 29 3A 99 22 11 11 22 |L..(DX..5):.".."|
00000350: 00 5A 0B 18 01 4E B2 4E AA 31 00 7F 0B 22 01 99 |.Z...N.N.1..."..|
00000360: 22 1E 53 55 4D 4D 45 20 44 45 52 20 4B 49 4C 4F |".SUMME DER KILO|
00000370: 4D 45 54 45 52 20 20 20 20 20 3A 20 22 3B 4C 00 |METER : ";L.|
00000380: A6 0B 2C 01 99 22 11 41 4E 5A 41 48 4C 20 44 45 |..,..".ANZAHL DE|
00000390: 52 20 56 45 52 42 49 4E 44 55 4E 47 45 4E 20 3A |R VERBINDUNGEN :|
000003A0: 20 22 3B 4E 3A 99 00 D6 0B 36 01 99 22 53 43 48 | ";N:....6.."SCH|
000003B0: 4E 49 54 54 20 28 3D 20 4B 4D 2F 56 45 52 42 2E |NITT (= KM/VERB.|
000003C0: 20 29 20 20 20 3A 20 22 3B B5 28 4C AD 4E AA 2E | ) : ";.(L.N..|
000003D0: 35 29 3B 22 1F 22 00 03 0C 40 01 99 22 11 11 42 |5);"."...@.."..B|
000003E0: 49 54 54 45 20 47 45 42 45 4E 20 53 49 45 20 44 |ITTE GEBEN SIE D|
000003F0: 45 4E 20 51 54 48 2D 4B 45 4E 4E 45 52 22 3A 89 |EN QTH-KENNER":.|
00000400: 31 36 30 00 0D 0C 4A 01 42 24 B2 22 22 00 1E 0C |160...J.B$.""...|
00000410: 54 01 99 22 20 20 20 20 20 20 20 20 22 3B 00 29 |T.." ";.)|
00000420: 0C 5E 01 81 49 B2 31 A4 35 00 42 0C 68 01 A1 41 |.^..I.1.5.B.h..A|
00000430: 24 28 49 29 3A 8B 41 24 28 49 29 B2 22 22 A7 33 |$(I):.A$(I)."".3|
00000440: 36 30 00 55 0C 72 01 8B 41 24 28 49 29 B2 22 2A |60.U.r..A$(I)."*|
00000450: 22 A7 37 33 30 00 61 0C 7C 01 99 41 24 28 49 29 |".730.a.|..A$(I)|
00000460: 3B 00 71 0C 86 01 42 24 B2 42 24 AA 41 24 28 49 |;.q...B$.B$.A$(I|
00000470: 29 00 78 0C 90 01 82 49 00 95 0C 9A 01 8B 41 24 |).x....I......A$|
00000480: 28 31 29 B3 22 41 22 B0 41 24 28 31 29 B1 22 5A |(1)."A".A$(1)."Z|
00000490: 22 A7 36 36 30 00 B2 0C A4 01 8B 41 24 28 32 29 |".660......A$(2)|
000004A0: B3 22 41 22 B0 41 24 28 32 29 B1 22 5A 22 A7 36 |."A".A$(2)."Z".6|
000004B0: 36 30 00 C4 0C AE 01 41 B2 C6 28 41 24 28 31 29 |60.....A..(A$(1)|
000004C0: 29 AB 36 34 00 D5 0C B8 01 8B 41 B1 31 34 A7 41 |).64......A.14.A|
000004D0: B2 41 AB 32 36 00 E7 0C C2 01 42 B2 C6 28 41 24 |.A.26.....B..(A$|
000004E0: 28 32 29 29 AB 36 34 00 F9 0C CC 01 43 B2 C6 28 |(2)).64.....C..(|
000004F0: 41 24 28 33 29 29 AB 34 38 00 0B 0D D6 01 44 B2 |A$(3)).48.....D.|
00000500: C6 28 41 24 28 34 29 29 AB 34 38 00 1C 0D E0 01 |.(A$(4)).48.....|
00000510: 8B 43 B3 30 B0 43 B1 38 A7 36 36 30 00 2D 0D EA |.C.0.C.8.660.-..|
00000520: 01 8B 44 B3 30 B0 44 B1 39 A7 36 36 30 00 3F 0D |..D.0.D.9.660.?.|
00000530: F4 01 8B 43 B2 38 AF 44 B3 B1 30 A7 36 36 30 00 |...C.8.D..0.660.|
00000540: 50 0D FE 01 8B 43 B2 30 AF 44 B2 30 A7 36 36 30 |P....C.0.D.0.660|
00000550: 00 64 0D 08 02 8B 44 B2 30 A7 44 B2 31 30 3A 43 |.d....D.0.D.10:C|
00000560: B2 43 AB 31 00 8B 0D 12 02 8B 41 24 28 35 29 B3 |.C.1......A$(5).|
00000570: 22 41 22 B0 41 24 28 35 29 B1 22 4A 22 B0 41 24 |"A".A$(5)."J".A$|
00000580: 28 35 29 B2 22 49 22 A7 36 36 30 00 A2 0D 1C 02 |(5)."I".660.....|
00000590: 8B 41 24 28 35 29 B2 22 41 22 A7 45 B2 32 3A 46 |.A$(5)."A".E.2:F|
000005A0: B2 33 00 B9 0D 26 02 8B 41 24 28 35 29 B2 22 42 |.3...&..A$(5)."B|
000005B0: 22 A7 45 B2 33 3A 46 B2 33 00 D0 0D 30 02 8B 41 |".E.3:F.3...0..A|
000005C0: 24 28 35 29 B2 22 43 22 A7 45 B2 33 3A 46 B2 32 |$(5)."C".E.3:F.2|
000005D0: 00 E7 0D 3A 02 8B 41 24 28 35 29 B2 22 44 22 A7 |...:..A$(5)."D".|
000005E0: 45 B2 33 3A 46 B2 31 00 FE 0D 44 02 8B 41 24 28 |E.3:F.1...D..A$(|
000005F0: 35 29 B2 22 45 22 A7 45 B2 32 3A 46 B2 31 00 15 |5)."E".E.2:F.1..|
00000600: 0E 4E 02 8B 41 24 28 35 29 B2 22 46 22 A7 45 B2 |.N..A$(5)."F".E.|
00000610: 31 3A 46 B2 31 00 2C 0E 58 02 8B 41 24 28 35 29 |1:F.1.,.X..A$(5)|
00000620: B2 22 47 22 A7 45 B2 31 3A 46 B2 32 00 43 0E 62 |."G".E.1:F.2.C.b|
00000630: 02 8B 41 24 28 35 29 B2 22 48 22 A7 45 B2 31 3A |..A$(5)."H".E.1:|
00000640: 46 B2 33 00 5A 0E 6C 02 8B 41 24 28 35 29 B2 22 |F.3.Z.l..A$(5)."|
00000650: 4A 22 A7 45 B2 32 3A 46 B2 32 00 7B 0E 76 02 47 |J".E.2:F.2.{.v.G|
00000660: 4C B2 28 45 AA 33 AC 44 29 AD 31 35 AA 32 AC 41 |L.(E.3.D).15.2.A|
00000670: AB 32 2E 32 33 33 33 33 33 33 33 00 9B 0E 80 02 |.2.23333333.....|
00000680: 47 42 B2 28 46 AB 33 AC 43 29 AD 32 34 AA 42 AA |GB.(F.3.C).24.B.|
00000690: 33 39 2E 38 35 34 31 36 36 36 36 00 A6 0E 8A 02 |39.85416666.....|
000006A0: 41 4A B2 30 3A 8E 00 B0 0E 94 02 99 22 93 1C 22 |AJ.0:.......".."|
000006B0: 00 C9 0E 9E 02 99 22 45 49 4E 47 41 42 45 46 45 |......"EINGABEFE|
000006C0: 48 4C 45 52 21 11 11 11 22 00 EA 0E A8 02 99 22 |HLER!..."......"|
000006D0: 55 45 42 45 52 50 52 55 45 46 45 4E 20 53 49 45 |UEBERPRUEFEN SIE|
000006E0: 20 44 49 45 20 45 49 4E 2D 22 00 03 0F B2 02 99 | DIE EIN-"......|
000006F0: 22 11 47 45 47 45 42 45 4E 45 4E 20 57 45 52 54 |".GEGEBENEN WERT|
00000700: 45 21 22 00 2F 0F BC 02 99 22 11 11 11 11 46 41 |E!"./...."....FA|
00000710: 4C 53 43 48 45 52 20 53 54 41 4E 44 4F 52 54 4B |LSCHER STANDORTK|
00000720: 45 4E 4E 45 52 20 3A 20 22 42 24 22 11 1F 22 00 |ENNER : "B$"..".|
00000730: 3A 0F C6 02 41 4A B2 31 3A 8E 00 5F 0F DA 02 99 |:...AJ.1:.._....|
00000740: 22 93 53 55 4D 4D 45 20 44 45 52 20 4B 49 4C 4F |".SUMME DER KILO|
00000750: 4D 45 54 45 52 20 20 20 20 20 20 3A 22 3B 4C 00 |METER :";L.|
00000760: 85 0F E4 02 99 22 11 11 41 4E 5A 41 48 4C 20 44 |....."..ANZAHL D|
00000770: 45 52 20 56 45 52 42 49 4E 44 55 4E 47 45 4E 20 |ER VERBINDUNGEN |
00000780: 20 3A 22 3B 4E 00 B8 0F EE 02 99 22 11 11 53 43 | :";N......"..SC|
00000790: 48 4E 49 54 54 20 28 3D 20 4B 4D 20 50 52 4F 20 |HNITT (= KM PRO |
000007A0: 56 45 52 42 2E 29 20 3A 22 3B B5 28 4C AD 4E AA |VERB.) :";.(L.N.|
000007B0: 2E 35 29 22 11 11 11 22 00 BE 0F F8 02 80 00 00 |.5)"..."........|
000007C0: 00 B1 41 |..A |
.......53280,1:.53281,1:."..".K...."DIES
ES PROGRAMM BERECHNET ENTFERNUNGEN".X...
.".ZWISCHEN 2 AMATEURFUNKSTELLEN. BITTE"
...(..".GEBEN SIE STANDORTKENNER IN DER
UEB-"...2..".LICHEN FORM EIN."...<.."..W
ENN SIE DAS PROGRAMM BEENDEN MOECHTEN,".
..F..".GEBEN SIE BITTE EIN '*' EIN!".C.P
.."...BITTE DRUECKEN SIE IRGENDEINE TAST
E!".U.Z..T$:.T$."".90._.D..".."...N.AN.1
:."BITTE GEBEN SIE DEN QTH-KENNER":....X
.."DES EIGENEN STANDORTES EIN!..".I....3
30:.AN.1.AJ.1.110.....AN.0:L1.GL:B1.GB:E
$.B$......".BITTE GEBEN SIE DEN QTH-KENN
ER".+. ..".DER GEGENSTATION EIN!..".>...
.330:.AJ.1.320.T...L2.GL:B2.GB:G$.B$._..
.."..."...H.CF..(.(L1.L2)...180)..(B1...
180)..(B2...180)...R.CF.CF..(B1...180)..
(B2...180).N...F..A(CF..(1.CF.CF))...2..
...DX.F.6368......"."......"DIE ENTFERNU
NG "E$;"-";G$;" BETRAEGT":..9...."
";.(DX..5);"KILOMETER.".P...L.L..(DX..
5):."..".Z...N.N.1.."..".SUMME DER KILO
METER : ";L...,..".ANZAHL DER VERBIN
DUNGEN : ";N:..V.6.."SCHNITT (= KM/VERB.
) : ";.(L.N..5);"."...@.."..BITTE GEB
EN SIE DEN QTH-KENNER":.160...J.B$.""...
T.." ";.).^..I.1.5.B.H..A$(I):.A$
(I)."".360.U.R..A$(I)."*".730.A.|..A$(I)
;.Q...B$.B$.A$(I).X....I......A$(1)."A".
A$(1)."Z".660......A$(2)."A".A$(2)."Z".6
60.D...A.F(A$(1)).64.U....A.14.A.A.26...
B.B.F(A$(2)).64...L.C.F(A$(3)).48...V.D.
F(A$(4)).48......C.0.C.8.660.-....D.0.D.
9.660.?....C.8.D..0.660.P....C.0.D.0.660
.D....D.0.D.10:C.C.1......A$(5)."A".A$(5
)."J".A$(5)."I".660......A$(5)."A".E.2:F
.3...&..A$(5)."B".E.3:F.3.P.0..A$(5)."C"
.E.3:F.2...:..A$(5)."D".E.3:F.1...D..A$(
5)."E".E.2:F.1...N..A$(5)."F".E.1:F.1.,.
X..A$(5)."G".E.1:F.2.C.B..A$(5)."H".E.1:
F.3.Z.L..A$(5)."J".E.2:F.2.{.V.GL.(E.3.D
).15.2.A.2.23333333.....GB.(F.3.C).24.B.
39.85416666.....AJ.0:......."..".I...."E
INGABEFEHLER!..."......"UEBERPRUEFEN SIE
DIE EIN-"......".GEGEBENEN WERTE!"./...
."....FALSCHER STANDORTKENNER : "B$"..".
:.F.AJ.1:.._.Z..".SUMME DER KILOMETER
:";L......"..ANZAHL DER VERBINDUNGEN
:";N......"..SCHNITT (= KM PRO VERB.) :
";.(L.N..5)"..."..........A
> CLICK IMAGE PREVIEW FOR FULL MODAL