5 REM ******************SATCOM********************************
7 REM An antenna pointing program for geosynchronous satellites
9 REM Released to PUBLIC DOMAIN 04-13-85 for non-profit use only !
11 REM Uploaded to COMPUSERVE 04-13-85 by Adam Grow III (75216,3660)
13 PRINT CHR$(26);
14 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
15 PRINT "                           SATELLITE COORDINATE GENERATOR"
23 LET T=1
24 LET T=T+1
25 IF T<500 THEN GOTO 24
27 WIDTH LPRINT 90
30 WIDTH 90
40 R=6367:H=35800!
44 PRINT CHR$(26);
46 PRINT:PRINT:PRINT
50 INPUT "          Enter the name of your terminal";L$
52 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:
60 INPUT "          Enter your latitude as D,M,S";A,X,S:Y1=A:X1=X:S1=S:A=A+X/60+S/3600
62 PRINT:PRINT
70 IF A>180 THEN PRINT "          Recheck your latitude !":PRINT CHR$(7);:GOTO 60
72 PRINT:PRINT:PRINT:PRINT
80 INPUT "          Enter your longitude as D,M,S";G,X,S:G2=G:X2=X:S2=S:G=-(G+X/60+S/3600)
82 PRINT:PRINT
84 IF G>180 THEN PRINT "          Recheck your longitude !":PRINT CHR$(7);:GOTO 80
86 PRINT CHR$(26);
88 LPRINT STRING$(80,"*")
91 PRINT"                           EARTH STATION COORDINATES"
92 LPRINT"                           EARTH STATION COORDINATES"
93 PRINT"                    TERMINAL LOCATION-------> ";L$
94 LPRINT"                    TERMINAL LOCATION-------> ";L$
95 LPRINT"                 LAT=";Y1".";X1".";S1, "LON=";G2".";X2".";S2
96 LPRINT STRING$(80,"*")
97 LPRINT
98 LPRINT"SATELLITE","FREQ","LON","AZIM","ELEV","STATUS":LPRINT
99 PRINT"SATELLITE","FREQ","LON","AZIM","ELEV","STATUS":PRINT
100 GOTO 320
110 B=G+W:IF B>180 THEN B=B-360
120 IF B<-180 THEN B=B+360
130 X=COS(B*.0174533)*COS(A*.0174533):GOSUB 200:C=X
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
150 Z=3.14159+ATN(TAN(B*.0174533)/SIN(A*.0174533)):IF Z<0 THEN Z=Z+3.14159
160 S=SQR(R*R+(R+H)*(R+H)-2*R*(R+H)*COS(C))
170 X=(S*S+R*R-(R+H)*(R+H))/(2*R*S):GOSUB 200:E=X-1.5708
180 AZ=INT((Z*57.2958+.005)*100)/100
190 EL=INT((E*57.2958+.005)*100)/100
200 IF(-X*X+1)>-.0001 THEN X=-ATN(X/SQR(-X*X+1))+1.5708:RETURN
210 REM *******END ORBITAL CALCULATIONS*******
300 PRINT W$,Q$,W,AZ,EL,S$
310 LPRINT W$,Q$,W,AZ,EL,S$
320 READ W$,Q$,W,S$
340 IF W$="00" THEN GOTO 400
350 GOSUB 110
380 GOTO 320
390 RESTORE
400 LPRINT STRING$(80,"*"):LPRINT
410 LPRINT "                           STATUS as of June 25, 1984
420 LPRINT "              I = In Orbit                  A = Tentative FCC Orbital Slot"
430 LPRINT CHR$(12);
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
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
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
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
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
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
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
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
520 DATA GALAXY 1,C,134.0,I,SATCOM 1R,C,139.0,I,AURORA 1,C,143.0,I,00,00,00,00
530 END