|L@A988/Y- 
? ?>>?8720=v7
	JMP	.-1
	TLS		/PRINT LF
	JMP I	INTTY	/EXIT
/
IFILE,	0
RELBLK,	0
TEMP,	0
OFILE,	0
BLKNO,	0
	PAGE
TTYPTR,	0
TEXBLK,	215	/CR
	212	/LF
	322	/R
	305	/E
	314	/L
	240	/
	302	/B
	3@g

L~

L}@	l|
<{	|z
<y	|x
<w{s(%z

L}

J@ bvws

L}

Z@*bu@~
}I
@`@.4!.	xC
(OA .@~&{C(t{K3s@r?@KcYKd@Yc(K{!TJ&YDP @qb!\J&Np!,a&,@Fj
800P/A!@
ADodp&D't#tp@=u@~(6@NJ(G(2(~{(!<&,@(c))b(}B *z|('((G(!<&,0){"Hz{y@/z:
BLOCK NO.: @$xb2@n2}2(Sz2{2%$bw%$2dE`.$$&6@^v(?_u)3uI@@.'$"h
lpI	t@sgrq0A7UE=DV@v/ZPO
s?}_@~7~I	}C
|@({{@zbyxrw@~v,8uuu@+6
+C
E,u	yZt@sv#vwu~)0rwqp'@Jfr>r~J@nJ.r>rgJfro0nH&Kp7,+SJlm(/lk9jc(_z1XZHb6^K!<_H"&KKd5xzg{=U}0<|_>P0U79U`6uxFu$/8U@~~2 {} ?82|H/8{?@zbyy@xbyy?@wbyy?@c;d@;c({1(Z@;c6@^;$Jx@v
60k@uC{^0Ctk&@sbl7br@vb6@n8j&
jC
8Dq6SJlPJ@p7"7kdHo+).,~_pKtx p
Kw#t!Hu@c(z6~Y
j}||@{bz{ryxww&v@ub&Jt0DATA DIVISION:-sws
>

n=rq@s=8rqy.?poHnrm=+OvOO"P@nO.PbD0|	2`J&cbbb	j!.(/Wb)d	*!vkv)o @`?KH>Uqx_7UV\0KT=UPUT BLOCK:-
	CDF 0
	CIF 0
	JMS I	ENTRIP
	200		/2 RECORDS (1 BLOCK)
	4400		/INTO 4400
READNO,	0		/BLK #
	JMP	2000	/ERROR
	JMP	.+3
ENTROP,	0		/ENTRY PT OF O/P DEV HANDLER
ENTRIP,	0		/E

Note: Lines longer than 256 characters were wrapped