home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc-hamd3 / qthpoint.2 < prev    next >
Text File  |  1985-09-28  |  768b  |  25 lines
  1. 10 REM QTHPOINT
  2. 20 REM By Joe Kasser G3ZCZ June 1979
  3. 30 X$="STNDATA,"
  4. 40 FOR I=1 TO 4 \ I$=STR$(I) \ I$=I$(2,2)
  5. 50 IF FILE(X$+I$)=3 THEN EXIT 80
  6. 60 NEXT
  7. 70 PRINT"file STNDATA - station data file missing"\ GOTO 210
  8. 80 OPEN#0,X$+STR$(I)
  9. 82 INPUT "What call area ", W$
  10. 90 READ#0,L$,C$,A,L1
  11. 100 REM L1 IS IN DEG (E)
  12. 140 OPEN#1,"QTHDATA"
  13. 150 READ#1,C$,B,L2
  14. 160 IFC$(1,1)= "*" THEN 206
  15. 162 IF C$(1,LEN(W$)) <> W$ THEN 150
  16. 170 GOSUB 5000
  17. 180 C$=C$+"          "
  18. 190 PRINT#Z1  C$,%10I,D1,%10I,D2,%10I,R2
  19. 202 REM, CALL POINTING SUBROUTINE HERE
  20. 204 GOTO 210
  21. 206 PRINT W$, " is not in the data file "
  22. 210 CLOSE #0 \ CLOSE #1
  23. 220 STOP
  24. 5000 REM SUBROUTINE TO PERFORM CALCULATIONS
  25.