|
<br />
<br />e
<br />
<br />e
<br />
<br />.
<br />
<br />WHIL! INS1'Risent" searcnS(11} '" 0 AND troT EOP(lJ, ..INK INPtrI' '1, lentS, WEND
<br />numhydroqraphs a VAL(MIOSlsentS, INSTR(sentS. search$(l)) ~ LEH(searchS(l)), 411
<br />nINT "Numhydrographs .. .; nl1lllhydrograpbs
<br />
<br />'....READ ~N TIlE REQUESTED IrtDROGRAPH IDa
<br />search${~) .. .TIME1HR/MINJ"
<br />WILli: INSTRlsentS. search$(2IJ '" 0 AND NOT EOP(l), LINE INPUT #1. sentS, WiND
<br />hydroqraphnum " 1
<br />WHILE hydrographnum .,. numhydrographs
<br />IP hydrographnum .. 1 TKEN hydrographidI hydrographnUMI .. RTRIM$(LTRIMS(MID$(sentS, INSTR{sentS. searchS(~ll .. LEH(searchS(2)l, GII}
<br />IP hydrographnum ,. 1 AND hydrographnum. < 11 'nIEN
<br />hydrographidlhydrographnum) .. RTRIMS(LTRIMS(MID$(sentS, INSTR(sentS, learch$(211 .. LEK(search$(2)) .. , .. < (hydrographnum - 1) ..
<br />10),10)))
<br />!:NO IP
<br />IP hydrographnulII ,. 10 'mEN
<br />!NPtTr In, junk
<br />hydrographid(hydrographnum) .. RTRIM$(LTRIM$(STRS(junk)))
<br />END tY 'nUlllhydrographs ,.10
<br />'~RINT hydrographnum, hyarographia(hydrographnum)
<br />'WHILE INKEYS ~ "", WEND
<br />hydrographnum " hydrographnum .
<br />WEND 'hyat"ographnum <. numhydr09raphs
<br />
<br />'''"'READ IN TIl'E DISCKARGE VALUES
<br />
<br />IP evencnum _ 1 TIl'EN
<br />O~EN '~,\cowela01\qbasic\hgCemp.cxc. FOR OUTPUT AS ~3
<br />O~EN "P,\cowelaOl\qbasic\scorcemp,cxc. FOR OUT~UT AS ~~
<br />O~EN "P:\caweldOl\qbasic\casecemp.exC. FOR OUTPUT AS 15
<br />
<br />EI.SE
<br />
<br />O~EN "P,\coweldOl\qbaS1.c\hgcemp.exc" FOR AP~END AS U
<br />OPEN "P,\coweldOl\qbasic\scorcemp.exc" FOR APPEND AS .~
<br />OPEN "P,\coweldOl\qbaaic\ca.ecemp,CxC" FOR APPEND AS 15
<br />
<br />END :P
<br />IF evencnum . 1 rHEN
<br />OPEN "c \cJPscuff\hgtl!mp.:XC" FOR OUTPUT AS #3
<br />OPEN _. \qpscuH\stortemp.:xt" FOR OUTPUT AS .~
<br />OPEN "c: \cjpscuff\casecl!lnp.cxt" roR OUTPUT AS #5
<br />
<br />ELSE
<br />
<br />OPEN .c: \cjpscuff\h9cemp. t.xt" FOR APPEND AS lj:3
<br />OPEN "c: \c:pseuff\storcl!lllp. cxe" :OR APPEND AS I~
<br />OPEN "c. \cjpseuH\casetemp.txc" FOR APPEND AS #5
<br />
<br />::NIl'1l'
<br />PRINT #3, "EVENTNlJ'M.
<br />PRINT 13, eVl!nenum
<br />LINE :N~UT n, aentS
<br />'pRINT "sentS., aentS
<br />FOR eimescep . 1 TO numtimesteps
<br />INPtIt #1, he, '!Iin
<br />'PRINT "hr.. ., ht", "min. ", min
<br />'WHILE :NKEYS " .", WEND
<br />PRINT 13, tlmeStep
<br />PRINT ~3, hr
<br />PRINT ,*3, :lIln
<br />FOR hydrographnum . 1 TO numhydrographs
<br />INPUT ,*1, hg
<br />?RINT #3, hg;
<br />'PRINT "timestep.."; timestep, " hydrographnum. " ; hydr09raphnum, "id..; h.ydrographid(hydrographnuml, "0. "; hg
<br />'~ILE :NKEYS '" '.": '~END
<br />
<br />'READ, ~OCATE. AND S~IP STORAGE iALUES FOR PREVIOUS LINE OF ELEMENTS
<br />:P hydrographnum ~OD 10 . 0 rHEN
<br />x " hydrographnum - 9
<br />prevperiod " -olo
<br />!NPtrr n, junkS
<br />O'OR :etter " 11'0 LEN(junk$)
<br />rp M:IDS(junkS. lettet", 1) " .," '1'HEN
<br />stor _ VAL(MID$(junkS. prevperiocl 5. letter.. 1 - prl!vpet"iod .. S))
<br />>>RINT U, stat";
<br />IP MIOSljunk$, letter.. 3, 1) ,," nlEN
<br />'PRINT "x."; :<, "let_'; letter. "stor."; star, .time.'"; timelltep
<br />SWlllllC'alle . . (_J "
<br />PRINT 115. ":_l "
<br />ELSE
<br />SWlllftCaB. .. MID$ljunkS, letter.. 2, ~l
<br />PRINT ItS, MIDS(junkS, letter.. 2, 5)
<br />!:NO IP
<br />'PRINT "x,,"; x. "lee..; letter, '"star..; stor
<br />prevperiod .. lettet"
<br />'PRINT "hydt"ographnum...; x; "id..; hydrographid(XI, "star ...; stor, .case..; sWlllllC'ase
<br />x '" x .. 1
<br />
<br />END IF
<br />!lEX':' letter
<br />LINE INPtrr Ill. sent$
<br />'PRINT "sentS_"; sentS
<br />END IF 'hydrographnum MOD 10 "
<br />NiXT hyarographnum
<br />
<br />'***,ll,FTER LAST DISCHARGE READ; INPUT ~EXT SEN'I'., LOCA'I'E, AND STIUP REMAINING
<br />....STORAGE ~ALUES
<br />IF (hydrographnum - 1) MOD 10 <> 0 THEN
<br />rNPUT '1. junkS
<br />"hydrographnum.". hydrographnum . 1, "mod.". (hydrographnum. 1) ~C 10
<br />junkS
<br />rNKeYS "
<br />
<br />'PRINT
<br />'PRINT
<br />'WHILE
<br />
<br />WE""
<br />x . hydrographnum
<br />prevperiod " .-1,
<br />FOR letter.. 1 1"0 LEN(junkS)
<br />rp MIDS ': junkS, letter, 1) .. "." nlEN'
<br />
<br />: (hyarographnum - 1) MOD 10)
<br />
<br />Page 3 of 7
<br />
|