- ********** SATELLITE EARTH STATION PERFORMANCE PARAMETERS ************| ********** ************ ********** Public Domain Program by Bill Meeks, Jr ************ ********** ************i ********** Written in IBM-PC BASIC 3.1 ************ ********** ************ ********** March 23, 1988 ************ \ ************************************************************************ S$(P," "):F$(P,"="):FLAG: SA$(): MA$(): PW(): EIRP(): LONG(): } Satcom F1-R, Galaxy 1, Satcom F3-R, Telstar 303, Westar 5, Spacenet 1, Anik D-2, Anik D-1, Westar 4, Telstar 301, Galaxy 3, Westar 3, Telstar 302, Satcom F4, Galaxy 2, Satcom F2-R,Spacenet 2 Anik C3,GSTAR 1,SBS 3,SBS 4,Satcom K1,Satcom K2,GSTAR 2 I% : SA$(I%): I%( RCA AstroElectronics, Hughes Communications, RCA AstroElectronics, AT&T Communications, Western Union, Southern Pacific Communications, Telesat Canada, Telesat Canada, Western Union, AT&T Communications, Hughes Communications, Western Union- AT&T Communications, RCA AstroElectronics, Hughes Communications, RCA AstroElectronics, Southern Pacific Communications, Telesat Canada, GTE, Satellite Business Systems, Satellite Business Systems, RCA AstroElectronics, RCA AstroElectronics. GTE92 8.5, 8.5, 5, 5.5, 7.5, 8.5, 20, 20, 7.5, 5.5, 8.5, 5, 5.5, 5, 8.5, 8.5,8.5,15,20,20,20,20,20,20< 34,34.5,32,34,34,34,34,34,34,34,34.5,33,34,33,34.5,34,34,40,41,42,42,48,48,41F I% : MA$(I%): I%: I% : PW(I%): I%P I% : EIRP(I%): I%IZ 139,134,131,125,122.5,120,110.5,104.5,99,96,93.5,91,85,82,74,72,69,117.5,103,95,91,85,81,105id I% : LONG(I%): I%yi n: n: )"SATELLITE EARTH STATION": )"PERFORMANCE PARAMETERS": F$:T ,:"Earth Station Longitude and Latitude will be entered using separate":"prompts for the degrees, minutes and seconds of each.":"Enter the Earth Station Longitude Degrees ....";LE"Enter the Earth Station Longitude Minutes ....";ME"Enter the Earth Station Longitude Seconds ....";SE="Enter the Earth Station Latitude Degrees ....";TDu"Enter the Earth Station Latitude Minutes ....";TM"Enter the Earth Station Latitude Seconds ....";TS.:"THIS INFORMATION WILL BE SAVED FOR ALL SUBSEQUENT COMPUTATIONS. IT MAY BE":"CHANGED FROM THE MAIN MENU WHICH FOLLOWS."LG(SE)(ME<)LE:LA(TS)(TM<)TD:LG(LG):LA(LA) ,:"Hit the key to continue.";X$: n: : . ,:"Earth Station Coordinates - ";LG;"Degrees West,";LA;"Degrees North";:8 , )"1) Pick a Satellite for Look-Angle Computations": )"2) Compute Downlink Terminal Performance for Chosen Satellite": )"3) Change Longitude and Latitude of Earth Station" )"4) Exit To DOS"::A"Type the number of your selection ...."JX$\ X$"" ~X%(X$): X% X%  X% : X% SA$"" : ,: "YOU MUST SELECT A SATELLITE FIRST !!!": COUNT : COUNT: " X% ,,,iS, n: ,:"The following is a list of available satellites-"e1 : ,:6 SA$(),SA$(),SA$(),SA$()@ SA$(),SA$(),SA$(),SA$()J SA$(),SA$(),SA$( ),SA$( )T SA$( ),SA$( ),SA$(),SA$() Y SA$(),SA$(),SA$(),SA$()? Z SA$(),SA$(),SA$(),SA$()E ^ h"Choose a satellite by name for computations and type the name as it":"appears above." r:"Enter the satellite name ...";SA$ | I% : SA$(I%)SA$ `! I%::"ERROR - Satellite Name ";SA$;" not found in table!":"Re-enter the satellite name ...";SA$: |x!: n: : ,!"SATELLITE NAME.................................. ";SA$(I%):"OWNER/OPERATOR.................................. ";MA$(I%)""ORBITAL LONGITUDE...............................";LONG(I%);"Degrees West":"AVERAGE TRANSPONDER POWER.......................";PW(I%);"Watts"""EFFECTIVE ISOTROPIC RADIATED POWER (EIRP).......";EIRP(I%);"dBW"#" (EIRP is average on Continental U.S.)"# (P,"-"):7#DC9{:DLLONG(I%)LG:RC.e#SDbf((((DLDC)(LADC)))):SD(SDd)d#BLONG(I%)LG:AZ(((BDC)(LADC)))RC:AZ(AZd)d $"Azimuth Angle from True North to Satellite is";AZ;"Degrees"$W(BDC)((LADC)):CZ((W(W)))RC:Z@8(ǺX(CDC)):E(Z)(Z):EL((E(E)))RC:EL(ELd)d$"The Elevation Angle of the Antenna from the Ground is";EL;"Degrees"?%"The Distance from the Antenna to the Satellite is";(SD);"Statute Miles"% ,:"Hit to return to the main menu....";X$: %: n: : ,#:"Currently Selected Satellite - ";SA$(I%): &"Enter the Receive Antenna Diameter in Feet ...";A:AAQQ&"Enter the Feed Assembly Efficiency in Percent (usually 55) ...";B&"Enter the LNA Noise Temperature in Degrees Kelvin ...";NT&"Enter the Receiver's IF Bandwidth in MHz ....";D'"Enter the Desired Receive Frequency in GHz ...";CI'$"Enter the Video Demodulator Threshold of the Receiver in dB ...";E'.: n: : ,#:"Currently Selected Satellite - ";SA$(I%):'2 '3FSDR:PC:Q'pP:R($IFQ):S (R)( )$(4I ((B(AA)(CC)))( ):J(ף0( )(NTU)(D ))Q(5K (J):MK( ):LEIRP(I%)SMIE(6NF( ((NT")))( ):BW.((C)(AQ))(8"Receive Antenna Diameter........................";(A ) ;"Meters"')B"Feed Assembly Efficiency........................";B;"Percent"g)L"Receive Frequency for Computation...............";C;"GHz")V"Antenna Gain at Receive Frequency...............";(I ) ;"dB" *["Antenna Beamwidth at Receive Frequency..........";(BWd)d;"Degrees"W*`"Low Noise Amplifier (LNA) Noise Temperature.....";NT;"Degrees Kelvin"*e"LNA Equivalent Noise Figure.....................";(NFd)d;"dB"*j"Receiver's IF Noise Bandwidth...................";D;"MHz"&+o"The Given Video Demodulator Threshold...........";E;"dB"m+t"Satellite EIRP at Downlink Location.............";EIRP(I%);"dBW"+~"Free Space Path Loss (Based on Clear Sky).......";(Sd)d;"dB"+,"Calculated Receiver IF Carrier/Noise Ratio......";((LE) ) ;"dB"d,"Estimated Downlink Fade Margin..................";(L ) ;"dB"v,: (O,"-"),"Hit to return to main menu....";X$: , EL U:, EL U2:, EL EL U:- EL EL U:4- EL EL U(::-