| |
DL1MDY > CASIO 06.07.98 01:23l 111 Lines 1779 Bytes #999 (999) @ ALLE
BID : 578DB0ZKA01F
Read: DG1HUA DG2NBN GUEST
Subj: LOC-GAUS.PRG
Path: DB0MAK<DB0ERF<DB0MW<DB0AIS<DB0GV<DB0CZ<DB0KFB<DB0ZKA
Sent: 980705/2121z @:DB0ZKA.#BAY.DEU.EU [Augsburg JN58ki] BCM1.39tb
From: DL1MDY @ DB0ZKA.#BAY.DEU.EU (Pius)
To: CASIO @ ALLE
X-Info: No login password
X-BID: 578DB0ZKA01F
10 PRINT "Locator aus Gauss-Krueger Koordinaten <KM>"
15 ANGLE 0: CLEAR 200
20 INPUT"Eingabe vom QTH";QT$
30 INPUT "RECHTSWERT :";Y
40 INPUT "HOCHWER :";X
50 GOSUB 200
60 IF B1 = 0 THEN 40
70 B1=B1+D1:GOSUB 310:R=N:R1=180/PI/R
80 B2=COS(B1):L1=INT(Y/1000):Y=Y-L1*1000-500
90 L1=INT(3*L1)
100 IF L1<3 OR L1>12 THEN 30
110 B3=0.67192188*(B2)^2/100:T=TAN(B1)
120 L=R1*Y/B2-R1/6*Y^3/R^2/B2*(1+2*T^2+B3)
130 IF ABS(L)>1.6667 THEN 30 ELSEL1=L1+L
140 B1=B1-R1*Y/R/2*T*(1+B3)
150 B1=B1+Y^4*R1/24/R^3*T*(5+3*T^2+6*B3-6*B3*T^2)
170 I=L1:GOSUB 330:GOSUB 650
175 Y1=C1+180:Y3=C2:Y5=C3:K1$=K$
180 I=B1:GOSUB 330:GOSUB 650
190 GOTO 460
200 RESTORE 270:B1=0:A=0.0848790:X=X-4429
210 IF X<A THEN RETURN ELSE B1=40
220 FOR I=1 TO 20:READ D1:D1=111+D1/1000000
230 A=A+D1:IF X<A THEN 250 ELSE B1=B1+1
240 NEXT I
250 IF I=21 THEN B1=0: RETURN
260 D1=(X-A+D1)/D1: RETURN
270 DATA 32208,51474,70830,90251,109713,129193
280 DATA 148665,168109,187499,206811,226022
290 DATA 245110,264048,282817,301391,319748,337865
300 DATA 355722,373294,390562
310 N=6377.397155/(SQR(1-0.667437223*(SIN(B1)^2)/100))
320 RETURN
330 G=INT(I): M=(I-G)*60: S=INT((M-INT(M))*60+.5)
340 M=INT(M): IF S=60 THEN S=0: M=M+1
350 IF M=60 THEN M=0:G=G+1
360 G$=STR$(G)
370 M$=STR$(M)
380 S$=STR$(S)
390 K$=RIGHT$(G$,2)+RIGHT$(M$,2)+RLOC-GAUS.PRG
2$=CHR$(65+X2)
560 W2$=STR$(INT(Y2-X2*10))
570 X4=INT((Y4/60+Y6/3600)*24)
580 V4$=CHR$(65+X4)
590 LC$=Z1$+Z2$+W1$+W2$+" "+V3$+V4$
600 PRINT"QTH :";QT$
610 PRINT"Laenge ";K1$;
620 PRINT" Breite ";K2$
630 PRINT"Locator:";LC$
640 GOTO 20
650 C1=VAL(LEFT$(K$,2))
660 C2=VAL(MID$(K$,3,2))
670 C3=VAL(RIGHT$(K$,2))
680 RETURN
Read previous mail | Read next mail
| |
