11/11/84 HAZEN WILLIAMS FROM CAMERON by Ken J.Brisbin Calgary V1.1 The author assumes the user to be familiar with the formulae & conversions utilized herein. Check validity of output against published data, or by performing a sample calculation.X0,0:"LCD:"PUTAS1::(27)"V":X07:@40X,(40,255);::(27)"p":@92,(16,"*"):@132,"*HAZEN WILLIAMS*":@172,(16,"*"):@314,"by KJB":(27)"q"f"" 21v:(27)"W"@44,"PERFORM CALCULATIONS IN:":@88,"<1>--IMPERIAL.":@128,"<2>--U.S.":@168,"<3>--S.I."::" YOUR CHOICE";:CA$݄$(1):CA(CA$): CA1 CA3 30':@44,"FLOW RATE WILL BE IN:":CA3ͣ@88,"<1>--GALLONS PER MINUTE.":@128,"<2>--CUBIC FEET PER SECOND."::" YOUR CHOICE";:FL$݄$(1):FL(FL$):FL1FL239^2CA3ͣ@88,"<1>--LITRES PER SECOND.":@128,"<2>--LITRES PER MINUTE.":@168,"<3>--CUBIC METRES PER SECOND."::" YOUR CHOICE";:FL$݄$(1):FL(FL$):FL1FL339ZCA3D$"INCHES.":L$"FEET.": CA1FL1Q$"GPM(IMP).":CA2FL1Q$"GPM(U.S.)."ܼ[FL2CA3Q$"CUBIC FEET/SEC."[\CA3D$"MILLIMETRES.":L$ "METRES.":CA3FL1Q$"LITRES/SEC." :CA3FL2 Q$"LITRES/MIN." :Q$"CUBIC METRES/SEC."&d:@4,"PLEASE INPUT PARAMETERS.":@48,"C-constant for roughness.":@88,"Q-flow rate in "Q$:@128,"D-diameter in "D$:@168,"L-length in "L$:" INPUT ";C,Q1,Q2,QS,D,Lm(27)"V":(27)"p":@280," ":(27)"q":(27)"T":(27)"W":CA1FL1KV.49058628:KQ1.20095238Ծ-CA2FL1KV.40849769:KQ1.CA3FL2KV183.34649757:KQ448.831168832/CA3FL1KV1273.23956645:KQ15.84935065]0CA3FL2KV21.22065944:KQ.264155841CA3FL3KV1273239.56645:KQ15849.3506492CA3KD.03937:KD1ƿ3CA3G9.81918:G32.2151s:QQ1Q2QS:VKV(QD2):VH(V2)(2G):F.2083((100C)1.85)((KQQ)1.85)((KDD)4.8655):HTFL100:#1,"#####.## ##.## ###.### ####.### #####.##";Q,V,VH,F,HT;:""700, :@4,"OPTIONS LIST:":@48,"<1>-SAME PARAMETERS?":@88,"<2>-CHANGE PARAMETERS?":@128,"<3>-CHANGE UNITS OF MEASUREMENT?":@168,"<4>-PRINT LAST RUN?":@208,"<5>-EXIT?"!" YOUR CHOICE.";:CH$݄$(1): (CH$)1 (CH$)5͈ 800::"LCD:"PUTAS1::(CH$)500,100,30,900,19998X(187)6:X2͈920:X6ͣ@129,"PRINTER NOT CONNECTED!":B15:::800(‡X0ͣ@129,"PRINTER NOT TURNED ON!":B15:::800gˆX4ͣ@125,"PRINTER ON, BUT NOT SELECTED!":B15:::800!Ø:"LPT:"PUTAS1:TM16:#1,""::#1,,:#1,"":#1,,"** C="C:#1,,"**"Q1" TO "Q2" IN "Q$:#1,,"** DIA. IS "D"-"D$:#1,,"** LOSSES IN "L$:#1,,"** LENGTH IS "L"-"L$:X12:#1,"":dÛ#1,," ":#1,,(40,"=")Ķ:QQ1Q2QS:VKV(QD2):VH(V2)(2G):F.2083((100C)1.85)((KQQ)1.85)((KDD)4.8655):HTFL100:#1,,"#####.## ##.## ###.### ####.### #####.##";Q,V,VH,F,HT:)#1,,(40,"="):800=N(27)"U":::