|
<br />
<br />.
<br />
<br />
<br />.
<br />
<br />.
<br />
<br />updat.e, '" "llf;OJ!!J9"
<br />t.itleS .. "SWMMSUM.BAS
<br />
<br />'Date ~ast ~pdateQ
<br />SWMM INPUT .. OUTPUT ::lATA STRIPPER"
<br />
<br />CONS! maxevent! '"
<br />CONST 'lIiLXelementll
<br />CONST maxtimesteps
<br />DIM outname(lCl) AS
<br />DIM sUlIlnUle(lO) AS
<br />DIM searchS(6:
<br />OIH Itorease AS STRING .. ..
<br />DIM elementid(maxelementsl AS STRING
<br />DtM area(maxelement:!ll AS SINGLE
<br />DIM hydrographid(maxelementsl AS STRING
<br />DIM SW\mICallt! AS STRING'" ..
<br />DIM hr AS INTEGER
<br />DIM rn.i:n AS INTEGER
<br />DIM peakq(maxevents. maxel~ntsl AS :NTEGER
<br />DIM peakhr(maxevents, maxelements) AS INTEGER
<br />DIM peakmin(maxevents, maxelaments) AS INTEGER
<br />DIM storatpk(maxevents. m&xelementsl AS INTEGER
<br />DIM ciueatpk(maxevents, maxelementsl AS STRING
<br />
<br />1SO
<br />. "
<br />STRING
<br />STRING
<br />
<br />'8S max ~ith out getting out ot string space
<br />
<br />'.........................................................................
<br />
<br />CLS
<br />PRINT OATES:
<br />PRINT titleS
<br />
<br />TIMES
<br />
<br />tNVl1l' "Enter 1 ~or Godding or 2 ~or Tri-'!'own or
<br />I>RINT "1. blSting"
<br />I>RINT "~. Future"
<br />I>RINT .). l"ut.ure "II Onsite Detention"
<br />PRINT -4. Future ~I Regional Detention"
<br />INPUT "Select Conditlon,"; conditlon
<br />SELEC"r CASE mainbasin
<br />e>.sE 1
<br />SELE~ CASE condition
<br />CASE 1
<br />
<br />~or Ot.her-; mainbasin
<br />
<br />"P. \coweldOl \existl-~ \Goddin-l \2_'{ear\udsWlmllghJCc2yr $'010"
<br />"01: \cQweldOl \ex1.Stl.-l \Goddin-l \2_Year\udswmm\gruc2yr txt"
<br />"01. \coweldOl I.exl.stl-l \Goddin-l I. S_lear\udSWlmI\gnxc:Syr swo"
<br />"P, \c:oweldOl \exlst::.-l \Goddin-l \S_Year\udsWllllll\ghxc:Syr t.Xt"
<br />"P, \COlOeldOl \exlst.l-1 \Goddin-l \lO_'{ear\udswnm\gnxc':'Oyr 5100"
<br />., p, \colOeldOl \eXlstl-l \Goddin-l \lO_Year\udsWlml\gnxelO1'r. :xt"
<br />-p, \colOeldOl \exlsti-l \Goddin-l \2S_'!ear\udSW'\llll\gnxc'::Syr $100"
<br />.p, \colOeld01 \eX1Stl-l \Goddin-l \2S_'{ear\udslo/lmI\ghJCc2Syr t.xt"
<br />"I>: \cOIOeld01 \exlst:.-l \Goddin-l \50 _'!ear\Udswmm\ghJCcSoyr SIOO"
<br />"P: \c:olOeld01 \exlsti-l \qoddin-1 \SO_Year\udswmm\ghJCcSOyr. ::xt-
<br />"P, \coweldOl I.existi-l \Goddin-l \100_Year\uds'oI1Tlm\ghJCClOOy SWO"
<br />"P, \colOeldOl \exlst. ::.-l \Goddin-l \ 10 0_ Year\uds'ol1Tlm\ghxclOOy. t.xt"
<br />
<br />outname' l'
<br />sumname r .,
<br />outname:2:
<br />sumname ,~,
<br />outname ~ 3:
<br />sumname 3:
<br />outname 4,
<br />sumname' '" )
<br />outname,Si
<br />sumnallle<Si
<br />outnallle\6i
<br />!lumname' 6 i
<br />numevents . 6
<br />CASE 2
<br />outname, 1 l
<br />sumnallle\ll
<br />outname! 2)
<br />!lumname12:
<br />~utname i 3 i
<br />!lumname: 3 i
<br />outname.;-\)
<br />sumname i 4 I
<br />outname.;5 :
<br />sumname. 5 i
<br />outname 6i
<br />sumname' 1;,
<br />
<br />numeventS
<br />
<br />.. p, \coweldO 1 \ future-3 \Goddin-l \2 _Year\ udswmm\ghfc2yr . !lwo"
<br />"p, \coweldO 1 \future- 3 \Godclin-l \2_ Year\uds1o'lmI\gnfc2yr. txt"
<br />'. p, \colOeldOl \ future-3 \Gocldin-l \5 _ Year\udsW'\lIIl\ghfcS1'r. SWO"
<br />. p, \colOelc;l.Ol \ future-3 \Goc;l.din_1 \ 5 _ Year\udsWIml\ghfcSyr. tXt"
<br />"P, \colOeldOl \ fut'Jre-3 \Goddin-l \ 10 _'{ear\udsWlI1Il\ghfcl O1'r. SWO"
<br />"P: \cQweldOl \fut:ure-3 \Goddin-i \ 10_Year\uds\oIlmI\ghfclo1'r :xt"
<br />"P, \coweldOl \future-3 I,Goddin-~ \25_1ear\uclS\ollml\ghfc25yr $wo"
<br />"P, \colOeldOl \ fut:ure-3 \Goddin-l \25 _'{ear\udsWlI1Il\gn.fc25yr exe"
<br />"P: \coweldO 1 \ future-l \Goddin-l \50 _'{ear\udsW'\lIIl\ghfc50yr SIOO"
<br />., p: IcoweldO 1 \ fut:ure-l \Goddin-"- \50 _Year\udswmm\ghfc5 O1'r. ext..
<br />"p, \coweldOl \future-l \Goddin-l \lOO_'{ear\udsWllIlI\ghfclOOY $Wo"
<br />"P, \cowe1dOl \future-3 \Godd~n-l \lOO_Year\udsloIllIll\ghfclOOy ~xt"
<br />. 5
<br />
<br />CASE J
<br />outname (1: . p, \colOeldOl \future-2\Godctin-l \2_Year\udSIoIIlIlI\ghod2yr SWO"
<br />sumname \ 1: "I> \colOeld01 \fucure-2\Coddin-1 \2_Year\udslo/lftll\ghod2yr txt"
<br />out:namei21 .P,\caweldOl\future-2\Goddin-1\S_1ear\udswmm\ghod5yr SWO"
<br />!lumnamei21 "P:\coweldOl\fut:ure_2\Goddin_l\5_Year\udswmm\ghod5yr.t.xt"
<br />ouename D I .p, \coweldOl \fucure-2\Goddin-l \lO_Year\uds'WIml\ghodlOyr SWO"
<br />sumname (3 I "P, \cQweldOl \future-2\Goddin-l \10_1ear\udsWlI!lI\ghod10yr ext.
<br />outname (4) "P: \coweldOl \fueure-2\Goddin-l \25_Jear\udsW'\lIIl\ghod2syr swo"
<br />surnname (4) "P, \coweld01 \ future-2\Goddin-1 \2S_'!ear\udslollllll\ghod2Syr ext"
<br />oucname (5) "P, \coweldOl \future-2\Goddin-1 \50_ Year\udswnm\ghod50yr swo.
<br />sumname (5) "P, \colOs1dO 1 \future-2 \Goddin-1 \ 50_ '!ear\uc;l.SWIml\ghodSOyr. txt"
<br />outnarne \ Ii) "P: \coweldOl \fueure-2\Goddin-l \100_'{ear\uds_\ghod100y SIOO"
<br />sumname r 6) "P, \coweld01 \future-2\Goddin-1 \lOO_Year\udswmmlghodlOOy txt"
<br />numevents .. 6
<br />CASE .
<br />ouename (l i "P, \colOeld01 \future-l \Goddin-l \2_Year\uds'o/lml\ghrd2yr SIOO"
<br />sumnamei1; "P,\coweld01\future_l\Goddin_l\2_Year\udswmm\ghrd2yr txt"
<br />outname '.2) "P: \coweld01 \f:.zture-l \Goddin_l \5_Year\udSWlllll\ghrd5yr SIOO"
<br />sumname(2) "P,\coweldOl\future_l\Goddin_l\S_Year\udswmm\ghrdS1'r.txe"
<br />ouename (31 "P, \coweldOl \future-1 \Goddiu-1 \lO_Year\udsWIml\ghrdlOyr ,swo"
<br />sumname(31 .P:\coweldOl\fueure_l\Goddin_l\10_1ear\udswmm\ghrdlOyr.txt"
<br />outname \,,) "P: \colOeldOl \ future-1 \Goddin-l \25 _'(ear\udswmm\ghrd2Syr. Swo"
<br />sumname': 4) "P, \colOeldOl \ future-l \Goddin-l \ 25 _1ear\udsWI!I!I\ghrd25yr. ext"
<br />outname (5: "I>, \colOeld01 \fueure-1 \Goddin-1 \SO_Year\",c;l.swmm\ghrd50yr 3100"
<br />sumname (5) "P: \cO'<IeldOl \f'Jture-l \Coddin-l \50_1ear\udswmm\ghrdSoyr. txt."
<br />outname {6) "I>, \<::olOeldOl \future-1 \Goddin_1 \ 100_Year\alt ~\ghrd100y. !!:100'
<br />$umname (Ii) "P: \COlOeldOl \!uture-l \Goddin-i. \100 _Year\alt 3 \gnrdlOOy. txt'
<br />numevents " 6
<br />
<br />tND SELEC":
<br />e>.sE ,
<br />SELECT CASE
<br />e>.sEl
<br />outnalllell.'
<br />sumname \ 1;
<br />outname (21
<br />sumname \ : )
<br />outname' 3 \
<br />
<br />. Condic1on
<br />
<br />condition
<br />
<br />"P, \coweldOl \ex~"t~_l \TriTow-1 \2_'!ear\ud!lwmm\t~xe2y:r SIOO"
<br />"p. \coweldOl \ex15t.i-l \Tri Tow-l \2_':"ear\udsWlIIlI\::xc:yr. txt"
<br />. p, \coweld01 \ex~sti -1 \ Tt i TOIO-l \5 _ Year\udsWlml\ t :xcSyr, swo.
<br />"P, \cO'<leldOl \existl-l \ :'riTow-l \5_Year\udsWlTII\\t.tXc5yr, txt.
<br />-p, \coweldO 1 \existi _.. \ Trl T"w_1 \ 1 0_ '[earI,udsWIlIlII, t :xc10yr. SWO"
<br />
<br />Page 1 of 7
<br />
|