home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
log
/
g3zcz15
/
qthgen.2
< prev
next >
Wrap
Text File
|
1985-09-28
|
768b
|
25 lines
10 REM QTHGEN
20 REM by Joe Kasser G3ZCZ 1979
30 OPEN #1,"QTHDATA"
40 OPEN #0,"QTHDATA"
50 PRINT#Z1 " CITY LATITUDE LONGITUDE (E)"
60 READ#1,C$,A,L1
70 IF C$(1,1) = "*" THEN 130
80 READ#0,C$,A,L1
90 C$=C$+" "
100 PRINT#Z1 C$,%10F2,ABS(A),\IF A<0 THEN PRINT#Z1, " S", ELSE PRINT#Z1, " N",
110 IF L1 < 0 THEN PRINT#Z1 %10F2, 360 + L1 ELSE PRINT#Z1 %10F2,L1
120 GOTO 60
130 INPUT " LOCATION ",C$
140 IF C$="*" THEN 220
150 INPUT "LAT ",A
160 INPUT "LONG E ",L1
170 PRINT C$,%10F2,A,%10F2,L1
180 INPUT "OK ",A$
190 IF A$(1,1) = "N" THEN 130
200 WRITE #0,C$,A,L1
210 GOTO 130
220 WRITE #0,C$,A,L1
230 CLOSE #1
240 CLOSE #0