QTH BERECHN. NEU

FILE INFORMATION

FILENAME(S): QTH BERECHN. NEU

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-10-20 00:40:11

APPEARS ON: 1 disk(s)

FILE HASH

44d1feac6b02382774ae99fa6363df67606453f4deb9c5880ab79313d74b45c7

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DISKETTE NR 171	QTH BERECHN. NEU	PRG	Treasure Chest - Joker79	35	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0A 08 0A 00 99 22  93 22 00 35 08 14 00 99  |.......".".5....|
00000010: 22 11 11 11 20 20 20 20  20 50 52 4F 47 52 41 4D  |"...     PROGRAM|
00000020: 4D 20 5A 55 52 20 42 45  52 45 43 48 4E 55 4E 47  |M ZUR BERECHNUNG|
00000030: 20 56 4F 4E 22 00 5E 08  1E 00 99 22 11 20 20 20  | VON".^....".   |
00000040: 20 20 45 4E 54 46 45 52  4E 55 4E 47 45 4E 20 5A  |  ENTFERNUNGEN Z|
00000050: 57 49 53 43 48 45 4E 20  5A 57 45 49 20 22 00 86  |WISCHEN ZWEI "..|
00000060: 08 28 00 99 22 11 20 20  20 20 20 51 54 48 2D 4B  |.(..".     QTH-K|
00000070: 45 4E 4E 45 52 4E 20 4E  41 43 48 20 44 45 4D 20  |ENNERN NACH DEM |
00000080: 4E 45 55 45 4E 22 00 A7  08 32 00 99 22 11 20 20  |NEUEN"...2..".  |
00000090: 20 20 20 51 54 48 2D 20  4B 45 4E 4E 45 52 20 53  |   QTH- KENNER S|
000000A0: 59 53 54 45 4D 2E 22 00  CF 08 3C 00 99 22 11 20  |YSTEM."...<..". |
000000B0: 20 20 20 20 44 49 45 20  45 49 4E 47 41 42 45 20  |    DIE EINGABE |
000000C0: 4D 55 53 53 20 44 41 48  45 52 20 12 36 92 22 00  |MUSS DAHER .6.".|
000000D0: EE 08 46 00 99 22 11 20  20 20 20 20 53 54 45 4C  |..F..".     STEL|
000000E0: 4C 49 47 20 45 52 46 4F  4C 47 45 4E 2E 22 00 18  |LIG ERFOLGEN."..|
000000F0: 09 47 00 99 22 11 20 20  20 20 20 44 49 45 20 47  |.G..".     DIE G|
00000100: 45 53 41 4D 54 41 55 53  57 45 52 54 55 4E 47 20  |ESAMTAUSWERTUNG |
00000110: 45 52 46 4F 4C 47 54 22  00 46 09 48 00 99 22 11  |ERFOLGT".F.H..".|
00000120: 20 20 20 20 20 4E 41 43  48 20 42 45 12 45 4E 44  |     NACH BE.END|
00000130: 92 49 47 55 4E 47 20 44  45 53 20 50 52 4F 47 52  |.IGUNG DES PROGR|
00000140: 41 4D 4D 45 53 22 00 70  09 4B 00 99 22 11 11 11  |AMMES".p.K.."...|
00000150: 11 11 11 20 20 20 20 20  20 20 20 20 20 12 57 45  |...          .WE|
00000160: 49 54 45 52 20 4D 49 54  20 53 50 41 43 45 92 22  |ITER MIT SPACE."|
00000170: 00 82 09 4C 00 A1 41 24  3A 8B 41 24 B2 22 22 A7  |...L..A$:.A$."".|
00000180: 37 36 00 8B 09 50 00 99  22 93 22 00 A3 09 A0 00  |76...P..".".....|
00000190: 99 C7 28 33 29 3A 8F 20  53 52 45 45 4E 20 43 4C  |..(3):. SREEN CL|
000001A0: 45 41 52 00 CB 09 C8 00  50 49 B2 33 2E 31 34 31  |EAR.....PI.3.141|
000001B0: 35 39 33 3A 50 B2 50 49  AD 31 38 30 3A 46 B2 34  |593:P.PI.180:F.4|
000001C0: 30 30 30 39 AD 28 32 AC  50 49 29 00 F2 09 22 01  |0009.(2.PI)...".|
000001D0: 99 22 11 11 11 11 20 20  20 20 20 20 47 45 42 45  |."....      GEBE|
000001E0: 4E 20 53 49 45 20 42 49  54 54 45 20 49 48 52 45  |N SIE BITTE IHRE|
000001F0: 4E 22 00 17 0A 27 01 99  22 11 20 20 20 20 20 20  |N"...'..".      |
00000200: 45 49 47 45 4E 45 4E 20  51 54 48 2D 4B 45 4E 4E  |EIGENEN QTH-KENN|
00000210: 45 52 20 45 49 4E 22 00  31 0A 2C 01 99 3A 99 A3  |ER EIN".1.,..:..|
00000220: 36 29 3A 20 85 51 45 24  20 3A 51 46 24 B2 51 45  |6): .QE$ :QF$.QE|
00000230: 24 00 52 0A 36 01 8B C3  28 51 46 24 29 B2 36 A7  |$.R.6...(QF$).6.|
00000240: 99 3A 99 22 1D 1D 1D 1D  1D 1D 12 44 41 4E 4B 45  |.:.".......DANKE|
00000250: 92 22 00 66 0A 3B 01 81  49 B2 31 A4 35 30 30 3A  |.".f.;..I.1.500:|
00000260: 82 3A 99 22 93 22 00 93  0A 40 01 8D 34 30 30 30  |.:."."...@..4000|
00000270: 3A 4C 45 B2 4C 46 3A 42  45 B2 42 46 3A 8F 20 43  |:LE.LF:BE.BF:. C|
00000280: 48 45 43 4B 20 55 4E 44  20 55 4D 52 45 43 48 4E  |HECK UND UMRECHN|
00000290: 55 4E 47 00 A0 0A 54 01  99 3A 99 3A 46 4C B2 31  |UNG...T..:.:FL.1|
000002A0: 00 CF 0A 86 01 99 22 11  11 11 11 1D 1D 1D 1D 1D  |......".........|
000002B0: 42 49 54 54 45 20 47 45  42 45 4E 20 53 49 45 20  |BITTE GEBEN SIE |
000002C0: 44 45 4E 20 51 54 48 20  4B 45 4E 4E 45 52 22 00  |DEN QTH KENNER".|
000002D0: F1 0A 8B 01 99 22 11 1D  1D 1D 1D 1D 44 45 52 20  |....."......DER |
000002E0: 47 45 47 45 4E 53 54 41  54 49 4F 4E 20 45 49 4E  |GEGENSTATION EIN|
000002F0: 22 00 FF 0A 90 01 99 A3  35 29 3A 85 51 46 24 00  |".......5):.QF$.|
00000300: 12 0B A4 01 8B 51 46 24  B2 22 45 4E 44 22 A7 37  |.....QF$."END".7|
00000310: 39 30 00 2E 0B B8 01 8B  51 46 24 B2 51 45 24 A7  |90......QF$.QE$.|
00000320: 20 85 22 4B 4D 22 3B 44  58 3A 89 36 30 30 00 49  | ."KM";DX:.600.I|
00000330: 0B CC 01 8D 34 30 30 30  3A 47 41 B2 4C 46 AB 4C  |....4000:GA.LF.L|
00000340: 45 3A 42 B2 42 46 AB 42  45 00 65 0B F3 01 8F 20  |E:B.BF.BE.e.... |
00000350: 45 4E 54 46 45 52 4E 55  4E 47 53 42 45 52 45 43  |ENTFERNUNGSBEREC|
00000360: 48 4E 55 4E 47 00 89 0B  F4 01 4E B2 BF 28 42 45  |HNUNG.....N..(BE|
00000370: 29 AC BF 28 42 46 29 AA  BE 28 42 45 29 AC BE 28  |)..(BF)..(BE)..(|
00000380: 42 46 29 AC BE 28 47 41  29 00 AE 0B 08 02 44 58  |BF)..(GA).....DX|
00000390: B2 B5 28 28 AB C1 28 4E  AD BA 28 31 AB 4E AC 4E  |..((..(N..(1.N.N|
000003A0: 29 29 AA 50 49 AD 32 29  AC 46 AA 2E 35 29 00 C1  |)).PI.2).F..5)..|
000003B0: 0B 58 02 51 B2 51 AA 31  3A 53 55 B2 53 55 AA 44  |.X.Q.Q.1:SU.SU.D|
000003C0: 58 00 D4 0B 6C 02 8B 44  58 B1 4F 44 58 A7 4F 44  |X...l..DX.ODX.OD|
000003D0: 58 B2 44 58 00 0A 0C 80  02 99 3A 99 22 1D 1D 1D  |X.DX......:."...|
000003E0: 1D 1D 44 49 45 20 45 4E  54 46 45 52 4E 55 4E 47  |..DIE ENTFERNUNG|
000003F0: 20 42 45 54 52 41 45 47  54 12 22 44 58 22 4B 4D  | BETRAEGT."DX"KM|
00000400: 2E 92 22 3A 99 3A 89 33  39 30 00 13 0C 16 03 99  |..":.:.390......|
00000410: 22 93 22 00 27 0C 1F 03  8F 20 45 4E 44 41 42 52  |".".'.... ENDABR|
00000420: 45 43 48 4E 55 4E 47 00  53 0C 20 03 99 22 11 11  |ECHNUNG.S. .."..|
00000430: 11 11 1D 1D 1D 1D 1D 53  49 45 20 48 41 42 45 4E  |.......SIE HABEN|
00000440: 20 22 51 22 20 51 53 4F  27 53 20 47 45 46 55 45  | "Q" QSO'S GEFUE|
00000450: 52 54 22 00 7E 0C 2A 03  99 22 11 1D 1D 1D 1D 1D  |RT".~.*.."......|
00000460: 55 45 42 45 52 20 45 49  4E 45 20 47 45 53 41 4D  |UEBER EINE GESAM|
00000470: 54 45 20 45 4E 54 46 45  52 4E 55 4E 47 22 00 96  |TE ENTFERNUNG"..|
00000480: 0C 2F 03 99 22 11 1D 1D  1D 1D 1D 56 4F 4E 22 53  |./.."......VON"S|
00000490: 55 22 4B 4D 2E 22 00 CC  0C 34 03 99 22 11 1D 1D  |U"KM."...4.."...|
000004A0: 1D 1D 1D 49 4D 20 53 43  48 4E 49 54 54 20 53 49  |...IM SCHNITT SI|
000004B0: 4E 44 20 45 53 3A 22 B5  28 53 55 AD 51 AA 2E 35  |ND ES:".(SU.Q..5|
000004C0: 29 22 4B 4D 2E 2F 51 53  4F 22 3A 99 00 F1 0C 48  |)"KM./QSO":....H|
000004D0: 03 99 22 11 1D 1D 1D 1D  1D 44 49 45 20 57 45 49  |.."......DIE WEI|
000004E0: 54 45 53 54 45 20 56 45  52 42 49 4E 44 55 4E 47  |TESTE VERBINDUNG|
000004F0: 22 00 12 0D 52 03 99 22  11 1D 1D 1D 1D 1D 47 49  |"...R.."......GI|
00000500: 4E 47 20 55 45 42 45 52  20 22 4F 44 58 22 4B 4D  |NG UEBER "ODX"KM|
00000510: 2E 22 00 18 0D 84 03 80  00 46 0D 9F 0F 8F 20 43  |.".......F.... C|
00000520: 48 45 43 4B 20 55 4E 44  20 55 4D 52 45 43 48 4E  |HECK UND UMRECHN|
00000530: 55 4E 47 20 49 4E 20 4C  41 45 4E 47 45 20 2F 20  |UNG IN LAENGE / |
00000540: 42 52 45 49 54 45 00 5A  0D A0 0F 8B C3 28 51 46  |BREITE.Z.....(QF|
00000550: 24 29 B3 B1 36 A7 35 35  30 30 00 78 0D B4 0F 81  |$)..6.5500.x....|
00000560: 4E B2 31 A4 36 3A 54 24  28 4E 29 B2 CA 28 51 46  |N.1.6:T$(N)..(QF|
00000570: 24 2C 4E 2C 31 29 3A 82  00 83 0D C8 0F 81 4E B2  |$,N,1):.......N.|
00000580: 31 A4 32 00 A5 0D F0 0F  8B C6 28 54 24 28 4E 29  |1.2.......(T$(N)|
00000590: 29 B3 36 35 B0 C6 28 54  24 28 4E 29 29 B1 38 32  |).65..(T$(N)).82|
000005A0: A7 35 35 30 30 00 CB 0D  04 10 8B C6 28 54 24 28  |.5500.......(T$(|
000005B0: 4E AA 32 29 29 B3 34 38  B0 C6 28 54 24 28 4E AA  |N.2)).48..(T$(N.|
000005C0: 32 29 29 B1 35 37 A7 35  35 30 30 00 F1 0D 18 10  |2)).57.5500.....|
000005D0: 8B C6 28 54 24 28 4E AA  34 29 29 B3 36 35 B0 C6  |..(T$(N.4)).65..|
000005E0: 28 54 24 28 4E AA 34 29  29 B1 38 38 A7 35 35 30  |(T$(N.4)).88.550|
000005F0: 30 00 F7 0D 2C 10 82 00  34 0E 88 13 4C 46 B2 28  |0...,...4...LF.(|
00000600: C6 28 54 24 28 31 29 29  AB 36 35 29 AC 32 30 AB  |.(T$(1)).65).20.|
00000610: 31 38 30 AA C5 28 54 24  28 33 29 29 AC 32 AA 28  |180..(T$(3)).2.(|
00000620: C6 28 54 24 28 35 29 29  AB 36 35 29 AD 31 32 AA  |.(T$(5)).65).12.|
00000630: 31 AD 32 34 00 6E 0E EC  13 42 46 B2 28 C6 28 54  |1.24.n...BF.(.(T|
00000640: 24 28 32 29 29 AB 36 35  29 AC 31 30 AB 39 30 AA  |$(2)).65).10.90.|
00000650: C5 28 54 24 28 34 29 29  AA 28 C6 28 54 24 28 36  |.(T$(4)).(.(T$(6|
00000660: 29 29 AB 36 35 29 AD 32  34 AA 31 AD 34 38 00 84  |)).65).24.1.48..|
00000670: 0E 28 14 4C 46 B2 4C 46  AC 50 3A 42 46 B2 42 46  |.(.LF.LF.P:BF.BF|
00000680: AC 50 3A 8E 00 AA 0E 7B  15 8F 20 45 52 4E 45 55  |.P:....{.. ERNEU|
00000690: 54 45 20 45 49 4E 47 41  42 45 20 44 45 53 20 51  |TE EINGABE DES Q|
000006A0: 54 48 20 4B 45 4E 4E 45  52 53 00 CD 0E 7C 15 8B  |TH KENNERS...|..|
000006B0: 46 4C B2 30 A7 32 39 30  3A 8F 20 45 49 47 45 4E  |FL.0.290:. EIGEN|
000006C0: 45 52 20 51 54 48 20 4B  45 4E 4E 45 52 00 EB 0E  |ER QTH KENNER...|
000006D0: 90 15 89 33 39 30 3A 8F  20 46 52 45 4D 44 45 52  |...390:. FREMDER|
000006E0: 20 51 54 48 20 4B 45 4E  4E 45 52 00 00 00 FF 00  | QTH KENNER.....|
000006F0: 52 9B                                             |R.              |

.......".".5...."...     PROGRAMM ZUR BE
RECHNUNG VON".^....".     ENTFERNUNGEN Z
WISCHEN ZWEI "...(..".     QTH-KENNERN N
ACH DEM NEUEN"...2..".     QTH- KENNER S
YSTEM.".O.<..".     DIE EINGABE MUSS DAH
ER .6."...F..".     STELLIG ERFOLGEN."..
.G..".     DIE GESAMTAUSWERTUNG ERFOLGT"
.F.H..".     NACH BE.END.IGUNG DES PROGR
AMMES".P.K.."......          .WEITER MIT
 SPACE."...L..A$:.A$."".76...P.."."... .
.G(3):. SREEN CLEAR.K.H.PI.3.141593:P.PI
.180:F.40009.(2.PI)...".."....      GEBE
N SIE BITTE IHREN"...'..".      EIGENEN 
QTH-KENNER EIN".1.,..:..6): .QE$ :QF$.QE
$.R.6..C(QF$).6..:.".......DANKE.".F.;..
I.1.500:.:."."...@..4000:LE.LF:BE.BF:. C
HECK UND UMRECHNUNG. .T..:.:FL.1.O....".
........BITTE GEBEN SIE DEN QTH KENNER".
....."......DER GEGENSTATION EIN".......
5):.QF$......QF$."END".790......QF$.QE$.
 ."KM";DX:.600.I.L..4000:GA.LF.LE:B.BF.B
E.E.... ENTFERNUNGSBERECHNUNG.....N..(BE
)..(BF)..(BE)..(BF)..(GA).....DX..((.A(N
..(1.N.N)).PI.2).F..5).A.X.Q.Q.1:SU.SU.D
X.T.L..DX.ODX.ODX.DX......:.".....DIE EN
TFERNUNG BETRAEGT."DX"KM..":.:.390......
".".'.... ENDABRECHNUNG.S. ..".........S
IE HABEN "Q" QSO'S GEFUERT".~.*.."......
UEBER EINE GESAMTE ENTFERNUNG".../.."...
...VON"SU"KM.".L.4.."......IM SCHNITT SI
ND ES:".(SU.Q..5)"KM./QSO":....H..".....
.DIE WEITESTE VERBINDUNG"...R.."......GI
NG UEBER "ODX"KM.".......F.... CHECK UND
 UMRECHNUNG IN LAENGE / BREITE.Z. ..C(QF
$)..6.5500.X....N.1.6:T$(N).J(QF$,N,1):.
...H..N.1.2......F(T$(N)).65.F(T$(N)).82
.5500.K....F(T$(N.2)).48.F(T$(N.2)).57.5
500......F(T$(N.4)).65.F(T$(N.4)).88.550
0...,...4...LF.(F(T$(1)).65).20.180.E(T$
(3)).2.(F(T$(5)).65).12.1.24.N...BF.(F(T
$(2)).65).10.90.E(T$(4)).(F(T$(6)).65).2
4.1.48...(.LF.LF.P:BF.BF.P:....{.. ERNEU
TE EINGABE DES QTH KENNERS.M.|..FL.0.290
:. EIGENER QTH KENNER......390:. FREMDER
 QTH KENNER.....R.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL