Listing of file='34B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 130, program filename = '34B' 0010 PRINT "BAROMETRIC PRESSURE (IN. HG.)?" 0020 INPUT P1 0030 PRINT "CONTAINMENT PRESSURE (IN. WATER)?" 0040 INPUT P2 0050 PRINT "DEWPOINT SENSORS T1,T2 (DEG.F)?" 0060 INPUT T1,T2 0070 PRINT "DRYBULB SENSORS S1,S2,S3,S4 (DEG.F)?" 0080 INPUT S1,S2,S3,S4 0090 P3=.49116*P1+.036127*P2 0100 T5=(T2+T1)/2 0110 PRINT "PARTIAL PRESSURE OF WATER VAPOR BASED ON " 0120 PRINT "DEWPOINT OF";T5;"DEG.F.?" 0130 INPUT X 0140 P4=P3-X 0150 S8=459.6+(S1+S2+S3+S4)/4 0160 PRINT "MASS OF N=";32637*P4/S8;"LB." 0170 END