1000 CLEARW 2 
1050 PRINT "Michael E. Valdez Radio Astronomy Programs" 
1100 PRINT "Written for S.A.R.A. Members" 
1200 PRINT "Program to Verify Station Operation" 
1300 PRINT " 1986":PRINT:PRINT 
1400 INPUT "System Temperature in Degree kelvin";ST 
1500 INPUT "Receiver Bandwidth in Mhz";BW:PRINT 
1600 IP = l.38E-17 * BW * ST 
1700 PRINT "Input Power is "IP" Watts" 
1800 IV = SQR(IP * 50) * 1E6 . 
1900 PRINT "Input Voltage is "IV" microvolts":PRINT 
2000 INPUT "System Gain from Antenna to Detector in dB";SG 
2050 PRINT 
2100 SG EXP(SG * 0.115129254) 
2200 DV = IV * SG / 1000 
2300 PRINT "Voltage at the Diode is "DV" millivolts":PRINT 
2400 PRINT "Gain of DC Amplifier in dB or zero if you "; 
2450 INPUT "know the Voltage Gain";DG 
2500 IF DG>0 THEN DG = EXP(DG * 0115129254) ; GOTO 2700 
2600 INPUT " DC Voltage Gain";DG 
2700 RV = DV * DG / 1000 
2800 PRINT:PRINT "Voltage at the Recorder is "RV" Volts" 
2850 PRINT 
2900 RR = 4.549725266E-7 * SQR(BW) * SG 
3000 RS = RR * DG 
3100 PRINT "Replacing the antenna. with a 50 Ohm resistor " 
3200 PRINT "should give you "RR * 1000" millivolts at the diode" 
3300 PRINT "and "RS" volts at the recorder" 
3400 PRINT "or a "RS - RV" voltage increase at the recorder" 
3500 PRINT "over the sky ":PRINT 
3600 INPUT "More", I$ 
3700 IF ( I$="Y") OR (I$="y" ) THEN 1000