Directory of image this file is from
This file as a plain text file


00

+/n3.7@?  GN K((@&&U&UI&UB+U;PU&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U
^6q~&$}"H|r~H. f0`GEb0
K .P(jE6EO,E
aLoEd,xPJ	K0O0&,{FNDMbl2{:lD

2
0Hp
M#`F#]FZFW=TDPJNVLeIu'H0F>4Fo>H2GHdpJKS131Hbi& &bJa"hdd"bqbgbhob`2 zv	Lr{hbgkriptotzlJj3&1ml	l0a@@k10vcb~F}bqqbdb
bfgD.gg&g
.hmbl\ljs"jjbYYb3sbaL@
l7 0
~@ ({
L
+D+G/+$+t+C-G-0 1+'-
L.K
&2

l/B))t+)')&B)
|
J

4

C
{	4K2
22*22*22*22*22*22*2 X
HH4jjrj0@1h$hktHT2IHkKI&
/BfhrffGf&Bf|I 
n
u{nKl
ll*ll*l $0.HQ;!
I
$!
&{[LC`2xPnH! $!@b@
P@`

$Au"I!
A!A
A
;Q;
	t!
k!$1k!E|B
R
BmidB

$!B
n=@
0 Z\L1bZ NX]L{bvp&W&vD.Ac&qY
WwJ.vbpc,z
n ,jHuf-zp2pdpuBs`&&fz!.[Nt \NqpfvH./1Z
l0vH.u/!r`}&u6|I:}&]oFoH/qOpiJHNn wt  bz~ /W



y

Q;!M}$!lQ8.p33Q8`El
kR=
p
W
	W0W$(	\pW$	.pGa+	R.Q	9`&g&.
H(\/

W#.pBv8p>:CPQ8CPLM
#	qPfg&
B	vGdLL
@p<z
W0
"S
S%2(
1"6
20%/K'(UEI/@ @`fg`@`u)@^k8P0>jnH^k
W0}gGb OCeW$9nOCP=gLM@s3ch\pp>ZGb 0>Za{D BvXA$

pLN<8
PAN2 AI22
9M@
WCP.pYs33 # #qPx330LM
&g`cqz`8   ` H 3	30:
0h\=

p  X T
.p
W#

W0W$ ^
0
@``p	@
.@
0

33S`@	|p
M$})

WQ;   K  SAn H  SE 8  d    O@
SICOD
SICOH
SQDSNCSTNMDO1FXFX"IN%AP@E@5S@ED0XPCE@EI 
G0N@@X@@NLADN"PDGGp@NS

0@@RPLE@N@
G@
L@
GLM`AR

PW
PESRPLGSNCSER EC ECL@IA@O
@CDCBCCQ
CLC
CCED X	2E	EEEIERHR@@HRGT
PTNI4NB4PUE@R
PYCLC@ C	0	ESD@
TCTC@L0CL@@DS@


20TN@HEF0APC0L@PDpV     OXYGEN CONSUMPTION CALCULATIONS',/,56X,
     1	'PROGRAM: OXS1.FT')
 5	FORMAT(1X,4A5,' WT= ',F7.3,' KG')
 6	FORMAT(1X,4A5)
 7	FORMAT(61X,'RESULTS',/////)
	WRITE(3,4)
	WRITE(3,5)N1,N2,N3,N4,WT
	WRITE(3,6)D1,D2,D3,D4
	WRITE(3,7)
C
C	      VENTILATION CALCULATIONS
C
	DO 50 I=1,N
	H2OPNU=VAPOR(TPNU(I))
	H2OREC=VAPOR(TREC(I))
	VATPS=VE(I)+SV
	VBTPS(I)=VATPS*(PBAR(I)-H2OPNU)/(PBAR(I)-H2OREC)*
     1	(273.15+TREC(I))/(273.15+TPNU(I))
	VSTPD(I)=VATPS*(PBAR(I)-H2OPNU)/760.*273.15/(273.15+TPNU(I))
	VT(I)=VBTPS(I)/F(I)
 50	CONTINUE
C
C	       EXPIRED GAS: CONVERSION OF PARTIAL PRESSURE TO DRY FRACTION
C
	H2OALZ=VAPOR(TALZ)
	DO 60 I=1,N
	TDP=PBAR(I)-H2OALZ
	FEO2(I)=PPEO2(I)/TDP
	FECO2(I)=PPECO2(I)/TDP
 60	CONTINUE
C
C	     GAS CONSUMP
"F6 N$6%FQ%J$:$ N%$c

n
|`(!z{| {K(Q( 	~G}
&06z
|0b!{if>f;<"
FnziQ@pA@3&!LM.K0yK(xK(Q0
zI
]AyY4TMAR0 X
  ES3   z
lb"H~Fna	
#'
)W3K<_
lra&N,[_b(ze[
^6	^Cx(w_e`Fnx`cVdW6Ca.^	L^0?/.E"`9z^c(:z f[&V VbJ
n
VbV n^d	^C`Xc'LU,~(/y]9c
@0`v9=	_B}]&]]6] /e|2v_b

L
w	v]&e3
&o}?x"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG
0r }0&@/3~"66&C|%{q)~0"
~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}
LG(*A	C

n
|`
&
(?4
.fnb""cac 0z"DJ"Cx$
"bt"

n~}'cx!"n0"{4z
	:

7
'"&ff"7"D<$&Dn"Mh/v)8d"
"b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?
(?R})
<Gi#x	
~~rb!g
'}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= py
oCPc
IG
w		Kn' b

n
aha(W0| {| {)am7vF*
:&3 0
N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =;
}`	 0V>b
VbnVVbn`~)
-J})	ff	}9>J	!6	j8W!|{
l	<}!Hzr{)d: >f!.)d>!by`)Wxwdnv})>&	)8jS0T0
@
c
W0































































































































