Laserfiche WebLink
<br />. <br /> <br />. <br /> <br />. <br /> <br />fllenGle$ <br />CASE l <br />filenames <br />SNtI SBLlCT <br /> <br />.51, \c:oweldOl \exhti-l \ TriTow-l \ ttexCUbp. txt. <br /> <br />'P:\coveldOl\tuture.l\TriTow-l\tttucuh;.~t' <br /> <br />CASE l <br />SiLiCT CAS! condition <br />CASE 1 <br />filenameS 'P,\coweldOl\histor_l\TriTow-l\tthcOUbp.txt" <br />CASE' <br />tilenameS "A,\ghexcubp.txt" <br />CASE l <br />END SELZCI' <br /> <br />END SELECT <br />'PRINT mainbalin. condition, "In .", filenameS <br />'WHILI rNlCEYS . ": WEND <br />OPEN filenameS FOR OUTPUT AS .2 <br />POR eventnum . 1 TO numevents' totalvol(eventn~) . 0: NEXT eventnwm <br />PUNT 42. OATES; "; TIMBS <br />PRINT 42. 'summary File, "; filenam8$ <br />PRIN'T .2. "; "2-YrVol "J "S-YrVol "; "lO-YrVol "i "25-YrVol "J "SO-YrVol "; "lOO-YrVol <br />PRIln'I<I, "BASIN "; "2-YEAR "; 'S-YEAR. "; "IO-YEAR "; "2S-'tEAR. 0; 'SO-YBAR "J "IOO-YEAR . <br />PRINT Jl:2. "10 "; "VOLUM! "; 'VOLUMB "; "VOLUMB "VOLUME"; "VOLUMI "; 'VOLUMB' <br />PRINT 1$2. "_ "; '(ac.ft.) "; "lac.ft.) "; "(ac.ft.) "; "(ac.ft._1 "; "(ac.ft.1 "; "(ac.t:t.l <br />FOR baa1.MU1'll . 1 TO !tumbaains <br />PRINT .2, id(basinnuml; <br />FOR eventnum .. 1 TO numevents <br />PRINT .2. USING ........ "; ~off(eventnum. baainnuml; <br />total vol (eventnum) ... tocalvol (eventnum) .. runoff (eventnum. baainnulIl) <br />NEXT eventnum <br />l'RUrI' .2. <br />MEXT baainnum <br />PRINT .1. "Total <br />FOR eventnum '" 1 ro nu-meventsl PRINT .1. USING. "'.....1$ totll.lvol(eventnum}; NEXT eventnulIl <br />PRINT #2. <br />PRINT .1. "Average ", <br />FOR eventnurn 1':'0 :l.umeventsl PRINT .2. USING" #... It "; totalvol(evencnum) I nu.ml)asins; NEXT eventnlUll <br /> <br />TO numeventa, totalpeakq(eventnuml '" 0, totalpeaktimeleventnum) '" 0: NEXT eventnum <br /> <br />FOR eventnum <br />PRINT *2. <br />PRINT #2. <br />PRINT >>1. OATES; TIMES <br />PRINT .2. "Sumnary File, "; filenameS <br />PRINT .2. _ "2-YrPkO.; "2-YrPkT .. "S.YrPkO "; .S-YrPkT .; .10.YrPkO "; "10-YrPkT .. <br />.; .100-YrPkO .; "lOO-'trPkT <br />PRINT *2. "BASIN "; "2-YEAR .. .S.YEAR ": <br />PRINT .2. "ID "; "PEAK_O "; "TIME_Pk .; "PEAK_Q <br />.; "TIME_Pk " <br />I:'RINT #2.._ "(efa)": " (min) "; "(cta) "; " (min) "; "(cfs) "; "(minl "; "(efa) <br />FOR baeinnum .. 1 TO nWllbasins <br />PRINT '2. id(basinnuml; <br />FOR eventnum a 1 TO numevents <br />PRINT .2. peakq(eventnum. basinnum). peaktime(eventnum. basinnurnl; <br />totalpeakq (event-num) '" totalpeakq (eventnuml .. peakq(eventnum. baeinnum) <br />totalpeaktime(eventnuml a totalpe&ktime(eventnum) .. peaktimeleventnum. basinnum) <br />NEXT eventnum <br />PRIm _2. <br />NEXT baainnum <br />PRINT .2. 'Total <br />FOR eventnum '" 1 ro nutt\eventa, PRINT #2. tocalpeakq(eventnuM}: . <br />PRINT 1f2, <br />PRINT .2. "Average "; <br />FOR eventnulll .. 1 TO numevents <br />PRINT _1, USING" 1$1'", UII <br />NEXT eventnum <br /> <br />"2S-'{rPkQ "; .:l:S-YrPkT ": "SO-YrPkQ <br /> <br />"SO-'!rPkT <br /> <br />": "lO-YEAR .; ._ .; "2S-YEAR ";"_ "SO.YEAR.;"_.; "lOO.YEAR " <br />"TIME_Pk .: "PEAK_O .; "TIME_Pk "PEAK_O"; .TIMB_Pt ": .PEAK_O .; "TIME_Pk "; "PEAK_O <br /> <br />" (min) .; "(cfa) ... " (min) . <br /> <br />" (min) .; .(cfa) .; <br /> <br />". , NEXT eventnum <br /> <br />totalpeakqleventnullll I numba.ina; totalpeaktimeleventnum) I numbaains; <br /> <br />CLOSE 12 <br /> <br />END <br />