??2CBP
>DLML DOMHRAR0AFHL $LBDR0F <FR$LBDF 0FAP0D0 OPAHRTDRLT,MD HMK$OX O$RO\NT ZTGNTD XEDE$RSL DO$P DSHMEHINPDLCEI$NTL O4MAPND LIDSLY:P<LTA:T//S8X!0&M?8!K?> />2A%=K=%<XQK?]?K<
;
:".%;H[XU%:31H-;J1?L>4LS/.P,	R=1!\*2R8;;RF62N*%9*HDGXYI8XL%7HUX[%:<ACS=6C)=3C=%C2<CC2<BC2>B2=1B2==1U=+	 %6HU\LHLK9?H*2/8HLK7>(*2I5PY%<: XYHLXWLW%<: HL*1%=\L\LI8XM..\LI8XL%=LL<(+ %<+-K=%<+$V+?.RA81P8+2>A(B$.X"GH%)8 H^H89 H7JDJD>PKHEDNZ58P2??BMN LY? ?<-2OBJ
75=N\
NR6<C\B)=WFDB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!I?2J	?HH,X+0&0V0L>D?*MK>	=K<K"> *TH*> $)$W0!*U2J$:E0&	;	:K9X/K8XHH/YGHXYHH]HQHH.YE2IO78D?*2X]XZO6C5> ;XYF;(G4IF< XZO4YFO3< X]O6YO7YDO2YC	1IF?+WK0YFID9T8DQF=+O:MF["$W/"H ^
MBMBMBMBMBMBMH+6XP;&X JA9DXSHR8D=H-3XRHSCWD>$>&>"P>>%>.SRT8R6?O?> *MID?H*MQGQHQE*G2A.2ILH2A]GMG]HQGQHQE*M."70I0JX&0LH&.XX4"70QH40V:. "70Y0^X&H&.(X4"70!H40&:./N7[R7K8F8DC>H+:.70Y/D0\K=> /D0Z$WK<	;K:	;$W0!+R/U>EP]-3PZI$*2B1[&HU>(+0(-[&J2J%0B+5K	I=H:9F8FA"2I
\OK&/[HY>(H">(+<CCD/C^==G>AH*>(*F8A
?K>K=X;O?YN0L$<RHXXHH/YFH.YELH]FQFQE*SPHLHZ4H8> K<K;%M9H
J4<(*	>X+)J4X
X?H
8![(	:IAL>Z4$"6,(P?S(*<K9%M,"$<<H*.;&H^>(+ER*-H8> ,"%L,0%L,8$W: $)$<R*-;$[	H^K8YEME[[%L$W: $)$;:$<<H/RS	+U,(K7%KH/%J%L,?IN%K,"%Q9F8FA"LZN(^DPC??DXP)>$=)
L/>(/?O>YNH*>(K=K<YO0VK;%MH8>(*[9H]H
>P*Z%L-,,"H]YEIEIAZ9IE]HH
8!QH]HQH]HH8< X
H*>(*/: $)H,8!H+> *6NN$B6,(R9	:T>P
+DH\>(X,"P+*6XH*> $)%L,0$W*-KWYEH:%O$VQE+Q/N>,K9%ONNNH,X+/X: XTHMXPLP%M: HM*DPT+AIQ+IYPT+3IQ%MXTHU%M/.K\MC?LBD/?1)>F$;<(*AK?<(*A9H>(*RK>H&>(8A8A8AX^.	=[*"&PU*T$;8!HP> *P$;8!HQ> *PK*?H*OR*QH*>($VX6H.[+;&[,$;\!P!H&$YS,*/;&H!X!MS+*-$;$YH&8!H6>(+I: [*K-?H*O;X
&\7P7.&L!9F8D\TP!L!9J8J8H[.K.C<LT8D\TLT	;K.C:P!L!PT\TLT	;P!PT/M??>(/	H:]HXS/	I680!+8<MQGLM<A>"M	?K>%O"^PU*EHP%OHQ%O.K=X!K<X7HXXTXPXQK;XU.M<B0L:.YX6H.[NLTQLT9J8J[OKOC:[PKO8HC9[OKP%OKP$YPTLTQLTC99J8JKO8J8J%OH4$YLTC:%OH4$YPTSN*"H6%OH6$Y$V.^YEK8YFIE8J=H8P8HQF
W8$:H68DX6/Q2I\=,.S*/%%0HH??[(A/%$]!AF+9K0$&K2[2?5<C??
-2.XBAINNYERME8J8J8J"O.ME"O.QE*DC?<(.OROK>=HK=K<	;.OK:	;K9	;.Z%L-[,"YGIGYE;&YFME8J8J8J"O*5ME"O*5QEQF*)KEIGYEME>(+FKB	;ME8J8J8J"OB.ME"OCK<	;.8DYEH.YFIE8F8DYE8DYGIEC8K7	;IG9HQF+NK<	;/IK[7K][]S)+M2J	,G<D<?2?>GH ?H8 X!/+R&%![3/3B0GBJBMD/B A? ?H8> .H.YEH*>($VH
XHH/YFLH8!MF> *(QFQE*MH?8!L>>(.%L-"H?	?%L-	L>	?$W: $)$<	>*D%L-"H/%J%L-	HX8A%J*"YEK=YFIEQ8!9DIEHQ9J=H8P8HQF*==H+GYFHP+KYFHP8H8TXQIFC<9FXPHPQ8!9DHPHQXQIF9J8JXPHP9H9HYFIFP8!9DHPIFXP.2-*8 >(*\SK+ /VHHXH//	6,F(=1:RB:767:0?9GROIK?XHLH>(*OK>YEPHLH> *OQE*H: X-.K=
EK<XHLHQE*VH[> *!L/>(*!RQ: X%.QYEIEZ(%L$W>D?.;$YFQEME> *%QF*/.[BH/[CH
[DIN	;2JIN9$:+KKCYAKDX
.6%L-WKB	:IN%KH/%J$W,"SN+OSNONXV,V(WPRLR[IPRLR2A
8KI
7P"L"H$
6H
5/[U W(Y2[(]( >D=P22P2!2Q$OI\*W?6?8*D"L=?)=D?="L>N*DA?7.YEK?XINLXHRLNLYFRLNLYHRLNLYG2ILH< QE2A\IHHIHXHQG*[IE>(*5IFXIK?XHNLYELH\I\IQE*/\IRL.LN7YER79K>AIC>8.7ME<(.7YF: ]FQEMEQE<(+AYGMGEE8!ME> ]F+G$=("K=YBK<X	K;X K:[)	9+"	8,"	8QBP	P S)+","K-JI>(*P8*JJ]7<79*R
47<J\[-ZRQ?6*,*"*X?/)4[INYERME[KQEME[MHR[LHRX2KI<(.KL=(*Z:KI8![LKLX2[I	?WK.KLKM[MK>X5;&[JL5< **P5*8X1P58AL5>(*8L5X3	=1*<H2H3\5P5SJ*%*NL/>(+DX
H1YNK<%MP$<H.: *7+S>8*87>9F>X*.2R+O>X*.K-<B2R*MRGJL7<:X<B.G2CBC<?0?8J,Z&79*B7>B2J-> *B7?J$> *B79*M7>B2J.> *MDX)>XEJZE;X*FZ7$VNEZ8REN8	?R8N899F8F8F8DHSJ7Z[R8N8Z]$P*!RE.E:%L-[;$J8YEME%KL/>(*.H/%JJ]	>J7?*5K=	<$W.EKZC
K!Z.J.C
8F8G8F1!AB:KZ8DBH[Z;&[\K[K^["O"[K[1!SB8 Z.K
"<H<BJ.> +NR:K"[[KZJH<(+W[Z*/J98J8J?H+ES\*1;X<HRG.GGBB8D/C
OI\H-?*FK?<HL	[[H%> *SH[?H*QMB?.L X/O[<(.YNK>%MK[8AYEIA]EH
[;&X0K=X5X$L5<(+PYNK$[%K$?*6K>%MK8!H
>(+C[%K<%MH
?+K8!H
? +&K8!X
H58AYEIA]EK>K%K$>(+OK;%MP$P5P5P0*%H$<(+\8!X$K	:K;H/X/L/> *S.??L	%KH/%J%L,?L5%K$WH58AYE: ]E+PNE2I^F2AVDC)>B*E9YFIFK?YE2IME2A< *X;$IF>(H:K>ZUIF2J$:A*ZJUX.%L-WK=	<,"9K;YEMEZ&%L.
:FKEZ+NGCFZ6NG8DB^8![(: RGNG[)RGJ66M>NGK	8J8JCH6NGK	8J8J8HCG<B2LKCZ66S*/RG6Q<H*9RG<B6A.G;XSD>H*6;&JGZG<H<B*J2B6C8<C?,!D5XX86+>	=?B>E?)NE2I^F2ARE(NOIA:>&$=),O?YNIN[ K>X	L/>(*VK=%MIA["L	[2IO<2A[%"W,"	;
 ,"K:
9	;
+]: [&;Z
9K8XHK7XIK6[)2ILH8!LI> *8S)*+2AS"S%P
*X.W2AS&+DK %KK"	5K%KK%	5$WK(> ,"K	> +ZK4K)	5HHYE2IME2A	5HIYE2IME2A	5$W$V2I*0;Z
9,"AAK\9PJ)<8+U[\*^:RGRGDOI<S?O?X\TXE>PB*E)>O?9YNL/> *MINK>YEMEX
YA*OK=%MX;: X6X!INX18AX2	<	;	:*&Z5K9XHPHLH8!J5> *^LHZ(&(*X 7RXW]C <S&O$=E+ 7K8	7$W.7H?	6H!>(+DK5	7H$>(+IK4	7K3	7HU	6H;	6H6	6$W.<M(/G%4OVERFLOW-*I&%)4	:PQK9	8	7/6)X9F8F8F/&:X9J8J8J/+B CBCFOID/B? 	"O$DB	?)>LTH^>(.LTX&PTH&K?>(.RH&.".OC>9F8F8FYE"*"C>IEYE"*""?
?"?.OIERO.OHTYG".%"?YF"*<K=YEIEC<>(*7IGXT.%IF9F8DIE*+R%IF.%: HTXT.?YE9H
IE>P+M	;/DIEX?H?IAX3	:1,(X$XU/D"%H?D/XH$>(+%	91,(: X!H?8ADX$/]H$>(,"	91,(,"8?H
,*!GXXE 7?8=P?=TH,X0K?XT	>K=<(*5K<<(/;K:<(*4K9< *XK8	7K6	7$W*AK5> *)H,8!H0>(*E: H0X0: HTXTK4	7*EH&	7H&K3>(*EH&\TPTP0*E8A\TLT8!X^K?XT$W.	2+BC1XUMH^> .=HU8AC1< +A	0+BW	/K.	7"	2/M
/MHUO-YE2IME2A/WYEHUO-YFIE2I]F2A: X$/
PT+
X\B/OI]C?"%= C\>VCUD/C^?8?6ELG=6D(6	?<HX;	?<HX6H^Z9Z8H;68!XP: Z7	>6HP>(*$PUHUC=> *PK=XUJ9> *3	<HU>(*N*3J7>(*)H?	;: Z8Z7HU	;$W	:H^>(*UJ8>(	9.?H*>SD*X	:IO ERR.K+HK9ZK2LK\[W2AOH[&SHOHZSH2AO&2I^S&RC?2ARK+U/HK3%<H[IV%<-*00\K8>(0Y/&/7-	0U-	)H)H-&C^0Y3J1U== 7%MO
]C?%W"%MPMP4
4
4
4
4
4
4
4
+4+8+<,,D,H,L,P,T,X,\, ,$,(,,-H-H-P,0*XAHAC *YACAA *ZAPA*[AAA*!AAACD*\ADA*]ACAP*^AC AB*
AHACH* A ACP[$AC [AB\AB*AA8ACD
	AP
(A AE*E*G*G*G*I*K*K*K*K*G*6+G+L+Q+V+[+ +%+*+/F4SVPASS2SVPASS2OSVPASS3SVRALFSVLIBRASVFORLIBRLLOADSVFORRTSFTMRKRTSSVFORIOSVEZGENSVFLAPSVSYS:DSK:TTY:LPT:DTA0:DTA1:DTA2:DTA3:DTA4:DTA5:DTA6:DTA7:PTP:PTR:CDR:END OF TAPE ENTER NEXT IS TOO BIG FOR PARITY ERROR L/
 ERROR USR I/O ERROR NEED: FOUND: BAD =BLKG.H20&Y/SHHCD 2?212Q2!;&[;K87<2C7?9DB
[97?[:*&ZJ
[<79*P7>*;7>CE> +O[>J	K87<: T: [>NTR?S<*	T-TT7:> +O2CK9J
<(+Y[9*)[[[B*JX[>[ ^RCS<+A[ [BX -*1;2CS;*.+Z 7;+V7=;/T7;+\7?/[8 [?K?C>8!9DK?K>[>K?9 / :K>9&8F8F ;K>BX/-?&2IO?2A
;&O>>(*K"\"	/="7"\"	;X"7K<%0WX4/="7"\"=*N"\"=/=0WI1	;>GK:	;>LK9	;>G.\2IO?2A
AOA
8H
7%02R52%02B4).	*6IV%)46.70X;$%02P50;$%024	.=>(+LK6
5O4
3/GH!K2XVLVXV,V0ZO1> 	0/6K/	.K-	./[$"P<6<B$!<6<B/,,6BJ9&BM+W+2	,B"*")>4(51PL (?J)I>J?0>G>G"H"HPHHPBAEJD&Y/S-T"T THAANO>G>G2B"GHG?&2C.?D[ 2LJ=[^2AN<8H2I>X+Q2B"G(HW<B2B"GFHK<B(P2B"GHHW<B/"H"HPHHPMODE SELECT IS /(DIGIT)$MODE FUNCTION0    PTAP I/O1    FED2   
COMPAREH SET HI BIT =NY CLR DEFAULT NAMEZ 0 TO =NNULL SECT REPEATS---PTAP I/OL LOW SPEEDP PATCH MODEE DONT PUNCH EOT=N REL BLK TO PATCHNO OUT FILE IS READ---COMPAREA ABORTB BAD BLOCKS ONLYDEV:F1<DEV:F2---FEDR,N1    READ BLK N1W       WRITE CUR. BLKO,N1   
OPEN LOC NS,N1,N2 SEARCH FOR N1        WITH MASK N2C       CUR. STATUSE       EXIT TO DECODER---FORTRAN I/OCM COMPRA RALFLB LIBRAFL FORLIBFP FLAPLD LOADRT RTSMK MRKIO FORIOGN EZGENE EVERYS COPY SAME IN PLACEINIT COMMAND ISSYS:<DTA0:/E/SFOR ARBITRARY FILE 
TSDEV:F1<DEV:;P"\OIC[JSI?OIC9J8JKJ8J8JCSI80Y*;0\C2K>> *;2C.[>2LJY[ANBQK;Z08HNR=H+9BG8 [=NR[IN>(<X*TK10&0Y*60Z*TS=.\J0> RR<B.0V0Q+EC /C;KJZ"\
I[C8F8FC OI
IKJ8J8J8HC KCSI<
I*PJ0>(/0LZ0R0+.K0[J+6K<[JBZC^A?0I+)0J[<KJ/;X*?2A?=5J

Note: Lines longer than 256 characters were wrapped