Listing of file='39A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 786, program filename = '39A' 0010 PRINT 0020 PRINT "CHARA. IMPEDANCE OF TRANSMISSION LINE (OHMS)?" 0030 INPUT Z 0040 PRINT "REAL LOAD RESISTANCE (OHMS)?" 0050 INPUT R1 0060 PRINT "MAX. FORWARD-GOING POWER (WATTS)?" 0070 INPUT P1 0080 PRINT "MIN. FORWARD-GOING POWER (WATTS)?" 0090 INPUT P2 0100 PRINT 0110 A=SQR(P1/P2) 0120 R=Z*(1-R1*A/Z)/(A-R1/Z) 0130 E=2*(R+R1)/(Z+R1)*SQR(Z*P1) 0140 PRINT "CHARACTERISTIC GENERATOR RESISTANCE=";R;"OHMS" 0150 PRINT "SOURCE EMF VOLTAGE=";E;"VOLTS" 0160 PRINT 0170 PRINT "MORE INPUT? (1=YES,0=NO)" 0180 INPUT E 0190 IF E=1 THEN 10 0200 END