?>2CB H "B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BB\H(A 2J,F?!2IC(??>G??=?HHR>P,^,+CWHJH3> P,,,BHFL,?0C?I7[KNG?BAB5!??B?2A=1?A?C7C[?4?=?72A?;2B?9J(DB;B0C,?!,F2J?)E?&? I ?1D8>GBJ==FGJJ+>9>;G8??/?.?-?,B/H^BMKDB?HHLJ<>EI0EXB H+BD4?:D<;P"\OIC[JSI?OIC9J8JKJ8J8J SI80Y*;0\C2K>> *;2C.[>2LJY[ANBQK;Z08HNR=H+9BG8 [=NR[IN>( RR(/0LZ0R0+.K0[J+6K<[JBZC^A?0I+)0J[ *L2C.8OGA[HSG?OGA9J8JKH8J8JASG8*92LJJZ?NBZK7Z08HNR=H+5BP8 [9NR[GN>(S9.\J0> RR(/";&Z0[HSH+/R0+/K//"BZA?0Y+)0^/";X*=2AC^?=INJPLH;XNBM8 Z22LKRZ0NC2K7ZS?RNZ3RN(JF*+N3"4N3B ZSR3KK0\K5>(0Y+T2C/K61+K63+Z;X*0S8/I;$JF[8K8IK1[8KE[%IK8C,>(.4G+&+\+9+]> 8.4?3A=>]2AK4[8J&I+;> 2>2LKEZ2NAB+KNZ=;XNAC?8 [MRANA[LRARA*,>P+O"(+=OL"5B [SLPRA7[RDA? ?=D<\RDRDRDRD>JJZGJD8 J8Z!;ZJ!Z$2LK5[- JTJT7+J!8(BOJD8$BB7Z7"JAH+/7 +GRG+QZD;X+,7!BIRN+S>(*57)7%+X*57 Z2C,X >")>")Z<6")JK??")J%??")J???")KY??")^P??")&P??")6P??"):P??(+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\.UXMXY?2I"+: *M>D8F?H*D$$P72AMX$+$,*DI?9HY?J+H:Z+.+ROTATE $QO&\JO(\QX O6$!/79F8DXH =QO+Z$O-Z&O5O+I^XJPJ+Z =RN ?: > =NK<[;I18 [:K;2I2B 9+GO8AEY0I19D8F8!I0>(*$I0H>H4Y0O7H?XO6Z+[;S:*S2IR.2I$ =3SVY"/OI18 XHY)I Y /WQ)2II)2B 9/0O2K/Y(O6Y.O7Y/O8/ P].JA,?CC?3A.A/A0S/CBCA?5TBTATI18 XK?XIH4ZJZJP*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: $ <,QD<(WW<)WZY" 02C// 02C-YIK$(O.AE9H8J$)$-/]$ <.]\<5][Y"OC>EQ0XPXHX)GCAXG8X=C<[H*>I9D8FAEH4Z"Z/I8D: A"*6*5D8F2$>P24I8D: A"XIK=XJLH\IPJ*G *S.Q 62B& "H8**2C/5SKSKSKSKKKK4Z>[KN>Z N 8J8J8J">N ">R *22C.=>EC3<(*;K2=HK1K00&0!+G:.>J5J>KGKPKYK"K+K4K=LFLOLXL!L*L3LESBT5TIR"RIR?;Z!=?\H\N\^\0HELP!INPUT ERRORERROR WHILE WRITING OUTPUT FILEBAD FORMAT OR CHECKSUM - TRY AGAIN.LIBRARY DIRECTORY OVERFLOW - TOUGHI[I$I-I6I?JHJQJZBLA.BHLI.HP3L3A \3Q4+PW?W>2C/ZXZ8 XJ = < ;[$HJ> +((+.2AHJ :2I2B 9Q + PHBGBPBYB"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/5<(8 Z7N(8J8J8J"8N("8R(R7*,.(C4< K3=HK2K1 0//.8Z(XPK.[ Z8O <(/B9J(6]Q?/O E>O6A[!/>:X]K=XH2ALHXXHX9K<>P ;ILHXULHXYPHLHXZ2ALH<(+UZ4LHZ5LHZ6LHZ=LHX[HZ8 HHXHLH<(+J8!XT2ILQ9!HU>P+I;& :J=>(K9K8 7 :HWC<> +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 OOQW =HRK<9H*O&PK;<(*Q8A<(/:=HK9K8 =.WK7 =K6 =.<(.(ZW5 4J9F8F8DC3 2K1 4J8J8HC0 2K1 4JC/K. 2: O5 5.([J -J/S?>B?8?>?>?>BB?>BBBBA((L29(X("(,(8)H)W)%)22UBAFG /!BO 8!VBJBMB^A3?!CQ):B? 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 ERROR& 0&0!+<:/: > = < ; : 9 8/7K6ZPO5<(/7 4AP+BK)XX (: &/%O$CK"XPLP? !F/GKY2A 5K K^ ]2K/Q>B.(>A.B]Q?/O>O-C.!:-8A?:B>G.VQ&RM>&^?T:AXQ]PA/>QRRRS !-\ZG >2B =BH:/< >O;X[K:XILI<(+Y\HHH[[ 9LIX\H\<(+U9!HXHY>X+SH\\H: O8 8H[8!HX>(HZ>( 7H\8!HXXXH\8!H[X[HH8!HWHWK6?+MW5O58A 4O4K3?/2 1K0XH /\HHX\H\H\HHW\HVF*NO.<(/-*K, +: K[XH*/LI*0ARE YOU SURE?HT8!HU>(8AXZ/&/].:BT;5?.Y.T?96B.!95V 64K:D:A.U>G/V ? > =: Z5Z62C.:R5*RIHZ7K * N7C:Z8J78H>X*!R79J82C.I8 Z68 J7Z7*]Z6N7C9Z8R7N7C99J8JJ88J8JR7* UPON ".", TYPE "SAVE (DEV) (FILE)" - - -I-O ERROR IN ^ - CONTINUINGNO ROOM IN ^ - CONTINUING>B>A(>"G?,*0D >$/B24UZZ$O= ?A"8.^: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?0SOO?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*030SGK!0A3DT08TC?8GJ!0A2DT08TC?8GI!0A1DT08TC?8GH!0A0DT08TC??FH TLP45L6?BAHPHRPT33KS?>BHPPPT33KS?>AAJPHRPT8EPT?>AHPPPT8EPT?8?-7>KCG7=X,H-< *&%7U<<(-6X*%7<( QH*8D9XX*I5XOI4X"LO8!H*>(*!P"*UHO?-6I3*RH"I2%1%7U<%0<(L"<(-/8$>PI.I.[AH!X L!H,> +Z%78H=P-/8DA-[B\[C2B%=-,I4X$H$%08 KB9XKA?\!\8!KC> +XL"A+KB\!P$+GL -*L"9F8F8FA)I(/\A)<(- X*H*I&X"H*I%X!H*I$X(L!/$&Y/S&G&F&E&D-T P"T T9"R*K"=*PH%8!M%1U *PL(?.RRR:A[3H)A+9F8DK38!HG<(*88!HGXG;X,M!X+I XO.RLO>(+\: HOXOI X&H$X H %^8!LO> +YP P&+H&LO<(+]8!X&R=.=H&8A&LOH%X%P+*>X%M]< *).=M 8!HOXO/&I\[12B$)"HLA-[/,BKBJBIBHDAHGJF;&[;K87<2C7?9DB [97?[:*&ZJ [<79*P7>B*K=> *PK:?*;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/-?&?]? ?(?0?9?;?DC? >G)Y9Y2.H:DC? >5?$$G1 =*N*[$$GO$!*S9F8D >E^$$GU =*[*($$GO$!* 9F8D >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$,/-$ < 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>H>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(*I,&<(L2>($2.NK91B*U: C"X*T2,*Z2J.YVY"8H2\Y,T+<<(+?[!N Z 2L9H8J2L[PJ 9DAEH4Z6H:B H5Z N HWXHD8?H+?I$9D=H,XAEH4[PI$:H5Z N H: \HI\HH\HI"\H[!,X,SA41A +?0\0&: Y9L2>($2K!> *<;8A8D: A"2$0A,Y2H]X\$$R2A$$S>$ <7P4<.QA<5Q<-S =>P=1X+=.P-=;P*T$$SZ$ < .Y/$$S^.G$$Y5: Y : Y(.G$ EI.Z8(, /E2LHP[=I:< +0EI.[]I/8AY:(*?I78!J > *52L8!J>(*8J I!,GN 0AZJ2 : 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,U8Y9Y2K?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$(/TZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/";:AJ$(J8 [TII$(ST+5/-;4 K$(IK$(/9Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;(*J2TH4Z2A0BN(>(*%J+X+ M5U5 =K< ;LV :/9K8 7K6 5/4 3K2X3H 1H 0.M: I1> H>K/ZMJM .JM -JM2I ,2A: I1>(.VK+ZMK*2QXHXIIHHI\HK)HI\HK(HI\HHIH>XIRM*/2A.V(N[( D:8IZ8:L:4 A,YL78BL94DHD8L80HDPPCDK(8:HH<8B]D[<$H74$K,$/ =D+\\D7\+DI,ML$\OHIPLH(PK<(RD2( HP0K0,(-L+LK$0HH>*,6H1 >D*L6L2HKLK8.H D*DK,3L2KH[(1P$HKL2V <*,42 IL0VLHP*K$2DQXH<(HL4HKHKL4HVH*H8,ALDTKD9,TD5<,?5D8H[(1P$HKL5V+LH:L), D0.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?COCMCX5A4?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-/H4ZJ9VI. *UJ=IY=H*(> .R*;: 9Z>J=J>Z?J?KA[AJ=9F8F8FJ>[K> K? >K= <$$;U ;*X*/I1>(*XK: 9K8 7O6C5IQ 4K3 6/2$$;^ ;*X*6 1/2$$;/ ;*X+C 1K0 /NF .K0 -+F$$;" 1NF 9O, 7NE 4/20Z"\ I[C8F8FC OI IKJ8J8J8HC KCSI< I*P7TJ0>(/0LZ0R0+.K0O+. 0C0B(*K> =K< ;O:C9IQ 8K7 :O6 5*-$$ CONSOLE KEYBOARD ECHO ADDED IF TTY IS OPENINPUT VIA PS/8? HSR?CONSO E READER ASSUMED.OUTPUT VIA PS/8 USING FILE BASED DEVICE? HSP?CONSOLE PUNCH ASSUMED.K- Note: Lines longer than 256 characters were wrapped