Laserfiche WebLink
<br />BASIC PRClGRJlM LISTDIG 011' HlU:lUUl2 (CONTDroED) <br /> <br />~ooo LPRI~T ~SIXG " <br />~001 SF=DH'EL <br />2002 PRI~T l:SIXG "SURVIVAL FACTOR (DEPTH*VELOCITYl = H:.#";SF <br />2003 LPRIXT CSING "SURVIVAL FACTOR (DEPTH*VELOCITY) = :#',#";SF <br />2005 RE~l IF SF>8 THEN PRINT TAB(20);"****THIS COCLD Rl'I~ YOCR DAY****" <br />2010 LC~T=LCJ\T+3 <br />2020 IF FLAG=l THEN GOTO 2970 <br />2030 ANS$=" " <br />2040 I1\PUT "CHANGE VELOCITY ";A1\S5 <br />2050 IF ANS5="N"OR ANSS="NO"THEN GOTO 2150 <br />2060 INPUT "E~TER ASSUNED VELOCITY";VEL <br />2070 LPRINT USING ''CSER'S ASSU~lED VELOCITY=###..##" ;VEL <br />2080 LCNT=LCNT+l <br />2090 A=Q/VEL <br />2100 FLAG1=1 <br />2110 GOSUB 3070 <br />2120 PRINT "NEW DEPTH= ";D <br />2130 LPRINT USING "NEW DEPTH FOR ABOVE VELOCITY=####.=#";D <br />2131 SF=D*VEL <br />2132 PRINT l:SING "SURVIVAL FACTOR (DEPTH*VELOCITY) = ###.#";SF <br />2133 LPRINT USING "SURVIVAL FACTOR (DEPTH*VELOCITYl = #:ii.#";SF <br />2134 IF SF>8 THEN LPRINT TAB(20);"****THIS COl'LD RUDl YOVR D.-\Y****" <br />2135 IF SF>8 THEN PRINT TAB(20);"****THIS COULD RUIN YO~R DAY****" <br />21-<0 LCKT=LCNT+Z <br />2150 INPl:T "ENTER LENGTH OF REACH (FEET l " ; LE:WTlI <br />2160 LPRINT "LE~WTH OF REACH NO." ;KI\T; <br />2170 LPRINT USING" =#####..";LENGTH <br />2180 TRAVT=LENGTH/(VEL*3600) <br />2190 PRINT tJsnw "TRAVEL TINE=###.#.";TRAVT <br />2~00 LPRINT "TRAVEL TDlE FOR REACH !'iO." ;KNT; <br />~210 LPRINT ~SING " =ii#;.,#";TRAVT <br />~220 ROTSTPS=TRAVT*12/T <br />2230 ROTSTPS=ROTSTPS+.5 <br />~240 ROTSTPS=INT(ROTSTPS) <br />2250 PRIXT USING "USE ii. STEP(Sl";ROTSTPS <br />2260 LPRINT ~SING "KU:-IBER OF ROt'TING STEPS ==#" ; ROTSTPS <br />2270 LCNT=LCNT+3 <br />2280 A::SS=" " <br />2290 IXPCT "CHANGE <br />~300 IF A~SS="Y"OR <br />2310 IF ANSS="Y"OR <br />;ROTSTPS <br />2320 IF LEFT5(ANS$,1)="Y" THEX LCNT=LCXT+1 <br />2330 IF ROTSTPS=O THEN GOTO ~760 <br />2340 C(1)=1/2AROTSTPS <br />2350 L=O <br />2360 1:=0 <br />2370 Cl=C2=C2=C~=C5=C6=Ci=O <br />2380 fOR 1=2 TO ROTSTPS+l <br />2390 C(Il=C(I-1l~(ROTSTFS-~l/I~+1) <br />2400 IF L>O 7EEX GOTO 2430 <br /> <br />VELOCITY::::~#~.;::; ,> ; VEL <br /> <br />~U~1IlER OF STEPS"; ANS $ <br />AXSS="YES"THEX EPUT "E)iTER <br />AXS5="YllS"THE~ LPIU~;T l'SIXG <br /> <br />~iU:1BER or STEFS "; ROTSTFS <br />"VSER'S ASSC:I:'IED ~O. or STEP,S=== <br /> <br />.... t ~ ,", <br />...."'i...\.I <br />2~:O <br /> <br />:r CfT) ~=C(I-IJ TJIE:~ !...=I <br />IF C ~ I J ~c ( I -1 ~ TIIEX L=L-1 <br /> <br />A-B <br />