|
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />!ltor.. VALlHIOS(junkS, pr~eriod.. S, letter ~ 1))
<br />PRINT 11:4, 1/AL ,I'IIDS l junkS , prevperiod .. S, letter.. 1));
<br />IF MIDSljunk$, letter.. 3. 1) .. . .. THEN
<br />s'<IImIC'...se .. .. (_I ..
<br />Il'RINT ~S, .. (_) ..
<br />ELSE
<br />swtmlcase" !'IIC$(jun.k.S, letter.. 1, 4)
<br />PRINT .5, !'IIO$ (junkS, lett.er .. 1, Sl
<br />END IF
<br />'PRINT "x."; x, "let."; letter, .stor."; Sl;:or
<br />prevperiod .. letter
<br />'PRINT "hydrographnum_"; X: "id."; hydrographid(x), "stor ,,"; stor, .ca.e."; ~a'e
<br />x .. lC .. 1
<br />
<br />EN!) IF
<br />N'EXT letter
<br />LINE INptfr 11:1. gentS
<br />. PRINT .sentS."; sentS
<br />END IF 'hydrographnum mod 10 <> 0
<br />i'RINT 1t3,
<br />PRINT lt4.
<br />NEXT timestep
<br />
<br />WHILK NOT EOP(l:, LINE INP1J'1' n, sentS, WEND
<br />WEND 'not eof :1:
<br />CLOSE IH
<br />CLOSE .3
<br />CLOSE .4
<br />CLOSE 115
<br />
<br />NEXT eventnum
<br />
<br />'............................................................................................
<br />
<br />.....................................................................................
<br />
<br />, .. .CLeAR PEAK ARRAYS
<br />
<br />FOR e1vent:num . 1 70 numevents
<br />FOR hydrographnum ~ 1 TO numhydrographs
<br />peakq{e1ventnum, hydrographnum) ~ ')
<br />peakhr:eventnum, ~ydrographnum) ~ 0
<br />peakmln!eVentnum, hydrographnuml . 0
<br />storatpk:eventnum. hydrographnum) 0
<br />caseatpk:eventnum, hydrographnuml .. "
<br />NEXT hydrographnum
<br />NEXT eventnum
<br />
<br />'...LOAD ?EAK ARRAYS
<br />
<br />OPEN "P,\coweldOl\qbasic\hgtemp.txt" FOR INPUT AS 1$]
<br />OPEN' .P:\coweldOl\qbas1c\StOrtemp.txt" FOR INPUT AS '4
<br />OPEN ~P: \coweldOl \qbaslc\casetemp. ext" FOR !NPUT AS :#S
<br />OPEN .c \cjpetuf!\hgtemp.txt" FOR INPUT AS II]
<br />OPEN ~ \CJpstuff\seortemp.txt" FOR INPUT AS ".
<br />OPEN .c \cjpstuff\c:asetemp.txt:" FOR alPtrr AS liS
<br />
<br />FOR eventnum ~ 1 70 numevents
<br />INPtrr It]. jUMS
<br />INPtrr 113, txt/!;ventnum
<br />. PRINT junkS. .txt:event:lum~". txteventnum
<br />'WHILE :NKE'fS ~ .": ....ENO
<br />FOR J ~ : 70 numt~mesteps
<br />INPUT It3. t1:11eStep
<br />tNPUT ~3, h.r. :'l\1n
<br />'PRINT "en..", I!!ventnum; cs.": timelltep, hr, min
<br />hydrographnum .. 1
<br />WHILE hydrographnum numhydrographs AND NOT EOF[])
<br />INPUT It], hg
<br />tNPUT '4, stor
<br />INPUT jjS, storcase
<br />'PRINT .en..; eventnum; " ts."; timelltep, br, min, hydrograpnid(hydrographnuml, ng, stor, storcase
<br />IF hg ~ peakq(eventnum, hydrographnum) THEN
<br />'pRINT "en."; eventnum;" "; hydrographid(hydrographnuml; "hg.", hg, "peakq.", peakq(eventnum, hydrographnum)
<br />peakq(eventnum, hydrographnuml .. hg
<br />peakhr{eventnum, hydrographnum) .. hr
<br />peakmin(eventnum, hydrographnuml .. min
<br />storatplc. (eventnum, hydrographnuml stor
<br />caseatpk:even~num, hydrographnuml ~ storcase
<br />END a'
<br />hydrographnum . hydrographnum + 1
<br />WEND . hydr09raphnum
<br />NEX"r j
<br />NEXT eventnum
<br />CLOSE *]
<br />CLOSE 114
<br />CLOSE il:5
<br />
<br />EVENT SUMMARY OF ELEMENTS AND HYOROGRAPHS
<br />
<br />'.....
<br />
<br />toR eventnwn . 1 TO numeVen~3
<br />OPEN sumnameleventnuml FOR OUTPUT AS .2
<br />PRINT 1t2. -'I'ime(Hr,,1 "; . 'I'imeOHnl .:
<br />FOR hydrographnum ~ 1 TO numhydroqraphs
<br />PRINT 112, " Elem" . hydrographid(hydrOgraphnuml;
<br />NEXT hydrographnum
<br />
<br />PRINT .2, . TotalTim~!\Hrsl
<br />'OPEN "c:\cjpstuff\hgtemp.':.xt" FOR (NPUT AS It]
<br />OPEN "P,\coweldOl\qbaS.l.c\h9temp ext" FOR :NPUT .I.S II]
<br />timestep .. 0
<br />toR x . 1 :0 eventnum
<br />
|