> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 2A 20 51 54 48 2D 4C 4F 43 |..(....* QTH-LOC|
00000010: 41 54 4F 52 3A 20 41 46 53 54 41 4E 44 26 52 49 |ATOR: AFSTAND&RI|
00000020: 43 48 54 49 4E 47 20 2A 00 4F 08 14 00 8F 2A 20 |CHTING *.O....* |
00000030: 56 4F 4F 52 20 4D 41 49 44 45 4E 48 45 41 44 20 |VOOR MAIDENHEAD |
00000040: 4C 4F 43 41 54 4F 52 20 20 20 20 20 20 20 2A 00 |LOCATOR *.|
00000050: 76 08 1E 00 8F 2A 20 56 4F 4C 47 45 4E 53 20 4F |v....* VOLGENS O|
00000060: 4E 37 4C 4E 20 20 4C 45 4F 4E 20 20 20 20 20 20 |N7LN LEON |
00000070: 20 20 20 20 20 2A 00 9D 08 28 00 8F 2A 20 4D 4F | *...(..* MO|
00000080: 44 49 46 49 43 41 54 49 45 20 56 4F 4F 52 20 43 |DIFICATIE VOOR C|
00000090: 4D 44 20 36 34 20 20 20 20 20 20 20 2A 00 C4 08 |MD 64 *...|
000000A0: 32 00 8F 2A 20 44 4F 4F 52 20 4F 4E 37 57 58 20 |2..* DOOR ON7WX |
000000B0: 20 47 4F 4D 4D 41 49 52 45 20 20 20 20 20 20 20 | GOMMAIRE |
000000C0: 20 20 20 2A 00 EB 08 3C 00 8F 2A 20 4D 45 43 48 | *...<..* MECH|
000000D0: 45 4C 45 4E 20 4A 55 4C 49 20 20 31 39 38 34 20 |ELEN JULI 1984 |
000000E0: 20 20 20 20 20 20 20 20 20 20 2A 00 12 09 46 00 | *...F.|
000000F0: 99 22 13 22 3A 50 49 B2 33 2E 31 34 31 35 39 32 |.".":PI.3.141592|
00000100: 36 3A 52 41 B2 50 49 AD 31 38 30 3A 50 B2 31 AD |6:RA.PI.180:P.1.|
00000110: 52 41 00 38 09 50 00 47 24 B2 22 42 3D 35 31 2E |RA.8.P.G$."B=51.|
00000120: 30 32 30 37 4E 20 20 4C 3D 34 2E 33 30 30 35 45 |0207N L=4.3005E|
00000130: 20 28 44 2E 4D 53 29 22 00 71 09 64 00 41 31 B2 | (D.MS)".q.d.A1.|
00000140: 30 3A 54 B2 30 3A 59 24 B2 22 22 3A 99 22 93 22 |0:T.0:Y$."":."."|
00000150: 3A 99 22 41 46 53 54 41 4E 44 20 54 55 53 53 45 |:."AFSTAND TUSSE|
00000160: 4E 20 51 54 48 2D 4C 4F 43 41 54 4F 52 53 22 3A |N QTH-LOCATORS":|
00000170: 99 00 9B 09 6E 00 51 24 B2 22 22 3A 85 22 47 45 |....n.Q$."":."GE|
00000180: 45 46 20 4A 45 20 45 49 47 45 4E 20 51 54 48 2D |EF JE EIGEN QTH-|
00000190: 4C 4F 43 41 54 4F 52 22 3B 51 24 00 CD 09 78 00 |LOCATOR";Q$...x.|
000001A0: 8B 51 24 B2 22 22 A7 51 24 B2 22 4A 4F 32 31 47 |.Q$."".Q$."JO21G|
000001B0: 41 22 20 27 56 55 4C 20 48 49 45 52 20 45 49 47 |A" 'VUL HIER EIG|
000001C0: 45 4E 20 51 54 48 AB 4C 4F 43 20 49 4E 00 E2 09 |EN QTH.LOC IN...|
000001D0: 96 00 8D 35 30 30 3A 8B 46 24 B2 22 46 22 A7 31 |...500:.F$."F".1|
000001E0: 31 30 00 FB 09 9B 00 59 24 B2 51 24 3A 8D 34 34 |10.....Y$.Q$:.44|
000001F0: 30 3A 4C 31 B2 4C 3A 42 31 B2 4D 00 29 0A A0 00 |0:L1.L:B1.M.)...|
00000200: 4E 31 B2 4C AD 50 3A 58 B2 4C 3A 8D 36 30 30 3A |N1.L.P:X.L:.600:|
00000210: 4C 31 B2 58 3A 4F 31 B2 4D AD 50 3A 58 B2 4D 3A |L1.X:O1.M.P:X.M:|
00000220: 8D 36 30 30 3A 42 31 B2 58 00 5D 0A AA 00 99 22 |.600:B1.X.]...."|
00000230: 93 22 3A 4E B2 4E 31 3A 4F B2 4F 31 3A 99 22 41 |.":N.N1:O.O1:."A|
00000240: 46 53 54 41 4E 44 20 54 55 53 53 45 4E 20 51 54 |FSTAND TUSSEN QT|
00000250: 48 2D 4C 4F 43 41 54 4F 52 53 22 3A 99 00 81 0A |H-LOCATORS":....|
00000260: B4 00 99 22 45 49 47 45 4E 20 51 54 48 2D 4C 4F |..."EIGEN QTH-LO|
00000270: 43 41 54 4F 52 3D 20 22 51 24 3A 99 3B 47 24 3A |CATOR= "Q$:.;G$:|
00000280: 99 00 A8 0A BE 00 99 54 41 42 32 37 22 57 20 3D |.......TAB27"W =|
00000290: 20 45 49 47 45 4E 20 51 54 48 2D 4C 4F 43 20 57 | EIGEN QTH-LOC W|
000002A0: 49 4A 5A 49 47 45 4E 22 00 C2 0A C8 00 99 54 41 |IJZIGEN"......TA|
000002B0: 42 32 37 22 53 20 3D 20 53 54 4F 50 50 45 4E 22 |B27"S = STOPPEN"|
000002C0: 3A 99 00 EB 0A D2 00 51 24 B2 22 22 3A 85 22 44 |:......Q$."":."D|
000002D0: 45 20 41 4E 44 45 52 45 20 51 54 48 2D 4C 4F 43 |E ANDERE QTH-LOC|
000002E0: 41 54 4F 52 20 3D 20 22 3B 51 24 00 FB 0A DC 00 |ATOR = ";Q$.....|
000002F0: 8B 51 24 B2 22 57 22 A7 31 30 30 00 0B 0B E1 00 |.Q$."W".100.....|
00000300: 8B 51 24 B2 22 53 22 A7 36 35 30 00 20 0B E6 00 |.Q$."S".650. ...|
00000310: 8D 35 30 30 3A 8B 46 24 B2 22 46 22 A7 32 31 30 |.500:.F$."F".210|
00000320: 00 51 0B F0 00 8D 34 34 30 3A 52 B2 4C AD 50 3A |.Q....440:R.L.P:|
00000330: 58 B2 4C 3A 8D 36 30 30 3A 4C 32 B2 58 3A 53 B2 |X.L:.600:L2.X:S.|
00000340: 4D AD 50 3A 58 B2 4D 3A 8D 36 30 30 3A 42 32 B2 |M.P:X.M:.600:B2.|
00000350: 58 00 65 0B FA 00 99 3B 22 42 3D 22 42 32 2C 22 |X.e....;"B="B2,"|
00000360: 4C 3D 22 4C 32 00 8D 0B 04 01 99 22 49 4E 44 49 |L="L2......"INDI|
00000370: 45 4E 20 5B 2D 5D 20 4C 45 45 53 20 5B 5A 55 49 |EN [-] LEES [ZUI|
00000380: 44 5D 20 4F 46 20 5B 57 45 53 54 5D 22 00 AE 0B |D] OF [WEST]"...|
00000390: 0E 01 56 B2 BF 28 4F 29 AC BF 28 53 29 AA BE 28 |..V..(O)..(S)..(|
000003A0: 4F 29 AC BE 28 53 29 AC BE 28 52 AB 4E 29 00 E4 |O)..(S)..(R.N)..|
000003B0: 0B 18 01 58 B2 31 2E 35 37 30 38 AB C1 28 56 AD |...X.1.5708..(V.|
000003C0: BA 28 31 AB 56 AC 56 29 29 3A 58 B2 B5 28 58 AC |.(1.V.V)):X..(X.|
000003D0: 31 31 31 2E 31 38 AC 50 AA 2E 35 29 3A 41 31 B2 |111.18.P..5):A1.|
000003E0: 41 31 AA 58 00 F4 0B 2C 01 99 3A 8B 4E B3 B1 52 |A1.X...,..:.N..R|
000003F0: A7 33 32 30 00 09 0C 31 01 41 5A B2 30 3A 8B 4F |.320...1.AZ.0:.O|
00000400: B1 53 A7 41 5A B2 31 38 30 00 12 0C 36 01 89 33 |.S.AZ.180...6..3|
00000410: 35 30 00 25 0C 40 01 41 41 B2 BF 28 53 29 AB 56 |50.%.@.AA..(S).V|
00000420: AC BF 28 4F 29 00 4D 0C 4A 01 41 43 B2 C1 28 BF |..(O).M.J.AC..(.|
00000430: 28 52 AB 4E 29 AC BE 28 53 29 AC BE 28 4F 29 AD |(R.N)..(S)..(O).|
00000440: 41 41 29 AA 50 49 AC 28 41 41 B3 30 29 00 77 0C |AA).PI.(AA.0).w.|
00000450: 54 01 41 5A B2 28 41 43 AB 28 50 49 AA 50 49 29 |T.AZ.(AC.(PI.PI)|
00000460: AC 28 41 43 B3 30 29 29 AD 52 41 3A 41 5A B2 B5 |.(AC.0)).RA:AZ..|
00000470: 28 41 5A AA 2E 35 29 00 AC 0C 5E 01 54 B2 54 AA |(AZ..5)...^.T.T.|
00000480: 31 3A 99 22 44 45 20 41 46 53 54 41 4E 44 20 49 |1:."DE AFSTAND I|
00000490: 53 20 22 58 22 20 4B 4D 22 3B 22 1D 41 41 4E 54 |S "X" KM";".AANT|
000004A0: 41 4C 20 51 53 4F 27 53 20 3D 22 54 00 CA 0C 68 |AL QSO'S ="T...h|
000004B0: 01 99 22 52 49 43 48 54 49 4E 47 20 3D 20 22 41 |.."RICHTING = "A|
000004C0: 5A 22 20 47 52 41 44 45 4E 22 00 EC 0C 72 01 99 |Z" GRADEN"...r..|
000004D0: 22 44 45 20 54 4F 54 41 41 4C 41 46 53 54 41 4E |"DE TOTAALAFSTAN|
000004E0: 44 20 3D 22 41 31 22 20 4B 4D 22 2C 00 13 0D 7C |D ="A1" KM",...||
000004F0: 01 99 22 47 45 4D 49 44 44 45 4C 44 45 20 41 46 |.."GEMIDDELDE AF|
00000500: 53 54 41 4E 44 20 3D 22 B5 28 41 31 AD 54 29 22 |STAND =".(A1.T)"|
00000510: 4B 4D 22 00 4B 0D 90 01 99 22 56 4F 4F 52 20 56 |KM".K...."VOOR V|
00000520: 45 52 56 4F 4C 47 20 2C 20 20 20 20 20 20 54 4F |ERVOLG , TO|
00000530: 45 54 53 20 20 20 20 20 5B 52 45 54 55 52 4E 5D |ETS [RETURN]|
00000540: 22 3B 3A 85 49 24 3A 89 31 37 30 00 7D 0D B8 01 |";:.I$:.170.}...|
00000550: 4C B2 28 41 28 31 29 AB 36 35 29 AC 32 30 AA 28 |L.(A(1).65).20.(|
00000560: 41 28 33 29 AB 34 38 29 AC 32 AA 28 41 28 35 29 |A(3).48).2.(A(5)|
00000570: AB 36 34 2E 35 29 AD 31 32 AB 31 38 30 00 AC 0D |.64.5).12.180...|
00000580: C2 01 4D B2 28 41 28 32 29 AB 36 35 29 AC 31 30 |..M.(A(2).65).10|
00000590: AA 28 41 28 34 29 AB 34 38 29 AA 28 41 28 36 29 |.(A(4).48).(A(6)|
000005A0: AB 36 34 2E 35 29 AD 32 34 AB 39 30 00 B2 0D C7 |.64.5).24.90....|
000005B0: 01 8E 00 CA 0D F4 01 8B 51 24 B2 59 24 B0 C3 28 |........Q$.Y$..(|
000005C0: 51 24 29 B3 B1 36 A7 35 38 30 00 E9 0D F9 01 81 |Q$)..6.580......|
000005D0: 4B B2 31 A4 36 3A 41 28 4B 29 B2 C6 28 CA 28 51 |K.1.6:A(K)..(.(Q|
000005E0: 24 2C 4B 2C 31 29 29 3A 82 00 02 0E FE 01 8B 41 |$,K,1)):.......A|
000005F0: 28 31 29 B3 36 35 B0 41 28 31 29 B1 38 32 A7 35 |(1).65.A(1).82.5|
00000600: 38 30 00 1B 0E 08 02 8B 41 28 32 29 B3 36 35 B0 |80......A(2).65.|
00000610: 41 28 32 29 B1 38 32 A7 35 38 30 00 34 0E 12 02 |A(2).82.580.4...|
00000620: 8B 41 28 33 29 B3 34 38 B0 41 28 33 29 B1 35 37 |.A(3).48.A(3).57|
00000630: A7 35 38 30 00 4D 0E 1C 02 8B 41 28 34 29 B3 34 |.580.M....A(4).4|
00000640: 38 B0 41 28 34 29 B1 35 37 A7 35 38 30 00 66 0E |8.A(4).57.580.f.|
00000650: 26 02 8B 41 28 35 29 B3 36 35 B0 41 28 35 29 B1 |&..A(5).65.A(5).|
00000660: 38 38 A7 35 38 30 00 7F 0E 30 02 8B 41 28 36 29 |88.580...0..A(6)|
00000670: B3 36 35 B0 41 28 36 29 B1 38 38 A7 35 38 30 00 |.65.A(6).88.580.|
00000680: 8B 0E 3A 02 46 24 B2 22 22 3A 8E 00 BF 0E 44 02 |..:.F$."":....D.|
00000690: 46 24 B2 22 46 22 3A 99 22 46 4F 55 54 2C 20 4F |F$."F":."FOUT, O|
000006A0: 50 4E 49 45 55 57 22 3B 3A 20 20 20 20 20 20 20 |PNIEUW";: |
000006B0: 20 20 20 20 20 20 20 20 99 C7 28 32 39 29 3B 00 | ..(29);.|
000006C0: C5 0E 4E 02 8E 00 DD 0E 58 02 58 58 B2 30 3A 8B |..N.....X.XX.0:.|
000006D0: 58 B3 30 A7 58 B2 AB 58 3A 58 58 B2 31 00 03 0F |X.0.X..X:XX.1...|
000006E0: 62 02 58 31 B2 58 AC 36 30 AB B5 28 58 29 AC 36 |b.X1.X.60..(X).6|
000006F0: 30 3A 58 32 B2 58 31 AC 36 30 AB B5 28 58 31 29 |0:X2.X1.60..(X1)|
00000700: AC 36 30 00 34 0F 6C 02 58 B2 B5 28 58 29 AA B5 |.60.4.l.X..(X)..|
00000710: 28 58 31 AA 2E 30 31 29 AD 31 30 30 AA 28 58 32 |(X1..01).100.(X2|
00000720: AA 2E 30 31 29 AD 31 45 34 3A 8B 58 58 B2 31 A7 |..01).1E4:.XX.1.|
00000730: 58 B2 AB 58 00 3A 0F 76 02 8E 00 45 0F 8A 02 99 |X..X.:.v...E....|
00000740: 22 93 22 3A 80 00 00 00 |".":.... |
..(....* QTH-LOCATOR: AFSTAND&RICHTING *
.O....* VOOR MAIDENHEAD LOCATOR *.
V....* VOLGENS ON7LN LEON *..
.(..* MODIFICATIE VOOR CMD 64 *.D.
2..* DOOR ON7WX GOMMAIRE *...<
..* MECHELEN JULI 1984 *...F.
.".":PI.3.1415926:RA.PI.180:P.1.RA.8.P.G
$."B=51.0207N L=4.3005E (D.MS)".Q.D.A1.
0:T.0:Y$."":.".":."AFSTAND TUSSEN QTH-LO
CATORS":....N.Q$."":."GEEF JE EIGEN QTH-
LOCATOR";Q$.M.X..Q$."".Q$."JO21GA" 'VUL
HIER EIGEN QTH.LOC IN......500:.F$."F".1
10.....Y$.Q$:.440:L1.L:B1.M.). .N1.L.P:X
.L:.600:L1.X:O1.M.P:X.M:.600:B1.X.]...."
.":N.N1:O.O1:."AFSTAND TUSSEN QTH-LOCATO
RS":......."EIGEN QTH-LOCATOR= "Q$:.;G$:
.......TAB27"W = EIGEN QTH-LOC WIJZIGEN"
.B.H..TAB27"S = STOPPEN":....R.Q$."":."D
E ANDERE QTH-LOCATOR = ";Q$......Q$."W".
100......Q$."S".650. ....500:.F$."F".210
.Q....440:R.L.P:X.L:.600:L2.X:S.M.P:X.M:
.600:B2.X.E....;"B="B2,"L="L2......"INDI
EN [-] LEES [ZUID] OF [WEST]".....V..(O)
..(S)..(O)..(S)..(R.N).....X.1.5708.A(V.
.(1.V.V)):X..(X.111.18.P..5):A1.A1.X...,
..:.N..R.320...1.AZ.0:.O.S.AZ.180...6..3
50.%.@.AA..(S).V..(O).M.J.AC.A(.(R.N)..(
S)..(O).AA).PI.(AA.0).W.T.AZ.(AC.(PI.PI)
.(AC.0)).RA:AZ..(AZ..5)...^.T.T.1:."DE A
FSTAND IS "X" KM";".AANTAL QSO'S ="T.J.H
.."RICHTING = "AZ" GRADEN"...R.."DE TOTA
ALAFSTAND ="A1" KM",...|.."GEMIDDELDE AF
STAND =".(A1.T)"KM".K...."VOOR VERVOLG ,
TOETS [RETURN]";:.I$:.170.}...
L.(A(1).65).20.(A(3).48).2.(A(5).64.5).1
2.180...B.M.(A(2).65).10.(A(4).48).(A(6)
.64.5).24.90...G...J....Q$.Y$.C(Q$)..6.5
80......K.1.6:A(K).F(J(Q$,K,1)):.......A
(1).65.A(1).82.580......A(2).65.A(2).82.
580.4....A(3).48.A(3).57.580.M....A(4).4
8.A(4).57.580.F.&..A(5).65.A(5).88.580.
.0..A(6).65.A(6).88.580...:.F$."":....D.
F$."F":."FOUT, OPNIEUW";:
.G(29);.E.N.....X.XX.0:.X.0.X..X:XX.1...
B.X1.X.60..(X).60:X2.X1.60..(X1).60.4.L.
X..(X)..(X1..01).100.(X2..01).1E4:.XX.1.
X..X.:.V...E....".":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL