> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 00 00 8F 20 2D 2D 51 52 42 2D 2D 00 |....... --QRB--.|
00000010: 18 08 0A 00 99 22 93 22 00 48 08 14 00 99 22 44 |.....".".H...."D|
00000020: 49 45 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 42 |IESES PROGRAMM B|
00000030: 45 52 45 43 48 4E 45 54 20 45 4E 54 46 45 52 4E |ERECHNET ENTFERN|
00000040: 55 4E 47 45 4E 22 3A 99 00 76 08 1E 00 99 22 5A |UNGEN":..v...."Z|
00000050: 57 49 53 43 48 45 4E 20 32 20 41 4D 41 54 45 55 |WISCHEN 2 AMATEU|
00000060: 52 46 55 4E 4B 53 54 45 4C 4C 45 4E 2E 20 42 49 |RFUNKSTELLEN. BI|
00000070: 54 54 45 22 3A 99 00 A4 08 28 00 99 22 47 45 42 |TTE":....(.."GEB|
00000080: 45 4E 20 53 49 45 20 53 54 41 4E 44 4F 52 54 4B |EN SIE STANDORTK|
00000090: 45 4E 4E 45 52 20 49 4E 20 44 45 52 20 55 45 42 |ENNER IN DER UEB|
000000A0: 2D 22 3A 99 00 C2 08 32 00 99 22 4C 49 43 48 45 |-":....2.."LICHE|
000000B0: 4E 20 46 4F 52 4D 20 45 49 4E 2E 22 3A 99 3A 99 |N FORM EIN.":.:.|
000000C0: 3A 99 00 F3 08 37 00 99 22 57 45 4E 4E 20 53 49 |:....7.."WENN SI|
000000D0: 45 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 42 |E DAS PROGRAMM B|
000000E0: 45 45 4E 44 45 4E 20 4D 4F 45 43 48 54 45 4E 2C |EENDEN MOECHTEN,|
000000F0: 22 3A 99 00 20 09 39 00 99 22 47 45 42 45 4E 20 |":.. .9.."GEBEN |
00000100: 53 49 45 20 42 49 54 54 45 20 45 49 4E 27 2A 27 |SIE BITTE EIN'*'|
00000110: 20 45 49 4E 21 22 3A 99 3A 99 3A 99 3A 99 3A 99 | EIN!":.:.:.:.:.|
00000120: 00 4D 09 3C 00 99 22 42 49 54 54 45 20 44 52 55 |.M.<.."BITTE DRU|
00000130: 45 43 4B 45 4E 20 53 49 45 20 49 52 47 45 4E 44 |ECKEN SIE IRGEND|
00000140: 45 49 4E 45 20 54 41 53 54 45 20 21 22 00 5F 09 |EINE TASTE !"._.|
00000150: 46 00 A1 54 24 3A 8B 54 24 B2 22 22 A7 37 30 00 |F..T$:.T$."".70.|
00000160: 68 09 50 00 99 22 93 22 00 90 09 64 00 99 22 42 |h.P.."."...d.."B|
00000170: 49 54 54 45 20 47 45 42 45 4E 20 53 49 45 20 44 |ITTE GEBEN SIE D|
00000180: 45 4E 20 51 54 48 2D 4B 45 4E 4E 45 52 22 3A 99 |EN QTH-KENNER":.|
00000190: 00 B3 09 78 00 99 22 44 45 53 20 45 49 47 45 4E |...x.."DES EIGEN|
000001A0: 45 4E 20 53 54 41 4E 44 4F 52 54 45 53 20 45 49 |EN STANDORTES EI|
000001B0: 4E 21 22 00 BB 09 82 00 99 3A 99 00 C4 09 8C 00 |N!"......:......|
000001C0: 8D 35 30 30 00 DA 09 A0 00 4C 31 B2 47 4C 3A 42 |.500.....L1.GL:B|
000001D0: 31 B2 47 42 3A 45 24 B2 42 24 00 EA 09 B4 00 99 |1.GB:E$.B$......|
000001E0: 3A 99 3A 99 3A 99 3A 99 3A 99 00 12 0A C8 00 99 |:.:.:.:.:.......|
000001F0: 22 42 49 54 54 45 20 47 45 42 45 4E 20 53 49 45 |"BITTE GEBEN SIE|
00000200: 20 44 45 4E 20 51 54 48 2D 4B 45 4E 4E 45 52 22 | DEN QTH-KENNER"|
00000210: 3A 99 00 30 0A DC 00 99 22 44 45 52 20 47 45 47 |:..0...."DER GEG|
00000220: 45 4E 53 54 41 54 49 4F 4E 20 45 49 4E 20 21 22 |ENSTATION EIN !"|
00000230: 00 38 0A E6 00 99 3A 99 00 41 0A F0 00 8D 35 30 |.8....:..A....50|
00000240: 30 00 57 0A 04 01 4C 32 B2 47 4C 3A 42 32 B2 47 |0.W...L2.GL:B2.G|
00000250: 42 3A 47 24 B2 42 24 00 63 0A 0E 01 99 3A 99 3A |B:G$.B$.c....:.:|
00000260: 99 3A 99 00 94 0A 18 01 43 46 B2 BE 28 B6 28 4C |.:......CF..(.(L|
00000270: 31 AB 4C 32 29 AC FF AD 31 38 30 29 AC BE 28 42 |1.L2)...180)..(B|
00000280: 31 AC FF AD 31 38 30 29 AC BE 28 42 32 AC FF AD |1...180)..(B2...|
00000290: 31 38 30 29 00 B6 0A 2C 01 43 46 B2 43 46 AA BF |180)...,.CF.CF..|
000002A0: 28 42 31 AC FF AD 31 38 30 29 AC BF 28 42 32 AC |(B1...180)..(B2.|
000002B0: FF AD 31 38 30 29 00 D2 0A 40 01 46 B2 AB C1 28 |..180)...@.F...(|
000002C0: 43 46 AD BA 28 31 AB 43 46 AC 43 46 29 29 AA FF |CF..(1.CF.CF))..|
000002D0: AD 32 00 E0 0A 54 01 44 58 B2 46 AC 36 33 36 38 |.2...T.DX.F.6368|
000002E0: 00 E9 0A 5E 01 99 22 93 22 00 18 0B 68 01 99 22 |...^.."."...h.."|
000002F0: 44 49 45 20 45 4E 54 46 45 52 4E 55 4E 47 20 20 |DIE ENTFERNUNG |
00000300: 22 45 24 3B 22 2D 22 3B 47 24 3B 22 20 42 45 54 |"E$;"-";G$;" BET|
00000310: 52 41 45 47 54 22 3A 99 00 3C 0B 7C 01 99 22 20 |RAEGT":..<.|.." |
00000320: 20 20 20 20 20 22 3B B5 28 44 58 AA 2E 35 29 3B | ";.(DX..5);|
00000330: 22 4B 49 4C 4F 4D 45 54 45 52 2E 22 00 53 0B 90 |"KILOMETER.".S..|
00000340: 01 4C B2 4C AA B5 28 44 58 AA 2E 35 29 3A 99 3A |.L.L..(DX..5):.:|
00000350: 99 3A 99 00 5D 0B 9A 01 4E B2 4E AA 31 00 7F 0B |.:..]...N.N.1...|
00000360: A4 01 99 22 53 55 4D 4D 45 20 44 45 52 20 4B 49 |..."SUMME DER KI|
00000370: 4C 4F 4D 45 54 45 52 20 20 20 20 3A 22 3B 4C 00 |LOMETER :";L.|
00000380: 85 0B A9 01 99 00 AB 0B AE 01 99 22 41 4E 5A 41 |..........."ANZA|
00000390: 48 4C 20 44 45 52 20 56 45 52 42 49 4E 44 55 4E |HL DER VERBINDUN|
000003A0: 47 45 4E 20 3A 20 22 3B 4E 3A 99 00 D7 0B B3 01 |GEN : ";N:......|
000003B0: 99 22 53 43 48 4E 49 54 54 20 20 28 3D 20 4B 4D |."SCHNITT (= KM|
000003C0: 2F 56 45 52 42 2E 29 20 20 20 3A 20 22 3B B5 28 |/VERB.) : ";.(|
000003D0: 4C AD 4E AA 2E 35 29 00 E1 0B B8 01 89 20 31 38 |L.N..5)...... 18|
000003E0: 30 00 FC 0B F4 01 8F 2D 2D 45 49 4E 47 41 42 45 |0......--EINGABE|
000003F0: 20 44 45 52 20 44 41 54 45 4E 2D 2D 00 06 0C FE | DER DATEN--....|
00000400: 01 42 24 B2 22 22 00 17 0C 03 02 99 22 20 20 20 |.B$.""......" |
00000410: 20 20 20 20 20 22 3B 00 22 0C 08 02 81 49 B2 31 | ";."....I.1|
00000420: A4 35 00 3C 0C 1C 02 A1 41 24 28 49 29 3A 8B 41 |.5.<....A$(I):.A|
00000430: 24 20 28 49 29 B2 22 22 A7 35 34 30 00 50 0C 30 |$ (I)."".540.P.0|
00000440: 02 8B 41 24 28 49 29 B2 22 2A 22 A7 39 30 30 30 |..A$(I)."*".9000|
00000450: 00 5C 0C 44 02 99 41 24 28 49 29 3B 00 6C 0C 4E |.\.D..A$(I);.l.N|
00000460: 02 42 24 B2 42 24 AA 41 24 28 49 29 00 73 0C 58 |.B$.B$.A$(I).s.X|
00000470: 02 82 49 00 91 0C 5A 02 8B 41 24 28 31 29 B3 22 |..I...Z..A$(1)."|
00000480: 41 22 B0 41 24 28 31 29 B1 22 5A 22 A7 31 30 30 |A".A$(1)."Z".100|
00000490: 30 00 AF 0C 5C 02 8B 41 24 28 32 29 B3 22 41 22 |0...\..A$(2)."A"|
000004A0: B0 41 24 28 32 29 B1 22 5A 22 A7 31 30 30 30 00 |.A$(2)."Z".1000.|
000004B0: C1 0C 6C 02 41 B2 C6 28 41 24 28 31 29 29 AB 36 |..l.A..(A$(1)).6|
000004C0: 34 00 D2 0C 80 02 8B 41 B1 31 34 A7 41 B2 41 AB |4......A.14.A.A.|
000004D0: 32 36 00 E4 0C 94 02 42 B2 C6 28 41 24 28 32 29 |26.....B..(A$(2)|
000004E0: 29 AB 36 34 00 F6 0C A8 02 43 B2 C6 28 41 24 28 |).64.....C..(A$(|
000004F0: 33 29 29 AB 34 38 00 08 0D BC 02 44 B2 C6 28 41 |3)).48.....D..(A|
00000500: 24 28 34 29 29 AB 34 38 00 1A 0D BE 02 8B 43 B3 |$(4)).48......C.|
00000510: 30 B0 43 B1 38 A7 31 30 30 30 00 2C 0D C0 02 8B |0.C.8.1000.,....|
00000520: 44 B3 30 B0 44 B1 39 A7 31 30 30 30 00 3F 0D C2 |D.0.D.9.1000.?..|
00000530: 02 8B 43 B2 38 AF 44 B3 B1 30 A7 31 30 30 30 00 |..C.8.D..0.1000.|
00000540: 51 0D C4 02 8B 43 B2 30 AF 44 B2 30 A7 31 30 30 |Q....C.0.D.0.100|
00000550: 30 00 65 0D C6 02 8B 44 B2 30 A7 44 B2 31 30 3A |0.e....D.0.D.10:|
00000560: 43 B2 43 AB 31 00 8D 0D CB 02 8B 41 24 28 35 29 |C.C.1......A$(5)|
00000570: B3 22 41 22 B0 41 24 28 35 29 B1 22 4A 22 B0 41 |."A".A$(5)."J".A|
00000580: 24 28 35 29 B2 22 49 22 A7 31 30 30 30 00 A4 0D |$(5)."I".1000...|
00000590: D0 02 8B 41 24 28 35 29 B2 22 41 22 A7 45 B2 32 |...A$(5)."A".E.2|
000005A0: 3A 46 B2 33 00 BB 0D E4 02 8B 41 24 28 35 29 B2 |:F.3......A$(5).|
000005B0: 22 42 22 A7 45 B2 33 3A 46 B2 33 00 D2 0D F8 02 |"B".E.3:F.3.....|
000005C0: 8B 41 24 28 35 29 B2 22 43 22 A7 45 B2 33 3A 46 |.A$(5)."C".E.3:F|
000005D0: B2 32 00 E9 0D 0C 03 8B 41 24 28 35 29 B2 22 44 |.2......A$(5)."D|
000005E0: 22 A7 45 B2 33 3A 46 B2 31 00 00 0E 20 03 8B 41 |".E.3:F.1... ..A|
000005F0: 24 28 35 29 B2 22 45 22 A7 45 B2 32 3A 46 B2 31 |$(5)."E".E.2:F.1|
00000600: 00 17 0E 34 03 8B 41 24 28 35 29 B2 22 46 22 A7 |...4..A$(5)."F".|
00000610: 45 B2 31 3A 46 B2 31 00 2E 0E 48 03 8B 41 24 28 |E.1:F.1...H..A$(|
00000620: 35 29 B2 22 47 22 A7 45 B2 31 3A 46 B2 32 00 45 |5)."G".E.1:F.2.E|
00000630: 0E 5C 03 8B 41 24 28 35 29 B2 22 48 22 A7 45 B2 |.\..A$(5)."H".E.|
00000640: 31 3A 46 B2 33 00 5C 0E 70 03 8B 41 24 28 35 29 |1:F.3.\.p..A$(5)|
00000650: B2 22 4A 22 A7 45 B2 32 3A 46 B2 32 00 7D 0E 84 |."J".E.2:F.2.}..|
00000660: 03 47 4C B2 28 45 AA 33 AC 44 29 AD 31 35 AA 32 |.GL.(E.3.D).15.2|
00000670: AC 41 AB 32 2E 32 33 33 33 33 33 33 33 00 9D 0E |.A.2.23333333...|
00000680: 98 03 47 42 B2 28 46 AB 33 AC 43 29 AD 32 34 AA |..GB.(F.3.C).24.|
00000690: 42 AA 33 39 2E 38 35 34 31 36 36 36 36 00 A3 0E |B.39.85416666...|
000006A0: AC 03 8E 00 AC 0E E8 03 99 22 93 22 00 C9 0E FC |........."."....|
000006B0: 03 99 22 45 49 4E 47 41 42 45 46 45 48 4C 45 52 |.."EINGABEFEHLER|
000006C0: 20 21 22 3A 99 3A 99 3A 99 00 EC 0E 10 04 99 22 | !":.:.:......."|
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 3A 99 00 0D 0F 24 | DIE EIN-":....$|
000006F0: 04 99 22 47 45 47 45 42 45 4E 45 4E 20 57 45 52 |.."GEGEBENEN WER|
00000700: 54 45 20 21 22 3A 99 3A 99 3A 99 3A 99 00 32 0F |TE !":.:.:.:..2.|
00000710: 38 04 99 22 46 41 4C 53 43 48 45 52 20 53 54 41 |8.."FALSCHER STA|
00000720: 4E 44 4F 52 54 4B 45 4E 4E 45 52 20 3A 20 20 22 |NDORTKENNER : "|
00000730: 42 24 00 3B 0F 4C 04 89 31 38 30 00 44 0F 28 23 |B$.;.L..180.D.(#|
00000740: 99 22 93 22 00 6B 0F 3C 23 99 22 53 55 4D 4D 45 |.".".k.<#."SUMME|
00000750: 20 44 45 52 20 4B 49 4C 4F 4D 45 54 45 52 20 20 | DER KILOMETER |
00000760: 20 20 20 3A 22 3B 4C 3A 99 3A 99 00 92 0F 50 23 | :";L:.:....P#|
00000770: 99 22 41 4E 5A 41 48 4C 20 44 45 52 20 56 45 52 |."ANZAHL DER VER|
00000780: 42 49 4E 44 55 4E 47 45 4E 20 3A 22 3B 4E 3A 99 |BINDUNGEN :";N:.|
00000790: 3A 99 00 BD 0F 64 23 99 22 53 43 48 4E 49 54 54 |:....d#."SCHNITT|
000007A0: 20 28 3D 4B 4D 20 50 52 4F 20 56 45 52 42 2E 29 | (=KM PRO VERB.)|
000007B0: 20 3A 22 3B B5 28 4C AD 4E AA 2E 35 29 00 C9 0F | :";.(L.N..5)...|
000007C0: 8C 23 99 3A 99 3A 99 3A 99 00 CF 0F 10 27 80 00 |.#.:.:.:.....'..|
000007D0: 00 00 D1 |... |
....... --QRB--......".".H...."DIESES PR
OGRAMM BERECHNET ENTFERNUNGEN":..V...."Z
WISCHEN 2 AMATEURFUNKSTELLEN. BITTE":...
.(.."GEBEN SIE STANDORTKENNER IN DER UEB
-":..B.2.."LICHEN FORM EIN.":.:.:....7..
"WENN SIE DAS PROGRAMM BEENDEN MOECHTEN,
":.. .9.."GEBEN SIE BITTE EIN'*' EIN!":.
:.:.:.:..M.<.."BITTE DRUECKEN SIE IRGEND
EINE TASTE !"._.F..T$:.T$."".70.H.P.."."
...D.."BITTE GEBEN SIE DEN QTH-KENNER":.
...X.."DES EIGENEN STANDORTES EIN!".....
.:..D....500.Z. .L1.GL:B1.GB:E$.B$......
:.:.:.:.:....H.."BITTE GEBEN SIE DEN QTH
-KENNER":..0...."DER GEGENSTATION EIN !"
.8....:..A....500.W...L2.GL:B2.GB:G$.B$.
C....:.:.:......CF..(.(L1.L2)...180)..(B
1...180)..(B2...180)...,.CF.CF..(B1...18
0)..(B2...180).R.@.F..A(CF..(1.CF.CF))..
.2...T.DX.F.6368...^.."."...H.."DIE ENTF
ERNUNG "E$;"-";G$;" BETRAEGT":..<.|.."
";.(DX..5);"KILOMETER.".S...L.L..(D
X..5):.:.:..]...N.N.1....."SUMME DER KI
LOMETER :";L............"ANZAHL DER V
ERBINDUNGEN : ";N:..W...."SCHNITT (= KM
/VERB.) : ";.(L.N..5)...... 180......-
-EINGABE DER DATEN--.....B$.""......"
";."....I.1.5.<....A$(I):.A$ (I).""
.540.P.0..A$(I)."*".9000.\.D..A$(I);.L.N
.B$.B$.A$(I).S.X..I...Z..A$(1)."A".A$(1)
."Z".1000...\..A$(2)."A".A$(2)."Z".1000.
A.L.A.F(A$(1)).64.R....A.14.A.A.26.....B
.F(A$(2)).64.....C.F(A$(3)).48.....D.F(A
$(4)).48......C.0.C.8.1000.,....D.0.D.9.
1000.?.B..C.8.D..0.1000.Q.D..C.0.D.0.100
0.E.F..D.0.D.10:C.C.1...K..A$(5)."A".A$(
5)."J".A$(5)."I".1000...P..A$(5)."A".E.2
:F.3......A$(5)."B".E.3:F.3.R....A$(5)."
C".E.3:F.2......A$(5)."D".E.3:F.1... ..A
$(5)."E".E.2:F.1...4..A$(5)."F".E.1:F.1.
..H..A$(5)."G".E.1:F.2.E.\..A$(5)."H".E.
1:F.3.\.P..A$(5)."J".E.2:F.2.}...GL.(E.3
.D).15.2.A.2.23333333.....GB.(F.3.C).24.
B.39.85416666............".".I...."EINGA
BEFEHLER !":.:.:......."UEBERPRUEFEN SIE
DIE EIN-":....$.."GEGEBENEN WERTE !":.:
.:.:..2.8.."FALSCHER STANDORTKENNER : "
B$.;.L..180.D.(#.".".K.<#."SUMME DER KIL
OMETER :";L:.:....P#."ANZAHL DER VER
BINDUNGEN :";N:.:....D#."SCHNITT (=KM PR
O VERB.) :";.(L.N..5).I..#.:.:.:..O..'..
..Q
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL