Listing of file='31A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 780, program filename = '31A' 0010 PRINT 0020 PRINT "AREA OF FLOW CROSS SECTION (SQ.FT.)?" 0030 INPUT A 0040 PRINT "MANNING'S ROUGHNESS COEFF.?" 0050 INPUT N 0060 PRINT "HYDRAULIC RADIUS (FT.)?" 0070 INPUT R 0080 PRINT "SLOPE OF CHANNEL (FT/FT)?" 0090 INPUT S 0100 PRINT 0110 Q=1.486/N*A*R^(2/3)*SQR(S) 0120 PRINT "DISCHARGE=";Q;"CU.FT./SEC." 0130 PRINT 0140 PRINT "MORE INPUT? (1=YES,0=NO)" 0150 INPUT Q 0160 IF Q=1 THEN 10 0170 END