home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 47 / qthgen.2 < prev    next >
Text File  |  1985-09-28  |  768b  |  25 lines
  1. 10 REM QTHGEN
  2. 20 REM by Joe Kasser  G3ZCZ 1979
  3. 30 OPEN #1,"QTHDATA"
  4. 40 OPEN #0,"QTHDATA"
  5. 50 PRINT#Z1 "  CITY         LATITUDE  LONGITUDE (E)"
  6. 60 READ#1,C$,A,L1
  7. 70 IF C$(1,1) =  "*" THEN 130
  8. 80 READ#0,C$,A,L1
  9. 90 C$=C$+"          "
  10. 100 PRINT#Z1 C$,%10F2,ABS(A),\IF A<0 THEN PRINT#Z1, " S", ELSE PRINT#Z1, " N",
  11. 110 IF L1 < 0 THEN PRINT#Z1 %10F2, 360 + L1 ELSE PRINT#Z1 %10F2,L1
  12. 120 GOTO 60
  13. 130 INPUT " LOCATION ",C$
  14. 140 IF C$="*" THEN 220
  15. 150 INPUT "LAT ",A
  16. 160 INPUT "LONG E ",L1
  17. 170 PRINT C$,%10F2,A,%10F2,L1
  18. 180 INPUT "OK ",A$
  19. 190 IF A$(1,1) = "N" THEN 130
  20. 200 WRITE #0,C$,A,L1
  21. 210 GOTO 130
  22. 220 WRITE #0,C$,A,L1
  23. 230 CLOSE #1
  24. 240 CLOSE #0
  25.