Laserfiche WebLink
<br />BASIC PROGRAM LrSTDIG 01" HAZllRD2 (CONTDIUBD) <br /> <br />2000 QP=QR <br />Z910 IF FLAG1=1 THEN GO TO 29~0 <br />Z920 FLAG=l <br />Z930 GOTO 1730 <br />2940 A=QP/VEL <br />2950 GOSt:B 3070 <br />2960 PRI~T USIXG .'QP=####### D=###.## V=###.##";QP,D.VEL <br />2961 LPRI~T USING "QP=####### D=###.## V=###.#";QP,D,VEL <br />2962 SF=D*\'EL <br />2963 PRINT USING "SVRVIVAL FACTOR CDEPTH*VELOCITYl = ==",.:i";SF <br />2964 LPRIKT USIl\G "SURVIVAL FACTOR (PEPTfI*VELOCITYl = =;:.:i. #" ;SF <br />2965 IF SF>8 THEN LPRIKT TAD(20);"****THIS CO~LD R~IX YO~R DAY****" <br />2966 IF SF>8 THEN PRINT TAB(20);"****THIS COULD RL'IK YOUR DAY****" <br />2970 GOTO 3150 <br />2980 A=D*CB+D/2*CZ1+Z2)) <br />2990 P=B+D*SQRCZ1~2+1)+D*SQR(Z2~2+1) <br />3000 R=A/P <br />. 3010 Q=l,~86/X*A*R~(2/3)*S~(1/2) <br />3020 RE~ LPRINT ~SING "Q=',,=,,=, A=##.:i',#' P===.;:#.#' D==:!="=~:Q,~.P.D__ <br />.--2030 RL:Tl'k; ---. . ------ -.- <br />30~0 QC=SQRC32.2*(Y*(B+Y/2*(Zl+Z2))1~3/(B+Y*(Zl+Z2))l <br />3050 RE~ LPRIXT USING .QC=#...#....;QC <br />3060 RI:TLn~: <br />3070 D=(-B+SQR(E"2+2*(Zl+Z2)*A))/(Zl+Z2) <br />3080 RETL'R:-: <br />3090 LPRINT CHRS(27)+CHRS(108l+CHRS(13) <br />3091 NPAGE=NPAGE+l . <br />3100 LPRINT:LPRnT TAB ( 30); "PAGE" ; NPAGE <br />3110 LPRINT "DA..~I NA:IE: .;DAl'INA..'IES;TABC-50) ; DATES <br />3120 LCXT=3 <br />31-+0 RETt-n~: <br />31~0 PRINT "PROGRAM FIKISHED" <br />31GO E~:D <br /> <br />A-IO <br />