Laserfiche WebLink
<br />BASIC PROGRAM LISTING 011' HAZl\RD2 (CONTINUED) <br /> <br />2~~O :~::I~+ 1 <br /> <br />2440 KEXT I <br />2450 IF RO~~T?S/l THEx GOTO 2~90 <br />~460 C3=C{L-!) <br />24,0 C-I=C(Ll <br />2480 GOTO 2, '10 <br />2490 IF ROTSTPS,2 THEN GOTO 2540 <br />2500 C3=CCL-1) <br />2510 C4=C(L) <br />2520 C5=C(L+l) <br />2530 GOTO 2740 <br />25-10 IF ROTSTPS,3 THE}; GOTO 2600 <br />2550 C2=C(L-2) <br />2560 C3=C(L-l) <br />25,0 C4=C(L) <br />2580 C5=C(L+1) <br />2590 GO TO 2740 <br />2600 IF ROTSTPS>4 THEN GOTO 2670 <br />2610 C2=C(L-2) <br />2620 C3=C(L-1) <br />2630 C4=C(L) <br />2640 C5=C(L+1) <br />2650 C6=C(L+2l <br />2660 GOTO 2740 <br />2670 Cl=C(L-3l <br />2680 C2=C(L-2) <br />2690 C3=C1L-l) <br />2700 C4=C(L) <br />2710 C5=C(L+1l <br />2720 C6=C(L+2) <br />2730 Ci=C(L+3) <br />2740 QR=C2*1/3*QP+C3*2/3*QP+C-I*QP+C5*2/3*QP+C6*1/3*QP <br />2750 GOTO 2770 <br />2760 QR=QP <br />2770 PRI~~T CSI~Ci"ROl:Tr:D Qn=~;:###;:;:";QR <br />2780 LPRINT "ROt.:TED Q AT END OF REACH NO." ;I":Y; <br />2790 LPRINT CSISG " ;QR=#######";QR <br />2800 LCNT=LCNT+l <br />2810 IXPl:T "ANOTHER REACH'? ";AXSS <br />2820 IF ANSS="y"OR A~,SS="YE"OR A~SS="YES"THEN GOTO 2830 ELSE GOTO 2900 <br />2330 T=V/QR*2-1.2 <br />2840 PRINT l:SING"~EW BASE TI~E=~~..~~";T <br />2850 LPRINT "nASE TI~lE OF HYDRO GRAPH AT EKD OF REACH NO. .. ;EST; <br />2860 LPRIKT USING t'T=###.##";T <br />28,0 LC~,T=LCNT+l <br />2880 QP=QR <br />2390 GOTO 1150 <br /> <br />A-9 <br />