home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
misc
/
pc_ham2
/
qthfudge.2
< prev
next >
Wrap
Text File
|
1985-09-28
|
512b
|
17 lines
10 OPEN #1,"QTHDATA"
20 OPEN #0,"QTHNEW"
25 PRINT#Z " CITY LATITUDE LONGITUDE (E)"
30 READ#1,C$,A,L1
40 IF C$(1,1) = "*" THEN 190
51 IF L1=84.1 THEN L1=-84.1
52 IF L1=-29 THEN L1=29
60 C$=C$+" "
65 IF C$(1,8)="NEW YOTK" THEN C$="NEW YORK"
72 PRINT C$,%10F2,ABS(A),\IF A<0 THEN PRINT " S", ELSE PRINT " N",
75 PRINT %10F2,L1,
80 IF L1 < 0 THEN PRINT %10F2, 360 + L1 ELSE PRINT %10F2,L1
170 WRITE #0,C$,A,L1
180 GOTO 30
190 WRITE #0,C$,A,L1
200 CLOSE #1