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