FOR i = 1 TO nn STEP nprint
WRITE #1, CSNG(z(i))
WRITE #2, CSNG(mdot(i)/mdot(1))
WRITE #3, CSNG(tsat(i)/tsat(1))
WRITE #4, CSNG(p(i)/p(1))
WRITE #5, CSNG(rho(i)/rho(1))
WRITE #6,CSNG(mach(i)/math(1))
WRITE #7, CSNG(bigx(i))
WRITE #10, CSNG(tsat(i))
WRITE #11, CSNG(t(i))
NEXT i
WRITE #8,w1$:WRITE
#8,w2$:WRITE #
8,w3$:WRITE
#8,w4$:WRITE #
8,W5$
WRITE
#8,w7$:WRITE #
8, w8$:WRITE #8,fluid$
WRITE #9, tsink:WRITE
#9,dout/.0254:WRITE #
9,di/.0254:WRITE #9,hbar
WRITE #9,t(0): WRITE
#9,q(1):WRITE #
9,qsum
CLOSE
#1 :CLOSE #
2: CLOSE
#3: CLOSE #
4: CLOSE
#5:CLOSE#
6: CLOSE #7
CLOSE #8: CLOSE
#9:CLOSE #
10:CLOSE #11
nprint=4*nprint
qsum=0:pinc=nprint:PRINT"nn=",nn
PRINT" Z(m) T(K) hfg(J/kg) dq(W) q(W) X Mach No."
FOR i=1 TO nn
qsum=qsum+delq(i)
IF i=1 THEN GOTO table
IF i=pinc OR i=nn THEN GOTO table
GOTO looper

5