|
<br />
<br />e
<br />
<br />e
<br />
<br />.
<br />
<br />filenameS s .P,\coweld01Uuture-l\Goddin-l\g:hocUwnm.txC"
<br />filenar/llllJ$ .. "P, \CQWeldOl \t'uture_J\Goddin_l \g:hodpro!. txt"
<br />CAS. .
<br />filenameS a 4P,\coweldOl\future_J\Goddin.l\g:nrdswnm.txc"
<br />filenameJ$ "P,\coveldOl\qbasic\g:nrdata.txt"
<br />filenameJ$ .. .P,\coweldOl\t'uture.3\Goddin-l\ghrdprof.txt"
<br />END SELECT
<br />
<br />CAS. ,
<br />filename]$ .. .P,\coweldOl\qbaaic\ttexsta.t.xt"
<br />SELECT CASE condition
<br />CAS. 1
<br />filenameS '" .P: \coweldOl \existi-l \TriTow-l \tteJI:SWlml. txt..
<br />filename3$ . "P,\C:QweldOl\exi5lti-l\TriTaw-l\ttexprof.txt;."
<br />~S:z
<br />filenameS .. .p, \coweldOl \future-l \TriTcw-l \tefuaWlllll. txc"
<br />filenameJ$ .. "P: \coweldOl \future-l \TriTow-l \tt.fuprof. t.xc"
<br />CAS. ]
<br />filenameS '" 'P: \coweldOl \future-J\TnTO'oI-l \ttOdsW1llll.txt"
<br />filename]$ .. .p,\cQweldOl\future_l\Trl.Tow_l\ttodprot'.t.xt."
<br />CAS. .
<br />filenameS .. "P: \coweldOl \futurl!_l\TriTow_l \ttrdawnn. t:lCt.
<br />fill!name2$ .p:\coweldOl\qbasic\ttrdsta.txt.
<br />fill!nameJS . .P: \coweldOl \future-l\TriTow-l \ttrdprof. txt.
<br />eNO SELeCT
<br />
<br />CAS. J
<br />SELECT CASE condition
<br />CAS.
<br />
<br />filenames.. "c:\cjpstuff\ghexawts.txt"
<br />filename2S "c: \cJPstuff\ghexsta. txt"
<br />filenameJ$ .. "c:\cjpllItuff\ghexprts.txc"
<br />filenames .. .A,\ghe:lCsWlIIft.txt.
<br />filenameJ$ . .A:\ghexprof.txt"
<br />
<br />CAS. ,
<br />filenameS.. .p, \coweldOl \hogan' _1 \junk. SUllI.
<br />CASE 1
<br />~ SELECT
<br />E:ND SELEC":'
<br />
<br /><'RINT ::lUT tl~K AND 'I'lME '!'O OlEAK SUMMARY
<br />
<br />OPEN filenameS fOR OUTPUT AS I$Z
<br />SELECT CASE ~uml!VentS
<br />CASE 1
<br />?RHn' *Z, "Element "~OO-'irPkQ "100-YrPkT "
<br />CASE 5
<br />?RINT ljZ, "Element "2-"{rPkQ ", "2-"{rPkT "; "S-YrPkQ "S-YrPItT "lO-YrPkQ "1Q.YrPkT "Z5-YrPkQ "ZS-YrPkT"'
<br />"SO-'irPkQ " "SO-YrPkT .; "lOO-YrPkQ ".. "lOO-YrPkT "
<br />END SELEC'!'
<br />FOR hydrographnum " t '!'O numhydrographs
<br />PRINT "2, hydrographid(hydrographnum),
<br />'PRINT hydrographid(hydrographnumJ;
<br />FOR eventnum . 1 '!'O numevents
<br />tlRINT ~2, peakq\eventnum. hydrographnum), peakhr(eventnum. hydrograpbnUlll) . 60 ~ peakmin(eventnum. hydrographnuml;
<br />'PRINT hydrographJ.d :hydrographnum). eventnum, peakhr(eventnum, hydrographnum), pealtmin (eventnum. hydrograpbnum). peakq (eventnum,
<br />hydrographnuml, peakhr~eventnum. hydrographnumJ " 60 ~ peakmin(eventnum. hydrograpbnum)
<br />m:XT event:lum
<br />PRINT .2,
<br />PRINT
<br />'WHILE :NKE'!S . "", i<iEND
<br />NEXT hydrograpnnum
<br />PRINT 42,
<br />PRINT 1$2, ~ATES;" TIMES
<br />PRINT 42, "Sul!1l\ary :>ite, "; filenameS
<br />C.OSE 1$2
<br />
<br />'"'' PRINT OUT PEAK AND ~IME '!'O PEAK PROFILE ~ABLE
<br />
<br />'PRINT filename2S
<br />OPEN filename2S FOR INPUT AS 1t1
<br />OFEN filenameJS FOR OUTPUT AS 1$2
<br />
<br />IF condition a 4 ~EN
<br />PRINT liZ, "Element .100-'!rPkQ., .100-YrPItT "; .Station "; .Description"
<br />ELSE
<br /><'RINT .2, "E:lement "2-'irPkQ ".. ~2-'irPkT ".. "5-YrPkQ "; "5-YrPkT .; ~J.O-YrPkQ "lO-'irPkT "25-'irPItQ ", .2S-YrPkT .SO-YrPkQ~;
<br />"SO-'{rPkT "; .100-YrPkQ"; .1aO-YrPkT .; .Stiltion "; ~Oe!lcription "
<br />""" "
<br />t.lUE INPUT n, junkS
<br />'PRINT junkS
<br />WHIl.E NOT-SOf'(11
<br />INPUT Ill, sta, profelement:, delJcrip$
<br />'PRINT "....
<br />'PRINT sta. prote1ement. descrip$
<br />hydrographnum .. a
<br />flHILE hydrographid (hydrographnultll <:> RTRIM$ (LTRIM$ (snl$ (profelement) II ANtI hydrograpbnum <. numhydrographs
<br />'PRINT hydrographnum, hydrographid(hydrographnum), RTRIM$lLTRIM$(STR$(protelement)))
<br />hydrographnum ~ hydrograpnnum . 1
<br />""""
<br />'PR.INT "GOT AATCX.
<br />'WHIl.E INJCEY$ ~ "": WEND
<br />IF hydrographid c~ nurnhydrographs THEN
<br />PRINT .2. hydrographid(hydrographnuml;
<br />FOR eventnum ~ 1 to numevent$' PRINT .~, peak.q(eventnum, hydrographnuml; peakhr(eventnum, hydrographnum) . 60 + pealanin(eventnum,
<br />hydrographnuml.. nEXT ev~ncnum
<br />PRUIT "2, sta, descripS
<br />PRINT .2,
<br />
<br />.LS.
<br />
<br />pa:m' "WARNING, REQUESTED PROFILE eLEMENT... RTRIM$ (t.TRIM$IS1'lS (profelell\entl ii, . WAS NOT IN THE OUTPUT HYOROGRAPH LISTING"
<br />WHlt.E :NKEY$ " wEND
<br />&:NO [F . hydrographid u numhydrographs
<br />
<br />Page /) of 7
<br />
|