|
<br />BASIC PROGRl\M LISTING OP HAZARD2
<br />
<br />10 RE)! FLOOD ROl:TIXG PROCEDCRE FOR 1l0\JSE BILL 1415(83)
<br />20 CLS
<br />25 LPRINT CHRS(27)+CHRS(108)+CI1RS(13)
<br />30 KEY 5,....
<br />40 KEY 6,....
<br />50 KEY 7,"'f
<br />CO I;EY 1 0 , ....
<br />70 AS=CHRS(13)
<br />80 KEY 8,"YES"+AS
<br />90 KEY 9,"NO"+AS
<br />100 DUl C(30)
<br />110 NPAGE=l
<br />120 LPRIKT:LPRIXT:LPRINT:LPRINT TAB(30);"PAGE ";NPAGE:LPRI~T
<br />130 DATA 0,0,.5,.5,0,0,0
<br />140 DATA 0,0,.25,.5,.25,0,0
<br />150 DATA 0,.125,.375,.375,.125,0,0
<br />160 DATA 0,.0625,.25,.375,.25,.0625,0
<br />17 0 DATA 0,. 0313, . 1582, . 3125 , . 3125, . 1582, . 031 3
<br />180 DATA .0156,.0937,.2344,.3125,.2344,.0937,.0156
<br />190 DATA .0078,.0547,.1641,.2734,.1641,.0547
<br />200 DATA .0313,.1094,.2187,.2734,.2187,.1094,.0313
<br />210 DATA .0176,.0703,.1641,.246,.246,.1641,.0703
<br />220 DATA . 0439, ' 1172 , ' 2051, . 2462 , . 2051 , . 1172 , ' 0439
<br />230 DATA .0269,.0807,.1611,.2254,.2254,.1611,,0807
<br />240 DATA ,0537,. 1208 , . 193.:1 , . 2256 , . 1934, , 12 OS , , 0537
<br />250 DATA .0349,.0873,.1571,.2095,.2095,.1571,.0837
<br />260 DATA .0611, .1222, .1833, .2094, .1833, .1222, .0611
<br />270 DATA . 04 17 , .0916 , . 1527 , . 1964 , . 1964, . 1527 , ,0916
<br />280 I:;Pt:T "EXTER DA)I XANE" ;DA)!NA)IES
<br />290 LPRI:\T "DA)I:\A:l: ";DA)!XA:fES ;TAB( 50) ;DATES
<br />300 LC:\T=3
<br />310 IXFt:T "BEGIN RO\JTING";ASS
<br />320 IF ASS="Y"OR ASS="YES"THEN GO TO 1060
<br />330 LPRINT "BEGIX DA:I-BREAK CO:IP;:TATIOW'
<br />3-iO. LPRI~;T
<br />3f,0 IKPl.'T "EN7ER HEIGHT ";11
<br />360 LPRINT CSIXG "HEIGHT=~.=....";H
<br />370 IXPCT "ENTER FREEBOARD ";FB
<br />380 LPRINT VSIXG "FREEBOARD=#.".##";FB
<br />390 YO=H-FB
<br />400 INPL:T "ENTER CREST KIDTH ";WC
<br />410 LPRIXT CSISG "CREST KIDTH="=#.=#";WC
<br />'420 IXPL:T "EXTER RESERVOIR CAPACITY ";V
<br />430 LPRI"T USING "RESERVOIR CAPACITY,,===#.#=.=";V
<br />440 IXPUT "E};Tlm E}lBA:Ui:}IE"T SLOPES It:/S,D/Sl ";21,22
<br />450 LPRINT CSING "ENBA:\KMENT SLOPES: C/S=##,#=:l D/S===.==:I";21,22'
<br />460 INPUT "E~T:::R CREST LB:\GTH ";LC
<br />~78 ~P~:~T CSI~G "CREST LEKG7H==~=~=~.*";LC
<br />~80 :_~:?~7 "EXTER S~RFACE ATIE.\ ";A
<br />~~J LPR:~T ~SIXG "S~~~ACE AREA======~.~";A
<br />
<br />A-4
<br />
|