100 CLS:PRINT:PRINT "          OPEN CHANNEL DESIGN"105 PRINT "              Version 1.0"110 PRINT "      (c) 1989 Gary L. Van Balen"115 PRINT "          All Rights Reserved"120 PRINT "     Distribution By Permission Only"125 PRINT "    Contact Author on CIS [71500,611]"130 FOR T=0 TO 2000:NEXT135 PF$="ON"140 CLS145 REM MAIN MENU150 PRINT155 PRINT "      P)rint Results (";PF$;")"160 PRINT "      N)ew Ditch"165 PRINT "      F)low Parameter Mod."170 PRINT "      C)onfiguration of Ditch Mod."175 PRINT180 PRINT "      Enter Selection (Q to Quit):";185 F$=INKEY$:IF F$="" THEN 185190 IF F$="Q" OR F$="q" THEN MENU195 IF F$="N" OR F$="n" THEN 220200 IF F$="F" OR F$="f" THEN 220205 IF F$="C" OR F$="c" THEN 275210 IF F$="P" OR F$="p" THEN PF$="OFF"215 GOTO 140220 CLS225 REM ENTER FLOW PARAMETERS230 PRINT"***  ENTER FLOW PARAMETERS  ***"235 PRINT240 PRINT"Design flow in CFS";245 INPUT FLOW250 PRINT"Mannings Roughness Coefficient";255 INPUT ROUGH260 PRINT"Hydraulic Slope in decimal form";265 INPUT SP270 IF F$="F" OR F$="f" THEN 415275 REM ENTER CONFIGURATION280 CLS285 RS=0290 LS=0295 WITH=0300 BS=0305 PRINT"***  ENTER DITCH CONFIGURATION  ***"310 PRINT315 PRINT"Ditch RT side slope (?H:1V), H =";320 INPUT SR325 RS = 1/SR330 PRINT"Ditch LT side slope (?H:1V), H =";335 INPUT SL340 LS = 1/SL345 PRINT"Ditch bottom width";350 INPUT WITH355 PRINT360 IF WITH=0 THEN SBS=1:GOTO 415365 PRINT"Bottom of ditch sloped to one side"370 PRINT"or is it level (S/L)";375 INPUT A$380 IF A$="S" THEN GOTO 405385 IF A$="s" THEN GOTO 405390 IF A$="L" THEN SBS=1:GOTO 415395 IF A$="l" THEN SBS=1:GOTO 415400 GOTO 365405 PRINT"Slope of bottom in decimal form";410 INPUT BS415 REM ROUND OFF DESIGN FLOW420 FLOW=(INT(100*(.005+FLOW)))/100425 CLS:PRINT@80,"Half Interval Search for Q In Progress"430 REM CALCULATE FLOW BASED ON 'D'435 L1=0440 L2=0445 L4=0450 I=1455 D=.1460 IN=1465 AREA=0470 PRINT @178,I475 I=I+1480 IF SBS=1 GOTO 490:ZL=LS:LS=RS: RS=ZL485 REM TO RESTORE RS & LS BEFORE PRINTING490 IF D<BS*WITH GOTO 510495 AREA=D^2/(LS*2)+(BS*WITH^2)/2+(D-BS*WITH)*WITH+(((D-BS*WITH)/RS)*(D-BS*WITH))/2500 WP=((D/LS)^2+DE^2)^.5+((BS*WITH)^2+WITH^2)^.5+((D-BS*WITH)^2+((D-BS*WITH)/RS)^2)^.5505 GOTO 520510 AREA=D^2/(LS*2)+D^2/(BS*2)515 WP=((D/LS)^2+D^2)^.5+(D^2+(D/BS)^2)^.5520 Q=(INT(((.005+((1.486/ROUGH)*AREA*(AREA/WP)^(2/3)*SP^.5))*100)))/100525 REM CHECK IF CALCULATED FLOW EQUALS DESIGN FLOW530 REM535 IF Q=FLOW GOTO 565540 REM IF CALCULATED FLOW IS EQUAL TO THE DESIGN FLOW, THEN DEPTH OF DITCH IS OK: THEREFORE PRINT ANSWERS545 IF Q<FLOW THEN D=D+IN:GOTO 470550 REM IF CALCULATED FLOW IS LESS THAN DESIGN FLOW, THEN INCREASE THE DEPTH BY 'IN' AND RECALCULATE FLOW555 IF Q>FLOW THEN IN=IN/2:D=D-IN:GOTO 470560 REM IF CALC. FLOW IS > DESIGN FLOW, THEN CUT IN HALF AND DECREASE THE DEPTH BY THE NEW 'IN', AND RECALC. FLOW565 REM OUTPUT ANSWERS570 CLS575 VLCTY=(INT(100*((Q/AREA)+.005)))/100580 FRBOARD=(INT(100*(.005+(1+(.025*Q/AREA)*D^.3333))))/100585 Q=(INT(100*(.005+Q)))/100590 D=(INT(100*(.005+D)))/100595 REM Show results on screen600 CLS:PRINT"***  DESIGN FLOW PARAMETERS  ***"605 PRINT610 PRINT"Design flow in CFS";FLOW615 PRINT"Mannings Roughness Coefficient";ROUGH620 PRINT"Hydraulic Slope";SP625 PRINT630 PRINT "Any Key to continue:";635 P$=INKEY$:IF P$="" THEN 635640 CLS645 PRINT"***  DITCH CONFIGURATION  ***"650 PRINT655 HRS=1/RS660 HLS=1/LS665 PRINT"RT SIDE SLOPE =";HRS;"H:1V"670 PRINT"LT SIDE SLOPE =";HLS;"H:1V"675 PRINT"BOTTOM WIDTH  =";WITH;"FT"680 IF WITH=0 GOTO 695685 SB = BS*100690 PRINT"CROSS SLOPE   =";SB;"%"695 PRINT700 PRINT "Any Key to continue:";705 P$=INKEY$:IF P$="" THEN 705710 CLS715 PRINT"***  CALCULATED RESULTS  ***"720 PRINT725 PRINT"Calculated Flow =";Q;"cfs"730 PRINT"Depth, d = ";735 PRINT USING "#####.##";D;740 PRINT " ft"745 PRINT"Area of Flow, A =";750 PRINT USING "#####.##";AREA;755 PRINT " SQ FT"760 PRINT765 PRINT "Any Key to for more:";770 P$=INKEY$:IF P$="" THEN 770775 CLS780 PRINT"Wetted Perimeter, WP =";785 PRINT USING "#####.##";WP;790 PRINT " FT"795 PRINT"Velocity, V =";VLCTY;"fps"800 PRINT"Freeboard =";FRBOARD;"ft"805 TD=D+FRBOARD810 PRINT815 PRINT"TOTAL REQUIRED DEPTH =";TD;"FT"820 PRINT825 PRINT "Any Key to continue:";830 P$=INKEY$:IF P$="" THEN 830835 IF PF$="ON" THEN 140840 CLS845 REM Make hard copy850 CLS:PRINT"Press Any Key after turning on printer.";855 P$=INKEY$:IF P$="" THEN 855860 LPRINT"***  DESIGN FLOW PARAMETERS  ***"865 LPRINT870 LPRINT"Design flow, Q = ";FLOW;"cfs"875 LPRINT"Mannings Roughness Coefficient";ROUGH880 LPRINT"Hydraulic Slope, S = ";EPOLS;"%"885 LPRINT890 LPRINT "***   DITCH CONFIGURATION   ***"895 LPRINT900 HRS=1/RS905 HLS=1/LS910 LPRINT "RT Side Slope = ";HRS;"H:1V"915 LPRINT "LT Side Slope = ";HLS;"H:1V"920 LPRINT925 LPRINT "Width of Bottom = ";WITH;"FT"930 IF WITH=0 GOTO 940935 LPRINT "Cross Slope of Bottom = ";SB;"%"940 LPRINT945 LPRINT "***   CALCULATED RESULTS   ***"950 LPRINT955 LPRINT "Calculated Flow = ";Q;"cfs"960 LPRINT "Depth = ";D;"ft"965 LPRINT "Area of Flow, A =";970 LPRINT USING "#####.##";AREA;975 LPRINT " SQ FT"980 LPRINT "Wetted Perimeter, WP =";985 LPRINT USING "#####.##";WP;990 LPRINT " ft"995 LPRINT "Velocity of Flow, V = ";VLCTY;"fps"1000 LPRINT1005 LPRINT "Freeboard = ";FRBOARD;"ft"1010 TD=D+FRBOARD1015 LPRINT1020 LPRINT "TOTAL REQUIRED DEPTH = ";TD;"FT":LPRINT:LPRINT1025 GOTO 140
.