#DOTMP,	ORG	.+0006O41#
#
6
L~T/r}]	Bt.B{G(.|91!. /=2"({{zi"A
lTb	,c]{2e0(G{|d6
TIq	L	6	c),r)		
ifr	i(]	y){b4lgg"&
<osi1H@
@>_`5$n@10,	FLDA	K
	FSUB	P
	JNE	#G0010
	FLDA	#LIT+0066
	FNEG
	FSTA	#TMP+0000
	JSR	SCALE
	JA	.+0012
	JA	#LIT+0000
	JA	#TMP+0000
	JA	#LIT+0047
	JA	#LIT+0066
#G0010,	LDX	0025,0
	FLDA	K
	FSUB	V
	JNE	#G0011
	JSR	SCALE
	JA	.+0012
	JA	#LIT+0000
	JA	#LIT+0000
	JA	#LIT+0047
	JA	#LIT+0066
#G0011,	LDX	0026,0
	FLDA	K
	FSUB	Q
	JNE	#G0012
	FLDA	#LIT+0066
	FNEG
	FSTA	#TMP+0000
	JSR	SCALE
	JA	.+0012
	JA	#LIT+0000
	JA	#TMP+0000
	JA	#LIT+0055
	JA	#LIT+0066
#G0012,	LDX	0027,0
	FLDA	#LIT+0003
	FSTA	II

#G0013,	LDX	0030,0
	FLDA	K
	FSUB	P
	JNE	#G0014
	FLDA	#LIT+0116
	FSTA	NAME
#G0014,	LDX	0031,0
	FLDA	K
	FSUB	V
	JNE	#G0015
	FLDA	#LIT+0124
	FSTA	NAME
#G0015,	LDX	0032,0
	FLDA	K
	FSUB	Q
	JNE	#G0016
	FLDA	#LIT+0105
	FSTA	NAME
#G0016,	LDX	0033,0
	FLDA	II
	FSUB	#LIT+0003
	JNE	#G0017
	FLDA	#LIT+0132
	FSTA	NAME
#G0017,	LDX	0034,0

#11,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0014
	JA	#105+2
	FLDA	NAME
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0035,0

#105,	JA	.+0023
	5047
	4022
	0501
	0431
	4024
	1740
	2301
	1520
	1405
	4047
	5401
	6654
	4740
	1405
	2605
	1456
	4751
	LDX	0036,0
	FLDA	#LIT+0003
	EXTERN	#PAUSE
	JSR	#PAUSE
	LDX	0037,0
	FLDA	#LIT+0025
	FSTA	IEND
	LDX	0040,0
	FLDA	K
	FSUB	Q
	JNE	#G0020
	FLDA	#LIT+0036
	FSTA	IEND
#G0020,	LDX	0041,0
	JSR	REALTM
	JA	.+0014
	JA	Z
	JA	#LIT+0030
	JA	ICH
	JA	#LIT+0003
	JA	IEND
	LDX	0042,0
	JSR	CLOCK
	JA	.+0006
	JA	#LIT+0022
	JA	#LIT+0025
	LDX	0043,0
	JSR	CLRPLT
	JA	.+0006
	
^6q~&$}"H|r~H. f0!b{b

l
	<&Jnk56g08f))f))f
n;"<=&
0b,dz0'
y2ti%'xy
0ki?Neimi?ki?mi?mi?m)?EiFf~w ?v|3H td"fuP"
(ZU#8CVR1R@VR	A@18I<kr+PU	p>vy!fn$(/]"@zr0!f0r (z(/$X!f$"k><*]#*|y\Z*X0"r(]g#fc
@n#
2f~"2gr"
r#r
'gp'&0b*0r (<z'h9 'bfn(?<"(bz@&c##7%cn"":z]J]JB
'g~'&$!"iy'c}"@Oi .F."c%#s&v{lqz;%q*a:jGOt)~}|N(/{2bziz)m&Ykf+(f#	"y	xin$J /P("fnl		< (o
. ?$)x) bwc(rvs+'1Bk~i0}is"kbld{+
$r dz
}IzEY!.k&u$^o&Yk&on& Xb		lP5\
pfek%
@/|zLerP&[R(/"q~tBFg~lif.H>(}
 ..r|/r{/r@ubo./F
2fzy'x&
gw' .bH/bnf
g'2"2yevV$qW}!>cnFd72'5'5$R;*&lui%j(Z"&"J.x"btt)#@>&&7%cn"%Zzm X(@*d0;)9#.'/~',(/0&
}C<	lv_|q)zvn /&
{Cz	|Cytx7 w'
vC}2FXon~v
<)cou22P3b8<zvi2t's&v	<x2'2'
}IcH
`	rB	qbjbc66bJnn	6o 	s	s	tUJp6& fk4	c
lnbd&iCA
n5T32=Fn x(/	 .({j&
h9j(&&l(# zi&~ &}y."hzvdyxi&oD%>5f&@>/>&/&'>/&%c.>&>j  &z.%'>.&)L2g02fsgrtphU#"wGR9"a>% ?^##a&cU{
%7#&7U67	C	(Oe6(+"+b(ekly|3xJ szrC2)	p9"`8b|'
!~\ 
$P
@@^_6R3#`)W	q(q`rYJrUU/
Fg
pz?pgfD*%xDuTd#hBpN &W ?
|Ki- &  C! d h?#"@~~J.

n
,~}28b }ic@	N0
b*%%
%b&*kL#A RG2N VR1MDR
	OR0Sx;RRC
&sK*!VJ"L*p'+o',+0vf

hzzfn 
bDf.Hs{b lJ

"d*n &
#Q6U#TMP+0000
	FDIV	#TMP+0003
	FSTA	#TMP+0003
	JSR	SQRT
	JA	.+0004
	JA	#TMP+0003
	FSTA	SD
	LDX	0063,0
	FLDA	IEND
	FSTA	REND
	LDX	0064,0
	FLDA	SIG
	FDIV	REND
	FSTA	SIG
	LDX	0065,0
	FLDA	II
	FSUB	#LIT+0006
	JEQ	#1000
	LDX	0066,0
	FLDA	SIG
	FSTA	ZERO
	LDX	0067,0
	FLDA	SIG
IBA2@0@@@|2YF@o'J
SG #HN 30 >//E`S@ h:di@@ |2 P9}!1}")}@3Z	,,XiJ@	 
@
9}%*B&9Q}!9}X@ "D%@`|#<%`@H%1 "ol;`, RS d@@`|#z%`F@"B` P9
}@"k%!9}@@"Bv"P9
}@|%
i,@R=*@RB=(@RB=(%X @"'%1ZBU'Rp2g2B&@@"B9ZRU9Rp2p2B&@@"BN1PZU)N%p#g#$&$@ @"Z%9@
"b%;
@"j%6@ "r%=@`|#&@'jA
`A4P3'
,`Y5.i9@ Y@0&@@ "B%)`@@!Z65bB:2s2=@0"YS?bB@@#Z3IbBP@@$@@% @-X@&Z)^&a#9Y@'/@"4wVZHybs2g2w@`( ,-XT&@) "&`|#&`
F@*
j)@@+
8"Bt@P,*@@-RB6,!R6*"@p.*@@/ 
@0X@099,@19 E0<@`2l+@lZy)l&j#@@3@@4l@5!9'@6@70
o'@81
B}@p9|2$p```@:7'1,&v' :Sl614;,Si:'.=)@@; ,!BR@P<L@= @@>|2cp``@?1z,v`'n?..;..;'`;,`	INAL F.l`IA >Es44;,Si:'.=)@@@0@PA*@@B 
@@C  919-@-&, (D'@D&@@E l@F`|#M'`@Gi1z,v`'
?..;..;'l;`INL Eis4K'8A Eis4K@@ H0@PI|2@J0@PK|2@L0@PM'
STV"`VR
W';@@ N)'
G
TV`VR
W';@@ OX1N
	O2CRB(DA

HA
MF
2i(}(
TC 	xpx M(i	 `	xpx
`R(A

HA
HA@BZtCriR

@z%LP
JHi(((iXJMAG
((
{PI_At
~A 


MAMAMAMA
@9QY'Y
AAB@pQJTj
7




~ { AC
~p(	|p
{PI_ At 7I'1YS9'YJ&IQ'Y@Y))@~@r@{CFB{"(MN`!`S
T)@
R(A


HAHAHA@

A\

@l
lbBi5QD BJ
@N, S P)'` WzO@v'B)J)A
A@'*~{}*lH
_)@|YA~
)
/9@bl-~|}9
~'@_)R((A
H
HH

BR@A
zX-M
J"i
n 6*3*5"="C!n =*nI
"F H*nS"P R*n]2"Z \*ng*"d f*

	WRITE(3,15) (CO2P(I),I=1,N)
	WRITE(3,16) (O2CB(I),I=1,N)
	WRITE(3,17) (CO2PB(I),I=1,N)
	WRITE(3,18) (R(I),I=1,N)
C
	STOP
	END

Note: Lines longer than 256 characters were wrapped