LBL "FLOCOMP"
SF 21
LBL 00
.01
STO 12
LBL 01
CF IND 12
ISG 12
GTO 01
"S.I.=0 U.S.=1"
PROMPT
X=0?
SF 03
" R T TR CR P"
PROMPT
LBL A
"RECTANGULAR"
ASTO 20
XEQ 10
XEQ 02
ADV
GTO 15
LBL B
" TRIANGULAR"
ASTO 20
XEQ 10
CF 22
XEQ 03
ADV
GTO 15
LBL C
"TRAPEZOIDAL"
ASTO 20
XEQ 10
XEQ 02
CF 22
XEQ 03
ADV
SF 06
GTO 15
LBL 02
"CHAN WIDTH ="
PROMPT
STO 21
STO 14
XEQ 14
RTN
LBL 03
"SIDES "
FS? 22
GTO 04
>"?H : 1V"
PROMPT
STO 22
GTO 03
LBL 04
ARCL 22
>"H : 1V"
XEQ 16
RTN
LBL D
"  CIRCULAR"
ASTO 20
XEQ 10
"DIAMETER ="
PROMPT
XEQ 14
2
/
STO 21
ADV
SF 06
SF 08
GTO 15
LBL E
" PARABOLIC"
ASTO 20
XEQ 10
"PARA DEPTH ="
PROMPT
XEQ 14
"PARA WIDTH ="
PROMPT
XEQ 14
"CHANNEL a ="
2
/
X^2
/
STO 22
FIX 04
XEQ 14
FIX 02
ADV
SF 06
LBL 15
12.1
STO 31
CF 22
"DEPTH =?"
PROMPT
FS? 22
GTO 05
"MANEQ"
ASTO 30
"FLOW =?"
PROMPT
STO 18
XEQ "ROOT"
TONE 05
CF 04
GTO 06
LBL 05
X=0?
GTO 00
STO IND 31
XEQ "MANEQ"
STO 18
LBL 06
XEQ 12
FS? 02
XEQ 07
ADV
FS? 10
RTN
GTO 15
LBL 07
SF 07
ISG 31
FS? 06
GTO 08
"C"
ARCL 20
ASTO X
XEQ IND X
GTO 09
LBL 08
"CDEPTH"
ASTO 30
XEQ "ROOT"
TONE 09
CF 04
LBL 09
XEQ 12
1
ST- 31
RTN
LBL 10
SF 12
AVIEW
CF 12
.1
STO Z
ADV
"DSP A,P,R Y/N?"
XEQ 11
"DSP VEL Y/N?"
XEQ 11
"DSP Dc Y/N?"
XEQ 11
LBL F
FIX 04
"MANNING N ="
PROMPT
STO 23
XEQ 14
FIX 02
FS? 05
GTO 15
LBL G
FIX 05
"HYDR SLOPE ="
PROMPT
STO 24
XEQ 14
FIX 02
FS? 05
GTO 15
SF 05
RTN
LBL 11
AON
PROMPT
AOFF
ASTO X
"Y"
ASTO Y
X=Y?
SF IND Z
ISG Z
RTN
LBL 12
ADV
"CRIT DEPTH ="
FC?C 07
"NORM DEPTH ="
RCL IND 31
XEQ 14
"TOP WIDTH ="
RCL 14
XEQ 14
FC? 00
GTO 13
"AREA ="
RCL 15
XEQ 14
"WET PER ="
RCL 16
XEQ 14
"HYDR RADIUS ="
RCL 17
XEQ 14
LBL 13
FIX 00
"FLOW ="
RCL 18
XEQ 14
FIX 02
FC? 01
GTO 17
"AVG VEL ="
RCL 18
RCL 15
/
STO 19
LBL 14
>" "
ARCL X
LBL 16
FS? 55
GTO 18
AVIEW
LBL 17
RTN
LBL 18
"PRA"
RTN
LBL "ROOT"
SF 04
.05
STO 25
RCL 21
ST+ X
.9999
*
FC? 08
100
STO 26
STO IND 31
XEQ IND 30
STO 28
RCL 25
STO IND 31
XEQ IND 30
STO 27
LBL 19
RCL 26
RCL 26
RCL 25
-
RCL 28
RCL 27
-
/
RCL 28
*
-
STO IND 31
XEQ IND 30
STO 29
X=0?
RTN
ABS
.1
X>Y?
RTN
RCL 29
RCL 28
*
X>0?
GTO 21
RCL 26
STO 25
RCL 28
STO 27
LBL 20
RCL IND 31
STO 26
RCL 29
STO 28
GTO 19
LBL 21
2
ST/ 27
GTO 20
LBL "C TRIA"
RCL 18
X^2
ST+ X
XEQ 22
/
RCL 22
X^2
/
.2
Y^X
STO 13
XEQ IND 20
RTN
LBL "CRECTA"
RCL 18
RCL 14
/
X^2
XEQ 22
/
.3333333333
Y^X
STO 13
XEQ IND 20
RTN
LBL "CDEPTH"
XEQ IND 20
RCL 15
3
Y^X
RCL 14
/
RCL 18
X^2
XEQ 22
/
-
RTN
LBL 22
32.17
9.807
FS? 03
X<>Y
RDN
RTN
LBL "MANEQ"
FS? 09
STO IND 31
XEQ IND 20
RCL 24
SQRT
RCL 17
.6666666667
Y^X
*
RCL 15
*
1.486
1
FS? 03
X<>Y
RDN
*
RCL 23
/
FC? 04
RTN
RCL 18
-
RTN
LBL " PARAB"
RCL IND 31
RCL 22
/
SQRT
ST+ X
STO 14
2
/
STO 21
RCL IND 31
*
1.333333333
*
STO 15
RCL 21
X^2
RCL IND 31
X^2
4
*
+
SQRT
STO Y
RCL IND 31
ST+ X
+
RCL 21
/
LN
2
/
RCL IND 31
/
RCL 21
X^2
*
+
STO 16
XEQ 24
RTN
LBL "  CIRC"
RCL 21
RCL IND 31
-
RCL 21
/
ENTER
ABS
1
X<Y?
GTO 23
RCL Z
ACOS
ST+ X
STO 22
D-R
RCL 22
SIN
-
RCL 21
X^2
*
2
/
STO 15
RCL 22
D-R
RCL 21
*
STO 16
XEQ 24
RCL 22
2
/
SIN
ST+ X
RCL 21
*
STO 14
RTN
LBL 23
"DEPTH > DIAMETE"
>"R"
XEQ 16
CF 04
CF 07
CF 09
CF 10
GTO 15
LBL "TRAPEZ"
RCL 22
RCL IND 31
*
ST+ X
RCL 21
+
STO 14
RCL 21
+
2
/
RCL IND 31
*
STO 15
RCL 22
X^2
1
+
SQRT
ST+ X
RCL IND 31
*
RCL 21
+
STO 16
XEQ 24
RTN
LBL " TRIAN"
RCL IND 31
X^2
RCL 22
*
STO 15
RCL IND 31
/
ST+ X
STO 14
RCL 22
X^2
1
+
SQRT
ST+ X
RCL IND 31
*
STO 16
XEQ 24
RTN
LBL "RECTAN"
RCL IND 31
RCL 21
*
STO 15
RCL IND 31
ST+ X
RCL 21
+
STO 16
LBL 24
RCL 15
RCL 16
/
STO 17
RTN
LBL I
SF 10
"START DEPTH?"
PROMPT
STO IND 31
"INCREMENT?"
PROMPT
STO 32
"ITERATIONS?"
PROMPT
1 E3
/
1
+
STO 33
RCL IND 31
LBL 25
XEQ 05
RCL IND 31
RCL 32
+
ISG 33
GTO 25
CF 10
GTO 15
LBL J
SF 09
XEQ "PRPLOT"
CF 09
ADV
ADV
GTO 00
LBL 12