Laserfiche WebLink
<br />1000 <br />1010 <br />1020 <br />1030 <br />1040 <br />1050 <br />1060 <br />1070 <br />1080 <br />1090 <br />1100 <br />1110 <br />1120 <br />1130 <br />1140 <br />1150 <br />1160 <br />1170 <br />1180 <br />1190 <br />1200 <br />1210 <br />1220 <br />1230 <br />1240 <br />1250 <br />1260 <br />1270 <br />1280 <br />1290 <br />1300 <br />1310 <br />1320 <br />1330 <br />1340 <br />1350 <br />1360 <br />1370 <br />1380 <br />1390 <br />1400 <br />1410 <br />1-120 <br />1';'30 <br />1440 <br />1450 <br />1460 <br />1470 <br />1480 <br />1490 <br /> <br />BASIC PROGHM LISTING efl' HAZARD2 (CONTINUED) <br /> <br />ISPUT "ADDITIOSAL VOLU~lE .. ;VA <br />LPRIKT USISG "ADDITIOKAL VOL=..##.......;VA <br />V=V+VA <br />LPRIKT USIKG "TOTAL VOL AT BEGINNING OF THIS REACH=#;;.=....;;;:..;V <br />LCKT=LCJ\T+4 <br />GOTO 111 0 <br />LPRINT "BEGIN ROUTING COMPUTATIONS" <br />INPUT "ENTER Q: ";QP <br />LPRINT USING f'Q=#######.##";QP <br />INPUT .. ESTER VOLmIE .. ; V <br />LPRIKT USING t'VOL=#######.##";V <br />T=V/QP*24.2 <br />PRINT "BASE TIME=";T <br />LPRINT USIKG "BASE TIME: T=.;;......;T <br />LCKT=LCNT+3 <br />CLS <br />KNT=KKT+l <br />PRINT "LCNT=";LCNT <br />IF 66-LCNT<22 THEN GOSUB 3090 <br />LPRINT:LPRINT "**********REACH NO. ";KNT;"**********" <br />_ P~I~L~'____~:;~TIOLg~Qtl~1'B'1" _________________ _ _______ <br />L:'RV,T" SECTIOK GEO~lETIl.'1" <br />PRIXT .. (FOR TRAPAZOIDAL SECTIO~,)" <br />LPRI~,T .. (FOR TRAP_-\Z01DAL SECTIOK)" <br />INPUT "ENTER BOTTOM WIDTH (B)";D <br />LPRINT USING "BOTTOM WIDTH, 8=#"';;.;:,";B <br />IXPt:T "ENTER CHA:'::\EL SIDE SLOPES (LEFT,Il.IGHT)";Z1,Z2 <br />LPRIKT t:SING "CHANNEL SIDE SLOPES: LEFT===.:::l RIGIlT=#=.##:I";Zl,Z2 <br />INPUT "ENTER CHANNEL BOTTO~J SLOPE"; S <br />LPRIKT CSING "CHAX~EL BOTTO~ SLOPE, S=#.;=~~=";S <br />LCNT=LCNT+7 <br />A~~SlS=" ,. <br />FLAG=C <br />PRINT "***CO:1PUTING CRITICAL DEP':'H***" <br />LPRINT ""I*'CRITICAL DEPTH COMPUTATIONS"**'" <br />LCNT=LCNT+l <br />'1=0 <br />FOR 1=1 TO 100 <br />'1='1+1 <br />GOSt:B 30':0 <br />IF QC>QP THEN GOTO 1420 <br />NEXT I <br />'1='1-1 <br />roIl. 1=1 TO 10 <br />'1='1+.1 <br />GOSU8 3040 <br />IF QC>QP THEN GOTO 1480 <br />~~EXT I <br />'1='1-.1 <br />FOR 1=1 TO 10 <br /> <br />A-6 <br />