@CAT,P 1025-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1025-001-001,,,130206053241,000 )@@G@@**PF**@@@[DC@@@@@@@@@@@[@KK@@@]FE^U1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[O@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@:@@@@@@@@@@@@@@@@@@@@A@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[Q@@@@@-@@@@@@AD )@@G@@@@@@@@@@#@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@(@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@%@@Y@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@V@@@@@@@@@@@N@@@@@@@@@@@U@@@AF )@@G@@@@@@@@@@@@@@@@@@[I@@ @@@@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@@Q@@@@@@@@J@@)@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@X@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@AH )@@G@@@@@@@&@@@@@@@@@@[P@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@[L@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@?@@@@@@@@@@@K@@@@@@@@@@@D@@@@@@@@@@@@@@I@@@@@@@@@@@=@@@@@@@@>@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@AK )@@G@@@@@@@@@@S@@F@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[O@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@E@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@[N@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@[UAN )@@G@@CSF @@@@@@@@[@@2 @ @@@[]@@@@#@@@@W@DTF^ EGRAB AO )@@G@@@@@@@R@@[@@8 @ @@@[^@@@@ @@@@W#DS'^ EINFOR @@@@@@@@[@@'AP )@@G@@ @@@@@[]@@@[$@@@@WCD,0# EOP @@@@@$@@[@@" AQ )@@G@@@ @@@[]@@@@4@@@@X\DMN^ EPP @@@@@@@@[@[[ @ @@@[^@@@@CAR )@@G@@@@@@Y^ EAS )@@G@@PUNX @@@@@@@@[@[A @ @@@[^@@@@N@@@@Y0D0%# ESEQ AT )@@G@@@@@@@@@@[@[D @ @@@[^@@@@ @@@@Z#DR-^ EXXRF @@@@@@@@[@[GAU )@@G@@ @ @@@[^@@@@A@@@@ZCK*NBXEDCT @@@@@+@@[@@3 AV )@@G@@@ @@@[^@@@@C@@@@ZIG!< OFPSRABS @@@@@@@@[@[^ @ @@@[^@@@@NAW )@@G@@@@@@ZQHYY OFUN @@@@@@@@[@[F @ @@@[^@@@@S@@@@Z(A-H RFAX )@@G@@TOCX @@@@@@@@[@[E @ @@@[]@@@@.@@@@)[BB9ADFTEST-RUN AY )@@G@@@@@@@W@@[@@@ @ @@@[[@@@@ @@@@)"G"#B]FTEST-RUN2 @@@@@@@@[@@@AZ )@@G@@ @ @@@[[@@@@ @@@@-#HJYBLFBPC @@@@@@@@[@@! BA )@@G@@@ @@@[^@@@[>@@@@-CEQI]UGCHKASG @@@@@@@@[@@0 @ @@@[^@@@@DBB )@@G@@@@@@+!EX!]UGIQUAL @@@@@@@@[@@; @ @@@[^@@@@C@@@@+6E+K]UGBC )@@G@@MERGE @@@@@@@@[@@. @ @@@[^@@@@N@@@@+"E>+]UGFACIL BD )@@G@@@@@@@@@@[@@6 @ @@@[] @@]@@@@#E/T]UGFN BI )@@G@@@@@@@@@@[@@7 @ @@@[^@@@@S@@@@>/E/:]UGIN @@@@[H@@[@@9BJ )@@G@@ @ @@@[^@@@[M@@@@&OE.@]UGLT @@@@[R@@[@@/ BK )@@G@@@ @@@[^@@@@X@@@@$&E.J]UGPDP @@@@@@@@[@[@ @ @@@[^@@@[CBL )@@G@@@@@@*#E.5]UGPRINT @@@@@@@@[@[] @ @@@[]@@@@C@@@@(FE"#]UGBM )@@G@@READ @@@@@@@@[@[B @ @@@[]@@@@A@@@@(NE"V]UGPUNCH BN )@@G@@@@@@@@@@[@[ @ @@@[]@@@@A@@@@(TE"3]UGSAVE @@@@@@@@[@[CBO )@@G@@ @ @@@[^@@@@D@@@@(ZE_[]UGRDS @@@@@@@@ @@@LMSC36 BP )@@G@@@@@@(,@@[@@A@@@@(*F PEBESCAN2 @@@@@@@@ @@@LMSC10 @@@@(/@@[@@HBQ )@@G@@@@@@(\C!F QBSCAN @@@@@@@@ @@@LMSC20 @@@@%^@@[@@B@@@@(.IS+ETCBR )@@G@@SCANBL @@@@@@@@ @@@LMSC10 @@@@%E@@[@@ @@@@% C?_ QBWDS BS )@@G@@@@@@@@@@ @@@LMSC36 @@@@%L@@]@@A@@@@%FEQ\FGEMOVER @@@@@@@@ @@@BT )@@G@@LMSC05 @@@@%P@@[@@]@@@@%NH:B[EBMVCHAR @@@@[U@@ @@@LMSC30 BU )@@G@@@@@@%T@@[@@#@@@@%QDW!BRDASMBL @@@@@@@@ @@@LMSC10 @@@@%X@@]@@#BV )@@G@@@@@@%UF8] RBGETWD @@@@@@@@ @@@LMSC24 @@@@%*@@[@@D@@@@%ZEW*#]DBW )@@G@@SORTX @@@@@@@@ @@@LMSC21 @@@@%/@@[@@N@@@@%(G^GFOCOPT BX )@@G@@@@@@@@@@[@@_ @ @@@[] @@]@@@@%.I@@[@@[CU )@@G@@@@@@0=K5V]UGSAVE @@@@@@@@ @@@ @@@@0:@@]@@ @@@@0&K5X]UGCV )@@G@@SEQ @@@@@@@@ @@@ @@@@02@@]@@ @@@@0!K5)]UGTOCX CW )@@G@@@@@@@@@@ @@@ @@@@0;@@[@@B@@@@04K54]UGUN @@@@@@@@ @@@CX )@@G@@ @@@@1C@@]@@G@@@@0/K56]UGXXRF @@@@@@@@ @@@ CY )@@G@@@@@@1I@@]@@^@@@@1EK59]UGMAP @@@@@@@[A@[K )@@]@@@@@@A^CZ )@@G@@@@@@1KK6]]UGMAIN @@@@@@@@[@[J @ @@@[^@@@@*@@@@7OFZ#]VGDA )@@G@@MAIN @@@@@@@@ @@@ @@@@8A@@^@@E@@@@7/F>\]VGMAP DB )@@G@@@@@@@@@@[@@@ @ @@@[A@@@@C@@@@8EF&?]VGNC @@@@@@@@[@[MDC )@@G@@ @ @@@[^@@@@W@@@@8MHPY#]GNC @@@@@@@@ @@@ DD )@@G@@@@@@8.@@]@@J@@@@8,HQ(#]GALLOCATION @@@@@@@@[@@@ @[@@@[@@@@#QDE )@@G@@@@@@8_HT #]GMARVEL @@@@@@@@A@@@ )@@]@@@@@@ '@@@@/PHS7#]GDF )@@G@@MARVELCARDS @@@@@@@@[@@@ @ @@@[[@@@@X@@@[]J]CP##GUSERDOC DG )@@G@@@[S@@@)K[@@@ @ @C@ @@@@[@@@@[]?G6,##GU @@@@@@@@[@@@DH )@@G@@ @ @@@[@@@@@%@@@[#?HC%##GUSERDOC @[T@@@)K[@@@ DI )@@G@@@ @D@ @@@@@_@@@[^QI1J#DGUSERDOC @@@@@@@K[@@@ @ @E@ @@@@[[DJ )@@G@@@@@[ PI5T#DGCORR @@@@@@@@[@@@ @2@@@[@@@@]2@@@[AQC/Q WGDK )@@G@@U @@@@@@@@[@@@ @ @@@[@@@@@%@@@[JEHC%##GUSERDOC DL )@@G@@@[Y@@@)K[@@@ @ @A@ @@@@@_@@@[ IDVW#]GU @[Z@@@)@[@@@DM )@@G@@ @ @@@[[ @@6@@@[AHEP3#]GUSERDOC @@@@@@@K[@@@ DN )@@G@@@ @B@ @@@@@_@@@[B#GNX#]GU @@@@@@@@[@@@ @ @@@[@@@@@%DO )@@G@@@@@[C]GN*#]G@@@@@@@@@@@@@@@@@@@@ @@@ @@@@;7@@#@@J@@@@;*K\Q]UGDP )@@G@@IQUAL @@@@@@@@ @@@ @@@@/@@@]@@A@@@@;'K0']UGLT DQ )@@G@@@@@@@@@@ @@@ @@@@/E@@]@@C@@@@/]K0_]UGMAIN @@@@@@@[ @@@DR )@@G@@ @@@@/Q@@^@@E@@@@/GK1#]UGMERGE @@@@@@@@ @@@ DS )@@G@@@@@@/>@@#@@F@@@@/UK1A]UGNC @@@@@@@@ @@@ @@@@/8@@]@@KDT )@@G@@@@@@/*K1E]UGOP @@@@@@@@ @@@ @@@@. @@^@@F@@@@/'K13]UGDU )@@G@@OPT @@@@@@@@ @@@ @@@@.E@@[@@[@@@@.DK2$]UGPDP DV )@@G@@@@@@@@@@ @@@ @@@@.Z@@^@@O@@@@.FK5C]UGPP @@@@@@@@ @@@DW )@@G@@ @@@@.(@@]@@A@@@@.@@]@@ ED )@@G@@@@@@")K5)]UGTOCX @@@@@@@@ @@@ @@@@",@@[@@B@@@@"$K54]UGEE )@@G@@UN @@@@@@@@ @@@ @@@@";@@]@@G@@@@"\K56]UGXXRF EF )@@G@@@@@@@@@@ @@@ @@@@_[@@]@@^@@@@".K59]UGJ6>&@EJ6>&ABJ6>>7;J6>>)SEG )@@G@@J6>>R[J6>=>(J6><2@J6>+75J6>+:*J6>+Y>J6>+D@J6>-*%J6>).-J6>)E_J6>ZZ=EH )@@G@@0]0^[;0]0A 10]0B'.0]0OI_0]0$:R0]0_-50]1R0##&8I0##>Y30##-3BEM )@@G@@0##XE=0##W -0##O,+0##IK&0##FU]0##F2S0##IW10##M^^0##P90]08* 0]0'?>0]1]B=EP )@@G@@0]1 '!0]1A1"0]1^((0]1[ L0]0_(H0]08A"0]00M!0]0%%W0]0$W%0]0>$A0]0<&<0]0)PJEQ )@@G@@0]0VXI0]0O'_0]0HJ!0]0A,#J\2DW(J4E['NJ4LR&^J4N>\6J4ISCFJ4R=X?J4F6S)J\8+^1ER )@@G@@J\"Y&BJ\&).JJ\TJV\J\U%D=J\B@VLJ\[\"DJ\L=CDJ\/@I2J4DV)-J\UT21J\BM&HJ,3'!\ES )@@G@@J!>PETJ!H<-/J!]:PCJ?^"9"J&H7Q[J&3BCYJ?H[%6J?N<$-J$%_04J&Z>91J$O3_1J?R_Y+ET )@@G@@J?XM0+J?#7Q0J&R'B]J=&1 SJ>M[&'J&,K&5J&U4+_J>L ^CJ=RO7EJY%I]_JXK^,XJR.2T4EU )@@G@@JX$BQI4ALTMJA\?7WJPHP,+JJ3+$LEW )@@G@@J 86*1JRW2G+JZ>H'3JZR/7/JWFE7BJWO(C)JX="A JWU??ZJJI16P00( 1C08PN<=JIF<7;EX )@@G@@JJB69QJI\H-[JGE4@&1]0YPBJJ!/O7JXN3:LJWT192JJS%X?0;QMQM0:8 C$0:8]F4J?NM-]EY )@@G@@J?)BR[X3^J="_'OJ="D%\J='.QXFA )@@G@@J=782AJ=4;QAJ=2 (J=(V:7J=$8.(J=>%V)J=<<7$J=->]OJ=Z!0 FB )@@G@@J=X"H+J=WQPQJ=U4>9J=TS6YJ=S# CJ=Q13SJ=P>C=J=OX*+J=NUSAJ=MU^LJ=LXEBJ=K=(&FC )@@G@@J=J0]3J=I"@)J=IHH/J=HYL&J=G2PIJ=GD]]J=F-D.J=E9B@J=EJ0QJ=D&N3J=C"T\J=CR0XFD )@@G@@J=B0"]J=BCY!J=AXM=J= ,;8J=^.M2J=^E]DJ=#R[HJ=]=F%J=[0PCJ=@'#(L_9$]J>.?^DJ>.C.(J>'GPSJ>7^2?J>33AOJ>0SEKJ>!!&DFI )@@G@@J>?6&&J>(LVMJ>>(+[J>-"/>J>YM9BJ>U&'YJ>Q''HJ>NI)HJ>J+"DJ>F'N0J>CQ+(J>^75'FJ )@@G@@J"B4$5J"A*SZJ"AH*&J"^&P2J"]_F1J"[SL0J._2R!J."H=HJ./(_IJ.;C3BJ.'*WRJ.9%*IFK )@@G@@J.8J2]J.68MWJ.5=MZJ.4N/]J.3B$'J.1_-8J.0'2"J.\9Z$J.,;0AJ.,@*UJ.!COPJ.?NO0FL )@@G@@J.:-#,J.%0$WJ.%]TPJ.(RI#J.*,1KJ.*C^QJ.$+BYJ.&.T6J.&U7]J.>'JQJ.>U&YJ.=':"FM )@@G@@J.=T>QJ.<8KQJ.J.E6J,J.D2J'J.C\'"FP )@@G@@J.B,.=J.A,MPJ. ,+'J.^09-J.#4;FJ.]9)6RJ//1B6J/;_T$J/;K)UJ/'C%J"JL57FS )@@G@@J"H9RNJ"GW&$J"E/(6J"DT/M;KK@@[L@K^!BG@K^!B;S)@@I;K)@@]H80@@]C@@@@JX@)@@HFT )@@G@@;)@@@[[@0@@IU@0@@JC[@^?/C8K@@]U[@@@J;LG@@@G[H^?98#K]K_U[@@@IC8K@[;;K@@@[FU )@@G@@H@K@@G/^)]K- @@@@G/KF@@]/S@^!-9?F@@@R#/@@@C[H@@@A@K^!WR;)@@[/?K]M\;^0@@=FV )@@G@@/?K]M\R@K^!W980]N>9*0@[]/@0]L%"KK@@K"K0@@JP#K@@JE@)@@IE[@@@K;O)@@[Y@)@@KFW )@@G@@;S)@@IO;K@][P#K@@J;G)@@C!8K@]W/K@]L%/GK]L*Q#0@@H"O0@@I/K@]L9 @@@@G/K@]M=FX )@@G@@R#@^!Q/K@]M=/S@^!+N@)^!IR#F@@@ @@@@JC[G@@@A@K^!WR;)@@@/?K]M\R@K^!W[[@@[#FY )@@G@@/[@]L*E[@@@K"KK@@KR#@^!8@@@]/K@]MCP;K@[_;=!@@ A#)@@KFZ )@@G@@P#?^!LU[G^!JG[@^!=Y@)@@K;K)@@[/K@]MFP;K@[9/GK]M5;=!@@[A#)^!DU@)@@IA#)@[[GA )@@G@@U@)^!VO#)^!UU@)@[[O#)^!TU@)@[[O#)^!SU@)@[[O#)^!RU@)^!D%@@^!>/K@]MVR;K@]@GB )@@G@@/K@]MY;K)@@#O#?^!HR;K@]#;S)@@IP#K@@JO;)@]@;C)@@C"OK@@IR#@@@I0@@@[#D@@@@GGC )@@G@@R#)@[]/C:@@#/@:@@]E@@@@G"^@^!Q"^@^!Q1@@@[#D@@@@G/KF@@#;*)@@[=[@^!&/K[@@@GD )@@G@@/ @]NN @@@@K/K[@@@/@@]NH;=)@@[R#@@@I90K@@HU@)@@GU@)@@GU@)^!PN@K@@H!8K@[DGE )@@G@@C8K@[C;K!@@@;O!@@@O#)@@GD@K@[[G8K@[9O;)@@[;C)@@[/K@]M+D[K@@KC[@^!F"H@@@LGF )@@G@@"KK@@K @@@@G/K@]MC:/K__"/K@]MFR#@@@K"@@^!$"@@^!Q/K@]M=R@K^!W8#)]NT[[@^U_GG )@@G@@'^@[&;@@@@A[/KF@@]=@)^!*/K@]N)[[@^U_A#0^V@'^@[&;@@@]A[/KF@@#A#0^U_[[@^V@GH )@@G@@'^@[&;@@@A][/KF@@#A#0^U_[[@^V@'^@[&;@@@]]@@@@^!X/KF@@#/S@^!'/S@^!;N@K^!/GI )@@G@@/K@]N9/S@^!'R;@@@]/K@]N4/S@^!; @@@@GR#V@@@R#X@@@>@K^!./^K]PB"8)@@HE[@@@IGJ )@@G@@?[@^!"/K@]O_9*)@@K"*)^!3"0K@@IH8K@KQD@K@@H/GK]PF9*)@@K;O!@@@;G)@@[O#@@@IGK )@@G@@;G)@@[E@0@@J=8@@@#/K@]OI?@0^!_/K@]O$D8K@@[/K@]OJR;K@@@R#)@@JU@0@@JC[H^!2GL )@@G@@U[@@@JG[H^!0U[@@@JG[H^!,U[@@@JG[H^!?U[@@@JG[H^!%*@@@@HU[@@@IR;X@][;W)@@KGM )@@G@@K8)@]@P#K@@K;C0@@C=8@@@^90)@@I9*K@[["OK@@JR#@@@I/KF@@];S)@@JO;K@@]H@K@@JGN )@@G@@/GK]O!;PH@@@/K@]O\E@K@@H;-X@@@E@K@@LU@K@@HE@)@@LC[@^!!U[@@@H;LJ@@@;LJ@@@GO )@@G@@G[@^!:U[@@@H;LJ@@@;LJ@@@G[@^!(U[@@@IR;K@]@H@K@@J/K@]OX/@@]P C@@^,@"KK@@GGP )@@G@@;))@@C9*K@[[/KF@@]"/@@@I/K@]P[A#K^U_'^@[&;@@@@A[/KF@@]"/K@@KA#K^U_'^@[&;GQ )@@G@@@@@@]@@@@^!5/KF@@]/S@^,ND8@@@[/K@]PQ/S@^,O @@@@GR#V@@@"8!@@@>@)^,P/K@]Q/GR )@@G@@E[@@@I?[@^,Q/K@]RS"*)^,C"0K@@IH8K@KQD@K@@H/GK]R 9*)@@K;O!@@@;G)@@[N@)@@IGS )@@G@@;G)@@[E@0@@JR#)@[](@@@@G/K@]P,/=)]P!R;@@@[O#)@@G?@0^,R/K@]Q&N@K@@JU@0@@JGT )@@G@@A#0@[#U@0^,^O#0^,#U@0@[#9)0^,[R#@@[#U@@^,BO#@^,AU@@@[#O#@^, U@@@[[ @@@[#GU )@@G@@=8)@@#/K@]QC?@@@@J/K@]QA;W0@@J;O@@@[G9K@@[N@0@@LY@@@@J/K@]QK?@0@@G/K@]QIGV )@@G@@;W@@@G;O0@@[O;)@@[N@0@@IY@0@@GR#@@@JC[K@[];S@@@GP#K@[#D@K@@H1@@@[[/K@]QXGW )@@G@@R;)@@]R#0^,SP#)@@HX@0@@G;S@@@KP#)@@HA#)@@H9*@@@JO;@@]@;C@@@[O;K@[9"OK@@GGX )@@G@@R#@@@I=9K@@]D@@@@G/KF@@] @@@[[=8)@@#]@0@[[;S)@@JO;K@@]P#K@@J/GK]Q\;PH@@@GY )@@G@@/K@]Q1E@K@@H;-X@@@E[@@@LU[@^,TR#@@@KU[@@@KU[@@@GU[@^,U;DJ@@@;DJ@@@O#@@@KGZ )@@G@@]@0@[#/K@]QK(@@@@I/@F@@]R#X@@@A#K^U_(@@@@I/K@]RH'^@[&;@@@@A[/KF@@]R#V@@@HA )@@G@@C[@^,SR#X@@@A#K^U_'^@[&;@@@@]@@@@^,E/KF@@]'^@[&;@@@@]@@@@^,J/KF@@]R#X@@@HB )@@G@@C[@^,SA#K^U_'^@[&;@@@@]@@@@^,L/KF@@]"K!@@@C[K@@J;LK@@/K@]S&@[Q^,/K@]XH@[)^,'C@@^\9[@@^,\/K@]T8C@@^\;"^@^,:*@@@@G1@@@@G/K@]U^HO )@@G@@C@@^\;"^@^,!*@@@@G1@@@@G/K@]T6N@0]T5/K@]XH@[&^,'C@@^\;[@@^,\C@@^,\"^@^,:HP )@@G@@C@)^,,"^)^,?"C@@@IC@)^,!"^)^,:"G@@@I"@@^,?[@@^,?C@)^,\[@)^,:C@@^,!"^@^\9HQ )@@G@@*@@@@G1@@@@G/K@]UGC@@^\9[@@^,\/K@]UNC@@^\;"^@^,!*@@@@G1@@@@G/K@]UZC@@^\;HR )@@G@@[@@^,\C@@^,\"^@^,:C@)^,,"^)^,?"C@@@IC@)^,!"^)^,:"G@@@I"@@^,?[@@^,,C@)^,\HS )@@G@@[@)^,!C@@^,?"^@^\'*@@@@G1@@@@G/K@]U\C@@^,,"^@^\'*@@@@G1@@@@G/K@]U?N@0]U:HT )@@G@@/K@]XH@[6^,'C@@^\'[@@^,0/K@]U"C@@^\/"^@^,?*@@@@G1@@@@G/K@]VEC@@^\/"^@^,,HU )@@G@@*@@@@G1@@@@G/K@]U/N@0]U;/K@]XH@[/^,'C@@^\/[@@^,0C@@^,0"^@^,?C@)^,!"^)^,:HV )@@G@@"C@@@IC@)^,,"^)^,?"G@@@I"@@^,:[@@^,:C@)^,0[@)^,?C@@^,,"^@^\'*@@@@G1@@@@GHW )@@G@@/K@]VMC@@^\'[@@^,0/K@]VTC@@^\/"^@^,,*@@@@G1@@@@G/K@]V>C@@^\/[@@^,0C@@^,0HX )@@G@@"^@^,?C@)^,!"^)^,:"C@@@IC@)^,,"^)^,?"G@@@I"@@^,:[@@^,!C@)^,0[@)^,,/,0[6RHY )@@G@@@@@^,:@@@^,?@@@^,1@@@^,2@]D^,'/,0[6R@@@^,!@@@^,,@@@^,3@@@^,4@]E^,'C@@^0LHZ )@@G@@)@@^,%[CK^\QC@@^,1[C@^\RC@@^,2[^@^\RC@@^,3[C@^\SC@@^,4[^@^\S/,0[5J@@@^,5IA )@@G@@@]K^,'N@0]W[/K@]XH@]L^,'C@@^0M[@@^0LN@0]WA/K@]XH@]O^,' @@^0LN@0]WE/K@]XHIB )@@G@@@]R^,'C@@^\#C@)@@GG/)__@1@@@@IC/@@@_C@)@@GG/)__"0@@@@IC/@@@[[@@^0M(@@^0LIC )@@G@@/K@]WTC@@^0M[@@^0LN@0]WV/K@]XH@]X^,'C@@^,6[@@^\QC@)^\^[@)^\RC@@^\ [@@^\SID )@@G@@C@)^\A[@)^\TC@@^\^[@@^0NC@)^\ [@)^0OC@@^\A[@@^0PC/)@@_[@)^0M/,0[5J@@@^,7IE )@@G@@@]*^,'(@@^0L/K@]W3C@@^0M[@@^0LN@0]W5/K@]XH@]:^,'C@@^\.[@@@@@C@)^\"[@)@@@IF )@@G@@N@0]W//K@]XH@]0^,'C@@^0M[@@@@@C@)^0L[@)@@@G/@__@*@@@@G/K@]XEC@@^0N[@@@@@IG )@@G@@C[@^0O[[@@@@C[)^0P[[)@@@N@0]XG/K@]XH@]'^,'R]0^,;9!)^\B*4@O,8/K@O,8/K@]8ZIH )@@G@@AA0^,;[^@^,89()^\B/KH@@@C8@@@ /\K]XMC@VK@][@K^,.C@VK@#[@K^,"/K@]S;C8@@@#II )@@G@@/\K]XMC@VK@@[@K^,_C@VK@[[@K^\@/K@]T^C8@@@#/\K]XMC@VK@@[@K^\[C@VK@[[@K^\]IJ )@@G@@/K@]THC8@@@[/\K]XM/K@]W]C8@@@[/\K]XM/K@]WBC8@@@]/\K]XMC@VK@@[@K^\#/K@]WFIK )@@G@@C8@@@^/\K]XMC@VK@@[@K^\^C@VK@[[@K^\ C@VK@][@K^\A/K@]WWC8@@@#/\K]XMC8FK@@IL )@@G@@[^@]W7C8FK@[[^@]W9/K@]W6C8@@@A/\K]XMC8FK@@[^@]W"C8FK@[[^@]X@C8FK@][^@]X IM )@@G@@C8FK@#[^@]XBC8FK@^[^@]XD/K@]W.C@FK@@[@@^4JC@:K@[[@)^4K/,0][T@[I^5MD@@^4JIN )@@G@@*@@@@G1@@@@G/K@]Y-D@@^4K/C@]Y-*@@@@G/K@]Y*/,0[_;@@@^4Z@[O^5M @@^3$N@0]Y$IO )@@G@@/K@]+,@[Q^5MC@@^5P[@@^4L*@@^4L/K@]Y,C/@@@[[@@^4LR/K@@[N.@@@#C@[^4AH@@^4LIP )@@G@@*@@@@G/K@]Y6C@[^4E[@@^4LO/K@@[8L@]Y0CC@^\DG/@6&7*@@@@G/K@]Y"D@@^4L[@@^4LIQ )@@G@@E@@^4LG/@__.*@@@@G0@@@@G/K@]ZCC/@@@[[@@^4L/,0[_;@@@^4:@[&^5MC@@^5 [@@^4NIR )@@G@@C@)^4J[@)^4OC[@^4K[[@^4PD[)^4L/D)]ZM*@@@@M/K@]ZO[[@^4O[@)^4PC/@@@[CC)^\DIS )@@G@@G/)6&7(@@@@IC8@@@@C/)@@[C[@^\DH[@^5A(@@@@KC8)@@@+@@@@I/=K]Z'C@@^3R"^@^4PIT )@@G@@*@@@@G1@@@@G/K@]Z'E@@^4L;O@@@=W@@^4L[@@^4LC@)^4O"^)^4P*@@@@I1@@@@I/K@]Z0IU )@@G@@]@@^4L/K@]ZC/,0[_;@@@^47@[7^5MC@@^3R"G@^4P[@@^4N"C@^4O[@@^4OC@)^3R[@)^4PIV )@@G@@CC@^\DG/@6&7(@@@@G/K@])KE@@^4LG/@__.*@@@@G1@@@@G/K@]-;C@@^5 "@@^3Z[@@^4QIW )@@G@@*@@^3Z/K@])D @@^4QC@@^4Q"@@^4O[@@^4R @@^4SC@@^4P[@@^4T/K@])YC@@^5B"^@^4OIX )@@G@@"C@^5C"@@^5D"C@^5EC@)^5E"@)^3Z"^@@@I]@@^4R"@@^4O]@@^4QD@)^4L[@)^4L/K@])GIY )@@G@@E/@@@[0@@^4LD@@@@G[@@^4UC@)^4L[@)^\L/,0[/Z@@@^4Q@@@^4S@@@^4R@@@^4T@@@^4UIZ )@@G@@@@@@@@@]G^5MC@@^\DH@@^5A(@@@@G/K@])7C@@^\DH@@^5F(@@@@G/K@]--/,0[94@]L^5MJA )@@G@@/K@]--(@@^3$/K@]--C@@^3$[@@^4VC/)@@K[4)^4VD@@^4L/C@]-[*@@@@G/K@]-^E@@^4LJB )@@G@@G/@@@][@@^\LC@@^\L[0@^4VC/@@@[(@@@@@C8@@@@C/)@@[C[@@@@" @^5G(@@@@KC8)@@@JC )@@G@@+@@@@I/)K]-MC/@@@B[?@^4V/,0]@Q@@@^4V@]W^5MC@@^4N"C@^4J[@@^5Q/,0]@Q@@@^5QJD )@@G@@@]X^5MC@@^4N"C@^4K[@@^5Q/,0]@Q@@@^5Q@]Y^5M @@^\LE@@^4LG/@__"(@@@@G/K@]-?JE )@@G@@C@@^4L[@@^3UC@)^4W[@)^3)C@@^4X[@@^3-C@@^4N"^@^5 *@@@@G1@@@@G/K@]-8C@@^4NJF )@@G@@[@@^3U/,0[8-@@@^5H@@@^5H@@@^5 @]*^5MN@0]-'/K@]+,@](^5MC@@^5 [@@^4YC@)^4LJG )@@G@@H@)^3U*@@@@I/K@]+DC@)^5I"@)^3-"^)^4P*@@@@I1@@@@I/K@]+MC@)^5J[@)^4YC@@^3RJH )@@G@@[@@^3-C@)^3Z[@)^3)(@@^3)/K@]+MC@@^4Y"@@^3)[@@^3)C@@^3)[@@^4Q"@@^4O[@@^4RJI )@@G@@D@)^4L/G)]+U*@@@@I/K@]+ZC@)^3-[@)^4T"^)^4P[@)^4S/K@]+=C@@^3-"^@^3R]@@^4SJJ )@@G@@"^@^4P]@@^4TC@@^5J"@@^4P"^@^3-]@@^4XC@)^3)[@)^4W/K@])YN@0]+!/K@]+,@]_^5MJK )@@G@@R]0^5N9!)^5RR@K^5TN[@^5U*4@O5K/K@O5K/K@]8ZAA0^5N9()^5RA@K^5T^[@^5UC@VK@]JL )@@G@@[@K^5PC8FK@#[^@]-B[^@])%[^@]-E/K@]YNC80@@G[@0^.&/K@]%9@@@G/K@]6IC9K]<1N8K@[L/K@]^C@@^5='=@@@IC^K]=]/K@]<5R#FK@@:@@^5+/K@]=IA#@^5+R#@^5<'=@@@IJS )@@G@@/S@@@@/S@@@@/S@@@@/S@@@@/S@@@@(^@]=I'=@@@D9*@^5Z'=@@@6)8@@)@R#@@@H'=@@@5JT )@@G@@ @@@@G'=@@[[9?@^5Z(@@]=H'^@]93'=@@@)/KIM=)/K@@@@R#)^54R;0^5+N8K@@QM#\)@@JU )@@G@@ @@^53/K@M=3/K@@@@C^0^._CCK^._%8K@@ G80@@[P;0^"@?@0^53R#0^53[C0^"Q/K@M='JV )@@G@@/K@@@@R;)@[@C4K^"@:8K@@0R;)@]@:8K@@1R;)__@:8K@@+R;)@@@O\)^5=AF)^5=C8K@@ JW )@@G@@[4K^"@/K@M>^/K@]$+/K@]$+/K@](1/K@]$V/K@]&6/K@]>*/K@]$^/K@]:5/K@]?C/K@]?GJX )@@G@@/K@@@@RFK^._RB0^._!80^"Q/K@M>W')H]4T8#K]>&O;0@@[R;K@@ AB0^._AFK^._/K@M>WJY )@@G@@[[K^50%9K@@T/K@]>/'^@]='A#0^53C K^8M*@@@@LH9K@@[[DK^8UC9@@@@W9@@@A;[@@@MJZ )@@G@@D[K@@LG9K@@ ; @@@MG @^"T[[@^._ C@^8R'^@]5M/K@]>:'^@]5MC[K^50%9K@@L/K@]&DKA )@@G@@C9K^5,C^)^.HC@,@@@+8)@@[(@@@@JC9K^5\[ K^.HC9K@@]/K@]&EC9K@@BC1@^.H:9@@@#KB )@@G@@C9K@@H[[K^5!C K^8M?[K^5!/K@]&RH[K^5!R;)@@ '^@]>W8^K]&NC[K^5!H9K@@[C^)^.HKC )@@G@@:9@@@#R#"@@[C@,@@@C[@^50%9@@@R/K@]&+R#K^5!P#K@@LT8K@@A;?!@['A#0@[[C[@@@LKD )@@G@@H9@@@B!9K@@BC9K@@A/K@]&('^@]>W;@)@@Y8^K]&*/H@]>/R#)@[[;@)@@Y'^@]>W8^@]&!KE )@@G@@/K@]>/D[@@@K'^@]%:R7K^8L:8K@@^/K@]$V'^@]5MC^K^.HE@X@@@'^@];8D8K@@[RB)^.HKF )@@G@@[ @^.@H @^8M/H@]&1/ @]$]?@Y@@@/K@]&1'^@]:1/K@]&3'^@]5MC K^8M?9K@@H/K@]$HKG )@@G@@H9K@@HR;)@@ '^@]>W8^K]$DC9K@@GR;K@@#T@K@@LC^)^.HC[I@@@;[H@@@H9K@@[R#)@@KKH )@@G@@;[@@@-;G)@@=R;)@@A;^)@[ '^@]>W8^K]$N/K@]$^'^@]5MR3K^.H:8K@@[/K@]&7:8K@@ KI )@@G@@/K@]&@/K@]$<'^@]5MDHK^8U] K^.@/HK]$$C9K@@@HDK^8MH9K@@^ @@@@IR7K^8L:8K@@[KJ )@@G@@R;)@@[%8K@@^/K@]$2R3K^.H:8K@@#R;)@@[H[K@@IG K^8M/HK]*)C^K^.H0@H@@@/[K]*)KK )@@G@@[DK^5:CDK^8MGHK^8U/HK]*)/[K]*)[ K^5:'^@]*4CD@^5:'^@]%+(G@^.[/K@]*$RJ)^.]KL )@@G@@PJ)^8U#^)^.]/@)]*C/G)]*>R;)@@+'^@]>WRJK^.]'^@];8 @G^/? @G^/!C9@@@#R7)^8LKM )@@G@@:8)@@[/K@]*U%8)@@^/K@]*RR3)^.H:8)@@#/K@]*UC9@@@]?9G@@@/K@]*W'^@]:Q/K@]*-KN )@@G@@R;)@@*'^@]>W'^@]>W/K@]*-'^@]:1R7K^8L%8K@@^/K@]$+/K@]$VR;)@@-/K@]*DR;)@@ KO )@@G@@C9K@@]R7K^8L:8K@@[/K@]*0%8K@@^/K@]*1R3K^.H:8K@@#C9K@@#'^@]>W8^K]*1/K@]*-KP )@@G@@/K@@@@RB)^.HR7K^8L:8K@@[/K@](X%8K@@^/K@]*"R3K^.H:8K@@#/K@](XR3K^.H%8K@@#KQ )@@G@@/K@](^94"@@@980](:/K@](BE@"@@@/@0](:"80@@J/,0]/[9*0^51R7@^8L/KG](D/K@]()KR )@@G@@/K@](=DH@^.]/[@](K/D@]()GD@^8M/H@]()DH@^.]GD@^8MR#0^8MA#0^5(P;0@@#[D@^8MKS )@@G@@AB0^8MC9@](3[ @]*4RJ0^.]/K@](&94"@@@/,0]/[/K@](-9?0^51C K^5:/,0]/$/K@M*4KT )@@G@@@@F@@@POSITN@[Q@@#@@@@@]@@@[@@@@F@@@VECTOR@]'@@]@@@@@#J@#@@@@@@@@^NORMALKU )@@G@@GROUP TRNSP TGROUP@@@@@[@@@@@]_____"_____. PAGE:INVALID PAGE SIZE ARGUMEKV )@@G@@NTS-NO PAGE DEFINITION GENERATED$ ______ PAGE:INVALID PAGE POSITIONINGKW )@@G@@ ARGUMENT-DEFAULT VALUE *NORMAL*$ ______ PAGE:PAGE DOES NOT FIT ON PAPKX )@@G@@ER WIDTH SPECIFIED-PAGE SIZE COMPENSATION MADE$ ______@@F@@ PAGE @]_](^KY )@@G@@KG@@@@PLTTR JHB:-MJ!4RLYNS@@@@K>)@@@PRNTERNONE @@@@@@I/ADH5K^@@@@@@[@@@KZ )@@G@@@@ ^"@@@I^"@@@[^"@ STOP @#]^5-@@Q^"@(1P6G13.5) @@[]>M@@[]=-@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@T F @@@@@@@@@@@@@@@@@@@@@@@@@@[^"@)^@@@@LB )@@G@@)@)@@@@@[@@O@@[@@P@@@@@@^@@@@@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@LC )@@G@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*LD )@@G@@@@@@@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$LE )@@G@@D-YUC=N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=LF )@@G@@K@I?7N@@@@@@A$\^6_A:\^6_A\\^6_A3\^6_A7\^6_A<\^6"LOCATION OF ERROR IS MARLG )@@G@@KED BY * IN FOLLOWING IMAGE. @@C^7Y@@[^8)@@[^8)@@[^8)@@^^7&@@^^7%@@A^7,LH )@@G@@@@[^8)@@ ^74INTERNAL TYPE AND FORMAT TYPE ARE INCOMPATIBLE. ILLEGAL OCTALI )@@G@@L INPUT. ILLEGAL INTEGER INPUT. TOO MANY DIGITS IN INTEGER INPUT. LJ )@@G@@ILLEGAL CHARACTER IN INPUT. @[D^7;@[C^8^ILLEGAL FORMAT CHARACTERS WERELK )@@G@@ ACCEPTED AS BLANKS. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTY. LL )@@G@@@@@@@@ @@ @@@@@@@@@NBMSG$() @]D^66@[Q^.(/,0[8(@@@^RH@["^R;/,0[8(LM )@@G@@@@@^RF@[_^R;C@@^RH[@@^R^C@)^RI[@)^R#C[@^RG[[@^R]C[)^RD[[)^RE/K@ORAN8K[M[LN )@@G@@^@K^RAD@@^- /=@[J?/,0[8(@@@^R>@]C^R; @@^- /K@[J0C/@@@ H@@^-^(@@@@G/K@[I]LO )@@G@@/,0[8(@@@^R<@]H^R;/,0[8(@@@^R&@]I^R;/K@[I@D@@^- /=@[K@/,0[8(@@@^R$@]M^R;LP )@@G@@/,0[8(@@@^R*@]N^R; @@^- C@@^R[H@@@@@]@@^RJC@)^R H@)@@@]@)^RKE@@@@GC.@@@[LQ )@@G@@G/@__Z*@@@@G1@@@@GC9@@@@E@)@@IC/@@@[G/)__Z*@@@@I1@@@@IC8@@@@+[@@@G/>K[LILR )@@G@@C/@@@ H@@^-^(@@@@G/K@[K)/,0[8(@@@^R$@]V^R;/,0[8(@@@^R(@]W^R;C/@@@ [@@^-^LS )@@G@@C/@@@[[@@^Q%C@)@@@[@)^RLC/@@[@[@@^Q_D@@^RL*@@@@G0@@@@G/K@[K!C/@@@)G@@^Q_LT )@@G@@[@@^Q_E@@^RL[@@^RL;K@@@ +/@@@ZG@K^Q_[@K^Q_/,0[8(@@@^Q_@]>^R;C@@^RL+/@@@ZLU )@@G@@G/K@[@[@K^Q_C/@@@[D@)^R@*@@@@I1@@@@IC8@@@@C@)^Q%+@)@@G/)0[L C/@@@)G@@^Q_LV )@@G@@[@@^Q_/,0[8(@@@^Q_@](^R;D@@^Q%/=@[M[ @@^Q%C@@@@@[@@^RL/K@[K=C/@@@[H@@^R@LW )@@G@@(@@@@G/K@[LZC/@@@AH@@^-^(@@@@G/K@[L:/,0[8(@@@^R$@]3^R;/,0[8(@@@^R%@]4^R;LX )@@G@@C/@@@A[@@^-^/K@[L:C/@@@BH@@^-^(@@@@G/K@[L:/,0[8(@@@^R$@]9^R;/,0[8(@@@^R:LY )@@G@@@]'^R;C/@@@B[@@^-^C/@@@[[@@^Q%E@@^RJ+/@@@ZG/K@[@[@K^RLD@@^RJ*@@@@G0@@@@GLZ )@@G@@/K@[L8C/@@@)G@@^RL[@@^RL/,0[8(@@@^RL@#@^R;D@@^Q%/=@[M[C@)^RK[@)^RJ @@^Q%MA )@@G@@/K@[L!C@@@@@[@@^R[C@)@@@[@)^R N@0[MB/K@[RN@#C^R;C/@@@]H@@^-^*@@@@G/K@[MPMB )@@G@@C/@@@A[@@^-^/,0[8(@@@^R$@#G^R;/,0[8(@@@^R%@#H^R; @@^-C/,0@$+@@@@@@@@@@@@MC )@@G@@@@@^R@@#J^R;/K@[M[/,0[<,@@@@@@@@@@@@@@@^R@@#L^R;/K@[M[ @@^R@C/@@@^H@@^-^MD )@@G@@/C@[M$*@@@@G/K@[M?D@@^R)[@@^R[[@@^R][@@^R#[@@^R^C@@^\DH@@^R-*@@@@G/K@[M'ME )@@G@@/,0[8(@@@^R$@#Y^R;/,0[8(@@@^R?@#Z^R;C/@@@[[@@^- @@^R@/K@[K@C@@^\D;K@@@AMF )@@G@@H@@^R!*@@@@G/K@[N]N8K[J<^@K^RA/K@[H.C@@^\DH@@^R=*@@@@G/K@[NIC@@^- /=@[I@MG )@@G@@/,0[8(@@@^R,@#:^R;C/@@@[[@@^- /K@[I@C/@@@][@@^R@C@)^\DH@)^R+(@@@@I/K@[MVMH )@@G@@/K@[MCCC@^\DG/@6&7(@@@@G/K@[P#C@@^\DH@@^R+(@@@@G/K@[Q3C@@@@@H@@^-^(@@@@GMI )@@G@@/K@[N3/,0[8(@@@^R$@#'^R;R@K@@@N8L^3H^^K[N*/,0[8(@@@[N*@#;^R;C@@@@@[@@^-^MJ )@@G@@C4@^\DG/@__&*@@@@G/K@[N3/,0[8(@@@^R>@#"^R;C@@@@@C@)@@GG@)^R\0@@@@IC/@@@@MK )@@G@@[@@^RM;K@@@]G/@@@[[@@^RNC@)^RM;O)@@=W/)@@^T/0@@DE@0@@J[@0^ROC@@^RMH@@@@@ML )@@G@@/C@[OB*@@@@G/K@[OEN@0[OD/K@[RN@^^^R;R/K__"O@K^R_O@K^RNC@[@@@;)@ORO;C@@@VMM )@@G@@[@@^Q_C/)@@[G/@_.;*@@@@G1@@@@GC8)@@@C/@@@[C.@@[_H[@^Q_*@@@@K1@@@@KC8@@@@MN )@@G@@+@)@@G/=0[P)/,0[8(@@@^Q_@^C^R;(@@@@@/K@[O4/,0[8(@@@^R0@^F^R;C4@^\DG/@__3MO )@@G@@*@@@@G/K@[O1/,0[8(@@@^R$@^I^R;/,0[8(@@@^R1@^J^R;/K@[O4/,0[8(@@@^R2@^L^R;MP )@@G@@C/@@@[G@@^RM[@@^RMC/)@@DG@)^RO[@)^ROG/)__V/C)[O"*@@@@I/K@[O] @@^ROC/)@@[MQ )@@G@@G@)^RN[@)^RN/K@[O]C/@@@]H@@^-^(@@@@G/K@[PUC/@@@AH@@^-^*@@@@G/K@[PLC/@@@]MR )@@G@@[@@^-^/,0[8(@@@^R$@^Y^R;/K@[PUC/@@@[H@@^-^(@@@@G/K@[PUC/@@@[[@@^-^/,0[8(MS )@@G@@@@@^R3@^<^R;/,0@$*@@@@@@@@@@@@@@@@@@@^=^R;/K@[N3C@@^\DH@@^R-(@@@@G/K@[P,MT )@@G@@CC@^\DG/@6&7*@@@@G/K@[P!/,0@$*@@@^R4@@@^R5@@@@@@@^(^R;/K@[O4C@@^Q_G/@_..MU )@@G@@/C@[P3*@@@@G/K@[QBR@K^RPC@[^Q2[@@^RXC@)^RP[@)^-^C/@@@^H@@^RP*@@@@G1@@@@GMV )@@G@@/K@[Q@C/@@@^H@@^RP]@@^-^C@@^RQ[@@^RPC@)^RR[@)^RQC[@^RS[[@^RR/K@[Q-C@@^RRMW )@@G@@[@@^RSC@)^RQ[@)^RRC[@^RP[[@^RQC.)@]@H[)^Q_*@@@@M/K@[QOC[)^-^[[)^RP/K@[QRMX )@@G@@C/@@@^G@@^-^[@@^RPR@K^RPC@[^Q%[@@^RXC/)@@[H@)^-^C[@@@IH.@__"1@@@@KC/)__"MY )@@G@@]@)^-^R@K^-^C@[^Q'[@@^RZR@K^R6N.@@@ N8L=RT^^K[Q(/,0[8(@@@[Q(@ #^R;8L@[Q&MZ )@@G@@C/@@]#H@@^Q_*@@@@G/K@[O4C/@@]][@@^Q_/K@[P)/,0[<4@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@ D^R;N@0[Q//K@[RN@ E^R;C@@^\DH@@^R-*@@@@G/K@[RK/,0[8(@@@^R$@ J^R;NB )@@G@@(@@@@@/K@[RG/,0[8(@@@^R7@ M^R;C/@@@[[@@^-A/K@[RK/,0[8(@@@^R8@ P^R; @@^-ANC )@@G@@N@0[RM/K@[RN@ R^R;R]0^R/9!)^S@9,@^S]R@K^S^N[@^S *4@OR9/K@OR9/K@]8ZAA0^R/ND )@@G@@[^@^R99()^S@9%@^S]A@K^S^^[@^S /KH@@@C8@@@^/\K[RVC8FK@@[^@[MW[^@[I][^@[MQNE )@@G@@[^@[K[[^@[M[[^@[H+[^@[K+C8FK@[[^@[K^[^@[LF[^@[I^[^@[MR[^@[M#[^@[HX[^@[MXNF )@@G@@C@VK@][@K^R"/K@[HJC8@@@#/\K[RVC8FK@@[^@[MW[^@[I][^@[MQ[^@[K[[^@[M[[^@[H+NG )@@G@@[^@[K+C8FK@[[^@[K^[^@[LF[^@[I^[^@[MR[^@[M#[^@[HX[^@[MX/K@[M-C8@@@A/\K[RVNH )@@G@@C8FK@@[^@[NX[^@[Q4[^@[N=[^@[N%C8FK@[[@@^R_[^@[Q5C8FK@][^@[O#[^@[PV[^@[Q6NI )@@G@@C8FK@#[^@[Q7[^@[N3[^@[PWC8FK@^[^@[Q8[^@[PX[^@[P:@@F@@]LITEM @[R@@#ALL NJ )@@G@@KG@@@@@@E@@E@@O@@O@@E@@O@@Y@@Y@@E@@Y@@2@@2@@E@@2@@O@@2@[F@[F@@E@[F@@O@[FNK )@@G@@@@Y@[F@[=@[=@@E@[=@@O@[=@@Y@[G@@2@[=@]Q@]Q@@E@]Q@@O@]Q@@Y@]Q@@2@]Q@[F@]QNL )@@G@@@@E@@EBAD PROJECTION MODE. USING KPSHAP ______MTEXT ______@@F@@@SHOPRMNM )@@G@@@B^@@]@@F@@ RASTER@BJ@@]@@F@@ SCRTRN@BT@@]@@F@@[STRTXT@C9@@]@@F@@[CLPDRWNN )@@G@@@E2@@]KPSHAPFILLFR@@@@@@GRPHCSALL KO@@@@KG@@@@@@A@@FPLTTR @@@@@[@@@@@^NO )@@G@@J&T&T&K^@@@@J4@@@@JWX9(:KQMB9/JH? ?AJ4===>LG;@@@K.*@@@NS@@@@______@@@@@@NP )@@G@@PRNTERKQMB_GKW@@@@JPB:-MK"K@@@KZ@@@@KWS@@@KPK@@@KA@@@@KX5PPPKR@@@@KHPPPPNQ )@@G@@@@[@@[@@@@[&@@@@[&@@@@[:@@@@[1@@@@[A@@@@[A@@@@[F@@@@[F@@@@[A@@@@[A@@@@[FNR )@@G@@@@@@[L@@@@[&@@@@[&@@@@[:@@@@[:@@@@@V@@@@[L@@@@[@@@@@@@@@@@@V@@@@@@@@@@[FNS )@@G@@@@@@[F@@@@[A@@@@[J@@F@@@GSPMDR@ R@@]@@#4D@GRPHCSPRNTER@@@@@XT4014E@@@@@ZNT )@@G@@@@@@@B@@@@@V@@@@[N@@@@[]@@@@[K@@@@[L@@@@[M@TK401@@@@@W______@@@@@E@@@@[CNU )@@G@@@@@@@C@@@@@A@@@@@@@@@@@[@@[@@[@@@@[V@@@@[XZ8@@@@ RSTRPG:INVALID PAGE BOUNV )@@G@@NDARY PARAMETERS-CURRENT PAGE CANCELLED$ ______ RSTRPG: UNIT LENGTH LT NW )@@G@@ZERO-THIS PAGE CANCELLED$ ______ RSTRPG:INVALID PAGE SERIAL NUMBER-CNX )@@G@@URRENT PAGE CANCELLED$ ______ MUST USE INITPL BEFORE PSP E.G. ENDPLT, PNY )@@G@@LOT$ ______@@F@@]RSTRPG@#B@@]$'0@@^8];[CM'^@]57@ 2^KQ/K@[C$/K@[C\/K@[CYNZ )@@G@@@@E^S_@@B^TO@@[^1Q@@[^TV@@B^T9@@[^UC@@#^UE@@]^UI@@C^U@@@U^U>@@[^VD@@N^VFOA )@@G@@@@D^V(@@#^WR@@#^W\@[S^W3@[L^YK@@O^Z5@@[^)Q@@]^)S@@H^)D@@F^)2@@]^)"@@^^-EOB )@@G@@@@(^-L@@[^-B@@<^-'@@[^+%@@[@@[@@[@@@I/ADH5PLTTR JID71AK^@@@@NS@@@@KO@@@@OC )@@G@@MR__8@PRNTER@@][X4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.PRINTEOD )@@G@@R PLOTS LIMITED TO 65.9 INCHES______@@F@@@GSPRNT@#&@@]@@F@@[STORPT@#'@@]OE )@@G@@KY@@@@KI@@@@NS@@@@@@@@Q?@@[@@@ K/B&T&______????????????????????????OF )@@G@@???????? !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_OG )@@G@@"ABCDEFGHIJKLMNOPQRSTUVWXYZ___?? @[Q@@@M,66,0,0. @@]^U/@@@@@[(1H0,3OH )@@G@@(6H******),3X,36HCALL TO ERRSET WITH NEGATIVE VALUE =,O12,29H OCTAL, ERROI )@@G@@OR LIMIT UNALTERED,3X,3(6H******)) ARG0 (1X,32HERROR DETECTED IN OJ )@@G@@@@@@@@ ROUTINE) (1X,@@@@@@A1,2X @@@@= ) UWERR$, 7H, R_@@@@'^@].WOK )@@G@@/K@[%P,I12 ,E16.8,D18.10 ,O12 ,/,6X ,3H (,3H ),3H ,,2X ,3X,O6OL )@@G@@, 18H OF ,/,1X,20(6H******)) (1X,7(6H******),30H 200 LINE LIMIT FOM )@@G@@OR WALKBACK ,7(6H******)) (1H ) CALLED AT SEQUENCE NUMBER ON )@@G@@IDENT NUMBER MAIN PROGRAM(23H REACHED ERROR LIMIT OF,I6,20H. JOB TOO )@@G@@ERMINATED. ,48HCONTROL TRANSFERRED TO EXIT WITH ERROR FLAG SET., /,1X,2OP )@@G@@0(6H******))(1H0,20(6H******))(1H0,5(6H******), 47H ERROR DETECTED IN MAOQ )@@G@@IN PROGRAM SEQUENCE NUMBER ,O7,1X,5(6H******),/) '^K].S'^)].S'^0].SOR )@@G@@'^K].S @@@@@@@@@@@[@@@@@] ( , ) /S@[*U/S@[*-/S@[**/S@[*2OS )@@G@@/S@[*U/S@[(D/S@[(T/S@[(Y/S@[(>/S@[(?/S@^Y:/S@^Y\/S@^Y2/S@^Y6/S@^Y9/S@^Y.OT )@@G@@/S@^Z]/S@^ZC/S@^ZH/S@^ZMUNNORMALIZED ARGUMENT@ NEGATIVE ARGUMENT@NON-POOU )@@G@@SITIVE ARGUMENT@ ABS(ARGUMENT) > 1@ARG1**ARG2; OVERFLOW@ ARG1**ARG2; OV )@@G@@ARG1=0, ARG2=0@ ARG1**ARG2; ARG1=0, ARG2 .LE. 0@ ARG1**ARG2; ARG1 UOW )@@G@@NNORMALIZED@ARG1**ARG2; ARG2 UNNORMALIZED@ARG1**ARG2; OVERFLOW ARG2*LOG(OX )@@G@@ARG1)@*SUPWB@@[@@@@@@@@E000000@@@@[_@@@/K@( 34H )@@@@@Z_____MADE REFERENOY )@@G@@CE TO INVALID ITEM ID ______SCLIMG______SCLIMG CALL IGNORED. MAX .LT.OZ )@@G@@ MIN ______FRAME ______GCOORD______@@F@@@IMGLDR@^%@@]BUILD IMMDT @@@@ZKPA )@@G@@@@[@@[@@[@@@SAVE GRPHCSERASE MR__8@KO@@@@NS@@@@KG@@@@VISIBL PCOORD:INVAPB )@@G@@LID UNIT LENGTH-CURRENT PAGE CANCELLED$ ______@@F@@^PCOORD@[?@@]@@@^-TPC )@@G@@@@@@@BB N D,@@TTY WTO = NNN,BRF=ON @@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GRPHCS@@@DTC@@ ^-LPG )@@G@@)@@@@@@@[^-H@@[^-GZ8@@@@NORMALTRNSP NONE PAGDEF:UNABLE TO INTERPRET PAPH )@@G@@GE ORIENTATION-DEFAULT ORIENTATION IS *NORMAL*$ ______ PAGDEF:PAGE POORLPI )@@G@@Y DEFINED-NO PAGE DEFINITION GENERATED$ ______@@F@@BC@VK@#[@K^LB/K@[IIPJ )@@G@@R@K^I?C/@@]V"O@^LDC@@@@H"C[^%&"@[^:M[@@@@@C/)@]V"O)^LF[@0^LEC@)@@J"C-^:BPK )@@G@@"@-^:X[@)@@@C[@^I?G.@__.@ O[S)@G%[X6@QM[%0@@]^+?@@]^+*@@]^< @@^^^*E@@#^3Q@@[^3*@@^^\D@@[^\I@@ ^\L@@O^\9@@]^0LPM )@@G@@@@G^1K@@X^29@@0^*6@@Y^(?@@[^%F@[H^%&@@V^:'@]#^?T[^@[O-/K@[NPC8@@@]/\K[RVPN )@@G@@C8FK@@[^@[R^/K@[Q.R@K^S_R@)^T@Q@)^TIN.@@@DC@])@@[@[=S48L@[S:C@)^T["@)^S5PO )@@G@@/C)[S3*@@@@I/K@[TTC@)^S5"^)^S7*@@@@I1@@@@I/K@[TTC@)^3Z"^)^S7/C)[S.*@@@@IPP )@@G@@/K@[TTC@)^T["@)^S6/C)[T]*@@@@I/K@[TTC@)^S6"^)^S8*@@@@I1@@@@I/K@[TTC/)@@[PQ )@@G@@C[@^\DH[@^T](@@@@KC8)@@@C.@@@[CD)^\DG.)6&7(@@@@MC9@@@@+@)@@K/=0[T=C@)^T#PR )@@G@@"@)^3R"^)^S8/G)[TT*@@@@I/K@[T=C@@^SAH@@^S.(@@@@G/K@[T)/,0[_;@@@^SF@[+^TFPS )@@G@@ @@^3$N@0[TPX )@@G@@ @@^SCC@@^SAH@@^S"*@@@@G/K@[U"^@^3<"G@^3*"@@^3([@@^35C@)^3&"^)^3="G)^3*"@)^3%[@)^36C@@^3"^)^3<"G)^3*"@)^3%[@)^36C@@^3>"G@^3Q"@@^T^"@@^T "K@@@G;)W@@D[@K^3XQB )@@G@@C@@^3="G@^3Q"@@^T^"@@^T "K@@@G;)W@@D[@K^3Y @@^3, @@^3\C@@^3:"^@^3(*@@@@GQC )@@G@@1@@@@G/K@[VWC/@__"[@@^3,C@@^35"^@^3:*@@@@G1@@@@G/K@[V"^)^3@]3^TF/,0[9G@]4^TFC@@^\DH@@^T]*@@@@G/K@[T-C/@@@[[@@^0GQK )@@G@@C/)@@[[@)^0F*@@^\L/K@[T-C@@^3$[@@^SDC.@@@L[5@^SDC.)@@[[[)^SEC/@__"H@@^3TQL )@@G@@*@@@@G/K@[XCC/@@@#[@@^SEC@@^SE[0@^SDC@)^SC[?)^SD/,0]@Q@@@^SD@#]^TF/,0]@QQM )@@G@@@@@^3<@##^TF/,0]@Q@@@^3=@#^^TF/,0]@Q@@@^3>@# ^TF/,0]@Q@@@^3&@#A^TF/K@[T-QN )@@G@@N@0[XY/K@[XZ@#B^TFR]0^TG9!)^TJR@K^TLR@)^TMN[@^TN*4@OTD/K@OTD/K@]8ZAA0^TGQO )@@G@@9()^TJA@K^TLA@)^TM^[@^TNC8FK@@[@@^TI/K@[S$C@@^TO'=@@@4C@@[X5[@FK@@/KF@@]QP )@@G@@C@@^UL[@@^TVC4@^UL[@@^TWC)@^ULG/@__'*@@@@G/K@[Y@C@@^TW[@@^TVN@0[Y]/K@[G/@@Q:[@@^T&H@@^T>R@)^U^Q@)^T>[@@@[ C@@^U [@]=TO8LK[Z:QZ )@@G@@O/K@@[8L@[ZY@]&^UERF )@@G@@C@@^T%H@@@@@(@@@@G/K@[-8D@@^T1*@@@@G1@@@@G/K@[-GC@@^T,;@@@@Y@]3^UERI )@@G@@C@@^T?H@@@@@(@@@@G/K@[-8D@@^T1*@@@@G1@@@@G/K@[-0C@@^T!;@@@@Y@#]^UEC/@@@ [@@^-^N@0[+A/K@[Y@#G^UEC@@^T2[@@^TVRN )@@G@@/K@[+]C/@@@[[@@^1QC@)^TV[@)^T2C[@^UPC[)@@KG[)^UB0@@@@MC.@@@@[[@^T3C@@^T3RO )@@G@@;K@@@]G/@@@[[@@^TWC@)^T3;O)@@=W/)@@^T/0@@DE@0@@J[@0^T4C[@^T3H[@@@@*@@@@KRP )@@G@@1@@@@K/K@[/,0[&F@@@^T>@@@^TVRQ )@@G@@@#U^UEC/@@[_H@@^TV/C@[<@*@@@@G/K@[Y@#X^UE(@@@@@/K@[&C8@@@^/\K[$C8@@@^/\K[5C8@@@A/\K[OC/@@@[C/)@AFH@)^T?*@@@@I1@@@@IC8@@@@C/)@@[D[@^T?*@@@@K0@@@@KRX )@@G@@C8)@@@)@@@@I/=K[>OC@@^T?H@@^TYG/@@@[]@@^T7;O@@@=W/@@[]]@@^T=T/@@[]G@@^T7RY )@@G@@[@@^T7C@)^T%;O)@@=W/)@@A[@)^T8R@K^T=T/)@@AH@)^T%T/)@@AE@)@@I[@)^T5T/@@@QRZ )@@G@@C[[^TPG[@^T8G@@@@K[@@^T6R@K^T6C[[^TO;-@OT5;D@@@YC.)@@[[[@^UZG.@__%*@@@@KSA )@@G@@0@@@@KC9)@@@C.@@@[C]@^UZG"@__9*@@@@O1@@@@OC9@@@@)[)@@K/>0[>EC.@@@[C.)@@PSB )@@G@@H[)^TV*@@@@M1@@@@MC9@@@@C.)@@[C]@^TVG"@__9*@@@@O1@@@@OC9)@@@)[@@@M/>K[>OSC )@@G@@C/@@@AG@@^T5R@K^T6E@@@@GC@)^TVC@1^TO;)/@@@;G)@@A;@0OT5[@1^TON@0[>Q/K@[>RSD )@@G@@@#'^UIR]0^UJ9!)^U)9,@^U+R@K^U=*4@OUG/K@OUG/K@]8ZAA0^UJ9()^U)9%@^U+A@K^U=SE )@@G@@/K@[<7C@VK@@[@K^UL/K@[X6/K@[Y#C8FK@@[^@[-8[^@[)7[^@[)K[^@[+IC8FK@[[^@[)NSF )@@G@@[^@[-V[^@[+K[^@[-'C8FK@][^@[)H[^@[-./K@[)FC8FK@@[^@[-8[^@[)7[^@[)K[^@[+ISG )@@G@@C8FK@[[^@[)N[^@[-V[^@[+K[^@[-'C@VK@][@K^UN/K@[+BC8FK@[[@@^UOC8FK@][^@[+?SH )@@G@@C@VK@#[@K^UPC8FK@^[^@[<]/K@[+RC@VK@@!8K@ @P;K@^@!8K@]@/K@[&V @@@@GW8@@@ASI )@@G@@')H[&P[[VK@[/KF@@#C5W^U>C1W^U>C!W^U>C(W^U>C>W^U>C-W^U>C[K@@H/K@[&NC@F@@@SJ )@@G@@[^@^U;C@@^U;'=@@@I/KF@@]C@@^U"'=@@[Z/KF@@[R#V@@@R#H@@@1@H@@@/K@[&:%@@^ZSSK )@@G@@/K@[&!A#@^VD/KF@@]A]0^W2A#@^U_/,0]/K@@@@'^@[*9'^@[(D'^@[(['^@[(D'^@[*./K@[(?/K@@@@A])^VZA]0^W2TB )@@G@@A]0^V)9*@^V-9*)^V<9(@^V>^@K^V$A@K^V*/K@[(3/K@@@@R])^VZR]0^V)9?@^V-9?)^VN@K^V$R@K^V*/K@[(./K@@@@RB@^V)A#@^YFL8@@@[RB!@@@P;)@@[RB,@@@R#,@@@TD )@@G@@A#)^XO/K@[%AR#@^W0A#E^WR9?@^W59*F-%)/K@[%RR])^YM/K@[%4/,0]C[K^W0[[K^W$^@K^YJ/,0][[@^XON@K^YJ8KK[%;/K@[:;9!@^XX9(@^W>9!@^X^9(@^W$TK )@@G@@9!@^XA9(@^W(/,0]R@K^Z>C^-^\M[@)^Z=(@@^Z=/K@[!:R@)^Z=TS )@@G@@CD]^\M[[@^Z&H[@^Z+/D@[!S*@@@@K/K@[!E[@)^\MC[@^Z&H[@^Z+(@@@@K/K@[!&G@)^Z+TT )@@G@@[^-^\MR@K@@IC@)^Z&H@)^Z+[C-^\MC^+^\M[^-^\M/K@[!/R@)^Z=R@K^Z>C^]^\M[^[^\MTU )@@G@@/K@[!//,0@?(@@@^)F@@@^\N@@@^Z$@[(^)SC@@^Z$[@@^\MR@)^Z>G@@^Z+[^]^\MR@K^\MTV )@@G@@O@K^Z+ @[^\MR@)@@GC/@@ZKH@@^Z+[C]^\MC/@@@R@K^Z>C^-^\M[@)^Z=*@@^Z=UD )@@G@@/K@[\X/,0]@@@@@^Z5@]W^)SN@0[\W/K@[4/@]X^)SC@@^Z:H@@^Z=*@@@@G/K@[\KR@)^Z:UE )@@G@@C^]^\M[@@^Z,/,0@?&@@@^Z:@]-^)S[@@^Z\R@0^Z:A@0^)YC/@@@#H@@^Z%*@@@@G/K@[\2UF )@@G@@C@@^Z)R@K^)Y+@[^\M[@L^\MC@@^\I"^@^)I*@@@@G/K@[0NC/@@@[C@)^\DH@)^)J*@@@@IUG )@@G@@C8@@@@C/)@@[C[@^Z&H[@^-A(@@@@KC8)@@@+@@@@I/)K[0 /,0[S+@@@^Z&@]$^)SC@@^\OUH )@@G@@[@@^Z0C@)^Z:[@)^\OR@)^)YC[]^\M[[@^Z1 ^]^\M/,0[@2@]?^)SC@@^Z0[@@^\OC@)^Z1UI )@@G@@[@+^\MC/@@@[H@@^Z%(@@@@G/K@[0>C/@@@]H@@^Z%(@@@@G/K@[04C@@^Z!H@@^Z:(@@@@GUJ )@@G@@/K@[0+C@@^Z,[@@^Z:/K@[\-N@0[0=/K@[4/@]7^)SR@0^Z:R@K^Z>C^#^\M[^[^\MA@0^)YUK )@@G@@R@)^)Y*^]^\M/K@[0\C@@^Z>[@@^\M/,0@:(@@@^Z:@@@^Z\@];^)S/K@[0VR@K^Z:C@@^ZZUL )@@G@@)@[^\M[@L^\M/K@[0VC@@^)Z[@@^Z:C/)@@][@)^Z%C.@@@[[[@^Z&/K@[\AC@@^))[@@^Z:UM )@@G@@C/)@@#[@)^Z% @@^Z&/K@[\A @@^\. @@^\"*@@^\O/K@[1HN@0[1G/K@[4/@#J^)SC@@^\OUN )@@G@@[@@^Z,C@@^Z,[@@^Z:/,0@?&@@@^Z,@#M^)S[@@^Z\R@0^Z,C^#^\M[@@^Z,*@@^Z,/K@[1$UO )@@G@@/,0@:(@@@^Z:@@@^Z\@#Q^)S @@^\OC/@@@][@@^\MC/)@@[[@)^0A @@^0QN@0[1&/K@[4/UP )@@G@@@#V^)SC@@^Z\G@@^Z:H@@^Z,*@@@@G/K@[12/,0@?&@@@^Z,@#Y^)SG@@^Z\[@@^Z\/K@[1PUQ )@@G@@/,0@:(@@@^Z:@@@^Z\@#)^)S/K@[1JC@@^)-[@@^Z& @@^Z-C/@@@[*@@^Z&C8@@@@C/)@@[UR )@@G@@C[@^Z&H[@^)K*@@@@KC8)@@@)@@@@I/)K[2AC/@@@[[@@^Z-N@0[2C/K@[4/@#*^)S/,0]@ US )@@G@@@@@^Z/@@@@@@@@@@@@@@@@@@@@@@@@@#:^)SC/@@@[C@)@@@"^)@@@*@@@@I1@@@@IC8@@@@UT )@@G@@C/)@@[C[@@@@" @@@@*@@@@K1@@@@KC8)@@@+@@@@I/=K[2=/,0]@@@@@^Z"@#,^)SN@0[2" @^\'VE )@@G@@"D@^Z4][@^\'C[)^)>" )^\/"D)^Z4][)^\//K@[2?C@@^\9[@@@@@C@)^\;[@)@@@C[@^\'VF )@@G@@[[@@@@C[)^\/[[)@@@N@0[4:/K@[4/@^)^)SC@@^\G[@@@@@N@0[40/K@[4/@^=^)SC@@^)PVG )@@G@@[@@@@@C/@@@[H@@^Z-*@@@@G/K@[49C@@^)K[@@@@@N@0[4;/K@[4/@^%^)SR]0^)T9!)^)&VH )@@G@@9,@^)*R@K^)%R@)^):R@0^)?N[@^)!*4@O)Q/K@O)Q/K@]8ZAA0^)T[^@^)Q9()^)&9%@^)*VI )@@G@@A@K^)%A@)^):A@0^)?^[@^)!/KH@@@C8@@@]/\K[5AC@VK@@[@K^)V/K@[?,C8@@@]/\K[5AVJ )@@G@@C@VK@@[@K^)W/K@[,PC8@@@]/\K[5AC8FK@@[^@[,./K@[,/C8@@@]/\K[5AC@VK@@[@K^)XVK )@@G@@/K@[\[C8@@@]/\K[5AC@VK@@[@K^)Z/K@[09C8@@@]/\K[5AC@VK@@[@K^))/K@[1@C8@@@[VL )@@G@@/\K[5A/K@[1AC8@@@]/\K[5AC@VK@@[@K^)-/K@[17C8@@@ /\K[5AC8FK@@[^@[2=[^@[2FVM )@@G@@[^@[2LC8FK@[[^@[2*[^@[2R[^@[2GC8FK@][^@[2&[^@[2H[^@[2MC8FK@#[^@[2S[^@[2IVN )@@G@@[^@[2%/K@[2DC8@@@ /\K[5AC8FK@@[^@[2_[^@[3^C8FK@[[^@[3@[^@[3AC8FK@][^@[3[VO )@@G@@[^@[3CC8FK@#[^@[3][^@[3E/K@[2.C8@@@ /\K[5AC@VK@@[@K^)+C@VK@[[@K^)VQ )@@G@@C8FK@][^@[4I[^@[4F/K@[4BC8@@@ /\K[5AC8FK@@[^@[4+C8FK@[[^@[4&C8FK@][^@[4=VR )@@G@@C8FK@#[^@[4*/K@[4-C8@@@]/\K[5AC8FK@@[^@[4!/K@[4?C8@@@]/\K[5AC8FK@@[^@[42VS )@@G@@[^@[48/K@[41D@@^3$*@@@@G1@@@@G/K@[8JC@@^-[[@@^),C@)^-][@)^)\C[@^-#[[@^)0VT )@@G@@/H@[7L*@@@@K/K@[7SC[@^3$[[@^3+ @@^3$/,0[_;@@@^)2@[M^)"/K@[8MC/@@@]H@@^3UVU )@@G@@*@@@@G1@@@@G/K@[7)C@@^)0"C@^3U[@@^)0C@@^3*"G@^)0[@@^3*C@)^3:"^)^3("C@@@IVV )@@G@@"^@^),[@@^3:C@)^3?"^)^3%"C)^3*"^)^)\[@)^3?C@@^3("^@^35"C@^3*"@@^),]@@^35VW )@@G@@C@)^3%"^)^36"C)^3*"@)^)\]@)^36D@@^),[@@^3(D@)^)\[@)^3%C@@^)0[@@^3*C@)^3(VX )@@G@@[@)^\9C@@^3%[@@^\'C@)^35[@)^\;C@@^36[@@^\/C/)@@[[@)^0AC@@^)0"C@^0 [@@^0 VY )@@G@@C@)^3*"G)^3Q[@)^33C/@__"[@@^)1N@0[8L/K@[8X@[$^)"D@@^3+*@@@@G1@@@@G/K@[8JVZ )@@G@@C@@^3+[@@^3$ @@^3+/K@[7CN@0[8W/K@[8X@[?^)"R]0^)_*4@O)//K@O)//K@]8ZAA0^)_WA )@@G@@C@VK@@[@K^-[C@VK@[[@K^-]C@VK@][@K^-#/K@[7^9(@^-IC@0^-SC9@@]^:[@^-Q'^@['GWB )@@G@@C[@^-QG9@@@[[[@^-Q?[@^-B/K@[85C9@@@[[[@^-DC[VK@@C@@^-'%@@^\D/K@[8;:9K@[_WC )@@G@@C9K@@_C@0^-SC@@^-R(@@@@G/K@[9[P;@@@D/K@[9^O;0@@[[@0^-SC8@@@V[@@^-RC[J^-SWD )@@G@@;DG@@D;(K@@V;!G@@D[[J^-S9!@^-I/KF@@](@@^-Q/KF@@[C@0^-SC@K^-Q!8K@[_'^@['GWE )@@G@@C@0^-SC@)^-RCC@^\D:@@^-;/K@[9$?8)@@EO;0@@[C@Z^-S)@K^3M[@\^-SO;0@@[C@)^3NWF )@@G@@[@\^-S'^@['GCCK^\D%@K^-; @@^-^ @@^- @@^-A @@^-D/KF@@[ @@^3MC@@^-^%8@@@ WG )@@G@@/K@[90C8K@@A[@K^3MP;@@@^[@@^-^/K@[9R%8@@@A/K@[9RC8K@@V/K@[9?A]0^-KCC)^3OWH )@@G@@/@)['@[^)^-N/,0[9G@@@@@@C^0^3O[@0^-TC80@@['^@['GC@@^-/'=@@[ZR]0^-K/KF@@[WI )@@G@@A]0^-K/,0[9G@@@@@@C@)^3P[@)^-TC80@@[[40^3P'^@['GR]0^-K/KF@@[@@@@@@[C0^-EWJ )@@G@@C@J^-S)@@^-.[@Z^-SC@@^-"'=@@[Z(@@^-F/K@['SC@@^-_'=@@[Z @@^-FC@@^-E'=@@@8WK )@@G@@C8@@@< @G^-Q8#@['V/K@L'GC@FK@@[@@^+XC@:K@[[@)^+YC@FK@][@@^+ZC@:K@#[@)^+)WL )@@G@@/,0][T@[P^+?C@@^+@[@@^+> @@^+&C/@@@[*@@^+\ @@@@GC/)@@[C[@^+#H[@^+\*@@@@KWM )@@G@@ @@@@I)@@@@I/=K['7C@@^+@[@@^+& @@^+< @@^+=C@@^+*[@@^++C/)@@[G@)^3S[@)^3SWN )@@G@@[@)^+-C@@^+0[@@^+$C/@@@[C@)^+[H@)^+$*@@@@I @@@@GC/)@@[*@@^+$ @@@@I)@@@@IWO )@@G@@/)K[;HC/@@@[[@@^+$C@@^+]H@@^+$*@@@@G/K@[;NC/@__"[@@^+$CC@^\DG/@6&7*@@@@GWP )@@G@@/K@[;TD@@^+$[@@^+$C/@__"H@@^+$(@@@@G/K@[;&E@@^+$G/@__"*@@@@G0@@@@G/K@[;*WQ )@@G@@/,0[_;@@@^+^@[%^+?/K@[;*D@@^+-[@@^+-C@@^3Z[@@^+$C@@^3Z"^@^+Z*@@@@G1@@@@GWR )@@G@@/K@[;1C@@^+Z[@@^3Z/,0[X$@@@^+X@[0^+?C/@@@[CC)^\DG/)6&7*@@@@I @@@@GC/)@@[WS )@@G@@C[@^\DH[@^+(*@@@@K @@@@I)@@@@IC/)@@[(@@^3$ @@@@I;^@@@=+@@@@I/=K[/MC@@^+$WT )@@G@@[@@^3ZC/)@@[H@)^3S]@)^3S*@@^3$/K@[/M/,0[_;@@@^+M@[7^+?N@0[/L/K@[/V@[8^+?WU )@@G@@C@@^3Z[@@^3)C@)^3R[@)^3- @@^3U/K@[/JN@0[/U/K@[/V@[/^+?R]0^+!*4@O+%/K@O+%WV )@@G@@/K@]8ZAA0^+!C@VK@^[@K^+0C@VK@ [@K^+\/K@['YR/K@@[R@)^<>R/0@@[N.@@@NA@0^SN )@@G@@/S@@@@NEW OLD @@@[[*/,0@@@AA@@@A)@^@<#@]A@@@)(C@K@)@C@N#@-[@@@/,0@@@SO )@@G@@]@@@*&______PURGE H@@@*&C/@@@A@[P@@@@@@@*&AB@@@A)@E[F#@CK=G@-#K0CEA@@@@@SP )@@G@@@@@@: @@@@@@@@@@*$/,0@@@@[S@@@@@@@:^/,0@@@@[R@@@@@@@(CAC@@@A)@N@3@^[]*-)SQ )@@G@@@@@@@@)(E@S@RGE TEBANKPU(021H @[V@@@@@[@(E/,0@@@/K@@@X@[T@@@/K@@@QAD@@@ASR )@@G@@)(H@K@)@T@;]%-QK0]A@@@@@;C@@@E;)@@@EC@@@*$@[Y@@@@@@@:A/,0@@@'^@@@@ED) SS )@@G@@RMINATAE@@@A)@)[]K[#@-OK0] O@@)(J@C@(036H '^@@@@@[+@@@@@[@(J/,0@@@[@@@*>ST )@@G@@C/@@@[/K@@@*(@@@@GAF@@@A)(K@0@@@@@@@)@*@V]C-)K0@@@@@@[@@@@:B/,0@@@PURGE)SU )@@G@@H BANKED WITNOT USS ARE OPTIONAG@@@A)@:[F#@)C@CS^[#@@@@@@@@@C/@@@[ @@@**SV )@@G@@/K@@@'[@@@**C/@@@[@[>@@@/K@@@2/K@@@2@@@@@#AH@@@A)@4@3#@-OK0]A[]%@@)(Q@S@SW )@@G@@ICATIOSPECIF(019H '^@@@@@@K@@D@[%@@@@@[@(Q/,0@@@[@@@*>AI@@@A)(T@8@@@@@@@SX )@@G@@)@'@N]C-)@@@@@@@:C/,0@@@ERROR)OR IN SSING IS MI7HBANK,A3,02N FOR AJ@@@ASY )@@G@@)@/[F#@-)K^@K[#@-O@@@@@@/,0@@@[@@@*>C/@@@[/K@@[D@[,@@@/K@@[]/K@@[]@@@@@BSZ )@@G@@@@@@@ AK@@@A)[ [F#@CS^E%^L#@-)K0C@@@/K@@[Q@@@@@H@@@@@F@@@@:D/,0@@@'^@@@@TA )@@G@@@@K@@E@[1@@@@@[@(QAL@@@A)[I[#@[#@-OK0] O@@)()@C@(097H '^@@@@@[6@@@@@[@()TB )@@G@@/,0@@@[@@@*>C/@@@[@[4@@@/K@@[KAM@@@A)(-[S@@@@@@@LDBANKONLY OENT - STATEMTC )@@G@@PURGE E BANK ON THNS AREICATIOSPECIFEXTRA AN@@@A)(?@0@@@@@@@)[Q@V#@-)@@@TD )@@G@@C/@__" @@@*% @@@*() E USED CAN B SPECSEWBANK AND NAO@@@A)[T[F#@-)K:*TE )@@G@@S^G@)C]A@@@@C[)@*?@@]@#J@@#@#[@[.@@@@@@@(2@@#@:E/,0@@@ @@@*?[@@@*:AP@@@ATF )@@G@@)[+@'K0]A[#@-SK@@@)(2@K@A2) (13A6,8L@@[&'^K@@@C8[)@I[[)@:ON.@@@HR@K@:FTG )@@G@@T.)@@#AQ@@@A)[([F]%-OK0]A@K0CQ^@@@@@8L@@[\'^K@@@C8[)@IN.@@@HR@K@:F@]^@@@TH )@@G@@@@[@(4/,0@@@'^@@@@AR@@@A)(4@K@)[2@;]%CS^G]A[#@)@^^K@[.N8L@@ZR@K@:O[@@@*&TI )@@G@@G@@@*&C/@@@['^@@@@A6,A2)(5X,13AS@@@A)[9[F]E-)K0CS^[#@CS^@@@@/K@@]^(@@@*,TJ )@@G@@@]G@@@@@@@*,@@@@[.@@@@*!@@@@@X@@@@@J/,0@@@AT@@@A)]][EK0CS^G@)CS^@@@@@@@@TK )@@G@@*@@@@G/G@@]GD@@@*:/K@@]$*@@@@GH@@@:GC@@@@X[@@@*>C/@@@[AU@@@A)]F@;@^G] L#TL )@@G@@@CPK@@)(6@K@ONLY O(038H '^@@@@@]P@@@@@[@(6/,0@@@[@@@*>C/@@@[/K@@]MAV@@@ATM )@@G@@)(8@0@@@@@@@)]M@V#@CS@@@H@@@*!C/@@@[ @@@*:D) ALLOWENT IS TATEMEERVE STN )@@G@@NE RESAW@@@A)]P@'K[#@-OK0@@@@@)("@K@RESERV(084H @]W@@@@@[@("/,0@@@[@@@*>TO )@@G@@C/@@@[/K@@]Y(@@@@GAX@@@A)%@[S@@@@@@@-NEGAT A NONE M IS WHERERVE MM RESTP )@@G@@HE FORE IN TMUST BEMENT E STATAY@@@A)%F@K@)]W@;]%)CS[#@@@@@@*@@@@IG/)__"TQ )@@G@@C@?@@ZT/@@@#C@@@*?/K@@[V'^@@@@TEGER)IVE INAZ@@@A)]<[F@K0CS^[#@-)^[#@@@@@TR )@@G@@C@@@@X/K@@]6(@@@@GH@@@:HC@@@@X/K@@[V[@)@*:C@?@@)/K@@]RBA@@@A)]?[##@C@-)KTS )@@G@@%CS@@@)%H@C@(062H @](@@@@@[@%H/,0@@@[@@@*>C/@@@[/K@@]'(@@@@GH@@@:IBB@@@ATT )@@G@@)%I[S@@@@@@@E) NKPURGITH BAOWED WRE ALLERVE AND RESUDE, A, EXCLNCLUDETU )@@G@@ONLY IBC@@@A)]4[F]%)]A[#@)]A[#@@@@@@[@@@*%G@@@*%C/@@@[/K@@].[@@@*(G@@@*(TV )@@G@@C/@@@[/K@@[V'^@@@@BD@@@A)].[F#@-)K0C] L#@CS@@@@@N.@@@HR@K@:F@]2@@@@@[@(4TW )@@G@@/,0@@@/K@@[V[@@@*?G@@@*?C@@@*!BE@@@A)#A@;#@-SK^E% L#@@)%T@K@INPUT (056H TX )@@G@@@]8@@@@@[@%T/,0@@@'^@@@@8L@@#A'^K@@@C8[)@IBF@@@A)%V[C@@@@@@@@@@[C@@@@@@@TY )@@G@@D) VE CARHE ABODING TLE REAED WHIOCCURR HAVE ERRORSBG@@@A)#H[N]%)]A@^TZ )@@G@@G@C@@@/=K@#Z)@@@@I @@@@I*@@@*(C/)@@[ @@@@G*@@@*%C/@@@[/K@@@Q'^@@@@BH@@@AUA )@@G@@)#R@%K0CP^G@)%=@)@@@@@@@EXCLUDE AND INCLUD(052H @]_@@@@@[@%=/,0@@@[@@@*>UB )@@G@@C/@@@[BI@@@A)%*@0@@@@@@@)#W@V]%-)K0@ @@@*% @@@*('^@@@@SED) H BE UOT BOTUC )@@G@@ CAN NEMENTSE STATBJ@@@A)#Z[F#@)CL=G]A[#@CL4G@@@@@@@@[/,0@@@@#A@@@@@@@R;UD )@@G@@@@@@@#@@@@@[/,0@@@/K@@@Q(@@@**BK@@@A)#*[F#@-)K0C@-)K0]A@@@@@[@@@*1T/@@@IUE )@@G@@[@@@*0C@@@S[@#B@@@/K@@@Q@@@@S@@@@@*\@@@@@#BL@@@A)#1[F#@]@-CK0CS^@@@@@@@@UF )@@G@@@#G@@@/K@@#.@@@@:^@@@@*1/,0@@@/K@@^]0@@@@G*@@@@GH@@@@@BM@@@A)#'@3#@-)K^EUG )@@G@@+A@@@@)%,@S@TROUBL***** (037H @#J@@@@@[@%,/,0@@@/K@@^][@@@@@C@@@*1BN@@@AUH )@@G@@)%1@*@@@@@@@)^@@V]%)CMK@@@@@@@/,0@@@/K@@@Q'^@@@@) COMMONBLANK NDING UI )@@G@@E EXPABO@@@A)^#[N#@-)K0CE@]A@@C/)@@[ @@@@G*@@@*(C/@@@[@#N@@@/K@@@Q@@@@@@UJ )@@G@@@@@@*0@@@@:B@@@@*\BP@@@A)^H[F#@]@-)K^DMA[#@@@@@@@@@@*?@@@@R;/,0@@@/K@@^?UK )@@G@@(@@@*?/=K@^Y+@@@@I @@@@I*@@@*%BQ@@@A)^Q[F#@-)KOG]A[@^@@@@@@@C/@__"/K@@^?UL )@@G@@@#S@@@/K@@^%@@@@SW@@@@*2@@@@@@@@@@*0@@@@@ZBR@@@A)^Z[F#@]A[#@-)^[#@@@@@@@UM )@@G@@C@)@*08L@@^+O/K@@[[@[@SVC@@@*3A@K@*3[@@@[^R/K@@[G@@@*0BS@@@A)^*[F#@)]A[#UN )@@G@@@)]A@@@@@@@@C/)__"G@@@*0C/@__"/K@@@Q*@@@*>[@@@*>C/@@@[/K@@^?[@)@*2BT@@@AUO )@@G@@)^1[F#@-)K^G@-)K0CS@@@@@T/@@@I[@@@*4C@[)SV[@@@:O[@)@[^R@K@:F/K@@ S(@@@*%UP )@@G@@G@)@*2BU@@@A)^'[F#@/*]A@^G]A[9@@@@@@C@[J_1[#)@*4N[@@:OR/K@@IC_)@@[ @@@*3UQ )@@G@@8L@@^7[@?J_1C@)@:JBV@@@A) #[F#@C@-)K0CS^G]A@@@@@[@+@SVC@)@*4R@)@*3[@@@*3UR )@@G@@G@@@*3C/@@@[/K@@ G(@@@@GH@@@:JBW@@@A) G[E^[#@-)K0C] L#@@@@@@@@[@%6/,0@@@US )@@G@@/K@@ S*@@@*2[@@@*2C@@@*38L@@ [G_)@@[O/K@@IBX@@@A) P@E@)%6[@@@@@@@@@@@@@@UT )@@G@@ANK) M NEWBED FROEXCLUDLE IS VARIABEVERY (040H @#9@@@BY@@@A) Q[F]%)]A@KUU )@@G@@0CS[#@@@@@@@[@)@:O[@@@[^R@)@:KG@)@*2C/)__"G@@@*0C/@__"/K@@@Q'^@@@@BZ@@@AUV )@@G@@) Z[F9YR>9YR>@K0CS@@@@@@R@)@:FR@K@:K8L@@ Z[@]\_6C@]J_3[@+J_5C@+J_2[@]J_4UW )@@G@@C@]J_1CA@@@A) *[F#@-)K0#2/\F2/)@@@@@C@?J_6[[[J_2C[GJ_5[@-J_1C@?J_4T/@@@IUX )@@G@@[@@@*4C@])SVN[@@:OCB@@@A) 1[F9K^G]A@YO@K@@@@@@@@8L@@ 5Q/L@@#8LK@ 6 @[\_0UY )@@G@@N.K@@EN[@@:OR@K@:L8L@@ ([@-\_3CC@@@A) '[F#@CS[#@-)^G]A@@@@@@C@]@SVN[@@:OUZ )@@G@@R/)@@[ @@@*7[@)@*6C/)@J*[@@@*1T/@@@IC@@@*2CD@@@A)A#[F#@]@-)K0CS^G@@@@@@@VA )@@G@@*@@@@GH@]@SVC@@@*7[@@@*6C@]@SV/K@@AD1@@@@G*@@@@GH@@@*6CE@@@A)AG[EK^G]A@KVB )@@G@@^G]A@@@@@@@@G/@@@[H@@@*6C@@@*78L@@A]O/)@@[[@@@*7C@]@SV/K@@AK1@@@@GCF@@@AVC )@@G@@)AP[F#@-)K0CS^G@-)K^G@@@C@)@SQ8L@@AS[@[)SVG/@@@[H@@@*6C@[@SV[@@@:ON[@@:OVD )@@G@@R@K@:FCG@@@A)AY[F#@-)K0CS^G@C]A@@@@@ @@@*:/K@@A$0@@@@G*@@@@GD@@@*:[[@@*9VE )@@G@@C[@@:O[@)@*8T@)@:OCH@@@A)A$[F#@-)K0@-)K0]A@@@@@@[@@@*;T/@@@W[@@@*;W@@@*'VF )@@G@@;O@@@=G/@@[7[@@@*'G@@@*:C@@@*2CI@@@A)A0[F#@-)K0CS[#@-)K0CS@@G[)@*1C[)@*8VG )@@G@@[[@@*"G[@@*1C.@@@[[@)@*.C@)@*2[@@@*/T@@@*2CJ@@@A)A9[F#@CS^G]A[#@CS^G@@@@VH )@@G@@G@@@*1[]@@(@G"@@@[[]@@*1G]@@*1C]@@*9[[)@*_G.)@@[[[)@*1CK@@@A)B][F#@CS^G]VI )@@G@@A[#@]@@@@@@@/K@@BM0@@@@I*@@@@IH@)@@@[@)@*1G@)@*1[@@@([G/@@@[[@@@*1CL@@@AVJ )@@G@@)BF[F]K-)K0C@-)K0CSB=@@@N8MJ_"R@)@*"[@@@@@C@@@*1@^9@@@/K@@#.@@@@:^@@@@*1VK )@@G@@/,0@@@CM@@@A)BO[F@K>*S^G]A[@K[#@@@@@R@K@(@@^;@@@/K@@@Q@@@@BT@@@@*7@@@@*6VL )@@G@@@@@@*\/,0@@@^^K@BTCN@@@A)BX[F#@CS^[#@-)K0CS^G@@@R@)@:M[@)@*BC@)@*:[@@@* VM )@@G@@C@@@*28L@@BZ @])*#N.@@@VR@)@:FCO@@@A)B&[EK0CS^[#@-)YO[]S@@@@/,0@@@^^K@B2VN )@@G@@N8LJ_"[@)@(]C@)@SS8L@@B$[@])*#C@]@R_N.@@@ECP@@@A)B\[F#@-)K0C]A[[K0C@@@@@VO )@@G@@@ D@@@/K@@@Q@@@@(]@@@@@@@@@@*^@@@@B2@@@@(#@@@@@B@@@@@ CQ@@@A)B8[F#@/*]^5VP )@@G@@#@)C]@@@@@@@@ E@@@/K@@@Q/K@@C%@@@@B.@@@@*\/,0@@@^^K@B.N8MJ_"R@)@*_CR@@@AVQ )@@G@@)C[[F#@-)K0]A[#@CS^G@@@@C@])SVR@0@(^[@)@[^R@)@:FG@)@*2C/)__"R@K@([[@@@(^VR )@@G@@C@@@([CS@@@A)CE[F#@-)K0JEA[9^G]A@@@@[@@@(^G@@@(^C/@@@[[@@@@@@@@*&VZ )@@G@@/,0@@@@ =@@@@@@@*)CZ@@@A)D [F]+CO=G]A[#@-)KOG@@@@@@@:B@@@@@@@@@@SW@@@@*2WA )@@G@@@@@@*^@@@@*)/,0@@@@ $@@@/,0@@@DA@@@A)DI@'K:CS[]?-)@@@@):^@K@@@@[[*@@@@@@WB )@@G@@@ (@@@@@@@:N/,0@@@@ (@@@@@@@:A/,0@@@@ *@@@DB@@@A):A[S@@@@@@@@@I@@ISKIP WC )@@G@@EXCLUDINCLUDRESERV@@[@@[@@@@@ @@@@@#@@@@@]@@@@@[ DC@@@A):L@S@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@[@@C@@[@@MDD@@@AWE )@@G@@0@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@[@@CWF )@@G@@@@[@@MDE@@@A@@@@@@%)]A@K0CS[#@@@@@@@[@)@:O[@@@[^R@)@:KG@)@*2C/)__"G@@@*0WG )@@G@@C/@__"/K@@@Q'^@@@@BZ@@@A@@^@@#@@B@@T@@9@@[@@.@@[@@ @:P@C@@DP@@@[[*S1LNOPWH )@@G@@ S1PHDI S1HEDC READCC GETSPC S1BADC S1FILTWI )@@G@@ S1SJIT S1MCOR S1SJLD S1TSVL S1SJIN S1SJOIWJ )@@G@@ S1SJIO S1SJOB S1IOMG S1SJOC S1PHST S1BAPRWK )@@G@@ NINTR$ NPRT$ NIO2$ NSTOP$ NRDU$ NIO1$ WL )@@G@@ FORMAIN$ @@[@@@@@@@@@BLANK$ ^@@@C@@]@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@ @@@@PR FORM 12,6,18 WO )@@G@@@#@@@@$(2) LIT @#@@@@$(1) AXR$ @G@@@@STJLST* . CALL SWP )@@G@@TJLST(FILE,NUMBNK,BNKNMS,NMLEN,BUFFER,BUFLEN,$ERR) @[@@@@. @A@@@@WQ )@@G@@ SX X10,SAVEX10 @ @@@@ DS A0,SAVEA0 WR )@@G@@@ @@@@ DS A2,SAVEA2 @ @@@@ DS A4,SAVEA4 WS )@@G@@@ @@@@ SR R3,SAVER3 @[@@@@. @D@@@@ TZ WT )@@G@@ REPEAT . COME AGAIN? @C@@@@ J REP WU )@@G@@ . YES. @[@@@@. @C@@@@ DL A0,*0,X11 WV )@@G@@ . FILE @B@@@@ DS A0,IOWDIR . @E@@@@ WW )@@G@@ DS A0,IOWELT . SET UP PACKETS. @[@@@@DS @F@@@@WX )@@G@@ DS A0,FACPKT . SET UP FACIL$ PACKET. @[@@@@WY )@@G@@. @B@@@@ LA,U A0,FACPKT . @E@@@@ ERWZ )@@G@@ FACIL$ . GET FACILITY INFO @E@@@@ TNZ,S1 XA )@@G@@ FACPKT+6 . EQUIP CODE ZERO? @ @@@@ J OUTLXB )@@G@@ST @[@@@@. @E@@@@ LA,U A0,IOWDIR . READ TXC )@@G@@HE HEADER. @F@@@@ ER IOW$ . OF TE PROGRAXD )@@G@@M FILE. @C@@@@ TZ,S1 IOWDIR+3 ERROR? @ @@@@XE )@@G@@ J IOERROR @A@@@@ LA A0,('**PF**') XF )@@G@@@E@@@@ TE A0,HDR . IS THIS A PF? @ @@@@XG )@@G@@ J NOTPF @D@@@@ LA,T1 A0,HDR+5 XH )@@G@@ . PTR LENGTH. @ @@@@ DSL A0,36 @F@@@@ DIXI )@@G@@,U A0,28 . LENGTH OF PTR TABLE @F@@@@ AAXJ )@@G@@,H2 A0,HDR+3 . ADD IN ADR OF TABLE. @C@@@@ SAXK )@@G@@ A0,SECTELT . PACKET@D@@@@ SA A0,SECTIN XL )@@G@@ . FOR BLOCKING@[@@@@. @G@@@@ LR R3,*3,X11 XM )@@G@@ . # OF NAMES WE CAN TAKE THIS CA@D@@@@ JGD R3,$XN )@@G@@+2 . SET FOR JGD @D@@@@ J BADCALL XO )@@G@@ . ZERO ILLEGAL@[@@@@. @E@@@@ LX,U X10,*2,X11 XP )@@G@@ . ADDR OF BNKNMS @F@@@@ LXI,U X10,2 . XQ )@@G@@TWO WORDS PER BANK. @[@@@@. @E@@@@ LA,H1 A2,HDR+4 XR )@@G@@ . TOTAL LEN OF TABLE@D@@@@ ANA,T1 A2,HDR+5 XS )@@G@@ . PTR LEN @F@@@@ AA,U A2,27 . AASSUMXT )@@G@@E REMAINDER OF 27 @C@@@@ TG A2,*5,X11 . BUFLENXU )@@G@@@D@@@@ J $+2 . NOT BIG @D@@@@ XV )@@G@@ J OKBLK . READ ONCE. @C@@@@ TNE XW )@@G@@ A2,*5,X11 . FIT? @C@@@@ J OKBLK XX )@@G@@ . JUST. @G@@@@ SA A2,BLKFLG . MUST BLOCK TXY )@@G@@HE ELEMENT TABLE. @D@@@@ LA A2,*5,X11 . GET BUXZ )@@G@@FLEN @F@@@@ ANA,U A2,8 . 8 WORDS TO BE ADDEYA )@@G@@D. @D@@@@ DSL A2,36 . FIND OUT HOW@ @@@@YB )@@G@@ DI,U A2,10 @ @@@@ MSI,U A2,10 @D@@@@YC )@@G@@ AA,U A2,8 . ROUND UP @]@@@@OKBLK . YD )@@G@@@E@@@@ SA,H1 A2,ACWBUF . # OF WORDS TO READ@E@@@@YE )@@G@@ SA A2,WORDSIN . SAVE FOR BLOCKING @D@@@@ YF )@@G@@ LA,U A1,*4,X11 . BUFFER. @D@@@@ SA,H2 YG )@@G@@ A1,ACWBUF . PACKET. @B@@@@ LA,U A0,IOWELT YH )@@G@@ . @^@@@@ ER IOW$@C@@@@ TZ,S1 IOWEYI )@@G@@LT+3 . ERROR?@D@@@@ J IOERROR . YJ )@@G@@BAD NEWS @E@@@@ AA,U A1,27 . POINT AT COUYK )@@G@@NTER. @E@@@@ ANA,U A2,28 . NUMBER OF WORDS. YL )@@G@@@B@@@@ DSL A2,36 . @F@@@@ DI,U YM )@@G@@ A2,10 . NUMBER OF ELEMENTS READ.@G@@@@ TNE,H2 YN )@@G@@ A2,0,A1 . NUMBER OF WLEMTNS IN TE FILE. @ @@@@ J YO )@@G@@ OKELT @D@@@@ TG,H2 A2,0,A1 . * DEBUYP )@@G@@G @E@@@@ ER ERR$ . **** DEBUG *** YQ )@@G@@@E@@@@ TNZ BLKFLG . ***** DEBUF **** @E@@@@YR )@@G@@ ER ERR$ . **** DEBUG **** @G@@@@ YS )@@G@@ SA A2,ELTNO . SAVE NUMBER ELEMENTS READ. @]@@@@YT )@@G@@OKELT . @E@@@@ SZ *1,X11 . NO BANKS YESYU )@@G@@ READ @F@@@@ LR R1,A2 . NUMBER OF ELEMENTSYV )@@G@@. @D@@@@ LA A2,0,A1 . GET INFO @E@@@@YW )@@G@@ SA A2,NUME . SAVE FOR LATER. @F@@@@ YX )@@G@@ AA,U A1,1 . MOVE TO FIRST ELEMENT @G@@@@ YY )@@G@@ LXI,U A1,10 . ELENEMT HAVE 10 WORDS PER. @E@@@@YZ )@@G@@ LA,U A0,*2,X11 . PTR TO BNKNMS @B@@@@ ZA )@@G@@ LA,U A2,7 . @D@@@@ ANA,U A1,10 ZB )@@G@@ . PTR BACK. @]@@@@LOOP . @E@@@@ SE,S3 A2,1ZC )@@G@@3,*A1 . ELEMENT TYPE. @B@@@@ J DONE ZD )@@G@@ . @D@@@@ TP 3,A1 . DELETED? ZE )@@G@@@C@@@@ J LOOP . YES @D@@@@ TZZF )@@G@@ 6,A1 . ZERO WORD. @^@@@@ J LOOPZG )@@G@@@[@@@@. @D@@@@ LA A0,*1,X11 . FOUND ELT ZH )@@G@@@D@@@@ AA,U A0,1 . ADD COUNTER.@ @@@@ ZI )@@G@@ SA A0,*1,X11 @D@@@@ DL A4,0,A1 . ZJ )@@G@@ELEMENT NAME@F@@@@ DS A4,0,*X10 INTO BANK NAMEZK )@@G@@S ARRAY. @B@@@@ JGD R3,LOOP . @[@@@@. ZL )@@G@@@A@@@@. OUT OF ROOM IN BNKNMS @ @@@@ DS A1,SZM )@@G@@AVEREP@A@@@@ SR R1,SAVEREP+2 @F@@@@ SA ZN )@@G@@ A1,REPEAT . SET THE REPAEAT FLAG @B@@@@ LX ZO )@@G@@ X10,SAVEX10 . @ @@@@ DL A0,SAVEA0 @ @@@@ ZP )@@G@@ DL A2,SAVEA2 @ @@@@ DL A4,SAVEA4 @ @@@@ ZQ )@@G@@ LR R3,SAVER3 @B@@@@ J *6,X11 . ZR )@@G@@@[@@@@. @ @@@@REP . RESTART SEARCH @ @@@@ DL ZS )@@G@@ A1,SAVEREP@A@@@@ LR R1,SAVEREP+2 @ @@@@ LRZT )@@G@@ R3,*3,X11 @ @@@@ JGD R3,$+2 @ @@@@ J ZU )@@G@@ BADCALL @C@@@@ SZ *1,X11 . NUMBNKZV )@@G@@@C@@@@ LX,U X10,*2,X11 . BNKNMS@F@@@@ LXZW )@@G@@I,U X10,2 . TWO WORDS PER NAME. @ @@@@ SZZX )@@G@@ REPEAT @^@@@@ J LOOP@]@@@@DONE . @[@@@@ZY )@@G@@. @D@@@@. DONE WITH THIS BLOCK FROM ELEMENT TABLE. @D@@@@ZZ )@@G@@ TNZ BLKFLG . MORE TO GET@@D@@@@ J AA )@@G@@ EXIT . NO, DONE. @E@@@@ SZ BLKFAB )@@G@@LG . ASSUME LAST BLOCK.@ @@@@. GET ANOTHER BLOCK AC )@@G@@@[@@@@. @ @@@@. ELTNO = # LOOKED AT ALREADY @B@@@@. WORDSIN = NUMBERAD )@@G@@ OF WORDS READ SO FAR @C@@@@. SECTIN = STARTINF SECTOR OF ELEMENT TABLAE )@@G@@E @B@@@@. NUME,,H2 = NUMBER OF ELTS IN TEH FILE. @ @@@@. *5,X11 = LAF )@@G@@ENGTH OF BUFFER @C@@@@. A1 MIST POINT 10 BEFORE ELEMENT IN BUFFER. AG )@@G@@@B@@@@. R1 MUST HAVE NUMBER OF ELTS IN BUFFER. @]@@@@. A2 MUST =7@[@@@@AH )@@G@@. @ @@@@ LA A0,WORDSIN@B@@@@ DSL A0,3AI )@@G@@6 . @ @@@@ DI,U A0,28 @ @@@@ AAAJ )@@G@@ A0,SECTIN @ @@@@ SA A0,SECTELT@F@@@@ LAAK )@@G@@ A4,A1 . SAVE WORDS SKIPPED. @ @@@@ AAAL )@@G@@,H2 A1,ACWBUF @E@@@@ LXI,U A1,10 . INCREMAM )@@G@@ENT BY 10 @D@@@@ ANA,U A1,10 . SET UP A1 AN )@@G@@@B@@@@ LA,H2 A0,NUME . @E@@@@ ANA AO )@@G@@ A0,ELTNO . GET NUMBER LEFT @F@@@@ LA A5,AAP )@@G@@0 . NUMBER OF ELEMENTS LEFT.@F@@@@ MSI,U A0,1AQ )@@G@@0 . 10 WORDS PER ELEMENT @F@@@@ AA A0,AAR )@@G@@4 . NUMBER OF WORDS NEEDED. @D@@@@ TLE A0,*AS )@@G@@5,X11 . WILL IT FIT @C@@@@ J OKBLK1 AT )@@G@@ . YES @B@@@@ TNE A0,*4,X11 . @D@@@@ AU )@@G@@ J OKBLK1 . JUST FITS. @D@@@@ LA AV )@@G@@ A0,A4 . DOESNT FIT @E@@@@ LA A4,*5,X11 AW )@@G@@ . SIZE OF BUFFER. @E@@@@ ANA A4,A0 AX )@@G@@ . WORDS BEFORE. @ @@@@ DSL A4,36 @ @@@@ AY )@@G@@ DI,U A4,10 @G@@@@ LA A5,A4 . AZ )@@G@@NUMBER OF ELEMEENTS TO BE SEAR@E@@@@ MSI,U A4,10 BA )@@G@@ . NUMBER OF WORDS. @F@@@@ LA A3,A0 . BB )@@G@@SAVE WORDS SKIPPED. @F@@@@ AA A0,A4 . BC )@@G@@NUMBER OF WORDS TO READ.@G@@@@ SA A0,BLKFLG . BD )@@G@@SET FLAG THAT MORE TO COME. @]@@@@OKBLK1 . @E@@@@ SA,H1 BE )@@G@@ A0,ACWBUF . NUMBER OF WORDS. @ @@@@ AA A0,WBF )@@G@@ORDSIN@F@@@@ ANA A0,A3 . MINUS SKIPPED WORDBG )@@G@@S. @ @@@@ SA A0,WORDSIN@G@@@@ LR R1,ABH )@@G@@5 . SAVE NUMBER OF ELEEMENTS IN BL@G@@@@ AA BI )@@G@@ A5,ELTNO . THAT MANY MORE HAVE BEEN READ @B@@@@ SABJ )@@G@@ A5,ELTNO . @F@@@@ LA,U A0,IOWELT BK )@@G@@ . READ ELEMENT TABLE. @B@@@@ ER IOW$ BL )@@G@@ . @B@@@@ TZ,S1 IOWELT+3 . @B@@@@ J BM )@@G@@ IOERROR . @^@@@@ J LOOP@[@@@@. BN )@@G@@@]@@@@EXIT . @A@@@@ LX X10,SAVEX10 @ @@@@ BO )@@G@@ DL A0,SAVEA0 @ @@@@ DL A2,SAVEA2 @ @@@@ BP )@@G@@ DL A4,SAVEA4 @ @@@@ LR R3,SAVER3 @[@@@@. BQ )@@G@@@ @@@@ J 9,X11 @]@@@@IOERROR . @]@@@@OUTLST . BR )@@G@@@B@@@@ LX X10,SAVEX10 D @ @@@@ DL BS )@@G@@ A0,SAVEA0 @ @@@@ DL A2,SAVEA2 @ @@@@ DL BT )@@G@@ A4,SAVEA4 @ @@@@ LR R3,SAVER3 @ @@@@ J BU )@@G@@ *7,X11 @]@@@@NOTPF . @ @@@@ J OUTLST @]@@@@BV )@@G@@BADCALL . @ @@@@ J OUTLST @[@@@@/. @[@@@@$(2). BW )@@G@@@^@@@@IOWDIR RES 3 @ @@@@ + R$,0,0 @ @@@@BX )@@G@@ + LHDR,HDR @^@@@@ + 0 @^@@@@HDR BY )@@G@@ RES 28 @ @@@@LHDR EQU $-HDR @E@@@@FACPKT REBZ )@@G@@S 9 . PACKET FOR FACIL$.@^@@@@IOWELT RES CA )@@G@@ 3 @ @@@@ + R$,0,0 @]@@@@ACWBUF +0@]@@@@SECTELCB )@@G@@T +0@^@@@@REPEAT + 0 @]@@@@BLKFLG +0@]@@@@ELTNO +0CC )@@G@@@]@@@@NUME +0@^@@@@SAVEX10 RES 1 @^@@@@SAVEA0 RES CD )@@G@@ 2 @^@@@@SAVEA2 RES 2 @^@@@@SAVEA4 RES 2 @^@@@@CE )@@G@@SAVER3 RES 1 @^@@@@SAVEREP RES 3 @^@@@@WORDSIN + CF )@@G@@ 0 @]@@@@SECTIN +0@#@@@@ END ___ . JUST FITS. CG )@@G@@@D@@@@ LA A0,A4 . )@@[N[KO [KO @^ [@9*@@@:CH )@@G@@9*@@@@9?FK@@/K@@[-*@@@@1^@0@@/9(@@@'9*)@@89*@@@6A])@@5AA@@@@)@E[F[EE^@E]CI )@@G@@) ]@D[K@@@@/K@@]W*4@@@#'=@@@@C8@@@@/K@@]W(4@@@*'=@@@@C8@@@+9*@@@+AB@@@@CJ )@@G@@)@N[N[KO[[[[KO^@@@N@;K@#[@@@[[[@@@@0G^@@@DW8@@@W;G@@@=CW@@@F/K@@]+%@@@@ACK )@@G@@C@@@[]AC@@@@)@X[N@K@KO^^[@@@@@/K@@@0/K@@@$!@:K@ G8)@@VHW)@@FCC)@@E&')@@]CL )@@G@@R':K@]/K@@]<8K0@@ZAD@@@@)@$[MK^^@[[@@@@@@@[C)@@\G8)@@CT8)@@EW8)@@E;G)@@=CM )@@G@@H8)@@CC@:K@ [@)@@2/K@@@0:@:K@ AE@@@@)@1[N[^^**K[CE@@@@;G)@@=H8)@@WG8K@@VCN )@@G@@/K@@]W*4@@@,'=@@@@C8@@@:[^K@@\C8VK@^[@)@[@AF@@@@)@;[M^@K)#KOC@4^@@N@K@@ICO )@@G@@ @FK@[[@)@@3'=@@@@(@@@@2'=@@@@!^!@@@/K@@[#:^!@@@W8)@@EAG@@@@)[ [UKK@^@K@CP )@@G@@/K@@[G0@H@@#/K@@[:2?!)@HH8K@@EC8)@@BC8FK@]&;K@@EG8K@@[[@)@@4C@!@@@AH@@@@CQ )@@G@@)[K[MK@@K^ [@@@@@@^@K@@_9*K@@.8K0@[G9(E)@@9!H@@@[@FK@[G8@@@[C@FK@[/K@@[GCR )@@G@@*@H@@AAI@@@@)[U[N[KO [KO^KO^@@N@;K@#N@K@@_9?K@@./KFK@AN@0@@/9!@@@'9?)@@8CS )@@G@@9?@@@6R])@@5[@K@@1AJ@@@@)[=[N@K@^ @KO[[@@@ @@@@2/K@@]Q(@@@@2/K@@[G @@@@1CT )@@G@@&')@@]R':K@] @FK@[/K@@]<8K0@[&AK@@@@)[,[N[[[KL[[[@@@@@C^@@@4H8K@@E&;K@@ECU )@@G@@G^K@@\C[@@@H[@@@@0G@@@[[W8@@@W;G@@@=C@@@[@AL@@@@)[8[V[@^@K@@H[@@@GC[FK@ CV )@@G@@C@@@@K/K@@]E:@FK@^/K@@]E?@FK@ G@@@@KT8@@@EC[K@@GH@@@@3AM@@@@)]#[M@[[KO^@CW )@@G@@@@@@@@H@@@@JG@@@[@[C@@@\[@@@@2G@@@@KC@0@@GT9@@@EC[K@@KW9@@@E;H@@@=AN@@@@CX )@@G@@)]H[F[^ [EE^@M])C@@@@@@@/K@@[G/K@@]W*4@@@,'=@@@@C8@@@:[[K@@3G[K@@3N@K@@LCY )@@G@@[@@@[@AO@@@@)]Q[N[KO [KL[KO [@9!@@@'9?)@@89?@@@6R])@@5/KF@@DN@0@@/9!@@@'CZ )@@G@@9?)@@89?@@@6R])@@5AP@@@@)])@<[^[@@@@)@#@W/V]@@*)@@@@S@@@@@@@@@@@@@@@W@@ADA )@@G@@@@@@@@/K@@]W/K@@]W/KFK@BN@0@@/AQ@@@@)@,@//V]@@@@)[@@W@**PF**@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR@@@@@@^@@#@@B@@^@@J@@[@@N@@@DC )@@G@@@@@@@@@@@@]=@@@@[#R$ FACIL$ IOW$ ERR$ STJLSTDD )@@G@@ @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@*[S@@@*SDFF*@F@@@@ SUBROUTINE S1BAPR(FILELT,HEADER,NVARIN,VNUMB,VISDF )@@G@@,INDEX) @ @@@@ IMPLICIT INTEGER (A-Z) @A@@@@ DIMENSION FIDG )@@G@@LELT(5),HEADER(28)@A@@@@ DIMENSION VNUMB(2),VIS(14,2) @^@@@@ DH )@@G@@DIMENSION ADATE(2)@[@@@@C @[@@@@C @G@@@@C SUBROUTINE DI )@@G@@TO PRINT AN STJBANK GENERAL DESCRIPTION AND @E@@@@C ALSO STATDJ )@@G@@ISTICS FOR SOME VARIABLES IF SPECIFIED. @[@@@@C @[@@@@C @^@@@@DK )@@G@@ LINES=7+NVARIN @B@@@@ TEMP=HEADER(2)+HEADER(4)-HEADER(5) DL )@@G@@@C@@@@ IF(TEMP .NE. HEADER(4)) LINES=LINES+2 @B@@@@ IF(NVADM )@@G@@RIN .NE. 0) LINES=LINES+4 @^@@@@ CALL S1HEDC(LINES)@#@@@@ DN )@@G@@CALL S1PHED @^@@@@ PRINT 50,FILELT @C@@@@ 50 FORMAT(10X,'DESCRIDO )@@G@@PTION OF STJBANK ',5A6/)@A@@@@ PRINT 60,(HEADER(J),J=8,18) @^@@@@DP )@@G@@ 60 FORMAT(1X,10A6,A4)@A@@@@ CALL S1BASD(HEADER(6),ADATE) @A@@@@DQ )@@G@@ PRINT 70,HEADER(24),ADATE @C@@@@ 70 FORMAT(' CREATED BY RUN DR )@@G@@',A6,' ON ',A6,A2)@A@@@@ PRINT 80,HEADER(3),HEADER(5) @E@@@@ 80 DS )@@G@@FORMAT(' WITH',I6,' OBSERVATIONS OF',I4,' VARIABLES') @^@@@@ PRINT DT )@@G@@90,TEMP @F@@@@ 90 FORMAT(' AND RESERVED SPACE FOR ADDING',I4,' VARDU )@@G@@IABLES') @B@@@@ IF(TEMP .EQ. HEADER(4)) GO TO 120 @A@@@@ DV )@@G@@CALL S1BASD(HEADER(7),ADATE) @^@@@@ PRINT 100,ADATE @C@@@@ 100 DW )@@G@@FORMAT(' LAST VARIABLE ADDED ON ',A6,A2) @A@@@@ PRINT 110,HEADER(2DX )@@G@@),HEADER(4) @G@@@@ 110 FORMAT(' NOW CONTAINS',I4,' VARIABLES AND SPACE DY )@@G@@FOR',I4,' MORE') @B@@@@ 120 IF(HEADER(25) .EQ. 0) GO TO 130 @#@@@@DZ )@@G@@ PRINT 125 @A@@@@ 125 FORMAT(' MDATA FLAG IS SET') @#@@@@ EA )@@G@@GO TO 150 @#@@@@ 130 PRINT 135 @B@@@@ 135 FORMAT(' MDATA FLAG IS NEB )@@G@@OT SET') @[@@@@C @[@@@@C @ @@@@ 150 IF(NVARIN .EQ. 0) RETURNEC )@@G@@@#@@@@ LNMAX=40 @]@@@@ LOW=1 @]@@@@ LUP=40@#@@@@ ED )@@G@@GO TO 180 @#@@@@ 170 LOW=LUP+1 @A@@@@ IF(LOW .GT. NVARIN) RETUEE )@@G@@RN @#@@@@ CALL S1PHED @^@@@@ PRINT 175,FILELT @D@@@@ 175 EF )@@G@@FORMAT(' VARIABLES IN ',4A6,A1,' CONTINUED') @#@@@@ LUP=LOW+48 EG )@@G@@@A@@@@ 180 IF(LUP .GT. NVARIN)LUP=NVARIN @#@@@@ PRINT 200 @#@@@@EH )@@G@@ 200 FORMAT(1H ) @^@@@@ NOUT=LUP-LOW+1 @E@@@@ CALL S1BAPV(EI )@@G@@NOUT,VNUMB(LOW),VIS,HEADER(25),INDEX) @#@@@@ GO TO 170 @]@@@@EJ )@@G@@ END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[N#@[#[#[#@^G@@[@@@@]EL )@@G@@G@FK@]C/@@@B[@)@[R[@@@[QR@K@[PG/)__"C8:K@#G/@@@BC@@@[PAA@@@A)@E[M[#@K0^@EM )@@G@@K0@@@@G@@@@]C/@@@]/K@@@P(@@@@GH@@@@#C@[@@#[@)@@#H@-@@^G@-@@#C@-@@[AB@@@AEN )@@G@@)@O[F#@K[#[#[][#[#@@@@@@@[G@[L@@@@@]/,0@@@[@@@@]G@@@@]C/@@@^/K@@@U(@FK@]EO )@@G@@[@@@@]AC@@@A)@X[F] #[]L#[#[#[#@@@@@@C8])@@N.@@@^Q@)@[OR@)@[H@[I@[L@@[@@DEP )@@G@@/,0@@@@[H@[L/,0@@@AD@@@A)@&@N]P@@@@@)@D@8@@@@@@@/) K ,5A6STJBANON OF EQ )@@G@@CRIPTI23HDES(10X,08L@@@>'^K@@@AE@@@A)@*[F]T]L#[#[#[#@^DK@@@@'^K@@@C8])@@ER )@@G@@N.@@@EQ@)@[QR@)@[H@[P@[L@@[@@K/,0@@@'^@@@@AF@@@A)@1@F@@@@@@@)@K@K@)@2@:]ES )@@G@@SK^C=@@@@@@6/,0@@@^^K@@6N8L@@ '^@@@@A6,A4)(1X,108L@@@\AG@@@A)@7[F#[#[]L#ET )@@G@@[#@K0B?@@@@@C8]\_"N.@@@[R@)@[I@@L@@R@[X@[L@@[@@M/,0@@@@[W@[L@@@@@@AH@@@AEU )@@G@@)[@@N]P@@@@@)@M@8@@@@@@@,A2) ON ,A6,004H UN ,A6D BY RCREATE(016H 8L@@@_EV )@@G@@'^K@@@AI@@@A)[]@3]T]L#[#@@@@@@)@T@S@6,016HWITH,I(005H @@L@@^@@L@@]@[>@[LEW )@@G@@@@[@@T/,0@@@'^@@@@AJ@@@A)@W@0@@@@@@@)[C@V]T]L#@@@@[@@+/,0@@@'^@@@@BLES) EX )@@G@@ VARIA4,010HS OF,IVATION OBSERAK@@@A)[F@N#[#@@@@)@+@8@@@@@@@I4,010DDING,EY )@@G@@ FOR A SPACESERVEDAND RE(030H @@K@@#@[%@[LAL@@@A)@(@K@)[H@;]SK0^@K@@@@@@EZ )@@G@@^^K@[PN8L@@A/K@@[$(@@@@GH@@@@#C@[@@#'^@@@@ABLES)H VARIAM@@@A)[O[F]D@K0K0FA )@@G@@K=K0K0K0@@@@N.@@@[R@)@[I@[1@[L@@[@@:/,0@@@@[0@[L@@@@@@@@@@[P/,0@@@AN@@@AFB )@@G@@)[X@V;[]P@@@)@:@0@@@@@@@A6,A2)D ON ,E ADDEARIABLLAST V(024H 8L@@[X'^K@@@FC )@@G@@C8]\_"AO@@@A)[)@;]T]L#[#@^D)@@)@1@K@NOW CO(013H '^@@@@@@L@@#@@L@@[@[8@[LFD )@@G@@@@[@@1/,0@@@'^@@@@AP@@@A)@3[C@@@@@@@)[$@E@(@[@@SORE) 005H MOR,I4,PACE FFE )@@G@@ AND SIABLES4H VAR,I4,02NTAINSAQ@@@A)[*@<@K=K0K0@@@@@@)@/@)@@@@@@@S SET)FF )@@G@@FLAG IMDATA (018H @[_@[L@@[@@//,0@@@/K@@[,AR@@@A)[?@3]T@K=K0K0K&@@)[@@S@FG )@@G@@FLAG IMDATA (022H '^@@@@@]#@[L@@[@[@/,0@@@/K@@[2'^@@@@AS@@@A)[#@K@)[2@;#FH )@@G@@[@K^[#@K0@@@[@@@@ C/@@@*@]B@[L/K@@]7N@0@[6/K@@[7*@@@[SSET) S NOT AT@@@AFI )@@G@@)[9[EK0K0K[#[#[#[#@@@@@@H@@@@AC@@@[S[@@@@AG@@@@BC/@@@[/K@@]R[@@@@B[@)@@AFJ )@@G@@C/)@@[AU@@@A)]][E^[@K^G^COG^D@@@@@@@/,0@@@@]J@[L/,0@@@@]I@[L/K@@]7N@0@]BFK )@@G@@/K@@]C1@@@@G*@@@@GAV@@@A)]F[##[#[#[#@^DO@@)[ @C@(014H 8L@@]K'^K@@@C8])@@FL )@@G@@N.@@@^Q@)@[OR@)@[H@]K@[L@@[@[ AW@@@A)[A@0@@@@@@@)]N@V]SK0@@@G@@@@AC/@@@0FM )@@G@@'^@@@@INUED)H CONTA1,010 ,4A6,LES INVARIABAX@@@A)]Q[F#[#[#@^[#[#[]K@@@@@FN )@@G@@/,0@@@[@@@@BC@@@[S/K@@]Y1@@@@G*@@@@GH@@@@BC@@@[S[@@@@BAY@@@A)]Z@N#[#@@@@FO )@@G@@)[G@C@)]-@<]T#[#@@@@@@@@G/@@@[H@@@@AC@@@@B'^@@@@(1H ) @]U@[L@@[@[GAZ@@@AFP )@@G@@)]>[F#[#[#@K[@K[MK^GCSK0]A^[#@C@@@@P/K@@[5[@K@@^IS )@@G@@;)W@@D"K@@@G"@@@@N"@@@@@C@@@@M/K@@[,0@@@@GAL@@@A)[\[F#]A@K0-)K0-)@@@@@@@IT )@@G@@[@@@@ H@@@@^C/@@@^[@K@@^]@K@@^;)W@@D"K@@@G"@@@@N"@@@@@AM@@@A)[8[N#@C]A^GIU )@@G@@CS^G@@G/@__4[@@@@AG/@@@[G@@@@[C@@@@ @@@@ /K@@[.0@@@@G*@@@@GD@@@@ AN@@@AIV )@@G@@)]][N@^[#]A^G@C@@@/K@@]I1@@@@G*@@@@GG/@__.C@@@@A[@@@@]C@@@@A/K@@]S*@@@@GIW )@@G@@/G@@] AO@@@A)]G[MK0--#@-)^@@@@C/@@@D/K@@]R1@@@@G*@@@@GH@@@@#C/@@@D[@@@@#IX )@@G@@C@@@@ [@@@@]C/@@@]AP@@@A)]Q[N#]@CSK0CS[@@@/K@@]+1@@@@G*@@@@GH@@@@#C/@@@DIY )@@G@@[@@@@#H@@@@[C/@@@F/K@@]%[@@@@#AQ@@@A)])[MK0-)^[#@--@@@/K@@]%[@@@@]C/@@@GIZ )@@G@@ @@@@#/K@@]$0@@@@G*@@@@GD@@@@#[@@@@#C/@@@DAR@@@A)]%@3]@--#]A^G@@@@)@H@S@JA )@@G@@01H.,IF,I2,0(002H(@@K@@#@@K@@]@]C@@T@@@@@H@@[@@@/,0@@@AS@@@A)@K@C@)]0[#]JB )@@G@@MA^G]A^D*SK0@@@@@B@@@@@L/,0@@@]@@@@BG/@@@[H@@@@]C@@@@#'^@@@@1) AT@@@AJC )@@G@@)]8[F#]A^G@--#]^4G@@@@@@@@@@@L/,0@@@[@)@@XH@)@@#C/)@@[[@@@@@"C@@@Q[@@@@CJD )@@G@@@]I@@TAU@@@A)#[[F#]A[#@)C]A^G@@@@@@@R]0@@U@]M@@T/K@@#DN@0@#C[@)@@@C@)@@]JE )@@G@@[@@@@@@]K@@T@@@@@XAV@@@A)#E@F#@@@@@@)@R@C@)#F@N#] @@@@)@T@K@@@@@@@@]M@@]JF )@@G@@S1DFMT/K@@@@/K@K@R@@F@@E*4@K@RAW@@@A)#H[N#@)C]@C]@)@@@C8FK@][^@@[K[^@@[MJG )@@G@@[^@@[QC8FK@[[^@@@[[^@@@H[^@@@FC8FK@@AA0@@UAX@@@A)#R[N@K^@K0C@)C@@@[^@@@"JH )@@G@@[^@@# C8FK@ [^@@@-C8FK@^[@K@@WC@VK@#[^@@@V[^@@@^[^@@@CAY@@@A)#-[MK^@K^@KJI )@@G@@^[@@@@/K@@@@[^@@##[^@@@_C8FK@C[^@@];[^@@@/C8FK@B[^@@]:[^@@@2C8FK@AAZ@@@AJJ )@@G@@)@L@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB__.'H?GV7*KG@@@@NS@@@@KG@@[#JK )@@G@@K>@@@@BA@@@A@@@@@@"+@@@G"%@@@ENNCOD$NDCOD$NCOD$ DCOD$ CDV$ /,)B;9CABS JL )@@G@@/,0B;;/,0@@D@@@@@D@@@B;(@@^@@]@@A@@ @@K@@[@@O@@@@@#@@Y@C@@#:NCOD$ JM )@@G@@ALOG10 NIO2$ NEXP5$ NERR3$ S1DFMT @@[@@@@@@@#HJN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@A@@@@ JO )@@G@@SUBROUTINE S1HEDC(NTOPRT) @[@@@@C @G@@@@C SPECIAL VEJP )@@G@@RSION FOR BANKPRINT/PURGE/MERGE PROCESSORS. @[@@@@C @[@@@@C JQ )@@G@@@A@@@@ IF(NTOPRT .GT. 0) GO TO 100 @ @@@@ CALL S1LNPP(LINEPPJR )@@G@@) @#@@@@ LUSED=0 @]@@@@ RETURN@A@@@@ 100 IF(LUSED .NEJS )@@G@@. 0) GO TO 200 @^@@@@ 150 CALL S1NOPS(0) @#@@@@ LUSED=NTOPRTJT )@@G@@@A@@@@ IF(LUSED .GE. LINEPP) LUSED=0 @]@@@@ RETURN@ @@@@ 200 JU )@@G@@LUSED=LUSED+NTOPRT+2 @B@@@@ IF(LUSED .GT. LINEPP) GO TO 150 JV )@@G@@@^@@@@ CALL S1NOPS(1) @]@@@@ RETURN@]@@@@ END ___@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@)@@[MK[@K-#^GK1@K@/K@@@(N@0@@E @@@@[@[^@@A@@@@@@/,0@@@/K@@@F*@@@@G/C@@@^JY )@@G@@D@@@@@AA@@@A)@E[F#^GK^DK1#[#^G@@@@@@C@@@@[[@@@@[C@@@@@@[D@@A@@@@@]/,0@@@JZ )@@G@@/K@@@V*@@@@[@[A@@AAB@@@A)@N[N#^@K^GK^[#^G@G@@@@@C@@@@[@[H@@A/K@@@(N@0@@UKA )@@G@@ @@@@[/K@@@S*@@@@G/C@@@RH@@@@@AC@@@A)@X[MK1#^@K^DK1#^@N@0@@*@[L@@A@@@@@#KB )@@G@@/,0@@@/K@@@H*@@@@G/G@@@@@;/K@@#UN@0@#T[@@@@@G@@@@@C/@@@[BB@@@A)#X@F#@@@@@@)@9@C@)#Y@N#NP )@@G@@]^0@@@)@;@K@@@@@@@@]>@@#ERROR /K@@@@/K@K@9@@F@@[*4@K@9BC@@@A)#)[F#]A^GC]NQ )@@G@@A[#@-)@@@@@@[@@@[PG/)__2C@)@[OG/@__3C@@@[O/K@@# ^[@@[MA@K@[LAA0@@/BD@@@ANR )@@G@@)#([N#@)@CS^G@@@@@C@[@@G[#)@@C[@@@[^R@K@[PC_)@@[G@@@@@C/@__"/K@@^#(@@@@@NS )@@G@@[@)@[QBE@@@A)#3[E^[@K0-[#]A@@@@@@@@@@@K@@@@]1@@_@@[@@:/,0@@@@]0@@_/,0@#)NT )@@G@@/K@@^@*@@@@GH@@@@@BF@@@A)@:[C@@@@@@@@@@[C@@@@@@@ONCE) THAN D MOREECIFIENU )@@G@@ IS SP5,028HABLE,I8HVARI(5X,00BG@@@A)#/[N]E@)CS[@@@@@@[@@@@@G@@@@@C/@@@[NV )@@G@@8L@@#1G_)@@[O/K@@[@]5@@_/K@@^HN@0@#_'^@@@@BH@@@A)^A[MK0]@)CSK0--#@R@K@[TNW )@@G@@9\)@[RR]0@[@@]'@@_/K@@^HN@0@^G[@-@@GC@)@@@O@K@[QR@K@@@BI@@@A)^K@N#]A@@@@NX )@@G@@)@.@C@)^M@N#]^0@@@)@_@K@@]'@@#ADD /K@@@@/K@K@.@@F@@]*4@K@.N[@@[UBJ@@@ANY )@@G@@)^O[F#]A^GCS^[@K^@@@@@@@/K@@#=[^@@^C[^@@#;[^@@#3C8FK@@^[@@[UA@K@[T9:)@[RNZ )@@G@@AA0@[@BK@@@A)^X[MK0CS^[@K^[@@@[^@@] [^@@[G[^@@@S[^@@[Q[^@@[YC8FK@#[@@@[]OA )@@G@@C8FK@][@@@[JC8FK@@BL@@@A)^$[MK0C]@)C]@)@@@C8FK@A[^@@^A[^@@#![^@@#%[^@@^^OB )@@G@@[^@@^ [^@@@BC8FK@ [@@@[#C8FK@^BM@@@A)^1@N#]@@@@@)@8@C@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@/K@@@@[@@@[OBN@@@A@@^@@]@@A@@ @@K@@[@@O@@@OD )@@G@@@@#@[V@C@@^3NPRT$ NIO2$ NERR4$ NERR3$ NIO1$ OE )@@G@@S1TSVL @@[@@@@@@@];@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@*[S@@@*SDFF*@G@@@@ SUBROUTINE S1TSV2(FILELA,FILELB,NSP,SP,SPECTP,NVOG )@@G@@ARA,NVARB,VIS, @#@@@@ - NF,VL,$) @ @@@@ IMPLICIT INTEGER (OH )@@G@@A-Z) @A@@@@ DIMENSION FILELA(5),FILELB(5) @B@@@@ DIMENSION SPOI )@@G@@(3,NSP),SPECTP(NSP) @ @@@@ DIMENSION VIS(14,2) @^@@@@ OJ )@@G@@DIMENSION VL(2) @ @@@@ DIMENSION FILPRT(5) @^@@@@ DATA AOK )@@G@@LPIN/' IN'/ @[@@@@C @G@@@@C SUBROUTINE TO COMPARE A LIST OL )@@G@@OF VARIABLE SPECS, PRODUCED @G@@@@C BY S1BADC, AGAINST VARIABLEOM )@@G@@ NAMES IN THE VARIABLE INFORMATION @F@@@@C SUMMARY VIS OF AN STJON )@@G@@BANK. NUMBERS OF THE NF VARIABLES @C@@@@C IDENTIFIED ARE RETURNOO )@@G@@ED IN VECTOR VL. @[@@@@C @G@@@@C SPECIAL VERSION TO SIMOP )@@G@@ULTANEOUSLY HANDLE INTERSPERSED @E@@@@C SPECS FROM MULTIPLE COQ )@@G@@ARDS OF ONE TYPE SUCH AS - @C@@@@C INCLUDE, INCLUDEA, AOR )@@G@@ND INCLUDEB @[@@@@C @]@@@@ NERR=0@]@@@@ NF=0 @^@@@@ OS )@@G@@DO 200 I=1,NSP @^@@@@ STYP=SPECTP(I) @#@@@@ NVARS=NVARA OT )@@G@@@#@@@@ DO 10 K=1,5 @ @@@@ 10 FILPRT(K)=FILELA(K) @ @@@@ OU )@@G@@IF(STYP .NE. 3) GO TO 20@#@@@@ NVARS=NVARB @#@@@@ DO 15 K=1,5 OV )@@G@@@ @@@@ 15 FILPRT(K)=FILELB(K) @#@@@@ 20 CONTINUE @#@@@@ OW )@@G@@TYP=SP(1,I) @#@@@@ VA=SP(2,I) @#@@@@ VB=SP(3,I) @ @@@@ OX )@@G@@IF(TYP-2)50,100,150 @D@@@@ 50 IF(VA .GT. 0 .AND. VA .LE. NVARS) OY )@@G@@GO TO 75 @#@@@@ CALL ERROR @^@@@@ PRINT 60,VA,FILPRT@E@@@@OZ )@@G@@ 60 FORMAT(5X,'THERE IS NO VARIABLE NUMBER',I6,' IN ',5A6)@#@@@@ PA )@@G@@GO TO 200 @#@@@@ 75 CALL ADD(VA)@#@@@@ GO TO 200 @C@@@@ 100 PB )@@G@@IF(VA .NE. 0 .AND. VB .NE. 0) GO TO 110 @#@@@@ CALL ERROR @]@@@@PC )@@G@@ TEMP=0@ @@@@ PRINT 60,TEMP,FILPRT @^@@@@ IF(VA .EQ. 0PD )@@G@@) VA=1@^@@@@ IF(VB .EQ. 0) VB=1@ @@@@ 110 IF(VA .LE. VB) GO TO 120PE )@@G@@@A@@@@ IF(VA .LE. NVARS) GO TO 130 @#@@@@ TEMP=VA @]@@@@PF )@@G@@ VA=VB @#@@@@ VB=TEMP @A@@@@ 120 IF(VB .LE. NVARS) GO TO PG )@@G@@130 @#@@@@ CALL ERROR @#@@@@ TEMP=NVARS+1@ @@@@ IF(TEMPH )@@G@@P .LT. VA) TEMP=VA@ @@@@ PRINT 125,TEMP,VB,FILPRT@G@@@@ 125 FORMATPI )@@G@@(5X,'THERE ARE NO VARIABLES NUMBERED',I6,'-',I6,' IN ',5A6) @#@@@@ PJ )@@G@@GO TO 200 @]@@@@ 130 INC=1 @ @@@@ IF(VA .GT. VB) INC=-1 @^@@@@PK )@@G@@ DO 140 J=VA,VB,INC@#@@@@ 140 CALL ADD(J) @#@@@@ GO TO 200 PL )@@G@@@#@@@@ 150 LUP=NVARS @B@@@@ IF(STYP .EQ. 1) LUP=NVARA+NVARB PM )@@G@@@]@@@@ L=0 @ @@@@ IF(STYP .EQ. 3) L=NVARA @^@@@@ DO 160PN )@@G@@ J=1,LUP @]@@@@ L=L+1 @A@@@@ IF(VA .NE. VIS(2,L)) GO TO 160PO )@@G@@@A@@@@ IF(VB .NE. VIS(3,L)) GO TO 160@#@@@@ CALL ADD(J) @#@@@@PP )@@G@@ GO TO 200 @#@@@@ 160 CONTINUE @#@@@@ CALL ERROR @A@@@@PQ )@@G@@ IF(STYP .NE. 1) GO TO 180 @^@@@@ PRINT 170,VA,VB @E@@@@PR )@@G@@ 170 FORMAT(5X,'THERE IS NO VARIABLE NAMED ',2A6,A4,5A6) @#@@@@ PS )@@G@@GO TO 200 @A@@@@ 180 PRINT 170,VA,VB,ALPIN,FILPRT @#@@@@ 200 CONTINPT )@@G@@UE @A@@@@ IF(NERR .NE. 0) RETURN 11 @]@@@@ RETURN@[@@@@PU )@@G@@C @^@@@@ SUBROUTINE ERROR @C@@@@ IF(NERR .EQ. 0) PRINT 50PV )@@G@@0,FILELA,FILELB @G@@@@ 500 FORMAT(' ***** ERRORS IN VARIABLE SPECIFICPW )@@G@@ATIONS FOR STJBANKS ', @^@@@@ -4A6,A2,'AND ',5A6)@#@@@@ NERR=NPX )@@G@@ERR+1 @]@@@@ RETURN@[@@@@C @^@@@@ SUBROUTINE ADD(IV)@#@@@@PY )@@G@@ IVAR=IV @A@@@@ IF(STYP .EQ. 3) IVAR=IV+NVARA @ @@@@ PZ )@@G@@IF(NF .EQ. 0) GO TO 800 @^@@@@ DO 750 M=1,NF @A@@@@ IF(IVAQA )@@G@@R .NE. VL(M)) GO TO 750 @#@@@@ CALL ERROR @A@@@@ IF(IVAR .LE.QB )@@G@@ NVARA) GO TO 720 @^@@@@ IVAR=IVAR-NVARA @ @@@@ PRINT 710,IVQC )@@G@@AR,FILELB @G@@@@ 710 FORMAT(5X,'VARIABLE',I5,' OF ',5A6,' IS SPECIFIEQD )@@G@@D MORE THAN ONCE')@]@@@@ RETURN@ @@@@ 720 PRINT 710,IVAR,FILELA QE )@@G@@@]@@@@ RETURN@#@@@@ 750 CONTINUE @#@@@@ 800 NF=NF+1 @#@@@@QF )@@G@@ VL(NF)=IVAR @]@@@@ RETURN@]@@@@ END ___ NVARS=NVARB QG )@@G@@@#@@@@ DO 15 K=1,5 @ @@@@ 15 FILPRT(K)=FI)@@[N#@-)K0CS@@@@@G"@__2QH )@@G@@C'FK@BG.)__3C[)@[TG.@__3C[@@[VG/)__3C@)@[UG/@__5C@@@[WAA@@@A)@E@<#]A^GCSQI )@@G@@@@@@@@)@ @C@)@I@N#]A@@@@ @@@@A[]@@[- IN [[)@[)[[@@[Z[@)@[Y[@@@[XAB@@@AQJ )@@G@@)@K[M@K0-)K0CS@@@@[@@@@CC@]@@G[#0@@B[@@@[^R@)@[)R@K@[XC_0@@[G@FK@]C/@__"QK )@@G@@ @@@@@AC@@@A)@U[MK0--#]A@Y0)@@C/)@@#8LK@@)[@#\_"C@^)@GN.K@@^Q[@@[YR[@@[FQL )@@G@@R@0@[E[@)@@DC@)@@@AD@@@A)@=[F#@)CSK0--#]A@@@@@@@N.K@@^Q[@@[ZR[@@[FR@0@[EQM )@@G@@[@)@@DC@)@[+/K@@@0*@@@@IH@)@@CAE@@@A)@![MY0)]A[#@-)@@@H/@@@][[@@@HC[[@@GQN )@@G@@[@)@@GC@-@@F[@@@@FC@[@@E8LK@@![@#\_"C@^)@GAF@@@A)@7[N@K[#]@@-)@@@@*@@@@MQO )@@G@@D[)@@GC/)@@[ @@@@G*@@@@I/G)@@"H@)@@DC/@@@[/C@@]5/@@@[QAG@@@A)[[[M[@K^GCKQP )@@G@@K0--#@@@K@@G@[*@[I@@[@@P/,0@@@@[$@[I/,0@ A/=K@[M+@@@@I @@@@I1@@@@MAH@@@AQQ )@@G@@)[F@:#@.-]E@)@P@)@@@@@@@O VARIE IS N7HTHER(5X,028LK@[H'^K@@@C8#\_"N.K@@^QR )@@G@@R@0@[EAI@@@A)@T@*@@@@@@@)[K@<]M@)CS@@@@@@G/,0@A*/K@@#7'^@@@@5A6) H IN ,QS )@@G@@I6,004UMBER,ABLE NAJ@@@A)[O[N#]@CS[#@C@@@@/=K@[3+@@@@I @@@@I(@@@@GC/)@@[QT )@@G@@ @@@@G(@@@@HC/@@@[/K@@#7@[1@[IAK@@@A)[Y[F@K0--]]A^GCSK0@@@@@N.K@@^R[@@[EQU )@@G@@@@K@@I@[7@[I@@[@@P/,0@@@ @@@@I@[5@[I/,0@ AAL@@@A)[$[F;]^O[]MA^@K0-)@@@@@QV )@@G@@*@@@@H[@@@@GC/@@@[/K@@[\*@@@@G'^@@@@8LK@[$'^K@@@C8^\_"AM@@@A)[0[N@^GCSK0QW )@@G@@]@--#@H@@@@GC@@@@D/K@@]]1@@@@G*@@@@GH@@@@GC@@@@H[@@@@HC/@@@[/K@@[3AN@@@AQX )@@G@@)['[E^[#]A^GCSK0-)@@@@@@C@@@@D[@@@@H[@)@@GC@)@@H[@@@@IC@@@@G/K@@]Z1@@@@GQY )@@G@@*@@@@GAO@@@A)]#[N#@C]@-)K0--#@C@@@@I[@@@@IG@@@@DC/@@@[@]F@[I/,0@ A/K@@]ZQZ )@@G@@1@@@@G*@@@@GH@@@@HAP@@@A)]H[F#@C]A^GCKK0-)@@@@@@@]J@[I@@[@@Y/,0@@@[@@@@IRA )@@G@@C@@@@G/K@@]N1@@@@G*@@@@GH@@@@GAQ@@@A)]Q@;#]A^G#6^C*@@@)@Y@K@1HTHER(5X,03RB )@@G@@8LK@]U'^K@@@C8#\_"N.K@@^R@0@[E@@K@@H@@K@@IAR@@@A)@)[C@@@@@@@@@@[C@@@@@@@RC )@@G@@,5A6) 4H IN ,I6,00,001H-RED,I6 NUMBEIABLESNO VARE ARE AS@@@A)]X[N]M@CSK0RD )@@G@@-)^@@@C/@__"/K@@]*1@@@@G*@@@@GH@@@@GC@@@@H[@@@@JC/@@@[/K@@#7'^@@@@AT@@@ARE )@@G@@)]$[F#]A^G]A^G]A^@@@@@@@/,0@A*[#)@@K[@@@[ C#)@@GW@@@@J;O@@@=H@@@@GC@@@@HRF )@@G@@[@@@@JAU@@@A)]0[F#]A^GC]@--#@-)@@@@@H@@@@CC/@@@[[@@@@LC@@@@D/K@@#78LK@],RG )@@G@@G#)@@J@]Z@[I@@@@@KAV@@@A)]9[MK^G]A^G]A^G@@C/@@@#[@@@[G@K@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@[C@[\@]C@[$@[D@[Y@[C@[QAN@@@@@@^@@]@@A@@^@@I@@]@@Q@@@WF )@@G@@@@@@@D@@@@[7ELT$ RINF$ PRINT$ SELT$ READCC WG )@@G@@@@[@@@@@@@@@GETSPC @@[@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@*[S@@@*SDFF*@[@@@@C @ @@@@C BANKPRINT PROCESSOR @[@@@@C WI )@@G@@@[@@@@C @ @@@@ IMPLICIT INTEGER (A-Z) @^@@@@ COMMON S(420WJ )@@G@@0) @ @@@@ DIMENSION VIS(14,300) @ @@@@ EQUIVALENCE (S,VISWK )@@G@@) @^@@@@ DATA CORE /4200/ @[@@@@C @ @@@@ DIMENSION ALWL )@@G@@POPT(26) @ @@@@ DIMENSION SPEC(4,50) @ @@@@ DIMENSION FIWM )@@G@@LE(2),ELT(2)@ @@@@ DIMENSION FILELT(5) @^@@@@ DIMENSION CAWN )@@G@@RD(14)@^@@@@ DIMENSION CTYPE(2)@ @@@@ DIMENSION VSPEC(3,200) WO )@@G@@@B@@@@ DIMENSION BNKNMS(2,10),BNMBUF(100) @ @@@@ DIMENSION HEWP )@@G@@ADER(28) @^@@@@ DIMENSION VN(1000)@[@@@@C @^@@@@C WQ )@@G@@ INITIALIZE@[@@@@C @]@@@@ ERR=0 @^@@@@ CALL S1LNOP(LINE) WR )@@G@@@#@@@@ LINE=LINE-6 @ @@@@ CALL S1PHDI('PRINT') @^@@@@ WS )@@G@@CALL S1HEDC(0) @[@@@@C @B@@@@C READ THE @BANKPRINT CAWT )@@G@@RD @[@@@@C @B@@@@ 100 CALL READCC(OPTION,S,4200,$120) @#@@@@WU )@@G@@ GO TO 150 @#@@@@ 120 PRINT 130 @B@@@@ 130 FORMAT(' BANKPRINTWV )@@G@@ TERMINATED') @]@@@@ STOP @[@@@@C @ @@@@C CHECWW )@@G@@K OPTIONS @[@@@@C @^@@@@ 150 DO 160 I=1,26 @A@@@@ 160 ALPOPTWX )@@G@@(I)=FLD(9+I,1,OPTION) @^@@@@ HOPT=ALPOPT(8) @#@@@@ ALPOPTWY )@@G@@(8)=0 @^@@@@ LOPT=ALPOPT(12) @#@@@@ ALPOPT(12)=0@^@@@@ WZ )@@G@@VOPT=ALPOPT(22) @#@@@@ ALPOPT(22)=0@^@@@@ DO 170 I=1,26 XA )@@G@@@A@@@@ IF(ALPOPT(I) .NE. 0) GO TO 180@#@@@@ 170 CONTINUE @#@@@@XB )@@G@@ GO TO 200 @]@@@@ 180 ERR=1 @#@@@@ PRINT 185 @G@@@@ 185 XC )@@G@@FORMAT(' ONLY THE H,L, AND V OPTIONS ARE ALLOWED WITH BANKPRINT') @#@@@@XD )@@G@@ LINE=LINE+1 @[@@@@C @ @@@@C GET SPEC FIELDS @[@@@@XE )@@G@@C @#@@@@ 200 NSPEC=0 @^@@@@ DO 220 I=1,50 @B@@@@ XF )@@G@@CALL GETSPC(I,FILE,ELT,$230,$210) @^@@@@ NSPEC=NSPEC+1 @ @@@@XG )@@G@@ SPEC(1,NSPEC)=FILE(1) @ @@@@ SPEC(2,NSPEC)=FILE(2) @ @@@@XH )@@G@@ SPEC(3,NSPEC)=ELT(1) @ @@@@ SPEC(4,NSPEC)=ELT(2) @#@@@@XI )@@G@@ GO TO 220 @]@@@@ 210 ERR=1 @#@@@@ LINE=LINE+1 @#@@@@ 220 XJ )@@G@@CONTINUE @A@@@@ 230 IF(NSPEC .GT. 0) GO TO 250 @#@@@@ PRINT XK )@@G@@240 @G@@@@ 240 FORMAT(' NO VALID STJBANK SPECIFICATIONS ARE ON THE BAXL )@@G@@NKPRINT CARD@]@@@@ -') @#@@@@ GO TO 120 @[@@@@C @A@@@@XM )@@G@@C CHECK INCLUDE CARDS @[@@@@C @#@@@@ 250 NINCL=0 XN )@@G@@@#@@@@ NVARSP=0 @B@@@@ 255 READ(5,260,ERR=280,END=290) CARD XO )@@G@@@^@@@@ 260 FORMAT(13A6,A2) @^@@@@ PRINT 261,CARD @^@@@@ 261 XP )@@G@@FORMAT(5X,13A6,A2)@#@@@@ LINE=LINE+1 @E@@@@ CALL S1BADC(CARD,CXQ )@@G@@TYPE,NMSPEC,VSPEC(1,NVARSP+1),ERRFL)@ @@@@ NVARSP=NVARSP+NMSPEC XR )@@G@@@A@@@@ IF(ERRFL .NE. 0) LINE=LINE+2 @ @@@@ IF(ERRFL .NE. 0) EXS )@@G@@RR=1 @B@@@@ IF(CTYPE(1) .EQ. 'INCLUD') GO TO 270@#@@@@ PRINT XT )@@G@@265 @F@@@@ 265 FORMAT(' ONLY THE INCLUDE CARD IS ALLOWED WITH BANKPRIXU )@@G@@NT') @#@@@@ LINE=LINE+1 @]@@@@ ERR=1 @#@@@@ GO TO 275 XV )@@G@@@^@@@@ 270 NINCL=NINCL+1 @#@@@@ 275 GO TO 255 @^@@@@ 280 PRINT XW )@@G@@261,CARD @#@@@@ PRINT 285 @G@@@@ 285 FORMAT(' INPUT ERRORS HAXX )@@G@@VE OCCURRED WHILE READING THE INCLUDE CARD@]@@@@ -') @#@@@@ XY )@@G@@GO TO 120 @A@@@@ 290 IF(NINCL .EQ. 0) GO TO 300 @D@@@@ IF(VOPXZ )@@G@@T .NE. 0 .OR. LOPT .NE. 0) GO TO 300 @#@@@@ PRINT 295 @G@@@@YA )@@G@@ 295 FORMAT(' INCLUDE CARDS HAVE NO EFFECT UNLESS THE V OR L OPTION IS YB )@@G@@@]@@@@ -USED')@#@@@@ LINE=LINE+1 @[@@@@C @A@@@@C YC )@@G@@ SUPPRESS L IF ERRORS @[@@@@C @D@@@@ 300 IF(LOPT .EQ. 0 .OR. ERYD )@@G@@R .EQ. 0) GO TO 350 @]@@@@ LOPT=0@#@@@@ PRINT 310 @G@@@@YE )@@G@@ 310 FORMAT(' L OPTION NOT PERFORMED BECAUSE OF ERRORS IN SPECIFICATIONYF )@@G@@@]@@@@ -') @#@@@@ LINE=LINE+1 @[@@@@C @B@@@@C YG )@@G@@ BEGIN LOOP TO PRINT OUTPUT @[@@@@C @#@@@@ 350 LSPEC=0 @^@@@@YH )@@G@@ CALL S1HEDC(LINE) @A@@@@ IF(LINE .LT. 5) CALL S1PHST @^@@@@YI )@@G@@ 360 LSPEC=LSPEC+1 @A@@[@ IF(LSPEC .LE. NSPEC) GO TO 362@#@@[@YJ )@@G@@ CALL S1PHRS @]@@[@ STOP @#@@[@ 362 CONTINUE @ [@@@ YK )@@G@@FILE(1)=SPEC(1,LSPEC) @ @@@@ FILE(2)=SPEC(2,LSPEC) @ @@@@ YL )@@G@@ELT(1)=SPEC(3,LSPEC) @ @@@@ ELT(2)=SPEC(4,LSPEC) @#@@@@ YM )@@G@@NBANK=1 @#@@@@ LBANK=1 @A@@@@ IF(ELT(1) .NE. 0) GO TO YN )@@G@@400 @E@@@@ 365 CALL STJLST(FILE,NBANK,BNKNMS,10,BNMBUF,100,$370,$380)YO )@@G@@@]@@@@ MORE=0@#@@@@ GO TO 375 @]@@@@ 370 MORE=1@#@@@@ 375 YP )@@G@@LBANK=0 @#@@@@ GO TO 390 @^@@@@ 380 PRINT 385,FILE @G@@@@YQ )@@G@@ 385 FORMAT('0STJBANKS NOT FOUND IN FILE ',2A6,' OR FILE NOT PROPERLY AYR )@@G@@@#@@@@ -SSIGNED') @#@@@@ GO TO 360 @^@@@@ 390 LBANK=LBANK+YS )@@G@@1 @A@@@@ IF(LBANK .GT. NBANK) GO TO 395@ @@@@ ELT(1)=BNKNMYT )@@G@@S(1,LBANK) @ @@@@ ELT(2)=BNKNMS(2,LBANK) @#@@@@ GO TO 400 YU )@@G@@@A@@@@ 395 IF(NBANK .NE. 10) GO TO 360 @A@@@@ IF(MORE .EQ. 0) GOYV )@@G@@ TO 360 @#@@@@ GO TO 365 @[@@@@C @D@@@@C LOCAYW )@@G@@TE NEXT STJBANK - BEGIN PROCESSING @[@@@@C @A@@@@ 400 CALL S1FILT(YX )@@G@@FILE,ELT,FILELT) @C@@@@ CALL S1SJIT(FILE,ELT,FILECD,HEADER,$390) YY )@@G@@@D@@@@ IF(VOPT .NE. 0 .OR. LOPT .NE. 0) GO TO 450 @C@@@@ YZ )@@G@@CALL S1BAPR(FILELT,HEADER,0,DUM,DUM,0) @ @@@@ 410 CALL S1SJIC(FILECDZA )@@G@@,$390)@#@@@@ GO TO 390 @[@@@@C @C@@@@C LOAD VARIAZB )@@G@@BLE INFORMATION SUMMARY @[@@@@C @^@@@@ 450 NVARS=HEADER(2) @^@@@@ZC )@@G@@ NEED=14*NVARS @A@@@@ IF(NEED .LE. CORE) GO TO 480 @ @@@@ZD )@@G@@ CALL S1MCOR(NEED,0,$460)@#@@@@ CORE=NEED @#@@@@ GO TO ZE )@@G@@480 @#@@@@ 460 PRINT 470 @D@@@@ 470 FORMAT(' ***** TROUBLE EXPANDIZF )@@G@@NG BLANK COMMON') @#@@@@ GO TO 120 @B@@@@ 480 CALL S1SJLD(FILECDZG )@@G@@,1,NVARS,VIS,$410)@[@@@@C @C@@@@C SET UP LIST OF VARIABLZH )@@G@@E NUMBERS @[@@@@C @#@@@@ 500 LSUPP=0 @A@@@@ IF(NINCL .NEZI )@@G@@. 0) GO TO 520 @^@@@@ 505 DO 510 I=1,NVARS @#@@@@ 510 VN(I)=I ZJ )@@G@@@#@@@@ NV=NVARS @#@@@@ GO TO 550 @A@@@@ 520 IF(NVARSP .EZK )@@G@@Q. 0) GO TO 505 @E@@@@ CALL S1TSVL(FILELT,NVARSP,VSPEC,NVARS,VIS,ZL )@@G@@NV,VN,$530) @#@@@@ GO TO 550 @#@@@@ 530 PRINT 540 @G@@@@ 540 ZM )@@G@@FORMAT(' ENTIRE VARIABLE LIST GIVEN BECAUSE OF ERRORS IN INCLUDE U@]@@@@ZN )@@G@@ -SE') @#@@@@ LSUPP=1 @#@@@@ GO TO 505 @[@@@@C ZO )@@G@@@C@@@@C PRINT SUMMARY AND VARIABLE LIST @[@@@@C @#@@@@ZP )@@G@@ 550 NVARIN=0 @D@@@@ IF(VOPT .NE. 0 .OR. LSUPP .NE. 0) NVARINZQ )@@G@@=NV @C@@@@ CALL S1BAPR(FILELT,HEADER,NVARIN,VN,VIS,1)@[@@@@C ZR )@@G@@@ @@@@C L OPTION OUTPUT @[@@@@C @A@@@@ 600 IF(LOPT .EQ.ZS )@@G@@ 0) GO TO 410 @A@@@@ IF(LSUPP .EQ. 0) GO TO 620 @#@@@@ ZT )@@G@@PRINT 610 @G@@@@ 610 FORMAT(' L OPTION NOT PERFORMED BECAUSE OF ERRORZU )@@G@@S IN INCLUDE') @#@@@@ GO TO 410 @#@@@@ 620 LOW=1000 @]@@@@ZV )@@G@@ HGH=0 @^@@@@ DO 625 I=1,NV @A@@@@ IF(VN(I) .LT. LOW)ZW )@@G@@ LOW=VN(I) @A@@@@ IF(VN(I) .GT. HGH) HGH=VN(I) @#@@@@ 625 CONTINZX )@@G@@UE @^@@@@ DATSIZ=HGH-LOW+1 @ @@@@ BUFSIZ=DATSIZ*HEADER(23)ZY )@@G@@@ @@@@ NEED2=NEED+BUFSIZ+DATSIZ@A@@@@ IF(NEED2 .LE. CORE) GO TZZ )@@G@@O 640 @A@@@@ CALL S1MCOR(NEED2,0,$460) @#@@@@ CORE=NEED2 AA )@@G@@@G@@@@ 640 CALL S1BADP(FILECD,HEADER,NV,VN,VIS,S(NEED+1),S(NEED+DATSIZ+AB )@@G@@1), @^@@@@ * HOPT) @#@@@@ GO TO 410 @]@@@@ AC )@@G@@END ___ NOT PROPERLY A@#@@@@ -SSIGNED') @#@@@@ GO TO 360 AD )@@G@@@^@@@@ 390 LBANK=LBANK+)@@@F]+@@@@@)@@@C@)@[@%K0CK^G@@@@@@@@[M@@@@@@@ZLAE )@@G@@/,0@@@ @@@ZK/S@@@@@@@[[*/,0@@@AA@@@A)@A@MK0@@@@@)Z?@K@)@C@<#@-[K0@@[O@@@AF )@@G@@@@@@Z?/,0@@@]@@@ZL______PRINT H@@@ZLC/@@@AAB@@@A)@G[F]^-)^CUA[[K0C@@@@@@AG )@@G@@@[Q@@@/K@@@Q@@@@-<@@@@@@@@@@ZM/,0@@@@[P@@@@@@@-+/,0@@@AC@@@A)@P@<@K(CS@@AH )@@G@@)Z,@*@@@@@@@ED) RMINATINT TEBANKPR(021H @[S@@@@@[@Z,/,0@@@/K@@@XAD@@@AAI )@@G@@)@T[F]&-OK0@CS[#@@@@@@@@G@@@ZNC/@@@DA@K@ZNN.@@@TR/K@@[@[V@@@@@@@-=/,0@@@AJ )@@G@@'^@@@@AE@@@A)@+[F#@]A@K^G]A[#@@@@@@@ @@@@C[@@@ZOC@@@@C8L@@@ZO/K@@[[@-@@@AK )@@G@@;C)@@<;)?@@@C@)@ZMAF@@@A)@:[F#@-)K0CS^G]A@^G@@@@A@K@ZNN.@@@TR/K@@[ @@@@QAL )@@G@@[[@@ZQC[@@@Q @@@@G[@)@ZPC@)@@GAG@@@A)@4[F#@)]@)]A[]=-)@@@@@@@@[@Z3/,0@@@AM )@@G@@[@@@ZKC/@@@[/K@@[]8L@@@3O/K@@[/K@@@9*@[@@@AH@@@A)@.@E@)Z3[C@@@@@@@TH BANAN )@@G@@WED WIE ALLOONS ARV OPTI, AND HE H,LONLY T(055H @[0@@@AI@@@A)Z/@K@)@"@;]AO )@@G@@&CS^G]A@@@@@N.@@@1C_)@@[ @@@ZR[@@@ZLG@@@ZLC/@@@['^@@@@) KPRINTAJ@@@AAP )@@G@@)[ [F#@-^K0CS^G]@)@@@@@@C/@@@[@[8@@@/K@@[U/K@@[)@@@@#>@@@@#<@@@@ZN/,0@@@AQ )@@G@@[#)@ZNAK@@@A)[I[F#@-)^G]A[#@-)K0CS@@[[?@@TC[)@#>[[G@@SC[@@#=[@?@@RC@)@#/,0@@@ @@@ZT @@@ZS/K@@@Q'^@@@@AP@@@AAW )@@G@@)[0[F@K0]A@K0CS^E2@@@@@@8L@@[6'^K@@@C8[)#:[[)@-?N.@@@HR@K@-&T.)@@#C[)@ZTAX )@@G@@@@]@]/AQ@@@A))D@K@)[9@;]&-MK0]A@K0@@C8[)#:N.@@@HR@K@-&@]M@@@@@[@)F/,0@@@AY )@@G@@'^@@@@A2) (13A6,AR@@@A)]@@N]?)@@@@))F@K@)]]@<]&CS^G@[@@@ZLG@@@ZLC/@@@[AZ )@@G@@'^@@@@A6,A2)(5X,138L@@[_'^K@@@AS@@@A)]A[F#@-)K^C%A[#@-)K^G@@@@@@ZV@@@@]HBA )@@G@@@@@@ZU@@@@#'@@@@#?/,0@@@^^K@]HN8L@#/R@K@-?AT@@@A)]J[EK0CS^G]A[@^G]A@@@@@BB )@@G@@[@@@ZLG@@@ZLC/@@@]/K@@]S(@@@ZV[@@@ZTG@@@ZTC@@@ZU@]U@@@AU@@@A)]S[F#@)]A[#BC )@@G@@@-)^[]=@@@@@/,0@@@/K@@]%(@@@@GH@@@-$C@@@#'[@@@ZKC/@@@[/K@@]W(@@@ZVAV@@@ABD )@@G@@)]-@N#@@@@@@))H@8@@@@@@@ED WIT ALLOWARD ISLUDE CHE INCONLY T(048H @]+@@@BE )@@G@@@@[@)HAW@@@A))O@K@)]<@;]&CS^G@-)K@@@/K@@]![@)@ZKC/)@@[[@@@ZLG@@@ZLC/@@@[BF )@@G@@'^@@@@PRINT)H BANKAX@@@A)]%[EK0CS^[]=-)^G@@@@@@@N.@@@HR@K@-&@]%@@@@@[@)FBG )@@G@@/,0@@@/K@@[:[@@@ZSG@@@ZSC/@@@[AY@@@A)]3@;#@-QK^EU D#@@))Q@K@INPUT (058H BH )@@G@@@]0@@@@@[@)Q/,0@@@'^@@@@8L@@]3'^K@@@C8[)#:AZ@@@A))S[C@@@@@@@@@@[C@@@@@@@BI )@@G@@ARD) LUDE CHE INCDING TLE REAED WHIOCCURR HAVE ERRORSBA@@@A)]'[N]&)CS^@BJ )@@G@@K0@-)@ @@@@I(@@@ZQC/)@@[ @@@@G(@@@ZPC/@@@[/K@@#H(@@@ZS/K@@@Q'^@@@@BB@@@ABK )@@G@@)#^@%K^EMA@@))-@)@@@@@@@S HAVEE CARDINCLUD(062H @]8@@@@@[@)-/,0@@@/=K@#HBL )@@G@@)@@@@IBC@@@A))>[@@@@@@@@)#D@F]&@@@@@'^@@@@D) IS USEPTION OR L OTHE V BM )@@G@@NLESS FECT U NO EFBD@@@A)#E[MK0CS[#@]A@@@@)@@@@I @@@@I*@@@ZPC/)@@[ @@@@GBN )@@G@@*@@@ZKC/@@@[[@@@ZLG@@@ZLC/@@@[BE@@@A)#O@:@K0CO=G@@@@@@))!@S@@@@@@@ON NOTBO )@@G@@L OPTI(058H @]_@@@@@[@)!/,0@@@ @@@ZP/=K@#XBF@@@A))0[@@@@@@@@)#T@F]&@@@@@BP )@@G@@'^@@@@ION) IFICATN SPECRORS I OF ERECAUSERMED B PERFOBG@@@A)#U[EK0CS^G]BQ )@@G@@^D#@CS@@@@@@G/@__'C@@@ZL@#^@@@@@@@ZL/,0@@@ @@@ZW[@@@ZLG@@@ZLC/@@@[BH@@@ABR )@@G@@)#<[M^[]G]A[#@-)@@*@@@@GH@@@ZR[@@@ZWG@@@ZWC/@@@[@#A@@@/,0@@@/K@@#*1@@@@GBS )@@G@@*@@@@GBI@@@A)#![EK^C8-OK0]A@@@@@@@@@;@@@@+C@@@ZW@#F@@@@@@@-=/,0@@@@#E@@@BT )@@G@@/,0@@@/K@@#40@@@@GBJ@@@A)#6[F#@-)K0CS^G]A[#@-)@@C/@@@[[]@@#&C]G@@U[[)@#>BU )@@G@@C[?@@T[[@@#=C[G@@S[@)@#[@@@ZY[@@@ZXBL@@@A)^C[F#@-)K^@K0C@-)@@@@@@BW )@@G@@[@@@ZZC/@@@[/K@@^L @@@ZZ@#P@@@/K@@^N/K@@^J@@@@-(@@@@H*BM@@@A)^L[F#@)CO=GBX )@@G@@@-)^G] S@@@@'^K@@@C8[)#+N.@@@[R@K@-&@#V@@@@@[@)8/,0@@@/K@@^X @@@ZYBN@@@ABY )@@G@@)^U@F@@@@@@@))8[@@@@@@@@ OR FI6,030HLE ,2A IN FI FOUNDKS NOTSTJBAN(028H0BZ )@@G@@8L@@^SBO@@@A)-@@*@@@@@@@)^V@<]&)]A@@G@@@ZYC/@@@[/K@@#*'^@@@@) SIGNEDCA )@@G@@RLY AS PROPELE NOTBP@@@A)^Z[F#@-)K[@K0]A[#@@@@@@[@)@#>C@?@HM;@@@@CS^G@@@CD )@@G@@@@@@#>@@@@#@@@@#C@)@Z+CB@@@A)A^[F#@)*S^G]@C] D#@@@@@@@[@-H/,0@@@/K@@AM@^H@@@CP )@@G@@/K@@AF@@@@J*@@@@Z>@@@@@@@@@@Z+CC@@@A)AH@E@)-H[C@@@@@@@RS IN F ERROAUSE OCQ )@@G@@EN BECST GIVBLE LI VARIAENTIRE(060H @^J@@@CD@@@A)-Q@K@)AI@;]&CS^[#@CS@@@CR )@@G@@(@@@ZQC/@@@[ @@@Z&/K@@ 2[@@@Z=C/@@@['^@@@@E USE)INCLUDCE@@@A)AP[E^G@C]A[CS )@@G@@#@-F@@@@@@@@/,0@@@[@@@Z&C@@@Z>/)K@AX)@@@@I @@@@I(@@@Z=C/)@@[ @@@@GCF@@@ACT )@@G@@)AY[F#@-)K0CS^ #@CS^@@@@/K@@ I(@@@ZP@^R@@@@@@@-%@@@@@@@@@@J*@@@@Z&@@@@JGCU )@@G@@@@@@#$CG@@@A)A$@:#@)CO=G@@@@@@)-S@S@@@@@@@ON NOTL OPTI(052H @^W@@@@@[@-SCV )@@G@@/,0@@@/K@@A,(@@@Z=CH@@@A)-V@8@@@@@@@)A?@N]&)@@@@/K@@ I'^@@@@UDE) N INCLCW )@@G@@RORS I OF ERECAUSERMED B PERFOCI@@@A)A,[MK0CS[#@]A[#@@*@@@@GH@@@Z$C@[@J$CX )@@G@@[@)@[^R/K@@[G@)@Z>C/)__" @@@Z*[@@@Z$C/@@J*CJ@@@A)A8[EK^G]A[#@-)[@@@@@@@@CY )@@G@@/K@@B#1@@@@G*@@@@GH@[@J$C@@@Z*[@@@Z$C@[@J$/K@@A/1@@@@GCK@@@A)B[[F#@-)^[#CZ )@@G@@@-)^G]A@@@@@T@@@J+[@@@Z(G/@@@[H@@@Z$C@@@Z*8L@@A5O/K@@[[@@@Z*C@[@J$CL@@@ADA )@@G@@)BE[F#@-)K0CS^G@C]^4@@@@/,0@@@/K@@BT0@@@@G*@@@@GH@@@@@[@@@Z:G@@@Z(G@@@Z@@@@JG@@@@Z)DD )@@G@@/,0@@@^^K@B$N8M@@@^^K@B&N8L@@@CO@@@A)B>[F[K^[#@C] L#@@@@@@@@@^3@@@@@@@-:DE )@@G@@/,0@@@/K@@ I@^2@@@@@@@ZO@@@@B$@@@@B&@@@@@@CP@@@A)-+[K@@@@@@@@@@@@@ DF )@@G@@@@@@@[@@@@[=@@@@@EINCLUD@@[@@[@@@@@ @@@[[*@@@@@@CQ@@@A0@@@]@@@@@@@DG )@@G@@@@@@@@ @@@@@[@@@@[=@@@@@EINCLUD@@[@@[@@@@@ @@@[[*@@@@@@CR@@@ADH )@@G@@@@^@@#@@B@@R@@5@@[@@9@@[@@ @-!@C@@B,@@@[[*S1LNOP S1PHDI S1HEDCDI )@@G@@ READCC GETSPC S1BADC S1PHST S1PHRS STJLSTDJ )@@G@@ S1FILT S1SJIT S1BAPR S1SJIC S1MCOR S1SJLDDK )@@G@@ S1TSVL S1BADP NINTR$ NPRT$ NIO2$ NSTOP$DL )@@G@@ NRDU$ NIO1$ FORMAIN$ @@[@@@@@@@@@BLANK$ ^@@@C@DM )@@G@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@*[S@@@*SDFF*@^@@@@ SUBROUTINE S1PHED @[@@@@C @[@@@@C @F@@@@DP )@@G@@C SPECIAL VERSION FOR BANKPRINT/PURGE/MERGE PROCESSORS. @[@@@@DQ )@@G@@C @^@@@@ DATA NOPSKP /0/ @#@@[@ INTEGER STOP@^@@@@ DR )@@G@@DATA STOP /0/ @^@@[@ DATA MARBIG /0/ @[@@@@C @ @@@@ DS )@@G@@IF(STOP .NE. 0) GO TO 5 @A@@@@ IF(NOPSKP .EQ. 0) GO TO 50 @#@@@@DT )@@G@@ 5 PRINT 10 @#@@@@ 10 FORMAT(1H0) @]@@@@ STOP=0@]@@@@ DU )@@G@@RETURN@^@@@@ 50 CALL URPRTM(6,3) @#@@[@ MARBIG=0 @B@@@@ 55 DV )@@G@@PRINT 60,NAME,RUNID,IDATE,IYEAR @G@@@@ 60 FORMAT(1H ,15X,'MADISON DW )@@G@@ACADEMIC COMPUTING CENTER BANK',A6,'PROCES@A@@@@ -SOR RUN ',A6,2DX )@@G@@X,A6,A2/) @]@@@@ RETURN@[@@@@C @D@@@@C ENTRY TO SDY )@@G@@UPPRESS SKIP AT BOTTOM OF PAGE@[@@@@C @#@@@@ ENTRY S1QHED@^@@@@DZ )@@G@@ CALL URPRTM(0,0) @#@@[@ MARBIG=1 @#@@@@ PRINT 10 EA )@@G@@@#@@@@ GO TO 55 @[@@@@C @E@@@@C ENTRY TO INITIALEB )@@G@@IZE AND SPECIFY PROCESSOR NAME@[@@@@C @^@@@@ ENTRY S1PHDI(NAME)EC )@@G@@@ @@@@ CALL URDATE(IDATE,IYEAR)@^@@@@ CALL URRNID(RUNID)@]@@@@ED )@@G@@ RETURN@[@@@@C @E@@@@C ENTRY TO RETURN NUMBER OF LIEE )@@G@@NES ON A PAGE @[@@@@C @ @@@@ ENTRY S1LNPP(LINEPP) @#@@@@EF )@@G@@ LINEPP=55 @]@@@@ RETURN@[@@@@C @C@@@@C ENTREG )@@G@@Y TO SET SUPPRESS SKIP FLAG @[@@@@C @ @@@@ ENTRY S1NOPS(NOPSKEH )@@G@@2) @^@@@@ NOPSKP=NOPSK2 @]@@@@ RETURN@[@@@@C @C@@@@EI )@@G@@C ENTRY TO PREVENT NEXT PAGE HEADING@[@@@@C @#@@@@ EJ )@@G@@ENTRY S1PHST@]@@@@ STOP=1@]@@@@ RETURN@[@@[@C @C@@[@C EK )@@G@@ ENTRY TO RESTORE PAGE MARGINS @[@@[@C @#@@[@ ENTRY EL )@@G@@S1PHRS@ @@[@ IF(MARBIG .EQ. 0) RETURN@^@@[@ CALL URPRTM(6,3) EM )@@G@@@]@@[@ RETURN@]@@@@ END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@S@)@@@3#]@--@K&-)@@@EO )@@G@@@@[@@A/,0@@@/K@@@G(@@@@@/K@@@^*@@@@[@@@@@@@@@@@@@@@@@@AA@@@A)@A@F#@@@@@@EP )@@G@@)@A@C@)@B@:]+A^[@K0@@@@@@[L@@W/K@@[GN@0@@F @@@@['^@@@@(1H0) @[H@@WAB@@@AEQ )@@G@@)@G[F]]A^GCSK0-H#]A^G@@@@@K@@Z@[O@@W@@[@@B/,0@@@ @@@@]@[M@@W@@@@@S@@@@@RER )@@G@@/,0@@@AC@@@A)@P@V#]A^G@@)@B@0@@@@@@@COMPUTDEMIC ON ACAHMADIS5X,038(1H ,1ES )@@G@@@@K@@ @@K@@^@@)@@#AD@@@A)@H[K@@@@@@@@@@@@@) A6,A2/A6,2X, RUN ,OR ET )@@G@@ROCESS,018HPANK,A6NTER BING CEAE@@@A)@S[F]+@)CSK)--#]A@@@@@@C/@@@[@[X@@WEU )@@G@@@@@@@T@@@@@T/,0@@@@[V@@W/K@@[GN@0@@V'^@@@@AF@@@A)@-[F#]^4GCSK*)CLK0-)@@@EV )@@G@@@@@@@ @@@@@^/,0@@@/K@@@L'^@@@@@[Z@@W@@[@@A/,0@@@[@@@@]AG@@@A)@%[F#]^=GCSEW )@@G@@K^[#@@@@@@@@[@@@@@C/@@@7@[&@@W/K@@[GN@0@@0@[>@@W@@@@@#/,0@@@@[=@@WAH@@@AEX )@@G@@)@3[F@K^GCSK0)C]A@@@@@@@C/@@@[@[,@@W/K@@[GN@0@@'[@@@@@C@@@@)@[%@@W/K@@[GEY )@@G@@N@0@@5AI@@@A)@/[F#]@)CSK0)C]@-)@@@@@@[4@@W/K@@[GN@0@[^/K@@[ *@@@@]@[1@@WEZ )@@G@@/K@@[GN@0@@_[@@@@[AJ@@@A)[ [F]]A^GCSK^[#]A^G@@@@*4@K@UR]0@@X@[6@@W/K@@[GFA )@@G@@N@0@[F@[5@@W@@@@@S@@@@@R/,0@@@AK@@@A)@U@C@)[I@N#] K@@@)@W@K@)[K@N#]A@@@@FB )@@G@@[^@@@UAA0@@X@[6@@#S1PHED/K@@@@/K@K@U@@F@@@AL@@@A)[M[M^[@^[@^@@@@@@C@VK@@FC )@@G@@/\K@[KC8@@@]/K@@@W/\K@[KC8@@@[/K@@@@/\K@[KC8@@@[/KH@@@AM@@@A)[W[N#]@C@)CFD )@@G@@@)@@@@C@VK@@/\K@[KC8@@@]/K@@@1[^@@@2C8FK@@/\K@[KC8@@@]/K@@@$[@K@@ZAN@@@AFE )@@G@@)[&[##]@C]@C]@@@@@)@R@C@@@@@@A/K@@[@/\K@[KC8@@@[/K@@@;/\K@[KC8@@@[/K@@@6FF )@@G@@[@K@@)AO@@@A)@S@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@#AP@@@A@@^@@]@@A@@A@@M@@B@@,@@@@@#@@-@C@@[,URPRTM FH )@@G@@URDATE URRNID NPRT$ NIO2$ NERR3$ S1PHED FI )@@G@@@@[@@@@@@@[NS1QHED @@[@@@@@@@[QS1PHDI @@[@@@@@@@[TS1LNPP FJ )@@G@@@@[@@@@@@@[YS1NOPS @@[@@@@@@@[@@@@[7@@@@@@@#X@@>@@@@@M@@@@@@@@@IH )@@G@@@@@@@@@#M@@@@@@@@@@[H@@@@@V@@@@@@@@@@[Q@[G@@X@@@@@@@[*@]W@@@@@@@[#@@@@@UII )@@G@@@@@@[:@]]@@@@@@@]=@]^@@@@#W@@E@@R@@@@@@@[%@@*@[P@#Z@@[@["@@@@@@@@9@@/@@@IJ )@@G@@@@@@[S@@^@@@@@@@@Z@@3@@@@@N@[)@](@@@@@@@]K@@@@@@@@@@#&@@<@@@@@@@@I@@6@[+IK )@@G@@@[L@]Q@@2@@@@@@@[D@@@@@@@@Q@@@@@@@@@@@@@[Z@[<@@@@@@@@:@]#@@@@@@@#[@@,@@@IL )@@G@@@@@@@@@@]@@A@@@@#^@]Z@@@@@@@]&@@@@@@@@@@[,@]A@@@@['@]R@@0@@@@@@@@O@#I@@"IM )@@G@@@@@@[5@@K@[I@@@@]X@]G@@@@@@@[U@@;@[(@@@@@1@@\@@@@[C@@@@@@@@@@@@@[ @]N@@@IN )@@G@@@@@@]:@@&@@@@@@@[;@@(@@W@[>@#G@@@@@?@@T@@!@]1@@@@@@@@'@]J@@J@@@@@L@]U@[OIO )@@G@@@[B@[]@@@@@@@@@@@H@@@@@@@@@@[A@@-@[6@@@@@@@@^@#&T$CELL @@_@@@)@@O['IP )@@G@@C$TS @@_@[-)@@O]+C$TSA @@_@@@)@@O]+C$TSQ @@_@][)@@O#UIQ )@@G@@C$OM @@_@#@)@@O^NC$OMPK @@_@@%)@@O^/R$EAD @@_@],)@@O >IR )@@G@@A$READ @@_@@@)@@O /R$EADA @@_@@@)@@OAOA$READA @@_@@8)@@OA?IS )@@G@@T$READ @@_@]6)@@OB^A$TREAD @@_@@@)@@OBWP$RINT @@_@#])@@OB4IT )@@G@@A$PRINT @@_@[R)@@OCGP$RNTA @@_@@@)@@OC=A$PRNTA @@_@@@)@@OC/IU )@@G@@P$UNCH @@_@]7)@@ODOA$PUNCH @@_@@@)@@OD?P$NCHA @@_@@@)@@OE^IV )@@G@@A$PNCHA @@_@[!)@@OEWP$RTCN @@_@]5)@@OE4A$PRTCN @@_@@@)@@OFGIW )@@G@@P$CHCN @@_@@+)@@OF=A$PCHCN @@_@@@)@@OF/P$RTCA @@_@@@)@@OGOIX )@@G@@A$PRTCA @@_@@@)@@OG?P$CHCA @@_@@@)@@OH^A$PCHCA @@_@@@)@@OHWIY )@@G@@L$OAD @@_@]%)@@OH4D$REL @@_@@@)@@OI1D1 @@_@@@)@@OI1IZ )@@G@@D$LOAD @@_@#A)@@OJOX$CW @@_@]!)@@O&]X$ON @@_@@@)@@O&ZJS )@@G@@X$OFF @@_@[9)@@O$IFILE @@_@#<)@@O$XBOPEN @@_@]2)@@O6YJT )@@G@@OPEN @@_@#T)@@O6YBRREAD @@_@]H)@@O;KBXREAD @@_@@@)@@O;KJU )@@G@@BRWRIT @@_@@@)@@O;KBREAD @@_@[3)@@O;KBWRIT @@_@]M)@@O;KJV )@@G@@BCLOSE @@_@@@)@@PACCLOSE @@_@]$)@@PDSBMARK @@_@@@)@@PG6JW )@@G@@RELESE @@_@@@)@@PIVBREL @@_@@@)@@PIVDRAIN @@_@]0)@@PK"JX )@@G@@WRITE @@_@[4)@@PM^READRM @@_@@@)@@PM_EXREAD @@_@]B)@@PM_JY )@@G@@READ @@_@@@)@@PM_WRITRM @@_@@@)@@PM_N$TAB @@_@@@)@@PT@JZ )@@G@@N$BF1 @@_@@@)@@PV0N$BF2 @@_@@@)@@PX@PRO @@_@@@)@@PYKKA )@@G@@P$RO @@_@#F)@@PYKINMTAO @@_@@@)@@PYKMTAO$ @@_@@@)@@PYKKB )@@G@@INMTA$ @@_@@@)@@PYKMTA$ @@_@@@)@@PYKINMT3O @@_@@@)@@PYKKC )@@G@@MT3O$ @@_@]3)@@PYKINMT3$ @@_@]_)@@PYKMT3$ @@_@@@)@@PYKKD )@@G@@INMT9O @@_@@@)@@PYKMT9O$ @@_@];)@@PYKINMT9$ @@_@@@)@@PYKKE )@@G@@MT9$ @@_@@@)@@PYKTFO$ @@_@]T)@@PYKTF$ @@_@@@)@@PYKKF )@@G@@PTRO$ @@_@@@)@@PYKPTR$ @@_@@@)@@PYKPTPO$ @@_@]E)@@PYKKG )@@G@@PTP$ @@_@]F)@@PYKHSPO$ @@_@# )@@PYKHSP$ @@_@]D)@@PYKKH )@@G@@CRO$ @@_@@@)@@PYKCR$ @@_@]S)@@PYKCPO$ @@_@@@)@@PYKKI )@@G@@CP$ @@_@@@)@@PYKCRPO$ @@_@]4)@@PYKCRP$ @@_@@@)@@PYKKJ )@@G@@MDCH$ @@_@]>)@@PYKMTCH$ @@_@@@)@@PYKPTCH$ @@_@#E)@@PYKKK )@@G@@HPCH$ @@_@@@)@@PYKCDCH$ @@_@#K)@@PYKCSJP @@_@#P)@@PYKKL )@@G@@NOOP @@_@]\)@@PYKEXRI @@_@@@)@@PYKI$OP @@_@@@)@@PYKKM )@@G@@F$ @@_@]+)@@PYKA$ @@_@]-)@@PYKI$$ @@_@]V)@@PYKKN )@@G@@NI$ @@_@#R)@@PYKND$ @@_@@@)@@PYKPHSP$ @@_@]?)@@PYKKO )@@G@@PHSV$ @@_@]*)@@PYKWD$ @@_@@@)@@PYKRD$ @@_@@@)@@PYKKP )@@G@@SD$ @@_@@@)@@PYKSRD$ @@_@@@)@@PYKBRD$ @@_@#O)@@PYKKQ )@@G@@BSD$ @@_@@@)@@PYKBSRD$ @@_@]9)@@PYKCBRD$ @@_@@@)@@PYKKR )@@G@@RPT$ @@_@@@)@@PYKPPT$ @@_@@@)@@PYKTERM$ @@_@@@)@@PYKKS )@@G@@RLI$ @@_@#-)@@PYKCFDI$ @@_@#Q)@@PYKCFDO$ @@_@@@)@@PYKKT )@@G@@RC$ @@_@@@)@@PYKRCTF$ @@_@@@)@@PYKRCTS$ @@_@@@)@@PYKKU )@@G@@PCS0$ @@_@@@)@@PYKPCS1$ @@_@@@)@@PYKFWTL$ @@_@#Y)@@PYKKV )@@G@@FWTH$ @@_@@@)@@PYKFRTF$ @@_@#U)@@PYKFRTB$ @@_@@@)@@PYKKW )@@G@@FSTF$ @@_@#C)@@PYKFSTB$ @@_@@@)@@PYKFRFS$ @@_@@@)@@PYKKX )@@G@@FRBS$ @@_@@@)@@PYKFMTF$ @@_@@@)@@PYKFMTB$ @@_@@@)@@PYKKY )@@G@@WTL$ @@_@#N)@@PYKWTH$ @@_@@@)@@PYKREW$ @@_@@@)@@PYKKZ )@@G@@REWL$ @@_@@@)@@PYKRTF$ @@_@@@)@@PYKRTB$ @@_@@@)@@PYKLA )@@G@@SRTF$ @@_@#S)@@PYKSRTB$ @@_@@@)@@PYKRTFS$ @@_@@@)@@PYKLB )@@G@@RTBS$ @@_@@@)@@PYKMTF$ @@_@@@)@@PYKMTB$ @@_@@@)@@PYKLC )@@G@@CW$ @@_@@@)@@PYKWEFH$ @@_@@@)@@PYKMSF$ @@_@@@)@@PYKLD )@@G@@MSB$ @@_@@@)@@PYKWBH$ @@_@@@)@@PYKWBL$ @@_@@@)@@PYKLE )@@G@@WDH$ @@_@#+)@@PYKWDL$ @@_@@@)@@PYKWEFL$ @@_@@@)@@PYKLF )@@G@@RBH$ @@_@@@)@@PYKRBL$ @@_@@@)@@PYKRDH$ @@_@@@)@@PYKLG )@@G@@RDL$ @@_@@@)@@PYKSRBH$ @@_@@@)@@PYKSRBL$ @@_@@@)@@PYKLH )@@G@@SRDH$ @@_@@@)@@PYKSRDL$ @@_@@@)@@PYKBSB$ @@_@@@)@@PYKLI )@@G@@RBSH$ @@_@@@)@@PYKRBLS$ @@_@@@)@@PYKRDHS$ @@_@@@)@@PYKLJ )@@G@@RDLS$ @@_@@@)@@PYKG @@_@#=)@@PYKDTABLE @@_@@@)@@PYKLK )@@G@@IBANK$ @@_@@@)@@PYKDBANK$ @@_@@@)@@PYKENDPRC @@_@@@)@@PYKLL )@@G@@L$SNAP @@_@@@)@@Q>?ELT$ @@_@@@)@@Q$,ASCTRL @@_@@@)@@Q?[LM )@@G@@ASCII @@_@@@)@@Q1 @@@@JLW )@@G@@C^J^PY/@@[J$(?G@@]0@J^PY/K@[J$(@G@@D/K@[J$*?G@@C/K@[J$N^W@@^'^@[KTCC!^);LX )@@G@@!8)@@ /K@[K-/KI[I4/K@[IQ/K@[I;/K@[JG/K@[JJ[C0^)<[^K^)'^@@9*'^@@9EN^W@@^C G@@D[ G@@^LZ )@@G@@ 4G@@C'^@[KT/K@[IQ[C0^)>[^K^)>/K@[J$C1G@@#:9@@@(/K@[JT0@G@@#'=@@@A*4G@@#MA )@@G@@'^@[D> @G@@D ^G@@C/K@[IQ[C0^)&[^K^)&C G@@C/[@[JQC0Z^PY?8K@@K/K@[J$[DG@@^MB )@@G@@C9@@@C[1G@@#'^@@9*CC0^)&C^K^)&/K@[JQG80@@[?@0^S!/K@[I>C[@^)C[@^+[[[@^+2[@0^+['^@@77C@0^+2[@0^+[0@G@@#MD )@@G@@'=@@@A*4G@@#'^@[D> @G@@D ^G@@CC^K^)/[@[K-CC0^)>ME )@@G@@C^J^PYN^K^)>/K@[KFCC0^)=C^J^PYN^K^)=0@G@@#'=@@@A*4G@@#'^@[D>C1G@@#:9@@@(MF )@@G@@/K@[KO'^@@9*'^@@9EC9@@@[[!G@@CR#K@[[ @G@@D/K@[IQ/K@@@@ @@@@HC H^);:[@@[[MG )@@G@@/K@LKTG8K@@[?8K@@*/K@[KVC@@^)$'=@@@I/K@@??/K@@@@N^W@@^'^@[KTC[K^+][DX^);MH )@@G@@(4G@@C/K@LK=N^W@@D'^@[KT[DX^);/K@LK=/K@@@@C@K^)7% H^);8#K[K1 CH^);/K@LK\MI )@@G@@R#@^-9 @@^-9/KF@@]@@ @@@/K@@@@'^@@@@ C@^YM/K@LK9/K@@@@'^@@@@/K@LK./K@@@@MJ )@@G@@C^)[L@/K@@@@/K@@@@/K@J__R#)^-$AB)[L]R#)^-(A#)^-:/K@[L[R#)^-*A#)^-:/K@O-%MK )@@G@@RB@[L@*4G@@@/KG@@@R;?@@[R#G@@@+@@^+8O#K^+9A#K[LPR7@@@@AB)[L@/K@[L]/K@@@@ML )@@G@@[^@^-=P;)@@[C[I@@@;(@@@E;D@@@)[1@^-=:9@@@^[5@^-=C9K@@[:9@@@^G9K@@[:9@@@#MM )@@G@@G9K@@[[[K^+@/K@LLS&'0@@]A]0^U_R#;@@@N^:@@[R#_@@@N8K@@]^@K^+]'^@[E8/K@[L1MN )@@G@@C9K[CM[ K[L^^^)^YAN8K@@PC@K^N&C@@^N*M#H)@@OE;@@@C!Z^PY/SF)@@AA0[L@:9K@@[MO )@@G@@/K@[M@'^@@L0/K@[]SC9K[MA[ K[K'C9K@] [ K^YL'^@[K9/K@[]S/K@@@@C[K[K8[[K^+#MP )@@G@@/K@LMAC@@^=3C)?^0^[@)^==C=?^0^[@)^=>C*?^0^[@)^=&/KF@@[C^FK@@/KF@@]C4FK@@MQ )@@G@@/KF@@]C0FK@@/KF@@]C)FK@@/KF@@]C=FK@@/KF@@]C*FK@@/KF@@]CCFK@@;@@@@M/KF@@]MR )@@G@@C@FK@@[4FK@[/KF@@#C@FK@@[0FK@[/KF@@#C@FK@@[=FK@[/KF@@#C@FK@@[*FK@[/KF@@#MS )@@G@@C@FK@@[GFK@[/KF@@#/KF@@[/,0@F]@@@EJ&@[^EJ/[@@EKC/,0@F]@@@EJ*@[ EJ/[@@EKCMT )@@G@@N@0[M;/K@[N8@[AEJ//,0[O6@@@EKD@@@EKE@@@EKF@@@EKG@[EEJ//,0@F"@:[EKM@@@EJ%MU )@@G@@@[FEJ/@@KEKD@@KEKE@@KEKF'^@[L#C@@EKMR@KEK#[@[@@@C@)EKN[@-@@[N@0[NL/K@[N8MV )@@G@@@[NEJ//,0[O6@@@EKH@@@EKI@@@EKJ@@@EKK@[REJ//,0@F"@:[EKM@@@EJ,@[SEJ/@@KEKHMW )@@G@@@@KEKI@@KEKJ@@KEKK'^@[L#C@@EKMR@KEK^[@[@@@C@)EKN[@-@@[N@0[N*/K@[N8@[-EJ/MX )@@G@@/,0@F]@@@EJ4@[=EJ/[@@EKC"C@EJ8"@@EJ9"K@@@GH/@@]<#^@[N3;)K@@C;KK@@@[@K@@@MY )@@G@@N@0[N7/K@[N8@[&EJ/R]0EJ.R@KEK /K@UJ'AA0EJ.[^@EJ'A@KEK /KH@@@C8@@@[/\K[N;MZ )@@G@@/K@[P[C8@@@]/\K[N;/K@[P]C8@@@]/\K[N;/K@[P C8@@@]/\K[N;/K@[PC/,0@F]@@@EJ6NA )@@G@@@[%EK[[@@EKC"@@EJ9"K@@@GH/@@]<#^@[OO;)K@@C;KK@@@[@KEKLC@@@@H;O@@@=W@@EJ"NB )@@G@@[@@@@@T@@EJ"H@@EKL;O@@@=W/@@@/]@@@@@T/@@@/C@)@@@T@)EJ"H@)EKLH@@@@I[@@@@@NC )@@G@@C/)@]V"O)EKL;^)@@="^)EKC"C)EJ8"@)EJ9"K)@@IH/)@]<#^)[O\;)0@@C;K0@@@]@0@@@ND )@@G@@N@0[O3/K@[O4@[0EK[R]0EK]/K@UJ_AA0EK]C8FK@@[^@[O)[^@[OTC8FK@[[^@[OYC8FK@]NE )@@G@@[^@[O=C8FK@#[^@[O0/K@[OF/K@[M1C8FK@@[@@EK#/K@[M/C8FK@@[@@EK^/K@[NMC8FK@@NF )@@G@@[^@[N4/K@[N(C@@@@@/@@[P:/G@[P:R@K@@@A@KEK5C@@^J[@@EK'C@-^(;[@)EK;/,0@,G@@[EK!@@@EK*@[LEK2@@K@@@D@@EK'G@@EK;NH )@@G@@R@KEK,Q@KEK'[@@@[^C8[=0['^)[L@8L@[P='^@[L#N@0[P%/K@[P6@[TEK2D@@^,4[@@EK5NI )@@G@@/,0[+U@@@EK\@@@@@@@@@EK.@@@EK5@[UEK2N@0[P5/K@[P6@[VEK2RA0EK3R@KEK6N[@EK7NJ )@@G@@/K@UK0AA0EK3A@KEK6^[@EK7C8FK@@[^@[P\[^@[PY[^@[PL[^@[PI[^@[PF/K@[PFC@@^\.NK )@@G@@/^@[QDN@0[QC/K@[ZS@[XEMP/,0].Y@[YEMPC@@EMS/@@[QI/G@[XMC@)^,(/@)[Q3/,0#D7NL )@@G@@@[>EMP/,0@,G@@[^,\@@@EK"@[$EMP@@)^=-@@K^=+@@)^=W@@K^=V@@K^>C'^@[L#/,0@,GNM )@@G@@@@[^,\@@@^'^@[L#NN )@@G@@C@@^,:/@@[Q?/C@[R^/,0].Y@[9EMP/,0#D:@['EMPN@0[Q2/K@[ZS@[;EMPC@@^,:/^@[Q8NO )@@G@@N@0[Q7/K@[ZS@[_EMP/,0#D7@]@EMP/,0@,G@@[^,\@@@EK"@]]EMP@@)^=-@@K^=+@@)^=WNP )@@G@@@@K^=V@@K^>C'^@[L#C@@^,%[@@^=$R@K^=$C@[^0[/@@[Q?/G@[R*/K@[TBC@@^=$H@@^,:NQ )@@G@@/C@[RK*@@@@G/K@[RAC@@^,4H@@^=(*@@@@G1@@@@G/K@[R@@@A')H)@@8KK@JHOA )@@G@@/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@JR[-W)@@Q;K@JL/KJ@@@PROCESSOR CAOB )@@G@@LL ERROR @[^@JUABNORMAL RETURN FROM READ$ @[ @JZTOO MANY SPECIFICAOC )@@G@@TIONS @[^@J>]@@@@@[@@@@@ @@[^@ @@[@JLTPF$ @@G^@[R#FK@[P;@@@[S@@@KYOD )@@G@@O#F@@@;CK@@-!8K@@^P;K@@[R#:K@#P;)@@[S@)@KYO#:@@];C0@@-!80@@^P;0@@[&;@@@[OE )@@G@@&;K@@[&;)@@[&;0@@[C[FK@^H9@@@[N@K@@K')H)KE')J)KO8KK@KA/KF@@AC5G@@@C1G@@@OF )@@G@@C!G@@@C(G@@@C>G@@@'^@@KK/S@@@@C-G)@@R#K^@V/K@KKK[5I@@@[1I@@@[!I@@@[(I@@@OG )@@G@@[>I@@@'^@@KU/S@@@@[-I)@@R#0^@V/K@KKUE%%%%:A])^[D/,)@K-/,)@PKO'0@@^AA0@PJOH )@@G@@A@K^[[A@)^[]A@0^[#A[@^[^A[K^[ A[)^[AA[0^[BA]K^[CC@@@KZ[@@^@4/@@@K5/C@@K5OI )@@G@@C8@@@][@@^@!D@@^@4[@@^@4/,)@L@D8@SU)G@@^@4/@@@K_/G@@K_C8@@@[[@@^@!D8@SU)OJ )@@G@@G@@^@4[@@^@4/,)@L@ @@^@!/,0@C@@@@@KZ@[&@K-H8@@@[[@@^@6/,0@C@@@@@KZ@[&@K-OK )@@G@@H8@@@[[@@^@5C8@@@[G@@^@5[@@@@[ @@^@7D8@@@[G@@^@4G@@@@[[@@^@8C@@^@8G8@@@[OL )@@G@@[^@@LUC8@@@[G@@^@7[@@^@7[@[@@@O8K@@[$8K@@@/,)@LPP8K@@[D8@@@[G^@@PJ[@@@@[OM )@@G@@R^)@PRC@[@@@[@@^@7CC@^@7/^@@L!D8@@@[G@@^@7[@]^@XO8K@@[O8)@@[$8)@@J/,)@L-ON )@@G@@P8)@@[D8@@@[G@@@@][@@^@WC8@@@[G@@@@[[^@@PJR8K@@[R 0@PRA@R^@9R@)^@4A@)^@;OO )@@G@@C@@^@6[@@^@"C@@^@5[@@^@.C8@@@[[@@^@//,)@NDC@@^@.G@@@@[[@@@@#C@@^@"G@@@@AOP )@@G@@[@@@@^/,0@O^C@@^@?H8@@@[/^@@M9R 0^[@/,$^[E/,)@M9C@@^@.G@@@@][@@@@#C@@^@"OQ )@@G@@G@@@@A[@@@@^/,0@O^C@@^@?H8@@@[/^@@M5C@@^@.G@@@@[[@@@@#C@@^@.G@@@@][@@@@^OR )@@G@@/,0@O^C@@^@?H8@@@[/^@@M%C@@@@ G@@^@"[@@@@#C@@@@]G@@^@.[@@@@^C@^@@@[@#@@@OS )@@G@@P8)@@[/,)@NLC@@@@ G@@^@"[@@@@#C@@@@[G@@^@.[@@@@^C@^@@@[@#@@@O8K@@[/,)@NLOT )@@G@@/,)@M8C8@@@[[@@^[@/,)@M%/,)@NLC8@@@[[@@^@_C@@^@.G@@@@][@@@@#C@@^@"G@@@@AOU )@@G@@[@@@@^/,0@O^C@@^@?H8@@@[/@@@M)D@@^@/[@@^@/R 0^@/A[R^@'D@@^@/G8@@@[[@@^@7OV )@@G@@R 0^@7R[R^@9 @@^@_ @@^[@/,)@MQA[K@@AO[K^@/C@@@@]H@@@@[/@@@NR/G@@NTR 0^@_OW )@@G@@/,$^[GC@@^@6H@@^@"/^@@L3C@@@@ H@@^@4/@@@N)/C@@P@C@@^@5[@@^@"C@@^@6[@@^@.OX )@@G@@R8K@@[R 0@PRA@R^@9R@)^@4A@)^@;/,)@L//,)@L3/,)@N"O'0@@]AA0@N.C8@@@[[^@@[[OY )@@G@@D/@@@@[@@@[]C@K@KZC@@@KZ9S@@@H/,)@N'%@@@@H/,)@N/C/@@@@/,)@N.C/@@@[/,)@N.OZ )@@G@@D/@@@[/,K@@@C@F@@@[^@@N2C@F@@[[^@@N3/,)@N?R'0@P@AA0@O_A@K^@1A@)^@2A[K^@3PA )@@G@@ @@^@?R K@PRC@@^@WG8@@@[[^@@OWR@>^@XC@#@@@G@@@@][@@@@[C@^@@@G@@@@][@@@@]PB )@@G@@C@[@@@[@@^@\C@]@@@[@@^@0C@@^@\H@@^@0/^@@O+O9K@@[$9K@@@/,)@OHP9K@@[C8@@@[PC )@@G@@[@@^@?/,)@O/R 0^@!/,$^[IC@@^@\H@@^@0/@@@O*/G@@O%C8@@@[[@@^@?/,)@O/C@@^@0PD )@@G@@[@@^@,C@@^@\"^@^@,=@@@PS/G@@O3C8@@@[[@@^@?/,)@O//,0@N:@@@^@\@@@^@0[@@^@?PE )@@G@@/@@@O'/G@@O;/,)@O/ @@^@?R@K^@1R@)^@2R[K^@3/,K@@@C8@@@FC@K@PJ;@K@@Q;G@@@^PF )@@G@@;@K@@E[@K@PJR@K^[[R@)^[]R@0^[#R[@^[^R[K^[ R[)^[AR[0^[BR]K^[CR])^[D/,K@@@PG )@@G@@C@F@@@[^@@K?C@F@@[[^@@L[C@F@@][^@@LA/,)@K+@@@@@@)^@@@@C@VK@[H8K@@[S@K^[LPH )@@G@@G@V@@@;C)@@-')I@P)/KF@@#C4H@@@C0H@@@C?H@@@@@@@@@C*H@@@C=H@@@C)H@@@C@VK@[PI )@@G@@H8K@@[S@K^[LG@V@@@;C)@@-')I@P)[4@^[MC@@^[M/KF@@#C@VK@]H8K@@[S@K^[LG@V@@[PJ )@@G@@;C)@@-C)FK@@')I@P8/KF@@^[4H@@@[0H@@@[?H@@@@@@@@@[*H@@@[=H@@@[)H@@@C8@@@@PK )@@G@@C@VK@@H8K@@[W@FK@[G8@@@[[@FK@]G8K@@[[@VK@#/KF@@ C8@@@@C@VK@@H8K@@[W@FK@[PL )@@G@@G8@@@[[@FK@]S8K@@A[@:K@#/KF@@ R#FK@^/G@@QUR#F@@@&#FK@[R#V@@]&#VK@#N@VK@^PM )@@G@@M#W)@@/KF@@AR#@^[X'=@@@I'=@@@)9?FK@@9*@^[Y9*@^[( @@^[9C4FK@[?8@@@A/K@@Q3PN )@@G@@A]0^[99?FK@[9*@^[:9?FK@]9*@^[\C@@^[5[@@^[,C8@^[('=@@[ [@:K@A*@@@@I/KFK@BPO )@@G@@C@@^[3[@@^[PP )@@G@@T8@@@W[C@^[+A]0^[6C8@^[Y/,0@EK/K@@R^R]0^[6/KF@@DR]0^[6G9K@[@[[VK@A/KFK@BPQ )@@G@@C@F@@@[^@^[&C@VK@[[^K^[>/@K@RN/GK@RNH8K@@[&;@@@[C@0^[8[@/)@@8#K@RLA]0^[7PR )@@G@@C8@^[Y/,0@C]/K@@R^/K@@R-R]0^[70@@^[*/K@@RR]0^[7/KF@@[9?FK@@9*@^['9*@^] @@^]QC4FK@[?8@@@A/K@@S[[@K^]QPU )@@G@@9?FK@[9*@^]B9?FK@]9*@^]FC8@^] '=@@[C[@K^[_[@K^]J/K@@S] @@^[_C@F@@#[C@^]@PV )@@G@@C@F@@^[^@^]@C@FK@ ;G@@@=W8@@@W[C@^][T8@@@W[C@^["A]0^]LC8@^['/,0@FMC8@^]OPW )@@G@@[^@^]]C@@^]P[@@^]^C8@^['/,0@E:/K@@SSR]0^]L/KF@@DR]0^]LG9K@[@[[VK@A/KFK@BPX )@@G@@C@F@@@[^@^]]P;@@@[AB@@S-C@FK@[R#W@@@:@K^]S8#@@S-?8@@@[R;@@@[;*@@@S[@@^]^PY )@@G@@A]0^]MC8@^['/,0@E:/K@@SSR]0^]M/KF@@#A]0^]MC8@^['/,0@FV/K@@SSC@@^]Q/@@@S'PZ )@@G@@C@@^[_H@@^]J[^@^]IC@K^[_D8@^] '=@@[^R]0^]M/KF@@[C@FK@@[4@^]I/KF@@]A^W@@#QA )@@G@@A@?@@^A@/@@ Q8W@@@N?L@@@R@)@V,R^1@@@&80@@[C8@@V\M@/)@@Q^1@@@ ?[@@]/KF@@@QB )@@G@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@QC )@@G@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@T=QD )@@G@@[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])TY/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@QE )@@G@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@T:N?L@@@Q^1@@@C8@@V\M@/)@@Q8)@@@QF )@@G@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@UAC80@@F;^@@[]+8K@@_QG )@@G@@%8)@@ :8)@@@/K@@UG')])TY8#0@UA/KF@@@&"0__"/K@@UL&'0@@@C8.@@@;G@@@M;CK@@MQH )@@G@@&;@@@[&;K@@[8#0@US/KF@@@')G)U?0@@@@F%8)@@@')])TY/K@@UQC?[@@[C^L@@[/K@@U+QI )@@G@@;G@@@M;CK@@M&;@@@[&;K@@[')G)U?:0-@@@/K@@U(')])TY/K@@U=[?[@@[[^L@@[/KF@@@QJ )@@G@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@U2C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#QK )@@G@@/@@@U"G80@@[;G@@@#/^@@U9C8)@@0')])TYC8)@@@;=K@@#G8)@@0')])TY8#0@U"/KF@@@QL )@@G@@C8.@@@T8K@@#;GH@@@H80@@[/K@@U"&"0__"/K@@VHC8K@@@&'0@@@N8X@@@C80@@@;O@@@=QM )@@G@@W8@@@EE/X@@@;?)@@AG8.@@08KK@VP/^@@VJ/C@@VW0@@@@F/K@@VW;?)@@AG80@@-8KK@VWQN )@@G@@C@K@@I0@@@@F1@@@@G/K@@V/K@KZ,/S@@@@'^@@)YRB@^B;(CG@@@P;@@@[OF@^B;R#K^B7RL )@@G@@N@/@@@/\0@)K/K@@Z+/K@@)[N@0KZ_'^@@)YR#K^B8/K@@Z.R]0^AI @@^AC*CF@@@*4F@@@RM )@@G@@/K@@)HR;V@@@RFF@@@A#K^AD/K@@Y]O'0@@[/K@@)AR#K^B9A#K^A-R#@^B'(^@@Z5'=@@@IRN )@@G@@^@0^ADRF@^AD'^@@)?A#@^A$R#@^B1RBK^AD*@@@@HR#H@@@A#@^A(/KJ@@@/K@@@@A]0^AIRO )@@G@@9*@^AJ9*)^AL9(@^AN^@0^AP/K@@)Y/K@@@@R]0^AI9?@^AJ9?)^AL9!@^ANN@0^AP/K@@)>RP )@@G@@/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@A8#)@)\/K@@)?/S@@@@/S@@@@/S@@@@(^@@WVRQ )@@G@@/K@@);*^@@)6/K@@-]/S@@@@(^@@)6'=@@@D'=@@@6)8@@K@R#@@@H'=@@@5R#@^B/C8K@@[RR )@@G@@[@K^B//^@@-E*^@@WE/K@@-G*^@@WV/K@@-G @@@@G'=@@[[(@@@)5'^@@)>*^@@WV/K@@-LRS )@@G@@'=@@@)R#@^B.A#@@)5/K@@@@/KF@@[0@@^EF'=@@@A9?FK@@9*@^ECC8@^EU&;@@#)[@@^EGRT )@@G@@&;@^H'[@@^EIC8@@@C[C@^EJC8@^ECCCW@@^[^W@@BC8K@@W[CW@@^C^W@@A[^W@@^[^W@@DRU )@@G@@C8K@@[[CW@@D[CW@@CC8K@@K[0W@@# @G@@ '=@@@#*4G@@#/K@@+TC@0^EU:@0^LU/K@@-7RV )@@G@@C@@^EN'=@@@I/K@@+TC8K@@ [@W@@ '=@@@#*4G@@#/K@@+TC^W@@AC^X@@V[^W@@EC^W@@BRW )@@G@@[CW@@^ ^G@@BC8K@@A[@W@@ '=@@@#C4W@@#(4G@@#/K@@+E%8K@@ /K@@+TC^W@@#[CW@@ERX )@@G@@(@@@@H/K@@+TC@W@@ GCW@@B[@W@@ C@W@@A;@K@@M[@W@@A[^W@@^'=@@@[;@K@@M[@W@@ARY )@@G@@/KF@@^C4@^EF[@FK@[/KFK@]C^F@@@[^@^EKC8@^ECC^W@@B:^W@@E/KFK@#C@W@@CC@?@@DRZ )@@G@@C^/@@AGC/@@EH80@@E?8"@@@/K@@+0N8K@@EM#Y)@@[@?@@DC^W@@BG8K@@[[^W@@B/KF@@ SA )@@G@@C^/@@AGC/@@EH8"@@@N8Z@@@C80@@EH@0@[[*@@@[[M#Y)@@0@G@@#'=@@@AC4?@@#(4G@@#SB )@@G@@/K@@+_%8)@@ /K@@@C9@@@./S )@@')I)>TR;@^N0/,0@>]A KON,/K@@&4R#@^N\SL )@@G@@%8@@@[/K@@=;R;@^N0R#0^N!/,0@>@A KON,/K@@&4R;@^@ R#0^N!/,0@>@A KON,/K@@&4SM )@@G@@R#)^N-R[K^N-;G@@@M;CK@@M&;@@@[&;K@@[&;0@@[')G)>I:9@@@ /K@@>H')I)>T/S )@@SN )@@G@@/K@@>B/KF@@@C5H@@@C1H@@@C!H@@@C(H@@@C>H@@@/\@@>OC-H)@@[^@@>SQ;@@@@/K@K>SSO )@@G@@@@@@@@[5J@@@[1J@@@[!J@@@[(J@@@[>J@@@/\)@>Z[-J)@@[^)@>SQ;)@@@/K@K>S9?@^N+SP )@@G@@9*@^N09*@^N29*@^N49*@^N69*@^N89*@^N'9*@^N/(4@^@I/KF@@@9?@^@Q9*@^N6(0@^@ISQ )@@G@@/K@@>5R#@^N=A#@^N89?@^@S9*@^N9(?@^@I/K@@>/R#@^N>R#K^@U9*@^N;R#@^N&A#@^N.SR )@@G@@R#@^N-R#K^N-R#)^N-N8K@@C8KK@&]/KF@@@C[G=N6N8)@@A8K)@&A/K@@&@ @@@@J;?0@@ASS )@@G@@%80@@ ')H)&J:@K^N$/SI)@@:@K^N$R#K^N-/K@@&^A7"^N0A3"^N0A\"^N0A:"^N0A$"^N0ST )@@G@@A<"^N0R]0^NS*@@^NY/K@@&(R;@@@[A#FK@#R@V@@[&8K@@[R8)^@J&8)@@[R80@@FR#])@@SU )@@G@@/^@@&+R#@^NOA#[)@@8@0@&ZQ@V@@]R8)@@B')]^MNA#[)@@8@)@&&R]0^NS*@@^N\ @FK@]SV )@@G@@(@@^NZ/K@@&4R#@^NY/^@@&29?FK@^/K@@&39?FK@[/,0@IRR[K^N*R@K^NPR@)^NQR@0^NRSW )@@G@@R]0^NS*@@^N\/KF@@^*@@^NY/KF@@#*@@^NZ/KF@@A/KF@@ '=@@@I[@@^NXC8@^NV'=@@[QSX )@@G@@'=@@@DC@FK@[C@V@@@;*K@@M;?@@@M'=@@@J[@FK@]/KF@@^C@VK@[[?K^VCC^:@@@[^)^VCSY )@@G@@A]0^VOC8@^VC/,0@S_/,0@TQR]0^VO/KF@@#C@FK@@[@@^VS'^@^VU/KF@@]R;@@@@A#@^VSSZ )@@G@@R#@^V8A#@^V)'^@^VUR#@^V9A#@^V)/KF@@[C4FK@@[0@^VC/KF@@]C0@^VDS8@@@AG4K^VDTA )@@G@@G8K@@[[@VK@@/KF@@]C[@^VT/K@@$\C[FK@@O'0@@[R;0@@#/K@@*]C[@^VT/K@@$5C[FK@@TB )@@G@@O'0@@[C80@@]/K@@*]C[@^VT/K@@$;C[FK@@O'0@@[C80@@[/K@@*]C[@^VT/K@@*[C[FK@@TC )@@G@@O'0@@[C80@@@[[@^VS[@0^VPC@VK@@/CK@*JC^)^VC[^)@*FC?0^VCH80@@[C@@^V+[@J@@@TD )@@G@@8#0@*F W@^VD/K@@*T/@K@*T%8K@@[/K@@*O W@^VD/K@@*TC8@@@@H8K@@[W8@@@A[0@^VDTE )@@G@@[4K^VDA]0^VOC8@^VC/,0@TGR]0^VOC@@^VP%8@@@]/K@@*&C^F@@[/,0@U)/,0@TQ'^@^VUTF )@@G@@R]0^VO/KF@@#A[@^VMA[K^VNR F@@[&9@@@[C@FK@][@@^VQ(CF@@#/K@@*1R9K@@@ @@^VRTG )@@G@@/K@@*7R[VK@#P9K@@[C@FK@^[@@^VRO'0@@]A]0^VO(@@^VR/K@@(@C@K^VR/GK@*"C8@^V+TH )@@G@@/,0@UK/K@@(@D@@^VR/,0@T1C@K^VQR#@^VP/@@@(C?8@@@]/K@@(FR;^)@@/,0@UK/K@@(MTI )@@G@@R#^)@@/,0@VG/K@@(M?8K@@H/K@@(KC8@@@ /,0@T*8#K@(FC@^)@@/,0@V^8[K@*7/,0@TQTJ )@@G@@R[@^VMR[K^VN'^@^VUR]0^VO/KF@@^C8FK@@G/@__"[@@ Y3C/@@@[H@@@@@]@@ Y7/,0@QCTK )@@G@@@@@@@@@@@ Y,@@@ Y8@@@ Y9@[C Y1C/@@@[G@@ Y7[@@ Y7R@K Y3O@K Y8H@@@@@/G@@(,TL )@@G@@*@@@@G/K@@% C@[@@@;)@PY9;C@@@YH@@ Y6*@@@@G/K@@%@C/@@@AG@@ Y9[@@ Y9G/@__)TM )@@G@@/C@@(;*@@@@G/K@@(> @@ Y9C/@@@[G@@ Y8[@@ Y8/K@@(>C@@ Y7[@@@@@N@0@%^/K@@%ITN )@@G@@@[P Y1 @@@@@C8)@@ N@0@%D/K@@%E@[R Y1!^) Y\/K@@ZQH8)@@[[^) Y\R]0 Y2R@K Y4TO )@@G@@/K@PY\C8@@@AAA0 Y2[^@ Y\A@K Y4C8FK@[[^@@()[^@@(XC8FK@][^@@(%C8FK@#[^@@%[TP )@@G@@[^@@% /K@@(T @@@@@ @@@@@ @@@@@ @@@@@C@@ Y'R@K Z @@@]BG[:F@C@ 3)^@@[:F 3)TQ )@@G@@@@@[(3@@@@@[@@@@@@@@@@^W@E/@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LMSC36@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@CZ@C@@@[@PR@^8@KZ@U8@PS@@ ^@@@@[^@V@@[^@,@^Z^[E@@U^ !@@^^ (@@B^AB@[*^AQTT )@@G@@@@C^D/@@B^EN@@[^LU@@M^M[@@ ^N*@@[^N\@@E^MN@@[^NO@@J^NT@@2^VC@@[ Y6@@^ Y\TU )@@G@@@@[ Y,@@[ ZH@@^ Y;@@^ Z@C@F@@@/KF@@]R#W@@DR#?@@CR#.)@@A#/@@EA#W@@D @@@[]TV )@@G@@ @@@[#;C0@@Y%80@@_/K@@CJP;K@@[A#W@@D/KF@@[R#/@@E;K0@@S/C0@CNR3/@@E!^/@@BTW )@@G@@RB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@D9N@K@@JM#!)@@A#W@@D*@@@[]/K@@D1TX )@@G@@R#/@@E;K0@@S/C0@C=R3/@@EPB/@@B/G0@D[C G@@DG[@@@J[ G@@DC W@@AGDW@@^H[@@@LTY )@@G@@/H@@D[P#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@C9%9K@@ /KF@@@(^G@@#TZ )@@G@@/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@C&R#W@@DC5X@@@%9K@@(UA )@@G@@/KF@@]0@G@@E/K@@DDR;0@Z_/K@@DER;0@@_C[W@@E;LK@@S/DK@DIC1W@@E![K@@J/K@@D6UB )@@G@@! W@@B/K@@D6C[@@@LG1H@@@?@0@@K/K@@D)? G@@B/K@@DYC[K@@KH W@@BH1X@@@D@0@@LUC )@@G@@C G@@B/K@@D$R3.@@@/K@@D$!^/@@B/K@@DSC[K@@KH[K@@JH1X@@@C[@@@JD@0@@L[1G@@EUD )@@G@@0@G@@E/K@@D?;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[A#W@@D/K@@CPR#0@[]P#0@[#/@0@D[UE )@@G@@/G0@D[/K@@C&R3.@@@O;0@@[/K@@C&P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ UF )@@G@@GDW@@B[[W@@ C5W@@#/[K@EC%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@AUG )@@G@@[ W@@D'=@@@[R#W@@D/K@@CP @@@@HOBW@@AABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ UH )@@G@@GDW@@B[[W@@ C5W@@#/[K@E)%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[UI )@@G@@/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@R#W@@DR#?@@EA#!)@@;K)@@S/C)@E1UJ )@@G@@R3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@AGDW@@^H[@@@L/D@@E"N^W@@BM#Y)@@UK )@@G@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ UL )@@G@@C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@E4RBW@@AABW@@DUM )@@G@@C[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ UN )@@G@@C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@F!UO )@@G@@O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ C5W@@#/ V@@@/KF@@[[@@^@@C8W@@@UP )@@G@@KCK^@@H8)@@[&;K@GGC@@@@H'=@@@HG8W@@@ @H@@@>@@@J%/K@@GD>@@@J:/KF@@[C8H@@@UQ )@@G@@?8I@@@/K@@F;C@@@J(C8K@@#/KF@@@C@@@JYC8K@@[/KF@@@C@@@J=C8K@@]/KF@@@L8@@@[UR )@@G@@C@)^@@/@K@G@@@A')H)@@8KK@JHVH )@@G@@/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@JR[-W)@@Q;K@JL/KJ@@@PROCESSOR CAVI )@@G@@LL ERROR @[^@JUABNORMAL RETURN FROM READ$ @[ @JZTOO MANY SPECIFICAVJ )@@G@@TIONS @[^@J>]@@@@@[@@@@@ @@[^@ @@[@JLTPF$ @@G^@[R#FK@[P;@@@[S@@@KYVK )@@G@@O#F@@@;CK@@-!8K@@^P;K@@[R#:K@#P;)@@[S@)@KYO#:@@];C0@@-!80@@^P;0@@[&;@@@[VL )@@G@@&;K@@[&;)@@[&;0@@[C[FK@^H9@@@[N@K@@K')H)KE')J)KO8KK@KA/KF@@AC5G@@@C1G@@@VM )@@G@@C!G@@@C(G@@@C>G@@@'^@@KK/S@@@@C-G)@@R#K^@V/K@KKK[5I@@@[1I@@@[!I@@@[(I@@@VN )@@G@@[>I@@@'^@@KU/S@@@@[-I)@@R#0^@V/K@KKUE%%%%:@@@@@@A])^[D/,)@K-/,)@PKO'0@@^VO )@@G@@AA0@PJA@K^[[A@)^[]A@0^[#A[@^[^A[K^[ A[)^[AA[0^[BA]K^[CC@@@KZ[@@^@4/@@@K5VP )@@G@@/C@@K5C8@@@][@@^@!D@@^@4[@@^@4/,)@L@D8@SU)G@@^@4/@@@K_/G@@K_C8@@@[[@@^@!VQ )@@G@@D8@SU)G@@^@4[@@^@4/,)@L@ @@^@!/,0@C@@@@@KZ@[&@K-H8@@@[[@@^@6/,0@C@@@@@KZVR )@@G@@@[&@K-H8@@@[[@@^@5C8@@@[G@@^@5[@@@@[ @@^@7D8@@@[G@@^@4G@@@@[[@@^@8C@@^@8VS )@@G@@G8@@@[[^@@LUC8@@@[G@@^@7[@@^@7[@[@@@O8K@@[$8K@@@/,)@LPP8K@@[D8@@@[G^@@PJVT )@@G@@[@@@@[R^)@PRC@[@@@[@@^@7CC@^@7/^@@L!D8@@@[G@@^@7[@]^@XO8K@@[O8)@@[$8)@@JVU )@@G@@/,)@L-P8)@@[D8@@@[G@@@@][@@^@WC8@@@[G@@@@[[^@@PJR8K@@[R 0@PRA@R^@9R@)^@4VV )@@G@@A@)^@;C@@^@6[@@^@"C@@^@5[@@^@.C8@@@[[@@^@//,)@NDC@@^@.G@@@@[[@@@@#C@@^@"VW )@@G@@G@@@@A[@@@@^/,0@O^C@@^@?H8@@@[/^@@M9R 0^[@/,$^[E/,)@M9C@@^@.G@@@@][@@@@#VX )@@G@@C@@^@"G@@@@A[@@@@^/,0@O^C@@^@?H8@@@[/^@@M5C@@^@.G@@@@[[@@@@#C@@^@.G@@@@]VY )@@G@@[@@@@^/,0@O^C@@^@?H8@@@[/^@@M%C@@@@ G@@^@"[@@@@#C@@@@]G@@^@.[@@@@^C@^@@@VZ )@@G@@[@#@@@P8)@@[/,)@NLC@@@@ G@@^@"[@@@@#C@@@@[G@@^@.[@@@@^C@^@@@[@#@@@O8K@@[WA )@@G@@/,)@NL/,)@M8C8@@@[[@@^[@/,)@M%/,)@NLC8@@@[[@@^@_C@@^@.G@@@@][@@@@#C@@^@"WB )@@G@@G@@@@A[@@@@^/,0@O^C@@^@?H8@@@[/@@@M)D@@^@/[@@^@/R 0^@/A[R^@'D@@^@/G8@@@[WC )@@G@@[@@^@7R 0^@7R[R^@9 @@^@_ @@^[@/,)@MQA[K@@AO[K^@/C@@@@]H@@@@[/@@@NR/G@@NTWD )@@G@@R 0^@_/,$^[GC@@^@6H@@^@"/^@@L3C@@@@ H@@^@4/@@@N)/C@@P@C@@^@5[@@^@"C@@^@6WE )@@G@@[@@^@.R8K@@[R 0@PRA@R^@9R@)^@4A@)^@;/,)@L//,)@L3/,)@N"O'0@@]AA0@N.C8@@@[WF )@@G@@[^@@[[D/@@@@[@@@[]C@K@KZC@@@KZ9S@@@H/,)@N'%@@@@H/,)@N/C/@@@@/,)@N.C/@@@[WG )@@G@@/,)@N.D/@@@[/,K@@@C@F@@@[^@@N2C@F@@[[^@@N3/,)@N?R'0@P@AA0@O_A@K^@1A@)^@2WH )@@G@@A[K^@3 @@^@?R K@PRC@@^@WG8@@@[[^@@OWR@>^@XC@#@@@G@@@@][@@@@[C@^@@@G@@@@]WI )@@G@@[@@@@]C@[@@@[@@^@\C@]@@@[@@^@0C@@^@\H@@^@0/^@@O+O9K@@[$9K@@@/,)@OHP9K@@[WJ )@@G@@C8@@@[[@@^@?/,)@O/R 0^@!/,$^[IC@@^@\H@@^@0/@@@O*/G@@O%C8@@@[[@@^@?/,)@O/WK )@@G@@C@@^@0[@@^@,C@@^@\"^@^@,=@@@PS/G@@O3C8@@@[[@@^@?/,)@O//,0@N:@@@^@\@@@^@0WL )@@G@@[@@^@?/@@@O'/G@@O;/,)@O/ @@^@?R@K^@1R@)^@2R[K^@3/,K@@@C8@@@FC@K@PJ;@K@@QWM )@@G@@;G@@@^;@K@@E[@K@PJR@K^[[R@)^[]R@0^[#R[@^[^R[K^[ R[)^[AR[0^[BR]K^[CR])^[DWN )@@G@@/,K@@@C@F@@@[^@@K?C@F@@[[^@@L[C@F@@][^@@LA/,)@K+)^@@@@C@VK@[H8K@@[S@K^[LWO )@@G@@G@V@@@;C)@@-')I@P)/KF@@#C4H@@@C0H@@@C?H@@@@@@@@@C*H@@@C=H@@@C)H@@@C@VK@[WP )@@G@@H8K@@[S@K^[LG@V@@@;C)@@-')I@P)[4@^[MC@@^[M/KF@@#C@VK@]H8K@@[S@K^[LG@V@@[WQ )@@G@@;C)@@-C)FK@@')I@P8/KF@@^[4H@@@[0H@@@[?H@@@@@@@@@[*H@@@[=H@@@[)H@@@C8@@@@WR )@@G@@C@VK@@H8K@@[W@FK@[G8@@@[[@FK@]G8K@@[[@VK@#/KF@@ C8@@@@C@VK@@H8K@@[W@FK@[WS )@@G@@G8@@@[[@FK@]S8K@@A[@:K@#/KF@@ R#FK@^/G@@QUR#F@@@&#FK@[R#V@@]&#VK@#N@VK@^WT )@@G@@M#W)@@/KF@@AR#@^[X'=@@@I'=@@@)9?FK@@9*@^[Y9*@^[( @@^[9C4FK@[?8@@@A/K@@Q3WU )@@G@@A]0^[99?FK@[9*@^[:9?FK@]9*@^[\C@@^[5[@@^[,C8@^[('=@@[ [@:K@A*@@@@I/KFK@BWV )@@G@@C@@^[3[@@^[WW )@@G@@T8@@@W[C@^[+A]0^[6C8@^[Y/,0@EK/K@@R^R]0^[6/KF@@DR]0^[6G9K@[@[[VK@A/KFK@BWX )@@G@@C@F@@@[^@^[&C@VK@[[^K^[>/@K@RN/GK@RNH8K@@[&;@@@[C@0^[8[@/)@@8#K@RLA]0^[7WY )@@G@@C8@^[Y/,0@C]/K@@R^/K@@R-R]0^[70@@^[*/K@@RR]0^[7/KF@@[9?FK@@9*@^['9*@^] @@^]QC4FK@[?8@@@A/K@@S[[@K^]QXB )@@G@@9?FK@[9*@^]B9?FK@]9*@^]FC8@^] '=@@[C[@K^[_[@K^]J/K@@S] @@^[_C@F@@#[C@^]@XC )@@G@@C@F@@^[^@^]@C@FK@ ;G@@@=W8@@@W[C@^][T8@@@W[C@^["A]0^]LC8@^['/,0@FMC8@^]OXD )@@G@@[^@^]]C@@^]P[@@^]^C8@^['/,0@E:/K@@SSR]0^]L/KF@@DR]0^]LG9K@[@[[VK@A/KFK@BXE )@@G@@C@F@@@[^@^]]P;@@@[AB@@S-C@FK@[R#W@@@:@K^]S8#@@S-?8@@@[R;@@@[;*@@@S[@@^]^XF )@@G@@A]0^]MC8@^['/,0@E:/K@@SSR]0^]M/KF@@#A]0^]MC8@^['/,0@FV/K@@SSC@@^]Q/@@@S'XG )@@G@@C@@^[_H@@^]J[^@^]IC@K^[_D8@^] '=@@[^R]0^]M/KF@@[C@FK@@[4@^]I/KF@@]A^W@@#XH )@@G@@A@?@@^A@/@@ Q8W@@@N?L@@@R@)@V,R^1@@@&80@@[C8@@V\M@/)@@Q^1@@@ ?[@@]/KF@@@XI )@@G@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@XJ )@@G@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@T=XK )@@G@@[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])TY/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@XL )@@G@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@T:N?L@@@Q^1@@@C8@@V\M@/)@@Q8)@@@XM )@@G@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@UAC80@@F;^@@[]+8K@@_XN )@@G@@%8)@@ :8)@@@/K@@UG')])TY8#0@UA/KF@@@&"0__"/K@@UL&'0@@@C8.@@@;G@@@M;CK@@MXO )@@G@@&;@@@[&;K@@[8#0@US/KF@@@')G)U?0@@@@F%8)@@@')])TY/K@@UQC?[@@[C^L@@[/K@@U+XP )@@G@@;G@@@M;CK@@M&;@@@[&;K@@[')G)U?:0-@@@/K@@U(')])TY/K@@U=[?[@@[[^L@@[/KF@@@XQ )@@G@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@U2C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#XR )@@G@@/@@@U"G80@@[;G@@@#/^@@U9C8)@@0')])TYC8)@@@;=K@@#G8)@@0')])TY8#0@U"/KF@@@XS )@@G@@C8.@@@T8K@@#;GH@@@H80@@[/K@@U"&"0__"/K@@VHC8K@@@&'0@@@N8X@@@C80@@@;O@@@=XT )@@G@@W8@@@EE/X@@@;?)@@AG8.@@08KK@VP/^@@VJ/C@@VW0@@@@F/K@@VW;?)@@AG80@@-8KK@VWXU )@@G@@C@K@@I0@@@@F1@@@@G/K@@V/K@KZ,/S@@@@'^@@)YRB@^B;(CG@@@P;@@@[OF@^B;R#K^B7YS )@@G@@N@/@@@/\0@)K/K@@Z+/K@@)[N@0KZ_'^@@)YR#K^B8/K@@Z.R]0^AI @@^AC*CF@@@*4F@@@YT )@@G@@/K@@)HR;V@@@RFF@@@A#K^AD/K@@Y]O'0@@[/K@@)AR#K^B9A#K^A-R#@^B'(^@@Z5'=@@@IYU )@@G@@^@0^ADRF@^AD'^@@)?A#@^A$R#@^B1RBK^AD*@@@@HR#H@@@A#@^A(/KJ@@@/K@@@@A]0^AIYV )@@G@@9*@^AJ9*)^AL9(@^AN^@0^AP/K@@)Y/K@@@@R]0^AI9?@^AJ9?)^AL9!@^ANN@0^AP/K@@)>YW )@@G@@/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@A8#)@)\/K@@)?/S@@@@/S@@@@/S@@@@(^@@WVYX )@@G@@/K@@);*^@@)6/K@@-]/S@@@@(^@@)6'=@@@D'=@@@6)8@@K@R#@@@H'=@@@5R#@^B/C8K@@[YY )@@G@@[@K^B//^@@-E*^@@WE/K@@-G*^@@WV/K@@-G @@@@G'=@@[[(@@@)5'^@@)>*^@@WV/K@@-LYZ )@@G@@'=@@@)R#@^B.A#@@)5/K@@@@/KF@@[0@@^EF'=@@@A9?FK@@9*@^ECC8@^EU&;@@#)[@@^EGZA )@@G@@&;@^H'[@@^EIC8@@@C[C@^EJC8@^ECCCW@@^[^W@@BC8K@@W[CW@@^C^W@@A[^W@@^[^W@@DZB )@@G@@C8K@@[[CW@@D[CW@@CC8K@@K[0W@@# @G@@ '=@@@#*4G@@#/K@@+TC@0^EU:@0^LU/K@@-7ZC )@@G@@C@@^EN'=@@@I/K@@+TC8K@@ [@W@@ '=@@@#*4G@@#/K@@+TC^W@@AC^X@@V[^W@@EC^W@@BZD )@@G@@[CW@@^ ^G@@BC8K@@A[@W@@ '=@@@#C4W@@#(4G@@#/K@@+E%8K@@ /K@@+TC^W@@#[CW@@EZE )@@G@@(@@@@H/K@@+TC@W@@ GCW@@B[@W@@ C@W@@A;@K@@M[@W@@A[^W@@^'=@@@[;@K@@M[@W@@AZF )@@G@@/KF@@^C4@^EF[@FK@[/KFK@]C^F@@@[^@^EKC8@^ECC^W@@B:^W@@E/KFK@#C@W@@CC@?@@DZG )@@G@@C^/@@AGC/@@EH80@@E?8"@@@/K@@+0N8K@@EM#Y)@@[@?@@DC^W@@BG8K@@[[^W@@B/KF@@ ZH )@@G@@C^/@@AGC/@@EH8"@@@N8Z@@@C80@@EH@0@[[*@@@[[M#Y)@@0@G@@#'=@@@AC4?@@#(4G@@#ZI )@@G@@/K@@+_%8)@@ /K@@@C9@@@./S )@@')I)>TR;@^N0/,0@>]A KON,/K@@&4R#@^N\ZS )@@G@@%8@@@[/K@@=;R;@^N0R#0^N!/,0@>@A KON,/K@@&4R;@^@ R#0^N!/,0@>@A KON,/K@@&4ZT )@@G@@R#)^N-R[K^N-;G@@@M;CK@@M&;@@@[&;K@@[&;0@@[')G)>I:9@@@ /K@@>H')I)>T/S )@@ZU )@@G@@/K@@>B/KF@@@C5H@@@C1H@@@C!H@@@C(H@@@C>H@@@/\@@>OC-H)@@[^@@>SQ;@@@@/K@K>SZV )@@G@@@@@@@@[5J@@@[1J@@@[!J@@@[(J@@@[>J@@@/\)@>Z[-J)@@[^)@>SQ;)@@@/K@K>S9?@^N+ZW )@@G@@9*@^N09*@^N29*@^N49*@^N69*@^N89*@^N'9*@^N/(4@^@I/KF@@@9?@^@Q9*@^N6(0@^@IZX )@@G@@/K@@>5R#@^N=A#@^N89?@^@S9*@^N9(?@^@I/K@@>/R#@^N>R#K^@U9*@^N;R#@^N&A#@^N.ZY )@@G@@R#@^N-R#K^N-R#)^N-N8K@@C8KK@&]/KF@@@C[G=N6N8)@@A8K)@&A/K@@&@ @@@@J;?0@@AZZ )@@G@@%80@@ ')H)&J:@K^N$/SI)@@:@K^N$R#K^N-/K@@&^A7"^N0A3"^N0A\"^N0A:"^N0A$"^N0AA )@@G@@A<"^N0R]0^NS*@@^NY/K@@&(R;@@@[A#FK@#R@V@@[&8K@@[R8)^@J&8)@@[R80@@FR#])@@AB )@@G@@/^@@&+R#@^NOA#[)@@8@0@&ZQ@V@@]R8)@@B')]^MNA#[)@@8@)@&&R]0^NS*@@^N\ @FK@]AC )@@G@@(@@^NZ/K@@&4R#@^NY/^@@&29?FK@^/K@@&39?FK@[/,0@IRR[K^N*R@K^NPR@)^NQR@0^NRAD )@@G@@R]0^NS*@@^N\/KF@@^*@@^NY/KF@@#*@@^NZ/KF@@A/KF@@ '=@@@I[@@^NXC8@^NV'=@@[QAE )@@G@@'=@@@DC@FK@[C@V@@@;*K@@M;?@@@M'=@@@J[@FK@]/KF@@^C@VK@[[?K^VCC^:@@@[^)^VCAF )@@G@@A]0^VOC8@^VC/,0@S_/,0@TQR]0^VO/KF@@#C@FK@@[@@^VS'^@^VU/KF@@]R;@@@@A#@^VSAG )@@G@@R#@^V8A#@^V)'^@^VUR#@^V9A#@^V)/KF@@[C4FK@@[0@^VC/KF@@]C0@^VDS8@@@AG4K^VDAH )@@G@@G8K@@[[@VK@@/KF@@]C[@^VT/K@@$\C[FK@@O'0@@[R;0@@#/K@@*]C[@^VT/K@@$5C[FK@@AI )@@G@@O'0@@[C80@@]/K@@*]C[@^VT/K@@$;C[FK@@O'0@@[C80@@[/K@@*]C[@^VT/K@@*[C[FK@@AJ )@@G@@O'0@@[C80@@@[[@^VS[@0^VPC@VK@@/CK@*JC^)^VC[^)@*FC?0^VCH80@@[C@@^V+[@J@@@AK )@@G@@8#0@*F W@^VD/K@@*T/@K@*T%8K@@[/K@@*O W@^VD/K@@*TC8@@@@H8K@@[W8@@@A[0@^VDAL )@@G@@[4K^VDA]0^VOC8@^VC/,0@TGR]0^VOC@@^VP%8@@@]/K@@*&C^F@@[/,0@U)/,0@TQ'^@^VUAM )@@G@@R]0^VO/KF@@#A[@^VMA[K^VNR F@@[&9@@@[C@FK@][@@^VQ(CF@@#/K@@*1R9K@@@ @@^VRAN )@@G@@/K@@*7R[VK@#P9K@@[C@FK@^[@@^VRO'0@@]A]0^VO(@@^VR/K@@(@C@K^VR/GK@*"C8@^V+AO )@@G@@/,0@UK/K@@(@D@@^VR/,0@T1C@K^VQR#@^VP/@@@(C?8@@@]/K@@(FR;^)@@/,0@UK/K@@(MAP )@@G@@R#^)@@/,0@VG/K@@(M?8K@@H/K@@(KC8@@@ /,0@T*8#K@(FC@^)@@/,0@V^8[K@*7/,0@TQAQ )@@G@@R[@^VMR[K^VN'^@^VUR]0^VO/KF@@^C8FK@@G/@__"[@@ Y3C/@@@[H@@@@@]@@ Y7/,0@QCAR )@@G@@@@@@@@@@@ Y,@@@ Y8@@@ Y9@[C Y1C/@@@[G@@ Y7[@@ Y7R@K Y3O@K Y8H@@@@@/G@@(,AS )@@G@@*@@@@G/K@@% C@[@@@;)@PY9;C@@@YH@@ Y6*@@@@G/K@@%@C/@@@AG@@ Y9[@@ Y9G/@__)AT )@@G@@/C@@(;*@@@@G/K@@(> @@ Y9C/@@@[G@@ Y8[@@ Y8/K@@(>C@@ Y7[@@@@@N@0@%^/K@@%IAU )@@G@@@[P Y1 @@@@@C8)@@ N@0@%D/K@@%E@[R Y1!^) Y\/K@@ZQH8)@@[[^) Y\R]0 Y2R@K Y4AV )@@G@@/K@PY\C8@@@AAA0 Y2[^@ Y\A@K Y4C8FK@[[^@@()[^@@(XC8FK@][^@@(%C8FK@#[^@@%[AW )@@G@@[^@@% /K@@(T @@@@@ @@@@@ @@@@@ @@@@@C@@ Y'R@K Z [@[@@@C@)@@@G/)__"[@) ZIAX )@@G@@C@@ ZIG/@@@[[@@ ZIH@@@@@/G@@%\*@@@@G/K@@:$/,0@PT@@@@@@@@@ ZI@[K Y.[@@ ZJAY )@@G@@H@@ ZH(@@@@G/K@@%*/,0@?P@[O Y.*@@@@@/K@@:$C@@@@@G/@@@[[@@@@@*@@@@@/K@@:]AZ )@@G@@C@@ ZI[@@@@@/,0@P0@@@ ZJ@@@@@@@@@@@@@[U Y.C@@ ZIG/@@@[[@@ ZIH@@@@@/G@@:IBA )@@G@@*@@@@G/K@@:$/,0@PT@@@@@@@@@ ZI@[Y Y.[@@ ZJH@@ ZH*@@@@G/K@@%7C@@ ZIG/@@@[BB )@@G@@[@@ ZIH@@@@@/G@@:X*@@@@G/K@@:$/,0@PT@@@@@@@@@ ZI@[= Y.[@@ ZJH@@ ZH(@@@@GBC )@@G@@/K@@:Q/,0@?P@[$ Y.N@0@:(/K@@:!@[( Y.N@0@:?/K@@:!@[? Y.RA0 Y"R@K ZA/K@PY;BD )@@G@@AA0 Y"[^@ Y;A@K ZA/KH@@@C8@@@D/\K@:0/K@@?UC8@@@#/\K@:0/K@@?8(@@@@@/K@@?HBE )@@G@@C@@@@@G/@__"C_)@@[R@K ZC[@@@[^[#) ZKC@@ ZJ%)[@@@/K@@?EC@@ ZK[@@@@@C@) ZIBF )@@G@@[@)@@@/K@@?HO/K@@[G_)@@[8L@@?[N@0@?J/K@@?K@[. Z]RA0 Z#C#) ZDR@K ZEN[@ ZFBG )@@G@@/K@PZ@AA0 Z#[#) ZDA@K ZE^[@ ZF/K@@:'C8FK@@[^@@%0[^@@:J[^@@:YC8FK@[[^@@%>BH )@@G@@C8FK@][^@@:E[^@@:T[^@@%:C8FK@#[@@ Z [^@@:^C8FK@^[^@@:[[^@@%Y[^@@%"C8FK@ BI )@@G@@[^@@%.[^@@%-[^@@: [^@@%;C8FK@A[^@@?A[^@@%9[^@@%)C8FK@B[^@@?C[^@@%Z/K@@%YBJ )@@G@@C8FK@@[@@ ZCC8FK@[[^@@:'[^@@://K@@:%C8FK@@G/@__"[@@ ZSR@K ZRC4[@@@[@@ ZYBK )@@G@@C/@@@[H@@@@@]@@ ZZ/,0@QC@@@@@@@@@ ZL@@@ Z)@@@ Z-@[B ZOC/@@@[G@@ ZZ[@@ ZZBL )@@G@@H@@@@@/G@@!O*@@@@G/K@@,DR@K ZSO@K Z)C@[@@@;)@PZ-;C@@@YH@@ ZY(@@@@G/K@@!*BM )@@G@@C/@@@AG@@ Z-[@@ Z-G/@__)/C@@!<*@@@@G/K@@!H @@ Z-C/@@@[G@@ Z)[@@ Z)/K@@!HBN )@@G@@C/@@@[:@@@@@/K@@,IC@@ ZZ[@@ Z+C/)__.G@)@@@C_)@@][@)@[^[#) Z ZO!^) ZM/K@@ZQH8)@@[[^) ZMRA0 ZPBR )@@G@@C#) ZUR@K ZVN[@ ZW/K@PZMC8@@@CAA0 ZP[^@ ZM[#) ZUA@K ZV^[@ ZWC8FK@@[^@@!_BS )@@G@@C8FK@[[^@@!C[^@@! C8FK@][^@@!K[^@@!5C8FK@#[@@ ZR[^@@!'C8FK@^[^@@!,[^@@!(BT )@@G@@C8FK@ [^@@,J[^@@,D/K@@?"C@FK@[G/@__"[@@ Z9C/)@@ [@) Z'C@@ Z9G/@@@[[@@ Z9BU )@@G@@C@@ Z?H@@ Z9/C@@\[*@@@@G/K@@0DC@@ Z'[@@ Z;/,0@PT@@@@@@@@@ Z9@[G Z$[@@ Z'BV )@@G@@R@K Z'D@[ )^/=@@,9CC- -^[@) Z/;@)@@@@[ Z=@@M +S@@[ +Q@@# +^@@^ +J@@C +B@@# >[@@[ <[DZ )@@G@@@@D +%@@^ +'@@B +3@@A >^@@^ >H@@# >E@@[ >%@@^ >-@@ >W@@^ >"@@A >8@@] &5EA )@@G@@@@I &P@@^ &%@@B &<@@[ $P @#;@@@@#;@@@SCAN @[>@@@@@@@@A@#;@@@@#;@@@EB )@@G@@SCAN2 @][@@@@@[@@[BRK FILE, FILE NAME IS ELT NAMEC )@@G@@E IS VERS NAME IS M$A$R$ ED )@@G@@______@#;@@[@#;@@[BREAK @[$@@@@@@@[]@@@@@A @@@@@[@@@@@]@@@@@@@@@@@8EE )@@G@@@@@@@IMARVELCARDS FILE M$A$R$ ______SPEC3 ______MARVELEF )@@G@@CARDS ______@#;@@[@#;@@[SAVE @[S@@@@@@@[]@@@@@#@@@@@]@@@@@[@@@@@@@@@@@8EG )@@G@@@@@@@I S______ R______ A______@#;@@[@#;@@[PSRABS@]\@@@@@@@@[EH )@@G@@@@@@@I@@@@@ @XREF @#;@@[@#;@@[XXRF @[V@@@@@[@@]@@@@@[@@@@@N@@@@@ @@@@@IEI )@@G@@@#;@@[@#;@@[PRTT @[U@@@@PRT,T@@[@@[@@@@@[@@@@@E@@@@@ @@@@@I@@@@@[@@@@@^EJ )@@G@@@HDG,N______@DCTNRY ______@HDG,N______@DCTNRY ______*END ______EK )@@G@@*END ______@#;@@[@#;@@[MERGE @['@@@@@@@@[@@@@@]@@@@@#@@@@@A@@@@@@@@@@@IEL )@@G@@@@@@@G@@@@@8004 .014 .682 -44 4861 0@G@@@@ 1228 4.92 212.9540 -80EM )@@G@@@@] (X@@ ((@@M %M@@^ %?@@^ (T@@E (Z@@= (,@@C %=@@^ $F@@I &.@@[ YP@@] %0EN )@@G@@@@^ %7@@ %2@@^ :F@@D :]@@L :0@@^ ?F@@D ?[@@] ?\@@^ ?S@@^ ?+@@A ?W@@^ ?;EO )@@G@@@@B ?4@@P^RE@@[^P_@@K !J@@@@@A@@@@@A@@@@@^@@@@@^@@@@@^@@@@@^@@@@@#@@@@@ EP )@@G@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@A@@@@@F@@@@@A@@@@@C@@@@@C@@@@@B@@@@@B@@@@@DEQ )@@G@@@@@@@^@@@@@^@@@@@A@@@@@E@@@@@ @@@@@G@@@@@E@@@@@F@@@@@G PROC PROC.ER )@@G@@ $(0) $(1) AXR$ A0, ER BLOCK ES )@@G@@ COMMON COMPLEX CONTINUE DIMENSION DOUBLE EQUIVAET )@@G@@LENCE FORMAT FUNCTION IMPLICIT INTEGER LOGICAL PARAMEEU )@@G@@TER READ REAL RETURN SUBROUTINE WRITE IDENTIEV )@@G@@CATIONPROGRAM-ID ENVIRONMENT CONFIGURATIO@#;@@[@#;@@[UN @]E@@@@@@@@IEW )@@G@@@@@@C @@@@. @@@@@@CONTRO@@@@@]@@@@[K@@@@@ @@@@@[@@@@@2@@@@@M@@@@@B@@@@@^EX )@@G@@@@@@@C@ @@@@@,______@#;@@[@#;@@[ELT @[8@@@@@@@@[@@@@@] @@@@@AEY )@@G@@@@@@@ @#;@@[@#;@@[PP @[*@@@@@@@@@@@@@@[@@@@@I@HDG,N@PACK @PREP @@[@@]EZ )@@G@@@@@@@E@@@@@ @@@@@,______@SEQ ______@SEG ______STOP ______STOP ______FA )@@G@@ERR ON SEQ CARD, TOO MANY CHARS& ______@#;@@[@#;@@[FAACM @#@@@@@@@@@[FB )@@G@@@@@@@] @@@@@A@@@@@ @@@@@@@@@@@G@@@@@I_____"C F @@@@@,______FC )@@G@@@@@@@,______@#;@@]@#;@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@^@@CFO )@@G@@ACCEPT @[@@@@)@@Q46DISPLA @[@@@@)@@Q7%INIT$C @[@@@@)@@R@LFP )@@G@@ALTERN @[@@@@)@@R@_ASM$IN @[@@@@)@@R]YERPRIN @[@@@@)@@RANFQ )@@G@@REPEAT @[@@@@)@@RC6REPLAC @[@@@@)@@RDJC8FK@@[^@@\4[^@@\^C@VK@]FR )@@G@@[@K Z?C8FK@#[^@@0D[^@@0JC8FK@^[^@@0L/K@@,4C8@@@^/\K@1@C8FK@@[@@ Z%C8FK@[FS )@@G@@[@@ Z:C@VK@][@K Z,/K@@0PC@@^L8[@@ +WC@)^L9[@) +X/,0^M[@@@ +B@@@ +C@@@ +SFT )@@G@@@[M +LC@@^L':@@ +D/K@@2[C@@^L'[@@ ++C@)^L;[@) + +LN@0@2\/K@@20@[$ +LFZ )@@G@@RA0 +M/K@P+JAA0 +M/K@@1)/,0^M[@@@ +3@@@ +4@@@ >[@[H +//,0^M[@@@ +5@@@ +6GA )@@G@@@@@ <[@[I +//,0@QX@@@ +%@@@ +7@@@ +7@@@^N"@@@^O6@@@ +8@@@ <]/K@@3>@[J +/GB )@@G@@/,0@R0@@@ +!@@@ +0@@@ +7@@@ <#@@@ <;@@@ +8@@@ <]/K@@3>@[K +//,0@RC@@@ =3GC )@@G@@@@@ +9/K@@3-@[L +//,0@SW@@@ =3@@@ +9@[M +//,0^M[@@@ +6@@@ +9@@@ =3@[N +/GD )@@G@@/K@@3M/,0@R:@[P +//,0@S,@[Q +/N@0@3$/K@@3*@[S +/RA0 +./K@P+'AA0 +./K@@24GE )@@G@@(@@^RW/K@@4'C@@ YHG/@__"C_)@@[[@@@[^[#)^QA/,0[JK@@@^QA@@@^Q^@@@^Q @@@ >SGF )@@G@@@[M >JC/@@@^H@@ >S/C@@3"*@@@@G/K@@48R/K@@[N.K@@HA@K >TC@[^RF[@[^P0O/K@@[GG )@@G@@8LK@4@/,0@P0@@@ >^@@@^P1@@@^P\@[U >J/,0@J1@@@ YQ@@@ >E@@@^P1@@@^P,@@@ YIGH )@@G@@@[V >JC@@ YIG@@^P,[@@ >U/,0@J1@@@^Q6@@@ >E@@@^P1@@@ >U@@@^Q;@[X >J(@@^RVGI )@@G@@/K@@44C@@^Q;G@@ >U[@@ >V/,0@PT@@@ YN@@@ >E@[- >J[@@ >M/,0@P0@@@ >M@@@^P1GJ )@@G@@@@@ >V@[- >JC@@ >VG/@@@[[@@ >V/,0@J1@@@^RU@@@ >E@@@^P1@@@ >V@@@^P0@[< >JGK )@@G@@/,0@SW@@@^P1@@@ >F@[> >JG_)@@[8L@@32(@@^RX/K@@6NC@@ YHG/@__"C_)@@[[@@@[^GL )@@G@@[#)^QA/,0[JK@@@^QA@@@^Q^@@@^Q @@@ >S@[, >JC@@ >S%/@@@ /K@@6LR/K@@[N.K@@HGM )@@G@@A@K >TC@[^RF[@[^P0O/K@@[8LK@5G/,0@P0@@@ >A@@@^P1@@@^P\@[6 >J(@@ YJ/K@@5E@@@^P1@@@^P,@@@ YJ@[9 >JC@@ YJG@@^P,[@@ >U/K@@5!/,0@J1GO )@@G@@@@@ YY@@@ >E@@@^P1@@@^P,@@@ >G@[. >JC@@^P,G/@@@ [@@ >U/,0@J1@@@^Q6@@@ >EGP )@@G@@@@@^P1@@@ >U@@@^Q;@]@ >J(@@^RV/K@@6HC@@^Q;G@@ >U[@@ >V/,0@PT@@@ YN@@@ >EGQ )@@G@@@]^ >J[@@ >M/,0@P0@@@ >M@@@^P1@@@ >V@]^ >JC@@ >VG/@@@[[@@ >V/,0@J1@@@^RUGR )@@G@@@@@ >E@@@^P1@@@ >V@@@^P0@]A >J/,0@SW@@@^P1@@@ >F@]C >JG_)@@[8L@@5@(@@^RYGS )@@G@@/K@@7?C@@ YHG/@__"C_)@@[[@@@[^[#)^QA/,0[JK@@@^QA@@@^Q^@@@^Q @@@ >S@]L >JGT )@@G@@C@@ >S%/@@@A/K@@7%R/K@@[N.K@@HA@K >TC@[^RF[@[^P0O/K@@[8LK@6>/,0@P0@@@ >CGU )@@G@@@@@^P1@@@^P\@]T >J(@@ YJ/K@@6//,0@J1@@@ YY@@@ >E@@@^P1@@@^P,@@@ YJ@]W >JGV )@@G@@C@@ YJG@@^P,[@@ >U/K@@7A/,0@J1@@@ YY@@@ >E@@@^P1@@@^P,@@@ >G@]) >JC@@^P,GW )@@G@@G/@@@ [@@ >U/,0@J1@@@^Q6@@@ >E@@@^P1@@@ >U@@@^Q;@]< >J(@@^RV/K@@7&C@@^Q;GX )@@G@@G@@ >U[@@ >V/,0@PT@@@ YN@@@ >E@]$ >J[@@ >M/,0@P0@@@ >M@@@^P1@@@ >V@]$ >JGY )@@G@@C@@ >VG/@@@[[@@ >V/,0@J1@@@^RU@@@ >E@@@^P1@@@ >V@@@^P0@]( >J/,0@SW@@@^P1GZ )@@G@@@@@ >F@]: >JG_)@@[8L@@6TN@0@7,/K@@7\@]\ >JRA0 >KC#) >NR@K >ON[@ >PN[K >QHA )@@G@@/K@P>HAA0 >K[#) >NA@K >O^[@ >P^[K >Q/K@@3?R@K >WN.@@@GC@@ YL[@[>>(8L@@7.HB )@@G@@(@@ YJ/K@@8E/,0@J1@@@ YY@@@ >X@@@ >%@@@ >Y@@@ YJ@[M >X@@@ >%@@@ >Y@@@ >Z@[O >%@@@ >)@[Q ><(@@^UB/K@@8V/,0^D/HD )@@G@@@@@ >)@@@ >%@[T >=R@K >&N[@ >$/K@P>-AA0 >=A@K >&HE )@@G@@^[@ >$/K@@7;C@@ >8[@@ &BR@K >9N.@@@GC@@ YL[@[>&B8L@@8%(@@ YJ/K@@87/,0@J1HF )@@G@@@@@ YY@@@ >'@@@ &B@@@ >;@@@ YJ@[L &@/K@@8"/,0@J1@@@ YY@@@ >'@@@ &B@@@ >;HG )@@G@@@@@ >/@[O &@/,0@SW@@@ &B@@@ >.@[P &@(@@^UB/K@@9C/,0^D/@@@ >.@@@ &B@[S &@HH )@@G@@N@0@9E/K@@9F@[U &@RA0 &[R@K &#N[@ &^/K@P>"AA0 &[A@K &#^[@ &^/K@@8&/,0@SWHI )@@G@@@@@ &P@@@ &<@[K &?/,0@SW@@@ &R@@@ &=@[L &?(@@^UB/K@@9>/,0^D/@@@ &<@@@ &UHJ )@@G@@@[O &?/,0^D/@@@ &=@@@ &W@[P &?C@@ YHG/@__"R/K@@[[@@@[^A@K &7R@-^W#A@) &\HK )@@G@@R@) &\N8M ON^^K@90/,0@PT@@@@90@@@ &>@[T &?[@@ &8R@-^W#A@) &0C@@ &5H@@ &8HL )@@G@@*@@@@G/K@@;OR@) &0N8M ON^^K@9"/,0@PT@@@@9"@@@ &&@[W &?[@@ &9C@@ &6H@@ &9HM )@@G@@*@@@@G/K@@;O/,0[JK@@@ &7@@@ &'@@@ &;@@@ &8@[Z &?/,0@QL@@@ YL@@@ &$@@@^Q$HN )@@G@@@@@ &<@@@ &*@[) &?(@@ YK/K@@')/,0@J1@@@ Y&@@@ &<@@@^Q$@@@ &<@@@ YK@[< &?HO )@@G@@C@@ YKG/@@@[[@@ &//K@@'%/,0@J1@@@ YQ@@@ &<@@@^Q$@@@ &<@@@ YI@[$ &?C@@ YIHP )@@G@@G/@@@[[@@ &//,0@J1@@@^Q6@@@ &<@@@^Q$@@@ &/@@@^Q;@[( &?(@@^Q5/K@@;EC@@^Q;HQ )@@G@@G@@ &/[@@ &//,0@PT@@@ YN@@@ &<@[! &?[@@ &0/,0@P0@@@ &0@@@^Q$@@@ &/@[! &?HR )@@G@@C@@ &/G/@@@[[@@ &//,0@J1@@@^Q>@@@ &<@@@^Q$@@@ &/@@@ &(@[\ &?/,0@SW@@@^Q$HS )@@G@@@@@ &*@[0 &?(@@^UB/K@@;O/,0^D/@@@ &*@@@^Q$@[3 &?O/K@@[8L@@9(/,0@SW@@@ &ZHT )@@G@@@@@ &<@[6 &?(@@^UB/K@@;)/,0^D/@@@ &<@@@ &-@[9 &?N@0@;+/K@@;<@[' &?RA0 &!HU )@@G@@R@K &1R@) &2N[@ &3/K@P&%AA0 &!A@K &1A@) &2^[@ &3/K@@9N/,0@QX@@@^V"@@@^E^HV )@@G@@@@@^EA@@@ $V@@@ *N@@@ $P@@@ $R/K@@.R@[- $HC_)@@[N.@@#B[#) $S/,0@RC@@@ (FHW )@@G@@@@@ &./K@@.N@[> $HC@@ (F;C@@@S[@@ $TC@@ $T:@@ &"/K@@/"C@@ $T:@@ &_/K@@/,HX )@@G@@C4@ (F[@@ $TC@@ $T:@@ $@/K@@.NC@@ (F%@@ $[/K@@/NC/@@@B[@@^Q@/K@@.R/,0@1RHY )@@G@@@@@ (T@@@ (X@@@ $]@[2 $H/,0@1E@@@ (F@@@ $]@@@ $#@@@ $N@@@ $U/K@@/-@[3 $HHZ )@@G@@/K@@.N/,0@1R@@@ (Z@@@ ((@@@ $^@[6 $H/,0@1E@@@ (F@@@ $ @@@ $A@@@ $N@@@ $UIA )@@G@@/K@@/1@[7 $HC/@@@][@@^Q@/K@@.R/,0@1R@@@ (,@@@ %M@@@ $B@[; $H/,0@1E@@@ (FIB )@@G@@@@@ $C@@@ $A@@@ $N@@@ $U/K@@.[@[/ $HC/@@@^[@@^Q@/K@@.R/,0@1R@@@ %=@@@ %?IC )@@G@@@@@ $D@]@ $H/,0@1E@@@ (F@@@ $E@@@ $A@@@ $N@@@ $U/K@@.L@][ $HC/@@@#[@@^Q@ID )@@G@@/K@@.RG_)@@[8L@@;9C/@@@[[@@^Q@/,0@_8@]B $H/,0@R:@]D $HN@0@.V/K@@.W@]E $HIE )@@G@@RA0 $IC#) $KN[@ $L/K@P$FAA0 $I[#) $K^[@ $L/K@@;!C@@^Q@[@@ :[R@K :[(@[^T\IF )@@G@@/K@@"LC@@ YP[@@^UEN8L^RY^^K@.0N8L^TW^^K@.4/,0@J1@@@@.0@@@ %2@@@^UE@@@ %3IG )@@G@@@@@@.4@[R %9C@[^TWG/@@@#[@@^U&C@[^T8:@@ %4/K@@".C@@^U&G/@__"[@@ %//,0@P0IH )@@G@@@@@ %0@@@^UE@@@ %/@[V %9N8L^T8^^K@"B/,0@J1@@@@"B@@@ %2@@@^UE@@@^U&@@@ %5II )@@G@@@[W %9C@@^U&G/@@@B[@@^U&/K@@".R@K :[(@[^T>/K@@"5C@@ :[;@@@@<[@@ %/C@[^T8IJ )@@G@@%@@ %4/K@@"$R@) %/N8M^QJ^^K@"+N8L^T8^^K@")/,0@J1@@@@")@@@ %2@@@@"+@@@ %6IK )@@G@@@@@ %3@[= %9/K@@"5R@) :[C@@ :[;@@@@:-8L@[@P(@@ YJ/K@[@%/,0@J1IU )@@G@@@@@ YY@@@ :#@@@ :O@@@ :D@@@ YJ@[V :H/,0@J1@@@ YY@@@ :#@@@ :+@@@ :D@@@ YJIV )@@G@@@[W :H/K@[@8/,0@J1@@@ YY@@@ :#@@@ :O@@@ :D@@@ :E@[Z :H/,0@J1@@@ YY@@@ :#IW )@@G@@@@@ :+@@@ :D@@@ :E@[) :H/,0@SW@@@ :O@@@ :^@[- :H/,0@SW@@@ :+@@@ :^@[+ :HIX )@@G@@(@@^UB/K@[[E/,0^D/@@@ :^@@@ :O@[> :H/,0^D/@@@ :^@@@ :+@[& :HN@0[[G/K@[[HIY )@@G@@@[* :HRA0 :IR@K :KN[@ :L/K@P:FAA0 :IA@K :K^[@ :L/K@@_/C@@^Q@[@@ ?PR@K ?PIZ )@@G@@(@[^T\/K@[]]C@@ YP[@@^UEN8L^RY^^K[[-N8L^TW^^K[[>/,0@J1@@@[[-@@@ ?[@@@^UEJA )@@G@@@@@ ?]@@@[[>@[T ?HC@[^TWG/@@@#[@@^U&C@[^T8:@@ ?#/K@[],C@@^U&G/@__"[@@ ?KJB )@@G@@/,0@P0@@@ :0@@@^UE@@@ ?K@[X ?HN8L^T8^^K[[8/,0@J1@@@[[8@@@ ?[@@@^UE@@@^U&JC )@@G@@@@@ ?^@[Y ?HC@@^U&G/@@@B[@@^U&/K@[],R@K ?P(@[^T>/K@[]&C@@ ?P;@@@@<[@@ ?KJD )@@G@@C@[^T8%@@ ?#/K@[]SR@) ?KN8M^QJ^^K[]NN8L^T8^^K[]L/,0@J1@@@[]L@@@ ?[@@@[]NJE )@@G@@@@@ ? @@@ ?]@[& ?H/K@[]&R@) ?PC@@ ?P;@@@@@@@ ?[@@@^Q$@@@^U&@@@ ?B@]/ ?HN@0[BC/K@[BO@]" ?H/,0@$3@@@ ?[@@@ ?DKE )@@G@@@@@ :'@]_ ?H/,0@)4@@@ ?E@#@ ?HN@0[BN/K@[BO@#@ ?HRA0 ?IR@K ?LR@) ?M/K@P?FKF )@@G@@AA0 ?IA@K ?LA@) ?M/K@[[PC/@@@D[@@ ?1R@K ?1(@[^T\/K@[COC@@ YP[@@^UEN8L^RYKG )@@G@@^^K[B*N8L^TW^^K[B?/,0@J1@@@[B*@@@ ?W@@@^UE@@@ ?X@@@[B?@[U ?=C@[^TWG/@@@[KH )@@G@@[@@^U&C@[^T8:@@ ?Y/K@[C7C@@^U&G/@@@[[@@^U&/,0@P0@@@ ?S@@@^UE@@@^U&@[Z ?=KI )@@G@@C_)@@[N.@@@ [#) ?2N8L^T8^^K[C]/,0@PT@@@[C]@@@ ?2@[< ?=[@@ ?3C@@ ?3:@@ ?ZKJ )@@G@@/K@[CLC@@^U&G/@@@[[@@^U&/,0@P0@@@ ?3@@@^UE@@@^U&@[$ ?=G_)@@[8L@[B"/K@[C7KK )@@G@@R@K ?1C@@ ?1;@@@@<[@@ ?$(@[^T>/K@[C,R@) ?$N8M^QJ^^K[C+N8L^T8^^K[C)/,0@J1KL )@@G@@@@@[C)@@@ ?W@@@[C+@@@ ?)@@@ ?)@[, ?=C@]^QJ[@@^UEC@+^QK[@)^UFC[@^U$G.@@@ KM )@@G@@[[@^U&/K@[C7R@K ?1C@@ ?1;@@@@OD )@@G@@ ENTRY@E@@@@ J NR11 . $T WAS IT FOUND ? OE )@@G@@@E@@@@ J NR2 . $A YES,NR2 NO,NR11 @A@@@@OF )@@G@@NR10 L A0,(-1) . @G@@@@ S,H1 A0,3,X8 OG )@@G@@. $P SET BAD LN # FLAG IN LENGTH IN PARAM @E@@@@ JNB A4,NR12 OH )@@G@@ . $T IS THIS NEXT-LN FNC @C@@@@ OI )@@G@@. $A YES NO,NR12 @G@@@@NR11 SZ,H1 3,X8 . $P PUT ZERO IN LOJ )@@G@@ENGTH OF PARAM @E@@@@ L A0,LNNUM . $P GET LASOK )@@G@@T LINE IN PROC @E@@@@ A A0,LNINC . $P INC TO NEXT LOL )@@G@@INE @A@@@@ TG,U A0,2001 . @A@@@@ L,UOM )@@G@@ A0,2000 . @A@@@@ S,H2 A0,2,X8 . @C@@@@ON )@@G@@NR12 SZ,H1 2,X8 . $P ZERO LINE-# @C@@@@ J *REOO )@@G@@TURN . $E RETURN @]@@@@ . @A@@@@ . OP )@@G@@ ** PF$AMW ** @]@@@@ . @C@@@@ . ROUTINE TO WRITE A LOQ )@@G@@INE TO THE FILE @A@@@@ . FOR A PARTICULAR PROC@]@@@@ . OR )@@G@@ @^@@@@ . CALL IS @A@@@@ . LX,U X10,POS )@@G@@ARAM @A@@@@ . LMJ X11,PF$AMW @C@@@@ . WHEOT )@@G@@RE PARAM IS FOLLOWING @E@@@@ . PARAM + PROU )@@G@@OC-NAME (2 WORDS) @G@@@@ . + LINE-#,[OV )@@G@@NEXT-LINE-#] (N-L-# RETURNED)@E@@@@ . + LEOW )@@G@@NGTH,BUF-ADDR @]@@@@ . @G@@@@ . THE ROUTINE CHOX )@@G@@ECKS TO SEE IF LINE-# HAS BEEN PREVIOUSLY @G@@@@ . ENTOY )@@G@@ERED, AND IF SO REPLACES IT WITH THE NEW LINE @]@@@@ . OZ )@@G@@@C@@@@PF$AMW*. . $H PF$AMW @A@@@@ L PA )@@G@@ A4,(-1) . @C@@@@ J RNWS . $J RNWS PB )@@G@@ @]@@@@ . @E@@@@ . THIS PART OF LOGIC HANDLES STOREPC )@@G@@ OF LINE @C@@@@ . WHERE LINE # ALREADY EXISTS PD )@@G@@@]@@@@ . @E@@@@W1 L A2,LNCNT . $P DECREMENT LINPE )@@G@@E COUNT @A@@@@ AN,U A2,1 . @A@@@@ S PF )@@G@@ A2,LNCNT . @E@@@@ TG,U A1,1900 . $T IS LINEPG )@@G@@ # < 1900 ? @G@@@@ SLJ LNWARN . $W LNWARN - PRINPH )@@G@@T MAX LINE WARNING @A@@@@ AN,U A0,1 . @E@@@@PI )@@G@@ L R3,A0 . $P SAVE INDEX ADDR FOR LINE @E@@@@ PJ )@@G@@ L A0,0,A0 . $P GET ADDR OF OLD LINE @A@@@@ LSSPK )@@G@@L A0,12 . @A@@@@ SSL A0,12 . @A@@@@PL )@@G@@ L A5,A0 . @E@@@@ L,H1 A2,3,X8 PM )@@G@@. $P GET NEW LINE LENGTH @E@@@@ A,U A2,5 . $P APN )@@G@@DD WORD FOR HEADER @A@@@@ SZ A1 . @G@@@@PO )@@G@@ DI,U A1,6 . $P CONVERT LENGTH TO WORD LENGTH PP )@@G@@@A@@@@ A,U A1,1 . @E@@@@ L,H2 A3,0,A0 PQ )@@G@@ . $P GET OLD LINE LENGTH @E@@@@ A,U A3,5 PR )@@G@@. $P ADD WORD FOR HEADER @A@@@@ SZ A2 . PS )@@G@@@G@@@@ DI,U A2,6 . $P CONVERT LENGTH TO WORD LENGTH PT )@@G@@ @A@@@@ A,U A2,1 . @G@@@@ TNE A1,PU )@@G@@A2 . $T ARE OLD & NEW WORD LENGTHS EQUAL ? @C@@@@ J PV )@@G@@ W54 . $A NO YES,W54 @G@@@@ TG A1,A2 PW )@@G@@. $T WILL NEW LINE FIT IN OLD SPACE ? @C@@@@ J W3 PX )@@G@@ . $A YES NO,W3 @G@@@@ AN A2,A1 . $P CALCULAPY )@@G@@TE EXTRA SPACE SIZE AND LOC @A@@@@ AU A2,A5 . PZ )@@G@@@G@@@@ SLJ ADDSTK . $W ADDSTK - PUT EXTRA SPACE ON AVAQA )@@G@@IL STK@C@@@@ J W54 . $J W54 @G@@@@W3 QB )@@G@@ L A3,A5 . $P GET SIZE AND LOC OF OLD LINE @G@@@@QC )@@G@@ SLJ ADDSTK . $W ADDSTK - PUT SPACE ON AVAIL STACK QD )@@G@@@C@@@@ J W50 . $J W50 @]@@@@ . QE )@@G@@@C@@@@ADDSTK + 0 . $H ADDSTK @A@@@@ SZ QF )@@G@@ A4 . @A@@@@ L R1,AVCNT . @E@@@@QG )@@G@@ L X10,(1,AVSTK) . $P SET PTR TO AVAIL STACK @E@@@@ QH )@@G@@ SE,T1 A4,0,*X10 . $P FIND EMPTY SLOT ON STACK @A@@@@ J QI )@@G@@ ADD2 . @A@@@@ AN,U X10,1 . @A@@@@QJ )@@G@@ J ADD3 . @A@@@@ADD2 L A4,AVCNT QK )@@G@@. @A@@@@ TG,U A4,500 . @A@@@@ J *ADQL )@@G@@DSTK . @A@@@@ A,U A4,1 . @A@@@@ QM )@@G@@ S A4,AVCNT . @E@@@@ADD3 S A3,0,X10 . $P PQN )@@G@@UT ENTRY INTO STACK @A@@@@ S,T1 A2,0,X10 . @C@@@@QO )@@G@@ J *ADDSTK . $E RETURN @]@@@@ . @E@@@@QP )@@G@@@[K@@E@@@@@@@@@@@G@@R@@@@@@@@@@@J@@@@@@@[ @@@@@@@@@@@@@@C@@@@@@@@@@@W@@@QQ )@@G@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@6@@@@@@@@@@@3@@@@@@@@@@@@@@:@@@@@@@@@@[I@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@&@@@@@@@@@@@@@@@@@@@@.@@@@@@@@P@[^@@@@@@@[H@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@I@@@@@@@@@@@+@@@@@@@@>@@%@@@@@@@@@@@4@@@QT )@@G@@@@@@@@@@@@@@@@@@@^@@;@@@@@@@@@@@#@@@@@@@@Q@[B@@@@@@@@@@@@@@@@@@@@'@@8@@@QU )@@G@@@@@@[D@[]@@V@@@@@[@@@@@@@@@@@@@@@@@@@@@@@_@@)@@@@@@@@2@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@1@@@@@@@@@@@D@@@@@@@@ @[@@@@@@@@@@@@L@@@@@@@@@@[[@@@@@@@@@@@S@@@@@@QW )@@G@@@@@@@F@[G@@@@@@@@O@@,@@@@@@@@@@@A@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@[F@@@@@@@@@@@5@@Z@[A@@@@@@@@T@@@QY )@@G@@@@@@@@@@@@@@@@@@@$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/@@H@@@QZ )@@G@@@@@@@@@@Y@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@K@@]@@@@@@@@@@@@@@@@@@@@9@@7@@@RA )@@G@@@@0@@!@@(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@[LRDS1 @@+@@@@@@@@@RB )@@G@@RDS2 @@+@@@@@@@@@RDS3 @@+@@U@@@@@@SCAN2 @@<@@@@@@@@@RC )@@G@@PSCAN2 @@<@@@@@@@@@SCAN @@=@@@@@@@@@SCANBL @@>@@@@@@@@@RD )@@G@@WDS1 @@&@@@@@@@@@WDS2 @@&@[C@@@@@@WDS3 @@&@@@@@@@@@RE )@@G@@PTYP @@&@[J@@@@@@MOVER @@$@@@@@@@@@MVCHAR @@*@@@@@@@@@RF )@@G@@IGC @@(@@\@@@@@@GETC @@(@@@@@@@@@IGCL @@(@@@@@@@@@RG )@@G@@GETCL @@(@@@@@@@@@PUTC @@(@@=@@@@@@MODC @@(@@@@@@@@@RH )@@G@@MODB @@(@@@@@@@@@GETWD @@%@@@@@@@@@PGETWD @@%@@@@@@@@@RI )@@G@@SORTX @@:@@@@@@@@@BPC @@!@@@@@@@@@BREAK @@,@@@@@@@@@RJ )@@G@@BRK1 @@\@@@@@@@@@CHKASG @@0@@@@@@@@@CONT @@1@@<@@@@@@RK )@@G@@CSF @@2@@?@@@@@@DCT @@3@@@@@@@@@ELT @@4@@@@@@@@@RL )@@G@@FAACM @@5@@@@@@@@@FACIL @@6@@@@@@@@@FN @@7@@@@@@@@@RM )@@G@@GRAB @@8@@@@@@@@@IN @@9@@@@@@@@@NXELT @@'@@@@@@@@@RN )@@G@@NXFILE @@'@@@@@@@@@ELTFIL @@'@@@@@@@@@INBUF @@'@@@@@@@@@RO )@@G@@INUSE @@'@@@@@@@@@INFORX @@'@@@@@@@@@INFOR @@'@@@@@@@@@RP )@@G@@ELIST$ @@'@@@@@@@@@IQUAL @@;@@@@@@@@@LT @@/@@@@@@@@@RQ )@@G@@MERGE @@.@@@@@@@@@OPRIME @@"@@@@@@@@@OPRINT @@"@@@@@@@@@RR )@@G@@OPUNCH @@"@@@@@@@@@OPCHAR @@"@[E@@@@@@OPCOL @@"@[#@@@@@@RS )@@G@@OPAF @@"@@@@@@@@@OPAFP @@"@@@@@@@@@OPA @@"@@@@@@@@@RT )@@G@@OPAP @@"@@@@@@@@@OPO @@"@@@@@@@@@OPOP @@"@@"@@@@@@RU )@@G@@OPI @@"@@@@@@@@@OPIP @@"@@@@@@@@@OPK @@"@@@@@@@@@RV )@@G@@OPFLG @@"@@@@@@@@@OPRNT @@"@@@@@@@@@OPBLK @@"@[L@@@@@@RW )@@G@@OPT @@_@@@@@@@@@PDP @[@@@@@@@@@@PP @[[@@@@@@@@@RX )@@G@@PRINT @[]@@@@@@@@@PRTT @[#@@@@@@@@@PSRABS @[^@@@@@@@@@RY )@@G@@PUNCH @[ @@@@@@@@@PUNX @[A@@@@@@@@@READ @[B@@@@@@@@@RZ )@@G@@SAVE @[C@@@@@@@@@SEQ @[D@@@@@@@@@TOCXP @[E@@@@@@@@@SA )@@G@@TOCX @[E@@@@@@@@@UN @[F@@@@@@@@@XXRF @[G@@@@@@@@@SB )@@G@@FORMAIN$ @[J@@@@@@@@@NC @[Q@@@@@@@@@ 110000000014 74201300SC )@@G@@0003 270300060534 742013000003 @J@[@@000170 025753 741000004214SD )@@G@@ 050000000014 742013000003 270300060534 742013000003 @L@]@@ DUMPSE )@@G@@ OF ELEMENT NEXP6$ $( 02) AT MAP ADDRESS 060465 CREATED OSF )@@G@@N: 22 JAN 72 AT 11:45:34@Q@[@@000000 060465 111675601722 0004565757SG )@@G@@23 325112406551 601577434000 012172702437 200000000000 230157701214SH )@@G@@ 265011714640 @Q@[@@000010 060475 327211763127 677777777777 70SI )@@G@@5461766765 712700064347 717674055343 724464741135 731067352110 7353SJ )@@G@@16517401 @Q@[@@000020 060505 741404050014 745340032163 75115170SK )@@G@@2274 754650004343 760240116533 763527317724 766722244364 7720247733SL )@@G@@21 @Q@[@@000030 060515 775043065465 270524354513 075434223054 SM )@@G@@044715413311 033625545560 231235256647 044735542417 400400000000 SN )@@G@@@Q@[@@000040 060525 200760507534 201405075341 233000000000 234000SO )@@G@@000000 000017777777 075434116704 001000000000 201400000000 @C@[@@SP )@@G@@000050 060535 577000000000 201000000000 @L@]@@ DUMP OF ELEMENT SQ )@@G@@CPCONK $( 01) AT MAP ADDRESS 025760 CREATED ON: 08 AUG 74SR )@@G@@ AT 21:09:25@P@[@@000000 025760 270020060555 270040060554 10000000SS )@@G@@0000 761000060537 010000060557 745660003555 000000060557 0001060605ST )@@G@@([@@@@47 @Q@[@@000010 025770 010000060604 100040053016 76104006SU )@@G@@0540 010040060605 050000060606 050000060607 100000060560 5200000605SV )@@G@@41 @Q@[@@000020 026000 742000026011 050000060610 050000060611 SW )@@G@@050000060612 100000000000 010000060613 761000000000 010000060614 SX )@@G@@@Q@[@@000030 026010 742000026124 270060060542 260060060552 270100SY )@@G@@060542 260100060553 237500000005 100003000000 761003000000 @Q@[@@SZ )@@G@@000040 026020 760000060606 010000060606 100043400000 761044400000TA )@@G@@ 760040060607 010040060607 702100026016 760000000000 @Q@[@@000050TB )@@G@@ 026030 761040060540 760400000016 010000060613 761000060537 0100TC )@@G@@00060557 745660003555 000000060557 000132060547 @Q@[@@000060 0260TD )@@G@@40 010000060616 100040000000 760440060607 010040060557 7610400605TE )@@G@@57 010040060614 100100053006 761100060540 @Q@[@@000070 026050 TF )@@G@@760500060541 761100060560 760100060543 100140060560 760540060541 76TG )@@G@@1140060543 761540000020 020140060610 @Q@[@@000100 026060 761140TH )@@G@@053010 761540060605 020140060612 100100060561 761100060537 76110006TI )@@G@@0562 761500060616 010100060611 @Q@[@@000110 026070 100000052542TJ )@@G@@ 440000060544 742000026124 050000060617 100040060613 010040060620 TK )@@G@@050001000000 100100060610 @I@[@@000120 026100 761500060620 0101TL )@@G@@01000001 010101000002 100141000001 0101410000(C@@@@03 100000060563 TM )@@G@@537400000001 742000026261 @Q@[@@000130 026110 100000060612 7610TN )@@G@@00060557 761400060620 100040060610 760440060541 761040060611 760400TO )@@G@@000016 010002000000 @Q@[@@000140 026120 100041000001 0100420000TP )@@G@@01 010042000002 742000026261 100000053013 760400060541 010000060621TQ )@@G@@ 745660025564 @Q@[@@000150 026130 000000060604 000000060621 00TR )@@G@@0157060547 010000060622 100040060605 761040053011 761040060622 0100TS )@@G@@40060623 @Q@[@@000160 026140 761040060621 761440000000 01004006TT )@@G@@0624 761000053012 010000060617 100100060623 761100053013 7601000605TU )@@G@@41 @Q@[@@000170 026150 010100060625 100140060623 760140060541 TV )@@G@@100200060610 761600000022 010200060626 100240060610 760640060541 TW )@@G@@@Q@[@@000200 026160 761240060613 020240060627 761100060613 761040TX )@@G@@060614 760500000016 761100060610 761240060625 761240000022 @Q@[@@TY )@@G@@000210 026170 760640000020 020240060620 100040060623 761440000022TZ )@@G@@ 010041000000 761200060606 760200060627 761200060624 @Q@[@@000220UA )@@G@@ 026200 760200060610 761600060620 010201000001 100040060625 7610UB )@@G@@40060626 761440060620 010041000002 100100060607 @Q@[@@000230 0262UC )@@G@@10 761100060624 010100060557 761100060626 760100060610 7615000606UD )@@G@@20 010101000003 010140060564 100000060563 @B@[@@000240 026220 UE )@@G@@537400000001 7420000262(J@@@@61 100000000000 760400060607 0100000605UF )@@G@@65 761000060564 100040060611 760040060617 @Q@[@@000250 026230 UG )@@G@@761040060610 760440060612 761000000016 100040060565 761040060557 10UH )@@G@@0100060606 760500060607 761100060625 @Q@[@@000260 026240 760040UI )@@G@@000020 100100060610 761100060611 761040000020 760000000016 76140006UJ )@@G@@0620 760400060611 020002000000 @Q@[@@000270 026250 100040060557UK )@@G@@ 760040060564 761040060610 761440060620 010042000001 100000060610 UL )@@G@@761000060625 761400060620 @Q@[@@000300 026260 010002000002 1000UM )@@G@@00060607 761001000003 100040000000 761041000001 760041000000 760440UN )@@G@@000014 010040060630 @Q@[@@000310 026270 100100060611 7601000606UO )@@G@@17 760440060541 761040000020 020040060631 100140060607 761141000001UP )@@G@@ 100200060606 @Q@[@@000320 026300 761201000003 760540000024 76UQ )@@G@@1140060611 010140060632 100200060607 761201000002 100240000000 7612UR )@@G@@41000003 @Q@[@@000330 026310 760600000026 010200060633 76110006US )@@G@@0633 010100060634 100241000000 760640060541 100300060606 7613010000UT )@@G@@02 @Q@[@@000340 026320 760240000030 760400000026 761000060611 UU )@@G@@010000060635 270060060542 260060060555 237500000003 100000060605 UV )@@G@@@Q@[@@000350 026330 761003000000 010003400000 702100026327 100040UW )@@G@@060630 761040053010 100100060631 760100060632 761100060605 @@@[@@UX )@@G@@(Q@@@@000360 026340 760040000020 270100060556 010044000000 100100UY )@@G@@060633 761100053010 100140060634 760140060635 761140060605 @Q@[@@UZ )@@G@@000370 026350 760500000022 010104000001 100040060616 010040000000VA )@@G@@ 230060026356 742000026357 000217060547 270660060550 @Q@[@@000400VB )@@G@@ 026360 715540060566 715600060570 715640060572 715700060574 2700VC )@@G@@20060576 270040060577 270060060600 270100060601 @Q@[@@000410 0263VD )@@G@@70 230100060602 742000260545 060660060550 715140060566 7152000605VE )@@G@@70 715240060572 715300060574 060020060576 @Q@[@@000420 026400 VF )@@G@@060040060577 060060060600 060100060601 040100060602 100033200000 01VG )@@G@@0020060560 100033200001 010020060561 @Q@[@@000430 026410 107013VH )@@G@@200002 010400026306 010400026353 010400026141 010400026006 01040002VI )@@G@@6004 010400026263 010400026041 @Q@[@@000440 026420 010400026027VJ )@@G@@ 010400025762 010400026222 100033200003 010020060562 107013200004 VK )@@G@@010000060552 107013200005 @Q@[@@000450 026430 010000060553 1070VL )@@G@@13200006 010000060555 107013200007 010000060556 107013200010 010000VM )@@G@@060554 100033200011 @C@[@@000460 026440 010020060563 7420000257VN )@@G@@60 @L@]@@ DUMP OF ELEMENT CPCONK $( 00) AT MAP ADDRESS VO )@@G@@060537 CREATED ON: 08 AUG 74 AT 21:09:25@G@[@@000000 060537 201600VP )@@G@@000000 202400000000 201400000000 000001000000(E@@@@ 202600000000 40VQ )@@G@@0400000000 000373000013 000373000013 @Q@[@@000010 060547 102510VR )@@G@@242320 000217000000 000000000000 000000000000 000000000000 00000000VS )@@G@@0000 000000000000 000000000000 @H@[@@ LINES OF 000000000000 SKVT )@@G@@IPPED 000020 OCT WORDS 000016 DEC WORDS @J@[@@000040 060577 VU )@@G@@000000000000 000000000000 000000000000 000000000000 000000000000 VV )@@G@@@L@]@@ DUMP OF ELEMENT CPCONK $( 02) AT MAP ADDRESS 060604VW )@@G@@ CREATED ON: 08 AUG 74 AT 21:09:25@Q@[@@000000 060604 000000000000VX )@@G@@ 000000000000 000000000000 000000000000 000000000000 000000000000 VY )@@G@@000000000000 000000000000 @H@[@@ LINES OF 000000000000 SKIPPED VZ )@@G@@ 000020 OCT WORDS 000016 DEC WORDS @C@[@@000030 060634 000000WA )@@G@@000000 000000000000 @L@]@@ DUMP OF ELEMENT CPCONS $( 01) WB )@@G@@ AT MAP ADDRESS 026442 CREATED ON: 08 AUG 74 AT 21:09:27@Q@[@@000000WC )@@G@@ 026442 270020060650 100000000000 761000060636 010000060653 7456WD )@@G@@60003555 000000060653 000106060645 010000060667 @Q@[@@000010 0264WE )@@G@@52 100040053016 761040060637 010040060670 270040060651 0500020000WF )@@G@@01 050001000002 050001000003 100000060654 @Q@[@@000020 026462 WG )@@G@@520000060640 742000026470 050000060671 050000060672 050000060673 74WH )@@G@@2000026526 100000053006 761000060637 @C@[@@000030 026472 760400WI )@@G@@060640 761000060654 76(I@@@@0000060641 100040060654 760440060640 76WJ )@@G@@1040060641 761440000014 020040060671 @Q@[@@000040 026502 761040WK )@@G@@053010 761440060670 020040060673 100000060655 761000060636 76100006WL )@@G@@0656 761400060667 010000060672 @Q@[@@000050 026512 100000052542WM )@@G@@ 440000060642 742000026526 050000060674 100040060640 010040060675 WN )@@G@@050001000000 100100060670 @Q@[@@000060 026522 761100060671 7615WO )@@G@@00000000 010101000001 742000026571 100000053013 760400060640 010000WP )@@G@@060676 745660025564 @Q@[@@000070 026532 000000060667 0000000606WQ )@@G@@76 000135060645 010000060677 100040060670 761040053011 761040060677WR )@@G@@ 010040060700 @Q@[@@000100 026542 761000053012 010000060674 76WS )@@G@@0040060640 100100060670 761100060700 761500000016 010101000000 1001WT )@@G@@40060671 @Q@[@@000110 026552 760540060640 761140060700 02014006WU )@@G@@0701 761140053013 760540060640 020140060675 761140000000 1002000606WV )@@G@@76 @Q@[@@000120 026562 761200060701 760200060671 761600000022 WW )@@G@@020200060702 761200060670 761600000016 020201000001 100000060671 WX )@@G@@@Q@[@@000130 026572 760400060640 761400060675 020000060703 760000WY )@@G@@060640 761000053010 010000060704 100040060672 760040060674 @Q@[@@WZ )@@G@@000140 026602 010040060653 761040060670 761040060703 760040060704XA )@@G@@ 270040060651 010042000000 100000060657 537400000001 @[@[@@000150XB )@@G@@(P@@@@ 026612 742000026631 100000060671 761400060675 010000060703XC )@@G@@ 100040060673 761440060675 760040060672 761000060653 @Q@[@@000160XD )@@G@@ 026622 760440000014 270040060652 010042000000 100000060703 7614XE )@@G@@00000000 010002000001 050002000002 100000060667 @Q@[@@000170 0266XF )@@G@@32 010000000000 230060026635 742000026636 000157060645 2706600606XG )@@G@@46 715540060660 715600060662 270020060664 @Q@[@@000200 026642 XH )@@G@@270040060665 742000260643 060660060646 715140060660 715200060662 06XI )@@G@@0020060664 060040060665 100033200000 @Q@[@@000210 026652 010020XJ )@@G@@060654 100033200001 010020060655 107013200002 010400026626 01040002XK )@@G@@6443 010400026523 010400026560 @Q@[@@000220 026662 010400026632XL )@@G@@ 100033200003 010020060656 107013200004 010000060650 107013200005 XM )@@G@@010000060651 107013200006 @G@[@@000230 026672 010000060652 1000XN )@@G@@33200007 010020060657 742000026442@L@]@@ DUMP OF ELEMENT CPCONS XO )@@G@@ $( 00) AT MAP ADDRESS 060636 CREATED ON: 08 AUG 74 AT 21:09:27XP )@@G@@@Q@[@@000000 060636 201600000000 202400000000 201400000000 202600XQ )@@G@@000000 400400000000 000373000011 000373000011 102510242330 @Q@[@@XR )@@G@@000010 060646 000157000000 000000000000 000000000000 000000000000XS )@@G@@ 000000000000 000000000000 000000000000 000000000000 @D@[@@000020XT )@@G@@ 060656 000000000000 000000000000 00000000(H@@@@0000 000000000000XU )@@G@@ 000000000000 000000000000 000000000000 000000000000 @ @[@@000030XV )@@G@@ 060666 000000000000@L@]@@ DUMP OF ELEMENT CPCONS $( 02) XW )@@G@@ AT MAP ADDRESS 060667 CREATED ON: 08 AUG 74 AT 21:09:27@Q@[@@000000XX )@@G@@ 060667 000000000000 000000000000 000000000000 000000000000 0000XY )@@G@@00000000 000000000000 000000000000 000000000000 @L@[@@000010 0606XZ )@@G@@77 000000000000 000000000000 000000000000 000000000000 0000000000YA )@@G@@00 000000000000 @L@]@@ DUMP OF ELEMENT MODMTK $( 01) AT MYB )@@G@@AP ADDRESS 026676 CREATED ON: 08 AUG 74 AT 21:20:03@Q@[@@000000 0266YC )@@G@@76 100000060724 147400777776 100040060724 147440000003 1001000607YD )@@G@@26 147500000003 270020060723 100140060725 @Q@[@@000010 026706 YE )@@G@@147540777776 100200060726 147600777776 100240060727 147640777776 01YF )@@G@@0000060730 010040060731 010100060732 @Q@[@@000020 026716 010140YG )@@G@@060733 010200060734 010240060735 100013200007 761000053014 01000006YH )@@G@@0777 100053200007 761040053015 @Q@[@@000030 026726 010040061000YI )@@G@@ 100113200007 761100053016 010100061001 100140053016 761140060705 YJ )@@G@@010140061002 100213200007 @Q@[@@000040 026736 761213200010 7612YK )@@G@@13200006 010200061003 270040060726 100242000001 760242000000 760242YL )@@G@@000002 761640060706 @F@[@@000050 026746 010240061004 0500000610YM )@@G@@05 270040060707 260040(F@@@@060726 237500000002 100000061004 760402YN )@@G@@000000 020002000000 @Q@[@@000060 026756 761002400000 7604000610YO )@@G@@05 020000061005 702100026753 100000060736 547400000004 742000027000YP )@@G@@ 100000060736 @Q@[@@000070 026766 147400777773 270040060707 26YQ )@@G@@0040060732 010000000104 100002000000 761000060705 761002400000 7600YR )@@G@@00061005 @Q@[@@000100 026776 010000061005 702100026772 10000006YS )@@G@@1005 761000060710 010000060737 745660003555 000000060737 0001340607YT )@@G@@20 @Q@[@@000110 027006 010000061007 050000061010 050000061011 YU )@@G@@100000060740 520000060711 742000027026 100000061005 010000061012 YV )@@G@@@Q@[@@000120 027016 100040061007 010040000000 761000061005 010000YW )@@G@@061013 050000061014 050000061015 050000061016 742000027165 @Q@[@@YX )@@G@@000130 027026 270040060707 260040060724 270060060707 260060060726YY )@@G@@ 237500000002 100002000000 761002000000 760000061010 @Q@[@@000140YZ )@@G@@ 027036 010000061010 100043400000 761042400000 760040061011 0100ZA )@@G@@40061011 702100027033 100000060736 547400000004 @Q@[@@000150 0270ZB )@@G@@46 742000027067 100000060736 147400777773 270040060707 2600400607ZC )@@G@@31 270060060707 260060060732 010000000104 @Q@[@@000160 027056 ZD )@@G@@100002000000 761002000000 760000061010 010000061010 100043400000 76ZE )@@G@@1042400000 760040061011 010040061011 @^@[@@000170 027066 702100ZF )@@G@@(M@@@@027056 100000061011 761000060705 100040061005 760040061010 76ZG )@@G@@0400000016 020000061012 761000060710 @Q@[@@000200 027076 020000ZH )@@G@@060737 745660003555 000000060737 000170060720 010000000000 10004006ZI )@@G@@1005 760440061011 010040060737 @Q@[@@000210 027106 761040060737ZJ )@@G@@ 010040061013 100100053006 761100060705 760500060711 761100060740 ZK )@@G@@760100060706 100140060740 @Q@[@@000220 027116 760540060711 7611ZL )@@G@@40060706 761540000020 020140061014 761140053010 761540061002 020140ZM )@@G@@061016 100100060741 @Q@[@@000230 027126 761100060710 7611000607ZN )@@G@@42 761500000000 010100061015 100000052542 440000060712 742000027165ZO )@@G@@ 050000061017 @Q@[@@000240 027136 100040061012 010040061020 05ZP )@@G@@0000061021 100100061014 761500061020 010100061022 010100061023 0101ZQ )@@G@@00061024 @Q@[@@000250 027146 100000060743 537400000001 74200002ZR )@@G@@7322 100000061016 761000060737 761400061020 100040061014 7604400607ZS )@@G@@11 @Q@[@@000260 027156 761040061015 760400000016 010001000000 ZT )@@G@@100040061022 010041000001 010041000002 742000027322 100000053013 ZU )@@G@@@Q@[@@000270 027166 760400060711 010000061025 745660025564 000000ZV )@@G@@061007 000000061025 000215060720 010000061026 100040061002 @O@[@@ZW )@@G@@000300 027176 761040053011 761040061026 010040061027 761040061025ZX )@@G@@ 761440061005 010040061030 761000053012 0100(]@@@@00061017 @Q@[@@ZY )@@G@@000310 027206 100100061027 761100053013 760100060711 010100061031ZZ )@@G@@ 100140061027 760140060711 100200061014 761600000022 @Q@[@@000320AA )@@G@@ 027216 010200061032 100240061014 760640060711 761240061012 0202AB )@@G@@40061033 761040061013 761100061012 760440000020 @Q@[@@000330 0272AC )@@G@@26 761040061014 761240061031 761240000022 760240000016 0202400610AD )@@G@@20 100040061027 761440000022 010040061021 @Q@[@@000340 027236 AE )@@G@@761200061010 760200061033 761200061030 760200061014 761600061020 01AF )@@G@@0200061022 100100061031 761100061032 @Q@[@@000350 027246 761500AG )@@G@@061020 010100061023 100300061011 761300061030 010300060737 76130006AH )@@G@@1032 760300061014 761700061020 @Q@[@@000360 027256 010300061024AI )@@G@@ 010140060744 100000060743 537400000001 742000027322 100000061005 AJ )@@G@@760400061011 100040061010 @Q@[@@000370 027266 760440061011 7610AK )@@G@@40061031 010000060745 761000060737 760040000014 100000061014 761000AL )@@G@@061015 761000000016 @Q@[@@000400 027276 100040060744 7610400607AM )@@G@@45 100100061015 760100061017 761100061014 760500061016 761040000020AN )@@G@@ 760000000016 @Q@[@@000410 027306 761400061020 760400061015 02AO )@@G@@0001000000 100040060744 760040060737 761040061014 761440061020 0100AP )@@G@@41000001 @H@[@@000420 027316 100000061014 761000061031 76140006AQ )@@G@@1020 010001000002 1000(D@@@@00061011 761000061024 100040061005 7610AR )@@G@@40061022 @Q@[@@000430 027326 760040061021 760440000014 01004006AS )@@G@@1034 100100061015 760100061017 760440060711 010100060737 7611000000AT )@@G@@16 @Q@[@@000440 027336 020100061035 100040061010 761040061024 AU )@@G@@100140061011 761140061022 760440000022 761040061015 020040061036 AV )@@G@@@Q@[@@000450 027346 100140061005 761140061024 100200061011 761200AW )@@G@@061023 760540000024 020140061037 761140060737 020140061040 @Q@[@@AX )@@G@@000460 027356 100200061010 761200061023 100240061021 760640060711AY )@@G@@ 760200000026 760600000014 761200061015 020200061041 @Q@[@@000470AZ )@@G@@ 027366 100000060746 761000061002 010000061004 761000061021 0100BA )@@G@@00061021 100240061004 761240061022 010240061022 @Q@[@@000500 0273BB )@@G@@76 100300061004 761300061023 010300061023 100340061004 7613400610BC )@@G@@24 010340061024 760440061035 761040061002 @Q@[@@000510 027406 BD )@@G@@100100061034 761100053010 760440000020 761040060746 020040061042 76BE )@@G@@0600061040 761200061002 100100061037 @Q@[@@000520 027416 761100BF )@@G@@053010 760200000020 761200060746 010200061043 100100061003 01010006BG )@@G@@1044 100140060736 147540777776 @Q@[@@000530 027426 107740000001BH )@@G@@ 270040060707 260040060724 270060060707 260060060725 270100060707 BI )@@G@@260100060726 010140000104 @A@[@@000540 027436 010340061006 1100BJ )@@G@@(K@@@@00061006 140000060736 100040061006 140040060734 100100061006 BK )@@G@@140100060730 100140061006 @Q@[@@000550 027446 310140060736 1401BL )@@G@@40061006 150140060736 140140060735 010000060737 010040060744 010100BM )@@G@@060745 010140060747 @Q@[@@000560 027456 100000061022 7610040000BN )@@G@@00 100040061024 761042000000 760400000016 020000061004 100040061023BO )@@G@@ 761042000000 @Q@[@@000570 027466 100100061024 761104000000 76BP )@@G@@0440000020 020040061045 460120060736 260120060747 270140060707 2601BQ )@@G@@40060747 @Q@[@@000600 027476 270160060707 260160060745 27020006BR )@@G@@0707 260200060744 230120060737 100000061004 761010400000 1000400610BS )@@G@@45 @Q@[@@000610 027506 761047400000 760000000016 010005000000 BT )@@G@@100045400000 010046400000 702120027503 107400000003 550000061006 BU )@@G@@@Q@[@@000620 027516 742000027520 050000061044 100000061043 761002BV )@@G@@400000 100040061042 761044400000 760000000016 760000061044 @Q@[@@BW )@@G@@000630 027526 010003400000 147740000001 702100027436 100040061021BX )@@G@@ 761040060713 760440060777 020040060777 100100061021 @Q@[@@000640BY )@@G@@ 027536 761100060714 760100061000 010100061000 100140061021 7611BZ )@@G@@40060715 760540061001 020140061001 100200060736 @Q@[@@000650 0275CA )@@G@@46 147600000001 010200060737 150200060736 140200060735 1077600000CB )@@G@@01 270120000024 237500000002 010360061006 @Q@[@@000660 027556 CC )@@G@@110000061006 147400000003 100040061006 310040060736 140040061006 15CD )@@G@@0040060736 140040060735 010000060744 @Q@[@@000670 027566 010040CE )@@G@@060745 100000060777 760005000000 010005000000 100340061006 27014006CF )@@G@@0745 270160060745 230120060744 @Q@[@@000700 027576 010340061046CG )@@G@@ 100000061006 150000061046 510000000014 742000027607 100000061000 CH )@@G@@760007000000 010007000000 @Q@[@@000710 027606 010006000000 2475CI )@@G@@40000001 240160060736 147740000001 702120027576 240120060737 147760CJ )@@G@@000001 702100027555 @Q@[@@000720 027616 100000060736 5474000000CK )@@G@@04 742000027640 100000060736 147400777773 100040060736 147440000001CL )@@G@@ 010040060744 @Q@[@@000730 027626 730040000042 150040060736 14CM )@@G@@0040060735 460200060744 260200000016 010000000104 100000061001 7600CN )@@G@@10000000 @Q@[@@000740 027636 010010400000 702100027634 27066006CO )@@G@@0750 477260000004 742013027643 742000027647 742000027651 7420000277CP )@@G@@02 @Q@[@@000750 027646 742000027766 720400004361 000325060720 CQ )@@G@@100000060736 730000000043 140000060727 270040060727 240040060736 CR )@@G@@@Q@[@@000760 027656 100054000001 760042000001 100002000000 761400CS )@@G@@000016 010000061047 100042000000 761040060705 761040061047 @K@[@@CT )@@G@@000770 027666 270060060727 760443000000 020043000000 760000060711CU )@@G@@ 270100060725 76100400(A@@@@0000 100100061047 761100060706 @Q@[@@CV )@@G@@001000 027676 761100061003 760500000014 020104000000 742000027766CW )@@G@@ 100000060736 730000000043 140000060727 100054000002 @Q@[@@001010CX )@@G@@ 027706 010040061004 270140060725 100006000002 010000061044 2775CY )@@G@@60000001 237500000002 060160061006 110000061006 @Q@[@@001020 0277CZ )@@G@@16 147400000003 010000060744 100007061051 010000061050 1474007777DA )@@G@@76 310000060736 270120060733 240120061050 @Q@[@@001030 027726 DB )@@G@@270200060727 240200000014 100050000002 761440061004 010040061047 76DC )@@G@@1040061044 760445000000 020045000000 @Q@[@@001040 027736 270040DD )@@G@@060707 260040061006 230120060744 010000060745 100002461051 01000006DE )@@G@@1051 147400777776 310000060736 @Q@[@@001050 027746 270060060727DF )@@G@@ 240060000014 270100000014 240100061050 240100060735 100000061047 DG )@@G@@761003000002 760404000000 @Q@[@@001060 027756 020004000000 2701DH )@@G@@40060745 240140061051 240140060735 020006000000 702120027742 247560DI )@@G@@000001 702100027714 @Q@[@@001070 027766 230060027770 7420000277DJ )@@G@@71 000353060720 270660060721 715540060751 715600060753 715640060755DK )@@G@@ 715700060757 @Q@[@@001100 027776 715740060761 270020060763 27DL )@@G@@0040060764 270060060765 270100060766 270120060767 270140060770 2701DM )@@G@@60060771 @D@[@@001110 030006 270200060772 230100060773 23012006DN )@@G@@(H@@@@0774 742000260716 060660060721 715140060751 715200060753 7152DO )@@G@@40060755 @Q@[@@001120 030016 715300060757 715340060761 06002006DP )@@G@@0763 060040060764 060060060765 060100060766 060120060767 0601400607DQ )@@G@@70 @Q@[@@001130 030026 060160060771 060200060772 040100060773 DR )@@G@@040120060774 107013200000 010000060727 107013200001 010000060724 DS )@@G@@@Q@[@@001140 030036 107013200002 010000060726 107013200003 010000DT )@@G@@060725 100033200004 010020060740 100033200005 010020060741 @Q@[@@DU )@@G@@001150 030046 100033200006 010020060742 100033200007 010020060746DV )@@G@@ 107013200011 010400027130 010400027017 010400027102 @Q@[@@001160DW )@@G@@ 030056 107013200012 010000060723 100033200013 010020060736 1000DX )@@G@@33200014 010020060750 100033200015 010020060743 @ @[@@001170 0300DY )@@G@@66 742000026676@L@]@@ DUMP OF ELEMENT MODMTK $( 00) AT MDZ )@@G@@AP ADDRESS 060705 CREATED ON: 08 AUG 74 AT 21:20:03@Q@[@@000000 0607EA )@@G@@05 202400000000 202600000000 000001000000 201600000000 2014000000EB )@@G@@00 400400000000 200525253425 177525250727 @Q@[@@000010 060715 EC )@@G@@200400000000 000373000017 000373000017 222411223120 000353000000 00ED )@@G@@0000000000 000000000000 000000000000 @H@[@@ LINES OF 000000000000EE )@@G@@ SKIPPED 000050 OCT WORDS 000040 DEC WORDS @ @[@@000070 0607EF )@@G@@75 000000000000@^@]@@ DUMP OF ELEMENT MODMTK(H@@@@ $( 02) EG )@@G@@ AT MAP ADDRESS 060776 CREATED ON: 08 AUG 74 AT 21:20:03@Q@[@@000000EH )@@G@@ 060776 000000000000 000000000000 000000000000 000000000000 0000EI )@@G@@00000000 000000000000 000000000000 000000000000 @H@[@@ LINES OF EJ )@@G@@000000000000 SKIPPED 000040 OCT WORDS 000032 DEC WORDS @G@[@@EK )@@G@@000050 061046 000000000000 000000000000 000000000000 000000000000EL )@@G@@@L@]@@ DUMP OF ELEMENT MODMTK $( 04) AT MAP ADDRESS 061052EM )@@G@@ CREATED ON: 08 AUG 74 AT 21:20:03@E@[@@000000 061052 000000000001EN )@@G@@ 000000000002 000000000004 @L@]@@ DUMP OF ELEMENT MODMTS $(EO )@@G@@ 01) AT MAP ADDRESS 030067 CREATED ON: 08 AUG 74 AT 21:20:19@Q@[@@EP )@@G@@000000 030067 100000061074 147400777776 100040061073 147440000003EQ )@@G@@ 100100061073 147500777776 100140061075 147540777776 @Q@[@@000010ER )@@G@@ 030077 010000061077 010040061100 010100061101 010140061102 1000ES )@@G@@13200006 761000053014 010000061136 100053200006 @Q@[@@000020 0301ET )@@G@@07 761040053015 010040061137 100113200006 761100053016 0101000611EU )@@G@@40 100140053016 761140061055 010140061141 @Q@[@@000030 030117 EV )@@G@@100213200006 761213200007 761213200005 010200061142 270020061073 10EW )@@G@@0241000000 760241000001 760241000002 @O@[@@000040 030127 761640EX )@@G@@061056 010240061143 050000061144 270040061057 260040061073 23750000EY )@@G@@0002 100000061143 7604(]@@@@02000000 @Q@[@@000050 030137 020002EZ )@@G@@000000 761002400000 760400061144 020000061144 702100030135 10000006FA )@@G@@1103 547400000004 742000030162 @Q@[@@000060 030147 100000061103FB )@@G@@ 147400777773 270040061057 260040061100 010000000104 100002000000 FC )@@G@@761000061055 761002400000 @Q@[@@000070 030157 760000061144 0100FD )@@G@@00061144 702100030154 100000061144 761000061060 010000061104 745660FE )@@G@@003555 000000061104 @Q@[@@000100 030167 000134061070 0100000000FF )@@G@@00 100000061105 520000061061 742000030200 050000061146 050000061147FG )@@G@@ 050000061150 @Q@[@@000110 030177 742000030236 100000053006 76FH )@@G@@1000061055 760400061061 761000061105 760000061056 100040061105 7604FI )@@G@@40061061 @Q@[@@000120 030207 761040061056 761440000014 02004006FJ )@@G@@1146 761040053010 761440061141 020040061150 100000061106 7610000610FK )@@G@@60 @Q@[@@000130 030217 761000061107 761400000000 010000061147 FL )@@G@@100000052542 440000061062 742000030236 050000061151 100040061061 FM )@@G@@@Q@[@@000140 030227 010040061152 050000061153 100100061141 761100FN )@@G@@061146 761500061144 010100061154 742000030301 100000053013 @Q@[@@FO )@@G@@000150 030237 760400061061 010000061155 745660025564 000000000000FP )@@G@@ 000000061155 000157061070 010000061156 100040061141 @H@[@@000160FQ )@@G@@ 030247 761040053011 761040061156 010040061157 761000053012 0100FR )@@G@@(D@@@@00061151 760040061061 100100061141 761100061157 @Q@[@@000170FS )@@G@@ 030257 761500000016 010100061153 100140061146 760540061061 7611FT )@@G@@40061157 020140061143 761140053013 760540061061 @Q@[@@000200 0302FU )@@G@@67 020140061152 761140061144 100200061143 761200061155 7602000611FV )@@G@@46 761600000022 020200061160 761200061141 @Q@[@@000210 030277 FW )@@G@@761600000016 020200061154 100000061146 760400061061 761400061152 02FX )@@G@@0000061161 760000061061 761000053010 @Q@[@@000220 030307 010000FY )@@G@@061162 100040061147 760040061151 761040061141 761040061161 76004006FZ )@@G@@1162 010040061163 100000061110 @Q@[@@000230 030317 530000061061GA )@@G@@ 742000030332 100000061110 761000061153 010000061153 100040061110 GB )@@G@@761040061154 010040061154 @Q@[@@000240 030327 100100061110 7611GC )@@G@@00061163 010100061163 100000061142 010000061164 100040061103 147440GD )@@G@@777776 107740000001 @Q@[@@000250 030337 270040061057 2600400610GE )@@G@@74 270020061057 260020061073 010040000104 010340061145 110000061145GF )@@G@@ 140000061103 @Q@[@@000260 030347 100040061145 140040061101 10GG )@@G@@0100061145 310100061103 140100061145 150100061103 140100061102 0100GH )@@G@@00061104 @Q@[@@000270 030357 010040061111 010100061112 10000006GI )@@G@@1154 761001000000 020000061143 460060061103 260060061112 2701000610GJ )@@G@@57 @A@[@@000300 030367 260100061112 2701(K@@@@20061057 26012006GK )@@G@@1111 230120061104 100000061143 761005400000 010003000000 1000434000GL )@@G@@00 @Q@[@@000310 030377 010044400000 702120030373 107400000003 GM )@@G@@550000061145 742000030405 050000061164 100000061163 761001400000 GN )@@G@@@Q@[@@000320 030407 760000061164 010002400000 147740000001 702100GO )@@G@@030344 100040061153 761040061063 760440061136 020040061136 @Q@[@@GP )@@G@@000330 030417 100100061153 761100061064 760100061137 010100061137GQ )@@G@@ 100140061153 761140061065 760540061140 020140061140 @Q@[@@000340GR )@@G@@ 030427 100200061103 147600000001 010200061104 150200061103 1402GS )@@G@@00061102 107760000001 270060000024 237500000002 @Q@[@@000350 0304GT )@@G@@37 010360061145 110000061145 147400000003 100040061145 3100400611GU )@@G@@03 140040061145 150040061103 140040061102 @Q@[@@000360 030447 GV )@@G@@010000061111 010040061112 100000061136 760003000000 010003000000 10GW )@@G@@0340061145 270100061112 270120061112 @Q@[@@000370 030457 230120GX )@@G@@061111 010340061165 100000061145 150000061165 510000000014 74200003GY )@@G@@0471 100000061137 760005000000 @Q@[@@000400 030467 010005000000GZ )@@G@@ 010004000000 247500000001 240120061103 147740000001 702120030460 HA )@@G@@240060061104 147760000001 @Q@[@@000410 030477 702100030437 1000HB )@@G@@00061103 547400000004 742000030522 100000061103 147400777773 100040HC )@@G@@061103 147440000001 @Q@[@@000420 030507 010040061111 7300400000HD )@@G@@42 150040061103 140040061102 460020061111 260020000016 010000000104HE )@@G@@ 100000061140 @Q@[@@000430 030517 760001000000 010001400000 70HF )@@G@@2100030516 270660061113 477260000004 742013030525 742000030531 7420HG )@@G@@00030533 @Q@[@@000440 030527 742000030570 742000030654 72040000HH )@@G@@4361 000247061070 100000061103 730000000043 140000061075 2700400610HI )@@G@@75 @Q@[@@000450 030537 240040061103 100054000001 760042000001 HJ )@@G@@100002000000 761400000016 010000061166 100042000000 761040061055 HK )@@G@@@Q@[@@000460 030547 761040061166 270100061075 760444000000 020044HL )@@G@@000000 100100061163 270120061073 761105000000 760000061061 @Q@[@@HM )@@G@@000470 030557 761100000014 100000061166 761000061055 760400061061HN )@@G@@ 761000061142 760400000020 270060061074 020003000000 @Q@[@@000500HO )@@G@@ 030567 742000030654 100000061103 730000000043 140000061075 1000HP )@@G@@54000002 010040061143 270020061074 100001000002 @Q@[@@000510 0305HQ )@@G@@77 010000061164 277440000001 237500000002 060040061145 1100000611HR )@@G@@45 147400000003 010000061111 100002061170 @Q@[@@000520 030607 HS )@@G@@010000061167 147400777776 310000061103 270100061077 240100061167 27HT )@@G@@0120061075 240120000014 100045000002 @K@[@@000530 030617 761440HU )@@G@@061143 010040061166 761040061164 760444000000 020044000000 27006006HV )@@G@@(A@@@@1057 260060061145 230120061111 @Q@[@@000540 030627 010000HW )@@G@@061112 100003461170 010000061170 147400777776 310000061103 27002006HX )@@G@@1075 240020000014 270120000014 @Q@[@@000550 030637 240120061167HY )@@G@@ 240120061102 100000061166 761001000002 760405000000 020005000000 HZ )@@G@@270100061112 240100061170 @Q@[@@000560 030647 240100061102 0200IA )@@G@@04000000 702120030630 247440000001 702100030602 100000061114 527400IB )@@G@@000001 742000030662 @Q@[@@000570 030657 230060030661 7420000307IC )@@G@@04 000275061070 100000061146 761400061152 010000061161 100040061150ID )@@G@@ 761440061152 @Q@[@@000600 030667 760040061147 100100061147 76IE )@@G@@0100061151 761100061161 760440000020 270020061076 010041000000 7614IF )@@G@@00061144 @Q@[@@000610 030677 010001000001 050001000002 23006003IG )@@G@@0703 742000030704 000302061070 270660061071 715540061115 7156000611IH )@@G@@17 @Q@[@@000620 030707 715640061121 715740061123 270020061125 II )@@G@@270040061126 270060061127 270100061130 270120061131 230100061132 IJ )@@G@@@Q@[@@000630 030717 230120061133 742000261066 060660061071 715140IK )@@G@@061115 715200061117 715240061121 715340061123 060020061125 @Q@[@@IL )@@G@@000640 030727 060040061126 060060061127 060100061130 060120061131IM )@@G@@ 040100061132 040120061133 107013200000 010000061075 @D@[@@000650IN )@@G@@ 030737 107013200001 010000061073 10701320(H@@@@0002 010000061074IO )@@G@@ 100033200003 010020061105 100033200004 010020061106 @Q@[@@000660IP )@@G@@ 030747 100033200005 010020061107 100033200006 010020061110 1070IQ )@@G@@13200010 010400030170 010400030220 010400030242 @Q@[@@000670 0307IR )@@G@@57 107013200011 010000061076 100033200012 010020061103 1000332000IS )@@G@@13 010020061113 100033200014 010020061114 @ @[@@000700 030767 IT )@@G@@742000030067@L@]@@ DUMP OF ELEMENT MODMTS $( 00) AT MAP ADDIU )@@G@@RESS 061055 CREATED ON: 08 AUG 74 AT 21:20:19@Q@[@@000000 061055 IV )@@G@@202400000000 202600000000 000001000000 201600000000 201400000000 40IW )@@G@@0400000000 200525253425 177525250727 @Q@[@@000010 061065 200400IX )@@G@@000000 000373000016 000373000016 222411223130 000302000000 00000000IY )@@G@@0000 000000000000 000000000000 @H@[@@ LINES OF 000000000000 SKIZ )@@G@@IPPED 000040 OCT WORDS 000032 DEC WORDS @L@]@@ DUMP OF ELEMENT JA )@@G@@MODMTS $( 02) AT MAP ADDRESS 061135 CREATED ON: 08 AUG 74JB )@@G@@ AT 21:20:19@Q@[@@000000 061135 000000000000 000000000000 00000000JC )@@G@@0000 000000000000 000000000000 000000000000 000000000000 0000000000JD )@@G@@00 @H@[@@ LINES OF 000000000000 SKIPPED 000020 OCT WORDS JE )@@G@@000016 DEC WORDS @G@[@@000030 061165 000000000000 000000000000 00JF )@@G@@0000000000 000000000000@F@]@@ DUMP OF ELEMENT MODMTS $( 04) JG )@@G@@ AT MAP ADDRESS 061171(A@@@@ CREATED ON: 08 AUG 74 AT 21:20:19@E@[@@JH )@@G@@000000 061171 000000000001 000000000002 000000000004 @L@]@@ DUMPJI )@@G@@ OF ELEMENT SWCH $( 01) AT MAP ADDRESS 030770 CREATED OJJ )@@G@@N: 08 AUG 74 AT 21:25:49@Q@[@@000000 030770 100000053032 0100000612JK )@@G@@02 100040053034 010040053032 010000053034 230060030777 742000031000JL )@@G@@ 000106061176 @Q@[@@000010 031000 742000261174 060660061177 10JM )@@G@@7013200000 010400030770 010400030773 107013200001 010400030772 0104JN )@@G@@00030774 @ @[@@000020 031010 742000030770@L@]@@ DUMP OF ELEMENT JO )@@G@@SWCH $( 00) AT MAP ADDRESS 061174 CREATED ON: 08 AUG 74JP )@@G@@ AT 21:25:49@L@[@@000000 061174 000373000003 000373000003 30341015JQ )@@G@@0505 000106035570 000000000000 000000000000 @L@]@@ DUMP OF ELEMENT JR )@@G@@SWCH $( 02) AT MAP ADDRESS 061202 CREATED ON: 08 AUG 74JS )@@G@@ AT 21:25:49@ @[@@000000 061202 000000000000@L@]@@ DUMP OF ELEMENT JT )@@G@@GRADS $( 01) AT MAP ADDRESS 031011 CREATED ON: 11 SEP 74JU )@@G@@ AT 20:32:52@Q@[@@000000 031011 100000061220 147400777776 10004006JV )@@G@@1217 147440777761 100100061216 147500000001 100140061222 1475407777JW )@@G@@76 @Q@[@@000010 031021 270020061221 010000061223 010040061224 JX )@@G@@010100061225 010140061226 745660005235 000000061203 000000061203 JY )@@G@@@F@[@@000020 031031 000000000000 000000061204 000000061205 000104JZ )@@G@@(F@@@@061213 050000061245 050000061246 270040061216 237500000002 KA )@@G@@@Q@[@@000030 031041 100002000000 010000061250 147400000001 140000KB )@@G@@061223 270060000014 237520000002 010000061227 100000061245 @Q@[@@KC )@@G@@000040 031051 147400000001 010000061245 100043000000 010040061252KD )@@G@@ 147400000015 140000061224 270100061206 260100000014 @Q@[@@000050KE )@@G@@ 031061 270120061207 260120061221 237540000003 100000061252 7610KF )@@G@@04400000 760005000000 010005400000 702140031064 @Q@[@@000060 0310KG )@@G@@71 247460000001 702120031050 270100061207 260100061227 2375200000KH )@@G@@05 100000061246 147400000001 010000061246 @Q@[@@000070 031101 KI )@@G@@270120061222 240120061246 270060061226 240060061246 100044400000 76KJ )@@G@@1040061210 010040061252 761043000000 @Q@[@@000100 031111 760041KK )@@G@@000004 010041000004 100100061252 761105000023 760101000005 01010100KL )@@G@@0005 702120031076 247440000001 @Q@[@@000110 031121 702100031041KM )@@G@@ 510000061230 742000031212 107400000011 010000061245 107740000001 KN )@@G@@270060061225 237500000001 @Q@[@@000120 031131 010340061247 1000KO )@@G@@03000002 010000061250 147400000001 140000061223 270120061220 240120KP )@@G@@061250 270100000014 @Q@[@@000130 031141 237520000001 1000000612KQ )@@G@@45 147400000001 010000061245 100044000000 761040061210 010040061252KR )@@G@@ 147400000015 @^@[@@000140 031151 140000(M@@@@061224 2700400612KS )@@G@@06 260040000014 270140061207 260140061221 237540000003 100000061252KT )@@G@@ 761002400000 @Q@[@@000150 031161 760006000000 010006400000 70KU )@@G@@2140031157 247500000001 702120031142 100040061247 147440000022 0100KV )@@G@@40061246 @Q@[@@000160 031171 270040061222 240040061246 27014006KW )@@G@@1226 240140061246 100105000002 761100061210 010100061252 7611060000KX )@@G@@00 @Q@[@@000170 031201 760101000004 010101000004 100000061252 KY )@@G@@761002000023 760001000005 010001000005 247460000001 147740000001 KZ )@@G@@@Q@[@@000200 031211 702100031131 230060031214 742000031215 000171LA )@@G@@061213 270660061214 100140061231 100340061232 270020061233 @Q@[@@LB )@@G@@000210 031221 270040061234 270060061235 270100061236 270120061237LC )@@G@@ 270140061240 230100061241 230120061242 230140061243 @Q@[@@000220LD )@@G@@ 031231 742000261211 060660061214 010140061231 010340061232 0600LE )@@G@@20061233 060040061234 060060061235 060100061236 @Q@[@@000230 0312LF )@@G@@41 060120061237 060140061240 040100061241 040120061242 0401400612LG )@@G@@43 107013200000 010000061222 107013200001 @Q@[@@000240 031251 LH )@@G@@010000061217 107013200002 010000061216 107013200003 010400031031 01LI )@@G@@0000061221 107013200004 010000061220 @E@[@@000250 031261 100033LJ )@@G@@200005 010020061230 742000031011 @D@]@@ DUMP OF ELEMENT GRADS LK )@@G@@ $( 00) AT MAP ADD(C@@@@RESS 061203 CREATED ON: 11 SEP 74 AT 20LL )@@G@@:32:52@Q@[@@000000 061203 000000000000 000000000001 000000000006 LM )@@G@@000015000000 000001000000 177525252524 000373000007 000373000007 LN )@@G@@@Q@[@@000010 061213 142706113005 000171000000 000000000000 000000LO )@@G@@000000 000000000000 000000000000 000000000000 000000000000 @H@[@@LP )@@G@@ LINES OF 000000000000 SKIPPED 000020 OCT WORDS 000016 DEC WLQ )@@G@@ORDS @C@[@@000040 061243 000000000000 000000000000 @L@]@@ DUMPLR )@@G@@ OF ELEMENT GRADS $( 02) AT MAP ADDRESS 061245 CREATED OLS )@@G@@N: 11 SEP 74 AT 20:32:52@N@[@@000000 061245 000000000000 0000000000LT )@@G@@00 000000000000 000000000000 000000000000 000000000000 000000000000LU )@@G@@@L@]@@ DUMP OF ELEMENT STATIC $( 01) AT MAP ADDRESS 031264LV )@@G@@ CREATED ON: 15 OCT 74 AT 09:07:49@Q@[@@000000 031264 745660013520LW )@@G@@ 000135061356 107400000001 010000053615 140000053751 010000053616 LX )@@G@@270020053615 060020061361 @Q@[@@000010 031274 510000053762 7420LY )@@G@@00031323 100000053764 140000053616 147400000003 010000053617 270020LZ )@@G@@053616 270040053617 @Q@[@@000020 031304 237021065666 0404200313MA )@@G@@17 270060061361 237023065666 040420031316 237021065671 040420031320MB )@@G@@ 237022065666 @O@[@@000030 031314 040420031321 745660043550 00MC )@@G@@0000031316 000000031317 000000031320 000000031321 000143061356 1000MD )@@G@@(]@@@@00053747 @Q@[@@000040 031324 310000053750 010000061361 14ME )@@G@@0000053616 010000053617 140000061361 010000053620 140000053751 0100MF )@@G@@00053621 @Q@[@@000050 031334 100040053747 317440000003 14004005MG )@@G@@3621 010040053622 270060053617 050000052632 050000052631 2370230656MH )@@G@@66 @Q@[@@000060 031344 040420031350 745660024574 000000052730 MI )@@G@@000000061345 000000076773 000000061361 000153061356 100000052751 MJ )@@G@@@Q@[@@000070 031354 732400000044 347400000002 010020052763 270020MK )@@G@@053617 270040053616 270060053620 270100053621 270120053615 @Q@[@@ML )@@G@@000100 031364 060020061361 060040061362 060060061363 060100061364MM )@@G@@ 060120061365 110000053760 741000031375 500000000014 @Q@[@@000110MN )@@G@@ 031374 742000031424 270020061362 237021065666 040420031416 2700MO )@@G@@40061365 237022065666 040420031415 270060061361 @Q@[@@000120 0314MP )@@G@@04 237023065666 040420031417 270100061363 237024065666 0404200314MQ )@@G@@20 270120061364 237025065666 040420031421 @Q@[@@000130 031414 MR )@@G@@745660043716 000000031415 000000031416 000000031417 000000031420 00MS )@@G@@0000031421 000157061356 742000031533 @Q@[@@000140 031424 100000MT )@@G@@053760 317400000011 140000053621 010000053622 140000053747 01000005MU )@@G@@3623 100040053747 317440000003 @H@[@@000150 031434 140040053623MV )@@G@@ 010040053624 100000053613 150000053624 5000(D@@@@00000014 61000000MW )@@G@@0014 742000031447 745660021054 @Q@[@@000160 031444 000000053624MX )@@G@@ 000000061254 000165061356 270020053622 270040053621 100000053760 MY )@@G@@317400000011 010000061364 @Q@[@@000170 031454 237022065666 0404MZ )@@G@@20031465 237021065666 040420031471 745660022231 000000061346 000000NA )@@G@@061347 000000061350 @Q@[@@000200 031464 000000061364 0000001100NB )@@G@@77 000000061405 000000061350 000000053747 000000111417 000000061405NC )@@G@@ 000000061351 @Q@[@@000210 031474 000166061356 270060053622 27ND )@@G@@0100053621 270120053620 270040053623 270020053615 270140053617 2701NE )@@G@@60053616 @Q@[@@000220 031504 237027065666 040420031524 23702106NF )@@G@@5666 040420031523 237026065666 040420031525 237025065666 0404200315NG )@@G@@26 @Q@[@@000230 031514 237024065666 040420031527 237023065666 NH )@@G@@040420031530 237022065666 040420031531 745660043721 000000065667 NI )@@G@@@Q@[@@000240 031524 000000071463 000000076773 000000104303 000000NJ )@@G@@110077 000000111417 000000112333 000167061356 107400000001 @Q@[@@NK )@@G@@000250 031534 540000052751 742000031641 270160052560 060160061364NL )@@G@@ 100000053756 150000053757 547400000001 742000031641 @Q@[@@000260NM )@@G@@ 031544 100000053763 310000053763 140000053620 010000053621 1400NN )@@G@@00052724 010000053622 270020061364 100041052574 @A@[@@000270 0315NO )@@G@@54 010040052631 1400(K@@@@40053622 010040052633 100000052635 1500NP )@@G@@00052633 741000031564 500000000014 742000031633 @Q@[@@000300 0315NQ )@@G@@64 100000053613 150000052633 500000000014 610000000014 7420000315NR )@@G@@75 745660021054 000000052633 000000061256 @Q@[@@000310 031574 NS )@@G@@000204061356 270140052560 100000053622 010006052565 270120053621 27NT )@@G@@0100053617 270060053620 270040053616 @Q@[@@000320 031604 010000NU )@@G@@052632 237024065666 040420031621 237022065666 040420031620 23702306NV )@@G@@5666 040420031622 237025065666 @Q@[@@000330 031614 040420031623NW )@@G@@ 237025065666 040420031624 745660043600 000000071463 000000076773 NX )@@G@@000000104303 000000110703 @Q@[@@000340 031624 000000110703 0000NY )@@G@@00053763 000207061356 745660012611 000000052560 000210061356 742000NZ )@@G@@031641 745660005133 @Q@[@@000350 031634 000001061352 0000000612OA )@@G@@60 000213061356 000020052633 720400011500 745660013523 000000061411OB )@@G@@ 000217061356 @Q@[@@000360 031644 745660013520 000220061356 10OC )@@G@@0000052533 310000052534 010000061406 317400000003 140000053616 0100OD )@@G@@00053625 @Q@[@@000370 031654 140000061406 010000053617 10004005OE )@@G@@2536 310040061406 010040061407 140040053617 010040053620 1400400614OF )@@G@@07 @Q@[@@000400 031664 010040053621 100100052533 310100052535 OG )@@G@@010100061406 310100052536 010100061407 100140052533 310140052536 OH )@@G@@@Q@[@@000410 031674 140140053621 010140053622 140100053622 010100OI )@@G@@053623 140100061406 010100053641 100200053760 317600000011 @Q@[@@OJ )@@G@@000420 031704 140200053641 010200053624 010200052632 270160052564OK )@@G@@ 270020052565 270140052557 270100052561 100246052574 @Q@[@@000430OL )@@G@@ 031714 140244052574 140247052574 140241052574 010240052631 0102OM )@@G@@06052565 140206052574 010204052565 140204052574 @Q@[@@000440 0317ON )@@G@@24 010207052565 140207052574 010201052565 140240052632 0102400526OO )@@G@@33 100000053613 150000052633 500000000014 @Q@[@@000450 031734 OP )@@G@@610000000014 742000031742 745660021054 000000052633 000000061317 00OQ )@@G@@0245061356 100000052633 010000053624 @Q@[@@000460 031744 270040OR )@@G@@053615 270060053616 270120053617 270140053620 270100053621 27016005OS )@@G@@3622 270020053623 270200053625 @Q@[@@000470 031754 270220053641OT )@@G@@ 237023065666 040420032001 237022065666 040420032000 237025065666 OU )@@G@@040420032002 237026065666 @Q@[@@000500 031764 040420032003 2370OV )@@G@@24065666 040420032004 237027065666 040420032005 237021065666 040420OW )@@G@@032006 237030065666 @Q@[@@000510 031774 040420032007 2370310656OX )@@G@@66 040420032010 745660033355 000000065667 000000071463 000000071477OY )@@G@@ 000000071505 @K@[@@000520 032004 000000071513 000000071521 00OZ )@@G@@0000071535 000000071474 000000071543 00024706(A@@@@1356 100000053756PA )@@G@@ 150000053757 @Q@[@@000530 032014 500000000014 610000000014 74PB )@@G@@2000032022 230060032021 742000032042 000251061356 745660013523 0000PC )@@G@@00061413 @Q@[@@000540 032024 000252061356 745660005133 00000106PD )@@G@@1352 000000061321 000254061356 270060061353 237500000003 1070034614PE )@@G@@10 @Q@[@@000550 032034 720440011475 702100032033 720400011500 PF )@@G@@230060032041 742000032042 000262061356 270660061357 100140061366 PG )@@G@@@Q@[@@000560 032044 100200061367 100240061370 270020061371 270040PH )@@G@@061372 270060061373 270100061374 270120061375 270140061376 @Q@[@@PI )@@G@@000570 032054 270160061377 270200061400 270220061401 230100061402PJ )@@G@@ 742000261354 060660061357 010140061366 010200061367 @Q@[@@000600PK )@@G@@ 032064 010240061370 060020061371 060040061372 060060061373 0601PL )@@G@@00061374 060120061375 060140061376 060160061377 @G@[@@000610 0320PM )@@G@@74 060200061400 060220061401 040100061402 742000031264@L@]@@ DUMPPN )@@G@@ OF ELEMENT STATIC $( 00) AT MAP ADDRESS 061254 CREATED OPO )@@G@@N: 15 OCT 74 AT 09:07:49@Q@[@@000000 061254 303106315060 7777777777PP )@@G@@77 303106315061 777777777777 517474616051 651550505050 504074746161PQ )@@G@@ 621505102422 @Q@[@@000010 061264 253231063116 242305241305 12PR )@@G@@2112220510 242723122705 132427101230 050623110530 312732103132 2706PS )@@G@@21052712 @[@[@@000020(P@@@@ 061274 061031163312 051324271012 30PT )@@G@@0516300506 072427311211 051132120531 240516233032 131316101612 2331PU )@@G@@05102427 @Q@[@@000030 061304 120505063306 162106072112 74646515PV )@@G@@0530 163712052413 052712263216 271211050507 052105060523 0520050505PW )@@G@@10 @Q@[@@000040 061314 052405220522 052405230505 441661607440 PX )@@G@@303106315063 777777777777 516263156175 757575311622 120521241405 PY )@@G@@@Q@[@@000050 061324 513012102423 113040747474 636315050525 271623PZ )@@G@@310511 163025210610 122212233130 757575757575 757575757505 @Q@[@@QA )@@G@@000060 061334 560666560662 747463631505 051024222532 311205303127QB )@@G@@ 123030123075 757575757575 757575757575 750556066656 @Q@[@@000070QC )@@G@@ 061344 066274744005 000000000001 000000000042 000000000012 0000QD )@@G@@00000002 000000000026 000000000006 000001000001 @Q@[@@000100 0613QE )@@G@@54 000373000001 000373000001 303106311610 000262015371 0000000000QF )@@G@@00 000000011105 000000003575 000000016415 @Q@[@@000110 061364 QG )@@G@@000000000002 000000000001 000000047625 000000000002 000000000141 00QH )@@G@@0000007431 000000003575 000000000001 @Q@[@@000120 061374 000000QI )@@G@@007371 000000043007 000000003635 000000000001 000000007411 00000000QJ )@@G@@3615 000000000000 000000000000 @L@]@@ DUMP OF ELEMENT STATIC QK )@@G@@ $( 02) AT MAP ADDRESS 061404 CREATED ON: 15 OCT 74 AT 09:07:49QL )@@G@@@J@[@@000000 061404 000000000000 000000000714 000000000006 000000QM )@@G@@000014 000000000000 @L@]@@ DUMP OF ELEMENT STATIC $( 04) QN )@@G@@ AT MAP ADDRESS 061411 CREATED ON: 15 OCT 74 AT 09:07:49@G@[@@000000QO )@@G@@ 061411 056053056053 616300000000 000000000000 000000000000@L@]@@QP )@@G@@ DUMP OF ELEMENT STRESS $( 01) AT MAP ADDRESS 032100 CREQQ )@@G@@ATED ON: 15 OCT 74 AT 09:01:45@Q@[@@000000 032100 100000053756 1500QR )@@G@@00053757 740000032214 741400032214 110000053760 500000000014 610000QS )@@G@@000014 742000032124 @Q@[@@000010 032110 100000053760 3174000000QT )@@G@@11 010000061440 745660022231 000000061427 000000061430 000000061431QU )@@G@@ 000000061440 @Q@[@@000020 032120 000000071543 000000061472 00QV )@@G@@0000061432 000135061435 745660012531 000000052561 000136061435 1000QW )@@G@@00052533 @Q@[@@000030 032130 310000052534 010000061473 74566001QX )@@G@@2541 000000071474 000000061473 000000052561 000140061435 1000000525QY )@@G@@34 @Q@[@@000040 032140 317400000003 310000052533 010000061473 QZ )@@G@@745660012541 000000071463 000000061473 000000052561 000142061435 RA )@@G@@@Q@[@@000050 032150 100000052536 730000000043 310000052534 310000RB )@@G@@052533 100040052533 310040052536 140000000016 010000061473 @O@[@@RC )@@G@@000060 032160 745660012541 000000071477 000000061473 000000052561RD )@@G@@ 000144061435 100000052533 310000052535 0100(]@@@@00061473 @Q@[@@RE )@@G@@000070 032170 745660012541 000000071535 000000061473 000000052561RF )@@G@@ 000146061435 100000052535 310000052536 310000052533 @Q@[@@000100RG )@@G@@ 032200 010000061473 745660012541 000000071521 000000061473 0000RH )@@G@@00052561 000150061435 745660012531 000000052557 @Q@[@@000110 0322RI )@@G@@10 000151061435 745660012531 000000052564 000152061435 7456600172RJ )@@G@@11 000000052565 000154061435 050000052772 @Q@[@@000120 032220 RK )@@G@@100000053745 147400777776 277420000001 010000000104 100001053645 01RL )@@G@@0000052764 100041053654 010040052765 @Q@[@@000130 032230 100101RM )@@G@@053663 010100052766 100141053672 010140052770 100201053701 01020005RN )@@G@@2767 050000052771 100241052751 @Q@[@@000140 032240 732640000044RO )@@G@@ 347640000004 010260052763 270660052764 477260000012 742013032246 RP )@@G@@742000032260 742000032262 @Q@[@@000150 032250 742000032467 7420RQ )@@G@@00032552 742000032663 742000032663 742000033132 742000032552 742000RR )@@G@@033171 742000033171 @Q@[@@000160 032260 720400004361 0001700614RS )@@G@@35 107400000010 010000061475 100000052764 527400000001 742000032271RT )@@G@@ 107400000020 @Q@[@@000170 032270 010000061475 100000052767 31RU )@@G@@7400000006 010000061476 100040052767 317440000003 010040061477 3100RV )@@G@@40061475 @H@[@@000200 032300 140040053624 010040061500 27004006RW )@@G@@1500 140040061476 0100(D@@@@40061501 270060061501 140040061476 0100RX )@@G@@40053627 @Q@[@@000210 032310 140000053627 010000053630 14000006RY )@@G@@1476 010000053631 140000052767 010000053632 140000052767 0100000536RZ )@@G@@33 @Q@[@@000220 032320 140000052767 010000053634 140000052767 SA )@@G@@010000053635 060040061440 060060061441 100000053613 150000053635 SB )@@G@@@Q@[@@000230 032330 500000000014 610000000014 742000032337 745660SC )@@G@@021054 000000053635 000000061415 000211061435 270040053641 @Q@[@@SD )@@G@@000240 032340 270060053632 270100053634 270120053631 270140053630SE )@@G@@ 270160053633 270200053615 270220053625 270240053617 @Q@[@@000250SF )@@G@@ 032350 060200061442 270200053620 060220061443 270220053621 0602SG )@@G@@40061444 270240053622 060200061445 270200053623 @Q@[@@000260 0323SH )@@G@@60 060220061446 270220053624 060240061447 270240053627 0602000614SI )@@G@@50 270200061443 237030065666 040420032442 @Q@[@@000270 032370 SJ )@@G@@270200061442 237030065666 040420032441 270200061444 237030065666 04SK )@@G@@0420032443 270200061445 237030065666 @Q@[@@000300 032400 040420SL )@@G@@032444 270200061446 237030065666 040420032445 270200061447 23703006SM )@@G@@5666 040420032446 270200061450 @Q@[@@000310 032410 237030065666SN )@@G@@ 040420032447 237031065666 040420032450 270200061440 237030065666 SO )@@G@@040420032451 270220061441 @A@[@@000320 032420 237031065666 0404SP )@@G@@(K@@@@20032452 237032065666 040420032453 237026065666 040420032454 SQ )@@G@@237025065666 040420032455 @Q@[@@000330 032430 237023065666 0404SR )@@G@@20032456 237027065666 040420032457 237024065666 040420032460 237022SS )@@G@@065666 040420032461 @Q@[@@000340 032440 745660044061 0000000324ST )@@G@@41 000000032442 000000032443 000000032444 000000032445 000000032446SU )@@G@@ 000000032447 @Q@[@@000350 032450 000000032450 000000032451 00SV )@@G@@0000032452 000000032453 000000032454 000000032455 000000032456 0000SW )@@G@@00032457 @Q@[@@000360 032460 000000032460 000000032461 00000006SX )@@G@@1476 000000061477 000000061475 000212061435 742000033301 1000000536SY )@@G@@24 @Q@[@@000370 032470 147400000250 010000061500 100000053613 SZ )@@G@@150000061500 500000000014 610000000014 742000032503 745660021054 TA )@@G@@@Q@[@@000400 032500 000000061500 000000061417 000217061435 270200TB )@@G@@053641 270220053624 270240053623 270140053621 270120053622 @Q@[@@TC )@@G@@000410 032510 270060053615 270160053625 270100053617 270040053620TD )@@G@@ 237027065666 040420032540 237023065666 040420032537 @Q@[@@000420TE )@@G@@ 032520 237024065666 040420032541 237022065666 040420032542 2370TF )@@G@@26065666 040420032543 237025065666 040420032544 @Q@[@@000430 0325TG )@@G@@30 237032065666 040420032545 237031065666 040420032546 2370300656TH )@@G@@66 040420032547 745660044064 000000032537 D ___ A1,OPK+1 TI )@@G@@ . @B@@@@ AA,U A1,1 . @B@@@@ TJ )@@G@@ SA A1,*0,X11 . @B@@@@ J 2,X11 TK )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ . @A@@@@. CALL PRINT(LINESP,NWORDS,BUFTL )@@G@@FER) @[@@@@. @A@@@@PRINT* LA A0,*0,X11 . @ @@@@ TM )@@G@@ SA,7 A0,STOR . @A@@@@ LA A0,*1,X11 . @ @@@@TN )@@G@@ SA,11 A0,STOR .@ @@@@ LA A0,2,X11 .@ @@@@TO )@@G@@ SA,1 A0,STOR . @ @@@@ LA A0,STOR . @ @@@@TP )@@G@@ ER PRINT$ . @ @@@@ J 4,X11 . @#@@@@TQ )@@G@@STOR +0. @#@@@@ END ___ A0,PKT . @ _@@@ TR )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE PRTERR ( N ) TS )@@G@@ PERR0001 @I@@@@C TT )@@G@@ PERR0002 @I@@@@C PRINT ERROR MESTU )@@G@@SAGE - N=ERROR NO. PERR0003 @I@@@@TV )@@G@@C TW )@@G@@PERR0004 @I@@@@ IMPLICIT INTEGER (A-Z) TX )@@G@@ PERR0005 @I@@@@ COMMON /MSG/M(105) TY )@@G@@ PERR0006 @I@@@@ COMMON /E8ARTZ )@@G@@Y/NWAR,MULT,NWAR1,IRDM(1792) PERR0007 @I@@@@UA )@@G@@ DIMENSION IAREG(1321) UB )@@G@@PERR0008 @I@@@@ EQUIVALENCE (IAREG,IRDM) UC )@@G@@ PERR0009 @I@@@@ PARAMETER MAX=14 UD )@@G@@ @ MAX. ERROR NO. PERR0010 @I@@@@ DIMENSION MSUE )@@G@@G(3),MSG1(6),MSG2(7),MSG3(3),MSG4(5),MSG5(5), PERR0011 @I@@@@UF )@@G@@ 1 MSG6(6),MSG7(4),MSG8(6),MSG9(3),MSG10(4), UG )@@G@@PERR0012 @I@@@@ 2 MSG11(4),MSG12(5),MSG13(5),MSG14(4) UH )@@G@@ PERR0013 @I@@@@ DATA MSG/ '***** ERROR *****&'UI )@@G@@ / PERR0014 @I@@@@ DATA MSG1/ 'UJ )@@G@@ARRAY OVERFLOW-STATEMENT TOO LONG.&' / PERR0015 @I@@@@UK )@@G@@ DATA MSG2/ 'NON-ARITHMETIC STATEMENT NOT DEFINED.&' / UL )@@G@@PERR0016 @I@@@@ DATA MSG3/ 'VARIABLE ILLEGAL.&' / UM )@@G@@ PERR0017 @I@@@@ DATA MSG4/ 'DATA LIST LONGER TUN )@@G@@HAN CARD.&' / PERR0018 @I@@@@ DATA MSG5/ 'UO )@@G@@STATEMENT NUMBER ILLEGAL.&' / PERR0019 @I@@@@UP )@@G@@ DATA MSG6/ 'PARENTHESE COMBINATION ILLEGAL.&' / UQ )@@G@@PERR0020 @I@@@@ DATA MSG7/ 'IF STATEMENT ILLEGAL&' / UR )@@G@@ PERR0021 @I@@@@ DATA MSG8/ 'ERROR IN NESTING OUS )@@G@@F FUNCTIONS.&' / PERR0022 @I@@@@ DATA MSG9/ 'UT )@@G@@WORD TOO LONG.&' / PERR0023 @I@@@@UU )@@G@@ DATA MSG10/'VARIABLE TOO LONG.&' / UV )@@G@@PERR0024 @I@@@@ DATA MSG11/'NO RIGHT PARENTHESES.&' / UW )@@G@@ PERR0025 @I@@@@ DATA MSG12/'ERROR IN GETTING SUX )@@G@@UBSCRIPT.&' / PERR0026 @I@@@@ DATA MSG13/'UY )@@G@@EXCEEDED LENGHT OF CARD DATA.&' / PERR0027 @I@@@@UZ )@@G@@ DATA MSG14/'VARIABLE NOT IN TABLE.&' / VA )@@G@@PERR0028 @I@@@@ EQUIVALENCE (M,MSG) , (M(8),MSG1) , (M(15),MSG2)VB )@@G@@ , (M(22),MSG3) , PERR0029 @I@@@@ * (M(29),MSG4) , (M(36),MSG5) ,VC )@@G@@ (M(43),MSG6) , PERR0030 @I@@@@ * (M(50),MSG7VD )@@G@@) , (M(57),MSG8) , (M(64),MSG9) , PERR0031 @I@@@@VE )@@G@@ * (M(71),MSG10) , (M(78),MSG11) , (M(85),MSG12) , (M(92),MSG13) , VF )@@G@@PERR0032 @I@@@@ * (M(99),MSG14) VG )@@G@@ PERR0033 @I@@@@C VH )@@G@@ PERR0034 @I@@@@ IF (N.LT.1.OVI )@@G@@R.N.GT.MAX) GO TO 40 @ IGNORE BAD ERROR NO. PERR0035 @I@@@@VJ )@@G@@ CALL OPA ( -1,MSG ) @ PUT 'ERROR' IN LINE VK )@@G@@PERR0036 @I@@@@ I=7*N + 1 VL )@@G@@ PERR0037 @I@@@@ CALL OPAP( 1,20,M(I) ) VM )@@G@@ @ ERROR MSG TO LINE PERR0038 @I@@@@ IF (NWAR.LE.VN )@@G@@0) GO TO 40 PERR0039 @I@@@@VO )@@G@@ NN=' ' VP )@@G@@PERR0040 @I@@@@ DO 30 K=1,NWAR VQ )@@G@@ PERR0041 @I@@@@ FLD( 0,6,NN )=IAREG(K) VR )@@G@@ PERR0042 @I@@@@ IX=MOD( K,13VS )@@G@@0 ) PERR0043 @I@@@@VT )@@G@@ IF (IX.GT.0) GO TO 10 VU )@@G@@PERR0044 @I@@@@ CALL OPAFP ( 1,130,NN,1 ) VV )@@G@@ PERR0045 @I@@@@ GO TO 30 VW )@@G@@ PERR0046 @I@@@@ 10 IF (IX.NE.1)VX )@@G@@ GO TO 20 PERR0047 @I@@@@VY )@@G@@ CALL OPAF ( -1,NN,1 ) VZ )@@G@@PERR0048 @I@@@@ GO TO 30 WA )@@G@@ PERR0049 @I@@@@ 20 CALL OPAF ( IX,NN,1 ) WB )@@G@@ PERR0050 @I@@@@ 30 CONTINUE WC )@@G@@ PERR0051 @I@@@@WD )@@G@@ IF (IX.EQ.0) GO TO 40 WE )@@G@@PERR0052 @I@@@@ CALL OPAP ( 1,IX+1,' & ' ) WF )@@G@@ PERR0053 @I@@@@ 40 CONTINUE WG )@@G@@ PERR0054 @I@@@@ CALL ERROR8 WH )@@G@@ PERR0055 @I@@@@WI )@@G@@ RETURN WJ )@@G@@PERR0056 @I@@@@ END WK )@@G@@ PERR0057 ___ DATA MSG14/'VARIABLE NOT IN TABLE.&' /WL )@@G@@ *[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@WM )@@G@@$(1) . @[@@@@ . @B@@@@ . CALL RDS1(FN,EN,VN,B1,B2,NB,ERR,$ERR) WN )@@G@@@ @@@@ . FN IS FILE NAME (2 WORDS)@A@@@@ . EN IS ELEMENT NAME (2 WORWO )@@G@@DS) @A@@@@ . VN IS VERSION NAME (2 WORDS) @A@@@@ . B1 IS ANY USEWP )@@G@@R SUPPLIED BUFFER @B@@@@ . B2 IS A SECOND USER SUPPLIED BUFFER @D@@@@WQ )@@G@@ . NB IS THE NUMBER OF WORDS IN B1 (B1 AND B2 MUST @ @@@@ . WR )@@G@@BE THE SAME SIZE) @D@@@@ . ERR IS AN ERROR CODE IF THE $ERR RETURN IS WS )@@G@@MADE @B@@@@ . 1 = NO FIND ON GIVER ELEMENT @ @@@@ . WT )@@G@@2 = I/O ERROR @B@@@@ . 3 = PROGRAM FILE NOT DEFINED @B@@@@WU )@@G@@ . 4 = PROGRAM FILE OVERFLOW @A@@@@ . BITS 11 - 6 WV )@@G@@= I/O ERROR @D@@@@ . NOTE - IF THE ELEMENT NAME IS EITHER BLANK OR 0 WW )@@G@@@D@@@@ . THEN THE FILE IS ASSUMED TO BE A DATA FILE .@D@@@@ . NOTWX )@@G@@E - THE BUFFERS B1 AND B2 MUST BE A MULTIPLE OF @D@@@@ . 28 WORDSWY )@@G@@ , AND IT IS BEST TO MAKE THEM A @C@@@@ . MULTIPLE OF 112 (DECWZ )@@G@@IMAL) WORDS . @[@@@@ . @]@@@@RDS1* . @D@@@@ DL XA )@@G@@ A0,*0,X11 . GET FILE NAME @E@@@@ DS A0,FCT XB )@@G@@ . PUT INTO FCT TABLE @E@@@@ DS A0,PFP XC )@@G@@ . ALSO STORE FOR PFS$ @D@@@@ SZ ELFLAG . FIXD )@@G@@LE TYPE FLAG@E@@@@ LA,S1 A0,*1,X11 . S1 OF ELEMENT XE )@@G@@NAME @F@@@@ TLE,U A0,6 . IS THIS ELEMENT OR FXF )@@G@@ILE ? @E@@@@ J DJ1 . THIS IS DATA FILE XG )@@G@@@E@@@@ SX X11,ELFLAG . SET FLAG FOR P.F. @E@@@@XH )@@G@@ DL A0,*1,X11 . GET ELEMENT NAME @E@@@@ XI )@@G@@ DS A0,PFP+2 . PUT INTO PFS$ TABLE @D@@@@ DLXJ )@@G@@ A0,*2,X11 . GET VERSION @E@@@@ DS A0,PFXK )@@G@@P+6 . ALSO STORE VERSION @E@@@@ LA A0,WD1 XL )@@G@@ . SET FOR SYMBOLIC @F@@@@ SA A0,PFP+5 XM )@@G@@ . STORE INTO PFS$ TABLE @E@@@@ LA,U A0,PFP XN )@@G@@ . GET READY FOR PFS$ @D@@@@ ER PFS$ . GOXO )@@G@@ TO PFS$ @F@@@@ SA A2,*6,X11 . THERE MIGHT BEXP )@@G@@ AN ERROR @D@@@@ TZ A2 . IS THERE ? XQ )@@G@@@E@@@@ J *7,X11 . YES, TAKE ERROR EXIT@E@@@@XR )@@G@@ LA A0,PFP+10 . GET ELEMENT ADDRESS @F@@@@ XS )@@G@@ SA A0,FCT+5 . PUT DRUM ADDRESS INTO FCT @E@@@@ XT )@@G@@ J DJ2 . GO TO SDFI SECTION @F@@@@DJ1 SZXU )@@G@@ FCT+5 . THIS IS FILE , ADDRESS = 0@D@@@@DJ2 LAXV )@@G@@ A0,3,X11 . ADDRESS OF 1ST BUFFER @D@@@@ SA,H1 A0,FCXW )@@G@@T+6 . PUT INTO FCT @F@@@@ LA A0,4,X11 XX )@@G@@ . GET ADDRESS OF 2ND BUFFER @D@@@@ SA,H2 A0,FCT+6 XY )@@G@@ . PUT INTO FCT @G@@@@ LA A0,*5,X11 . GET NUMBXZ )@@G@@ER OF WORDS IN BUFFER @E@@@@ DSL A0,36 . PRYA )@@G@@EPARE FOR DIVIDE @E@@@@ DI,U A0,28 . CONVERT YB )@@G@@TO SECTORS @E@@@@ SA,H1 A0,FCT+7 . AND PUT INTO FYC )@@G@@CT @E@@@@ MSI,U A0,28 . NOW BACK TO WORDS YD )@@G@@@F@@@@ SA,H1 A0,FCT+4 . MUST BE MULTIPLE OF 28 YE )@@G@@@C@@@@ SX X11,SAVE . SAVE X11@E@@@@ LAYF )@@G@@,U A0,FCT . PREPARE FOR SDFIO @D@@@@ LMJ YG )@@G@@ X11,SDFIO . JUMP TO SDFIO @F@@@@ J DJ3 YH )@@G@@ . OH,OH , THERE'S AN ERROR @D@@@@ LX X11,SAVE YI )@@G@@ . LOOKS GOOD @D@@@@ J 9,X11 . NOYJ )@@G@@RMAL RETURN @D@@@@DJ3 LX X11,SAVE . RESTORE X11 YK )@@G@@@E@@@@ AA,U A5,0100 . PREPARE ERROR WORD @E@@@@YL )@@G@@ SA A5,*6,X11 . STORE ERROR WORD @D@@@@ YM )@@G@@ J *7,X11 . ERROR EXIT @[@@@@ . @[@@@@ . YN )@@G@@@^@@@@ . CALL RDS2(BUF,N,$EOF)@C@@@@ . BUF IS BUFFER WHERE IMAGE WILLYO )@@G@@ BE STORED @A@@@@ . N IS NUMBER OF WORDS IN BUF @A@@@@ . $EOF IYP )@@G@@S THE END OF FILE RETURN@D@@@@ . NOTE - IF THERE IS AN I/O ERROR , THE EYQ )@@G@@RROR EXIT AS@B@@@@ . DEFINED IN RDS1 WILL BE TAKEN . @[@@@@ . YR )@@G@@@]@@@@RDS2* . @F@@@@ LA A0,0,X11 . GET ADDRYS )@@G@@ESS OF BUFFER @D@@@@ SA,H2 A0,FCT+8 . PLACE INYT )@@G@@TO FCT@F@@@@ LA A1,*1,X11 . GET NUMBER OF WORDS YU )@@G@@(MAX) @D@@@@ SA,H2 A1,FCT+7 . PUT INTO FCT @E@@@@YV )@@G@@ JZ A1,DJ4 . SKIP IF NUMBER = 0 @D@@@@ YW )@@G@@ JN A1,DJ4 . OR NEGATIVE @C@@@@ SSL YX )@@G@@ A1,1 . MAX/2 @G@@@@ ANA,U A1,1 YY )@@G@@ . REDUCE BY 1 FOR LOOP COUNTER @G@@@@ LXI,U A0,2 YZ )@@G@@ . A0 STILL HAS BUFFER ADDRESS @F@@@@. LA A3,BLZA )@@G@@ANK . GET READY TO BLANK BUFFER @E@@@@. SA A3,0,ZB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@#@@@@ AXR$ . @[@@@@. EV )@@G@@@ @@@@. CALL CSF(BUF,NWDS,ISTAT) @[@@@@. @[@@@@$(1). @B@@@@CSF* EW )@@G@@ LA A0,*1,X11 . @B@@@@ LA A1,0,X11 EX )@@G@@ . @B@@@@ LSSL A1,18 . @B@@@@ EY )@@G@@ LDSL A0,18 . @B@@@@ ER CSF$ EZ )@@G@@ . @B@@@@ SA A0,*2,X11 . @B@@@@ FA )@@G@@ J 4,X11 . @#@@@@ END ___@[ R;:@@@FB )@@G@@?@)^<(%0V@@@/KE@@@R#)^1Y*[@@@@*SDFF*@D@@@@ SUBROUTINE GRAB(BUF,N1,NFC )@@G@@2,LIM,DEL,STR,N,LOC) @ @@@@ IMPLICIT INTEGER (A-Z) @ @@@@ FD )@@G@@DIMENSION BUF(1),STR(1) @^@@@@ STR(1)=' ' @]@@@@ N=0 FE )@@G@@@]@@@@ LOC=0 @^@@@@ DO 10 I=N1,N2 @A@@@@ IF(IGCL(BUF,FF )@@G@@I).EQ.' ')GO TO 10@]@@@@ LOC=I @#@@@@ GO TO 20 @#@@@@ 10 FG )@@G@@CONTINUE @#@@@@ GO TO 500 @#@@@@ 20 CONTINUE @^@@@@ FH )@@G@@NLIM=LOC+LIM-1 @ @@@@ IF(NLIM.GT.N2)NLIM=N2 @^@@@@ DO 30 FI )@@G@@I=LOC,NLIM @#@@@@ C=IGC(BUF,I)@ @@@@ IF(C.EQ.DEL)GO TO 35 FJ )@@G@@@^@@@@ IF(C.EQ.5)GO TO 35@]@@@@ N=N+1 @^@@@@ CALL PUTC(C,FK )@@G@@STR,N)@#@@@@ 30 CONTINUE @#@@@@ 35 CONTINUE @]@@@@ 500 RETURNFL )@@G@@@]@@@@ END ___^=$/%0^$8/%0^=*9(@^*Q/K@^=*9(@^[O/K@^=*[[@^*W/K@^=*FM )@@G@@[[@^*S/K@^=*[[@^*U/K@^=*9(G@@]%80@@./K@^=*9!@^!P9(@^!-/K@^=*9(G@@AR#K@[ FN )@@G@@*[S@@@*SDFF*@E@@@@. ***** WARNING ***** THIS PROGRAM D BANK MUST RESIDE FO )@@G@@IN THE@F@@@@. MAIN SEGMENT (ALWAYS RESIDENT) IF CALLFP )@@G@@ TO @G@@@@. INFOR WILL BE MIXED WITH OVERLAYING SEFQ )@@G@@GMENTS. @[@@@@. @A@@@@. CALL INFOR(NSPEC,BUF12,BUF8,FLAG)@[@@@@FR )@@G@@. @C@@@@. CALL INFORX (NSPEC,BUF12,BUF8,FLAG,FILE ) @[@@@@. FS )@@G@@@ @@@@. CALL INUSE ( NSPEC,FILE ) @D@@@@. OR ISTAT=INUSE ( NSPEC,FILEFT )@@G@@ ) ISTAT=CSF$ STATUS @E@@@@. INFORX AND INUSE DOES DUSE$ ON SFU )@@G@@PEC JUST PROCESSED@B@@@@. INFOR DOES NOT DO DUSE$ ON SPEC @[@@@@FV )@@G@@. @[@@@@. @E@@@@. NSPEC - (INPUT) THE SPEC NUMBER TO GET (FW )@@G@@1,2,...N) @F@@@@. BUF12 - (OUTPUT) A 12 WORD ARRAY CONTAINING INFX )@@G@@FORMATION @B@@@@. ABOUT THE DESIRED SPEC. @D@@@@. FY )@@G@@ WORDS 1 - 2 FILE QUALIFIER @C@@@@. FZ )@@G@@ WORDS 3 - 4 FILE NAME @C@@@@. WORD 5 GA )@@G@@ FILE CYCLE@C@@@@. WORD 6 READ KEY @C@@@@GB )@@G@@. WORD 7 WRITE KEY @D@@@@. GC )@@G@@ WORDS 8 - 9 ELEMENT NAME @D@@@@. WORDS 10GD )@@G@@ - 11 VERSION NAME @D@@@@. WORD 12 ELEMGE )@@G@@ENT CYCLE @E@@@@. BUF8 - (OUTPUT) AN 8 WORD ARRAY GIVING THE NGF )@@G@@UMBER @F@@@@. OF CHARACTERS FOUND IN EACH ITEM. THE VALUGG )@@G@@E @C@@@@. WILL BE 0 IF NO ITEM IS FOUND. @F@@@@. GH )@@G@@ FLAG - (OUTPUT) A ONE WORD FLAG OF 0 OR 1 TELLING IF @E@@@@. GI )@@G@@ ANYTHING WAS FOUND IN THE DESIRED SPEC. @C@@@@. GJ )@@G@@ 0 = NO ITEMS FOUND IN THIS SPEC@E@@@@. 1 = AT LEAST GK )@@G@@1 ITEM FOUND IN THIS SPEC. @[@@@@. @E@@@@. FILE - (INPUT) IGL )@@G@@NTERNAL FILE NAME (DUSE$) 2 WORDS @[@@@@. @[@@@@. @C@@@@. GM )@@G@@ FLAG1=0 STORE BUF12/BUF8 VALUES @D@@@@. FLAG1=1 DO NGN )@@G@@OT STORE BUF12/BUF8 VALUES @B@@@@. FLAG2=0 DO NOT DUSE$ (INGO )@@G@@FOR) @C@@@@. FLAG2=1 DO DUSE$ (INFORX/INUSE) @[@@@@ . GP )@@G@@@F@@@@ . SPECIAL NOTE! THE FIRST READ MUST BE PERFORMED BY ONE OF THE GQ )@@G@@@F@@@@ . ROUTINES OF THIS PACKAGE . THIS IS SO BECAUSE GR )@@G@@@D@@@@ . IT NEEDS TO BUILD THE INFOR TABLE. @E@@@@. ( GS )@@G@@ALL ROUTINES WILL BUILD AN INFOR TABLE EXCEPT INBUF ) @[@@@@ . @[@@@@GT )@@G@@. @[@@@@. @B@@@@. CALL NXELT(NSPEC,BUFF6,ICOUNT) @[@@@@GU )@@G@@. @B@@@@. CALL NXFILE(NSPEC,BUFF8,ICOUNT) @[@@@@. @B@@@@GV )@@G@@. CALL ELTFIL(NSPEC,BUFF15,ICOUNT)@[@@@@. @B@@@@. CAGW )@@G@@LL INBUF(BUFF SIZE,BUFFER) @[@@@@. @C@@@@. NSPEC - (INPUTGX )@@G@@) THE SPEC NUMBER TO GET@F@@@@. BUFF6 - (OUTPUT) 6 WORD OUTPUT MGY )@@G@@AX (EDITED ELEMENT NAME)@F@@@@. BUFF8 - (OUTPUT) 8 WORD OUTPUT MGZ )@@G@@AX (EDITED FILE NAME) @G@@@@. BUFF15 - (OUTPUT) 15 WORD OUTPUTHA )@@G@@ MAX (EDITED FILE.ELT NAME) @[@@@@. @G@@@@. NOTE: THE INFOHB )@@G@@R PROGRAM ONLY FILLS THE BUFFERS IN SEQ. IT @F@@@@. DOES NOTHC )@@G@@ BLANK THE REMAINING UNFILLED WORDS. THEREFORE @F@@@@. IT IS THHD )@@G@@E USERS RESPONSIBILITY TO BLANK OUT HIS BUFFERS @E@@@@. BEFOR CAHE )@@G@@LLING NXELT OR NXFILE OR ELTFIL ROUTINES. @[@@@@. @G@@@@. ICHF )@@G@@OUNT - (OUTPUT) NUMBER OF CHARACTERS IN THE EDITED NAME @G@@@@. HG )@@G@@ BUFF SIZE - SIZE OF THE BUFFER FOR USERS INFOR TABLE MUST @ @@@@HH )@@G@@. BE 27*N+1 IN SIZE @[@@@@. @I@@@@. BUFFER - BUFFEHI )@@G@@R WHERE INFOR TABLE WILL BE WRITTEN (1ST WORD INT TO 0) @[@@@@. HJ )@@G@@@F@@@@. NOTE: IF INBUF IS USED IT MUST PRECEED ALL OTHER CALL TOHK )@@G@@@G@@@@. INFOR ROUTINES AND IF NOT USED 55 WORDS WILL BE DEFAULT HL )@@G@@SIZE @ @@@@. OF INFOR TABLE. @#@@@@ AXR$ . @[@@@@HM )@@G@@$(1) .@F@@@@NXELT* L,U A0,1 . GET ONLY EDITED ELTHN )@@G@@ NAME @D@@@@ SA A0,FLAG3 . SET FLAG3=1 @B@@@@HO )@@G@@ J NEXT . @F@@@@NXFILE* L,U A0,2 HP )@@G@@ . GET ONLY EDITED FILE NAME@D@@@@ SA A0,FLHQ )@@G@@AG3 . SET FLAG3=2 @B@@@@ J NEXT HR )@@G@@ . @F@@@@ELTFIL* L,U A0,3 . GET EDITED FILE.ELTHS )@@G@@ NAME @D@@@@ SA A0,FLAG3 . SET FLAG3=3 @F@@@@HT )@@G@@NEXT L,U A0,1 . TURN OFF OTHER FLAGS @B@@@@HU )@@G@@ S A0,FLAG1 . @B@@@@ SZ FLAG2HV )@@G@@ . @B@@@@ J STRT . @G@@@@HW )@@G@@INBUF* LA,H2 A0,0,X11 . CHANGE POINTER FOR INFOR TABLE HX )@@G@@@E@@@@ LXI A0,*1,X11 . TO USERS BUFFER @B@@@@HY )@@G@@ SA A0,W1 . @C@@@@ J 3,X11HZ )@@G@@ . RETURN @B@@@@INUSE* . . IA )@@G@@@B@@@@ L,U A0,1 . @F@@@@ S IB )@@G@@ A0,FLAG1 . DO NOT STORE BUF12/BUF8 @C@@@@ S IC )@@G@@ A0,FLAG2 . DO DUSE$@^@@@@ SZ FLAG3@B@@@@ ID )@@G@@ J STRT . @]@@@@INFORX* . @B@@@@ L,IE )@@G@@U A0,1 . @C@@@@ S A0,FLAG2 IF )@@G@@ . DO DUSE$@^@@@@ SZ FLAG3@F@@@@ SZ FLAGIG )@@G@@1 . STORE BUF12/BUF8 VALUES @B@@@@ J STRTIH )@@G@@ . @]@@@@INFOR* . @F@@@@ SZ FLAG1 II )@@G@@ . STORE BUF12/BUF8 VALUES @D@@@@ SZ FLAG2 IJ )@@G@@ . DO NOT DUSE$ @^@@@@ SZ FLAG3@B@@@@STRT S IK )@@G@@ X1,H . @B@@@@ S X2,H+1 IL )@@G@@ . @B@@@@ S X3,H+2 . @B@@@@ S IM )@@G@@ X11,H+3 . @F@@@@ TZ FLAG1 IN )@@G@@ . STORE BUF12/BUF8 VALUES @B@@@@ J NN IO )@@G@@ . NO@D@@@@ L X1,1,X11 . X1=A(BUF12) @B@@@@IP )@@G@@ LXI,U X1,1 . @B@@@@ L,U X2,1IQ )@@G@@1 . @B@@@@ L A0,BLANK . @D@@@@IR )@@G@@ S A0,0,*X1 . BLANK BUF12 @B@@@@ JGIS )@@G@@D X2,$-1 . @D@@@@ LXM X1,2,X11 IT )@@G@@ . X1=A(BUF8) @B@@@@ L,U X2,7 . @D@@@@IU )@@G@@ SZ 0,*X1 . ZERO BUF8 @B@@@@ JGIV )@@G@@D X2,$-1 . @C@@@@ SZ *3,X11 IW )@@G@@ . FLAG=0 @F@@@@NN L,H2 A0,W1 . HAS RINF$ BEENIX )@@G@@ CALLED @ @@@@ L A0,0,A0 @C@@@@ JNZ IY )@@G@@ A0,NN1 . YES @B@@@@ L A0,W1 IZ )@@G@@ . NO@B@@@@ LMJ X11,RINF$ . @C@@@@ J JA )@@G@@ VV . ERROR @B@@@@ L X11,H+3 JB )@@G@@ . @]@@@@NN1 . @D@@@@ L A0,*0,X11 JC )@@G@@ . SPEC. NO. @B@@@@ LMJ X11,SELT$ . @C@@@@JD )@@G@@ J OUT . NO FIND @D@@@@ TNZ JE )@@G@@ FLAG3 . FLAG3 SET? @C@@@@ J NN3 JF )@@G@@ . NO @C@@@@ L X11,H+3 . YES JG )@@G@@@B@@@@ L A0,1,X11 . @B@@@@ L JH )@@G@@ A1,2,X11 . @B@@@@ L A3,1,X11 . JI )@@G@@@B@@@@ DS A0,BUFF . @B@@@@ S JJ )@@G@@ X5,SAVREG . @B@@@@ L A5,FLAG3 . JK )@@G@@@E@@@@ TNE,U A5,1 . WANT JUST ELT NAME @C@@@@JL )@@G@@ LMJ X11,ELEMT$N . YES @C@@@@ L JM )@@G@@ A5,FLAG3 . NO @F@@@@ TE,U A5,2 JN )@@G@@ . WANT JUST FILE NAME? @C@@@@ J $+5 JO )@@G@@ . NO @C@@@@ DL A0,DUMMY+2 . YES @E@@@@JP )@@G@@ LMJ X11,DUSE$ . GET FILE NAME @B@@@@ JQ )@@G@@ L A0,(4,DUMMY) . @B@@@@ ER CSF$ JR )@@G@@ . @B@@@@ L A5,FLAG3 . @G@@@@ JS )@@G@@ TE,U A5,3 . WANT EDITED FILE.ELT NAME? @B@@@@JT )@@G@@ J COUNT$ . NO@E@@@@ DL A0,DUJU )@@G@@MMY+2 . YES GET FILE NAME @B@@@@ LMJ X11,DUSE$ JV )@@G@@ . @B@@@@ L A0,(4,DUMMY) . @B@@@@ JW )@@G@@ ER CSF$ . @D@@@@ LMJ X11,ELEMT$NJX )@@G@@ . GET ELT NAME @B@@@@ L,U A0,FILE$ . JY )@@G@@@G@@@@ L A3,BUFF . LOAD OUTPUT BUFFER ADDREJZ )@@G@@SS @F@@@@ LMJ X11,ED$IT$X . EDIT FILE NAME TO BKA )@@G@@UFFER @D@@@@ L,U A4,'.' . ADD '.' @B@@@@KB )@@G@@ NOP 0,0,*X5 . @B@@@@ EX STOREKC )@@G@@,*A2 . @F@@@@ L,U A0,ELIST$ . EDIT ELKD )@@G@@T NAME TO BUFFER @B@@@@ LMJ X11,ED$IT$ . @B@@@@KE )@@G@@ S,H2 X5,*BUFF+1 . @B@@@@ J OUT3 KF )@@G@@ . @H@@@@COUNT$ L A0,FLAG3 . MOVE ELKG )@@G@@T OR FILE NAME TO BUFFER @G@@@@ TE,U A0,1 KH )@@G@@ . AND COUNT # OF CHAR IN STRING @F@@@@ J EFILEX KI )@@G@@ . FILE NAME TO BUFFER JUMP @E@@@@ L,U A0,ELIST$ KJ )@@G@@ . ELT NAME TO BUFFER @B@@@@ L A3,BUFF KK )@@G@@ . @B@@@@ LMJ X11,ED$IT$X . @B@@@@ S,KL )@@G@@H2 X5,*BUFF+1 . @B@@@@ J OUT3 KM )@@G@@ . @F@@@@EFILEX L,U A0,FILE$ . FILE NAME TO BUFFERKN )@@G@@ @E@@@@ L A3,BUFF . GET BUFFER ADDRESS KO )@@G@@@D@@@@ LMJ X11,ED$IT$X . EDIT IT @B@@@@ KP )@@G@@ S,H2 X5,*BUFF+1 . @B@@@@ J OUT3 KQ )@@G@@ . @F@@@@ED$IT$X L A2,(01,0) . INITIAL EDIT KR )@@G@@ENTRY POINT @B@@@@ L X5,(01,0) . @G@@@@ED$IT$KS )@@G@@ DSL A0,18 . CONTINUATION EDIT ENTRY POINT @B@@@@KT )@@G@@ SSL A1,18 . @B@@@@ED1 LXI,U A0,1 KU )@@G@@ . @B@@@@ LXI,U A1,1 . @B@@@@KV )@@G@@ LXI,U A3,1 . @B@@@@ED2 EX EDITLKW )@@G@@X,*A0 . @B@@@@ TNE,U A4,' ' . @B@@@@KX )@@G@@ J ED3 . @B@@@@ EX STOREKY )@@G@@,*A2 . @B@@@@ NOP 0,0,*X5 . @B@@@@KZ )@@G@@ J ED2 . @B@@@@ED3 J 0,X11LA )@@G@@ @B@@@@EDITLX LA,S1 A4,,A1 . @B@@@@LB )@@G@@ LA,S2 A4,,A1 . @B@@@@ LA,S3 A4,,ALC )@@G@@1 . @B@@@@ LA,S4 A4,,A1 . @B@@@@LD )@@G@@ LA,S5 A4,,A1 . @B@@@@ LMJ A0,$+LE )@@G@@1 . @B@@@@ LA,S6 A4,,*A1 . @B@@@@LF )@@G@@ SA,H2 A0,RETURN . @B@@@@ LXM,U A0,0 LG )@@G@@ . @B@@@@ J *RETURN . @B@@@@LH )@@G@@RETURN +0 . @B@@@@STORE SA,S1 A4,,ALI )@@G@@3 . @B@@@@ SA,S2 A4,,A3 . @B@@@@LJ )@@G@@ SA,S3 A4,,A3 . @B@@@@ SA,S4 A4,,ALK )@@G@@3 . @B@@@@ SA,S5 A4,,A3 . @B@@@@LL )@@G@@ LMJ A2,$+1 . @B@@@@ SA,S6 A4,,*LM )@@G@@A3 . @B@@@@ SA,H2 A2,RETURN . @B@@@@LN )@@G@@ LXM,U A2,0 . @B@@@@ J *RETULO )@@G@@RN . @F@@@@ELEMT$N . BUILD ELP )@@G@@LT NAME ROUTINE @G@@@@ DL A0,(' ') . BLANK BLQ )@@G@@UFFERS ELIST$ + ELEMT @B@@@@ DS A0,ELIST$ . LR )@@G@@@B@@@@ DS A0,ELIST$+2 . @B@@@@ DS LS )@@G@@ A0,ELIST$+4 . @B@@@@ DS A0,ELEMT . LT )@@G@@@B@@@@ DS A0,ELEMT+2 . @B@@@@ DS LU )@@G@@ A0,ELEMT+4 . @B@@@@ DS A0,ELEMT+6 . LV )@@G@@@D@@@@ TNZ,S1 ELT$+1 . ELT NAME? @D@@@@ LW )@@G@@ J 0,X11 . NO ELT NAME @E@@@@ DL LX )@@G@@ A0,ELT$+9 . YES LOAD ELT NAME @B@@@@ DS A0,ELLY )@@G@@EMT . @E@@@@ TNZ,S2 ELT$+1 . LOAD VELZ )@@G@@RSION? @C@@@@ J ECYCLE . NO @C@@@@MA )@@G@@ L A0,(' /') . YES @B@@@@ S MB )@@G@@ A0,ELEMT+2 . @B@@@@ DL A0,ELT$+11 . MC )@@G@@@B@@@@ DS A0,ELEMT+3 . @D@@@@ECYCLE TNZ,S3 MD )@@G@@ ELT$+1 . ELT CYCLE? @C@@@@ J PROCESS ME )@@G@@ . NO @H@@@@ L A0,(' (') . YES THEMF )@@G@@N LOAD '(' AND CYCLE AND ')' @B@@@@ L A1,ELT$+13 MG )@@G@@ . @B@@@@ DS A0,ELEMT+5 . @B@@@@ L MH )@@G@@ A0,(') ') . @B@@@@ S A0,ELEMT+7 MI )@@G@@ . @F@@@@PROCESS L A0,(01,0) . PACK THE BUFFER REMMJ )@@G@@OVING @E@@@@ L A1,(01,0) . ALL INBEDED BLANKS MK )@@G@@@B@@@@ L A2,(01,0) . @B@@@@ L,U ML )@@G@@ R1,8 .. @ @@@@LOOP1 JGD R1,$+2 @^@@@@ MM )@@G@@ J 0,X11@A@@@@ L A4,ELEMT,*A0 @^@@@@ MN )@@G@@ L,U R2,6 @ @@@@LOOP2 JGD R2,$+2 @^@@@@ J MO )@@G@@ LOOP1@^@@@@ SZ A3 @^@@@@ LDSL A3,6 MP )@@G@@@ @@@@ TE,U A3,' ' @ @@@@ EX XQT,*A1 MQ )@@G@@@ @@@@ TNE A1,(01,06) @ @@@@ NOP 0,0,*A2 MR )@@G@@@ @@@@ TNE A1,(01,06) @ @@@@ L A1,(01,0) MS )@@G@@@^@@@@ J LOOP2@A@@@@XQT S,S1 A3,ELIST$,A2 MT )@@G@@@A@@@@ S,S2 A3,ELIST$,A2 @A@@@@ S,S3 A3,ELMU )@@G@@IST$,A2 @A@@@@ S,S4 A3,ELIST$,A2 @A@@@@ S,MV )@@G@@S5 A3,ELIST$,A2 @A@@@@ S,S6 A3,ELIST$,A2 @[@@@@MW )@@G@@$(2). @]@@@@SAVREG +0@A@@@@DUMMY '@FREE,A DUMMY$TAG$1$'@^@@@@MX )@@G@@BUFF RES 2 @]@@@@FLAG3 +0@^@@@@ELIST$* RES 6 MY )@@G@@@^@@@@ELEMT RES 8 @[@@@@$(1). @[@@@@NN3 @B@@@@ L MZ )@@G@@ X11,H+3 . @F@@@@ TZ FLAG1 NA )@@G@@ . STORE BUF12/BUF8 VALUES @B@@@@ J OUT NB )@@G@@ . NO@B@@@@ L,U A0,1 . @C@@@@ S NC )@@G@@ A0,*3,X11 . FLAG=1 @D@@@@ L X1,1,X11 ND )@@G@@ . X1=A(BUF12) @B@@@@ LXI,U X1,1 . NE )@@G@@@D@@@@ L,U X2,ELT$+2 . X2=A(ELT$+2) @B@@@@ NF )@@G@@ LXI,U X2,1 . @C@@@@ L,U X3,11 NG )@@G@@ . X3=11 @H@@@@NN2 L A0,0,*X2 . TRANSFERNH )@@G@@ ELT$+2 (12 WORDS) TO BUF12 @B@@@@ JNZ A0,$+2 NI )@@G@@ . @B@@@@ L A0,BLANK . @B@@@@ S NJ )@@G@@ A0,0,*X1 . @B@@@@ JGD X3,NN2 NK )@@G@@ . @D@@@@ LXM X1,2,X11 . X1=A(BUF8) @B@@@@NL )@@G@@ L,U X2,7 . @B@@@@ EX LD,XNM )@@G@@2 . @F@@@@ S A0,0,*X1 . STORE NONN )@@G@@. CHAR. IN BUF8 @B@@@@ JGD X2,$-2 . @]@@@@NO )@@G@@OUT . @B@@@@ L X11,H+3 . @^@@@@ NP )@@G@@ TZ FLAG3@ @@@@ SZ *2,X11 @C@@@@ TNNQ )@@G@@Z FLAG2 . DO DUSE$@B@@@@ J OUT3 NR )@@G@@ . NO@B@@@@ L A0,FLAG1 . @B@@@@ NS )@@G@@ JNZ A0,OUT1 . @E@@@@ DL A0,*4,X11 NT )@@G@@ . A0-A1=FILE NAME @B@@@@ J OUT2 NU )@@G@@ . @B@@@@OUT1 DL A0,*1,X11 . @B@@@@OUT2 LMNV )@@G@@J X11,DUSE$ . @]@@@@OUT3 . @ @@@@ L NW )@@G@@ X5,SAVREG @B@@@@ L X1,H . @B@@@@ NX )@@G@@ L X2,H+1 . @B@@@@ L X3,H+2 NY )@@G@@ . @B@@@@ L X11,H+3 . @^@@@@ NZ )@@G@@ TZ FLAG3@^@@@@ J 4,X11@B@@@@ TZ OA )@@G@@ FLAG1 . @E@@@@ J 3,X11 . INOB )@@G@@USE EXIT FLAG1=1 @B@@@@ TZ FLAG2 . @G@@@@OC )@@G@@ J 6,X11 . INFORX EXIT FLAG1=0 FLAG2=1 OD )@@G@@@E@@@@ J 5,X11 . INFOR EXIT FLAG1+2=0@[@@@@OE )@@G@@VV . @B@@@@ ER PRINT$ . @C@@@@ SAOF )@@G@@ A0,SS+2 . FOR SNAP@C@@@@ LA,U A0,SS . OG )@@G@@ FOR SNAP@ @@@@ ER SNAP$ . @ @@@@ EROH )@@G@@ EXIT$ . @[@@@@$(0) .@]@@@@LD . @B@@@@ L,S3 OI )@@G@@ A0,ELT$+1 . @B@@@@ L,S2 A0,ELT$+1 . OJ )@@G@@@B@@@@ L,S1 A0,ELT$+1 . @B@@@@ L,S5 OK )@@G@@ A0,ELT$ . @B@@@@ L,S4 A0,ELT$ . OL )@@G@@@B@@@@ L,S3 A0,ELT$ . @B@@@@ L,S2 OM )@@G@@ A0,ELT$ . @B@@@@ L,S1 A0,ELT$ . ON )@@G@@@^@@@@W1 +56,BUFA . @#@@@@BUFA +0 . @#@@@@ REOO )@@G@@S 55 .@^@@@@BLANK ' ' . @#@@@@H RES 4 . @^@@@@CWD OP )@@G@@ +010100 . @#@@@@TEST1 +0 . @#@@@@SS 'INFOR' @^@@@@OQ )@@G@@ +0700035,W1 . @#@@@@ +0 . @B@@@@FLAG1 + OR )@@G@@ 0 . @B@@@@FLAG2 + 0 . OS )@@G@@@#@@@@ END ___T$+2 (12 WORDS) TO BUF12 @B@@@@ JNOT )@@G@@Z A0,$+2 *[@@@@*SDFF*@^@@@@ AXR$ . @[@@@@OU )@@G@@$(1) .@]@@@@OPRIME* . @[@@@@ . @^@@@@ . CALL OPRIME(BUF,N) @C@@@@OV )@@G@@ . BUF IS THE AREA TO BUILD IMAGE INTO @B@@@@ . N IS THE NOW )@@G@@UMBER OF WORDS IN BUF @[@@@@ . @B@@@@ LA A1,*1,X11 OX )@@G@@ . @B@@@@ SA,S3 A1,OPK . @B@@@@ OY )@@G@@ LA,H2 A2,0,X11 . @B@@@@ SA,H2 A2,OPK OZ )@@G@@ . @ @@@@ SX X11,X11S . @ @@@@ LA,U PA )@@G@@ A0,OPK. @ @@@@ LMJ X11,EDIT$ .@B@@@@ LMJ PB )@@G@@ X11,EDITX$ . @B@@@@ LX X11,X11S . PC )@@G@@@B@@@@ J 3,X11 . @]@@@@OPRINT* . @B@@@@PD )@@G@@ LA A0,*0,X11 . @B@@@@ SA A0,OPPE )@@G@@FLG . @B@@@@ SLJ OPRNT . @B@@@@PF )@@G@@ J 2,X11 . @[@@@@. @ @@@@. CALL PUNCPG )@@G@@H - PUNCH IMAGE @[@@@@. @]@@@@OPUNCH* . @B@@@@ L,U PH )@@G@@ A0,0 . @B@@@@ S A0,OPFLG . PI )@@G@@@B@@@@ L A0,( ER PUNCH$) . @B@@@@ S PJ )@@G@@ A0,OPRNTA . @B@@@@ SLJ OPRNT . PK )@@G@@@B@@@@ L A0,( ER PRINT$) . @B@@@@ S PL )@@G@@ A0,OPRNTA . @B@@@@ J 1,X11 . PM )@@G@@@[@@@@ . @[@@@@ . @^@@@@ . CALL OPCHAR('X') @F@@@@ . DECLARPN )@@G@@E THE CHARACTER X TO BE NEW STRING TERM CHARACTER @[@@@@ . @]@@@@PO )@@G@@OPCHAR* . @B@@@@ LA,S1 A0,*0,X11 . @B@@@@ PP )@@G@@ SA,S2 A0,OPK . @B@@@@ J 2,X11 PQ )@@G@@ . @[@@@@ . @#@@@@ . CALL OPCOL(CP) @B@@@@ . OBTAIN CURREPR )@@G@@NT COLUMN POSITION IN CP@[@@@@ . @B@@@@OPCOL* LA,S2 A0,OPK+1 PS )@@G@@ . @B@@@@ MI,U A0,6 . @B@@@@ PT )@@G@@ AA,S1 A1,OPK+1 . @B@@@@ AA,U A1,1 PU )@@G@@ . @B@@@@ SA A1,*0,X11 . @B@@@@ PV )@@G@@ J 2,X11 . @[@@@@ . @[@@@@ . @H@@@@OPAF* PW )@@G@@ L A4,NEG . MGC PX )@@G@@@H@@@@ J LOC45 . PY )@@G@@ MGC @H@@@@OPAFP* L A4,*0,X11 . PZ )@@G@@ MGC @H@@@@ AX,U X11,1 . QA )@@G@@ MGC @H@@@@LOC45 L,U A3,3 QB )@@G@@ . MGC @H@@@@ J QC )@@G@@ LOC1 . MGC @B@@@@OPA* QD )@@G@@ LA A4,NEG . @B@@@@ J LOC50 QE )@@G@@ . @B@@@@OPAP* LA A4,*0,X11 . @B@@@@ QF )@@G@@ AX,U X11,1 . @B@@@@LOC50 LA,U A3,2 QG )@@G@@ . @B@@@@ J LOC1 . @B@@@@OPO* QH )@@G@@ LA A4,NEG . @B@@@@ J LOC55 QI )@@G@@ . @B@@@@OPOP* LA A4,*0,X11 . @B@@@@ QJ )@@G@@ AX,U X11,1 . @B@@@@LOC55 LA,U A3,1 QK )@@G@@ . @B@@@@ J LOC1 . @B@@@@OPI* QL )@@G@@ LA A4,NEG . @B@@@@ J LOC60 QM )@@G@@ . @B@@@@OPIP* LA A4,*0,X11 . @B@@@@ QN )@@G@@ AX,U X11,1 . @B@@@@LOC60 LA,U A3,0 QO )@@G@@ . @B@@@@LOC1 SA A4,OPFLG . @ @@@@ QP )@@G@@ SA A3,TYPE @B@@@@ LA A1,*0,X11 . QQ )@@G@@@B@@@@ JP A1,LOC1B . @B@@@@ LA,H2 QR )@@G@@ A2,OPK . @B@@@@ SA,H2 A2,LOC1A . QS )@@G@@@B@@@@ LA,S3 A3,OPK . @B@@@@ ANA,U QT )@@G@@ A3,1 . @B@@@@ LA A0,OPBLK . QU )@@G@@@B@@@@LOC1A SA A0,$-$,A3 . @B@@@@ JGD QV )@@G@@ A3,LOC1A . @B@@@@ SZ,T1 OPK+1 . QW )@@G@@@B@@@@ J LOC3 . @B@@@@LOC1B JZ QX )@@G@@ A1,LOC3 . @B@@@@ TE,U A1,1 . QY )@@G@@@B@@@@ J LOC2 . @B@@@@ SZ,T1 QZ )@@G@@ OPK+1 . @B@@@@ J LOC3 . RA )@@G@@@B@@@@LOC2 LA,U A0,0 . @B@@@@ ANA,U RB )@@G@@ A1,1 . @B@@@@ DI,U A0,6 . RC )@@G@@@B@@@@ SA,S2 A0,OPK+1 . @B@@@@ SA,S1 RD )@@G@@ A1,OPK+1 . @B@@@@LOC3 SX X11,X11S . RE )@@G@@@B@@@@ LA,U A0,OPK . @B@@@@ LMJ RF )@@G@@ X11,EDITR$ . @B@@@@ LX X11,X11S . RG )@@G@@@B@@@@ LA A0,TYPE . @B@@@@ TE,U RH )@@G@@ A0,2 . @B@@@@ J LOC4 . RI )@@G@@@B@@@@ LA,H2 A0,1,X11 . @B@@@@ LMJ RJ )@@G@@ X11,EMSG$ . @B@@@@ LMJ X11,EDITX$ . RK )@@G@@@B@@@@ SLJ OPRNT . @B@@@@ LX RL )@@G@@ X11,X11S . @B@@@@ J 3,X11 . RM )@@G@@@B@@@@LOC4 SX X4,X4S . @B@@@@ SX RN )@@G@@ X5,X5S . @B@@@@ LX,H2 X4,1,X11 . RO )@@G@@@B@@@@ LXI,U X4,1 . @B@@@@ LA RP )@@G@@ A0,*2,X11 . @B@@@@ SA A0,FW . RQ )@@G@@@B@@@@ TNZ,H1 3,X11 . @B@@@@ J RR )@@G@@ LOC5 . @B@@@@ LX,U X5,0 . RS )@@G@@@B@@@@ SZ SP . @B@@@@ J RT )@@G@@ LOC6 . @B@@@@LOC5 LX X5,*3,X11 . RU )@@G@@@B@@@@ ANX,U X5,1 . @B@@@@ LA RV )@@G@@ A0,*4,X11 . @B@@@@ SA A0,SP . RW )@@G@@@B@@@@ AX,U X11,2 . @B@@@@ SX RX )@@G@@ X11,X11S . @B@@@@LOC6 TNZ SP . RY )@@G@@@B@@@@ J LOC8 . @B@@@@ LA RZ )@@G@@ A1,SP . @B@@@@ JN A1,LOC7 . SA )@@G@@@B@@@@ LA,U A0,OPBLK . @B@@@@ LMJ SB )@@G@@ X11,ECOPY$ . @B@@@@ J LOC8 . SC )@@G@@@B@@@@LOC7 LNA A0,SP . @B@@@@ LMJ SD )@@G@@ X11,ESKIP$ . @B@@@@LOC8 LA A1,FW . SE )@@G@@@H@@@@ L A0,TYPE . 0=I 1=O 3=ALPHA(FIXED) SF )@@G@@ MGC @H@@@@ JZ A0,LOC8A . SG )@@G@@ MGC @H@@@@ TLE,U A0,2 . SH )@@G@@ MGC @H@@@@ J LOC9 SI )@@G@@ . MGC @H@@@@ L,U SJ )@@G@@ A0,0,*X4 . MGC @H@@@@ SK )@@G@@ LMJ X11,ECOPY$ . MGC SL )@@G@@@H@@@@ J LOC10 . SM )@@G@@ MGC @H@@@@LOC8A L A0,0,*X4 . SN )@@G@@ MGC @B@@@@ LMJ X11,EDECF$ . SO )@@G@@@B@@@@ J LOC10 . @B@@@@LOC9 TLE,U SP )@@G@@ A1,13 . @B@@@@ J LOC11 . SQ )@@G@@@B@@@@ LA,U A0,5 . @B@@@@ LMJ SR )@@G@@ X11,ECHAR$ . @B@@@@ JGD A1,LOC9 . SS )@@G@@@B@@@@LOC11 LA A0,0,*X4 . @B@@@@ LMJ ST )@@G@@ X11,EOCTF$ . @B@@@@LOC10 JGD X5,LOC6 . SU )@@G@@@B@@@@ LMJ X11,EDITX$ . @B@@@@ LX SV )@@G@@ X4,X4S . @B@@@@ LX X5,X5S . SW )@@G@@@B@@@@ SLJ OPRNT . @B@@@@ LX SX )@@G@@ X11,X11S . @B@@@@ J 4,X11 . SY )@@G@@@[@@@@ . @[@@@@ . @[@@@@$(0) .@[@@@@OPK* .@B@@@@ E$PKTF SZ )@@G@@ 22,0 . @#@@@@X4S +0 . @#@@@@X5S +0 . TA )@@G@@@#@@@@X11S +0 . @#@@@@TYPE +0 . @#@@@@FW +0 . TB )@@G@@@#@@@@SP +0 . @#@@@@OPFLG* +0 . @#@@@@NEG -1 . TC )@@G@@@B@@@@OPRNT* J $-$ . @B@@@@ LA TD )@@G@@ A0,OPFLG . @B@@@@ JN A0,OPRNT . TE )@@G@@@B@@@@ LA A1,OPK . @B@@@@ LSSL TF )@@G@@ A1,12 . @B@@@@ LDSL A0,24 . TG )@@G@@@B@@@@OPRNTA ER PRINT$ . @B@@@@ J TH )@@G@@ OPRNT . @]@@@@OPBLK* . @ @@@@ DO 22 , TI )@@G@@' ' . @#@@@@ END ___ A1,OPK+1 . @B@@@@ TJ )@@G@@ AA,U A1,1 . @B@@@@ SA A1,*0,X11 TK )@@G@@ . @B@@@@ J 2,X11 *[@@@@*SDFF*@^@@@@ TL )@@G@@SUBROUTINE PP @ @@@@ IMPLICIT INTEGER(A-Z) @B@@@@ COMMONTM )@@G@@ /A/BLNK,PERIOD,COMMA,SLASH,AT@ @@@@ COMMON /B/CNT1,CNT2,CNT3@C@@@@TN )@@G@@ COMMON /BUF/BUFF1(8),BUFF2(8),BUFF3(8) @E@@@@ COMMON /FS/DTO )@@G@@CTFLG,MERFLG,BRKFLG,PCHFLG,SAVFLG,SEQFLG @ @@@@ COMMON /H/HCARD(14TP )@@G@@) @A@@@@ DIMENSION PACK(14),PREP(14) @[@@@@C @A@@@@ TQ )@@G@@CALL MOVER(BLNK,0,HCARD,1,14) @^@@@@ HCARD(1)='@HDG,N' @ @@@@ TR )@@G@@CALL WDS2(HCARD,14) @A@@[@ IF(PCHFLG .EQ. 0)GO TO 1050 @ @@[@TS )@@G@@ CALL PUNCH(14,HCARD) @#@@[@1050 CONTINUE @A@@@@C PACK ATT )@@G@@ND PREP SPEC 2 FILE @^@@@@ PACK(1)='@PACK ' @^@@@@ PREP(1TU )@@G@@)='@PREP ' @^@@@@ DO 1060 I=2,14 @#@@@@ PACK(I)=BLNK@#@@@@TV )@@G@@1060 PREP(I)=BLNK@ @@@@ IF(CNT2.EQ.0)GO TO 1062 @B@@@@ CALL MTW )@@G@@VCHAR(BUFF2,1,PACK,10,CNT2) @B@@@@ CALL MVCHAR(BUFF2,1,PREP,10,CNTX )@@G@@T2) @#@@@@ GO TO 1063 @#@@@@1062 CONTINUE @A@@@@ CALL MTY )@@G@@VCHAR(BUFF2,1,PACK,10,5)@A@@@@ CALL MVCHAR(BUFF2,1,PREP,10,5)@^@@@@TZ )@@G@@1063 CALL WDS2(PACK,14)@^@@@@ CALL WDS2(PREP,14)@A@@@@ IF(PCHUA )@@G@@FLG.EQ.0)GO TO 1069 @ @@@@ CALL PUNCH(14,PACK) @ @@@@ UB )@@G@@CALL PUNCH(14,PREP) @#@@@@1069 CONTINUE @]@@@@ RETURN@]@@@@UC )@@G@@ END ___CJ2/K@ALJR@KCJ(]^@CJ'*@@CJ:/K@AN!/,2@@@/S@@@@@@@ !-@@@@@@UD )@@G@@@DFCM(@@@@@^@@)@@@_____"*[@@@@*SDFF*@^@@@@ SUBROUTINE PRTT @ @@@@UE )@@G@@ IMPLICIT INTEGER(A-Z) @B@@@@ COMMON /A/BLNK,PERIOD,COMMA,SLUF )@@G@@ASH,AT@ @@@@ COMMON /B/CNT1,CNT2,CNT3@C@@@@ COMMON /BUF/BUFF1(UG )@@G@@8),BUFF2(8),BUFF3(8) @E@@@@ COMMON /FS/DCTFLG,MERFLG,BRKFLG,PCHFUH )@@G@@LG,SAVFLG,SEQFLG @^@@@@ DIMENSION PRT(14) @^@@@@C PRT SPEC 2 FUI )@@G@@ILE @^@@@@ PRT(1)='@PRT,T' @^@@@@ DO 1060 I=2,14 @#@@@@UJ )@@G@@1060 PRT(I)=BLNK @ @@@@ IF(CNT2.EQ.0)GO TO 1062 @B@@@@ CALL MUK )@@G@@VCHAR(BUFF2,1,PRT,10,CNT2) @#@@@@ GO TO 1063 @#@@@@1062 CONTINUL )@@G@@UE @A@@@@ CALL MVCHAR(BUFF2,1,PRT,10,5) @^@@@@1063 CALL WDS2(PRUM )@@G@@T,14) @A@@@@ IF(PCHFLG.EQ.0)GO TO 1069 @^@@@@ CALL PUNCH(1UN )@@G@@4,PRT)@#@@@@1069 CONTINUE @]@@@@ RETURN@]@@@@ END ___^=*UO )@@G@@[[@^*S/K@^=*[[@^*U/K@^=*9(G@@]%80@@./K@^=*9!@^!P9(@^!-/K@^=*9(G@@AR#K@[ UP )@@G@@*[@@@@*SDFF*@ @@@@ SUBROUTINE PUNX(LOC) @[@@@@C @E@@@@C UQ )@@G@@THIS SUB CALLED FROM SUB 'IN' TO READ 'PUN' CARD. @E@@@@C OPTIONUR )@@G@@S AS DESCRIBED IN 8.2.12 (PAGES 8-25 TO 8-26) OF@A@@@@C UNIVAC PRM,US )@@G@@ UP 4144 REV 3. @E@@@@C N-OPTION (IN ADDITION TO ABOVE) PUNCH OUTUT )@@G@@PUT ONLY @C@@@@C S (PUNCH SYMBOLIC) IS DEFAULT OPTION @[@@@@UU )@@G@@C @ @@@@ IMPLICIT INTEGER(A-Z) @[@@@@C @B@@@@ COMMONUV )@@G@@ /A/BLNK,PERIOD,COMMA,SLASH,AT@ @@@@ COMMON /B/CNT1,CNT2,CNT3@C@@@@UW )@@G@@ COMMON /BUF/BUFF1(8),BUFF2(8),BUFF3(8) @^@@@@ COMMON /I/CAUX )@@G@@RD(14)@G@@@@ COMMON /PNCH/NOPT,PUNFLG,PUNCRD(14),SEQCHR,SEFLAG,SOPTUY )@@G@@,ROPT,ABSOPT@C@@@@ COMMON /PNCHI/IPUN,IP,KTR,PNCRD(14),PXFLAG@[@@@@UZ )@@G@@C @[@@@@C @[@@@@C @F@@@@ DATA NOPT/0/,PUNFLG/0/,PUNCRD/VA )@@G@@14*' '/,SEQCHR/' '/,SEFLAG/0/ @A@@@@ DATA SOPT/0/,ROPT/0/,ABSOPT/0/VB )@@G@@@^@@@@ DATA PXFLAG/0/ @[@@@@C @[@@@@C @[@@@@C @[@@@@VC )@@G@@C @D@@@@C PXFLAG=1, PUNCH AFTER COMPILATIONS, S FROM SPEC1@E@@@@VD )@@G@@C R & A FROM SPEC 2 @B@@@@C VE )@@G@@PUNFLG=2, PUNCH O/P ONLY, FROM SPEC1@E@@@@ PUNFLG=1 VF )@@G@@ @ PUNCH FLAG ON @G@@@@ LOC=LOC+3 VG )@@G@@ @ INCREMENT COL COUNTER @F@@@@ PUNCRD(1)='@PCH, ' VH )@@G@@ @ INITIALIZE PUNCRD @G@@@@ IP=6 VI )@@G@@ @ NEXT BLNK COL ON PUNCRD @[@@@@C @#@@@@25 CONTINVJ )@@G@@UE @G@@@@ CALL SCANBL(CARD,LOC,80,LC,$500) @ FIND NEXT NON-VK )@@G@@BLNK COL @F@@@@ LOC=LC+1 @ NEXT COLVL )@@G@@ NUMBER @[@@@@C @B@@@@ IF(IGCL(CARD,LC).EQ.'S')GO TO 50 VM )@@G@@@B@@@@ IF(IGCL(CARD,LC).EQ.'R')GO TO 55 @B@@@@ IF(IGCL(CARDVN )@@G@@,LC).EQ.'A')GO TO 60 @B@@@@ IF(IGCL(CARD,LC).EQ.'N')GO TO 65 VO )@@G@@@B@@@@ IF(IGCL(CARD,LC).EQ.',')GO TO 100 @#@@@@ GO TO 70 VP )@@G@@@[@@@@C @]@@@@50 SOPT=1@#@@@@ GO TO 25 @]@@@@55 ROPT=1VQ )@@G@@@#@@@@ GO TO 25 @#@@@@60 ABSOPT=1 @#@@@@ GO TO 25 VR )@@G@@@]@@@@65 NOPT=1@#@@@@ PUNFLG=0 @#@@@@ PUNFLG=0 @#@@@@VS )@@G@@ GO TO 25 @[@@@@C @#@@@@70 CONTINUE @F@@@@ IC=IGCVT )@@G@@(CARD,LC) @ GET CHAR ON RIGHT @E@@@@ CALL PVU )@@G@@UTC(IC,PUNCRD,IP) @ PUT IN OPTION @G@@@@ IP=IP+1 VV )@@G@@ @ NEXT BLNK COL ON PUNCRD @G@@@@ GO TO VW )@@G@@25 @ RETURN FOR NEXT OPTION @#@@@@100 VX )@@G@@CONTINUE @#@@@@ SEFLAG=1 @]@@@@ KTR=0 @B@@@@110 CALL SVY )@@G@@CANBL(CARD,LOC,80,LC,$500) @#@@@@ KTR=KTR+1 @ @@@@ IF(KTRVZ )@@G@@.GT.3)GO TO 115 @^@@@@ IC=IGC(CARD,LC) @ @@@@ CALL PUTC(ICWA )@@G@@,SEQCHR,KTR)@#@@@@ LOC=LC+1 @#@@@@ GO TO 110 @[@@@@C WB )@@G@@@#@@@@115 CONTINUE @G@@@@ CALL OPAP(1,-1,'ERROR, MORE THAN 3 SWC )@@G@@EQUENCE CHARS ON PUN CARD&') @E@@@@ CALL OPAP(1,-1,'SEQUENCE CHARSWD )@@G@@ WILL BE IGNORED&') @#@@@@ SEFLAG=0 @#@@@@ GO TO 500 WE )@@G@@@[@@@@C @#@@@@500 CONTINUE @F@@@@ IF((SOPT.NE.0).OR.(ROPT.WF )@@G@@NE.0).OR.(ABSOPT.NE.0))GO TO 520 @]@@@@ SOPT=1@#@@@@520 CONTINWG )@@G@@UE @#@@@@ IPUN=IP+10 @[@@@@C @]@@@@ RETURN@]@@@@ WH )@@G@@END ___CNT2,CNT3@C@@@@*[@@@@*SDFF*@ @@@@ SUBROUTINE SEQ(LOC) WI )@@G@@@B@@@@C GET OPTION FIELDS FROM SEQ CARD @ @@@@ IMPLICIT INTWJ )@@G@@EGER(A-Z) @^@@@@ COMMON /I/CARD(14)@C@@@@ COMMON /SEQX/SEQFLWK )@@G@@D(14),SEQI,SEQCRD(14) @B@@@@ COMMON /A/BLNK,PERIOD,COMMA,SLASH,ATWL )@@G@@@[@@@@C @A@@@@ CALL MOVER(BLNK,0,SEQFLD,1,14)@A@@@@ CALL MWM )@@G@@OVER(BLNK,0,SEQCRD,1,14)@]@@@@ I=0 @#@@@@ LOC=LOC+3 @F@@@@WN )@@G@@50 CALL SCANBL(CARD,LOC,72,CP,$100) @ GET NON-BLANK CHAR @]@@@@WO )@@G@@ I=I+1 @B@@@@ CALL MVCHAR(CARD,CP,SEQFLD,I,1) @#@@@@ WP )@@G@@LOC=CP+1 @ @@@@ IF(CP.LT.72)GO TO 50 @[@@@@C @A@@@@100 WQ )@@G@@CONTINUE @ GET COL 73-80 @]@@@@ SEQI=I@B@@@@ CALL MVCHAR(WR )@@G@@CARD,73,SEQCRD,73,8) @]@@@@ RETURN@]@@@@ END ___^*W/K@^=*WS )@@G@@[[@^*S/K@^=*[[@^*U/K@^=*9(G@@]%80@@./K@^=*9!@^!P9(@^!-/K@^=*9(G@@AR#K@[ WT )@@G@@*[@@@@*SDFF*@^@@@@ SUBROUTINE XXRF @ @@@@ IMPLICIT INTEGER(AWU )@@G@@-Z) @B@@@@ COMMON /A/BLNK,PERIOD,COMMA,SLASH,AT@ @@@@ COMMONWV )@@G@@ /B/CNT1,CNT2,CNT3@C@@@@ COMMON /BUF/BUFF1(8),BUFF2(8),BUFF3(8) WW )@@G@@@E@@[@ COMMON /FS/DCTFLG,MERFLG,BRKFLG,PCHFLG,SAVFLG,SEQFLG @ @@@@WX )@@G@@ DIMENSION XRFWD(14) @A@@@@ DATA (XRFWD(I),I=1,1)/'@XREF'/WY )@@G@@@#@@@@ DO 50 I=2,14@^@@@@50 XRFWD(I)=BLNK @E@@@@ IF(CNTWZ )@@G@@2.EQ.0)GO TO 1052 @ WAS THERE A SPEC 2 @F@@@@ CALL MVCHAR(XA )@@G@@BUFF2,1,XRFWD,19,CNT2) @ YES, MOVE FILE NAME @#@@@@ GO TO 1053 XB )@@G@@@F@@@@1052 CALL MVCHAR(BUFF2,1,XRFWD,19,5) @ NO, MOVE IN TPF$. XC )@@G@@@#@@@@1053 CONTINUE @ @@@@ CALL WDS2(XRFWD,14) @A@@[@ XD )@@G@@IF(PCHFLG .EQ. 0)GO TO 1054 @ @@[@ CALL PUNCH(14,XRFWD) @#@@@@XE )@@G@@1054 CONTINUE @]@@@@ RETURN@]@@@@ END ___BZJR@0BZK/K@AL\XF )@@G@@[[)CLR(@@@@M/K@AKE:9)@@L/K@ANA:9)@@N/K@AN6:9)@@V/K@AR$:9)@@S/K@AOC:9)@@DXG )@@G@@/K@AOP:9)@@U/K@AQU:9)@@W/K@AQ3:9)@@A/K@AR :9)@@I/K@ARD:9)@@O/K@AQ(:9)@@RXH )@@G@@*[S@@@*SDFF*@ @@@@ SUBROUTINE DCT(LOC,LC) @[@@@@C @ @@@@ XI )@@G@@IMPLICIT INTEGER(A-Z) @I@@@@ PARAMETER IST=600 , N=19 @ XJ )@@G@@ MGC 01C @B@@@@ COMMON /A/BLNK,PERXK )@@G@@IOD,COMMA,SLASH,AT@E@@@@ COMMON /FS/DCTFLG,MERFLG,BRKFLG,PCHFLG,SAVXL )@@G@@FLG,SEQFLG @C@@@@ COMMON /DXX/DCTOPT(2),DCTCRD(14),DFLAG @^@@@@XM )@@G@@ COMMON /I/CARD(14)@[@@@@C @#@@@@ DCTFLG=1 @#@@@@ XN )@@G@@LOC=LOC+3 @]@@@@ I=0 @]@@@@ J=1 @D@@@@ DFLAG=0 @XO )@@G@@ RESET TO 1 IF THERE ARE OPTIONS @^@@@@ DCTOPT(1)=' ' @^@@@@XP )@@G@@ DCTOPT(2)=' ' @[@@@@C @B@@@@50 CALL SCANBL(CARD,LOC,80,XQ )@@G@@LC,$100) @B@@@@ LOC=LC+1 @ NEXT COLUMN NUMBER @A@@@@ XR )@@G@@IC=IGCL(CARD,LC) @ GET CHAR@C@@@@ IF(IC.EQ.',')GO TO 50 @ IS XS )@@G@@IT A COMMA @]@@@@ I=I+1 @^@@@@ IF(I.LE.6)GO TO 70@^@@@@ XT )@@G@@IF(J.GE.2)GO TO 90@]@@@@ J=2 @]@@@@ I=1 @C@@@@70 IC=IGCXU )@@G@@(CARD,LC) @ GET CHAR ON RIGHT @A@@@@ CALL PUTC(IC,DCTOPT(J),IXV )@@G@@) @#@@@@ DFLAG=1 @#@@@@ GO TO 50 @[@@@@C @#@@@@XW )@@G@@90 DCTFLG=0 @G@@@@ CALL OPAP(1,-1,'MORE THAN 12 OPTIONS ON DCXX )@@G@@T CARD, CARD IGNORED&') @#@@@@100 CONTINUE @]@@@@ RETURN@]@@@@XY )@@G@@ END ___^[OD8)BC0@#@@@@^@)^@)^@)DK.AK)^@)@#@@@@^@)^@)^@)DC.AC)^@)XZ )@@G@@@F@@@@A80^@)^@)DD#B(DC9# [#CDMC)?D-# C)^@)^[@^[B*[S@@@*SDFF*@^@@@@ YA )@@G@@SUBROUTINE PSRABS @[@@@@C @D@@@@C PUNFLG IS NON-ZERO, PUNCH AFTEYB )@@G@@R COMPILATIONS @[@@@@C @ @@@@ IMPLICIT INTEGER(A-Z) @I@@@@YC )@@G@@ PARAMETER IST=600, N=19 @ YD )@@G@@MGC 01C @[@@@@C @B@@@@ COMMON /A/BLNK,PERIOD,COMMA,SLASH,ATYE )@@G@@@ @@@@ COMMON /B/CNT1,CNT2,CNT3@C@@@@ COMMON /BUF/BUFF1(8),BUFYF )@@G@@F2(8),BUFF3(8) @A@@@@ COMMON /N/EVNAME(5),NCELV @C@@@@ YG )@@G@@COMMON /PR/PROCOD,CPX1,CPX2,CPM,IEL,IV,IJK@G@@@@ COMMON /PNCH/NOPT,YH )@@G@@PUNFLG,PUNCRD(14),SEQCHR,SEFLAG,SOPT,ROPT,ABSOPT@C@@@@ COMMON /PNCHYI )@@G@@I/IPUN,IP,KTR,PNCRD(14),PXFLAG@E@@@@ COMMON /SS/ELTAB(IST,5),EPKT(1YJ )@@G@@0),IOP(22),IOPT,NEL @[@@@@C @[@@@@C @ @@@@ IF(SOPT.EQ.0YK )@@G@@)GO TO 100 @^@@@@C SYMBOLICS WANTED @^@@@@ DO 90 IJK=1,NEL YL )@@G@@@A@@@@ CALL NC(IJK,IEL,IV,ELTYP) @ @@@@ IF(ELTYP.GT.4)GO TYM )@@G@@O 90 @#@@@@ DO 15 I=1,14@^@@@@15 PNCRD(I)=PUNCRD(I)@A@@@@ YN )@@G@@CALL PUTC(' S',PNCRD,IP) @B@@@@ CALL MVCHAR(BUFF1,1,PNCRD,IPUNYO )@@G@@,CNT1)@^@@@@ IPUN1=IPUN+CNT1 @C@@@@ CALL MVCHAR(EVNAME,1,PNCYP )@@G@@RD,IPUN1,NCELV) @ @@@@ IF(SEFLAG.EQ.0)GO TO 80 @^@@@@ IPX=IPYQ )@@G@@UN1+NCELV @B@@@@ CALL PUTC(IGC(COMMA,1),PNCRD,IPX) @#@@@@ YR )@@G@@IPX=IPX+1 @B@@@@ CALL MVCHAR(SEQCHR,1,PNCRD,IPX,KTR) @#@@@@80 YS )@@G@@CONTINUE @ @@@@ CALL WDS2(PNCRD,14) @#@@@@90 CONTINUE YT )@@G@@@#@@@@100 CONTINUE @ @@@@ IF(ROPT.EQ.0)GO TO 200 @^@@@@ YU )@@G@@DO 190 IJK=1,NEL @A@@@@ CALL NC(IJK,IEL,IV,ELTYP) @ @@@@ YV )@@G@@IF(ELTYP.NE.5)GO TO 190 @^@@@@ DO 115 I=1,14 @^@@@@115 PNCRD(YW )@@G@@I)=PUNCRD(I)@A@@@@ CALL PUTC(' R',PNCRD,IP) @ @@@@ IF(CNTYX )@@G@@2.EQ.0)GO TO 120 @B@@@@ CALL MVCHAR(BUFF2,1,PNCRD,IPUN,CNT2)@^@@@@YY )@@G@@ IPUN1=IPUN+CNT2 @#@@@@ GO TO 130 @#@@@@120 CONTINUE YZ )@@G@@@B@@@@ CALL MVCHAR(BUFF2,1,PNCRD,IPUN,5) @#@@@@ IPUN1=IPUN+5ZA )@@G@@@#@@@@130 CONTINUE @C@@@@ CALL MVCHAR(EVNAME,1,PNCRD,IPUN1,NCEZB )@@G@@LV) @ @@@@ IF(SEFLAG.EQ.0)GO TO 180@^@@@@ IPX=IPUN1+NCELV ZC )@@G@@@B@@@@ CALL PUTC(IGC(COMMA,1),PNCRD,IPX) @#@@@@ IPX=IPX+1 ZD )@@G@@@B@@@@ CALL MVCHAR(SEQCHR,1,PNCRD,IPX,KTR) @#@@@@180 CONTINUE ZE )@@G@@@ @@@@ CALL WDS2(PNCRD,14) @#@@@@190 CONTINUE @#@@@@200 ZF )@@G@@CONTINUE @ @@@@ IF(ABSOPT.EQ.0)GO TO 300@^@@@@ DO 290 IJK=1ZG )@@G@@,NEL @A@@@@ CALL NC(IJK,IEL,IV,ELTYP) @ @@@@ IF(ELTYP.NE.ZH )@@G@@6)GO TO 290 @^@@@@ DO 215 I=1,14 @^@@@@215 PNCRD(I)=PUNCRD(I)ZI )@@G@@@A@@@@ CALL PUTC(' A',PNCRD,IP) @ @@@@ IF(CNT2.EQ.0)GO TOZJ )@@G@@ 220 @B@@@@ CALL MVCHAR(BUFF2,1,PNCRD,IPUN,CNT2)@^@@@@ IPUN1=ZK )@@G@@IPUN+CNT2 @#@@@@ GO TO 230 @#@@@@220 CONTINUE @B@@@@ ZL )@@G@@CALL MVCHAR(BUFF2,1,PNCRD,IPUN,5) @#@@@@ IPUN1=IPUN+5@#@@@@230 ZM )@@G@@CONTINUE @C@@@@ CALL MVCHAR(EVNAME,1,PNCRD,IPUN1,NCELV) @ @@@@ZN )@@G@@ IF(SEFLAG.EQ.0)GO TO 280@^@@@@ IPX=IPUN1+NCELV @B@@@@ ZO )@@G@@CALL PUTC(IGC(COMMA,1),PNCRD,IPX) @#@@@@ IPX=IPX+1 @B@@@@ ZP )@@G@@CALL MVCHAR(SEQCHR,1,PNCRD,IPX,KTR) @#@@@@280 CONTINUE @ @@@@ ZQ )@@G@@CALL WDS2(PNCRD,14) @#@@@@290 CONTINUE @#@@@@300 CONTINUE ZR )@@G@@@]@@@@ RETURN@]@@@@ END ___AC4 C)^@)@^@@@@AC9A@)^@)CTJD1ODDIZS )@@G@@*[S@@@*SDFF*@^@@@@ SUBROUTINE UN @[@@@@C @ @@@@C UNMARKZT )@@G@@ED PROCESSOR CODE @[@@@@C @ @@@@ IMPLICIT INTEGER(A-Z) @ @@@@ZU )@@G@@ PARAMETER IST=600, N=16 @B@@@@ PARAMETER N1=2, N2=5, N3=18, ZV )@@G@@N4=4 @[@@@@C @ @@@@ COMMON /B/CNT1,CNT2,CNT3@C@@@@ COMMONZW )@@G@@ /BUF/BUFF1(8),BUFF2(8),BUFF3(8) @A@@@@ COMMON /NN/ENAME(2),VNAMZX )@@G@@E(2) @C@@@@ COMMON /PR/PROCOD,CPX1,CPX2,CPM,IEL,IV,IJK@C@@@@ ZY )@@G@@COMMON /SP/SPEC1(2),SPEC2(2),SPEC3(2) @[@@@@C @ @@@@ DIMENSZZ )@@G@@ION B1(56),B2(56) @^@@@@ DIMENSION CARD(14)@B@@@@ DIMENSION WOAA )@@G@@RDS1(2,N1),NCHR1(N1) @B@@@@ DIMENSION WORDS2(2,N2),NCHR2(N2) AB )@@G@@@B@@@@ DIMENSION WORDS3(2,N3),NCHR3(N3) @B@@@@ DIMENSION WOAC )@@G@@RDS4(2,N4),NCHR4(N4) @[@@@@C @B@@@@ DATA NB/56/,NCHR1/6,6/,NAD )@@G@@CHR2/4*4,3/ @E@@@@ DATA NCHR3/5,6,7,8,9,6,11,6,8,8,7,7,9,4,4,6,10,5AE )@@G@@/ @ @@@@ DATA NCHR4/12,10,11,12/ @C@@@@ DATA WORDS1/' PROCAF )@@G@@ ',' PROC. '/@F@@@@ DATA WORDS2/'$(0) ','$(1) AG )@@G@@ ','AXR$ ' @C@@@@ 1 ,' A0, ',' ER AH )@@G@@ '/@F@@@@ DATA WORDS3/'BLOCK ','COMMON ','COMPLEX AI )@@G@@ ' @F@@@@ 1 ,'CONTINUE ','DIMENSION ','DOUBLE AJ )@@G@@ ' @F@@@@ 2 ,'EQUIVALENCE ','FORMAT ','FUNCTION AK )@@G@@ ' @F@@@@ 3 ,'IMPLICIT ','INTEGER ','LOGICAL AL )@@G@@ ' @F@@@@ 4 ,'PARAMETER ','READ ','REAL AM )@@G@@ ' @F@@@@ 5 ,'RETURN ','SUBROUTINE ','WRITE AN )@@G@@ '/ @F@@@@ DATA WORDS4/'IDENTICATION','PROGRAM-ID ','ENVIRONMENTAO )@@G@@ ' @A@@@@ 1 ,'CONFIGURATIO'/ @[@@@@C @F@@@@ AP )@@G@@CALL RDS1(SPEC1,ENAME,VNAME,B1,B2,NB,ERR,$900) @ PRIME RDS @I@@@@ AQ )@@G@@DO 500 I=1,200 @ MGC 01AR )@@G@@C @G@@@@ CALL RDS2(CARD,14,$800) @ READ ONE CARD IMAGE, $800AS )@@G@@ IS EOF @I@@@@ IF ( CARD(1).NE.'CONTRO' )GO TO 100 @ NELIAC? AT )@@G@@ MGC 01C @I@@@@ PROCOD=7 AU )@@G@@ @ YES MGC 01C @I@@@@ GO TO 900 AV )@@G@@ @ MGC 01C @I@@@@AW )@@G@@ 100 CH=FLD( 0,12,CARD(1) ) @ COL 1-2 AX )@@G@@MGC-01A @I@@@@ IF ( CH.EQ.'@@@@C ' )GO TO 350 @ FORTRAN COMMENAY )@@G@@T? MGC-01A @I@@@@ IF ( CH.EQ.'@@@@. ' )GO TO 250AZ )@@G@@ @ ASM COMMENT? MGC-01A @I@@@@ CH=FLD( 0,6,BA )@@G@@CARD(1) ) @ COL 1 MGC-01A @I@@@@BB )@@G@@ IF ( CH.EQ.'@@@@@@' )GO TO 800 @ '@' IN COL 1 - ELT BC )@@G@@MGC-01A @E@@@@ CALL PSCAN2(WORDS1,NCHR1,N1) @PRIME SCAN2 FORBD )@@G@@ PROCS@F@@@@ CALL SCAN2(CARD,2,80,LOC,LFOUND,$200) @ DO WE HAVE ABE )@@G@@ PROC @#@@@@ GO TO 800 @[@@@@C @C@@@@200 CONTINUE @ NBF )@@G@@OT A PROC, CHECK FOR ASM@E@@@@ CALL PSCAN2(WORDS2,NCHR2,N2) @ PRBG )@@G@@IME SCAN2 FOR ASM @F@@@@ CALL SCAN2(CARD,1,50,LOC,LFOUND,$300) @ BH )@@G@@DO WE HAVE AN ASM @D@@@@ 250 PROCOD=2 @ SET PROCESSOR CODE = 2, ASBI )@@G@@M @#@@@@ GO TO 900 @[@@@@C @D@@@@300 CONTINUE @ NOTBJ )@@G@@ A PROC, CHECK FOR FORTRAN @F@@@@ CALL PSCAN2(WORDS3,NCHR3,N3) BK )@@G@@ @ PRIME SCANS FOR FORTRAN @F@@@@ CALL SCAN2(CARD,7,50,LOC,LFOUNBL )@@G@@D, $400) @ IS IT FORTRAN @D@@@@ 350 PROCOD=4 @ SET PROCESSORBM )@@G@@ CODE = 4, FORTRAN@#@@@@ GO TO 900 @[@@@@C @C@@@@400 CONTINBN )@@G@@UE @ NOT A PROC, CHECK FOR COBOL@F@@@@ CALL PSCAN2(WORDS4,NCHR4BO )@@G@@,N4) @ PRIME SCAN2 FOR COBOL @E@@@@ CALL SCAN2(CARD,8,50,LOCBP )@@G@@,LFOUND,$500) @ IS IT COBOL@D@@@@ PROCOD=3 @ SET PROCESSOR BQ )@@G@@CODE = 3, COBOL @#@@@@ GO TO 900 @[@@@@C @D@@@@500 CONTINBR )@@G@@UE @ NO MATCH, LOOP AGAIN @[@@@@C @F@@@@800 PROCODBS )@@G@@=1 @ NO MATCH OR EOF RETURN, MAKE IT AN ELT @#@@@@ CALL EBT )@@G@@LT @#@@@@900 CONTINUE @B@@@@ CALL RDS3 @ CLOSE OUT RDBU )@@G@@S @]@@@@ RETURN@]@@@@ END ___^@)^@)C9J^[OD8)B@0A@)@[@@@@BV )@@G@@CS)^@)@G@@@@AK0A@)^@)CTJD1ODDIE( ^@)^@)^@)^[@^[ID9O^[[^[KELJCS?^[#D[ CTFBW )@@G@@*[S@@@*SDFF*@^@@@@ AXR$ . @[@@@@ . @D@@@@ . ROUTINE TBX )@@G@@O ACQUIRE THE 10 WORD PROGRAM FILE PACKETS@E@@@@ . SEQUENTIALLY . EACH BY )@@G@@TIME TOCX IS CALLED IT WILL GET THE @^@@@@ . NEXT 10 WORD PACKET .@[@@@@BZ )@@G@@ . @F@@@@ . THE ROUTINE TOCXP IS CALLED ONCE TO INITIALIZE THE ROUTINCA )@@G@@E @^@@@@ . WITH THE FILENAME . @[@@@@ . @A@@@@ . CALL TOCPX('FILCB )@@G@@ENAME',STAT,$ERR) @F@@@@ . FILENAME - A 2 WORD INTERNAL FILE NAME (ALRECC )@@G@@ADY ASSIGNED) @C@@@@ . STAT - I/O STATUS IF ERROR EXIT TAKEN CD )@@G@@@^@@@@ . $ERR - ERROR EXIT@[@@@@ . @A@@@@ . CALL TOCX(PKT,STAT,$ECE )@@G@@RR,$EOF) @ @@@@ . PKT - A 10 WORD PACKET@C@@@@ . STAT - I/O CF )@@G@@STATUS IF ERROR EXIT TAKEN @^@@@@ . $ERR - ERROR EXIT@F@@@@ . $CG )@@G@@EOF - END OF FILE RETURN ( USED WHEN NO MORE PACKETS) @[@@@@ . CH )@@G@@@[@@@@ . @#@@@@ . EQUF'S @B@@@@BSIZE EQU 224 CI )@@G@@ . @[@@@@ . @D@@@@IOPKT EQUF 0,A0 . IOCJ )@@G@@ PACKET @D@@@@STAT EQUF 3,A0,S1 . IO STATUS CK )@@G@@@D@@@@FNC EQUF 3,A0,S2 . IO FUNCTION @E@@@@WDSRD CL )@@G@@ EQUF 3,A0,H2 . # OF WORDS READ @F@@@@BUFWDS EQCM )@@G@@UF 4,A0,H1 . BUFFER LENGTH (WORDS) @D@@@@IOBUF EQCN )@@G@@UF 4,A0,H2 . BUFFER FOR IO @D@@@@DADDR EQUF 5,A0 CO )@@G@@ . DRUM ADDR @D@@@@BUFWD EQUF 6,A0 CP )@@G@@ . BUFFER WORD @D@@@@CURBUF EQUF 6,A0,H2 . CURRENT CQ )@@G@@BUFFER@F@@@@BUFSEC EQUF 7,A0,H1 . BUFFER LENGTH (SECTOCR )@@G@@RS) @D@@@@CITEM EQUF 7,A0,H2 . CURRENT ITEM #@E@@@@CS )@@G@@ULOC EQUF 8,A0 . USER PACKET LOC @E@@@@BUFLOCCT )@@G@@ EQUF 9,A0 . CURRENT BUFFER LOC @G@@@@BUFLEN EQCU )@@G@@UF 10,A0,H1 . ACTUAL # OF WORDS IN CURBUF @C@@@@NITEM CV )@@G@@ EQUF 10,A0,H2 . # ITEMS @[@@@@ . @[@@@@ . @[@@@@CW )@@G@@$(1) .@C@@@@TOCXP* . OPEN IO @ @@@@ CX )@@G@@ TP FCT+3 . @ @@@@ ER WAIT$ . @B@@@@ CY )@@G@@ DL A0,*0,X11 . @E@@@@ DS A0,FCT CZ )@@G@@ . STORE FILE NAME @B@@@@ LA,U A0,BUF1 DA )@@G@@ . @B@@@@ LXI,U A0,BSIZE . @B@@@@ SADB )@@G@@ A0,FCT+4 . @B@@@@ LXI,U A0,BUF2 DC )@@G@@ . @B@@@@ SA A0,FCT+6 . @B@@@@ LADD )@@G@@,U A0,BSIZE/28 . @B@@@@ SA,H1 A0,FCT+7 DE )@@G@@ . @E@@@@ LA,U A0,FCT . A0 NEEDS FCT ADR DF )@@G@@@F@@@@ LA A1,BUFWDS . PUT THE BUFFER LENGTH DG )@@G@@@F@@@@ SA,H2 A1,7,A0 . IN TEMPORARY STORAGE DH )@@G@@@F@@@@ LA,U A1,28 . SET 28 WORDS FOR THE 6TH DI )@@G@@@D@@@@ SA A1,BUFWDS . SECTOR READ @H@@@@ DJ )@@G@@ LA A1,CURBUF . USE THE CURRENT BUFFER FOR THE IO DK )@@G@@@B@@@@ SA A1,IOBUF . @G@@@@ SA,H2 DL )@@G@@ A1,BUFLOC . SET ALSO AS THE STARTING BUFFER @B@@@@ LADM )@@G@@,U A1,1 . @E@@@@ SA,H1 A1,BUFLOC DN )@@G@@ . SET INCREMENTS TO 1 @B@@@@ SA,H1 A1,ULOC . DO )@@G@@@F@@@@ LA,U A1,020 . SET IO FUNCTION TO READ DP )@@G@@@B@@@@ SA A1,FNC . @E@@@@ SZ DQ )@@G@@ DADDR . SET FOR SECTOR 0 @C@@@@ ER IOW$ DR )@@G@@ . READ IT @C@@@@ TZ STAT . ERDS )@@G@@ROR ? @B@@@@ J ERROR . @E@@@@ LADT )@@G@@ A3,BUF1 . **PF** WE HOPE @A@@@@ TNE DU )@@G@@ A3,('**PF**') @B@@@@ J JJ1 . @B@@@@DV )@@G@@ LA A0,PA . @B@@@@ ER PRINTDW )@@G@@$ . @B@@@@ J ERROR . @[@@@@DX )@@G@@JJ1 . @E@@@@ LA,U A1,5 . SET FOR SECTOR 5 DY )@@G@@@B@@@@ SA A1,DADDR . @D@@@@ ER DZ )@@G@@ IOW$ . READ SECTOR 5 @D@@@@ TZ STAT EA )@@G@@ . STATUS = 0? @B@@@@ J ERROR . EB )@@G@@@F@@@@ LA A1,CURBUF . GET THE CURRENT BUFFER EC )@@G@@@H@@@@ LA,H2 A1,27,A1 . GET THE NUMBER OF ITEMS INED )@@G@@ THE TOC @C@@@@ SA A1,NITEM . STORE IT@F@@@@EE )@@G@@ LA,H2 A1,7,A0 . RESTORE THE BUFFER LENGTH @B@@@@EF )@@G@@ SA A1,BUFWDS . @E@@@@ SZ CITEMEG )@@G@@ . SET ITEM # TO ZERO @F@@@@ LA,U A1,6 EH )@@G@@ . SET START DRUM ADDR TO 6 @B@@@@ SA A1,DADDR EI )@@G@@ . @F@@@@ ER IOW$ . READ THE FIRSTEJ )@@G@@ BUFFER @F@@@@ LA A1,STAT . TEST THE STATUEK )@@G@@S OF THE IO @D@@@@ TNZ STAT . IS IT ZERO? EL )@@G@@@C@@@@ J $+3 . YES @C@@@@ TEEM )@@G@@,U A1,5 . IS IT 5?@ @@@@ J ERROR .EN )@@G@@@G@@@@ LA A1,WDSRD . SET THE ACTUAL BUFFER LENGEO )@@G@@TH @B@@@@ SA A1,BUFLEN . @D@@@@ TNEP )@@G@@Z A1 . WERE ANY READ?@B@@@@ J ERROREQ )@@G@@ . @F@@@@ LA A1,DADDR . INCREMENER )@@G@@T THE DRUM ADDR @B@@@@ AA A1,BUFSEC . @B@@@@ES )@@G@@ SA A1,DADDR . @D@@@@ LA A1,BUET )@@G@@FWD . SWITCH BUFFERS@B@@@@ SSC A1,18 EU )@@G@@ . @B@@@@ SA A1,BUFWD . @G@@@@ SAEV )@@G@@ A1,IOBUF . SET THE IO BUFFER TO THE OTHER @G@@@@ EW )@@G@@ ER IO$ . INITIATE IO TO THE OTHER BUFFER @D@@@@EX )@@G@@ SSC A1,18 . SWITCH BUFFERS@B@@@@ SAEY )@@G@@ A1,BUFWD . @C@@@@ J 4,X11 EZ )@@G@@ . RETURN @B@@@@ERROR LA,S1 A0,FCT+3 . @E@@@@ FA )@@G@@ SA A0,*1,X11 . STORE ERROR STATUS @E@@@@ J FB )@@G@@ *2,X11 . TAKE ERROR EXIT @[@@@@ . @[@@@@ . FC )@@G@@@G@@@@TOCX* . ROUTINE TO OBTAIN TOC PACKFD )@@G@@ETS @E@@@@ LA,H2 A0,0,X11 . GET ADR OF BUFFER FE )@@G@@@B@@@@ SA,H2 A0,FCT+8 . @E@@@@ LA,U FF )@@G@@ A0,FCT . A0 MUST HAVE FCT ADR@G@@@@ LA A1,CIFG )@@G@@TEM . WAS THE LAST ITEM RETURNED THE @D@@@@ TNE FH )@@G@@ A1,NITEM . LAST ITEM? @E@@@@ J *3,X11 FI )@@G@@ . TAKE EOF RETURN @D@@@@ LA A1,ULOC FJ )@@G@@ . USER PACKET @C@@@@ LA A2,BUFLOC . BUFFER FK )@@G@@@E@@@@ LA A3,CURBUF . DOES THE NEXT PACKET@E@@@@FL )@@G@@ AA A3,BUFLEN . SPAN THE BUFFERS? @B@@@@ FM )@@G@@ ANA,U A3,10 . @B@@@@ TLE,U A3,0,A2 FN )@@G@@ . @C@@@@ J PARTAL . YES @E@@@@FO )@@G@@ LR,U R1,10 . TEN WORD PACKET @E@@@@ FP )@@G@@ BT A1,0,*A2 . DO THE TRANSFER @G@@@@ SAFQ )@@G@@ A2,BUFLOC . SET THE NEW BUFFER LOCATION @E@@@@ FR )@@G@@ LA A1,CITEM . INCREMENT # OF ITEMS@B@@@@ AAFS )@@G@@,U A1,1 . @B@@@@ SA A1,CITEM FT )@@G@@ . @D@@@@ J 5,X11 . NORMAL RETURN @F@@@@FU )@@G@@PARTAL . PACKET SPANS THE BUFFERS @F@@@@FV )@@G@@ LA A3,CURBUF . GET THE # OF WORDS IN THE @E@@@@FW )@@G@@ AA A3,BUFLEN . CURRENT BUFFER @B@@@@ FX )@@G@@ ANA,U A3,0,A2 . @E@@@@ LR,U R1,0,A3 FY )@@G@@ . SET FOR TRANSFER @E@@@@ LA,U A3,10 FZ )@@G@@ . TEN WORDS PER PACKET@F@@@@ ANA A3,R1 . MGA )@@G@@INUS # IN CURRENT BUFFER@G@@@@ TZ R1 . ANGB )@@G@@Y WORDS IN CURRENT BUFFER? @C@@@@ BT A1,0,*A2 GC )@@G@@ . TRANSFER@G@@@@ TP 3,A0 . IO FINISHED ONGD )@@G@@ OTHER BUFFER? @E@@@@ ER WAIT$ . NO, LETSGE )@@G@@ WAIT FOR IT@E@@@@ LA A2,STAT . IS THE STATUS GF )@@G@@OK? @B@@@@ TNZ STAT . @B@@@@ J GG )@@G@@ $+3 . @B@@@@ TE,U A2,5 GH )@@G@@ . @B@@@@ J ERROR2 . @F@@@@ LAGI )@@G@@ A2,BUFWD . SET THE NEW IO BUFFER @B@@@@ SAGJ )@@G@@ A2,IOBUF . @D@@@@ SSC A2,18 GK )@@G@@ . SWITCH BUFFERS@B@@@@ SA A2,BUFWD . @E@@@@GL )@@G@@ SA,H2 A2,BUFLOC . SET NEW BUFFER LOC @E@@@@ GM )@@G@@ LA A2,DADDR . INCREMENT DRUM ADDR @B@@@@ AAGN )@@G@@ A2,BUFSEC . @B@@@@ SA A2,DADDR GO )@@G@@ . @I@@@@ LA A2,WDSRD . SET LENGTH TO NO. REGP )@@G@@AD MGC 01C @I@@@@ SA A2,BUFLEN . GQ )@@G@@ MGC 01C @I@@@@ TNE A2,BGR )@@G@@UFWDS . FULL BUFFER? MGC 01C @G@@@@ GS )@@G@@ ER IO$ . INITIATE IO TO THE OTHER BUFFER @H@@@@GT )@@G@@REST LR,U R1,0,A3 . A3 HAD REMAINING WORDS TO BE XFEGU )@@G@@RED @E@@@@ LA A2,BUFLOC . SET THE BUFFER LOC GV )@@G@@@E@@@@ BT A1,0,*A2 . TRANSFER THE REST @F@@@@GW )@@G@@ SA A2,BUFLOC . SET THE NEW BUFFER LOC @F@@@@GX )@@G@@ LA A1,CITEM . INCREMENT THE # OF ITEMS @B@@@@GY )@@G@@ AA,U A1,1 . @B@@@@ SA A1,CIGZ )@@G@@TEM . @D@@@@ J 5,X11 . NORMAL RHA )@@G@@ETURN @[@@@@ . @[@@@@ . @C@@@@ERROR2 LA,S1 A0,FCT+3 HB )@@G@@ . GET STAT@D@@@@ SA A0,*1,X11 . AND STORE HC )@@G@@@E@@@@ J *2,X11 . TAKE ERROR EXIT @[@@@@HD )@@G@@$(0) .@B@@@@FCT RES 11 . @B@@@@PA +0HE )@@G@@106,PAM . @C@@@@PAM '****** ERROR, NOT A PROGRHF )@@G@@AM FILE' @B@@@@BUF1 RES BSIZE . @B@@@@BUF2 HG )@@G@@ RES BSIZE . @#@@@@ END ___@@@ HH )@@G@@ TNZ STAT . IS IT ZERO? @C@@@@ J HI )@@G@@ $+3 . YE*[S@@@*SDFF*@#@@@@@ASG,A BEL-FILES. @#@@@@@ASG,AHJ )@@G@@ IP*TEST$. @[@@@@@ERS @B@@@@@IP*TEST$.BEL,R BEL-FILES.MARVEL-01D,TPF$.HK )@@G@@@^@@@@@PRT,S TPF$.CORRECTIONS @^@@@@@ADD TPF$.CORRECTIONS @[@@@@@PACK HL )@@G@@@B@@@@@IP*TEST$.BEL TPF$.,BEL-FILES.MARVEL-01D @#@@@@@PACK BEL-FILES. HM )@@G@@@ @@@@@ASG,A $03$MARVEL*$03$MARVEL. @A@@@@@COPY TPF$.,$03$MARVEL*$03$MARHN )@@G@@VEL. @E@@@@@.MARVEL,A $03$MARVEL*$03$MARVEL.,$03$MARVEL*$03$MARVEL.,; HO )@@G@@@^@@@@ $03$MARVEL*$03$MARVEL. @A@@@@BRK $03$MARVEL*$03$MARVEL YYYYY HP )@@G@@@]@@@@DCT EFMSTVX @[@@@@MER @[@@@@SPL T @A@@@@@PRT,S $03$MARVEL*$03$MAHQ )@@G@@RVEL.YYYYY @ @@@@@PRT,T $03$MARVEL*$03$MARVEL. @#@@@@@FREE BEL-FILES. HR )@@G@@@ @@@@@FREE $03$MARVEL*$03$MARVEL. @[@@@@@FIN ___E))C(AD(NE-QF@)@[@@_@HS )@@G@@D( EK)@]@@_@ETKD))E))^@)@D@@@@C[KELO -N^@=A@3^-HCDME1 D)%^)0AS=D([ELQC(GHT )@@G@@ 1TFDTFDT^@)@C@@@@C[KELO -O^@=A@3^-HCDME1 D)%^)0AS=D([ELQC(G 0)^@)@^@@@@HU )@@G@@*[S@@@*SDFF*@#@@@@@ASG,A BEL-FILES. @#@@@@@ASG,A IP*TEST$. @[@@@@@ERS HV )@@G@@@B@@@@@IP*TEST$.BEL,R BEL-FILES.MARVEL-01D,TPF$.@^@@@@@PRT,S TPF$.CORRECHW )@@G@@TIONS @^@@@@@ADD TPF$.CORRECTIONS @[@@@@@PACK @B@@@@@IP*TEST$.BEL TPF$HX )@@G@@.,BEL-FILES.MARVEL-01D @#@@@@@PACK BEL-FILES. @ @@@@@ASG,A $03$MARVEL*HY )@@G@@$03$MARVEL. @#@@@@@QUAL $03$MARVEL @^@@@@@COPY TPF$.,*$03$MARVEL.@D@@@@HZ )@@G@@@.MARVEL,A *$03$MARVEL.,*$03$MARVEL.,*$03$MARVEL. @^@@@@BRK *$03$MARIA )@@G@@VEL YYYYY @]@@@@DCT FLMSTV @[@@@@MER @^@@@@SEQ F10,A10,B10,L,R IB )@@G@@@[@@@@HDG TP@^@@@@FOR=IP*FORT.FORT BSF @^@@@@ASM=IP*TEST$.ASM SK IC )@@G@@@[@@@@NEL SE@[@@@@ELT S @^@@@@MAP=IP*TEST$.MAP27A LZ @]@@@@@PMD,EL ID )@@G@@@#@@@@@FREE BEL-FILES. @^@@@@@PRT,S *$03$MARVEL.YYYYY@ @@@@@FREE $03$MAIE )@@G@@RVEL*$03$MARVEL. @[@@@@@FIN ___ LOC(NE)= 1[ETH^[NDS)@]@@_@D1 D))ET ^@)IF )@@G@@@]@@_@C(GE))ES)^@)@A@@_@D([E@.DDK LOC(NE)= 1HCDK*[@@@@*SDFF**[@@@@CTS@@EIG )@@G@@@^@@@@ SUBROUTINE BPC *[@@@@CTS@@O@[@@@@C *[@@@@CTS@@Y@[@@@@IH )@@G@@C *[@@@@CTS@@*@ @@@@C BUILD PROCESSOR CARD *[@@@@CTS@@2@[@@@@II )@@G@@C *[@@@@CTS@@/@ @@@@ IMPLICIT INTEGER(A-Z) *[@@@@CTS@[A@I@@@@IJ )@@G@@ PARAMETER IST=600 , N=19 , NAF=11 @ IK )@@G@@MGC 01C *[@@@@CTS@[K@B@@@@ COMMON /A/BLNK,PERIOD,COMMA,SLASH,ATIL )@@G@@*[@@@@CTS@[U@ @@@@ COMMON /B/CNT1,CNT2,CNT3*[@@@@CTS@[=@C@@@@ IM )@@G@@COMMON /BUF/BUFF1(8),BUFF2(8),BUFF3(8) *[@@@@CTS@[,@ @@@@ COMMONIN )@@G@@ /P/PCARD(28),CP *[@@@@CTS@[8@E@@@@ COMMON /FS/DCTFLG,MERFLG,BRKFLIO )@@G@@G,PCHFLG,SAVFLG,SEQFLG *[@@@@CTS@]]@ @@@@ COMMON /H/HCARD(14) IP )@@G@@*[@@@@CTS@]G@A@@@@ COMMON /N/EVNAME(5),NCELV *[@@@@CTS@]Q@C@@@@IQ )@@G@@ COMMON /DXX/DCTOPT(2),DCTCRD(14),DFLAG *[@@@@CTS@])@[@@@@C IR )@@G@@*[@@@@CTS@]%@C@@@@C ELT NAME/VERS WILL BE STORED IN EVNAME *[@@@@IS )@@G@@CTS@]4@[@@@@C *[@@@@CTS@]"@D@@@@C NCELV WILL CONTAIN THE TOTAL NIT )@@G@@UMBER OF CHARS *[@@@@CTS@#C@D@@@@C IN THE ELT/VERS NAME, INCLUDINIU )@@G@@G THE SLASH IF *[@@@@CTS@#M@ @@@@C THERE IS A VERSION NAME *[@@@@IV )@@G@@CTS@#W@[@@@@C *[@@@@CTS@#&@E@@@@ COMMON /SS/ELTAB(IST,5),EPKT(1IW )@@G@@0),IOP(22),IOPT,NEL *[@@@@CTS@#0@I@@@@ COMMON /F/FLGS(NAF),FALPIX )@@G@@(NAF),FOPS(NAF),L @ MGC 01C *[@@@@CTS@#'@A@@@@IY )@@G@@C FLGS - FLAGS FOR OPTIONS *[@@@@CTS@^^@C@@@@C FALP - FIZ )@@G@@LAGS FOR ALTERNATE PROCESSOR *[@@@@CTS@^I@A@@@@C FOPS - STORE OJA )@@G@@PTIONS HERE *[@@@@CTS@^S@I@@@@ COMMON /CPS/CPCNTS(NAF),PC(2,NAF) @JB )@@G@@ MGC 01C *[@@@@CTS@^+@C@@@@ COMMONJC )@@G@@ /PR/PROCOD,CPX1,CPX2,CPM,IEL,IV,IJK*[@@@@CTS@^?@C@@@@ COMMON /SP/SJD )@@G@@PEC1(2),SPEC2(2),SPEC3(2) *[@@@@CTS@^6@I@@@@ COMMON /TT/NDEXS(IJE )@@G@@ST) SCR 5099 *[@@@@CTS@ @JF )@@G@@@A@@@@ COMMON /AOPF/AOPFLG,XOPFLG *[@@@@CTS@ E@I@@@@ COMMONJG )@@G@@ /AP/APARY(NAF,14),NCHF(NAF) @ MGC 01C JH )@@G@@*[@@@@CTS@ O@A@@@@ COMMON /TST/POPFLG,QOPFLG *[@@@@CTS@ Y@G@@@@JI )@@G@@ COMMON /PNCH/NOPT,PUNFLG,PUNCRD(14),SEQCHR,SEFLAG,SOPT,ROPT,ABSOPTJJ )@@G@@*[@@@@CTS@ *@C@@@@ COMMON /PNCHI/IPUN,IP,KTR,PNCRD(14),PXFLAG*[@@@@JK )@@G@@CTS@ 2@I@@@@ COMMON /SPLFLG/SPLFLG,SCARD(14) @ JL )@@G@@ MGC 01C *[@@@@CTS@ /@I@@@@ COMMON /PDP2/PDPCRD(28),JM )@@G@@CPDP2 SCR 5099 *[@@@@CTS@AA@[@@@@JN )@@G@@C *[@@@@CTS@AK@C@@@@C THE ROWS OF APARY CORRESPOND TO : JO )@@G@@*[@@@@CTS@AU@C@@@@C ELT,ASM,COB,FOR,ALG,MAP,NEL,UNUSED,PDP*[@@@@JP )@@G@@CTS@A=@G@@@@C NCHF IS THE NUMBER OF CHAR FOUND BY GETWD (SEE SUBJQ )@@G@@ROUTINE IN) *[@@@@CTS@A,@E@@@@C WHEN MOVING ALTERNATE PROCESSOJR )@@G@@R NAME TO APARY *[@@@@CTS@A8@[@@@@C *[@@@@CTS@B]@[@@@@C *[@@@@JS )@@G@@CTS@BG@[@@@@C *[@@@@CTS@BQ@#@@@@ DATA AOP/0/ *[@@@@CTS@B)@E@@@@JT )@@G@@ DATA ONE/1/,FOUR/4/,TWO/2/,ZERO/0/,SIX/6/,FIVE/5/ *[@@@@CTS@B%JU )@@G@@@I@@@@ * ,SEVEN/7/,EIGHT/8/ @ JV )@@G@@ MGC-01B *[@@@@CTS@B4@E@@@@ DATA BLNK/6H /,PERIOD/1H.JW )@@G@@/,COMMA/1H,/,SLASH/1H// *[@@@@CTS@B"@^@@@@ DATA AT/6H@ / *[@@@@JX )@@G@@CTS@CC@I@@@@ DATA (CPCNTS(I),I=1,NAF)/ 6,6,9,3*6,8,2*6,2*4 / @ JY )@@G@@ MGC 01C *[@@@@CTS@CM@G@@@@ DATA ((PC(I,J),I=1,2),J=JZ )@@G@@1,NAF) /'@ELT,L ','@ASM,S ' *[@@@@CTS@CW@F@@@@ 1,'@COBKA )@@G@@,BERS ','@FOR,S ','@ALG,S ','@MAP,S '*[@@@@CTS@C&@I@@@@KB )@@G@@ 2,'@NEL,SYE ','@ELT,L ','@PDP,L ','@HDG ' @ KC )@@G@@MGC-01C *[@@@@CTS@C0@I@@@@ 3,'@SPL ' / @ KD )@@G@@ MGC 01C *[@@@@CTS@C'@[@@@@C *[@@@@KE )@@G@@CTS@D^@[@@@@C *[@@@@CTS@DI@ @@@@ IF(NOPT.NE.0)GO TO 100 *[@@@@KF )@@G@@CTS@DS@I@@@@ IF(FLGS(10).EQ.0)GO TO 90 @ CHECK FOR HDG OPTIONS KG )@@G@@ MGC 01C *[@@@@CTS@D+@I@@@@ IF (FOPS(10).EQ.' ')GO TKH )@@G@@O 90 @ OPTIONS BLANK? MGC 01C *[@@@@CTS@D?@I@@@@KI )@@G@@ IC=IGC(FOPS(10),1) @ FIRST OPTION KJ )@@G@@MGC 01C *[@@@@CTS@D6@I@@@@ IF (IC.LT.'@@@@@A'.OR.IC.GT.'@@@@@Z'KK )@@G@@)GO TO 100 @ LEGAL OPTION? MGC 01C *[@@@@CTS@E@@E@@@@ CALL PKL )@@G@@UTC(IGC(COMMA,1),PC(1,10),5) @ ADD A COMMA *[@@@@CTS@EE@I@@@@ KM )@@G@@CALL PUTC(IC,PC(1,10),6) @ ADD OPTION MGC 01KN )@@G@@C *[@@@@CTS@EO@I@@@@ IC=IGC( FOPS(10),2 ) @ KO )@@G@@ MGC-01B *[@@@@CTS@EY@I@@@@ IF (IC.LT.'@KP )@@G@@@@@@A'.OR.IC.GT.'@@@@@Z')GO TO 100 @ LEGAL OPTION? MGC 01C *[@@@@KQ )@@G@@CTS@E*@I@@@@ IF (IC.NE.'@@@@@ ')CALL PUTC ( IC,PC(1,10),7 ) @ ADD 2KR )@@G@@ND OPTION MGC-01B *[@@@@CTS@E2@I@@@@ 90 IF ( SPLFLG.EQ.0 )GO TO KS )@@G@@100 @ MGC 01C *[@@@@CTS@E/@I@@@@KT )@@G@@ IF ( FLGS(11).EQ.0 )GO TO 100 @ KU )@@G@@MGC 01C *[@@@@CTS@FA@I@@@@ IF ( FOPS(11).EQ.' ' )GO TO 100 @ KV )@@G@@ MGC 01C *[@@@@CTS@FK@I@@@@ CALL PKW )@@G@@UTC ( '@@@@@,',PC(1,11),5 ) @ COMMA '@SPL,' MGC 01C KX )@@G@@*[@@@@CTS@FU@I@@@@ CALL MVCHAR ( FOPS(11),1,PC(1,11),6,6 ) @ ADD OKY )@@G@@PTIONS MGC 01C *[@@@@CTS@F=@[@@@@C *[@@@@CTS@F,@#@@@@KZ )@@G@@100 CONTINUE *[@@@@CTS@F8@E@@@@ DO 900 IJK=1,NEL LA )@@G@@ @ START MAIN LOOP *[@@@@CTS@G]@I@@@@ CPDP2=0 LB )@@G@@ @ SET-NO 2ND PDP CARD SCR 5099 *[@@@@CTS@GG@ @@@@LC )@@G@@ IF(NOPT.NE.0)GO TO 110 *[@@@@CTS@GQ@#@@@@102 CONTINUE *[@@@@LD )@@G@@CTS@G)@#@@@@ FORFLG=0 *[@@@@CTS@G%@I@@@@ IF ( SPLFLG.GT.0 )LE )@@G@@CALL MOVER (BLNK,0,SCARD,1,14) @ MGC 01C *[@@@@CTS@G4LF )@@G@@@D@@@@ CALL MOVER(BLNK,0,PCARD,1,28) @ BLANK PCARD *[@@@@CTS@G"LG )@@G@@@D@@@@ CALL MOVER(BLNK,0,HCARD,1,14) @ BLANK HCARD*[@@@@CTS@HCLH )@@G@@@[@@@@C *[@@@@CTS@HM@E@@@@C DETERMINE NUMBER OF CHARACTERS IN ELLI )@@G@@EMENT/VERSION NAME*[@@@@CTS@HW@#@@@@110 CONTINUE *[@@@@CTS@H&@#@@@@LJ )@@G@@ XXFLAG=0 *[@@@@CTS@H0@A@@@@ CALL NC(IJK,IEL,IV,ELTYP) LK )@@G@@*[@@@@CTS@H'@ @@@@ IF(NOPT.EQ.0)GO TO 180 *[@@@@CTS@I^@A@@@@ LL )@@G@@IF(ELTYP.GT.FOUR)GO TO 120 *[@@@@CTS@II@ @@@@ IF(SOPT.EQ.0)GO TOLM )@@G@@ 175 *[@@@@CTS@IS@^@@@@ DO 115 I=1,14 *[@@@@CTS@I+@^@@@@115 LN )@@G@@PNCRD(I)=PUNCRD(I)*[@@@@CTS@I?@A@@@@ CALL PUTC(' S',PNCRD,IP) LO )@@G@@*[@@@@CTS@I6@#@@@@ XXFLAG=1 *[@@@@CTS@J@@#@@@@ GO TO 140 LP )@@G@@*[@@@@CTS@JE@[@@@@C *[@@@@CTS@JO@#@@@@120 CONTINUE *[@@@@CTS@JYLQ )@@G@@@A@@@@ IF(ELTYP.GT.FIVE)GO TO 130 *[@@@@CTS@J*@ @@@@ IF(ROPLR )@@G@@T.EQ.0)GO TO 175 *[@@@@CTS@J2@^@@@@ DO 121 I=1,14 *[@@@@CTS@J/LS )@@G@@@^@@@@121 PNCRD(I)=PUNCRD(I)*[@@@@CTS@KA@A@@@@ CALL PUTC(' R'LT )@@G@@,PNCRD,IP) *[@@@@CTS@KK@#@@@@ XXFLAG=1 *[@@@@CTS@KU@#@@@@ LU )@@G@@GO TO 140 *[@@@@CTS@K=@[@@@@C *[@@@@CTS@K,@#@@@@130 CONTINUE LV )@@G@@*[@@@@CTS@K8@ @@@@ IF(ABSOPT.EQ.0)GO TO 175*[@@@@CTS@L]@^@@@@ LW )@@G@@DO 131 I=1,14 *[@@@@CTS@LG@^@@@@131 PNCRD(I)=PUNCRD(I)*[@@@@CTS@LQLX )@@G@@@A@@@@ CALL PUTC(' A',PNCRD,IP) *[@@@@CTS@L)@#@@@@ XXFLAGLY )@@G@@=1 *[@@@@CTS@L%@#@@@@ GO TO 140 *[@@@@CTS@L4@[@@@@C *[@@@@LZ )@@G@@CTS@L"@#@@@@140 CONTINUE *[@@@@CTS@MC@B@@@@ CALL MVCHAR(BUFF1,MA )@@G@@1,PNCRD,IPUN,CNT1)*[@@@@CTS@MM@^@@@@ IPUN1=IPUN+CNT1 *[@@@@CTS@MWMB )@@G@@@C@@@@ CALL MVCHAR(EVNAME,1,PNCRD,IPUN1,NCELV) *[@@@@CTS@M&@ @@@@MC )@@G@@ IF(SEFLAG.EQ.0)GO TO 175*[@@@@CTS@M0@^@@@@ IPX=IPUN1+NCELV MD )@@G@@*[@@@@CTS@M'@B@@@@ CALL PUTC(IGC(COMMA,1),PNCRD,IPX) *[@@@@CTS@N^ME )@@G@@@#@@@@ IPX=IPX+1 *[@@@@CTS@NI@B@@@@ CALL MVCHAR(SEQCHR,1,PNCMF )@@G@@RD,IPX,KTR) *[@@@@CTS@NS@^@@@@175 GO TO 815 *[@@@@CTS@N+@#@@@@MG )@@G@@180 CONTINUE *[@@@@CTS@N?@F@@@@ IF(ELTYP.EQ.ONE)GO TO 400 MH )@@G@@ @ SYMBOLIC ELEMENT TYPE *[@@@@CTS@N6@F@@@@ IF(ELTYP.LE.FOUR)GMI )@@G@@O TO 200 @ ELEMENT TYPE IS PROC *[@@@@CTS@O@@F@@@@ GO TO MJ )@@G@@800 @ ELEMENT IS RELOCATABLE OR ABSOLUTE *[@@@@CTS@OE@C@@@@MK )@@G@@200 CONTINUE @ PROC ELEMENT *[@@@@CTS@OO@D@@@@ ML )@@G@@IF((AOPFLG.NE.0).AND.(AOPFLG.NE.3))GO TO 900 *[@@@@CTS@OY@^@@@@ MM )@@G@@CALL PDP(ELTYP) *[@@@@CTS@O*@#@@@@ GO TO 800 *[@@@@CTS@O2@[@@@@MN )@@G@@C *[@@@@CTS@O/@E@@@@400 CONTINUE @ SYMBOLIC (NON-PROMO )@@G@@C) ELEMENT *[@@@@CTS@P[@^@@@@ JLM=NDEXS(IJK) *[@@@@CTS@PA@E@@@@MP )@@G@@ PROCOD=IGC(ELTAB(JLM,5),6) @ PROCESSOR CODE *[@@@@CTS@PKMQ )@@G@@@I@@@@ IF ( PROCOD.EQ.SEVEN )PROCOD=EIGHT @ SET DOC (7) TO 8 MR )@@G@@ MGC-01B *[@@@@CTS@PU@F@@@@402 CONTINUE @ ENTRMS )@@G@@Y USED BY 0 PROCESSOR CODE *[@@@@CTS@P=@G@@@@ IF(PROCOD.GE.TWO.AMT )@@G@@ND.PROCOD.LT.SIX)GO TO 500 @ ASM,COB,FOR,ALG *[@@@@CTS@P,@C@@@@ MU )@@G@@IF(PROCOD.EQ.SIX)GO TO 550 @ MAP *[@@@@CTS@P8@I@@@@ IF ( PMV )@@G@@ROCOD.EQ.SEVEN )GO TO 500 @ NEL MGC-01B MW )@@G@@*[@@@@CTS@Q]@F@@@@ IF(PROCOD.EQ.ZERO)GO TO 700 @ UMX )@@G@@NMARKED *[@@@@CTS@QG@G@@@@ GO TO 600 MY )@@G@@ @ ELT,DOC,SECURE *[@@@@CTS@QQ@[@@@@C *[@@@@CTS@Q)@I@@@@MZ )@@G@@500 CONTINUE @ PROCESSOR CODE 2,3,4,5,7 NA )@@G@@MGC-01B *[@@@@CTS@Q%@D@@@@ IF((AOPFLG.NE.0).AND.(AOPFLG.NE.2))GNB )@@G@@O TO 900 *[@@@@CTS@Q4@A@@@@ IF(PROCOD.EQ.FOUR)FORFLG=1 *[@@@@NC )@@G@@CTS@Q"@#@@@@ CALL FAACM *[@@@@CTS@RC@#@@@@ GO TO 800 *[@@@@ND )@@G@@CTS@RM@C@@@@550 CONTINUE @ MAP, PROCESSOR CODE 6*[@@@@CTS@RWNE )@@G@@@D@@@@ IF((AOPFLG.NE.0).AND.(AOPFLG.NE.1))GO TO 900 *[@@@@CTS@R&NF )@@G@@@ @@@@ IF(AOPFLG.EQ.0)GO TO 560*[@@@@CTS@R0@#@@@@ CALL PP NG )@@G@@*[@@@@CTS@R'@#@@@@560 CONTINUE *[@@@@CTS@S^@#@@@@ CALL FAACM NH )@@G@@*[@@@@CTS@SI@#@@@@ GO TO 800 *[@@@@CTS@SS@#@@@@600 CONTINUE NI )@@G@@*[@@@@CTS@S+@D@@@@ IF((AOPFLG.NE.0).AND.(AOPFLG.NE.2))GO TO 900 NJ )@@G@@*[@@@@CTS@S?@#@@@@ CALL ELT *[@@@@CTS@S6@#@@@@ GO TO 800 NK )@@G@@*[@@@@CTS@T@@#@@@@700 CONTINUE *[@@@@CTS@TE@]@@@@C****** *[@@@@NL )@@G@@CTS@TO@D@@@@C UNMARKED PROCESSOR CODE FIND OUT WHAT TYPE *[@@@@NM )@@G@@CTS@TY@#@@@@ CALL UN *[@@@@CTS@T*@[@@@@C******[@@@@CTS@T2@#@@@@NN )@@G@@ GO TO 402 *[@@@@CTS@T/@#@@@@800 CONTINUE *[@@@@CTS@UA@A@@@@NO )@@G@@ IF(ELTYP.GE.FIVE)GO TO 815 *[@@@@CTS@UK@D@@@@ HCARD(1)=PC(NP )@@G@@1,10) @ BUILD HEADER *[@@@@CTS@UU@D@@@@ HCARD(2)=PC(NQ )@@G@@2,10) @ CARD*[@@@@CTS@U=@C@@@@ DO 810 I=4,8NR )@@G@@ @ MOVE IN*[@@@@CTS@U,@E@@@@ J=I-3 NS )@@G@@ @ ELEMENT/VERS *[@@@@CTS@U8@I@@@@ IF (SPLFLG.GNT )@@G@@T.0)SCARD(I)=EVNAME(J) @ MGC 01C *[@@@@NU )@@G@@CTS@V]@D@@@@810 HCARD(I)=EVNAME(J) @ NAME *[@@@@NV )@@G@@CTS@VG@I@@@@ IF ( SPLFLG.EQ.0 )GO TO 812 @ NW )@@G@@ MGC 01C *[@@@@CTS@VQ@I@@@@ SCARD(1)=PC(1,11) NX )@@G@@ @ BUILD SPL CARD MGC 01C *[@@@@CTS@V)@I@@@@NY )@@G@@ SCARD(2)=PC(2,11) @ NZ )@@G@@MGC 01C *[@@@@CTS@V%@I@@@@ DO 811 I=19,42 @ OA )@@G@@ MGC 01C *[@@@@CTS@V4@I@@@@ IC=IGCOB )@@G@@( SCARD(1),I ) @ CHANGE / TO , MGC 01C OC )@@G@@*[@@@@CTS@V"@I@@@@ IF (IC.EQ.'@@@@@/' )CALL PUTC('@@@@@,',SCARD(1),OD )@@G@@I ) @ MGC 01C *[@@@@CTS@WC@I@@@@ 811 CONTINUE OE )@@G@@ @ MGC 01C *[@@@@CTS@WMOF )@@G@@@I@@@@ 812 CONTINUE @ OG )@@G@@ MGC 01C *[@@@@CTS@WW@ @@@@ CALL WDS2(HCARD,14) *[@@@@OH )@@G@@CTS@W&@I@@@@C OUTPUT '@SPL' CARD? OI )@@G@@ MGC 01C *[@@@@CTS@W0@I@@@@ IF (SPLFLG.GT.0)CALL WDSOJ )@@G@@2 (SCARD,14) @ MGC 01C *[@@@@CTS@W'@I@@@@OK )@@G@@ CALL CONT ( PCARD,CP ) @ NEED CONTINUATION CARD? OL )@@G@@SCR 5099 *[@@@@CTS@X^@I@@@@ CALL CONT ( PDPCRD,CPDP2 ) @ NEED COM )@@G@@ONTINUATION CARD? SCR 5099 *[@@@@CTS@XI@ @@@@ CALL WON )@@G@@DS2(PCARD,14) *[@@@@CTS@XS@I@@@@ IF ( CP.GT.80 )CALL WDS2 ( PCAOO )@@G@@RD(15),14 ) @ OUTPUT CONTINUATION SCR 5099 *[@@@@CTS@X+@I@@@@ OP )@@G@@IF ( CPDP2.GT.0 )CALL WDS2 ( PDPCRD,14 ) SCR 50OQ )@@G@@99 *[@@@@CTS@X?@I@@@@ IF ( CPDP2.GT.80 )CALL WDS2 ( PDPCRD(15),1OR )@@G@@4 ) SCR 5099 *[@@@@CTS@X6@A@@@@ IF(PCHFLG .EOS )@@G@@Q.0)GO TO 813 *[@@@@CTS@Y@@ @@@@ CALL PUNCH(14,HCARD) *[@@@@OT )@@G@@CTS@YE@I@@@@ IF (SPLFLG.GT.0)CALL PUNCH (14,SCARD) @ OU )@@G@@ MGC 01C *[@@@@CTS@YO@ @@@@ CALL PUNCH(14,PCARD) OV )@@G@@*[@@@@CTS@YY@I@@@@ IF ( CP.GT.80 )CALL PUNCH ( 14,PCARD(15) ) @ PUNOW )@@G@@CH CONTINUATION SCR 5099 *[@@@@CTS@Y*@I@@@@ IF ( CPDP2.GT.0 )COX )@@G@@ALL PUNCH ( 14,PDPCRD ) SCR 5099 *[@@@@CTS@Y2OY )@@G@@@I@@@@ IF ( CPDP2.GT.80 )CALL PUNCH ( 14,PDPCRD(15) ) OZ )@@G@@ SCR 5099 *[@@@@CTS@Y/@#@@@@813 CONTINUE *[@@@@CTS@ZA@#@@@@PA )@@G@@815 CONTINUE *[@@@@CTS@ZK@ @@@@ IF(NOPT.EQ.0)GO TO 819 *[@@@@PB )@@G@@CTS@ZU@ @@@@ IF(XXFLAG.EQ.0)GO TO 818*[@@@@CTS@Z=@ @@@@ CALL WPC )@@G@@DS2(PNCRD,14) *[@@@@CTS@Z,@A@@@@ IF(PCHFLG .EQ. 0)GO TO 816 PD )@@G@@*[@@@@CTS@Z8@ @@@@ CALL PUNCH(14,PNCRD) *[@@@@CTS@)]@#@@@@816 PE )@@G@@CONTINUE *[@@@@CTS@)G@ @@@@ IF(POPFLG.EQ.0)GO TO 818*[@@@@CTS@)QPF )@@G@@@A@@@@ CALL OPAFP(1,-1,PNCRD,80) *[@@@@CTS@))@ @@@@818 IF(NOPPG )@@G@@T.NE.0)GO TO 900 *[@@@@CTS@)%@#@@@@819 CONTINUE *[@@@@CTS@)4@D@@@@PH )@@G@@ IF(POPFLG.EQ.0)GO TO 820 @ P-OPTION *[@@@@CTS@)"@F@@@@PI )@@G@@ CALL OPAFP(1,-1,PCARD,80) @ LIST PROCESSOR CARDS *[@@@@PJ )@@G@@CTS@-C@I@@@@ IF ( CP.GT.80 )CALL OPAFP ( 1,-1,PCARD(15),80 ) @ LISTPK )@@G@@ CONTIN SCR 5099 *[@@@@CTS@-M@I@@@@ IF ( CPDP2.GT.0 )CALL OPPL )@@G@@AFP ( 1,-1,PDPCRD,80 ) SCR 5099 *[@@@@CTS@-W@I@@@@PM )@@G@@ IF ( CPDP2.GT.80 )CALL OPAFP ( 1,-1,PDPCRD(15),80 ) PN )@@G@@SCR 5099 *[@@@@CTS@-&@I@@@@ CPDP2=0 PO )@@G@@ SCR 5099 *[@@@@CTS@-0@[@@@@C *[@@@@PP )@@G@@CTS@-'@A@@@@C WAS THERE A DICTIONARY REQUEST*[@@@@CTS@+^@ @@@@820 PQ )@@G@@IF(FORFLG.EQ.0)GO TO 900*[@@@@CTS@+I@ @@@@ IF(DCTFLG.EQ.0)GO TO 900PR )@@G@@*[@@@@CTS@+S@ @@@@ IF(MERFLG.NE.0)GO TO 900*[@@@@CTS@++@ @@@@ PS )@@G@@CALL WDS2('@DCTNRY',2) *[@@@@CTS@+?@ @@@@ CALL WDS2(DCTCRD,14) PT )@@G@@*[@@@@CTS@+6@ @@@@ CALL WDS2('*END',1) *[@@@@CTS@<@@ @@@@ PU )@@G@@IF(PCHFLG.EQ.0)GO TO 900*[@@@@CTS@]QF )@@G@@@[@@@@C *[@@@@CTS@>G@B@@@@1000 CONTINUE @ ALL DONE QG )@@G@@*[@@@@CTS@>Q@ @@@@ IF(NOPT.NE.0)GO TO 1052 *[@@@@CTS@>)@E@@@@ QH )@@G@@IF(DCTFLG.EQ.0)GO TO 1050 @ CHECK DICTIONARY FLAG *[@@@@CTS@>%@D@@@@QI )@@G@@ IF(MERFLG.EQ.0)GO TO 1050 @ CHECK MERGE FLAG*[@@@@CTS@>4@[@@@@QJ )@@G@@C *[@@@@CTS@>"@A@@@@C DICTIONARY MERGE REQUESTED *[@@@@CTS@&CQK )@@G@@@#@@@@ CALL MERGE *[@@@@CTS@&M@#@@@@1050 CONTINUE *[@@@@CTS@&WQL )@@G@@@D@@@@ CALL PP @ PACK AND PREP*[@@@@CTS@&&QM )@@G@@@C@@@@ CALL PRTT @ PRT *[@@@@CTS@&0@]@@@@QN )@@G@@C********* *[@@@@CTS@&'@ @@@@C******** XREF STARTS HERE*[@@@@CTS@$^QO )@@G@@@[@@@@C *[@@@@CTS@$I@ @@@@ IF(XOPFLG.NE.0)CALL XXRF*[@@@@CTS@$SQP )@@G@@@]@@@@C******** *[@@@@CTS@$+@ @@@@C******* XREF ENDS HERE *[@@@@QQ )@@G@@CTS@$?@#@@@@1052 CONTINUE *[@@@@CTS@$6@A@@@@ IF(PUNFLG.EQ.0)GO QR )@@G@@TO 1054 *[@@@@CTS@*@@#@@@@ CALL PSRABS *[@@@@CTS@*E@#@@@@1054 QS )@@G@@CONTINUE *[@@@@CTS@*O@B@@@@ CALL WDS3 @ CLOSE OUT WDSQT )@@G@@*[@@@@CTS@*Y@[@@@@C *[@@@@CTS@**@A@@@@ IF(SAVFLG.EQ.0)GO TO 106QU )@@G@@0 *[@@@@CTS@*2@ @@@@ IF(CNT3.EQ.0)GO TO 1060 *[@@@@CTS@*/@#@@@@QV )@@G@@ CALL SAVE *[@@@@CTS@(A@#@@@@1060 CONTINUE *[@@@@CTS@(K@A@@@@QW )@@G@@ IF(BRKFLG.EQ.0)GO TO 1055 *[@@@@CTS@(U@#@@@@ CALL BREAK QX )@@G@@*[@@@@CTS@(=@#@@@@ GO TO 1056 *[@@@@CTS@(,@#@@@@1055 CONTINUE QY )@@G@@*[@@@@CTS@(8@G@@@@ IF(QOPFLG.NE.0)GO TO 1080 @ DO NOT ADD FIQZ )@@G@@LE IF NON-ZERO *[@@@@CTS@%]@A@@@@ CALL CSF('@ADD M$A$R$.',2,I) RA )@@G@@*[@@@@CTS@%G@#@@@@1056 CONTINUE *[@@@@CTS@%Q@A@@@@C CHECK I - IFRB )@@G@@ GE 0, FILE ADDED *[@@@@CTS@%)@B@@@@C - IF LT 0, FILE NOT ADRC )@@G@@DED *[@@@@CTS@%%@ @@@@ IF(I.LT.0)GO TO 1100 *[@@@@CTS@%4@]@@@@RD )@@G@@1080 RETURN*[@@@@CTS@%"@[@@@@C *[@@@@CTS@:C@[@@@@C *[@@@@CTS@:MRE )@@G@@@G@@@@1100 CALL OPA(-1,'ERROR WHILE @ADDING FILE VIA CSF$, ERR CODE IS RF )@@G@@&') *[@@@@CTS@:W@ @@@@ CALL OPOP(1,0,I,12) *[@@@@CTS@:&@#@@@@RG )@@G@@ RETURN 0 *[@@@@CTS@:0@]@@@@ END _@@@@@\'(AGM0<.(Y,J_2S?ORH )@@G@@0KE"AQ[K486Q$\)3U)D13BSH&*[@@@@*SDFF**[@@@@CTS@[=@#@@@@ AXR$ . CM )@@G@@*[@@@@CTS@[,@A@@@@. CALL PRINT(LINESP,NWORDS,BUFFER) *[@@@@CTS@[8@[@@@@CN )@@G@@. *[@@@@CTS@]]@I@@@@$(1) . CO )@@G@@ SCR 5099 *[@@@@CTS@]G@I@@@@PRINT* L CP )@@G@@ A0,*0,X11 . LINESP SCR 5099 *[@@@@CQ )@@G@@CTS@]Q@I@@@@ L A1,*1,X11 . NWORDS CR )@@G@@ SCR 5099 *[@@@@CTS@])@I@@@@ SSC A1,6 CS )@@G@@ . SINGLE RIGHT CIRCULAR SCR 5099 *[@@@@CTS@]%@I@@@@CT )@@G@@ LDSL A0,6 . LEFT DOUBLE CU )@@G@@SCR 5099 *[@@@@CTS@]4@I@@@@ L A1,2,X11 . A(CV )@@G@@BUFFER) SCR 5099 *[@@@@CTS@]"@I@@@@ LSCW )@@G@@SL A1,18 . LEFT SINGLE SCR 5099 CX )@@G@@*[@@@@CTS@#C@I@@@@ LDSL A0,18 . LEFT DOUBLE CY )@@G@@ SCR 5099 *[@@@@CTS@#M@I@@@@ ER PRINCZ )@@G@@T$ . SCR 5099 *[@@@@CTS@#WDA )@@G@@@I@@@@ J 4,X11 . RETURN DB )@@G@@ SCR 5099 *[@@@@CTS@#&@#@@@@ END _@@@@@KY^W)3\0%JCRDC )@@G@@13HQQK0[SY0PKY$-F.KITALNJ$((.0KJA% ^KAK -N\3W-Y5\':$./KOA_=)J?'1.'KO=M]@DD )@@G@@\3*QT+0EX4X@KB'J[SH6&%\=1%I05$KXX&1]\23XWT0F,HZ22+Z5=$0D]\5?\:(!18K^,"2JDE )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@#@@@@ AXR$ . *[@@@@CTS@[,@^@@@@. CALLDF )@@G@@ READ(INPUT,$EOF) *[@@@@CTS@[8@[@@@@. *[@@@@CTS@]]@I@@@@$(1) . DG )@@G@@ SCR 5099 DH )@@G@@*[@@@@CTS@]G@I@@@@READ* L A0,1,X11 . A($EOF) DI )@@G@@ SCR 5099 *[@@@@CTS@]Q@I@@@@ L A1,0DJ )@@G@@,X11 . A(INPUT BUFFER) SCR 5099 *[@@@@CTS@])DK )@@G@@@I@@@@ LSSL A1,18 . LEFT SINGLE LOGICAL DL )@@G@@ SCR 5099 *[@@@@CTS@]%@I@@@@ LDSL A0,18 DM )@@G@@ . LEFT DOUBLE LOGICAL SCR 5099 *[@@@@CTS@]4@I@@@@ DN )@@G@@ ER READ$ . SCR 50DO )@@G@@99 *[@@@@CTS@]"@I@@@@ J 3,X11 . RETURN DP )@@G@@ SCR 5099 *[@@@@CTS@#C@#@@@@ END DQ )@@G@@_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@#@@@@ AXR$ . *[@@@@CTS@[,@ @@@@. CALLDT )@@G@@ PUNCH(NWORDS,BUFFER) *[@@@@CTS@[8@[@@@@. *[@@@@CTS@]]@I@@@@$(1) DU )@@G@@ . SCR 50DV )@@G@@99 *[@@@@CTS@]G@I@@@@PUNCH* L A0,*0,X11 . NWORDS DW )@@G@@ SCR 5099 *[@@@@CTS@]Q@I@@@@ L DX )@@G@@ A1,1,X11 . A(BUFFER) SCR 5099 *[@@@@DY )@@G@@CTS@])@I@@@@ LSSL A1,18 . LEFT SINGLE DZ )@@G@@ SCR 5099 *[@@@@CTS@]%@I@@@@ LDSL A0,18 EA )@@G@@ . LEFT DOUBLE SCR 5099 *[@@@@CTS@]4@I@@@@EB )@@G@@ ER PUNCH$ . EC )@@G@@SCR 5099 *[@@@@CTS@]"@I@@@@ J 3,X11 . REED )@@G@@TURN SCR 5099 *[@@@@CTS@#C@#@@@@ ENEE )@@G@@D _@@@@@J5G7\>J7VK.,2M$T@NJ$QFD?0F.F?9KAUJ+LJZ%;MOKBB/#80C/-N JX<:M$EF )@@G@@J6O\]E\;I^L20+L9Y$\':_Q)J4]N,D0C0QEL0LIRINH\H+MMH=[0?#J/7_$5J6&B%P0F&^>[EG )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@^@@@@ SUBROUTINE SAVE *[@@@@CTS@[,@[@@@@EH )@@G@@C *[@@@@CTS@[8@D@@@@C THIS SUBROUTINE HANDLES THE MARVEL CARD 'SEI )@@G@@AV' *[@@@@CTS@]]@[@@@@C *[@@@@CTS@]G@ @@@@ IMPLICIT INTEGER (EJ )@@G@@A-Z) *[@@@@CTS@]Q@I@@@@ COMMON /B1/B1(224),B2(224) EK )@@G@@ SCR 5099 *[@@@@CTS@])@C@@@@ COMMON /BUF/EL )@@G@@BUFF1(8),BUFF2(8),BUFF3(8) *[@@@@CTS@]%@C@@@@ COMMON /SP/SPEC1(2EM )@@G@@),SPEC2(2),SPEC3(2) *[@@@@CTS@]4@B@@@@ DIMENSION C1(56),C2(56),EN )@@G@@TEMP(14) *[@@@@CTS@]"@^@@@@ DIMENSION FN1(3) *[@@@@CTS@#C@A@@@@EO )@@G@@ DATA FN1/'MARVELCARDS FILE '/*[@@@@CTS@#M@^@@@@ DATA SPACE/'EP )@@G@@ '/ *[@@@@CTS@#W@[@@@@C *[@@@@CTS@#&@ @@@@ CALL PRINT (66,3,FEQ )@@G@@N1) *[@@@@CTS@#0@ @@@@ CALL PRINT(2,1,SPACE) *[@@@@CTS@#'@I@@@@ER )@@G@@ CALL RDS1 ( 'M$A$R$ ',0,0,B1,B2,224,ERR,$1200 ) ES )@@G@@SCR 5099 *[@@@@CTS@^^@F@@@@ CALL WDS1('SPEC3 ','MARVELCARDS'ET )@@G@@,0,C1,C2,56,ERR,$1200) *[@@@@CTS@^I@[@@@@C *[@@@@CTS@^S@ @@@@10 EU )@@G@@CALL RDS2(TEMP,14,$50) *[@@@@CTS@^+@^@@@@ CALL WDS2(TEMP,14)*[@@@@EV )@@G@@CTS@^?@ @@@@ CALL PRINT(1,14,TEMP) *[@@@@CTS@^6@#@@@@ GO TO EW )@@G@@10 *[@@@@CTS@ @@[@@@@C *[@@@@CTS@ E@#@@@@50 CALL RDS3 *[@@@@EX )@@G@@CTS@ O@#@@@@ CALL WDS3 *[@@@@CTS@ Y@#@@@@1200 CONTINUE *[@@@@EY )@@G@@CTS@ *@]@@@@ RETURN*[@@@@CTS@ 2@]@@@@ END _@@@@@KP&P^K\2\.%OEZ )@@G@@\:#J1 \<]\[I ^%2E1S% @P\N4.%G\-;VPSKJRE4\FA )@@G@@10&IYH0[STIBKY$&0VKITB[AJ$(?N0KJA?E0\9\W33KG[MK^@K^@K^@@@@@C8@@@^/K@@@@[^@@[=C8FK@^[^@@[WGU )@@G@@[^@@[+C8FK@#[^@@[][^@@@CC8FK@]AY@@@@)]\[#@^G@-)^G]@@@@)@@@C@@@[@@[/K@@[*GV )@@G@@[@K@@DC@VK@][@@@@ C8FK@[[@@@@AC8FK@@/\K@]OAZ@@@@@@^@@A@@E@@]@@I@@]@@Q@@[GW )@@G@@@@ @@P]@@@]7@@@@@G@@@@@@@@@@#@@@@@@@GETC NERR4$ SCAN2 GX )@@G@@@@[@@@@@@@]YPSCAN2 @@[@@@@@@@],N$BLNK ^[@@@@@ @@@@@@@ #MA@)D8TGY )@@G@@)@@[M^G]A@KKKOCC@@/,0@@@]@@@@[H@@@@@C/@@@[[@@@@@C4[@@@R@K@@A[@@@@BG/@__"GZ )@@G@@C8FK@@AA@GF )@E[MK0CE]-)^ [^@@/G@@@QH@@@@@[@@@@[G@@@@[C/@@@[@[B@@#@@@@@#HA )@@G@@@@@@@]@@@@@@@@@@@@AB@GF )@O[MK^G]]CC)+@@@@/K@@@%(@@@@GH@@@@@;C@@@Y;)@K@#HB )@@G@@C@[@@@O@K@@]R@K@@B/K@@[F*@@@@GAC@GF )@Y[MKO^K[@KL[@@@@G@@@@]C/@@@[ @@@@#HC )@@G@@/K@@@J*@@@@G/C@@@>G/@__)[@@@@#G@@@@#C/@@@AAD@GF )@*[N[K@K^ [@@@@@@C_)@@]HD )@@G@@G@)@@@C/)__.[@@@@^C@@@@[/K@@[K:@@@@@C/@@@[/K@@@J[@@@@]AE@GF )@2[MKL[KL@^HE )@@G@@[]@@@@/,0@@@/K@@[F*@@@@G/G@@@;H@@@@@[@@@@^G@@@@^C/@@@[[#)@@ [@)@[^AF@GF HF )@@G@@)@/[EKOG]A[]@CEA[#@@@@@@H@@@@C@[W@@#@@@@@^@@@@@@/,0@@@[@@@@C@[W@@#@@@@@ HG )@@G@@@@@@@@AG@GF )[ [MK[@K^@^[@@@@@/K@@[PN@0@[JC8)@@B @@@@@/K@@@Y/K@@[K8L@@@3HH )@@G@@G_)@@[/K@@[E*@@@@GAH@GF )[J[F#@)+@)CS^G]^C@@@@@@H8)@@[/K@@@@!^)@@[@[>@@#HI )@@G@@/K@@[TN@0@[O[@@@@@C@@@@[@[<@@#AI@GF )[S@3#@-)ES]&@()ES@@@@@@)@[@K@@#;@@@HJ )@@G@@@#;@@@/K@K@[N[@@@FR@K@@EC#)@@DRA0@@^[^)@@[AJ@GF )@#@K@)[Y@'ES]&@()ES]&@@HK )@@G@@C8FK@@^[@@@FA@K@@E[#)@@D[^@@@[AA0@@^C8@@@C@[>@@@SCAN AK@GF )[>[N@^[@^[@HL )@@G@@^G]@@@[^@@@/[@@@@AC8FK@#[^@@@7[^@@@MC8FK@][^@@@B[^@@@EC8FK@[[^@@[[AL@GF HM )@@G@@)[\@'K^@K^[@@@@@@@)@@@C@@@@@@@@@@@@A/K@@@@[^@@[F[^@@[LC8FK@ [^@@@:[^@@@0HN )@@G@@C8FK@^AM@GF @@@@@@@@CAT4@@^AT/@@CAU@@@^AUC@@]AP'@@]AP/@@]AP"@@ AQ@@@]AUGHO )@@G@@@@GAUI@@GAUU@@GAU&@@KAU2@@^@@A@@E@@#@@K@@[@@O@@[@@ @@H]@@@[6@@@@@A@@@@@@HP )@@G@@@@@@@@@@@@@@GETC MODB NERR4$ SCAN @@[@@@@@@@[YHQ )@@G@@N$BLNK ^[@@@@@ @@@@LBLITM@@@@@@@@@@@@@@@@@@)@@@U^G@@@@@)@@@G@)@#@+^HR )@@G@@ ]@@@@/,0@@@]@@@@[H@@@@@C/@@@[@@@@@ [@@@@ G/@__"C8FK@@AA@@@@)@B[EK0CE]-)HS )@@G@@^ [K0@@@@@@@R@K@@ [@@@@[G@@@@[C/@@@[@[C@@#@@@@@#@@@@@]@@@@@@@@@@@@AB@@@@HT )@@G@@)@K[N[^@K[[^^@@@@@*@@@@GH@@@@@;C@@@Y;)@K@#C@[@@@/K@@@?*@@@@G/G@@@PH@@@@@HU )@@G@@O@K@@]AC@@@@)@U[N@^ [^@K^^@@@@C/@@@[ @@@@#/K@@@G*@@@@G/C@@@+G/@__)[@@@@#HV )@@G@@G@@@@#C/@@@A/K@@@$AD@@@@)@=[N[KO[[^[@K0@@@C8)@@ @@@@@@[P@@#/K@@@5N@0@@:HW )@@G@@[@@@@@C@@@@[/K@@@G[@@@@]G@@@@]AE@@@@)@,[F@K^G]A[]]CS^G]A@@@@R@K@@AR]0@@^HX )@@G@@[^)@@[H8)@@[/K@@@@!^)@@[@[R@@#/K@@@1N@0@@0AF@@@@)@7@F#@@@@@@)@[@)@@@@@@@HY )@@G@@)@8@MK0@@@@@AA0@@^C8@@@A@[R@@@SCANBL@#;@@@@#;@@@/K@K@[AG@@@@)@'[N#@-)^[@HZ )@@G@@^@K^@@[^@@@?[^@@@*C8FK@#[^@@@LC8FK@][^@@@^[^@@@BC8FK@[A@K@@A[^@@@[AH@@@@IA )@@G@@)[^@F@@@@@@@)@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AIB )@@G@@/K@@@@AI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@A@@E@@]@@I@@[@@M@@[@@ @@C]@@@[ @@@@@^@@@@@@ID )@@G@@@@@@@@@@@@@@MODB NERR4$ SCANBL @@[@@@@@@@@8N$BLNK IE )@@G@@^[@@@@@ @@@@@@@ ]2H/@@]<#^@[+7;)K@@C;KK@@@[@KD3N)@@[EK0@K0@K0@[@K0@@@@@@IF )@@G@@9?FK@[[@K@@W/K@@@L?8@@@AC4FK@[ @@@@W9*@@@F9*@@@@9?FK@@AA@@@@)@D[##@@K0@EIG )@@G@@S@CK@CS@CS@C@@@@@@/K@@@M[@K@@P[@K@@ '=@@@@C8@@@F9*@@@L9?FK@]9*@@@HAB@@@@IH )@@G@@)@L[F#@@K0@^G@@^G@@@@@@@[C@@@BW8@@@W;G@@@=C@FK@ [^@@@AC@F@@^[C@@@AC@F@@#II )@@G@@ @@@@ AC@@@@)@U[]K0@K0@ES@CK@>G@^G@^G@@@@@C@@@@V[^@@@CC8@@@U/,0@@@C8@@@@IJ )@@G@@A]0@@R[C@@@^T8@@@WAD@@@@)@+[F#@@()@-@^)CS@]A@@@@[[VK@AG9K@[@R]0@@R/KF@@DIK )@@G@@R]0@@R/K@@@*/,0@@@C8@@@@[@@@@EAE@@@@)@:[M^G@[@[#@[@@@@?8@@@[8#@@@1:@K@@YIL )@@G@@R#W@@@C@FK@[AB@@@1P;@@@[[^@@@CC@F@@@/KFK@BAF@@@@)@5[E^G@^G@]&@]^@M@-)@@@IM )@@G@@/KF@@#R]0@@S/K@@@*/,0@@@C8@@@@A]0@@S[@@@@E;*@@@SR;@@@[AG@@@@)@"[##@@()@-IN )@@G@@@A)CS@C]A@]A@@@@@@H@@@@PC@@@@ /@@@[EC@@@@W/K@@@*/,0@@@C8@@@@A]0@@SAH@@@@IO )@@G@@)[A[F#@[#@@()@-@C-)@]A@@/KF@@][4@@@OC@FK@@/KF@@[R]0@@S'=@@@@D8@@@FC@K@@ IP )@@G@@[^@@@OAI@@@@)@@[S@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@AJ@@@@)@F[S@@@@@@@@@@@@@[@@@@@@ @@@[N VERSIO@@[@@@IR )@@G@@@@@@@@T ELEMENME FILENAAK@@@@)@Q[C@@@@@@@@@@@@@@@@@@@ @ @@@@IS )@@G@@@@@@@@*[@@@@*SDFF* @@@@@@@@@@@@@@@@@@AL@@@@@@^@@]@@A@@ @@K@@^@@)@@@IT )@@G@@@@@@@Z@@@@[JPFWL$ SDFOO SDFO SDFOC PFI$ IU )@@G@@WDS1 @@[@@@@@@@@@WDS2 @@[@@@@@@@@?WDS3 @@[@@@@@@@@"IV )@@G@@PTYP @@[@@@@@@@[GIF(G(1))75,12,75 IW )@@G@@ 0033@^@@@@@@@@[. 75 NRAT=SIGN(1.0,G(1))+SIGNIX )@@G@@(1.0,G(2)) )@@[MK@@[#@@@@@@@@R#@@@E/KF@@AM#W)@@N@VK@^&#VK@#IY )@@G@@R#V@@]&#FK@[R#F@@@/G@@@DR#FK@^AA@@@@)@E@N]@[]@^@)@@@8@@@@@@@E FOR EQUENCIZ )@@G@@LING SIN CALUMENT AL ARG ILLEG'=@@@@'=@@@@AB@@@@)@B@)@*@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]E@@@OVER TINE MSUBROUAC@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@^@@]@@A@@]@@E@@[@@I@@@@@@@@F@@@@@GPRINT$ ERR$ MOVER JD )@@G@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[U^@@[@@@O#:@@]S@)@@!P;)@@[R#:K@#P;K@@[!8K@@^JF )@@G@@;CK@@-O#F@@@S@@@@!P;@@@[R#FK@[AA@@@@)@F[U@@@K@@@')H)@TN@K@@KH9@@@[C[FK@^JG )@@G@@&;0@@[&;)@@[&;K@@[&;@@@[P;0@@[!80@@^;C0@@-AB@@@@)@Q[V@K@@^@@C-G)@@/S@@@@JH )@@G@@'^@@@ZC>G@@@C(G@@@C!G@@@C1G@@@C5G@@@/KF@@A8KK@@P')J)@I@@@[(I@@@[!I@@@[1I@@@[5I@@@/K@K@ZR#K@@@AD@@@@JJ )@@G@@)@:@V#@[@@@@)@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@E%%%%:/K@K@(JK )@@G@@R#0@@@AE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@@@@A@@[@@E@@@@@@@@[@@@@@,MVCHAR JM )@@G@@@@[@@@@@@@@@@A@@@@ IF (UNIT .EQ. 6H@@@@@H) LU=28 @ @@@@ IF (LUJN )@@G@@ .NE. 0) GO TO 2 @^@@@@ WRITE (6,120) )@@[M^G@@K@@@@@@@@C?H@@@JO )@@G@@C0H@@@C4H@@@/KF@@#')I@@B;C)@@-G@V@@@S@K@@@H8K@@[C@VK@[AA@@@@)@E[M@[#@@^@JP )@@G@@@@@@@@')I@@B;C)@@-G@V@@@S@K@@@H8K@@[C@VK@[C)H@@@C=H@@@C*H@@@@@@@@@AB@@@@JQ )@@G@@)@O[N#@[#@@[#@@[@@')I@@ZC)FK@@;C)@@-G@V@@[S@K@@@H8K@@[C@VK@]/KF@@#C@@@@[JR )@@G@@[4@@@[AC@@@@)@Y[U@@@@@@@H8K@@[C@VK@@C8@@@@[)H@@@[=H@@@[*H@@@@@@@@@[?H@@@JS )@@G@@[0H@@@[4H@@@/KF@@^AD@@@@)@([U@@@@@@@G8@@@[W@FK@[H8K@@[C@VK@@C8@@@@/KF@@ JT )@@G@@[@VK@#G8K@@[[@FK@]G8@@@[W@FK@[AE@@@@)@4@+@@@@@@@)@@@K@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@ E%%%%:/KF@@ [@:K@#S8K@@A[@FK@]AF@@@@@@^@@]@@A@@@@@A@@B@@+@@@JV )@@G@@@@@@@]@@@@@8IGC @@[@@@@@@@@@GETC @@[@@@@@@@@@IGCL JW )@@G@@@@[@@@@@@@@IGETCL @@[@@@@@@@@IPUTC @@[@@@@@@@@RMODC JX )@@G@@@@[@@@@@@@@&MODB @@[@@@@@@@@\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@G@)@@[E@K0CS@@G/)__"C@)@@@[@[@@@R@K@@FC@@@@@KA )@@G@@ @@@@@ @@@@@ @@@@@ @@@@@@@@@@ AA@@@@)@D[N[KL[^@K^C@@@@@@@@@@/,0@@@/K@@[DKB )@@G@@*@@@@G/G@@@LH@@@@@[@@@@[G/@@@[C@@@@[[@)@@[AB@@@@)@N[N[K0CE]C]@-)^@/K@@[DKC )@@G@@*@@@@@@[O@@#/,0@[7/K@@@E(@@@@GH@@@@@[@@@@]@[K@@#@@@@@[AC@@@@)@X[M@K^^K)*KD )@@G@@C@@@@@@@@@@@@@@@@]/,0@@@[@@@@@C@@@@[/K@@@=*@@@@@[@@@@@G/@@@[C@@@@@AD@@@@KE )@@G@@)@$[MK0CC)+@C]^@@@/,0@@@/K@@[D*@@@@G/G@@@0H@@@@@[@@@@[G/@@@[C@@@@[@[U@@#KF )@@G@@@@@@@@AE@@@@)@1[MKOG]])+@)+]@@[@@@@[G/@@@[C@@@@[/K@@@T*@@@@GH@@@@@[@@@@]KG )@@G@@@[Y@@#@@@@@[@@@@@@AF@@@@)@;[MK[@K)]]-)KO^@H@@@@@[@@@@]@[=@@#@@@@@[@@@@@@KH )@@G@@/,0@@@/K@@[D*@@@@G/G@@@_H@@@@@AG@@@@)[ [EK^[#@)C]A[@K@@@@@@@/K@@[JN@0@[IKI )@@G@@@[(@@#/K@@[JN@0@[F@[$@@#/,0@[7/K@@@8(@@@@GAH@@@@)[I@<#@-)ES]&@@@@@)@[@)@KJ )@@G@@@@@@@@@[?@@@GETWD @#;@@@@#;@@@/K@K@[R@K@@GRA0@@^@[?@@#AI@@@@)[M[E()ES]&@KK )@@G@@]))[K@@@@@@@/\K@[MC8@@@#/K@@[//\K@[MC8@@@D/KH@@@A@K@@G[^@@@[AA0@@^AJ@@@@KL )@@G@@)[V[N@^@[#@CE]@@@@C@@@@][#)@@#[@@@[^R@K@@IC_)@@[G/@__"C@@@@@/K@@[\(@@@@@KM )@@G@@/K@@]UAK@@@@)[>[MK^^KL@[@@@@@@8L@@[LA )@@G@@AA0@^0AC@@@@)@G[##@[@K0@K^@K0@K0@@@@@@@@@@D@@@@S[@@@@LC8@@@]/C@@@Q/@@@@QLB )@@G@@[@@@@SC@@@@@A]K@@?AD@@@@)@O[F#@[@^G@^[@^G@@@@@@@D8@SU)[@@@@LC8@@@[/G@@@)LC )@@G@@/@@@@)G@@@@SD8@SU)/,)@@-[@@@@SAE@@@@)@X[##@[#@[@K0@K)@K^@@@@@@@@@@H8@@@[LD )@@G@@@[&@@]@@@@@@/,0@@@ @@@@L/,)@@-[@@@@SG@@@@SAF@@@@)@>[F#@[]@[@K[#@@K0@@@@@LE )@@G@@[@@@@[G@@@@TC8@@@[[@@@@TH8@@@[@[&@@]@@@@@@/,0@@@[@@@@UAG@@@@)@,[F#@@K0@^LF )@@G@@G@^G@[@@@@@@C8@@@[[^@@@;G8@@@[C@@@@W[@@@@WG@@@@[G@@@@SD8@@@[ @@@@VAH@@@@LG )@@G@@)@7[N#@[#@@[@[@@@@[@@@@[G^@@^0D8@@@[P8K@@[/,)@@6$8K@@@O8K@@[[@[@@@[@@@@VLH )@@G@@G@@@@VAI@@@@)[[[F#@GK0@K0@K[#@[#@@@@O8K@@[[@]@@[G@@@@VD8@@@[/^@@[ICC@@@VLI )@@G@@[@@@@VC@[@@@R^)@@@AJ@@@@)[E[M^@[#@@^@@@@@@[^@@^0G@@@@[C8@@@[[@@@@@G@@@@]LJ )@@G@@D8@@@[P8)@@[/,)@[]$8)@@JO8)@@[AK@@@@)[O[]K0#K0@K0@K0@K0@K0@K0@@@@@C@@@@TLK )@@G@@[@@@@+C@@@@UA@)@@ZR@)@@SA@R@@XR 0@@@R8K@@[AL@@@@)[W[F#@@K0@K^G@@K0@@@@@@LL )@@G@@G@@@@AC@@@@+[@@@@#G@@@@[C@@@@-/,)@]%[@@@@)C8@@@[[@@@@-AM@@@@)[>[EK^G@[@KLM )@@G@@0@K0@K^G@@@@C@@@@-/,)@]U/,$@@,R 0@@=/^@@]UH8@@@[C@@@@K/,0@#>[@@@@^AN@@@@LN )@@G@@)[,[E^G@@K^G@[@@@@@@@@@@/^@@]QH8@@@[C@@@@K/,0@#>[@@@@^G@@@@AC@@@@+[@@@@#LO )@@G@@G@@@@]AO@@@@)[7[F#@@^G@@K^G@@@@@@@@@H8@@@[C@@@@K/,0@#>[@@@@^G@@@@]C@@@@-LP )@@G@@[@@@@#G@@@@[C@@@@-AP@@@@)]@[N@^G@@K0@@@@@@P8)@@[[@#@@@C@^@@@[@@@@^G@@@@-LQ )@@G@@C@@@@][@@@@#G@@@@+C@@@@ /^@@]FAQ@@@@)]E[N@^G@@K0@@@@@@O8K@@[[@#@@@C@^@@@LR )@@G@@[@@@@^G@@@@-C@@@@[[@@@@#G@@@@+C@@@@ /,)@]2AR@@@@)]O[F@K[#@[@K[#@[#@@@@@@LS )@@G@@C@@@@-[@@@@[@@@@^G@@@@AC@@@@+[@@@@#G@@@@]AT@@@@LU )@@G@@)]&[##@[#@[#@[#@[#@@K0@K0@@@@@R 0@@V[@@@@VG8@@@[D@@@@)A[R@@YR 0@@)[@@@@)LV )@@G@@D@@@@)AU@@@@)],[F#@[#@[#@[@^G@@K@@@@/@@@]8H@@@@[C@@@@]O[K@@)A[K@@A/,)@[7LW )@@G@@ @@@@= @@@@@@[[^@@#.G8@@@[BC@@@@)#6[F#@@K0@K0@K0@K@K@@@@/,)@#,$9K@@@MF )@@G@@O9K@@[/^@@^#H@@@@OC@@@@N[@@@@OC@]@@@[@@@@NBD@@@@)#_[E^G@^[#@[#@[#@[#@[@@MG )@@G@@/@@@^DH@@@@OC@@@@N/,$@@2R 0@@L/,)@^X[@@@@KC8@@@[P9K@@[BE@@@@)^C[#@^G@^[#MH )@@G@@@[#@[#@[#@@@@@@@@@"^@@@MC@@@@N[@@@@MC@@@@O/,)@^X[@@@@KC8@@@[/G@@^FBF@@@@MI )@@G@@)^K[##@H@^G@^[@K0@K0@@@@@@@@@@@@@@@O@@@@@N/,0@#G/,)@^X[@@@@KC8@@@[/G@@^OMJ )@@G@@=@@@@[BG@@@@)^S[##@[@K^[#@[#@[#@[#@@@@@@@@R[K@@RR@)@@QR@K@@P @@@@K/,)@^XMK )@@G@@/G@@^W/@@@^V[@@@@KBH@@@@)^)[E^@[@K0@K0@@@@@@@@@@R@)@@&R@K@@>[@K@^0;@K@@EML )@@G@@;G@@@^;@K@@QC@K@^0C8@@@F/,K@@@BI@@@@)^([##@[#@[#@[#@[#@[#@[#@@@@@@/,K@@@MM )@@G@@R])@@!R]K@@?R[0@@:R[)@@%R[K@@(R[@@@*R@0@@$BJ@@@@)^1@'K[@^[@@)@[@I@S@@@@@MN )@@G@@@@@@@@)^@@@@/,)@@#[^@@@$C@F@@][^@@@+C@F@@[[^@@@HC@F@@@BK@@@@@@@@@@@[#@[@MO )@@G@@K0@K)@K^@@@@@@@@@@H8@@@[@[&@@]@@@@@@/,0@@@ @@@@L/,)@@-[@@@@SG@@@@SAF@@@@MP )@@G@@@@^@@^@@C@@[@@E@@[@@I@@[@@E@@5@@@@^8@@@@@@@@@@@]LOC SORTX MQ )@@G@@@@[@@@@@@@@@@@@@@@@@@@@@^@@@@@@]@@@@/A,B,D MR )@@G@@ *[@@@@*SDFF**[@@@@CTS@[=@#@@@@ AXR$. MS )@@G@@*[@@@@CTS@[,@[@@@@OPT*. *[@@@@CTS@[8@ @@@@ ER OPT$. MT )@@G@@*[@@@@CTS@]]@ @@@@ J 2,X11. *[@@@@CTS@]G@#@@@@ MU )@@G@@ END. _@@@@@0LR"M\________________________0CG[VKJ=(=/)0S";[_J6>M[@MV )@@G@@\U;.>_,08MP_L>@PT0______L^_/8[,8QT&T\#%Z>DJ>A!Q8J?[2Q00NW@"ZKOX6=@\#9@L;MW )@@G@@)@@[C@@@@@@@)@@@IG @@@@@C@@@@@B@@@@@ @@@@@A@@@@@@@@@@@]@@@@@^@@@@@[MX )@@G@@@@@@@@AA@@@F)@[@&G@@@@@@)@@@,4@@@@@@@@@@@A@@@@@A@@@@@D@@@@@A@@@@@A@ MY )@@G@@/ , . AB@@@F)@ [Y4@@@@@@@COB,B @ASM,S @ELT,L@@@@@^MZ )@@G@@@@@@@^@@@@@A@@@@@A@@@@@C@@@@@AAC@@@F)@K[Y4@@@@@@ @ELT,LYE @NEL,SNA )@@G@@ @MAP,S @ALG,S @FOR,SERS AD@@@F)@V@64@@@@@@)@@@V#*)CV@@NB )@@G@@(@@@@D/K@@[P*@@@@@ @SPL @HDG @PDP,LAE@@@F)@#[F@K6CS^[NC )@@G@@]@O6 G]A[#@@[@@@@F@[6@[[@@@@@3@@@@@Z/,0@@@/@@@[]H@@@@2C@@@@Z/K@@[]AF@@@FND )@@G@@)@G[U@@K0@@@ @@@@G1@@@@K*@@@@KH[@@@FC.@@@ZC/@@@[ @@@@I1@@@@G*@@@@GG/@__9NE )@@G@@C/)@@[AG@@@F)@R[EK^C[NAO0CS^G]^ #@@@@@@@[#/,0@@@[@@@[#@[9@[[@@@@@3@@@@@]NF )@@G@@/,0@@@/=0@[P)@)@@GAH@@@F)@)[](!ES^G]^^()EVM&[#@@@@@@@@@['@[[@@@@@5@@@@@XNG )@@G@@@@@@@F/,0@@@@[9@[[@@@@@4@@@@@XAI@@@F)@*[N]@O6 G]A[#@@@ @@@@I0@@@@G*@@@@GNH )@@G@@G/@__)C/)@@[[@@@@F@[;@[[@@@@@6@@@@@Z/,0@@@AJ@@@F)@2[MK0@@)CS@@@@@@G/@__'NI )@@G@@C@@@@F/=0@[P)@)@@G @@@@G1@@@@K*@@@@KG.@__9C[@@@FC/@@@[AK@@@F)@/[F@K)>G[NNJ )@@G@@UO0CS^I2@-?@(@@@@E/K@@[P(@@@@@@[_@[[@@@@@7@@@@@X@@@@@F/,0@@@/@@@[]AL@@@FNK )@@G@@)[ @V@K6CS@@)@M@K@)[C@V@K)>G@@@@@@@M/,0@@@/@@@[P______@@@@@,H@@@@2C@@@@)NL )@@G@@/K@@[PAM@@@F)[F[](!ES^G]^C(?ES]&4()@@@@@@@@@@@@5@@@@@Z@@@@@3@@@@@)/,0@@@NM )@@G@@@]A@[[@@@@@4@@@@@ZAN@@@F)[N[E()K0CU0^H2BX#*@@@@@*@@@@@ @@@@WA@K@@A[@@@[JNN )@@G@@R/K@@[G/@__"C@@@\T@]B@[[@@@@@5AO@@@F)[W[F@K0CX=[@K->GTN@O;@@@@@@@[@@@@@8NO )@@G@@@@@@@@/,0@@@/@@@[*/C@@[*D@@@@@ @@@@G/K@@[6AP@@@F)[>[]()ES^G]^G(G@@@@@@@O/,0@@@8N)@]BNU )@@G@@______ S[@])@]C@]@@[N_)@@HAU@@@F)]G[E(5EXOG@-)K^G]A[@@@@/C@@]QH@@@@INV )@@G@@C@@@@A/K@@]4[@@@@HC/@@@[@]<@[[@@@@@[@@@@@#AV@@@F)]P@;@K'C]A@K'CXK@)@Q@K@NW )@@G@@______ R[@])@]C@]@@[N_)@@HR@)@@;/K@@#Y(@@@@N/^@@]>AW@@@F)]W[F@K)>G[NNX )@@G@@%O'>G@-)K@@@/K@@]4[@@@@HC/@@@[@]0@[[@@@@@[@@@@@#@@@@@Q/,0@@@8N)@]UAX@@@FNY )@@G@@)]>@3#*)CS[#*-5@@@)@S@K@@@@@@@______ A[@])@]C@]@@[N_)@@HR@)@@;/K@@#YNZ )@@G@@(@@@@OAY@@@F)]:[F@K)>G[N%O'*S[#@)@@@/K@@]4[@@@@HC/@@@[@];@[[@@@@@[@@@@@#OA )@@G@@@@@@@S/,0@@@8N)@](AZ@@@F)]4[#]^O2>G[N%O'>G+A[#%@@@@@@@C@@@@@@]_@[[@@@@@@OB )@@G@@@@@@@@@@@@@#@@@@@3@@@@@@/,0@@@BA@@@F)]/[##C-)K- HDN@O'>G[NM@@@@@@@@@@@@ OC )@@G@@@@@@@J@@@@@#@@@@@3@@@@@@/,0@@@[@@@@JG@@@@@BB@@@F)#^[F#@-4K^G]A>#@-@ES2&@OD )@@G@@@@@@@3@@@@@]/,0@@@[@@@@KG@@@@ C@@@@J/K@@#Y(@@@@L@#[@[[BC@@@F)#H[F#@-)K)*OE )@@G@@S]$O()K0]A@@G@@@@KC/@@@[@# @[[@@@@@K@@@@@#@@@@[#/,0@@@[@@@[#@# @[[BD@@@FOF )@@G@@)#Q[##@-]EX]&@(5ES]$P#@@@@@@@@@#B@[[@@@@@]@@@@@K@@@@@#@@@@@3@@@@@K/,0@@@OG )@@G@@[@@@@KBE@@@F)#Y[F@K0CS^[#@-)K^[@@@@@/K@@ J/@@@#$/C@@#$H@@@@IC@@@@]/@@@#5OH )@@G@@H@@@@[C@@@@I/K@@BXBF@@@F)#$[M^IC]B^^@@@@@@/=K@C;+@@@@I @@@@I(@@@@@C/)@@[OI )@@G@@ @@@@G(@@@@IH@)@@@C/)@@#C/@@@[BG@@@F)#1[F]EO0CS^[;)-)K0CU4@@^^K@#;N8M@>ZOJ )@@G@@R@)@@L[@@@@LC@[J_"/K@@ J@#M@[[@@@@@I/,0@@@BH@@@F)#'[F]@) G]A[#W-)K7C]A@@OK )@@G@@C@@@@C/^@@^^H@@@@@C@@@@B[@@@@@@#Q@[[@@@@@5@@@@#;/,0@@@BI@@@F)^#[N#WCV=G@OL )@@G@@@-,K0@H[@@@#C[@@@@C/)@@[ @@@@G1@@@@I*@@@@IH@)@@ C@)@@@C/@@@[[@@@@@BJ@@@FOM )@@G@@)^H[F@@K^G]A9@K0@@@@@@@@C@@@@B/@@@^,H@@@@@C@@@@ /=K@^W+@@@@I @@@@I*@@@@KON )@@G@@/D@@^KBK@@@F)^Q[F#W)CS^H2@)@-1@@@@@@H@)@@@C/)@@]C/@@@[/K@@^_/@@@ GH@@@@@OO )@@G@@C@@@@^/@@@^WH@@@@@BL@@@F)^Z[M[#+]@-)K7C@@@/^@@^:H@@@@@C@@@@]/=K@C;+@@@@IOP )@@G@@ @@@@I(@@@@@C/)@@[ @@@@G(@@@@IBM@@@F)^([MK0CL=G]@]B^@@ @@@@G(@@@@IH@)@@@OQ )@@G@@C/)@@[C/@@@[/K@@ J@#*@[[/,0@@@[@@@@GC/@@@[BN@@@F)^3[EK8))CWO[]I-)@@@@@@@OR )@@G@@@#\@[[/,0@@@/K@@^/(@@@@@/=K@C;+@@@@I @@@@I(@@@@@C/)@@[BO@@@F)^/[N]G-)K@KOS )@@G@@8)CWK@(@@@@@C/)@@[ @@@@G(@@@@IH@)@@@C/)@@]C/@@@[/K@@ J@#1@[[/,0@@@BP@@@FOT )@@G@@) A[E^[]K-)K^DEA[@@@@@@@/K@@^^@#9@[[/,0@@@/K@@ J@#6@[[/,0@@@/=K@C;+@@@@IOU )@@G@@ @@@@IBQ@@@F) J[MK;@CS^G]@)CVKC@)@@X/@)@BX/C)@BXH@)@@AC@)@@I @@@@G1@@@@IOV )@@G@@*@@@@ID@)@@@C/@@@[BR@@@F) T[F#K-!K4@-)K0CS@@@@@@G/@__/C@@@@DA@)@@D[@@@[#OW )@@G@@N_)@@^R/)@@^[[@@@[C[@@@Y[@)@@@BS@@@F) +[F#@-)K0CS^[#@.(K;CS@R@0@[^[@]@@@OX )@@G@@C@#J_"R@0@[^/)@@ %C@@@[#A@0@[^R@0@@E[@@@@EBT@@@F) :[F;M.*^[#?)CVOI2A4@@@OY )@@G@@C[@@@)[@)@@[C@)@@Z/K@@AB(@@@@@8N)@ ZO/)@@[[@]J_"C@#J_"BU@@@F) 4[##?]A[]@OZ )@@G@@O; G]A@@@@@@@@@@@@@^J@[[@@@@@D@@@@@[/,0@@@[#)@@DN_)@@RC_)@@N[[@@@]BV@@@FPA )@@G@@)@U@K@) /@;#@-)^[]]O0 I0@@@@@[@@@@@U/,0@@@/^@@A G/@__#C@@@@F[@@@@F______PB )@@G@@@@@@@,BW@@@F)A#[E()K0]@-EEU]&[#@-6@@D@@@@@@^P@[[@@@@@9@@@@@@/,0@@@8N)@ 7PC )@@G@@G_)@@[@^L@[[@@@@@DBX@@@F)AG[F@K^DLN?O0CS^DTNGO3@@@@@@W@@@@@@/,0@@@@^R@[[PD )@@G@@@@@@@9@@@@@[/,0@@@/@@@AM/C@@AMBY@@@F)AP[##@-FEX2$X#@-EET+&@@@@@@@@@@@@@9PE )@@G@@@@@@@@/,0@@@@^T@[[@@@@@W@@@@@@/,0@@@@^S@[[BZ@@@F)AX[F#@CT=[@K> G1N@-)@@@PF )@@G@@@^W@[[@@@@@9@@@@@I/,0@@@/@@@A&/C@@A&H@@@@WC/@@[K@^U@[[CA@@@F)A&[F#,)C]^*PG )@@G@@(7ES^G@-7@@@H@@@@WC/@@[K@^Y@[[@@@@@9@@@@@@/,0@@@/@@@A!/C@@A!D@@@@WCB@@@FPH )@@G@@)A\[F@K^DLN,O0 G]AX@K&@@/,0@@@/K@@BX(@@@@#@^)@[[@@@@@9@@@@@I/,0@@@/@@@A5PI )@@G@@/C@@A5CC@@@F)A8[E()EU^G]BT@K^D-N@O;@@@@@@[@@@@@9/,0@@@/@@@B]/C@@B]D@@@@@PJ )@@G@@@^<@[[@@@@@@@@@@@9CD@@@F)B[[F#@-GES]&T#@CT=[@@@@/@@@BI/C@@BIH@@@@WC/@@[KPK )@@G@@@^&@[[@@@@@@@@@@@9/,0@@@@^>@[[CE@@@F)BE[F]SO0 G2A[#,)C]^0()@@@@@@9/,0@@@PL )@@G@@/@@@BP/C@@BPD@@@@W@^*@[[@@@@@I@@@@@9/,0@@@CF@@@F)BN[E(7K0]BX@K^D-N@O;)@@PM )@@G@@@@@@@I@@@@@9/,0@@@/@@@BX/C@@BXH@@@@WC/@@[K@^%@[[@@@@@@CG@@@F)BW[F#@-4K^GPN )@@G@@]@-EEXM&[#@@@^3@[[@@@@@9@@@@@#/,0@@@/K@@B3(@@@@H/K@@B5(@@@@@@^?@[[CH@@@FPO )@@G@@)B>[F#I)CN]&@(5K0CW4[]U@/,0@@@/K@@B3(@@@@@@^6@[[@@@@@#@@@@@9/,0@@@/K@@B:PP )@@G@@(@@@@#CI@@@F)B,[E()ES]$O()K0CX^[#&)@/K@@CV(@@@@@/K@@C;*@@@@@@^'@[[@@@@@.PQ )@@G@@@@@@@#@@@@@/@@@@@3CJ@@@F)B7[F]UO0 G[NGO0 G@-&K@@/C@@CBH@@@@WC/@@[K@ @@[[PR )@@G@@@@@@@.@@@@@@@@@@@/@@@@@3/,0@@@CK@@@F)C@[F@K&>G[N@O3 G]A[#,)@/C@@CKD@@@@WPS )@@G@@@ ]@[[@@@@@.@@@@@I@@@@@/@@@@@3/,0@@@/@@@CBCL@@@F)CD[F@K&>G[N@O;>G]A@K;)@PT )@@G@@H@@@@WC/@@[K@ ^@[[@@@@@.@@@@@@@@@@@/@@@@@3/,0@@@/@@@CKCM@@@F)CM[F@K^D(N@PU )@@G@@O0 I9N@-)K;) @@@@W@ A@[[@@@@@.@@@@@I@@@@@/@@@@@3/,0@@@/@@@CU/C@@CUCN@@@FPV )@@G@@)CV@:#@)CT4[#I@@@@)@W@S@@@@@@@______Y @DCTNR*@@@@[/K@@C;(@@@@@/K@@C;PW )@@G@@(@@@@GCO@@@F)C)[#@K> G[N@-)K> HLN@@@@@@@@@@@@@@9@@@@@]/,0@@@@ I@[[@@@@@6PX )@@G@@@@@@@W/,0@@@/K@@C;CP@@@F)@Z@K@)C*@3#@-EES]&@()K3)@@@@@(@@@@#@ K@[[@@@@@3PY )@@G@@@@@@@Z/,0@@@@ J@[[______*END CQ@@@F)@-@S@)C,@3@K& G[N@-)K&@/,0@@@@ N@[[PZ )@@G@@@@@@@-@@@@@6/,0@@@/K@@C;______Y @DCTNRCR@@@F)C4@M()EU)@@)@=@K@)C6@V#QA )@@G@@@-GES@@@@@@@@@@@@3/,0@@@@ O@[[______*END @@@@@]@@@@@9CS@@@F)C9[M()K0]@-QB )@@G@@4K@K8)*@@@@IH@)@@@C/)@@[C/@@@[/K@@DH*@@@@@8N0@[TO/K@@[@ P@[[@@@@@=CT@@@FQC )@@G@@)D#[M^ICC]B^K8*@@@/K@@[P[@@@@@G/@__"C@@@@@/=K@DH)@@@@I @@@@I*@@@@@C/)@@[QD )@@G@@ @@@@GCU@@@F)DH[F#*)CT4[#I)CN=G]^W@@/,0@@@@ >@[[/,0@@@/K@@DP(@@@@[/K@@DPQE )@@G@@(@@@@@/K@@DX*@@@@@CV@@@F)DQ[F#@-JK0CWO[])-)K'C@@/K@@D-(@@@@[@ %@[[/,0@@@QF )@@G@@/K@@DX(@@@@[@ *@[[/,0@@@@ $@[[CW@@@F)DZ[F]+-)K( G]AX@K2C] G@/,0@@@/K@@D(QG )@@G@@(@@@@]/K@@D((@@@@^@ 0@[[/,0@@@@ ,@[[/,0@@@CX@@@F)D*@;#@-$K^E+A[@K9)@@@@@QH )@@G@@)@&@C@@ADD M*@@@@[/K@@D5@ 9@[[/,0@@@/K@@D,(@@@@]@ 5@[[CY@@@F)@$@K@)D\@3@QI )@@G@@K%>G[N@O0CS@@@@@@@@ "@[[@@@@@D@@@@@6@@@@@&/,0@@@/K@@D8______$A$R$.CZ@@@FQJ )@@G@@)D5@3#@)C]@)CS@@@@)@(@S@@ADDINWHILE ERROR @A]@[[/K@@EBN@0@D'/^@@D;/G@@D8QK )@@G@@D@@@@DDA@@@F)@?@0@@@@@@@)D;@V]?O0 G@@@@@@(@@@@@//,0@@@______E IS &RR CODQL )@@G@@SF$, E VIA CG FILEDB@@@F)D"[##@-RES]&@()ES^G] )@@@@@@@'^@@@@@A^@[[@@@@@"QM )@@G@@@@@@@D@@@@@8@@@@@3/,0@@@@A#@[[DC@@@F)EA[##@-)K0CS^G]A[#@-)@@@@@@@@N#)@[FQN )@@G@@N#0@[ER@0@[DR@)@[CR@K@[B9\)@[ R]0@[]@A @[[DD@@@F)EI@F#@@@@@@)@_@)@@@@@@@QO )@@G@@)EJ@N#@-T@@@/K@@@@/K@K@_@A @@]BPC @@@@@@@@F@@[*4@K@_DE@@@F)EL[##@-)K0CQP )@@G@@S^G]A[#@)@@@@@@@@@/K@@@@^#)@[F^#0@[EA@0@[DA@)@[CA@K@[B9:)@[ AA0@[]DF@@@FQQ )@@G@@)@2[S@@@@@@@_____"@@[@@[@@@@@W@@@@@I@@@@@@@@@@@B@@@@@]@@@@@A@@@@@ @@@@@[QR )@@G@@ DG@@@F)@.@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@G@@@@[KDH@@@F@@^@@S@@W@@U@[K@@[@[O@@Q@@ @[G@C@@ET@@@@@@@@@@@ QT )@@G@@@@@@@#@@@@@S@@@@@X@@@@@A@@@@@I@@@@@A@@@@@L@@@@\U@@@@@+@@@@@-@@@@@B@@@@@AQU )@@G@@@@@@DS@@@@@]@@@@]>@@@@@]@@@@@P@@@@@M@@@@@J@@@@@XIGC PUTC QV )@@G@@MVCHAR MOVER NC PDP FAACM PP QW )@@G@@ELT UN WDS2 CONT PUNCH OPAFP QX )@@G@@MERGE PRTT XXRF PSRABS WDS3 SAVE QY )@@G@@BREAK CSF OPA OPOP NERR6$ NERR3$ QZ )@@G@@BPC @@[@@@@@@@EL@@@@@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@RA )@@G@@B ]@@@C@@^@@@@BUF ]@@@C@@ @@@@P ]@@@C@@A@@@@RB )@@G@@FS ]@@@C@@B@@@@H ]@@@C@@C@@@@N ]@@@C@@D@@@@RC )@@G@@DXX ]@@@C@@E@@@@SS ]@@@C@@F@@@@F ]@@@C@@G@@@@RD )@@G@@CPS ]@@@C@@H@@@@PR ]@@@C@@I@@@@SP ]@@@C@@J@@@@RE )@@G@@TT ]@@@C@@K@@@@AOPF ]@@@C@@L@@@@AP ]@@@C@@M@@@@RF )@@G@@TST ]@@@C@@N@@@@PNCH ]@@@C@@O@@@@PNCHI ]@@@C@@P@@@@RG )@@G@@SPLFLG ]@@@C@@Q@@@@PDP2 ]@@@C@@R@@@@ *NO.1*#@^'D;@[@@@[RH )@@G@@FSFK50@@@@@O@@@E@@91228 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[S@@@@@@@ E RJ )@@G@@ E IS LE NAMLE, FIBRK FIAA@@@F)@F[S@@@@@@@RK )@@G@@ E IS RS NAM VE E IS LT NAMAB@@@FRL )@@G@@)@R@K@)@@@3]@()O0ES G]&@@@@@@@@@@@@-@@@@@)@@@@@^@@@@@Z@@@@@R/,0@@@______RM )@@G@@ AC@@@F)@A[F#[#H@K^CM&TN@()O0@@@@@@@)@@@@@^@@@@@)@@@@@]/,0@@@/@@@@LRN )@@G@@/C@@@LD@@@@F@[M@@?AD@@@F)@J[E(&-)-^O0ES G^G^G4G@H@@@@=C@@@@B@[P@@?@@@@@@RO )@@G@@@@@@@<@@@@@+/,0@@@@[O@@?@@@@@FAE@@@F)@S[F@K3K0K3K0K+ES G]&@@@@@@@D@@@@@>RP )@@G@@@@@@@)/,0@@@[@)@@IC@)@@C[@@@@HC@@@@B/@@@@,AF@@@F)@-[F#[#H#[@K3K0K3K0K+@@RQ )@@G@@/,0@@@[@)@@OC@)@@E[@@@@NC@@@@D/@@@@,H@@@@=C@@@@D@[U@@?AG@@@F)@%[]()O0ESCRR )@@G@@SCL G]&[N@@@@@@@@@@@@@@P@@@@@)@@@@@&/,0@@@@[Z@@?@@@@@J@@@@@>@@@@@)AH@@@FRS )@@G@@)@T@S@)@2@2()-AO0ES G]&)@@@@@@@@@@@Z@@@@@Z@@@@@T/,0@@@@[)@@?______ RT )@@G@@M$A$R$AI@@@F)@8@+(*O0ESC@@@@@@)@W@S@@@@@@@@@@@@@______ B$R$K$/K@@[URU )@@G@@@@@@@Q@@@@@$@@@@#)AJ@@@F)@/[F#[]K()O3ET>HM&(N@()@@@@@Q@@@@@*@@@@@8@@@@@@RV )@@G@@@@@@@D@@@@@B@@@@@W/,0@@@@[-@@?AK@@@F)[ [F@K0K>EU>G^[#[]S(%@@@@@@[0/,0@@@RW )@@G@@@[<@@?/K@@[Q@@@@@(@@@@[0/,0@@@@[+@@?/K@@[UAL@@@F)[I[E()-)-^O0ES HOG^[]W@RX )@@G@@/,0@@@/K@@[B@[>@@?@@@@[0@@@@@(@@@@@)/,0@@@@[=@@?@@@@@(AM@@@F)[R[##[]-#[@RY )@@G@@K^G^G^G@@@@@@@@@@@*4@K@%R]0@@!@[%@@?/K@@[XN@0@[W@[*@@?/,0@@@@[$@@?AN@@@FRZ )@@G@@)@%@)@@@@@@@)[Z@<#[]>#[@@@@@@@/K@@@@AA0@@!/K@@@@/K@K@%@[%@@#BREAK @@@@@@SA )@@G@@@@F@@[AO@@@F)@Z[S@@@@@@@@@@@@I@@@@@8@@@@#)@@@@@]@@@@@A @@@@@D@@@@[]SB )@@G@@@@@@@ @@@@@[@@@@@@AP@@@F@@^@@A@@E@@E@@Y@@[@@+@@^@@^@@,@C@@[<@@@@@@@@@@@ISC )@@G@@@@@@B@@@@@["MOVER MVCHAR PRINT RDS1 WDS1 SD )@@G@@RDS2 WDS2 RDS3 WDS3 NERR3$ BREAK SE )@@G@@@@[@@@@@@@[-@@@@@@ ^@@@C@@]@@@@BRK ]@@@C@@#@@@@B1 SF )@@G@@]@@@C@@^@@@@C1 ]@@@C@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@)@@@"*@@@@@@)@@@N#H@@@@@/C@@@#D@@@@] . $R$K$,SH )@@G@@@USE BAA@@@F)@A@K@)@]@3@K)ES G]&(N@@@@@@@@@@@@@/@@@@@]@@@@@;@@@@@A/,0@@@SI )@@G@@/^@@]Z______ AB@@@F)@C[E()-)-)-%-)-%-)-%-)@C@)@@_[@@@@CC@@@@_[@)@@BSJ )@@G@@C@)@@_[@@@@AC@@@@"@[I@[A@@@@@.AC@@@F)@L[F#P#[#P#P#P#O@@@@@@@[@@@@@G@@@@@SK )@@G@@C/@@@# @@@@H @@@@G @@@@F[@@@@EC@@@@_[@)@@DAD@@@F)@U[F]^(* G]&]@-)-)-)@@@SL )@@G@@ @@@@] @@@@[@[S@[A/K@@#]@@@@@@@@@@[@@@@@@@@@@@@@/,0@@@AE@@@F)@<[F#[#[]C(SM )@@G@@*O0K0K0^@@@@/@@@[FG/@__'[@@@@^@[X@[A@@@@@@@@@@@@/,0@@@ @@@@[ @@@@#AF@@@FSN )@@G@@)@?[N#@K^G[@K0K^@@C/@@@[/^@@]>/C@@@5D@@@@]/^@@@9G/@__RC@@@@^/@@@[FG/@__]SO )@@G@@C@@@@^AG@@@F)@6[N#[#[@^G^G[@K@C/@@@[/^@@]T/G@@@_G/@__3[@@@@[G@@@@[C/@@@[SP )@@G@@/K@@@_ @@@@[[@@@@]AH@@@F)[@[F#[#[]G()O5ESCS]A@@@G@@@@@C/@@@[@[!@[A@@@@@#SQ )@@G@@@@@@@]@@@@@^/,0@@@[@@@@#G@@@@#AI@@@F)[D[##[@K0K5K=EU>G]&@@@@@@@@@@@@@@@ SR )@@G@@@@@@[[@@@@@@/,0@@@[@@@@FC@@@@#/K@@@>[@@@@@AJ@@@F)@C@S@)[L@<#[]O())@@@@@@SS )@@G@@)@F@C@B$R$K$/K@@]:@@@@@C/,0@@@@[2@[A______ B$R$K$AK@@@F)@G@K@)[P@;#ST )@@G@@[]S()O5EU*S@C/@@@[@[4@[A@@@@@F@@@@@]@@@@@F/,0@@@@[3@[A______ AL@@@FSU )@@G@@)[W[F#GK0^CM&)O0ES@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@/,0@@@[@)@@@G@)@@@C/)@@[SV )@@G@@[@@@@]AM@@@F)[>[F@K0K+EU G^G^G[#@@@@G@)@@@C/)@@[[@@@@^@[8@[A@@@@@@@@@@@@SW )@@G@@/,0@@@@[7@[A/K@@]QAN@@@F)[,[N#@K^G[@^HOHK@G/@__3[@@@@GG@@@@GC/@@@[/@@@]@SX )@@G@@G/@__#C@@@@^/@@@]QG/@__'[@)@@@AO@@@F)[8[F@K^C2&[NO(%-))CL@@@/,0@@@/K@@[$SY )@@G@@@][@[A@@@@@G@@@@@B@@@@@^/,0@@@/^@@]T/G@@['AP@@@F)][[E(*O0K0K0^G^G[@@@@@@SZ )@@G@@/@@@]QG/@__'[@)@@@G@)@@@C/)@@[[@@@@^@]#@[A@@@@@@@@@@@@AQ@@@F)]E[EK5K5^[@TA )@@G@@K@3]TH )@@G@@W()O0ESCSC@@)@(@C@CANNOT/K@@]/@]L@[A@@@@@-@@@@[]@@@@@//,0@@@______AX@@@FTI )@@G@@)@%@*@@@@@@@)]:@V])()O0@@@@@@@@@@@@(@@@@[]/,0@@@______AME=& FILE NN BRK TJ )@@G@@ ASSIGAY@@@F)],[F#@K0K5K^[#P#[]=@@@@/,0@@@[@@@@[C@@@@F/@@@]6/C@@]6D@@@@FTK )@@G@@[@@@@[C/@@@[@]N@[AAZ@@@F)]7@%()O0EU>G^G@@@)@\@S@@@@@@@ORED& RD IGNBRK CATL )@@G@@@]R@[A@@@@@[@@@@@]@@@@[#@@@@@/BA@@@F)@2@C@)]/@3]W()O0ESCSC@@)@3@C@NO FIETM )@@G@@/K@@#B@]S@[A@@@@@\@@@@[]@@@@@//,0@@@______BB@@@F)@4@8@@@@@@@)#]@N]W()@@@TN )@@G@@@@@@@//,0@@@______& GNOREDCARD ICARD, N BRK LD 2 OBC@@@F)#^[E()O0K0KTO )@@G@@3K^[#[#[#@@@*4@K[^R]0@[B@]W@[A/K@@#FN@0@#E @@@@]@]U@[A@@@@@3@@@@[]BD@@@FTP )@@G@@)[^@)@@@@@@@)#H@<#[](#@@@@@@@@C8FK@@AA0@[B/K@@@@/K@K[^@]W@@#BRK1 @@@@@@TQ )@@G@@@@F@@]BE@@@F)#L@3@K^[@K^@@@@@@)@;@S@@@@@@^@@@@@[@@@@@@/K@@@@[^@@@S[^@@@TTR )@@G@@[^@@@W[^@@[Z[^@@[+BF@@@F)@"@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YTS )@@G@@_____"@@@@@B@@@@[K . BG@@@F@@@@@@)@]@3@K)ES G]&(N@@@@@@@@@@@@@/TT )@@G@@@@@@@]@@@@@;@@@@@A/,0@@@/^@@]Z______ AB@@@F@@^@@B@@F@@F@@-@@[@@>@@ TU )@@G@@@@^@[C@C@@#R@@@@@@@@@@@A@@@@@I@@@@@I@@@@@DMOVER SCANBL IGC TV )@@G@@ PUTC CSF CHKASG IQUAL OPAP OPA TW )@@G@@ OPAFP NERR3$ BRK1 @@[@@@@@@@#J@@@@@@ ^@@@C@TX )@@G@@@]@@@@FS ]@@@C@@#@@@@I ]@@@C@@^@@@@BRK ]@@@C@TY )@@G@@@ @@@@FACPKT ]@@@C@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@$$#@@@-$#@@@@$#@@@@@@@@@@@@@@@@@@@@@$-#@@@--#@@@@-#@@@@@@@@@@@@@@@@@@@@@UA )@@G@@$@#@@@-@#@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[M^G^[@K^G[@K@@N@0@@FUB )@@G@@/K@@@G*@[@@@@[B@@T/K@@[HN@0@@A/^@@@BH@@@@EC@[@@@R8VK@@AA@@@F)@E[F@K0^G1#UC )@@G@@H]@()O0@@@@@@@@@@F@@@@@F/,0@@@[@)@@[C@-@@[[@@@@@C@[@@@@[D@@T/K@@[HAB@@@FUD )@@G@@)@N[E(&O0ESCSCK>G4G^G4@@/C@@@XD4@@@A@[H@@T@@@@@@/,0@@@@[G@@T@@@@@H@@@@@GUE )@@G@@@@@@@]AC@@@F)@W[F@K0K3K0K3^G1#G@@@@@[[)@@#C[-@@[[[@@@]C[[@@@[@)@@[C@)@@EUF )@@G@@[@@@@@C@@@@I/^@@@\AD@@@F)@>[F#[#H]C(&O0ESCSCSC@@/G@@@\D@@@@@@[P@@T@@@@@@UG )@@G@@@@@@@K@@@@@@/,0@@@[]@@@^C]@@@JAE@@@F)@,@<@K^[#@@)@[@*@@@@@@@ & LE FORUH )@@G@@ING FIASSIGNERROR @[S@@T/K@@[HN@0@@1/^@@@2AF@@@F)@A@C@)@2@;]G()O0K0K=ES@UI )@@G@@@@@@@@@@@@@@@@@@@M/,0@@@@[T@@T@@@@@[@@@@@L/,0@@@______AG@@@F)@9@E()@@@@@UJ )@@G@@)@B@S@)@'@V#[]G()@@@@@@@@@@@@O/,0@@@@[U@@T______=& STATUS@@@@@NAH@@@FUK )@@G@@)@.[E()-)-EO0ES G]&]A@@@C8)@@]@[W@@T@@@@@Q@@@@@@@@@@@P@@@@@G/,0@@@@[V@@TUL )@@G@@@@@@@BAI@@@F)[A[F@K^G^G^D-#[#[#@@@@@9!)@@VR]0@@U[^)@@RH8)@@[/K@@@@!^)@@RUM )@@G@@@[X@@T/K@@[DN@0@[CAJ@@@F)[J@V#[#[#@@)@R@)@@@@@@@@@@@)@@@@@@@@[X@@#CHKASGUN )@@G@@@@@@@@@@F@@@*4@K@RR@K@@Z9,@@@XAK@@@F)[M[F#[]WK0K0K0K0K0@@@@@C8FK@@A@K@@ZUO )@@G@@9%@@@X9()@@V[^@@@RAA0@@UC8@@@#/K@@@@/K@K@RAL@@@F)[V@N@K@@@@@)@E@8@@@@@@@UP )@@G@@@@@@@ . @ASG,A@@@@@B@@@@@[@@@@@@ /K@@@@[^@@@8AM@@@F)@L@0@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@0@@@@@*@@@@@G@@@@@U_____"AN@@@FUR )@@G@@@@^@@^@@C@@C@@S@@[@@W@@]@@^@@)@C@@[X@@@@@@@@@@@DMOVER FACIL US )@@G@@CSF OPA OPAF OPOP NERR4$ NERR3$ UT )@@G@@CHKASG @@[@@@@@@@[O@@@@@@ ^@@@C@@]@@@@FACPKT ]@@@C@@#@@@@UU )@@G@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@UV )@@G@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[M[#@)C@C@@@@@@/C@@[+UW )@@G@@H@FK@[C/@@[K/@@@[+/C@@[+D@FK@[[@@@@PG/@__"C8FK@@R8VK@@AA@@@F)@E[F@[#]^@(UX )@@G@@-#]A@@@@@@@@[@@@@[@[H@@N@@@@@@@@@@@@/,0@@@[#)@@@N_0@[IC_)@@[/@@@[+AB@@@FUY )@@G@@)@N[F#@)CSK0-)K^G@@@@@@@C@@@@@/^@@@XG/@__#C@@@@[[@@@@]C@@@@@/^@@@SG/@__LUZ )@@G@@C@@@@[AC@@@F)@W@N#@@@@@@)@A@K@)@Y@<@K+O0O0@@@@@I@@@@@A/,0@@@8N0@@H______VA )@@G@@ G_)@@[[@@@@]AD@@@F)@+[E(?()(-#]A^GCS^G@@@@G@)@@]C/)@@[[@@@@#H@@@@]VB )@@G@@C@@@@Q@[O@@N@@@@@K@@@@@J@@@@[0AE@@@F)@:@;#]^)()(?()()@)@C@K@______;;;;;;VC )@@G@@@@@@@#@@@@@J@@@@[0@@@@@@@@@@@@/,0@@@[@)@@@AF@@@F)@2[F#]^2&@(-#@--#@@@@@@VD )@@G@@[@@@@@G@@@@@C/@@@[@[S@@N@@@@@@@@@@@@@@@@@C/,0@@@@[R@@NAG@@@F)@;@UK0@@@@@VE )@@G@@)@E@K@)@"@V#]^2&@@@@@@@E/,0@@@[#)@@^______ ]@@@[JC#)@@@H/@@[OAH@@@FVF )@@G@@)[[@+ESK0@@@)@G@K@)[ @N@@@@@@@N8L@@I8N0@@"______ G_)@@[@[X@@N@@@@@^VG )@@G@@@@@@@@AI@@@F)[B[F@K+O0O0) G G G@@@@@C/@@@L@[)@@N@@@@@K@@@@@J@@@@[F@@@@@IVH )@@G@@@@@@@G/,0@@@^^K@[FAJ@@@F)[K[N#@--@K[#]A^G@N8M@@@O@)@@PR@)@@ [@@@@ C/@@@JVI )@@G@@/@@@[R/C@@[RH@@@@#C/@@@/[@@@@ AK@@@F)[U[F@K=O6O0) G GCSK@@@@N@0@[=@[=@@NVJ )@@G@@@@@@@#@@@@@J@@@@[Y@@@@@J@@@@[0/,0@@@^^K@[YAL@@@F)[<[#@K0--#]A^GCSK0@@@@@VK )@@G@@@@@@@@*4@K@LN#0@@VR@)@@UR@K@@T9\)@@RR]0@@O@[>@@N/K@@[>AM@@@F)@L@)@@@@@@@VL )@@G@@)[:@<#] ^GCS@@@@@@9:)@@RAA0@@O/K@@@@/K@K@L@[>@@#CONT @@@@@@@@F@@#AN@@@FVM )@@G@@)[\[F#]A^G]@)C]@@@@@@@@@C@VK@[[^@@@J[^@@@![^@@@5[^@@[[C8FK@@^#0@@VA@)@@UVN )@@G@@A@K@@TAO@@@F)[8@N#]@@@@@)@I@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@[VO )@@G@@@@@@@@/K@@@@[@K@@QAP@@@F@@^@@^@@C@@ @@M@@[@@Q@@]@@#@@W@C@@['@@@@@@@@@@["VP )@@G@@IGC MOVER MVCHAR PUTC NERR3$ CONT VQ )@@G@@@@[@@@@@@@[!@@@@@@ ^@@@C@@]@@@@C1 ]@@@C@@#@@@@Q@[@@@&@[@@@VR )@@G@@@@@@@@@@@@@@@K[@@@KK[@@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@VS )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@)@@@'@K)@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@^[@FK@]'=@@@@;?@@@M;*K@@MC@V@@@VU )@@G@@C@FK@[AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@BCSF$ VW )@@G@@CSF @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((^@@@%(^@@@@@@@@@@(^@@@VX )@@G@@@@@@@@@@@@@@(%^@@@%%^@@@@@@@@@@%^@@@@@@@@@@@@@@@)@@[MK8@--#]BOGCX@[[@@@@VY )@@G@@C[@@@G @@@@K[@@@@[ @@@@@[@)@@@G@)@@@C/)@@#[@@@@@C/@@@[AA@@@F)@E[N#%^]$)(VZ )@@G@@)E[N@@G@@@@@C/@@@[@[K@@N/K@@[@@@@@@@@@@@@H@@@@@@@@@@@@/,0@@@[[@@@[AB@@@FWA )@@G@@)@O[EK+O/ GCSK0)@@@@@@@@C/@@@[/@@@@FH@@@@I[@@@@]@[M@@N@@@@@@@@@@@@/,0@@@WB )@@G@@[@@@@@AC@@@F)@X[N#]A[@K^G]@)@@C/@@@]/@@@@'/C@@@'G/@__.C@@@@[/@@@@%/G@@@%WC )@@G@@G/@__9[@@@@@G@@@@@AD@@@F)@$[F#@--]LN0O0--#@@@@@@R@K@@[[@@@@]@[W@@N@@@@@@WD )@@G@@@@@@@@/,0@@@[@)@@@C/)@@[[@@@@[AE@@@F)@0[F;%@-G(-@ESK0CX@@@@@[@@@@KC/@@@[WE )@@G@@@[X@@N@@@@@@@@@@@4@@@@@]/,0@@@^^K@@4N8LJ_"AF@@@F)@9@F@@@@@@@)@#[@@@@@@@@WF )@@G@@ORED& RD IGNRD, CADCT CANS ON OPTIOHAN 12MORE T/K@@@FAG@@@F)@F@C@)@'@;#WG )@@G@@+ ]&]&]&^GC@@@@@@@N@0@[]@[-@@N@@@@@#@@@@@K@@@@@J/,0@@@ @@@@@______AH@@@FWH )@@G@@)[[@:@K0--#]A@@@@@)@L@S@@@@@@@DCT @@@@@@@@F@@#*4@K@LR@K@@PR]0@@O@[<@@NWI )@@G@@/K@@[#AI@@@F)@O@C@)[A[##] OGCS^[@K@@[^@@@O[^@@@^[^@@@HC8FK@@A@K@@PAA0@@OWJ )@@G@@/K@@@@/K@K@L@[<@@#AJ@@@F)[I@;@^[@K^[@@@@@@)@G@K@@@@@[K /K@@@@[^@@@JWK )@@G@@[^@@@R[^@@@?[^@@@NC8FK@[[^@@@#AK@@@F)@I@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@_____"@@@@@[, AL@@@F@@^@@B@@F@@A@@R@@[@@V@@ WM )@@G@@@@#@@Q@C@@[P@@@@@@@@@@@ @@@@@A@@@@@L@@@@@ISCANBL IGCL IGC WN )@@G@@ PUTC OPAP NERR3$ DCT @@[@@@@@@@[C@@@@@@WO )@@G@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@FS ]@@@C@@^@@@@DXX WP )@@G@@ ]@@@C@@ @@@@I ]@@@C@@A@@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@^@IS)@@@;#!#[#[#>@K3K7@@@@@@[@)@@@C@)@@^/K@@@?WR )@@G@@(@[@@ER@K@@@[@@@@@C@@@@@@ AA@@@F)@B[F;9@K"K^C^@()O7ES@@@@@@@@^@@@@@@WS )@@G@@@@@@@#@@@@@G/,0@@@^^K@@KN8L@]T^^K@@GN8LJ_"AB@@@F)@K@;@K0K"^H4IOG@@)@[@K@WT )@@G@@______@@@@@,H@)@@ C@-@@P[@@@@WG/@@@#C@[@]T@[R@@E@@@@@KAC@@@F)@R[F@^G^CM&WU )@@G@@[NX#[#[#=@@@N8L@@P@[V@@E@@@@@G@@@@@@@@@@@[/,0@@@[@@@@GG/@__"/@)@[QAD@@@FWV )@@G@@)@)[F@K)K]&[NW(,O0K0@@@@C/@@@B@[W@@E@@@@@A@@@@@W@@@@@@@@@@@#@@@@@+/,0@@@WW )@@G@@^^K@@+AE@@@F)@([F#X#X@K0Y9K^G[#=@@@@C@-@@P;@@@@H2&+A]A'A)G@@@@@C@@@@W@[:@@E@@@@@@@@@@@W@@@@@@@@@@@#@@@@@@XD )@@G@@/,0@@@AK@@@F)[Z[F#X]@(?O0EV>H2&2A]A8C@@@@W@[!@@E@@@@@ @@@@@W@@@@@@@@@@@#XE )@@G@@@@@@@@/,0@@@[@@@@WAL@@@F)[*[F#T#X#L@K+ET>G^G^G@@[@@@@G@[2@@E@@@@@#@@@@@]XF )@@G@@/,0@@@/K@@]H(@@@@][@@@@WG@@@@ AM@@@F)[1[F] #@(,O7K0^H4H4C@@@/,0@@@[@@@@WXG )@@G@@G@@@@WC/@@@[@[2@@E@@@@@W@@@@@@@@@@@G/,0@@@AN@@@F)['[E(%O0EV>H2&+A]A'A+A8XH )@@G@@[@@@@WG@@@@]C@@@@W@[4@@E@@@@@]@@@@@W@@@@@@@@@@@#@@@@@KAO@@@F)]#[F]@(?O0EXI )@@G@@V>H2&2A]A'A0G@@@@ C@@@@W@[6@@E@@@@@ @@@@@W@@@@@@@@@@@#@@@@@@/,0@@@AP@@@FXJ )@@G@@)]G@;#X@K^G^G^G^G@)@C@K@@@@@@@@@F@@[*4@K@CR@K@@HR]0@@F@[9@@E/K@@]KN@0@]JXK )@@G@@[@@@@WAQ@@@F)@E@K@)]N@:#[]H#[#[@@@@@)@#@C@@@@@@[/K@@@@A@K@@HAA0@@F/K@@@@XL )@@G@@/K@K@C@[9@@#ELT AR@@@F)@^@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XM )@@G@@@@@@@@@@@@@ @@@@@A @@@@@]AS@@@F@@@@@@Q])@@CC]@@@ED]@@@E;]@@@M'M@@@DXN )@@G@@'M@@@E'Q@@@E_____.N]@@@D@@[@@@R]@@@EO]@@@DA]@@@E@@^@@J@@N@@^@@V@@[@@Z@@HXO )@@G@@@@^@@I@C@@]S@@@@@@@@@@@ @@@@@#@@@@@S@@@@@A@@@@@X@@@@\U@@@@@+@@@@@-@@@@@BXP )@@G@@@@@@DS@@@@@[@@@@]>MVCHAR PUTC IGC NERR3$ ELT XQ )@@G@@ @@[@@@@@@@]P@@@@@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@B XR )@@G@@ ]@@@C@@^@@@@BUF ]@@@C@@ @@@@N ]@@@C@@A@@@@P XS )@@G@@ ]@@@C@@B@@@@SS ]@@@C@@C@@@@F ]@@@C@@D@@@@CPS XT )@@G@@ ]@@@C@@E@@@@PR ]@@@C@@F@@@@TT ]@@@C@@G@@@@AOPF XU )@@G@@ ]@@@C@@H@@@@AP ]@@@C@@I@@@@0@@@@C)@@[F#U-)K0CU4[#A-(Y8*@@XV )@@G@@^^K@@GN8LJ_"[@)@@@C@)@@^/K@@@?(@[@@ER@K@@@[@@@@@C@@@@@AA@@@F)@D[F#+)CK^@XW )@@G@@()EUM&[@K0@@@[T@@&@@@@@K@@@@@T@@@@@@@@@@@S@@@@@G/,0@@@^^K@@KN8L@]TAB@@@FXX )@@G@@)@M@:#+CUOHUA@@@@@)@^@K@@@@@@@@@@@@@______@@@@@,H@)@@UC@-@@P[@@@@WG/@@@#XY )@@G@@C@[@]TAC@@@F)@R[F@^G]^^()EUOG]A[#Q@@N8L@@P@[X@@&@@@@@*@@@@@@@@@@@^/,0@@@XZ )@@G@@[@@@@*G/@__"/@)@[QAD@@@F)@)[F@K)C[N@O4>HDN@-)@@@C/@@@B@[Y@@&@@@@@V@@@@@WYA )@@G@@@@@@@@@@@@@S@@@@@+/,0@@@^^K@@+AE@@@F)@([F#M-(K^G#6!@K0]A?@@@C@-@@P;@@@@#S-(^HC@@@[@@@@WC/@@@H[[@@@[C[G@@E[@)@@@C@?@@DYG )@@G@@;@@@@G[NMO4>G+A[#M@@@@@@@C@@@@W@[!@@&@@@@@@YH )@@G@@@@@@@W@@@@@@@@@@@S@@@@@@/,0@@@AK@@@F)[Y[##C-(K) H[N@O4>HDNK@@@@@@@@@@@@ YI )@@G@@@@@@@W@@@@@@@@@@@S@@@@@@/,0@@@[@@@@WG@@@@@AL@@@F)[&[F#@-(K4CUL#U)CT=@@@@YJ )@@G@@/K@@#((@@@@ /^)@#(H@)@@@C/)@@^[@@@@WG@@@@ C@@@@W@[\@@&AM@@@F)[\@3]^O1>G[YK )@@G@@NWO0 G@@@@@@)@A@K@______@SEQ @@@@@Z@@@@@S@@@@@J@@@@@Y@@@@@@/,0@@@AN@@@FYL )@@G@@)[5@3#@-#ES]&[#@-&@@@@@@)@C@K@______@SEG (@@@@#@[6@@&@@@@@S@@@@@A/,0@@@YM )@@G@@@[5@@&AO@@@F)[;@3@K+ G[N@-)K7@)@E@S@______. S$$$EQ(@@@@X@[9@@&@@@@@CYN )@@G@@@@@@@S/,0@@@/K@@]@AP@@@F)][[F@K) G[N@O7 G[N@-)@@C/@@@C@[.@@&@@@@@)@@@@@SYO )@@G@@@@@@@J@@@@@S@@@@@E/,0@@@/K@@]GAQ@@@F)]E[##@)CK]&O()EV+&@(=@@@@@@@@@@@@@@YP )@@G@@@@@@@S@@@@@J@@@@@S@@@@@@/,0@@@/K@@]Q[@@@@[AR@@@F)]M[F#@CT^G]^@(*ES]&8()@YQ )@@G@@@@@@@[@@@@@J@@@@@S@@@@@@/,0@@@[@@@@[G@@@@@C/@@@[@][@@&AS@@@F)]V[](*K0CS^YR )@@G@@H]A[]EO1>G@@@@@@@@@@@@@S@@@@@]/,0@@@[@@@@[G@@@@ C@@@@[@]^@@&@@@@@ AT@@@FYS )@@G@@)]<[F#@-)K)*S]&8()K0]A@@G@@@@[C/@@@[@]A@@&@@@@@[@@@@@J@@@@@*/,0@@@[@@@@*YT )@@G@@@]A@@&AU@@@F)]?[F#@-)^G]^@(,ES]&8()@@@@@@]@@@@@J@@@@@S@@@@@J/,0@@@[@)@@*YU )@@G@@G/)__"C@)@@[[@@@@]AV@@@F)]5[F#@-)K0CS^G]A9@K+>GS@@@@@]/,0@@@/K@@#N(@@@@IYV )@@G@@[@@@@[G@@@@[C@@@@[@]C@@&@@@@@*AW@@@F)]"[E()K0CS^CEA@(,ES^G@@C/@@@[@]G@@&YW )@@G@@@@@@@[@@@@@J@@@@@*/,0@@@[@@@@*@]G@@&@@@@@SAX@@@F)#B[##@-)K) H1N@O7 G[NW@YX )@@G@@@@@@@@@@@@@I@@@@@[@@@@@J@@@@@S@@@@@@/,0@@@[@@@@[G@@@@[AY@@@F)#J[F#@-)K7CYY )@@G@@S[#@)C]^G@@@/,0@@@/^@@A^/C@@#RH@@@@[C/@@[C[@@@@[G@@@@IC@@@@[@]I@@&AZ@@@FYZ )@@G@@)#S@M(,ES@@@)@H@K@)#U@V#@-#ES@@@@@@@@@@@@H/,0@@@@]N@@&______STOP @@@@@-ZA )@@G@@@@@@@JBA@@@F)#X@'()K0CT=[]CO0 H0@@@@)@J@C@STOP @@@@@J@@@@@-/,0@@@/K@@#(ZB )@@G@@(@@@@#@]O@@&@@@@@SBB@@@F)@K@C@)#=@;#@-^ES]&[#@- ES0@@@@@@@@]/,0@@@@]S@@&ZC )@@G@@@@@@@J@@@@@S/,0@@@@]R@@&______BC@@@F)#:[E()K0CS^CEA@((EUOG@@C/@@@[@]V@@&ZD )@@G@@@@@@@W@@@@@@@@@@@*/,0@@@[@@@@*@]V@@&@@@@@SBD@@@F)#4[##M-(K2C]^@(>ES]&=@@ZE )@@G@@@@@@@@@@@@@@@@@@@S@@@@@C/,0@@@/K@@^#(@@@@[[@@@@WG@@@@WBE@@@F)#/[E((ET^G]ZF )@@G@@A>#C-(K^C[NE@@@@@C/,0@@@/K@@^H[@@@@WG@@@@[C@@@@W@]Z@@&@@@@@[@@@@@WBF@@@FZG )@@G@@)^ [E()EUM&=()K0]A>#M-@@/,0@@@[@@@@WG@@@@WC/@@@ @]<@@&@@@@@W@@@@@W@@@@@@ZH )@@G@@@@@@@SBG@@@F)^I[](*ES]&=((EU^G]A>#K@@@@@@@G@@@@ C@@@@W@]>@@&@@@@@ @@@@@WZI )@@G@@@@@@@@@@@@@S@@@@@@BH@@@F)^Q[F#M-=K^C(NAO0CS^G]^^/,0@@@[@@@@*@]%@@&@@@@@SZJ )@@G@@@@@@@]/,0@@@/K@@^'(@@@@][@@@@WBI@@@F)^Z[F#@O4>HEA@K4*UOC[NE@@@@@@K/,0@@@ZK )@@G@@[@@@@WG@@@@WC/@@@[@]%@@&@@@@@W@@@@@@@@@@@*BJ@@@F)^*[]()EUM&=(=K0CUOG+A=@ZL )@@G@@@@@@@@[@@@@WG@@@@]C@@@@W@]?@@&@@@@@]@@@@@W@@@@@@@@@@@SBK@@@F)^0[#]@O4 G[ZM )@@G@@NMO4>H]A[#M@@@@@@@C@@@@W@],@@&@@@@@ @@@@@W@@@@@@@@@@@S@@@@@@/,0@@@BL@@@FZN )@@G@@)^8[F#K-(^H%@-&K^CLNA@@@@@@@@@/,0@@@/K@@A[(@@@@@/^@@A[H@@@@@C/@@@^[@@@@WZO )@@G@@G@@@@ BM@@@F) [[]()ET2&@()K0CUOG]AK@@@@@@@(@@@@][@@@@#C@@@@W@]5@@&@@@@@-ZP )@@G@@@@@@@S@@@@@]@@@@@YBN@@@F) D[F@K) G(N@O3>G[NC-)@@C/@@@[@]9@@&@@@@@]@@@@@SZQ )@@G@@@@@@@]@@@@@S@@@@@K/,0@@@/K@@ PBO@@@F) M[##C-(K^C[NEO0 G9N@@@@@@@@@@@@@@SZR )@@G@@@@@@@]@@@@@S@@@@@@/,0@@@/K@@ Z[@@@@WG@@@@]BP@@@F) U[E(=K0]AL#M-@EU]&@($@ZS )@@G@@@@@@@]@@@@@S@@@@@@/,0@@@[@@@@WG@@@@@C/@@@[@].@@&@@@@@@BQ@@@F) <[E((EU^G]ZT )@@G@@AX@K4*U^HE^O/,0@@@[@@@@WG@@@@ C@@@@W/K@@ _(@@@@K@]_@@&@@@@@ @@@@@WBR@@@FZU )@@G@@) ?[](MVCHAR PUTC MOVER WDS2 PUNCH AG )@@G@@IGC OPAP NSTOP$ NERR3$ FAACM @@[@@@@@@@ANAH )@@G@@@@@@@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@B ]@@@C@@^@@@@AI )@@G@@BUF ]@@@C@@ @@@@FS ]@@@C@@A@@@@DXX ]@@@C@@B@@@@AJ )@@G@@N ]@@@C@@C@@@@P ]@@@C@@D@@@@SS ]@@@C@@E@@@@AK )@@G@@F ]@@@C@@F@@@@CPS ]@@@C@@G@@@@PR ]@@@C@@H@@@@AL )@@G@@SEQX ]@@@C@@I@@@@TT ]@@@C@@J@@@@AOPF ]@@@C@@K@@@@AM )@@G@@AP ]@@@C@@L@@@@@@@@@@@%^@@@@@@@@@@@@@@@)@@@SK)@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]'=@@@@R#F@@@AA@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@^@@[@@ @@[@@B@@[@@F@@@@@@@@#FACIL$ FACIL @@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@N@LPQ@N@LSE@N@LSW@N@LSZ@)@@@C@)@@@60@@@@@@)@@@F]@@@@@@/,0@@@ SPEC3 AS )@@G@@ SPEC2 SPEC1 TPF$. AA@@@F)@[[](*O0ET>G]&[N[]@(*@@@@@@@@@@@@@@AT )@@G@@/,0@@@@[K@@L@@@@@F@@@@@E@@@@@@@@@@@D@@@@@@AB@@@F)@D[E()O3ES G^G^C]&-N@(&AU )@@G@@@@@@@K@@@@@D@@@@@@/,0@@@@[L@@L@@@@@F@@@@@E@@@@@C@@@@@DAC@@@F)@M[E()O0K0KAV )@@G@@-ES G2&]A]^C/,0@@@@[N@@L@@@@@[@@@@@@@@@@@E/,0@@@@[M@@L@@@@@F@@@@@EAD@@@FAW )@@G@@)@V[E()O3EU*SCK>G]&TNP#@@[P@@L@@@@@[@@@@@C@@@@@G/,0@@@@[O@@L@@@@@@@@@@@@AX )@@G@@@@@@@EAE@@@F)@=[F]^()O3EU*SCL G]&2A@@[R@@L@@@@@@@@@@@E/,0@@@@[Q@@L@@@@@]AY )@@G@@@@@@@K@@@@@H/,0@@@AF@@@F)@![F]C()O6K0K+ES H=G^HKD@@@@@@[T@@L@@@@@^@@@@@HAZ )@@G@@/,0@@@@[S@@L@@@@@]@@@@@G/,0@@@AG@@@F)@6[F@K[#P#P]K(*O0K0@@@@@[X@@L@@@@@EBA )@@G@@@@@@@[/,0@@@[@@@@@G@@@@@C/@@@[/@@@[A/C@@[AAH@@@F)@_[F#[]H#@(&O5K0K^G^G0@BB )@@G@@[@@@@@C@@@@@/K@@[E@[X@@L@@@@@@@@@@@@@@@@@N/,0@@@[@@@@NAI@@@F)[C[EK5K>EVCBC )@@G@@]A]^1NS(&@@@@@@@@@@@@@@@/,0@@@@[+@@L/K@@]F@@@@@@/,0@@@[@)@@@C/)@@ AJ@@@FBD )@@G@@)[L[E(%-)-%)C@-%-%-C@@@@/,0@@@[@@@@[G@@@@[C/@@@[/@@@[=/C@@[=D@@@@[@[<@@LBE )@@G@@@@@@@@AK@@@F)[U[E(*O0K0K0KHOG@@[$@@L@@@@@[@@@@@C@@@@@N/,0@@@[@@@@NBF )@@G@@@[$@@L@@@@@E@@@@@[AL@@@F)[<[F@K0K3K>EVC]A]^1NS@@@@@@@]/,0@@@@[:@@L/K@@]FBG )@@G@@@@@@@]/,0@@@[@@@@CC@@@@@/K@@[&AM@@@F)[?[E(&O5K0K5K^@K5K5@@@@[@@@@]G@@@@]BH )@@G@@C/@@@[/@@@]C/C@@]CD@@@@]@[?@@L@@@@@[@@@@@CAN@@@F)[5[F]K(*O0ESCSCL*S G2&*BI )@@G@@@@@@@]@@@@@K@@@@@N/,0@@@[@@@@N@[0@@L@@@@@E@@@@@[/,0@@@AO@@@F)["[E()-EO6KBJ )@@G@@^G^D+&1NG(%@@@@@@]@@@@@K@@@@@^/,0@@@@[1@@L/K@@]F@@@@@^/,0@@@@[0@@LAP@@@FBK )@@G@@)]B@<#[@K^G@)@]@*@@@@@@@SSIGNE NOT A. FILEMARVELABORT @[4@@L/K@@]MN@0@]EBL )@@G@@@[2@@LAQ@@@F)@B@K@)]F@3]W()O0ESCSCO@@@@@@@'^@@@@@[5@@L@@@@@]@@@@@I@@@@@EBM )@@G@@/,0@@@______D.& AR@@@F)]L@V#[#[#@@)@J@)@@@@@@@@@@@)@@@@@@@@[6@@#FN BN )@@G@@@@@@@@@@F@@[*4@K@JR]0@@M@[6@@LAS@@@F)]O@<#[]>#[@@@@@@@)@D@)@@@@@@@@@@@@]BO )@@G@@@@@@@C@@@@@[@@@@@@/K@@@@AA0@@M/K@@@@/K@K@JAT@@@F)@H@K@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_____"@@@@@#AU@@@F@@@@@@]]@@@GBQ )@@G@@;+@@@C;MG@]G_)@@[CC )@@G@@@[Z@@A@@@@@@@@@@@@@@@@@]/,0@@@[@@@@@G@@@@@AF@@@F)@;@;@K0--#]A^GCS@)@^@K@CD )@@G@@@@@@@@@@F@@D*4@K@^N#0@@JR@K@@I9\)@@GR]0@@B@[<@@A/K@@@.AG@@@F)@A@K@)[]@;#CE )@@G@@]^4GCSK0-)@@C8FK@@^#0@@JA@K@@I9:)@@GAA0@@B/K@@@@/K@K@^@[<@@#GRAB AH@@@FCF )@@G@@)[D[N@K[#@-)K0C@@@[^@@@5C8FK@ [@K@@FC@VK@^[@K@@DC@VK@#[@K@@EC@VK@][^@@@GCG )@@G@@[^@@@$AI@@@F)[N[MK^[@K[@K^[@@@[^@@@<[^@@@S[^@@@M[^@@@+C8FK@B[^@@@A[^@@@1CH )@@G@@[^@@@2[^@@@6C8FK@AAJ@@@F)[X@N@K@@@@@)@#@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@ /K@@@@[^@@@BAK@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@^@@J@@[@@N@@[CK )@@G@@@@#@@K@C@@[Z@@@@@@IGCL IGC PUTC NERR3$ GRAB CL )@@G@@ @@[@@@@@@@[^@@@@@@ ^@@@C@@]@@@@@]6@@@@@@@@@@@@@@@@@@@]Y@@@@@@CM )@@G@@)@@@IS)@@@QG@@@@@@)@[@C@)@@@Y)@@@@@@@@@@@@@@@@@@@@@@@@@ . CN )@@G@@@@@@@@AA@@@F)@#@Y)@@@@@@)@@@6K@@@@@@MAP ALG FOR COB ASM ELT CO )@@G@@@@@@@@@@@@@@@@@@@@AB@@@F)@A[YK@@@@@@SEQ SAV PCH BRK MER DCT CP )@@G@@SPL HDG PDP SEC NEL AC@@@F)@L@QK@@@@@@)@@@"=@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DOC PUN AD@@@F)@B[Y=@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE@@@F)@M[Y=@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF@@@FCT )@@G@@)@X@&=@@@@@@)@J@S@)@@@F]@@@@@@/,0@@@______ M$A$R$@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@AG@@@F)@[[]()ES]&@(!EVM&@()K@@@@@@@@/K@@ ;@@@@@#@@@@[*@@@@#)@@@@@@CV )@@G@@@@@@[$@@@@[$@@@@@JAH@@@F)@D[##@-[ES2&@(>ES]&[#@@@@@@@@@[%@[9@@@@[%@@@@[(CW )@@G@@@@@@@@@@@@[$@@@@@@/,0@@@@[*@[9AI@@@F)@L[#]^O2*]A[]AO0 G[NE@@@@@@@@@@@@@@CX )@@G@@@@@@[%@@@@[(/,0@@@@[:@[9/K@@AQ@@@@@@/,0@@@AJ@@@F)@T@N#@-)@@@)@M@K@)@V@V#CY )@@G@@@-^ETK@@@@@@@@@@@@/,0@@@[@@@@^______= C@@@[:@[?@[9AK@@@F)@Y@2()ES]&@CZ )@@G@@()ES^@)@O@K@@@@@@@______@@@@@=/K@@@0@@@@@ @@@@[(@@@@@M@@@@[?@@@@[(AL@@@FDA )@@G@@)@=[##@- ETM&@()ES]&@()@@@@@@@@@@@@^@@@@@O@@@@[!@@@@[?@@@@[(@@@@@@/,0@@@DB )@@G@@@[,@[9AM@@@F)@?@+()ES^G]@@@@@@)@Q@K@)@0@F]E@@@@@/,0@@@______@@@@@,/K@@@'DC )@@G@@@[\@[9@@@@@@@@@@@AAN@@@F)@1[](>ES]&@()ES]&@()ES@@@@@@@@@@@@@@@@@@A@@@@@^DD )@@G@@@@@@@Q@@@@[!@@@@[?@@@@[(@@@@@@AO@@@F)@9[F#@]A>#@-)K^G]A@@@@@[@@@@^C@@@[\DE )@@G@@/^@@[]H@@@[,C@@@@^A@K@@-N_0@@MR/K@@[@[1@[9AP@@@F)[][F;C-)K[@K^HC)@@@@@@@DF )@@G@@/C,@[F?8)@@OC@)@@-/K@@ 58N0@@/O/K@@[/@@@[CH@@@@^C@[J_"AQ@@@F)[F[F]*)C]@)DG )@@G@@C]@)C@@@@@@@/K@@@E/K@@[)/K@@[)/K@@[)/K@@[)/K@@[)/K@@[)/K@@[)'^@@@@AR@@@FDH )@@G@@)[O[F@K^[@K^[@K^@@@@@@@@/K@@^3/K@@^0/K@@^!/K@@^(/K@@^&/K@@^-/K@@ 2/K@@#ZDI )@@G@@/K@@[)AS@@@F)[X@:@K^G@-)@@@@@@)@S@K@@@@@@@@@@@@@______= G@@@@@C/@@@#DJ )@@G@@@[.@[9/K@@@E/K@@ ,AT@@@F)[+[##@-^ETM&@()ES]&@()@@@@@@@@@@@@ @@@@[(@@@@@SDK )@@G@@@@@@[?@@@@@@@@@@@@/,0@@@[@@@@@AU@@@F)[%@3@ES^HC-(K0@@@)@U@K@@@@@@@______DL )@@G@@@@@@@,G@@@@ [@[@@EC/@@@[R@K@@-@]@@[9/K@@]MAV@@@F)[0[F#@-AES]&[#@-(Y5C]^WDM )@@G@@/,0@@@^^K@[/N8LJ_"R@K@@-@]#@[9@@@@[(@@@@@U/,0@@@[@@@@BAW@@@F)[9[](>ES]&[DN )@@G@@@ES]&@()ES@@@@@@@@@@@@@F@@@@@E@@@@@D@@@@@C@@@@[/@@@@[?@@@@@B@@@@@@AX@@@FDO )@@G@@)][[##@-(K0CU=G]A[#@)@@@@@@@@@/C)@]ED@)@@D[@@@@@G@@@@C[@[@]TC@@@@DR@K@@-DP )@@G@@@]^@[9AY@@@F)@W@0@@@@@@@)]D@V@K= G@@@@@@[(/,0@@@/^)@]M______ED.& PECIFIDQ )@@G@@SSOR S PROCENO NEWAZ@@@F)]G[E()ES^G]A>#M)CUOGUA=[@[@@PC@@@@@R@K@@-/K@@ 5DR )@@G@@ @[@@ER@K@@-@]D@[9@@@@@W@@@@[0BA@@@F)]P[EY4*S[#@-)K=>G(N@@@@@@@@@@@@@@@@DS )@@G@@/,0@@@[@@@@@G@@@@@C/@@@[ @@@@][@-J_"C/)@@[BB@@@F)]Y[]()ES^[#@-EETM&[#@@@DT )@@G@@@@@@@@@]M@[9@@@@@G@@@@@@/,0@@@@]L@[9/K@@@E@@@@@G@@@@[?BC@@@F)]&[N#@C]A@KDU )@@G@@^@K0C@/C@@]1H@@@@HC/@@@Z/^@@#K/C@@]!G/@__9C@@@@H/@@@]1G/@__#[@@@@HBD@@@FDV )@@G@@)]0[F@K0CS[#@-)^HE@@@@@@/^@@];H@@@@-C/@@@D[@)@@]G@)@@]C/)@@[[@@@@@C@@@@GDW )@@G@@/^@@#KBE@@@F)]9[F#@-&K4+A[@K^HE@@@@@^^K@#^N8L@@P/^@@#C/C@@#@H@@@@]C/@@@ADX )@@G@@R@K@@-[@@@@@C@@@@]BF@@@F)#]@3]QO0C[N@-)K@@)@+@S@IONS ONY OPTTOO MA/K@@]SDY )@@G@@@]Z@[9@@@@@]@@@@#^@@@@@H/,0@@@BG@@@F)@>@*@@@@@@@)#C@V]KO0 G@@@@@@@@@@@[0DZ )@@G@@@@@@[(/,0@@@______ IS 6&D, MAXEL CARF MARVBH@@@F)#F@%()K0CUR!E@@@@)@%@S@EA )@@G@@@@@@@@-Z. OP NOT AOPTION/K@@@E @[J_"R@K@@-@]-@[9@@@@@+BI@@@F)@!@)@@@@@@@EB )@@G@@)#K@<]SO0 G]A@@@@@@]=@[9@@@@@%@@@@[0/,0@@@______& CTAL)=TION(OBJ@@@FEC )@@G@@)#O@<]UO0 G[N@@@@@)@1@S@@@@@@@@@@@@@______D.& IGNORE@@@@[2@@@@@H@@@@[1ED )@@G@@/,0@@@BK@@@F)#S[F#@-CES]&@()K0C@-)@@G@@@@@C/@@@#/K@@]S@]&@[9@@@@@1@@@@[3EE )@@G@@@@@@[(/,0@@@@]>@[9BL@@@F)@4@K@)#-@3#@-^ETM&@()ES@@@@@@@@@@@4@@@@[?@@@@@@EF )@@G@@@@@@@@/,0@@@[@@@@@______= BM@@@F)#$@U()ES^@@)@6@0@@@@@@@T VALIIGN NOEG )@@G@@QUAL SARD, E HDG CERR ON/K@@#1@@@@@ @@@@[(BN@@@F)@/@K@)#%@3#@-CES]&@()K0EH )@@G@@@@@@@@@]:@[9@@@@@6@@@@[0@@@@[(/,0@@@@]%@[9______D& BO@@@F)#0[F@K4<6>#EI )@@G@@@-DETM&@()@@@@@@[?@@@@@@@@@@@@/,0@@@ @@@@][@[J_"C/@@@[R@K@@-/K@@@EBP@@@FEJ )@@G@@)#9[E()K]&[]OO2>G]A[#@@@G/@__L[@@@@H@]1@[9@@@@@G@@@@@@/,0@@@@]0@[9/K@@@EEK )@@G@@@@@@@GBQ@@@F)^][F@K4*S[@^G]A@@@@@@@@G/@__.[@@@@]G@@@@]C/@@@[/@@@@EG/@__'EL )@@G@@C@@@@HR@K@@-/@@@^OBR@@@F)^F[F@K^HE@-FES^@()K0@@@@]9@[9@@@@@]@@@@^L@@@@@HEM )@@G@@/,0@@@^^K@^LN8L@@P/^@@^S/G@@^HBS@@@F)^O@+K0CS^@@)@"@*@@@@@@@OPTIONNLY 2 EN )@@G@@ARD, O HDG CERR ON/K@@#/[@@@@GG@@@@GC/@@@[BT@@@F)[#@S@)^S@:]KO0 G[N@-)@@EO )@@G@@@@@@@@@]/@[9@@@@@"@@@@[0@@@@[(/,0@@@______ED& ALLOWBU@@@F)^X[F#M.(K4*EP )@@G@@]^8()ES^G]@@/K@@@E@#[@[9@@@@@G@@@@@@/,0@@@/K@@@E @[@@P @[J_"R@K@@-BV@@@FEQ )@@G@@)^&[EK4C]^/()K0C@-*@@@@@[@@@@#C/@@@[/K@@@E@#B@[9@@@@@@/,0@@@/K@@@E[@@@@[ER )@@G@@C/@@@[BW@@@F)^\[F@^H]@-0K7C]@-,@@@@@C@@@@@/@@@ */C@@ *D@@@@@ @@@@X/K@@@EES )@@G@@[@@@@^C/@@@[/K@@@EBX@@@F)^8[E[#@-EEV2&[#@-)@@@@@[@@@@H@#Q@[9@@@@@]@@@@@@ET )@@G@@/,0@@@[#)@@][@@@[JC_)@@[G/@__"BY@@@F) [@%K[@K@@@)[A@K@) A@F]]@@@@@/,0@@@EU )@@G@@______ /K@@ *8N0@^;G_)@@[/@@@ AG/@__RBZ@@@F) B[]()ES]&0()ES^G]A[#S@EV )@@G@@@@@@@@[@@@[0C@@@[4@#W@[9@@@@[%@@@@[(@@@@[0@@@@[$@@@@[ACA@@@F) J[##@-?K* EW )@@G@@H9N@O6 G[NW@@@@@@@@@@@@@@@@@[6@@@@[0@@@@[(@@@@@@/,0@@@[@)@[1C@)@[5CB@@@FEX )@@G@@) R@V#@CV)@@)[C@K@) U@V#@-KES@@@@@[C/,0@@@[@@@@I______ . G@@@@@C/@@@IEY )@@G@@@#Z@[9CC@@@F) X[]()EV]&@()K0COM&0()@@@@@@@@@@@[%@@@@[0/,0@@@@#-@[9@@@@[2EZ )@@G@@@@@@@I@@@@[0@@@@[(CD@@@F) >[F#@CW[#K-MES^G]@@@@@/K@@@E@#&@[9@@@@@@/,0@@@FA )@@G@@[@@@@ C/@@@[[@@@@XC/@@@[@#+@[9CE@@@F) ,@;]&O0CS^@K5*@@)[E@K@ REQUEMARVELFB )@@G@@/K@@[)[@@@@@C/@@@[/K@@@E@#(@[9@@@@@@/,0@@@CF@@@F)[G@0@@@@@@@) 5@V]KO0 G@FC )@@G@@@@@@[0@@@@[(/,0@@@______D& IGNORERROR, D IN EST CARCG@@@F) 8[]()K0C@-FD )@@G@@)K[#@@)[M@C@UNDEFIH@@@@#C/@@@#/@@@ACH@@@@#C/@@@^/K@@@E@#,@[9@@@@[ECH@@@FFE )@@G@@)[N[C@@@@@@@@@@[C@@@@@@@______& RFLOW.AY OVEOR ARRLOOK F$R$). LE(M$AFF )@@G@@NED FICI@@@F)A@[#@K= G[N@O0CS^E%A@@@@@@@@@@#5@[9'^@@@@@#4@[9@@@@[M@@@@[0FG )@@G@@@@@@[(/,0@@@/^@@AJCJ@@@F)[W@*@@@@@@@)AC@V]KO0 G@@@@@@@@@@@[0@@@@[(/,0@@@FH )@@G@@______L.& IS FUL FILE M$A$R$CK@@@F)AF@+()K0CPOG@@@@@)[-@)@@@@@@@$ FILEFI )@@G@@ M$A$RROR ONI/O ER@#7@[9'^@@@@@#6@[9@@@@[WCL@@@F)[>@K@)AJ@3]KO0 G[N@-)K%FJ )@@G@@)@@@@@'^@@@@@#8@[9@@@@[-@@@@[0@@@@[(/,0@@@______.& CM@@@F)AP[F#@)C]A[FK )@@G@@#@-)K0CS^G@@*4@K[7N#0@["R@K@[.9\)@[;R]0@['@#;@[9/K@@ATN@0@AS@#9@[9CN@@@FFL )@@G@@)[7@)@@@@@@@)AY@<#@-QK0CS@@@@@9:)@[;AA0@['/K@@@@/K@K[7@#;@@]IN @@@@@@FM )@@G@@@@F@@[CO@@@F)A+@V#@-)K@@)[$@0@@@@@@@@@@@[K @@@@@I@@@@@[@@@@#)@@@@@@FN )@@G@@/K@@@@^#0@["A@K@[.CP@@@F)[![K@@@@@@@@@@@@@@@@@@H$$$EQ,@USE S@@@@@>@@@@@#FO )@@G@@@@@@@)_____"SAV SAVE @@@@@ACQ@@@F@@@@@@@-CES]&@()K0C@-)@@G@@@@@C/@@@#FP )@@G@@/K@@]S@]&@[9@@@@@1@@@@[3@@@@[(/,0@@@@]>@[9BL@@@F@@^@@L@@P@@R@[#@@[@[B@@JFQ )@@G@@@@ @[_@C@@A>@@@@@@@@@@@#@@@@@N@@@@@I@@@@@[@@@@@X@@@@@A@@@@@+@@@@]>@@@@@JFR )@@G@@@@@@["@@@@B@@@@@@#@@@@@S@@@@@YWDS1 MOVER READ PRINT FS )@@G@@ SCAN GRAB PGETWD GETWD OPAP SCANBLFT )@@G@@ IGC PUTC OPA OPO DCT BRK1 FU )@@G@@ MVCHAR WDS2 SEQ PUNX NERR2$ NERR6$FV )@@G@@ NERR3$ IN @@[@@@@@@@A)@@@@@@ ^@@@C@@]@@@@A FW )@@G@@ ]@@@C@@#@@@@CHAR ]@@@C@@^@@@@I ]@@@C@@ @@@@K FX )@@G@@ ]@@@C@@A@@@@P ]@@@C@@B@@@@FS ]@@@C@@C@@@@F FY )@@G@@ ]@@@C@@D@@@@AP ]@@@C@@E@@@@SPLFLG ]@@@C@@F@@@@C1 FZ )@@G@@ ]@@@C@@G@@@@B1 ]@@@C@@H@@@@B ]@@@C@@I@@@@BUF GA )@@G@@ ]@@@C@@J@@@@SEQX ]@@@C@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[MKO@KO@KL#@@@@A#@@[FR;@@@[[@@@@BR;@@@#/K@@@CGC )@@G@@[@@@@BR;@@@]/K@@@C[@@@@BR;@@@[AA@@@@)@E[F#@[@[#@@^G@^G@@@@@@A#@@[GA#@@[FGD )@@G@@R;@@@[/KF@@#[@@@@C&#FK@[C^F@@@/K@@@X @@@[GAB@@@@)@N[F[K[#@[[K0@K^G@^G@@@GE )@@G@@ @@@[G @@@[F/K@@@X @@@[F @@@@BA#@@[GR;@@@[/K@@@X @@@@BAC@@@@)@W[F[K0@K0@GF )@@G@@K0@K0@K0@K@@&8K@@[R@V@@[/K@@@,*@@@[FA]0@[ A@0@[^A@)@[#A@K@[] @@@@BAD@@@@GG )@@G@@)@>[MK0@^@[@^G@@@@RB@@@C @FK@#8@)@@: @[)@@R8)@@BQ@V@@]8@)@@$A#[)@@R#@@[[GH )@@G@@R8)@@FAE@@@@)@\[EK^G@^C@^[#@@K)[K@@@/K@@#M/,0@@@R#FK@@R]0@[ /K@@#(/,0@@@GI )@@G@@R#@@@C/^@@@5R#G@@@AF@@@@)@8[N[K^G@@^ [KK@@:9K@@[C[K@@BA[K@@@9*@@@ R#;@@[GJ )@@G@@R#V@@]R#F@@[R]0@[ /K@@]"(@@@@BAG@@@@)[][F@KL@KOC@=G@^C@4^@@@C[K@@B'=@@@@GK )@@G@@R#@@[H/,0@@@9?@@@#/K@@[E%9K@@]C[K@@B/,0@]GAH@@@@)[F[EK^ ]@D#@[]@H@EK]CC@GL )@@G@@R#0@@ R;@@@@/,0@]G'=@@@@R#@@[H/,0@@@9?@@@#/K@@[W%9K@@#AI@@@@)[O[N@[@EE@)GM )@@G@@*]]@@@%8@@@[R#@@@B/K@@#XA KK@A/,0@[:R;@@@C')I)]]/S )@@C9@@@./,0@[(AJ@@@@GN )@@G@@)[Y[F@EE])CE@O)^KO@@@@@@/,0@[(R#0@@ R;@@@@/K@@#XA KK@A/,0@[(R#0@@ R;@@@CGO )@@G@@/K@@[=AK@@@@)[$[N[K^G@^G@@@K@@')G)[7&;0@@[&;K@@[&;@@@[;CK@@M;G@@@MR[K@[IGP )@@G@@R#)@[I/K@@#XA KK@AAL@@@@)[1[UK^@K@@@C>H@@@C(H@@@C!H@@@C1H@@@C5H@@@/KF@@@GQ )@@G@@/K@@[0/S )@@')I)]]/K@@[6:9@@@ AM@@@@)[/[V@^@K@@@[>J@@@[(J@@@[!J@@@[1J@@@GR )@@G@@[5J@@@@@@@@@/K@K][Q;@@@@[^@@][C-H)@@/\@@[.AN@@@@)]B[N@^@K^G@^ [KO^9*@@@IGS )@@G@@9*@@@G9*@@@E9*@@@C9?@@[J/K@K][Q;)@@@[^)@][[-J)@@/\)@]CAO@@@@)]L[F[KO ]@OGT )@@G@@K) KOC[O@@@@/K@@]Y(0@@@[9*@@@I9?@@@D/KF@@@(4@@@[9*@@@O9*@@@M9*@@@KAP@@@@GU )@@G@@)]U[##@[[K) KOC[O[#@[]@O@@@@@@R#K@@HR#@@[M/K@@]>(?@@@[9*@@@L9?@@@FA#@@@KGV )@@G@@R#@@[LAQ@@@@)]+[F[K0@KOG@^G@^G@[@@@@/KF@@@8KK@]:N8K@@CR#)@[IR#K@[IR#@@[IGW )@@G@@A#@@@PR#@@[N9*@@@NAR@@@@)]:[N[^[@@K^G@@@@@/SI)@@:@K@[O')H)]8%80@@ ;?0@@AGX )@@G@@ @@@@J/K@@](8K)@]\N8)@@AC[G)@IAS@@@@)]5[F#@[#@[@KO [KO [@@@@A<"@@CA$"@@CGY )@@G@@A:"@@CA\"@@CA3"@@CA7"@@C/K@@]!R#K@[I:@K@[OAT@@@@)@@@?@@@@@@@)@B@G@)]"@N#GZ )@@G@@@[#@@@*@@@[FR]0@[ @@@@@@TAG$1$DUMMY$A @FREE,@@@@@@AU@@@@)#@[N@@]=@*]HA )@@G@@@@@@@@/^@@#FR#])@@R80@@F&8)@@[R8)@@]&8K@@[R@V@@[A#FK@#R;@@@[/K@@#MAV@@@@HB )@@G@@)#E[F#@@K@K0@^[#@@@@@@@@R]0@[ 8@)@#JA#[)@@')]@@@R8)@@BQ@V@@]8@0@#CA#[)@@HC )@@G@@R#@@[[AW@@@@)#N[F[^G@^[#@[@^@@@@@@@@9?FK@[/K@@#W9?FK@^/^@@#VR#@@[F/K@@#XHD )@@G@@(@@@[G @FK@]*@@@@BAX@@@@)#W[#]@D[K0@K0@K0@K0@KK@@@@@@@/KF@@^*@@@@BR]0@[ HE )@@G@@R@0@[^R@)@[#R@K@[]R[K@@@/,0@@@AY@@@@)#=[F#@@K0@[]@T#@@()@-@I'=@@@@C8@@[CHF )@@G@@[@@@[E'=@@@@/KF@@ /KF@@A*@@@[G/KF@@#*@@@[FAZ@@@@)#!@F]@)@@@@)@@@1]@P]@P]HG )@@G@@@P]@P]@P]@O@R\@@@@R:@@@@R$@@@@R7@@@[R3@@@[R\@@@['=@@@@BA@@@@)@A@-]@P]@O*HH )@@G@@@@@@@@)[[@C@)[A@S@INFOR @@@@@@@@@[[@ @@@@@@@@8@@DR7@@@@R3@@@@BB@@@@HI )@@G@@)[D[S*@ ^@@@) ( / @@[@@@@@^@@[@@@@@@@@@@@@@@@@@@HJ )@@G@@8@X@@CBC@@@@)[O@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@[@@ABD@@@@@@^@@#@@B@@D@@T@@C@@9@@@@@@@[P@@@@#,@@@@@QRINF$ HL )@@G@@ SELT$ DUSE$ CSF$ FILE$ ELT$ PRINT$HM )@@G@@ SNAP$ EXIT$ NXELT @@[@@@@@@@@@NXFILE @@[@@@HN )@@G@@@@@@@#ELTFIL @@[@@@@@@@@AINBUF @@[@@@@@@@@GINUSE @@[@@@HO )@@G@@@@@@@KINFORX @@[@@@@@@@@PINFOR @@[@@@@@@@@UELIST$ @@]@@@HP )@@G@@@@@@@C#@^'M(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[M@K^[@K0CW@@@@[@@@@@C@]@@@@[C@@A/K@@[^N@0@@BHS )@@G@@/@@@@CG/@__RC4[@@@R8:K@@R8VK@[AA@@@F)@E[EK8-@()()(0()(-#@@@@@[F@@A@@@@@#HT )@@G@@@@@@@]@@@@@]@@@@@[@@@@@[/,0@@@[@)@@[C@+@@[AB@@@F)@N[F]DN+A@K0-C(0()@@@@@HU )@@G@@@@@@@@@@@@@^/,0@@@[#)@@@N_0@@FC_)@@[@[G@@A@@@@@@/,0@@@AC@@@F)@W[M()K[@^GHV )@@G@@CS^G@@[@@@@@G/@__"C@@@@@[@@@@@C/@@@H8N0@@SG_)@@[/@@@@ZC5)@,_[E[@>ZC,@@,;[[-@WBC[)@,.[[[@M\AD@@@F)@=@UK3K@@@@)DV@0@@@@@@@IP )@@G@@OC& DING TLE REAOR WHI/O ERRFILE I/K@@@A[@@@\TG/@__"AE@@@F)D-@C@)@$@;]IQ )@@G@@C()O0K0K@)@@@@@@@)@3@<]K()O0ES@@@@@@@@@D+@@@@D(@@@@D%/,0@@@______IT )@@G@@EL& O MARVENTS TAH@@@F)@7[F#[]T#[#GK6K@@@@@@@@[@@@[JR/K@@[/K@@[A*@@@@@IU )@@G@@G/@__"C@@@\T@[+@D\'^@@@@@[-@D\AI@@@F)[@[F#[#[;WK^[#H#[]O@@@@/,0@@@[@@@DUIV )@@G@@D@@@\T/K@@[M8N0@[@O/K@@[[@[J_"C@@@DTA@K@DTAJ@@@F)[D[]()O7ES G2&TNG(&O3@@IW )@@G@@@@@@@@@@@@>)@@@@WC@@@@M0@@@@DS@@@@@@@@@@@@@@@@@@@@@@DUAK@@@F)[L[F#[@K]&]IX )@@G@@A]A]A]A]A@@@N#0@D6R@K@D59,@@D39!)@D1R]0@D0@[0@D\/K@@[PN@0@[O@[,@D\AL@@@FIY )@@G@@)[U@F#@@@@@@)D!@)@@@@@@@)[V@N#[]W@@@/K@@@@/K@KD!@[0@@#LT @@@@@@@@F@@[IZ )@@G@@*4@KD!AM@@@F)[X@3#[#[#[#[#[@@@)D(@S@@@@@@@@@@@@[_____"/K@@@@^#0@D6A@K@D5JA )@@G@@9%@@D39()@D1AA0@D0AN@@@F)D?@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HAO@@@F@@@@@@"#0@@JC]@@@J"F0@@JD#0@@C"E@@@DJC )@@G@@[]@@@CD]@@@C;A@@@=K/@@@@@@@@@@@@@@@@R;@@@@#]@@@@@@^@@C@@G@@C@@W@@[@@)@@AJD )@@G@@@@^@D7@C@@[<@@@@@@@@@@\U@@@@@A@@@@@P@@@@@]@@@@DSTOCXP TOCX JE )@@G@@OPA OPOP OPAP SORTX NERR6$ NERR3$ JF )@@G@@LT @@[@@@@@@@[X@@@@@@ ^@@@C@@]@@@@SS ]@@@C@@#@@@@JG )@@G@@SP ]@@@C@@^@@@@PNCH ]@@@C@@ @@@@AOPF ]@@@C@@A@@@@JH )@@G@@TT ]@@@C@@B@@@@)@@@K@)@ @K@)@@@V]@()O0@)@B@C@@DCTNR@@@@@N@@@@@ JI )@@G@@/,0@@@______@HDG,N@@@@@^@@@@@[AA@@@F)@C@K@)@#@3#[]@()O0K0K7@@@@@@@(@@@@#JJ )@@G@@@[M@@W@@@@@O@@@@@B/,0@@@@[L@@W______Y AB@@@F)@E@K@)@D@<@K-ES G@@@@@@JK )@@G@@)@G@K@Y @DCTNR@@@@@E@@@@@N/,0@@@/K@@@M______@HDG,NAC@@@F)@I@C@)@H[##JL )@@G@@[]^()O0K0K'@C_)@@[G/@__"C@@@\T@[Q@@W@@@@@G@@@@@O/,0@@@@[P@@W______AD@@@FJM )@@G@@)@P[EK;K0K'K^C=@()-)@@@@@[V@@W@@@@@P@@@@@V/,0@@@^^K@@VN8L@>ZR@K@@][#)@@AJN )@@G@@[@@@[JAE@@@F)@Y[F#[#[@K'K^C=@()-)@@@@[Y@@W@@@@@Q@@@@@=/,0@@@^^K@@=N8L@>ZJO )@@G@@/^@@]#H@@@@@[@@@@#AF@@@F)@$[F#!@K^C2$TN?(6O0K0@@@[-@@W@@@@@#@@@@@ @@@@@^JP )@@G@@@@@@@A/,0@@@/^@@@2/G@@@%[@@@@@AG@@@F)@0[F]L#[#[#!@KI2$S@@@@@@ @@@@@^JQ )@@G@@@@@@@A/,0@@@/^@@]#H@@@@@C@@@@[@[+@@W/,0@@@AH@@@F)@9[E()-)-EO3ES H+&[N[#@JR )@@G@@@[$@@W@@@@@S@@@@@N@@@@@]@@@@@R@@@@@@/,0@@@@[&@@W@@@@@#AI@@@F)[][F#L@K&EUJS )@@G@@>G]&1N@(*-)@@[%@@W@@@@@]@@@@@N@@@@@]@@@@@N@@@@@K/,0@@@/K@@[J(@@@@]AJ@@@FJT )@@G@@)[F[EK4K0K^D+&(N@(?O0@@@@@@@@N@@@@@]@@@@@N@@@@@@/,0@@@/K@@[T[@@@@^G@@@@]JU )@@G@@C/@@@[AK@@@F)[O[E(*-)CUCSCN I]&[NS@@@@@@@]@@@@@N@@@@@@/,0@@@[@@@@^G@@@@@JV )@@G@@C/@@@[@[,@@W@@@@@@AL@@@F)[X[E()O8ESCVC]A]B]A]^K@/,0@@@[@@@@^G@@@@ C@@@@^JW )@@G@@/K@@[9(@@@@K@[0@@W@@@@@ @@@@@^AM@@@F)[&[E(&O0K0K0K$K0EV G^G@@[4@@W@@@@@^JX )@@G@@@@@@@]@@@@@Y/,0@@@[@@@@Y@[4@@W@@@@@N@@@@@]AN@@@F)[\[EK0K0K&EV G]&1N@()@@JY )@@G@@@@@@@T@@@@@^@@@@@]@@@@@N@@@@@@/,0@@@[@@@@^G@@@@^C/@@@[AO@@@F)[8[F#[]@(?OJZ )@@G@@0K0K7K^CM&@@@@@@@S/,0@@@/K@@]#(@@@@#@[7@@W@@@@@S@@@@@]/,0@@@@[6@@WAP@@@FKA )@@G@@)][@U(?-)@@@)@J@K@)]^@V@K)ES@@@@@@@J/,0@@@8N0@@Q______*END G_)@@[@['@@WKB )@@G@@@@@@@]AQ@@@F)]B@U()-)-,@)@L@K@)]E@V@K-ES@@@@@@@N/,0@@@/K@@]J______*END KC )@@G@@(@@@@#@[.@@W@@@@@NAR@@@F)]H[E()O0K^[#[#[#[#[#@@@N#0@@+R@K@@-9\)@@ZR]0@@XKD )@@G@@@][@@W/K@@]MN@0@]L@]@@@W@@@@@LAS@@@F)]Q@F#@@@@@@)@U@)@@@@@@@)]R@N#[])@@@KE )@@G@@/K@@@@/K@K@U@][@@#MERGE @@@@@@@@F@@[*4@K@UAT@@@F)]T@:#[#[#[#[@@@@@)@N@S@KF )@@G@@@@@@@@@@@@@#@@@@@]@@@@@[/K@@@@^#0@@+A@K@@-9:)@@ZAA0@@XAU@@@F)@Q@)@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@I@@@@@@@@@@@AAV@@@FKH )@@G@@@@^@@G@@K@@D@@+@@[@@&@@E@@^@@<@C@@]Y@@@@@@@@@@@ @@@@@#@@@@@S@@@@@L@@@@@AKI )@@G@@@@@@@A@@@@DS@@@@\U@@@@@BWDS2 PUNCH IGC NC KJ )@@G@@UN MOVER MVCHAR PUTC NERR3$ MERGE KK )@@G@@@@[@@@@@@@]T@@@@@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@B KL )@@G@@]@@@C@@^@@@@BUF ]@@@C@@ @@@@DXX ]@@@C@@A@@@@FS KM )@@G@@]@@@C@@B@@@@N ]@@@C@@C@@@@TT ]@@@C@@D@@@@SS KN )@@G@@]@@@C@@E@@@@PR ]@@@C@@F@@@@/]@@@D/A@@@D9'@@@D @@@@C1@@@@C0@@@@CKO )@@G@@)@@[]K0@^G@^G@]&@]^@]^@C@@@@@@/,0@@@/,0@@@C8@@@@A]0@@G[^)@@@C^:@@@[?K@@@KP )@@G@@C@VK@[AA@@@@)@C[F#@@^G@^G@@K0@K0@@@@R#@@@0A#@@@KR;@@@@/KF@@]'^@@@M[@@@@KKQ )@@G@@C@FK@@/KF@@#R]0@@GAB@@@@)@L[F#@[#@[#@[#@@^G@[#@@C0@@@[/KF@@][0@@@@C4FK@@KR )@@G@@/KF@@[A#@@@SR#@@@1'^@@@MA#@@@SAC@@@@)@U[MK0@@K0@K@@@@@R;0@@#O'0@@[C[FK@@KS )@@G@@/K@@@(CF@@#[@@@@IC@FK@]&9@@@[R F@@[A[K@@FA[@@@EAK@@@@)[<[F#@[@@K0LB )@@G@@@^G@^G@@@@@@(@@@@JA]0@@GO'0@@][@@@@JC@FK@^P9K@@[R[VK@#/K@@[: @@@@JAL@@@@LC )@@G@@)[?[#@K0@K]&@]^@2@-)@-@I@@@@@@/,0@@@D@@@@J/K@@[4/,0@@@C8@@@U/GK@[2C@K@@JLD )@@G@@/K@@[4AM@@@@)[4[F#@[#@[@^@K)AK@@@@@@R#^)@@/K@@]A/,0@@@R;^)@@/K@@[_?8@@@]LE )@@G@@/@@@[/R#@@@HC@K@@IAN@@@@)[.[F]@-@^@K)DK[]@*@@@@@/,0@@@C@^)@@8#K@[_/,0@@@LF )@@G@@C8@@@ /K@@]^?8K@@H/K@@]A/,0@@@AO@@@@)]A@;@K)[K0@K0@K0@K0@@@@)@@@C@@&Q@@@LG )@@G@@/KF@@^R]0@@G'^@@@MR[K@@FR[@@@E/,0@@@8[K@[:AP@@@@)@[[S@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@AQ@@@@)@G[S@@K^[@@LI )@@G@@;*K@@GC@K@@@/G@@@MC@@@@K/K@@@@_____"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR@@@@LJ )@@G@@)@R[KK)#K@@@@@@@@@ /K@@@M'=@@@@LK )@@G@@;?@@@SAS@@@@)@-[S@@@@@@@ LL )@@G@@ AT@@@@)@?@0@K)]K)#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'=@@@@LM )@@G@@'=@@@@ AU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@F@@W@@L@[)@@@LO )@@G@@@@@@@2@@@@]HEDIT$ EDITX$ PUNCH$ PRINT$ EDITR$ LP )@@G@@EMSG$ ECOPY$ ESKIP$ EDECF$ ECHAR$ EOCTF$ LQ )@@G@@OPRIME @@[@@@@@@@@@OPRINT @@[@@@@@@@@EOPUNCH @@[@@@@@@@@ILR )@@G@@OPCHAR @@[@@@@@@@@QOPCOL @@[@@@@@@@@TOPAF @@[@@@@@@@@ZLS )@@G@@OPAFP @@[@@@@@@@@-OPA @@[@@@@@@@@>OPAP @@[@@@@@@@@$LT )@@G@@OPO @@[@@@@@@@@:OPOP @@[@@@@@@@@!OPI @@[@@@@@@@@1LU )@@G@@OPIP @@[@@@@@@@@3OPK @@@@@@@@@@@@OPFLG @@@@@@@@@@@KLV )@@G@@OPRNT @@@@@@@@@@@MOPBLK @@@@@@@@@@@U@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@)@@@L]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]LY )@@G@@'=@@@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@[@@ @@[@@B@@[@@F@@@@@@@@]OPT$ OPT MA )@@G@@ @@@@@@@@@@@@91089 @@@@@@EPF][:140@@@EPF]@5251@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@W@J@)@@@K@)@@@%K0CS^HEMC )@@G@@@@@@@@/K@@@6(@[@@ER@K@@][@@@@]C/@@@DF C @@@@@@AA@@@F)@ [F#A-$Y7*MD )@@G@@]A.@K)C[N@@@@@@@@N@@@@@G/,0@@@^^K@@KN8L@]T^^K@@GN8LJ_"[@)@@@C@)@@^AB@@@FME )@@G@@)@I[E($ES^[#@-\^G'A>#@@@H@)@@PC@-@@P[@@@@WG/@@@[C@[@]T@[X@@V@@@@@K@@@@@OMF )@@G@@@@@@@@AC@@@F)@R@N@@@@@@@)@D@K@)@T@V#I-[ES@@@@@@@@@@@@D/,0@@@[@@@@W______MG )@@G@@@@@@@,G/@@@[/@)@[TAD@@@F)@W[E($ET4G@CS^HE@-]@@@@/,0@@@^^K@@>N8L@@P[#)@@#MH )@@G@@N_0@@ C_)@@[@[+@@V@@@@@W@@@@@@AE@@@F)@>[F@ES^G]A@K[#I-$@@@@@[@@@@WG@@@@WMI )@@G@@C/@@@[/@@@@3G/@__'[@@@@^@[&@@V@@@@@#@@@@@>AF@@@F)@,[F]]O0 G9NI-)^[@K0@@@MJ )@@G@@R@K@@]/K@@[T8N0@@-G_)@@[@[%@@V@@@@@W@@@@@@@@@@@^/,0@@@AG@@@F)@7[F#@JUO[#MK )@@G@@O)CUO[#@@@@@[@@@@X^^K@[[N8L@@P^^K@[#N8W@@D/K@@[K(@[J_";@@@@[EK0CK+&W()K0CS[@@@@@MQ )@@G@@/@@@[8G/@__L[@@@@^@]#@@V@@@@@#@@@@@@/,0@@@[#)@@#[@@@[JAM@@@F)[,@E@)@F@K@MR )@@G@@)[\@:@K)>G[NIO3)@@@@@@@W@@@@@@@@@@@F/,0@@@8N0@[&______@@@@@,G_)@@[AN@@@FMS )@@G@@)[4[F#@CT4G8-)K^CLN@@@@@@@@@@@/,0@@@/^@@]DH@@@@YC/@@@#[@@@@WG@@@@WC/@@@[MT )@@G@@@]C@@VAO@@@F)[.[E()K0CS^CEA@($ET4G@@C/@@@]@]G@@V@@@@@W@@@@@@@@@@@X/,0@@@MU )@@G@@[@@@@X@]G@@V@@@@@NAP@@@F)]A[F#I-$K^CLN@O0CS^G]^^/,0@@@[@@@@X@]J@@V@@@@@NMV )@@G@@@@@@@[/,0@@@/K@@]Q[@@@@WG@@@@WAQ@@@F)]J[F#@O3>G'A@K3*T4C[NE@@@@@@@/,0@@@MW )@@G@@[@@@@WG@@@@WC/@@@]@]J@@V@@@@@W@@@@@@@@@@@XAR@@@F)]S[]()ET2&W(=K0CT4G+AW@MX )@@G@@@@@@@@[@@@@WG@@@@@C@@@@W@]M@@V@@@@@@@@@@@W@@@@@@@@@@@NAS@@@F)])[#]@O5>G[MY )@@G@@NIO3>HUA[#Q@@@@@@@C@@@@ @]O@@V@@@@@ @@@@@W@@@@@@@@@@@N@@@@@@/,0@@@AT@@@FMZ )@@G@@)]*@F#I@@@@@)@H@K@)](@<#I-[ES]&W@@@@@@@@@@@@@@@H/,0@@@[@@@@W______,,,,,,NA )@@G@@G@@@@WAU@@@F)]![E($K0]AX#I-0K2C]@@@@/@)@^S/C)@^SD@)@@] @@@@W[@@@@WG@@@@WNB )@@G@@C/@@@[@]Q@@V@@@@@WAV@@@F)]6[F#C-=K^G)]A[]^@@@@@@/,0@@@[#)@@ [@)@[JC_)@@[NC )@@G@@G/)__"C@)@@@/^)@#HH@)@@@C@)@@]AW@@@F)]_[](>ES]&[#@-]ETM&[#@@@@@@@@@]-@@VND )@@G@@@@@@@ @@@@@K/,0@@@[@@@@A@])@@V@@@@@ @@@@@@AX@@@F)#B@;#@-)K[@K^G8@@)@J@K@NE )@@G@@______ C@@@@W/K@@^S8N0@].G_)@@[/^@@#HH@@@@A[@@@@BAY@@@F)#I[##)-#ES]NF )@@G@@&@(0ES]&[#@@@@@@@@@](@@V@@@@@S@@@@@N@@@@@@@@@@@R@@@@@J/,0@@@[@@@@WAZ@@@FNG )@@G@@)#Q[#]@O3>G[N)O0 I]A[]@@@@@@@@/,0@@@@]%@@V@@@@@W@@@@@N@@@@@@@@@@@N@@@@@@NH )@@G@@/,0@@@BA@@@F)#Y[](>ES]$@(0ET^G]B[#C@@@@@@@G@@@@]C@@@@W@]:@@V@@@@@]@@@@@WNI )@@G@@@@@@@@@@@@@N@@@@@KBB@@@F)#&[##)-@EU2&@(0EW]&!#@@@@@@@@@]!@@V@@@@@ @@@@@WNJ )@@G@@@@@@@@@@@@@N@@@@@@/,0@@@[@@@@WBC@@@F)#,[F#)-:K8@-)K- I[N@@@@@@@@@ @@@@@@NK )@@G@@/,0@@@[#)@@ N_0@@XC_)@@[[@@@@WG@@@@ C@@@@WBD@@@F)#7[F#@-)^@K^@K0@@@@@@@@NL )@@G@@H@@@@ C/@@@Y/K@@^S8N0@#3G_)@@[/@@@#"G/@__L[@@@@^@]2@@VBE@@@F)^@[F#@CS^CLNM )@@G@@N)O0CS^G@@@@G/@__'[@@@@^@];@@V@@@@@C@@@@@@/,0@@@[#)@@C[@@@[JC#)@@ BF@@@FNN )@@G@@)^D[N@K0]@-)^@K^@@/K@@^S8N0@^]G_)@@[/@@@^NG/@__$C@@@@^/@@@^NG/@__,C@@@@^NO )@@G@@/@@@^SBG@@@F)@L@K@)^N@3]]O0 I[N@-)K)@@@@@@/,0@@@@# @@V@@@@@C@@@@@@@@@@@LNP )@@G@@/,0@@@______NNNNNNBH@@@F)^T[](>ES]&W($ET^G]AX#C@@@@@@@G@@@@@C@@@@W@#B@@VNQ )@@G@@@@@@@@@@@@@W@@@@@@@@@@@N@@@@@@BI@@@F)^-[##I-@EU2&@($ET2&!#@@@@@@@@@#D@@VNR )@@G@@@@@@@ @@@@@W@@@@@@@@@@@N@@@@@@/,0@@@[@@@@WBJ@@@F)^([F#Q-$K3*]@-)K0CS^G@@NS )@@G@@R@K@@-9\)@@ZR]0@@W@#G@@V/K@@^\N@0@^,[@@@@WG@@@@WC@@@@ BK@@@F)^2@N#@-)@@@NT )@@G@@)@T@)@@@@@@@)^4@F#@@@@@@/K@K@T@#G@@]PDP @@@@@@@@F@@]*4@K@TN#0@@+BL@@@FNU )@@G@@)^5[#]C-)K0CS^G@-)K@@@@@@@@@@@/K@@@@[@K@@YC@VK@@^#0@@+A@K@@-9:)@@ZAA0@@WNV )@@G@@/K@@@@BM@@@F)@N@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@ANW )@@G@@ @@@@@]@@@@@[BN@@@F@@^@@L@@P@@ @@Z@@[@@<@@J@@ @@<@C@@^.@@@@@@@@@@@ NX )@@G@@@@@@@#@@@@@S@@@@@[@@@@@X@@@@\U@@@@@+@@@@@-@@@@@A@@@@@B@@@@DS@@@@@[@@@@]>NY )@@G@@@@@@@XMVCHAR PUTC IGC MOVER NERR3$ PDP NZ )@@G@@ @@[@@@@@@@^6@@@@@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@B OA )@@G@@ ]@@@C@@^@@@@BUF ]@@@C@@ @@@@K ]@@@C@@A@@@@P OB )@@G@@ ]@@@C@@B@@@@SS ]@@@C@@C@@@@F ]@@@C@@D@@@@CPS OC )@@G@@ ]@@@C@@E@@@@N ]@@@C@@F@@@@PR ]@@@C@@G@@@@TT OD )@@G@@ ]@@@C@@H@@@@AOPF ]@@@C@@I@@@@AP ]@@@C@@J@@@@PDP2 OE )@@G@@ ]@@@C@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@((^@@@%(^@@@@@@@@@@(^@@@OF )@@G@@@@@@@@@@@@@@(%^@@@%%^@@@@@@@@@@%^@@@@@@@@@@@@@@@)@@[F][NTN[N9N[N]A^GCZ@@OG )@@G@@[@@@@@C@@@@)@[E@@*@@@@@Z@@@@@Y@@@@@@@@@@@X@@@@@@/,0@@@AA@@@F)@D[F]DN9N]AOH )@@G@@^JC]^+&]$0@@@@@@@@@@@@@Z/,0@@@/K@@@N(@@@@#@[G@@*@@@@@Z@@@@@@/,0@@@AB@@@FOI )@@G@@)@M[F#]A^GCSK0-)K6.)@@@@[@[J_"C@@@@@N_0@@GR@K@@<[@)@@IC@)@@+[@@@@@C@@@@-OJ )@@G@@@[J@@*AC@@@F)@V[F#]@-1@K&O'O0O0O0@@@@@@@@=@@@@@@@@@@@Y@@@@@C/,0@@@/K@@@,OK )@@G@@(@@@@[8N0@@T[@[)@HAD@@@F)@=[E(1#]^2$M&]&]&]$^G@@@[W@@*@@@@@[@@@@@=@@@@@IOL )@@G@@@@@@@Y@@@@@C/,0@@@@[V@@*@@@@@[AE@@@F)@![F@K&O'O0O0O0O0--]S@@/,0@@@@[Z@@*OM )@@G@@@@@@@>@@@@@=@@@@@@@@@@@Y@@@@@C/,0@@@/K@@@/AF@@@F)@6[E(4()()()()(-]DN[N@@ON )@@G@@@@@@@Z@@@@@@/,0@@@@[)@@*@@@@@>@@@@@=@@@@@I@@@@@Y@@@@@CAG@@@F)@_[F#]^M&]&OO )@@G@@^GCYK^D G@@@@@@@@Z/,0@@@/K@@[I(@@@@#@[+@@*@@@@@Z@@@@@I/,0@@@@[-@@*AH@@@FOP )@@G@@)[C[E(-#]^+&]&^GC]@-)@@@@[*@@*/K@@[LN@0@[K@[&@@*@@@@@I@@@@@Z/,0@@@@[>@@*OQ )@@G@@@@@@@@AI@@@F)[L@<#]A^GCS@@@@@@)@&@)@@@@@@@@[*@@#PP @@@@@@@@F@@[*4@K@&OR )@@G@@N#0@@:R@K@@%R]0@@(AJ@@@F)[P@3#] ^GCSK0)@@@)@X@S@@@@@@I@@@@@[@@@@@@/K@@@@OS )@@G@@^#0@@:A@K@@%AA0@@(/K@@@@/K@K@&AK@@@F)@)@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@ @@@@@E@@[@@]@PREP @PACK @HDG,NAL@@@F@@^@@C@@G@@ @@Q@@[@@U@@AOU )@@G@@@@#@@?@C@@[V@@@@@@@@@@@ @@@@@#@@@@@S@@@@@A@@@@@IMOVER WDS2 OV )@@G@@PUNCH MVCHAR NERR3$ PP @@[@@@@@@@[R@@@@@@ OW )@@G@@^@@@C@@]@@@@A ]@@@C@@#@@@@B ]@@@C@@^@@@@BUF OX )@@G@@]@@@C@@ @@@@FS ]@@@C@@A@@@@H ]@@@C@@B@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[E@@K)@@@@@@@@@@@@@@@/KF@@^'=@@@@;?@@@M;*K@@MOZ )@@G@@R#V@@];?@@@A;@K@@AR#VK@[R#FK@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@[@@C@@[@@G@@@PB )@@G@@@@@@@@@@@@@DPRINT$ PRINT @@[@@@@@@@@@1K@@@@#@ [."@@@@@@@@@@@]PC )@@G@@@@@@@@Y@@@@[GRF#J$GMF#:C@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@)@@[F#]A^G]A7?C]B^@@@@@@/K@@@L(@@@@[8N0@@^[@[\_"C@@@@@N_0@@GR@K@@K[@@@@@PE )@@G@@C@@@@JAA@@@F)@D[F][N(N[N[N[N+A^[]@@@/,0@@@/K@@@S@[L@@R@@@@@[@@@@@M@@@@@@PF )@@G@@@@@@@L@@@@@C/,0@@@AB@@@F)@M[E(4()()()(-#]^M&]&@@@@@@@O@@@@@@/,0@@@@[O@@RPG )@@G@@@@@@@N@@@@@M@@@@@@@@@@@L@@@@@CAC@@@F)@V[F#]B=[]LN[N]A^[@@@@@/K@@@>N@0@@=PH )@@G@@@[S@@R@@@@@@@@@@@O/,0@@@/K@@@+(@@@@#@[P@@RAD@@@F)@=@:#]A^GCSK0@@@@)@P@S@PI )@@G@@@@@@@@PRTT @@@@@@@@F@@[*4@K@PN#0@@UR@K@@TR]0@@S@[U@@RAE@@@F)@S@C@)@(@3#PJ )@@G@@]^4GCSK0)@@@)@J@C@@PRT,T/K@@@@^#0@@UA@K@@TAA0@@S/K@@@@/K@K@P@[U@@#AF@@@FPK )@@G@@)@K@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@ @@@@@E@@@@@[PL )@@G@@@@[@@]AG@@@F@@@@@@@@@@@[@@@@@@Y@@@@[]]GB$/]]GB>Q@@@@@@@^@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@B@@F@@^@@N@@[@@R@@ @@#@@V@C@@@\@@@@@@@@@@@ PN )@@G@@@@@@@#@@@@@S@@@@@AMVCHAR WDS2 PUNCH NERR3$ PRTT PO )@@G@@ @@[@@@@@@@@:@@@@@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@B PP )@@G@@ ]@@@C@@^@@@@BUF ]@@@C@@ @@@@FS ]@@@C@@A@@@@&Q[@@@PQ )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@)@@[F#-@K'@K7K)EV)@@@@@@@@@@@A/,0@@@[#)@@A[@@@[JC_)@@[G/@__"C@@@\T/K@@[FPS )@@G@@(@@@@MAA@@@F)@D[E(,O7ESCS]A]@)CS@@@@R@K@@E/^@@[D/C@@@LH@@@@@C/@@@^@[M@@KPT )@@G@@@@@@@@@@@@@ @@@@@^AB@@@F)@M@UK8K9@@@)@^@K@)@P@V@K-ES@@@@@@@^/,0@@@8N)@@NPU )@@G@@______ S[@[)@]C@[@@[N_)@@HAC@@@F)@S[E(2O9K0K+EU>G]$DN=(*@@@@@@@@@@@@PV )@@G@@@@@@@#@@@@@F@@@@@@/,0@@@@[U@@K@@@@@[@@@@@#AD@@@F)@-[F#[#>#L#[]C(?O0EW>G@PW )@@G@@@@@@@]@@@@@#@@@@@F@@@@@@/,0@@@[@@@@]G@@@@@C@@@@@@[V@@KAE@@@F)@%[E(?-)-0)PX )@@G@@CSCVCSCL>G0@@@@@@]/,0@@@[@@@@#G@@@@ C@@@@]/K@@[ (@@@@L@[X@@K@@@@@ AF@@@FPY )@@G@@)@3[E()-)-)-]-)O9ESCS@@@C/@@@[@[-@@K@@@@@#@@@@@#@@@@@M/,0@@@[@@@@M@[-@@KPZ )@@G@@@@@@@FAG@@@F)@/[F#[#[]C(0O0EW>G]$EA@@[<@@K@@@@@]@@@@@#@@@@@#@@@@@F@@@@@KQA )@@G@@/,0@@@[@@@@#G@@@@#AH@@@F)[ [F]K(2O0K0^[#*K8@@@@@(@@@@NG/@__"C@@@\T8N0@@AQB )@@G@@G_)@@[@[>@@K@@@@@G@@@@@#/,0@@@AI@@@F)[I[F@[#X]@(,O7EV>G@@@@@@@@@@@@@@@@ QC )@@G@@@@@@@^@@@@@A/,0@@@[#)@@A[@@@[JC_)@@[/K@@]+AJ@@@F)[R[##@K0K^G[#-#=@)@A@C@QD )@@G@@ R[@[)@]C@[@@[N_)@@HR@K@@E/^@@])H@@@@@C/@@@ @[,@@KAK@@@F)@B@C@)[Z@;@QE )@@G@@K-ES IM$EA]A)@@@@@(@@@@[@[6@@K@@@@@[@@@@@#@@@@@A/,0@@@8N)@[X______AL@@@FQF )@@G@@)[&[F@K+EU>G]$DN=(*-)-2@C@@@@@@[9@@K@@@@@[@@@@@@@@@@@#@@@@@F@@@@@C/,0@@@QG )@@G@@/K@@[2AM@@@F)[\[F#L#[@K+EU>G]$DN=()@@@@@@H@@@@@@@@@@@#@@@@@F@@@@@C/,0@@@QH )@@G@@/K@@[/[@@@@]G@@@@[AN@@@F)[8[F#@K9K0K+EV G]$DN@@@@@@@@]@@@@@#@@@@@F@@@@@@QI )@@G@@/,0@@@[@@@@]G@@@@@C/@@@ @[.@@KAO@@@F)][[E(?O0K8K^G^H=G^C2&S@@@@@@]/,0@@@QJ )@@G@@[@@@@#G@@@@ C@@@@]/K@@]W(@@@@L@]@@@K@@@@@ AP@@@F)]E[E()-)-)-]-)O9ESCS@@@QK )@@G@@C/@@@[@]^@@K@@@@@#@@@@@#@@@@@M/,0@@@[@@@@M@]^@@K@@@@@FAQ@@@F)]N[F#[#[]C(QL )@@G@@0O0EW>G]$EA@@]A@@K@@@@@]@@@@@#@@@@@#@@@@@F@@@@@K/,0@@@[@@@@#G@@@@#AR@@@FQM )@@G@@)]W[F]K(2O0K0^[#*K8@@@@@(@@@@OG/@__"C@@@\T8N0@[LG_)@@[@]C@@K@@@@@G@@@@@#QN )@@G@@/,0@@@AS@@@F)]>[F@[#X]@(,O7EV>G@@@@@@@@@@@@@@@@ @@@@@^@@@@@A/,0@@@[#)@@AQO )@@G@@[@@@[JC_)@@[/K@@#9AT@@@F)],[##@K0K^G[#-#=@)@C@C@ A[@[)@]C@[@@[N_)@@HQP )@@G@@R@K@@E/^@@#7H@@@@@C/@@@A@]L@@KAU@@@F)@D@C@)]6@;@K-ES IM$EA]A)@@@@@(@@@@[QQ )@@G@@@]T@@K@@@@@[@@@@@#@@@@@C/,0@@@8N)@]4______AV@@@F)].[F@K+EU>G]$DN=(*-)-2@QR )@@G@@C@@@@@@]W@@K@@@@@[@@@@@@@@@@@#@@@@@F@@@@@C/,0@@@/K@@#DAW@@@F)#A[F#L#[@K+QS )@@G@@EU>G]$DN=()@@@@@@H@@@@@@@@@@@#@@@@@F@@@@@C/,0@@@/K@@#N[@@@@]G@@@@[AX@@@FQT )@@G@@)#J[E()CW*SCL H+&[N=()@@@@@@@]@@@@@#@@@@@F@@@@@@/,0@@@[@@@@]G@@@@@C/@@@ QU )@@G@@@])@@KAY@@@F)#S[E(?-)-0)CSCVCSCL>G0@@@@@@]/,0@@@[@@@@#G@@@@ C@@@@]/K@@#3QV )@@G@@(@@@@L@]<@@K@@@@@ AZ@@@F)#-[E()-)-)-]-)O9ESCS@@@C/@@@[@]$@@K@@@@@#@@@@@#QW )@@G@@@@@@@M/,0@@@[@@@@M@]$@@K@@@@@FBA@@@F)#%[F#[#[]C(0O0EW>G]$EA@@](@@K@@@@@]QX )@@G@@@@@@@#@@@@@#@@@@@F@@@@@K/,0@@@[@@@@#G@@@@#BB@@@F)#3[F]K(2O0K0^[@K^G@@@@@QY )@@G@@@]\@@K/K@@#/N@0@#;8N0@]*G_)@@[@]:@@K@@@@@G@@@@@#/,0@@@BC@@@F)#/@3#[#[#[#QZ )@@G@@[#[#@@)@I@S@PSRABS@@@@@@@@F@@[*4@K@IN#)@@RN#0@@QR@K@@P9\)@@NR]0@@LBD@@@FRA )@@G@@)@L@C@)^]@;#[]P#[#[#[#[#@@@@@@^#)@@R^#0@@QA@K@@P9:)@@NAA0@@L/K@@@@/K@K@IRB )@@G@@@]\@@#BE@@@F)^D@F@@@@@@@)@E@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@IRC )@@G@@@@@@@[@@[@@[/K@@@@BF@@@F@@^@@F@@J@@A@@V@@[@@Z@@D@@^@@S@C@@^E@@@@@@@@@@@ RD )@@G@@@@@@@#@@@@@S@@@@@A@@@@@B@@@@@P@@@@@M@@@@\UNC PUTC MVCHARRE )@@G@@ IGC WDS2 NERR3$ PSRABS @@[@@@@@@@^^@@@@@@RF )@@G@@ ^@@@C@@]@@@@A ]@@@C@@#@@@@B ]@@@C@@^@@@@BUF RG )@@G@@ ]@@@C@@ @@@@N ]@@@C@@A@@@@PR ]@@@C@@B@@@@PNCH RH )@@G@@ ]@@@C@@C@@@@PNCHI ]@@@C@@D@@@@SS ]@@@C@@E@@@@@@@CJ*RI )@@G@@@@@CJ)@@@CJW@@@CIG@@@CJ=@-#@@@@@@@@@@@@@@@@@@@@@$@#@@@-@#@@@@@#@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@2@K)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@#RK )@@G@@'=@@@@;?@@@M;*K@@MR#V@@[R#FK@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@[@@C@@[@@G@@@RM )@@G@@@@@@@@@@@@@APUNCH$ PUNCH @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@)@@[Y8@@@@@@ @@@@@@RP )@@G@@@@@@@@AA@@@F)@F[Q8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RQ )@@G@@ AB@@@F)@L@J@)@@[]K7@K0K7@@@@@@C.)@@A[[@@@]C[@@@M[@)@@@RR )@@G@@G@)@@@C/)@@#[@@@@[C/@@@[@@@@@@AC@@@F)@C[F#-]@(? G]&]@-)@@@@@C/@@@[@[V@@XRS )@@G@@/K@@[8@@@@@@@@@@@N@@@@@@@@@@@@/,0@@@[[)@@[AD@@@F)@L[F#@K-EV G^G^G^[]^@@@RT )@@G@@/,0@@@/@@@@2H@@@@O@[X@@X@@@@@@@@@@@@/,0@@@[@@@@@G@@@@@AE@@@F)@U[E(?O0K0KRU )@@G@@0K^CM&1N[#@@@[-@@X@@@@@@@@@@@@/,0@@@/@@@@5H@@@@P@[Z@@X@@@@@@@@@@@@AF@@@FRV )@@G@@)@<[F#[@K-EV G^G^G^[]^@@/,0@@@/@@@@;H@@@@R@[<@@X@@@@@@@@@@@@/,0@@@/@@@@8RW )@@G@@H@@@@QAG@@@F)@?[E(?O0K0K0K^@K7K@@@@@/K@@@D[@@@@MC/@@@[/K@@[@/@@@[IH@@@@SRX )@@G@@@[>@@X@@@@@@@@@@@@AH@@@F)@5[EK7K[#X@^H4H0@@@@@@@ @@@@[[@@@@@C/@@@[/K@@@DRY )@@G@@[@@@@OC/@@@[/K@@@D[@@@@NC/@@@[AI@@@F)@"[F#X@K+EV G^G^G^C2&@@@@@@@[/,0@@@RZ )@@G@@[@@@@[@[3@@X@@@@@@@@@@@@/,0@@@/K@@@D @@@@[AJ@@@F)[B[E(,O8K0^I^I^@K7@@@@@SA )@@G@@[@@@@LC/@@@[/K@@@D[@@@@[G@@@@[C/@@@[@[4@@X@@@@@[@@@@@]AK@@@F)[K[F#-]@(? SB )@@G@@G]&]@-)@@@@@C/@@@[@['@@X/K@@[8@@@@@@@@@@@N@@@@@@@@@@@@/,0@@@ @@@@]AL@@@FSC )@@G@@)[T[F#-#)K^[]C(?O0K0@@@@@["@@X@@@@@@@@@@@@/,0@@@/^@@[?/G@@[YG/@__/[@@@@]SD )@@G@@G@@@@]AM@@@F)[+[F#[]G()O7EWCS]A@@@@@[@@@@@G@@@@@C/@@@[@[_@@X@@@@@]@@@@@KSE )@@G@@@@@@@[/,0@@@[@@@@[AN@@@F)[:@F@@@@@@@)@][@@@@@@@@ARD& PUN CARS ONNCE CHSF )@@G@@ SEQUETHAN 3 MORE ERROR,/K@@[LAO@@@F)@E@C@)[?@<]K()O0ES@@@@@)@F@S@RS WILSG )@@G@@CE CHASEQUEN@@@@@]@@@@@U@@@@@T/,0@@@______AP@@@F)@I@)@@@@@@@)[0@<#[]K()OSH )@@G@@0@@@@@@@@@@U@@@@@T/,0@@@@]#@@X______& GNOREDL BE IAQ@@@F)[4[M()-)-,)SI )@@G@@]A8CV) @@@@I(@@@@MC/)@@[ @@@@G(@@@@NC/@@@[/K@@[8 @@@@L@]^@@X@@@@@FAR@@@FSJ )@@G@@)["[M^H0K[#WK8@@@@G@@@@[C/@@@E[@@@@MC/@@@[/=0@]A)@)@@H @@@@I(@@@@OC/)@@[SK )@@G@@)@@@@IAS@@@F)]C@;#-@K^G^G^G^G@)@V@K@@@@@@@@@F@@]*4@K@V9!)@@ZR]0@@Y@]H@@XSL )@@G@@/K@@]GN@0@]F[@@@@@AT@@@F)@X@K@)]J@;#[]P#[#@K^@@@[^@@[N[^@@[%C8FK@@9()@@ZSM )@@G@@AA0@@Y/K@@@@/K@K@V@]H@@#PUNX AU@@@F)]Q@:@K^[@K@)@M@)@@@@@@@R S SN )@@G@@@@@@[K@PCH, /K@@@@[^@@@#[^@@@^[^@@@F[^@@@MAV@@@F)@Q@*@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@_____"@@@@@[, N A AW@@@F@@@@@@-]@@@DSP )@@G@@@@@)@@@@]__.Z_____@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@_____'SQ )@@G@@@@^@@D@@H@@A@@T@@[@@X@@B@@^@@-@C@@]V@@@@@@@@@@@ @@@@@#@@@@@S@@@@@I@@@@@PSR )@@G@@@@@@@MSCANBL IGCL IGC PUTC OPAP NERR3$SS )@@G@@ PUNX @@[@@@@@@@]L@@@@@@ ^@@@C@@]@@@@A ]@@@C@ST )@@G@@@#@@@@B ]@@@C@@^@@@@BUF ]@@@C@@ @@@@I ]@@@C@SU )@@G@@@A@@@@PNCH ]@@@C@@B@@@@PNCHI ]@@@C@@C@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$$#@@@-$#@@@@$#@@@@@@@@@@@@@@@@@@@@@$-#@@@--#@@@SW )@@G@@@-#@@@@@@@@@@@@@@@@@@@@@$@#@@@-@#@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@)@@@2@K)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@#'=@@@@;?@@@M;*K@@MR#V@@@SY )@@G@@R#F@@[AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@AREAD$ TA )@@G@@READ @@[@@@@@@@@@@@@@@@@@@@@G^V ^XQ@@@@@Z@@@@@@#C@^X6/S@@@@#^@^X6TB )@@G@@ERROR MODE: TYPE= , CODE= , ERR.ADDRESS= )["@)@@@@@@@)@@@<]@()O0ETC )@@G@@S@@@@@@@@@["@@@@]H@@@@]G/,0@@@ FILE CARDS MARVELAA@@@F)@^@:#[]@()OTD )@@G@@0ES@@@)]#@S@@@@@@@______ M$A$R$@@@@][@@@@]J@@@@]I/,0@@@@[H@]QAB@@@FTE )@@G@@)@D[F#[]^()O0ES G2&TN@()@@@@]]@@@@]L@@@@#)@@@@@@@@@@]K@@@@]K@@@@]#/,0@@@TF )@@G@@@[I@]QAC@@@F)@M@F@@@@@@@)]A@0@@@@@@@@@@@0@@@@@@@______CARDS MARVEL______TG )@@G@@ SPEC3 /K@@@1AD@@@F)@N[F#[]C()O0ES G]&[N@()@@@@]]@@@@]M@@@@@8@@@@@@TH )@@G@@@@@@]K@@@@]D@@@@]A/,0@@@@[J@]QAE@@@F)@W[F@ESCL>G]&]@-)-CO0@@@@@@[0/,0@@@TI )@@G@@@[L@]Q/K@@@!@@@@]N@@@@[0/,0@@@@[K@]Q/K@@@1AF@@@F)@>[E()-)-@O0ES G^G^[]O@TJ )@@G@@/,0@@@/K@@@Y@[N@]Q@@@@[0@@@@]N@@@@]J/,0@@@@[M@]Q@@@@]NAG@@@F)@,[##[]T#[@TK )@@G@@K^G^G^G@@@@@@@@@@@*4@K]OR]0@]R@[S@]Q/K@@@4N@0@@3@[Q@]Q/,0@@@@[P@]QAH@@@FTL )@@G@@)]O@)@@@@@@@)@6@<#[]X#[@@@@@@@/K@@@@AA0@]R/K@@@@/K@K]O@[S@@#SAVE @@@@@@TM )@@G@@@@F@@[AI@@@F)]G[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@8@@@@#)@@@@@@@@@@@[TN )@@G@@@@@@@]@@@@@#@@@@[]AJ@@@F@@^@@A@@E@@C@@U@@[@@Y@@^@@^@]S@C@@@'@@@@@@@@@@B@TO )@@G@@@@@@@S@@@@@APRINT RDS1 WDS1 RDS2 WDS2 TP )@@G@@RDS3 WDS3 NERR3$ SAVE @@[@@@@@@@@8@@@@@@ TQ )@@G@@^@@@C@@]@@@@B1 ]@@@C@@#@@@@BUF ]@@@C@@^@@@@SP TR )@@G@@]@@@C@@ @@@@[@_@BB[@_@BB NCT***@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@)@@[F][N(N[N-N[N]A^C I)@@@@@@@/,0@@@@[B@@E@@@@@^@@@@@#@@@@@@@@@@@]@@@@@@TT )@@G@@/,0@@@AA@@@F)@D[E()(0()(-#]A@@@@@@@@[@@@@@G@@@@@C/@@@# @@@@@@[C@@E@@@@@^TU )@@G@@@@@@@#@@@@@J@@@@@]AB@@@F)@M[F]DNSO0O0)CS^G@@@@@@G@@@@@C/@@@[@[F@@E/K@@@%TV )@@G@@@@@@@[@@@@@ @@@@@@@@@@@@/,0@@@AC@@@F)@V[F#]^+&2&]$]&]&^G@@@@C/@@@[@[H@@ETW )@@G@@@@@@@#@@@@@@@@@@@@@@@@@[@@@@@@/,0@@@[@@@@@AD@@@F)@=[F#@-)K^[#]B^D@@@@@@@TX )@@G@@/,0@@@[@@@@IC@@@@@/^)@@M/C)@@%G/)_"7C@)@@[[@@@@@G@@@@[AE@@@F)@![E(?()(0(TY )@@G@@)(-#]@)CS@@@@[O@@E/K@@@6N@0@@5@[N@@E@@@@@B@@@@@A@@@@@J@@@@@A@@@@@@AF@@@FTZ )@@G@@)@6@N#]A@@@@)@C@)@@@@@@@)@8@F#@@@@@@/K@K@C@[O@@#SEQ @@@@@@@@F@@]*4@K@CUA )@@G@@R]0@@FAG@@@F)@9[#]UA[@K^[@K@@@)@]@C@@@@@@@/K@@@@[^@@@K[^@@@L[^@@@O[^@@@>UB )@@G@@C8FK@@AA0@@F/K@@@@AH@@@F)@#@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@C@@@@[D@@@@[C@@@@@I@@@@@[AI@@@F@@@@@@)^@@@@=]@^V%)@)@@@=]@^V?/]@@@DUD )@@G@@>]@^V%>]@^V?/K@@@D/E@@@E/I@@@E"M@@@F/A@@@D/]@@@#@@^@@A@@E@@^@@M@@[@@Q@@^UE )@@G@@@@#@@G@C@@[[@@@@@@@@@@@I@@@@@X@@@@@ MOVER SCANBL MVCHAR UF )@@G@@NERR3$ SEQ @@[@@@@@@@@'@@@@@@ ^@@@C@@]@@@@I UG )@@G@@]@@@C@@#@@@@SEQX ]@@@C@@^@@@@A ]@@@C@@ @@@@@@@@@@@@@@@@UH )@@G@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[##@[]@@K0@ES@]A@[N@@@@@@@@&;@@#2[@@@@^&;@@#)UJ )@@G@@C8@@@M9*@@@@9?FK@@'=@@@@0@@@@#AA@@@@)@C[N#@@K0@ES@@@@@[^W@@^C^W@@A[CW@@^UK )@@G@@C8K@@W[^W@@BCCW@@^C8@@@@[C@@@BC8@@@C[@@@@AAB@@@@)@M[M@@K)[^@@@@@@@/K@@[^UL )@@G@@*4G@@#'=@@@@ @G@@ [0W@@#C8K@@K[CW@@C[CW@@DC8K@@[[^W@@DAC@@@@)@W[F#@[#@[@UM )@@G@@K0@K)]K@K)[@'=@@@@[@W@@ C8K@@ /K@@[^'=@@@@C@@@@F/K@@@+:@0@BMC@0@@MAD@@@@UN )@@G@@)@>[MK@@@@@@@@@@@@[@W@@ C8K@@A ^G@@B[CW@@^C^W@@B[^W@@EC^X@@VC^W@@A/K@@[^UO )@@G@@*4G@@#AE@@@@)@\[N]@^^@K@^@@@@@/K@@[^(@@@@H[CW@@EC^W@@#/K@@[^%8K@@ /K@@@5UP )@@G@@(4G@@#C4W@@#'=@@@@AF@@@@)@9[U@@K)#@@/KF@@^[@W@@A;@K@@M'=@@@@[^W@@^[@W@@AUQ )@@G@@;@K@@MC@W@@A[@W@@ GCW@@BC@W@@ AG@@@@)[^[N#@@[#@@()@@@@C@W@@C/KFK@#:^W@@EUR )@@G@@C^W@@BC8@@@@[^@@@CC^F@@@/KFK@][@FK@[C4@@@#AH@@@@)[I[U@^@@@@@G8K@@[C^W@@BUS )@@G@@[@?@@DM#Y)@@N8K@@E/K@@[V?8"@@@H80@@EGC/@@EC^/@@AC@?@@DAI@@@@)[T[U@@@@@@@UT )@@G@@0@G@@#M#Y)@@*@@@[[H@0@[[C80@@EN8Z@@@H8"@@@GC/@@EC^/@@A/KF@@ [^W@@BAJ@@@@UU )@@G@@)[=[N]@@^@K@@@@@@@[@?@@A;@)@@M[^?@@^C@?@@A/K@@["%8)@@ /K@@[%(4G@@#C4?@@#UV )@@G@@'=@@@@AK@@@@)[,[U@@K)#@@M#Y)@@C@?@@DN8Z@@@'=@@@@:C?@@^[C?@@EC^?@@#[@?@@ UW )@@G@@GC?@@BC@?@@ [^?@@DAL@@@@)[9[]@^G@@@@)@F@C*@@@@@@@[A@@G/KFK@][@FK@[C4@@@#UX )@@G@@/KF@@ [^W@@BG8K@@[C^W@@B[@?@@DAM@@@@)@G@0@@@@@@@)BM@C@@@@@@@@@@@@@@@@@@@UY )@@G@@**PF**LE RAM FIA PROG, NOT ERROR******AN@@@@@@^@@]@@A@@^@@I@@]@@Q@@@UZ )@@G@@@@@@BN@@@@][WAIT$ IOW$ PRINT$ IO$ TOCXP VA )@@G@@@@[@@@@@@@@@TOCX @@[@@@@@@@[BABE@@^R#@@@E'=@@@#R7E@@#/@F@@]:8@@@ VB )@@G@@)#Q@C@)]#@K@)]J@*@@@@@@@@@@@@@@@@@@#@@@@@^@@@@@^@@@@@^@@@@@^@@@@@A@@@@@AVC )@@G@@@@@@@8AA@@@F)]8[S@@@@@@@@@@@@B@@@@@C@@@@@C@@@@@A@@@@@F@@@@@A@@@@@D@@@@@CVD )@@G@@@@@@@B@@@@@A@@@@@ AB@@@F)##@8@@@@@@@)#M@S@@@@@@F@@@@@E@@@@@G@@@@@ @@@@@EVE )@@G@@@@@@@A@@@@@^@@@@@^@@@@@D@@@@@BAC@@@F)#P@C@)[_@)@@@@@@@)] @S@@@@@@@$(1) VF )@@G@@ $(0) PROC. PROC @@@@@GAD@@@F)]C@8@@@@@@@)]O@S@COMMONVG )@@G@@ BLOCK ER A0, AXR$ AE@@@F)]R[S@@@@@@@VH )@@G@@LENCE EQUIVA DOUBLEION DIMENSUE CONTINX COMPLE AF@@@FVI )@@G@@)]+[S@@@@@@@PARAMEL LOGICAR INTEGEIT IMPLICON FUNCTI VJ )@@G@@FORMATAG@@@F)]![S@@@@@@@ WRITE TINE SUBROU RETURN REAL VK )@@G@@ READ TER AH@@@F)#E[@@@@@@@@)@@@F]@@@@@@/,0@@@URATIOCONFIGNMENT VL )@@G@@ENVIROM-ID PROGRACATIONIDENTIAI@@@F)@[[E(/(4(4()()()(-@K0@@@[-@#*/K@@[(VM )@@G@@@@@@#R@@@@#Q@@@@@9@@@@@[@@@@@]@@@@@@@@@@@@AJ@@@F)@E[E^GCLESESK^GCS@@@@@@VN )@@G@@C@@@[1@[>@#*/K@@[>@@@@#V@@@@[1/,0@@@[#)@#SN_0@#BC_)@@[AK@@@F)@N[N#]@CYK^VO )@@G@@G]A[@@/@@@[KG/@_7'[@@@#T;C@@@SC@@@[1/K@@[([@@@@@C/@@@B/^@@@SH@@@#WAL@@@FVP )@@G@@)@X[F#@)CSK0-)K^D@@@@@@@/,0@@@/@@@[>G/@___C@@@#T[@@@#TC4@@[1/@@@[@G/@_]'VQ )@@G@@C@@@#TAM@@@F)@&[E()()(-#]^2&]&]&]&@@@@@@@@@@@@#Y@@@@#X@@@@[1/,0@@@@[2@#*VR )@@G@@@@@@#X@@@@]#@@@@[_AN@@@F)@\[E(-@K0)CMESESESK0@@@@[6@#*@@@@#Z@@@@]J@@@@] VS )@@G@@/,0@@@/K@@[>@[3@#*/K@@@3@@@@#UAO@@@F)@8[F]TN[N[N[N[N]@-)@@@@C/@@@]@[7@#*VT )@@G@@/K@@[#@@@@#U@@@@@@@@@@#-@@@@#)@@@@[1/,0@@@AP@@@F)[[[F#2@-C()()(-#]^2&@@@VU )@@G@@@@@@[1/,0@@@@[;@#*@@@@#+@@@@]8@@@@]O/,0@@@/K@@[([@@@@@AQ@@@F)[E[E()()()(VV )@@G@@-@K0CYK@@@@@/K@@[([@@@@@C/@@@^@[/@#*/K@@[N@@@@#U@@@@@@@@@@#-@@@@#@@@@[1/,0@@@@]@@#*@@@@#=@@@@#M@@@@#EVX )@@G@@/,0@@@AS@@@F)[W[M()(-@K0CYK[@@C/@@@[8N0@@GG_)@@[/K@@[([@@@@@C/@@@#@][@#*VY )@@G@@/K@@[<@@@@#U@@@@@@AT@@@F)[&[F#2 ^GCPK0)C]A^G@@@@R]0@#(@]E@#*/K@@[,N@0@[!VZ )@@G@@@]D@#*/,0@@@@]B@#*/,0@@@[@@@@@AU@@@F)[\@V#]A^G@@)#&@)@@@@@@@@@@@)@@@@@@@WA )@@G@@@]E@@#UN @@@@@@@@F@@[*4@K#&N#0@#?9\)@#%AV@@@F)[2@3#] =GCSK0)@@@)#V@S@WB )@@G@@@@@@@]CONTRO@@@@@I/K@@@@^#0@#?9:)@#%AA0@#(/K@@@@/K@K#&AW@@@F)#Y[@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@^@@@@@B@@@@@M@@@@@2@@@@@[@@@@@ @@@@[KAX@@@FWD )@@G@@@@^@@C@@G@@B@@U@@[@@Y@@A@@#@#!@C@@[8@@@@@@@@@@@#@@@@@S@@@@@^@@@@@B@@@@@AWE )@@G@@RDS1 RDS2 PSCAN2 SCAN2 ELT RDS3 WF )@@G@@NERR3$ UN @@[@@@@@@@[4@@@@@@ ^@@@C@@]@@@@B WG )@@G@@]@@@C@@#@@@@BUF ]@@@C@@^@@@@NN ]@@@C@@ @@@@PR WH )@@G@@]@@@C@@A@@@@SP ]@@@C@@B@@@@@@@CJ/@@@@@@)@@@N#@@@@@@)@@@C@)@]@<#WI )@@G@@V6^[#)@@@@@@(@@@@[8N0@@][@[\_"C@@@@@@XREF N_0@@GR@K@@JAA@@@F)@A[F@K)O'O0WJ )@@G@@O0O0O8--@@@@/K@@@Q@[M@@Q@@@@@[@@@@@L@@@@@@@@@@@K@@@@@C/,0@@@/K@@@JAB@@@FWK )@@G@@)@J[F][N(N[N[N[N]A^C>G@@@@@@@@/,0@@@@[O@@Q@@@@@M@@@@@L@@@@@@@@@@@K@@@@@CWL )@@G@@/,0@@@AC@@@F)@S[E(-#]B=[]LN[N]A^@@@@N@0@@+@[T@@Q@@@@@@@@@@@N/,0@@@/K@@@)WM )@@G@@(@@@@#@[Q@@Q@@@@@NAD@@@F)@-@3@K0--#]A^G@@@)@O@S@XXRF @@@@@@@@F@@[*4@K@OWN )@@G@@N#0@@TR@K@@SR]0@@R@[V@@Q/K@@@C/@@@[C/)@@#H@)^UQ(@@@@I @@@@GC/)@@[(@@^UQ @@@@IXX )@@G@@+@@@@I/=K@>L/,0@\0@@@ O]@#M O5/K@@->C@[^K.[@@ O R@) O N8M @M^^K@)L/,0@H*XY )@@G@@@@@@)L@@@ O(@#Q O5[@@ N$C@@ N;H@@ N$/^@@)UC@@ N/[@@ N$C/@@@[C@) N$H@) N9XZ )@@G@@*@@@@I1@@@@I @@@@GC/)@@[C[@ N$H[@ N7/D@@)&*@@@@K @@@@I+@@@@I/=K@)2C@@ N9YA )@@G@@H@@ N$/@@@-^C@@ N;H@@ N$/@@@)2C@@ N8H@@ N$/@@@-+/K@@-PC/@@@[C/)@@]H@)^UQYB )@@G@@(@@@@I @@@@GC/)@@[(@@^UQ @@@@I+@@@@I/=K@>LC@@ N6H@@ N$/^@@-[C/@@@[[@@ O@YC )@@G@@/,0@6E@#* O5/K@@->C/@@@[C/)@@[H@)^UQ(@@@@I @@@@GC/)@@[(@@^UQ @@@@I+@@@@IYD )@@G@@/=K@>L(@@^UQ/K@@-M/,0@7=@#\ O5/,0@6E@#1 O5/K@@->C/@@@[C/)@@]H@)^UQ(@@@@IYE )@@G@@ @@@@GC/)@@[(@@^UQ @@@@I+@@@@I/=K@>L/,0@9.@#6 O5/K@@->/,0@;4@#9 O5/K@@)UYF )@@G@@C/@@@[D@)^FP*@@@@I1@@@@I @@@@GC@) O]H@) N'/C)@<3/@)@<3C@) NZ[@) M4C[@ N)YG )@@G@@[[@ M5R/)@@^N_)@@^[@@ O7A@) N.C@@ N.G/@__/[@@ N"R@0 N"A@0 O8C@@ O7/)@@+@YH )@@G@@R@0 O8C@# N![@]^FPR@0 O8C@# N![@] M3O/)@@[8N)@-5(@@^FP/K@@+XC@) N-[@)^FQYI )@@G@@C[@ N+[[@^FRC_)@@NN_)@@R[#) N./,0@H*@@@^FQ@@@ N.@^J O5[@@ N_C@@ N_G/@__#YJ )@@G@@/^@@+V/,0@H_@@@ OI@@@^FQ@@@ N.@^L O5G_)@@[8N)@+H/,0@OX@@@ M4@@@ O!@^P O5YK )@@G@@D@@^FP/C@@+*/@@@+*/,0@OX@@@^FQ@@@ O!@^R O5/,0@.>@@@^I:@@@^JB@^S O5/,0@.>YL )@@G@@@@@ MR@@@ M3@^T O5/,0@OX@@@^I:@@@ O!@^U O5C/@@[KH@@^JB/C@@+//@@@+//,0@OXYM )@@G@@@@@^I9@@@ O!@^W O5D@@ M3/C@@<#/@@@<#/,0@OX@@@ MR@@@ O!@^Y O5C/@@[KH@@ M3YN )@@G@@/C@@@@@ O!@^) O5(@@^J:/K@@<3/,0@G-@@@ O!@@@ M4@^< O5YO )@@G@@D@@^FP/C@@ O5/,0@G-@@@ O!@@@^I:@^& O5C/@@[KYP )@@G@@H@@^JB/C@@<=/@@@<=/,0@G-@@@ O!@@@^I9@^* O5D@@ M3/C@@<:/@@@<:/,0@G-@@@ O!YQ )@@G@@@@@ MR@^% O5C/@@[KH@@ M3/C@@<3/@@@<3/,0@G-@@@ O!@@@ M>@^? O5(@@^US/K@@=FYR )@@G@@(@@ O[/K@@=D/,0@OX@@@^KJ@@@ O!@^3 O5(@@^J:/K@@=[/,0@G-@@@ O!@@@^KJ@^6 O5YS )@@G@@(@@^]P/K@@=D/,0@E?@@@ O$@@@ O0@@@^KJ@@@ O1@^' O5*@@^US/K@@>L(@@^]P/K@@=1YT )@@G@@/,0@E?@@@ O$@@@ O0@@@^I:@@@ O1@ @ O5C/@@[KH@@^JB/C@@=X/@@@=X/,0@E?@@@ O$YU )@@G@@@@@ O0@@@^I9@@@ O1@ ] O5D@@ M3/C@@=&/@@@=&/,0@E?@@@ O$@@@ O0@@@ MR@@@ O1YV )@@G@@@ ^ O5C/@@[KH@@ M3/C@@=0/@@@=0/,0@E?@@@ O$@@@ O0@@@ M>@@@ O1@ A O5 @@ M3YW )@@G@@(@@ O@/K@@>L(@@^J*/K@@>L*@@^J(/K@@>L/,0@OX@@@ OK@@@ O%@ I O5/,0@OX@@@^JFYX )@@G@@@@@ O!@ J O5/,0@OX@@@ ON@@@ O$@ K O5(@@^J:/K@@>L/,0@G-@@@ O%@@@ OP@ N O5YY )@@G@@/,0@G-@@@ O!@@@^JF@ O O5/,0@G-@@@ O$@@@ OS@ P O5O/K@@[8N0@X\*@@^US/K@@>3(@@^J*/K@@>:(@@^J(/K@@>:/,0[@F@ > O5/,0@7=@ $ O5ZB )@@G@@/,0[@;@ * O5(@@^UR/K@@>3/,0[[*@ % O5(@@^UT/K@@>7/,0[ 0@ , O5/,0@O\@ 0 O5ZC )@@G@@(@@^J?/K@@>_(@@^K8/K@@>_/,0[A,@ 5 O5(@@^J%/K@@&^/,0[CL@ 9 O5/K@@&F*@@^]QZD )@@G@@/K@@&I/,0@G$@@@ OU@@@ O%@@@ N.@ " O5D@@ N./G@@&I/^@@&LN@0@&K/K@@&X@A] O5ZE )@@G@@/,0@E0@@@ O0@@@ OX@A# O5/,0@E8@@@ O$@@@ O?@@@ N.@@@ O2@A^ O5'^@@U/@A O5ZF )@@G@@R]0 O69\) O9R@K O;R@) O/R@0 O.N#0 O"N#) O_*4@PO3/K@PO3/K@@UGAA0 O69:) O9ZG )@@G@@A@K O;A@) O/A@0 O.^#0 O"^#) O_/K@@WQR@K PL/,0@G,@@@^K9@@@ PA@@@ N,@@@ PBZH )@@G@@@@@ PC@[E PJ @@ N3C@@^K9[@@ N>[@@ N& @@@@@ @@@@@C_0@@[N_0@@[[#0 P@C@@ P@ZI )@@G@@T/@@DS[@@ PMC_)@@[N_)@@ [#) P[C@[^K.[@@ P]R@) P]O@) PMN8M^LU^^K@$H/,0@H6ZJ )@@G@@@@@@$H@@@ P[@[R PJH@@ PD/@@@$TC/@@@[G@@@@@[@@@@@G_)@@[8N)@$ G_0@@[8N0@&_ZK )@@G@@C_0@@#N_0@@[[#0 P@C@@ P@T/@@DS[@@ PMC_)@@[N_)@@ [#) P[C@[^K.[@@ P]R@) P]ZL )@@G@@O@) PMN8M^LU^^K@$(/,0@H6@@@@$(@@@ P[@[= PJH@@ PD/@@@$5C/@@@[G@@@@@[@@@@@ZM )@@G@@G_)@@[8N)@$-G_0@@[8N0@$VC@@@@@G@@@@@[@@ N3C/)@@AH@)@@@/C)@$//^)@*DC@-^K.ZN )@@G@@[@) P]R@) P]N8M^U2^^K@*]/,0@G'@@@@*]@@@ PB@@@ N,@@@ PB@@@@@@@[, PJ/K@@*-ZO )@@G@@C@[^K.[@@ P]R@) P]N8M^U2^^K@*J/,0@G'@@@@*J@@@ PB@@@ N,@@@ PB@@@ PE@[2 PJZP )@@G@@C@@@@@G/@__9[@@ P#N8M^=E^^K@*V/,0@G'@@@@*V@@@ PB@@@ N,@@@ PF@@@ P#@[4 PJZQ )@@G@@C@@ N,[@@ N@@@ PBZU )@@G@@@@@@@@@]] PJ/K@@%^C@[^K.[@@ P]R@) P]N8M^!+^^K@(U/,0@G'@@@@(U@@@ PB@@@ N,ZV )@@G@@@@@ P^@@@ PE@] PJN8M^!+^^K@(@@@ PB@@@ PE@]A PJZW )@@G@@C/@@@AG@@ P^[@@ P^C@)@@@G/)__9[@) P C[[^K.[[@ P]R@) P]N8M^6'^^K@(5/,0@G'ZX )@@G@@@@@@(5@@@ PB@@@ N,@@@ P^@@@ P @]E PJN8M^6'^^K@("/,0@G'@@@@("@@@ PB@@@ N>ZY )@@G@@@@@ PF@@@ P @]F PJC@[^K.[@@ P]R@) P]N8M @M^^K@%E/,0@H*@@@@%E@@@ PG@]I PJZZ )@@G@@[@@@@@N@0@%K/K@@%L@]J PJR]0 PK9!) PN9\) PPR@K PRR@) PSN#0 PTN#) PU*4@PPHAA )@@G@@/K@PPH/K@@UGAA0 PK9() PN9:) PPA@K PRA@) PS^#0 PT^#) PUC@VK@@[@K PLC8FK@[AB )@@G@@[^@@$6[^@@*P[^@@*A[^@@$9[^@@*:[^@@$N[^@@&;[^@@$OC8FK@][^@@(C[^@@(?[^@@$5AC )@@G@@[^@@(L[^@@$\[^@@*;[^@@*>[^@@&/[^@@$0C8FK@#[^@@%H/K@@&\C/@@@D[@@ PXR@K PXAD )@@G@@(@[^IN/K@@:0C@)^K.[@)^I:N8L^F<^^K@:AN8L^H.^^K@:E/,0@G'@@@@:A@@@ P,@@@^I:AE )@@G@@@@@ P\@@@@:E@[X P6C@[^H.G/@@@[[@@^JBC@-^IYH@) P0/@)@?NG/@@@[[@@^JB/,0@H_AF )@@G@@@@@ P=@@@^I:@@@^JB@[+ P6C_)@@[N_0@@ [#) PYN8L^IY^^K@:Z/,0@H*@@@@:Z@@@ PYAG )@@G@@@[& P6[@@ PZG/@__'/@@@:!C/@@@[G@@^JB[@@^JB/,0@H_@@@ PZ@@@^I:@@@^JB@[% P6AH )@@G@@G_)@@[8N0@:V/K@@?NR@K PXC@@ PX;@@@@<(@[^IC/K@@?EN8W NF^^K@:.N8L^IY^^K@:;AI )@@G@@[@@ P8/,0@G'@@@@:;@@@ P,@@@@:.@@@ P1@@@ P1@[1 P6R@K P8C@[ NF[@@^I:C@- NGAJ )@@G@@[@)^I?C.@@@ G[@^JC[[@^JB/K@@?NR@K PXC@@ PX;@@@@ Q=C@@^JBG@@ N3[@@^JB(@@^K8/K@@41/,0@H*@@@^K;@@@ QQ@]% Q=[@@ Q&CB )@@G@@/,0@H_@@@ Q&@@@^I:@@@^JB@]% Q=C/@@@[G@@^JB[@@^JB/,0@G'@@@^K,@@@ QQ@@@^I:CC )@@G@@@@@^JB@@@^K8@]? Q=C@@^JBG@@^K8[@@^JB/,0@G'@@@ N,@@@ QQ@@@^I:@@@^JB@@@ N3CD )@@G@@@], Q=C@@^JBG@@ N3[@@^JBC/@@@^H@@ N$/^@@58(@@^J*/K@@58/,0@G,@@@^K9@@@ QWCE )@@G@@@@@^JF@@@ QQ@@@ QZ@]5 Q=C@@^JB[@@ Q[(@@^K8/K@@5G/,0@G'@@@^K,@@@ QQ@@@^JFCF )@@G@@@@@ QQ@@@^K8@]9 Q=C/@@@[G@@^K8[@@^JB/K@@5Q/,0@G'@@@^KY@@@ QQ@@@^JF@@@ QQCG )@@G@@@@@^K6@]. Q=C/@@@[G@@^K6[@@^JB/,0@G'@@@ N,@@@ QQ@@@^JF@@@^JB@@@ N3@]_ Q=CH )@@G@@(@@^JT/K@@56C@@^JBG@@ N3[@@^JB/,0@H*@@@^K;@@@ QQ@## Q=[@@ Q&/,0@H_@@@ Q&CI )@@G@@@@@^JF@@@^JB@## Q=C/@@@[G@@^JB[@@^JB/,0@G'@@@^JD@@@ QQ@@@^JF@@@^JB@@@ QXCJ )@@G@@@# Q=C@@ Q[[@@^JBN@0@5'/K@@6 @#C Q=/,0@E2@@@ QQ@@@ Q)@@@ QJ@#D Q=/,0@V1CK )@@G@@@@@ Q-N@0@6^/K@@6 @#E Q=R]0 Q>R@K Q$*4@PQ+/K@PQ+/K@@UGAA0 Q>A@K Q$/K@@\7CL )@@G@@/,0@G,@@@^K9@@@ R @@@ M4@@@ RA@@@ RB@[E RKC@@ RC[@@ M4/,0@OX@@@ M4@@@ RBCM )@@G@@@[G RK(@@^J:/K@@6)/,0@G-@@@ RB@@@ M4@[J RKC@@ RD[@@ Q*C@) RE[@) Q6R@K RFCN )@@G@@N_0@@GC@@^K9[@[ Q$[@[>Q58N0@6&(@@^K7/K@@6;/,0@G'@@@^K&@@@ RA@@@ Q*@@@ RGCO )@@G@@@@@^K7@[V RK/,0@G'@@@^K&@@@ RA@@@ Q6@@@ RG@@@^K7@[W RK/K@@7D/,0@G'@@@^K&CP )@@G@@@@@ RA@@@ Q*@@@ RG@@@ RH@[Z RK/,0@G'@@@^K&@@@ RA@@@ Q6@@@ RG@@@ RH@[) RKCQ )@@G@@/,0@OX@@@ Q*@@@ RB@[- RK/,0@OX@@@ Q6@@@ RB@[+ RK(@@^J:/K@@7V/,0@G-@@@ RBCR )@@G@@@@@ Q*@[> RK/,0@G-@@@ RB@@@ Q6@[& RKN@0@7X/K@@7Y@[* RKR]0 RLR@K RMN#0 RNCS )@@G@@*4@PRI/K@PRI/K@@UGAA0 RLA@K RM^#0 RN/K@@6HC@@ N$[@@ ROR@K RO(@[^IN/K@@8OCT )@@G@@C@)^K.[@)^I:N8L^F<^^K@74N8L^H.^^K@78/,0@G'@@@@74@@@ RR@@@^I:@@@ RS@@@@78CU )@@G@@@[R RYC@[^H.G/@@@#[@@^JBC@-^IYH@) RT/@)@8"G/@__"[@@ R)/,0@H_@@@ RP@@@^I:CV )@@G@@@@@ R)@[V RYN8L^IY^^K@8E/,0@G'@@@@8E@@@ RR@@@^I:@@@^JB@@@ RU@[W RYC/@@@BCW )@@G@@G@@^JB[@@^JB/K@@8"R@K RO(@[^IC/K@@86C@@ RO;@@@@@@@ R<@@@ SV@@@ U8@@@ U9/K@@;(DG )@@G@@@[- VEC_)@@[N_0@#B[#) U'/,0[C"@@@ TN@@@ U./K@@;>@[> VEC@@ TNH@@ U"/^@@'SDH )@@G@@C/@@@B[@@ N$/K@@;(C@@ TN;C@@@S[@@ U;G/@_7'/@@@;KC@@ U;G/@_]'/@@@;@C4@ TNDI )@@G@@[@@ U;C@@ U;G/@___/@@@;>/,0[GO@@@ T-@@@ T>@@@ U_@[2 VE/,0[G^@@@ TN@@@ U_DJ )@@G@@@@@ V@@@@ R+@@@ U//K@@'3@[3 VE/K@@;>/,0[GO@@@ T$@@@ T1@@@ V[@[6 VE/,0[G^DK )@@G@@@@@ TN@@@ V]@@@ V#@@@ R+@@@ U//K@@;#@[7 VEC/@@@][@@ N$/K@@;(/,0[GO@@@ T6DL )@@G@@@@@ UU@@@ V^@[; VE/,0[G^@@@ TN@@@ V @@@ V#@@@ R+@@@ U//K@@;N@[/ VEC/@@@^DM )@@G@@[@@ N$/K@@;(/,0[GO@@@ U?@@@ U4@@@ VA@]@ VE/,0[G^@@@ TN@@@ VB@@@ V#@@@ R+DN )@@G@@@@@ U//K@@;<@][ VEC/@@@#[@@ N$/K@@;(G_)@@[8N0@'GC/@@@[[@@ N$/,0@9.@]B VEDO )@@G@@/,0[D-@]D VEN@0@;!/K@@;,@]E VER]0 VF9\) VGN#0 VI*4@PVC/K@PVC/K@@UGAA0 VFDP )@@G@@9:) VG^#0 VI/K@@'@R8VK@@C8FK@@G/@__"[@@ V=D@FK@[/C@@.U/@@@.UC/@@[KH@FK@[DQ )@@G@@/C@@.U/@@@.UC_)@@[N_0@[I[#) VJ/,0@H*@@@@@@@@@ VJ@[H V+[@@ VKC@@ VKG/@__LDR )@@G@@/^@@/KC@@ VJ[@@ VLC@@ VKG/@__#/^@@/PC@@ VJ[@@ VLG_)@@[8N0@/ /,0@G,@@@ VPDS )@@G@@@@@ VX@@@^FB@@@ VY@@@ VZ@[O V+C@@ V>H@@ VL[@@ VMC/)@@[G@) VL[@) VJ/,0@G'DT )@@G@@@@@@@@@@@ VJ@@@^FB@@@ VY@@@ VM@[R V+/,0@H_@@@ VR@@@@@@@@@ VJ@[S V+C/@@@[DU )@@G@@G@@ VJ[@@ VJH/@@[OC#) VJ]@@@[J[#) VN/,0@H_@@@ VT@@@@@@@@@ VN@[X V+G_)@@[DV )@@G@@8N0@/6N8L@@I^^K@.#/,0@G,@@@ VV@@@ VX@@@@.#@@@ VY@@@ VZ@[) V+C/@@@L[@@ VODW )@@G@@C/@@@/H@@ VM/C@@.J/@@@.JC/@@@J[@@ VOR@) VOO@) V=N8M@@@^^K@.Q/,0@G'@@@^FBDX )@@G@@@@@ VY@@@@.Q@@@ VY@@@ VM@[= V+N@0@.W/K@@.X@[> V+R]0 V<9\) V&R@K V*R@) V(DY )@@G@@N#0 V%*4@PV)/K@PV)/K@@UGAA0 V<9:) V&A@K V*A@) V(^#0 V%C8FK@@[^@@/9[^@@/!DZ )@@G@@[^@@/>[^@@/BC@VK@[[@K V>/K@@;8/,0@OX@@@ V0@@@ V"@[L WB/,0@OX@@@ V2@@@ V_EA )@@G@@@[M WB(@@^J:/K@@"^/,0@G-@@@ V"@@@ V5@[P WB/,0@G-@@@ V_@@@ V7@[Q WBC@@ EGEB )@@G@@G/@__"C_)@@[[@@@[J[#) N!R@K V!N8L @M^^K@"H/,0@H*@@@@"H@@@ W@@[V WB[@@ V,EC )@@G@@H@@ V:/^@@_5N8L @M^^K@"Q/,0@H*@@@@"Q@@@ W[@[Y WB[@@ N$/G@@"W/^@@"=/,0@%VED )@@G@@@@@ N!@@@ N:@@@ N?@@@ V,@[- WB/,0@;4@[+ WBC@@ V?H@@ N$/^@@_5/,0@%V@@@ N!EE )@@G@@@@@ N:@@@ N?@@@ V,@[& WB/,0@G,@@@^K9@@@ W]@@@^JF@@@ V"@@@ W#@[$ WB(@@^K8EF )@@G@@/K@@_[/,0@G'@@@^K,@@@ V"@@@^JF@@@ V"@@@^K8@[% WBC/@@@[G@@^K8[@@ V\/K@@_FEG )@@G@@/,0@G'@@@^KY@@@ V"@@@^JF@@@ V"@@@^K6@[, WBC/@@@[G@@^K6[@@ V\/,0@G'@@@ N,EH )@@G@@@@@ V"@@@^JF@@@ V\@@@ N3@[0 WB(@@^JT/K@@_:C@@ V\G@@ N3[@@ V\/,0@H*@@@^K;EI )@@G@@@@@ V"@[4 WB[@@ WD/,0@H_@@@ WD@@@^JF@@@ V\@[4 WBC/@@@[G@@ V\[@@ V\/,0@G'EJ )@@G@@@@@^JD@@@ V"@@@^JF@@@ V\@@@ W^@[6 WB/,0@OX@@@^JF@@@ W#@[7 WB(@@^J:/K@@_5EK )@@G@@/,0@G-@@@ W#@@@^JF@[' WBG_)@@[8N0@"C/,0@OX@@@ V'@@@ V"@[. WB(@@^J:/K@[@[EL )@@G@@/,0@G-@@@ V"@@@ V/@]@ WBN@0[@#/K@[@^@][ WBR]0 WC9\) WER@K WGN#0 WH*4@PW EM )@@G@@/K@PW /K@@UGAA0 WC9:) WEA@K WG^#0 WH/K@@.2C@@ WX[@@ WIR@K WYN_0@@GC@@^K9EN )@@G@@[@[>WH8N0[@O(@@^K7/K@[@-/,0@G'@@@^K&@@@ WZ@@@ WI@@@ W)@@@^K7@[L W>/K@[@*EO )@@G@@/,0@G'@@@^K&@@@ WZ@@@ WI@@@ W)@@@ W-@[O W>/,0@OX@@@ WI@@@ W+@[P W>(@@^J:EP )@@G@@/K@[@2/,0@G-@@@ W+@@@ WI@[S W>N@0[@4/K@[@5@[U W>R]0 W&R@K W$N#0 W**4@PWW*8N0[[[(@@^K7ER )@@G@@/K@[[I/,0@G'@@@^K&@@@ W9@@@ W(@@@ W'@@@^K7@[M W_/K@[[P/,0@G'@@@^K&@@@ W9ES )@@G@@@@@ W(@@@ W'@@@ W;@[O W_/,0@OX@@@ W(@@@ W/@[Q W_(@@^J:/K@[[Z/,0@G-@@@ W/ET )@@G@@@@@ W(@[T W_N@0[[-/K@[[+@[V W_R]0 X@R@K X[N#0 X]*4@PW./K@PW./K@@UGAA0 X@EU )@@G@@A@K X[^#0 X]/K@[@_(@@^U%/K@[]7C@@ EGG/@__"C_)@@[[@@@[J[#) N!/,0@%V@@@ N!EV )@@G@@@@@ N:@@@ N?@@@ X#@[M XNC/@@@^H@@ X#/C@[[./^@[]5R@K XHN_)@@HC@[^UT[@[=KIEW )@@G@@8N)[[_/,0@H_@@@ XB@@@^KJ@@@^KH@[U XN/,0@G'@@@^KY@@@ XI@@@^KJ@@@^KG@@@^K6EX )@@G@@@[V XNC@@^KGG@@^K6[@@ X /,0@G'@@@ N,@@@ XI@@@^KJ@@@ X @@@ N3@[X XN(@@^U(EY )@@G@@/K@[]1C@@ X G@@ N3[@@ XA/,0@H*@@@^K;@@@ XI@[- XN[@@ XP/,0@H_@@@ XP@@@^KJEZ )@@G@@@@@ XA@[- XNC/@@@[G@@ XA[@@ XA/,0@G'@@@^U*@@@ XI@@@^KJ@@@ XA@@@^KI@[< XNFA )@@G@@/,0@OX@@@^KJ@@@ XJ@[> XNG_)@@[8N0[[2C@@ EGG/@__"(@@^U:/K@[^IC_)@@[[@@@[JFB )@@G@@[#) N!/,0@%V@@@ N!@@@ N:@@@ N?@@@ X#@[, XNC/@@@ H@@ X#/^@[^GR@K XHN_)@@HFC )@@G@@C@[^UT[@[=KI8N)[#D/,0@H_@@@ XD@@@^KJ@@@^KH@[6 XN(@@^K7/K@[#Y/,0@G'@@@^K&FD )@@G@@@@@ XI@@@^KJ@@@^KG@@@^K7@[9 XNC@@^KGG@@^K7[@@ X /K@[#*/,0@G'@@@^K&@@@ XIFE )@@G@@@@@^KJ@@@^KG@@@ XK@[. XNC/@@@ G@@^KG[@@ X /,0@G'@@@ N,@@@ XI@@@^KJ@@@ X FF )@@G@@@@@ N3@]@ XN(@@^U(/K@[^CC@@ X G@@ N3[@@ XA/,0@H*@@@^K;@@@ XI@]^ XN[@@ XPFG )@@G@@/,0@H_@@@ XP@@@^KJ@@@ XA@]^ XNC/@@@[G@@ XA[@@ XA/,0@G'@@@^U*@@@ XI@@@^KJFH )@@G@@@@@ XA@@@^KI@]A XN/,0@OX@@@^KJ@@@ XJ@]C XNG_)@@[8N0[].C@@ EGG/@__"(@@^U?FI )@@G@@/K@[ >C_)@@[[@@@[J[#) N!/,0@%V@@@ N!@@@ N:@@@ N?@@@ X#@]L XNC/@@@AH@@ X#FJ )@@G@@/^@[ /C@[B[FW )@@G@@/@@[B[/,0@G'@@@^JW@@@ )N@@@ Z7@@@ )N@@@^J>@[O )Z/,0@GS@@@ )P@@@ )Q@@@ Z3FX )@@G@@@[P )ZC@@^J-H@@ )R/@@[BYC@@^J-[@@ )@C@)^J+[@) )[/,0@GS@@@ )N@@@ )S@@@ Z/FY )@@G@@@[U )ZC@@^J )Z/K@[B7/,0[D-@[$ )Z/,0@O\@[* )ZN@0[CG/K@[CH@[% )ZGD )@@G@@R]0 ))*4@P)X/K@P)X/K@@UGAA0 ))/K@[A09?FK@@9*@ )-9*@ )? @@ )/C4FK@[?8@@@AGE )@@G@@/K@[C(A]0 )/9?FK@[9*@ ),9?FK@]9*@ )2C@@ )8[@@ )1C8@ )?'=@@[ [@:K@A*@@@@IGF )@@G@@/KFK@BC@@ )6[@@ )&/K@[C% @@ )&C@F@@#[C@ )$C@F@@^[^@ )$C@FK@ ;G@@@=W8@@@WGG )@@G@@[C@ )*T8@@@W[C@ )>A]0 )9C8@ )-/,0[I!/K@[C'R]0 )9/KF@@DR]0 )9G9K@[@[[VK@AGH )@@G@@/KFK@BC@F@@@[^@ )(C@VK@[[^K )*/@K[DD/GK[DDH8K@@[&;@@@[C@0 );[@/)@@8#K[DBGI )@@G@@A]0 )'C8@ )-/,0[GX/K@[C'/K@[DRR]0 )'0@@ ):/K@[DTRZ@ ):(@@ )//KF@@^**@ ):GJ )@@G@@/K@[C"/KF@@^R]0 )'/KFK@]C4@ ):%8@@@*/K@[C"C?@ ):%8@@@P/K@[C" @@ )//K@[C"GK )@@G@@A]0 )'C8@ )-/,0[JUR]0 )'/KF@@[C/@@@[H@@@@@]@@ -NC/)@@ [@) -OC/@@@[G@@ -NGL )@@G@@[@@ -NH@@@@@/G@[D2*@@@@G/K@[F]C@@ -O[@@ -P/,0@H*@@@@@@@@@ -N@[J -@[@@ -OGM )@@G@@R@K -OR@) -PA@K -^A@) - R@K -^D@[ -Y/=@[D:R@) - C@] +X8L@[FNC_)@@[R@) -#GU )@@G@@N[@ -^[#) -RC4]@@@G/@@@[[@@ -XR@K -XC/)@@[[@- -XG@- +X[@- +X*C[ +X/K@[F$GV )@@G@@C[@ -R[D[ +XO/)@@]G_)@@[8L@[FUN@0[F?/K@[F1@]A -@!^) )"/K@@UNH8)@@[[^) )"GW )@@G@@R]0 -[9!) -B9,@ -D9\) -FR@K -HR@) -IN[@ -JN[K -K/K@P)"AA0 -[[^@ )"9() -BGX )@@G@@9%@ -D9:) -FA@K -HA@) -I^[@ -J^[K -K/KH@@@C8@@@B/\K[F'C8FK@@[^@[D5[^@[E4GY )@@G@@C8FK@[[^@[D$C8FK@][^@[D,[^@[E*C8FK@#[^@[FC[^@[F]C8FK@^[^@[FE/K@[D&C8@@@^GZ )@@G@@/\K[F'C8FK@@[@@ -#C8FK@[[@@ -]C@VK@][@K -A/K@[FIR#W@@DR#?@@CR#.)@@ @@@[]HA )@@G@@ @@@[#A#/@@E;C0@@Y:80@@_/KF@@[A#W@@DR#/@@E;K0@@S/C0[G:R3/@@E!^/@@BRB/@@BHB )@@G@@C G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@[IQN@K@@JM#!)@@A#W@@D*@@@[]/K@[IDR#/@@EHC )@@G@@;K0@@S/C0[G/R3/@@EPB/@@B/G0[HSC G@@DG[@@@J[ G@@DC W@@AGDW@@^H[@@@L/H@[HSHD )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K[HK%9K@@ /KF@@@(^G@@#/KF@@@C[W@@AHE )@@G@@[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@[G"R#W@@DC5X@@@%9K@@(/KF@@]0@G@@EHF )@@G@@/K@[H)R;0@Z_/K@[H-R;0@@_C[W@@E;LK@@S/DK[H>C1W@@E![K@@J/K@[INC[@@@LG1H@@@HG )@@G@@! W@@B/K@[II?@0@@K/K@[H8? G@@B/K@[H6C[K@@KH W@@B?@0@@KC[@@@JH1X@@@D@0@@LHH )@@G@@/K@[H_R3.@@@/K@[H_!^/@@B/K@[H\C[K@@KH[K@@JH1X@@@C[@@@JD@0@@L[1G@@E0@G@@EHI )@@G@@/K@[I^;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[A#W@@D/K@[G!R#0@[]P#0@[#/@0[HS/G0[HSHJ )@@G@@/K@[G"[1G@@E0@G@@E/K@[IN;D@@@A[5G@@ER3.@@@O;0@@[/K@[G"P#0@@KN@K@@JM#!)@@HK )@@G@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K[I>%9K@@ /KF@@@(^G@@#/KF@@@HL )@@G@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@[G! @@@@HOBW@@AC[K@@G9??@@@HM )@@G@@RBG@@A9*?@@@'=@@[GR7?@@AR#@@@L!8)@@S!8)@@)/K@[JBRF?@@B?8)@@^/K@[JB+/)__/HN )@@G@@C[G@@ AF/@@B+9@@@#T80@@WH[@@@L%C?@@BAF/@@^T9K@@WO#K@@L[[G@@ ABW@@DR#W@@AHO )@@G@@ABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K[JP%9K@@ /KF@@@(^G@@#/KF@@@HP )@@G@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@A@@@@@A@@@@@D@@@@@A@@@@@A@@@@@A@@@@@C@@@@@A@@@@@A@@@@@^HS )@@G@@@@@@@^@ELT,L @ASM,S @COB,BERS @FOR,S @ALG,S @MAP,SHT )@@G@@ @NEL,SYE @ELT,L @PDP,L @HDG @SPL @@@@@@HU )@@G@@@@@@@[@@@@@^@@@@@]@@@@@@@@@@@A@@@@@ @@@@@B@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,______ S______ R______ AHW )@@G@@______@@@@@,______@DCTNRY ______*END ______@DCTNRY ______*END HX )@@G@@______@ADD M$A$R$.______ERROR WHILE @ADDING FILE VIA CSF$, ERR CODE IS &HY )@@G@@______ @@@@@[@@@@@ @@@@@A@@@@@]@@@@@B@@@@@@@@@@@I@@@@@W@@[@@[_____"HZ )@@G@@@@@@[K@@@@@G@@F@@[@@@@@@BPC @A @@]@@@@@@@@@@@[@@@@@ @@@@@A@@@@@BIA )@@G@@@@@@@#@@F@@ @@@@@@NC @]J@@#C F @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@,______@@@@@,______,,,,,,______ ______NNNNNN______IC )@@G@@@@@@@[@@@@@] @@@@@A@@@@@@@@@@@W@@F@@]@@@@@@PDP @#G@@]@@@@@,______ID )@@G@@@SEQ ______@SEG ______S$$$EQ. ______STOP ______STOP ______ERR ONIE )@@G@@ SEQ CARD, TOO MANY CHARS& ______@@@@@[@@@@@] @@@@@A@@@@@ @@@@@^IF )@@G@@@@@@@@@@@@@G@@@@@B@@@@@I_____" @@F@@[@@@@@@FAACM @#E@@]@@@@@@@@@@@[IG )@@G@@@@@@@I@HDG,N@PACK @PREP @@[@@]@@@@@E@@@@@ @@F@@[@@@@@@PP @[*@@#@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@,______@@@@@[@@@@@] @@@@@A@@@@@ @@F@@[@@@@@@ELT II )@@G@@@[9@@# PROC PROC. @@@@@A@@@@@A$(0) $(1) AXR$ IJ )@@G@@ A0, ER @@@@@^@@@@@^@@@@@^@@@@@^@@@@@#BLOCK IK )@@G@@COMMON COMPLEX CONTINUE DIMENSION DOUBLE EQUIVALENCE IL )@@G@@FORMAT FUNCTION IMPLICIT INTEGER LOGICAL PARAMETER IM )@@G@@READ REAL RETURN SUBROUTINE WRITE @@@@@ @@@@@AIN )@@G@@@@@@@B@@@@@C@@@@@D@@@@@A@@@@@F@@@@@A@@@@@C@@@@@C@@@@@B@@@@@B@@@@@D@@@@@^IO )@@G@@@@@@@^@@@@@A@@@@@E@@@@@ IDENTICATIONPROGRAM-ID ENVIRONMENT CONFIGURATIOIP )@@G@@@@@@@G@@@@@E@@@@@F@@@@@G@@@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ICONTRO@@@@@]IQ )@@G@@@@@@[K@@@@@ @@@@@[@@@@@2@@@@@M@@@@@B@@@@@^@@@@@C@@F@@[@@@@@@UN @]E@@#IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ______;;;;;;IS )@@G@@______ ______ ______@@@@@@@@@@@[@@@@@I@@F@@#@@@@@@CONT @[>@@#IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@^@@@@@@@@@@@@@@@@@@IU )@@G@@@HDG,N______@DCTNRY ______@HDG,N______@DCTNRY ______*END ______IV )@@G@@*END ______@@@@@[@@@@@]@@@@@#@@@@@A@@@@@@@@@@@I@@@@@G@@F@@[@@@@@@MERGE IW )@@G@@@][@@#@PRT,T@@[@@]@@@@@[@@@@@E@@@@@ @@@@@I@@F@@[@@@@@@PRTT @[U@@#@@@@@@IX )@@G@@@@@@@@@XREF @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@]@@@@@[@@@@@N@@@@@ @@@@@I@@F@@[@@@@@@XXRF IZ )@@G@@@[V@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ S______ R______ AJA )@@G@@______@@[@@[@@@@@[@@@@@I@@@@@ @@F@@[@@@@@@PSRABS@]\@@#MARVELCARDS FILE JB )@@G@@ @@@@@@M$A$R$ ______SPEC3 ______MARVELCARDS ______@@@@[]JC )@@G@@@@@@@#@@@@@]@@@@@[@@@@@@@@@@#)@@@@@8@@@@@I@@F@@[@@@@@@SAVE @[S@@#BRK FIJD )@@G@@LE, FILE NAME IS ELT NAME IS JE )@@G@@ VERS NAME IS @@@@@@ ______JF )@@G@@M$A$R$ ______B$R$K$ ______@@@@@@@@@@@[@@@@@ @@@@[]@@@@@D JG )@@G@@@@@@@A@@@@@]@@@@#)@@@@@8@@@@@I@@F@@[@@@@@@BREAK @[%@@#@@@@@@@@@@@@@@@@@@JH )@@G@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ JJ )@@G@@@@@@@@@@[@@[@#;@@@@#;@@@SCAN2 @]A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[JL )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[JM )@@G@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[JO )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@K@@@@ @@-^ID@@[^JC@@B^JU@@A^J*@@[^KX@@]^K9@@V^US@@@___@*(@WQ@@@___@@Q MRJQ )@@G@@@@Y N^@[+ OT@^6 QI@@Q =-@@E >C@@X ?J@@B ?")@R M!)@7 N+)@N P;)DX V^)@L =7JR )@@G@@)A. >M)@M ??@@@___@@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@USE B$R$K$, . @@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ . @@@@@@@@@@@@ JW )@@G@@ @@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@SPEC1 SPEC2 SPEC3 /,0@G,@@@^K9@@@ NHJY )@@G@@@@@^KY@@@ NI@@@ NJ@[K NP/,0@G,@@@^K9@@@ NH@@@^K&@@@ NI@@@ NJ@[L NP/,0@G,JZ )@@G@@@@@^K9@@@ NH@@@^K,@@@ NI@@@ NJ@[M NP/,0@Y1@@@ NI@@@^KY@@@ N @[N NP/,0@Y1KA )@@G@@@@@ NI@@@^KY@@@^K6@[O NP/,0@Y1@@@ NK@@@^K&@@@^K7@[P NP/,0@Y1@@@ NL@@@^K,KB )@@G@@@@@^K8@[Q NP/,0@Y"@@@ NI@@@^U!@[R NP/,0@Y"@@@ NK@@@^U\@[S NP/,0@Y"@@@ NLKC )@@G@@@@@^U1@[T NPD@@^K6/C@@XW/@@@XWC/@@@[G@@^K6[@@^K6/,0@H*@@@^K'@@@ NI@[X NPKD )@@G@@[@@ NR/,0@H_@@@ NR@@@^KY@@@^K6@[X NP/K@@X)C@@ N^[@@^KYC/)@@ [@)^K6/,0@<0KE )@@G@@@@@^U!/K@@Y-@[+ NP/,0@> @@@^U!@@@^KY@@@^K6@[< NPD@@^K7/C@@X'/@@@X'C/@@@[KF )@@G@@G@@^K7[@@^K7/,0@H*@@@^K'@@@ NI@[$ NP[@@ NR/,0@H_@@@ NR@@@^K&@@@^K7@[$ NPKG )@@G@@/K@@X/C@@ N^[@@^K&/,0@<0@@@^U\/K@@Y-@[: NP/,0@> @@@^U\@@@^K&@@@^K7@[? NPKH )@@G@@D@@^K8/C@@YY/@@@YYC/@@@[G@@^K8[@@^K8/,0@H*@@@^K'@@@ NI@[0 NP[@@ NR/,0@H_KI )@@G@@@@@ NR@@@^K,@@@^K8@[0 NP/,0@<0@@@^U1/K@@Y-@[1 NP/,0@> @@@^U1@@@^K,@@@^K8KJ )@@G@@@[2 NPN@0@Y)/K@@Y*@[4 NP/,0@E2@@@ NI@@@ NM@@@ NA@[5 NP'^@@U/@[6 NPR]0 NQKK )@@G@@*4@PNN/K@PNN/K@@UGAA0 NQ/K@@WQR;@@@[[@@ O4/K@@Y6R;@@@][@@ O4/K@@Y6R;@@@#KL )@@G@@[@@ O4R;@@@[A#@ O< @@ O=/K@@ZFC^F@@@&#FK@[[@@ N)/KF@@#R;@@@[A#@ OO/K@@+RR]0 OXR#FK@@/,0@&IKP )@@G@@/K@@+@(@@ O4/K@@-?R]0 OXR#F@@[R#V@@]R#;@@[9*@ O2A[K O!C[K O4:9K@@[/,0@)'KQ )@@G@@C[K O4%9K@@]/K@@Z89?@ O0/,0@$'R#@ O>'=@@@JC[K O4%9K@@#/K@@)E9?@ O0/,0@$'KR )@@G@@R#@ O>'=@@@J/,0@)'R;@ P7R#0 O2/,0@)RC9@@@./S )@@')I))0R;@ O5/,0@)TA KPO3KS )@@G@@/K@@+FR#@ O4%8@@@[/K@@)MR;@ O5R#0 O2/,0@)RA KPO3/K@@+FR;@ P7R#0 O2/,0@)RKT )@@G@@A KPO3/K@@+FR#) O&R[K O&;G@@@M;CK@@M&;@@@[&;K@@[&;0@@[')G))>:9@@@ /K@@)=KU )@@G@@')I))0/S )@@/K@@)Y/KF@@@C5H@@@C1H@@@C!H@@@C(H@@@C>H@@@/\@@):C-H)@@[^@@)\KV )@@G@@Q;@@@@/K@K)\@@@@@@[5J@@@[1J@@@[!J@@@[(J@@@[>J@@@/\)@)6[-J)@@[^)@)\Q;)@@@KW )@@G@@/K@K)\9?@ O$9*@ O59*@ O79*@ O99*@ O;9*@ O.9*@ O_9*@ P[(4@ Q@/KF@@@9?@ QCKX )@@G@@9*@ O;(0@ Q@/K@@-GR#@ O(A#@ O.9?@ QE9*@ O"(?@ Q@/K@@-NR#@ O%R#K QG9*@ P@KY )@@G@@R#@ O:A#@ P]R#@ O&R#K O&R#) O&N8K@@C8KK@-T/KF@@@C[G>O;N8)@@A8K)@-X/K@@-RKZ )@@G@@ @@@@J;?0@@A%80@@ ')H)-&:@K O?/SI)@@:@K O?R#K O&/K@@-VA7" O5A3" O5A\" O5LA )@@G@@A:" O5A$" O5A<" O5R]0 OX*@@ O@[X PW!^) PU/K@@UNH8)@@[[^) PUR]0 PX9!) PY9,@ P)R@K P+LL )@@G@@*4@PPU/K@PPU/K@@UGC8@@@#AA0 PX[^@ PU9() PY9%@ P)A@K P+C8FK@@[^@@@@@ P&@[F P(/,0 MR@@@ M!@[G P(C_)@@[N_0@@FLO )@@G@@[#) P@@@^FB@@@ P>@@@@@@@[Q P(/,0@G'@@@ M1@@@ P>LQ )@@G@@@@@@@@@@@ P>@@@ P<@[R P(C/@@@[G@@ P<[@@ P:/,0@G'@@@^FB@@@ P>@@@@@@@@@ P:LR )@@G@@@@@@@@@[S P(C@@ P,C@@@@H'=@@@H(@@ P2[@@ P2G8W@@@ @H@@@>@@@(H/K@@>:>@@@(I/KF@@[LV )@@G@@C8H@@@?8I@@@/K@@>VC@@@(GC8K@@#/KF@@@C@@@([C8K@@[/KF@@@[@@ P2C@@@(BC8K@@]LW )@@G@@/KF@@@L8@@@[C@) P1/@K@&AG8)@@[*@I@@@?CY@@@/K@@>;G),@@@/K@@>5%CI@@@/KF@@@LX )@@G@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@(J/KF@@[O<,@@@O;)@@[*@I@@@*4I@@@LY )@@G@@/KF@@@%CI@@@/K@@& R#I@@[/KF@@[N8W@@@C^@ P1G8@@@[C9K@@[ @@ Q@N8)@@@(@G@@@LZ )@@G@@/K@@&9(4G@@@/K@@&(%1W@@@/K@@&9C?W@@@!8K@@A/K@@&?%(K Q@ @@ P_[(K Q@9??@@[MA )@@G@@C-G@@@:9@@@[C@0@(J')H@$(H9@@@[T9@@@AG>G@@@')H@$1G)G@@@G8@@@[/K@@&O:9K@@[MB )@@G@@/K@@&1C*?@@@:8)@@.N8)@@[%[K@[[/K@@&(/K@@&)%@)@(J[5@ P_:@)@(J[-K P_/K@@&(MC )@@G@@(@@@[]:(K Q@/K@@&"[(K Q@ @@ P_:[K@[[/K@@$AG9K@@[*@G@@@/K@@&N @@ P_ @@ Q@MD )@@G@@/KF@@@:(K Q@ *@ Q@9?K P_98V@@@C8@@@-[=@ Q@(?@ Q@/KF@@[C@@ QGD8)@@@C80@@@ME )@@G@@C!@ Q@8^@@$T1@@@@I!8)@[@C80@@E[)) Q@[=0 Q@/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0MF )@@G@@/K@@$=(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@$M/^0@$P%8K@@+:8K@@-C8.@@@/@0@$PMG )@@G@@/K@@$M9*) Q[9*) Q#[@) Q [@) QA[@) QB9*) QC9*) QE[@) QG/K@@&4[1@ P_[!@ P_MH )@@G@@[(@ P_[>@ P_[5@ Q@[1@ Q@[!@ Q@C80@@F+8K@@_:8)@@ ;^@@@A8#0@$;9*@ P4C@@@(KMI )@@G@@C@K@(LC8)@@BC@0@(J[@" P78#)@*^N4K P_9!@ Q[/\)@*2C9K@@*(4@ P_*)@ P_')H)@@MJ )@@G@@N0K P_9!@ Q#*@@@[[/K@@*NC[@@(MN8K@@^/\)@*2N?K P_(@@@[[/K@@*XC9K@@(')H)@@MK )@@G@@C[@ Q /\)@*2C9K@@)')H)@@(*@ P_*=@ P_/K@@*@@@AMM )@@G@@')H)@@8KK@*0/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@*'[-W)@@Q;K@*4/KJ@@@MN )@@G@@PROCESSOR CALL ERROR @[^@*.ABNORMAL RETURN FROM READ$ @[ @(]TOO MAMO )@@G@@NY SPECIFICATIONS @[^@(C]@@@@@[@@@@@ @@[ P7@@[@*4TPF$ @@G P3/,0@N1MP )@@G@@@@@ QW@@@ R4@@@ R4@@@^]R@@@^ 7@@@ R5@@@ QK/K@@\J@[* SA/,0@G,@@@^K9@@@ R4MQ )@@G@@@@@ M6@@@ R6@@@ R7@[% SA/,0@\9@@@ M6/K@@\%@[: SA/,0@GS@@@ R6@@@ R7@@@ M6MR )@@G@@@[? SAC@@ R8[@@ QL/,0@;^@@@ M6@@@ R6@@@ R9@@@ QZ@@@ R6@@@ QM/K@@%^@[, SAMS )@@G@@/,0@9F@@@ M6@@@ R6@@@ R9@@@ R'@@@ Q-@@@ QL@@@ QN@@@ QH@[\ SA/K@@%I/,0@9FMT )@@G@@@@@ M6@@@ R6@@@ R9@@@ R'@@@ Q<@@@ QL@@@ QN@@@ QH@[1 SAR/K@@[N_0@@MA@K^I%MU )@@G@@C@@ QLH@@ R;/^@@%QC@@ R/[@@ QLC@[ MTH@@ QL/@@@%WO/K@@[8N0@%K/K@@\DC@)^I%MV )@@G@@?8)@@O/C,@%Z'^@@T'/K@@%4/K@@%4/K@@%4/K@@%4/K@@%4/K@@%4/K@@%4/K@@(Y/K@@%4MW )@@G@@/K@@?3/K@@\A/K@@!5/K@@!'/K@@!./K@@,[/K@@,^/K@@,B/K@@\]/K@@(Y@[. SAC/@@@#MX )@@G@@G@@ QH[@@ QH/,0@;^@@@ M6@@@ QH@@@ R9@@@ Q>@@@ R6@@@ QM/K@@:&@]@ SAR@K^I%MY )@@G@@C/@@@[[@[^ING@@ QM[@@ QO/,0@J9@@@ Q$@@@ R6@]# SAR@K^I%N8L^F<^^K@:K/,0@J6MZ )@@G@@@@@ M6@@@ QO@@@ R9@@@@:K@@@ QP@@@ QQ@@@ QR@@@ QS@]^ SAR@K^I%C@@ QQ[@[^H.NA )@@G@@G@@ QP[@@ QHD@) QQ/C)@:Y/^)@:&/,0@E2@@@ R6@@@ R.@@@ Q(@]D SAR@K^I% @[^INNB )@@G@@/K@@\DR@K^I%C@@^K9[@[^IYC/)@@[[@-^IC @@ QJC/@@@[G@@ QH[@@ QH/,0@/O@@@ M6NC )@@G@@@@@ QH@@@ R9@@@ QT/K@@(Y@]L SA/,0@H*@@@ M6@@@ QT@]M SA[@@ QUG/@__#/@@@? ND )@@G@@C@@ QUG/@__9/C@@?[/^@@?=C/@@@ZH@@ QU/C@@? /^@@?=C@@ QT[@@ QHC/)@@[G@) QJNE )@@G@@[@) QJC/@@@DH@@^I%/^@@?JC@@ QJ[@@^JCR@K^I%C/@@@AH@@ QJ/C@@?O/^@@?WN8L^IYNF )@@G@@^^K@?S/,0@H_@@@ QU@@@@?S@@@ QJ@]Z SA/K@@:?/,0@E2@@@ R6@@@ R.@@@ Q\@]- SANG )@@G@@R@K^I% @[^IC/K@@(Y/,0@E0@@@ R.@@@ Q7@]= SA/,0@E6@@@ R"@@@ QU@@@ R_@]> SANH )@@G@@/,0@E2@@@ R6@@@ S@@@@ Q"@]& SA/K@@:?C/@@@#G@@ QH[@@ QH/,0@;^@@@ M6@@@ QHNI )@@G@@@@@ R9@@@ R[@@@ R6@@@ QM/K@@! @]% SA/,0@E2@@@ R6@@@ R.@@@ R#@]: SA/K@@(YNJ )@@G@@R@K^I%C/@@@[[@[^IC @@ QJ/,0@/O@@@ M6@@@ QH@@@ R9@@@ QT/K@@(Y@]0 SA/,0@H*NK )@@G@@@@@ M6@@@ QT@]1 SA[@@ QUG/@__L/@@@!*R@K^I%C@@ QUG/@__'/@@@(YC/@@@[G@@ QJNL )@@G@@[@@ QJG/@__./G@@!-/^@@!?N8L^IY^^K@!>/,0@H_@@@ QU@@@@!>@@@ QJ@]9 SAC/@@@[NM )@@G@@G@@ QT[@@ QT/K@@!K/,0@E2@@@ R6@@@ R.@@@ RF@]/ SAR@K^I% @[^IC @[^IY/K@@(YNN )@@G@@/,0@1B@@@ QH@@@ QT@#[ SA/K@@(YC/@@@[[@@^J(/K@@(Y/,0@4<@@@ QH@#B SA/K@@(YNO )@@G@@C/@@@[[@@^J:/K@@(YC/@@@[[@@^J?/K@@(Y @@^KFD@@^K6/C@@,//@@@,/C@@^K6G/@__"NP )@@G@@C_)@@[[@@@[J[#) QJ/,0@H*@@@^KY@@@ QJ@#Q SA[@@ QUG/@__R/@@@,UG_)@@[8N0@,JNQ )@@G@@/K@@,//,0@G,@@@ RN@@@ R4@@@^FB@@@ R6@@@ R7@#W SAC@@ S[[@@^FBC@) S][@)^FCNR )@@G@@/,0@G'@@@^KY@@@ R6@@@^FB@@@ S#@@@^K6@#Z SAC/@@@IG@@^K6[@@ QV/,0@G'@@@ RPNS )@@G@@@@@ R6@@@^FB@@@ QV@@@ R_@#- SA/,0@OX@@@^FB@@@ R7@#+ SAC/@@@[[@@^KFC/@@@[NT )@@G@@[@@^J!/,0@5>@@@ QH@#& SA/K@@(Y/,0@7.@@@ QH@#( SA/K@@(YC/@@@[[@@^FP/K@@%4NU )@@G@@/,0@E2@@@ R6@@@ R.@@@ RR@#, SA/K@@(YC/@@@^H@@ QK/@@@\WC/@@@#H@@ QK/^@@\ @@^J& @@^J$C/@@@#G@@@@@[@@@@@/,0@/O@@@ M6@@@@@@OI )@@G@@@@@ T+@@@ S+/K@@4Q@[S T* @@ S< @@ S= @@ S> @@ SOL )@@G@@[@@ S>/,0@H_@@@ S&@@@^JW@@@ S>@[! T*C/@@@[G@@ S+[@@ S+/K@@19C@@ S>[@@^J>OM )@@G@@/,0@G$@@@^JU@@@ T<@@@ S$@[2 T*/,0@<0@@@ S%/K@@3_@[3 T*/,0@> @@@ S!@@@^JWON )@@G@@@@@^J>@[4 T*C/@@@[[@@^J%C/)@@[G@) S+[@)@@@/,0@/O@@@ M6@@@@@@@@@ T+@@@ S+OO )@@G@@/K@@3%@[7 T*/,0@H*@@@ M6@@@ S+@[8 T*[@@ S&C/)@@[G@) S+[@) S+G/@__'/@@@3%OP )@@G@@C@@ S&G/@__#/@@@3OC/@@@[G@@^J&[@@^J&G/@__3/G@@3I/^@@3!/,0@H_@@@ S&@@@^J-OQ )@@G@@@@@^J&@][ T*/K@@2;/,0@H*@@@ M6@@@ S+@]# T*[@@ S&C/)@@[G@) S+[@) S+G/@__'OR )@@G@@/@@@3%C/@@@[G@@^J$[@@^J$G/@__3/G@@3=/^@@3!/,0@H_@@@ S&@@@^J<@@@^J$@]E T*OS )@@G@@/K@@3ON@0@3?/K@@4Z@]G T*/,0@E2@@@ TY@@@ T=@@@ S0@]H T*/K@@4K/,0@E2@@@ TYOT )@@G@@@@@ T=@@@ S9@]J T*/K@@3%/,0@E2@@@ TY@@@ T=@@@ T#@]L T*/K@@4K/,0@E0@@@ T=OU )@@G@@@@@ TF@]N T*C/@@@[[@@ S/C@@4E/@@@4EC@@^J>[@@ SOV )@@G@@@@@^JW@@@ S<@]R T*/,0@E2@@@ TY@@@ T=@@@ TL@]S T*/K@@4V/,0@E2@@@ TY@@@ T=OW )@@G@@@@@ TP@]U T* @@^J%N@0@4Y/K@@4Z@]W T*R]0 T(*4@PT&/K@PT&/K@@UGAA0 T(C8FK@@OX )@@G@@[^@@26[^@@23[^@@10[^@@1![^@@1?/K@@1O/,0@G,@@@^K9@@@ T?@@@^J,@@@ T!@@@ T,OY )@@G@@@[B T4/,0@G,@@@^K9@@@ T?@@@^J.@@@ T!@@@ T,@[C T4 @@ T%C/@@@#G@@@@@[@@@@@OZ )@@G@@/,0@/O@@@ M6@@@@@@@@@ T\@@@ T:/K@@5P@[F T4C/@@@[G@@ T%[@@ T%/,0@G'@@@ M6PA )@@G@@@@@ T:@@@^J,@@@ T%@@@ T!@[H T4C/@@@[G@@ T:[@@@@@C@) T:G/)_"7/C)@5P/^)@4.PB )@@G@@C@@ T%[@@^J//,0@G'@@@ M6@@@ T0@@@^J.@@@ T0@@@ T1@[N T4N@0@5)/K@@5-@[O T4PC )@@G@@R]0 T5*4@PT2/K@PT2/K@@UGAA0 T5C8FK@@[^@@5K[^@@4_[^@@4/[^@@4;/K@@4:C/@@@[PD )@@G@@[@@^UTC/)@@#G@)@@@[@)@@@C[@ UC[[@^UUC.)@@A[[)^KH/,0@/O@@@ M6@@@@@@@@@ UDPE )@@G@@@@@ T6/K@@7=@[V UNC/@@@[G@@ T6[@@@@@/,0@H6@@@ M6@@@ T6@[X UNH@@ UE/@@@6YPF )@@G@@/,0@H6@@@ M6@@@ T6@[Z UNH@@ UF/@@@6-/,0@H6@@@ M6@@@ T6@[- UNH@@ UG/@@@6=PG )@@G@@/,0@H6@@@ M6@@@ T6@[< UNH@@ UH/@@@6$/,0@H6@@@ M6@@@ T6@[> UNH@@ UI/@@@6'PH )@@G@@/K@@6?C/@@@[[@@^U%/K@@55C/@@@[[@@^U:/K@@55C/@@@[[@@^U?/K@@55C/@@@[[@@^USPI )@@G@@ @@^UT @@^UT/K@@55/,0@H*@@@ M6@@@ T6@[3 UN[@@ T7/,0@H_@@@ T7@@@^UU@@@^KHPJ )@@G@@@[4 UNC/@@@[G@@^KH[@@^KH/K@@55C/@@@[[@@^U( @@^KI/,0@/O@@@ M6@@@@@@@@@ UDPK )@@G@@@@@ T6/K@@7=@[' UNC/@@@[G@@^KI[@@^KIG/@__//G@@7E/^@@7S/,0@H*@@@ M6@@@ T6PL )@@G@@@[" UN[@@ T7/,0@H_@@@ T7@@@^U*@@@^KI@[_ UNC/@@@[G@@ T6[@@@@@/K@@6./,0@E2PM )@@G@@@@@ UJ@@@ UK@@@ T8@]# UN/,0@E2@@@ UJ@@@ UK@@@ U[@]^ UN @@^U(/K@@7=C/@@@[PN )@@G@@(@@^U: @@@@GC/)@@[(@@^U% @@@@I)@@@@IC/)@@[(@@^U? @@@@I)@)@@H/=0@72C/@@@[PO )@@G@@[@@^U%C/@@@EG@@^KH[@@^KGN@0@77/K@@78@]H UNR]0 UO9!) UP*4@PUL/K@PUL/K@@UGPP )@@G@@AA0 UO9() UPC8FK@@[^@@7Q[^@@6_[^@@5"[^@@57[^@@50[^@@5\/K@@5?C@FK@]H@FK@[PQ )@@G@@R8VK@ [@@ UZC@@ UU[@[@@@ @@@@@ @@@@@C#:K@[N#0 UZ[#) UR/,0@H6@@@@@@@@@ URPR )@@G@@@[F UXH@@ UU/@@@8VC@@ UR[@@@@@/K@@8YG_)@@[8N0@8L/K@@9[C@@ U)G@@@@@G/@__"PS )@@G@@[@@ USC@@ U-H@@ US/C@@8*/@@@8*C@@ U-[@@ USC@@ USH@@@@@C#)@@@[@@@[J[#) URPT )@@G@@/,0@H*@@@@@@@@@ UR@[T UX[@@ UTH@@ U+/@@@9[C/@@@ H@@ UT/@@@9[C/@@@[G@@@@@PU )@@G@@[@@@@@/,0@H_@@@ UT@@@@@@@@@@@@@[Z UXG_)@@[8N0@8?N@0@9#/K@@9^@[< UXR]0 UYPV )@@G@@9\) UN#0 U&*4@PUV/K@PUV/K@@UGAA0 UY9:) U^#0 U&C8FK@@[^@@8,PW )@@G@@[^@@8NC@VK@][@K U-C@VK@#[@K U)C@VK@^[@K U+C8FK@ [^@@8/C8FK@A[^@@8.[^@@89PX )@@G@@[^@@88[^@@8HC8FK@B[^@@8([^@@8T[^@@8Z[^@@8%[^@@8I/K@@8BC8FK@@G/@__"[@@ U,PY )@@G@@R@K U!C4[@@@[@@ U4C/@@@[H@@@@@]@@ U5/,0@IR@@@@@@@@@ U$@@@ U6@@@ U7@[B U%PZ )@@G@@C/@@@[G@@ U5[@@ U5H@@@@@/G@@9/*@@@@G/K@@'1R@K U,O@K U6C@[@@@;)@PU7;C@@@YQA )@@G@@H@@ U4(@@@@G/K@@'KC/@@@AG@@ U7[@@ U7G/@__)/C@@'F*@@@@G/K@@95 @@ U7C/@@@[QB )@@G@@G@@ U6[@@ U6/K@@95C/@@@[:@@@@@/K@@'6C@@ U5[@@ U8C/)__.G@)@@@C_)@@][@)@[^QC )@@G@@[#) U9C/@@@[G@@ U8[@@ U8H@@@@@/G@@'-*@@@@G/K@@'1/,0@H*@@@@@@@@@ U9@[W U%QD )@@G@@[@@ U\/,0@H*@@@@@@@@@ U8@[W U%H@@ U\*@@@@G/K@@'0G_)@@[8L@@'T/K@@'6/K@@'^QE )@@G@@ @@@@@C8)@@BN@0@'5/K@@';@[< U%C@@ U5[@@@@@N@0@''/K@@'_@[> U%!^) U*/K@@UNQF )@@G@@H8)@@[[^) U*RA0 U:C#) U0R@K U1N[@ U2/K@PU*C8@@@CAA0 U:[^@ U*[#) U0A@K U1QG )@@G@@^[@ U2C8FK@@[^@@'$C8FK@[[^@@90[^@@9!C8FK@][^@@98[^@@'XC8FK@#[@@ U![^@@'+QH )@@G@@C8FK@^[^@@'Q[^@@'LC8FK@ [^@@'7[^@@'1/K@@9&C8FK@@G/@__"[@@ U_C/@@@[H@@@@@QI )@@G@@]@@ V#/,0@IR@@@@@@@@@ U'@@@ V^@@@ V @[C U.C/@@@[G@@ V#[@@ V#R@K U_O@K V^QJ )@@G@@H@@@@@/G@@;1*@@@@G/K@@/CC@[@@@;)@PV ;C@@@YH@@ V]*@@@@G/K@@/#C/@@@AG@@ V QK )@@G@@[@@ V G/@__)/C@@;"*@@@@G/K@@;* @@ V C/@@@[G@@ V^[@@ V^/K@@;*C@@ V#[@@@@@QL )@@G@@N@0@/B/K@@/L@[P U. @@@@@C8)@@ N@0@/G/K@@/H@[R U.!^) U;/K@@UNH8)@@[[^) U;QM )@@G@@R]0 U"R@K V@/K@PU;C8@@@AAA0 U"[^@ U;A@K V@C8FK@[[^@@;<[^@@;)C8FK@][^@@;!QN )@@G@@C8FK@#[^@@/^[^@@/C/K@@;W @@ EG/,0@"^@@@^U!@@@ =Y/K@@.C@[I =5/,0@_F@@@ D:QO )@@G@@@@@ =Y/K@@.C/K@@.V@[J =5C/@@@[G@@ EG[@@ EGG/@_6$/G@@/3/^@@.OR@K EGD@@ D,QP )@@G@@/G@@/7/^@@.^C@@ D:[@[^U2C@) D?[@-^=EC[@ D\[[[^!+C[) D0[[-^6'C,@ D,[E[ @MQQ )@@G@@C5) D2[ - @M/K@@/$C@@ EGG/@__"[@@ EG/K@@/$/,0@E0@@@ =\@@@ =-@[Y =5/,0@E8QR )@@G@@@@@ =0@@@ =1@@@ =Y@@@ =2@[Z =5'^@@U/@[) =5/,0@E2@@@ =0@@@ =\@@@ =*@[- =5QS )@@G@@'^@@U/@[+ =5C@@ EGG/@__"*@@^UQ/K@@.$R/K@@[[@@@[JA@K =ZC@@ =Z[@[^K.O/K@@[QT )@@G@@8N0@.-/K@@.3D@@ EG[@@ =)/,0[@ @@@ =)@@@^K"@@@ VA@@@^U3@@@^=F@@@^!<@@@^6;QU )@@G@@@@@ @N@[, =5N@0@.5/K@@.6@[0 =5R]0 =69!) =79,@ =9R@K =;N#0 =/*4@P=3/K@P=3QV )@@G@@/K@@UGAA0 =69() =79%@ =9A@K =;^#0 =//K@@/-0@@ >@'=@@@A9?FK@@9*@ =.C8@ >JQW )@@G@@&;@@#)[@@ >[&;@ *\[@@ >#C8@@@C[C@ >^C8@ =.CCW@@^[^W@@BC8K@@W[CW@@^C^W@@AQX )@@G@@[^W@@^[^W@@DC8K@@[[CW@@D[CW@@CC8K@@K[0W@@# @G@@ '=@@@#*4G@@#/K@@_CC@0 >JQY )@@G@@:@0 ?J/K@@"&C@@ >C'=@@@I/K@@_CC8K@@ [@W@@ '=@@@#*4G@@#/K@@_CC^W@@AC^X@@VQZ )@@G@@[^W@@EC^W@@B[CW@@^ ^G@@BC8K@@A[@W@@ '=@@@#C4W@@#(4G@@#/K@@"9%8K@@ /K@@_CRA )@@G@@C^W@@#[CW@@E(@@@@H/K@@_CC@W@@ GCW@@B[@W@@ C@W@@A;@K@@M[@W@@A[^W@@^'=@@@[RB )@@G@@;@K@@M[@W@@A/KF@@^C4@ >@[@FK@[/KFK@]C^F@@@[^@ > C8@ =.C^W@@B:^W@@E/KFK@#RC )@@G@@C@W@@CC@?@@DC^/@@AGC/@@EH80@@E?8"@@@/K@@_ZN8K@@EM#Y)@@[@?@@DC^W@@BG8K@@[RD )@@G@@[^W@@B/KF@@ C^/@@AGC/@@EH8"@@@N8Z@@@C80@@EH@0@[[*@@@[[M#Y)@@0@G@@#'=@@@ARE )@@G@@C4?@@#(4G@@#/K@@_,%8)@@ /K@[@]C@?@@A[^?@@^;@)@@M[@?@@A[^?@@DC@?@@ GC?@@BRF )@@G@@[@?@@ C^?@@#[C?@@E:C?@@^'=@@@[N8Z@@@C@?@@DM#Y)@@[@?@@DC^W@@BG8K@@[[^W@@BRG )@@G@@/KF@@ C4@ >@[@FK@[/KFK@]A]) ?./,)[@B/,)[^6O'0@@^AA0[^5A@K ?5A@) ?6A@0 ?7RH )@@G@@A[@ ?8A[K ?9A[) ?'A[0 ?;A]K ?/C@@[@ [@@ ?*/@@[@V/C@[@VC8@@@][@@ ?-D@@ ?*RI )@@G@@[@@ ?*/,)[@&D8@SU)G@@ ?*/@@[@>/G@[@>C8@@@[[@@ ?-D8@SU)G@@ ?*[@@ ?*/,)[@&RJ )@@G@@ @@ ?-/,0@WM@@@[@ @[&[@BH8@@@[[@@ ?%/,0@WM@@@[@ @[&[@BH8@@@[[@@ ?(C8@@@[RK )@@G@@G@@ ?([@@@@[ @@ ?:D8@@@[G@@ ?*G@@@@[[@@ ??C@@ ??G8@@@[[^@[[@C8@@@[G@@ ?:RL )@@G@@[@@ ?:[@[@@@O8K@@[$8K@@@/,)[@;P8K@@[D8@@@[G^@[^5[@@@@[R^)[^.C@[@@@[@@ ?:RM )@@G@@CC@ ?:/^@[[ND8@@@[G@@ ?:[@] ?LO8K@@[O8)@@[$8)@@J/,)[[BP8)@@[D8@@@[G@@@@]RN )@@G@@[@@ ?KC8@@@[G@@@@[[^@[^5R8K@@[R 0[^.A@R ?!R@) ?*A@) ?\C@@ ?%[@@ ?2C@@ ?(RO )@@G@@[@@ ?1C8@@@[[@@ ?0/,)[]\C@@ ?1G@@@@[[@@@@#C@@ ?2G@@@@A[@@@@^/,0[#%C@@ ?)RP )@@G@@H8@@@[/^@[]ZR 0 ?4/,$ ?"/,)[]ZC@@ ?1G@@@@][@@@@#C@@ ?2G@@@@A[@@@@^/,0[#%RQ )@@G@@C@@ ?)H8@@@[/^@[]VC@@ ?1G@@@@[[@@@@#C@@ ?1G@@@@][@@@@^/,0[#%C@@ ?)H8@@@[RR )@@G@@/^@[]KC@@@@ G@@ ?2[@@@@#C@@@@]G@@ ?1[@@@@^C@^@@@[@#@@@P8)@@[/,)[]7C@@@@ RS )@@G@@G@@ ?2[@@@@#C@@@@[G@@ ?1[@@@@^C@^@@@[@#@@@O8K@@[/,)[]7/,)[]YC8@@@[[@@ ?4RT )@@G@@/,)[]K/,)[]7C8@@@[[@@ ?3C@@ ?1G@@@@][@@@@#C@@ ?2G@@@@A[@@@@^/,0[#%C@@ ?)RU )@@G@@H8@@@[/@@[]AD@@ ?0[@@ ?0R 0 ?0A[R ?,D@@ ?0G8@@@[[@@ ?:R 0 ?:R[R ?! @@ ?3RV )@@G@@ @@ ?4/,)[[/A[K@@AO[K ?0C@@@@]H@@@@[/@@[]./G@[]_R 0 ?3/,$ !@C@@ ?%H@@ ?2RW )@@G@@/^@[[TC@@@@ H@@ ?*/@@[#A/C@[^&C@@ ?([@@ ?2C@@ ?%[@@ ?1R8K@@[R 0[^.A@R ?!RX )@@G@@R@) ?*A@) ?\/,)[[+/,)[[T/,)[#=O'0@@]AA0[#A@K ?>A@) ?&A[K ?$ @@ ?)R K[^.C@@ ?KSA )@@G@@G8@@@[[^@[^]R@> ?LC@#@@@G@@@@][@@@@[C@^@@@G@@@@][@@@@]C@[@@@[@@ ?R@) ?&R[K ?$/,K@@@C8@@@FC@K[^5;@K@@Q;G@@@^;@K@@E[@K[^5R@K ?5SF )@@G@@R@) ?6R@0 ?7R[@ ?8R[K ?9R[) ?'R[0 ?;R]K ?/R]) ?./,K@@@C@F@@@[^@[@MC@F@@[SG )@@G@@[^@[@$C@F@@][^@[@?/,)[@C@@@@@@)^@@@@R#F@@@'=@@[G/KF@@]ELT ASM COB SH )@@G@@FOR ALG MAP NEL SEC PDP HDG SPL DCT MER BRK PCH SI )@@G@@SAV SEQ PUN DOC TPF$. @@@@@@ABORT MARVEL. FILE NOT ASSIGNED.& SJ )@@G@@______@@@@@@@@@@@[@@@@@C@@@@@]@@@@@#_____"@@F@@[@@@@@@FN @[6@@#@@@@@@SK )@@G@@R\@ Q@R3@ Q@R7@ Q@R$@ P_R:@ P_R\@ P_R3@ P_R7@ P_@@8 N-@@@@@@ @@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@INFOR 8@X N)@@@@@@@@@@@@@@@@@@@@^ O,@@[@@@SM )@@G@@ / () @@[@@A@@@@@@@FREE,A DUMMY$TAG$1$@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ERROR ASSIGNING FILE FOR & ______STATUSSP )@@G@@=& ______ @@@@@@@@@@@[@@@@@B@ASG,A . @@@@@ _____"@@@@@U@@@@@GSQ )@@G@@@@@@@*@@@@@0@@@@@I@@F@@@@@@@@@CHKASG@[X@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@[@@@@@B@@F@@^@@@@@@IQUAL @[U@@#@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@USE @@@@@@@@@@@@, @@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@M$A$R$ ______= ______@@@@@=______@@@@@,______= SV )@@G@@______@@@@@,______NO NEW PROCESSOR SPECIFIED.& ______TOO MANY OPTIONS OSW )@@G@@F MARVEL CARD, MAX IS 6&______OPTION NOT A-Z. OPTION(OCTAL)=& ______SX )@@G@@IGNORED.& ______= ______ERR ON HDG CARD, EQUAL SIGN NOT VALID& SY )@@G@@______ERR ON HDG CARD, ONLY 2 OPTION ALLOWED& ______ ______ . SZ )@@G@@______MARVEL REQUEST CARD IN ERROR, IGNORED& ______UNDEFINED FILE(M$ATA )@@G@@$R$). LOOK FOR ARRAY OVERFLOW.& ______M$A$R$ FILE IS FULL.& ______TB )@@G@@I/O ERROR ON M$A$R$ FILE.& ______@@@@@@@@@@#)@@@@@[@@@@@I @@@@[KTC )@@G@@@@@@@ASAVE SAV _____"@@@@@)@@@@@#@@@@@>@USE S$$$EQ,@@@@@H@@F@@[@@@@@@TD )@@G@@IN @#;@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MORE THAN 12 OPTIOTE )@@G@@NS ON DCT CARD, CARD IGNORED& ______ @@@@[K, @@@@@[_____"@@F@@#TF )@@G@@@@@@@@DCT @[<@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ______TG )@@G@@B$R$K$ ______B$R$K$ ______MORE THAN 12 CHAR ON BRK CARD FIELD TH )@@G@@2 OR 3& ______BRK CARD ALREADY SPECIFIED. 2ND BRK CARD IGNORED.& TI )@@G@@______SYTAX ERROR ON BRK CARD. TWO ASTERICS(*).&______CANNOT ASSIGN BRK TJ )@@G@@FILE NAME=& ______BRK CARD IGNORED& ______NO FIELD 2 ON BRK CARD, CARD ITK )@@G@@GNORED& ______@@@@@@@@@@@[@@@@@^ . @@@@[K@@@@@B_____"@@@@@YTL )@@G@@@@F@@]@@@@@@BRK1 @]W@@#@@@@@@@@@@@@@@@@@@@@@@@[@@@@@I@@@@[C@@@@[D@@@@@CTM )@@G@@@@F@@]@@@@@@SEQ @[O@@#@@@@@@@@@@@@ERROR, MORE THAN 3 SEQUENCE CHARS ONTN )@@G@@ PUN CARD& ______SEQUENCE CHARS WILL BE IGNORED& ______@PCH, @@@@[KTO )@@G@@S R A N , @@@@@[_____"@@F@@]@@@@@@PUNX @]H@@#@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ @@F@@D@@@@@@GRAB @[<@@#@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@#;@@@@#;@@@SCAN @[>@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@A@#;@@@@#;@@@SCANBL@[R@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@FILE I/O ERRTT )@@G@@OR WHILE READING TOC& ______MORE THAN 600 ELEMENTS TO MARVEL& ______TU )@@G@@_____"@@@@@[@@@@@@@@@@@H@@F@@[@@@@@@LT @[0@@#@[A >D****** ERROR, NOT TV )@@G@@A PROGRAM FILE @@@@@@@@@@@@@@@@@@**PF**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/,)[[2TY )@@G@@/,)[]K/,)[[>/,)[]-/,)[^E/,)[^L/,)[^U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ@C@)3%@WQ@@@___@]R^@@UA )@@G@@@@E^FP@@E^K9@@E^UQ@CE EH)C"^]R) U^FZ)DN^L#)\!^U))X( MR@@@___@@@___@@@___UB )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___UC )@@G@@@@@@@@9*@@CRB@KCI;*@@@]1@G^@@/K@@CSRB@KCIR;K@CS'=@@[DUE )@@G@@RB@@CIP;@@@]RBW@@@R#)@C&A#?@@@RFG@@]ABW@@@O;@@@[AB@@CHR#)@C>/K@@CG@@@@@@UF )@@G@@@@@@@@@@@@@@'^@@C@/,0@R0@@@@@@/,0@EF@@@ D5@@@ E6@[&@@@/,0@E2@@@ E7@@@ E8UG )@@G@@@@@ EN@[$@@@/,0@G$@@@ EQ@@@ E9@@@ EM@[*@@@D@@ EM/G@@C'/^@@E]/,0^]N@@@ E7UH )@@G@@@[:@@@[@@ EFC@@ EF+@@ EH/GK@D^/@K@D^C/@@@#[@@^UQC@@ EF+@@ EI/GK@DE/@K@DEUI )@@G@@C/@@@[[@@^URC@@ EF+@@ EJ/GK@DK/@K@DKC/@@@[[@@^]PC@@ EF+@@ EK/GK@DQ/@K@DQUJ )@@G@@C/@@@[[@@^]QC@@ EF+@@ EL/GK@DW/@K@DWC/@@@[[@@^FP/,0^@$@[6@@@/,0^@!@[7@@@UK )@@G@@/,0^@6@[8@@@/,0^@G@[9@@@/,0@G$@@@ EU@@@ E9@@@ EM@['@@@/,0@G$@@@ EY@@@ E9UL )@@G@@@@@ EM@[;@@@/,0@G$@@@ E+@@@ E9@@@ EM@[/@@@D@@^J%/C@@D;/@@@D;/,0@G$@@@ E&UM )@@G@@@@@ E9@@@ EM@["@@@/,0@E2@@@ E7@@@ E8@@@ E%@[_@@@/,0@V1@@@ E'/,0@E2@@@ E7UN )@@G@@@@@ E8@@@ E!@]]@@@'^@@U/@]#@@@/,0@V1@@@ E;C@VK@[[?K E/C^:@@@[^) E/A]0 FCUO )@@G@@C8@ E//,0@L@/,0@LRR]0 FC/KF@@#C@FK@@[@@ FG'^@ FI/KF@@]R;@@@@A#@ FGR#@ F?UP )@@G@@A#@ FO'^@ FIR#@ F!A#@ FO/KF@@[C4FK@@[0@ E//KF@@]C0@ E.S8@@@AG4K E.G8K@@[UQ )@@G@@[@VK@@/KF@@]C[@ FH/K@@E,C[FK@@O'0@@[R;0@@#/K@@F[C[@ FH/K@@E4C[FK@@O'0@@[UR )@@G@@C80@@]/K@@F[C[@ FH/K@@E'C[FK@@O'0@@[C80@@[/K@@F[C[@ FH/K@@F@C[FK@@O'0@@[US )@@G@@C80@@@[[@ FG[@0 FDC@VK@@/CK@FIC^) E/[^)@FEC?0 E/H80@@[C@@ FQ[@J@@@8#0@FEUT )@@G@@ W@ E./K@@FS/@K@FS%8K@@[/K@@FN W@ E./K@@FSC8@@@@H8K@@[W8@@@A[0@ E.[4K E.UU )@@G@@A]0 FCC8@ E//,0@LHR]0 FCC@@ FD%8@@@]/K@@F>C^F@@[/,0@M-/,0@LR'^@ FIR]0 FCUV )@@G@@/KF@@#A[@ FAA[K FBR F@@[&9@@@[C@FK@][@@ FE(CF@@#/K@@F0R9K@@@ @@ FF/K@@F6UW )@@G@@R[VK@#P9K@@[C@FK@^[@@ FFO'0@@]A]0 FC(@@ FF/K@@F_C@K FF/GK@F.C8@ FQ/,0@MLUX )@@G@@/K@@F_D@@ FF/,0@L2C@K FER#@ FD/@@@GB?8@@@]/K@@GER;^)@@/,0@ML/K@@GLR#^)@@UY )@@G@@/,0@NH/K@@GL?8K@@H/K@@GJC8@@@ /,0@L(8#K@GEC@^)@@/,0@N 8[K@F6/,0@LRR[@ FAUZ )@@G@@R[K FB'^@ FIR]0 FC/KF@@^R#FK@@R#VK@[;@K@@A;?@@@AR#V@@];*K@@M;?@@@M'=@@@IVA )@@G@@/KF@@^R#FK@@R#V@@[;*K@@M;?@@@M'=@@[S/KF@@#C@FK@[C@V@@@;*K@@M;?@@@M'=@@@JVB )@@G@@[@FK@]/KF@@^R#FK@^/G@@G7R#F@@@&#FK@[R#V@@]&#VK@#N@VK@^M#W)@@/KF@@AR#@ F8VC )@@G@@'=@@@I'=@@@)R#FK@[P;@@@[S@@@H$O#F@@@;CK@@-!8K@@^P;K@@[R#:K@#P;)@@[S@)@H$VD )@@G@@O#:@@];C0@@-!80@@^P;0@@[&;@@@[&;K@@[&;)@@[&;0@@[C[FK@^H9@@@[N@K@@K')H)HNVE )@@G@@')J)HX8KK@HJ/KF@@AC5G@@@C1G@@@C!G@@@C(G@@@C>G@@@'^@@HT/S@@@@C-G)@@R#K F9VF )@@G@@/K@KHT[5I@@@[1I@@@[!I@@@[(I@@@[>I@@@'^@@H[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])LZ/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@WC )@@G@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@L?N?L@@@Q^1@@@C8@@N0M@/)@@WD )@@G@@Q8)@@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@MBC80@@F;^@@[]WE )@@G@@+8K@@_%8)@@ :8)@@@/K@@MH')])LZ8#0@MB/KF@@@&"0__"/K@@MM&'0@@@C8.@@@;G@@@MWF )@@G@@;CK@@M&;@@@[&;K@@[8#0@MT/KF@@@')G)M!0@@@@F%8)@@@')])LZ/K@@MRC?[@@[C^L@@[WG )@@G@@/K@@M<;G@@@M;CK@@M&;@@@[&;K@@[')G)M!:0-@@@/K@@M%')])LZ/K@@M>[?[@@[[^L@@[WH )@@G@@/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@M3C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@WI )@@G@@;G@@@#/@@@M_G80@@[;G@@@#/^@@M'C8)@@0')])LZC8)@@@;=K@@#G8)@@0')])LZ8#0@M_WJ )@@G@@/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@M_&"0__"/K@@NIC8K@@@&'0@@@N8X@@@C80@@@WK )@@G@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@NQ/^@@NK/C@@NX0@@@@F/K@@NX;?)@@AG80@@-WL )@@G@@8KK@NXC@K@@I0@@@@F1@@@@G/K@@N=R;)@@-')])LZ8KK@N=C8)@@ 0@@@@FC8)@@0/K@@N(WM )@@G@@')])LZ8KK@N*C@)@@J')])LZ;GK@@A/^)@N:/KF@@@@@[@@@ 9?FK@@9*@ GN9*@ GYWN )@@G@@ @@ G\C4FK@[?8@@@A/K@@O][@K G\9?FK@[9*@ G)9?FK@]9*@ G=C8@ GY'=@@[C[@K GSWO )@@G@@[@K G*/K@@O# @@ GSC@F@@#[C@ GTC@F@@^[^@ GTC@FK@ ;G@@@=W8@@@W[C@ GUT8@@@WWP )@@G@@[C@ GRA]0 G%C8@ GN/,0@P3C8@ G![^@ GVC@@ G,[@@ GXC8@ GN/,0@P@/K@@OTR]0 G%WQ )@@G@@/KF@@DR]0 G%G9K@[@[[VK@A/KFK@BC@F@@@[^@ GVP;@@@[AB@@O+C@FK@[R#W@@@:@K G1WR )@@G@@8#@@O+?8@@@[R;@@@[;*@@@S[@@ GXA]0 G:C8@ GN/,0@P@/K@@OTR]0 G:/KF@@#A]0 G:WS )@@G@@C8@ GN/,0@QK/K@@OTC@@ G\/@@@O;C@@ GSH@@ G*[^@ G$C@K GSD8@ GY'=@@[^R]0 G:WT )@@G@@/KF@@[C@FK@@[4@ G$/KF@@]R#W@@DR#?@@EA#!)@@;K)@@S/C)@PAR3?@@EAB?@@BR#?@@CWU )@@G@@A#W@@DC G@@DG G@@BC W@@AGDW@@^H[@@@L/D@@PNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BWV )@@G@@H[K@@KN@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@AWW )@@G@@[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D(^G@@]/K@@PDC G@@]KDG@@BT9@@@W[DW@@BWX )@@G@@C[W@@ H W@@]GDG@@^ ^G@@][[W@@ [DG@@^/K@@PDRBW@@AABW@@DR#K@@G9??@@@RBG@@AWY )@@G@@ ^H@@]9*?@@@'=@@[GR7?@@AR#@@@H!8)@@S!8)@@)/K@@QDRF?@@B?8)@@^/K@@QD+/)__/WZ )@@G@@R#W@@ +8K@@#AB?@@]P#0@@IAF/@@BC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@XA )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@XB )@@G@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@Q+O;K@@[K8K@@#+/)__/R#)@@JT8)@@WAF?@@^O#W@@ XC )@@G@@'=@@@#A#W@@ C5W@@#/ V@@@/KF@@[@@@@@@@@@@@@A#@ KAR\@@Q!%8@@@E/K@@RYR7@@Q!XD )@@G@@:8@@@[/K@@R*'^@@V(AF@ KHR3@@Q!'^@@V(AF@ KJRB@@Q!'^@@V(A#@ KM @@@@G'=@@[[XE )@@G@@R#@ K]'=@@@I(^@@RB/K@@RR ^@@RQ(8@@R /K@@ROR;@@@@P;@@@[R#G@@@%@@ K#/K@@RMXF )@@G@@RA0@RB ^@@RBAA0@RJ/,0@@@/S@@@@/K@@RRR#@ K^'=@@@I ^@@RB/K@@RR/S@@RQ/S@@@@XG )@@G@@/S@@@@(^@@RS'^@@V3RB@@RS ^@@RS/KG@@@'=@@[@P;@@@^')G KCRB@@Q!O;@@@[AB@@R$XH )@@G@@R#@ KA*^@@R&/K@@@@/K@@@@RBK@Q,*@@@@H(?H@@]/K@@Q6(8@@@@/K@@Q6R#@@@H/K@KR?XI )@@G@@9(@ KU^@K KW^@) KX^@0 KY @@@@G'=@@[[L@@@@GW@@@@H/40@R'A]0 KZR#@ K '=@@[[XJ )@@G@@/KF@@['^@@VVR;F@@@L8@@@[RB!@@@?@) M@/K@@S P#) M@RB,@@@P;)@@[RB,@@@N@"@@@XK )@@G@@R#K@@GRF!@@@/^)@SHO;K@@[/K@@SD:@) M[/K@@SFP#K@@GABK@R./K@@SY'^@@VVC@@ M]XL )@@G@@/K@@SU'^@@VVC@@ M#/K@@SU'^@@VVC@@ M^'=@@@I/K@@R"/K@@R.'^@@VVR;V@@@OBKKSWXM )@@G@@A#K K+^@0 K7^@0 K'R#@ M '=@@@I(^@@T'/K@@S!RB@ K$'^@@V(A#@ K1R#@ MA'=@@@IXN )@@G@@/K@@S/R;;@@@N80@@]8K0@S1/K@@S/RFJK@@'^@@V(A#@ K1R#JK@@'^@@V(A#@ K2R#@ MBXO )@@G@@'=@@@IO;0@@[?@0 K+/K@@S\R#K K+RFH@@@N80@#C'^@@V(A#@ L@RBK K+9!@ K<0@H@@@XP )@@G@@/K@@TR(^H@@@/K@@T2RBH@@@RF/@@[?80@[@9!@ K>9(@ K.R#G@@@A#@ L]R#@ MC'=@@@IXQ )@@G@@R#@ L]A#@ K'RBK K+RBX@@@'^@@TVA#K K+/K@@S_9!@ K>9(@ K.R#@ MD/K@@T6/K@@@@XR )@@G@@RFH@@[?8@@[@/K@@T(R#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0KTVXS )@@G@@/K@@T88#@@T9*@ LVR#@ MI'=@@@I(^@ K+/K@@T3R#@ MJ'=@@@I'^@@U:XX )@@G@@R#@ L]A#@ K'N80@#C*@@ K-/K@@V[RBK K+/K@@TO/K@@@@RB@@U2/@@KU:AB@@U: ^@@U2XY )@@G@@'^@@V+/K@KU:/S@@@@'^@@VVRB@ MO(CG@@@P;@@@[OF@ MOR#K MKN@/@@@/\0@VH/K@@UZXZ )@@G@@/K@@U"N@0KU/'^@@VVR#K ML/K@@U'R]0 K$ @@ K-*CF@@@*4F@@@/K@@VER;V@@@RFF@@@YA )@@G@@A#K K+/K@@S_O'0@@[/K@@V#R#K MMA#K K'R#@ MN(^@@U2'=@@@I^@0 K+RF@ K+'^@@V(YB )@@G@@A#@ L@R#@ MERBK K+*@@@@HR#H@@@A#@ L]/KJ@@@/K@@@@A]0 K$9*@ K*9*) K%9(@ K?YC )@@G@@^@0 K,/K@@VV/K@@@@R]0 K$9?@ K*9?) K%9!@ K?N@0 K,/K@@V+/K@@@@;G@@@MR;)@@ YD )@@G@@Q;K@@A;@K@@#;?@@@A8#)@V?/K@@V(/S@@@@/S@@@@/S@@@@(^@@RS/K@@V8*^@@V3/K@@V_YE )@@G@@/S@@@@(^@@V3'=@@@D'=@@@6)8@@K@R#@@@H'=@@@5R#@ MPC8K@@[[@K MP/^@@WB*^@@RBYF )@@G@@/K@@WD*^@@RS/K@@WD @@@@G'=@@[[(@@@V2'^@@V+*^@@RS/K@@WI'=@@@)R#@ MQA#@@V2YG )@@G@@/K@@@@/KF@@[C@F@@@(@@^]J/KF@@]/KF@@[@@@@@@@WP@C@ MQ^]H@@@@^])O@@@@[^"@WQYH )@@G@@ !^ MR@@@@]I)O@@@@[JZ@WQ =X MR@@@@@]'^@@C@'^@@CI@&$@@]'^@@C@'^@@CI[CL@@]YI )@@G@@'^@@C@'^@@CI@4<@@['^@@C@'^@@CI@<0@@['^@@C@'^@@CI@.>@@]'^@@C@'^@@CI@1B@@[YJ )@@G@@'^@@C@'^@@CI@$'@@['^@@C@'^@@CI@9.@@]'^@@C@'^@@CI@6E@@]'^@@C@'^@@CI@Y?@@[YK )@@G@@'^@@C@'^@@CI@9F@@['^@@C@'^@@CI@\4@@['^@@C@'^@@CI@Y"@@['^@@C@'^@@CI@> @@[YL )@@G@@'^@@C@'^@@CI@."@@['^@@C@'^@@CI[@F@@]'^@@C@'^@@CI@%V@@]'^@@C@'^@@CI@Y1@@[YM )@@G@@'^@@C@'^@@CI@\0@@]'^@@C@'^@@CI@7=@@]'^@@C@'^@@CI[@;@@]'^@@C@'^@@CI[GO@@]YN )@@G@@'^@@C@'^@@CI[ 0@@]'^@@C@'^@@CI@7.@@['^@@C@'^@@CI[CN@@]'^@@C@'^@@CI[C"@@]YO )@@G@@'^@@C@'^@@CI[D-@@]'^@@C@'^@@CI@\9@@['^@@C@'^@@CI@>O@@['^@@C@'^@@CI[A,@@]YP )@@G@@'^@@C@'^@@CI@;^@@['^@@C@'^@@CI@/O@@['^@@C@'^@@CI[G^@@]'^@@C@'^@@CI[GX@@]YQ )@@G@@'^@@C@'^@@CI[JU@@]'^@@C@'^@@CI[I!@@]'^@@C@'^@@CI@&I@@['^@@C@'^@@CI@5>@@[YR )@@G@@'^@@C@'^@@CI[@ @@['^@@C@'^@@CI@_F@@['^@@C@'^@@CI@"^@@['^@@C@'^@@CI@;4@@]YS )@@G@@'^@@C@'^@@CI[[*@@]@@@@@@/K@@@@@@@@@@@@@@@@/K@@@@@@@@@@'=@@@3/KF@@]@@@@@@YT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ YU )@@G@@. , / @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@^@@@@K@@@@@C@@@@@]@YW )@@G@@@@@@@@MARVEL 01D& ______@ASG,T M$A$R$.,F2 ______@FREE,A SPEC1. . ______YX )@@G@@@FREE,A SPEC2. . ______@FREE,A SPEC3. . ______@FREE,A B$R$K$. . ______YY )@@G@@END MARVEL& ______ERROR IN ASG OF M$A$R$ FILE. ABORT MARVEL.& ______YZ )@@G@@@@@@@Q@@@@@[_____"@@@@@# @&Q@@@@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_____"ZB )@@G@@/K@@@@C@@ FG/G@ FIC@K E/;*K@@G;?@@@S'=@@@I/K@ FI ZC )@@G@@ ZD )@@G@@ '=@@[S'=@@@I ILLEGAL ARGUMENT IN CALZE )@@G@@LING SEQUENCE FOR SUBROUTINE MOVER @]E F,@@[@@@E%%%%:@ @#;@@@ZF )@@G@@@#;@@@GETWD @[?@@@@@@@@@@#;@@[@#;@@[CDEL @[.@@@@@@@@@@@@@@@@@@@@@@@@@@@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@FILENAME ELEMENT ZI )@@G@@@@@@@@@@[@@@VERSION @ @@@[[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ *SDFF*ZJ )@@G@@*[@@@@@@@@@@@ @@@@ @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@V@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@S@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G H\ K@@@@@@Z@]D KEPLTST$@]B KNCO@@Q!AB )@@G@@@@@@@@#C@ K)/S@@@@#^@ K)ERROR MODE: TYPE= , CODE= , ERR.ADDRESS= AC )@@G@@ ERROR - PLOT TERMINATION CODE NOT INTACT@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SEQUENCE N LINE N@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ARGUMENT ERROR TERMINATIAF )@@G@@ON IN ROUTINE CALLED AT SEQUENCE NUMBER OF AG )@@G@@ ROGRAMA COMPUTED GO TO THAT WAS OUT OF RANGE WAS DETECTED AT SEQUEAH )@@G@@NCE NUMBER OF MAIN PROGRAM. ILLEGAL OP AT SPECIFIED RETURN FROM AI )@@G@@ RETURN VARIABLE SPECIFIED IN OUT OF RANGE NEAJ )@@G@@GATIVEFORTRAN V ERROR TERMINATION: ARGUMENT UNNORMALIZED OR OUTSIDE ALLAK )@@G@@OWABLE RANGE CAUSING ARGUMENT OUTSIDE ALLOWABLE RANGE CAUSING OVERFLAL )@@G@@OW CAUSED @@@K@@@@@/K@@]E L?@]B L6@]# L.@]B K3@[# K\@[^ K\@]D K'@]B K'AM )@@G@@MAIN P@[E K'@]H L^@]B LO@]C LV@[D K' I/O RETN 0RETN K@] L$@@@@@@@@@@@@AN )@@G@@/S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@MAIN @@G@@^@@@@^]ONCE-ONLY @@I@@^@@@@]IGEN-CARDS @@K@@^@@@@@]AP )@@G@@@@@#@ @@@@^]@@@F@ @@@@]I@@@ @ @@@@@]/@)@^S/C)@^SD@)@@] @@@@W[@@@@WG@@@@WAQ )@@G@@C/@@@[@]Q@@V@@@@@WAV@@@FA )#@@@]AOPF )#@@@]AP AR )@@G@@@AAD4LASMBL F8] RBB )#@@@]BLANK$COMMON@[^[D&BPC AS )@@G@@K!C]UGBREAK K!:]UGBRK )#@@@]BRK1 K,T]UGBUF AT )@@G@@)#@@@]B1 )#@@@]CHAR @AAD9BN )@@G@@@@@@@XMVCHAR PUTC IGC MOVER @@@@[&K@@[@^@@$@C@@@@@["BO )@@G@@@@@[@^@[=@C$@@@@["C@@#@^@@@@BO@@@@["C@@ @^@@@@BR@@@@["C@@B@^@@@@BX@@@@["BP )@@G@@C@@D@^@@@@B)@@@@["C@@F@^@@@@A6@@@@]N@@@[@^@]H@EF@@@@],@@@[@^@@D@GS@@@@]7BQ )@@G@@@@@[@^@@A@G-@@@@@0@@@[@^@@B@G$@@@@]^@@@[@^@@G@G,@@@@]B@@@[@^@@,@G'@@@@@DBR )@@G@@@@@[@^@@8@H*@@@@[U@@@[@^@])@I)@@@@[UC@@ @^@@@@B(@@@@@/K@@[@^@]1@L@@@@@#6BS )@@G@@@@@[@^@[J@N1@@@@#PK@@[@^@[!@P@@@@@#JK@@[@^@ >@Q!@@@@[8@@@[@^@@^@WM@@C@@MBT )@@G@@@@@[@^@ET@WQ@@C@@MC@@#@^@@@@BU@@C@@MC@@ @^@@@@BO@@C@@MC@@B@^@@@@BF@@C@@MBU )@@G@@C@@D@^@@@@C:@@C@@MC@@F@^@@@@B?@@C@@MC@@H@^@@@@C+@@C@@MC@@J@^@@@@B&@@C@@MBV )@@G@@C@@L@^@@@@B)@@C@@MC@@N@^@@@@A!@@C@@MC@@P@^@@@@BL@@C@@MC@@R@^@@@@CW@@C@]HBW )@@G@@@@@[@^@^F@&\@@C@]HC@@#@^@@@@BU@@C@]HC@@ @^@@@@C>@@C@]HC@@B@^@@@@BX@@C@]WBX )@@G@@@@@[@^@^.@%'@@C@]WC@@#@^@@@@BU@@C@]WC@@ @^@@@@BO@@C@]WC@@B@^@@@@A_@@C@]WBY )@@G@@C@@D@^@@@@A/@@C@]WC@@F@^@@@@C:@@C@]WC@@H@^@@@@BX@@C@]WC@@J@^@@@@A9@@C@[CBZ )@@G@@@@@[@^@AQ@\7@@C@[CC@@#@^@@@@BU@@C@[CC@@ @^@@@@BO@@C@[CC@@B@^@@@@B @@C@[CCA )@@G@@C@@D@^@@@@A_@@C@[CC@@F@^@@@@A/@@C@[CC@@H@^@@@@C*@@C@[CC@@J@^@@@@BX@@C@[CCB )@@G@@C@@L@^@@@@A9@@C@]*@@@[@^@[V@6H@@C@]*C@@#@^@@@@BU@@C@]*C@@ @^@@@@BO@@C@]*CC )@@G@@C@@B@^@@@@CZ@@C@@_@@@[@^@]S@7*@@C@@_C@@#@^@@@@BU@@C@@_C@@ @^@@@@BO@@C@@_CD )@@G@@C@@B@^@@@@A_@@C@@_C@@D@^@@@@A/@@C@@_C@@F@^@@@@C*@@C@@_C@@H@^@@@@B)@@C@#3CE )@@G@@@@@[@^@[8@'@@@C@#3C@@#@^@@@@BR@@C@#3C@@ @^@@@@C>@@C@#3C@@B@^@@@@B&@@C@@%CF )@@G@@@@@[@^@['@;8@@C@@%C@@#@^@@@@A3@@C@][@@@[@^@]Y@.2@@C@][C@@#@^@@@@BU@@C@][CG )@@G@@C@@ @^@@@@BO@@C@][C@@B@^@@@@BF@@C@][C@@D@^@@@@BX@@C@][C@@F@^@@@@C*@@C@]1CH )@@G@@@@@[@^@@\[@K@@C@]1C@@#@^@@@@BU@@C@]1C@@ @^@@@@BO@@C@#9@@@[@^@@![@_@@C@#9CI )@@G@@C@@#@^@@@@BU@@C@#9C@@ @^@@@@BO@@C@]4@@@[@^@^E[[?@@C@]4C@@#@^@@@@BU@@C@]4CJ )@@G@@C@@ @^@@@@BO@@C@]4C@@B@^@@@@C*@@C@]4C@@D@^@@@@BL@@C@##@@@[@^@@'[ 6@@C@##CK )@@G@@C@@#@^@@@@A0@@C@##C@@ @^@@@@B&@@C@@P@@@[@^@[<[A0@@C@@PC@@#@^@@@@BC@@C@@PCL )@@G@@C@@ @^@@@@A3@@C@].@@@[@^@[N[CN@@C@#G@@@[@^@]7[D&@@C@#GC@@ @^@@@@B(@@C@#MCM )@@G@@K@@[@^@##[GX@@^@[L@@@[@^@]S@WQ@@^@[LC@@#@^@@@@BO@@^@[LC@@ @^@@@@BR@@^@[?CN )@@G@@@@@[@^@#,@Y,@@^@@$@@@[@^@[X@+W@@^@@$C@@#@^@@@@G%@@^@[2@@@[@^@[V@<9@@^@[2CO )@@G@@C@@#@^@@@@A3@@^@[\K@@[@^@^@@>O@@^@[(@@@[@^@A>@(O@@^@[(C@@#@^@@@@BU@@^@[(CP )@@G@@C@@ @^@@@@G!@@^@[(C@@B@^@@@@A_@@^@[(C@@D@^@@@@A/@@^@[(C@@F@^@@@@A6@@^@[(CQ )@@G@@C@@H@^@@@@A0@@^@[(C@@J@^@@@@BO@@^@#@@@@[@^@@A@\9@@^@@6@@@[@^@[P@\_@@^@@6CR )@@G@@C@@#@^@@@@BU@@^@@6C@@ @^@@@@B @@^@@V@@@[@^@#R@1O@@^@@VC@@#@^@@@@BF@@^@@VCS )@@G@@C@@ @^@@@@BC@@^@#S@@@[@^@[[@4:@@^@#SC@@#@^@@@@G!@@^@#SC@@ @^@@@@BU@@^@]'CT )@@G@@@@@[@^@]V@5?@@^@]'C@@#@^@@@@BU@@^@]'C@@ @^@@@@BO@@^@]'C@@B@^@@@@B<@@^@[XCU )@@G@@@@@[@^@[Z@8B@@^@#A@@@[@^@[6@9&@@^@#AC@@ @^@@@@B(@@^@#D@@@[@^@[ @;W@@^@#DCV )@@G@@C@@ @^@@@@B(@@^@[;@@@[@^@[<@/-@@^@[;C@@#@^@@@@B?@@^@[;C@@ @^@@@@B<@@^@[;CW )@@G@@C@@B@^@@@@BX@@^@#%@@@[@^@][@"^@@^@#Y@@@[@^@^8[@ @@^@#Y@@@#@^@@][^.@@@@[OCX )@@G@@)@@]@ @@A^]H@@@@]Q)@@@@ @@]^]N@@@@#!=@@@@ @@]^]P@@@@@-=@@@@ @B@^]R@@@@@3CY )@@G@@=@@@@ @["^DR@@@@#==@@@@ @@J^FP@@@@@A=@@@@ @]>^F=@@@@[ =@@@@ @@+^ID@@@@]TCZ )@@G@@=@@@@ @@X^I:@@@@[5=@@@@ @@[^JC@@@@@9=@@@@ @@L^JD@@@@@S=@@@@ @@I^JU@@@@[RDA )@@G@@=@@@@ @@A^J*@@@@#V=@@@@ @@Y^J,@@@@]>=@@@@ @@M^KG@@@@@Y=@@@@ @@S^KY@@@@@GDB )@@G@@=@@@@ @@#^K6@@@@@@=@@@@ @@ ^K9@@@@#0=@@@@ @DS^K"@@@@@#=@@@@ @@]^UQ@@@@]+DC )@@G@@=@@@@ @@P^US@@@@#-=@@@@ @@A^U!@@@@@J=@@@@ @@@^U3@@@@#$=@@@@ @\U^U3@@@@["DD )@@G@@)@@@@ @@\ EH@@@@["*@@]@ @@@@B(@@@@["*@@^@ @@@@BU@@@@["*@@A@ @@@@B?@@@@["DE )@@G@@*@@C@ @@@@B&@@@@["*@@E@ @@@@A!@@@@["*@@G@ @@@@BF@@@@]N)@@@@ @@2 E/@@@@]^DF )@@G@@)@@@@ @@F F,@@@@]B)@@@@ @@[ F9@@@@@D)@@@@ @@] F'@@@@[U)@@@@ @@N F/@@@@[UDG )@@G@@)@@]@ @@^ GJ@@@@#6)@@@@ @@Z GN@@@@#J0@@]@ @ > G2@@C@]Z=@@@@ @@X MR@@C@[)DH )@@G@@=@@@@ @@I M4@@C@@!=@@@@ @@- N]@@C@]K=@@@@ @@^ N<@@C@]:=@@@@ @@B N$@@C@]EDI )@@G@@=@@@@ @@A N,@@C@@M)@@@@ @[G N4@@C@@M*@@]@ @@@@B(@@C@@M*@@^@ @@@@BR@@C@@MDJ )@@G@@*@@A@ @@@@A_@@C@@M*@@C@ @@@@CZ@@C@@M*@@E@ @@@@B @@C@@M*@@G@ @@@@A/@@C@@MDK )@@G@@*@@I@ @@@@C*@@C@@M*@@K@ @@@@BX@@C@@M*@@M@ @@@@A9@@C@@M*@@O@ @@@@B<@@C@@MDL )@@G@@*@@Q@ @@@@A6@@C@]H)@@@@ @@V P@@@C@]H*@@]@ @@@@B(@@C@]H*@@^@ @@@@C:@@C@]HDM )@@G@@*@@A@ @@@@B?@@C@]W)@@@@ @@< PV@@C@]W*@@]@ @@@@B(@@C@]W*@@^@ @@@@BR@@C@]WDN )@@G@@*@@A@ @@@@B]@@C@]W*@@C@ @@@@B?@@C@]W*@@E@ @@@@C+@@C@]W*@@G@ @@@@C*@@C@]WDO )@@G@@*@@I@ @@@@B)@@C@]W*@@K@ @@@@CW@@C@[C)@@@@ @@% P"@@C@[C*@@]@ @@@@B(@@C@[CDP )@@G@@*@@^@ @@@@BR@@C@[C*@@A@ @@@@BF@@C@[C*@@C@ @@@@C:@@C@[C*@@E@ @@@@B?@@C@[CDQ )@@G@@*@@G@ @@@@C+@@C@[C*@@I@ @@@@BI@@C@[C*@@K@ @@@@B)@@C@]*)@@@@ @@? Q*@@C@]*DR )@@G@@*@@]@ @@@@B(@@C@]**@@^@ @@@@BR@@C@]**@@A@ @@@@BF@@C@@_)@@@@ @@I RO@@C@@_DS )@@G@@*@@]@ @@@@B(@@C@@_*@@^@ @@@@BR@@C@@_*@@A@ @@@@C:@@C@@_*@@C@ @@@@B?@@C@@_DT )@@G@@*@@E@ @@@@C+@@C@@_*@@G@ @@@@BX@@C@@_*@@I@ @@@@A9@@C@#3)@@@@ @#! R+@@C@#3DU )@@G@@*@@]@ @@@@B(@@C@#3*@@^@ @@@@BO@@C@#3*@@A@ @@@@C*@@C@@%)@@@@ @@W VJ@@C@@%DV )@@G@@*@@]@ @@@@B(@@C@][)@@@@ @@< V:@@C@][*@@]@ @@@@B(@@C@][*@@^@ @@@@BR@@C@][DW )@@G@@*@@A@ @@@@B @@C@][*@@C@ @@@@C:@@C@][*@@E@ @@@@B?@@C@]1)@@@@ @@V WI@@C@]1DX )@@G@@*@@]@ @@@@B(@@C@]1*@@^@ @@@@BR@@C@]1*@@A@ @@@@BF@@C@#9)@@@@ @@U W(@@C@#9DY )@@G@@*@@]@ @@@@B(@@C@#9*@@^@ @@@@BR@@C@#9*@@A@ @@@@BF@@C@]4)@@@@ @@S X#@@C@]4DZ )@@G@@*@@]@ @@@@B(@@C@]4*@@^@ @@@@BR@@C@]4*@@A@ @@@@C:@@C@]4*@@C@ @@@@B<@@C@]4EA )@@G@@*@@E@ @@@@B?@@C@##)@@@@ @]S XV@@C@##*@@]@ @@@@B(@@C@##*@@^@ @@@@BO@@C@@PEB )@@G@@)@@@@ @@, Z3@@C@@P*@@]@ @@@@B(@@C@@P*@@^@ @@@@A0@@C@].)@@@@ @@W )-@@C@#GEC )@@G@@)@@@@ @@P ).@@C@#G)@@]@ @@G -M@@C@#G)@@^@ @#@ -Y@@^@[F)@@@@ @@# MR@@^@@=ED )@@G@@=@@@@ @@N MU@@^@[I=@@@@ @@D M!@@^@[<=@@@@ @@I M6@@^@[L)@@@@ @@O N^@@^@[LEE )@@G@@*@@]@ @@@@B(@@^@[L*@@^@ @@@@BU@@^@[L*@@A@ @@@@B&@@^@[?)@@@@ @[P NS@@^@[?EF )@@G@@)@@]@ @@Q O!@@^@@$)@@@@ @@) P#@@^@@$*@@]@ @@@@B(@@^@[2)@@@@ @@I P<@@^@[2EG )@@G@@*@@]@ @@@@B(@@^@[2*@@^@ @@@@G%@@^@[\0@@]@ @@W P1@@^@[()@@@@ @[_ QH@@^@[(EH )@@G@@*@@]@ @@@@B(@@^@[(*@@^@ @@@@G$@@^@[(*@@A@ @@@@B]@@^@[(*@@C@ @@@@BF@@^@[(EI )@@G@@*@@E@ @@@@A9@@^@[(*@@G@ @@@@A3@@^@[(*@@I@ @@@@BR@@^@[(*@@K@ @@@@BI@@^@@6EJ )@@G@@)@@@@ @@Q SG@@^@@6*@@]@ @@@@B(@@^@@6*@@^@ @@@@BF@@^@@6*@@A@ @@@@G!@@^@@VEK )@@G@@)@@@@ @[C S+@@^@@V*@@]@ @@@@B(@@^@@V*@@^@ @@@@G!@@^@@V*@@A@ @@@@G%@@^@#SEL )@@G@@)@@@@ @@G T%@@^@#S*@@]@ @@@@B(@@^@#S*@@^@ @@@@BI@@^@]')@@@@ @@- T6@@^@]'EM )@@G@@*@@]@ @@@@B(@@^@]'*@@^@ @@@@BR@@^@]'*@@A@ @@@@G!@@^@]'*@@C@ @@@@BL@@^@[XEN )@@G@@)@@@@ @@K UR@@^@[X*@@]@ @@@@B(@@^@#A)@@@@ @@H U$@@^@#A)@@]@ @@A U4@@^@#DEO )@@G@@)@@@@ @@C U'@@^@#D)@@]@ @@^ V]@@^@[;)@@@@ @D7 VA@@^@[;*@@]@ @@@@B(@@^@[;EP )@@G@@*@@^@ @@@@B&@@^@[;*@@A@ @@@@B)@@^@#%)@@@@ @BN =.@@^@#Y)@@@@ @@5 ?K@@^@#YEQ )@@G@@*@@]@ @@@@B(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@BPC @@_@ELBREAK @^L@[-BRK1 ES )@@G@@@ >@#JCHKASG @^2@[OCONT @#J@[!CSF @@Y@@@DCT ET )@@G@@@ W@[CDUSE$ @^"@]&ECHAR$ @@0@@(ECOPY$ @@0@[LEDECF$ EU )@@G@@@@0@]HEDITR$ @@0@@HEDITX$ @@0@@REDIT$ @@0@@@ELT EV )@@G@@@],@]PELT$ @HL@@IEMSG$ @@0@[-EOCTF$ @@0@] ESKIP$ EW )@@G@@@@0@@2EXIT @@9@ AFAACM @]B@ANFACIL @G=@@@FILE$ EX )@@G@@@HL@@AFN @^&@]QGETC @@$@@@GETWD @@%@[QGRAB EY )@@G@@@A#@[^IDJ$ @@@@@@IGC @@$@@@IGCL @@$@@IIN EZ )@@G@@@ [@A)INUSE @^\@@KIQUAL @^8@[GLOC @@/@@@LT FA )@@G@@@AM@[XLTINT$ @A$@@]MERGE @#P@]TMODB @@$@@\MOVER FB )@@G@@@@-@@@MVCHAR @@=@@@NC @[<@#?NCDOF$ @CT@#,NERR2$ FC )@@G@@@@9@#HNERR3$ @@9@#ZNERR4$ @@9@#&NERR6$ @@9@^JNINTR$ FD )@@G@@@@9@[#NSTOP$ @@9@ ^NXFILE @^\@@#OPA @@P@@>OPAF FE )@@G@@@@P@@ZOPAFP @@P@@-OPAP @@P@@$OPO @@P@@:OPOP FF )@@G@@@@P@@!OPRIME @@P@@@OPT @A%@@@PDP @[\@^6PGETWD FG )@@G@@@@%@[TPP @]+@[RPRINT @@S@@@PRTT @#$@@:PSCAN2 FH )@@G@@@^X@],PSRABS @#9@^^PUNCH @@V@@@PUNX @ 7@]LPUTC FI )@@G@@@@$@@RRDS1 @^U@@@RDS2 @^U@@:RDS3 @^U@[IREAD FJ )@@G@@@ T@@@RINF$ @^"@@@SAVE @^C@@8SCAN @AA@[YSCANBL FK )@@G@@@AG@@8SCAN2 @^X@]YSDFI @^<@@@SDFIC @^<@].SDFIO FL )@@G@@@^<@]KSDFO @@6@@@SDFOC @@6@[KSDFOO @@6@@3SELT$ FM )@@G@@@^"@@'SEQ @ ,@@'SORTX @A-@@@TOCX @AY@[BTOCXP FN )@@G@@@AY@@@UN @##@[4WDS1 @@3@@@WDS2 @@3@@?WDS3 FO )@@G@@@@3@@"XXRF @#0@@(@@@@@@@@@@@@@@@@@@@@@@@@SLT$ @@@^@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@I@@@@C - - - - - - - - - - - - - - - - - - - - FS )@@G@@- - - - - - - - - - - - - SCR 5099 *[@@@@CTS@[,@I@@@@C SCR 5099 FT )@@G@@ - BASE IS MARVEL 01C SCR 5099 FU )@@G@@*[@@@@CTS@[8@I@@@@C MODIFIED TO ALLOW QUAL*FILE ON BRK CARD. FV )@@G@@ SCR 5099 *[@@@@CTS@]]@I@@@@C SUBROUTINE CHANGED FW )@@G@@-BREAK,BRK1- SCR 5099 *[@@@@CTS@]GFX )@@G@@@I@@@@C BRK1 WILL UNPACK BRK CARD AND DO A @USE OF B$R$K$ ON FY )@@G@@ SCR 5099 *[@@@@CTS@]Q@I@@@@C THE QUAL/FILE NAME. BRK1 WILL TFZ )@@G@@HEN USE THE FACIL$ SCR 5099 *[@@@@CTS@])@I@@@@C PGA )@@G@@ACKET TO SEE IF FILE IS ASSIGNED IF NOT A DYNAMIC SCR 50GB )@@G@@99 *[@@@@CTS@]%@I@@@@C ASSIGN WILL BE MADE VIA CSF. GC )@@G@@ SCR 5099 *[@@@@CTS@]4@I@@@@C IF ERROR THE GD )@@G@@BRK CARD IS IGNORED. SCR 5099 *[@@@@GE )@@G@@CTS@]"@I@@@@C GF )@@G@@ SCR 5099 *[@@@@CTS@#C@I@@@@C CHECK TO INSURE SPEC1,SPEC2GG )@@G@@, AND SPEC3(IF SPECIFIED) ARE ASSIGNED SCR 5099 *[@@@@CTS@#M@I@@@@GH )@@G@@C GI )@@G@@SCR 5099 *[@@@@CTS@#W@I@@@@C ADJUST FILE NAME FOR IMPLIED QUALIFIERGJ )@@G@@ (*FILE) IN SPEC1, SCR 5099 *[@@@@CTS@#&@I@@@@C SPEC2 ANDGK )@@G@@ SPEC3. (EXPAND TO QUAL*FILE NAME). SCR 5099 GL )@@G@@*[@@@@CTS@#0@I@@@@C GM )@@G@@ SCR 5099 *[@@@@CTS@#'@I@@@@C OUTPUT CONTINUATION CGN )@@G@@ARDS IF CONTROL CARDS EXCEED 72 CHAR. SCR 5099 *[@@@@CTS@^^GO )@@G@@@I@@@@C GP )@@G@@ SCR 5099 *[@@@@CTS@^I@I@@@@C OUTPUT '@PDP,OP SPEC1.,SPEC1' IF GQ )@@G@@SPEC1 SPECIFIED SCR 5099 *[@@@@CTS@^S@I@@@@C OUTGR )@@G@@PUT 2ND PDP CARD '@PDP,OP SPEC1,SPEC3' IF SPEC3 SPECIFIED. SCR 50GS )@@G@@99 *[@@@@CTS@^+@I@@@@C GT )@@G@@ SCR 5099 *[@@@@CTS@^?@I@@@@C MARVEL MAP CHANGU )@@G@@GED TO AN OVERLAY STRUCTURE SCR 5099 *[@@@@GV )@@G@@CTS@^6@I@@@@C SEG ONCE-ONLY ARE INITIALIZATION S/R'S GW )@@G@@ SCR 5099 *[@@@@CTS@ @@I@@@@C SEG GEN-CARDS ARE THE S/GX )@@G@@R'S TO GENERATE THE CONTROL CARDS SCR 5099 *[@@@@CTS@ E@I@@@@GY )@@G@@C GZ )@@G@@SCR 5099 *[@@@@CTS@ O@I@@@@C IF SEQ CARD IS SPECIFIED AND SPEC1 HAS HA )@@G@@A QUALIFIER THEN SCR 5099 *[@@@@CTS@ Y@I@@@@C MARVEL WIHB )@@G@@LL GENERATE A '@USE S$$$EQ,SPEC1' CONTROL CARD SCR 5099 HC )@@G@@*[@@@@CTS@ *@I@@@@C AND THE SEQ CARDS GENERATED WILL USE THE 'S$$$EQ' FHD )@@G@@ILE NAME. SCR 5099 *[@@@@CTS@ 2@I@@@@C HE )@@G@@ SCR 5099 *[@@@@CTS@ /HF )@@G@@@I@@@@C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - HG )@@G@@- SCR 5099 *[@@@@CTS@AA@#@@@@C MAIN PROGRAM*[@@@@CTS@AK@[@@@@HH )@@G@@C *[@@@@CTS@AU@[@@@@C *[@@@@CTS@A=@^@@@@ PARAMETER IST=600 HI )@@G@@*[@@@@CTS@A,@ @@@@ IMPLICIT INTEGER(A-Z) *[@@@@CTS@A8@[@@@@C HJ )@@G@@*[@@@@CTS@B]@C@@@@ COMMON /BUF/BUFF1(8),BUFF2(8),BUFF3(8) *[@@@@HK )@@G@@CTS@BG@B@@@@ COMMON /A/BLNK,PERIOD,COMMA,SLASH,AT*[@@@@CTS@BQ@ @@@@HL )@@G@@ COMMON /B/CNT1,CNT2,CNT3*[@@@@CTS@B)@E@@@@ COMMON /SS/ELTAB(IHM )@@G@@ST,5),EPKT(10),IOP(22),IOPT,NEL *[@@@@CTS@B%@I@@@@ COMMON /TT/NHN )@@G@@DEXS(IST) SCR 5099 *[@@@@HO )@@G@@CTS@B4@C@@@@ COMMON /SP/SPEC1(2),SPEC2(2),SPEC3(2) *[@@@@CTS@B"HP )@@G@@@A@@@@ COMMON /AOPF/AOPFLG,XOPFLG *[@@@@CTS@CC@A@@@@ COMMONHQ )@@G@@ /TST/POPFLG,QOPFLG *[@@@@CTS@CM@I@@@@ COMMON /SPLFLG/SPLFLG,SCHR )@@G@@ARD(14) @ MGC 01C *[@@@@CTS@CW@I@@@@HS )@@G@@ COMMON /FS/DCTFLG,MERFLG,BRKFLG,PCHFLG,SAVFLG,SEQFLG HT )@@G@@SCR 5099 *[@@@@CTS@C&@[@@@@C *[@@@@CTS@C0@E@@@@ DATA BLNK/6HHU )@@G@@ /,PERIOD/1H./,COMMA/1H,/,SLASH/1H// *[@@@@CTS@C'@^@@@@ DATA AHV )@@G@@T/6H@ / *[@@@@CTS@D^@B@@@@ DATA AOPFLG/0/,AOPT/O200000000/ HW )@@G@@*[@@@@CTS@DI@ @@@@ DATA XOPFLG/0/,XOPT/O4/ *[@@@@CTS@DS@G@@@@ HX )@@G@@DATA POPFLG/0/,POPT/O2000/ @ LIST GENERATED PROCESSOR CARDS *[@@@@HY )@@G@@CTS@D+@F@@@@ DATA QOPFLG/0/,QOPT/O1000/ @ DO NOT ADD FILE M$AHZ )@@G@@$R$. *[@@@@CTS@D?@I@@@@ DATA SOPT/O200/ , SPLFLG/0/ @ IA )@@G@@ MGC 01C *[@@@@CTS@D6@[@@@@C *[@@@@CTS@E@IB )@@G@@@ @@@@ DEFINE H1(I)=FLD(0,18,I)*[@@@@CTS@EE@A@@@@ DEFINE H2(I)IC )@@G@@=FLD(18,18,I) *[@@@@CTS@EO@[@@@@C *[@@@@CTS@EY@[@@@@C *[@@@@ID )@@G@@CTS@E*@F@@@@ CALL OPRIME(IOP,22) @ INITIALIZE OP - PRINT ROUIE )@@G@@TINE *[@@@@CTS@E2@I@@@@ CALL OPAP ( 1,-1,'MARVEL 01D&' ) IF )@@G@@ SCR 5099 *[@@@@CTS@E/@F@@@@ CALL CSF('@AIG )@@G@@SG,T M$A$R$.,F2',3,I) @ SET UP ADD FILE *[@@@@CTS@FA@D@@@@ IH )@@G@@IF(I.LT.0)GO TO 50 @ CHECK ERROR RETURN *[@@@@CTS@FU@D@@@@ II )@@G@@IOPT=OPT(1) @ READ OPTIONS ON MARVEL CARD*[@@@@CTS@F=@I@@@@ IJ )@@G@@IF (AND(IOPT,AOPT) .NE. 0 )AOPFLG=3 @ A OPTION? MGC 01IK )@@G@@C *[@@@@CTS@F,@I@@@@ IF (AND(IOPT,XOPT) .NE. 0 )XOPFLG=1 @ X OIL )@@G@@PTION? MGC 01C *[@@@@CTS@F8@I@@@@ IF (AND(IOPTIM )@@G@@,POPT) .NE. 0 )POPFLG=1 @ P OPTION? MGC 01C *[@@@@IN )@@G@@CTS@G]@I@@@@ IF (AND(IOPT,QOPT) .NE. 0 )QOPFLG=1 @ Q OPTION? IO )@@G@@ MGC 01C *[@@@@CTS@GG@I@@@@ IF (AND(IOPT,SOPT) .NE. IP )@@G@@0 )SPLFLG=1 @ S OPTION? MGC 01C *[@@@@CTS@GQ@E@@@@IQ )@@G@@ CALL FN @ FILE NAMES FROM MARVEL CARD *[@@@@CTS@G)IR )@@G@@@C@@@@ CALL IN @ READ DATA CARDS *[@@@@CTS@G%@G@@@@IS )@@G@@ CALL LT @ LOAD TABLE ELTAB - ELEMENT NAMES, NEL IT )@@G@@*[@@@@CTS@G4@E@@@@ CALL BPC @ BUILD PCARD (PROCESSOR IU )@@G@@CARD) *[@@@@CTS@G"@I@@@@ CALL CSF ( '@FREE,A SPEC1. . ',3,I ) IV )@@G@@@ MGC-01B *[@@@@CTS@HC@I@@@@ CALL CSF ( 'IW )@@G@@@FREE,A SPEC2. . ',3,I ) @ MGC-01B *[@@@@IX )@@G@@CTS@HM@I@@@@ CALL CSF ( '@FREE,A SPEC3. . ',3,I ) @ IY )@@G@@ MGC-01B *[@@@@CTS@HW@I@@@@ IF (BRKFLG.GT.0)CALL CSFIZ )@@G@@ ('@FREE,A B$R$K$. . ',3,I) @ SCR 5099 *[@@@@CTS@H&@A@@@@JA )@@G@@ CALL OPAP(1,-1,'END MARVEL&') *[@@@@CTS@H0@]@@@@ STOP *[@@@@JB )@@G@@CTS@H'@[@@@@C *[@@@@CTS@I^@D@@@@50 CONTINUE @ ERRORJC )@@G@@ RETURN FROM CSF *[@@@@CTS@II@G@@@@ CALL OPAP(1,-1,'ERROR IN ASG OJD )@@G@@F M$A$R$ FILE. ABORT MARVEL.&') *[@@@@CTS@IS@I@@@@ RETURN 0 JE )@@G@@ SCR 5099 *[@@@@JF )@@G@@CTS@I+@]@@@@ END _@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@F])@@@@@)@@@,)@@@@@@)@@@JC@@@@@@@@@@@@@ JH )@@G@@/ , . /,0@@@AA@@@F)@@@C@)@[@JC)@[@C@)@@@JK)@]@C@)@[@JKJI )@@G@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@^@@@@@@@]@@@@AB@@@F)@#@K@)@@@JS)@[@+K)EV G@JJ )@@G@@)@A@C@MARVEL@@@@@(@@@@\]/,0@@@@@@@@@@@@@@@@@@@]@@@@@C@AC@@@F)@B@K@)@ @%KJK )@@G@@-ES G]&@@@@@)@D@C@@ASG,T@@@@@A@@@@@:@@@@@%/,0@@@@[&@@@______ 01D& AD@@@FJL )@@G@@)@E@S@)@E@2K+ES G]&@@@@@@[*@@@@@@@@ @@@@@?@@@@@D/,0@@@@[$@@@______$.,F2 JM )@@G@@ M$A$RAE@@@F)@K[F#[@K^C2&@-?-)-?@@@@+@@@\SC@@@@@[@@@\S@[:@@@@@@@@%/,0@@@JN )@@G@@/^@@[V/G@@@ND@@@@ AF@@@F)@T[MK[#>#[#SK[#=@[@@@@[C/@@@[/K@@@<(@@@@H+@@@\SJO )@@G@@C@@@@[[@@@@@C/@@@#/K@@@X(@@@@HAG@@@F)@<[F#[#SK[#(#[#S@@@@@@@(@@@@H+@@@\SJP )@@G@@C@@@@#[@@@@@C/@@@[/K@@@((@@@@H+@@@\SC@@@@]AH@@@F)@?[F@^I=G^H-@^I0@@@@@@@JQ )@@G@@[@@@@@C/@@@[/K@@@5(@@@@H+@@@\SC@@@@^[@@@@[C/@@@[/K@@@\AI@@@F)@5@;]KK>^D-JR )@@G@@]W@@@@)@H@K@A SPEC@FREE,/,0@@@@[8@@@/,0@@@@[7@@@/,0@@@@[6@@@/,0@@@AJ@@@FJS )@@G@@)@J@K@)@/@%K+ES G]&@@@@@)@L@C@@FREE,@@@@@ @@@@@?@@@@@H/,0@@@@[9@@@______JT )@@G@@1. . AK@@@F)@M@S@)[[@%K+ES G]&@@@@@@@@@@@@@@@@ @@@@@?@@@@@L/,0@@@@['@@@JU )@@G@@______2. . A SPECAL@@@F)@P@)@@@@@@@)[A@+K+ES G@@@@@@@@@@@@?@@@@@P/,0@@@JV )@@G@@@[;@@@______3. . A SPEC@FREE,AM@@@F)[E@E()@@@@@)@T@)@@@@@@@)[F@MK/@@@@@JW )@@G@@D@@@@]@[/@@@______K$. . A B$R$@FREE,@@@@@ AN@@@F)[H@3@K^C+&[N@()@@)@X@S@JX )@@G@@______RVEL& END MA@@@@@ @@@@@?@@@@@T/,0@@@/@@@[O/C@@[OAO@@@F)[N[]K-ES G]JY )@@G@@&@-MO0@@@@@@@@@@@@@@@@@!/,0@@@@[_@@@@@@@@X@@@@@:@@@@@%/,0@@@@["@@@AP@@@FJZ )@@G@@)@)[C@@@@@@@@@@[C@@@@@@@______.& MARVELABORT ILE. A$R$ F OF M$IN ASGKA )@@G@@ERROR AQ@@@F)[V[F]^()O0ES] K-MO0@@@@@@@@@,/,0@@@@]#@@@'^@@@@@]]@@@@@@@@)KB )@@G@@@@@@@:@@@@@%/,0@@@AR@@@F)@(@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ KC )@@G@@ @@@@@#_____"@@@@@[@@@@@QAS@@@F0@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@ @@@@@#_____"@@@@@[@@@@@QAT@@@F@@^@@H@@L@@F@@$@@[@@:@@FKE )@@G@@@@^@@\@C@@[=@@@@@@@@@@@S@@@@@ @@@@@#@@@@\U@@@@DS@@@@@A@@@@@]@@@@@]@@@@@JKF )@@G@@@@@@@AOPRIME OPAP CSF OPT FN IN KG )@@G@@ LT BPC NINTR$ NSTOP$ NERR6$ FORMAIKH )@@G@@N$ @@[@@@@@@@@@@@@@@@ ^@@@C@@]@@@@BUF ]@@@C@@#@@@@A KI )@@G@@ ]@@@C@@^@@@@B ]@@@C@@ @@@@SS ]@@@C@@A@@@@TT KJ )@@G@@ ]@@@C@@B@@@@SP ]@@@C@@C@@@@AOPF ]@@@C@@D@@@@TST KK )@@G@@ ]@@@C@@E@@@@SPLFLG ]@@@C@@F@@@@FS ]@@@C@@G@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@^@@@@ LIB TPF$*[@@@@CTS@[,@C@@@@KO )@@G@@ LIB F . E3 FORTRAN LIBRARY *[@@@@CTS@[8@#@@@@SEG KP )@@G@@ MAIN *[@@@@CTS@]]@^@@@@ IN MAIN*[@@@@CTS@]G@B@@@@KQ )@@G@@ IN OP,PRINT,PUNCH,CSF *[@@@@CTS@]Q@C@@@@ INKR )@@G@@ MOVER,MVCHAR,ASMBL,GETWD *[@@@@CTS@])@ @@@@ IN KS )@@G@@ EDIT$,ERU$*[@@@@CTS@]%@^@@@@ IN WDS *[@@@@CTS@]4@^@@@@KT )@@G@@ IN SDFO*[@@@@CTS@]"@^@@@@ IN LOC$*[@@@@KU )@@G@@CTS@#C@ @@@@SEG ONCE-ONLY*,(MAIN) *[@@@@CTS@#M@B@@@@ INKV )@@G@@ FN,INFOR,CHKASG,IQUAL *[@@@@CTS@#W@ @@@@ IN INFOKW )@@G@@R$ *[@@@@CTS@#&@D@@@@ IN IN,READ,DCT,BRK1,SEQ,PUNX,GRKX )@@G@@AB *[@@@@CTS@#0@A@@@@ IN SCAN,SCANBL *[@@@@CTS@#'KY )@@G@@@ @@@@ IN LT,TOCX *[@@@@CTS@^^@ @@@@ IN KZ )@@G@@ SORTX *[@@@@CTS@^I@ @@@@SEG GEN-CARDS*,(MAIN) *[@@@@CTS@^SLA )@@G@@@D@@@@ IN BPC,NC,PDP,FAACM,PP,ELT,UN,CONT *[@@@@CTS@^+LB )@@G@@@D@@@@ IN MERGE,PRTT,XXRF,PSRABS,SAVE,BREAK *[@@@@CTS@^?LC )@@G@@@ @@@@ IN RDS,SCAN2 *[@@@@CTS@^6@^@@@@ IN LD )@@G@@ SDFI*[@@@@CTS@ @@#@@@@ END _@@@@@ LE )@@G@@SCR 5099 *[@@@@CTS@#W@I@@@@C ADJUST FILE NAME FOR IMPLIED QUALIFIERLF )@@G@@ (*FILE) IN SPEC1, SCR 5099 *[@@@@*[@@@@*SDFF**[@@@@CTS@[=LG )@@G@@@B@@@@ SUBROUTINE NC(IJK,IEL,IV,ELTYP) *[@@@@CTS@[,@ @@@@ LH )@@G@@IMPLICIT INTEGER(A-Z) *[@@@@CTS@[8@ @@@@ PARAMETER IST=600, N=16 LI )@@G@@*[@@@@CTS@]]@[@@@@C *[@@@@CTS@]G@B@@@@ COMMON /A/BLNK,PERIOD,COLJ )@@G@@MMA,SLASH,AT*[@@@@CTS@]Q@A@@@@ COMMON /N/EVNAME(5),NCELV *[@@@@LK )@@G@@CTS@])@A@@@@ COMMON /NN/ENAME(2),VNAME(2) *[@@@@CTS@]%@E@@@@ LL )@@G@@COMMON /SS/ELTAB(IST,5),EPKT(10),IOP(22),IOPT,NEL *[@@@@CTS@]4@ @@@@LM )@@G@@ COMMON /TT/NDEXS(IST) *[@@@@CTS@]"@[@@@@C *[@@@@CTS@#C@[@@@@LN )@@G@@C *[@@@@CTS@#M@C@@@@C ELT/VERS NAME WILL BE STORED IN EVNAME LO )@@G@@*[@@@@CTS@#W@ @@@@C ELT NAME STORED IN ENAME*[@@@@CTS@#&@A@@@@C LP )@@G@@VERSION NAME STORED IN VNAME *[@@@@CTS@#0@[@@@@C *[@@@@CTS@#'@D@@@@LQ )@@G@@C NCELV WILL CONTAIN THE TOTAL NUMBER OF CHARS *[@@@@CTS@^^@D@@@@LR )@@G@@C IN THE ELT/VERS NAME, INCLUDING THE SLASH IF *[@@@@CTS@^I@ @@@@LS )@@G@@C THERE IS A VERSION NAME *[@@@@CTS@^S@[@@@@C *[@@@@CTS@^+@A@@@@LT )@@G@@ CALL MOVER(BLNK,0,EVNAME,1,5) *[@@@@CTS@^?@#@@@@ NCELV=0 LU )@@G@@*[@@@@CTS@^6@^@@@@ VNAME(1)=BLNK *[@@@@CTS@ @@^@@@@ VNAME(LV )@@G@@2)=BLNK *[@@@@CTS@ E@E@@@@C DETERMINE NUMBER OF CHARACTERS IN ELLW )@@G@@EMENT/VERSION NAME*[@@@@CTS@ O@E@@@@ IEL=0 @ COUNTLX )@@G@@ER FOR ELEMENT NAME *[@@@@CTS@ Y@E@@@@ IV=0 @LY )@@G@@ COUNTER FOR VERSION NAME *[@@@@CTS@ *@E@@@@ DO 110 J=1,2 LZ )@@G@@ @ ELEMENT NAME, WORDS 1 AND 2 *[@@@@CTS@ 2@E@@@@ DO 110 I=1,6MA )@@G@@ @ 12 CHAR MAX *[@@@@CTS@ /@^@@@@ JLM=NDMB )@@G@@EXS(IJK) *[@@@@CTS@AA@F@@@@ IF(IGCL(ELTAB(JLM,J),I).EQ.' ')GO TOMC )@@G@@ 115 @ IS CHAR A BLNK *[@@@@CTS@AK@E@@@@110 IEL=IEL+1 @MD )@@G@@ NO. OF CHAR IN ELEMENT NAME *[@@@@CTS@AU@#@@@@115 CONTINUE *[@@@@ME )@@G@@CTS@A=@E@@@@ DO 120 J=3,4 @ VERSION NAME, WORDS 3 AND 4 MF )@@G@@*[@@@@CTS@A,@E@@@@ DO 120 I=1,6 @ 12 CHAR MMG )@@G@@AX *[@@@@CTS@A8@^@@@@ JLM=NDEXS(IJK) *[@@@@CTS@B]@F@@@@ MH )@@G@@IF(IGCL(ELTAB(JLM,J),I).EQ.' ')GO TO 125 @ IS CHAR A BLNK *[@@@@CTS@BGMI )@@G@@@E@@@@120 IV=IV+1 @ NO. OF CHAR IN VERSION NAME *[@@@@MJ )@@G@@CTS@BQ@#@@@@125 CONTINUE *[@@@@CTS@B)@[@@@@C *[@@@@CTS@B%@E@@@@MK )@@G@@ NCELV=IEL+IV @ TOTAL NO. OF CHARS IN NAME/VERS *[@@@@CTS@B4ML )@@G@@@[@@@@C *[@@@@CTS@B"@A@@@@C STORE ELT/VERS NAME IN EVNAME *[@@@@MM )@@G@@CTS@CC@B@@@@ IF(IEL.GT.6)GO TO 131 @ ELT NAME*[@@@@CTS@CM@^@@@@MN )@@G@@ JLM=NDEXS(IJK) *[@@@@CTS@CW@G@@@@ CALL MVCHAR(ELTAB(JLM,1)MO )@@G@@,1,EVNAME,1,IEL) @ ELT NAME HAS 1-6 CHARS*[@@@@CTS@C&@#@@@@ GO TO MP )@@G@@132 *[@@@@CTS@C0@[@@@@C *[@@@@CTS@C'@D@@@@131 CONTINUE MQ )@@G@@@ EL NAMES HAS 7-12 CHARS *[@@@@CTS@D^@^@@@@ JLM=NDEXS(IJK) MR )@@G@@*[@@@@CTS@DI@H@@@@ CALL MVCHAR(ELTAB(JLM,1),1,EVNAME,1,6) @ FIRSTMS )@@G@@ 6 CHARS OF ELT NAM *[@@@@CTS@DS@E@@@@ IEL6=IEL-6 @ REMMT )@@G@@AINING NUMBER OF CHARS TO MOVE*[@@@@CTS@D+@G@@@@ CALL MVCHAR(ELTAB(MU )@@G@@JLM,2),1,EVNAME,7,IEL6) @ BALANCE OF CHARS *[@@@@CTS@D?@A@@@@132 MV )@@G@@CONTINUE @ VERSION NAME *[@@@@CTS@D6@D@@@@ ENAME(1)=EVNAME(1)MW )@@G@@ @ COPY ELEMENT NAME *[@@@@CTS@E@@C@@@@ ENAME(2)=EVNAME(2)MX )@@G@@ @ INTO ENAME*[@@@@CTS@EE@E@@@@ IF(IV.EQ.0)GO TO 135 MY )@@G@@ @ IV = 0 IMPLIES NO VERS *[@@@@CTS@EO@D@@@@ NCELV=NCELV+1 MZ )@@G@@ @ ADD 1 FOR SLASH *[@@@@CTS@EY@#@@@@ CP=IEL+1 *[@@@@NA )@@G@@CTS@E*@E@@@@ CALL PUTC(IGC(SLASH,1),EVNAME,CP) @ PUT IN SLASH NB )@@G@@*[@@@@CTS@E2@G@@@@ CP=CP+1 @ ADD 1 TO POSITION COUNTER ATNC )@@G@@ NEXT BLANK SPACE *[@@@@CTS@E/@ @@@@ IF(IV.GT.6)GO TO 133 *[@@@@ND )@@G@@CTS@FA@^@@@@ JLM=NDEXS(IJK) *[@@@@CTS@FK@G@@@@ CALL MVCHAR(NE )@@G@@ELTAB(JLM,3),1,EVNAME,CP,IV) @ MOVE IN VERS NAME *[@@@@CTS@FU@G@@@@NF )@@G@@ CALL MVCHAR(ELTAB(JLM,3),1,VNAME,1,IV) @ MOVE IN VERS NAME NG )@@G@@*[@@@@CTS@F=@#@@@@ GO TO 135 *[@@@@CTS@F,@[@@@@C *[@@@@CTS@F8NH )@@G@@@^@@@@133 JLM=NDEXS(IJK) *[@@@@CTS@G]@G@@@@ CALL MVCHAR(ELTAB(NI )@@G@@JLM,3),1,EVNAME,CP,6) @ VERS NAME CHARS 1-6 *[@@@@CTS@GG@G@@@@ NJ )@@G@@CALL MVCHAR(ELTAB(JLM,3),1,VNAME,1,6) @ VERS NAME CHARS 1-6 *[@@@@NK )@@G@@CTS@GQ@C@@@@ CP=CP+6 @ INCREMENT CHAR COUNTER *[@@@@CTS@G)NL )@@G@@@#@@@@ IV6=IV-6 *[@@@@CTS@G%@^@@@@ JLM=NDEXS(IJK) *[@@@@NM )@@G@@CTS@G4@G@@@@ CALL MVCHAR(ELTAB(JLM,4),1,EVNAME,CP,IV6) @ BALANCE ONN )@@G@@F CHARS *[@@@@CTS@G"@C@@@@ CALL MVCHAR(ELTAB(JLM,4),1,VNAME,7,INO )@@G@@V6) *[@@@@CTS@HC@#@@@@135 CONTINUE *[@@@@CTS@HM@^@@@@ JLM=NDNP )@@G@@EXS(IJK) *[@@@@CTS@HW@E@@@@ ELTYP=IGC(ELTAB(JLM,5),3) NQ )@@G@@@ ELEMENT TYPE *[@@@@CTS@H&@]@@@@ RETURN*[@@@@CTS@H0@]@@@@ NR )@@G@@END _@@@@@H(>H14^[,GD!G*)H(-JC)GL>^[\H((I-4G(= ))HD,^[7H[(GT*^[^[4H[>^[H(>H14IS)H9,NT )@@G@@)@@[F#@CK^G2A[#I-)K0CS@@@[E@@D@@@@@]@@@@@[@@@@@@@@@@@@@@@@@@/,0@@@R@K@@GNU )@@G@@C@@@@FAA@@@@)@D[N#I-&K4CU@[[KKC@@@@@[#0@@@N_0@@[C_0@@[ @@@@@ @@@@@[@@@@#NV )@@G@@[@@@@]C@@@@@ @@@@ AB@@@@)@N[MK0@)\U= #@))@O/)_6&O@)@@]R@)@@G[@@@@]C@[J_"NW )@@G@@[#)@@[N_)@@ C_)@@[[@@@@GT/@@DSAC@@@@)@X[F#M)CKO[[K0CS^@@@@@@C@@@@@/K@@@?NX )@@G@@:@@@@#@[R@@D@@@@@[@@@@@)/,0@@@^^K@@)N8M@@@AD@@@@)@&[M[@^@^ [@@@@@@C@@@@@NY )@@G@@[#0@@@N_0@@[C_0@@#8N0@@LG_0@@[8N)@@RG_)@@[[@@@@@G/@@@[AE@@@@)@0[MK0@)\U=NZ )@@G@@ #@))@O/)_6&O@)@@]R@)@@G[@@@@]C@[J_"[#)@@[N_)@@ C_)@@[[@@@@GT/@@DSAF@@@@OA )@@G@@)@'[F#M)CKO[[K0CS^@@@@@@C@@@@@/K@@[D:@@@@#@[=@@D@@@@@[@@@@@./,0@@@^^K@@.OB )@@G@@N8M@@@AG@@@@)[#[M[@^@^G8@@@@@@C/@@@A[@@@@ G@@@@@C@@@@@8N0@@,G_0@@[8N)@@4OC )@@G@@G_)@@[[@@@@@G/@@@[AH@@@@)[H[EKB!M])\UO[]^)@@@@@@@@@@[P/,0@@@^^K@[PN8MJ_"OD )@@G@@R@)@@][@@@@]C@[J_"/K@@[W?@@@@@AI@@@@)[Q[F#@-$K0]A[@Y5CE]@@@@R@)@@][@@@@]OE )@@G@@C@[J_"/K@@[4@[,@@D@@@@@@@@@@@[@@@@@@@@@@@[AJ@@@@)[Z[F;M)CK=[#@-$K0CS^G@@OF )@@G@@@[2@@D@@@@@^@@@@@[@@@@@@@@@@@[@@@@[+/,0@@@^^K@[+N8MJ_"AK@@@@)[*[E^ #M)CKOG )@@G@@=[#@-$@@@@@@@@@@@@@@@@@[@@@@[,/,0@@@^^K@[,N8M@DR[@@@@#G/@__9C@@@@@AL@@@@OH )@@G@@)[1[F#@)*S^G'A-#I-*^@@@@/K@@#Q(@@@@@[@)@@[C@)@@[[@@@@@C@@@@@@[4@@D@@@@@#OI )@@G@@@@@@@ AM@@@@)['[F#ICT0KOC+AT#@@@@@@@@@@@@[@@@@@#/,0@@@[@)@@^G/)@@[C@)@@@OJ )@@G@@[@@@@ G/@@@[C@@@@ AN@@@@)]#[F#@-)K-*S^G']-)KK@@@G/@@@[C@@@@^@[/@@D@@@@@^OK )@@G@@@@@@@@@@@@@G/,0@@@[@@@@G@[/@@DAO@@@@)]G[F[[@Y5CE]-(K@@@@@@@@^^K@]QN8M@M\OL )@@G@@R@)@@][@@@@]C@[J_"/K@@]&?@@@@@C/@@@A[@@@@^AP@@@@)]P[F]^)CS^G']CS^HE@@@@@OM )@@G@@^^K@]ZN8M@M\@][@@D@@@@@@@@@@@^@@@@@@@@@@@[@@@@]Q/,0@@@AQ@@@@)]Y[F]^)CS^HON )@@G@@]A@K0C#6*@@@C@[J_"/K@@#Q@]]@@D@@@@@@@@@@@[@@@@@]@@@@@[@@@@]Z/,0@@@AR@@@@OO )@@G@@)]$[F[KOHE@-]K^G]AX[@@@@@@@@@^@@@@@@@@@@@[@@@@]?/,0@@@^^K@]?N8M@M\R@)@@]OP )@@G@@[@@@@]AS@@@@)]0[F#@-)K4*]^D@K0CU^G@@@@@@@[@@@@@]@@@@@[@@@@]5/,0@@@^^K@]5OQ )@@G@@N8M@M\@] @@D@@@@@^AT@@@@)]9[N#@-)KL[[[Y5CC[[@@@]C[[J_"[@)@@ G/)__9C@)@@@OR )@@G@@[@@@@^G/@@@AC@@@@^@]A@@D@@@@@^AU@@@@)##[F[K4*]^D@K0CT4 [@@@@@@@@@ @@@@@^OS )@@G@@@@@@@@@@@@@[@@@@#B/,0@@@^^K@#BN8M@WBR@)@@]AV@@@@)#G[F#@-(K^CM@-)K4CS^^@@OT )@@G@@@@@@@ @@@@@ @@@@@]@@@@@[@@@@#K/,0@@@^^K@#KN8M@WB@]E@@DAW@@@@)#P[F#@.%KO OU )@@G@@#M)CL^[#@@@@@@@@@A@@@@#W/,0@@@^^K@#WN8M@>ZR@)@@][@@@@]C@[J_"@]F@@DAX@@@@OV )@@G@@)#Y[F#@C]@-)ES]&@()ES@@@N#)@@LR@)@@KR@K@@J9\)@@HRA0@@E/K@@#+N@0@#+[@@@@@OW )@@G@@@]I@@DAY@@@@)#$@M()K0@@@)@B@)@@@@@@@)#(@E()@@@@@AA0@@E@]J@@@NC @#;@@ OX )@@G@@@#;@@ /K@K@BN#0@@MAZ@@@@)#%[E()ES]&@()ES[#@C@@@@[^@@@>C8FK@[[@K@@FC@VK@@OY )@@G@@^#0@@M^#)@@LA@)@@KA@K@@J9:)@@HBA@@@@)#3[N@K^[@K^[@^[@@[^@@[E[^@@]UC8FK@]OZ )@@G@@[^@@@H[^@@[*[^@@@$[^@@[.[^@@[H[^@@[T[^@@[DBB@@@@)#.[N@K^[@K^[@^[@@/K@@@@PA )@@G@@[^@@#ZC8FK@#[^@@[^[^@@@I[^@@[8[^@@]I[^@@[][^@@]"[^@@]S@@@@@@@^@@@]@^@I@[@ @@@]K^@K@)@B@@@@ SUBROUTINE NIP )@@G@@C(IJK,IEL,IV,ELTYP) *[@@@@CTS@[,@ @@@@ IMPLICIT INTEGER(A-Z) IQ )@@G@@*[@@@@CTS@[8@ @@@@ PARAMETER IST=600, N=16 [\W@C@)@=[7W@@@___@@E^@@IR )@@G@@@ .^@W@@E^KG@@E^K6@@S^LR@@E^OO@[J^X,@@E I.@@K J;@@0 KU@@E LS@[: N+@@E PVIS )@@G@@)@M^@E)D3^AT)@)^KQ)@R^L@)]>^L\)DK^OY)0@^Y.)@4 JB)@J KF)@I LE)]@ L+)@I PHIT )@@G@@A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)@E\R^1@@@&80@@[C8@@E0M@/)@@Q^1@@@ ?[@@]IU )@@G@@/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[IV )@@G@@P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@IW )@@G@@/?)@C>[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])CZ/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@IX )@@G@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@C?N?L@@@Q^1@@@C8@@E0M@/)@@IY )@@G@@Q8)@@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@DBC80@@F;^@@[]IZ )@@G@@+8K@@_%8)@@ :8)@@@/K@@DH')])CZ8#0@DB/KF@@@&"0__"/K@@DM&'0@@@C8.@@@;G@@@MJA )@@G@@;CK@@M&;@@@[&;K@@[8#0@DT/KF@@@')G)D!0@@@@F%8)@@@')])CZ/K@@DRC?[@@[C^L@@[JB )@@G@@/K@@D<;G@@@M;CK@@M&;@@@[&;K@@[')G)D!:0-@@@/K@@D%')])CZ/K@@D>[?[@@[[^L@@[JC )@@G@@/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@D3C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@JD )@@G@@;G@@@#/@@@D_G80@@[;G@@@#/^@@D'C8)@@0')])CZC8)@@@;=K@@#G8)@@0')])CZ8#0@D_JE )@@G@@/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@D_&"0__"/K@@EIC8K@@@&'0@@@N8X@@@C80@@@JF )@@G@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@EQ/^@@EK/C@@EX0@@@@F/K@@EX;?)@@AG80@@-JG )@@G@@8KK@EXC@K@@I0@@@@F1@@@@G/K@@E=R;)@@-')])CZ8KK@E=C8)@@ 0@@@@FC8)@@0/K@@E(JH )@@G@@')])CZ8KK@E*C@)@@J')])CZ;GK@@A/^)@E:/KF@@@@@[@@@ [@@^@@ @@^@[C8W@@@JI )@@G@@KCK^@@H8)@@[H8)@@V&;K@FFC@@@@H'=@@@H(@@^@[[@@^@[G8W@@@ @H@@@>@@@I%/K@@FCJJ )@@G@@>@@@I:/KF@@[C8H@@@?8I@@@/K@@E8C@@@I(C8K@@#/KF@@@C@@@IYC8K@@[/KF@@@[@@^@[JK )@@G@@C@@@I=C8K@@]/KF@@@L8@@@[C@)^@@/@K@F@@@A')H)@@8KK@IH/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@IR[-W)@@KB )@@G@@Q;K@IL/KJ@@@PROCESSOR CALL ERROR @[^@IUABNORMAL RETURN FROM READ$ KC )@@G@@@[ @IZTOO MANY SPECIFICATIONS @[^@I>]@@@@@[@@@@@ @@[^@A@@[@ILTPF$ KD )@@G@@@@G^@]C@F@@@/KF@@]R#W@@DR#?@@EA#!)@@;K)@@S/C)@I9R3?@@EAB?@@BR#?@@CA#W@@DKE )@@G@@C G@@DG G@@BC W@@AGDW@@^H[@@@L/D@@JAN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KKF )@@G@@N@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^KG )@@G@@;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D(^G@@]/K@@I/C G@@]KDG@@BT9@@@W[DW@@BC[W@@ KH )@@G@@H W@@]GDG@@^ ^G@@][[W@@ [DG@@^/K@@I/RBW@@AABW@@DR#K@@G9??@@@RBG@@A ^H@@]KI )@@G@@9*?@@@'=@@[GR7?@@AR#@@@H!8)@@S!8)@@)/K@@J/RF?@@B?8)@@^/K@@J/+/)__/R#W@@ KJ )@@G@@+8K@@#AB?@@]P#0@@IAF/@@BC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#KK )@@G@@'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@PBW@@AKL )@@G@@O;K@@[;GK@@=W8K@@W/@)@KPO;K@@[K8K@@#+/)__/R#)@@JT8)@@WAF?@@^O#W@@ '=@@@#KM )@@G@@A#W@@ C5W@@#/ V@@@/KF@@[@@@@@@@@@@@@A#@^#0R\@@K)%8@@@E/K@@LLR7@@K):8@@@[KN )@@G@@/K@@LV'^@@PWAF@^#7R3@@K)'^@@PWAF@^#9RB@@K)'^@@PWA#@^#/ @@@@G'=@@[[R#@^#?KO )@@G@@'=@@@I(^@@K'/K@@LE ^@@LD(8@@K8/K@@LBR;@@@@P;@@@[R#G@@@%@@^#!/K@@L RA0@K'KP )@@G@@ ^@@K'AA0@L]/,0@@@/S@@@@/K@@LER#@^#,'=@@@I ^@@K'/K@@LE/S@@LD/S@@@@/S@@@@KQ )@@G@@(^@@LF'^@@P&RB@@LF ^@@LF/KG@@@'=@@[@P;@@@^')G^#2RB@@K)O;@@@[AB@@LUR#@^#0KR )@@G@@*^@@LT/K@@@@/K@@@@RBK@K-*@@@@H(?H@@]/K@@K((8@@@@/K@@K(R#@@@H/K@KLZ9(@^^^KS )@@G@@^@K^^A^@)^^B^@0^^C @@@@G'=@@[[L@@@@GW@@@@H/40@L!A]0^^DR#@^#\'=@@[[/KF@@[KT )@@G@@'^@@PIR;F@@@L8@@@[RB!@@@?@)^ %/K@@L8P#)^ %RB,@@@P;)@@[RB,@@@N@"@@@R#K@@GKU )@@G@@RF!@@@/^)@M@O;K@@[/K@@L/:@)^ :/K@@L"P#K@@GABK@L0/K@@ML'^@@PIC@@^ ?/K@@MHKV )@@G@@'^@@PIC@@^ !/K@@MH'^@@PIC@@^ ,'=@@@I/K@@L1/K@@L0'^@@PIR;V@@@OBKKMJA#K^^GKW )@@G@@^@0^^-^@0^^=R#@^ \'=@@@I(^@@N!/K@@M)RB@^^L'^@@PWA#@^^VR#@^ 0'=@@@I/K@@M\KX )@@G@@R;;@@@N80@@]8K0@M=/K@@M\RFJK@@'^@@PWA#@^^VR#JK@@'^@@PWA#@^^WR#@^ 1'=@@@IKY )@@G@@O;0@@[?@0^^G/K@@M+R#K^^GRFH@@@N80@#C'^@@PWA#@^^%RBK^^G9!@^^H0@H@@@/K@@NEKZ )@@G@@(^H@@@/K@@N>RBH@@@RF/@@[?80@[@9!@^^J9(@^^$R#G@@@A#@^^?R#@^ 2'=@@@IR#@^^?LA )@@G@@A#@^^=RBK^^GRBX@@@'^@@NIA#K^^G/K@@M29!@^^J9(@^^$R#@^ 3/K@@N(/K@@@@RFH@@[LB )@@G@@?8@@[@/K@@NWR#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0KNI/K@@N:LC )@@G@@8#@@NQO;K@@[R#X@@@RFH@@@/@@@N<%@@^ :/K@@NTO;K@@[/K@@NZ9(@^^$R#@^ 4A#@^^?LD )@@G@@R#@^ 5'=@@@I'^@@OY @@@P>'^@@P&/K@@@@'^@@PIRF@KN!'^@@PWA#@^^'R#@^ 6RBKKN!LE )@@G@@/@K@N.'=@@@IL8K@@]N@.@@@RA.@@[RB,@@@P;)@@[AB)@L0/K@@ML&;@@]K/K@@N('^@@PILF )@@G@@/\0@O_A#@^ ^A#@^^FR#@^ 7'=@@@I/K@@OM'^@@PI/\0@O_A#@^ G9?@^ H/K@@OJ'^@@PILG )@@G@@/\0@O_A#@^ G9?@^ J9*@^ R#@^ 8'=@@@I(^@^^G/K@@N&R#@^ 9'=@@@I'^@@OYR#@^^?LH )@@G@@A#@^^=N80@#C*@@^^F/K@@O4RBK^^G/K@@NB/K@@@@RB@@O>/@@KOYAB@@OY ^@@O>'^@@PPLI )@@G@@/K@KOY/S@@@@'^@@PIRB@^ "(CG@@@P;@@@[OF@^ "R#K^ 'N@/@@@/\0@P@/K@@OM/K@@O1LJ )@@G@@N@0KO\'^@@PIR#K^ ;/K@@O!R]0^^L @@^^F*CF@@@*4F@@@/K@@O.R;V@@@RFF@@@A#K^^GLK )@@G@@/K@@M2O'0@@[/K@@O6R#K^ /A#K^^=R#@^ .(^@@O>'=@@@I^@0^^GRF@^^G'^@@PWA#@^^%LL )@@G@@R#@^ 4RBK^^G*@@@@HR#H@@@A#@^^?/KJ@@@/K@@@@A]0^^L9*@^^M9*)^^O9(@^^Q^@0^^SLM )@@G@@/K@@PI/K@@@@R]0^^L9?@^^M9?)^^O9!@^^QN@0^^S/K@@PP/K@@@@;G@@@MR;)@@ Q;K@@ALN )@@G@@;@K@@#;?@@@A8#)@PZ/K@@PW/S@@@@/S@@@@/S@@@@(^@@LF/K@@P:*^@@P&/K@@P2/S@@@@LO )@@G@@(^@@P&'=@@@D'=@@@6)8@@K@R#@@@H'=@@@5R#@^ _C8K@@[[@K^ _/^@@P'*^@@K'/K@@P/LP )@@G@@*^@@LF/K@@P/ @@@@G'=@@[[(@@@P>'^@@PP*^@@LF/K@@Q['=@@@)R#@^A@A#@@P>/K@@@@LQ )@@G@@/KF@@[R#W@@DR#?@@CR#.)@@ @@@[] @@@[#A#/@@E;C0@@Y:80@@_/KF@@[A#W@@DR#/@@ELR )@@G@@;K0@@S/C0@QNR3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@R"N@K@@JLS )@@G@@M#!)@@A#W@@D*@@@[]/K@@R1R#/@@E;K0@@S/C0@Q=R3/@@EPB/@@B/G0@R@C G@@DG[@@@JLT )@@G@@[ G@@DC W@@AGDW@@^H[@@@L/H@@R@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@Q8LU )@@G@@%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@Q&LV )@@G@@R#W@@DC5X@@@%9K@@(/KF@@]0@G@@E/K@@RCR;0@Z_/K@@RDR;0@@_C[W@@E;LK@@S/DK@RHLW )@@G@@C1W@@E![K@@J/K@@R;C[@@@LG1H@@@! W@@B/K@@R6?@0@@K/K@@R)? G@@B/K@@RYC[K@@KLX )@@G@@H W@@B?@0@@KC[@@@JH1X@@@D@0@@L/K@@R$R3.@@@/K@@R$!^/@@B/K@@RRC[K@@KH[K@@JLY )@@G@@H1X@@@C[@@@JD@0@@L[1G@@E0@G@@E/K@@R?;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[A#W@@DLZ )@@G@@/K@@QPR#0@[]P#0@[#/@0@R@/G0@R@/K@@Q&[1G@@E0@G@@E/K@@R;;D@@@A[5G@@ER3.@@@MA )@@G@@O;0@@[/K@@Q&P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#MB )@@G@@/[K@SH%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@DMC )@@G@@/K@@QP @@@@HOBW@@AC[K@@G9??@@@RBG@@A9*?@@@'=@@[GR7?@@AR#@@@L!8)@@S!8)@@)MD )@@G@@/K@@S\RF?@@B?8)@@^/K@@S\+/)__/C[G@@ AF/@@B+9@@@#T80@@WH[@@@L%C?@@BAF/@@^ME )@@G@@T9K@@WO#K@@L[[G@@ ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#MF )@@G@@/[K@S.%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AMG )@@G@@C[W@@ GDW@@B[[W@@ /KF@@@C@@ KFR@K@@G/,0[,/@@@ J;@@@ K@@@@ I(@@@ K[@@@ K]MH )@@G@@@[E KD @@ I,C@@ J;[@@^A#[@@^A^ @@@@@ @@@@@C_0@@[N_0@@[[#0 KOC@@ KOT/@@DSMI )@@G@@[@@ KGC_)@@[N_)@@ [#) KPC@[^OP[@@ KQR@) KGO@) KQO/)_6&N8M^Y"^^K@T*/,0[!=MJ )@@G@@@@@@T*@@@ KP@[R KD:@@ K#/K@@T4C@@@@@G/@@@[[@@@@@G_)@@[8N)@TZG_0@@[8N0@TTMK )@@G@@C_0@@#N_0@@[[#0 KOC@@ KOT/@@DS[@@ KGC_)@@[N_)@@ [#) KPC@[^OP[@@ KQR@) KGML )@@G@@O@) KQO/)_6&N8M^Y"^^K@U /,0[!=@@@@U @@@ KP@[= KD:@@ K#/K@@ULC@@@@@G/@@@[MM )@@G@@[@@@@@G_)@@[8N)@T/G_0@@[8N0@T6C@@@@@G@@@@@[@@ I,C/@@@A?@@@@@/K@@U=C@[^OPMN )@@G@@[@@ KQR@) KQN8M^Y.^^K@UX/,0[,I@@@@UX@@@ K[@@@ I(@@@ K[@@@@@@@[, KD/K@@U/MO )@@G@@C@[^OP[@@ KQR@) KQN8M^Y.^^K@U%/,0[,I@@@@U%@@@ K[@@@ I(@@@ K[@@@ K^@[2 KDMP )@@G@@C@@@@@G/@__9[@@ KRN8M^*P^^K@U6/,0[,I@@@@U6@@@ K[@@@ I(@@@ K @@@ KR@[4 KDMQ )@@G@@C@@ I([@@^A[C@) I%[@)^A](@@@@@/K@@WYC@@ I,G/@@@[[@@ I,C@)@@@G/)@@[[@) KSMR )@@G@@/,0[!Q@@@ J"@@@ K[@[/ KD[@@ KG/,0[!!@@@ KG@@@ I(@@@ KS@[/ KDC@@ KSG/@@@[MS )@@G@@[@@ KSC/@@@A?@@@@@/K@@V,C@[^OP[@@ KQR@) KQN8M^1!^^K@VY/,0[,I@@@@VY@@@ K[MT )@@G@@@@@ I(@@@ KS@@@@@@@][ KDN8M^1!^^K@V$/,0[,I@@@@V$@@@ K[@@@^A#@@@ K[@@@@@@MU )@@G@@@]] KD/K@@WYC@[^OP[@@ KQR@) KQN8M^1!^^K@V4/,0[,I@@@@V4@@@ K[@@@ I(@@@ KSMV )@@G@@@@@ K^@] KDN8M^1!^^K@V./,0[,I@@@@V.@@@ K[@@@^A#@@@ K[@@@ K^@]A KDC@@ KSMW )@@G@@G/@@@A[@@ KSC@)@@@G/)__9[@) KTC[[^OP[[@ KQR@) KQN8M^; ^^K@WJ/,0[,I@@@@WJMX )@@G@@@@@ K[@@@ I(@@@ KS@@@ KT@]E KDN8M^; ^^K@WS/,0[,I@@@@WS@@@ K[@@@^A#@@@ K MY )@@G@@@@@ KT@]F KDC@[^OP[@@ KQR@) KQN8M ^X^^K@W=/,0[!Q@@@@W=@@@ KA@]I KD[@@@@@MZ )@@G@@N@0@W%/K@@W%RA0 KE9\) KHR@K KJR@) KKN#) KLN#0 KM/K@PKBAA0 KE9:) KHA@K KJNA )@@G@@A@) KK^#) KL^#0 KMC@VK@@[@K KFC8FK@[[^@@T![^@@UL[^@@U-[^@@UP[^@@V [^@@T\NB )@@G@@[^@@U0[^@@TPC8FK@][^@@V+[^@@UM[^@@V:[^@@WA[^@@UE[^@@VQ[^@@V@[^@@TQ[^@@UGNC )@@G@@C8FK@#[^@@W$/K@@TC/,0@L<@@@@@@/,0@3P@@@ I@@@@ L#@[&@@@/,0@3/@@@ L^@@@ L ND )@@G@@@@@ K)@[$@@@/,0[NF@@@ K<@@@ LA@@@ KZ@[*@@@D@@ KZ/G@@X+/^@@Y%/,0 -%@@@ L^NE )@@G@@@[:@@@[@@ IQC@@ KU+@@ IQ(@@@@H/K@@X?C/@@@#[@@^OOC@@ KV+@@ IQ(@@@@H/K@@X2NF )@@G@@C/@@@[[@@^OPC@@ KW+@@ IQ(@@@@H/K@@X8C/@@@[[@@^L!C@@ KX+@@ IQ(@@@@H/K@@X"NG )@@G@@C/@@@[[@@^L,C@@ KY+@@ IQ(@@@@H/K@@Y^C/@@@[[@@^K7/,0[DA@[6@@@/,0[ G@[7@@@NH )@@G@@/,0@9X@[8@@@/,0[>4@[9@@@/,0[NF@@@ K$@@@ LA@@@ KZ@['@@@/,0[NF@@@ K:@@@ LANI )@@G@@@@@ KZ@[;@@@/,0[NF@@@ K\@@@ LA@@@ KZ@[/@@@D@@ I_/C@@YLC8N0@Y5NL )@@G@@(@@ J9/K@@Z]/,0[,I@@@ J*@@@ LT@@@ LD@@@ LU@@@ J9@[M LZ/K@@ZD/,0[,I@@@ J*NM )@@G@@@@@ LT@@@ LD@@@ LU@@@ LV@[O LZ/,0[\4@@@ LD@@@ LW@[Q LZ(@@ J@/K@@ZN/,0@$5NN )@@G@@@@@ LW@@@ LD@[T LZN@0@ZP/K@@ZQ@[V LZR]0 L)R@K L-N#0 L+*4@PLX/K@PLX/K@@N_NO )@@G@@AA0 L)A@K L-^#0 L+/K@@Y3/,0[6D@@@^X,@@@^A[@@@^A#@@@ L=@@@ MW@@@ O9@@@ O'NP )@@G@@/K@@-D@[- PFC_)@@[N_0@#B[#) O;/,0[64@@@ NO@@@ O"/K@@- @[> PFC@@ NOH@@ O_NQ )@@G@@/^@@Z8C/@@@B[@@^X4/K@@-DC@@ NO;C@@@S[@@ O/G/@_7'/@@@)0C@@ O/G/@_]'/@@@))NR )@@G@@C4@ NO[@@ O/C@@ O/G/@___/@@@- /,0[6@@@@ N+@@@ N&@@@ P@@[2 PF/,0[50@@@ NONS )@@G@@@@@ P@@@@ P[@@@ L<@@@ O./K@@)N@[3 PF/K@@- /,0[6@@@@ N*@@@ N2@@@ P]@[6 PFNT )@@G@@/,0[50@@@ NO@@@ P#@@@ P^@@@ L<@@@ O./K@@)<@[7 PFC/@@@][@@^X4/K@@-D/,0[6@NU )@@G@@@@@ N7@@@ OV@@@ P @[; PF/,0[50@@@ NO@@@ PA@@@ P^@@@ L<@@@ O./K@@)3@[/ PFNV )@@G@@C/@@@^[@@^X4/K@@-D/,0[6@@@@ O!@@@ O5@@@ PB@]@ PF/,0[50@@@ NO@@@ PC@@@ P^NW )@@G@@@@@ L<@@@ O./K@@-#@][ PFC/@@@#[@@^X4/K@@-DG_)@@[8N0@Z?C/@@@[[@@^X4/,0[L3NX )@@G@@@]B PF/,0[7R@]D PFN@0@-H/K@@-I@]E PFR]0 PG9\) PHN#0 PJ*4@PPD/K@PPD/K@@N_NY )@@G@@AA0 PG9:) PH^#0 PJ/K@@Z)0@@ PN'=@@@A9?FK@@9*@ PKC8@ P+&;@@#)[@@ PO&;@ T]NZ )@@G@@[@@ PQC8@@@C[C@ PRC8@ PKCCW@@^[^W@@BC8K@@W[CW@@^C^W@@A[^W@@^[^W@@DC8K@@[OA )@@G@@[CW@@D[CW@@CC8K@@K[0W@@# @G@@ '=@@@#*4G@@#/K@@+WC@0 P+:@0 W+/K@@-'C@@ PVOB )@@G@@'=@@@I/K@@+WC8K@@ [@W@@ '=@@@#*4G@@#/K@@+WC^W@@AC^X@@V[^W@@EC^W@@B[CW@@^OC )@@G@@ ^G@@BC8K@@A[@W@@ '=@@@#C4W@@#(4G@@#/K@@+H%8K@@ /K@@+WC^W@@#[CW@@E(@@@@HOD )@@G@@/K@@+WC@W@@ GCW@@B[@W@@ C@W@@A;@K@@M[@W@@A[^W@@^'=@@@[;@K@@M[@W@@A/KF@@^OE )@@G@@C4@ PN[@FK@[/KFK@]C^F@@@[^@ PSC8@ PKC^W@@B:^W@@E/KFK@#C@W@@CC@?@@DC^/@@AOF )@@G@@GC/@@EH80@@E?8"@@@/K@@+3N8K@@EM#Y)@@[@?@@DC^W@@BG8K@@[[^W@@B/KF@@ C^/@@AOG )@@G@@GC/@@EH8"@@@N8Z@@@C80@@EH@0@[[*@@@[[M#Y)@@0@G@@#'=@@@AC4?@@#(4G@@#/K@@<]OH )@@G@@%8)@@ /K@@@@@^AT@@@ W&@@@ W$@[B W!/,0[,/@@@ J;@@@ W>@@@^A*OK )@@G@@@@@ W&@@@ W$@[C W! @@ WF@[J Z /,0[\C@@@ Y5@@@ Y8@@@ Y_@@@ W\@@@ X$@@@ Z[@@@ Y1/K@@>F@[K Z OR )@@G@@/,0[64@@@ YZ@@@ Z]/K@@>B@[L Z /,0[\4@@@ YZ@@@ Z]@[M Z /,0@?4@@@ Y"@@@ Z]OS )@@G@@@@@ YZ@[N Z /K@@=8/,0[7R@[P Z /,0[0A@[Q Z N@0@>H/K@@>I@[S Z R]0 ZA*4@PZ#OT )@@G@@/K@PZ#/K@@N_AA0 ZA/K@@=UR#F@@[R#V@@@;*K@@M;?@@@M'=@@@H/KF@@#C/@@@[[@@^LTOU )@@G@@C/)@@#G@)@@@[@)@@@C[@ ZT[[@^LUC.)@@A[[)^LB/,0[1J@@@^B@@@@@@@@@@ ZU@@@ ZBOV )@@G@@/K@@$M@[V Z=C/@@@[G@@ ZB[@@@@@/,0[!=@@@^B@@@@ ZB@[X Z=H@@ ZV/@@@&G/,0[!=OW )@@G@@@@@^B@@@@ ZB@[Z Z=H@@ ZW/@@@&J/,0[!=@@@^B@@@@ ZB@[- Z=H@@ ZX/@@@&M/,0[!=OX )@@G@@@@@^B@@@@ ZB@[< Z=H@@ ZY/@@@&P/,0[!=@@@^B@@@@ ZB@[> Z=H@@ ZZ/@@@&*/K@@&UOY )@@G@@C/@@@[[@@^L%/K@@>/K@@$&@]H Z=R]0 Z>9!) Z&*4@PZ+/K@PZ+/K@@N_AA0 Z>PG )@@G@@9() Z&C8FK@@[^@@$^[^@@&![^@@>?[^@@>>[^@@>Y[^@@>X/K@@>UR#FK@@R#V@@[;*K@@MPH )@@G@@;?@@@M'=@@[S/KF@@#(@@^L%/K@@(AC@@ IRG/@__"C_)@@[[@@@[J[#)^X'/,0@W1@@@^X'PI )@@G@@@@@^X8@@@^X9@@@ Z*@[M Z8C/@@@^H@@ Z*/C@@*G/^@@(^R@K Z2N_)@@HC@[^LT[@[=LCPJ )@@G@@8N)@*I/,0[!!@@@ Z?@@@^LD@@@^LB@[U Z8/,0[,I@@@ J)@@@ Z3@@@^LD@@@^LA@@@ J8PK )@@G@@@[V Z8C@@^LAG@@ J8[@@ Z%/,0[,I@@@ I(@@@ Z3@@@^LD@@@ Z%@@@ I,@[X Z8(@@^L(PL )@@G@@/K@@(@C@@ Z%G@@ I,[@@ Z:/,0[!Q@@@ J.@@@ Z3@[- Z8[@@ Z'/,0[!!@@@ Z'@@@^LDPM )@@G@@@@@ Z:@[- Z8C/@@@[G@@ Z:[@@ Z:/,0[,I@@@^L*@@@ Z3@@@^LD@@@ Z:@@@^LC@[< Z8PN )@@G@@/,0[\4@@@^LD@@@ Z4@[> Z8G_)@@[8N0@*[C@@ IRG/@__"(@@^L:/K@@%XC_)@@[[@@@[JPO )@@G@@[#)^X'/,0@W1@@@^X'@@@^X8@@@^X9@@@ Z*@[, Z8C/@@@ H@@ Z*/^@@%VR@K Z2N_)@@HPP )@@G@@C@[^LT[@[=LC8N)@(S/,0[!!@@@ Z,@@@^LD@@@^LB@[6 Z8(@@ J9/K@@(!/,0[,I@@@ J*PQ )@@G@@@@@ Z3@@@^LD@@@^LA@@@ J9@[9 Z8C@@^LAG@@ J9[@@ Z%/K@@(7/,0[,I@@@ J*@@@ Z3PR )@@G@@@@@^LD@@@^LA@@@ Z5@[. Z8C/@@@ G@@^LA[@@ Z%/,0[,I@@@ I(@@@ Z3@@@^LD@@@ Z%PS )@@G@@@@@ I,@]@ Z8(@@^L(/K@@%RC@@ Z%G@@ I,[@@ Z:/,0[!Q@@@ J.@@@ Z3@]^ Z8[@@ Z'PT )@@G@@/,0[!!@@@ Z'@@@^LD@@@ Z:@]^ Z8C/@@@[G@@ Z:[@@ Z:/,0[,I@@@^L*@@@ Z3@@@^LDPU )@@G@@@@@ Z:@@@^LC@]A Z8/,0[\4@@@^LD@@@ Z4@]C Z8G_)@@[8N0@(GC@@ IRG/@__"(@@^L?PV )@@G@@/K@@:4C_)@@[[@@@[J[#)^X'/,0@W1@@@^X'@@@^X8@@@^X9@@@ Z*@]L Z8C/@@@AH@@ Z*PW )@@G@@/^@@:2R@K Z2N_)@@HC@[^LT[@[=LC8N)@%\/,0[!!@@@ Z0@@@^LD@@@^LB@]T Z8(@@ J9PX )@@G@@/K@@:^/,0[,I@@@ J*@@@ Z3@@@^LD@@@^LA@@@ J9@]W Z8C@@^LAG@@ J9[@@ Z%/K@@:IPY )@@G@@/,0[,I@@@ J*@@@ Z3@@@^LD@@@^LA@@@ Z5@]) Z8C/@@@ G@@^LA[@@ Z%/,0[,I@@@ I(PZ )@@G@@@@@ Z3@@@^LD@@@ Z%@@@ I,@]< Z8(@@^L(/K@@:,C@@ Z%G@@ I,[@@ Z:/,0[!Q@@@ J.QA )@@G@@@@@ Z3@]$ Z8[@@ Z'/,0[!!@@@ Z'@@@^LD@@@ Z:@]$ Z8C/@@@[G@@ Z:[@@ Z:/,0[,IQB )@@G@@@@@^L*@@@ Z3@@@^LD@@@ Z:@@@^LC@]( Z8/,0[\4@@@^LD@@@ Z4@]: Z8G_)@@[8N0@%Z_8N0@?DQE )@@G@@(@@ J9/K@@?Q/,0[,I@@@ J*@@@ )L@@@ )@@@@ )M@@@ J9@[L )R/K@@?X/,0[,I@@@ J*QF )@@G@@@@@ )L@@@ )@@@@ )M@@@ )N@[O )R/,0[\4@@@ )@@@@ )O@[P )R(@@ J@/K@@?$/,0@$5QG )@@G@@@@@ )O@@@ )@@[S )RN@0@?(/K@@?%@[U )RR]0 )SR@K )TN#0 )U*4@P)P/K@P)P/K@@N_QH )@@G@@AA0 )SA@K )T^#0 )U/K@@? R#FK@@R#VK@[;@K@@A;?@@@AR#V@@];*K@@M;?@@@M'=@@@IQI )@@G@@/KF@@^/,0[,/@@@ J;@@@ )8@@@ I\@@@ )9@@@ )'@[E -#C@@ );[@@ I\/,0[\4@@@ I\QJ )@@G@@@@@ )'@[G -#(@@ J@/K@@!K/,0@$5@@@ )'@@@ I\@[J -#C@@ )/[@@ )VC@) ).[@) )(QK )@@G@@R@K )"N_0@@GC@@ J;[@[ )U[@[>)*8N0@!Q(@@ J9/K@@!:/,0[,I@@@ J*@@@ )9@@@ )VQL )@@G@@@@@ )_@@@ J9@[V -#/,0[,I@@@ J*@@@ )9@@@ )(@@@ )_@@@ J9@[W -#/K@@!9/,0[,IQM )@@G@@@@@ J*@@@ )9@@@ )V@@@ )_@@@ -@@[Z -#/,0[,I@@@ J*@@@ )9@@@ )(@@@ )_@@@ -@QN )@@G@@@[) -#/,0[\4@@@ )V@@@ )'@[- -#/,0[\4@@@ )(@@@ )'@[+ -#(@@ J@/K@@,F/,0@$5QO )@@G@@@@@ )'@@@ )V@[> -#/,0@$5@@@ )'@@@ )(@[& -#N@0@,H/K@@,I@[* -#R]0 -^R@K - QP )@@G@@N#0 -A*4@P-[/K@P-[/K@@N_AA0 -^A@K - ^#0 -A/K@@?.C/@@@D[@@ -DR@K -D(@[^Y&QQ )@@G@@/K@@\IC@) J_[@) J#N8L^L,^^K@,=N8L^OC^^K@,*/,0[,I@@@@,=@@@ -U@@@ J#@@@ -VQR )@@G@@@@@@,*@[X -+C@[^OCG/@@@[[@@ JZC@-^Y1H@) -W/@)@\1G/@@@[[@@ JZ/,0[!!@@@ -KQS )@@G@@@@@ J#@@@ JZ@[+ -+C_)@@[N_0@@ [#) -EN8L^Y1^^K@,./,0[!Q@@@@,.@@@ -E@[& -+QT )@@G@@[@@ -FG/@__'/@@@\FC/@@@[G@@ JZ[@@ JZ/,0[!!@@@ -F@@@ J#@@@ JZ@[% -+G_)@@[QU )@@G@@8N0@,9/K@@\1R@K -DC@@ -D;@@@@<(@[^YV/K@@\*N8W^Y^^^K@\VN8L^Y1^^K@\T[@@ -=QV )@@G@@/,0[,I@@@@\T@@@ -U@@@@\V@@@ -X@@@ -X@[1 -+R@K -=C@[^Y^[@@ J#C@-^Y [@) J^QW )@@G@@C.@@@ G[@^A [[@ JZ/K@@\1R@K -DC@@ -D;@@@@/^)@\'G/@@@[[@@ JZ/K@@0,C@@ JZG/@__"QY )@@G@@C_)@@[[@@@[J[#) -E/,0[!Q@@@ J#@@@ -E@]# -+[@@ -FG/@__L/@@@0KG_)@@[8N0@\"QZ )@@G@@/,0[!!@@@ -M@@@ J#@@@ JZ@]C -+C/@@@[G@@ JZ[@@ JZC/@@@#H@@ ->/^@@0-/,0[!QRA )@@G@@@@@ -B@@@ -U@]G -+[@@ -=/,0[!!@@@ -=@@@ J#@@@ JZ@]G -+C/@@@]G@@ JZ[@@ JZRB )@@G@@/K@@0,/,0[!Q@@@ -C@@@ -U@]J -+[@@ -=/,0[!!@@@ -=@@@ J#@@@ JZ@]J -+C/@@@]RC )@@G@@G@@ JZ[@@ JZ/,0[,I@@@ J)@@@ -U@@@ J#@@@ JZ@@@ J8@]M -+C@@ JZG@@ J8[@@ JZRD )@@G@@/,0[,I@@@ I(@@@ -U@@@ J#@@@ JZ@@@ I,@]O -+C@@ I,G@@ JZ[@@ JZ/,0[!!@@@ -ORE )@@G@@@@@ J#@@@ JZ@]Q -+C/@@@[G@@ JZ[@@ JZ @@^K6D@) J'/C)@20/@)@20C@) J'H@) J8RF )@@G@@/^)@1>C@) J8G/)__"C_)@@[[@)@[J[#) -G/,0[!Q@@@ J)@@@ -G@]) -+[@@ -H/,0[!QRG )@@G@@@@@ J0@@@ -G@]- -+[@@ -IH@@ -H/^@@1>G_)@@[8N0@1P/K@@20C@@ JZ[@@^K6/,0[,/RH )@@G@@@@@ -Q@@@ -Y@@@^KU@@@ -U@@@ -Z@]( -+/,0[,I@@@ J#@@@ -U@@@^KU@@@ -U@@@^K6RI )@@G@@@]% -+/,0[,I@@@ J0@@@ -U@@@^KU@@@^K6@@@ J'@]: -+C@@^K6G@@ J'[@@^K6/,0[,IRJ )@@G@@@@@ I(@@@ -U@@@^KU@@@^K6@@@ I,@]! -+C@@^K6G@@ I,[@@^K6C_)@@[N_0@@X[#) -GRK )@@G@@/,0[!Q@@@^KU@@@ -G@]2 -+[@@ -FG/@__L/@@@2QG_)@@[8N0@2F/K@@20C/@@@YH@@ -GRL )@@G@@C#) -G[@@@[J[#) -J/,0[!Q@@@^KU@@@ -J@]; -+[@@ -FG/@__'/@@@20C@@ -FG/@__,RM )@@G@@/@@@2:C@@ -FG/@__$/@@@2:G_)@@[8N0@2U/K@@20/,0[!!@@@ -S@@@^KU@@@ -J@# -+RN )@@G@@/,0[,I@@@ J)@@@ -U@@@ J#@@@ JZ@@@ J8@#B -+C@@ JZG@@ J8[@@ JZ/,0[,I@@@ I(RO )@@G@@@@@ -U@@@ J#@@@ JZ@@@ I,@#D -+C@@ I,G@@ JZ[@@ JZN@0@3A/K@@3B@#G -+R]0 -RQ )@@G@@/K@@,SC@VK@[[?K -?C^:@@@[^) -?A]0 -8C8@ -?/,0@C@/,0@CRR]0 -8/KF@@#C@FK@@RR )@@G@@[@@ -/'^@ -"/KF@@]R;@@@@A#@ -/R#@ +WA#@ +^'^@ -"R#@ +XA#@ +^/KF@@[C4FK@@RS )@@G@@[0@ -?/KF@@]C0@ -!S8@@@AG4K -!G8K@@[[@VK@@/KF@@]C[@ -./K@@38C[FK@@O'0@@[RT )@@G@@R;0@@#/K@@4FC[@ -./K@@3"C[FK@@O'0@@[C80@@]/K@@4FC[@ -./K@@4^C[FK@@O'0@@[RU )@@G@@C80@@[/K@@4FC[@ -./K@@4EC[FK@@O'0@@[C80@@@[[@ -/[@0 -9C@VK@@/CK@4SC^) -?RV )@@G@@[^)@4OC?0 -?H80@@[C@@ +A[@J@@@8#0@4O W@ -!/K@@4+/@K@4+%8K@@[/K@@4X W@ -!RW )@@G@@/K@@4+C8@@@@H8K@@[W8@@@A[0@ -![4K -!A]0 -8C8@ -?/,0@CHR]0 -8C@@ -9%8@@@]RX )@@G@@/K@@4\C^F@@[/,0@D-/,0@CR'^@ -"R]0 -8/KF@@#A[@ -6A[K -7R F@@[&9@@@[C@FK@]RY )@@G@@[@@ -'(CF@@#/K@@4'R9K@@@ @@ -;/K@@5@R[VK@#P9K@@[C@FK@^[@@ -;O'0@@]A]0 -8RZ )@@G@@(@@ -;/K@@5DC@K -;/GK@5BC8@ +A/,0@DL/K@@5DD@@ -;/,0@C2C@K -'R#@ -9/@@@5LSA )@@G@@?8@@@]/K@@5OR;^)@@/,0@DL/K@@5VR#^)@@/,0@EH/K@@5V?8K@@H/K@@5TC8@@@ /,0@C(SB )@@G@@8#K@5OC@^)@@/,0@E 8[K@5@/,0@CRR[@ -6R[K -7'^@ -"R]0 -8/KF@@^/,0[\4@@@ +@@@ +2@[M +'(@@ J@/K@@54/,0@$5@@@ +1@@@ +*@[P +'SD )@@G@@/,0@$5@@@ +2@@@ +%@[Q +'C@@ IRG/@__"C_)@@[[@@@[J[#)^X'R@K +)N8L ^X^^K@5.SE )@@G@@/,0[!Q@@@@5.@@@ +3@[V +'[@@ +-H@@ +Y/^@@7>N8L ^X^^K@6A/,0[!Q@@@@6A@@@ +4SF )@@G@@@[Y +'[@@^X4/G@@6G/^@@6O/,0@W1@@@^X'@@@^X8@@@^X9@@@ +-@[- +'/,0@-O@[+ +'SG )@@G@@C@@ +ZH@@^X4/^@@7>/,0@W1@@@^X'@@@^X8@@@^X9@@@ +-@[& +'/,0[,/@@@ J;@@@ +5SH )@@G@@@@@ IU@@@ +1@@@ +6@[$ +'(@@ J'/K@@61/,0[,I@@@ J0@@@ +1@@@ IU@@@ +1@@@ J'SI )@@G@@@[% +'C/@@@[G@@ J'[@@ ++/K@@6;/,0[,I@@@ J)@@@ +1@@@ IU@@@ +1@@@ J8@[, +'SJ )@@G@@C/@@@[G@@ J8[@@ ++/,0[,I@@@ I(@@@ +1@@@ IU@@@ ++@@@ I,@[0 +'(@@ I*/K@@7VSK )@@G@@C@@ ++G@@ I,[@@ ++/,0[!Q@@@ J.@@@ +1@[4 +'[@@ +//,0[!!@@@ +/@@@ IU@@@ ++SL )@@G@@@[4 +'C/@@@[G@@ ++[@@ ++/,0[,I@@@ IS@@@ +1@@@ IU@@@ ++@@@ +7@[6 +'/,0[\4SM )@@G@@@@@ IU@@@ +6@[7 +'(@@ J@/K@@7>/,0@$5@@@ +6@@@ IU@[' +'G_)@@[8N0@58/,0[\4SN )@@G@@@@@ +!@@@ +1@[. +'(@@ J@/K@@71/,0@$5@@@ +1@@@ +\@]@ +'N@0@73/K@@74@][ +'SO )@@G@@R]0 +;9\) +.R@K +_N#0 <@*4@P+8/K@P+8/K@@N_AA0 +;9:) +.A@K +_^#0 <@/K@@5+SP )@@G@@ @@ IR/,0@-S@@@^X,@@@ ?T/K@@8$@[I ?0/,0@+Z@@@ H6@@@ ?T/K@@8$/K@@8'@[J ?0SQ )@@G@@C/@@@[G@@ IR[@@ IRG/@_6$/G@@8M/^@@83R@K IRD@@ H9/G@@8Q/^@@8/@@@ ?V@@@^OQ@@@ <[@@@^Y"@@@^*Q@@@^1,@@@^;A@@@ ^Y@[, ?0N@0@9O/K@@9PSW )@@G@@@[0 ?0R]0 ?19!) ?29,@ ?4R@K ?6N#0 ?7*4@P?,/K@P?,/K@@N_AA0 ?19() ?29%@ ?4SX )@@G@@A@K ?6^#0 ?7/K@@8@R8VK@[R8:K@@C4[@@@G/@__R/@@@9:N@0@9%/K@@'$@[C ?"C@]@@@SY )@@G@@[@@^A7C@+@@[[@)^A8/,0[,/@@@ ?9@@@ ?9@@@^A9@@@ ?'@@@ ?;@[F ?"/,0 1O@@@^A7SZ )@@G@@@[G ?"C_)@@[N_0@@F[#) ?8/,0[!Q@@@^A;@@@ ?8@[K ?"G/@__'/@@@'AG_)@@[8N0@9;TA )@@G@@C/@@@H[@@ ?8C@@ ?8G/@__"[@@ ?8/,0[,I@@@@@@@@@ ?'@@@^C"@@@ ?'@@@@@@@[Q ?"TB )@@G@@/,0[,I@@@^A;@@@ ?'@@@@@@@@@ ?'@@@ ?8@[R ?"C/@@@[G@@ ?8[@@ !@/,0[,I@@@^C"TC )@@G@@@@@ ?'@@@@@@@@@ !@@@@@@@@[S ?"C@@ ?8G@@@@@[@@@@@N@0@'&/K@@'$@[U ?"R]0 ?_TD )@@G@@9\) ![R@K !#R@) !^N#0 ! *4@P?//K@P?//K@@N_AA0 ?_9:) ![A@K !#A@) !^^#0 ! TE )@@G@@C8FK@[[^@@'X[^@@'N[^@@'EC8FK@][^@@'Z[^@@'+[^@@'I[^@@'Q@V@@]R8)@@B @[)@@8@)@;( @FK@#RB@ !IR#G@@@/^@@;3R#@ !ITJ )@@G@@/,0@E1/K@@"$R]0 ,FR#FK@@/,0@F:/K@@"K(@@ ,+/K@@./R]0 ,FR#F@@[R#V@@]R#;@@[TK )@@G@@9*@ ,)A[K ,VC[K ,+:9K@@[/,0@.EC[K ,+%9K@@]/K@@/C9?@ ,Y/,0@HRR#@ ,N'=@@@JTL )@@G@@C[K ,+%9K@@#/K@@/U9?@ ,Y/,0@HRR#@ ,N'=@@@J/,0@.ER;@^@AR#0 ,)/,0@/$C9@@@.TM )@@G@@/S )@@')I).@R;@ ,H@@@/\@@/;C-H)@@[^@@/_Q;@@@@/K@K/_@@@@@@[5J@@@[1J@@@[!J@@@[(J@@@TQ )@@G@@[>J@@@/\)@.A[-J)@@[^)@/_Q;)@@@/K@K/_9?@ ,P9*@ ,<9*@ ,>9*@ ,$9*@ ,(9*@ ,:TR )@@G@@9*@ ,!9*@ ,\(4@^@J/KF@@@9?@^@R9*@ ,((0@^@J/K@@.WR#@ ,RA#@ ,:9?@^@T9*@ ,?TS )@@G@@(?@^@J/K@@.,(N8)@@A8K)@.!/K@@.$ @@@@J;?0@@A%80@@ ')H).6:@K ,U/SI)@@:@K ,UTU )@@G@@R#K ,O/K@@.:A7" ,O@@@^B@/K@[ ]@[: 0%/,0@?4@@@ 0U@@@ 0V@@@^B@@[? 0%C@@ 0W[@@ ,5UB )@@G@@/,0[2'@@@^B@@@@ 0U@@@ 0X@@@ \#@@@ 0U@@@ ,6/K@@_W@[, 0%/,0[AP@@@^B@@@@ 0UUC )@@G@@@@@ 0X@@@ 0Y@@@ \ @@@ ,5@@@ ,7@@@ ,1@[\ 0%/K@@_&/,0[AP@@@^B@@@@ 0U@@@ 0XUD )@@G@@@@@ 0Y@@@ \B@@@ ,5@@@ ,7@@@ ,1@[1 0%R/K@@[N_0@@MA@K^Y.C@@ ,5H@@ 0Z/^@@_,UE )@@G@@C@@ 0)[@@ ,5C@[^A H@@ ,5/@@@_4O/K@@[8N0@_*/K@[^-C@)^Y.?8)@@O/C,@_7'^@@N!UF )@@G@@/K@[@G/K@[@G/K@[@G/K@[@G/K@[@G/K@[@G/K@[@G/K@@"6/K@[@G/K@[]F/K@[^Y/K@[#HUG )@@G@@/K@[#M/K@[#P/K@[#T/K@[#W/K@[#Z/K@[^U/K@@"6@[. 0%C/@@@#G@@ ,1[@@ ,1/,0[2'UH )@@G@@@@@^B@@@@ ,1@@@ 0X@@@ \D@@@ 0U@@@ ,6/K@[@"@]@ 0%R@K^Y.C/@@@[[@[^Y&G@@ ,6UI )@@G@@[@@ ,8/,0[?J@@@ \F@@@ 0U@]# 0%R@K^Y.N8L^L,^^K[@*/,0[?G@@@^B@@@@ ,8@@@ 0XUJ )@@G@@@@@[@*@@@ ,9@@@ ,'@@@ ,;@@@ ,/@]^ 0%R@K^Y.C@@ ,'[@[^OCG@@ ,9[@@ ,1D@) ,'UK )@@G@@/C)[@6/^)[@"/,0@3/@@@ 0U@@@ 0-@@@ \H@]D 0%R@K^Y. @[^Y&/K@[^-R@K^Y.C@@ J;UL )@@G@@[@[^Y1C/)@@[[@-^YV @@ ,3C/@@@[G@@ ,1[@@ ,1/,0[1J@@@^B@@@@ ,1@@@ 0X@@@ ,.UM )@@G@@/K@@"6@]L 0%/,0[!Q@@@^B@@@@ ,.@]M 0%[@@ ,"G/@__#/@@[[XC@@ ,"G/@__9/C@[[TUN )@@G@@/^@[[/C/@@@ZH@@ ,"/C@[[X/^@[[/C@@ ,.[@@ ,1C/)@@[G@) ,3[@) ,3C/@@@DH@@^Y.UO )@@G@@/^@[[$C@@ ,3[@@^A R@K^Y.C/@@@AH@@ ,3/C@[[?/^@[[4N8L^Y1^^K[[0/,0[!!@@@ ,"UP )@@G@@@@@[[0@@@ ,3@]Z 0%/K@[[^/,0@3/@@@ 0U@@@ 0-@@@ \N@]- 0%R@K^Y. @[^YV/K@@"6UQ )@@G@@/,0@3'@@@ 0-@@@ \V@]= 0%/,0@4@@@@ 0+@@@ ,"@@@ 0<@]> 0%/,0@3/@@@ 0U@@@ 0=UR )@@G@@@@@ \+@]& 0%/K@[[^C/@@@#G@@ ,1[@@ ,1/,0[2'@@@^B@@@@ ,1@@@ 0X@@@ \>@@@ 0UUS )@@G@@@@@ ,6/K@[]X@]% 0%/,0@3/@@@ 0U@@@ 0-@@@ \$@]: 0%/K@@"6R@K^Y.C/@@@[[@[^YVUT )@@G@@ @@ ,3/,0[1J@@@^B@@@@ ,1@@@ 0X@@@ ,./K@@"6@]0 0%/,0[!Q@@@^B@@@@ ,.@]1 0%UU )@@G@@[@@ ,"G/@__L/@@[#@R@K^Y.C@@ ,"G/@__'/@@@"6C/@@@[G@@ ,3[@@ ,3G/@__./G@[]9UV )@@G@@/^@[#^N8L^Y1^^K[]./,0[!!@@@ ,"@@@[].@@@ ,3@]9 0%C/@@@[G@@ ,.[@@ ,./K@[]*UW )@@G@@/,0@3/@@@ 0U@@@ 0-@@@ \\@]/ 0%R@K^Y. @[^YV @[^Y1/K@@"6/,0[M"@@@ ,1@@@ ,.UX )@@G@@@#[ 0%/K@@"6C/@@@[[@@ I"/K@@"6/,0[T8@@@ ,1@#B 0%/K@@"6C/@@@[[@@ J@/K@@"6UY )@@G@@C/@@@[[@@ J[/K@@"6 @@^A6D@@ J8/C@[^O/@@[^OC@@ J8G/@__"C_)@@[[@@@[J[#) ,3UZ )@@G@@/,0[!Q@@@ J)@@@ ,3@#Q 0%[@@ ,"G/@__R/@@[#2G_)@@[8N0[#$/K@[^O/,0[,/@@@ \7VA )@@G@@@@@ 0S@@@^C"@@@ 0U@@@ 0V@#W 0%C@@ 0>[@@^C"C@) 0&[@)^C_/,0[,I@@@ J)@@@ 0UVB )@@G@@@@@^C"@@@ 0$@@@ J8@#Z 0%C/@@@IG@@ J8[@@ ,_/,0[,I@@@ \9@@@ 0U@@@^C"@@@ ,_VC )@@G@@@@@ 0<@#- 0%/,0[\4@@@^C"@@@ 0V@#+ 0%C/@@@[[@@^A6C/@@@[[@@ J]/,0@=N@@@ ,1VD )@@G@@@#& 0%/K@@"6/,0@$:@@@ ,1@#( 0%/K@@"6C/@@@[[@@^K7/K@[@G/,0@3/@@@ 0U@@@ 0-VE )@@G@@@@@ \;@#, 0%/K@@"6C/@@@^H@@ ,4/@@[^4C/@@@#H@@ ,4/^@[^;/,0@3/@@@ 0U@@@ 0-VF )@@G@@@@@ 0#@#4 0%'^@@O\@#5 0%/,0@3/@@@ 0U@@@ 0-@@@ 0H@#6 0%'^@@O\@#7 0%/,0@3/VG )@@G@@@@@ 0U@@@ 0-@@@ 0M@#8 0%'^@@O\@#9 0%N@0[ ^/K@[ @#; 0%R]0 0:9\) 0?R@K 0,VH )@@G@@N#0 0\*4@P0*/K@P0*/K@@N_AA0 0:9:) 0?A@K 0,^#0 0\/K@@"?C@FK@]H@FK@[R8VK@ VI )@@G@@[@@ 08C@@ 03[@[@@@ @@@@@ @@@@@C#:K@[N#0 08[#) 00/,0[!=@@@@@@@@@ 00@[F 06VJ )@@G@@H@@ 03/@@[ >C@@ 00[@@@@@/K@[ *G_)@@[8N0[ V/K@[AFC@@ 09G@@@@@G/@__"[@@ 01VK )@@G@@C@@ 0'H@@ 01/C@[ 2/@@[ 2C@@ 0'[@@ 01C@@ 01H@@@@@C#)@@@[@@@[J[#) 00/,0[!QVL )@@G@@@@@@@@@@@ 00@[T 06[@@ 02H@@ 0;/@@[AFC/@@@ H@@ 02/@@[AFC/@@@[G@@@@@[@@@@@VM )@@G@@/,0[!!@@@ 02@@@@@@@@@@@@@[Z 06G_)@@[8N0[ 6N@0[AH/K@[AI@[< 06R]0 079\) 0/VN )@@G@@R@K 0"N#0 0_*4@P04/K@P04/K@@N_AA0 079:) 0/A@K 0"^#0 0_C8FK@@[^@[ 8[^@[ XVO )@@G@@C@VK@][@K 0'C@VK@#[@K 09C@VK@^[@K 0;C8FK@ [^@[AAC8FK@A[^@[AB[^@[A#[^@[A]VP )@@G@@[^@[ RC8FK@B[^@[ 3[^@[ <[^@[ ([^@[ 4[^@[ S/K@[ L/,0[,/@@@ J;@@@ 1D@@@ J)VQ )@@G@@@@@ 1E@@@ 1F@[K 1L/,0[,/@@@ J;@@@ 1D@@@ J*@@@ 1E@@@ 1F@[L 1L/,0[,/@@@ J;VR )@@G@@@@@ 1D@@@ J0@@@ 1E@@@ 1F@[M 1L/,0@;[@@@ 1E@@@ J)@@@ 1[@[N 1L/,0@;[@@@ 1EVS )@@G@@@@@ J)@@@ J8@[O 1L/,0@;[@@@ 1G@@@ J*@@@ J9@[P 1L/,0@;[@@@ 1H@@@ J0@@@ J'VT )@@G@@@[Q 1L/,0@;I@@@ 1E@@@^X,@[R 1L/,0@;I@@@ 1G@@@^X0@[S 1L/,0@;I@@@ 1H@@@^X2VU )@@G@@@[T 1LD@@ J8/C@[B6/@@[B6C/@@@[G@@ J8[@@ J8/,0[!Q@@@ J/@@@ 1E@[X 1L[@@ 1NVV )@@G@@/,0[!!@@@ 1N@@@ J)@@@ J8@[X 1L/K@[B'C@@ 1@[@@ J)C/)@@ [@) J8/,0[Q)@@@^X,VW )@@G@@/K@[C;@[+ 1L/,0@'\@@@^X,@@@ J)@@@ J8@[< 1LD@@ J9/C@[CO/@@[COC/@@@[G@@ J9VX )@@G@@[@@ J9/,0[!Q@@@ J/@@@ 1E@[$ 1L[@@ 1N/,0[!!@@@ 1N@@@ J*@@@ J9@[$ 1L/K@[CQVY )@@G@@C@@ 1@[@@ J*/,0[Q)@@@^X0/K@[C;@[: 1L/,0@'\@@@^X0@@@ J*@@@ J9@[? 1LD@@ J'VZ )@@G@@/C@[C8/@@[C8C/@@@[G@@ J'[@@ J'/,0[!Q@@@ J/@@@ 1E@[0 1L[@@ 1N/,0[!!@@@ 1NWA )@@G@@@@@ J0@@@ J'@[0 1L/,0[Q)@@@^X2/K@[C;@[1 1L/,0@'\@@@^X2@@@ J0@@@ J'@[2 1LWB )@@G@@N@0[C'/K@[D]@[4 1L/,0@3/@@@ 1E@@@ 1I@@@ 1]@[5 1L'^@@O\@[6 1LR]0 1M*4@P1JWC )@@G@@/K@P1J/K@@N_AA0 1M/K@[A0C@@^X4[@@ 1RR@K 1R(@[^Y&/K@[D4C@) J_[@) J#N8L^L,WD )@@G@@^^K[DON8L^OC^^K[DS/,0[,I@@@[DO@@@ 1\@@@ J#@@@ 10@@@[DS@[T 1.C@[^OCG/@@@#WE )@@G@@[@@ JZC@-^Y1H@) 11/@)[EYG/@__"[@@ 1_/,0[!!@@@ 1V@@@ J#@@@ 1_@[X 1.N8L^Y1WF )@@G@@^^K[D%/,0[,I@@@[D%@@@ 1\@@@ J#@@@ JZ@@@ 12@[Y 1.C/@@@BG@@ JZ[@@ JZ/K@[EYWG )@@G@@R@K 1R(@[^YV/K@[EQC@@ 1R;@@@@ 1.C@@ JZG@@ I,[@@ JZ(@@ J'/K@[I]/,0[!Q@@@ J.@@@ 1\XA )@@G@@@]% 1.[@@ 1_/,0[!!@@@ 1_@@@ J#@@@ JZ@]% 1.C/@@@[G@@ JZ[@@ JZ/,0[,I@@@ J0XB )@@G@@@@@ 1\@@@ J#@@@ JZ@@@ J'@]? 1.C@@ JZG@@ J'[@@ JZ/,0[,I@@@ I(@@@ 1\@@@ J#XC )@@G@@@@@ JZ@@@ I,@], 1.C@@ JZG@@ I,[@@ JZC/@@@^H@@^X4/^@[JD(@@ I./K@[JD/,0[,/XD )@@G@@@@@ J;@@@ 15@@@ IU@@@ 1\@@@ 18@]5 1.C@@ JZ[@@ 1U(@@ J'/K@[IX/,0[,I@@@ J0XE )@@G@@@@@ 1\@@@ IU@@@ 1\@@@ J'@]9 1.C/@@@[G@@ J'[@@ JZ/K@[I$/,0[,I@@@ J)@@@ 1\XF )@@G@@@@@ IU@@@ 1\@@@ J8@]. 1.C/@@@[G@@ J8[@@ JZ/,0[,I@@@ I(@@@ 1\@@@ IU@@@ JZXG )@@G@@@@@ I,@]_ 1.(@@ I*/K@[JBC@@ JZG@@ I,[@@ JZ/,0[!Q@@@ J.@@@ 1\@## 1.[@@ 1_XH )@@G@@/,0[!!@@@ 1_@@@ IU@@@ JZ@## 1.C/@@@[G@@ JZ[@@ JZ/,0[,I@@@ IS@@@ 1\@@@ IUXI )@@G@@@@@ JZ@@@ 16@# 1.C@@ 1U[@@ JZN@0[JF/K@[JQ@#C 1./,0@3/@@@ 1\@@@ 19@@@ 1*XJ )@@G@@@#D 1./,0@P=@@@ 1'N@0[JP/K@[JQ@#E 1.R]0 1"R@K 2@*4@P1;/K@P1;/K@@N_AA0 1"XK )@@G@@A@K 2@/K@[DCC@@^X4[@@ 2[R@K 2[(@[^Y&/K@[KEC@) J_[@) J#N8L^L,^^K[J%N8L^OCXL )@@G@@^^K[J,/,0[,I@@@[J%@@@ 2^@@@ J#@@@ 2 @@@[J,@[R 2FC@[^OCG/@@@#[@@ JZC@-^Y1XM )@@G@@H@) 2A/@)[K4G/@__"[@@ 2H/,0[!!@@@ 2]@@@ J#@@@ 2H@[V 2FN8L^Y1^^K[K@/,0[,IXN )@@G@@@@@[K@@@@ 2^@@@ J#@@@ JZ@@@ 2B@[W 2FC/@@@BG@@ JZ[@@ JZ/K@[K4R@K 2[(@[^YVXO )@@G@@/K@[K?C@@ 2[;@@@@/,0[!Q@@@@@@@@@ 2>@[H 28YG )@@G@@[@@ 2&C@@ 2&G/@__L/^@[N%C@@ 2>[@@ 2$C@@ 2&G/@__#/^@[N\C@@ 2>[@@ 2$G_)@@[YH )@@G@@8N0[NZ/,0[,/@@@ 2:@@@ 23@@@^C"@@@ 24@@@ 25@[O 28C@@ 2;H@@ 2$[@@ 2*C/)@@[YI )@@G@@G@) 2$[@) 2>/,0[,I@@@@@@@@@ 2>@@@^C"@@@ 24@@@ 2*@[R 28/,0[!!@@@ 2!@@@@@@YJ )@@G@@@@@ 2>@[S 28C/@@@[G@@ 2>[@@ 2>H/@@[OC#) 2>]@@@[J[#) 2(/,0[!!@@@ 2\@@@@@@YK )@@G@@@@@ 2(@[X 28G_)@@[8N0[OKN8L@@I^^K[OX/,0[,/@@@ 21@@@ 23@@@[OX@@@ 24@@@ 25YL )@@G@@@[) 28C/@@@L[@@ 2%C/@@@/H@@ 2*/C@[O(/@@[O(C/@@@J[@@ 2%R@) 2%O@) 2'N8M@@@YM )@@G@@^^K[O0/,0[,I@@@^C"@@@ 24@@@[O0@@@ 24@@@ 2*@[= 28N@0[O6/K@[O7@[> 28R]0 29YN )@@G@@9\) 2/R@K 2"R@) 2_N#0 3@*4@P26/K@P26/K@@N_AA0 299:) 2/A@K 2"A@) 2_^#0 3@YO )@@G@@C8FK@@[^@[ON[^@[OB[^@[N_[^@[N-C@VK@[[@K 2;/K@[NMR8VK@@C@[@@@H@@ 3F/^@[PNYP )@@G@@N@0[PM/K@[QT@[B 3U*@[@@@/K@[PSN@0[PR/K@[QT@[D 3UC@[@@@[@@^A7C@-@@[[@)^A8YQ )@@G@@/,0[,/@@@ 3G@@@ 3G@@@^A9@@@ 3H@@@ 3I@[G 3U/,0 1O@@@^A7@[H 3UD4@^A./C@[P(YR )@@G@@/^@[P;C@@ 3J[@@^A7C@) 3F[@)^A8C[[@@@[[@^A9C[-@@[[[)^A'C]@ 3K[]@^A;/,0[NFYS )@@G@@@@@^A7@@@ 3L@@@ 3[@[P 3UD@@ 3[/G@[P;/^@[P"N@0[P./K@[QT@[S 3U/,0@3'@@@ 3MYT )@@G@@@@@ 3]@[T 3U/,0@34@@@ 3N@@@@@@@@@ 3O@[U 3U/,0@3'@@@ 3P@@@ 3C@[V 3U/,0@4]YU )@@G@@@@@ 3H@@@ 3Q@@@ 3[@@@ 3R@[W 3UC8)@@]N@0[QO/K@[QP@[X 3U!^) 3S/K@@OAH8)@@[YV )@@G@@[^) 3SR]0 3V9!) 3W9,@ 3YR@K 3)*4@P3S/K@P3S/K@@N_C8@@@#AA0 3V[^@ 3S9() 3WYW )@@G@@9%@ 3YA@K 3)C8FK@@[^@[Q^/K@[PGD@@ I_/C@[Q?/^@[TC/,0[,/@@@ 3$@@@ 4W@@@^KIYX )@@G@@@@@ 4X@@@ 4Y@[I 4$C@@ 4Z[@@^KMC@) 4)[@)^KNC@@ 4)[@@^KOC@) 4)[@)^KPC@@ 4)YY )@@G@@[@@^KQ @@^KR @@^KS @@^KTC/@@@#G@@@@@[@@@@@/,0[1J@@@^B@@@@@@@@@@ 4-@@@ 3-YZ )@@G@@/K@[T:@[S 4$ @@ 3+ @@ 3< @@ 3= @@ 3+/,0[!Q@@@^B@@@@ 3-@[X 4$[@@ 3>G/@__'ZA )@@G@@/@@[R4C@@ 3>G/@__]/@@[R4C@@ 3>G/@__R/^@[R+D@@ 3@@@^KI@@@ 3=@[! 4$C/@@@[G@@ 3-[@@ 3-/K@[RIC@@ 3=[@@^KR/,0[NF@@@^KGZD )@@G@@@@@ 4+@@@ 3&@[2 4$/,0[Q)@@@ 3(/K@[TO@[3 4$/,0@'\@@@ 3?@@@^KI@@@^KR@[4 4$ZE )@@G@@C/@@@[[@@ I_C/)@@[G@) 3-[@)@@@/,0[1J@@@^B@@@@@@@@@@ 4-@@@ 3-/K@[S_@[7 4$ZF )@@G@@/,0[!Q@@@^B@@@@ 3-@[8 4$[@@ 3>C/)@@[G@) 3-[@) 3-G/@__'/@@[S_C@@ 3>G/@__#ZG )@@G@@/@@[S(C/@@@[G@@^KS[@@^KSG/@__3/G@[S@@@^KN@@@^KS@][ 4$ZH )@@G@@/K@[SK/,0[!Q@@@^B@@@@ 3-@]# 4$[@@ 3>C/)@@[G@) 3-[@) 3-G/@__'/@@[S_C/@@@[ZI )@@G@@G@@^KT[@@^KTG/@__3/G@[S9/^@[T]/,0[!!@@@ 3>@@@^KP@@@^KT@]E 4$/K@[S(N@0[T[ZJ )@@G@@/K@[T4@]G 4$/,0@3/@@@ 4X@@@ 4<@@@ 3\@]H 4$/K@[T>/,0@3/@@@ 4X@@@ 4<@@@ 38ZK )@@G@@@]J 4$/K@[S_/,0@3/@@@ 4X@@@ 4<@@@ 4]@]L 4$/K@[T>/,0@3'@@@ 4<@@@ 4E@]N 4$ZL )@@G@@C/@@@[[@@ 3+D@@^KR/C@[TZ/@@[TZC@@^KR[@@ 3+/,0@36@@@ 4X@@@ 4=@@@^KI@@@ 3+ZM )@@G@@@]R 4$/,0@3/@@@ 4X@@@ 4<@@@ 4K@]S 4$/K@[T0/,0@3/@@@ 4X@@@ 4<@@@ 4O@]U 4$ZN )@@G@@ @@ I_N@0[T3/K@[T4@]W 4$R]0 4**4@P4>/K@P4>/K@@N_AA0 4*C8FK@@[^@[SF[^@[SCZO )@@G@@[^@[R [^@[R][^@[R[/K@[Q(/,0[,/@@@ 5@@@@ 5C@@@ 4!@@@ 5D@@@ 5E@[M 5PD@@^KRZP )@@G@@/C@[UL/@@[UL/,0[,I@@@^KI@@@ 5D@@@ 4!@@@ 5D@@@^KR@[O 5P/,0@?4@@@ 5F@@@ 5GZQ )@@G@@@@@ 4(@[P 5PC@@^KNH@@ 5H/@@[U,C@@^KN[@@ 46C@)^KO[@) 47/,0@?4@@@ 5D@@@ 5IZR )@@G@@@@@ 42@[U 5PC@@^KPH@@ 5H/@@[U,C@@^KP[@@ 4/C@)^KQ[@) 4./,0@?4@@@ 5D@@@ 5IZS )@@G@@@@@ 48@[Z 5P/,0@?4@@@ 5J@@@ 5D@@@ 4"@[) 5P/,0[6D@@@ 5]@@@ 5C@@@ 5C@@@^DGZT )@@G@@@@@^G?@@@ 5K@@@ 4_/K@[VU@[- 5P/,0[\C@@@ 5 @@@^KN@@@^KP@@@^BI@@@^CA@@@ 5LZU )@@G@@@@@ 4_/K@[VU@[+ 5P/,0[64@@@^C"@@@ 5M/K@[VQ@[< 5P/,0[\4@@@^C"@@@ 5M@[= 5PZV )@@G@@/,0@?4@@@ 5D@@@ 5M@@@^C"@[> 5P/K@[VB/,0[7R@[$ 5P/,0[0A@[* 5PN@0[VW/K@[VXZW )@@G@@@[% 5PR]0 5Q*4@P5N/K@P5N/K@@N_AA0 5Q/K@[U@*@@^LS/K@[W8(@@^Y>/K@[W>C@@^Y;ZX )@@G@@H@@ 6D/@@[W>/,0[!Q@@@^Y;@@@ 6E@[6 6S[@@ 5+C/)@@[G/@__9*@@@@G1@@@@G @@@@IZY )@@G@@C/@@@[C.@@@ZH[@ 5+*@@@@K1@@@@K @@@@G)@)@@G/=0[W8/,0[!Q@@@ J.@@@ 6E@[9 6SZZ )@@G@@[@@ 6U/,0[!!@@@ 6U@@@^YS@@@ 6F@[9 6S/,0[!!@@@ 5+@@@^YS@@@ 6G@[' 6S/,0[!QAA )@@G@@@@@^Y;@@@ 6H@[; 6S[@@ 5+C/)@@[G/@__)*@@@@G0@@@@G @@@@IC/@@@[C[@ 5+G.@__9AB )@@G@@*@@@@K1@@@@K @@@@G)@)@@G/=0[W8C@@ 5+G/@__'/@@[W>/,0[!!@@@ 5+@@@^YS@@@ 6IAC )@@G@@@[_ 6S(@@^K7/K@[W8(@@^Y&/K@[W8C@@^Y/H@@ 6D/@@[W8/,0[!!@@@ 5(@@@^YU@@@ 6FAD )@@G@@@]A 6S/,0[,I@@@^Y/@@@ 6E@@@^YU@@@ 6G@@@ 6G@]B 6SC@@ IRG/@__"R/K@@[[@@@[JAE )@@G@@A@K^X' @@^K6*@@^LS/K@[XT @@ 5@]R 6SAH )@@G@@(@@^LS/K@[Z]C@@ 5TH@@ 5>/C@[X&/^@[X5(@@^L%/K@[Z[R@) 6MN_)@@HC@]^LT[@]=LCAI )@@G@@8N)[X%/,0[!!@@@ 5:@@@^LD@@@^LB@]< 6SC/@@@[[@@ 5=/K@[YRC@@ 5XH@@ 5>/C@[X9AJ )@@G@@/^@[YC(@@^L:/K@[Z[R@) 6MN_)@@HC@]^LT[@]=LC8N)[X./,0[!!@@@ 5!@@@^LD@@@^LBAK )@@G@@@]0 6SC/@@@[[@@ 5=/K@[YR(@@^L?/K@[Z[R@) 6MN_)@@HC@]^LT[@]=LC8N)[YG/,0[!!AL )@@G@@@@@ 5\@@@^LD@@@^LB@]; 6SC/@@@[[@@ 5=/K@[YR/,0[,I@@@ J)@@@ 6E@@@^LD@@@^LAAM )@@G@@@@@ J8@]_ 6SC@@^LAG@@ J8[@@ 5&/,0[,I@@@ I(@@@ 6E@@@^LD@@@ 5&@@@ I,@#[ 6SAN )@@G@@(@@^L(/K@[Z[C@@ 5&G@@ I,[@@ 5$/,0[!Q@@@ J.@@@ 6E@# 6S[@@ 6U/,0[!!@@@ 6UAO )@@G@@@@@^LD@@@ 5$@# 6SC/@@@[G@@ 5$[@@ 5$/,0[,I@@@^L*@@@ 6E@@@^LD@@@ 5$@@@^LCAP )@@G@@@#B 6S/K@[<@C@@ 5>H@@ 5S/@@[ZSC@@ 5TH@@ 5>/C@[ZE/@@[ZE/K@[)2C/@@@[C/)@@#AQ )@@G@@H@)^OO(@@@@I @@@@GC/)@@[(@@^OO @@@@I+@@@@I/=K[=Y/,0@3I@@@ 5>@#M 6S/K@[)2AR )@@G@@C@[^OP[@@ 5*R@) 5*N8M ^X^^K[ZY/,0[!Q@@@[ZY@@@ 6G@#Q 6S[@@^X4C@@ 5YH@@^X4AS )@@G@@/^@[Z$C@@ 5Z[@@^X4C/@@@[C@)^X4H@) 5W*@@@@I1@@@@I @@@@GC/)@@[C[@^X4H[@ 5UAT )@@G@@/D@[Z3*@@@@K @@@@I+@@@@I/=K[Z_C@@ 5WH@@^X4/@@[)LC@@ 5YH@@^X4/@@[Z_C@@ 5VAU )@@G@@H@@^X4/@@[)\/K@[)+C/@@@[C/)@@]H@)^OO(@@@@I @@@@GC/)@@[(@@^OO @@@@I+@@@@IAV )@@G@@/=K[=YC@@ 5TH@@^X4/^@[)IC/@@@[[@@ 5AZ )@@G@@H@) 5X/C)[<@/@)[<@C@)^YS[@) I\C[@^YT[[@ I0R/)@@^N_)@@^[@@ 6UA@) 5)C@@ 5)BA )@@G@@G/@__/[@@ 5-R@0 5-A@0 6VC@@ 6U/)@[-HR@0 6VC@# I*[@]^K7R@0 6VC@# I*[@] I,BB )@@G@@O/)@@[8N)[-](@@^K7/K@[-%C@)^YU[@)^K8C[@^YV[[@^K9C_)@@NN_)@@R[#) 5)/,0[!QBC )@@G@@@@@^K8@@@ 5)@^J 6S[@@ 5+C@@ 5+G/@__#/^@[-*/,0[!!@@@ 51@@@^K8@@@ 5)@^L 6SBD )@@G@@G_)@@[8N)[-U/,0[\4@@@ I\@@@ 6K@^P 6SD@@^K7/C@[-5/@@[-5/,0[\4@@@^K8@@@ 6KBE )@@G@@@^R 6S/,0[O_@@@ J#@@@ JZ@^S 6S/,0[O_@@@^KU@@@^K6@^T 6S/,0[\4@@@ J#@@@ 6KBF )@@G@@@^U 6SC/@@[KH@@ JZ/C@[+D/@@[+D/,0[\4@@@ JL@@@ 6K@^W 6SD@@^K6/C@[+K/@@[+KBG )@@G@@/,0[\4@@@^KU@@@ 6K@^Y 6SC/@@[KH@@^K6/C@[+S/@@[+S/,0[\4@@@^K*@@@ 6K@^) 6SBH )@@G@@(@@ J@/K@[<@/,0@$5@@@ 6K@@@ I\@^< 6SD@@^K7/C@[+>/@@[+>/,0@$5@@@ 6K@@@^K8BI )@@G@@@^> 6S/,0@$5@@@ 6K@@@ J#@^& 6SC/@@[KH@@ JZ/C@[+1/@@[+1/,0@$5@@@ 6K@@@ JLBJ )@@G@@@^* 6SD@@^K6/C@[+8/@@[+8/,0@$5@@@ 6K@@@^KU@^% 6SC/@@[KH@@^K6/C@[<@/@@[<@BK )@@G@@/,0@$5@@@ 6K@@@^K*@^? 6S(@@^LS/K@[@(@@ I./K@[=8BU )@@G@@(@@ I"/K@[=8/,0@7;@ > 6S/,0@,O@ $ 6S/,0@?0@ * 6S(@@^OP/K@[>@/,0@ZW@ % 6SBV )@@G@@(@@^LT/K@[>^/,0@:_@ , 6S/,0[0A@ 0 6S(@@ J[/K@[>G(@@ J'/K@[>G/,0@>M@ 5 6SBW )@@G@@(@@ I_/K@[>L/,0[V-@ 9 6S/K@[>S*@@^L,/K@[>V/,0[NF@@@ 5.@@@ 6H@@@ 5)@ " 6SBX )@@G@@D@@ 5)/G@[>V/^@[>YN@0[>X/K@[>%@A] 6S/,0@3'@@@ 6N@@@ 6@@A# 6S/,0@4]@@@ 6EBY )@@G@@@@@ 6J@@@ 5)@@@ 6P@A^ 6S'^@@O\@A 6SR]0 6T9\) 6WR@K 6YR@) 6ZR@0 6)N#0 6-BZ )@@G@@N#) 6+*4@P6Q/K@P6Q/K@@N_AA0 6T9:) 6WA@K 6YA@) 6ZA@0 6)^#0 6-^#) 6+/K@[V"/,)[%!O'0@@^AA0[%?A@K 7CA@) 7DA@0 7EA[@ 7FA[K 7GA[) 7HA[0 7ICB )@@G@@A]K 7JC@@[>/[@@ 6;/@@[&M/C@[&MC8@@@][@@ 64D@@ 6;[@@ 6;/,)[&XD8@SU)G@@ 6;CC )@@G@@/@@[&W/G@[&WC8@@@[[@@ 64D8@SU)G@@ 6;[@@ 6;/,)[&X @@ 64/,0@I1@@@[>/@[&[>"CD )@@G@@H8@@@[[@@ 6./,0@I1@@@[>/@[&[>"H8@@@[[@@ 6/C8@@@[G@@ 6/[@@@@[ @@ 6"D8@@@[CE )@@G@@G@@ 6;G@@@@[[@@ 6_C@@ 6_G8@@@[[^@[&7C8@@@[G@@ 6"[@@ 6"[@[@@@O8K@@[$8K@@@CF )@@G@@/,)[&2P8K@@[D8@@@[G^@[%?[@@@@[R^)[%4C@[@@@[@@ 6"CC@ 6"/^@[$ED8@@@[G@@ 6"CG )@@G@@[@] 6=O8K@@[O8)@@[$8)@@J/,)[&"P8)@@[D8@@@[G@@@@][@@ 6/C@@[>/9S@@@H/,)[(R%@@@@HCS )@@G@@/,)[(TC/@@@@/,)[(UC/@@@[/,)[(UD/@@@[/,K@@@C@F@@@[^@[(JC@F@@[[^@[(K/,)[(DCT )@@G@@R'0[%XAA0[%WA@K 68A@) 69A[K 6' @@ 63R K[%4C@@ 6 6=C@#@@@CU )@@G@@G@@@@][@@@@[C@^@@@G@@@@][@@@@]C@[@@@[@@ 66C@]@@@[@@ 67C@@ 66H@@ 67/^@[(_CV )@@G@@O9K@@[$9K@@@/,)[(%P9K@@[C8@@@[[@@ 63/,)[%TR 0 64/,$ 7PC@@ 66H@@ 67/@@[% CW )@@G@@/G@[%BC8@@@[[@@ 63/,)[%TC@@ 67[@@ 65C@@ 66"^@ 65=@@[%5/G@[%KC8@@@[[@@ 63CX )@@G@@/,)[%T/,0[(C@@@ 66@@@ 67[@@ 63/@@[%R/G@[%S/,)[%T @@ 63R@K 68R@) 69R[K 6'CY )@@G@@/,K@@@C8@@@FC@K[%?;@K@@Q;G@@@^;@K@@E[@K[%?R@K 7CR@) 7DR@0 7ER[@ 7FR[K 7GCZ )@@G@@R[) 7HR[0 7IR]K 7JR]) 7K/,K@@@C@F@@@[^@[&DC@F@@[[^@[&YC@F@@][^@[&_DA )@@G@@@@@@@@)^@@@@ @@@@@ @@@@@ @@@@@ @@@@@C@@ 7SR@K 7<[@[@@@C@)@@@G/)__"[@) 7?DB )@@G@@C@@ 7?G/@@@[[@@ 7?H@@@@@/G@[:B*@@@@G/K@[:_/,0[!Q@@@@@@@@@ 7?@[K 7V[@@ 7!DC )@@G@@H@@ 7:(@@@@G/K@[:@/,0[?!@[O 7V*@@@@@/K@[:_C@@@@@G/@@@[[@@@@@*@@@@@/K@[:UDD )@@G@@C@@ 7?[@@@@@/,0[!!@@@ 7!@@@@@@@@@@@@@[U 7VC@@ 7?G/@@@[[@@ 7?H@@@@@/G@[:&DE )@@G@@*@@@@G/K@[:_/,0[!Q@@@@@@@@@ 7?@[Y 7V[@@ 7!H@@ 7:*@@@@G/K@[:JC@@ 7?G/@@@[DF )@@G@@[@@ 7?H@@@@@/G@[:5*@@@@G/K@[:_/,0[!Q@@@@@@@@@ 7?@[= 7V[@@ 7!H@@ 7:(@@@@GDG )@@G@@/K@[:,/,0[?!@[$ 7VN@0[?[/K@[? @[( 7VN@0[?^/K@[? @[? 7VRA0 7WR@K 7=/K@P7TDH )@@G@@AA0 7W[^@ 7TA@K 7=/KH@@@C8@@@D/\K[?C/K@[?2C8@@@#/\K[?C/K@[!K(@@@@@/K@[?>DI )@@G@@C@@@@@G/@__"C_)@@[R@K 7&[@@@[^[#) 7,C@@ 7!%)[@@@/K@[?+C@@ 7,[@@@@@C@) 7?DJ )@@G@@[@)@@@/K@[?>O/K@@[G_)@@[8L@[?TN@0[?$/K@[?*@[. 7)RA0 7-C#) 7$R@K 7*N[@ 7(DK )@@G@@/K@P7YAA0 7-[#) 7$A@K 7*^[@ 7(/K@[?MC8FK@@[^@[:C[^@[:$[^@[:6C8FK@[[^@[%.DL )@@G@@C8FK@][^@[:+[^@[:1[^@[:#C8FK@#[@@ 7<[^@[:WC8FK@^[^@[:T[^@[%6[^@[:QC8FK@ DM )@@G@@[^@[:P[^@[%9[^@[:X[^@[:NC8FK@A[^@[?Y[^@[:L[^@[%8C8FK@B[^@[?)[^@[%7/K@[%6DN )@@G@@C8FK@@[@@ 7&C8FK@[[^@[?M[^@[?O/K@[?]C@VK@[H8K@@[S@K 7\G@V@@@;C)@@-')I[!XDO )@@G@@/KF@@#C4H@@@C0H@@@C?H@@@@@@@@@C*H@@@C=H@@@C)H@@@C@VK@[H8K@@[S@K 7\G@V@@@DP )@@G@@;C)@@-')I[!X[4@ 70C@@ 70/KF@@#C@VK@]H8K@@[S@K 7\G@V@@[;C)@@-C)FK@@')I[!5DQ )@@G@@/KF@@^[4H@@@[0H@@@[?H@@@@@@@@@[*H@@@[=H@@@[)H@@@C8@@@@C@VK@@H8K@@[W@FK@[DR )@@G@@G8@@@[[@FK@]G8K@@[[@VK@#/KF@@ C8@@@@C@VK@@H8K@@[W@FK@[G8@@@[[@FK@]S8K@@ADS )@@G@@[@:K@#/KF@@ R#FK@[P;@@@[S@@[,;O#F@@@;CK@@-!8K@@^P;K@@[R#:K@#P;)@@[S@)[,;DT )@@G@@O#:@@];C0@@-!80@@^P;0@@[&;@@@[&;K@@[&;)@@[&;0@@[C[FK@^H9@@@[N@K@@K')H-,$DU )@@G@@')J-,18KK[,G@@@'^@[,!/S@@@@C-G)@@R#K 71DV )@@G@@/K@L,![5I@@@[1I@@@[!I@@@[(I@@@[>I@@@'^@[,7/S@@@@[-I)@@R#0 71/K@L,7E%%%%:DW )@@G@@R#FK@^/G@[\ R#F@@@&#FK@[R#V@@]&#VK@#N@VK@^M#W)@@/KF@@AR#@ 7/'=@@@I'=@@@)DX )@@G@@9?FK@@9*@ 7.9*@ 8C @@ 8TC4FK@[?8@@@A/K@[\T[@K 8T9?FK@[9*@ 8E9?FK@]9*@ 8IDY )@@G@@C8@ 8C'=@@[C[@K 8][@K 8M/K@[\U @@ 8]C@F@@#[C@ 8#C@F@@^[^@ 8#C@FK@ ;G@@@=DZ )@@G@@W8@@@W[C@ 8^T8@@@W[C@ 8[A]0 8OC8@ 7./,0@J&C8@ 8R[^@ 8 C@@ 8S[@@ 8BC8@ 7.EA )@@G@@/,0@I3/K@[\0R]0 8O/KF@@DR]0 8OG9K@[@[[VK@A/KFK@BC@F@@@[^@ 8 P;@@@[AB@[\9EB )@@G@@C@FK@[R#W@@@:@K 8V8#@[\9?8@@@[R;@@@[;*@@@S[@@ 8BA]0 8PC8@ 7./,0@I3/K@[\0EC )@@G@@R]0 8P/KF@@#A]0 8PC8@ 7./,0@K#/K@[\0C@@ 8T/@@[0MC@@ 8]H@@ 8M[^@ 8LC@K 8]ED )@@G@@D8@ 8C'=@@[^R]0 8P/KF@@[C@FK@@[4@ 8L/KF@@]C8FK@@G/@__"[@@ 8-C/@@@[H@@@@@EE )@@G@@]@@ 8>/,0[, @@@@@@@@@ 8W@@@ 8&@@@ 8$@[C 8ZC/@@@[G@@ 8>[@@ 8>R@K 8-O@K 8&EF )@@G@@H@@@@@/G@[0?*@@@@G/K@[1#C@[@@@;)@P8$;C@@@YH@@ 8=*@@@@G/K@[0"C/@@@AG@@ 8$EG )@@G@@[@@ 8$G/@__)/C@[09*@@@@G/K@[0< @@ 8$C/@@@[G@@ 8&[@@ 8&/K@[0[@@@@@EH )@@G@@N@0[1]/K@[1G@[P 8Z @@@@@C8)@@ N@0[1B/K@[1C@[R 8Z!^) 8X/K@@OAH8)@@[[^) 8XEI )@@G@@R]0 8)R@K 8+/K@P8XC8@@@AAA0 8)[^@ 8XA@K 8+C8FK@[[^@[0Y[^@[0VC8FK@][^@[0*EJ )@@G@@C8FK@#[^@[0_[^@[1#/K@[0RC8FK@@G/@__"[@@ 8\R@K 8,C4[@@@[@@ 85C/@@@[H@@@@@EK )@@G@@]@@ 86/,0[, @@@@@@@@@ 8*@@@ 87@@@ 88@[B 8:C/@@@[G@@ 86[@@ 86H@@@@@/G@[12EL )@@G@@*@@@@G/K@[2$R@K 8\O@K 87C@[@@@;)@P88;C@@@YH@@ 85(@@@@G/K@[2AC/@@@AG@@ 88EM )@@G@@[@@ 88G/@__)/C@[2[*@@@@G/K@[1: @@ 88C/@@@[G@@ 87[@@ 87/K@[1:C/@@@[:@@@@@EN )@@G@@/K@[2?C@@ 86[@@ 89C/)__.G@)@@@C_)@@][@)@[^[#) 8'C/@@@[G@@ 89[@@ 89H@@@@@EO )@@G@@/G@[2R*@@@@G/K@[2$/,0[!Q@@@@@@@@@ 8'@[W 8:[@@ 80/,0[!Q@@@@@@@@@ 89@[W 8:EP )@@G@@H@@ 80*@@@@G/K@[2&G_)@@[8L@[2J/K@[2?/K@[1' @@@@@C8)@@BN@0[2:/K@[21@[< 8:EQ )@@G@@C@@ 86[@@@@@N@0[20/K@[25@[> 8:!^) 8(/K@@OAH8)@@[[^) 8(RA0 8?C#) 81R@K 82ER )@@G@@N[@ 83/K@P8(C8@@@CAA0 8?[^@ 8([#) 81A@K 82^[@ 83C8FK@@[^@[2XC8FK@[[^@[1&ES )@@G@@[^@[1'V8L@[4_C_)@@[R@) 9[N[@ 9][#) 9PC4]@@@FD )@@G@@G/@@@[[@@ 9VR@K 9VC/)@@[[@- 9VG@- 'V[@- 'V*C[ 'V/K@[5NC[@ 9P[D[ 'VO/)@@]FE )@@G@@G_)@@[8L@[5AN@0[5S/K@[5X@]A 8"!^) 8//K@@OAH8)@@[[^) 8/R]0 8_9!) 9 9,@ 9BFF )@@G@@9\) 9DR@K 9FR@) 9GN[@ 9HN[K 9I/K@P8/AA0 8_[^@ 8/9() 9 9%@ 9B9:) 9DA@K 9FFG )@@G@@A@) 9G^[@ 9H^[K 9I/KH@@@C8@@@B/\K[5&C8FK@@[^@[3-[^@[4)C8FK@[[^@[3NC8FK@]FH )@@G@@[^@[3U[^@[4OC8FK@#[^@[44[^@[4,C8FK@^[^@[46/K@[3MC8@@@^/\K[5&C8FK@@[@@ 9[FI )@@G@@C8FK@[[@@ 9@C@VK@][@K 9^/K@[4'9?FK@@9*@ /W9*@ /$ @@ /7C4FK@[?8@@@A/K@[6ZFJ )@@G@@A]0 /79?FK@[9*@ /(9?FK@]9*@ /!C@@ /3[@@ /?C8@ /$'=@@[ [@:K@A*@@@@I/KFK@BFK )@@G@@C@@ /1[@@ /-/K@[6) @@ /-C@F@@#[C@ /+C@F@@^[^@ /+C@FK@ ;G@@@=W8@@@W[C@ /)[" W\)@P Z')@Z )T)D) +/IA )@@G@@)@7 !K)@F 3W)@V 6U)@M 6_)@H 8,)]R 9 )#C /8@@@___@@@___@@@___@@@___@@@___IB )@@G@@**PF**@@@@@@@@@@@@@@@@@@@@@@@[@@@@@I@@@@[C@@@@[D@@@@@C@@F@@]@@@@@@SEQ IC )@@G@@@[O@@#MARVELCARDS FILE @@@@@@M$A$R$ ______SPEC3 ______ID )@@G@@MARVELCARDS ______@@@@[]@@@@@#@@@@@]@@@@@[@@@@@@@@@@#)@@@@@8@@@@@I@@F@@[IE )@@G@@@@@@@@SAVE @[S@@#@@@@@@@@@@@@ERROR, MORE THAN 3 SEQUENCE CHARS ON PUN CIF )@@G@@ARD& ______SEQUENCE CHARS WILL BE IGNORED& ______@PCH, @@@@[KS IG )@@G@@R A N , @@@@@[_____"@@F@@]@@@@@@PUNX @]H@@#@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ S______ R______ A______@@[@@[@@@@@[II )@@G@@@@@@@I@@@@@ @@F@@[@@@@@@PSRABS@]\@@#@PRT,T@@[@@]@@@@@[@@@@@E@@@@@ @@@@@IIJ )@@G@@@@F@@[@@@@@@PRTT @[U@@#@@@@@@@@@@@[@@@@@I@HDG,N@PACK @PREP @@[@@]@@@@@EIK )@@G@@@@@@@ @@F@@[@@@@@@PP @[*@@#@@@@@@@@@@@@C F @@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,______@@@@@,______,,,,,,______ ______IM )@@G@@NNNNNN______@@@@@[@@@@@] @@@@@A@@@@@@@@@@@W@@F@@]@@@@@@PDP @#G@@]IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'=@@@3/KF@@]@&Q@@@@@@@@@[[@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@_____"/K@@@@C@@ -//G@ -"C@K -?;*K@@G;?@@@S'=@@@I/K@ -" IQ )@@G@@ IR )@@G@@ '=@@[S'=@@@I@@@@@[@@@@@^IS )@@G@@@@@@@@@@@@@@@@@@@@@HDG,N______@DCTNRY ______@HDG,N______@DCTNRY IT )@@G@@______*END ______*END ______@@@@@[@@@@@]@@@@@#@@@@@A@@@@@@@@@@@I@@@@@GIU )@@G@@@@F@@[@@@@@@MERGE @][@@#FILE I/O ERROR WHILE READING TOC& ______MORE TIV )@@G@@HAN 600 ELEMENTS TO MARVEL& ___________"@@@@@[@@@@@@@@@@@H@@F@@[@@@@@@IW )@@G@@LT @[0@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@BIX )@@G@@@@F@@^@@@@@@IQUAL @[U@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R\@^@JR3@^@JIY )@@G@@R7@^@JR$@^@IR:@^@IR\@^@IR3@^@IR7@^@I@@8 !J@@@@@@ @@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@[[@@@@@@@INFOR 8@X !I@@@@@@@@@@@@@@@@@@@@^ ,W@@[@@@ JA )@@G@@ / () @@[@@A@@@@@@@FREE,A DUMMY$TAG$1$@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M$A$R$ ______= ______@@@@@=______JE )@@G@@@@@@@,______= ______@@@@@,______NO NEW PROCESSOR SPECIFIED.& ______JF )@@G@@TOO MANY OPTIONS OF MARVEL CARD, MAX IS 6&______OPTION NOT A-Z. OPTION(OJG )@@G@@CTAL)=& ______IGNORED.& ______= ______ERR ON HDG CARD, EQUAL SJH )@@G@@IGN NOT VALID& ______ERR ON HDG CARD, ONLY 2 OPTION ALLOWED& ______JI )@@G@@ ______ . ______MARVEL REQUEST CARD IN ERROR, IGNORED& ______JJ )@@G@@UNDEFINED FILE(M$A$R$). LOOK FOR ARRAY OVERFLOW.& ______M$A$R$ FILE JK )@@G@@IS FULL.& ______I/O ERROR ON M$A$R$ FILE.& ______@@@@@@@@@@#)@@@@@[JL )@@G@@@@@@@I @@@@[K@@@@@ASAVE SAV _____"@@@@@)@@@@@#@@@@@>@USE S$$$EQ,JM )@@G@@@@@@@H@@F@@[@@@@@@IN @#;@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@ @@F@@D@@@@@@GRAB @[<@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@TPF$. @@@@@@ABORT MARVEL. FILE NOT ASSIGNED.& ______@@@@@@@@@@@[JP )@@G@@@@@@@C@@@@@]@@@@@#_____"@@F@@[@@@@@@FN @[6@@#@@@@@@R#F@@@'=@@[G/KF@@]JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,______@SEQ ______@SEG ______S$$$EQ. JR )@@G@@______STOP ______STOP ______ERR ON SEQ CARD, TOO MANY CHARS& ______JS )@@G@@@@@@@[@@@@@] @@@@@A@@@@@ @@@@@^@@@@@@@@@@@G@@@@@B@@@@@I_____" JT )@@G@@@@F@@[@@@@@@FAACM @#E@@]@@@@@@@@@@@@@@@@@@@@@@@,______@@@@@[@@@@@] JU )@@G@@@@@@@A@@@@@ @@F@@[@@@@@@ELT @[9@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MORE TJV )@@G@@HAN 12 OPTIONS ON DCT CARD, CARD IGNORED& ______ @@@@[K, @@@@@[JW )@@G@@_____"@@F@@#@@@@@@DCT @[<@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@ ______;;;;;;______ ______ ______@@@@@@@@@@@[@@@@@I@@F@@#JY )@@G@@@@@@@@CONT @[>@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ERROR JZ )@@G@@ASSIGNING FILE FOR & ______STATUS=& ______ @@@@@@@@@@@[@@@@@BKA )@@G@@@ASG,A . @@@@@ _____"@@@@@U@@@@@G@@@@@*@@@@@0@@@@@I@@F@@@@@@@@@CHKASGKB )@@G@@@[X@@# ______B$R$K$ ______B$R$K$ ______MORE THAN 12 CHAR KC )@@G@@ON BRK CARD FIELD 2 OR 3& ______BRK CARD ALREADY SPECIFIED. 2ND BRK KD )@@G@@CARD IGNORED.& ______SYTAX ERROR ON BRK CARD. TWO ASTERICS(*).&______KE )@@G@@CANNOT ASSIGN BRK FILE NAME=& ______BRK CARD IGNORED& ______NO FIELD 2 OKF )@@G@@N BRK CARD, CARD IGNORED& ______@@@@@@@@@@@[@@@@@^ . @@@@[KKG )@@G@@@@@@@B_____"@@@@@Y@@F@@]@@@@@@BRK1 @]W@@#BRK FILE, FILE NAME IS KH )@@G@@ ELT NAME IS VEKI )@@G@@RS NAME IS @@@@@@ ______M$A$R$ ______B$R$K$KJ )@@G@@ ______@@@@@@@@@@@[@@@@@ @@@@[]@@@@@D @@@@@A@@@@@]@@@@#)@@@@@8KK )@@G@@@@@@@I@@F@@[@@@@@@BREAK @[%@@#@@@@@@@@@@@[@@@@@^@@@@@]@@@@@@@@@@@A@@@@@ KL )@@G@@@@@@@B@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,KM )@@G@@______ S______ R______ A______@@@@@,______@DCTNRY ______KN )@@G@@*END ______@DCTNRY ______*END ______@ADD M$A$R$.______ERROR WHILE KO )@@G@@@ADDING FILE VIA CSF$, ERR CODE IS &______ @@@@@[@@@@@ @@@@@A@@@@@]KP )@@G@@@@@@@B@@@@@@@@@@@I@@@@@W@@[@@[_____"@@@@[K@@@@@G@@F@@[@@@@@@BPC @A @@]KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/,)[$(/,)[*BKR )@@G@@/,)[$W/,)[*S/,)[%[/,)[%C/,)[%L @#;@@@@#;@@@GETWD @[?@@@@@@@@@@#;@@[KS )@@G@@@#;@@[CDEL @[.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@ @@@@@@@@@@@@@@@@@@E%%%%:@ @@[@@@ ILLEGAL ARGUMENT IN CALLING SKU )@@G@@EQUENCE FOR SUBROUTINE MOVER @]E 72@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@FILENAME ELEMENT @@@@@@@@[@@@VERSIOKW )@@G@@N @ @@@[[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ *SDFF**[@@@@@@@@@@@ @@@@KX )@@G@@ @@@@@A@#;@@@@#;@@@SCANBL@[R@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@A@#;@@@@#;@@@SCAN @[>@@@@@@@@@@@[@@[@#;@@@@#;@@@SCAN2 @]A@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[LA )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[LB )@@G@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[LC )@@G@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[LE )@@G@@@@@@@[@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]^@)^@)^@)D([LK )@@G@@CT]^@)^@)^@1^@0AD[E(BA86^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[OD-H^[KELJCT LL )@@G@@ETND9M^@)^@)^@)^@)^[#E@2@O@@@@CC)CS2AC0A*0^@)^@)A )#@@@]AOPF LM )@@G@@ )#@@@]AP )#@@@]ASMBL F8] RBB )#@@@]BLANK$LN )@@G@@COMMON@[^[3MBPC K!C]UGBREAK K!:]UGBRK )#]@@]BRK1 LO )@@G@@ K,T]UGBUF )#@@@]B1 )#@@@]CHAR )#@@@]CHKASGLP )@@G@@ K,W]UGCONT K,Z]UGCPS )#@@@]CSF K,-]UGC1 LQ )@@G@@ @[^[U@DCT K,=]UGDXX )#[@@]EDIT$ MZ4F^EELT LR )@@G@@ K,(]UGERU$ H%#GMFF )#@@@]FAACM K,,]UGFACIL LS )@@G@@ K,0]UGFACPKT @ABD8MFN K,4]UGFS )#@@@]GETWD LT )@@G@@ EW*#]DGRAB K,7]UGH )#]@@]I )#@@@]IN LU )@@G@@ K,/]UGINFOR K\Q]UGINFOR$ H&?AYFIQUAL K0']UGK LV )@@G@@ @AAD;SLOC$ G&J K^LT K0_]UGMAIN F>\]VGMERGE LW )@@G@@ K1A]UGMOVER H:B[EBMVCHAR DW!BRDN )#]@@]NC LX )@@G@@ HQ(#]GNN @ABD36OP K13]UGOPT K2$]UGP LY )@@G@@ )#@@@]PDP K5C]UGPDP2 @AAD2,PNCH )#@@@]PNCHI LZ )@@G@@ )#@@@]PP K5F]UGPR )#]@@]PRINT K5H]UGPRTT MA )@@G@@ K5L]UGPSRABS K5P]UGPUNCH K5Q]UGPUNX K5T]UGRDS MB )@@G@@ F PEBEREAD K5V]UGSAVE K5X]UGSCAN IS+ETCSCANBLMC )@@G@@ C?_ QBSCAN2 C!F QBSCD01 DO]GEESDFI M(]GFESDFO MD )@@G@@ M+_F^ESEQ K5)]UGSEQX @AAD27SORTX G^GFOCSP ME )@@G@@ )#@@@]SPLFLG )#@@@]SS )#[@@]TOCX K54]UGTST MF )@@G@@ )#@@@]TT )#@@@]UN K56]UGWDS EQ\FGEXXRF MG )@@G@@ K59]UG^@)^@)^@)E@2@O@@@@CC)CS2AC0A*2^@)^@)$IBANK @@@@]G$DBANKMH )@@G@@ @A=@]5^@)^@)^@)^@)^@)^@)^@)^@1AK7^[^C(GDDQC(MC(^^@)^@)^@)^@)^@)^@)MI )@@G@@^[#E@2@O@@@@CC)CS2AC0A*2^@)^@)^@)D([CK!AC)^@)^@1^@0ADID9QA86^@)^@)^@)^@)MJ )@@G@@@@@@@/K@@[@^@]1@C@@@@@[(K@@[@^@^@@E1@@@@[2K@@[@^@@]@I1@@@@#JK@@[@^@[!@I3MK )@@G@@@@@@#DK@@[@^@ >@K)@@@@#GK@@[@^@##@Q @@@@]B@@@[@^@^B@TC@@@@]BC@@ @^@@@@C^ML )@@G@@@@@@]BC@@B@^@@@@B\@@@@]BC@@D@^@@@@B(@@@@[8@@@[@^@[=@XJ@@@@[8C@@#@^@@@@B;MM )@@G@@@@@@[8C@@ @^@@@@B"@@@@[8C@@B@^@@@@BU@@@@[8C@@D@^@@@@BR@@@@[8C@@F@^@@@@BCMN )@@G@@@@@@#3@@@[@^@@!@Y3@@@@#3C@@#@^@@@@C[@@@@#3C@@ @^@@@@B;@@@@#!@@@[@^@[8@Z)MO )@@G@@@@@@#!C@@#@^@@@@B"@@@@#!C@@ @^@@@@A%@@@@#!C@@B@^@@@@BX@@@@#=@@@[@^@][@-SMP )@@G@@@@@@#M@@@[@^@[[@O@@@@]4@@@[@^@]V@>UMR )@@G@@@@@@]4C@@#@^@@@@C[@@@@]4C@@ @^@@@@B;@@@@]4C@@B@^@@@@BI@@@@]1@@@[@^@@A@$5MS )@@G@@@@@@],@@@[@^@^E@$;@@@@],C@@#@^@@@@C[@@@@],C@@ @^@@@@B;@@@@],C@@B@^@@@@B)MT )@@G@@@@@@],C@@D@^@@@@BF@@@@]:@@@[@^@@\@? @@@@]:C@@#@^@@@@C[@@@@]:C@@ @^@@@@B;MU )@@G@@@@@@]*@@@[@^@@D@?4@@@@]+@@@[@^@[V@?.@@@@]+C@@#@^@@@@C[@@@@]+C@@ @^@@@@B;MV )@@G@@@@@@]+C@@B@^@@@@B2@@@@]Q@@@[@^@^.@,S@@@@]QC@@#@^@@@@C[@@@@]QC@@ @^@@@@B;MW )@@G@@@@@@]QC@@B@^@@@@B8@@@@]QC@@D@^@@@@B&@@@@]QC@@F@^@@@@B\@@@@]QC@@H@^@@@@BUMX )@@G@@@@@@]QC@@J@^@@@@BO@@@@]H@@@[@^@]H@3P@@@@[;@@@[@^@]Y@5+@@@@[;C@@#@^@@@@C[MY )@@G@@@@@@[;C@@ @^@@@@B;@@@@[;C@@B@^@@@@B5@@@@[;C@@D@^@@@@BU@@@@[;C@@F@^@@@@B)MZ )@@G@@@@@@[5@@@[@^@[<@8@@@@@[5C@@#@^@@@@B(@@@@[5C@@ @^@@@@BI@@@@[5C@@B@^@@@@BUNA )@@G@@@@@@[?@@@[@^@[V@9<@@@@[?C@@#@^@@@@A/@@@@[&@@@[@^@#,@'"@@@@[<@@@[@^@A>@"?NB )@@G@@@@@@[/@@@@#S@@@#@^@@][%4@@@@[R@@@[@^@])[%6NP )@@G@@@@@@[RC@@ @^@@@@C^@@@@@D@@@[@^@@8[!Q@@@@][@@@[@^@@,[,I@@@@["@@@[@^@@G[,/NQ )@@G@@@@@@#0@@@[@^@[J[\C@@@@##@@@[@^@[ [0R@@@@##C@@ @^@@@@C^@@@@#@@@@[@^@[6[1WNR )@@G@@@@@@#@C@@ @^@@@@C^@@@@#A@@@[@^@]7[3M@@@@#AC@@ @^@@@@C^@@@@]7@@@[@^@[N[6DNS )@@G@@@@@@[(0@@]@ @@W^@@@@@@#D0@@]@ @ >^@W@@@@]E=@@@@ @@^^A[@@@@[\=@@@@ @@[^A NT )@@G@@@@@@@==@@@@ @@N^AA@@@@#P=@@@@ @@Y^AT@@@@[I=@@@@ @@D^A7@@@@[)=@@@@ @@I^B@NU )@@G@@@@@@@3=@@@@ @["^BI@@@@@-=@@@@ @B@^DG@@@@@S=@@@@ @@I^KG@@@@]T=@@@@ @@X^KUNV )@@G@@@@@@#Y=@@@@ @@J^K7@@@@]Z=@@@@ @@M^LA@@@@]W=@@@@ @@P^LS@@@@#$=@@@@ @@]^L!NW )@@G@@@@@@@A=@@@@ @]>^L\@@@@@#=@@@@ @@]^OO@@@@#%=@@@@ @DS^OQ@@@@#V=@@@@ @@A^X,NX )@@G@@@@@@]>=@@@@ @@B^X4@@@@@!=@@@@ @@-^X;@@@@[ =@@@@ @@+^YW@@@@#-=@@@@ @\U^Y"NY )@@G@@@@@@@9=@@@@ @@L IS@@@@]^=@@@@ @@A I(@@@@[X=@@@@ @@I I\@@@@[O=@@@@ @@A I.NZ )@@G@@@@@@]N=@@@@ @@X J#@@@@@Y=@@@@ @@S J)@@@@@G=@@@@ @@# J8@@@@@@=@@@@ @@ J;OA )@@G@@@@@@@J=@@@@ @@@ K@@@@@]B)@@@@ @@O K@@@@@]B)@@]@ @@A KO@@@@]B*@@A@ @@@@C[OB )@@G@@@@@@]B*@@C@ @@@@A%@@@@]B*@@E@ @@@@BU@@@@[8)@@@@ @@\ KU@@@@[8*@@]@ @@@@C^OC )@@G@@@@@@[8*@@^@ @@@@C[@@@@[8*@@A@ @@@@B(@@@@[8*@@C@ @@@@BX@@@@[8*@@E@ @@@@BLOD )@@G@@@@@@[8*@@G@ @@@@B5@@@@#3)@@@@ @@U LD@@@@#3*@@]@ @@@@C^@@@@#3*@@^@ @@@@B"OE )@@G@@@@@@#3*@@A@ @@@@B5@@@@#!)@@@@ @#! L<@@@@#!*@@]@ @@@@C^@@@@#!*@@^@ @@@@B;OF )@@G@@@@@@#!*@@A@ @@@@B)@@@@#=)@@@@ @BN PK@@@@#M)@@@@ @@G W<@@@@#M*@@]@ @@@@C^OG )@@G@@@@@@#M*@@^@ @@@@A3@@@@].)@@@@ @]S W\@@@@].*@@]@ @@@@C^@@@@].*@@^@ @@@@B;OH )@@G@@@@@@]4)@@@@ @@- ZB@@@@]4*@@]@ @@@@C^@@@@]4*@@^@ @@@@B"@@@@]4*@@A@ @@@@A9OI )@@G@@@@@@]4*@@C@ @@@@BF@@@@],)@@@@ @@S Z*@@@@],*@@]@ @@@@C^@@@@],*@@^@ @@@@B"OJ )@@G@@@@@@],*@@A@ @@@@B\@@@@],*@@C@ @@@@BI@@@@],*@@E@ @@@@B(@@@@]:)@@@@ @@V )@OK )@@G@@@@@@]:*@@]@ @@@@C^@@@@]:*@@^@ @@@@B"@@@@]:*@@A@ @@@@B5@@@@]+)@@@@ @@? )VOL )@@G@@@@@@]+*@@]@ @@@@C^@@@@]+*@@^@ @@@@B"@@@@]+*@@A@ @@@@B5@@@@]Q)@@@@ @@< -BOM )@@G@@@@@@]Q*@@]@ @@@@C^@@@@]Q*@@^@ @@@@B"@@@@]Q*@@A@ @@@@A!@@@@]Q*@@C@ @@@@B(ON )@@G@@@@@@]Q*@@E@ @@@@B<@@@@]Q*@@G@ @@@@B)@@@@]Q*@@I@ @@@@BR@@@@]Q*@@K@ @@@@B OO )@@G@@@@@@]K)@@@@ @@] -%@@@@]H)@@@@ @@2 -?@@@@[;)@@@@ @@< +Y@@@@[;*@@]@ @@@@C^OP )@@G@@@@@@[;*@@^@ @@@@B"@@@@[;*@@A@ @@@@B?@@@@[;*@@C@ @@@@B\@@@@[;*@@E@ @@@@B(OQ )@@G@@@@@@[5)@@@@ @D7 <[@@@@[5*@@]@ @@@@C^@@@@[5*@@^@ @@@@BX@@@@[5*@@A@ @@@@BROR )@@G@@@@@@[?)@@@@ @@I ?8@@@@[?*@@]@ @@@@C^@@@@[?*@@^@ @@@@A6@@@@[&)@@@@ @[P !AOS )@@G@@@@@@[&)@@]@ @@Q ,V@@@@[<)@@@@ @[_ ,1@@@@[<*@@]@ @@@@C^@@@@[<*@@^@ @@@@A0OT )@@G@@@@@@[<*@@A@ @@@@A!@@@@[<*@@C@ @@@@B5@@@@[<*@@E@ @@@@BO@@@@[<*@@G@ @@@@A/OU )@@G@@@@@@[<*@@I@ @@@@B"@@@@[<*@@K@ @@@@A3@@@@[U)@@@@ @@K 00@@@@[U*@@]@ @@@@C^OV )@@G@@@@@@[L)@@@@ @@O 1@@@@@[L*@@]@ @@@@C^@@@@[L*@@^@ @@@@C[@@@@[L*@@A@ @@@@BXOW )@@G@@@@@@[F)@@@@ @@# 1O@@@@[C)@@@@ @@% 1R@@@@[C*@@]@ @@@@C^@@@@[C*@@^@ @@@@B"OX )@@G@@@@@@[C*@@A@ @@@@B5@@@@[C*@@C@ @@@@B\@@@@[C*@@E@ @@@@B(@@@@[C*@@G@ @@@@B@@@@@%*@@]@ @@@@C^PC )@@G@@@@@@@$)@@@@ @@) 3[@@@@@$*@@]@ @@@@C^@@@@@V)@@@@ @[C 3-@@@@@V*@@]@ @@@@C^PD )@@G@@@@@@@V*@@^@ @@@@A9@@@@@V*@@A@ @@@@A6@@@@@P)@@@@ @@, 4(@@@@@P*@@]@ @@@@C^PE )@@G@@@@@@@P*@@^@ @@@@A_@@@@@M)@@@@ @[G 5R@@@@@M*@@]@ @@@@C^@@@@@M*@@^@ @@@@B"PF )@@G@@@@@@@M*@@A@ @@@@B8@@@@@M*@@C@ @@@@B2@@@@@M*@@E@ @@@@B?@@@@@M*@@G@ @@@@B&PG )@@G@@@@@@@M*@@I@ @@@@B)@@@@@M*@@K@ @@@@BU@@@@@M*@@M@ @@@@BO@@@@@M*@@O@ @@@@BIPH )@@G@@@@@@@M*@@Q@ @@@@BC@@@@#S)@@@@ @@5 6<@@@@#S*@@]@ @@@@C^@@@@[R)@@@@ @@N 7SPI )@@G@@@@@@[R)@@]@ @@^ 7:@@@@@D)@@@@ @@] 7\@@@@][)@@@@ @@[ 71@@@@[")@@@@ @@F 72PJ )@@G@@@@@@#0)@@@@ @@Z 7.@@@@##)@@@@ @@C 8W@@@@##)@@]@ @@^ 8=@@@@#@)@@@@ @@H 8*PK )@@G@@@@@@#@)@@]@ @@A 85@@@@#A)@@@@ @@P 8;@@@@#A)@@]@ @@G 9K@@@@#A)@@^@ @#@ 9WPL )@@G@@@@@@]7)@@@@ @@W /WC(]A87^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@2@O@@@@CC)CS2AC0A87^@)^@)BPC @ N@ELBREAK PN )@@G@@ @ E@[-BRK1 @ [@#JCHKASG @^;@[OCONT @^5@[!CSF PO )@@G@@ @^2@@@DCT @^(@[CDUSE$ @@#@]&ECHAR$ @@@@@(ECOPY$PP )@@G@@ @@@@[LEDECF$ @@@@]HEDITR$ @@@@@HEDITX$ @@@@@REDIT$ PQ )@@G@@ @@@@@@ELT @^O@]PELT$ @A=@@IEMSG$ @@@@[-EOCTF$PR )@@G@@ @@@@] ESKIP$ @@@@@2FAACM @#9@ANFACIL @GG@@@FILE$ PS )@@G@@ @A=@@AFN @#0@]QGETC @A#@@@GETWD @ .@[QGRAB PT )@@G@@ @#!@[^IGC @A#@@@IGCL @A#@@IIN @#P@A)INUSE PU )@@G@@ @#M@@KIQUAL @#G@[GLOC @@A@@@LT @#@@[XMERGE PV )@@G@@ @],@]TMODB @A#@@\MOVER @AD@@@MVCHAR @AA@@@NC PW )@@G@@ @@M@#(NERR2$ @@G@#HNERR3$ @@G@#ZNERR4$ @@G@#&NERR6$PX )@@G@@ @@G@^JNINTR$ @@G@[#NSTOP$ @@G@ ^NXFILE @#M@@#OPA PY )@@G@@ @]:@@>OPAF @]:@@ZOPAFP @]:@@-OPAP @]:@@$OPO PZ )@@G@@ @]:@@:OPOP @]:@@!OPRIME @]:@@@OPT @E?@@@PDP QA )@@G@@ @]N@^6PGETWD @ .@[TPP @]B@[RPRINT @]^@@@PRTT QB )@@G@@ @[;@@:PSCAN2 @AV@],PSRABS @[?@^^PUNCH @[(@@@PUNX QC )@@G@@ @[X@]LPUTC @A#@@RRDS1 @A-@@@RDS2 @A-@@:RDS3 QD )@@G@@ @A-@[IREAD @[U@@@RINF$ @@#@@@SAVE @[L@@8SCAN QE )@@G@@ @AP@[YSCANBL @AJ@@8SCAN2 @AV@]YSDFI @@J@@@SDFIC QF )@@G@@ @@J@].SDFIO @@J@]KSDFO @@D@@@SDFOC @@D@[KSDFOO QG )@@G@@ @@D@@3SELT$ @@#@@'SEQ @[C@@'SORTX @ 7@@@TOCX QH )@@G@@ @[ @[BTOCXP @[ @@@UN @@9@[4WDS1 @AG@@@WDS2 QI )@@G@@ @AG@@?WDS3 @AG@@"XXRF @@0@@(^@)^@)^@)^@)AK3BC1A8)^@)QJ )@@G@@^@)^@1@O@@@@CC)CS2AC0B@2^@)^@)^@)D([CT]^@)^@)^@1^@0ADNC(KA86^@)^@)^@)^@)QK )@@G@@*[@@@@*SDFF*@ @@@@@HDG ALLOCATION @ @@@@@SPL QL )@@G@@ALLOCATION @E@@@@@ASM,S TPF$.ALLOCATION,TPF$.ALLOCATION,TPF$.ALLOCQM )@@G@@ATION @^@@@@@HDG BPC @^@@@@@SPL BPC @B@@@@QN )@@G@@@F.FOR,S TPF$.BPC,TPF$.BPC,TPF$.BPC @^@@@@@HDG BREAK QO )@@G@@@^@@@@@SPL BREAK @C@@@@@F.FOR,S TPF$.BREAK,TPF$.BREAK,QP )@@G@@TPF$.BREAK @^@@@@@HDG BRK1 @^@@@@@SPL BRK1 QQ )@@G@@@C@@@@@F.FOR,S TPF$.BRK1,TPF$.BRK1,TPF$.BRK1 @^@@@@@HDG QR )@@G@@ CHKASG@^@@@@@SPL CHKASG@D@@@@@F.FOR,S TPF$.CHKASQS )@@G@@G,TPF$.CHKASG,TPF$.CHKASG @^@@@@@HDG CONT @^@@@@@SPL QT )@@G@@ CONT @C@@@@@F.FOR,S TPF$.CONT,TPF$.CONT,TPF$.CONT QU )@@G@@@^@@@@@HDG CSF @^@@@@@SPL CSF @B@@@@@ASM,SQV )@@G@@ TPF$.CSF,TPF$.CSF,TPF$.CSF @^@@@@@HDG DCT @^@@@@QW )@@G@@@SPL DCT @B@@@@@F.FOR,S TPF$.DCT,TPF$.DCT,TPF$.DCT QX )@@G@@@^@@@@@HDG ELT @^@@@@@SPL ELT @B@@@@@F.FORQY )@@G@@,S TPF$.ELT,TPF$.ELT,TPF$.ELT @^@@@@@HDG FAACM @^@@@@QZ )@@G@@@SPL FAACM @C@@@@@F.FOR,S TPF$.FAACM,TPF$.FAACM,TPF$.FRA )@@G@@AACM @^@@@@@HDG FACIL @^@@@@@SPL FACIL @C@@@@RB )@@G@@@ASM,S TPF$.FACIL,TPF$.FACIL,TPF$.FACIL @^@@@@@HDG RC )@@G@@FN @^@@@@@SPL FN @B@@@@@F.FOR,S TPF$.FN,TPF$.FN,RD )@@G@@TPF$.FN @^@@@@@HDG GRAB @^@@@@@SPL GRAB RE )@@G@@@C@@@@@F.FOR,S TPF$.GRAB,TPF$.GRAB,TPF$.GRAB @^@@@@@HDG RF )@@G@@ IN @^@@@@@SPL IN @B@@@@@F.FOR,S TPF$.IN,TPRG )@@G@@F$.IN,TPF$.IN @^@@@@@HDG INFOR @^@@@@@SPL RH )@@G@@INFOR @C@@@@@ASM,S TPF$.INFOR,TPF$.INFOR,TPF$.INFOR @^@@@@@HDG RI )@@G@@ IQUAL @^@@@@@SPL IQUAL @C@@@@@F.FOR,S TPF$RJ )@@G@@.IQUAL,TPF$.IQUAL,TPF$.IQUAL @^@@@@@HDG LT @^@@@@@SPL RK )@@G@@ LT @B@@@@@F.FOR,S TPF$.LT,TPF$.LT,TPF$.LT @^@@@@RL )@@G@@@HDG MAIN @^@@@@@SPL MAIN @C@@@@@F.FOR,S RM )@@G@@ TPF$.MAIN,TPF$.MAIN,TPF$.MAIN @^@@@@@HDG MERGE @^@@@@RN )@@G@@@SPL MERGE @C@@@@@F.FOR,S TPF$.MERGE,TPF$.MERGE,TPF$.MRO )@@G@@ERGE @^@@@@@HDG NC @^@@@@@SPL NC @B@@@@RP )@@G@@@F.FOR,S TPF$.NC,TPF$.NC,TPF$.NC @^@@@@@HDG OP RQ )@@G@@@^@@@@@SPL OP @A@@@@@ASM,S TPF$.OP,TPF$.OP,TPF$.OP RR )@@G@@@^@@@@@HDG OPT @^@@@@@SPL OPT @B@@@@@ASM,SRS )@@G@@ TPF$.OPT,TPF$.OPT,TPF$.OPT @^@@@@@HDG PDP @^@@@@RT )@@G@@@SPL PDP @B@@@@@F.FOR,S TPF$.PDP,TPF$.PDP,TPF$.PDP RU )@@G@@@^@@@@@HDG PP @^@@@@@SPL PP @B@@@@@F.FORRV )@@G@@,S TPF$.PP,TPF$.PP,TPF$.PP @^@@@@@HDG PRINT @^@@@@RW )@@G@@@SPL PRINT @C@@@@@ASM,S TPF$.PRINT,TPF$.PRINT,TPF$.PRIRX )@@G@@NT @^@@@@@HDG PRTT @^@@@@@SPL PRTT @C@@@@RY )@@G@@@F.FOR,S TPF$.PRTT,TPF$.PRTT,TPF$.PRTT @^@@@@@HDG RZ )@@G@@PSRABS@^@@@@@SPL PSRABS@D@@@@@F.FOR,S TPF$.PSRABS,TPF$SA )@@G@@.PSRABS,TPF$.PSRABS @^@@@@@HDG PUNCH @^@@@@@SPL SB )@@G@@ PUNCH @C@@@@@ASM,S TPF$.PUNCH,TPF$.PUNCH,TPF$.PUNCH @^@@@@SC )@@G@@@HDG PUNX @^@@@@@SPL PUNX @C@@@@@F.FOR,S SD )@@G@@ TPF$.PUNX,TPF$.PUNX,TPF$.PUNX @^@@@@@HDG READ @^@@@@SE )@@G@@@SPL READ @B@@@@@ASM,S TPF$.READ,TPF$.READ,TPF$.READ SF )@@G@@@^@@@@@HDG SAVE @^@@@@@SPL SAVE @C@@@@@F.FORSG )@@G@@,S TPF$.SAVE,TPF$.SAVE,TPF$.SAVE @^@@@@@HDG SEQ SH )@@G@@@^@@@@@SPL SEQ @B@@@@@F.FOR,S TPF$.SEQ,TPF$.SEQ,TPF$SI )@@G@@.SEQ @ @@@@@HDG TEST-RUN @ @@@@@SPL TEST-RSJ )@@G@@UN @B@@@@@ELT,L TPF$.TEST-RUN,TPF$.TEST-RUN @ @@@@@HDG SK )@@G@@ TEST-RUN2 @ @@@@@SPL TEST-RUN2 @B@@@@@ELT,L SL )@@G@@TPF$.TEST-RUN2,TPF$.TEST-RUN2 @^@@@@@HDG TOCX @^@@@@@SPL SM )@@G@@ TOCX @B@@@@@ASM,S TPF$.TOCX,TPF$.TOCX,TPF$.TOCX @^@@@@SN )@@G@@@HDG U @^@@@@@SPL U @A@@@@@F.FOR,S SO )@@G@@ TPF$.U,TPF$.U,TPF$.U @^@@@@@HDG UN @^@@@@@SPL SP )@@G@@ UN @B@@@@@F.FOR,S TPF$.UN,TPF$.UN,TPF$.UN @ @@@@@HDG SQ )@@G@@ USERDOC @ @@@@@SPL USERDOC @B@@@@@ELT,LSR )@@G@@ TPF$.USERDOC,TPF$.USERDOC @^@@@@@HDG XXRF @^@@@@SS )@@G@@@SPL XXRF @C@@@@@F.FOR,S TPF$.XXRF,TPF$.XXRF,TPF$.XXRST )@@G@@F @[@@@@@HDG,N@#@@@@@PACK TPF$. @#@@@@@PREP TPF$. @^@@@@SU )@@G@@@HDG MAP @^@@@@@SPL MAP @B@@@@@MAP,L SV )@@G@@TPF$.MAP,TPF$.MAP,TPF$.MAP @[@@@@@HDG,N@]@@@@@DCTNRY @[@@@@*END SW )@@G@@@[@@@@@HDG,N@#@@@@@PACK TPF$. @#@@@@@PREP TPF$. @#@@@@@PRT,TSX )@@G@@ TPF$. @^@@@@@XREF TPF$. ___U @^@@@@@HDG SY )@@G@@UN @^@@@@@SPL UN @B@@@@@F.FOR,S TPF$.UN,TPF$.UN,SZ )@@G@@TPF$.UN @ @@@@@HDG USERDOC *[S@@[*SDFF*@E@@@^^@)^@)TA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)C[HCDME1 D))^@)@[@@@^^@)^@)@N@@@^TB )@@G@@E-*G*)C[HCDME1 D))I[2H9H1>IL-I->IS)GT\H14IL\H))IT4GD4G(!G(,TC )@@G@@I-3^[4H8)GT-H-?^[\I-*G(2^[0IL\GT>IT3H92IS)@L@@@^ [@C1JEK?^[@D([E@?^[>I-^[3JD!GL\H-(GS)G(?G(!G(,I-3^@*A00A@)TE )@@G@@H(-J@(@K@@@^H9,^[-^[0IL\G92GD!^[&HD?G*,^@)E-*G*)IT4GD4G(!G(,I-3^[$G(,G(2TF )@@G@@GD4G(=^[+JC)C[HCDME1 D))GT-H0)GL>^@)@L@@@^GD5I-\H(-I-(GT-H-?JC)C[[C-^G(=TG )@@G@@^[\IK)I-*G(9^[G))HD,^[-^[3JD!GL\H-(GS)G(?G(!G(,I))H9,^[-TH )@@G@@@M@@@^I[2H9$IL-H*)G1(H-> 0)^[@D([ELQC(G^[2G(-G-3^[=GD4GC)GT-IL=IS)I9*HDH(>H14^[4H[>^[(H1&H92 *)@I@@@^H(-I-(H9,^[$HD6G(,^[(H0)TJ )@@G@@HD4IS)H90I-(H9,IS)GD,G))IT0G(GS1 0?IT0G(GS3TL )@@G@@ 0)^@)@H@@@BG1\IL!GD4BK)^[@D([ELQC(GFS?H90I-(H9,ITX^[VIT0G(GS2TM )@@G@@ 1VIT0G(^[J[4^[@^[IT3^[4H[>^[>H->H(>H14IS)GD?I[*GD+G(4HDG1>IL>H1H14IL9^[0H9(H14TR )@@G@@IS)GD,G))^@)@^@@@^^@)^@)^[2G(&G(2G(,GT>IS,@G@@@^^@)ES)^[H1>IL-I->^[+H-\GT:^[?G(4I->IK)H[>GD=G(2IS)@[@@@^^@)^@)@^@@@^IT0G(^[0IL\G92GD!^[&HD?TU )@@G@@G*)I9*H93G*)IT9H(+H9?HD<^[>H->H(>H14IS)GD2G*)I-\^[+G*)IL>GD=^[-H1=@K@@@^TV )@@G@@^@)^@)^@)^@)^[0IL\GT>IT3G(= 0)^[DG0)IT0G(^[-IT3I(!G(= 0)@[@@@^^@)^@)@L@@@^^@)IT0G(^[0IL\G92GD!TX )@@G@@^[&HD?G*)H9,^[7H[(GT*^[4H[>^[2G(?H9^[\I(4I[5I))G(?G(!G(,I-3^@)TY )@@G@@@K@@@^^@)^@)^@)^@)^@*G12H9!^[@C1JEK?^[@CDND*?^[>I-< C)GD,G))I-*G*)GD+IT\TZ )@@G@@H-5I->^[\I(4I[5I))G(?G(!G(,I-3@L@@@^^@)^@)^@)^@)^@*G12H9!^[@D([E@(^[-IL>UA )@@G@@^[4H8)I92HD4I->H0,^@)DD&^[3I[>GS2^[(IS)H9!HD4I->G)?^[OE[A^))I9(H-?@ @@@^UB )@@G@@^@)^@)^@)^@)^[+G*)I(3G(= 0)^@)@[@@@^^@)^@)@L@@@^^@)IT0G(^[0IL\UC )@@G@@G92GD!^[&HD?G*)H9,^[7H[(GT*^[3JD!GL\H-(GS)H95I-0I(4^[>H->H(>H14IS)G12H9!UD )@@G@@^[4H[>@M@@@^^@)^@)^@)^@)^[0IL\GT>IT3H92IS)GD2G*)I-\^[+G*)I92HD4I->H0,^@)UE )@@G@@DD&^[3I[>GS3^[(IS)H9!HD4I->G)?^[4H[>IL>^[7HD?H))@E@@@^^@)^@)^@)^@)^[+G*)UF )@@G@@H1\^[3JD!GL\H-(GS)H95I-0I(4^[>H->H(>H14IS,@[@@@^^@)^@)@^@@@CG-(IL>GT4HD6UG )@@G@@G*)GT-IL=IS'@[@@@C^@)^@)@K@@@CCD?H))G--I--^[^[\I[4HD\H1-H),^@)E-*G(9^[^[@D([ELQC(G^[4H8)@L@@@CGT*GD,G9>^[(UI )@@G@@I-3^[\I(4I[5I))H92^[4H8)G9>H1>IL-I->^[-G-=HD4HD\H1-H))I[2H9GT4HD6G*)GT-IL=IS'^[[H-?^[=GD4GC)GT-IL=IS)G1\IK)C[HCDMUL )@@G@@E1 D))GD2G*)H90I-(H9,GD? 0)^[OH[>JC)GT-I(3G*)^@)@K@A@^C[!GD2I1>H))I-\^[UN )@@G@@IT3H92@K@C@AC[HCDME1 D))I-\^[IT3H92@G@C@^GT-H-?IS,^@)E-*G(9^[-IL>^[(H1=UP )@@G@@HD6HD=I(-H-?JC)G->ITG))GL>H-\I8,^@)@[@@@^^@)^@)@[@@@^^@)^@)@ @@@^UQ )@@G@@CLMDS)^[&HD?G*)^[>H->H(>H14^@)@[@@@^^@)^@)@M@@@^I-*G*)CLMDS)GT-IL=^[(H1*UR )@@G@@HD+HD4IS)I-*G*)GD5I-\H(-I-(GS)C[[C-^HD,G8)H9&^[4H[>^[US )@@G@@H(>H14IS)^@)@L@@@^G9>H1>IL-I->G))GL9^[@D([ELQC(G^[-H1=^[IS)I-*G(!UT )@@G@@^[4H8)GL>^[7IL(I-4G(,^[\H14H8)GC)IT9H(+H9?HD<^@)@K@@@^G(?G(!G(,I))HD,^[-UU )@@G@@^[0IL\G92GD!^[&HD?G*,^@)E-*G*)G1(H->^[,GD!G*)H(5IT4^[-I[0G(-IK?^[7HD4H[\UV )@@G@@I(4^[-@K@@@^I[>IL(H9= 0)^[OH[>^[>H->H(>H14^[,GD!G*)H(-JC)GL>^[\H((I-4G(=UW )@@G@@ ))HD,^[7H[(GT*^[^[4H[>^[H(>H14IS)H9,I-\^[-H0)ET^C0)G1(H->^[(H13I->GD=^[\G0)I92HD4HD,UY )@@G@@G8)^@)@C@@@^I-*G(!^[\H14H8)GC)IT9H(+H9?HD<^[>H->H(>H14 0)^@)@[@@@^^@)^@)UZ )@@G@@@[@@@^ET[E1 @[@@@^^@)^@)@L@@@^E-*G*)ET[E1 ^[H->H(>H14^[,GD!G(=^[!GD2I1>H-^[,GD!G(=^[(H0)IT0G(H->H(>H14^[,GD!G(=^[HVD )@@G@@CDME1 D-#CDMC-N^[\H0)I-*G*)I[2H9$IL-H*)G1(H->^[,GD!G(=^[(H0)IT0G(IS)H1\I))HD,H[(GL(I))I-*G*)C[[C-^HD,G8)H9&^[H(>H14IS)G9>H1>IL-I->G))GL9@]@@@^C[HCDME1 D))@[@@@^^@)^@)@[@@@^VG )@@G@@E[#D@)@[@@@^^@)^@)@N@@@^E-*G*)E[#D@)GT-IL=^[IS)C[HCDME1 D))I-\^[0VH )@@G@@I(,GT*^[4H[>^[H(>H14IS)HD4^[$G(,G(2GD4G(3 0)^@)@[@@@^VI )@@G@@^@)^@)@ @@@^I[2H9^[0IL\GT>IT3H92IS)GT-H0)GL>^[3I[>GT(VK )@@G@@G1(G(=^[+JC)HD,GT?I(=HD,G8)^@)@L@@@^I-*G(!^[\H0)GC)GT-IL=^[7HD4H@)I-*G*)VL )@@G@@I[2H9 0)^[DG0)H1\^[0IL\GT>IT3H92^[\I[4HD\H13^[-IL>@E@@@^VM )@@G@@I(3G(= ))C[HCDME1 D))I9(H-?^[-IT3I(!G*)I-*G*)G1\H-?H97HD,G8'@[@@@^^@)^@)VN )@@G@@@]@@@^C1JEK)^[N^@)@]@@@^CDND*)^[N^@)@]@@@^D([E@)^[N^@)@ @@@^E[^E@)^[G ))VO )@@G@@C1G ))D9M^[#D))^@)@]@@@^C(GE))^[G^@)@#@@@^CTJCK)^[]C(MES)^@)@]@@@^CDGC8)VP )@@G@@^[N^@)@]@@@^C-JCS)^[N^@)@[@@@^^@)^@)@C@@@^I[2H9I90IL\GT>IT3VQ )@@G@@H92^@)H90I-(H9,IS)@[@@@^^@)^@)@L@@@^E-*HD3^[I90IL\GT>IT3H92^[4H8)GL>@F@@@^VS )@@G@@GT-H-?G(=^[(H13I->GD=^[\G0)I[2H9^[@D([ELQC(G^[4H8)G9>H1>IL-I->^[3I--I->H(>H14IS)I-*GD4^[3GD9BK)VV )@@G@@@[@@@^^@)^@)@E@@@^^@)^[@DDK LAD9ME),C1JELO -]ETA^@)^[3I[>GT(G1(GT-I-(H9,VW )@@G@@IS)^@)@[@@@^^@)^@)@#@@@^HD,IT4G(-G))H9&^@)@[@@@^^@)^@)@B@@@^^@)^[@C1JEK?VX )@@G@@ES)^[3I[>GT(G1(GT-I-(H9,IS)^@)@[@@@^^@)^@)@B@@@^G1\IK)GD?H))C1JELOEL[D0)VY )@@G@@IT9H(+H9?HDVZ )@@G@@GD=HD,G8)^@)@[@ @^F0)^@)@[@@@ ^@)^@)@M@@@^I-*G*)D[^C8)GT-IL=^[IS)WA )@@G@@C[HCDME1 D))I-\^[5IT>^[4H[>^[3I[>GT(G1(G(=^[*G(-G-(H1$^[-H1=^[\I[4HD\H13WB )@@G@@ 0)^@)@L@@@^E9(I-*H95I))I-*G*)D[^C8)GT-IL=^[@D([ELQC(G^[7HD?H))G9>H1>IL-WC )@@G@@I->^[-^[3G(0GD2GD4G*)H[>GD=HD,G8)G1\IK)^@)@D@@@^G(-GT*^[>H->H(>H14^[5IT(WD )@@G@@H1$^[4H[>^[>H->H(>H14^[,GD!G*,@[@ @^F0)^@)@[@@@ ^@)^@)@#@@@^C-#E))^[\I[4WE )@@G@@HD\H13@[@ @^F0)^@)@[@@@ ^@)^@)@K@@@^E-*G*)C-#E))GT-IL=^[IS)C[HCDMWF )@@G@@E1 D))I-\^[*GD6G*)C[^CTOD1MFC)G(8G(GD^[HC(M^[G)?^[\H1^[>H1=@K@@@^H9&^[-H-?^[4H[>^[AD9ME-MCDI^[^[\I[4HD\H13^[&H92^[@C-#E-IELT^[-IL>^@)@D@@@^I--HT>H0)G12H9!^[4WJ )@@G@@H[>^[\I[4HD\H13^[&HD>H-=^[\G0)C-#E),@[@ @^F0)^@)@[@@@ ^@)^@)@[@@@^D( EK)WK )@@G@@@[@ @^F0)^@)@[@@@ ^@)^@)@K@@@^E-*G*)D( EK)GT-IL=^[IS)C[^CTOD1MFC)WL )@@G@@I-\^[+G*)G(8G( ))GD4^[4H[>^[>H1=@K@@@^H9&^[-H-?^[4WM )@@G@@H[>^[AD9ME-MCDI^[GD=^[\G0)IT>I[-IL-I->^[>J[>WN )@@G@@GT5I-(H9,IS)@K@@@^G1\IK)G(-GT*^[GT>IT3WO )@@G@@GD2JC)HD&^[4H[>^[H^[\I[4HD\H0)HD3^[5IT>G))@^@@@^H9,^[4H[>^[^CTO^[IS)GD?H))H9&^[4H[>^[>H->H(>H14IS)H9&^[3G(?G(G))I-9I[>IS)G12H9!^[4H[>^@)@L@@@AG1(H->^[,GD!G(=^[(H0)IT0G(^[@D([ELQC(G^[3I--I->H(>H14^[4H8)GL>^[0I(,GT*G(= 0)^[JI[4HD\H13@K@@@AWT )@@G@@G1\IK)I-*G*)E[PD0)GT-IL=^[(H1^[I ))ES?^[M ))CC?^[B ))DK?^[-H1=^[CWU )@@G@@ 0)^[OH[>^[I^[\I[4HD\H0)@M@@@AHD,H[(GL(I-3^[-H-?^[\I-*G(2^[&I(,GT4HD\H13WV )@@G@@^[\G0)C[HCDME1 D))G(8GT>I[4^[-H-0H[-GL>I-(JL(H1$ 0)^[OH[>^[N ))^@)@L@@@AWW )@@G@@EK?^[-H1=^[[^[\I[4HD\H13^[^[NJD!GL\H-(GS?^[MG(?H9 ))GD,WX )@@G@@G))CD+IT\H-5I->^[>H->H(>H14IS)@M@@@AI-\^[+G*)I[5H1G)?^[2G(3I[>GT4HD6WY )@@G@@G(?JC,^@)E9*G(,^[4H[>^[I^[\I[4HD\H0)HD3^[0IL>IT>H14 ))IL>H-\GT-I--GL?G*)WZ )@@G@@@M@@@AGD,G))GD+IT\H-5I->^[>H->H(>H14IS)I9(H-?^[+G*)I[5H1G))G12H9!^[4XA )@@G@@H[>^[&HD?G*)H1-H(>G))HD,^[3I[>GS1^[\G0)^@)@M@@@AI-*G*)C[HCDME1 D))IT4GD4XB )@@G@@G(!G(,I),^@)E9*G(,^[4H[>^[I^[\I[4HD\H0)HD3^[,H94^[0IL>IT>H14 ))IL>H-\GT-XC )@@G@@I--GL?G*)^@)@L@@@AGD,G))GD+IT\H-5I->^[>H->H(>H14IS)I9(H-?^[+G*)I[5H1XD )@@G@@G))G12H9!^[4H[>^[&HD?G*)HD,^[7H[(GT*^[@D([ELQC(G@L@@@AGT-I(3G(3^[4H[>H*)XE )@@G@@I-\^[+G*)I[?GD^[,GD!G(=^[(H0)IT0G(XF )@@G@@GS2^[(IS)^@)@M@@@AGD+IT>H14 ))I-*G*)G1(H->^[,GD!G(=^[(H0)IT0G(^[B ))DK?^[-H1=^[C^[\I[4HD\H13^[-H1=^[3G(1 (^[>J[0G(,IT(I1>^[4H8)I(3G*)GD3^[(I))GT-I(3G(3XJ )@@G@@^[H->H(>H14IS)^@)@L@@@AI-\^[+G*)G-\H1> 0)XK )@@G@@^[DG0)GC)IT(H(0H->^[?HD3I-(H1$^[(IS)GD?H))I-*GD4^[(IS)G->IT(IL>G)?^[4H[>XL )@@G@@^[@ET D1^^@)@E@@@AI[2H9^[5IT>G))G1\IK)I-*HD3^[0I(2I[\XM )@@G@@IT> 0)@[@@@A^@)^@)@#@@@AG(8GD!I[?G(3BK)^@)@[@@@A^@)^@)@A@@@A^[@D([ELQC(GXN )@@G@@^@)E-KC0= 0?E-KC0= 0)^@)@]@@@B^[@C(JC0)^@)@[@@@A^@)^@)@L@@@AE-*G*)IT9H(+XO )@@G@@H9?HD (G)?^[-H1=^[4H[>^[2G(?H9^[\I(4I[5I))^@)@M@@@AG(?G(!G(,I-3^[-IL>^[7IL(I-4G(,^[\H0)E-KC0= 0)^[OXQ )@@G@@H[>IL>^[-IL>^[,H8)IT9H(+H9?HD<^[\I(4I[5I))G(?G(!G(,I-3 0)^@)@[@@@A^@)^@)XR )@@G@@@]@@@A^[@D([ELQC(G@]@@@B^[@C(JC0)^@)@[@@@A^@)^@)@A@@@AET-H(>^[-IS)I-*G*)XS )@@G@@GD+H96G*)GT-IT> 0)@[@@@A^@)^@)@C@@@A^[@D([ELQC(G -[^[UCLJC- 0?E-KC0= 0?XT )@@G@@E-KC0= 0)^@)@[@@@A^[KCTC@]@@@A^[@C(JC0)^@)@[@@@A^@)^@)@M@@@AE-*G*)IT9H(+XU )@@G@@H9?HD<^[>H->H(>H14IS)H9,^[UCLJC- ^[-IL>^[2G*!GT\H(0HD?G(=^[(H0)GD?I[*GD+XV )@@G@@G(4HD^[\I(4XW )@@G@@I[5I))G(?G(!G(,I-3^[-IL>^[7IL(I-4G(,^[4H8)E-KC0= 0)^[OH[>^@)@K@@@AGT\H14XX )@@G@@IL\H))IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)C[HCDME1 D))GD2G*)I[5H1G))XY )@@G@@H9,^[H->H(>H14IS)HD,YB )@@G@@^[OE[A^))GD2G*)IL> (G)?^[7HD4H@)I-*G*)IL>H-\GT-I--GL?G*)@K@@@AYC )@@G@@H95I-0I(4^[>H->H(>H14IS)I92HD4I->H0)H9,^[4H[>^[&HD?G*)EL D-A^[-H1=^[4H[>YD )@@G@@^[3JD!GL\H-(GS)H95I-0I(4@J@@@AG(?G(!G(,I-3^[\H0)G1(H->^[NFDHC0,^@)E-*G*)YE )@@G@@H90I-(H9,IS)ET]^[-IL>^[5IT>G))H9,^[4H[>^[@C1JEK)@K@@@AIT4GD4G(!G(,I-3^[$YF )@@G@@G(,G(2GD4G(=^[+JC)C[HCDME1 D),^@)E-*G*)C[^CTOD1MFC)I[2H9^[?GD3I))C1JELOEL[D0)GT\H(0HD?GD4YH )@@G@@HD\H0?^[5IT(H1$^[4H[>^[G^[\I[4HD\H0)@M@@@AG1\IK)G(-GT*^[>H->H(>H14 0)^[#YI )@@G@@GD2G))HD!GD$G(3^[\G0)I-*G*)GT\H14IL\H))IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+YJ )@@G@@JC)^@)@L@@@AC[HCDME1 D))I9(H-?^[+G*)I92HD4I->H0)H9,I-\^[4H[>^[3JD!GL\H-(YK )@@G@@GS)G(?G(!G(,I))ETTD(A 1HCDME1 D-#CDMC-N^@)@K@@@AGD?H9,G8)I9(I-*^[\I-*G(2YL )@@G@@^[\I(4I[5I))IT9H(+H9?HDG1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)@ @@@AG(8I->IL,GD?^[2G(&G(2G(,GT>IS,YO )@@G@@@[@@@A^@)^@)@B@@@A^[@D([ELQC(G^@)CLMD9[C-RCDT L[E-GCDIE-DCS,@]@@@A^[KE(IYP )@@G@@^[IES)@]@@@A^[@C(JC0)^@)@[@@@A^@)^@)@N@@@ACD?H))IT9H(+H9?HD<^[>H->H(>H14YQ )@@G@@IS)H9,^[4H[>^[&HD?G*)CLMD9[C-RCDT L[E-GCDIE-DCS)GD2G*)I[5H1G))H9,^[GT(G1(GT-I-(H9,IS)^@)@[@@@^^@)^@)@#@@@^YT )@@G@@*[S@@@*SDFF*@B@@@@ @MARVEL @@@@@@@H@@@@YU )@@G@@THE @MARVEL PROCESSOR GENERATES CONTROL STATEMENTS TO CALL OTHER PROCESSYV )@@G@@ORS @G@@@@(@FOR, @MAP, ETC.) TO PROCESS ALL OF THE SYMBOLIC ELEMENTS (YW )@@G@@600 MAX) @F@@@@ON A PROGRAM FILE. THE STATEMENTS GENERATED BY @MARVEYX )@@G@@L CAN BE @G@@@@AUTOMATICALLY @ADDED OR THEY CAN BE SAVED IN A SYMBOLIYY )@@G@@C ELEMENT ON A @G@@@@PROGRAM FILE. @MARVEL READS DATA CARDS WHICH CAYZ )@@G@@N SUPPLEMENT THE INFOR- @D@@@@MATION GIVEN IN ITS OPTIONS AND SPECIFICATZA )@@G@@ION FIELDS. @@@@@@@D@@@@FORMAT: @MARVEL[,OPTIONS] [SPEC1.[SPEC2.[SPEC3.ZB )@@G@@]]] @^@@@@ DIRECTIVE CARDS@B@@@@ @EOF @@@@@@@]@@@@OPTIONS: @@@@@@@B@@@@ A PROCESS THE ELEMENTZD )@@G@@S ALPHABETICALLY @F@@@@ X CALL @XREF FOR A CROSS-REFERENCE LISTING OFZE )@@G@@ ENTRY POINTS AND @#@@@@ REFERENCES. @C@@@@ S CALL @SPL TO GENERAZF )@@G@@TE BLOCK LETTER HEADERS @@@@@@@#@@@@SPECIFICATIONS: @@@@@@@G@@@@ SPECZG )@@G@@1 THE PROGRAM FILE WHOSE SYMBOLIC ELEMENTS ARE TO BE READ AND @F@@@@ZH )@@G@@ PROCESSED. IF SPEC1 IS OMITTED, TPF$ WILL BE ASSUMED. @@@@@@ZI )@@G@@@F@@@@ SPEC2 THE PROGRAM FILE ON WHICH THE RELOCATABLE OUTPUT ELEMENTSZJ )@@G@@@F@@@@ (FROM @FOR, @ASM, ETC) AND THE ABSOLUTE OUTPUT ELEMENTS ZK )@@G@@@G@@@@ (FROM @MAP) ARE TO WRITTEN. IF SPEC2 IS OMITTED, TPF$ WIZL )@@G@@LL @#@@@@ BE USED. @@@@@@@G@@@@ SPEC3 THE PROGRAM FILE ON WZM )@@G@@HICH SYMBOLIC OUTPUT ELEMENTS FROM THE @G@@@@ PROCESSORS ARE ZN )@@G@@TO BE WRITTEN. IF SPEC3 IS OMITTED, THERE WILL @B@@@@ BE NO SYMZO )@@G@@BOLIC OUTPUT ELEMENTS. @@@@@@@#@@@@DIRECTIVE CARDS: @@@@@@@F@@@@ALL DAZP )@@G@@TA CARDS FOR @MARVEL ARE OPTIONAL. THEY CAUSE @MARVEL TO @F@@@@CHANGEZQ )@@G@@ ITS OUTPUT OR TO GENERATE ADDITIONAL PROCESSOR CALLS. THEY@A@@@@ARE INZR )@@G@@DIVIDUALLY DESCRIBED BELOW. @@@@@@@@@@@@@#@@@@BRK FILE ELEMENT@@@@@@ZS )@@G@@@G@@@@THE BRK CARD INHIBITS THE AUTOMATIC @ADDING OF THE CONTROL STATEMEZT )@@G@@NTS @F@@@@GENERATED BY @MARVEL AND CAUSES THEM TO BE WRITTEN ONTO A SYZU )@@G@@MBOLIC@F@@@@ELEMENT IN A PROGRAM FILE. THE FILE NAME MUST APPEAR, WITHOZV )@@G@@UT A @F@@@@PERIOD. THE ELEMENT NAME MAY BE OMITTED, IN WHICH CASE, @MAZW )@@G@@RVEL @G@@@@WILL WRITE THE CONTROL STATEMENTS ONTO AN SDF FILE INSTEAD OZX )@@G@@F WRITING @ @@@@THEM ONTO A SYMBOLIC ELEMENT. @@@@@@@[@@@@SAVE @@@@@@ZY )@@G@@@G@@@@THE SAVE CARD CAUSES @MARVEL TO WRITE ITS CONTROL STATEMENTS ONTO ZZ )@@G@@A @G@@@@SYMBOLIC ELEMENT NAMED MARVELCARDS ON THE PROGRAM FILE NAMEDAA )@@G@@ IN SPEC3. @G@@@@SAVE DOES NOT INHIBIT THE @ADDING OF CONTROL STATEMENTAB )@@G@@S GENERATED BY @]@@@@@MARVEL @@@@@@@[@@@@PCH @@@@@@@H@@@@THE PCAC )@@G@@H CARD CAUSES @MARVEL TO PUNCH THE CONTROL STATEMENTS IT GENERATES. AD )@@G@@@@@@@@@^@@@@PROCESSOR OPTIONS @@@@@@@H@@@@THE OPTIONS USED WITH ANAE )@@G@@Y OF THE PROCESSORS CAN BE SPECIFIED BY INCLUDING @G@@@@THEM ON A CAAF )@@G@@RD WITH THE PROCESSOR NAME. IF NO PROCESSOR OPTIONS ARE @B@@@@USED, AG )@@G@@@MARVEL WILL ASSUME THE FOLLOWING: @@@@@@@[@@@@FOR S@[@@@@ASM S@[@@@@AH )@@G@@MAP S@#@@@@PDP L, FL, OR CL @[@@@@ELT L@]@@@@COB BERS @[@@@@ALG SAI )@@G@@@[@@@@DOC S@@@@@@@A@@@@PROCESSOR=NEWPROCESSOR OPTIONS @@@@@@@G@@@@AJ )@@G@@THIS CARD NOT ONLY SETS THE OPTIONS, BUT ALSO THE NEWPROCESSOR TO BE AK )@@G@@@B@@@@CALLED INSTEAD OF PROCESSOR. FOR EXAMPLE,@@@@@@@^@@@@ FOR=IP*FOAL )@@G@@RT.FORT BSF@@@@@@@D@@@@WILL CAUSE @MARVEL TO GENERATE STATEMENTS THAT SAM )@@G@@AY: @@@@@@@B@@@@ @IP*FORT.FORT,BSF SPECIFICATIONS @@@@@@@]@@@@AN )@@G@@INSTEAD OF @@@@@@@ @@@@ @FOR,S SPECIFICATIONS @@@@@@@ @@@@FOR ALAO )@@G@@L FORTRAN SYMBOLICS. @@@@@@@^@@@@HDG OPTIONS HEADING @@@@@@@G@@@@AP )@@G@@THE HDG CARD CAUSES @MARVEL TO USE THE SPECIFIED HEADING AND OPTIONS. AQ )@@G@@@F@@@@WITHOUT THE HDG CARD @MARVEL WILL GENERATE A SEPARATE HEADING FOR AR )@@G@@@A@@@@EACH ELEMENT USING THE ELEMENT NAME.@@@@@@@]@@@@DCT OPTIONS@@@@@@AS )@@G@@@F@@@@THE DCT CARD CAUSES @MARVEL TO HAVE @DCTNRY EXECUTED AFTER EACH AT )@@G@@@F@@@@FORTRAN COMPILATION (OR IF THE MER CARD IS USED, ONCE AT THE END AU )@@G@@@F@@@@OF ALL THE FORTRAN COMPILATIONS). THE OPTIONS FOR @DCTNRY ARE AV )@@G@@@A@@@@TAKEN FROM THE OPTIONS FIELD OF DCT.@@@@@@@[@@@@MER @@@@@@@F@@@@AW )@@G@@THE MER CARD CAUSES @DCTNRY TO BE EXECUTED ONLY ONCE, AT THE END @F@@@@AX )@@G@@OF ALL THE FORTRAN COMPILATIONS, INSTEAD OF SEPARATE EXECUTIONS @F@@@@AY )@@G@@FOR EACH COMPILATION. MER IS NECESSARY IF THE M OPTION IS USED @#@@@@AZ )@@G@@ON THE DCT CARD. @@@@@@@^@@@@PUN OPTIONS,SEQ-CHAR @@@@@@@F@@@@THE PUBA )@@G@@N CARD CAUSES ALL OF THE ELEMENTS OF SELECTED TYPES FROM THE@G@@@@FILE NBB )@@G@@AMED IN SPEC1 OF THE @MARVEL STATEMENT TO BE PUNCHED. OPTIONS @F@@@@BC )@@G@@FOR THE PUN CARD INCLUDE N, S, R, A, G, J, AND H. THE N OPTION @G@@@@BD )@@G@@INHIBITS ALL OTHER FUNCTIONS OF @MARVEL EXCEPT ALPHABETIZING. THE S, BE )@@G@@@G@@@@R, AND A OPTIONS CAUSE SYMBOLIC, RELOCATABLE, AND ABSOLUTE ELEMENTBF )@@G@@S @G@@@@TO BE PUNCHED, RESPECTIVELY. WHEN THE N OPTION IS PRESENT, BG )@@G@@RELOCATABLE @G@@@@AND ABSOLUTE ELEMENTS WILL BE PUNCHED FROM THE FILE NABH )@@G@@MED IN SPEC1 OF @G@@@@THE @MARVEL STATEMENT. WHEN THE N OPTION IS NOTBI )@@G@@ PRESENT, RELOCATABLE @G@@@@AND ABSOLUTE ELEMENTS WILL BE PUNCHED FROMBJ )@@G@@ THE FILE IN WHICH @MARVEL @F@@@@CAUSES THEM TO BE PLACED (THE FILE NBK )@@G@@AMED IN SPEC2, OR IF SPEC2 IS @G@@@@ABSENT, THE FILE NAMED IN SPEC1). TBL )@@G@@HE G, J, AND H OPTIONS AND SEQ-CHAR @C@@@@ARE AS DESCRIBED WITH THE FURPBM )@@G@@UR @PCH COMMAND. @@@@@@@H@@@@@MARVEL CAN BE EXPENSIVE TO USE AS IT CAUSBN )@@G@@ES COMPILATIONS OF ALL ELEMENTS @F@@@@TO BE DONE. IF A SIMPLE LISTIBO )@@G@@NG IS ALL THAT IS DESIRED, THE @SEND@B@@@@PROCESSOR MAY BE USED FOR THISBP )@@G@@ PURPOSE. @@@@@@@]@@@@EXAMPLES: @@@@@@@^@@@@ @MARVEL TPF$.,TPF$. BQ )@@G@@@[@@@@ @EOF @@@@@@@F@@@@THE SYMBOLICS IN TPF$ ARE RE-COMPILED, AND THE RBR )@@G@@ELOCATABLE OUTPUT @G@@@@ELEMENTS ARE WRITTEN ON TPF$. THERE ARE NO SYMBBS )@@G@@OLIC OUTPUT ELEMENTS. @@@@@@@]@@@@ @MARVEL @[@@@@ @EOF @@@@@@@^@@@@BT )@@G@@SAME AS THE ABOVE CASE. @@@@@@@ @@@@ @MARVEL,A ZBODE.,TPF$.,TPF$. @[@@@@BU )@@G@@ PCH @[@@@@ @EOF @@@@@@@G@@@@THE SYMBOLIC ELEMENTS ON ZBODE ARE RE-COMPBV )@@G@@ILED IN ALPHABETICAL ORDER. @F@@@@SYMBOLIC AND RELOCATABLE OUTPUT ELEMBW )@@G@@ENTS ARE WRITTEN TO TPF$. THE@F@@@@CONTROL STATEMENTS GENERATED BY @MARBX )@@G@@VEL ARE PUNCHED ON CARDS. @@@@@@@ @@@@ @MARVEL,X TPF$.,RELF.,SYMF. BY )@@G@@@]@@@@ FOR SB @]@@@@ DCT L @[@@@@ MER @[@@@@ SAVE @[@@@@ @EOF BZ )@@G@@@@@@@@@G@@@@THE SYMBOLIC ELEMENTS IN TPF$ ARE RE-COMPILED, WITH THE RELOCA )@@G@@CATABLE @F@@@@OUTPUT ELEMENTS WRITTEN ON THE FILE RELF AND THE SYMBOCB )@@G@@LIC OUTPUT @E@@@@ELEMENTS ON FILE SYMF. THE OPTIONS SB ARE USED ON THECC )@@G@@ @FOR @F@@@@STATEMENTS GENERATED BY @MARVEL. THE @DCTNRY PROCESSOR WILLCD )@@G@@ BE @F@@@@EXECUTED AFTER THE LAST FORTRAN COMPILATION, USING THE L OPTCE )@@G@@ION @G@@@@FOR EACH ELEMENT. CARD IMAGES OF THE CONTROL STATEMENTS GENCF )@@G@@ERATED BY @F@@@@@MARVEL WILL BE WRITTEN ONTO THE SYMBOLIC ELEMENT SYMFCG )@@G@@.MARVELCARDS@F@@@@ALONG WITH OTHER OUTPUT SYMBOLICS. THE @XREF PROCESSOCH )@@G@@R WILL BE @F@@@@EXECUTED TO PROVIDE A CROSS-REFERENCE LISTING OF ENTRYCI )@@G@@ POINTS AND @^@@@@EXTERNAL REFERENCES. @@@@@@@ @@@@ @MARVEL BROADWAYCJ )@@G@@*ATLANTIC. @]@@@@ PUN NS @[@@@@ @EOF @@@@@@@H@@@@ALL SYMBOLIC ELEMECK )@@G@@NTS ON THE FILE BROADWAY*ATLANTIC ARE PUNCHED ON CARDS. @@@@@@___EMECL )@@G@@NTS @F@@@@GENERATED BY @MARVEL AND CAUSES THEM TO BE WRITTEN ONTO A SYCM )@@G@@MBOLIC@F@@@@ELEMENT IN A PROGRAM FILE. THE FILE NAME MUST APPEAR, WITHOCN )@@G@@*[S@@[*SDFF*@E@@@ ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)C[HCDME1 CO )@@G@@D))^@)@[@@@ ^@)^@)@N@@@ E-*G*)C[HCDME1 D))I[2H9H1>IL-I->IS)CP )@@G@@GT\H14IL\H))IT4GD4G(!G(,I-3^[4H8)GT-H-?^[\I-*G(2^[0IL\GT>IT3H92IS)@L@@@ CQ )@@G@@ [@C1JEK?^[@D([E@?^[>I-< 0(^[4H8)I[2H9^[3JD!GL\H-(CR )@@G@@GS)G(?G(!G(,I-3^@*A00A@)H(-J@(@K@@@ H9,^[-^[0IL\G92GD!^[&HD?G*,^@)E-*G*)CS )@@G@@IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)C[HCDME1 D))GT-H0)GL>^@)@L@@@ GD5I-\CT )@@G@@H(-I-(GT-H-?JC)C[[C-^G(=^[\IK)I-*G(9^[G))HD,^[-^[3JD!GL\CU )@@G@@H-(GS)G(?G(!G(,I))H9,^[-@M@@@ I[2H9$IL-H*)G1(H-> 0)^[@D([ELQC(G^[2G(-G-3CV )@@G@@^[=GD4GC)GT-IL=IS)I9*HDH(>H14^[4H[>^[(H1&H92 *)@I@@@ CW )@@G@@H(-I-(H9,^[$HD6G(,^[(H0)HD4IS)H90I-(H9,IS)GD,G))IT0G(CY )@@G@@GS1 0?IT0G(GS3 0)^@)@H@@@BG1\IL!GD4BK)^[@D([ELQC(GFS?H90I-(H9,CZ )@@G@@ITX^[VIT0G(GS2 1VIT0G(^[J[4^[@^[IT3^[4H[>^[>H->H(>H14IS)GD?I[*GD+G(4HDG1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)@^@@@ ^@)^@)^[2G(&G(2G(,GT>IS,@G@@@ DF )@@G@@^@)ES)^[H1>IL-I->^[+H-\GT:^[?G(4I->IK)H[>GD=G(2IS)DG )@@G@@@[@@@ ^@)^@)@^@@@ IT0G(^[0IL\G92GD!^[&HD?G*)I9*H93G*)IT9H(+H9?HD<^[>H->H(>H14IS)GD2G*)I-\DI )@@G@@^[+G*)IL>GD=^[-H1=@K@@@ ^@)^@)^@)^@)^[0IL\GT>IT3G(= 0)^[DG0)IT0G(^[-IT3I(!G(= 0)@[@@@ ^@)^@)@L@@@ ^@)IT0DK )@@G@@G(^[0IL\G92GD!^[&HD?G*)H9,^[7H[(GT*^[4H[>^[2G(?H9^[\DL )@@G@@I(4I[5I))G(?G(!G(,I-3^@)@K@@@ ^@)^@)^@)^@)^@*G12H9!^[@C1JEK?^[@CDND*?^[>DM )@@G@@I-< C)GD,G))I-*G*)GD+IT\H-5I->^[\I(4I[5I))G(?G(!G(,I-3@L@@@ ^@)^@)^@)^@)DN )@@G@@^@*G12H9!^[@D([E@(^[-IL>^[4H8)I92HD4I->H0,^@)DD&^[3I[>GS2^[(IS)H9!HD4I->DO )@@G@@G)?^[OE[A^))I9(H-?@ @@@ ^@)^@)^@)^@)^[+G*)I(3G(= 0)^@)@[@@@ ^@)^@)@L@@@ DP )@@G@@^@)IT0G(^[0IL\G92GD!^[&HD?G*)H9,^[7H[(GT*^[3JD!GL\H-(GS)H95I-0DQ )@@G@@I(4^[>H->H(>H14IS)G12H9!^[4H[>@M@@@ ^@)^@)^@)^@)^[0IL\GT>IT3H92IS)GD2G*)DR )@@G@@I-\^[+G*)I92HD4I->H0,^@)DD&^[3I[>GS3^[(IS)H9!HD4I->G)?^[4H[>IL>^[7HD?H))DS )@@G@@@E@@@ ^@)^@)^@)^@)^[+G*)H1\^[3JD!GL\H-(GS)H95I-0I(4^[>H->H(>H14IS,@[@@@ DT )@@G@@^@)^@)@^@@@CG-(IL>GT4HD6G*)GT-IL=IS'@[@@@C^@)^@)@K@@@CCD?H))G--I--^[^[\I[4HD\H1-H),^@)E-*G(9^[^[@D([ELQC(GDV )@@G@@^[4H8)@L@@@CGT*GD,G9>^[(I-3^[\I(4I[5I))H92^[4H8)G9>H1>IL-I->^[-G-=HD4HD\DW )@@G@@H1-H))I[2H9GT4HD6G*)GT-IL=IS'^[[H-?^[=GD4DY )@@G@@GC)GT-IL=IS)G1\IK)C[HCDME1 D))GD2G*)H90I-(H9,GD? 0)^[OH[>JC)GT-I(3G*)^@)DZ )@@G@@@K@A@ C[!GD2I1>H))I-\^[IT3H92@K@C@AC[HCDME1 D))I-\^[IT3H92@G@C@ GT-H-?EC )@@G@@IS,^@)E-*G(9^[-IL>^[(H1=HD6HD=I(-H-?JC)G->ITG))GL>H-\I8,^@)@[@@@ ED )@@G@@^@)^@)@[@@@ ^@)^@)@ @@@ CLMDS)^[&HD?G*)^[>H->H(>H14^@)@[@@@ ^@)^@)@M@@@ EE )@@G@@I-*G*)CLMDS)GT-IL=^[(H1*HD+HD4IS)I-*G*)GD5I-\H(-I-(GS)C[[C-^HD,G8)H9&^[4EF )@@G@@H[>^[H(>H14IS)^@)@L@@@ G9>H1>IL-I->G))GL9^[@D([ELQC(GEG )@@G@@^[-H1=^[IS)I-*G(!^[4H8)GL>^[7IL(I-4G(,^[\H14H8)GC)IT9H(+H9?HD<^@)EH )@@G@@@K@@@ G(?G(!G(,I))HD,^[-^[0IL\G92GD!^[&HD?G*,^@)E-*G*)G1(H->^[,GD!G*)H(5EI )@@G@@IT4^[-I[0G(-IK?^[7HD4H[\I(4^[-@K@@@ I[>IL(H9= 0)^[OH[>^[>H->H(>H14^[,GD!EJ )@@G@@G*)H(-JC)GL>^[\H((I-4G(= ))HD,^[7H[(GT*^[^[4H[>^[H(>H14IS)H9,I-\^[-H0)ET^C0)G1(H->^[(EL )@@G@@H13I->GD=^[\G0)I92HD4HD,G8)^@)@C@@@ I-*G(!^[\H14H8)GC)IT9H(+H9?HD<^[>H->EM )@@G@@H(>H14 0)^@)@[@@@ ^@)^@)@[@@@ ET[E1 @[@@@ ^@)^@)@L@@@ E-*G*)ET[E1 ^[H->H(>H14^[,GD!G(=^[!GD2I1>H-^[,GD!G(=^[(H0)IT0G(H->H(>H14^[,GD!G(=^[HCDME1 D-#CDMC-N^[\H0)I-*G*)I[2H9$IL-H*)G1(H->^[,ER )@@G@@GD!G(=^[(H0)IT0G(IS)H1\I))HD,H[(GL(I))I-*G*)C[[ES )@@G@@C-^HD,G8)H9&^[H(>H14IS)G9>H1>IL-I->G))GL9@]@@@ C[HCDMET )@@G@@E1 D))@[@@@ ^@)^@)@[@@@ E[#D@)@[@@@ ^@)^@)@N@@@ E-*G*)E[#D@)GT-IL=^[IS)C[HCDME1 D))I-\^[0I(,GT*^[4H[>^[H(>H14IS)HD4^[$EV )@@G@@G(,G(2GD4G(3 0)^@)@[@@@ ^@)^@)@ @@@ I[2H9^[0IL\GT>IT3EX )@@G@@H92IS)GT-H0)GL>^[3I[>GT(G1(G(=^[+JC)HD,GT?I(=HD,G8)^@)@L@@@ I-*G(!^[\H0)EY )@@G@@GC)GT-IL=^[7HD4H@)I-*G*)I[2H9 0)^[DG0)H1\^[0IL\GT>IT3H92EZ )@@G@@^[\I[4HD\H13^[-IL>@E@@@ I(3G(= ))C[HCDME1 D))I9(H-?^[-IT3I(!G*)I-*G*)G1\FA )@@G@@H-?H97HD,G8'@[@@@ ^@)^@)@]@@@ C1JEK)^[N^@)@]@@@ CDND*)^[N^@)@]@@@ D([E@)FB )@@G@@^[N^@)@ @@@ E[^E@)^[G ))C1G ))D9M^[#D))^@)@]@@@ C(GE))^[G^@)@#@@@ CTJCK)FC )@@G@@^[]C(MES)^@)@]@@@ CDGC8)^[N^@)@]@@@ C-JCS)^[N^@)@[@@@ ^@)^@)@C@@@ I[2H9I90IL\GT>IT3H92^@)H90I-(H9,IS)@[@@@ ^@)^@)@L@@@ E-*HD3^[I90IL\FF )@@G@@GT>IT3H92^[4H8)GL>@F@@@ GT-H-?G(=^[(H13I->GD=^[\G0)I[2H9^[@D([ELQC(G^[4H8)G9>H1>IL-I->^[3I--I->FI )@@G@@H(>H14IS)I-*GD4^[3GD9BK)@[@@@ ^@)^@)@E@@@ ^@)^[@DDK LAD9ME),C1JELO -]ETAFJ )@@G@@^@)^[3I[>GT(G1(GT-I-(H9,IS)^@)@[@@@ ^@)^@)@#@@@ HD,IT4G(-G))H9&^@)@[@@@ FK )@@G@@^@)^@)@B@@@ ^@)^[@C1JEK?ES)^[3I[>GT(G1(GT-I-(H9,IS)^@)@[@@@ ^@)^@)@B@@@ FL )@@G@@G1\IK)GD?H))C1JELOEL[D0)IT9H(+H9?HDGD=HD,G8)^@)@[@@@ ^@)^@)@M@@@ I-*G*)D[^C8)GT-IL=FN )@@G@@^[IS)C[HCDME1 D))I-\^[5IT>^[4H[>^[3I[>GT(G1(G(=^[*G(-G-(H1$^[-H1=FO )@@G@@^[\I[4HD\H13 0)^@)@L@@@ E9(I-*H95I))I-*G*)D[^C8)GT-IL=^[@D([ELQC(G^[7HD?FP )@@G@@H))G9>H1>IL-I->^[-^[3G(0GD2GD4G*)H[>GD=HD,G8)G1\IK)^@)@D@@@ G(-GT*^[>H->FQ )@@G@@H(>H14^[5IT(H1$^[4H[>^[>H->H(>H14^[,GD!G*,@[@@@ ^@)^@)@#@@@ C-#E))^[\I[4FR )@@G@@HD\H13@[@@@ ^@)^@)@K@@@ E-*G*)C-#E))GT-IL=^[IS)C[HCDME1 D))I-\^[*FS )@@G@@GD6G*)C[^CTOD1MFC)G(8G(GD^[HC(M^[G)?^[\H1FU )@@G@@^[>H1=@K@@@ H9&^[-H-?^[4H[>^[AD9ME-MCDI^[^[\FV )@@G@@I[4HD\H13^[&H92^[@C-#E-IELT^[-IL>^@)@D@@@ I--HT>H0)G12H9!^[4H[>^[\I[4HD\FW )@@G@@H13^[&HD>H-=^[\G0)C-#E),@[@@@ ^@)^@)@[@@@ D( EK)@[@@@ ^@)^@)@K@@@ E-*G*)FX )@@G@@D( EK)GT-IL=^[IS)C[^CTOD1MFC)I-\^[+G*)G(8G(FY )@@G@@ ))GD4^[4H[>^[>H1=@K@@@ H9&^[-H-?^[4H[>^[AD9ME-MCDI^[GD=^[\G0)IT>I[-IL-I->^[>J[>GT5I-(H9,IS)@K@@@ G1\IK)G(-GT*^[GT>IT3GD2JC)HD&^[4H[>^[H^[\I[4HD\H0)HD3^[5GB )@@G@@IT>G))@^@@@ H9,^[4H[>^[^CTO^[IS)GD?H))GD )@@G@@H9&^[4H[>^[>H->H(>H14IS)H9&^[3G(?G(G))I-9I[>IS)G12H9!^[4H[>^@)@L@@@AGE )@@G@@G1(H->^[,GD!G(=^[(H0)IT0G(^[@D([ELQC(G^[3I--I->H(>H14^[4H8)GF )@@G@@GL>^[0I(,GT*G(= 0)^[JI[4HD\H13@K@@@AG1\IK)I-*G*)E[PD0)GT-IL=^[(H1GG )@@G@@^[I ))ES?^[M ))CC?^[B ))DK?^[-H1=^[C 0)^[OH[>^[I^[\I[4HD\H0)@M@@@AHD,H[(GH )@@G@@GL(I-3^[-H-?^[\I-*G(2^[&I(,GT4HD\H13^[\G0)C[HCDME1 D))G(8GT>I[4^[-H-0H[-GI )@@G@@GL>I-(JL(H1$ 0)^[OH[>^[N ))^@)@L@@@AEK?^[-H1=^[[^[\I[4HD\H13^[^[NGJ )@@G@@JD!GL\H-(GS?^[MG(?H9 ))GD,G))CD+IT\H-5I->^[>H->H(>H14IS)@M@@@AGK )@@G@@I-\^[+G*)I[5H1G)?^[2G(3I[>GT4HD6G(?JC,^@)E9*G(,^[4H[>^[I^[\I[4HD\H0)GL )@@G@@HD3^[0IL>IT>H14 ))IL>H-\GT-I--GL?G*)@M@@@AGD,G))GD+IT\H-5I->^[>H->H(>H14GM )@@G@@IS)I9(H-?^[+G*)I[5H1G))G12H9!^[4H[>^[&HD?G*)H1-H(>G))HD,^[3I[>GS1^[\GN )@@G@@G0)^@)@M@@@AI-*G*)C[HCDME1 D))IT4GD4G(!G(,I),^@)E9*G(,^[4H[>^[I^[\I[4HD\GO )@@G@@H0)HD3^[,H94^[0IL>IT>H14 ))IL>H-\GT-I--GL?G*)^@)@L@@@AGD,G))GD+IT\H-5I->GP )@@G@@^[>H->H(>H14IS)I9(H-?^[+G*)I[5H1G))G12H9!^[4H[>^[&HD?G*)HD,^[7H[(GT*GQ )@@G@@^[@D([ELQC(G@L@@@AGT-I(3G(3^[4H[>H*)I-\^[+G*)I[?GD^[,GR )@@G@@GD!G(=^[(H0)IT0G(GS2^[(IS)^@)@M@@@AGD+IT>H14 ))I-*G*)GS )@@G@@G1(H->^[,GD!G(=^[(H0)IT0G(^[B ))DK?^[-H1=^[C^[\I[4HD\H13^[-GT )@@G@@H1=^[3G(1 (^[>J[0G(,GV )@@G@@IT(I1>^[4H8)I(3G*)GD3^[(I))GT-I(3G(3^[H->GW )@@G@@H(>H14IS)^@)@L@@@AI-\^[+G*)G-\H1> 0)^[DG0)GC)IT(H(0H->^[?HD3I-(H1$^[(IS)GX )@@G@@GD?H))I-*GD4^[(IS)G->IT(IL>G)?^[4H[>^[@ET D1^^@)@E@@@AI[2H9^[5IT>G))G1\IK)I-*HD3^[0I(2I[\IT> 0)@[@@@A^@)^@)@#@@@AG(8GD!I[?G(3GZ )@@G@@BK)^@)@[@@@A^@)^@)@A@@@A^[@D([ELQC(G^@)E-KC0= 0?E-KC0= 0)^@)@]@@@B^[@C(JHA )@@G@@C0)^@)@[@@@A^@)^@)@L@@@AE-*G*)IT9H(+H9?HD (G)?^[-H1=^[4H[>^[2G(?H9^[\I(4I[5I))^@)@M@@@AG(?G(!G(,I-3HC )@@G@@^[-IL>^[7IL(I-4G(,^[\H0)E-KC0= 0)^[OH[>IL>^[-IL>^[,H8)IT9H(+H9?HD<^[\I(4HD )@@G@@I[5I))G(?G(!G(,I-3 0)^@)@[@@@A^@)^@)@]@@@A^[@D([ELQC(G@]@@@B^[@C(JC0)^@)HE )@@G@@@[@@@A^@)^@)@A@@@AET-H(>^[-IS)I-*G*)GD+H96G*)GT-IT> 0)@[@@@A^@)^@)@C@@@AHF )@@G@@^[@D([ELQC(G -[^[UCLJC- 0?E-KC0= 0?E-KC0= 0)^@)@[@@@A^[KCTC@]@@@A^[@C(JHG )@@G@@C0)^@)@[@@@A^@)^@)@M@@@AE-*G*)IT9H(+H9?HD<^[>H->H(>H14IS)H9,^[UCLJC- ^[-HH )@@G@@IL>^[2G*!GT\H(0HD?G(=^[(H0)GD?I[*GD+G(4HD^[\I(4I[5I))G(?G(!G(,I-3^[-IL>^[7IL(I-4G(,HJ )@@G@@^[4H8)E-KC0= 0)^[OH[>^@)@K@@@AGT\H14IL\H))IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=HK )@@G@@^[+JC)C[HCDME1 D))GD2G*)I[5H1G))H9,^[H->H(>H14IS)HD,^[OE[A^))GD2G*)IL> (G)?^[7HO )@@G@@HD4H@)I-*G*)IL>H-\GT-I--GL?G*)@K@@@AH95I-0I(4^[>H->H(>H14IS)I92HD4I->H0)HP )@@G@@H9,^[4H[>^[&HD?G*)EL D-A^[-H1=^[4H[>^[3JD!GL\H-(GS)H95I-0I(4@J@@@AG(?G(!HQ )@@G@@G(,I-3^[\H0)G1(H->^[NFDHC0,^@)E-*G*)H90I-(H9,IS)ET]^[-IL>^[5IT>G))H9,^[4HR )@@G@@H[>^[@C1JEK)@K@@@AIT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)C[HCDME1 D),^@)E-*HS )@@G@@G*)C[^CTOD1MFC)I[2H9^[?GD3I))C1JELOEL[D0)GT\H(0HD?GD4HD\H0?^[5IT(H1$^[4H[>^[G^[\I[4HD\H0)HU )@@G@@@M@@@AG1\IK)G(-GT*^[>H->H(>H14 0)^[#GD2G))HD!GD$G(3^[\G0)I-*G*)GT\H14IL\HV )@@G@@H))IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)^@)@L@@@AC[HCDME1 D))I9(H-?^[+G*)HW )@@G@@I92HD4I->H0)H9,I-\^[4H[>^[3JD!GL\H-(GS)G(?G(!G(,I))ETTD(A 1HCDME1 D-#CDMHX )@@G@@C-N^@)@K@@@AGD?H9,G8)I9(I-*^[\I-*G(2^[\I(4I[5I))IT9H(+H9?HDG1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)IA )@@G@@@ @@@AG(8I->IL,GD?^[2G(&G(2G(,GT>IS,@[@@@A^@)^@)@B@@@A^[@D([ELQC(G^@)CLMIB )@@G@@D9[C-RCDT L[E-GCDIE-DCS,@]@@@A^[KE(I^[IES)@]@@@A^[@C(JC0)^@)@[@@@A^@)^@)IC )@@G@@@N@@@ACD?H))IT9H(+H9?HD<^[>H->H(>H14IS)H9,^[4H[>^[&HD?G*)CLMD9[C-RCDT L[ID )@@G@@E-GCDIE-DCS)GD2G*)I[5H1G))H9,^[H1>IL-I->IS)IG )@@G@@GT\H14IL\H))IT4GD4G(!G(,I-3^[4H8)GT-H-?^[\I-*G(2^[0IL\GT>IT3H92IS)@K@@@EIH )@@G@@E-*G*)C[HCDME1 D))I[2H9H1>IL-I->IS)GT\H14IL\H))IT4GD4G(!G(,II )@@G@@I-3^[4H8)GT-H-?^[\I-*G(2@L@E@A [@C1JEK?^[@D([E@?^[>I-< 0(^[4H8)I[2H9^[3JD!GL\H-(GS)G(?G(!G(,I-3^@*A00A@)H(-J@(@M@@@EI[2H9IT3^[-H-?^[\G0)I-*G*)IL )@@G@@IT9H(+H9?HD<^[>H->H(>H14IS)^@)@K@E@AH9,^[-^[0IL\G92GD!^[&HD?G*,^@)E-*G*)IM )@@G@@IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)C[HCDME1 D))GT-H0)GL>^@)@M@@@E @6A@0IN )@@G@@^[!GD8 C)H9,^[-^[0IL\G92GD!^[&HD?G*,^@)E-*G*)IT4GD4G(!G(,I-3^[$G(,G(2GD4IO )@@G@@G(=^[+JC)C[HCDME1 D))GT-H0)^@)@L@E@AGD5I-\H(-I-(GT-H-?JC)C[[C-^G(=^[\IK)IP )@@G@@I-*G(9^[G))HD,^[-^[3JD!GL\H-(GS)G(?G(!G(,I))H9,^[-@M@@@EIQ )@@G@@GL>^[-I(4H9!GD4HDG))H92^[4H[>JC)GT-H0)GL>^[3GD6G(=^[(H0)IR )@@G@@GC)IT9H(+H9?HD<^[>H->H(>H14^[\H0)GC)@M@@@AI[2H9$IL-H*)G1(H-> 0)^[@D([ELQIS )@@G@@C(G^[2G(-G-3^[=GD4GC)GT-IL=IS)I9*HDH(>H14^[4H[>^[(H1&IT )@@G@@H92 *)@I@@@AH(-I-(H9,^[$HD6G(,^[(H0)HD4IS)H90I-(H9,IS)GD,G))IT0G(GS1 0?IT0G(GS3 0)^@)@H@@@BG1\IL!GD4BK)^[@D([ELQC(GIW )@@G@@FS?H90I-(H9,ITX^[VIT0G(GS2 1VIT0G(^[J[4^[@^[IT3^[4H[>^[>H->H(>H14IS)GD?I[*GD+JA )@@G@@G(4HDG1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)@^@@@A^@)^@)^[2G(&G(2G(,JC )@@G@@GT>IS,@G@@@A^@)ES)^[H1>IL-I->^[+H-\GT:^[?G(4I->IK)JD )@@G@@H[>GD=G(2IS)@[@@@A^@)^@)@^@@@AIT0G(^[0IL\G92GD!^[&HD?G*)I9*H93G*)IT9H(+H9?HD<^[>H->H(>H14JF )@@G@@IS)GD2G*)I-\^[+G*)IL>GD=^[-H1=@K@@@A^@)^@)^@)^@)^[0IL\GT>IT3G(= 0)^[DG0)JG )@@G@@IT0G(^[-IT3I(!G(= 0)@[@@@A^@)^@)JH )@@G@@@L@@@A^@)IT0G(^[0IL\G92GD!^[&HD?G*)H9,^[7H[(GT*^[4H[>^[2G(?H9^[\I(4I[5I))G(?G(!G(,I-3^@)@K@@@A^@)^@)^@)^@)^@*G12H9!^[@C1JEK?JJ )@@G@@^[@CDND*?^[>I-< C)GD,G))I-*G*)GD+IT\H-5I->^[\I(4I[5I))G(?G(!G(,I-3@L@@@AJK )@@G@@^@)^@)^@)^@)^@*G12H9!^[@D([E@(^[-IL>^[4H8)I92HD4I->H0,^@)DD&^[3I[>GS2^[(JL )@@G@@IS)H9!HD4I->G)?^[OE[A^))I9(H-?@ @@@A^@)^@)^@)^@)^[+G*)I(3G(= 0)^@)@[@@@AJM )@@G@@^@)^@)@L@@@A^@)IT0G(^[0IL\G92GD!^[&HD?G*)H9,^[7H[(GT*^[3JD!GL\JN )@@G@@H-(GS)H95I-0I(4^[>H->H(>H14IS)G12H9!^[4H[>@M@@@A^@)^@)^@)^@)^[0IL\GT>IT3JO )@@G@@H92IS)GD2G*)I-\^[+G*)I92HD4I->H0,^@)DD&^[3I[>GS3^[(IS)H9!HD4I->G)?^[4H[>JP )@@G@@IL>^[7HD?H))@E@@@A^@)^@)^@)^@)^[+G*)H1\^[3JD!GL\H-(GS)H95I-0I(4^[>H->H(>JQ )@@G@@H14IS,@[@@@A^@)^@)@^@@@CG-(IL>GT4HD6G*)GT-IL=IS'@[@@@C^@)^@)@K@@@CCD?H))JR )@@G@@G--I--^[^[\I[4HD\H1-H),^@)E-*G(9^[JS )@@G@@^[@D([ELQC(G^[4H8)@L@@@CGT*GD,G9>^[(I-3^[\I(4I[5I))H92^[4H8)G9>H1>IL-I->JT )@@G@@^[-G-=HD4HD\H1-H))I[2H9GT4HD6G*)GT-IL=IS'JV )@@G@@^[[H-?^[=GD4GC)GT-IL=IS)G1\IK)C[HCDME1 D))GD2G*)H90I-(H9,GD? 0)^[OH[>JC)JW )@@G@@GT-I(3G*)^@)@K@C@AC[HCDME1 D))I-\^[IT3H92@G@C@AGT-H-?IS,^@)E-*G(9^[-IL>JY )@@G@@^[(H1=HD6HD=I(-H-?JC)G->ITG))GL>H-\I8,^@)@[@@@A^@)^@)@[@@@A^@)^@)JZ )@@G@@@ @@@ACLMDS)^[&HD?G*)^[>H->H(>H14^@)@[@@@A^@)^@)@M@@@AI-*G*)CLMDS)GT-IL=KA )@@G@@^[(H1*HD+HD4IS)I-*G*)GD5I-\H(-I-(GS)C[[C-^HD,G8)H9&^[4H[>^[H(>H14IS)^@)@L@@@AG9>H1>IL-I->G))GL9^[@D([ELQC(G^[-H1=^[IS)KC )@@G@@I-*G(!^[4H8)GL>^[7IL(I-4G(,^[\H14H8)GC)IT9H(+H9?HD<^@)@K@@@AG(?G(!G(,I))KD )@@G@@HD,^[-^[0IL\G92GD!^[&HD?G*,^@)E-*G*)G1(H->^[,GD!G*)H(5IT4^[-I[0G(-IK?^[7KE )@@G@@HD4H[\I(4^[-@K@@@AI[>IL(H9= 0)^[OH[>^[>H->H(>H14^[,GD!G*)H(-JC)GL>^[\H((KF )@@G@@I-4G(= ))HD,^[7H[(GT*^[^[4H[>^[H(>H14IS)H9,I-\^[-H0)ET^C0)G1(H->^[(H13I->GD=^[\G0)I92KH )@@G@@HD4HD,G8)^@)@C@@@AI-*G(!^[\H14H8)GC)IT9H(+H9?HD<^[>H->H(>H14 0)^@)@[@@@AKI )@@G@@^@)^@)@[@@@AET[E1 @[@@@A^@)^@)@L@@@AE-*G*)ET[E1 ^[H->H(>H14^[,GD!G(=^[HCDME1 D-#CDMC-N^[\H0)I-*G*)I[2H9$IL-KL )@@G@@H*)G1(H->^[,GD!G(=^[(H0)IT0G(IS)H1\I))HD,H[(GL(KM )@@G@@I))I-*G*)C[[C-^HD,G8)H9&^[H(>H14IS)G9>H1>IL-I->G))GL9KN )@@G@@@]@@@AC[HCDME1 D))@[@@@A^@)^@)@[@@@AE[#D@)@[@@@A^@)^@)@N@@@AE-*G*)E[#D@)KO )@@G@@GT-IL=^[IS)C[HCDME1 D))I-\^[0I(,GT*^[4H[>^[H(>KP )@@G@@H14IS)HD4^[$G(,G(2GD4G(3 0)^@)@[@@@A^@)^@)@ @@@AI[2H9KR )@@G@@^[0IL\GT>IT3H92IS)GT-H0)GL>^[3I[>GT(G1(G(=^[+JC)HD,GT?I(=HD,G8)^@)@L@@@AKS )@@G@@I-*G(!^[\H0)GC)GT-IL=^[7HD4H@)I-*G*)I[2H9 0)^[DG0)H1\^[0KT )@@G@@IL\GT>IT3H92^[\I[4HD\H13^[-IL>@E@@@AI(3G(= ))C[HCDME1 D))I9(H-?^[-IT3I(!KU )@@G@@G*)I-*G*)G1\H-?H97HD,G8'@[@@@A^@)^@)@]@@@AC1JEK)^[N^@)@]@@@ACDND*)^[N^@)KV )@@G@@@]@@@AD([E@)^[N^@)@ @@@AE[^E@)^[G ))C1G ))D9M^[#D))^@)@]@@@AC(GE))^[G^@)KW )@@G@@@#@@@ACTJCK)^[]C(MES)^@)@]@@@ACDGC8)^[N^@)@]@@@AC-JCS)^[N^@)@[@@@A^@)^@)KX )@@G@@@C@@@AI[2H9I90IL\GT>IT3H92^@)H90I-(H9,IS)@[@@@A^@)^@)@L@@@AKY )@@G@@E-*HD3^[I90IL\GT>IT3H92^[4H8)GL>@F@@@AGT-H-?G(=^[(H13I->GD=^[\G0)I[2H9^[@D([ELQC(G^[4H8)G9>H1>IL-LC )@@G@@I->^[3I--I->H(>H14IS)I-*GD4^[3GD9BK)@[@@@A^@)^@)@E@@@A^@)^[@DDK LAD9ME),LD )@@G@@C1JELO -]ETA^@)^[3I[>GT(G1(GT-I-(H9,IS)^@)@[@@@A^@)^@)@#@@@AHD,IT4G(-G))LE )@@G@@H9&^@)@[@@@A^@)^@)@B@@@A^@)^[@C1JEK?ES)^[3I[>GT(G1(GT-I-(H9,IS)^@)@[@@@ALF )@@G@@^@)^@)@B@@@AG1\IK)GD?H))C1JELOEL[D0)IT9H(+H9?HDGD=HD,G8)^@)@[@@@A^@)^@)@M@@@AI-*G*)D[^C8)GT-IL=LH )@@G@@^[IS)C[HCDME1 D))I-\^[5IT>^[4H[>^[3I[>GT(G1(G(=^[*G(-G-(H1$^[-H1=LI )@@G@@^[\I[4HD\H13 0)^@)@L@@@AE9(I-*H95I))I-*G*)D[^C8)GT-IL=^[@D([ELQC(G^[7HD?LJ )@@G@@H))G9>H1>IL-I->^[-^[3G(0GD2GD4G*)H[>GD=HD,G8)G1\IK)^@)@D@@@AG(-GT*^[>H->LK )@@G@@H(>H14^[5IT(H1$^[4H[>^[>H->H(>H14^[,GD!G*,@[@@@A^@)^@)@#@@@AC-#E))^[\I[4LL )@@G@@HD\H13@[@@@A^@)^@)@K@@@AE-*G*)C-#E))GT-IL=^[IS)C[HCDME1 D))I-\^[*LM )@@G@@GD6G*)C[^CTOD1MFC)G(8G(GD^[HC(M^[G)?^[\H1LO )@@G@@^[>H1=@K@@@AH9&^[-H-?^[4H[>^[AD9ME-MCDI^[^[\LP )@@G@@I[4HD\H13^[&H92^[@C-#E-IELT^[-IL>^@)@D@@@AI--HT>H0)G12H9!^[4H[>^[\I[4HD\LQ )@@G@@H13^[&HD>H-=^[\G0)C-#E),@[@@@A^@)^@)@[@@@AD( EK)@[@@@A^@)^@)@K@@@AE-*G*)LR )@@G@@D( EK)GT-IL=^[IS)C[^CTOD1MFC)I-\^[+G*)G(8G(LS )@@G@@ ))GD4^[4H[>^[>H1=@K@@@AH9&^[-H-?^[4H[>^[AD9ME-MCDI^[GD=^[\G0)IT>I[-IL-I->^[>J[>GT5I-(H9,IS)@K@@@AG1\IK)G(-GT*^[GT>IT3GD2JC)HD&^[4H[>^[H^[\I[4HD\H0)HD3^[5LV )@@G@@IT>G))@^@@@AH9,^[4H[>^[^CTO^[IS)GD?H))LX )@@G@@H9&^[4H[>^[>H->H(>H14IS)H9&^[3G(?G(G))I-9I[>IS)G12H9!^[4H[>^@)@L@@@ALY )@@G@@G1(H->^[,GD!G(=^[(H0)IT0G(^[@D([ELQC(G^[3I--I->H(>H14^[4H8)LZ )@@G@@GL>^[0I(,GT*G(= 0)^[JI[4HD\H13@K@@@AG1\IK)I-*G*)E[PD0)GT-IL=^[(H1MA )@@G@@^[I ))ES?^[M ))CC?^[B ))DK?^[-H1=^[C 0)^[OH[>^[I^[\I[4HD\H0)@M@@@AHD,H[(MB )@@G@@GL(I-3^[-H-?^[\I-*G(2^[&I(,GT4HD\H13^[\G0)C[HCDME1 D))G(8GT>I[4^[-H-0H[-MC )@@G@@GL>I-(JL(H1$ 0)^[OH[>^[N ))^@)@L@@@AEK?^[-H1=^[[^[\I[4HD\H13^[^[NMD )@@G@@JD!GL\H-(GS?^[MG(?H9 ))GD,G))CD+IT\H-5I->^[>H->H(>H14IS)@M@@@AME )@@G@@I-\^[+G*)I[5H1G)?^[2G(3I[>GT4HD6G(?JC,^@)E9*G(,^[4H[>^[I^[\I[4HD\H0)MF )@@G@@HD3^[0IL>IT>H14 ))IL>H-\GT-I--GL?G*)@M@@@AGD,G))GD+IT\H-5I->^[>H->H(>H14MG )@@G@@IS)I9(H-?^[+G*)I[5H1G))G12H9!^[4H[>^[&HD?G*)H1-H(>G))HD,^[3I[>GS1^[\MH )@@G@@G0)^@)@M@@@AI-*G*)C[HCDME1 D))IT4GD4G(!G(,I),^@)E9*G(,^[4H[>^[I^[\I[4HD\MI )@@G@@H0)HD3^[,H94^[0IL>IT>H14 ))IL>H-\GT-I--GL?G*)^@)@L@@@AGD,G))GD+IT\H-5I->MJ )@@G@@^[>H->H(>H14IS)I9(H-?^[+G*)I[5H1G))G12H9!^[4H[>^[&HD?G*)HD,^[7H[(GT*MK )@@G@@^[@D([ELQC(G@L@@@AGT-I(3G(3^[4H[>H*)I-\^[+G*)I[?GD^[,ML )@@G@@GD!G(=^[(H0)IT0G(GS2^[(IS)^@)@M@@@AGD+IT>H14 ))I-*G*)MM )@@G@@G1(H->^[,GD!G(=^[(H0)IT0G(^[B ))DK?^[-H1=^[C^[\I[4HD\H13^[-MN )@@G@@H1=^[3G(1 (^[>J[0G(,MP )@@G@@IT(I1>^[4H8)I(3G*)GD3^[(I))GT-I(3G(3^[H->MQ )@@G@@H(>H14IS)^@)@L@@@AI-\^[+G*)G-\H1> 0)^[DG0)GC)IT(H(0H->^[?HD3I-(H1$^[(IS)MR )@@G@@GD?H))I-*GD4^[(IS)G->IT(IL>G)?^[4H[>^[@ET D1^^@)@E@@@AI[2H9^[5IT>G))G1\IK)I-*HD3^[0I(2I[\IT> 0)@[@@@A^@)^@)@#@@@AG(8GD!I[?G(3MT )@@G@@BK)^@)@[@@@A^@)^@)@A@@@A^[@D([ELQC(G^@)E-KC0= 0?E-KC0= 0)^@)@]@@@B^[@C(JMU )@@G@@C0)^@)@[@@@A^@)^@)@L@@@AE-*G*)IT9H(+H9?HD (G)?^[-H1=^[4H[>^[2G(?H9^[\I(4I[5I))^@)@M@@@AG(?G(!G(,I-3MW )@@G@@^[-IL>^[7IL(I-4G(,^[\H0)E-KC0= 0)^[OH[>IL>^[-IL>^[,H8)IT9H(+H9?HD<^[\I(4MX )@@G@@I[5I))G(?G(!G(,I-3 0)^@)@[@@@A^@)^@)@]@@@A^[@D([ELQC(G@]@@@B^[@C(JC0)^@)MY )@@G@@@[@@@A^@)^@)@A@@@AET-H(>^[-IS)I-*G*)GD+H96G*)GT-IT> 0)@[@@@A^@)^@)@C@@@AMZ )@@G@@^[@D([ELQC(G -[^[UCLJC- 0?E-KC0= 0?E-KC0= 0)^@)@[@@@A^[KCTC@]@@@A^[@C(JNA )@@G@@C0)^@)@[@@@A^@)^@)@M@@@AE-*G*)IT9H(+H9?HD<^[>H->H(>H14IS)H9,^[UCLJC- ^[-NB )@@G@@IL>^[2G*!GT\H(0HD?G(=^[(H0)GD?I[*GD+G(4HD^[\I(4I[5I))G(?G(!G(,I-3^[-IL>^[7IL(I-4G(,ND )@@G@@^[4H8)E-KC0= 0)^[OH[>^@)@K@@@AGT\H14IL\H))IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=NE )@@G@@^[+JC)C[HCDME1 D))GD2G*)I[5H1G))H9,^[H->H(>H14IS)HD,^[OE[A^))GD2G*)IL> (G)?^[7NI )@@G@@HD4H@)I-*G*)IL>H-\GT-I--GL?G*)@K@@@AH95I-0I(4^[>H->H(>H14IS)I92HD4I->H0)NJ )@@G@@H9,^[4H[>^[&HD?G*)EL D-A^[-H1=^[4H[>^[3JD!GL\H-(GS)H95I-0I(4@J@@@AG(?G(!NK )@@G@@G(,I-3^[\H0)G1(H->^[NFDHC0,^@)E-*G*)H90I-(H9,IS)ET]^[-IL>^[5IT>G))H9,^[4NL )@@G@@H[>^[@C1JEK)@K@@@AIT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)C[HCDME1 D),^@)E-*NM )@@G@@G*)C[^CTOD1MFC)I[2H9^[?GD3I))C1JELOEL[D0)GT\H(0HD?GD4HD\H0?^[5IT(H1$^[4H[>^[G^[\I[4HD\H0)NO )@@G@@@M@@@AG1\IK)G(-GT*^[>H->H(>H14 0)^[#GD2G))HD!GD$G(3^[\G0)I-*G*)GT\H14IL\NP )@@G@@H))IT4GD4G(!G(,I-3^[$G(,G(2GD4G(=^[+JC)^@)@L@@@AC[HCDME1 D))I9(H-?^[+G*)NQ )@@G@@I92HD4I->H0)H9,I-\^[4H[>^[3JD!GL\H-(GS)G(?G(!G(,I))ETTD(A 1HCDME1 D-#CDMNR )@@G@@C-N^@)@K@@@AGD?H9,G8)I9(I-*^[\I-*G(2^[\I(4I[5I))IT9H(+H9?HDG1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)NU )@@G@@@ @@@AG(8I->IL,GD?^[2G(&G(2G(,GT>IS,@[@@@A^@)^@)@B@@@A^[@D([ELQC(G^@)CLMNV )@@G@@D9[C-RCDT L[E-GCDIE-DCS,@]@@@A^[KE(I^[IES)@]@@@A^[@C(JC0)^@)@[@@@A^@)^@)NW )@@G@@@N@@@ACD?H))IT9H(+H9?HD<^[>H->H(>H14IS)H9,^[4H[>^[&HD?G*)CLMD9[C-RCDT L[NX )@@G@@E-GCDIE-DCS)GD2G*)I[5H1G))H9,^[^[@D([ELQC(G^[4H8)G9>H1>IL-I->^[3I--I->H(>H14IS)I-*NZ )@@G@@GD4^[3GD9BK)@[@@@A^@)^@)@E@@@A^@)^[@DDK LAD9ME),*[@@@@*SDFF*@[@@@@*BREAKOA )@@G@@@#@@@@-4,6 BREAK@I@@@@ DIMENSION FN1(9),FN2(6),FN3(6) OB )@@G@@ SCR 5099 @I@@@@ COMMON /BRK/USE(7)OC )@@G@@,BNAME2(2),BNAME3(2),BCNT1,BCNT2,BCNT3 SCR 5099 @I@@@@ OD )@@G@@COMMON /B1/B1(224),B2(224) SCR 50OE )@@G@@99 @I@@@@ DIMENSION BNAME1(5) OF )@@G@@ SCR 5099 @I@@@@ EQUIVALENCE (BNAME1,USE(3)) OG )@@G@@ SCR 5099 @#@@@@-9,9 BREAK@I@@@@OH )@@G@@ DATA FN1/'BRK FILE, FILE NAME IS ' ,5*' ' / OI )@@G@@SCR 5099 @#@@@@-14,16 BREAK@I@@@@ CALL MOVER ( ' ',0,OJ )@@G@@FN1(5),1,5 ) SCR 5099 @I@@@@ IF (BCOK )@@G@@NT1.GT.0)CALL MVCHAR (BNAME1,1,FN1(5),1,BCNT1) SCR 5099 OL )@@G@@@I@@@@ CALL PRINT ( 66,9,FN1 ) OM )@@G@@ SCR 5099 @#@@@@-27,28 BREAK@I@@@@ CALL RDS1 ( 'M$A$RON )@@G@@$ ',0,0,B1,B2,224,ERR,$1200 ) SCR 5099 @I@@@@ OO )@@G@@CALL WDS1 ('B$R$K$ ',BNAME2,BNAME3,C1,C2,56,ERR,$1200 ) SCR 50OP )@@G@@99 @[@@@@*BRK1 @#@@@@-11,13 BRK1 @I@@@@ COMMON /BRK/USE(7)OQ )@@G@@,BNAME2(2),BNAME3(2),BCNT1,BCNT2,BCNT3 SCR 5099 @I@@@@ OR )@@G@@COMMON /FACPKT/FACIL(9) @ SCR 50OS )@@G@@99 @I@@@@ DIMENSION BNAME1(5) OT )@@G@@ SCR 5099 @I@@@@ EQUIVALENCE (BNAME1,USE(3)) OU )@@G@@ SCR 5099 @I@@@@ DATA USE/'@USE B$ROV )@@G@@$K$,',4*' ',' . ' / SCR 5099 @I@@@@C OW )@@G@@ SCR 50OX )@@G@@99 @I@@@@ IF ( BRKFLG.GT.0 )GO TO 910 @ BRK CARD ALREADY SPECIFOY )@@G@@IED? SCR 5099 @I@@@@ CALL MOVER ( ' ',0,BNAME1,1,4 )OZ )@@G@@ SCR 5099 @I@@@@ BNAME1(5)=' . 'PA )@@G@@ SCR 5099 @#@@@@-25,41PB )@@G@@ BRK1 @I@@@@ ASTERX=0 @ * (ASTERIC) FLPC )@@G@@AG SCR 5099 @I@@@@ IFILE=0 PD )@@G@@ @ QUAL+FILE CHAR COUNT SCR 5099 @I@@@@ I=0 PE )@@G@@ @ QUAL/FILE CHAR COUNT SCR 5099 @I@@@@PF )@@G@@ 50 IC=IGC( CARD,LC ) PG )@@G@@SCR 5099 @I@@@@ IF ( IC.EQ.'@@@@@ ' )GO TO 100 @ END ON BLANK/PPH )@@G@@ERIOD SCR 5099 @I@@@@ IF ( IC.EQ.'@@@@@.' )GO TO 100PI )@@G@@ SCR 5099 @I@@@@ IF ( IC.NE.'PJ )@@G@@@@@@@*' )GO TO 60 @ END OF QUAL? SCR 5099 @I@@@@PK )@@G@@ IF ( ASTERX.GT.0 )GO TO 950 @ FIRST *? PL )@@G@@SCR 5099 @I@@@@ ASTERX=1 @ YES PM )@@G@@ SCR 5099 @I@@@@ I=0 PN )@@G@@ @ RESET CHAR COUNT SCR 5099 @I@@@@ GO TO 70 PO )@@G@@ SCR 5099 @I@@@@PP )@@G@@ 60 I=I + 1 @ STEP CHAR COUNT PQ )@@G@@SCR 5099 @I@@@@ IF ( I.GT.12 )GO TO 900 PR )@@G@@ SCR 5099 @I@@@@ 70 IFILE=IFILE + 1 PS )@@G@@ SCR 5099 @I@@@@ CALL PUTC ( PT )@@G@@IC,BNAME1,IFILE ) SCR 5099 @I@@@@PU )@@G@@ LC=LC + 1 PV )@@G@@SCR 5099 @I@@@@ GO TO 50 PW )@@G@@ SCR 5099 @I@@@@ 100 CONTINUE PX )@@G@@ @ FINISHED QUAL/FILE NAME SCR 5099 @I@@@@ BCNT1=IFILE PY )@@G@@ @ QUAL+FILE COUNT SCR 5099 @I@@@@PZ )@@G@@ CALL CSF ( USE,7,STAT ) @ @USE ON BRK QUAL*FILE QA )@@G@@SCR 5099 @I@@@@ CALL CHKASG ( 'B$R$K$ ',$975 ) @ QB )@@G@@ SCR 5099 @I@@@@C QC )@@G@@ SCR 5099 @I@@@@C CHECK FOR IMPLIQD )@@G@@ED QUALIFIER (*FILE) EXPAND TO QUAL*FILE. SCR 5099 @I@@@@QE )@@G@@C QF )@@G@@SCR 5099 @I@@@@ CALL IQUAL ( 'B$R$K$ ',BNAME1,BCNT1 ) QG )@@G@@ SCR 5099 @I@@@@ BRKFLG=1 QH )@@G@@ @ SET BRK FLAG SCR 5099 @#@@@@-44,59 BRK1 QI )@@G@@@I@@@@ 150 IC=IGC( CARD,LC ) QJ )@@G@@ SCR 5099 @I@@@@ LC=LC + 1 @ STEP NEXQK )@@G@@T CHAR SCR 5099 @I@@@@ IF ( IC.EQ.'@@@@@ ' )GO QL )@@G@@TO 300 @ BLANK CHAR? SCR 5099 @I@@@@ IF ( IQM )@@G@@C.EQ.'@@@@@/' )GO TO 200 @ '/' CHAR? SCR 5099 QN )@@G@@@I@@@@ BCNT2=BCNT2 + 1 @ NO. CHAR IN ELT NAME QO )@@G@@ SCR 5099 @I@@@@ IF ( BCNT2.GT.12 )GO TO 900 @ TO MANY CHAQP )@@G@@R? SCR 5099 @I@@@@ CALL PUTC ( IC,BNAME2,BCQQ )@@G@@NT2 ) @ CHAR TO ELT NAME SCR 5099 @I@@@@ GO TO QR )@@G@@150 SCR 5099 QS )@@G@@@I@@@@ 200 IC=IGC( CARD,LC ) QT )@@G@@ SCR 5099 @I@@@@ LC=LC + 1 @ STEP NEXQU )@@G@@T CHAR SCR 5099 @I@@@@ IF ( IC.EQ.'@@@@@ ' )GO QV )@@G@@TO 300 @ BLANK CHAR? SCR 5099 @I@@@@ BCNT3=QW )@@G@@BCNT3 + 1 @ NO. CHAR IN VER NAME SCR 5099 QX )@@G@@@I@@@@ IF ( BCNT3.GT.12 )GO TO 900 @ TO MANY CHAR? QY )@@G@@ SCR 5099 @I@@@@ CALL PUTC ( IC,BNAME3,BCNT3 ) @ CHAR TO VQZ )@@G@@ER NAME SCR 5099 @I@@@@ GO TO 200 RA )@@G@@ SCR 5099 @]@@@@300 RETURNRB )@@G@@@#@@@@-61,82 BRK1 @#@@@@-84,84 BRK1 @I@@@@ GO TO 990 RC )@@G@@ SCR 5099 @I@@@@RD )@@G@@ 910 CALL OPAP ( 1,-1, RE )@@G@@SCR 5099 @I@@@@ *'BRK CARD ALREADY SPECIFIED. 2ND BRK CARD IGNORERF )@@G@@D.&' ) SCR 5099 @I@@@@ GO TO 300 RG )@@G@@ SCR 5099 @I@@@@ 950 CALL OPAP (1RH )@@G@@,-1,'SYTAX ERROR ON BRK CARD. TWO ASTERICS(*).&') SCR 5099 @I@@@@RI )@@G@@ GO TO 990 RJ )@@G@@SCR 5099 @I@@@@ 975 CALL OPA (-1,'CANNOT ASSIGN BRK FILE NAME=&' ) RK )@@G@@@ SCR 5099 @I@@@@ I=1 RL )@@G@@ SCR 5099 @I@@@@ IF (BCNT1.GTRM )@@G@@.0)I=BCNT1 SCR 5099 @I@@@@RN )@@G@@ CALL OPAFP ( 1,30,BNAME1,I ) RO )@@G@@SCR 5099 @I@@@@ 990 CALL OPAP ( 1,-1,'BRK CARD IGNORED&' ) RP )@@G@@ SCR 5099 @I@@@@ GO TO 2000 RQ )@@G@@ SCR 5099 @[@@@@*FN @#@@@@-39,39RR )@@G@@ FN @I@@@@ 565 CALL CHKASG ( SPEC1,$900 ) @ MAKE SURE SPEC1 ASRS )@@G@@SIGNED SCR 5099 @I@@@@ CALL IQUAL ( SPEC1,BUFF1,CNT1 RT )@@G@@) @ IMPLIED QUAL-*FILE? SCR 5099 @#@@@@-47,47 FN RU )@@G@@@I@@@@ 575 CALL CHKASG ( SPEC2,$900 ) RV )@@G@@ SCR 5099 @I@@@@ CALL IQUAL ( SPEC2,BUFF2,CNT2 ) RW )@@G@@ SCR 5099 @#@@@@-50 FN @I@@@@ RX )@@G@@CALL CHKASG ( SPEC3,$900 ) SCR 50RY )@@G@@99 @I@@@@ CALL IQUAL ( SPEC3,BUFF3,CNT3 ) RZ )@@G@@ SCR 5099 @#@@@@-53 FN @I@@@@ 900 CALL OPAP ( SA )@@G@@1,-1,'ABORT MARVEL. FILE NOT ASSIGNED.&' ) SCR 5099 @I@@@@SB )@@G@@ RETURN 0 @ ERROR OFF SC )@@G@@SCR 5099 @[@@@@*NC @#@@@@-29,29 NC @^@@@@ JLM=NDEXS(IJSD )@@G@@K) @F@@@@ IF(IGCL(ELTAB(JLM,J),I).EQ.' ')GO TO 115 @ IS CHAR ASE )@@G@@ BLNK @#@@@@-34,34 NC @^@@@@ JLM=NDEXS(IJK) @F@@@@ SF )@@G@@IF(IGCL(ELTAB(JLM,J),I).EQ.' ')GO TO 125 @ IS CHAR A BLNK @#@@@@-42,42SG )@@G@@ NC @^@@@@ JLM=NDEXS(IJK) @G@@@@ CALL MVCHAR(ELTAB(SH )@@G@@JLM,1),1,EVNAME,1,IEL) @ ELT NAME HAS 1-6 CHARS@#@@@@-46,46 NC SI )@@G@@@^@@@@ JLM=NDEXS(IJK) @H@@@@ CALL MVCHAR(ELTAB(JLM,1),1,EVNSJ )@@G@@AME,1,6) @ FIRST 6 CHARS OF ELT NAM @#@@@@-48,48 NC @G@@@@SK )@@G@@ CALL MVCHAR(ELTAB(JLM,2),1,EVNAME,7,IEL6) @ BALANCE OF CHARS SL )@@G@@@#@@@@-58,59 NC @^@@@@ JLM=NDEXS(IJK) @G@@@@ CALL MSM )@@G@@VCHAR(ELTAB(JLM,3),1,EVNAME,CP,IV) @ MOVE IN VERS NAME @G@@@@ SN )@@G@@CALL MVCHAR(ELTAB(JLM,3),1,VNAME,1,IV) @ MOVE IN VERS NAME @#@@@@SO )@@G@@-62,63 NC @^@@@@133 JLM=NDEXS(IJK) @G@@@@ CALL MVCHAR(SP )@@G@@ELTAB(JLM,3),1,EVNAME,CP,6) @ VERS NAME CHARS 1-6 @G@@@@ CALL MSQ )@@G@@VCHAR(ELTAB(JLM,3),1,VNAME,1,6) @ VERS NAME CHARS 1-6 @#@@@@-66,67SR )@@G@@ NC @^@@@@ JLM=NDEXS(IJK) @G@@@@ CALL MVCHAR(ELTAB(SS )@@G@@JLM,4),1,EVNAME,CP,IV6) @ BALANCE OF CHARS @C@@@@ CALL MVCHAR(ST )@@G@@ELTAB(JLM,4),1,VNAME,7,IV6) @#@@@@-69,69 NC @^@@@@ JLM=NDSU )@@G@@EXS(IJK) @E@@@@ ELTYP=IGC(ELTAB(JLM,5),3) @ ELEMENT TYSV )@@G@@PE @[@@@@*PRINT@#@@@@-4,13 PRINT@I@@@@$(1) . SW )@@G@@ SCR 5099 @I@@@@PRINT*SX )@@G@@ L A0,*0,X11 . LINESP SCR 50SY )@@G@@99 @I@@@@ L A1,*1,X11 . NWORDS SZ )@@G@@ SCR 5099 @I@@@@ SSC A1,6 . SITA )@@G@@NGLE RIGHT CIRCULAR SCR 5099 @I@@@@ LDSL A0,6TB )@@G@@ . LEFT DOUBLE SCR 5099 @I@@@@ TC )@@G@@ L A1,2,X11 . A(BUFFER) SCR 50TD )@@G@@99 @I@@@@ LSSL A1,18 . LEFT SINGLE TE )@@G@@ SCR 5099 @I@@@@ LDSL A0,18 . LETF )@@G@@FT DOUBLE SCR 5099 @I@@@@ ER PRINTG )@@G@@T$ . SCR 5099 @I@@@@ TH )@@G@@ J 4,X11 . RETURN SCR 50TI )@@G@@99 @[@@@@*PUNCH@#@@@@-4,11 PUNCH@I@@@@$(1) . TJ )@@G@@ SCR 5099 @I@@@@PUNCH*TK )@@G@@ L A0,*0,X11 . NWORDS SCR 50TL )@@G@@99 @I@@@@ L A1,1,X11 . A(BUFFER) TM )@@G@@ SCR 5099 @I@@@@ LSSL A1,18 . LETN )@@G@@FT SINGLE SCR 5099 @I@@@@ LDSL A0,1TO )@@G@@8 . LEFT DOUBLE SCR 5099 @I@@@@ TP )@@G@@ ER PUNCH$ . SCR 50TQ )@@G@@99 @I@@@@ J 3,X11 . RETURN TR )@@G@@ SCR 5099 @[@@@@*READ @#@@@@-4,12 READ @I@@@@$(1) TS )@@G@@ . SCR 50TT )@@G@@99 @I@@@@READ* L A0,1,X11 . A($EOF) TU )@@G@@ SCR 5099 @I@@@@ L A1,0,X11 . A(TV )@@G@@INPUT BUFFER) SCR 5099 @I@@@@ LSSL A1,1TW )@@G@@8 . LEFT SINGLE LOGICAL SCR 5099 @I@@@@ TX )@@G@@ LDSL A0,18 . LEFT DOUBLE LOGICAL SCR 50TY )@@G@@99 @I@@@@ ER READ$ . TZ )@@G@@ SCR 5099 @I@@@@ J 3,X11 . REUA )@@G@@TURN SCR 5099 @[@@@@*SAVE @#@@@@-6,6 UB )@@G@@ SAVE @I@@@@ COMMON /B1/B1(224),B2(224) UC )@@G@@ SCR 5099 @#@@@@-16,16 SAVE @I@@@@ CALL RDS1 ( UD )@@G@@'M$A$R$ ',0,0,B1,B2,224,ERR,$1200 ) SCR 5099 @[@@@@UE )@@G@@*ELT @#@@@@-76 ELT @I@@@@ CP=CP + NCELV UF )@@G@@ SCR 5099 @[@@@@*IN @#@@@@-19 UG )@@G@@ IN @I@@@@ COMMON /C1/C1(56),C2(56),TEMP(14) UH )@@G@@ SCR 5099 @I@@@@ COMMON /B1/B1(224),B2(224) UI )@@G@@ SCR 5099 @I@@@@ COMMON /B/CNUJ )@@G@@T1,CNT2,CNT3 SCR 5099 @I@@@@UK )@@G@@ COMMON /BUF/BUFF1(8),BUFF2(8),BUFF3(8) UL )@@G@@SCR 5099 @I@@@@ COMMON /SEQX/SEQFLD(14),SEQI,SEQCRD(14),USESEQ UM )@@G@@ SCR 5099 @#@@@@-36 IN @I@@@@ CALL WUN )@@G@@DS1 ( 'M$A$R$ ',0,0,B1,B2,224,ERR,$1200 ) SCR 5099 UO )@@G@@@#@@@@-134,134 IN @#@@@@-143 IN @I@@@@ USESEQ=0 UP )@@G@@ @ USE FLAG=0 SCR 5099 @I@@@@UQ )@@G@@ IF ( CNT1.LE.0 )GO TO 127 UR )@@G@@SCR 5099 @I@@@@ DO 125 I=1,CNT1 US )@@G@@ SCR 5099 @I@@@@ IC=IGC( BUFF1,I ) UT )@@G@@ SCR 5099 @I@@@@ IF ( IC.EQ.'UU )@@G@@@@@@@*' )GO TO 126 @ QUAL*FILE? - SPEC1 SCR 5099 @I@@@@UV )@@G@@ 125 CONTINUE UW )@@G@@SCR 5099 @I@@@@ GO TO 127 UX )@@G@@ SCR 5099 @I@@@@ 126 CALL MOVER ( ' ',0,TEMP,1UY )@@G@@,14 ) @ YES-GENERATE USE SCR 5099 @I@@@@ TEMP(1)='@USUZ )@@G@@E S' SCR 5099 @I@@@@VA )@@G@@ TEMP(2)='$$$EQ,' VB )@@G@@SCR 5099 @I@@@@ CALL MVCHAR ( BUFF1,1,TEMP,13,CNT1 ) VC )@@G@@ SCR 5099 @I@@@@ IX=CNT1 + 14 VD )@@G@@ SCR 5099 @I@@@@ CALL MVCHAR VE )@@G@@( ' . ',1,TEMP,IX,3 ) SCR 5099 @I@@@@VF )@@G@@ CALL WDS2 ( TEMP,14 ) VG )@@G@@SCR 5099 @I@@@@ USESEQ=1 @ SET USE FLAG=1VH )@@G@@ SCR 5099 @I@@@@ 127 CONTINUE VI )@@G@@ SCR 5099 @#@@@@-154 IN VJ )@@G@@@I@@@@ 1200 IF ( ERR.EQ.4 )GO TO 1210 VK )@@G@@ SCR 5099 @I@@@@ IF ( ERR.NE.3 )GO TO 1220 VL )@@G@@ SCR 5099 @I@@@@ CALL OPAP ( 1,-1, VM )@@G@@ SCR 5099 @I@@@@ * 'UNDEVN )@@G@@FINED FILE(M$A$R$). LOOK FOR ARRAY OVERFLOW.&' ) SCR 5099 VO )@@G@@@I@@@@ RETURN 0 VP )@@G@@ SCR 5099 @I@@@@ 1210 CALL OPAP ( 1,-1,'M$A$R$ FILE IS FULL.&' )VQ )@@G@@ SCR 5099 @I@@@@ RETURN 0 VR )@@G@@ SCR 5099 @I@@@@ 1220 CALL OVS )@@G@@PAP ( 1,-1,'I/O ERROR ON M$A$R$ FILE.&' ) SCR 5099 VT )@@G@@@I@@@@ RETURN 0 VU )@@G@@ SCR 5099 @[@@@@*MAIN @#@@@@-0 MAIN @I@@@@C - - - - - VV )@@G@@- - - - - - - - - - - - - - - - - - - - - - - - - - - - SCR 5099 VW )@@G@@@I@@@@C SCR 5099 - BASE IS MARVEL 01C VX )@@G@@ SCR 5099 @I@@@@C MODIFIED TO ALLOW QUAL*FILE ON BRK CARD. VY )@@G@@ SCR 5099 @I@@@@C SUBROUTINE CHANGED -BREAKVZ )@@G@@,BRK1- SCR 5099 @I@@@@C BRK1 WIWA )@@G@@LL UNPACK BRK CARD AND DO A @USE OF B$R$K$ ON SCR 5099 WB )@@G@@@I@@@@C THE QUAL/FILE NAME. BRK1 WILL THEN USE THE FACIL$ WC )@@G@@ SCR 5099 @I@@@@C PACKET TO SEE IF FILE IS ASSIGNED IF NOT A WD )@@G@@DYNAMIC SCR 5099 @I@@@@C ASSIGN WILL BE MADE VIA CWE )@@G@@SF. SCR 5099 @I@@@@C IF ERROWF )@@G@@R THE BRK CARD IS IGNORED. SCR 5099 WG )@@G@@@I@@@@C WH )@@G@@ SCR 5099 @I@@@@C CHECK TO INSURE SPEC1,SPEC2, AND SPEC3(IF SPEWI )@@G@@CIFIED) ARE ASSIGNED SCR 5099 @I@@@@C WJ )@@G@@ SCR 5099 @I@@@@C ADJUST FIWK )@@G@@LE NAME FOR IMPLIED QUALIFIER (*FILE) IN SPEC1, SCR 5099 WL )@@G@@@I@@@@C SPEC2 AND SPEC3. (EXPAND TO QUAL*FILE NAME). WM )@@G@@ SCR 5099 @I@@@@C WN )@@G@@ SCR 5099 @I@@@@C OUTPUT CONTINUATION CARDS IWO )@@G@@F CONTROL CARDS EXCEED 72 CHAR. SCR 5099 @I@@@@C WP )@@G@@ SCR 5099 WQ )@@G@@@I@@@@C OUTPUT '@PDP,OP SPEC1.,SPEC1' IF SPEC1 SPECIFIED WR )@@G@@ SCR 5099 @I@@@@C OUTPUT 2ND PDP CARD '@PDP,OP SPEC1,SPEC3' IF WS )@@G@@SPEC3 SPECIFIED. SCR 5099 @I@@@@C WT )@@G@@ SCR 5099 @I@@@@C MARVEL MAWU )@@G@@P CHANGED TO AN OVERLAY STRUCTURE SCR 5099 WV )@@G@@@I@@@@C SEG ONCE-ONLY ARE INITIALIZATION S/R'S WW )@@G@@ SCR 5099 @I@@@@C SEG GEN-CARDS ARE THE S/R'S TO GENERATE THWX )@@G@@E CONTROL CARDS SCR 5099 @I@@@@C WY )@@G@@ SCR 5099 @I@@@@C IF SEQ CAWZ )@@G@@RD IS SPECIFIED AND SPEC1 HAS A QUALIFIER THEN SCR 5099 XA )@@G@@@I@@@@C MARVEL WILL GENERATE A '@USE S$$$EQ,SPEC1' CONTROL CARD XB )@@G@@ SCR 5099 @I@@@@C AND THE SEQ CARDS GENERATED WILL USE THE 'S$$XC )@@G@@$EQ' FILE NAME. SCR 5099 @I@@@@C XD )@@G@@ SCR 5099 @I@@@@C - - - - - XE )@@G@@- - - - - - - - - - - - - - - - - - - - - - - - - - - - SCR 5099 XF )@@G@@@#@@@@-11,11 MAIN @I@@@@ COMMON /TT/NDEXS(IST) XG )@@G@@ SCR 5099 @#@@@@-15 MAIN @I@@@@XH )@@G@@ COMMON /FS/DCTFLG,MERFLG,BRKFLG,PCHFLG,SAVFLG,SEQFLG XI )@@G@@SCR 5099 @#@@@@-30,30 MAIN @I@@@@ CALL OPAP ( 1,-1,'MARVELXJ )@@G@@ 01D&' ) SCR 5099 @#@@@@-33,39 XK )@@G@@ MAIN @D@@@@ IOPT=OPT(1) @ READ OPTIONS ON MARVEL CARD@I@@@@XL )@@G@@ IF (AND(IOPT,AOPT) .NE. 0 )AOPFLG=3 @ A OPTION? XM )@@G@@MGC 01C @I@@@@ IF (AND(IOPT,XOPT) .NE. 0 )XOPFLG=1 @ X OPTION?XN )@@G@@ MGC 01C @I@@@@ IF (AND(IOPT,POPT) .NE. 0 )POPXO )@@G@@FLG=1 @ P OPTION? MGC 01C @I@@@@ IF (AND(IOPTXP )@@G@@,QOPT) .NE. 0 )QOPFLG=1 @ Q OPTION? MGC 01C @I@@@@XQ )@@G@@ IF (AND(IOPT,SOPT) .NE. 0 )SPLFLG=1 @ S OPTION? XR )@@G@@MGC 01C @#@@@@-46 MAIN @I@@@@ IF (BRKFLG.GT.0)CALL CSFXS )@@G@@ ('@FREE,A B$R$K$. . ',3,I) @ SCR 5099 @#@@@@-52,52 XT )@@G@@ MAIN @I@@@@ RETURN 0 XU )@@G@@ SCR 5099 @[@@@@*MERGE@#@@@@-24,24 MERGE@#@@@@ XV )@@G@@JLM=JLM @D@@@@ ELTYP=IGC(ELTAB(JLM,5),3) @ ELEMENT TYPE XW )@@G@@@#@@@@-26,26 MERGE@D@@@@ PROCOD=IGC(ELTAB(JLM,5),6) @ PROCEXX )@@G@@SSOR CODE @[@@@@*PDP @#@@@@-20,26 PDP @I@@@@C IF SPEC3 NOT SPXY )@@G@@ECIFIED GENERATE: SCR 5099 @I@@@@XZ )@@G@@C '@PDP,OP SPEC1.EL,SPEC1.EL' YA )@@G@@SCR 5099 @I@@@@C IF SPEC3 IS SPECIFIED GENERATE: YB )@@G@@ SCR 5099 @I@@@@C '@PDP,OP SPEC1.EL,SPEC1.EL' YC )@@G@@ SCR 5099 @I@@@@C '@PDP,OP SPECYD )@@G@@1.EL,SPEC3.EL' (WITH 'N' OPTION) SCR 5099 @I@@@@YE )@@G@@C YF )@@G@@SCR 5099 @#@@@@-46 PDP @I@@@@ COMMON /PDP2/PDPCRD(28),YG )@@G@@CPDP2 SCR 5099 @I@@@@ DATA CYH )@@G@@PDP2/0/ SCR 5099 YI )@@G@@@#@@@@-113,131 PDP @I@@@@ CALL PUTC ( ',,,,,,',PCARD,CP ) @ IYJ )@@G@@NSERT ',' SCR 5099 @I@@@@ CP=CP + 1 YK )@@G@@ SCR 5099 @I@@@@ YL )@@G@@CPDP2=0 @ NO. CHAR. IN 2ND PDP CARD SCR 50YM )@@G@@99 @I@@@@ IF ( CNT3.LE.0 )GO TO 533 @ SPEC3 SPECIFIED? YN )@@G@@ SCR 5099 @I@@@@C YO )@@G@@ SCR 5099 @I@@@@C CHECK IF SPEC1=SPEC3.YP )@@G@@ IF YES SKIP 2ND PDP CARD. SCR 5099 @I@@@@ YQ )@@G@@IF ( CNT1.NE.CNT3 )GO TO 532 @ SAME NO. CHAR? SCR 50YR )@@G@@99 @I@@@@ DO 531 I=1,CNT1 YS )@@G@@ SCR 5099 @I@@@@ IC1=IGC( BUFF1,I ) YT )@@G@@ SCR 5099 @I@@@@ IC2=IGC( BUFF3,I )YU )@@G@@ SCR 5099 @I@@@@ YV )@@G@@IF ( IC1.NE.IC2 )GO TO 532 @ CHAR SAME? SCR 50YW )@@G@@99 @I@@@@ 531 CONTINUE @ YES YX )@@G@@ SCR 5099 @I@@@@ GO TO 533 @ SPYY )@@G@@EC1=SPEC3 SCR 5099 @I@@@@ 532 CONTINUE YZ )@@G@@ @ SPEC1 NOT EQUAL SPEC3 SCR 5099 @I@@@@ ZA )@@G@@CPDP2=CP @ GENERATE 2ND PDP CARD SCR 50ZB )@@G@@99 @I@@@@ CALL MOVER ( ' ',0,PDPCRD,1,28 ) @ BLANK ARRAY ZC )@@G@@ SCR 5099 @I@@@@ CALL MVCHAR ( PCARD,1,PDPCRD,1,CPDP2ZD )@@G@@ ) @ MOVE'@PDP,OP SPEC1.,' SCR 5099 @I@@@@ CALL MVCHAR ( BUFFZE )@@G@@3,1,PDPCRD,CPDP2,CNT3 ) @ INSERT 'SPEC3' SCR 5099 @I@@@@ ZF )@@G@@CPDP2=CPDP2 + CNT3 SCR 50ZG )@@G@@99 @I@@@@ CALL MVCHAR ( EVNAME,1,PDPCRD,CPDP2,NCELV ) @ INSERT EZH )@@G@@L/VER SCR 5099 @I@@@@ CPDP2=CPDP2 + NCELV ZI )@@G@@ SCR 5099 @I@@@@ DO 5330 I=1,30 ZJ )@@G@@ SCR 5099 @I@@@@ ZK )@@G@@IC=IGC( PDPCRD,I ) SCR 50ZL )@@G@@99 @I@@@@ IF ( IC.EQ.'@@@@@,' )GO TO 5331 @ FIND ','-,OP ZM )@@G@@ SCR 5099 @I@@@@ 5330 CONTINUE ZN )@@G@@ SCR 5099 @I@@@@ GO TO 533 ZO )@@G@@ @ NO OPTIONS SCR 5099 @I@@@@ 5331 ZP )@@G@@DO 5332 II=I,30 SCR 50ZQ )@@G@@99 @I@@@@ IC=IGC( PDPCRD,II ) ZR )@@G@@ SCR 5099 @I@@@@ IF ( IC.EQ.'@@@@@ ' )GO TO 533 @ ENZS )@@G@@D OF OPTIONS? SCR 5099 @I@@@@ IF ( IC.EQ.'@@@@@LZT )@@G@@' )GO TO 5333 @ REPLACE 'L/S' WITH 'N' SCR 5099 @I@@@@ ZU )@@G@@IF ( IC.EQ.'@@@@@S' )GO TO 5333 SCR 50ZV )@@G@@99 @I@@@@ 5332 CONTINUE ZW )@@G@@ SCR 5099 @I@@@@ GO TO 533 ZX )@@G@@ SCR 5099 @I@@@@ 5333 CALL PUTC ( 'NNNNNZY )@@G@@N',PDPCRD,II ) @ INSERT 'N' OPTION SCR 5099 @I@@@@ 533 ZZ )@@G@@CONTINUE SCR 50AA )@@G@@99 @I@@@@ CALL MVCHAR ( BUFF1,1,PCARD,CP,CNT1 ) @ INSERT 'SPEC1'AB )@@G@@ SCR 5099 @I@@@@ CP=CP + CNT1 AC )@@G@@ SCR 5099 @I@@@@ CALL MVCHAR ( EVNAAD )@@G@@ME,1,PCARD,CP,NCELV ) @ ADD EL/VER SCR 5099 @I@@@@ AE )@@G@@CP=CP + NCELV SCR 50AF )@@G@@99 @[@@@@*BPC @#@@@@-31,31 BPC @I@@@@ COMMON /TT/NDEXS(IAG )@@G@@ST) SCR 5099 @#@@@@-37 AH )@@G@@ BPC @I@@@@ COMMON /PDP2/PDPCRD(28),CPDP2 AI )@@G@@ SCR 5099 @#@@@@-44,44 BPC @#@@@@-59,76 AJ )@@G@@ BPC @ @@@@ IF(NOPT.NE.0)GO TO 100 @#@@@@-93 BPC @I@@@@AK )@@G@@ CPDP2=0 @ SET-NO 2ND PDP CARD AL )@@G@@SCR 5099 @#@@@@-151,151 BPC @^@@@@ JLM=NDEXS(IJK) @E@@@@AM )@@G@@ PROCOD=IGC(ELTAB(JLM,5),6) @ PROCESSOR CODE @#@@@@-200 AN )@@G@@ BPC @I@@@@ CALL CONT ( PCARD,CP ) @ NEED CONTINUATION CARDAO )@@G@@? SCR 5099 @I@@@@ CALL CONT ( PDPCRD,CPDP2 ) @ AP )@@G@@NEED CONTINUATION CARD? SCR 5099 @#@@@@-201 BPC AQ )@@G@@@I@@@@ IF ( CP.GT.80 )CALL WDS2 ( PCARD(15),14 ) @ OUTPUT CONTINUAAR )@@G@@TION SCR 5099 @I@@@@ IF ( CPDP2.GT.0 )CALL WDS2 ( PDPCRD,14 ) AS )@@G@@ SCR 5099 @I@@@@ IF ( CPDP2.GT.80 )CALL WAT )@@G@@DS2 ( PDPCRD(15),14 ) SCR 5099 @#@@@@-205 AU )@@G@@ BPC @I@@@@ IF ( CP.GT.80 )CALL PUNCH ( 14,PCARD(15) ) @ PUNCH CONAV )@@G@@TINUATION SCR 5099 @I@@@@ IF ( CPDP2.GT.0 )CALL PUNCH ( 14,PDPAW )@@G@@CRD ) SCR 5099 @I@@@@ IF ( CPDP2.GT.80 )AX )@@G@@CALL PUNCH ( 14,PDPCRD(15) ) SCR 5099 @#@@@@-219 AY )@@G@@ BPC @I@@@@ IF ( CP.GT.80 )CALL OPAFP ( 1,-1,PCARD(15),80 ) AZ )@@G@@@ LIST CONTIN SCR 5099 @I@@@@ IF ( CPDP2.GT.0 )CALL OPAFP ( BA )@@G@@1,-1,PDPCRD,80 ) SCR 5099 @I@@@@ IF ( CPDP2.GBB )@@G@@T.80 )CALL OPAFP ( 1,-1,PDPCRD(15),80 ) SCR 5099 @I@@@@BC )@@G@@ CPDP2=0 BD )@@G@@SCR 5099 @#@@@@-284,294 BPC @[@@@@*FAACM@#@@@@-24,24 FAACMBE )@@G@@@I@@@@ COMMON /SEQX/SEQFLD(14),SEQI,SEQCRD(14),USESEQ BF )@@G@@ SCR 5099 @#@@@@-72 FAACM@I@@@@ IF ( USESEQ.EQ.0 )BG )@@G@@GO TO 5333 @ NEED USE? SCR 5099 @I@@@@ BH )@@G@@CALL MVCHAR ( 'S$$$EQ.',1,SEQCRD,1,7 ) @ YES-USE S$$$EQ SCR 50BI )@@G@@99 @I@@@@ KNTR=8 BJ )@@G@@ SCR 5099 @I@@@@ GO TO 5334 BK )@@G@@ SCR 5099 @I@@@@ 5333 CONTINUE BL )@@G@@ SCR 5099 @#@@@@-74 BM )@@G@@ FAACM@I@@@@ 5334 CONTINUE BN )@@G@@ SCR 5099 @#@@@@-114,114 FAACM@#@@@@-120,120 BO )@@G@@ FAACM@I@@@@ CP=CP + NCELV BP )@@G@@ SCR 5099 @#@@@@-121 FAACM@I@@@@ IF ( PROCOD.BQ )@@G@@NE.4 )GO TO 1010 @ FORTRAN? SCR 5099 @#@@@@BR )@@G@@-123 FAACM@I@@@@ CPSAV=CP @ SAVE CP BS )@@G@@COUNT SCR 5099 @#@@@@-137 FAACM@I@@@@ BT )@@G@@CP=CPSAV @ RESTORE CP COUNT SCR 50BU )@@G@@99 @[@@@@*LT @#@@@@-31 LT @I@@@@ COMMON /AOPF/AOPFLBV )@@G@@G,XOPFLG SCR 5099 @I@@@@ BW )@@G@@COMMON /TT/NDEXS(IST) SCR 50BX )@@G@@99 @I@@@@ DIMENSION WRKSPC(IST) BY )@@G@@ SCR 5099 @#@@@@-56 LT @I@@@@ IF ( AOPFLG.BZ )@@G@@NE.0 )GO TO 100 @ A OPTION? SCR 5099 @I@@@@CA )@@G@@ DO 90 I=1,NEL @ NO - NO SORT CB )@@G@@SCR 5099 @I@@@@ NDEXS(I)=I @ INITIALIZE INDCC )@@G@@ICES SCR 5099 @I@@@@ 90 CONTINUE CD )@@G@@ SCR 5099 @I@@@@ GO TO 111 CE )@@G@@ @ RETURN TO MAIN SCR 5099 @I@@@@CF )@@G@@ 100 NITEMS=-NEL @ LOGICAL SORT CG )@@G@@SCR 5099 @I@@@@ CALL SORTX ( NITEMS,NDEXS,WRKSPC,ELTAB(1,1),ELTACH )@@G@@B(1,2) @ SCR 5099 @I@@@@ *,ELTAB(1,3),ELTAB(1,4),ELTAB(1CI )@@G@@,5) ) SCR 5099 @I@@@@ 111 CONTINUE CJ )@@G@@ SCR 5099 @[@@@@CK )@@G@@*MAP @#@@@@-1,1 MAP @^@@@@ LIB TPF$@C@@@@ CL )@@G@@ LIB F . E3 FORTRAN LIBRARY @#@@@@-5,9 MAP @C@@@@CM )@@G@@ IN MOVER,MVCHAR,ASMBL,GETWD @ @@@@ IN CN )@@G@@ EDIT$,ERU$@^@@@@ IN WDS @^@@@@ IN SDFOCO )@@G@@@^@@@@ IN LOC$@#@@@@-12,12 MAP @ @@@@ INCP )@@G@@ INFOR$ @#@@@@-14,14 MAP @A@@@@ IN SCANCQ )@@G@@,SCANBL @#@@@@-16,16 MAP @ @@@@ IN SORTX CR )@@G@@@#@@@@-20,21 MAP @ @@@@ IN RDS,SCAN2 @^@@@@ CS )@@G@@ IN SDFI@]@@@@*CHKASG @^@@@@-1,29 CHKASG @A@@@@CT )@@G@@ SUBROUTINE CHKASG ( IFN,$ ) @[@@@@C @B@@@@C CHECK TOO INSURCU )@@G@@E IFN IS ASSIGNED S/R. @[@@@@C @ @@@@ IMPLICIT INTEGER (A-Z) CV )@@G@@@ @@@@ COMMON /FACPKT/FACPKT(9)@^@@@@ DIMENSION IFN(2) @[@@@@CW )@@G@@C @B@@@@ IF ( IFN(1).EQ.' ' )RETURN @ @@@@ IF ( ICX )@@G@@FN(1).EQ.0 )RETURN@^@@@@ FACPKT(1)=IFN(1) @^@@@@ FACPKT(2)=IFCY )@@G@@N(2) @B@@@@ CALL MOVER ( 0,0,FACPKT(3),1,7 ) @E@@@@ CALL FCZ )@@G@@ACIL ( FACPKT) @ GET FACILITY PACKET @E@@@@ IF ( FLD(0,6DA )@@G@@,FACPKT(7)).GT.0 )GO TO 11 @ IFN ASSIGNED?@E@@@@ FACPKT(1)='@ASG,A'DB )@@G@@ @ NO - ASSIGN IT @^@@@@ FACPKT(2)=' '@^@@@@DC )@@G@@ FACPKT(3)=IFN(1) @^@@@@ FACPKT(4)=IFN(2) @^@@@@ FACPKTDD )@@G@@(5)=' . '@A@@@@ CALL CSF ( FACPKT,5,STAT ) @D@@@@ IF ( SDE )@@G@@TAT.LT.0 )GO TO 22 @ ASSIGN OK? @C@@@@ 11 RETURN DF )@@G@@ @ YES @D@@@@ 22 CALL OPA ( -1,'ERROR ASSIGNING FILE DG )@@G@@FOR &' ) @ @@@@ CALL OPAF ( 26,IFN,12 ) @A@@@@ CALL OPA ( 4DH )@@G@@0,'STATUS=&' ) @A@@@@ CALL OPOP ( 1,48,STAT,14 ) @#@@@@ DI )@@G@@RETURN 2 @]@@@@ END @^@@@@-30,30 CHKASG @[@@@@*IQUALDJ )@@G@@@#@@@@-1,25 IQUAL@B@@@@ SUBROUTINE IQUAL ( IFN,BUF,CNT ) DK )@@G@@@[@@@@C @^@@@@C IMPLIED QUAL S/R @C@@@@C ADJUST *FILE NAME DL )@@G@@IN BUF TO QUAL*FILE. @[@@@@C @ @@@@ IMPLICIT INTEGER (A-Z) DM )@@G@@@ @@@@ DIMENSION IFN(2),BUF(8) @B@@@@ COMMON /C1/C1(56),C2(56)DN )@@G@@,TEMP(14) @ @@@@ COMMON /FACPKT/FACPKT(9)@[@@@@C @G@@@@ DO )@@G@@IF ( FLD(0,6,BUF(1)).NE.'@@@@@*' )RETURN @ IMPLIED QUAL-*FILE? @E@@@@DP )@@G@@ FACPKT(1)=IFN(1) @ YES - GET QUALIFIER@^@@@@ DQ )@@G@@FACPKT(2)=IFN(2) @B@@@@ CALL MOVER ( 0,0,FACPKT(3),1,7 ) @ @@@@DR )@@G@@ CALL FACIL ( FACPKT) @#@@@@ DO 11 K=1,12@D@@@@ IF ( IDS )@@G@@GC(FACPKT(5),K).EQ.'@@@@@ ' )GO TO 22 @#@@@@ 11 CONTINUE @]@@@@DT )@@G@@ K=13 @#@@@@ 22 K = K - 1 @D@@@@ CALL MVCHAR ( BUF,1,TEMPDU )@@G@@,1,CNT ) @ MOVE '*FILE'@E@@@@ CALL MVCHAR ( FACPKT(5),1,BUF,1,K ) DV )@@G@@ @ INSERT QUAL @G@@@@ CALL MVCHAR ( TEMP,1,BUF,K+1,CNT ) @ ADD DW )@@G@@'*FILE' (QUAL*FILE) @#@@@@ CNT=CNT + K @]@@@@ RETURN@]@@@@DX )@@G@@ END @#@@@@-26,27 IQUAL___ MOVER,MVCHAR,ASMBL,GETWD DY )@@G@@@ @@@@ IN EDIT$,ERU$@^@@@@ IN WDS @^@@@@DZ )@@G@@^920TJK 3U1,EQ_CAC\;^9T:6K&YP$\'JS I @?J?=KA0OV>,\F.P*K +9R=HW0.]/K 9U0KJAQMG814XAY\EOV5*'\'A/5-XJ1(42D<66D@\_N 21/@^8.Z\;N6S\>NFE63\" )I4EC )@@G@@+K%NMZ\.J8[,RD"2,ZIF+9-K5:=ER \/S]3G'E]L6=\/ITGK;#R*S$\'L6CJ\09(!3R\;WSY"O,"/GB\; TOEEI )@@G@@T#PH+\13XAY\EOV5*'K -=2SD@.E&*\;RGA4U5.,DR\9U[7;"R:W'5K /(U1D;1SI?KA19H7EJ )@@G@@RG@6IG@@@@@S@@@@^D@@@@BC@@@@^D@@@@^E@@@@^F@@@@^G@@@@^H@@@@^I@@@@A.@@@@A"EK )@@G@@@@@@A_@@@@B@@@@@B[@@@@B]@@@@B#@@@@B^@@@@B @@@@BA@@@@BB@@@@BC@@@@^J@@@@^KEL )@@G@@@@@@^L@@@@^M@@@@^N@@@@^O7C[-+UKL7D0&<=!_ Q\1R%_NKV-_EKKI,4+AE%T]JM\\Q:@=EM )@@G@@WU*QN>KK\'1W+M&L8YKM1B]&)"_4D3____________\9Z=>#8U]NONK#_MV;S,R;F*KB4I9:EN )@@G@@6IHP(C____________\/P(_A5JRHSNK[(OXZ.&]H40K^%B8]()7+Y/K].T5[[HY0+S______EO )@@G@@______\'O&3!?"R&!3K#%Q@9E0*2$?KA:E!@J?H1:CK^";J$/P+BPWKB)J+S_]1"OI\1MS$DEP )@@G@@8A)*^?KD_.F^4HX=,SKG)1OUX6.>^@____________________________________KL5\28EQ )@@G@@Y=!_ SK^+*AV6KEXE@\1R &#R;M;/J\\QCG:8/XF#2K /%2Q,%QVJWK]44AI8N[8KCK^6B8?ER )@@G@@9NE#ICKI=!FI4Y5PE)KI,GA3WPA.<1KA$UEI"/-0_KK\LQ[BP,1NSKM0W>W(SO/W&______ET )@@G@@______\'#PH(LP(=0D_+)KA)*49OS.?:)\/@!=^$L*^43KB4I9:6IHP*8____________K]44AI8N[8KK\_GX%-EV )@@G@@XE\ P7\/@NT%*U6@XZ\"V/ :T"9/E#Y5)K@&PO'71 SW@\\Q:@=FF )@@G@@WU*QN>KK\'1W+M&L8ZKM1B]&)"_4D3____________\;GW[&PTH69\K]2OD:1#EV@)K 3U1FFG )@@G@@P[^1[?K#5/IS,.$# 4K 7L3MG;^82/____________K^:F7Q(<*G8?\.P6_U#DFISBKA:>3WFH )@@G@@ P1N6\/R!G[EJ,$%:\'Q!K1>/1C"<____________KA)VU/B>.?:?\/@!=^$L*^4VKB4I9:FI )@@G@@6IHP(A____________\.Q+\H45Y/'_K@*X J7TOS:)K#5/IS,.$# ?K[74"H)\_T%: CI'$*_K (M\IU#I7[W\"I^V(W1W4WZ\/G5H;$QS,)_______FN )@@G@@______K :TGMN[*TM)\/P(_A5JRHSBKA:E!@J?H1:GK^";J$/P+BPOKB)J+S_]1"OM\\S/PKFO )@@G@@\I]A.\\6N]$4\EG_YR\4L;M'PQG+\_____________________________________\\A.;FFP )@@G@@5&906-\1U?5FSUVP!H\\T1("MY;I5T____________________________________\1MS$DFQ )@@G@@8A)*^0KD_.F^4HX=,CKG)1OUX6.>#4____________________________________KL5\28FR )@@G@@Y=!_ UKC<5 TRQOY=KKH&?I%*^%3M@KJ$*<0^3XK#Z\;O4C(QWR3BJ\_T%: CI'$(_\.S!6'FS )@@G@@!UF[3_\1U?5FSUVP!H\2I0R$\U-T,I\0H=Q5'*E7IY\;GW[&PTH69$K](XK2FE-# CK^%Z]DFT )@@G@@[T<";CK^+*AV6KEXA@\1R &#R;M;/J\\QCG:8/XF#1\'#PH(LP(=0>\.FF91B?"B0J\;D8BNFU )@@G@@A?5/1_KI=!FI4Y5PE)KI,GA3WPA.<1KE=!;P=BGFV )@@G@@/641$8J">T"9/E#Y0@K@&PO'71 SO@\\T1("MY;I5T\0H=Q5'*E7IY\,GOH_Z!HOR@K]2OD:FW )@@G@@1#EV@4\_R+'0C&:$N_\.Q+\H45Y/'ZKA$UEI"/-1[KK\LQ[BP,1NUKM0W>W(SO/W*______FY )@@G@@______\;O4C(QWR3B$K]%D@>/641$*KA:>3W P1N0K#*M3"50LSPCK (M\IU#I7[S______FZ )@@G@@______K^3<"T%&2DAO\.H:6OI/5=_JK 3U1FP[^1["\/E#1$L]S/'#\'C,G!3^;BG7______GA )@@G@@______K /%2Q,%QVJQ\/^3C$-R29-7KA0OU4G1IRBLK#_?&PR>D_+SKA)*49OS#8U]NOZK#_MV;S,R;FGKB4I9:6IHP*6____________K@&PO'71 SU@0[U&[AGC )@@G@@#5/-HZ\/R!G[EJ,$%:0@JL,,4MR.,Z\"I^V(W1W4XZ____________\.Q+\H45Y/'RK@*X JGD )@@G@@7TOS?S\/E#1$L]S/93K[74"K)\_T%: CI'$=_\'Q!K1GG )@@G@@>/1C"R\"I^V(W1W4VZ\/G5H;$QS,-_____________\;P).6"&W[^RK](XK2FE-# 8\'C,G!GH )@@G@@3^;BG:K#8;=4-.?$KSK 'P9M1@(;Y0____________\;D8BNA?5/1$K]44AI8N[8KS\9ZRFAGI )@@G@@:$W)P<\/V]8H9Y^FLB\'UCJ_TQB%Z\____________K :TGMN[*TMC\/P(_A5JRHS;\9O5M_GJ )@@G@@0N2IPBK^";J$/P+BPSKB)J+S_]1"OK@@@@@S@@@@@>@@@@],@@@@]<@@@@]=@@@@]>@@@@]&GK )@@G@@@@@@]$@@@@]*@@@@@>@@@@@&@@@@@$@@@@@*@@@@@(@@@@@%@@@@@:@@@@@?@@@@@!@@@@@,GL )@@G@@@@@@@\@@@@@0@@@@](@@@@]%@@@@]:@@@@]?@@@@]!@@@@],7[;,QWKM-3IFEX<8**KI*^8;GM )@@G@@=T/M<)KH_I7@E?6VW'\\Q;-')CET2M\\Z%\-@3*PSIKM-C4I0F$6$(____________\'JA?=GN )@@G@@3ADH'Z\/KMT^0GEWZ\KB+69-W6:E%2____________K#?80[V+ROKJ_P,O)B >):\6T529M_6=M3KF$A\$5!:]'0__________________GQ )@@G@@__________________KM-AJOB.<8*(KC1VV+Z[$*HS\2OV<*\YH1[&KJ?& U^HV'WBK^"JG>GR )@@G@@F8+T;WJ")7;)M?Y>J(\0@*P8GT )@@G@@7)_:'!KM)YR^8=/"'V____________\;[03U4BX&^$\.#LD5<KA"PO^>[V+RO\,U8!,8_%YG^\1SSBUGZ )@@G@@44[#$PKK*&\,]K!V&<____________________________________\,L:UP%#WRE,\6S2B]HA )@@G@@D)-A+FKF*GA7U<3_YC____________________________________KM-3IFEX<8**\1SSBUHB )@@G@@44[#$Q\2XP=[JT;,9@KJV#NT7_.J*KC\O#4HC )@@G@@G]/??0KF/@ RT?@M+2\2]N$[<1P C!K]&:Y-K7!L=K\_WRU&HE )@@G@@?CP9N3K]=-B)O>$1C/\5J)8H;?4-ER\2]N$[<1P C>KJ_HX5\N[*\WJ"_1!NVGLOY@\_E]_=HF )@@G@@-ZI"A$1C8K@<*>TN7%A?O\/ZCP,HJ )@@G@@OP4B!_K[+=7V9_&#\8\/W=L85*;LU$____________K]7M&=P==5I0K@5.@VY)1[9OK@3)&7HK )@@G@@!R]!H)K[$]J[U6-W"S\/R_5=WZX'+_____________\/NBJW:"($)\\"OG,2XDW#M_\/D4PAHL )@@G@@$98<6ZK];Q(:9U4XJU____________\;U=/?&C@]0N\.VY8Z:USI7#K -:3?0]_JK)\/W=L8HM )@@G@@5*;LU$K =N;4#[Y"[V+RO\,L:UP%#WRE,KC\O#4G]/??8\5J)8H;?4-EB__________________HP )@@G@@__________________\,WM:W._%YF_KI>UNQS7OT$T\\T%QCJ?TKDT__________________HQ )@@G@@__________________KJ_P,O)B >):\6T529M_6=M;KF$A\$5!:]'*__________________HR )@@G@@__________________KM-AJOB.<8*(\6S2B]D)-A+NKF/@ RT?@M+2\2]N$[<1P C-\"ZO<=HS )@@G@@MS6ZBZ\.C!TV%VVE1NK^8%O)FC8*.8KI>UNQS7OT$T\2Y&U&?^Z8J_KJ+G%/:PJCQ6\;SREFHT )@@G@@OR;((3\.VY8Z:USI7FK^>V#NT7_.J=KC1VV+Z[$*G*\2OV<*\YH1[$KJ?& U^HV'WC\;[03UHU )@@G@@4BX&^<0[ZW0ZYC](+_K@-Q8+V*54K@\1V]!@@Q*/$1C?\5HQD,2@+* JKJ?& UHX )@@G@@^HV'WB\,MM.#^B[^_N\.#LD5<7;)M?Y>J%\0@*P8HY )@@G@@7)_:'!KM)YR^8=/"'X____________\"ZO<=MS6ZC_0[@IM?=3,:)_K <]5BD*-Y,0K@3)&7HZ )@@G@@!R]!H)\.FH:BV*TMNZ____________K^$*54:*^QQGK]&:Y-K7!L=OK *GQ?!'%B&OK#)7%LIA )@@G@@:%F8M^\'YOGNJ.@0\Z____________K^"JG>F8+T;WK]/,6EWW,'!/K \]690^Y7AK\_@IW%IB )@@G@@]14)@_K#):RP^.W?K@____________\'JA?=3ADH'<\/KMT^0GEWZ3KB+69-W6:E%6______IC )@@G@@______K]7M&=P==5I/K@5.@VY)1[9S\_GZTCM*.M3_K[$]J[U6-W"S\/R_5=WZX'+_______ID )@@G@@______K]=-B)O>$1C4K@<*>TN7%A?GK#)7%L:%F8M^K[+=7V9_&#\4\/W=L85*;LU:______IE )@@G@@______0[ZW0ZYC](X_0^@YND%QST3_K@_1[V+RO@@@@@S@@@@@>@@@@#=IK )@@G@@@@@@@>@@@@@&@@@@@$@@@@@*@@@@@(@@@@@%@@@@#T@@@@#U@@@@#V@@@@#W@@@@#X@@@@#YIL )@@G@@@@@@#Z@@@@#)@@@@#-@@@@#+@@@@#<@@@@#=@@@@@:@@@@@?@@@@@!@@@@@,@@@@@\@@@@@0IM )@@G@@!= N&IKM-3H8.;444>KJ:'PG#Z $;5KK>9G;.R,%S3\\V7.US!R*CW\\[:P"TF=V83KL3L"[IN )@@G@@,[BZ=K1$R_________\'O_UF/$+5"Q\;F,E.BOELLKKB+692(4I=6EIR*@@@@@@@@@K^:K,&IO )@@G@@'X:;W&K#4>WVRL$ZEX\;^*Z8RW87X$K <*H;Q&L4MK1$N_________\'WUF9<[6\T&\;O\LTIP )@@G@@ +O^4^Q:%K^6\!XUJLIT,J"","/(;3*$70@GS9&,*M5^E\0R)RBSCVG*]KK>C%2IS )@@G@@@;=OXB\5NWWF?3F(($KK%"\+>4^Q:%\,W*1MU/=0EHK^-LU+\4BQW'J"&CDQ0,1&I\;Y,>XIU )@@G@@KF8(4#SXE[!K^4L5]IV )@@G@@8:5,,MKB+692(4I=6CIR*@@@@@@@@@J"","/(;3*)4J"&CDQWVRL$ZEPK^;R)B*IJ\' SEM J<^,3KA0I$IIZ )@@C@@&,K+D&\,U8,]!W'SO]\0O>W3JYOCSXKK24ZO1*Z___ JA @EOF @COPY,IO TEMP.1025-001-001,1025-001-001. @FREE TEMP.