9000 REM *****LQVALV*****ENGINEERING PROGRAM*****
9001 REM ***  VERSION 1  ***  7/31/69  REVISED APRIL, 1972 BY ED BAKER
9002 REM  COMPUTES VALVE COEFFICIENTS
9004 GOSUB 9062
9005 GOSUB 9042
9006 Z2=1
9007 GOSUB 9058
9008PRINT
9009PRINT'SPECIFIC GRAVITY =';G
9010PRINT
9011PRINT'FLW,GPM','PRESS.DROP/PSI',' VALVE COEFF.'
9012 FOR H=NTOMSTEPM-N
9013 Y=G/H
9014 FOR Q=P TO O STEPO-P
9015 C0=Q*SQR(Y)
9016PRINTQ,H;TAB(42%);C0
9017 NEXT Q
9018 NEXT H
9019PRINT'RATION OF HIGH/LOW COEFFICIENTS=VALVE RANGEABILITY'
9020 Z2=Z2+1
9021 IF Z2<=Z1 THEN 9007
9022PRINT
9023PRINT'NEW PROBLEM';
9024 INPUT A$
9025 IF A$='YES'ORA$='1'ORA$=''THEN9005
9026 GOTO9999
9027PRINT'THIS PROGRAM COMPUTES LIQUID CONTROL VALVE COEFFICIENTS'
9028PRINT'AND FACILITATES DETERMINATION OF REQRIRED VALVE RANGEABILITY
9029PRINT'REFERENCE IS THE VOLUNTARY STANDARD (NOV.,1961) OF'
9030PRINT'THE FLUID CONTROLS INSTITUETE, INC.  NO VISCOSITY CORRECTIONS'
9031PRINT'ARE AVAILABLE.  CONSULT VALVE MANUFACTURERS ABOUT VISCOUS'
9032PRINT'OR NON-NEWTONIAN FLUIDS.'
9033PRINT
9034PRINT'TO USE, TYPE IN VALUES FOR MIN. PRESSURE DROP, MAX. PRESSURE'
9035PRINT'DROP, MIN. FLOW, MAX. FLOW, AND FLUID SPECIFIC GRAVITY'
9036PRINT'VALUES WHEN REQUESTED BY THE PROGRAM.  TYPE A CARRIAGE RETURN'
9037PRINT'AFTER EACH VALUE.  AFTER ANSWERS HAVE BEEN PRINTED, DATA FOR'
9038PRINT'A NEW PROBLEM MAY BE ENTERED.'
9039PRINT
9040PRINT
9041RETURN
9042 PRINT"TYPE IN MIN. PRESSURE DROP, FOLLOWED BY A 'RETURN'";
9043INPUTN
9044PRINT
9045 PRINT "TYPE IN MAX. PRESSURE DROP";
9046 INPUTM
9047PRINT
9048 PRINT"TYPE IN MIN. FLOW VALUE";
9049INPUTP
9050PRINT
9051PRINT'TYPE IN MAX. FLOW VALUE';
9052INPUTO
9053PRINT
9054PRINT'TYPE NUMBER OF FLUID SPECIFIC GRAVITY VALUES TO BE ENTERED';
9055INPUTZ1
9056PRINT
9057RETURN
9058PRINT'ENTER ONE VALUE OF FLUID SPECIFIC GRAVITY';
9059INPUTG
9060PRINT
9061RETURN
9062PRINT
9063PRINT'LIQUID CONTROL VALVE COEFFICIENTS PROGRAM'
9064PRINT
9065PRINT'DO YOU WHAT A DESCRIPTION OF THIS PROGRAM';
9066INPUTA$
9067IFA$='YES'ORA$='1'ORA$=''THEN9027
9068 PRINT
9069 RETURN
9999 END