1 REM "KNOE, DF9RY, KOHLBERG DEN 24.06.79" 10 FORV=1TO30:PRINT:NEXTV 20 PRINT "ENTFERNUNGSBESTIMMUNG" 25 PRINT 30 PRINT "AUS QTH KENNERN" 35 PRINT:PRINT:PRINT 40 PRINT:PRINT"GEBEN SIE DEN EIGENEN" 41 PRINT:PRINT"QTH KENNER EIN" 45 PRINT:PRINT 50 GOSUB 1000 55 PRINT:PRINT 60 PRINT"EIGEN QTH ";A$;B$;C$;D$;E$ 65 PRINT:PRINT 70 GOSUB 2000 75 PRINT:PRINT:PRINT 80 PRINT"EIGENE G. LAENGE":PRINT 81 PRINTL;" GRAD":PRINT:PRINT 90 PRINT"EIGENE G. BREITE":PRINT 91 PRINTB;" GRAD":PRINT:PRINT 100 B1=B 110 L1=L 120 GOSUB9000 130 FORV=1TO30:PRINT:NEXTV 140 PRINT:PRINT"GEBEN SIE DEN QTH":PRINT 145 PRINT"LOCATOR DER GEGENSTATION":PRINT 147 PRINT"EIN":PRINT 150 GOSUB 1000 155 FORV=1TO30:PRINT:NEXTV 160 PRINT"QTH LOCATOR GEGENSTATION":PRINT 165 PRINTA$;B$;C$;D$;E$:PRINT 170 GOSUB 2000 175 PRINT:PRINT 180 PRINT"G. LAENGE GEGENSTATION :" 185 PRINT:PRINTL;" GRAD":PRINT:PRINT 190 PRINT"G. BREITE GEGENSTATION :" 195 PRINT:PRINTB;" GRAD" 198 PRINT:PRINT 199 GOSUB9000 200 L2=L 210 B2=B 220 FOR J=1TO200:NEXTJ 221 KO=57.29577954 225 IF I=1THEN250 230 L1=L1/KO 240 B1=B1/KO 250 L2=L2/KO 260 B2=B2/KO 270 B=ABS(B2-B1) 280 L=ABS(L2-L1) 285 I=0 300 E=SQR(B^2+L^2*COS(B1)*COS(B2)) 310 E=E*KO 320 E=111.1949265*E 330 FORV=1TO30:PRINT:NEXTV 340 PRINT :PRINT 350 PRINT"DIE ENTFERNUNG NACH":PRINT 351 PRINTA$;B$;C$;D$;E$,"IST":PRINT 355 E=INT(100*E)/100 360 PRINT:PRINTE,"Km":PRINT 370 PRINT :PRINT:PRINT 380 PRINT"WOLLEN SIE DEN EIGENEN":PRINT 385 PRINT"STANDORT AENDERN ?" 390 PRINT:INPUT"(J.N.END.)";X$ 400 IF X$="JA"THEN40 410 IF X$="NEIN"THEN I=1:GOTO140 420 IF X$="END"THENSTOP 430 IF X$="RUN"THENRUN 435 IF X$="LOESCHEN"THENPRINT"DAS PROGRAMM LOESCHT SICH":NEW 440 IF X$="WERBE"THEN PRINT"CONRAD ELECTRONIC":GOTO380 450 IF X$="J"THEN40 460 IF X$="N"THENI=1:GOTO140 470 PRINT "BEFEHL UNBEKANNT !":PRINT:GOTO380 999 STOP 1000 REM "ZERLEGUNG DES QTH-KENNERS UND UMWANDLUNG IN RECHENBARE" 1005 A=0:B=0:C=0:D=0:E=0:F=0 1010 REM "GROESSEN" 1020 INPUT X$ 1030 A$=MID$(X$,1,1) 1040 B$=MID$(X$,2,1) 1050 C$=MID$(X$,3,1) 1060 D$=MID$(X$,4,1) 1070 E$=MID$(X$,5,1) 1075 Q$=MID$(X$,6,1):IFQ$=""THEN1080 1076 GOTO1500 1080 A=ASC(A$)-64 1090 B=ASC(B$)-64 1100 C=ASC(C$)-48 1110 D=ASC(D$)-48 1120 IF E$="H"THENE=3:F=1 1130 IF E$="A"THENE=2:F=1 1140 IF E$="B"THENE=1:F=1 1150 IF E$="G"THENE=3:F=2 1160 IF E$="J"THENE=2:F=2 1170 IF E$="C"THENE=1:F=2 1180 IF E$="F"THENE=3:F=3 1190 IF E$="E"THENE=2:F=3 1200 IF E$="D"THENE=1:F=3 1210 IF D=0THEND=10 1220 IF A<1THEN1500 1230 IF A>26THEN1500 1240 IF B<1THEN1500 1250 IF B>26THEN1500 1260 IF C<0THEN1500 1270 IF C>9THEN1500 1280 IF D<1THEN1500 1290 IF D>10THEN1500 1300 IF E<1THEN1500 1310 IF E>3THEN1500 1320 IF F<1THEN1500 1330 IF F>3THEN1500 1350 FORV=1TO25:PRINT:NEXTV 1360 RETURN 1500 PRINT:PRINT"EINGABE FALSCH":PRINT:GOTO1000 2000 REM "BESTIMMUNG DER GEOGRAPHISCHEN LAENGE UND BREITE" 2010 L=2*((((3*D)+E-3.5)/30)+A-1) 2020 B=B+40-((3*C)-F+3.5)/24 2030 RETURN 9000 PRINT:PRINT"WEITER: 'ESC'" 9030 IFPEEK(57088)=222THEN9050 9040 GOTO9030 9050 POKE530,0 9060 FORV=1TO30:PRINT:NEXTV 9999 RETURN OK