| |
DL1MDY > CASIO 06.07.98 00:23l 84 Lines 1251 Bytes #999 (999) @ ALLE
BID : 578DB0ZKA01G
Read: DG1HUA DG2NBN GUEST
Subj: LOC-KOOR.PRG
Path: DB0MAK<DB0ERF<DB0MW<DB0AIS<DB0GV<DB0CZ<DB0KFB<DB0ZKA
Sent: 980705/2122z @: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: 578DB0ZKA01G
10 'Locator aus Koordinaten
20 CLEAR 200
30 INPUT"Eingabe vom QTH";QT$
40 INPUT"Eingabe der Laenge, Form GGMMSS";K$:GOSUB 350
50 PRINT"Eingabe 'O' fuer Oestl.,'W' fuer Westl.Laenge"
60 I$=INKEY$:IF I$="" GOTO 60
70 IF I$="O" GOTO 90
75 IF I$="W" THEN 80 ELSE 60
80 C1=-C1:L$="W="
90 Y1=C1+180:Y3=C2:Y5=C3:L$="O="
100 K1$=K$
110 INPUT"Eingabe der Breite, Form GGMMSS";K$:GOSUB 350
120 PRINT"Eingabe 'N' feur Noerdl., 'S' fuer Suedl. Breite"
130 I$=INKEY$:IF I$="" GOTO 130
140 IF I$="N" GOTO 160
145 IF I$="S" THEN 150 ELSE 130
150 C1=-C1:B$="S="
160 Y2=C1+90:Y4=C2:Y6=C3:B$="N="
170 K2$=K$
180 X1=INT(Y1/20)
190 Z1$=CHR$(65+X1)
200 W1$=STR$(INT((Y1-X1*20)/2))
210 IF Y1> (2*(INT(Y1/2))) THEN Y3=Y3+60
220 X3=INT((Y3/60+Y5/3600)*12)
230 V3$=CHR$(65+X3)
240 X2=INT(Y2/10)
250 Z2$=CHR$(65+X2)
260 W2$=STR$(INT(Y2-X2*10))
270 X4=INT((Y4/60+Y6/3600)*24)
280 V4$=CHR$(65+X4)
290 LC$=Z1$+Z2$+W1$+W2$+" "+V3$+V4$
300 PRINT"QTH :";QT$
310 PRINT"Laenge ";L$;K1$;
320 PRINT" Breite ";B$;K2$
330 PRINT"Locator:";LC$
340 GOTO 10
350 C1=VAL(LEFT$(K$,2))
360 C2=VAL(MID$(K$,3,2))
370 C3=VAL(RIGHT$(K$,2))
380 RETURN
Read previous mail | Read next mail
| |
