contest.kcc p"S""141288Égo|gxG>5Jʙ9v" GSљ e͘w>RO  î-LOCC! 6 REBASIC RUN OTO 370TELNELNkki0UKW-LOC @* **********************************R * LOCATOR-BERECHNUNGS-SYSTEM *z* FUER UKW-CONTESTE ** *(* VERFASSER :V.SCHEFFER *2* DATUM :28.02.85 *<* ORT :ASMW-AS 116 GERA*BF* QUELLE :"MC",H.9/83,S.61*jP* PROGRAMMLAENGE:3,3 kByte *U**********************************Z0,31,0,39:14,0:dn TITELBILDx(0,1);""(29,"")""(7,"")""(4,1);""(29,"")""(7,"")""E(1,1);"":(1,31);"":(1,39);""p(2,1);""(29,"")""(7,"")""(3,1);"":(3,31);"":(3,39);""(1,7);"UKW-CONTEST-SERVICE"(5,1);""(3,"")""(7,"")""(8,"")(5,21);""(9,"")""(7,"")""M(7,1);""(3,"")""(7,"")""(8,"")x(7,21);""(9,"")""(7,"")""(9,1);""(3,"")""(7,"")""(8,"")(9,21);""(9,"")""(7,"")"" (6,1);"":(6,5);"":(6,13);"":(6,21);"" +(6,31);"":(6,39);""a(8,1);"":(8,5);"":(8,13);"":(8,21);""(8,31);"":(8,39);"" "11,23,0,39,(11,1);""(37,"")""6(23,1);""(37,"")""@ A12 22:(A,1);"":(A,39);"":A J12,22,2,38 T0 ^ EINGABE CONTESTRUFZEICHEN6 hR i::" Contest :";: M$ j (M$)25 :10);"ZU LANG": 20::361 k(3,4);M$ l r: |" Contestrufzeichen :";  Z$  (Z$)7 :10);"ZU LANG !"::380 (1,33);Z$  Pǯ180! F40009(2)' =  EIGENER LOCATORC n :" Eigener LOCATOR : ";:QE$:QF$QE$ 940:LELF:BEBF: CHECK und UMRECHNUNG (3,33);QE$:   FREMDER LOCATOR  :FL1 &:QF$"":" LOCATOR :";QF$ 0 QF$"ENDE" 8003 :940:GALFLE:BBFBEO D ENTFERNUNGSBERECHNUNGs NN(BE)(BF)(BE)(BF)(GA) XDX(((N(1NN))ǯ2)F.5) bQQ1:SUSUDX l DXODX ODXDX v::" Entfernung :"DX" Km": (22,3);"Ungueltig...U Richtig...>ENTER<" ! A$1  A$""650G  A$(13):710X  A$"U"700c :640} QQ1:SUSUDX::550 (8,7);" ":(8,14);" " (8,22);" ":(8,32);" " (6,2);"QSO":(6,6);"LOCATOR":(6,16);"QRB"% (6,23);"Ges.QRB":(6,33);"ODX"W (8,1);Q:(8,6);QF$:(8,14);DX:(8,23);SUy (8,1);(161):(8,5);(161) (8,32);ODX:550   ENDABRECHNUNG  ::(3,7);"A U S W E R T U N G" *" Summe :"SU" Km":4" QSO's :";Q:>:" Durchschnitt:"(SUQ.5)" Km/QSO"ZH:" O D X :"ODX" KmR(22,4);"Weiter.....>ENTER< Ende.....E"\A$fA$""860p A$(13) :550z A$"E" :::860 CHECK und UMRECHNUNG in LAENGE/ BREITE2 (QF$)6 1070S N1 6:T$(N)(QF$,N,1):` N1 2 (T$(N))65 (T$(N))82 1070 (T$(N2))48 (T$(N2))57 1070 (T$(N4))65 (T$(N4))88 1070 NLF((T$(1))65)20180(T$(3))2((T$(5))65)12124YBF((T$(2))65)1090(T$(4))((T$(6))65)24148oLFLFP:BFBFP:u Erneute Eingabe des LOCATORS$.:" falsche Eingabe !":: FL0 15::480815::550: fremder LOCATORA8M: