> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 52 08 00 00 8F 20 20 20 57 45 4C 54 57 45 |..R.... WELTWE|
00000010: 49 54 45 20 20 45 4E 54 46 45 52 4E 55 4E 47 53 |ITE ENTFERNUNGS|
00000020: 42 45 52 45 43 48 4E 55 4E 47 20 20 20 20 20 20 |BERECHNUNG |
00000030: 20 20 54 48 45 4F 44 4F 52 20 42 55 45 43 4B 45 | THEODOR BUECKE|
00000040: 52 20 34 30 30 30 20 44 55 45 53 53 45 4C 44 4F |R 4000 DUESSELDO|
00000050: 52 46 00 95 08 01 00 53 B2 30 3A 41 B2 53 3A 5A |RF.....S.0:A.S:Z|
00000060: B2 B6 28 41 B2 53 29 3A 45 B2 31 45 AB 39 3A 43 |..(A.S):E.1E.9:C|
00000070: 24 B2 22 3F 22 3A 54 B2 C2 28 34 31 34 36 29 B2 |$."?":T..(4146).|
00000080: 33 32 3A 54 43 B2 C2 28 32 30 36 37 29 B2 C2 28 |32:TC..(2067)..(|
00000090: 32 31 30 34 29 00 BB 08 02 00 8B A8 54 A7 54 B2 |2104).......T.T.|
000000A0: C2 28 34 36 35 38 29 B2 33 32 3A 8B A8 54 A7 54 |.(4658).32:..T.T|
000000B0: B2 C2 28 31 30 37 34 29 B2 33 32 00 E9 08 03 00 |..(1074).32.....|
000000C0: 97 35 33 32 38 30 2C 30 3A 99 22 05 22 3A 56 43 |.53280,0:.".":VC|
000000D0: B2 B6 28 C2 28 36 30 30 30 30 29 B2 31 36 30 29 |..(.(60000).160)|
000000E0: 3A 8B 56 43 A7 99 22 90 22 00 31 09 04 00 99 22 |:.VC..".".1...."|
000000F0: 93 22 3A 99 22 20 57 45 4C 54 57 45 49 54 45 20 |.":." WELTWEITE |
00000100: 20 45 4E 54 46 45 52 4E 55 4E 47 53 2D 20 55 4E | ENTFERNUNGS- UN|
00000110: 44 22 2C 2C 22 20 41 4E 54 45 4E 4E 45 4E 52 49 |D",," ANTENNENRI|
00000120: 43 48 54 55 4E 47 53 42 45 52 45 43 48 4E 55 4E |CHTUNGSBERECHNUN|
00000130: 47 00 4E 09 05 00 99 22 11 1D 28 43 29 20 54 48 |G.N...."..(C) TH|
00000140: 45 4F 44 4F 52 20 42 55 45 43 4B 45 52 22 00 81 |EODOR BUECKER"..|
00000150: 09 06 00 99 22 11 20 42 49 54 54 45 20 44 45 4E |....". BITTE DEN|
00000160: 20 45 49 47 45 4E 45 4E 22 3A 99 22 20 51 54 48 | EIGENEN":." QTH|
00000170: 2D 4B 45 4E 4E 45 52 20 45 49 4E 47 45 42 45 4E |-KENNER EINGEBEN|
00000180: 22 00 95 09 07 00 42 B2 FF AD 31 38 30 3A 8D 36 |".....B...180:.6|
00000190: 35 3A 8D 36 35 00 9F 09 09 00 99 3A 85 41 24 00 |5:.65......:.A$.|
000001A0: B0 09 0C 00 8B C3 28 41 24 29 B3 B1 36 A7 34 30 |......(A$)..6.40|
000001B0: 00 F0 09 0D 00 8B 41 24 B3 22 41 22 B0 41 24 B1 |......A$."A".A$.|
000001C0: 22 53 22 B0 CA 28 41 24 2C 32 2C 31 29 B3 22 41 |"S"..(A$,2,1)."A|
000001D0: 22 B0 CA 28 41 24 2C 32 2C 31 29 B1 22 52 22 B0 |"..(A$,2,1)."R".|
000001E0: CA 28 41 24 2C 33 2C 31 29 B1 22 39 22 A7 34 30 |.(A$,3,1)."9".40|
000001F0: 00 22 0A 0E 00 8B CA 28 41 24 2C 34 2C 31 29 B1 |.".....(A$,4,1).|
00000200: 22 39 22 B0 CA 28 41 24 2C 35 2C 31 29 B3 22 41 |"9"..(A$,5,1)."A|
00000210: 22 B0 CA 28 41 24 2C 36 2C 31 29 B3 22 41 22 A7 |"..(A$,6,1)."A".|
00000220: 34 30 00 32 0A 0F 00 8D 36 35 3A 8B 41 B2 30 A7 |40.2....65:.A.0.|
00000230: 33 30 00 4A 0A 10 00 99 22 91 22 3B 5A 3B 22 9D |30.J....".";Z;".|
00000240: 22 3B 22 2E 20 22 3B 41 24 3B 00 52 0A 11 00 8D |";". ";A$;.R....|
00000250: 36 30 00 5C 0A 12 00 59 B2 58 AA 58 00 71 0A 13 |60.\...Y.X.X.q..|
00000260: 00 42 24 B2 41 24 3A 41 24 B2 C9 28 41 24 2C 35 |.B$.A$:A$..(A$,5|
00000270: 29 00 79 0A 14 00 8D 36 30 00 8B 0A 15 00 41 24 |).y....60.....A$|
00000280: B2 22 22 3A 8B 41 B2 30 A7 35 30 00 A7 0A 16 00 |."":.A.0.50.....|
00000290: 4B B2 BF 28 58 29 AC 41 AA BE 28 58 29 AC 41 41 |K..(X).A..(X).AA|
000002A0: AC BE 28 59 AB 43 29 00 CD 0A 17 00 4B B2 B5 28 |..(Y.C).....K..(|
000002B0: 28 AB C1 28 4B AD BA 28 31 AB 4B AC 4B 29 29 AA |(..(K..(1.K.K)).|
000002C0: FF AD 32 29 AC 36 33 36 38 AA 2E 35 29 00 E7 0A |..2).6368..5)...|
000002D0: 18 00 99 A3 31 38 AB C3 28 C4 28 4B 29 29 29 3B |....18..(.(K)));|
000002E0: 4B 3B 22 4B 4D 22 3B 00 FE 0A 19 00 46 B2 30 3A |K;"KM";.....F.0:|
000002F0: 8B 4B B1 4F A7 4F B2 4B 3A 43 24 B2 42 24 00 15 |.K.O.O.K:C$.B$..|
00000300: 0B 1C 00 53 B2 53 AA 4B 3A 5A B2 5A AA 31 3A 8B |...S.S.K:Z.Z.1:.|
00000310: 44 B2 39 A7 39 00 1D 0B 1D 00 89 37 30 00 26 0B |D.9.9......70.&.|
00000320: 1E 00 99 22 93 22 00 5F 0B 1F 00 99 22 20 45 49 |..."."._...." EI|
00000330: 47 45 4E 45 52 20 53 54 41 4E 44 4F 52 54 3A 20 |GENER STANDORT: |
00000340: 20 20 20 22 3B 41 24 3A 99 22 11 20 57 55 45 4E | ";A$:.". WUEN|
00000350: 53 43 48 45 4E 20 53 49 45 20 45 49 4E 45 22 00 |SCHEN SIE EINE".|
00000360: 96 0B 20 00 99 22 1D 42 45 52 45 43 48 4E 55 4E |.. ..".BERECHNUN|
00000370: 47 20 44 45 52 22 3A 99 22 1D 41 4E 54 45 4E 4E |G DER":.".ANTENN|
00000380: 45 4E 52 49 43 48 54 55 4E 47 20 3F 20 20 20 28 |ENRICHTUNG ? (|
00000390: 4A 2F 4E 29 11 22 00 9E 0B 21 00 A1 42 24 00 BD |J/N)."...!..B$..|
000003A0: 0B 22 00 44 B2 AB 37 30 AC 28 42 24 B2 22 4A 22 |.".D..70.(B$."J"|
000003B0: 29 3A 8B 42 24 B2 22 4E 22 A7 44 B2 39 00 D0 0B |):.B$."N".D.9...|
000003C0: 23 00 8B 44 B3 B1 39 AF 44 B3 B1 37 30 A7 33 33 |#..D..9.D..70.33|
000003D0: 00 DC 0B 24 00 8D 36 35 3A 89 31 37 00 1A 0C 28 |...$..65:.17...(|
000003E0: 00 8B C3 28 41 24 29 B2 30 A7 99 22 91 20 11 9D |...(A$).0..". ..|
000003F0: 47 45 53 41 4D 54 2D 4B 4D 3A 20 22 3B 53 3A 99 |GESAMT-KM: ";S:.|
00000400: 22 30 20 20 4B 4D 2F 51 53 4F 3A 20 22 3B B5 28 |"0 KM/QSO: ";.(|
00000410: 53 AD 28 5A AB 45 AB 31 29 29 00 4D 0C 29 00 46 |S.(Z.E.1)).M.).F|
00000420: B2 46 AA 31 3A 8B 41 24 B2 22 22 A7 99 3A 99 22 |.F.1:.A$.""..:."|
00000430: 4F 44 58 3A 20 22 3B 43 24 3B 22 20 3D 22 3B 4F |ODX: ";C$;" =";O|
00000440: 3B 22 4B 4D 22 3A 8D 36 35 3A 89 34 35 00 82 0C |;"KM":.65:.45...|
00000450: 2A 00 97 35 34 32 39 36 2C 31 35 3A 97 35 34 32 |*..54296,15:.542|
00000460: 37 37 2C 31 35 3A 97 35 34 32 37 33 2C 39 3A 97 |77,15:.54273,9:.|
00000470: 35 34 32 37 32 2C 35 32 3A 97 35 34 32 37 36 2C |54272,52:.54276,|
00000480: 33 33 00 9B 0C 2B 00 97 33 36 38 37 38 2C 31 35 |33...+..36878,15|
00000490: 3A 97 33 36 38 37 34 2C 32 32 30 00 D3 0C 2C 00 |:.36874,220...,.|
000004A0: 8B 28 C3 28 41 24 29 29 B3 31 33 A7 99 22 91 20 |.(.(A$)).13..". |
000004B0: 22 3B 41 24 3B 22 20 22 3B A3 31 30 29 3B 22 46 |";A$;" ";.10);"F|
000004C0: 45 48 4C 45 52 48 41 46 54 45 20 45 49 4E 47 41 |EHLERHAFTE EINGA|
000004D0: 42 45 22 00 F4 0C 2D 00 81 47 B2 31 A4 33 30 30 |BE"...-..G.1.300|
000004E0: 3A 82 3A 97 35 34 32 37 36 2C 30 3A 97 33 36 38 |:.:.54276,0:.368|
000004F0: 37 38 2C 30 00 1A 0D 2E 00 8B 46 B2 33 A7 99 22 |78,0......F.3.."|
00000500: 11 11 1D 53 49 45 20 4C 41 4E 47 57 45 49 4C 45 |...SIE LANGWEILE|
00000510: 4E 20 4D 49 43 48 20 21 11 22 00 59 0D 2F 00 8B |N MICH !.".Y./..|
00000520: 46 B1 34 A7 99 22 11 11 1D 4C 45 53 45 4E 20 53 |F.4.."...LESEN S|
00000530: 49 45 20 4E 4F 43 48 4D 41 4C 20 44 49 45 22 3A |IE NOCHMAL DIE":|
00000540: 99 22 20 42 45 44 49 45 4E 55 4E 47 53 41 4E 4C |." BEDIENUNGSANL|
00000550: 45 49 54 55 4E 47 20 21 22 00 87 0D 30 00 8B C3 |EITUNG !"...0...|
00000560: 28 41 24 29 B1 31 32 AF 46 B3 35 A7 99 22 11 20 |(A$).12.F.5..". |
00000570: 57 41 53 20 53 4F 4C 4C 20 44 45 52 20 55 4E 53 |WAS SOLL DER UNS|
00000580: 49 4E 4E 20 3F 11 22 00 8E 0D 31 00 89 39 00 9E |INN ?."...1..9..|
00000590: 0D 32 00 43 24 B2 22 3F 22 3A 99 22 93 22 00 A9 |.2.C$."?":."."..|
000005A0: 0D 33 00 8B 56 43 A7 35 36 00 E9 0D 35 00 99 22 |.3..VC.56...5.."|
000005B0: 20 42 49 54 54 45 20 47 45 42 45 4E 20 53 49 45 | BITTE GEBEN SIE|
000005C0: 20 44 45 4E 20 51 54 48 2D 4B 45 4E 4E 45 52 20 | DEN QTH-KENNER |
000005D0: 44 45 52 22 3A 99 22 20 47 45 47 45 4E 53 54 41 |DER":." GEGENSTA|
000005E0: 54 49 4F 4E 20 45 49 4E 22 00 08 0E 36 00 41 B2 |TION EIN"...6.A.|
000005F0: BF 28 58 29 3A 41 41 B2 BE 28 58 29 3A 41 42 B2 |.(X):AA..(X):AB.|
00000600: 58 3A 43 B2 59 3A 89 39 00 4E 0E 38 00 99 22 20 |X:C.Y:.9.N.8.." |
00000610: 42 49 54 54 45 20 47 45 42 45 4E 20 53 49 45 20 |BITTE GEBEN SIE |
00000620: 44 45 4E 22 2C 22 20 51 54 48 2D 4B 45 4E 4E 45 |DEN"," QTH-KENNE|
00000630: 52 20 44 45 52 22 2C 22 20 47 45 47 45 4E 53 54 |R DER"," GEGENST|
00000640: 41 54 49 4F 4E 20 45 49 4E 22 3A 89 35 34 00 90 |ATION EIN":.54..|
00000650: 0E 3C 00 58 B2 42 AC 28 31 30 AC 28 C6 28 41 24 |.<.X.B.(10.(.(A$|
00000660: 29 AB 36 35 29 AA C5 28 CA 28 41 24 2C 33 2C 31 |).65)..(.(A$,3,1|
00000670: 29 29 AA 28 C6 28 CA 28 41 24 2C 35 2C 31 29 29 |)).(.(.(A$,5,1))|
00000680: AB 36 35 29 AD 32 34 AA 31 AD 34 38 AB 39 30 29 |.65).24.1.48.90)|
00000690: 00 96 0E 3F 00 8E 00 CB 0E 41 00 97 35 34 32 39 |...?.....A..5429|
000006A0: 36 2C 38 3A 97 35 34 32 37 37 2C 31 35 3A 97 35 |6,8:.54277,15:.5|
000006B0: 34 32 37 33 2C 35 39 3A 97 35 34 32 37 32 2C 35 |4273,59:.54272,5|
000006C0: 32 3A 97 35 34 32 37 36 2C 33 33 00 FE 0E 42 00 |2:.54276,33...B.|
000006D0: 97 33 36 38 37 38 2C 31 35 3A 97 33 36 38 37 34 |.36878,15:.36874|
000006E0: 2C 32 35 30 3A 81 47 B2 31 A4 35 30 3A 97 35 34 |,250:.G.1.50:.54|
000006F0: 32 37 36 2C 30 3A 97 33 36 38 37 38 2C 30 00 19 |276,0:.36878,0..|
00000700: 0F 43 00 8F 49 46 56 43 54 48 45 4E 50 4F 4B 45 |.C..IFVCTHENPOKE|
00000710: 37 37 37 2C 32 30 30 2B 54 00 30 0F 44 00 8B A8 |777,200+T.0.D...|
00000720: 56 43 A7 97 28 37 37 37 29 2C 31 36 38 AA 54 43 |VC..(777),168.TC|
00000730: 00 36 0F 45 00 8E 00 44 0F 46 00 8B 4B B2 30 A7 |.6.E...D.F..K.0.|
00000740: 99 3A 89 39 00 8D 0F 48 00 47 B2 B5 28 2E 35 AA |.:.9...H.G..(.5.|
00000750: 31 AD 42 AC C1 28 28 59 AB 43 29 AD 28 58 AA 45 |1.B..((Y.C).(X.E|
00000760: AB 41 42 29 29 29 AA 33 36 30 AC 28 28 43 B1 59 |.AB))).360.((C.Y|
00000770: 29 AC A8 28 28 43 B1 59 29 AF 28 41 42 B1 58 29 |)..((C.Y).(AB.X)|
00000780: 29 29 AB 28 41 42 B1 58 29 AC FF AD 42 00 A8 0F |)).(AB.X)...B...|
00000790: 4A 00 99 A3 32 37 AB C3 28 C4 28 47 29 29 29 3B |J...27..(.(G)));|
000007A0: 47 3B 22 47 52 41 44 22 00 AF 0F 4B 00 89 39 00 |G;"GRAD"...K..9.|
000007B0: C1 0F 5A 00 81 58 B2 32 30 34 38 A4 31 32 30 30 |..Z..X.2048.1200|
000007C0: 30 00 D0 0F 5B 00 99 58 2C C7 28 C2 28 58 29 29 |0...[..X,.(.(X))|
000007D0: 00 DF 0F 5C 00 81 50 B2 31 A4 37 30 3A 82 50 00 |...\..P.1.70:.P.|
000007E0: E6 0F 5D 00 82 58 00 00 00 |..]..X... |
..R.... WELTWEITE ENTFERNUNGSBERECHNU
NG THEODOR BUECKER 4000 DUESSELDO
RF.....S.0:A.S:Z..(A.S):E.1E.9:C$."?":T.
B(4146).32:TC.B(2067).B(2104).......T.T.
B(4658).32:..T.T.B(1074).32......53280,0
:.".":VC..(B(60000).160):.VC..".".1...."
.":." WELTWEITE ENTFERNUNGS- UND",," AN
TENNENRICHTUNGSBERECHNUNG.N...."..(C) TH
EODOR BUECKER"......". BITTE DEN EIGENEN
":." QTH-KENNER EINGEBEN".....B...180:.6
5:.65......:.A$......C(A$)..6.40......A$
."A".A$."S".J(A$,2,1)."A".J(A$,2,1)."R".
J(A$,3,1)."9".40."....J(A$,4,1)."9".J(A$
,5,1)."A".J(A$,6,1)."A".40.2....65:.A.0.
30.J....".";Z;".";". ";A$;.R....60.\...Y
.X.X.Q...B$.A$:A$.I(A$,5).Y....60.....A$
."":.A.0.50.....K..(X).A..(X).AA..(Y.C).
M...K..((.A(K..(1.K.K))...2).6368..5)...
....18.C(D(K)));K;"KM";.....F.0:.K.O.O.K
:C$.B$.....S.S.K:Z.Z.1:.D.9.9......70.&.
..."."._...." EIGENER STANDORT: ";A$:
.". WUENSCHEN SIE EINE"... ..".BERECHNUN
G DER":.".ANTENNENRICHTUNG ? (J/N)."..
.!..B$...".D..70.(B$."J"):.B$."N".D.9.P.
#..D..9.D..70.33...$..65:.17...(..C(A$).
0..". ..GESAMT-KM: ";S:."0 KM/QSO: ";.(
S.(Z.E.1)).M.).F.F.1:.A$.""..:."ODX: ";C
$;" =";O;"KM":.65:.45...*..54296,15:.542
77,15:.54273,9:.54272,52:.54276,33...+..
36878,15:.36874,220.S.,..(C(A$)).13..".
";A$;" ";.10);"FEHLERHAFTE EINGABE"...-.
.G.1.300:.:.54276,0:.36878,0......F.3.."
...SIE LANGWEILEN MICH !.".Y./..F.4.."..
.LESEN SIE NOCHMAL DIE":." BEDIENUNGSANL
EITUNG !"...0..C(A$).12.F.5..". WAS SOLL
DER UNSINN ?."...1..9...2.C$."?":."."..
.3..VC.56...5.." BITTE GEBEN SIE DEN QTH
-KENNER DER":." GEGENSTATION EIN"...6.A.
.(X):AA..(X):AB.X:C.Y:.9.N.8.." BITTE GE
BEN SIE DEN"," QTH-KENNER DER"," GEGENST
ATION EIN":.54...<.X.B.(10.(F(A$).65).E(
J(A$,3,1)).(F(J(A$,5,1)).65).24.1.48.90)
...?...K.A..54296,8:.54277,15:.54273,59:
.54272,52:.54276,33...B..36878,15:.36874
,250:.G.1.50:.54276,0:.36878,0...C..IFVC
THENPOKE777,200+T.0.D...VC..(777),168.TC
.6.E...D.F..K.0..:.9...H.G..(.5.1.B.A((Y
.C).(X.E.AB))).360.((C.Y)..((C.Y).(AB.X)
)).(AB.X)...B...J...27.C(D(G)));G;"GRAD"
...K..9.A.Z..X.2048.12000.P.[..X,G(B(X))
...\..P.1.70:.P...]..X...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL