Listing of file='33A ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 540, program filename = '33A' 0010 PRINT 0020 PRINT "VELOCITY HEAD (FT.)?" 0030 INPUT V 0040 PRINT "COEFF. OF ENTRANCE LOSS?" 0050 INPUT K 0060 PRINT "MANNING'S ROUGHNESS COEFF.?" 0070 INPUT N 0080 PRINT "LENGTH OF CULVERT (FT.)?" 0090 INPUT L 0100 PRINT "HYDRAULIC RADIUS (FT.)?" 0110 INPUT R 0120 PRINT 0130 PRINT "HEADWATER DEPTH (FT.)=";(1+K+29*N^2*L/R^(4/3))*V 0140 PRINT 0150 PRINT "MORE INPUT? (1=YES,0=NO)" 0160 INPUT V 0170 IF V=1 THEN 10 0180 END