Listing of file='32A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 440, program filename = '32A' 0010 PRINT 0020 PRINT "LENGTH (FT)?" 0030 INPUT L 0040 PRINT "0-DIAMETER OF PIPE (FT)?" 0050 INPUT D 0060 PRINT "FRICTION FACTOR" 0070 INPUT F 0080 PRINT 0090 A=F*L/D+1.5 0100 B=(5.0929582/D^2)^2/64.4 0110 PRINT "HEAD LOSS=";A*B 0120 PRINT 0130 PRINT "MORE INPUT? (1=YES,0=NO)" 0140 INPUT L 0150 IF L=1 THEN 10 0160 END