?<2CX X P H Z$O= ?A>G"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$(/TZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/":3;:AJ$(J [TII$(ST+5/-B0;4AK$(IK$(/9Z:Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;2Y.N)8!N*>(*J2TH4Z2A0BN(>(*%J+X*!K.C,IH[.K.C5 7[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 -HZOPRATEDIKAC-B2Y.I2B$VI????JO<(*XZP(DJR(DR&.Z"RIYZ&.ZUU?3ZQZ%J"ZJ"Z$8PJ%8H8FR*/8D8JR$*38!J%>(/?/=()8));0;7(+)[6 ?K69F8F8FC9[7K69J8J8JC:K78B8!K6< A< Q< [0$$&A$-$"+1[8(PB??&(&R&Q&A&Z??\NOTFUNDIKAD-B2Y.I2B$VC????Z\>D < ZO"I0B2B$1.R?=K?Z&$$:A$-$"* [,; [+ >K-[.K1XO$,K.$*$-$!*2<(+9D8F\OS.*2[+\O(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 BBHBPBXB B(B0B8FXF0F8G G8<1;T;H:";B:!;,: ;%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$(/TZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/"EN;:AJ$(J8 TII$(ST+5/-B2;4AK$(IK$(/9Z:Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;2Q.N)8!N*>(*J2TH4Z2A0BN(>(*%J+S6S4* =: C8[5: C8C49D[2: C88 C48 [3: C48 C88 C38 K28!K5> S4*. =I][2K^[3K)K^[3KS2+MW?8 =*A"3V\&()^&&& &R& &QSCARD8EDHCRA-A2Q.I2B$VA????Z\>D;< ZO"I0B2B$1.R?<2AL."I[9Z^RQ8JO<(*1ZP6]*L6 Z J 8F=H+3R^8D?*= ?*LK9>(/>6Y+U6\ZJR>(+MJ^!JHNXN+ N!Z"J8!J"> />+ 69(+!K8HNR^> />ZRK7[:6:88R!J!90K<>P*LK;Z!*L6:8*L;6]K=*L????8&968L8 8Q ?*M;VO>> *H6:*F69*HO=> <; <"Q(DO; :O9 >XNH:0B6]6Z:6?6:8.Q6]K6/8$$6A(P8B6L776!7;6R797:6QTOPRATEDIKAC-B2Q.I2B$VJ????JO<(*XZP(DJR(DR&.Z"RIYZ&.ZUU?3ZQZ%J"ZJ"Z$8PJ%8H8FR*/8D8JR$*38!J%>(/?/=<=8=);0;7(+)[6 ?K69F8F8FC9[7K69J8J8JC:K78B8!K6< A< Q< [0$$:A$-$"+1[8( B??:(:R:Q:A:ZK2?]? ?(?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:[92AOG2Y 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*7D8F?H/3/JDEC/X8JOB MODULE MAINDEC FLD PRI STATE CNTRJOB FLD CNTRJCM/CRCKW]N&\1]IN CCA0A-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-YIK$(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$(/TZIJI8J8HTJIT/YBZTJT8J8J8JYJTY$-/"]H;:AJ$(J8 [TII$(ST+5/-CB;4AK$(IK$(/9]FZ 2LH4ZS2AL > *U80!N(> *J; ^(J 0&;2I.N)8!N*>(*J2TH4Z2A0BN(>(*%J+2C/ZXZ8 XJ = < ;[$HJ> +((+.2AHJ :2I2B 9Q + PHX*!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/> 6]Q?/O E>O6A[! ]CUK\[RKR"U*AKR.OPKOSP8JPRU.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 -K0 : 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>G"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*030SKOPRATEDIKAC-B2I.I2B$VL????JO<(*XZP(DJR(DR&.Z"RIYZ&.ZUU?3ZQZ%J"ZJ"Z$8PJ%8H8FR*/8D8JR$*38!J%>(/?/=898 );0;7(+)[6 ?K69F8F8FC9[7K69J8J8JC:K78B8!K6< A< Q< [0$$6A$-$"+1[8(PB??6(6R6Q6A6ZLPRNTE DILPA-B2I.I2B$VB????Z\>D;< ZO"I0B2B$1.RCG2L"IHPZ<61*4S]*;62RQ8JO<(.^ZPO?>(67*LO?>(63*R =X (65K8Z^; []66(D<; =:=/=8=7=6=9\;$K8>P*TK6[4ID[X*2ID[H*.S4*"ID[;K6[4*"\S *A[4; K4[4K4[3K1[;TS3*?\K48!K7> *8S4K4[3K1[;TS3+M\S4+I*AKT ?K;66: >/=IJ[;TII[;K/[0T[;S0+$K:>(/\K2[;T/\??B*N?=?]? ?(?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/K;-: +KDAG>(*5I;Z2DAR> 8K4Y$K5Y&K6 ,X; Y$0A*T0B: Y2I8<(Q *IQ(*II=Y I>Y(2J,&<(L2>($2.NK91B*U: C"X*T8*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>2[-:8 Y:$ P*MP6I0[KI,IBY:2YM:>(, /E2LHP[=I:< +0EI.[]I/8AY:(*?I78!J > *52L8!J>(*8J I!, N 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$(/TXZIJI8J8HTJIT/Y3SZTJT8J8J8JYJTY$-/"Z7;:AJ$(J8 [ II$(ST+5/-BM;4AK$(IK$(/9[6Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;2A.N)8!N*>(*J2TH4Z2A0BN(>(*%J+X+ M5U5D;< ZO"I0B2B$1.R?9?=SI+C7%R**6"IZ 7"K?*L9D> *.8 [IIQJZKJ7&J(7*L2LHP[G[I(DJ%=Z%J"8F8F:$Z*J"ZJ"AH9HJ%OKSKZ%J!AEJ%Z%J&9AZ(IQ8DJ%[J: 0B[IJ$7$J%7&J&7(D/KJ)/:N=!]!OR\8J]J 9D =8!O<>(.!"VO>BZ0O;[B B : 5 7.!8!O4<(.! 6: O3XLO2AEH4/BO1AG>(IHIHO> >O0C\> 79(// ?O20B2B$//]&^ ^%^!^$^"^^Q^R^(^*^)0RZ^^I ? >>D8H>X*[ 1= =O=KV?H*FO=KW? *F 1 P*[OP*Q .CY<(*!AHIQKE ; /O?AY : 9 8Z*8*BO4CT>( 5O4CU>(SS*8+D 7 7??Z!F 8[](W68A7"/3*[ $I 9^ ! K^I!B L^$^"^&^%^Q^!O?8!JH>(."I*ACG>D8J:PO?<0*U> >0B2B$0 ?.IO=.W$$^AIOZIE8A S>(/JSJ$-$*\/J%L$,JI$($-$"*\:RI/S/$I$.$W1,^&^%0 :^)WV^"!]^!BRANMRIDIKAB-A2A.I2B$VD????JO<(*XZP(DJR(DK?Z]$$&A(PZQ 6 :[.K. ;*!;K.IR>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 0K8XMK3/-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 -HH^X\$,$$HB$ <>.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.2Q =IS <2AW;.Q.M/X:[: 9Z=J=K8?(*^S:8 *TK:> *UJ=IY=H*(> .R*;: 9Z>J=J>Z?J?KA[AJ=9F8F8FJ>[KPJDNE8 JB8 > *>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 6QDNOTFUNDIKAD-B2A.I2B$VG????Z\>D;< ZO"I0B2B$1.R?=K?Z&$$:A$-$"* [,; [+ >K-[.K1XO$,K.$*$-$!*2<(+9D8F\OS.*2[+\O(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 BBHBPBXB B(B0B8FXF0F8G G8PUT VIA PS/8? HSR?CONSOLE READER ASSUMED.OUTPUT VIA PS/8 USING FILE BASED DEVICE? HSP?<1CONSOLE P;T;H:";B:!;,: ;% Note: Lines longer than 256 characters were wrapped