200 pBAPÉgo|gxG>W5Bʙ9v" GSљ e͘w>!u  î/4AHL=! 6 REBASIC RUN :END>0)<0 600000G NEU :::;" PROGRAMM FUER DEN FUNKAMATEUR"A(j2" UEBERARBEITET VON G.ARMBRUSTER"r<:F" MOEGLICHKEITEN:"PZ" 1 - LOCATOR ===> KOORDINATEN"d" 2 - KOORDINATEN ===> LOCATOR" n" 3 - ENTFERNUNG AUS KOORDINATEN"0x" 4 - ENTFERNUNG AUS LOCATOREN"]" 5 - WINKEL/ENTFERN.AUS KOORDINATEN"" 6 - WINKEL/ENTFERN.AUS LOCATOREN"" 7 - ENTFERNUNGS-ABRECHNUNG":" WELCHES PROBLEM?"" ZAHL=";ZZ500,1000,1500,2000,2500,3000,35001" FALSCHE EINGABE"7?20ES::::o" BESTIMMUNG DER"u" GEOGRAFISCHEN KOORDINATEN"&0" AUS DEM LOCATOR":::::D" LOCATOR=";A$N K1 6 XA(K)((A$,K,1))bKDlL180(A(1)65)20(A(3)48)2(A(5)64.5)12rvB90(A(2)65)10A(4)48(A(6)64.5)24Z4Z6Z72060:" L=";L" B=";B:G(L)Z(LG)60M(Z)S(ZM)60 " L=";G":";M":";S" GRD:MIN:SEC"&1G(B)@Z(BG)60K M(Z)ZS(ZM)60 " B=";G":";M":";S" GRD:MIN:SEC"*4" ---------------------------------">::H" NEUE EINGABE:"R\580:! " BESTIMMEN DES LOCATORS AUS"K " DEN GEOGRAFISCHEfN KOORDINATEN"Q k " WERTE DEZIMAL!"q $ ." L=";L:" B=";B 8L(L180)20 BB(B90)10 LA(L) VX(B) `L(LA)10 jB(BX)10 tY(L) ~Z(B) A$(A65)(X65)(Y48)(Z48)M A$A$(((LY)24)65)(((BZ)24)65)S j " LOCATOR:";A$p  " NEUE EINGABE:"  1070  :::: " ENTFERNUNG AUS KOORDINATEN"  " (OESTL. L. UND SUEDL. B. NEGATIV!) :2 " EIGENE GEOGR. LAENGE=";L18 "\ ," EIGENE GEOGR. BREITE=";B1b 6 @" - - - - - - - - - - - - - J T" FREMDE GEOGR. LAENGE=";L2 ^ h" FREMDE GEOGR. BREITE=";B2 rU40008 |L3(L1L2)ǯ180 L4(L2L1)ǯ180 L(L3)C Y(((B1)ǯ180))(((B2)ǯ180)) r X((L))(((B1)ǯ180))(((B2)ǯ180))Y E((X(1XX))ǯ2)U2  Z73590  Z52930 " ENTFERNUNG=";E;" KM"  " ------------------------" Z4Z62110 1620& 2 :::V " ENTFERNUNG AUS LOCATOREN"^ :| " EIGENER LOCATOR";A$ 590 L102070:2130 L1L B1B *Z73550 4 >" FREMDER LOCATOR";A$ H590 RL2L \B2BfZ63120p1650  @ " WINKEL UND ENTFERNUNGEN"F a " AUS KOORDINATEN"g  " (OESTL. L. UND SUEDL. B. NEGATIV!)" : " EIGENE LAENGE=";L1 ( " EIGENE BREITE=";B12 ::< " FREMDE LAENGE=";L2 F 'P " FREMDE BREITE=";B21Z ::Fd L3(L1L2)ǯ180[n L4(L2L1)ǯ180sx K1((L2L1)ǯ180) S((B1)ǯ180)((B2)ǯ180)((B1)ǯ180)((B2)ǯ180)K1 K2(1SS) X1(((B1)ǯ180)((B2)ǯ180)S)(((B2)ǯ180)K2)8 X2(((B2)ǯ180)((B1)ǯ180)S)(((B1)ǯ180)K2)U A1(X1(1X1X1))ǯ2r A2(X2(1X2X2))ǯ2 A1A1180 A2A2180 L402800 " EIGENER WINKEL=";A1;"GRD" 2810 " EIGENER WINKEL=";A1;"GRD"  L302850- " FREMDER WINKEL=";A2;"GRD"7 2860\" " FREMDER WINKEL=";A2;"GRD"n, Z5Z61650v6 :@ " ENTFERNUNG=";E"KM"J T " ---------------------------^ h " NEUE EINGABE:"r Z62060| 2030  $ " WINKEL UND ENTFERNUNGEN"* C " AUS LOCATOREN"M 2030S  "ENTFERNUNGSABRECHNUNG FUER UKW-COTESTE"  "EIGENER LOCATOR";A$ 590 R1 "LOCATOR";R;".GEARBEITETE STATION"; A$ 590"ENTFERNUNG DER STANDORTE:";(E.4)"KM"+ERER(E.4):R13640`$R"QSO GESAMTENTFERNUNG";ER"KM"n.R136508R "QSO'S GESAMTENTFERNUNG";ER"KM"BLRR1V3560ZKA/