?=2CX P H Z$O= ?A>L"8.^.R:O42GYI>Q >G?8 0DA9>P>ODA?K2?]? ?(?0?9?;? *:8A0Y*0^AXIH\-L-I6< *02C,UI^<(*6I!> *8$,*:L-$(N R <(+C=+KL-> +H\$N Z L$. :R *::L-IU=+HH>=H+H+C=IL$(/TPZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/"Z7;:AJ$( 8 [TII$(ST+5/-BM;4AK$(IK$(/9[6Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;2A.N)8!N*>(*J2TH4Z2A0BN(>(*%J+X*!K.C,IH[.K.C5K7[0 >[-K- <*3K. -K.AQ>(+J >[/K/ <*>K/ =*>K/ 0K/[0;K.K4>X+W :[2K2 0;AK- 9+]K.8F?8AK0 9 :[3K.C+8!IR> + K2 0K8XLK3/-8=? A?"9$ !!"J"U"^"%"^A (8AYO68!K/> PRU.U[RO^[Q",R^.^[RO [Q",R%.%;$KR8!KQ=H*791KV>PR,;.,">KJ[N.9;J?[M Y.>SM/Z">SN/[WX8 Y/WA>A?E^ ^Q^R ^!$"J 0 -H??SMRI08ADIKAA-A2Q.I2B$VG????JO<(*XZP(DJR(DJ Z]$$6A(PR]. "RIYZ]. "(6A ?8 [6[3[2S2S3*EK3< S6S4* =: C8[5: C8C49D[2: C88 C48 [3: C48 C88 C38 K28!K5> S4*. =I][2K^[3K)K^[3KS2+MW?8 =*A"3V\6(9^6&6 6R6 6QTVCAD8EDHVCA-A2Q.I2B$VB????:>D;< ZO"I0B2B$1*/??ZQ[ [(K.[)K.[*K0> "1: 2RQ8N*"Z^I\[-Z I [,K1[+5X5Y5ZR J 5\O=IR9J8JAX8 [4K5<(*V0.O>K08HO<[1O>S >O=S =O;[2O;0,:K10+8!O/++IO<0+:K20,8!O;O;0,:K2H;[2ZW=/,+NK7[,K6[./-K8[+K6[-/.K09H8JAX8 /SHC[3K5> S4/Z0./Z0*+(0-/S3+$ :.H=/<6?]? ?(?0?9?;?(JF*+N3"4N3B ZSR3KK0\K5>(0Y+T2C/K61+K63+Z;X*0S8/I;$JF[8K8IK1[8KE[%IK8C,>(.4G+&+\+9+]>08.4?3A=>]2AK4[8J&I+;> 2>2LKEZ2NAB+KNZ=;XNAC?8 [MRANA[LRARA*,>P+O"(+=OL"5B [SLPRAZ2C,X >")>")Z<6")JK??")J%??")J???")KY??")^P??")&P??")6P??"):P??2Q.(]PL&2AO=8![<2IJ.Z=N)[;R)N)[:R)K;[GK:[92AOG2Q GOG2A8!OG>(+HZ=*7$$OP>DAQ> +[$$OU+]$$O*I18 [J/?O>Y,O=Y-O<[CBI,IBY?M?Y(Q?M?[;2IJ>DAQ> *(*2K5 *:E 6*7N%2Q/BNXI)$*$-/ENS>D8F?H/3/JDEC/X8JOB MODULE MAINDEC FLD PRI STATE CNTRJOB FLD CNTRJCM/CRCKW]N&\1]IN A0A-A,MR>DAH>(*H2C: .GK2\.L6MX2IN&J&Y?I?Z& ?:O ?6N ?&M ?^LI?> *Q>D8F?H*D$$S+J&$+$,*DJ\Q)2II)2B >/=OP+YNAY ?N8J>PK>K> = (*.I0H>H4Y0O6H?XO5Z5[:S9*]2IR.2I$ =3S"Y"/[I18 XHY)I Y /ROTATE JA,?CC?3A.A/A0S/CBCA?5TBTAZJP*JJ[>JA[= ZX2I\IJXH>ZXS<*X H>Z&2ILIJ&H>Z&J&8!JX> *2H4Z&S<*$S>S=*VI18 [H>Z>J>8!JX> +NH4Z>S<*>.B: JXHJA[;9LH(<(*]K>>(*2(/;KLC:K9> *;KL=K6[5/5KLC4IY> /3KL=K2[5/5KLAE9H8JK1[5/5: $ <,P?<(WW<)WZY" 02C// 02C-YN)IK$(O.AE9H8J$)$-/]$ <.]\<5][Y"OC>EQ+XPXHX)GCAXG8X=C<[H*>I9D8FAEH4Z"Z/I8D: A"*6*5D8F2$>P24I8D: A" *:8A0Y*0^AXIH\-L-I6< *02C,UI^<(*6I!> *8$,*:L-$(N R <(+C=+KL-> +H\$N Z L$. :R *::L-IU=+HH>=H+H+C=IL$(/T[+ZIJI8J8HTJIT/YN9ZTJT8J8J8JYJTY$-/"]H;:AJ$(J8 [TII$(ST+5/-[,;4AK$(IK$(/9]FZ 2LH4ZS2AL. *U80!N(> *J; ^(J 0&;2I.N)8!N*>(*J2TH4Z2A0BN(>(*%J+2C/ZXZ8 XJ = < ;[$HJ> +((+.2AHJ :2I2B 9Q + PHBGBP??B"B+B4B=CFCOCXC!C*C3CKGKPKYK"K+K4K=LFLOLXL!L*L3LXQK=XPO=<( < =LP<(* C;\PLPK:Z(;VHPXRN(? 9FPPLP\Q:A\PPPPQ*IK>XQ O8 7 6/5VY<(8 Z7N(8J8J8J"8N("8R(R7*,.( 3C4< K3=HK2K1 0//.8VQZ(XPK.[ Z8O <(/B9J(6]Q?/O E>O6A[!/>:X]K=XH2ALHXXHX9K<>P ;ILHXULHXYPHLHXZ2ALH<(+UZ4LHZ5LHZ6LHZ=LHX[HZ8 HHXHLH<(+J8!XT2ILQ9!HU>P+I;& :CDP8J=>(K9K8 7 :BNHWC<> +HHT 6HZ> H[ 5 4HTHUXUPX*VHY>(+*HHC3K2*ELH8!XT2IHTH]X]HWC1>(+IK0 : 7HT 6+HPQH] /*VO? = <") ;+O<(*FKG> *F ;+OKG<(*MJUXQHQBK:<(*6K9C8<(* JU> *F: ")SKG> *": ")*F%P= 7?HK6K8XPJU 5/4PP*0.)K3 2: ")HQ8J8JC1K0XPLP= +^<(+KXPS>PP+F*:S 5/4*&") //4/.$HQ 5/4 ;+\XQHQ/S -G9H> -HS96HQ9T+CZERO SYS?]QXSH OOQWD;< ZO"I0B2B$1.R?98?=J%AYJ4XMKLZ5.,??J%<(.60B2B$/.60B ?9LM"I0AS78K8JM9D(DS!+*/ ??> "RJ!G=> /0B2B$0 =O=AEH4 < ;B] : 9I! 9 8 ;"=W7*RO? 6 8 5Z<"4 4 +O? 6 8"=W7*""4 4+D 3W2W?O?J2> *B*)A 80B2A\. 1.40B 0\M 10A.= 8 58!J<>(/D 8 / ; .0B 0LM 10A -HM ,O.8!O-< +W*+MH> ) + )/DO(C&/ C 0&!&^&+&R&(&*&) !+ &I&Q *C&>&&5&, V+Y J+(&%&6&" ? >/=O<<(*J ; :(DNC7=; 9 8O7[[K\[ZKY 6O67<7> 5O5G4> +R7? 37?9H*-7:> +VKZIY<(+Q[ZS[W79P:ZK\KY 6O67< 2 279*57>9FC"KJ<(+LI]> *57? 1O18*57>9F>X*-*-RCKY7 5+RH>X*-KY9D/0C< /W./-/,AFK.> *DK-?*-7> ?O?CF> />O>K/KT =O=7<: H: [0 $$&A(PV 6*"&+&I+ & +R&!.( ? > =: Z5Z62C.33:R5*RIHZ7K * N7C:Z8J78H>X*!R79J82C.I8 Z68 J7Z7*]Z6N7C9Z8R7N7C99J8JJ88J8JR7* :KBH UPON ".", TYPE "SAVE (DEV) (FILE)" - - -I-O ERROR IN ^ - CONTINUINGNO ROOM IN ^ - CONTINUING>B>A(>"G?,*0D >$/B24UZZ$O= ?A>L"8.^.R:O42GYI>Q >G?8 0DA9>P>ODA?L-2I\-: $ <;2IY"$ <-2NY" ?$$20K>[=I18 [ /,N4>(/,K+ *S!: +E: ZDN4+JXPLI\HPP+/!):B.&P&W?-[.RV4YI0S>R>Q30O?0>OS/CACB?0S[O?XTO>X = < ;O> :.;& 9O88!HW=*[XJO8< 9\HPJ*W.KXJHW< 9HIHJXI.K2AO72IK6> /5. 4? 3EHUK2>(PZ.+Z+O1>(/0J+>( /.5EUEU?? EJAYTT33AS?? DHH TLP08LP?8CO!8A7LT X>A9]QT<1 F\A:D3!RMRSRRS*030SKMULTTYDIKLA-A2I.I2B$VA????2LHPZYJP>(*[H*>R7R7*6J7:ILR7R7&7K DSDWDODIW=H+PK$?H+S:IK DKD8A[XIM XWX+^KXZ^* SXOXSX+W?>>9??>L0AN0F?<0FB0AH0FJ0B8J8[6^ZQJ,8!XNK5 3O3 4O40BZ,J,Z=0&*T0!*O&J6^0&+F0"/?0Y*V0^ZI/?:*%:* &[866^:+F:/?:* :ZZ/?:*6:*1&,6^:+F:/?:*8:Z+/?:(D:+B&=96^:+F:/?:/>:Z<:/?$,$$6A =I ZIK W=RI+P(PQ9[$-$!+HZHO"S"XNLNZ+LNJZZ>(/?/=<=8=);0;7(+)[6 ?K69F8F8FC9[7K69J8J8JC:K78B8!K6< A< Q< [0$$:A$-$"+1[8(PB??:(:R:Q:A:ZK2,BNO,B0B2B,GMVBN6N92C,]LX JQPIN JIK;JFJS*.CPM.CY/Z ZIZAZT\,SPRB\[T[Y["[-[9A2]$]JT PG]I2A6Z4ANCDEGHIKOPX 8?ABBJBMB B0B:B?CACSDP*E =H=P= A?>?]? ?(?0?9?;?E"$$GX$"*(Y18AI19DI18 Y4I1> 8 +DK; :K9 8K; 7K9 6 5+JK4 3888 2$$G =+J/1: 0 /+"$$G% =+S+ : / 0K; .K-/ ^ 0 //, PF?JA9DXSHR8DD0DN[EPEQ^H^VNG2JF9XXXWS,$$E T*O *(K? ;K? :K? 9KQ8 CO> *3K= 8K? 7K6 5KPCR>(*=K? 4K= 3K? 2KSCR> +EK? 1K? 0KPKO> +MK/ .K? 5$,/-??????8E$ < E\<2E]E^STST/T?=3/3032?=353638 MP? TS?FQL6:NUMLMTMRL8OS=AOQL OUL%LZO$(* Z]*XIS >88J,ZQ.8XEK= >NDC: %WC:$%IL[?I18 [>H4Z5"6Y,I XJJ5 =HRY,K */S?S>Z5*N :S?S>H9 9K?=9D8FY)I)K8 7:HZY,8 XJI)H4 =I)I]> +ZK6Y,8 XJI)H4 =I [5Q)I) 4+): I)8J>X9VI XJI0 =S5+\.6I/KDAG>(*5I;Z2DAR> 2 ,X; Y$0A*T0B: Y2I8<(Q *IQ(*II=Y I>Y(2J,&<(L2>($2.NK98*U: C"X*T2,*Z2J.YVY"80DY,T+<<(+<[!N Z 2L9H8J2L[PJ 9DAEH4Z69UB H5Z N HWXHD0C?H+?I$9D=H,XAEH4[PI$:H5Z N H: \HI\HH\HI"\H[!,X,SA4 +?0\0&: Y9L2>($2K!> *<;8A8D: A"2$0A,X Y2H]X\$$R2A$$S>$ <7P4<.QA<5Q<-S =>P=1X+=.P-=;P*T$$SZ$ < .Y/$$S^.G$$Y5: Y : Y(.G$ EI.Z82AM/Y:9VI0Z>2C-:8 Y:$ P*MP6I0[KI,IBY:2AM:>(, /E2LHP[=I:< +0EI.[]I/8AY:(*?I78!J > *52L8!J>(*8J I!,GN 0AZJ2A: Z&.C: Y82LZJ Y7N 0AZJZ&2LH4ZM2A9VJM^D&E.FJJ> +X$$TO+Z$$TR$$TUI7AYZK"LNK2A$*$$TZJG\$RKJK^H"L.I2A$$T]J9H8J$)$$T JKIAXK"LLK$+LKXK2A$$T$I7AY8 HKIH$+$$W:8AI7XK ?LK$+$,IP[9Y$,I [L[KO>>(*2SKCD>DAB> *2SL* : [L>DAC> *2JZ[99VI7XK ?LK8!HKXKYI7XKO>> +CO=>(+AR+A$$WMKK$+$,0BY80B>DAD> $2DACI\> SR/RLK<(+1[6IO[7J,U0GY9Y2K?XA > = < ;: :: 9: 8: JIHZ(K7Z*2K.YLGY&Y8HCXA$2,X0&Y2$$X&$[*EPFBLA.$$Y3$"+ [.K.8!I1?H, K.9D8FH4[,$, Y:$-+M:2A$+$ =3PM=6YIYLQ::P+U: $, [.$%+K.]:2A$-IK$(K,AE9H8J$)I:$+*>: $ I0[,$, IYI,Y:$,+U *:8A0Y*0^AXIH\-L-I6< *02C,UI^<(*6I!> *8$,*:L-$(N R <(+C=+KL-> +H\$N Z L$. :R *::L-IU=+HH>=H+H+C=IL$(/T0ZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/"Z7;:AJ$(J8 [TI $(ST+5/-BM;4AK$(IK$(/9[6Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;2A.N)8!N*>(*J2TH4Z2A0BN(>(*%J+X+ M5U5SH*<*:Z)2LHPZ Z9KI> **8 [I: Z)K="I*LI^[HI\[GKJZQKJ[EKK[F.9?D?N0B[I(D"9K>Z9 <: [I: ;: Z) 8K] :/9?:TIMERA-J FLD ET: *NO CHG JDEC/X8 TIMEOUT%1%Q"B" ,"""^*^-"4J/^0J1^2":/?"4J3> ^0N0>(*SN28!J1> *J":8AO>> /?"4N0XL =HL<(**8!O<>(** ;$$ )HL$*$, :":/9 =J.[5[4+ =S4S59D=H8A8H*NI! >"$&0B2B$0Z"J"AEH4 =J"AY <2AL6]XN! ;8! :/9A%2A0BO/>(*- ;K8(D8 / 00A ;$$ ^O7$*$$ 2T9J8H$)$$ &K+0BO6[,ICO5[-H=O4[.0AK.$)K-SK,S$,K- 3.$[& ;$-K&K1=H+]W;+XK2IL[&O;IL$(K&$(/S2A / ;/& .$$ ."=%K ="4$*KZ="4$*K8! <"4$"*K>(*2$-$!*K8 [7(P$*$,KN$(SN$-.4A.A/$"*KN=[/R=O/.=1Y1[%N%Q%]%)%/%1%)CE1Y/NJQ: 1X:K;1[1]:K81Z:/QK;1[1]:K91\:K:1Z:/]J=1 8:/)%L//1]?H/1.L<0HF1/$%$$/2K0$*$$HC$ <0HF<;1/.Z: ?>H, K0Y- >I*[ I.[*K12K 1: I)8J>P;$I!XK =H*/O< ; =+R ,K:& 8S82A*6,[8K8C7> +O[9PK*6AA?:??BQ5A4?4RR9RG< WLH >WLHXKHK >WHK>(/=Q% <2L<(*%K;H4Z!9VI.K7XJI*8AWI)=I[SLH<(/5[7LH > 4\(*M8G*W9VKBI/[B >OBBKK+ B2AQ:*DQ0*CB* HDNLH[BQ:* Q0*^B*355NLH[BQ:*+Q0** =I)],I,H?XJI*\JHJH:XJI-\JI-/<2(LH<(/BSBY0OB[K$$HSB/B2DLH[+K+$+IN$($-$ =33 3[: $+S[++VLHY:/N2LO[*KB ; = :8GG8S/4VH4ZJ9VI.2A =IS <2AW;.Q.M/X:[: 9Z=J=K8?(*^S:8 *TK:> *UJ=IY=H*(> .R*;: 9Z>J=J>Z?J?KA[AJ=9F8F8FJ>[KD;< ZO"I0B2B$1.R?=K?Z $$6A$-$"* [,; [+ >K-[.K1XN$,K.$*$-$!*2<(+9D8F\NS.*2[+\N(PZ"; Z^I!Z +O;$Z^I!Z +OZ^Z "R; 0BZP(DRQ8JO<(+\ZP(DKT(DZQK+>(+MK/ =/(+"/(/?*GJ >O=>(*XJ =>(/?N1O /9R0*X 8/?G8?PX G8AXEX(BBHBPBXB B(B0B8/>$$=3O* 1O) /O( -/>K &K% $K "/K0Z0\LFLOLXL!L*L3L CONSOLE KEYBOARD ECHO ADDED IF TTY IS OPENINPUT VIA PS/8? HSR?CONSOLE READER ASSUMED.OUTPUT VIA PS/8 USING FI E BASED DEVICE? HSP?CONSOLE PUNCH ASSUMED.K- Note: Lines longer than 256 characters were wrapped