?>2CB H *, L:D DK<0H/8OC$5HQ4 DK<3H.0OH <+H>P$H<\/H;\*H<P$<<3L*D DO<)H/ OH <->DK< H&TK ,$HH L/KDZ00I9<"D/8CH.P%H%P.$<(L;$O\ ]?8IL3L8L7X3L1LOD58NL2LKL2< L3L10$.L30/DHHED. A\.\H(^IDH48* $=L]H[DK,^L30KXDK,^L30KLX$OV< 80!HO24+LW ?L4 *AD"X3L\%EBT(H^XBBH DRGTECOSV?4MRI08AAF]F%LTL2MRMSM"NTOO[O6O>P8P>QLQ^Q8Q>R1SKS;TEWCY+\ ](]9...6/K/U/Z/%/(0B01*4J5(L=MEOCQ2Q4R+SDTJTXUDVJVRV^WQV*WQV4WQXXWQX)YR]00E0G0I0K0M0O0Q0SAJTK%0%071(A;BJK/K;NOPGTXX,Z]L]/.LGNPV.?=FPP12BN?=PRNTERBN?>DX8MBBN?+J7P*17A3J6TL19A3J5TL1:H[??EXTSYMPA?<<>PESV(Q?GTECOSV?4MRI08ABN?>RANMRIBN?>OPRATE?>NOTFUNBN?>EAEALLBN?=EAEDPBN?>RK8EDSBN?=VT8EBN?=MULTTYBN?>HSRHSPBN?>TC58MTBN?DX8MBBN?+J7P*17A3J6TL19A3J5TL1:A3J5TL1:A3J5TL1:TL1:TL1 R[$-6?AHAQAZAA,A5A>BGBPBYB"B+B4B=CFCOCXC!C*C3CKGKPKYK"K+K4K=LFLOLXL!L*L3LBGBPBYB"B+B4B=CFCOCXC!C*C3CKGKPKYK"K+K4K=LFLOLXL!L*L3L =2C.FM= =")>")Z<4")JK??")J%??")J???")KY??")^P??")&P??")6P??"):P??2C.(XT2AO<8![;2IJ.Z=N)[:R)N)[9R)K:[8K9[72AO8(+GZ=*7$$OP>DAQ> +Z$$OU+\$$O*I18 [;Y)I Y Q)2II)2B 6J/?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 CNTRPKM.CRCKW N&\/]KN CCA0A-A,MQ>DAH>(*G2C.FNK2A\.O?Y?I![,2II?9HY?:6&8MBI?9HY?^8LAS,*N>D8F?H*D$$QC2AO?$+$,*DROTATE 2AO=+M2AO<2IXH$ =3QTY*,K;XII XJLIX2ALC:HH\2IPJ+Y 9Z<4(PO9\TO;\]X%2AO([2O)[4 =RN ?: > =RN[(*$I0H>H4Y0O8H?XO7Z+[ZJP*JJ[>JA[=!ZX2I\IJXH>ZXS<*X!H>Z&2ILIJ&H>Z&J&8!JX> *2H4Z&S<*$S>S=*VI18 [(+FH>Z>J>8!JX> +PH4Z>S<*>.B: JXHJA[;9LH *KI<(* K>>(*7(/=KQC:K9>(*, +KQ=K6[5/5KQ 4IY> /3KQ=K2[5/5KQAE9H8JK1[5/5: $ <(WZ<)W]Y* 02C// 02C/.IK$(O-AE9H8J$)$-/ OK?OC>>E]MXPXHX1GCAXG8YEC<AE9H8J[=ICZ7I8D: A"*>*=DAR>(: 2$?H24I8 : A"HP0CPA-,4?1HA2LHQH3BT2KH /M0C?B$J0EH0BW1O?K?2H L]O&ES=O\]BQD)2"O\]=HAD83-2EAM.NF&H 5QALD7I CMD83/HP?>I CND83I<"3YH M Q7-[]7QA]6- EAM\NF&H-H PHC=H PAEQMWNHM[QA]Z-Z]7]6QAS=S=H M6L0P0W01F&H 9NP H 91CMEBHNM0G?L0X5/H^H^M08$$W*$ < ]UY* ?/M8 8 XJ > = <+-I0[HJ> + (+-2AHJ ;2I2B :Q +\PH+32C,]I Y I)H;Y)+\EQQA:S SWSOQ,3^?OR>FEH D(6LB^6F3^B%QXH1H]H]M08H17AH]H]H]H]H]B^61<%B 6,<-;8>OSFE?1H0G"OI.F&H]D)71H]L0 D772W"H-D7H]B\7&;?B 7YV"L0A7?F&I 53^FEK>XQK=XPO=<( < =LP<(* C;\PLPK:Z(;VHPXRN(? 9FPPLP\Q:A\PPPPQ*IK>XQ O8 7 6/5<(8 Z7N(8J8J8J"8N("8R(R7*,.(C4< K3=HK2K1 0//.8Z(XPK.[ Z8O <(/B9J(6]G?/O&?>O6AX-/>:XVK=XH2ALHXXHX9K<>P ;ILHXULHXYPHLHXZ2ALH<(+UZ4LHZ5LHZ6LHZ=LHX[HZ8 HHXHLH<(+J8!XT2ILQ9!HU>P+I;& :J=>(K9K8 7 :HWC<> +HHT 6HZ> H[ 5 4HTHUXUPX*VHY>(+*HHC3K2*ELH8!XT2IHTHVXVHWC1>(+IK0 : 7HT 6+HPQHV /*VO? = <"& ;+L<(*FKD> *F ;+LKD<(*MJUXQHQBK:<(*3K9C8> *F: "&PKD> * : "&*F%M= 7?HK6K8XPJU 5/4PP*-.&K3 2: "&HQ8J8JC1K0XPLP= +[<(+HXPP>PP+C*7P 5/4*"& //4/.$ HQ 5/4 ;+YXQHQ/P -G9H> -HP96HQ9T+>I?8:>W?9]GXSH IOQW<(*W=HK=K< ;.KK: ;HRK99H*UK8 ;K7 ;.<(."ZW6 5J9F8F8DC4 3K2 5J8J8HC1 3K2 5JC0K/ 3: O6 6."[D .J/S?>B?8?>?>?>BB?>BBBBA((L $(X("(,(8)H)W)%)2OUTPUT ERRORBAFG /!BO 8!VBJBMCQB]PB A?!? ROOM FOR OUTPUT FILELINE TOO LONG IN FILE ERROR DELETING FILEINPUT ERROR, FILE CAN T OPEN OUTPUT FILEDEVICE NOT A DIRECTORY DEVICEPREMATURE END OF FILE, FILE ILLEGAL BINARY INPUT, FILE BAD DIRECTORY ON DEVICE DIRECTORY ERRORDATTS1DIGIT > = < ; :/9K8ZNO7<(/9 6AP+LKXXHT8!HU>(8AXZ: " !/ BLXSETBN, SETBINXT-N.!:8A?:B>G.V>B.(>A.BQ&RM>&^?T<]G?/O>OB>:AXQ]PA.;>QRRRSZG >2B =BH:/< >O;X[K:XILI<(+$\HHH[&;&HWXPLI\HPP*WO:8!HWHIXILI<(+ X\H\9!HXHY>X+^H\\H: O9 9H[8!HX>(HZ>( 8H\8!HXXXH\8!H[X[HH8!HWHWK7?+XW6O68A 5O5K4?/3 2K1XH 0\HHX\H\H\HHW\HVF*NO/<(/.*K- ,: K&XH+XLI*;+,HX$\%D-C&/].:BT;5?.Y.T?96B.!95V 6:D:A.U>G.;V ? > =: Z5Z62C.:R5*RIHZ7K * N7C:Z8J78H>X*!R79J82C.I8 Z68 J7Z7*]Z6N7C9Z8R7N7C99J8JJ88J8JR7* UPON ".", TYPE "SAVE (DEV) (FILE)" - - -R - CONTINUINGARE YOU SURE?NO ROOM - CONTINUING????>B>A(>"G,5.=UZZ$O= ?A"8.^:OQ,>G?8 0DA9>P>ODA?Z: 7":KB7Z:7^8!KB>(*16A6AHT6:6%8!HT>("Y: .: ^8H(*(%4G(2KB%469G(BJ;XHLH<(.YX5KA\5**"Y%4:V>VA*: .%> )146;!%!/"F++I86*HRX5X66261K>K=++66:A>.CUCSCEBMBJCPB CECXCSCECRCVBMBJBJB CLB CSB:BMBJCMCECNCTB CCCOCRCPB.B,B CMCACYCNCACRCDB,B CMCACSCSB.BMBJLNP2SV(Q?)RFLNP1SV(Q?)RFLNP2SV(Q?)LINCP1SV(Q?)LINCP2SV(Q?)MARK12SV(Q?9PIPSV(Q?7CREFSV(Q?3DX8MBSV? CONFIGPA>GTECOSV?4MRI08A?>RANMRIBN?>OPRATEBN?>NOTFUNBN?>EAEALLBN?=EAEDPBN?>RK8EDSBN?=VT8EBN?=MULTTYBN?>HSRHSPBN?>TC58MTBN?DX8MBBN?+LLJ>V>ML>FA DISH[??EXTSYMPA?<<>PESV(Q?GTECOSV?4MRI08ABN?>RANMRIBN?>OPRATE?>NOTFUNBN?>EAEALLBN?=EAEDPBN?>RK8EDSBN?=VT8EBN?=MULTTYBN?>HSRHSPBN?>TC58MTBN?DX8MBBN?+J7P*17A3J6TL19A3J5TL1:A3J5TL1:A3J5TL1:TL1:TL1 DI, LH0"DK(>L<, DK<"H:DKH <9L8(?H?L4LV TE(-X HLD8*OL HHGJH(0LO0;H(^80H0 >*8SH2D8LJ81 (*L" :LA8OH>( LFP"DN 0LO4 LH0OH((*8H*\*H;P$C *HO($H$\,L:("/92A6Z4ANCDEGHIKOPX 8?ABBJBMB B0B:B?CACSDP*E =H=P= A?>?]? ?(?0?9?;?DC? >O> =G2Y9$$GDC? =G?$$GS <*O*[$$GX$!*T9F8D ;$$I/ <*[*($$GX$!* 9F8D =E\$$G^ <*(*5$$GX$!*-9F8D =E $$G!$"*5Y18AI19D8!Y4I1> 8 :O:> +PK9 8K7 6K9 5K7 4 3+RK2 1$$G) <+R+[: 0 /+*$$G. <+[+(: / 0K9 .K- ,+* 0 //+DN\0DN[ENEONI2KF9XRXQS,$$E(R*O *(K? ;K? :K? 9KO8 CM> *1K= 8K? 7KNCP>(*;K? 6K= 5K? 4KQCP> +CK? 3K? 2KNKM> +KK1 0K? /$,/.$ < EZ<2E[E\SRSR/R?=3/3032?=353638 PF? MP? TS?FQO^L6:NUMLMTMRL8O\L O L%LZO3(* Z]*XHP >K= M?:N^ZN Z%9S9TCA:DC:%WC:$%IL[?I18 [>H4Z=">Y,I XJJ= =HRY,K *7S?S>Z=*V :S?S>*6K?$($ =3IFIA 9K?=9D8FY)I)K8 7:HZY,8 XJI)H4 =I [6Q)I) 5+&: I)8J>PK4K4XJI0 =S6+Y.>I/KS/CC34C5B5L.?75CBCAJK<(*Z2B$R*Z??*+*W*+DAG>(*5I;Z2DAR> 2D?+0I88 C9> ,X; Y$0A*T: Y&,X0BI8> ,XQ .NQ(.NI=Y I>Y(.N,&: .MK3M:1B*U: C0X +?I8>($2+?<(+?[-N)[.2L9H8J2L[/K.9DAEH4[K.:H5[1O1HWXHD?H+?I$=H,X9D=H9PAEH4[[I$:H5[1O10"Y9+F$ <7P4<.Q<5QA<-S =>P=1X,=.P-=;P*U3$$SZ$ < .]<$$S^.G$$U6: Y : Y(.G$ FI.Z8(, /F2LHP[>I:< +1FI.[^I/8AY:(*6I78!J^> *,2L8!JA>(*/J^I!,GN^0AZ2A: ZC/?: Y82LZAJ^Y7N^ AZZC2LH4ZE2A9VJE > =/ +O$$TG+Q$$TJ$$TMI7AYZB"DNB2A$*$$TRK;\$RBJB :"D/92A$$TVJA9H8J$)$$TZJBIBZB"DNB/2V2J/5Y ^RD[\/]KUV.WOWCVR2A$+$$W88AO?XK >LK$+$,IP[6V$,I [I[HO=>(*.SH8>DAB> *.SI*: [I>DAC> *.K<[69VO?XK >LK8!HKXKVO?XKO=> +FO;>(*=O*=$$WJKH$+$,0BY8>DAD> $2DACI\> SO/OLK<(+.[3IO[4J,UY9K?XA > = < ;: :: 9: 8: 72K.SLGY&I=Y I>Y(Y8I]XHK6XI\IPH*^HCXA$2,X0&$$X*$[*CPF$$Y3$"+ [2K28!I1?H, K29D8FH4[+$, Y:$-*M:2A$+$ =3PM=6YJYMQ:8+V: $, [2$%*K2]:2A-K+AE9H8J$)I:$+*?: $ I0[+$, IYI,Y:$,+V *90Y*0^AXIH[VKVKX< */2C,UI^<(*5I!> *7$,*9KV$(N <(+A=+JKV> +G[WR N Z KW. R R *9:KVIV?H+GKVIU?+GKV=+A===IL$(/Y[VKV8J8HYKVY/^[WKW8J8J8J^KW^$-/ ;:AJ$(J8 [YII$ SY+:/2Z!2LH4Z 2A0! *T; ^"J!0&: +C$,.8JI[?HIGIHJ$(.8:2LHP[(2AQ3+ZI4Y3H3Y5Y6+\Q5Q6M5> ++I6ID9H.L<0HN]<$%$$/0K.$*$$HK$ <0HN.X: ?>H, K.Y- >I*[%I.[(K/2K /: I)8J>P;$I!XK =H*-O< ; =+P *K:$ 8S82A*4*[8K8C7> +M[9PK*4AA?COCMCX5A4?4RR9RG<(*DYLH >YLHXKHK >YHK>(/=I-8AY% <2L<(* K;H4Z9VI.XJI*8AYI)=I[ULH<(/5[7LH > 4^(*M8G*W9VKBI/[B >OBBKK+ B2AQ:*DQ0*CB* HLNLH[BQ:* Q0*^B*3HGNLH[BQ:*+Q0** =I)],I,H?XJI*\JHJH:XJI-\JI-/H4ZJ9VI. *UJ=IY=H*(> .R*;: 8Z>J=J>Z?J?KA[AJ=9F8F8FJ>[K> *;2C.[>7O2LJY[ANB K;Z08HNR=H+9BG8 [=NR[IN>( RR2K.0V0Q+EC /C4C?;KJZ"\ I[C8F8FC OI IKJ8J8J8HC KCSI< I*P7TJ0>(/0LZ0R0+.[K= <$$< ;**WI1>(*K: 9K8 7O6C5IQ 4K3 6* $$(* K: 1K0 /O.C5IQ -K3 .O, +/>$$$$<3O* 1O) /O( -/>K &K% $K "/K0Z0\K8 9HV; HW; HI; HK; HJ; //C^.%$%.$$(O;O9\]H?IN3837361O35N^2K32 ?3130.I3/ZDD83^*DR>I JED8::KH+&B\D7;&F&H]H]L0 D7;VHPA &+&R>PM;&F%H8F&0O\EOIPFAC!+4)=QAK4NNH.0F&HPXE,E/FE0HPINPUT VIA PS/8? HSR?CONSOLE READER ASSUMED.OUTPUT VIA PS/8 USING FILE BASED DEVICE? HSP?CONSOLE PUNCH ASSUMED.FE>XCHP ?*CP-VF&HNOZCD)=OHN*CIH.\I NB =H=VX] MZM[X] BM M X ;P/P6XCX7/5M,DX (M1M2X]76M6M7P6M9\X70M=M>M?HR<)H"1IAI\.[$HH\HZLEB\"HYXEBH D&0GDLUH90BBXAB