|
<br />.
<br />
<br />730 DATA 100~100~100,100,100
<br />740 DATA 56,/4,8J,90,93
<br />750 DATA 73,83,92,95,97
<br />760 DATA 78,91,94,95,97
<br />770 DATA 32,49,64,74,81
<br />780 DATA 53,66,79,86,90
<br />790 DATA 58,75,83,87,91
<br />800 DATA 20,35,50,62,71
<br />810 DATA 43,57,70,79,84
<br />820 DATA 47,62,74,81,86
<br />830 DATA 12,24,35,45,53
<br />840 DATA 30,42,54,64,71
<br />850 DATA 34[48160l69A76
<br />860 DATA 7 3 ",0 ",6 J1
<br />870 DATA 26,2~,3&,41,50
<br />880 DATA 24,34,44,53,60
<br />882 READ S$,E$ F$ M$ N$
<br />884 DATA 'SHORt' ,'ELEV.' ,'DEPTH' ,'lFT. MSL)','(FEET)'
<br />888 PRINT
<br />890 PRINT' SIMPLIFIED DAMBREAK ~IODEL'
<br />900 PRINT' BASIC LANGUAGE INTERACTIVE VERSION'
<br />910 PRINT' WRITTEN BY JONATHAN N. WETMORE HRL MAY, 1983'
<br />920 PRINT
<br />921 PRINT 'INPUT "SHORT" FOR SHORTENED VERSION, "LONG" FOR FULL MODEL'
<br />922 INPUT V$
<br />924 IF V$<>S$ THEN 930
<br />925 PRINT
<br />926 PRINT 'INPUT HEIGHT OF DAM (FEET)'
<br />927 INPUT H2
<br />929 GOTO 1090
<br />930 PRINT
<br />935 PRINT 'INPUT NAME OF DAM'
<br />940 INPUT D$
<br />950 PRINT
<br />960 PRINT 'INPUT RIVER NAME'
<br />970 INPUT R$
<br />980 PRINT
<br />990 PRINT 'INPUT DAM CREST ELEVATION (FT. MSL)'
<br />1000 INPUT CO
<br />1010 IF CO<.l THEN 990
<br />1020 PRINT
<br />1030 PRINT 'INPUT FINAL BREACH BOTTOM ELEVATION (FT. MSL)'
<br />1040 INPUT BO
<br />1050 IF BO<.Ol THEN 1030
<br />1070 REM# H2 IS THE DEPTH OF BREACH
<br />1080 H2=CO-BO
<br />1090 PRINT
<br />1093 PRINT 'INPUT VOLUKE OF RESERVOIR (AC-FT) AT MAX POOL ELEV'
<br />1095 IF V$=S$ THEN 1110
<br />1100 PRINT 'IF N/A ENTER O. AND VOL WILL BE EST. FROM SURF. AREA'
<br />III 0 INPUT VO
<br />1115 IF V$=S$ THEN 1200
<br />1120 PRINT
<br />1130 PRINT 'INPUT RESERVOIR SURFACE AREA (ACRES) AT MAX POOL ELEV'
<br />1140 PRINT 'IF N/A ENTER O. AND S.A. WILL BE EST. FROM VOLUME.'
<br />1150 INPUT AO
<br />1160 IF VO>.l THEN 1200
<br />1170 IF AO>.l THEN 1200
<br />1180 PRINT 'A VALUE FOR EITHER VOLUME OR SURFACE AREA MUST BE ENTERED'
<br />1190 GOTO 1090
<br />1200 PRINT
<br />1210 PRINT 'INPUT FINAL BREACH WIDTH (FT)'
<br />1220 PRINT 'IF N/A ENTER O. DEFAULT USED = 3 * BREACH DEPTH'
<br />1230 INPUT WO
<br />1240 If WO>O THEN 1250
<br />1245 WO=3 *H2
<br />1250 PRINT
<br />1260 PRINT 'INPUT TIME (MINUTES) REQUIRED FOR BREACH FORMATION'
<br />1270 PRINT 'IF N/A , ENTER 0.'
<br />1280 INPUT TO
<br />1290 IF TO>.OOOOI THEN 1350
<br />1295 TO=H2/3
<br />1300 REK# TIME OF FAILURE NOT GIVEN...MAKE ESTIMATE
<br />1310 PRINT 'ENTER TYPE OF DAM...O FOR EARTH DAM, 1 FOR CONCRETE DAM'
<br />13 20 INPUT Tl
<br />
<br />III-3
<br />
|