home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / satcom.lbr / SATCOM.BQS / SATCOM.BAS
Encoding:
BASIC Source File  |  1986-12-07  |  3.4 KB  |  70 lines
  1. 5 REM ******************SATCOM********************************
  2. 7 REM An antenna pointing program for geosynchronous satellites
  3. 9 REM Released to PUBLIC DOMAIN 04-13-85 for non-profit use only !
  4. 11 REM Uploaded to COMPUSERVE 04-13-85 by Adam Grow III (75216,3660)
  5. 13 PRINT CHR$(26);
  6. 14 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  7. 15 PRINT "                           SATELLITE COORDINATE GENERATOR"
  8. 23 LET T=1
  9. 24 LET T=T+1
  10. 25 IF T<500 THEN GOTO 24
  11. 27 WIDTH LPRINT 90
  12. 30 WIDTH 90
  13. 40 R=6367:H=35800!
  14. 44 PRINT CHR$(26);
  15. 46 PRINT:PRINT:PRINT
  16. 50 INPUT "          Enter the name of your terminal";L$
  17. 52 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:
  18. 60 INPUT "          Enter your latitude as D,M,S";A,X,S:Y1=A:X1=X:S1=S:A=A+X/60+S/3600
  19. 62 PRINT:PRINT
  20. 70 IF A>180 THEN PRINT "          Recheck your latitude !":PRINT CHR$(7);:GOTO 60
  21. 72 PRINT:PRINT:PRINT:PRINT
  22. 80 INPUT "          Enter your longitude as D,M,S";G,X,S:G2=G:X2=X:S2=S:G=-(G+X/60+S/3600)
  23. 82 PRINT:PRINT
  24. 84 IF G>180 THEN PRINT "          Recheck your longitude !":PRINT CHR$(7);:GOTO 80
  25. 86 PRINT CHR$(26);
  26. 88 LPRINT STRING$(80,"*")
  27. 91 PRINT"                           EARTH STATION COORDINATES"
  28. 92 LPRINT"                           EARTH STATION COORDINATES"
  29. 93 PRINT"                    TERMINAL LOCATION-------> ";L$
  30. 94 LPRINT"                    TERMINAL LOCATION-------> ";L$
  31. 95 LPRINT"                 LAT=";Y1".";X1".";S1, "LON=";G2".";X2".";S2
  32. 96 LPRINT STRING$(80,"*")
  33. 97 LPRINT
  34. 98 LPRINT"SATELLITE","FREQ","LON","AZIM","ELEV","STATUS":LPRINT
  35. 99 PRINT"SATELLITE","FREQ","LON","AZIM","ELEV","STATUS":PRINT
  36. 100 GOTO 320
  37. 110 B=G+W:IF B>180 THEN B=B-360
  38. 120 IF B<-180 THEN B=B+360
  39. 130 X=COS(B*.0174533)*COS(A*.0174533):GOSUB 200:C=X
  40. 140 IF C*57.2958>81.3 THEN PRINT W$,Q$,W,"BELOW THE HORIZON",S$:LPRINT W$,Q$,W,"BELOW THE HORIZON",S$:GOTO 100
  41. 150 Z=3.14159+ATN(TAN(B*.0174533)/SIN(A*.0174533)):IF Z<0 THEN Z=Z+3.14159
  42. 160 S=SQR(R*R+(R+H)*(R+H)-2*R*(R+H)*COS(C))
  43. 170 X=(S*S+R*R-(R+H)*(R+H))/(2*R*S):GOSUB 200:E=X-1.5708
  44. 180 AZ=INT((Z*57.2958+.005)*100)/100
  45. 190 EL=INT((E*57.2958+.005)*100)/100
  46. 200 IF(-X*X+1)>-.0001 THEN X=-ATN(X/SQR(-X*X+1))+1.5708:RETURN
  47. 210 REM *******END ORBITAL CALCULATIONS*******
  48. 300 PRINT W$,Q$,W,AZ,EL,S$
  49. 310 LPRINT W$,Q$,W,AZ,EL,S$
  50. 320 READ W$,Q$,W,S$
  51. 340 IF W$="00" THEN GOTO 400
  52. 350 GOSUB 110
  53. 380 GOTO 320
  54. 390 RESTORE
  55. 400 LPRINT STRING$(80,"*"):LPRINT
  56. 410 LPRINT "                           STATUS as of June 25, 1984
  57. 420 LPRINT "              I = In Orbit                  A = Tentative FCC Orbital Slot"
  58. 430 LPRINT CHR$(12);
  59. 440 DATA SATCOM 6,C,67.0,A,SPACENET 2,C/K,69.0,A,SATCOM 2R,C,72.0,I,GALAXY II,C,74.0,I
  60. 450 DATA RAINBOW 3,K,75.0,A,COMSTAR 1&2,C,76.0,I,TELSTAR 302,C,76.0,A,SATCOM K3,K,77.0,A
  61. 460 DATA WESTAR 2,C,79.0,I,SATCOM IV,C,83.0,I,COMSTAR D-III,C,87.0,I,SPACENET-III,C/K,91.0,A
  62. 470 DATA WESTAR-III,C,91.0,I,GALAXY III,C,93.5,I,SBS-3,K,95.0,I,TELSTAR 301,C,96.0,I
  63. 480 DATA SBS-2,K,97.0,I,WESTAR IV,C,99.0,I,SBS-1,K,100.0,I,G-STAR-1,K,103.0,A
  64. 490 DATA ANIK D-1,C,104.5,I,G-STAR-II,K,105.0,A,ANIK C-2,K,105.0,I,ANIK B-1,C/K,109.0,I
  65. 500 DATA ANIK A-3,C,114.0,I,ANIK C-3,C,117.5,I,SATCOM 2,C,119.0,I,SPACENET 1,C/K,120.0,I
  66. 510 DATA WESTAR 5,C,122.5,I,TELSTAR 304,C,125.0,A,COMSTAR D-4,C,127.0,I,SATCOM 3R,C,131.0,I
  67. 520 DATA GALAXY 1,C,134.0,I,SATCOM 1R,C,139.0,I,AURORA 1,C,143.0,I,00,00,00,00
  68. 530 END
  69. AR D-4,C,127.0,I,SATCOM 3R,C,131.0,I
  70. 520 DATA GALAXY 1,C,134.0,I,SATCOM 1R,C,139.0,I,AURORA 1,C,143.