@CAT,P 1015-013-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-013-023,,,130061053241,000 )@@G@@**PF**@@@@2W@@@@@@@@@@@[@M&@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@@@]F^ ;Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[>@[I@@Q@@@@@@@@@@@@@@@@[O@@@@@@@@@@@@@@9@@@AC )@@G@@@@@@@@@@2@@@@@@@@@@@@@@(@@@@[G@@@@@@@@@@@1@@3@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@I@@@@@@@@'@[-@@"@@@@@@@@@@@K@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@@@@[Z@@@AE )@@G@@@@@@@@@@@@@^@@@@[S@@@@@%@[A@@@@[&@@@@@@@@@@@0@@@@@@@@@@@*@@@@@@@@@@@M@@@AF )@@G@@@@@@@,@@W@@@@@@@@@@@@@@@@@@@@@@@@@[D@@@@@@@[]@@@@@@@@@@@@@@/@@@@@7@@@@@@AG )@@G@@@@.@@@@@@@@@@@@@[C@@@@@@@@@@@@@@@@@@@@@@[=@@@@@@@@@@@\@@@@@@@@@@@@@[E@@@AH )@@G@@@@@@@@@@@@[W@@@@@@@@@@@@@@@@@C@@T@@@@@@@@@@@+@@@@@@@@@@@U@@@@@@@@-@@@@@@AI )@@G@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@@@@@@@@@D@[^AJ )@@G@@@@@@@R@@@@@@@@@@[U@@@@[X@@@@@Z@@@@@&@@@@[T@@#@@@@[Q@[F@@[@@@@@G@@@@@@@@@AK )@@G@@@@@@@J@@@@@@@@@@@H@@@@@@@@@@[M@@@@@@@@@@@@@@B@@@@@@@@$@@@@@@@@@@@P@@@@@@AL )@@G@@@@@@@@@@@@[Y@@@@@F@@@@@@@@@@@!@[K@@@@@ @@Y@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@AM )@@G@@@@@@[<@@S@[[@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@A@@@@@@@@E@[(AN )@@G@@CNSLI @@@@@@@@[@@@ @ @@@[[@@@@ @@@@W@EL6FFECSI2-HOLD AO )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@]@@@@W G=:FFECSI2 @@@@@?@@[@@@AP )@@G@@ @ @@@[[@@@@B@@@@WBG>,FFECSF-HOLD @@@@@@@@[@@@ AQ )@@G@@@ @@@[@@@@@[@@@@WIG:=FFECSK-HOLD @@@@@@@K[@@@ @ @@@[@@@@@#AR )@@G@@@@@@WJH2#FFEEXMISC @@@@@@@@[@@@ @ @@@[@@@@@Y@@@@WMISUFFEAS )@@G@@EXPOOL @@@@@_@@[@@@ @ @@@[@@@@@[@@@@W0IT2FFEFASEC AT )@@G@@@@@@[N@@[@@@ @ @@@[@@@@@#@@@@W1IU!FFEFCUI @@@@@5@@[@@@AU )@@G@@ @ @@@[@@@@@#@@@@W4I@@[@@@ @ @@@[@@@@@[@@@@X8D9!FGEBH )@@G@@TEST1 @@@@@V@@[@@@ @ @@@[@@@@](@@@@X9EAIFGEUKEYIN BI )@@G@@@@@@@=@@[@@@ @ @@@[@@@@@+@@@@)+EB)FGECSK @@@@@@@@[@@@BJ )@@G@@ @ @@@[@@@@@U@@@@-^HW7FJED5CCR-HOLD @@@@@@@@[@@@ BK )@@G@@@ @@@[@@@@@#@@@@-YH)SFJED5CRIT @@@@@:@@[@@@ @ @@@[@@@@@#BL )@@G@@@@@@--H%3FJEERRF0 @@@@@@@@[@@@ @ @@@[@@@@@]@@@@-=H6MFJEBM )@@G@@FNCCNT-HOLD @@@@@@@@[@@@ @ @@@[[@@@@^@@@@-&H9LFJEGCCFUN BN )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@F@@@@-%H_ FJELOGIT @@@@@@@@[@@@BO )@@G@@ @ @@@[@@@@@#@@@@-5IW/FLEINDRIV BX )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@L@@@@@@@@=K^^MFQECGYCOD @@@@@@@@[@@@CD )@@G@@ @ @@@[@@@@@]@@@@=5MZ"FQECATFR @@@@@@@@[@@@ CE )@@G@@@ @@@[@@@@@^@@@@=7 (OFREE8END @@@@@;@@[@@@ @ @@@[@@@@@ACF )@@G@@@@@@=; 4HFREEX8MAP @@@@@@@@[@@@ @ @@@[@@@@@]@@@@>[ 5%FRECG )@@G@@IOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@># 8)FRESMKEY CH )@@G@@@@@@[V@@[@@@ @ @@@[@@@@[C@@@@> A@KFRESYMBKP @@@@@@@@[@@@CI )@@G@@ @ @@@[@@@@@E@@@@&HA]9FRESMQUES @@@@@@@@[@@@ CJ )@@G@@@ @@@[[@@@@0@@@@&RN_"FUESYMICR @@@@@@@@[@@@ @ @@@[[@@@@LCK )@@G@@@@@@$BMTCG^EDMIINO @@@@[B@@[@@@ @ @@@[@@@@@R@@@@$S]>AGAECL )@@G@@RSIMSG @@@@@@@@[@@@ @ @@@[@@@@@F@@@@$\^$UGAECSP CM )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@S@@@@$'L^4GLEDISP @@@@[*@@[@@@CN )@@G@@ @ @@@[@@@@@%@@@@*MAX_GMESN$AP @@@@@@@@[@@@ CO )@@G@@@ @@@[@@@@[>@@@@*/A':GMEACCNTG @@@@@@@@[@@@ @ @@@[@@@@@]CP )@@G@@@@@@%-E"^[]FFIASG @@@@@@@@[@@@ @ @@@[@@@@@E@@@@%L,N[EFCV )@@G@@DMITRM @@@@@@@@[@@@ @ @@@[@@@@@O@@@@?(L8R[EFPRINT$ CW )@@G@@@@@@[J@@[@@@ @ @@@[@@@@@G@@@@?.L;"[EFDMIIFR @@@@[$@@[@@@CX )@@G@@ @ @@@[@@@@@O@@@@!D[DI[PFREAD$ @@@@[R@@[@@@ CY )@@G@@@ @@@[[@@@@P@@@@!X[E*[PFDAPAM @@@@[P@@[@@@ @ @@@[@@@@@]CZ )@@G@@@@@@!2I!"[PFAAPCT @@@@@@@@[@@@ @ @@@[@@@@@K@@@@!4F]L[QFDA )@@G@@CKEY @@@@@@@@[@@@ @ @@@[@@@@[D@@@@,^FAO[QFCNSLIT DB )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@B@@@@\HFE:[QFCSN @@@@@@@@[@@@DC )@@G@@ @ @@@[@@@@@^@@@@\OJ"K]$GBEDRC @@@@@@@@[@@@ @ @@@[@@@@@^@@@@\&KA1GBEDF )@@G@@EX8LOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@\%KB[GBEEXITF0 DG )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@+@@@@\?KEXGBEFNCCNT @@@@[)@@[@@@DH )@@G@@ @ @@@[@@@@@^@@@@0IKFQGBEINIT1 @@@@[(@@[@@@ DI )@@G@@@ @@@[@@@@@^@@@@0MI(Q[]FINIT2 @@@@@@@@[@@@ @ @@@[@@@@@^DJ )@@G@@@@@@0QKG3GBEIO @@@@@@@@[@@@ @ @@@[@@@@@D@@@@0UAW9GMEDK )@@G@@KPOOL @@@@@@@@[@@@ @ @@@[@@@@@[@@@@0[L&EPEIO-WITH-FIX @@@@@@@@[@@@ @ @@@[@@@@[[EN )@@G@@@@@@8SL3 EQEAASMTAGS @@@@@@@@[@@@ @ @@@[[@@@[N@@@@9TEN5EREEO )@@G@@FALL @@@@@@@@[@@@ @ @@@[[@@@@Q@@@@'?O/1EVESN$AP EP )@@G@@@@@@@@@@[@@@ @ @@@[@@@@[=@@@@;]@I]EWEIO @@@@@@@@[@@@EQ )@@G@@ @ @@@[@@@@@/@@@@/&KZ%EYEIOMSA @@@@@@@@[@@@ ER )@@G@@@ @@@[@@@@@ @@@@.+MQREYESMSAPR @@@@]A@@[@@@ @ @@@[@@@@@FES )@@G@@@@@@.$MU2GDESMUPQ @@@@@@@@[@@@ EW )@@G@@@ @@@[@@@@@ @@@@":J#4GFEK DISTRIBUTION <<<<<<<<<',/,@G@@@@ *' ACCEX )@@G@@OUNT',T16,'FILES',T26,'FIXED',T37,'REMOV',T46,'SEC TAPES', @F@@@@ *EY )@@G@@T58,'V-OPTION',T69,'G-OPTION',T84,'F2',T95,'F4',T105,'F17', @E@@@@ *EZ )@@G@@T116,'F14',T127,'F40',/,' -----',21('------'),/,) @[@@@@ @ @@@@FA )@@G@@ 1003 FORMAT (1X,2A6,I6,10I11)@[@@@@ @B@@@@ 1004 FORMAT (1X,2A6,I4,FB )@@G@@I7,I6,6I5,2I6) @[@@@@ @D@@@@ 1005 FORMAT ('0FILES:',I6,', FIXEDFC )@@G@@ TRACKS:',I6, @E@@@@ *', V-OPT TRACKS:',I6,', SECURE BACKUP BLFD )@@G@@OCKS:',I6,/,@C@@@@ *16X,'REMOV TRACKS:',I6,', G-OPT TRACKS:',@ @@@@FE )@@G@@ *I6,A1,' UNLOADED:',I6) @[@@@@ @C@@@@ 1006 FORMAT(1H1,'SUMMARFF )@@G@@Y BY BILLING AREA: ', @E@@@@ *3X,'FILES (F) TRACKS (R) V/G-OPFG )@@G@@T SEC TAPES'/) @[@@@@ @A@@@@ 1007 FORMAT(1H0,4A6,4I9,3X,I9) FH )@@G@@@[@@@@ @ @@@@ 1008 FORMAT ('0END GBILL') @[@@@@ @ @@@@ 2000 FI )@@G@@FORMAT(4A6,I4,10I5,'GB')@[@@@@ @]@@@@ END ___ F1RE BACKUP BLFJ )@@G@@)@@@F]S@@@@@)@#@C@)@]@C@)[G@C@)@#@IS)@?@C@IN HOU@@@@@[@@@@@@@@@@@@@@@@@@FK )@@G@@/,0@@@AA@@@F)@![S@@@@@@@ /AMC ORNELLROCK/C ER L CENTMEDICAFL )@@G@@ SE AB@@@F)@8[S@@@@@@@,G) ACT (T,USTUDENCH RESEARSORED FM )@@G@@UNSPON SEARCHRED RESPONSOAC@@@F)[#[C@@@@@@@)@[@E@@@@@@@ FN )@@G@@ OTHER EXEC CTS AD@@@F)@][F#L#L#L#L] #@K3@@@@@FO )@@G@@;)@@@PC@@@@]@[=@@@@@@@[H/,0@@@ @@[X4 @@[X3 @@[X2 @@[X1AE@@@F)@F[M[@^G^G1FP )@@G@@#H#G@@C@@@@][^0@@]+8);__C^)@@][@@@@#C/@@@[/K@@@L*@@@@GG/@__";C@@@@@^#;/K@@DCC8K]WK'=@@@08#)@C.C@@^#1'=@@@I'=@@@)>@@^#//K@@DJR;)@@DR;KBO0RI )@@G@@'=@@@08#)@DF/K@@C.;G@@@=;GK@@=C9K@@ ;*K@@#;?K@@#G8K@@08^K@DM;?@@@=C9K@@ RJ )@@G@@;*K@@#;?K@@#G8K@@08^K@DS9*@^#\C@@^#?'=@@@I'=@@@)C/K@@+/DK@D&C/K@@-D[K@@LRK )@@G@@D[@@@K/[K@FL[@K^G:?8@@@F/K@@EHR#K@@GT8K@@]9,X^#_;[K@@<;P@@@[?]K@@K/K@@D6RL )@@G@@%]K@@K/K@@EF?])@@L/K@@D6%])@@L/K@@EFR;K@@P?@K@@G/K@@EDT8K@@]9,X^#_?]K@@KRM )@@G@@/K@@E#%]K@@K/K@@E ?])@@L%])@@L/K@@E#/K@@E 9>@@@P/K@@D;RBK@D6P;K@@[ABK@D6RN )@@G@@/K@@D7R;K@@PABK@D6; @@[B;DK@@[R#)^^:[@)^G,!/@@@F/K@@ET[@)^G?[@)^G!; @@@=RO )@@G@@[@@^^?/^@@EZAA0@ES' )@C8)@@KRU )@@G@@=8)@@)/K@@F)*0F@@@/@0@G!C8)@F=P'0@@[[^:@@@O'0@@[/S@@@@C4:@@@=8)@@KH8)@@KRV )@@G@@=8)@@)/K@@GRC@@^ 'Q;FK@@C4;@@[=80@@KH80@@K=80@@)/K@@G)C@K^ 'Q;VK@[(0F@@@RW )@@G@@H@@^ 'H@)@@J/G)@GMN@\^^2CPI@CL[ @@GEC0:@@[/@)@G(G@)@@JS@)^^';C0@@-(@@@GQRX )@@G@@C[W)@@ @@@GQC[G@@@; @KGE<[H@@@8#)@GB/K@@GH[[X)@@C[G)@@C[W@@@; @@@@8#)@GBRY )@@G@@/@;@@]N@\^^7C[@@@L<[H@@@[[X)@@/KF@@]G8)@@A!@@^ 'A#@@GQ/K@@F7@@@@@@H8)@@)RZ )@@G@@G@)@@G;O)@@=W8)@@AC@@^ 'Q;FK@@G@@@@IC@)@@J/K@@F?H80@@)G@0@@H;O0@@=W80@@ASA )@@G@@C@K^ 'Q;VK@[G@K@@JC@0@@K/K@@F3CG:@@]O'0@@[/C)@F//\@^^!C8@@G1P'0@@[[^F@@@SB )@@G@@O'0@@[C@@^ 'C4:@@@C@K@@GQ;FK@@Q;VK@[C0;@@[/@)@HDN@,^^2C[G)@@<[H@@@[[X)@@SC )@@G@@H8)@@A/@0@HEG@0@@I/S@@@@N^Z^^8CC_^^8M#W)@@/@;@@]N@\^^7C[G)@@<[H@@@[[X)@@SD )@@G@@/KF@@]/^0@H@GG:@@]S@)^^';C0@@-N@K@@IO'0@@[/C)@H]/\@^^!C5J@@@C1J@@@C!J@@@SE )@@G@@C(J@@@C>J@@@C-J)@@[5H@@@[1H@@@[!H@@@[(H@@@[>H@@@/K@@HX[-H)@@Q;)@@@/KE@@@SF )@@G@@/,0@JP@@@^BF/,0@JP@@@^BLRA'@@SA]'@@A/,0@JPF@@^BQ/,0@JP@@@^BX/,0@JP@@@^B=SG )@@G@@/,0@JP@@@^B%/,0@JP@@@^B3RA'@@SA]'@@A/,0@JPF@@^B'/,0@JP@@@^C[/,0@JP@@@^C SH )@@G@@/,0@JP@@@^CE/,0@JP@@@^CJ/,0@JP@@@^CQ/,0@JP@@@^C)A#'@@A/,0@JPJ@@^C&A]'@@ASI )@@G@@/,0@JPF@@^C:/,0@JP@@@^C1/,0@JP@@@^C8/,0@JP@@@^C"/,0@JP@@@^D '^@@JEAR@^DKSJ )@@G@@/,0@JP@@@^DF/,0@JP@@@^DL/,0@JP@@@^DR/,0@JP@@@^DX'^@@JEAR@^D*/,0@JP@@@^DSQ )@@G@@(*E@@D/K@@J(C^U@@/@K@J3'^H@@@R])^F>R]'@@BN80@@[ @@^F:(4F@@@'=@@@)R]'@@A/KF@@@AE'@@SSS )@@G@@C@@@@E'=@@[G(@E@@]/K@@KQ(4E@@A/K@@KQ^0'@@HC4E@@AA:E@@I?8@@@K/K@@KN?8@@@)ST )@@G@@?8@@@S/,0@H)[?E@@D*?E@@I/K@@I"C^E@@CT8@@[@*?E@@AT8@@[@[@E@@C/K@@KO[0E@@DSU )@@G@@RE'@@S/KF@@@(4E@@E/,0@H+ 0E@@HRA'@@S/KF@@@:8K@@N/K@@K&%8K@@L/K@@K-C8)@@-SV )@@G@@/K@@K+C8)@@)[0%@@#'=@@@#C4E@@#/^@@JA/KF@@@N8K@@] @@@@I;G@@@=W8@@@E;GK@@ASW )@@G@@8KK@K(/KF@@@A#@^F>^@)^F&A])^F$')G@@@*@@@@I'^I@@@R;)@K;AB)@L3R#@^F>R])^F$SX )@@G@@ @@^G-')G@@[/^,@@@R#@^F>R])^F$')G@@[:C%@@<(@@^G-/K@@LC9?E@@@9*@@Q4R;@@Q1SY )@@G@@'=@@@CR#@@RK%@@^F!/K@@LMR#@^F>R])^F$')G@@]*@@@@I'^I@@@R#@^F>N@)^F&R])^F$SZ )@@G@@N80@@[/KG@@#:@@^F,/K@@LR:@@^F\'=@@@)/K@@L[R:E@@I!8@@@K'=@@@)R#@^F>R])^F$TA )@@G@@R#G@@@%@@^F0:@@^F1/K@@LCA#K@[]R;K@@LR#@@@E/,0@KVR#K@[]N@)^F$R#@^F>R#G@@@TB )@@G@@%@@^F2/K@@L?R#@@@E/K@@U7R#@@@E&;@@@@'=@@[XR#@^F>(?E@@I/K@@<^/K@@49/K@@@@TC )@@G@@*0E@@G/K@@L/R#E@[MO;@@@[A#E@[MR#E@@WG8@@@[[@E@@W(0E@@I/K@@ME*CE@@V/K@@M#TD )@@G@@(0E@@G/K@@ME/K@@MA;O@@@=WCE@@V/^K@ME9?E@@09*@@MKR#@@MH'=@@@J(0E@@GRA'@@STE )@@G@@/KF@@@@@^@MI@CKPT (0E@@I/KJ@@@N@K@@J9?%@@@RBE@@V9?G@@@TF )@@G@@9*E@@09*E@@@R#@@@E'=@@[G9*%@@@R#0@[[*@E@@]/KJ@@@ 0E@@I/,0@I@/KJ@@@R#@^F*TG )@@G@@;H@@@=W9@@@E;HK@@A$;@@@ /K@@M=)[)^F(/KH@@@@@@@@@C]@^F3A#K@NPRBU@@^%]H@@@TH )@@G@@/K@@NM*)E@@I/K@@NMA#@@NOR#@@@E'=@@@#%]H@@@/K@@M4R7H@@[%8@@@K/K@@M./\@@NFTI )@@G@@/K@@M6R#@@@E'=@@@#R7E@@#%8@@@[/K@@N^R#@@@E'=@@@#%]H@@@/K@@NLR7H@@[%8@@@KTJ )@@G@@/K@@M4/\@@NF/K@@N^AB@@NKR#@@@E&;@@@@'=@@[X'=@@@#/K@@@@R#@@NOR#K@NP/K@KM:TK )@@G@@@@@@@@@@@@@@AE'@@SN@K@@IQ;)S@@*=E@@FQ;)O@@*)E@@FQ;)U@@C8'@@2A#\@@@*?E@@ETL )@@G@@^=_@@@CCU@@N[CZ@@[C^U@@N[^Z@@[C@U@@L[@Z@@]C@U@@M[@Z@@#R#K@@I;CK@@M%8KEOFTM )@@G@@/K@@N8(=E@@J/K@@N89?E@@@9*@@ROC[E@@W/\K@M<[[0@RTR#@@RL'=@@@J*@@@@G'=@@@)TN )@@G@@C^U@@)[@Z@@ *=E@@F/K@@OYR#E@@QA#E@@AR;@@@I[CE@@QG@@@@J[^E@@QQ#@@[[/KG@@@TO )@@G@@/\@@K,RF%@@$RF%@@=RB%@@$/K@@OW/\@@K,RF%@@!RF%@@=RB%@@!/K@@OW/\@@K,RF%@@\TP )@@G@@RF%@@=RB%@@\/K@@OW/\@@K,RF%@@%RF%@@=RB%@@%/K@@OW/\@@K,RF%@@:RF%@@=RB%@@:TQ )@@G@@R#E@@AA#E@@QR;@@@C[0E@@#C8@@@W[CE@@^R;'@@2[^'@@^C@@@@E'=@@@#(4E@@#/K@@O:TR )@@G@@R7'@@#%80@@]'=@@@)*?E@@D/K@@O"C80@@D[0'@@#'=@@@#C4U@@#(0E@@G%8K@@]/K@@O"TS )@@G@@R;K@@(A3U@@#'=@@@#'=@@@#'=@@@#N@%@@SC8@@@@/,0@+O^@%@@S/K@@-HRE'@@S/KF@@@TT )@@G@@AE'@@SC@@@@EC8'@@2(?E@@G/K@@PDC8K@@LG80@@VN8K)@W/K@@PFC8K@@KN8K@@W[0U@@#TU )@@G@@[^'@@^^CU@@^'=@@@#R7E@@#%8@@@^/^@@JA'^@@M:C4E@@#/^@@JAQ#@@@I;C)@@MC8'@@2TV )@@G@@:C\@@@/K@@P)%8)EOF/,0@H4CCZ@@@%8KEOR/,0@H4/K@@Q,:8)HDR/K@@P=(?E@@D/K@@P/TW )@@G@@C@Z@@ [^U@@)*?E@@E/K@@P!CCZ@@[[CU@@OP;K@@[!CU@@N/,0@H6C^Z@@[[^U@@OP;K@@[TX )@@G@@!^U@@N/,0@H8*)E@@D%8)HDR/K@@P6/K@@P/C@Z@@][@U@@LC@Z@@#[@U@@MR#Z@@AA#U@@+TY )@@G@@*=E@@F/K@@Q=R#U@@QA#U@@AR;K@@I[CU@@QG@K@@J[^U@@Q/KG@@@/\@@K,RF%@@(RF%@@/K@@SLA])^F>R;)@SBAB)@L3RF%@@>/KI@@@R])^F>N80@@[9?K^G+*0E@@ER;K@@[UK )@@G@@!@)@@H/K@@SK/,0@I#9?K^F49*U@[I/K@@ST^^'@@)C@@@@E&;@@@@%8K@@N'=@@[Y*?E@@IUL )@@G@@/K@@0LC@)^F6 @E@@ /,0@NQC80@@]*=E@@IC80@@^[@'@@ RB%@@NAF%@@RRBU@@K*?E@@EUM )@@G@@/K@@S:O;K@@[ABU@@RO;K@@[(4E@@IABU@@Q/K@@T_(4E@@IABU@@Q/K@@T_*0E@@F/K@@S3UN )@@G@@()E@@E/K@@T /K@@T79?@^F79*E@@]9?@^F99*E@@^R#@^G&R#K^F;9*E@@AC8E@@]G@@^F/UO )@@G@@()E@@E/K@@T)(4E@@F/K@@T#'K@^F.'=@@[5/K@@T^'=@@[4/K@@T7C@E@@Z/^@@TH*CE@@YUP )@@G@@/K@@TH&;0@@AQ;0@@#R;)@AA/K@@TT;C@@@M/,0@K$R#0@@IC^E@@Z/,0@K$;C)@@MQ#0@@IUQ )@@G@@RFE@@YOBE@@ZOFE@@Z/,0@K$;C)@@M9?@^F";^@@@A9)@@@I;=@@@A9*E@@]C8E@@]G@@^G@UR )@@G@@(4E@@F/K@@T>'K@^F.'=@@[!/K@@T&'=@@[ZR3E@@F/)@@T6R;@@@]A3E@@F/K@@T R#@^G]US )@@G@@(4E@@F/K@@T4A#E@@#9?U@@@9*U@@^C8E@@#'=@@[=/KF@@@'=@@@I/KF@@@/,0@T:RBU@@KUT )@@G@@ABU@@R(4E@@IABU@@QR;K@@Q(=E@@ER;K@@IAFU@@R^*'@@G*0E@@F^0'@@FRA'@@S/KF@@@UU )@@G@@N80@@[R;K[@@/K@@UDN80@@[R;K@@[AA'@@SA7E@@G*^E@@D/,0@H=*?E@@H/K@@H"[^U@@DUV )@@G@@/\0@MM*4E@@I/K@@UPRBU@@KABU@@Q**E@@E/K@@WXR7U@@G0@E@@#'=@@@A'=@@@3=8@@^@UW )@@G@@^)'@@J/,0@J; @E@@] @E@@# @E@@^ @E@@ (0E@@D/K@@VY^^'@@)*)E@@D/,0@H**?E@@EUX )@@G@@/,0@H%/@K@U5:8K@@K/K@@VJ*?E@@I/K@@0.C@)^G#/,0@P@C^%@@O[C%@@RRA'@@S^*'@@GUY )@@G@@/KF@@@C@@@@E&;@@@@'=@@[Y(^E@@U/K@@U?*?E@@I/K@@I'C8K@@[:^U@@U/K@@U?C@@@@EUZ )@@G@@C8)@@*[0%@@#'=@@@#*4E@@#/,0@H/'=@@@#'=@@@#(4E@@#/K@@VA'=@@@#*4E@@#/,0@H/VA )@@G@@'=@@@#G8K@@[/K@@U.^?'@@G*?E@@I/K@@I/C4'@@A:80@@B/,0@H?C@@@@EC8K@@([0U@@#VB )@@G@@'=@@@#(4E@@#/K@@IAR#)^G^/,0@P@/K@@U2:8K@@K/,0@H,(CE@@>/K@@V1A])^F>R;)@V$VC )@@G@@AB)@L3RF%@@>/KI@@@R])^F>N80@@[9?K^G+*0E@@ER;K@@[!@)@@H/K@@V0/,0@I#9?K^F4VD )@@G@@9*U@[I^@'@@ C@)^G /,0@P@ @E@@ ()E@@D/K@@U?C@)^GA/,0@P@C8K@@C[0U@@#C8K@@WVE )@@G@@[CU@@^R;E@@2[^E@@^C@@@@E'=@@@#*?E@@E/K@@WSC8K@@]*=E@@IC8K@@^[@U@@ (CE@@KVF )@@G@@/K@@WOCCE@@O/,0@\+/K@@I%/K@@WHRBU@@KO;K@@[ABU@@RO;K@@[(4E@@IABU@@Q/K@@U2VG )@@G@@/,0@!'/K@@WH/K@@WH/K@@WH*4E@@I/K@@U2RBU@@KABU@@Q/K@@U2(4E@@F/K@@W&0@E@@#VH )@@G@@'=@@@A/,0@J; @E@@] @E@@# @E@@^ @E@@ RBU@@KABU@@R(4E@@IABU@@QR;K@@IAFU@@RVI )@@G@@/K@@U2RBE@@K&;@@@[R;K^G[N^U@@NM#H)@@&;@@XIQBE@@K(4E@@F/K@@X#(4E@@E/K@@W.VJ )@@G@@*0E@@H/K@@W.^)'@@GRE'@@S/KF@@@9?U@@@9*U@@L[@E@@KR;E@@K'=@@@+/K@@X^'=@@@HVK )@@G@@N^U@@N^CU@@Q(4E@@I/K@@XHRB%@@Q&;)@@[RBU@@K&;K@@[M#!)@@/K@@L4^)'@@GRE'@@SVL )@@G@@/KF@@@*4E@@I/,0@YO/,0@YVN^%@@KR;)@@@C?'@@S%80@@@/K@@XZ(^E@@Y/K@@XXRB%@@YVM )@@G@@/K@@X1R;)@@[/K@@X1%80@@]/K@@X2R#)^G$?8)@B_/K@@X1A#E@@AR#@^GBA#E@@]R;E@@]VN )@@G@@O#@^F*(4E@@F/K@@X,'K@^F.'=@@[!/K@@X\'=@@[ZR#E@@AR;)@@[;*)@@AO#)@@G[C%@@KVO )@@G@@(4E@@F/K@@X;9?U@@@9*U@@LC8E@@K'=@@[=/K@@YGC@E@@K'=@@@I/K@@YG*4E@@I/,0@YOVP )@@G@@/,0@YVAFE@@K(4E@@F/K@@YD9?U@@@9*U@@LC8E@@K'=@@[>/K@@L4C@E@@K'=@@[S/K@@L4VQ )@@G@@^^%@@K%80@@[/K@@L4R;0@@@R;)^G[AB%@@KR;@@@[/K@@X-NCU@@QRB%@@Q&;)@@[RBU@@RVR )@@G@@&;K@@[M#Y)@@/KF@@@R;0@@ RFE@@QL8@@@[OBU@@KR:%@@J/@:@@@P;)@@[/KI@Y7*?E@@E/K@@>^WT )@@G@@/K@@(]N80@@[R#F@@@A#E@@S(?E@@E/K@@IE*=E@@D/K@@<2()E@@D/K@@IG(?E@@D/K@@ICWU )@@G@@RFE@@UR#GK@@?8@@@[/K@@=2(CE@@>/K@@<"9?U@[IP;K@@[,@K@@G/K@@=2RBU@@O*=E@@DWV )@@G@@RBU@@NO;K@@V;GK@@=W8K@@WH8@@@[R#)@@HH8)@@[T@K@@GG8K@@]*=E@@IG8K@@]K@K@@IWW )@@G@@!@%@@C/K@@=<*4E@@I/,0@=WRBE@@O*=E@@DRBE@@N/,0@\R/K@@IIR#E@@MO;@@@[A#E@@MWX )@@G@@R#E@@LO;@@@[A#E@@L/K@@L4RBE@@K&;@@@[RB%@@Q&;)@@[N^U@@NM#I)@@/KF@@@RFE@@UWY )@@G@@R#GK@@C[@@@G/\K@M<[[0@>]9?E@@@9*@@=7R#@@=4'=@@@J*@@@@G'=@@@)R#@@=5'=@@@JWZ )@@G@@*@@@@G'=@@@)RE'@@S/KF@@@@@C@=6@@ @="@LOG MASS-STORAGE SPACXA )@@G@@E EXHAUSTED @LOG USER ACTUAL KEY /KF@@@N80@@[R#F@@@A#E@@S(?E@@EXB )@@G@@/K@@IO**E@@D/K@@>H()E@@D/K@@IQ(?E@@D/K@@IMRFE@@UR#GK@@?8@@@[/K@@=2(CE@@>XC )@@G@@/K@@>T9?U@[IP;K@@[,@K@@G/K@@=2RBU@@OO;K@@V;GK@@=W8K@@WH8@@@[R#)@@HH8)@@[XD )@@G@@T@K@@GG8K@@]*=E@@IG8K@@]K@K@@I!@%@@C/K@@=0RBE@@KABE@@Q/K@@L4RBE@@K&;@@@[RB%@@Q&;)@@[N^U@@NM#?)@@/K@@L4N80@@[XF )@@G@@*?E@@I/K@@5F;G@@@=W8@@@A/@K@>"O;@@@[A:U@@JAFE@@QR#V@@@A#U@@S*?E@@J/K@@I&XG )@@G@@*0E@@D/K@@&H(CE@@>/K@@&H9?E@[I?@K@@G/K@@$%O;@@@[A#E@[I(=E@@D/K@@$!*=E@@EXH )@@G@@/K@@XL*)E@@E/K@@X"(=E@@G/K@@$G*4E@@I/,0@$KRBE@@RRFU@@QABW@@@AFW@@@O#@@@HXI )@@G@@O;@@@[ABE@@RR#U@@MO;K@@[A#U@@MRBU@@PO;K@@[ABU@@P*^E@@-/K@@&!RBE@@KOFE@@NXJ )@@G@@PBE@@NP;@@@[?^E@@R/K@@&6/K@@&\:^U@@-/K@@&6ABU@@P*4E@@I/K@@L4RBU@@RO;K@@[XK )@@G@@ABU@@Q/K@@L4RBE@@KAFW@@@RBU@@RH@K@@GABW@@@(0E@@D/K@@$[/,0@?8/K@@I+/K@@$SXL )@@G@@/K@@$^/,0@?Q/K@@IY/K@@IYRBE@@KO;@@@[ABE@@R @@@@HR#E@@LO;@@@[A#E@@L/K@@&\XM )@@G@@ *E@@G^='@@G ^E@@P/K@@&PRBU@@RO;K@@[&;K@@[RB%@@Q&;)@@[NCU@@QM#Y)@@/KF@@@XN )@@G@@R#E@@SA#E@@X*CE@@K/K@@$)R#E@@LO;@@@[A#E@@L ^E@@P @@@@G/,0@+OR#E@@XA#E@@SXO )@@G@@*CE@@K/K@@&.R#E@@LP;@@@[A#E@@L/K@@$^^?'@@JRE'@@S/KF@@@()E@@D/K@@IW**E@@HXP )@@G@@/K@@&P(=E@@G/K@@*_RBE@@RRBW@@@?CU@@QAFU@@Q*4E@@I/,0@$KRBE@@RRFU@@QAFW@@@XQ )@@G@@OBG@@@O;@@@[ABE@@R^)'@@H^='@@HRBU@@PO;K@@[%CU@@P/K@@&\()E@@H/K@@*C/,0@*UXR )@@G@@/,0@!Z/K@@IY/K@@*N )E@@HRBE@@KRFW@@@AFU@@PO;@@@[ABE@@R @@@@H/K@@&\^*'@@HXS )@@G@@ 4E@@#RBE@@KO;@@@[ABE@@R @@@@H/K@@&\AE'@@)0@E@@#'=@@@A9?U@@#9*U@@YR#U@@XXT )@@G@@R#%@@ A#U@@ A#%@@X/,0@?$/K@@IY/K@@IY9?U@@Y9*U@@#R#U@@XA#U@@ RE'@@)/KF@@@XU )@@G@@AE'@@) *E@@G^='@@GR#E@@KR#W@@@:@K^GG/KF@@[;CK@@MAFU@@P ^E@@P(CE@@K/KF@@@XV )@@G@@;@@@@MA#E@@K/,0@!Z/K@@I%/K@@:ERE'@@)/KF@@@/,0@*?/K@@$3/K@@*NN80@@[R#V@@@XW )@@G@@A#U@@S*)E@@G/K@@I8(*E@@D/K@@:L**E@@E/K@@W!*?E@@I/K@@6E*0E@@D/K@@(Q(CE@@>XX )@@G@@/K@@(Q9?E@[I?@K@@G/K@@:EO;@@@[A#E@[I(=E@@G/K@@%HRBU@@P:CU@@P/K@@(,*?E@@GXY )@@G@@/K@@%@RBE@@RRBU@@N!CW@@@RFW@@@AFU@@Q*4E@@I/K@@%FO;@@@[ABE@@QRBE@@PO;@@@[XZ )@@G@@ABE@@PRBE@@ROBG@@@O;@@@[ABE@@R/K@@L4(0E@@D/K@@(/*?E@@G/K@@:H/,0@,T/K@@I,YA )@@G@@/K@@%\RBE@@KRFW@@@AFU@@P ^E@@PO;@@@[ABE@@R/K@@(V/,0@!Z/K@@I%/K@@:E/K@@(5YB )@@G@@RFE@@-RF/@@@P;0@@[AF/@@@O;@@@[8#0@%CABE@@R/K@@(XOBG@@@O;@@@[/K@@% /,0@%$YC )@@G@@/K@@(& *E@@G^='@@GR;@@@]*=E@@IR;@@@^A#E@@ (4E@@E/K@@%R(0E@@H/K@@:E(CE@@KYD )@@G@@/K@@(,*?E@@G/K@@(,RFE@@OR;K@@]*=E@@IR;K@@^/,0@\+/K@@%+/K@@%+'^@@M:R#E@@KYE )@@G@@;@@@@MA#E@@K/K@@(,RBU@@RO;K@@[&;K@@[RB%@@Q&;)@@[NCU@@QM#!)@@/KF@@@/,0@,_YF )@@G@@/K@@I,/K@@I,RBE@@KRF?@@@R;@@@(A3E@@#R#@@@E'=@@@#R7E@@#/^@@I,:8)EOF/K@@:EYG )@@G@@%8)EOR/K@@I6R#E@@SA#E@@X^)'@@G @@@@G/,0@+OR#E@@XA#E@@S *E@@G^='@@G(CE@@KYH )@@G@@/K@@(,/K@@%R^)'@@GRE'@@S/KF@@@/,0@\0/K@@I2/K@@:E/K@@(6()E@@D/K@@I***E@@HYI )@@G@@/K@@?A(=E@@G/K@@?N*=E@@H/K@@:?(CE@@>/K@@:)9?E@[I?@K@@G/K@@:EO;@@@[A#E@[IYJ )@@G@@RBE@@ROBG@@@O;@@@[ABE@@RO;@@@[(4E@@IABE@@QRBU@@PO;K@@[ABU@@P:CU@@P/K@@:5YK )@@G@@RBE@@RRBU@@N!CW@@@RFW@@@AFU@@Q*4E@@I/,0@%$ =E@@H/K@@L4()E@@H/K@@:8/,0@*UYL )@@G@@/,0@!Z/K@@I%/K@@?ARBE@@KRFW@@@AFU@@P ^E@@P )E@@HO;@@@[ABE@@RO;@@@[(4E@@IYM )@@G@@ABE@@Q/K@@:?^)'@@G^*'@@H 4E@@# ^E@@PRBE@@KO;@@@[ABE@@R*4E@@I/K@@?LO;@@@[YN )@@G@@ABE@@QRE'@@S/KF@@@/,0@*?/K@@:?/K@@?A(CE@@K/K@@?$0@E@@#'=@@@AR7E@@#/^F@@@YO )@@G@@(0E@@J/K@@?>RFE@@^O;@@@V;G@@@=W8@@@WO#E@@ A#E@@ /K@@![^0'@@J/K@@![RBE@@KYP )@@G@@RBW@@@AFU@@^ABE@@^R;@@@CA3E@@#R#@@@E'=@@@#R7E@@#/^F@@@RFE@@^O;@@@V;G@@@=YQ )@@G@@W8@@@WO#E@@ A#E@@ /KF@@](CE@@K/K@@!K0@E@@#'=@@@AR7E@@#/@@@![:8@@@]/KF@@[YR )@@G@@/KF@@@R#E@@KRBW@@@(0E@@D/K@@!B/)K@!BO;K@@[AFU@@^ABE@@^;@@@@MA#E@@KR;@@@CYS )@@G@@A3E@@#R#@@@E'=@@@[/KF@@]RBE@@KRBW@@@/)K@!OO;K@@[AFU@@^ABE@@^R;@@@CA3E@@#YT )@@G@@R#@@@E'=@@@#R7E@@#/@F@@]:8@@@]/KF@@[/KF@@@(CE@@K/K@@!'0@E@@#'=@@@ARFE@@KYU )@@G@@R#G@@@:@@^GG/KF@@[R#E@@ A#E@@XR7E@@#/@@@!2%8@@@ /KF@@@RFU@@KRB%@@#/@:@@@YV )@@G@@?^!@@@/KF@@@RFE@@KRBG@@@O;@@@V;G@@@=W8@@@WO#E@@ A#E@@ /K@@,4RBE@@KABE@@^YW )@@G@@RFE@@OAFE@@^R;@@@KA3E@@#R#@@@E'=@@@#RBE@@KR#G@@@:@@^GG/KF@@[R#E@@ A#E@@XYX )@@G@@R7E@@#/@@@,L%8@@@ /KF@@@RBU@@KRB%@@#/@:@@@?^!@@@/KF@@@RBE@@KRBG@@@O;@@@VYY )@@G@@;G@@@=W8@@@WO#E@@ A#E@@ /KF@@](CE@@K/K@@,_0@E@@#'=@@@AR7E@@#/@@@,&:8@@@[YZ )@@G@@/KF@@[%8@@@^/KF@@@RFU@@KRB%@@#/@:@@@RFE@@KABE@@^'^@@M:R7E@@#/@@@,4:8@@@[ZA )@@G@@/KF@@[%8@@@^/KF@@@RFU@@KRB%@@#/@:@@@?^!@@@/KF@@@R#E@@KABE@@^;@@@@MA#E@@KZB )@@G@@RFU@@OAFU@@^R;@@@KA3E@@#R#@@@E'=@@@[/KF@@]RBE@@KABE@@^RFE@@OAFE@@^R;@@@KZC )@@G@@A3E@@#R#@@@E'=@@@#R7E@@#%8@@@^/^@@\H'^@@M:R7E@@#/@F@@]:8@@@[/KF@@[%8@@@^ZD )@@G@@/KF@@@RBU@@KRB%@@#/@:@@@?^!@@@/KF@@@/KF@@]AFE@@^A#U@@ R;@@@CA3E@@#RBE@@KZE )@@G@@ABE@@^R#@@@E'=@@@#R7E@@#/@F@@[/KF@@@AFE@@^A#U@@ A#U@@XR;@@@KA3E@@#RBE@@KZF )@@G@@ABE@@^R#@@@E'=@@@#R7E@@#/@F@@]:8@@@ /KF@@[/KF@@@RFE@@N/)@@\3O;@@@[&#@@@GZG )@@G@@O;@)@@;@@@@MOBE@@KH8@@@[A#E@@^R;@@@LA3E@@#R#@@@E'=@@@#R7E@@#/^@@0^RBE@@^ZH )@@G@@H^E@@#O;@@@[AFE@@-/KF@@]:8@@@[/KF@@[/KF@@@R;@@@DA3E@@#R#@@@E'=@@@#R7E@@#ZI )@@G@@/@F@@]%8@@@]/KF@@@ 4E@@#/KF@@[C!E@@I*?E@@F/\0@9\ CE@@P:9@@@[/K@@0%R#0^GQZJ )@@G@@/,0@02R#E@@QA#E@@AR;E@@2ABE@@Q/\@@K,RF%@@$RF%@@=RB%@@$R#E@@AA#E@@QC!E@@IZK )@@G@@/\0@0?%9@@@]/K@@0%/,0@0B/K@@I+/K@@0%RA'@@S/KF@@@R;U@@2R;)@@I/,0@9=/K@@I+ZL )@@G@@/KJ@@@/KJ@@@R;E@@2&;@@@[R;K^G[N8K@@IM#H)@@P;@@@[A#'@@2R#K^GRA\W@@@ABW@@@ZM )@@G@@/KF@@@C!E@@I*^E@@U/K@@I'R#U@@QR;@@@@&;@@@[&;K@@[9*E@[KQBU@@K9*E@[I:9@@@[ZN )@@G@@/K@@1+/\0@1$(*E@@F/K@@1KR#U@@2;CK@@G%@K^GS/K@@J@R#E@@QA#E@@AR;E@@2ABE@@QZO )@@G@@/\@@K,RF%@@&RF%@@7@@@@2RR#U@@XA#U@@SRFE@@P%^E@@O/K@@2MZU )@@G@@0@E@@#'=@@@AC!E@@I:9@@@[/K@@21/,0@0B/K@@I+/K@@2=R#0^GV/,0@02R#E@@QA#E@@AZV )@@G@@R;E@@2ABE@@Q/\@@K,RF%@@%RF%@@=RB%@@%R#E@@AA#E@@Q/\0@0?/,0@0B/K@@I+/K@@24ZW )@@G@@/,0@0B/K@@I+/K@@27R;@@@(A3E@@#R#@@@E'=@@@#R#@@@ER7U@@G/,0@KV/K@@Z+()E@@GZX )@@G@@/K@@3TC!E@@I:9@@@[/K@@3T(*E@@F/K@@3ER#U@@2;CK@@G%@K^GW/K@@J@R#E@@QA#E@@AZY )@@G@@R;E@@2ABE@@Q/\@@K,RF%@@(RF%@@ @@@[A @@@[B/,0^H-/,0@C1@M@ ]8R') ];C8@@@@/,0@U^N6)^I&^6) [MN6)^I$BJ )@@G@@^6) [LN])^I*^]) [KC@)^I(;O)@@=[^0 [JC8@@'V[^@@99/K@@.*C8@^HM[^@@99Q]K ^=BK )@@G@@/,0@FS@@@^I%@@D@@@@@@@DYQ]@ ^=/,0@FS@@@@[ @@C@@]@@@@J* @@@[A/,0@FS@@@@[ABL )@@G@@@@C@](@@@[X0 @@@[A/,0@FS@@@@[A@@C@ML@@@[X0 @@@[A/,0@FS@@@@[A@@C@-9@@@[X0BM )@@G@@Q') ^I/,0@<&@'9@';/K@@/I/K@@';Q[) ^=CK&@@@:K)^I:/K@@;A/,0@FS@@@^I?@@A@@@BN )@@G@@@@@@DYNM)^I!^E&@@@/K@@/IQ[K ^=/,0@FS@_ @@@@@@ [N@@@@DYCHK [JH9K@@[R[@@@LBO )@@G@@O @ ^=C@=@@[%@)^I,/K@@;N/K@@/ICHK [JH9K@@[R@0@@LO^0 ^=Q@)@98C@<@@[%@+@@@BP )@@G@@/K@@;W/K@@;=CHK [JH[K^I\/ K@;)/K@@.RC[K^I0GHK [J[ K [J/K@@;FQ@K ^=/,0@FSBQ )@@G@@@@@^I1@@[@@@@@@@DYQ]K ^=/,0@FS@@@@[ @@D@@]@@@@J* @@@[A/,0@FS@@@@[A@@D@](BR )@@G@@@@@[X0 @@@[A/,0@FS@@@@[A@@D@ML@@@[X0 @@@[A/,0@FS@@@@[A@@D@-9@@@[X0C[K^I2BS )@@G@@GHK [J[ K [JCG) [J;O)@@=[@0 [KQ') ^I/,0@<&@/A@/C/K@@.X/K@@/CQ[0 ^=CK$@@@BT )@@G@@:K)^I3/K@@/H/K@@.X/K@@/?C4) [M%4)^I4/K@@/M/K@@"+CHK [JH9K@@[R[)@@LO ) ^=BU )@@G@@Q[K@98N]>@@@^]&@@[C8@@DYQ') ^I/,0@<<@/X@/Z/K@@"R/K@@/ZN6)^I5^6) [LC[K^I6BV )@@G@@GHK [J[ K [JCG) [J;O)@@=[@0 [KQ') ^I/,0@<&@/%@/?/K@@/?/K@@/?C4) [L%4)^I7BW )@@G@@/K@@.AQ@) ^= @@@[A/,0@FS@@@@[A@@]@ML@@@[X0 @@@[A/,0@FS@@@@[A@@]@-9@@@[X0BX )@@G@@;G)@[C[@+@@[Q@K@98/,0@FS@_@^I8@S@^G5/,0^ /@@S^G5N]-@@@^])^G5/,0^ /[@A^G5BY )@@G@@C8@^(AQ') ^I/,0@<<@.E@.G/K@@._/K@@.G/,0@FS@@@^I/@@@ [N@@@@DY/K@@'JR') ^IBZ )@@G@@C8@@@@/,0@Y(N[)^I.^5) [I/K@^HL/,0@FS@_@^I"@=@^G5/,0^ /@@=^G5/K@@'JQ]@@98CA )@@G@@/,0@FS@_@^J^@)@^G5/,0^ /@@)^G5N]*@@@^])^G5/,0^ /[@A^G5/K@@'JC4) [I%4)^JECB )@@G@@/K@@.!/K@@.2/K@@.2R') ^IC8@@@@/,0@UBN6)^JF^6) [IQ') ];/,0@<&@.5@.'R') ];CC )@@G@@C8@@@@/,0@Y(/K@@.L/K@@.'Q[K #LQ[)@98N]>@@@^]&@@@/\@@99Q[@@98/,0@FS@_@^JGCD )@@G@@@O@^G5/,0^ /@@O^G5N]=@@@^])^G5/,0^ /[@A^G5C[K [KC/@@@E/,0@D)C@)^G,C@0^G\CE )@@G@@;^)@@/CS0^G\CP@^G\[@)^G5[W0^G6[T@^G6/,0^ /[@E^G5/K@@'JQ@0@98/,0@FS@_@^JKCF )@@G@@@W@^G5/,0^ /@@W^G5N]<@@@^])^G5/,0^ /[@A^G5/K@@'JQ@)@98/,0@FS@_@^JP@U@^G5CG )@@G@@/,0^ /@@U^G5N]+@@@^])^G5/,0^ /[@A^G5/K@@'J'^@^HI@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/K@^@['=@@@3>@@^[T/K@^@BR#@^[UA#@^@@/KF@@[R#@^[VCI )@@G@@A#@^@@RBV@@@ABK^@URFV@@@A#K^@WO'0@@[AA0^@ZR;@^[@R#K^@_/@K^@&:8K@@]/K@^@\CJ )@@G@@O;K@@[O;@@@AAB@^@V *@^@WA#K^@_/,0@FS@_@@@@@@@@@@@@@@@@R#K^@_?8K@@#/K@@@@CK )@@G@@R#@^@"'=@@@I:8K@@^/K@^@7 @@^@_/K@O@ZO;K@@[R#0^[WR#)^[XN8K@@QA#\)@@8KK^@%CL )@@G@@**@^@W/K@^@O/K@^@QR;K@@#O;@@@GRR0^@W?80@@'/K@^@QR;K@@^A#K^@_/K@^@)R;@@]^CM )@@G@@PR@^@WT8@E%:;C@@@MO#@^@" *@^@W/K@^@&@[Q^[@@@@@@@@@@@]@/KF@@[/K@^@D@@[^[@CN )@@G@@ @@@@@@@@@@@@@@E^]@@@N^]E@@E^]X@@E^#Z@@E^]$@@E^]1@@G^];@@I^#B@@E^#ZCO )@@G@@@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#P@@E^#Z@@E^#ZCP )@@G@@@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#Z@@E^#ZERROR CQ )@@G@@IN COBOL LIBRARY - NEGATIVE OR NONNUMERIC SUBSCRIPT ERROR IN L$EXPB - CR )@@G@@ZERO BASE TO ZERO OR NEGATIVE EXP. OR NEGATIVE BASE TO FRACTIONAL EXP. OCS )@@G@@R UNNORMALIZED OPERANDS ERROR IN L$PSQN - IMPOSSIBLE CONDITION HAS OCCURCT )@@G@@RED ERROR IN L$PLMV - IMPOSSIBLE CONDITION HAS OCCURRED CU )@@G@@ERROR IN L$PDVR - DIVIDE SIZE ERROR HAS OCCURRED ERROR IN L$PCV )@@G@@BND - REQUEST TO CONVERT ZERO DIGITS FROM BINARYTO DECIMAL ERROR IN COBCW )@@G@@OL LIBRARY - PARTS OF DOUBLE PRECISION BINARY INTEGER HAVE OPPOSITE SIGNCX )@@G@@ERROR IN COBOL EXECUTION - NO STOP RUN STATEMENT IN PROGRAM ERROR IN COBCY )@@G@@OL EXECUTION - AN UNDEFINED ERROR HAS OCCURRED @#0@@@@@@)@@@[@@@@@[^^#!CZ )@@G@@ CSF ERROR: @@@@@@@@@@@@@[D^#2CSF TERMINATED AFTER WAITING ON FACILITY FDA )@@G@@OR 5 MINUTES@@[@@@@@]@@@@@@@@$@@@@@%@@@@@!@@@@@1@@@@@4@@@@@7@@@@@;@@@@@"DB )@@G@@@@@@[[@@@@[ @@@@@@T&T&T&OY, B:KS=7M/UH,F:BO"FQC8K1\Y)!U5_EU\PYS;+GLF)\*DDC )@@G@@VZH_T5P_R_-Y@@@@@[XCX,)@@@@@@I UPPER. @@@@@AINCORRECT POSITION FOR READ REVERSE.@@@@@ RANDOMDZ )@@G@@ WRITE FILE NOT FASTRAND@@@@@ARANDOM WRITE ON SEQUENTIAL FILE @@@@@ EA )@@G@@RANDOM WRITE FILE NOT OPEN @@@@@ RANDOM WRITE FASTRAND ERROR @@@@@ EB )@@G@@RANDOM READ FILE NOT FASTRAND @@@@@ RANDOM READ ON SEQUENTIAL FILE@@@@@ EC )@@G@@RANDOM READ FILE NOT OPEN @@@@@ RANDOM READ FASTRAND ERROR @@@@@ ED )@@G@@SEQUENTIAL WRITE FILE NOT OPEN@@@@@ASEQUENTIAL WRITE FASTRAND ERROR EE )@@G@@@@@@@ SEQUENTIAL WRITE TAPE ERROR @@@@@BSEQUENTIAL WRITE AFTER INVALIDEF )@@G@@ KEY EXIT @@@@@ SEQUENTIAL READ FILE NOT OPEN @@@@@ASEQUENTIAL READ FAEG )@@G@@STRAND ERROR @@@@@ SEQUENTIAL READ TAPE ERROR @@@@@BSEQUENTIAL REH )@@G@@EAD REVERSE TAPE ERROR @@@@@ASEQUENTIAL READ NO TAPE EOF OR EOR EI )@@G@@@@@@@ASEQUENTIAL READ AFTER AT END EXIT @@@@@DCOMPATIBLE FORMAT TAPE MEJ )@@G@@UST BE POSITIONED EXTERNALLY @@@@@CCOMPATIBLE FORMAT TAPE CANNOT BE OPEEK )@@G@@NED REVERSE @@@@@CCOMPATIBLE FORMAT FILE MUST BE ASSIGNED TO TAPE @@@@@BEL )@@G@@COMPATIBLE FORMAT ERROR - FILE STRUCTURE @@@@@CCOMPATIBLE FORMAT ERROR EM )@@G@@- DATA BLOCK STRUCTURE @@@@@BCOMPATIBLE FORMAT ERROR - RECORD SIZE EN )@@G@@@@@@@]I/O ERROR @@[@@@000000@] ^A5@@TS@@@@[^A9GO NO ER RF%@@(EO )@@G@@RF%@@,RF%@@&/././.@@@@@@@@@@@@HDR@O^S,SPECIAL FORMS REQUEST . @@A@@@EP )@@G@@@@]__.M,000,00,00.@@]@@@ @[[^G[HDR@QOEOF@Q EOF@Q+HDR@QYL,0. @@^@Z*EQ )@@G@@EOF@QTEOF@ONEOF@OSEOF@@@M,66,6,3. @BRKPT @@^@@@EOR@QJHDR@QEEOR@OIER )@@G@@HDR@OD1HDR &&&&&&@@1HDR@@)@@@9999991EOF @@1EOF1EOR @@1EOR@@@^G)@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@ACCEPT??? @@@@@+000000000000000000ET )@@G@@000000@@@@@+000000000000000000000000@@@@@@@@@@@@@@@@@@@@@@@@'^))C<@@@@@@EU )@@G@@'=@@@D/KG@@@R#@^IT'=@@@I'=@@@)(L$PRGO)-ALTERED GO TO STILL INCOMPLETE ATEV )@@G@@ EXECUTION AA0^IF'=@@@MAF@^HH^5K^HH+@@^IUL@K^IV;*)@@ 'C)^H%O#)^IW;C)@@YEW )@@G@@R#"^IG?8)@@#/K@^H4C1@^HH;(@@@[G!@^HH+9@@@#/ K^H4O;0@@[+@@^IX;CK@@GP;K@00EX )@@G@@O#0@@H+80@@_[-@^HHH9@@@E/H@^H"O;0@[@[-@^HH;G0@@G;D@@@Y[>@^HHH9@@@E/H@^I EY )@@G@@O;0@@[[>@^HHA:0^HHRB0^HHO#0^IYAB0^HHR#0^HHA#0^HH/K@@@@@@@@@@@@@@@@@@@@#[EZ )@@G@@@@@@ D@@@@D@@@@[]@@@@[ [@@@[C[@@@][]@@@]^#@@@]B#@@@#@^@@@##^@[D^HS__@@@@FA )@@G@@00@@@@E@@@@@@@__@@@@@000@@@^I)@@@@@[@@@@[>@@@@@@ 000000 . X. FB )@@G@@@@@@@[@@@@@[ ***. ***. @@@@[=@@@@@[ @@@@@[***. FC )@@G@@ X. @@@@@[X. FILE CLEARED FOR PROGRAM MAXIMUM NUMBFD )@@G@@ER OF RECORDS ON CBMFILEDATA CANNOT BE FOUND FOR PROGRAM. X. X. FE )@@G@@BAD WRITE ON CBMBLOK. BAD WRITE ON INDEXONE RECORD. NO DATA RECORD FORFF )@@G@@ PROGRAM. @@@ [I@ASG,A CBMFILE. . PPRPPR @@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@[@[@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@^JU@@@@@@FH )@@G@@@@@@@@@@K@@I@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CBMFILE @@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[[@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@^J:@@@@@@@@@@@@@1-@1-@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@9;@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @]F@@@@@@@@[FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@L$PTPW K@]@@AGDBAU#@@@@@@@@F@C@L$PSLH K@]@@GGC+AU#@@@@@@@@S@CFFT )@@G@@L$MNTR K@[@@LN 9BEC@[Y^@@ERU$ K@@@@PD1<]FEL$ERR K@]@@VFU )@@G@@DQ/GFC@]I^[Y@@I@C^])@@#N])@@@AB@@@@)@G@'K)[[@K)EK@@@@)@]@C@@@@@@@@@@@@@A#@@@^R#@@@@GX )@@G@@AB@@@[O#@@@FRZF@@@/K@@@@@@@@@EAC@@@@)@N[##@[]@(]@0K)MK)G^C]0@@@@@@/,0@@@GY )@@G@@C8@@@@R')@@@/,0@@@C8@@@@R')@@@A#@@@@R#@@@]AD@@@@)@V[N@K)EK@K[@^@@@AB@@@#GZ )@@G@@R;FK@[AB@@@]R;FK@@AB@@@[O#@@@FRZF@@@/K@K@[A#@@@@R#@@@^AE@@@@)@>@N]@(@@@@HA )@@G@@)@#@C@)@$@N#@[]@*@)@^@C@@@@@@@X. A#@@@@R#@@@#@@@@@@A#@@@^R#@@@@AF@@@@HB )@@G@@)@(@N#@[]@=@)@ @C@)@:@V][ #@[@@@@@@@@@@@@@/K@@@1:0)@@ C0)@@[ U. ^6)@@ HC )@@G@@N6)@@^AG@@@@)@A@C@)@,@V#@[]@>@@@@@@@)@B@C@)@1@F#@@@@@@N[)@@B /K@@@3HD )@@G@@^6)@@^N6)@@AX. AH@@@@)@2[N]@>@[@^@K^C])R#@@@@AB@@@#R;FK@[AB@@@]R;FK@@HE )@@G@@AB@@@[O#@@@FRZF@@@/K@@[M^5)@@^AI@@@@)@/@F@@@@@@@)@C@C@)@.@N#@[]@*@)@D@C@HF )@@G@@@@@@@@@@@@@@ A#@@@@R#@@@C@@@@@@A#@@@^AJ@@@@)@_@N#@[]@=@)@E@C@)[[@<#HG )@@G@@@[]@>]@=@@@@H9K@@[CHK@@]^5)@@^N[)@@E ^5)@@ N[)@@DAK@@@@)[ [EK)DK@K^HH )@@G@@[]@1]@W@@@@@/,0@@@Q[K@@QQ[)@@#/K@@[M%@$@@@C@*@@AQ[0@@]OA@@@@R]@@@LAL@@@@HI )@@G@@)[I@+[@@@@@@)@F@C@)[M@N#@[]@=@@@@@@@^])@@#N])@@F@@@@@[/K@@#0@@@^(A@@ @@@HJ )@@G@@@_A@@@AM@@@@)@G@C@)[O@V#@@K)D@)@H@C@)[R@N]@>#@@@%4)@@HC4)@@[X. [^0@@]HK )@@G@@;O)@@=C@)@@G@@@@@[AN@@@@)[T@3@K^[]@0K)K@@@)@I@C@@@@@@@@@@@@@X. /,0@@@HL )@@G@@C8@@@@R')@@@/K@@[-/K@@[-/K@@[WAO@@@@)[Z@V#@[]@>]@0@@@@)@J@C@)[+@V]@X#@@@HM )@@G@@@@^@@@@@@@@J/,0@@@ Q[@@@Q^6)@@[N6)@@IAP@@@@)[>[MK)GK)B@^C[0@@@@#@](HN )@@G@@@@@@[A/,0@@@ @@@[A@@@@J*@@#@@]@@@@[ /,0@@@Q@0@@Q@@@@DYAQ@@@@)[\[M^C[0[]@HO )@@G@@W@@@@@@@#@-9@@@@[A/,0@@@ @@@[A@@@[X0@@#@ML@@@@[A/,0@@@ @@@[A@@@[X0AR@@@@HP )@@G@@)[9@'K)GK)JC[K^[@K)G@@@@)@K@C@***. Q@K@@Q/K@@[_/K@@#M@[.@[_/,0@@@Q')@@@HQ )@@G@@@@@[X0AS@@@@)]@@UK0@K@@@)@L@C@)]#@<]@X#@@@@@@@DY@@[@@@@@@@@L/,0@@@ HR )@@G@@/K@@]E:K)@@KCK-@@@AT@@@@)@M@C@)]B@;#@@K^C#^C[1]@=@@@@@@@@@@A@_D@@@/,0@@@HS )@@G@@Q]K@@Q/K@@#M^E-@@@NM)@@M***. AU@@@@)]I@%K)D[]@0)@N@C@)]N@MK0@@@@@%@)@@NHT )@@G@@C@*@@[ OA@@@QR]@@@LH9K@@[CHK@@]@@@@DYAV@@@@)]P[N@K^C]KK)GK@K@/K@@])HU )@@G@@%@&@@@C@$@@[Q[)@@]O 0@@QR[0@@LH9K@@[CHK@@]/K@@#M/K@@]RAW@@@@)]Z@F@@@@@@@HV )@@G@@)@O@C@)])@<]@>#@[@K@@@@@@@@@@@/K@@ -/ K@]=H[K@@OCHK@@]@@@@[=/K@@]*AX@@@@HW )@@G@@)@P@C@)]=@:#@[]@>]@>@K)G@@@@@@)@Q@C@ Q[K@@Q/K@@]J[ K@@]GHK@@]C[K@@PHX )@@G@@@@@@@[AY@@@@)]([F]@X#@@^C#^C[0@@@@@@@@@@J*@@^@@]@@@@[ /,0@@@Q[@@@Q@@@@DYHY )@@G@@@@ @@@@@@@@Q/,0@@@AZ@@@@)]2[MK)B@^C[0@@@@@@@@[X0@@^@ML@@@@[A/,0@@@ @@@[AHZ )@@G@@@@@[X0@@^@](@@@@[A/,0@@@ @@@[ABA@@@@)]/@%K)B@@@@)@R@C@)#[@N#@[]@=@GHK@@]IA )@@G@@C[K@@R@@@@@[@@@[X0@@^@-9@@@@[A/,0@@@ @@@[ABB@@@@)##[#]@>]@=K)DK)GK)JC[K^IB )@@G@@@@@@@@/K@@ $@#E@#G/,0@@@Q')@@@[@0@@#;O)@@=CG)@@][ K@@]BC@@@@)#F@N@K)G@@@IC )@@G@@)@S@C@)#H@+K0@K^@@@@@@@@/K@@ $/K@@#L:K)@@SCK+@@@***. Q@)@@Q/K@@#GBD@@@@ID )@@G@@)#L@F@@@@@@@)@T@C@)#M@:]@>#@[@K^C]K@CHK@@]/K@@AS/K@@#Q%4)@@TC4)@@ IE )@@G@@/K@@#0BE@@@@)#R[E^C#^@[]@1]@4@@@@@@@/,0@@@Q')@@@C8@@DY^]-@@[N](@@@Q]K@@]IF )@@G@@O^K@@QR@K@@LH9K@@[BF@@@@)#)@U) @K^@@)@U@C@)#<@N#@[]@=@)@V@C@@@@@@[^6)@@^IG )@@G@@N6)@@UX. /K@@#[##@[]@>]@>]@=K)DK)GK)J@@@@/,0@@@IH )@@G@@Q')@@@[@0@@#;O)@@=CG)@@][ K@@]GHK@@]C[K@@VBH@@@@)#!@U) @K^@@)@W@C@)#0@V]II )@@G@@@>#@[@@@@@@@/K@@^G%4)@@WC4)@@^X. /K@@#0/K@@#0@#,@#0BI@@@@)#3[N@K)B@^CIJ )@@G@@[0@@@@@@@[X0@@A@](@@@@[A/,0@@@ @@@[A@@@@J*@@A@@]@@@@[ /,0@@@Q[)@@#BJ@@@@IK )@@G@@)#.[MK)B@^C[0@@@@@@@@[X0@@A@-9@@@@[A/,0@@@ @@@[A@@@[X0@@A@ML@@@@[A/,0@@@IL )@@G@@ @@@[ABK@@@@)^B@M@)@X@C@)^D@:#@@K^C#^@@@@@Q[@@@#Q[K@@Q/K@@^M^E&@@@NM)@@XIM )@@G@@***. [@&@@[;G)@[CBL@@@@)^I@<]@W@@@@)@Y@C@)^M@N#@[]@=@@@@@@@^5)@@ N[)@@YIN )@@G@@ @@@^(A@@^@@@@_ @@@/,0@@@BM@@@@)^O[#@K)EK@K^C]=@@)@Z@C@@@@@@@A#@@@^IO )@@G@@R#@@@@AB@@@[O#@@@FRZF@@@/K@K@[A#@@@@R#@@@^BN@@@@)^W[F#@[]@(@K)GK)B@@@@@@IP )@@G@@C8@^(A@@@^(A@@]@@@@_#@@@/,0@@@Q@)@@QQ@0@@#A#@@@@R#@@@ZBO@@@@)^>@:]@1]@4)IQ )@@G@@ @K^@@)@)@S@@@@@@@CY WRITINGEN** CON/K@@^%/K@@^0@^*@^%/,0@@@Q')@@@BP@@@@IR )@@G@@)@<@S@)^%@:]@X#@[]@P]@T]@O@@@@@@-@@Q/,0@@@@-@@@Q@_@@@)/,0@@@E**. CBMFILIS )@@G@@TE OF BQ@@@@)^\@F]@8@@@@)@&@8@@@@@@@@@@@@@E**. CBMFILGENCY CONTINWRITE IT )@@G@@LE TO **UNAB/,0@@@BR@@@@)^0[#]@X#@[]@P]@T]@P]@8@@@@@@@O#@@@FRZF@@@/,0@@@IU )@@G@@@@$@@Q/,0@@@@$@@@Q@_@@@&/,0@@@BS@@@@)^8@:@^[]@(@@@@@@@)@!@C@)^.@F#@@@@@@IV )@@G@@R#@@@!@@@@@@A#@@@^R#@@@@AB@@@#R;FK@@AB@@@[BT@@@@)^"[F]@(@K)GK)B@^C#@@@@@IW )@@G@@Q')@@@C8@^(A@@@^(A@@C@@@@_[@@@/,0@@@Q]@@@QQ@K@@#A#@@@@BU@@@@) B@<]@4) @KIX )@@G@@^@@@@@)@,@C@) F@N]@X#@@@@@@@@,/,0@@@ /K@@ F/K@@ 5@ D@ F/,0@@@BV@@@@IY )@@G@@) H[F]@=K^C]=@^[]@*@@@@@R#@@@@AB@@@[O#@@@FRZF@@@/K@K@[A#@@@@R#@@@^@@@@DYIZ )@@G@@@@@@@ABW@@@@) Q@F@@@@@@@)@\@C@) R@:#@[]@(]@0K)F@/,0@@@C8@@@@R')@@@A#@@@@JA )@@G@@R#@@@\@@@@@@A#@@@^BX@@@@)@0@C@) W@:#@[]@>@K)EK@@)@1@K@M NUMBMAXIMU/K@K@[JB )@@G@@A#@@@@R#@@@^^5)@@[N[)@@0 BY@@@@)@3@)@@@@@@@) -@<]@X#@[]@P]@S@/,0@@@JC )@@G@@@=@@@Q@_@@@1/,0@@@BMFILES ON CRECORDER OF BZ@@@@) >@V]@P@K@@)@7@0@@@@@@@JD )@@G@@AM. PROGRND FORBE FOUANNOT DATA CQ[)@@]/K@@ 2@@=@@QCA@@@@) *[#]@X#@[]JE )@@G@@@P]@T]@OK) K)A@@@@/,0@@@^])@@QN]&@@@@@)@@Q/,0@@@@)@@@Q@_@@@7/,0@@@CB@@@@JF )@@G@@) 0@3]@P@K^C]=[@@@)@.@S@ CBMBLITE ONBAD WRQ[K@@]/K@K@[A#@@@@R#@@@^/K@@ 2JG )@@G@@[@A@@QCC@@@@)[@@C@) 6@;]@X#@[]@P]@T]@OK) @^])@@QN]>@@@@@O@@Q/,0@@@@O@@@QJH )@@G@@@_@@@./,0@@@OK. CD@@@@) .[#]@T]@P]@=K)CK) K) @@@@@@@;^)@@/C@0@@KC@)@@JJI )@@G@@/,0@@@C/@@@EC[K@@#[@A@@Q/,0@@@CE@@@@)A [#]@P]@P]@P]@P]@P]@T]@P@@@@/K@@ 2JJ )@@G@@[@E@@Q/,0@@@[T@@@R[W0@@R[@)@@QCP@@@KCS0@@KCF@@@@)AH@F@@@@@@@)[[@*@@@@@@@JK )@@G@@)AI@F]@W@@@@/,0@@@CORD. ONE RE INDEXITE ONBAD WRQ[@@@]CG@@@@)AJ[##@[]@P]JL )@@G@@@T]@OK) K)AK) @@@@[@A@@Q/,0@@@^])@@QN]=@@@@@W@@Q/,0@@@@W@@@Q@_@@[[CH@@@@JM )@@G@@)AR@N@K@@@@@)[A@*@@@@@@@@@@@*@@@@@@@AM. PROGRRD FORA RECONO DATQ@0@@]JN )@@G@@/K@@ 2CI@@@@)AT[#]@X#@[]@P]@T]@OK) K)A@@@@/,0@@@^])@@QN]<@@@@@U@@Q/,0@@@JO )@@G@@@U@@@Q@_@@[A/,0@@@CJ@@@@)A-@V]@P@K)^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@'^@@@@/K@@ 2[@A@@QCK@@@@@@@@@@C#^@[]@1]@4@@@@@@@/,0@@@Q')@@@JQ )@@G@@C8@@DY^]-@@[N](@@@Q]K@@]O^K@@QR@K@@LH9K@@[BF@@@@@@^@@B@@F@@N@@1@@C@[L@@[JR )@@G@@@@E@[F@@@@A=@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@DCOM$$ L$BACK C$WORKJS )@@G@@READ DCOM$$ SPLA$H DCOM$$ LTTY$$ L$PLMV L$PBNDJT )@@G@@ C$WORKREAD L$DECC LCF$ CBMBLOCK LW$ ERRR JU )@@G@@ LR$ LOIO$ DRNCS$ LOO$ C$CODEREAD @@[@@@JV )@@G@@@@@@@@DRNCS$ @@ @@@@@@@@@OPENIT @@[@@@@@@@@IREADAREC @@[@@@JW )@@G@@@@@@@YREADUSE @@[@@@@@@@@4GZUWRI @@[@@@@@@@^RWRITEREC @@[@@@JX )@@G@@@@@@^6CLOSECBM @@[@@@@@@@ MN$BLNK ^[@@@@@ @@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@)@@[L@K)@K@K@@@@@@O#FK@#[@FK@]P#FK@@C@FK@[/@@@@FC@FK@@[@FK@[C@@@@='=@@@@KB )@@G@@C@@@[2AA@@@@)@E@)@@@@@@@)@$@C*@@@@@@)[L@L@K)[@@@'=@@@@C@@@@$__@@[O/KF@@^KC )@@G@@[@FK@@C@FK@[[@FK@#AB@@@@)[N[K@K^@K)]^@@@@@R#@@[5N8K@@J/,0@@@M#H)@@R#K@[4KD )@@G@@R#@@[3N8K@@U@@@@@@@@@@@@/KF@@@AC@@@@)[X[D@[]@ @E]^@U@@@@@@@@CONTWD/K@@[*KE )@@G@@'=@@@@C8@@[>[@@@[$'=@@@@ @@@@GM#H)@@R#K@[6AD@@@@)[&[K*@)C@C]@@@@@@M#W)@@KF )@@G@@R#K@[6R#@@[5N8K@@JM#W)@@R#K@[4R#@@[3N8K@@U@@@@@@@@]@[OAE@@@@)[0@9]@L]@O*KG )@@G@@ @E@@@@@@@@@@@@@@@@@@@@@@@[@[[@@[@[]@@[@@[@@[@@*@@R@@I'=@@@@'=@@@@AF@@@@KH )@@G@@@@^@@[@@ @@A@@L@@^@@-@@@@@@@[7PCT$ IALL$ GZUWRI SNAP$ KI )@@G@@ CEND$ ERR$ GETIME @@@@@@@@@@@@GZIALL @@@@@@KJ )@@G@@@@@@[LGZCONT @@@@@@@@@@[OERRR @@@@@@@@@@[Z@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@#I/["6@C@BF8^@@["6BF8KM )@@G@@@@@[G'@@@@#S@@^^@@@@@@B @C0@@W@@@@@@@@@@@@@@@@@@@@@@@@@@A^@K70-1 @@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@H KW@@2AC:@@2AD"@@2AFL@@[AG=@@^AG$@@^AH#@[PAI*@@[ E4@[%AJ"@E\[R,@@@___KP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KQ )@@G@@@@@___@@@___@@@___@@@___R<@^N':8@@@+/KF@@@R<@^N"R\G^]ZA<@^N"/KF@@@R<@^N"KR )@@G@@!8@@@0/KF@@@RLE )@@G@@@@@@@@PROCEDUREDIVISION@ @[@G@@@,@@@C@@@@@@ACCEPT ADD ALLF )@@G@@TER CALL CLOSE COMPUTE COPY DISPLAY DIVIDE LG )@@G@@ ELSE END ENTER EXAMINE EXECUTE EXIT GO LH )@@G@@ GOBACK IF INCLUDE INVALID INSPECT MONITOR LI )@@G@@ MOVE MULTIPLY NEXT NOTE OPEN PERFORM PROCLJ )@@G@@EED READ READY REFERENCINGRELEASE RESET RETURN LK )@@G@@ SEARCH SEEK SELECT SET SORT STOP SUBTRLL )@@G@@ACT THEN USING WHEN WRITE @@@@@@@ E5@@@@@@REFORMLM )@@G@@AT PROGRAM BEGUN. @@@@@B*. /. X. X. _@@@@_LN )@@G@@ XX. @@@@@[@@@@@@@@@@@@L$PRR@L$PRR@ X. X. X. LO )@@G@@ X. @@@@@[ X@@@@@C @@@@@[L$PRR@''''''@@@@[DX. L$PRR@ LP )@@G@@@@@@@[L$PRR@.. L$PRR@L$PRR@E%%%%:E%%%%:@@@@@@@@@@@[@@@@@[@@@@[DL$PRR@LQ )@@G@@''''''@@@@@[@@@@@[@@@@@@ X. @@@@@@@@@@[C@@@@@@ X@@@@@C X.LR )@@G@@L$PRR@L$PRR@E%%%%:E%%%%:@@@@[C@@@@@[S. @@@@@[ @@@@@G REFORMLS )@@G@@AT PROGRAM ENDED. @@@@@[@@@@@CL$PRR@ @@@@@[L$PRR@.. L$PRR@LT )@@G@@L$PRR@E%%%%:E%%%%:@@@@@[L$PRR@ L$PRR@ @@@@[C@@@@@[@@@@@[L$PRR@LU )@@G@@.. L$PRR@L$PRR@E%%%%:E%%%%:@@@@@[L$PRR@ /S@^N,@@@@@@@@@@@@/K@^M-LV )@@G@@/K@^M-/K@^M-/K@^M-/K@^M-/KF@@@RZF@@@O#@@@FAB@[R\R#@[GKA#@[R0R#@AJ"A#@[GKLW )@@G@@/,0@R<@_@AJ_@Q@^O^/,0^FZ@@Q^O^R')AD"C8@@@@/,0@<,R')AFLC8@@@@/,0@&JR')AC:LX )@@G@@C8@@@@/,0@<,/,0@R<@_@AI*@@@AHN@@@@B'Q[0AEON[)AK#^5$@@@N[)AK#^5$@@[N[)AK^LY )@@G@@^5)AH#C@)AK ;O)@@=[W0AH^Q')AFL/,0@\1[SX[SZ/K@[Z4/K@[SZQ[KAF$C4>@@[%4)AKALZ )@@G@@/K@[S=/K@[S$C4>@@[%4)AKB/K@[S*/K@[S_C0)AH#%0)AKC/K@[S?/K@[TFC8@[S\[^@[R5MA )@@G@@/K@[) C8@^M-[^@[R5/,0@K&@@@AG:@@@@[C@D@AG*@@@@@@/K@[S_/,0@K&@@@AG7@@@@[CMB )@@G@@#C@AG(@@@@@@/K@[S_N2)AKD^2)AH#Q[@AF$Q@0AD[/,0@R<@_^@@@@@#@@@@@@@[KC8@[TCMC )@@G@@[^@[R4/K@[ZCC8@^M-[^@[R4/K@[SPQ@)AF$C@+@@[;^K@@=N@)AKF<@KAKE%@)AKE/K@[TNMD )@@G@@/K@[TVN[)AKG^!)AH#N[)AKG^()AH#N+)AKH^+)AH#N+)AKH^&)AH#C8@[TY[^@[R2/K@[VUME )@@G@@C8@^M-[^@[R2C4)AH#%4)AKI/K@[T=/K@[SPC@)AKJ;O)@@=[O0AH^C80@@[C9@@@,9*0AKKMF )@@G@@/K@[T\9?0AKK/^0[T\/K@[UQ/K@[UQK[@@@J;DK@@[[[KAJ.CHKAJ.H9K@@[T.K@@F[[KAKMMG )@@G@@C@@AKM/,0@K&)F@AHN@@@AHB@@@@[C@@@@@@/K@[T_/K@[UW/K@[UQCHKAJ.H9K@@[T.K@@FMH )@@G@@[[KAKNC@@AKN/,0@K&)F@AHN@@@AHB@@@@[C@@@@@#/K@[UKC[KAJ.![KAKL/K@[T!G9K@@[MI )@@G@@[[KAKK/K@[T:C[KAJ.H9K@@[?[KAKK/K@[T![[KAKL/K@[T:C=)AH#%=)AKO/K@[UV/K@[UWMJ )@@G@@/K@[UW/K@[TVC*)AH#:*)AKP/K@[U$DTKAH GXKAH^[PKAH N%)AKQ^%)AH#N[)AKR^>)AH#MK )@@G@@/K@[TVN,)AKS^,)AH#DTKAH GXKAH^[[K^N"C@)^N";O)@@=[W0AHAD[KAKTGXKAHA[[K^N"ML )@@G@@C@)^N";O)@@=[W0AHAC))AH#%))AKU/K@[U;C@)AKV;O)@@=[S0AH^C8@[U"[^@[R3/K@[YSMM )@@G@@C8@^M-[^@[R3C8@[V#[^@[R4/K@[ZCC8@^M-[^@[R4CX@AH^;P@@@=C/@@@@;-K@@[C'0@K;MN )@@G@@"60@@K":G^C CT@AH ;P@@@=C/@@@@;-K@@[C8K@K;"4K@@K"*?^C "$@@@IC/@@@@/,0@D&MO )@@G@@@@@@@@/S@@@@[PKAH /K@[TV/,0@R<@@@AKW@@@AHB@@@@[C;G)@[C[S)AH C[KAKXGXKAH^MP )@@G@@[[K^N"C@)^N";O)@@=[W0AH^Q@KAF$CXKAH^H9K@@[[[KAKYC@@AKY/,0@K&)[[@@@@[@AKZMQ )@@G@@@@@@@@/K@[V5C8@[V3[^@[R1/K@[W4C8@^M-[^@[R1CXKAH^H[KAK)/ K[V;N6)AK-^6)AH#MR )@@G@@/K@[X$Q]KAF$CXKAH^H9K@@[[[KAK+C@@AK+/,0@K&)[D@@@@[@AK<@@@@@@/K@[WA/K@[X-MS )@@G@@C[KAK=GTKAH [[K^N"C@)^N";O)@@=[S0AH NY)AH^^U)AHAQ]@AF$CXKAH^H9K@@[[[KAK>MT )@@G@@C@@AK>/,0@K&)[C@@@@[@AK&@@@@@@/K@[WU/K@[W\/K@[W\Q[0AF$CXKAH^H9K@@[[[KAK$MU )@@G@@CTKAH H9K@@[[[KAK*C8@@@@G@@AK$S@@AK(;CK@@-G8B@@@CWX@KN9?/@@@;^.KKIC8@@#GMV )@@G@@G@@AK*S@@AK%;CK@@-G8@AG>')H@KZCPKAH / K[W3NY)AH^^Q)AH /K@[V)C[KAK?GTKAH MW )@@G@@[[K^N"C@)^N";O)@@=[S0AH NY)AH^^U)AHAC[KAK!GXKAH^[[K^N"C@)^N";O)@@=[W0AH^MX )@@G@@CXKAH^H[KAK,/ K[XA/K@[X)Q[)AF$CXKAH^H9K@@[[[KAK\C@@AK\/,0@K&)[A@@@@[@AK0MY )@@G@@@@@@@@/K@[XZC[KAK1GXKAH^[[K^N"C@)^N";O)@@=[W0AH^C[KAK2GTKAH [[K^N"C@)^N"MZ )@@G@@;O)@@=[S0AH NY)AH^^U)AHA/K@[X)/K@[W4/\@[R1DTKAH /[K[X&/DK[X&/K@[YR/K@[X$NA )@@G@@/K@[V)C?)AH#:?)AK4/K@[X1Q[KAF$Q[@AD[/,0@R<@_ @@@@@^@@@@@@@[K/K@[YEDTKAH NB )@@G@@/[K[X8/DK[X8C@)AK6;O)@@=[W0AHA/K@[X.CTKAHA/ K[X;/K@[YRNU)AHA^Y)AHAC))AH#NC )@@G@@%))AK8/K@[Y#C@)AK9;O)@@=[S0AH^C8@[YA[^@[R3/K@[YSC8@^M-[^@[R3;G)@[C[S)AHAND )@@G@@C8@[YH[^@[R4/K@[ZCC8@^M-[^@[R4N[)AK'^!)AH#N[)AK'^()AH#N&)AK;^&)AH#;G)@[CNE )@@G@@[O)AH /\@[R2Q@0AF$Q@)AD[CPKAH H9K@@[[[KAK/CTKAH^H9K@@[[[KAK.C8@@@@G@@AK/NF )@@G@@S@@AK";CK@@-G8#@@@CWX@KN9?/@@@;^.KKIC8@@@@G@@AK.S@@AK_;CK@@-G8]@@@')H@KZNG )@@G@@CTKAH^H[KAL@/ K[Y6C8@[Y4[^@[R4/K@[ZCC8@^M-[^@[R4CPKAH CW0AHAH[K@@J/ K[Y/NH )@@G@@/K@[ZB/K@[ZBC[KAL[GPKAH [PKAH C[KAL[GTKAH^[[K^N"C@)^N";O)@@=[S0AH^/,0 K/K@[Z>Q@KAEOQ]KAD[/,0@R<@@@@[^#![@@INJ )@@G@@/,0@R<@_D@@@[@[@@[@@@@[KC[KAL#GHKAG$[ KAG$CHKAG$C/@@@^/,0@P:/,0@EI@[^0@@NK )@@G@@]^@^N"[ [@@@)@^^[@C8@@]^Q')AD"/,0@\,@@@[Z>C8@@[KQ')AC:/,0@\,@@@[Z(Q[0AD[NL )@@G@@/,0@R<@@@AL^@@B@@@@@@@[KC@)AL ;O)@@=[S0AH^N[)ALA^-)AH#/\@[R4R')AFLC8@@@@NM )@@G@@/,0@%4R')AC:C8@@@@/,0@%4R')AD"C8@@@@/,0@%4/,0@R<@_@ALB@Q@^O^/,0^FZ@@Q^O^NN )@@G@@R#@[R0A#@[GK/K@LR\/,0@R<@@@ALF@@@AG:@@@@[C/,0@R<@@@ALF@@@AG7@@@@[CC@)ALGNO )@@G@@;O)@@=[O0AG>C@)ALH;O)@@=[O0AG&Q[)AF$CPKAG&H9K@@[[[KALIC@@ALI/,0@K&)[A@@@NP )@@G@@@[@ALJ@@@@@C/K@[)Y/K@[)+C[KALKGPKAG&[PKAG&/K@[)NQ[KAF$CPKAG&H9K@@[[[KALLNQ )@@G@@C@@ALL/,0@K&)[ @@@@[@ALM@@@@@@/K@[)!/K@[+VQ[@AF$CPKAG&H9K@@[[[KALNCPKAG>NR )@@G@@H9K@@[[[KALOC8@@@@G@@ALNS@@ALP;CK@@-G8^@@@CWX@KN9?/@@@;^.KKIC8@@@=G@@ALONS )@@G@@S@@ALQ;CK@@-G8@AG>')H@KZC[KALRGPKAG&[PKAG&C[KALRGPKAG>[PKAG>Q@0AF$CPKAG&NT )@@G@@H9K@@[[[KALSC@@ALS/,0@K&)[#@@@@[@ALT@@@@@C/K@[-N/K@[)+Q@)AF$CPKAG&H9K@@[NU )@@G@@[[KALUC@@ALU/,0@K&)[]@@@@[@ALV@@@@@C/K@[-Y/K@[-$CPKAG&CO0ALWH[K@@J/ K[-Q]KAF$CPKAG&H9K@@[[[KALZNW )@@G@@C@@ALZ/,0@K&)[D@@@@[@AL)@@@@@@/K@[-5/K@[+VQ@KAF$CPKAG&H9K@@[[[KAL-CPKAG>NX )@@G@@H9K@@[[[KAL+C8@@@@G@@AL-S@@AL<;CK@@-G8[@@@CWX@KN9?/@@@;^.KKIC8@@[?G@@AL+NY )@@G@@S@@AL=;CK@@-G8@AG>')H@KZC[KAL>GPKAG&[PKAG&C[KAL>GPKAG>[PKAG>Q]@AF$CPKAG&NZ )@@G@@H9K@@[[[KAL&C@@AL&/,0@K&)[C@@@@[@AL$@@@@@C/K@[+V/K@[-%/\@[R5'^@^MX@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@PW[R,@L![!E0@J@@@@@[ KW@@2ACX@@[AD0@@KAD3@@FA;>@@IA/C@[SA.Y@A]A"'@@2B^.OC )@@G@@@@2BAK@@[ E4@^QBB<@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___OD )@@G@@@@@___@@@___@@@___@@@___/S@@@@A#0[S$CK:@@@)8)@@K/C0[R/[?0[R9G4V@@@H/K@@)OE )@@G@@;OK@@=W/K@@A*?F@@@G/K@@@G^V@@@/K@[S[[?0[S@C4:@@@C^V@@@*?F@@@G/K@@@G@) KWOF )@@G@@C0;@@@/^0[SAR#;@@[O'0@@[C.@@@0G@K KWP;0@@[8#0[SF/K@[SU')I-SJ/K@[SS8#0[SFOG )@@G@@/K@[SU%5H@@@%1H@@@%!H@@@%(H@@@%>H@@@%-H)@@/K@[SQQ_)@@@/K@[SFR#0[S$/KF@@[OH )@@G@@')I-S)R<_^]Z%80@@0/K@[SSR#0[S$/KF@@]R7.@@@R3.@@@R\.@@@R:.@@@R$.@@@R<.@@@OI )@@G@@R7.@@@@@@@@@/S@^N,@@@@@@@@@@@@/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-OJ )@@G@@/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-OK )@@G@@/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/KF@@@RZF@@@OL )@@G@@O#@@@FAB@[S(R#@[GKA#@[S%R#@BB[>A@@@C8@[T,[^@[S7/K@[:=OO )@@G@@C8@^M-[^@[S7N[)BB?^5)AD7C8@[T5[^@[S3/K@[&.C8@^M-[^@[S3/,0[R,@[@AD6/K@[T;OP )@@G@@/K@[U^Q[KB NC@>@@[;^K@@=N@)BB\<@KBB,:@)BB,/K@[U#/K@[:,/K@[U-/,0@K&@@@A;0OQ )@@G@@@@@@[C@E@BB0@@@@@@/K@[UF/K@[4>/,0@K&@@@A;0@@@@[C@J@BB2@@@@@@/K@[UM/K@[\ZOR )@@G@@/,0@K&@@@A;0@@@@[C]D@A;:@@@@@@/K@[U)/,0@K&@@@A;/@@@@[C C@A;?@@@@@@/K@[U)OS )@@G@@/K@[Y+/K@[U-/K@[WF/,0@K&@@@A;0@@@@[C@^@BB5@@@@@@/K@[U!C8@[U%[^@[S:/K@[WROT )@@G@@C8@^M-[^@[S:/K@[T;C4)AD;%4)BB6/K@[U5C8@[U3[^@[S2/K@[&MC8@^M-[^@[S2/,0@K&OU )@@G@@@@@A;0@@@@[C@^@BB7@@@@@@/K@[U//K@[V]/,0@K&@@@A;0@@@@[C@A@BB8@@@@@@/K@[VCOV )@@G@@C8@[V [^@[T@/K@[5PC8@^M-[^@[S,C4)AD/:4)BCC/K@[YR/K@[X:C8@[YU[^@[S//K@[2LPN )@@G@@C8@^M-[^@[S/C8@[YZ[^@[S2/K@[&MC8@^M-[^@[S2/K@[T;N6)BCD^6)AD6Q@0B NQ@)BA&PO )@@G@@/,0@R<@_#@@@@@]@@@@@@@[KC8@[Y![^@[S6/K@[:UC8@^M-[^@[S6C8@[Y2[^@[S3/K@[&.PP )@@G@@C8@^M-[^@[S3Q@KB NC@-@@[;^K@@=N@)BCF<@KBCE:@)BCE/K@[Y//K@[ZBQ]KB NQ]@BA&PQ )@@G@@/,0@R<@_D@@@@@C@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[ZA/K@[Y\/,0@K&@@@A;0@@@@[CPR )@@G@@@F@BCG@@@@@@/K@[ZI/K@[ZO/,0@K&@@@A;0@@@@[C@G@BCI@@@@@@/K@[ZRN6)BCK^6)AE@PS )@@G@@/K@[Y//,0@K&@@@A;/@@@@[C@G@BCL@@@@@@/K@[Z)N[)BCN^5)AE@/K@[Y/C4)AE@:4)BCOPT )@@G@@/K@[Z=/K@[Y//,0@K&@@@A;/@@@@[C@B@BCP@@@@@@/K@[Z:/K@[Y/Q[0BA&/,0@R<]_@B[BPU )@@G@@@@B@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[Z4Q[)BA&/,0@R<^_@B[O@@A@@@@@@@[KC8@@[KPV )@@G@@Q')BAK/,0@\,@@@[Z.Q[KBA&/,0@R<@_@B[+@@ @@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[)APW )@@G@@/K@[T;Q[@B NQ@0BA&/,0@R<@_^@@@@@#@@@@@@@[KC8@[)K[^@[S6/K@[:UC8@^M-[^@[S6PX )@@G@@N[)BCR^5)AD7/K@[T0C4)AD7%4)BCS/K@[)XC8@[)V[^@[S2/K@[&MC8@^M-[^@[S2N[)BCTPY )@@G@@^5)AD7N2)BCU^2)B]#CHKAD5H9K@@[[[KBCVC40BCWC8@@["G@@BCVS@@BCX;CK@@-G8@AD1PZ )@@G@@')H@KZC8@[),[^@[S0/K@[&AC8@^M-[^@[S0C8@[)3[^@[S3/K@[&.C8@^M-[^@[S3/,0@K&QA )@@G@@@@@A;0@@@@[C@^@BCY@@@@@@/K@[)//K@[):C8@[)_[^@[S,/K@[>PC8@^M-[^@[S,C4)AD/QB )@@G@@:4)BCZ/K@[- /K@[):C8@[-C[^@[S\/K@[>4C8@^M-[^@[S\/K@[-KC8@[-I[^@[S3/K@[&.QC )@@G@@C8@^M-[^@[S3C4)AD;%4)BC)/K@[-O/K@[T;Q@)B NC@+@@[;^K@@=N@)BC+<@KBC-:@)BC-QD )@@G@@/K@[-W/K@[:,/,0@K&@@@A;0@@@@[C@ @BC<@@@@@@/K@[-$C8@[->[^@[S;/K@[\^C8@^M-QE )@@G@@[^@[S;/,0@K&@@@A;0@@@@[C@]@BC=@@@@@@/K@[-0N[)BC>^1)B]#/K@[)PC@)BC&;O)@@=QF )@@G@@[O0AD1Q@KB NCPKAD1H9K@@[[[KBC$C@@BC$/,0@K&)[[@@@@[@BC*@@@@@@/K@[-"/K@[=%QG )@@G@@Q]KB NCPKAD1H9K@@[[[KBC(C@@BC(/,0@K&)[D@@@@[@BC%@@@@@C/K@[+D/K@[+/N6)BC:QH )@@G@@^6)AD;/,0@K&@@@A;0@@@@[C@ @BC?@@@@@@/K@[+M/K@[+S/,0@K&@@@A;0@@@@[C@^@BC!QI )@@G@@@@@@@@/K@[+YC8@[+V[^@[T[/K@[6]C8@^M-[^@[T[/K@[T;/,0@K&@@@A;0@@@@[C@A@BC,QJ )@@G@@@@@@@@/K@[+>/K@[+:/,0@K&@@@A;0@@@@[C@^@BC\@@@@@@/K@[+1C8@[+,[^@[T@/K@[5@C8@[=4QV )@@G@@[^@[S0/K@[&AC8@^M-[^@[S0N6)BC"^6)AD_C@)BC_;O)@@=[O0AD1C8@[="[^@[S3/K@[&.QW )@@G@@C8@^M-[^@[S3Q[0B NCPKAD1H9K@@[[[KBD@C@@BD@/,0@K&)[B@@@@[@BD[@@@@@@/K@[>GQX )@@G@@/K@[>H/K@[>H/K@[=%C4)AD_%4)BD]/K@[>NN[)BD#^5)AD_/K@[>O/K@[+//K@[=%N[)BD^QY )@@G@@^5)AD/C@)BD ;O)@@=[W0AD9CXKAD9H9K@@[T.K@@E[[KBDAC@@BDA/,0@K&)E@A/Q@@@A;0QZ )@@G@@@@@@[C@@@@@@/K@[>*N6)BDB^6)AD//K@[>3CXKAD9CW0AD'H[K@@J/[K[>3C[KBDCGXKAD9RA )@@G@@[[K^N"C@)^N";O)@@=[W0AD9/K@[>U/\@[S,CHKAD5C/@@@^/,0@P:NU)^N"NQ0^N"^Q)B]JRB )@@G@@^Y0B]KQ[)BA&/,0@R<]_@B]E@@A@@@@@@@[KC8@[&#[^@[S6/K@[:UC8@^M-[^@[S6/\@[S\RC )@@G@@Q[KB NQ[@BA&/,0@R<@_ @@@@@^@@@@@@@[KC8@[&J[^@[S6/K@[:UC8@^M-[^@[S6/\@[S0RD )@@G@@C[KBDDGHKAD5[ KAD5CHKAD5CG0BDEH[K@@J/[K[&)/HK[&)C8@[&X[^@[S5/K@[:FC8@^M-RE )@@G@@[^@[S5/K@[%ECHKAD5H9K@@[R@0@@LO^0AD0NI)AD3^A<@]/N[)BDF^5)AD;/\@[S1CHKAD5RF )@@G@@C/@@@^/,0@P:N,)^N"NI0^N"^,)B]]^A0B]]Q@)BA&/,0@R<@_@B[.@@]@@@@@@@[KN6)BDGRG )@@G@@^6)AD7C8@[&'[^@[S6/K@[:UC8@^M-[^@[S6/\@[S2C8@[$@[^@[S4/K@[(*C8@^M-[^@[S4RH )@@G@@/,0@R<@@@BDH@@@A;0@@@@[C/,0@R<@@@BDH@@@A;/@@@@[CC@)BDI;O)@@=[O0AD1C@)BDJRI )@@G@@;O)@@=[O0AD2Q@KB NCPKAD2H9K@@[[[KBDKC@@BDK/,0@K&)[[@@@@[@BDL@@@@@C/K@[$VRJ )@@G@@/K@[$=CPKAD2CO0BDMH[K@@J/ K[$)/K@[($C[KBDNGPKAD2[PKAD2/K@[$KQ]KB NCPKAD2RK )@@G@@H9K@@[[[KBDOC@@BDO/,0@K&)[D@@@@[@BDP@@@@@@/K@[$\/K@[($Q]@B NCPKAD2H9K@@[RL )@@G@@[[KBDQCPKAD1H9K@@[[[KBDRC8@@@@G@@BDQS@@BDS;CK@@-G8C@@@CWX@KN9?/@@@;^.KKIRM )@@G@@C8@^:'G@@BDRS@@BDT;CK@@-G8@AD1')H@KZCPKAD2CO0BDUH[K@@J/ K[*D/K@[($C[KBDVRN )@@G@@GPKAD2[PKAD2C[KBDVGPKAD1[PKAD1Q[0B NCPKAD2H9K@@[[[KBDWC@@BDW/,0@K&)[B@@@RO )@@G@@@[@BDX@@@@@C/K@[*U/K@[$=Q[)B NCPKAD2H9K@@[[[KBDYC@@BDY/,0@K&)[A@@@@[@BDZRP )@@G@@@@@@@C/K@[*>/K@[*,CPKAD2CO0BD)H[K@@J/ K[*%/K@[($C[KBD-GPKAD2[PKAD2/K@[*URQ )@@G@@C@)BD+;O)@@=[O0AD1Q[KB NCPKAD2H9K@@[[[KBDCPKAD1H9K@@[[[KBD&C8@@@@G@@BD>S@@BD$RS )@@G@@;CK@@-G8^@@@CWX@KN9?/@@@;^.KKIC8@^!]G@@BD&S@@BD*;CK@@-G8@AD1')H@KZCPKAD2RT )@@G@@CO0BD(H[K@@J/ K[(Q/K@[($C[KBD%GPKAD2[PKAD2C[KBD%GPKAD1[PKAD1Q@0B NCPKAD2RU )@@G@@H9K@@[[[KBD:C@@BD:/,0@K&)[#@@@@[@BD?@@@@@C/K@[($/K@[*1/\@[S3Q')B^./,0@\1RV )@@G@@[(:[(!/K@[%E/K@[(!C[KBD!GHKAD3[ KAD3Q@KB NC4-@@[%4)BD,/K@[(5/K@[(/C4-@@[RW )@@G@@%4)BD\/K@[(9/K@[(/C4-@@[%4)BD0/K@[%DQ]KBA&/,0@R<@_[@@@@@D@@@@@@@[KC8@[%^RX )@@G@@[^@[S6/K@[:UC8@^M-[^@[S6N[)BD1^5)AD7/K@[(*/\@[S4Q]@BA&/,0@R<@_@B#'@@C@@@RY )@@G@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[%NQ[0BA&/,0@R<@_@B^C@@B@@@@@@@[KC8@@[KQ')BAKRZ )@@G@@/,0@\,@@@[%WQ[)BA&/,0@R<@_@B#K@@A@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[%>Q[KBA&SA )@@G@@/,0@R<@_@B#Y@@ @@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[%,R')B^.C8@@@@/,0@%4R')BAKSB )@@G@@C8@@@@/,0@%4/,0[Q@@[@AE^/,0[QW@[@@@@Q[@AC3/,0@R<@@@@[^]@^@@]@@@@[#/,0@RPC8@^M-[^@[S,C4)AD/:4)BEY/K@[3$C8@[3=[^@[S0/K@[&AC8@^M-[^@[S0TW )@@G@@/K@[3BC8@[3%[^@[S"/K@[3!C8@^M-[^@[S"/\@[S.N[)BEZ^!)B^UN[)BEZ^-)B#0C8@[34TX )@@G@@[^@[S//K@[2LC8@^M-[^@[S/C4)AD;:4)BE)/K@[4E/,0@K&@@@A;0@@@@[C@^@BE-@@@@@CTY )@@G@@/K@[4E/,0@K&@@@A;0@@@@[C@]@BE+@@@@@C/K@[4EC8@[4C[^@[T^/K@[92C8@^M-[^@[T^TZ )@@G@@N,)BE<^,)B^UN,)BE<^+)B#0/\@[S"Q@KB NCPKAD2H9K@@[[[KBE=C@@BE=/,0@K&)[[@@@UA )@@G@@@[@BE>@@@@@@/K@[4WN6)BE&^6)AD;/K@[4=CPKAD2CO0BE$H[K@@J/[K[4=C[KBE*GPKAD2UB )@@G@@[PKAD2/K@[4J/\@[S_/,0@R<@@@BE(@@@A;0@@@@[CC@)BE%;O)@@=[O0AD1C[KBE:GPKAD2UC )@@G@@[PKAD2C8@[42[^@[S3/K@[$KC8@^M-[^@[S3/,0@K&@@@A;0@@@@[C@@@BE?@@@@[C@@@@@@UD )@@G@@/K@[5FQ]KB NQ]@BA&/,0@R<@_D@@@@@C@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[5 C8@[5CUE )@@G@@[^@[S3/K@[&.C8@^M-[^@[S3/K@[44Q[0B NQ[)BA&/,0@R<@_B@@@@@A@@@@@@@[KC8@@[KUF )@@G@@Q')BAK/,0@\,@@@[5PN])A;0^])AE#C[)A;0;L)@@AC-0A;0N@)BE8; K@@=<[KB[E[[)B[EUG )@@G@@[50B[F/,0[L*@]@AE#@@@AE^/K@[T0N[)BE9^!)B^UN[)BE9^-)B#0N[)BE9^>)B]YN[)BE9UH )@@G@@^!)B@"N[)BE9^()B^*C8@[50[^@[S!/K@[XEC8@^M-[^@[S!C8@[55[^@[S0/K@[&AC8@^M-UI )@@G@@[^@[S0N,)BE'^,)B^UN,)BE'^+)B#0N,)BE'^&)B]YN,)BE'^,)B@"N,)BE'^%)B^*/\@[T@UJ )@@G@@N[)BE;^!)B^UN[)BE;^-)B#0N[)BE;^1)B#VN[)BE;^>)B]YN[)BE;^!)B@"N[)BE;^()B^*UK )@@G@@N[)BE;^()B[HN[)BE;^-)B[WC*) E5%*)BE//K@[6R/K@[6*/K@[6*CPKAD1CO0BE.H[K@@JUL )@@G@@/ K[6YN[)BE"^5)AD8/K@[6*Q[KB NCPKAD1H9K@@[[[KBE_C@KBE_/,0@R<@@@BF@)[ @@@UM )@@G@@N6)BF[^6)AD8C8@[6:[^@[T#/K@[6"C8@^M-[^@[T#N,)BF]^,)B^UN,)BF]^+)B#0N,)BF]UN )@@G@@^2)B#VN,)BF]^&)B]YN,)BF]^,)B@"N,)BF]^%)B^*N,)BF]^%)B[HN,)BF]^+)B[W/\@[T[UO )@@G@@C8@[7[[^@[S//K@[2LC8@^M-[^@[S/C*) E5:*)BF#/K@[7JQ[@BA&/,0@R<@_@B]S@@^@@@UP )@@G@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[7JQ@0B NQ@)BA&/,0@R<@_#@@@@@]@@@@@@@[KC8@@[KUQ )@@G@@Q')BAK/,0@\,@@@[7TC8@[7W[^@[S3/K@[&.C8@^M-[^@[S3Q@KB NC@-@@[;^K@@=N@)BF UR )@@G@@<@KBF^:@)BF^/K@[7&/K@[8$C8@[7([^@[S,/K@[>PC8@^M-[^@[S,C4)AD/%4)BFA/K@[7\US )@@G@@/K@[8$C*) E5%*)BFB/K@[78C8@[75[^@[S_/K@[4JC8@^M-[^@[S_/K@[7.C8@[7;[^@[T]UT )@@G@@/K@[8CC8@^M-[^@[T]Q]KB NQ]@BA&/,0@R<@_D@@@@@C@@@@@@@[KC8@@[KQ')BAK/,0@\,UU )@@G@@@@@[8B/K@[7TQ[0B NCPKAD2H9K@@[[[KBFCC@@BFC/,0@K&)[B@@@@[@BFD@@@@@@/K@[8YUV )@@G@@N6)BFE^6)AD8N6)BFF^6)AD;CPKAD2H9K@@[[[KBFGC@KBFG/,0@R<@@@BFH)[B@@@/K@[8&UW )@@G@@CPKAD2CO0BFIH[K@@J/[K[8&C[KBFJGPKAD2[PKAD2/K@[8C/\@[T]C*) E5%*)BFK/K@[8:UX )@@G@@/K@[9QQ[)BA&/,0@R<@_@B^=@@A@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[84Q[KBA&/,0@RPC8@^M-[^@[S,C4)AD/:4)BFZ/K@['%/K@[9"Q[0BA&/,0@R<]_@B[B@@B@@@VI )@@G@@@@@@[KC8@@[KQ')BAK/,0@\,@@@['3Q[)BA&/,0@R<^_@B[O@@A@@@@@@@[KC8@@[KQ')BAKVJ )@@G@@/,0@\,@@@['//\@[T C8@[;@[^@[S0/K@[&AC8@^M-[^@[S0C8@[; [^@[S3/K@[&.C8@^M-VK )@@G@@[^@[S3/,0@K&@@@A;0@@@@[C@^@BF)@@@@@C/K@[;I/K@[;:N6)BF-^6)AE[Q[KB NN6)BF+VL )@@G@@^6>@@[Q[@B NQ@0BA&/,0@R<@_^@@@@@#@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@[;XC8@[;)VM )@@G@@[^@[S3/K@[&.C8@^M-[^@[S3Q@)B NC@+@@[;^K@@=N@)BF=<@KBF<:@)BF/K@[;3N[)BF&^5)AD7/K@[;8/K@[;8C8@[;6[^@[S2/K@[&MVO )@@G@@C8@^M-[^@[S2NI)AD5^E)AE]Q@KB NQ]KBA&/,0@R<@_[@@@@@D@@@@@@@[KC8@@[KQ')BAKVP )@@G@@/,0@\,@@@[/^C8@[/B[^@[S_/K@[4JC8@^M-[^@[S_C8@[/G[^@[S3/K@[&.C8@^M-[^@[S3VQ )@@G@@C4)AD;%4)BF$/K@[/M/K@[T;C8@[/P[^@[S,/K@[>PC8@^M-[^@[S,C4)AD/:4)BF*/K@[/VVR )@@G@@/K@[;'CLKAE]H9K@@[[[KBF(/,0@K&@@@A;0@@@@[C@#@BF%@@@@@@/K@[//C@KBF(/,0[R,VS )@@G@@)[@AEA/K@[//CLKAE]H9K@@[[[KBF?C40BF!C8@@["G@@BF?S@@BF,;CK@@-G8@AD1')H@KZVT )@@G@@C8@[/5[^@[TB/K@["CC8@^M-[^@[TBC8@[/'[^@[S\/K@[>4C8@^M-[^@[S\/,0@K&@@@A;0VU )@@G@@@@@@[C@^@BF\@@@@@C/K@[.#/K@[;'C8@[.A[^@[TB/K@["CC8@^M-[^@[TBCLKAE]H9K@@[VV )@@G@@[[KBF0C@KBF0/,0[R,)[@AEA/K@[.TCLKAE]H9K@@[[[KBF2C40BF3C8@@["G@@BF2S@@BF4VW )@@G@@;CK@@-G8@AD1')H@KZCLKAE]H9K@@[[[KBF5/,0@CTC8@@["G@@BF5S@@BF7;CK@@-G8@AD1VX )@@G@@CWX@KN9?/@@@;^.KKI[)0^N"/,0@C+N6)BF6^+)^O#R;)@@-A<)^N_/,0@C$R#@@[ R#K@[ VY )@@G@@9/@^N;/K@["]9/@^N./K@["]CLKAE]C/@@@^/,0@P:NU)^N"NQ0^N"^Q)B]J^Y0B]KQ]@BA&VZ )@@G@@/,0@R<]_@B]E@@C@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@["]C8@[" [^@[T^/K@[92C8@^M-WA )@@G@@[^@[T^/K@[//Q[0B NQ[)BA&/,0@R<@_B@@@@@A@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@["MWB )@@G@@C8@["P[^@[S3/K@[&.C8@^M-[^@[S3C8@["U[^@[S,/K@[>PC8@^M-[^@[S,C4)AD/:4)BF8WC )@@G@@/K@[")/K@["C/\@[TBC8@["=[^@[TB/K@["CC8@^M-[^@[TBQ[KB NQ[@BA&/,0@R<@_ @@@WD )@@G@@@@^@@@@@@@[KC8@@[KQ')BAK/,0@\,@@@["0C8@["3[^@[T^/K@[92C8@^M-[^@[T^/K@[-FWE )@@G@@'^@^MX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@PPRPPR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@[@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@ KX@@@@@@@@@@@@WH )@@G@@@@Q@@O@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD1@@@@@@@@@@@@@@@@@@0@@@@@WK )@@G@@ @@@@@ @@@@@@@@@@@@:@@@@ @@@@@ @@@@@PT2@@@PT3@@@ @@@@@ @@@@@ @@@@@@@@@@@WL )@@G@@FILE-CONTROLFILESECTIONSTOPGOTOPERFORMPROCEDUREDIVISIONIFEXIT@@@@@ WM )@@G@@ WN )@@G@@ @@@@ACCEPT ADD ALTER CALL CLOSE COPY RETURNWO )@@G@@ COMPUTE DISPLAY DIVIDE ELSE ENTER EXIT GO WP )@@G@@ IF INSPECT MOVE MULTIPLY OPEN PERFORM READ WQ )@@G@@RELEASE SEARCH SEEK SEGMENT SORT WRITE STOP USWR )@@G@@E THEN NEXT MONITOR READY RESET GOBACK SET WS )@@G@@ EXAMINE EXECUTE INCLUDE SUBTRACT END WHEN INVALIWT )@@G@@D @@ ALTER TO WU )@@G@@ XXCIPXXX@@@@ @@@@@@@ XXCIPXWV )@@G@@XX@@@@ 01 CBMBLOK. WW )@@G@@ XXCIPXXX 02 VALIDCK PIC XXX. WX )@@G@@ XXCIPXXX 02 FILLER PIC XXX. WY )@@G@@ XXCIPXXX 02 GZND-TOT PIC 9(10) COMP SYNWZ )@@G@@C RIGHT. XXCIPXXX 02 REM-REC. XA )@@G@@ XXCIPXXX 03 IFIND PIC 9XB )@@G@@ OCCURS 1000 TIMES. XXCIPXXX 03 CBMSXC )@@G@@TNO PIC 9(5) COMP SYNC RIGHT OCCURS 1000 TIMES. XXCIPXXX XD )@@G@@ 03 CBMCTR PIC 9(9) COMP SYNC RIGHT OCCURS 1000 TIMES. XXCIPXXX XE )@@G@@ 03 TRUCTR PIC 9(10) COMP SYNC RIGHT OCCURS 1000 TIMES. XXXF )@@G@@CIPXXX CALL 'CLOSECBM'. XG )@@G@@ XXCIPXXX MOVE '@@@@@@' TO PROG-NAME. XH )@@G@@ XXCIPXXX CALL 'READUSE' USING PROG-NAME CBMBLOK.XI )@@G@@ XXCIPXXX ENTER GZIALL SUBROUTINE. XJ )@@G@@ XXCIPXXX 01 PROG-NAME PIC X(6). XK )@@G@@ XXCIPXXX@@ ADD GZONE TO XL )@@G@@CBMCTR (0000). XXCIPXXX ADD GXM )@@G@@ZONE TO TRUCTR (0000) XXCIPXXX@@ XN )@@G@@ CALL 'WRITEREC' USING CBMBLOK. XXCIPXXO )@@G@@XX@@@@ 77 PT1 PIC 9(10) COMP SYNC RIGHT VALUE IS ZERO. XP )@@G@@ XXCIPXXX@@@@ 77 GZLST PIC 9(4) COMP SYNC RIGHT VALUE 0001. XQ )@@G@@ XXCIPXXX@@@@ 77 GZONE PIC H9(5) VALUE 1. XR )@@G@@ XXCIPXXX@@@@ ENTER GETIME SUBROUXS )@@G@@TINE REFERENCING PT1 PT2 PT3 GZND-TOT. XXCIPXXX@@@@ ADD PT3XT )@@G@@ TO TRUCTR (GZLST). XXCIPXXX@@@@ XU )@@G@@ MOVE 0000 TO GZLST. XXCIPXXV )@@G@@XX@@@@ GZSEC SECTION 00 . XW )@@G@@ XXCIPXXX@@@@ GZTIMEZ. XX )@@G@@ XXCIPXXX@@@@ PERFORM GZTIMEZ. XY )@@G@@ XXCIPXXX@@@@ MOVE ZERO TO PT1. XZ )@@G@@ XXCIPXXX@@@@*** *** MAXIMUM NYA )@@G@@UMBER OF COUNTERS EXCEEDED AT CARD NUMBER TSOURCE @@@@@@@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@ ?) K4YC )@@G@@@@@@@@@@@@@@@V:@@I@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[6@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TSOURCE1 @@@@@@YF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@[[@@@[@@@@@@@@@@@@@@@@@@@YG )@@G@@@@@@@@@@@ACG@@@@@@@@@@@@@@K@@I@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ E5YJ )@@G@@@@@@@@ BEGIN COBOL INSTRUMENTATION ROUTINE . 000000 YK )@@G@@_@@@@_PROGRAM-ID. WORKING-STORAGE. NOTE. X. STOP. GOBACKCALL. ENTER.YL )@@G@@X. ALTER.SEARCHREAD. RETURNL$PRR@.. @@@@[D@@@@@[*. _@@@@_YM )@@G@@NOTE. X. 100000 _@@@@_DECLARATIVE.DECLARATIVESX. DECLARATIVESYN )@@G@@ SECTION. .. L$PRR@100000E%%%%:THEN. YO )@@G@@X. X. _@@@@_ALTER.IF. @@@@@DL$PRR@''''''L$PRR@.. YP )@@G@@X. ENTER.CALL. GOBACKSTOP. @@@@@[@@@@[DENTER.CALL. GOBACKSTOP. ELSE. YQ )@@G@@IF. _@@@@_READ. RETURN@@@@@[@@@@[DX. @@@@@CL$PRR@''''''X. YR )@@G@@ @@@@@[L$PRR@X. @@@@@[@@@@@[@@@@J* X. @@@@@[YS )@@G@@@@@@@CL$PRR@ @@@@[C@@@@@[L$PRR@.. L$PRR@L$PRR@E%%%%:E%%%%:@@@@[CYT )@@G@@@@@@@[L$PRR@ L$PRR@ @@@@[C@@@@@[@@@@@[L$PRR@.. L$PRR@L$PRR@YU )@@G@@E%%%%:E%%%%:@@@@[C@@@@@[L$PRR@ @@@@@[*. /. C. END YV )@@G@@OF FILE . L$PRR@200000E%%%%:X. EXIT. ENTRY. YW )@@G@@_@@@@_CALL. ENTER.X. EXIT. PROGRAM. @@@@@[L$PRR@ @@@@@W@@@@@#YX )@@G@@@@@@@@@@@@@[L$PRR@X. E%%%%:@@@@@[L$PRR@.. E%%%%:77. _@@@@_YY )@@G@@PERFORM. @@@@[D _@@@@_ _@@@@_X. X. ELSE. IF. YZ )@@G@@ .. L$PRR@.. X. @@@@[D@@@@@[ @@@@@[@@@@@[ ZA )@@G@@ _@@@@@ .. ZB )@@G@@ T. @@@@[D L$PRR@ X. .. T. _@@@@_X. ZC )@@G@@ T. L$PRR@.. X. X. L$PRR@ @@@@[D@@@@@[ T. X. ZD )@@G@@ .. X. ELSE. IF. _@@@@_ .. _@@@@_NOTE. ZE )@@G@@X. NOTE. X. *. _@@@@_X. X. X. L$PRR@END. ZF )@@G@@000000L$PRR@500000E%%%%:WHEN. L$PRR@000000L$PRR@600000E%%%%:L$PRR@600000ZG )@@G@@E%%%%:X. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X KW@@2 L<@@2 M6@@ ODZH )@@G@@@@A OJ@@^ OR@[A P-@@^ACI@@6ACY@[:AD)0@H@@@@J\[R,@@@___@@@___@@@___@@@___ZI )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@]ZK )@@G@@@@@@@X@@@@^<@@@@!Y@@@BA\@@[B#Y@@FA+\@[\[VQXCX,)@#O(L@@[IW%@@GKY=@@U=1*@@ZL )@@G@@D\0K@@[X+)@@I$T@@@K[)@@@@@@@@[PPRPPR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@[@[@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@ K9@@@@@@@@@@@@ZN )@@G@@@@K@@I@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PPRPPR @@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@ LEZR )@@G@@@@@@@@@@@@@@@@S@@Q@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ OE@@@@@@@@@@@@ZU )@@G@@ @@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@^0@@@@@@@@@@@@%@@@@ @@@@@ZV )@@G@@ACCEPT ADD ALTER CALL CLOSE COPY RETURN COZW )@@G@@MPUTE DISPLAY DIVIDE ELSE ENTER EXIT GO IF ZX )@@G@@ INSPECT MOVE MULTIPLY OPEN PERFORM READ RELEASZY )@@G@@E SEARCH SEEK SEGMENT SORT WRITE STOP USE ZZ )@@G@@ THEN NEXT MONITOR READY RESET GOBACK SET AA )@@G@@EXAMINE EXECUTE INCLUDE SUBTRACT END WHEN @@@@@@@@@@@@AB )@@G@@ @@@@@ @@@@@@@@ @@@@@@@@ @@@@@@@@ @@@@@@@@ CARD NUMBEAC )@@G@@R * * * COBOL INSTRUMENTATION ROUTINE * * * AD )@@G@@ EXECUTION TRUE FALSE AE )@@G@@ AF )@@G@@COUNT PATH PATH @@@@@ @@@@@@@@** CPU TIME 0000.000 AG )@@G@@ ** % OF TOTAL @@@@ ** @@@@@@@@@@B_ @@@@@[X. Y. AH )@@G@@L$PRR@200000E%%%%:Y. L$PRR@100000500000600000E%%%%:E%%%%:E%%%%:X. AI )@@G@@L$PRR@E%%%%:@@@@@[@@@@@@X. XXCIPXXX. XXCIPXXX. @@@@@[*. C. AJ )@@G@@/. 000000 END OF FILE500000 @@@[IC@@@@@ @@@@[=@@@@@_@@@@@_ AK )@@G@@ @@@@@[@@@@@CX. PROGRAM-ID. X. @@@@@[@@@@@[ AL )@@G@@ X. L$PRR@ @@@@[C@@@@@[L$PRR@.. L$PRR@L$PRR@AM )@@G@@E%%%%:E%%%%:@@@@[C@@@@@[L$PRR@ @@@@@[@@@@@9@@@@@^ @@@@@[@@@@@CAN )@@G@@ALTER. @@@@@[ @@@@@[@@@@@^@@@@@[@@@@@[L$PRR@ @@@@@[AO )@@G@@@@@@@GX. @@@@@[L$PRR@X. @@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@98:@@] @@ K< @@ K=;)0@@[AQ )@@G@@;O)@@[R;@@K/"4@@@I9*K KW;-K@@[;P@@@[R;0@K/"40@@K9(@ KY"!@@@H"(@ K79?@@@KAR )@@G@@EO:@@@/@)[SA;))@@[0OF@@@/K@[S "*I^C /K@[SA"?I^C "00@@GP;0@K@/C0[SF;H@@[CAS )@@G@@ @@@@JP;0@@/CWF@@@>8@@@)/K@[TC9*0 K)[[K K+/@0[SP/C;@@]E@0@@J;PJ@@@R;0@K/AT )@@G@@"40@@K"(@ KW9?@ KYEO;@@@/@0[S-;)0@@[0OF@@@/K@[S)"*J^C /K@[S-"(J^C "=@@@KAU )@@G@@ES:@@[/@)[S%;))@@[0SF@@[/K@[S("*I^C /K@[S%"?I^C "1K@@GH9K@K@/HK[T^H9K@@/AV )@@G@@/[K[S2/DV@@]E@0@@L;P\@@@;>)@@[;[0@@[940@@MRRF@@[L8@@@F/CK[S/(@@@@J![G@C@AW )@@G@@/KF@@]/K@[T :@. K$/K@[T[!@. K$/KF@@]/K@[T ![H K\/KF@@]/K@[T ;H)@[C9?0 K)AX )@@G@@C[K K+9() K< @@ K) @@ K- @@ K+ @@ KW @@ KX @@ KY @@ KZ/@0[TW/C;@@]E@0@@JAY )@@G@@P;0@@[;PJ@@@CWF@@@>8@@@]/K@[TV/H@[TU9-@ K>/K@[TV9>@ K>;P@@@[;>@@@[;[K@@[AZ )@@G@@94)@@KRVF@@@L8@@@F/CK[T&(@@@@I!@/@C@/KF@@]/KF@@#:@! K$/K@[T:!@! K$/KF@@]BA )@@G@@/KF@@#!@. K\/KF@@]/KF@@#AA0[T0' K@CF/K@@@@;H@@[C/KF@@#/S@^N,@@@@@@@@@@@@BB )@@G@@/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/K@^M-/KF@@@BC )@@G@@RZF@@@O#@@@FAB@[T4R#@[GKA#@[T5R#@AD*A#@[GKR') LCC8@^M-[^@[T.Q@) L9/,0@K&@C]@@G@C@AE#@@@@@@/K@[Y-/K@[X"C[KAE CA )@@G@@GHK OJ[ K OJQ@K NGCHK OJC/@@@ /,0@P:/,0@EI@@^0@@[ @^N"[ @ACK)@^^[@CHK OJCB )@@G@@C/@@@ /,0@P:/,0@EI@@^0@@[ @^N"[ @ADM)@^^[@CHK OJC/@@@ /,0@P:/,0@EI@@^0@@CC )@@G@@[ @^N"[ [@@@)@^^[@Q]K L9C4(@@[%4)AEA/K@[Z]/K@[ZDC4(@@[%4)AEB/K@[ZA/K@[ZDCD )@@G@@C4(@@[%4)AEC/K@[ZXQ]@ NG/,0@EI@B^0@@][@AED]CC@@J)@^B[@/,0@R<@_D@@@[@C@@[CE )@@G@@@@@@[KC8@@]^Q') M6/,0@\,@@@[ZRC8@[ZU[^@[T//K@[=9C8@^M-[^@[T//K@[X"/\@[T7CF )@@G@@R') L0AD@@@@@C/K@[<9/K@[=]CPK OFCO0AE&H[K@@J/ K[<"/K@[=8DD )@@G@@C[KAE$GPK OF[PK OF/K@[<,Q]K L9CPK OFH9K@@[[[KAE*C@@AE*/,0@K&)[D@@@@[@AE(DE )@@G@@@@@@@@/K@[=H/K@[=8Q]@ L9CPK OFH9K@@[[[KAE%CPK OEH9K@@[[[KAE:C8@@@@G@@AE%DF )@@G@@S@@AE?;CK@@-G8C@@@CWX@KN9?/@@@;^.KKIC8@^7'G@@AE:S@@AE!;CK@@-G8@ OE')H@KZDG )@@G@@CPK OFCO0AE,H[K@@J/ K[=$/K@[=8C[KAE\GPK OF[PK OFC[KAE\GPK OE[PK OEQ[0 L9DH )@@G@@CPK OFH9K@@[[[KAE0C@@AE0/,0@K&)[B@@@@[@AE1@@@@@C/K@[=8/K@[=]/\@[T;C[KAE2DI )@@G@@GPK OO[PK OOCPK OOH[KAE3/ K[>BC8@[>][^@[T6/K@[UNC8@^M-[^@[T6C@)AE4;O)@@=DJ )@@G@@[O0 OO/\@[T//,0@R<@@@AE5@Y@ACDC@)AE6;O)@@=[O0 OEC@)AE7;O)@@=[O0 OFC8@[>ODK )@@G@@[^@[T;/K@[<,C8@^M-[^@[T;/,0@K&@Y@ACD@ @AE8@@@@@C/K@[>W/K@[>.Q[) L9N[)AE9DL )@@G@@C@)@[AC@0@[A[@&@@G[W6@@HC@)AE';O)@@=[O0 OE/,0@R<@@@AE;@Y@ACDC8@[>:[^@[T;DM )@@G@@/K@[<,C8@^M-[^@[T;C8@[>7[^@[T"C@)AE/;O)@@=[^0^N\CHK^N\H[KAE./ K[>6/K@[>;DN )@@G@@/K@[>"C[KAE"GHK^N\[ K^N\/K@[>2C8@^M-[^@[T"/\@[T.D[KAE_GPK OF[PK OFQ[K L9DO )@@G@@CPK OFH9K@@[[[KAF@C@KAF@/,0@R<@@@AF[)[ @@@/\@[T"C8@[&H[^@[T7/K@[X"C8@^M-DP )@@G@@[^@[T7/,0@R<@@@AF]@Y@ACDC@)AF#;O)@@=[O0 OEC@)AF^;O)@@=[O0 OFC8@[&V[^@[T;DQ )@@G@@/K@[<,C8@^M-[^@[T;C8@[&)[^@[U@/K@[&"C8@^M-[^@[U@C4) OU:4)AF /K@[&.Q[@ NGDR )@@G@@C[K OKC/@@@D/,0@P:/,0@EI@@^0@@^C@^N.]C^@@J)@^B[@Q@0 L9/,0@R<@_#@@@[@^@@[DS )@@G@@@@@@[KC8@@]^Q') M6/,0@\,@@@[&7C8@[&'[^@[T//K@[=9C8@^M-[^@[T//K@[&E/\@[T_DT )@@G@@N[)AFA^5) OUC@)AFB;O)@@=[W0 OSCXK OSH9K@@[T.K@@E[[KAFCC@@AFC/,0@K&)E@ OVDU )@@G@@@Y@ACD@@@@@@/K@[$KN6)AFD^6) OU/K@[$VCXK OSCW0 OTH[K@@J/[K[$VC[KAFEGXK OSDV )@@G@@[[K^N"C@)^N";O)@@=[W0 OS/K@[$#/\@[U@'^@^MX@@@@@@@]Q@C@@@C@EY@ S@E(@^.@KBDW )@@G@@@C(@P @PW@X,@LO@3E@^C[^*@@+^@@@]B^]M@^,^^2@@F^D-@],^D!@^U^G,@@/^LF@@ ^MXDX )@@G@@@[J^M=@@J^N5@@#^OU@@2 _@@[ BM@@I C.@@[ D=@@4 EI@@T F^@@( GN@@= HB@@ IJ@@@EI )@@G@@/K@@E#*^F@@[/KF@@[;DK@@[/DF@@]G[K^]U/KF@@]D@0@@J!80@@//K@@EF;PJ@@@;DK@@[EJ )@@G@@/D@@EC:[K^D /K@@EDG[K^]U/KF@@]C[K^DA/KF@@] @@@@K @@@@L/KF@@]AA0@J4R#)@E(EK )@@G@@-8)@ENA#0@E(AB0@EKR#0@E>A#0@EM/K@@EKN8K@@FM#")@@N8K@@^M#")@B?@0@@I/K@@J3EL )@@G@@/K@@E%/K@@EY@@[@@@(@@[GK/K@@E5(@@@E4/K@@E5*C@[GK'^@@J5*^@[GK'^@@J/ @@@E4EM )@@G@@/K@@E5@@@@__ @@@ENR[0^DBR]K^DBQ'V@@@R]0@@DCUV@@@[+K@I(CYF@@@CP;@@@[@K@K#EN )@@G@@R\;@@@+80@@ZG[@@@F[ @@J4CK;@@[R!:@@[/G0@HNC4F@@[+8@@@JQ]Q@ENOAV@@[C0:@@[EO )@@G@@/@)@HV/D0@FLO#)@@O!0:@@]C0:@@]P#)@@OQ[0@@H[^)@H/R#@@@DR])@@BC[@^DC>/0K@@EP )@@G@@/K@@FZQ"$)I+/S@@@@')E)@@:.K@@-C[@^DD%@@@@DQ.0@@@[[@@K[R#K@@B/H0@HX/I@@H\EQ )@@G@@/IK@H;C8)J_.[^)@K][W0@K]/A@@ICQ"$@I+C]@@@I')E)@@C@)^DECK;@@]R!:@@]/G0@IFER )@@G@@Q7F@@]+8@@@BG@K^DBQ#A@ENG^F@@]H8@@@[C5F@@]>.@@@K/K@@F.0@F@@#/K@@F.C!)@K[ES )@@G@@')H)I0C-)@I([@@@K^[@K@K C[F)@#'D@@GB/K@@J]')I@G!?80@@ ')E)@@')H)I0'H@@G]ET )@@G@@ @@@@J;^0@[^/K@@G]%9K@@0/KI)G[C[_@HKC[)@@N/K@@G^C90@@ ')J@H@/K@@G %@@@K^EU )@@G@@/K@@GQ:@K@K /K@@GJ; )@@=')H@I\; )@@=/K@@G %9K@@0/KI)G[; )@@=')H@I\; )@@=EV )@@G@@+[@@G*/ K@G^$;K@@A/K@@G>R;K@@[O;@@@[; )@@=')H@I\/K@@J["@@@@@')J@H#C 0@K[EW )@@G@@[D0@K[/K@@G ')J@H@')J@G0/K@@I;/K@@J[/K@@GE/K@@GE/K@@GU/KI)G[/KI)G[/K@@GJEX )@@G@@/K@@GM/KI)G[/K@@GM/K@@GJ/K@@GJ/K@@G(/K@@G(/K@@F_/K@@J[/K@@J[C[)@@LC[)@@LEY )@@G@@C[)@@LC[)@@LC9)@@.C9)@@$C9)@@ C9)@@0C9)@@,C-)@K[C!)@K[/K@@G(/K@@G(/K@@F_EZ )@@G@@C5)@K[C1)@K[@@@@@ @@@@@*C4V@@[+/K@@JG@@@@I;O@@@=W/@@@AG@A@ENQ]K@@G/K@@FDFA )@@G@@C@:)@]/K@@FGR#@@@D8#)@H*/K@@J[%5?@@@%1?@@@%!?@@@%(?@@@%>?@@@%-?)@@/K@@H$FB )@@G@@Q;K@@@C.)@@0')H)H)/K@@F+8#)@H(C/)@@]C.)@@ /K@@F?C@)@@OH]@@@B!]@^DF/K@@H6FC )@@G@@G"@@@AO"K@@[/K@@H1]]@@@B @@@@O/EK@F=G/$@@@/K@@H/C/$@@@G8)@@@;O)@@=W8)@@AFD )@@G@@[^)@K][W0@K]8#)@F$H/7@@@[W0@K]/A@@ICC]@@@JQ")@I,/K@@F%Q")@I:A!0@K]/K@@F%FE )@@G@@C@@@K#G4F@@]H8@@@);O@@@=W/@@@AG@A@ENG@K^DBG@@^DB/K@@F38 @@I(Q!0@K]CI@@K]FF )@@G@@Q"$@I+8 @@IZQ.'J1YP90K@@CY@@K]8 @@I?C'@J_"/K@@I(P'@@@[/KC@@@/,)@ISC5T@@@FG )@@G@@C1T@@@C!T@@@C(T@@@C>T@@@C-T)@@/,@@I-C.K@@@/,*@@@/,@@IO')B)I+/,*@@@/,@@IWFH )@@G@@[-?@@@[5?@@[[1?@@[[!?@@[[(?@@[[>?@@[[-?@@[/,@@I7O;@@@[Q;K@@@P'@@@[/KC@@@FI )@@G@@E[0@@NC.)@@ 8^0@I_/K@@J[')H)I08^0@I_/K@@EJ/))@I;C?:@@]C*;@@]/@)@JT')I@JZFJ )@@G@@!8)@@^/K@@JTC.0@@ ')H)I08#0@JH/K@@JO%9K@@0/K@@J>')E)@@; )@@=')H@I\; )@@=FK )@@G@@/K@@JE*OF@@]/K@@J>; )@@=')H@I\/K@@J[8#0@JV/K@@J>%9K@@0/K@@J>')E)@@')H)I0FL )@@G@@/K@@JTC-)@K[C!)@K[C.)@@$C.)@@ C.)@@*C=:@@]G@)@@JC);@@]G8)@@[/K@@J!C[)@@LFM )@@G@@')E)@@')H)I08#)@J%;^)@@=8#)@J1/K@@J[C.)@@./K@@J? @@@@F/K@@@@@@@@@@C80@@.FN )@@G@@[^0@HDC80@@,[^0@H [^0@J1/K@KJ5@@@@@@C)0[GK[^0@HA[^0@J+/K@KJ/@@@@@@@@@@[]FO )@@G@@@@@@@/@@@@@6@@@@@0@@@@@%@@@@@=@@@@@Y@@@@@S@@@@@M@@@@@G@@@@@A@@@@@@@[@@[]FP )@@G@@@]@@@/@@@@@6@#@@@0@^@@@%@ @@@=@@@@@Y@@@@@S@@@@@M@@@@@G@@@@@A[4/@@@[0/@@@FQ )@@G@@[?/@@@'^@@CF[*/@@@[=/@@@[)/@@@CW:@@@-W:@@[-W;@@]/ @@K?>8)@K@/C)@N!C8)@K0FR )@@G@@P'0@@[[^:@@@O'0@@[^>@@L;A]@^DTA]K^DUA])^DV[[)^DW[@K^DXC9:K@[CW:@@@;G)@@EFS )@@G@@;G0@@);D@@@Y/[@@MCR'VK@@O]K^DYR])@@MO])^DY/^)@MICWF@@[;G@@@E;GK@@);C)@@YFT )@@G@@/@)@MWR+F@@]/^@@M)C*F@@]/^@@M'H@)@@K[@)^DZ/C)@LKG@)@@K'^@@NO/K@@LEH@0@@HFU )@@G@@/G0@L5N@!^DGCPZ@KH[ K@L=G@K@@KS@K^DP;C)@@-(@@@L8C[()@@ @@@L8C[T@@@')@@L=FV )@@G@@<[U@@@8#K@L>C[K@@MN@,^DL/K@@L?C[T)@@C[(@@@; K@@@:[%)@@8#K@L+/CK@M^N@,^DLFW )@@G@@C[()@@C[T@@@')@@L=<[U@@@H[%@@@/ )@MAC@@^DZ8#@@L9C@@@@C=8@@@E/K@@NK@L;;DK@@A')H)O38#@@L"/G@@L1FY )@@G@@')H@O(')C@PJ/K@@N+P')@@[H[%@@@')C@PJ/K@@N+C9:K@]R'VK@@CHF@@[O'0@@[/D@@K.FZ )@@G@@/\@@N*>8)@@]/K@@MPG@@@@J;O@@@=W8@@@AO]K@@GC@0@@H/))@L[O#0^DY/V@@@@')J)O-GA )@@G@@%9K@@-C9K@@+/K@@L[CG:@@]O'0@@[/C)@LA/\@@N*>8@@@]/K@@M*G@K^DX[@@^DX @@@@GGB )@@G@@W8@@@AO])@@GC@@^DX/)@@M6O#K^DY?@0^DYC9K@@+')H)O%/-K@M3[@K^DXC@@@@C-8@@@[GC )@@G@@[@K@@CC@K^DX/[)@LC')C@PV/\@@N*?@0^DY/K@@LCL9K@@+/K@@M!!@0^DY!@K^DY/K@@M"GD )@@G@@/>SKPZC9K@@0[>K@L;L[@@@IKLV@@]/[)@NL/H)@N '^@@NOE[)@@MH@)@@M?@K^DYG@K^DYGE )@@G@@C9K@@08^)@NF')H)O38^)@NF/H)@NL')H@O(')C@PJ/K@@N+R;X@@@R;_@@@/K@@LE@@@@@@GF )@@G@@C[K@@HC@@@@C-8@@@[[@K@@CC@K@@JC@0@@LC@@@@IC@)@@KC[@@@GC@@@@DR]K@@ER])@@GGG )@@G@@/K@KNOO'0@@[R]@^DTR]K^DUR])^DVC[)^DW/KF@@#AA0@N?'^)@CFR]0@N?/K@@N+@@@@@@GH )@@G@@R;)@N1P'0@@[[^:@@@O'0@@[^>@@L;R#@^DYR#K@@GQ;FK@@RZ:@@@ @@@@J;^)@@%!80@@AGI )@@G@@/K@@K?;C)@@Y/@)@OQQ;VK@[*CF@@]/K@@K?N@\^DGG@)@@JC[G)@@<[H@@@S@)^DP;C0@@-GJ )@@G@@/V@@@@N@\^DLC);@@]8#)@OGC[@@@L/K@@OKC[W)@@:[X)@@8#)@OF/C)@OXC[G)@@<[H@@@GK )@@G@@%[X)@@/K@@OX=80@@E/KF@@#/KF@@^CG:@@[%@:@@#/K@@K?Q;VK@]O'0@@]/C)@N./\@@N*GL )@@G@@P;K@@[H[X@@@')J@PF/KF@@^C5T@@@C1T@@@C!T@@@C(T@@@C>T@@@/\@@O$C-T)@@H80@@AGM )@@G@@/KG@@@L5U@@@L1U@@@L!U@@@L(U@@@L>U@@@/\@@O0L-U)@@H8K@@A/KG@@@:5U@@@:1U@@@GN )@@G@@:!U@@@:(U@@@:>U@@@'^@@O9@@@@O9P;K@@A:-U)@@/K@KO9P')@@[L-U)@@')C@PJ/K@@N+GO )@@G@@Q;K@@[Q;K@@]Q;K@@#Q;K@@^Q;K@@ /\)@PC/V%)@@Q;K@@@/KI@@@/KF@@#/KF@@#//F@@#GP )@@G@@/8F@@#/K@@N@@@P/K@@QARBK@Q[P;K@@[ABK@Q[/K@@Q]R;K@@PABK@Q[GV )@@G@@; @@[B;DK@@[R#)^EI[@)^N.!/@@@F/K@@Q=[@)^N;[@)^N/; @@@=[@@^EJ/^@@Q%AA0@Q8)@@K=8)@@)/K@@R:*0F@@@HC )@@G@@/@0@S8C8)@R\P'0@@[[^:@@@O'0@@[/S@@@@C4:@@@=8)@@KH8)@@K=8)@@)/K@@S+C@@^FXHD )@@G@@Q;FK@@C4;@@[=80@@KH80@@K=80@@)/K@@S:C@K^FXQ;VK@[(0F@@@H@@^FXH@)@@J/G)@SXHE )@@G@@N@\^EPCPI@KH[ @@SPC0:@@[/@)@S4G@)@@JS@)^EX;C0@@-(@@@S-C[W)@@ @@@S-C[G@@@HF )@@G@@; @KSP<[H@@@8#)@SM/K@@SS[[X)@@C[G)@@C[W@@@; @@@@8#)@SM/@;@@]N@\^EUC[@@@LHG )@@G@@<[H@@@[[X)@@/KF@@]G8)@@A!@@^FXA#@@S-/K@@S]@@@@@@H8)@@)G@)@@G;O)@@=W8)@@AHH )@@G@@C@@^FXQ;FK@@G@@@@IC@)@@J/K@@R7H80@@)G@0@@H;O0@@=W80@@AC@K^FXQ;VK@[G@K@@JHI )@@G@@C@0@@K/K@@R"CG:@@]O'0@@[/C)@SB/\@^EKC8@@S/P'0@@[[^F@@@O'0@@[C@@^FXC4:@@@HJ )@@G@@C@K@@GQ;FK@@Q;VK@[C0;@@[/@)@TON@,^EPC[G)@@<[H@@@[[X)@@H8)@@A/@0@TPG@0@@IHK )@@G@@/S@@@@N^Z^EVCC_^EVM#W)@@/@;@@]N@\^EUC[G)@@<[H@@@[[X)@@/KF@@]/^0@TFGG:@@]HL )@@G@@S@)^EX;C0@@-N@K@@IO'0@@[/C)@TH/\@^EKC5J@@@C1J@@@C!J@@@C(J@@@C>J@@@C-J)@@HM )@@G@@[5H@@@[1H@@@[!H@@@[(H@@@[>H@@@/K@@T*[-H)@@Q;)@@@/KE@@@/,0@V)@@@^G,/,0@V)HN )@@G@@@@@^G4RA'@@SA]'@@A/,0@V)F@@^G9/,0@V)@@@^H@/,0@V)@@@^HB/,0@V)@@@^HH/,0@V)HO )@@G@@@@@^HQRA'@@SA]'@@A/,0@V)F@@^HX/,0@V)@@@^H=/,0@V)@@@^H*/,0@V)@@@^H!/,0@V)HP )@@G@@@@@^H2/,0@V)@@@^H9/,0@V)@@@^I#A#'@@A/,0@V)J@@^IDA]'@@A/,0@V)F@@^II/,0@V)HQ )@@G@@@@@^IO/,0@V)@@@^IV/,0@V)@@@^I-/,0@V)@@@^I*'^@@VPAR@^I3/,0@V)@@@^I,/,0@V)HR )@@G@@@@@^I4/,0@V)@@@^I'/,0@V)@@@^J@'^@@VPAR@^JF/,0@V)@@@^JA/,0@V)@@@^JG'^@@VPHS )@@G@@AR@^JS/,0@V)@@@^JM'^@@VPAR@^JY/,0@V)@@@^JT/,0@V)@@@^JZ/,0@V)@@@^J$'^@@VPHT )@@G@@AR@^J3/,0@V)@@@^J!'^@@VPAR@^J9/,0@V)@@@^J4'^@@VPAR@^K[/,0@V)@@@^J'/,0@V)HU )@@G@@@@@^K]/,0@V)@@@^KD/,0@V)@@@^KK/,0@V)@@@^KU/,0@V)@@@^K/@K@V"'^H@@@HZ )@@G@@R])^LCR]'@@BN80@@[ @@^LI(4F@@@'=@@@)R]'@@A/KF@@@AE'@@SC@@@@E'=@@[G(@E@@]IA )@@G@@/K@@W-(4E@@A/K@@W-^0'@@HC4E@@AA:E@@I?8@@@K/K@@WY?8@@@)?8@@@S/,0@T:[?E@@DIB )@@G@@*?E@@I/K@@VDC^E@@CT8@@[@*?E@@AT8@@[@[@E@@C/K@@WZ[0E@@DRE'@@S/KF@@@(4E@@EIC )@@G@@/,0@T! 0E@@HRA'@@S/KF@@@:8K@@N/K@@W1%8K@@L/K@@W?C8)@@-/K@@W!C8)@@)[0%@@#ID )@@G@@'=@@@#C4E@@#/^@@VL/KF@@@N8K@@] @@@@I;G@@@=W8@@@E;GK@@A8KK@W4/KF@@@A#@^LCIE )@@G@@^@)^LDA])^LE')G@@@*@@@@I'^I@@@R;)@XAAB)@X"R#@^LCR])^LE @@^N0')G@@[/^,@@@IF )@@G@@R#@^LCR])^LE')G@@[:C%@@<(@@^N0/K@@XN9?E@@@9*@@+_R;@@+/'=@@@CR#@@/K@@=WA])^LCJR )@@G@@R;)@=MAB)@X"RF%@@>/KI@@@R])^LCN80@@[9?K^N1*0E@@ER;K@@[!@)@@H/K@@=V/,0@UIJS )@@G@@9?K^LR9*U@[I/K@@==^^'@@)C@@@@E&;@@@@%8K@@N'=@@[Y*?E@@I/K@@/WC@)^LT @E@@ JT )@@G@@/,0@Z-C80@@]*=E@@IC80@@^[@'@@ RB%@@NAF%@@RRBU@@K*?E@@E/K@@=6O;K@@[ABU@@RJU )@@G@@O;K@@[(4E@@IABU@@Q/K@@&E(4E@@IABU@@Q/K@@&E*0E@@F/K@@="()E@@E/K@@>K/K@@&]JV )@@G@@9?@^LU9*E@@]9?@^LW9*E@@^R#@^N5R#K^LY9*E@@AC8E@@]G@@^LZ()E@@E/K@@>:(4E@@FJW )@@G@@/K@@>I'K@^L)'=@@[5/K@@>J'=@@[4/K@@&]C@E@@Z/^@@>S*CE@@Y/K@@>S&;0@@AQ;0@@#JX )@@G@@R;)@AA/K@@>=;C@@@M/,0@W2R#0@@IC^E@@Z/,0@W2;C)@@MQ#0@@IRFE@@YOBE@@ZOFE@@ZJY )@@G@@/,0@W2;C)@@M9?@^L-;^@@@A9)@@@I;=@@@A9*E@@]C8E@@]G@@^L<(4E@@F/K@@>0'K@^L)JZ )@@G@@'=@@[!/K@@>1'=@@[ZR3E@@F/)@@&[R;@@@]A3E@@F/K@@>KR#@^L>(4E@@F/K@@>_A#E@@#KA )@@G@@9?U@@@9*U@@^C8E@@#'=@@[=/KF@@@'=@@@I/KF@@@/,0@>6RBU@@KABU@@R(4E@@IABU@@QKB )@@G@@R;K@@Q(=E@@ER;K@@IAFU@@R^*'@@G*0E@@F^0'@@FRA'@@S/KF@@@N80@@[R;K[@@/K@@&OKC )@@G@@N80@@[R;K@@[AA'@@SA7E@@G*^E@@D/,0@T\*?E@@H/K@@UD[^U@@D/\0@YX*4E@@I/K@@&)KD )@@G@@RBU@@KABU@@Q**E@@E/K@@**R7U@@G0@E@@#'=@@@A'=@@@3=8@@^@^)'@@J/,0@WA @E@@]KE )@@G@@ @E@@# @E@@^ @E@@ (0E@@D/K@@$(^^'@@)*)E@@D/,0@T3*?E@@E/,0@T5/@K@$@:8K@@KKF )@@G@@/K@@$U*?E@@I/K@@.CC@)^L&/,0@-FC^%@@O[C%@@RRA'@@S^*'@@G/KF@@@C@@@@E&;@@@@KG )@@G@@'=@@[Y(^E@@U/K@@&7*?E@@I/K@@V C8K@@[:^U@@U/K@@&7C@@@@EC8)@@*[0%@@#'=@@@#KH )@@G@@*4E@@#/,0@UB'=@@@#'=@@@#(4E@@#/K@@$L'=@@@#*4E@@#/,0@UB'=@@@#G8K@@[/K@@$CKI )@@G@@^?'@@G*?E@@I/K@@VBC4'@@A:80@@B/,0@T7C@@@@EC8K@@([0U@@#'=@@@#(4E@@#/K@@ULKJ )@@G@@R#)^L$/,0@-F/K@@&.:8K@@K/,0@T9(CE@@>/K@@$/A])^LCR;)@$2AB)@X"RF%@@>/KI@@@KK )@@G@@R])^LCN80@@[9?K^N1*0E@@ER;K@@[!@)@@H/K@@$;/,0@UI9?K^LR9*U@[I^@'@@ C@)^L*KL )@@G@@/,0@-F @E@@ ()E@@D/K@@&7C@)^L(/,0@-FC8K@@C[0U@@#C8K@@W[CU@@^R;E@@2[^E@@^KM )@@G@@C@@@@E'=@@@#*?E@@E/K@@*/K@@X_C@E@@K'=@@[S/K@@X_^^%@@K%80@@[/K@@X_KY )@@G@@R;0@@@R;)^L=AB%@@KR;@@@[/K@@(?NCU@@QRB%@@Q&;)@@[RBU@@R&;K@@[M#Y)@@/KF@@@KZ )@@G@@R;0@@ RFE@@QL8@@@[OBU@@KR:%@@J/@:@@@P;)@@[/KI@%,A3.@@@A\.@@@A:.@@@A$.@@@LA )@@G@@A<.@@@/KF@@@AA'@@SN80@@[(4E@@E/K@@%'(0E@@H/K@@:;(^E@@D/,0@T;:8@@@L^?'@@HLB )@@G@@*^E@@E/K@@,F[4E@@G0@E@@#'=@@@A*?E@@I/K@@.8C@@@@E(*E@@D/K@@?((0E@@D/K@@:QLC )@@G@@*)E@@G/K@@:OC8K@@**?E@@GC8K@@([0U@@#'=@@@#C4U@@#%8K@@[/K@@:!*?E@@G/K@@?ZLD )@@G@@^@'@@ C@)^L$/,0@-F(?E@@G()E@@G/K@@:(R;'@@2C[E@[M:[J@@#/K@@?C9?E@@@9*@@/K@@?-(?E@@D/K@@?_(CE@@KLL )@@G@@/K@@?_(0E@@J/K@@?_RFE@@^O;@@@V;G@@@=W8@@@WO#E@@ A#E@@ (^E@@P/K@@!SR#U@@LLM )@@G@@O;K@@[A#U@@LRBU@@KRB%@@PAF!@@@RB%@@RH@)@@HAB!@@@*?E@@D/K@@!K/,0@9V/K@@U!LN )@@G@@/K@@!O/K@@!S/,0@82/K@@U(/K@@U(/K@@!YN^%@@SC8@@@@/,0@,Z^^%@@S(0E@@D/K@@!YLO )@@G@@C8K@@D[0U@@#C@@@@E'=@@@#R#U@@ A#U@@8^@'@@ C@)^L!*)E@@DR#)^L,/,0@Z-(0E@@DLP )@@G@@/K@@!;R;K@@D[0U@@#'=@@@#R7U@@#%8K@@]/K@@!5R;K@@(A3U@@#'=@@@#'=@@@#'=@@@#LQ )@@G@@R;@@@@/,0@,Z/K@@!SR;K@@([0U@@#'=@@@#C4U@@G/,0@W&/K@@:!*?E@@E/K@@:!C@K^L\LR )@@G@@RB%@@KA#Y@@@R#U@@8[@U@@ RFU@@NAFU@@^R#U@@K[^U@@^C8K@@C[0U@@#C@@@@E'=@@@#LS )@@G@@/K@@:!(4E@@F(=E@@E/K@@,P9?@^L09*E@@]R;E@@]&;@@@]'=@@[Z/,0@>6/K@@:!(4E@@FLT )@@G@@/K@@:!9?@^L29*E@@^9?E@@@9*E@@AC8E@@^G@@^L4'=@@@J/K@@:!AA'@@SN80@@[O;@@@[LU )@@G@@A3E@@G(^E@@D/,0@T;(0E@@D/,0@U C@@@@E0@E@@#'=@@@A*?E@@I/K@@_,*=E@@D/K@@\NLV )@@G@@*)E@@G/K@@,5C8K@@*[0U@@#'=@@@#(4E@@#/K@@\AC@)^L5/,0@-F()E@@G/K@@\AR;'@@2LW )@@G@@C[E@[M:[J@@#/K@@\A9?E@@@9*@@/K@@0D9?U@[IP;K@@[,@K@@G/K@@0.RBU@@O*=E@@DRBU@@NO;K@@V;GK@@=MD )@@G@@W8K@@WH8@@@[R#)@@HH8)@@[T@K@@GG8K@@]*=E@@IG8K@@]K@K@@I!@%@@C/K@@0,*4E@@IME )@@G@@/,0@0$RBE@@O*=E@@DRBE@@N/,0@;+/K@@UTR#E@@MO;@@@[A#E@@MR#E@@LO;@@@[A#E@@LMF )@@G@@/K@@X_RBE@@K&;@@@[RB%@@Q&;)@@[N^U@@NM#I)@@/KF@@@RFE@@UR#GK@@C[@@@G/\K@Y,MG )@@G@@[[0@1H9?E@@@9*@@1]R#@@0_'=@@@J*@@@@G'=@@@)R#@@1@'=@@@J*@@@@G'=@@@)RE'@@SMH )@@G@@/KF@@@@@C@1[@@ @1D@LOG MASS-STORAGE SPACE EXHAUSTED @LOG MI )@@G@@USER ACTUAL KEY /KF@@@N80@@[R#F@@@A#E@@S(?E@@E/K@@UZ**E@@D/K@@1SMJ )@@G@@()E@@D/K@@U-(?E@@D/K@@UXRFE@@UR#GK@@?8@@@[/K@@0.(CE@@>/K@@1=9?U@[IP;K@@[MK )@@G@@,@K@@G/K@@0.RBU@@OO;K@@V;GK@@=W8K@@WH8@@@[R#)@@HH8)@@[T@K@@GG8K@@]*=E@@IML )@@G@@G8K@@]K@K@@I!@%@@C/K@@0,RBE@@O/,0@;!/K@@UMO )@@G@@/K@@2S9?E@[I?@K@@G/K@@35O;@@@[A#E@[I(=E@@D/K@@38*=E@@E/K@@(W*)E@@E/K@@%DMP )@@G@@(=E@@G/K@@3R*4E@@I/,0@3VRBE@@RRFU@@QABW@@@AFW@@@O#@@@HO;@@@[ABE@@RR#U@@MMQ )@@G@@O;K@@[A#U@@MRBU@@PO;K@@[ABU@@P*^E@@-/K@@28RBE@@KOFE@@NPBE@@NP;@@@[?^E@@RMR )@@G@@/K@@3[/K@@2':^U@@-/K@@3[ABU@@P*4E@@I/K@@X_RBU@@RO;K@@[ABU@@Q/K@@X_RBE@@KMS )@@G@@AFW@@@RBU@@RH@K@@GABW@@@(0E@@D/K@@3G/,0@9#/K@@U!/K@@3/,0@9%/K@@U(/K@@4YMZ )@@G@@ )E@@HRBE@@KRFW@@@AFU@@PO;@@@[ABE@@R @@@@H/K@@2'^*'@@H 4E@@#RBE@@KO;@@@[NA )@@G@@ABE@@R @@@@H/K@@2'AE'@@)0@E@@#'=@@@A9?U@@#9*U@@YR#U@@XR#%@@ A#U@@ A#%@@XNB )@@G@@/,0@82/K@@U(/K@@U(9?U@@Y9*U@@#R#U@@XA#U@@ RE'@@)/KF@@@AE'@@) *E@@G^='@@GNC )@@G@@R#E@@KR#W@@@:@K^L\/KF@@[;CK@@MAFU@@P ^E@@P(CE@@K/KF@@@;@@@@MA#E@@K/,0@9%ND )@@G@@/K@@U5/K@@7PRE'@@)/KF@@@/,0@47/K@@3"/K@@4YN80@@[R#V@@@A#U@@S*)E@@G/K@@V#NE )@@G@@(*E@@D/K@@7W**E@@E/K@@*8*?E@@I/K@[]P*0E@@D/K@@5-(CE@@>/K@@5-9?E@[I?@K@@GNF )@@G@@/K@@7PO;@@@[A#E@[I(=E@@G/K@@6SRBU@@P:CU@@P/K@@59*?E@@G/K@@6FRBE@@RRBU@@NNG )@@G@@!CW@@@RFW@@@AFU@@Q*4E@@I/K@@6QO;@@@[ABE@@QRBE@@PO;@@@[ABE@@PRBE@@ROBG@@@NH )@@G@@O;@@@[ABE@@R/K@@X_(0E@@D/K@@6B*?E@@G/K@@7S/,0@'=/K@@U9/K@@6'RBE@@KRFW@@@NI )@@G@@AFU@@P ^E@@PO;@@@[ABE@@R/K@@5&/,0@9%/K@@U5/K@@7P/K@@6@RFE@@-RF/@@@P;0@@[NJ )@@G@@AF/@@@O;@@@[8#0@6NABE@@R/K@@5*OBG@@@O;@@@[/K@@6K/,0@62/K@@51 *E@@G^='@@GNK )@@G@@R;@@@]*=E@@IR;@@@^A#E@@ (4E@@E/K@@6+(0E@@H/K@@7P(CE@@K/K@@59*?E@@G/K@@59NL )@@G@@RFE@@OR;K@@]*=E@@IR;K@@^/,0@;!/K@@6!/K@@6!'^@@Y6R#E@@K;@@@@MA#E@@K/K@@59NM )@@G@@RBU@@RO;K@@[&;K@@[RB%@@Q&;)@@[NCU@@QM#!)@@/KF@@@/,0@;E/K@@U9/K@@U9RBE@@KNN )@@G@@RF?@@@R;@@@(A3E@@#R#@@@E'=@@@#R7E@@#/^@@U9:8)EOF/K@@7P%8)EOR/K@@V[R#E@@SNO )@@G@@A#E@@X^)'@@G @@@@G/,0@,ZR#E@@XA#E@@S *E@@G^='@@G(CE@@K/K@@59/K@@6+^)'@@GNP )@@G@@RE'@@S/KF@@@/,0@;;/K@@U./K@@7P/K@@6[()E@@D/K@@U3**E@@H/K@@8L(=E@@G/K@@8YNQ )@@G@@*=E@@H/K@@77(CE@@>/K@@7:9?E@[I?@K@@G/K@@7PO;@@@[A#E@[IRBE@@ROBG@@@O;@@@[NR )@@G@@ABE@@RO;@@@[(4E@@IABE@@QRBU@@PO;K@@[ABU@@P:CU@@P/K@@8@RBE@@RRBU@@N!CW@@@NS )@@G@@RFW@@@AFU@@Q*4E@@I/,0@62 =E@@H/K@@X_()E@@H/K@@8#/,0@4>/,0@9%/K@@U5/K@@8LNT )@@G@@RBE@@KRFW@@@AFU@@P ^E@@P )E@@HO;@@@[ABE@@RO;@@@[(4E@@IABE@@Q/K@@77^)'@@GNU )@@G@@^*'@@H 4E@@# ^E@@PRBE@@KO;@@@[ABE@@R*4E@@I/K@@8WO;@@@[ABE@@QRE'@@S/KF@@@NV )@@G@@/,0@47/K@@77/K@@8L(CE@@K/K@@820@E@@#'=@@@AR7E@@#/^F@@@(0E@@J/K@@80RFE@@^NW )@@G@@O;@@@V;G@@@=W8@@@WO#E@@ A#E@@ /K@@9G^0'@@J/K@@9GRBE@@KRBW@@@AFU@@^ABE@@^NX )@@G@@R;@@@CA3E@@#R#@@@E'=@@@#R7E@@#/^F@@@RFE@@^O;@@@V;G@@@=W8@@@WO#E@@ A#E@@ NY )@@G@@/KF@@](CE@@K/K@@9V0@E@@#'=@@@AR7E@@#/@@@9G:8@@@]/KF@@[/KF@@@R#E@@KRBW@@@NZ )@@G@@(0E@@D/K@@9M/)K@9MO;K@@[AFU@@^ABE@@^;@@@@MA#E@@KR;@@@CA3E@@#R#@@@E'=@@@[OA )@@G@@/KF@@]RBE@@KRBW@@@/)K@9ZO;K@@[AFU@@^ABE@@^R;@@@CA3E@@#R#@@@E'=@@@#R7E@@#OB )@@G@@/@F@@]:8@@@]/KF@@[/KF@@@(CE@@K/K@@' 0@E@@#'=@@@ARFE@@KR#G@@@:@@^L\/KF@@[OC )@@G@@R#E@@ A#E@@XR7E@@#/@@@9.%8@@@ /KF@@@RFU@@KRB%@@#/@:@@@?^!@@@/KF@@@RFE@@KOD )@@G@@RBG@@@O;@@@V;G@@@=W8@@@WO#E@@ A#E@@ /K@@'_RBE@@KABE@@^RFE@@OAFE@@^R;@@@KOE )@@G@@A3E@@#R#@@@E'=@@@#RBE@@KR#G@@@:@@^L\/KF@@[R#E@@ A#E@@XR7E@@#/@@@'W%8@@@ OF )@@G@@/KF@@@RBU@@KRB%@@#/@:@@@?^!@@@/KF@@@RBE@@KRBG@@@O;@@@V;G@@@=W8@@@WO#E@@ OG )@@G@@A#E@@ /KF@@](CE@@K/K@@;E0@E@@#'=@@@AR7E@@#/@@@'1:8@@@[/KF@@[%8@@@^/KF@@@OH )@@G@@RFU@@KRB%@@#/@:@@@RFE@@KABE@@^'^@@Y6R7E@@#/@@@'_:8@@@[/KF@@[%8@@@^/KF@@@OI )@@G@@RFU@@KRB%@@#/@:@@@?^!@@@/KF@@@R#E@@KABE@@^;@@@@MA#E@@KRFU@@OAFU@@^R;@@@KOJ )@@G@@A3E@@#R#@@@E'=@@@[/KF@@]RBE@@KABE@@^RFE@@OAFE@@^R;@@@KA3E@@#R#@@@E'=@@@#OK )@@G@@R7E@@#%8@@@^/^@@;S'^@@Y6R7E@@#/@F@@]:8@@@[/KF@@[%8@@@^/KF@@@RBU@@KRB%@@#OL )@@G@@/@:@@@?^!@@@/KF@@@/KF@@]AFE@@^A#U@@ R;@@@CA3E@@#RBE@@KABE@@^R#@@@E'=@@@#OM )@@G@@R7E@@#/@F@@[/KF@@@AFE@@^A#U@@ A#U@@XR;@@@KA3E@@#RBE@@KABE@@^R#@@@E'=@@@#ON )@@G@@R7E@@#/@F@@]:8@@@ /KF@@[/KF@@@RFE@@N/)@@;"O;@@@[&#@@@GO;@)@@;@@@@MOBE@@KOO )@@G@@H8@@@[A#E@@^R;@@@LA3E@@#R#@@@E'=@@@#R7E@@#/^@@/JRBE@@^H^E@@#O;@@@[AFE@@-OP )@@G@@/KF@@]:8@@@[/KF@@[/KF@@@R;@@@DA3E@@#R#@@@E'=@@@#R7E@@#/@F@@]%8@@@]/KF@@@OQ )@@G@@ 4E@@#/KF@@[C!E@@I*?E@@F/\0[ ' CE@@P:9@@@[/K@@/5R#0^L9/,0@/.R#E@@QA#E@@AOR )@@G@@R;E@@2ABE@@Q/\@@W9RF%@@$RF%@@=RB%@@$R#E@@AA#E@@QC!E@@I/\0@/7%9@@@]/K@@/5OS )@@G@@/,0@/M/K@@U!/K@@/5RA'@@S/KF@@@R;U@@2R;)@@I/,0[ \/K@@U!/KJ@@@/KJ@@@R;E@@2OT )@@G@@&;@@@[R;K^L=N8K@@IM#H)@@P;@@@[A#'@@2R#K^L'A\W@@@ABW@@@/KF@@@C!E@@I*^E@@UOU )@@G@@/K@@V R#U@@QR;@@@@&;@@@[&;K@@[9*E@[KQBU@@K9*E@[I:9@@@[/K@@.!/\0@.2(*E@@FOV )@@G@@/K@@.VR#U@@2;CK@@G%@K^L;/K@@VFR#E@@QA#E@@AR;E@@2ABE@@Q/\@@W9RF%@@&RF%@@(=E@@D/K@@U$R#V@@@A#U@@SAFE@@Q*?E@@F/K@[[/%^E@@OPR )@@G@@/K@@VJA#@[#ARF%@@PK^%@@ORFU@@O?@K@@J/K@[[\AF'@@P;G)@@=W8)@@AOB%@@KAB)[# PS )@@G@@A70[# R#E@@Q 4@[#^AB@[#^/K@[#[;GK@@=W8K@@A/@)[[6OBU@@KR;0@@&P;)@@[/,"@%,PT )@@G@@RF%@@N/,0[ Y/K@@U!/K@[]H CE@@P/K@[[)AB@[#ARBU@@O?CU@@Q/K@@VJRF%@@PKC%@@QPU )@@G@@RFU@@O?@K@@J/K@[]A/K@[[>RF%@@N/,0[ Y/K@@U!/K@[]L/\0[ ' CE@@P/K@[[./\K[^*PV )@@G@@(CE@@K/K@[['/K@[[6/\K[^*(CE@@K/K@[]E/K@[]A*=E@@G/K@[]: *E@@G^='@@G(4E@@EPW )@@G@@/K@[]X(0E@@H/K@[^H*?E@@F/\0[ '(CE@@K/K@[#CRF%@@N/,0[ D/K@@U9/K@[^[R#E@@KPX )@@G@@;@@@@MA#E@@K*?E@@F/\0[ '/K@[#C*?E@@F/K@[#LRFE@@PK^E@@ORF%@@O?@)@@H/K@[#CPY )@@G@@AFU@@P;G@@@=W8@@@AOBE@@KAB@[#^A7K[#^RBE@@OA#@[#AO;@@@ ;O@@@=W8@@@AAFE@@QPZ )@@G@@R#E@@Q C@[# AB@[# R;@@RX@@@/K@[#5Q;@@@@C-X)@@/K@[#W[5Z@@@[1Z@@@QE )@@G@@[!Z@@@[(Z@@@[>Z@@@/K@[#"Q;)@@@[-Z)@@/K@[#XC!E@@I:9@@@[/K@[^Q/\0@.2(*E@@FQF )@@G@@/K@[^QR#U@@2;CK@@G:@K^M[/K@[^L%@K^L_/K@@VFN80@@[^)'@@GRE'@@S/KF@@@N80@@[QG )@@G@@^)'@@G/\K[^* =E@@G/K@[]P9?E@@@9*@[^YR;@[^Y'=@@[@@[D?/K@[AP>@@[D!/KF@@[C8H@@@?8I@@@/K@[ABC@@[D:C8K@@#QQ )@@G@@/KF@@@C@@[D)C8K@@[/KF@@@C@@[D&C8K@@]/KF@@@L8@@@[C@)^M]G8)@@[*@I@@@?CY@@@QR )@@G@@/K@[A'^@[GL'^@[GZ[U]@@#'^@[GL'^@[GZ[R7@@['^@[GL'^@[GZRF )@@G@@[TD@@]'^@[GL'^@[GZ[T,@@#'^@[GL'^@[GZ[R,@@#'^@[GL'^@[GZ[R,@@]K^@@@@DK@@@@RG )@@G@@\;____6\____K@)@@@@@@@@@\_Z_________)@@@@@)^@@@@)@)@@@@@[^N'@@[^N_@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-+1@@@-+2@@@-+3@@@-+4@@@-+5@@@-+6@@@-+7RI )@@G@@@@@-+8@@@-+9@@@+-1@@@+-2@@@+-3@@@+-4@@@+-5@@@+-6@@@+-7@@@+-8@@@+-9@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-+0@@@+-0@@@@@@@@@@@@@@!-+0RL )@@G@@@@J-+1@@K-+2@@L-+3@@M-+4@@N-+5@@O-+6@@P-+7@@Q-+8@@R-+9/K@^#U'=@@@3>@@^^2RM )@@G@@/K@^#)R#@^^3A#@^#T/KF@@[R#@^^4A#@^#TRBV@@@ABK^#3RFV@@@A#K^#5O'0@@[AA0^#8RN )@@G@@R;@^^TR#K^^S/@K^#_:8K@@]/K@^^CO;K@@[O;@@@AAB@^#4 *@^#5A#K^^S/,0@R<@_@@@@RO )@@G@@@@@@@@@@@@@@R#K^^S?8K@@#/K@@@@R#@^^R'=@@@I:8K@@^/K@^^K @@^^S/K@O#8O;K@@[RP )@@G@@R#0^^5R#)^^6N8K@@QA#\)@@8KK^^#**@^#5/K@^#!/K@^#\R;K@@#O;@@@GRR0^#5?80@@'RQ )@@G@@/K@^#\R;K@@^A#K^^S/K@^#9R;@@]^PR@^#5T8@E%:;C@@@MO#@^^R *@^#5/K@^#_@[Q^^TRR )@@G@@@@@@@@@@@@]@/KF@@[/K@^#+@@[^^T @@@@@@@@@@@@@@E^ T@@N^ <@@E^ 6@@E^A8RS )@@G@@@@E^A@@@E^AE@@G^AO@@I^A)@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8RT )@@G@@@@E^A8@@E^A8@@E^A,@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8@@E^A8RU )@@G@@@@E^A8@@E^A8@@E^A8@@E^A8ERROR IN COBOL LIBRARY - NEGATIVE OR NONNUMERIC RV )@@G@@SUBSCRIPT ERROR IN L$EXPB - ZERO BASE TO ZERO OR NEGATIVE EXP. OR NEGARW )@@G@@TIVE BASE TO FRACTIONAL EXP. OR UNNORMALIZED OPERANDS ERROR IN L$PSQN - RX )@@G@@IMPOSSIBLE CONDITION HAS OCCURRED ERROR IN L$PLMV - IMPOSSIBLE CRY )@@G@@ONDITION HAS OCCURRED ERROR IN L$PDVR - DIVIDE SIZE ERROR HAS OCRZ )@@G@@CURRED ERROR IN L$PBND - REQUEST TO CONVERT ZERO DIGITS FROM SA )@@G@@BINARYTO DECIMAL ERROR IN COBOL LIBRARY - PARTS OF DOUBLE PRECISION BINSB )@@G@@ARY INTEGER HAVE OPPOSITE SIGNERROR IN COBOL EXECUTION - NO STOP RUN STASC )@@G@@TEMENT IN PROGRAM ERROR IN COBOL EXECUTION - AN UNDEFINED ERROR HAS OCCUSD )@@G@@RRED @#0@@@@@@)@@@[@@@@000000%%%%%%IU)W'3F^!#_JIX*=DZ.58O_#I)2!F7.NQUI4SE )@@G@@I<_SY5/*G@2-I$$$NL!9B)Z=I%1-CADRTS$YI!.9UB:!J,1PI1&:8O3OL5I5I40Q6U@DQM++SF )@@G@@I7/W=@)F:7FFI;>16)OBNUY_I"\IOCTDCLA\J[;[9EZVUPSUJ =9F,<(CXRKJC,BY%GW6[JP8M8NK=,4#-JT85J74J'*.WEJR]<51J.3G3G3G3G3HK[)@@@@@@@@@K^*@@@@@@@@@SJ )@@G@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@SK )@@G@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9@@@@@@K>,=I7K@@@@@K*'HM>^@@@@@K?=SN$E)@@@@SL )@@G@@K\!YS).C@@@@K285"(GU@@@@K6<-\D\0K@@@K9?UE/F?O@@@K/7)!:I$T@@@L@+?W<[C$*@@SM )@@G@@L#:R<:1U1+@@LA6HW&!1X')@LE-8T8G&'?=@LH%Q)QJ0(R!@LK4/CV3?3!*KLO- >LSO@O-ESN )@@G@@LR(Q">,T@T(WLU3?,JD_K)#3LY)N/9YJ+O]SL-*S/B53U9]"L=2ZFD3KL$N!K[)@@@@@@@@CSO )@@G@@Z___________@@[@@@ + CD-RB-__"@@[__"__'@@@@@@_@@@@@__@@@@___@@@____@@SP )@@G@@_____@@_____@@____@@@___E%%%%%@@@@__@@@@@_@@@@@@@@SS10@@SS20@@SS30@@SS40SQ )@@G@@@@AUGB@@[@@@@UHANG@@@@@$@@@@@%@@@@@!@@@@@1@@@@@4@@@@@7@@@@@;@@@@@"@@@@[[SR )@@G@@@@@@[ @@@@@@T&T&T&OY, B:KS=7M/UH,F:BO"FQC8K1\Y)!U5_EU\PYS;+GLF)\*DVZH_T5SS )@@G@@P_R_-Y@@@@@[XCX,)@@@@@@I UPPER. @@@@@AINCORRECT POSITION FOR READ REVERSE.@@@@@ RANDOM WRITETP )@@G@@ FILE NOT FASTRAND@@@@@ARANDOM WRITE ON SEQUENTIAL FILE @@@@@ RANDOMTQ )@@G@@ WRITE FILE NOT OPEN @@@@@ RANDOM WRITE FASTRAND ERROR @@@@@ RANDOMTR )@@G@@ READ FILE NOT FASTRAND @@@@@ RANDOM READ ON SEQUENTIAL FILE@@@@@ RANDOMTS )@@G@@ READ FILE NOT OPEN @@@@@ RANDOM READ FASTRAND ERROR @@@@@ SEQUENTT )@@G@@TIAL WRITE FILE NOT OPEN@@@@@ASEQUENTIAL WRITE FASTRAND ERROR @@@@@ TU )@@G@@SEQUENTIAL WRITE TAPE ERROR @@@@@BSEQUENTIAL WRITE AFTER INVALID KEY ETV )@@G@@XIT @@@@@ SEQUENTIAL READ FILE NOT OPEN @@@@@ASEQUENTIAL READ FASTRANDTW )@@G@@ ERROR @@@@@ SEQUENTIAL READ TAPE ERROR @@@@@BSEQUENTIAL READ RETX )@@G@@VERSE TAPE ERROR @@@@@ASEQUENTIAL READ NO TAPE EOF OR EOR @@@@@ATY )@@G@@SEQUENTIAL READ AFTER AT END EXIT @@@@@DCOMPATIBLE FORMAT TAPE MUST BETZ )@@G@@ POSITIONED EXTERNALLY @@@@@CCOMPATIBLE FORMAT TAPE CANNOT BE OPENED REUA )@@G@@VERSE @@@@@CCOMPATIBLE FORMAT FILE MUST BE ASSIGNED TO TAPE @@@@@BCOMPATUB )@@G@@IBLE FORMAT ERROR - FILE STRUCTURE @@@@@CCOMPATIBLE FORMAT ERROR - DATAUC )@@G@@ BLOCK STRUCTURE @@@@@BCOMPATIBLE FORMAT ERROR - RECORD SIZE @@@@@]UD )@@G@@I/O ERROR @@[@@@000000@] ^GS@@TS@@@@[^GWGO NO ER RF%@@(RF%@@,UE )@@G@@RF%@@&/././.@@@@@@@@@@@@HDR@)JS,SPECIAL FORMS REQUEST . @@A@@@@@]__.UF )@@G@@M,000,00,00.@@]@@@ @[[^L=HDR@+ZEOF@+KEOF@+!HDR@+(L,0. @@^@:3EOF@+=UG )@@G@@EOF@)YEOF@)@^OWH9@@@E/H@^NOO;0@@[[>@^OWA:0^OWRB0^OWO#0^N!AB0^OWR#0^OWUN )@@G@@A#0^OW/K@@@@@@@@@@@@@@@@@@@@#[@@@@ D@@@@D@@@@[]@@@@[ [@@@[C[@@@][]@@@]^#UO )@@G@@@@@]B#@@@#@^@@@##^@[D^M$__@@@@00@@@@E@@@@@@@__@@@@@000@@@^N\@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@ @@@@@@@@@@@@ACCEPT??? @@@@@+000000000000000000000000UQ )@@G@@@@@@@+000000000000000000000000@@@@@@@@@@@@@@@@@@CBMFILE @@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[[@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@^OX@@@@@@@@@@@@@1-@1-@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@[LP@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@[LK@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ BNC@@ E\UV )@@G@@'=@@@4C@@ D-[@FK@[C@FK@@/@@ DCC@FK@[P#FK@@[@FK@]O#FK@#[@FK@#C@FK@[[@FK@@UW )@@G@@/KF@@^__@ ELC@@ D='=@@[[/KF@@@@@@@@@@@@@@@N8K@@UR#@ E0R#K E1M#H)@@/,0[P-UX )@@G@@N8K@@JR#@ E2R#K E3M#H)@@ @@@@G'=@@[[[@@ E=C8@ E+'=@@[Q/K@ E>CONTWD@@] ELUY )@@G@@@@@@@@N8K@@UR#@ E0R#K E1M#W)@@N8K@@JR#@ E2R#K E3M#W)@@'=@@[@'=@@@)@@R DFUZ )@@G@@@@[ D>@@[@@[@@[ D_@@[@[[@@@ E5 @@@@@@@@ 000000 O. @]H E;ASG SVA )@@G@@TATEMENT ERROR @ASG,T TSOUVB )@@G@@RCE1 @ASG,A CBMFILE . @ASG,T TSOURCE2 @ASG,T TSOURCE @&] E_@@@@@@VC )@@G@@[[@@@@@@@@@@@@@@@@@@@@@@@ADD TSOURCE2. @ADD,E VD )@@G@@ @ELT,IVE )@@G@@ VF )@@G@@ @DATA,L TSOURCE2. @ADD TSOURCE1. VG )@@G@@@ASG,A VH )@@G@@ @COB,B VI )@@G@@ @END .@BRKPT TSOURCE2 TPF$.GZS TPF$.GZR VJ )@@G@@@@I G<@@# G9@@I HP@@[ H< @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@* I(@@[ E4@[F JL0@S@@@@D [C0@ 9[L5@@@___@@@___@@@___@@@___@@@___@@@___VM )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___VN )@@G@@@@@___@@@___@@@___@@@___TSOURCE2 @]^ I? ELEMENT NAME ERROR @@[@@[VO )@@G@@[J^ FXTSOURCE2 @]E FX@]A I6INPUT FOR OUTPUT PROGRAM IS MISSING @@[ F]VP )@@G@@@@# FU@@[ G/@@[@@[@@7 H:@@[ GP@@[@@@@@F GN@@[ HR@@[ G>@@[ HD@@A HB@@# FCVQ )@@G@@TSOURCE2 @@# H=@@# FF@@[ FX@@[ HC@@[ HS@@[@@]@@@ E5@@@@@[@@@@[>@@@@@@VR )@@G@@@@@@@@X. U. X. @@@@@@ @@@@@[@@@@@[X. X. VS )@@G@@ ***. ***. @@@@[=@@@@@[ @@@@@[***. X. VT )@@G@@@@@@@[X. ***. @@@@@@** CONTINGENCY WRITE OF CBMFILE**. **UNABVU )@@G@@LE TO WRITE CONTINGENCY CBMFILE**. @@@@@@ @@@@@@ MAXIMUM NUMBVV )@@G@@ER OF RECORDS ON CBMFILEDATA CANNOT BE FOUND FOR PROGRAM. BAD WRITE ONVW )@@G@@ CBMBLOK. BAD WRITE ON INDEXONE RECORD. NO DATA RECORD FOR PROGRAM. VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@C[@[D1N8K@@^/\)[DLN?K^MJ(@@@[[/K@[C/C9K@@(')H)@@C[@^MP/\)[DLC9K@@)')H)@@WA )@@G@@(*@^MJ*=@^MJ/K@[D]C@@[D2'=@@@J/KF@@@C9K@@/')H)@@N*K^MJC[@^MQ/\)[DLN=K^MJWB )@@G@@(@@@[[/K@[C_C9K@@/')H)@@C[@^MR/\)[DL/K@[C_;>@@@A')H)@@8KK[DJ/KI@@@[5W@@@WC )@@G@@[1W@@@[!W@@@[(W@@@[>W@@@/\0[DT[-W)@@Q;K[DN/KJ@@@PROCESSOR CALL ERROR WD )@@G@@@[^[DWABNORMAL RETURN FROM READ$ @[ [D-TOO MANY SPECIFICATIONS @[^[D$WE )@@G@@]@@@@@[@@@@@ @@[^MB@@[[DNTPF$ @@G^M#A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@WF )@@G@@R@)[GIR^1@@@&80@@[C8@[GJM@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@WG )@@G@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^WH )@@G@@R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)[ES[)<)@@A^-@@]Q8)@@@/K[K@]WI )@@G@@C8?@@@')]-EM/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@WJ )@@G@@T8K@@AG8H@@@/K@[EZC8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@[E3C80@@F;^@@[]WK )@@G@@+8K@@_%8)@@ :8)@@@/K@[E9')]-EM8#0[E3/KF@@@&"0__"/K@[E"&'0@@@C8.@@@;G@@@MWL )@@G@@;CK@@M&;@@@[&;K@@[8#0[F /KF@@@')G-FT0@@@@F%8)@@@')]-EM/K@[F#C?[@@[C^L@@[WM )@@G@@/K@[FJ;G@@@M;CK@@M&;@@@[&;K@@[')G-FT:0-@@@/K@[FQ')]-EM/K@[FL[?[@@[[^L@@[WN )@@G@@/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@[FZC)!)@@[^[@@]Q;@@@@/K[K@]C80@@@WO )@@G@@;G@@@#/@@[F:G80@@[;G@@@#/^@[F&C8)@@0')]-EMC8)@@@;=K@@#G8)@@0')]-EM8#0[F:WP )@@G@@/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@[F:C8K@@@N8X@@@C80@@@;O@@@=W8@@@EE/X@@@WQ )@@G@@;?)@@AG8.@@08KK[F_/^@[F9/C@[G^;?)@@AG80@@-8KK[G^C@K@@IC8)@@ /K@[GC')]-EMWR )@@G@@8KK[GBC@)@@J')]-EM;GK@@A/^)[GE/KF@@@@@[@@@ @@@@@@@@@@@@9*@[G4RBK[GLWS )@@G@@RFH@@[AB@[GYRBH@@[;*@@@]1@G^@@/K@[GXRBH@@[R;K[GX'=@@[D9?@[G4/K@@@@@@@@@@WT )@@G@@9*@[G4A#)[G6RB@LGZ;*@@@]1@G^@@/K@[G(RB@LGZR;K[G('=@@[DRB@[GZP;@@@]RBW@@@WU )@@G@@R#)[G7A#?@@@RFG@@]ABW@@@O;@@@[AB@[GYR#)[G6/K@[GX@@@@@@@@@@@@@@@@@@'^@[GLWV )@@G@@/S@^N,/KF@@@R#@ E6A#@[GKN[@ E7N[K E8 @@@[A @@@[B/,0^M0/,0[H%@^@ E5C?) E5WW )@@G@@%?) E9/K@[HB/K@[HG/,0^@N@[@@@@/,0^@Q@[@@@@/K@^M)/,0^@K@[@@@@/K@^M)'^@^MXWX )@@G@@R#@@@['=@@@J/G@[HQ$@K@@^/K@[HK/K@[H&[@@ FX;*@@@]/G@[H&&8K@@[R#@@@[R#K I/WY )@@G@@M#W)@@C/@ FO/,0[D3C@@ FXC@@ FXC8K@@G/,0[F1C@@ E''=@@@I'=@@@E/KF@@@R#@ I.WZ )@@G@@'=@@@J/KF@@@N80@@[N8K@@FR#@ I"R#K I_M#H)@@/,K[K,C@@ J@/,0[A]/K@[K/R;@@@[XA )@@G@@/,0[A!/K@[H.^)0 I+R[) J[R]@@@AR@) J]/,0[JFC@@ J#'=@@@JC@@ H:+8@@)@/^K[K)XB )@@G@@+8@)@@/@K[I#^00 I++8@@]@/@K[IBC8K@@S[4K I$+8@@[@/@K[IFC8K@@T[*K I$+8@@@)XC )@@G@@/@K[IJC8K@@U[0K I$R;@@@#/,0[A!/K@[K3R[) J^R]@@@AR@) J]/,0[JFN8K@@GR#@ J^XD )@@G@@R#K J M#W)@@^=0 I+*0@ I+/K@[I0C8@@@,')]-KQR;@@@]/,0[A!/K@[K8^?0 I+/,0[JFXE )@@G@@/,K[K,R[) JAR@) J]^*0 I+/,0[JF(0@^MJ/K@[I\N8K@@AR@K JBR9@ HA/,0[HK/K@[I0XF )@@G@@N8K@@#R@K JCR9@ FK/,0[HK(=@ I+/K@[J]9?@ JD9*@ I(R#K J]R#H I/KD@@@C[K@@DR70^MJXJ )@@G@@9?K^ML*?@ I+/K@[J/ K[N,/K@[Q:C[K J&GHK BO[ K BO/K@[NTQ[K AP/,0@R@@@^])^O^/,0^FZ[@A^O^C[K BPC/@@@E/,0@P:YY )@@G@@C@)^N.C@0^N";^)@@/CS0^N"CP@^N"[@)^O^[W0^O [T@^O /,0^FZ[@E^O^/K@[Q/Q[@[LGYZ )@@G@@/,0@R<@_@ KM@W@^O^/,0^FZ@@W^O^N]=@@@^])^O^/,0^FZ[@A^O^/K@[Q/Q@0[LG/,0@RZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@L$CTMP K@[@@ OM,AU#@[.^@+L$PCOS K@[@@EAHMAEE@@'^]ZL$PTPW ZG )@@G@@K@]@@KGDBAU#@@@@@@@@F@C@L$MNTR K@[@@PN 9BEC@[Y^#TL$ERR K@]@@VZH )@@G@@DQ/GFC@]I^^7@@I@CFL$PCL2 K@]@@-]JS YF@@@@@@@@I@CTL$PBCA K@]@@$ZI )@@G@@OO-AU#@@]^B @@_@C$L$PWF8 K@[@@?NA[BEC@[/^BBL$UNP8 K@]@@2NA^BECZJ )@@G@@@@^^D#@@*@D&L$PMRL K@]@@8AHMAEE@@ ^DB@ 9@EIL$PSLH K@]@@"GC+AU#ZK )@@G@@@@@@@@@@S@KBL$PP01 K@]@[^G#[AU#@@@@@@@@B@KZL$PSQN K@]@[ENA@BECZL )@@G@@@@O^DG@ @K&L$PBND K@]@[KN /BEC@@0^D)@[8@P:L$PLMV K@]@[QE,.CIAZM )@@G@@@[I^EK@[9@R#@@@AZ )@@G@@%4)@@HC4)@@[X. [^0@@];O)@@=C@)@@G@@@@@[AN@@@@)[T@3@K^[]@0K)K@@@)@I@C@BA )@@G@@@@@@@@@@@@@@X. /,0@@@C8@@@@R')@@@/K@@[-/K@@[-/K@@[WAO@@@@)[Z@V#@[]@>]BB )@@G@@@0@@@@)@J@C@)[+@V]@X#@@@@@^@@@@@@@@J/,0@@@ Q[@@@Q^6)@@[N6)@@IAP@@@@BC )@@G@@)[>[MK)GK)B@^C[0@@@@#@](@@@@[A/,0@@@ @@@[A@@@@J*@@#@@]@@@@[ /,0@@@Q@0@@QBD )@@G@@@@@@DYAQ@@@@)[\[M^C[0[]@W@@@@@@@#@-9@@@@[A/,0@@@ @@@[A@@@[X0@@#@ML@@@@[ABE )@@G@@/,0@@@ @@@[A@@@[X0AR@@@@)[9@'K)GK)JC[K^[@K)G@@@@)@K@C@***. Q@K@@Q/K@@[_BF )@@G@@/K@@#M@[.@[_/,0@@@Q')@@@@@@[X0AS@@@@)]@@UK0@K@@@)@L@C@)]#@<]@X#@@@@@@@DYBG )@@G@@@@[@@@@@@@@L/,0@@@ /K@@]E:K)@@KCK-@@@AT@@@@)@M@C@)]B@;#@@K^C#^C[1]@BH )@@G@@=@@@@@@@@@@A@_D@@@/,0@@@Q]K@@Q/K@@#M^E-@@@NM)@@M***. AU@@@@)]I@%K)D[]@0BI )@@G@@)@N@C@)]N@MK0@@@@@%@)@@NC@*@@[ OA@@@QR]@@@LH9K@@[CHK@@]@@@@DYAV@@@@BJ )@@G@@)]P[N@K^C]KK)GK@K@/K@@])%@&@@@C@$@@[Q[)@@]O 0@@QR[0@@LH9K@@[CHK@@]/K@@#MBK )@@G@@/K@@]RAW@@@@)]Z@F@@@@@@@)@O@C@)])@<]@>#@[@K@@@@@@@@@@@/K@@ -/ K@]=H[K@@OBL )@@G@@CHK@@]@@@@[=/K@@]*AX@@@@)@P@C@)]=@:#@[]@>]@>@K)G@@@@@@)@Q@C@ Q[K@@QBM )@@G@@/K@@]J[ K@@]GHK@@]C[K@@P@@@@@[AY@@@@)]([F]@X#@@^C#^C[0@@@@@@@@@@J*@@^@@]BN )@@G@@@@@@[ /,0@@@Q[@@@Q@@@@DY@@ @@@@@@@@Q/,0@@@AZ@@@@)]2[MK)B@^C[0@@@@@@@@[X0BO )@@G@@@@^@ML@@@@[A/,0@@@ @@@[A@@@[X0@@^@](@@@@[A/,0@@@ @@@[ABA@@@@)]/@%K)B@@@@BP )@@G@@)@R@C@)#[@N#@[]@=@GHK@@]C[K@@R@@@@@[@@@[X0@@^@-9@@@@[A/,0@@@ @@@[ABB@@@@BQ )@@G@@)##[#]@>]@=K)DK)GK)JC[K^@@@@@@/K@@ $@#E@#G/,0@@@Q')@@@[@0@@#;O)@@=CG)@@]BR )@@G@@[ K@@]BC@@@@)#F@N@K)G@@@)@S@C@)#H@+K0@K^@@@@@@@@/K@@ $/K@@#L:K)@@SCK+@@@BS )@@G@@***. Q@)@@Q/K@@#GBD@@@@)#L@F@@@@@@@)@T@C@)#M@:]@>#@[@K^C]K@CHK@@]/K@@ASBT )@@G@@/K@@#Q%4)@@TC4)@@ /K@@#0BE@@@@)#R[E^C#^@[]@1]@4@@@@@@@/,0@@@Q')@@@BU )@@G@@C8@@DY^]-@@[N](@@@Q]K@@]O^K@@QR@K@@LH9K@@[BF@@@@)#)@U) @K^@@)@U@C@)#<@N#BV )@@G@@@[]@=@)@V@C@@@@@@[^6)@@^N6)@@UX. /K@@#[##@[]@>]BW )@@G@@@>]@=K)DK)GK)J@@@@/,0@@@Q')@@@[@0@@#;O)@@=CG)@@][ K@@]GHK@@]C[K@@VBH@@@@BX )@@G@@)#!@U) @K^@@)@W@C@)#0@V]@>#@[@@@@@@@/K@@^G%4)@@WC4)@@^X. /K@@#0/K@@#0BY )@@G@@@#,@#0BI@@@@)#3[N@K)B@^C[0@@@@@@@[X0@@A@](@@@@[A/,0@@@ @@@[A@@@@J*@@A@@]BZ )@@G@@@@@@[ /,0@@@Q[)@@#BJ@@@@)#.[MK)B@^C[0@@@@@@@@[X0@@A@-9@@@@[A/,0@@@ @@@[ACA )@@G@@@@@[X0@@A@ML@@@@[A/,0@@@ @@@[ABK@@@@)^B@M@)@X@C@)^D@:#@@K^C#^@@@@@Q[@@@#CB )@@G@@Q[K@@Q/K@@^M^E&@@@NM)@@X***. [@&@@[;G)@[CBL@@@@D-OE(MC*?^[MD9PE-DD1 ^@)CC )@@G@@^@)^@)^@)D(JELBCDIC(GD-[^[HD9MC9[D1DDC)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@0A(]C(ICF )@@G@@D1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0A@3^@)^@)^@)^@)^@)CG )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GCH )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1CI )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MCJ )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)^@)^@)^@1A@0 )0A@0^[#D9GD9IDD ES\D(G^@)^@)^@)CK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^@)CL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5CM )@@G@@A@0B@8A)7A@1AL]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0CN )@@G@@A@8^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)CO )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)CP )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)CQ )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@) K% K% K)ES)B*)ETPET#C(KE-DCR )@@G@@CLGC*;^[D^@.^[DD1OC(MD( C-DCDOC*;^[M^@.^[MC(NDDNE-[D1O^@)^@)^@)^@)^@)^@)CS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CT )@@G@@[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@1AT]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1CU )@@G@@BC0A88BC4A*0A@0B@0A@9^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNCV )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCW )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)CX )@@G@@^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)^@)^[[CK)CY )@@G@@ETPET#C(KE-DCLDD-DE-T^@)^@)^@)^@)^@)ELND-O^S1^@)^@)ELND-O^S2^@)^@)ELND-OCZ )@@G@@^S3^@)^@)ELND-O^S4^@)^@)^@)D-[CK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DA )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@1A(]C(ID1 E-O^@)^@)^[[C9IDB )@@G@@C(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0AC0^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PDC )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)DD )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ DE )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)DF )@@G@@^@)^@)^@)CDHD9SDD#DDGD-DD0\CT[^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)DG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)DH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@1A1]C(IDI )@@G@@D1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0AC1^@)^@)^@)^@)^@)DJ )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GDK )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1DL )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MDM )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)CDHE[DCTDD-GDDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DN )@@G@@^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)DO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5DP )@@G@@A@0B@8A)7A@1A9]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0DQ )@@G@@AC2^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)DR )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)DS )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)DT )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CT[EL]C(IDD#DDGD-DD0)^@)^@)DU )@@G@@^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DV )@@G@@^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DW )@@G@@[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@1B[]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1DX )@@G@@BC0A88BC4A*0A@0B@0AC3^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDY )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PDZ )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)EA )@@G@@^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CT C1OELDEB )@@G@@CDSD9IC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ED )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@1BD]C(ID1 E-O^@)^@)^[[C9IEE )@@G@@C(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0AC4^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PEF )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)EG )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ EH )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)EI )@@G@@^@)^@)^@)CT E[CCDGD9OD[DD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)EJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)EK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@2A[]C(IEL )@@G@@D1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0AC5^@)^@)^@)^@)^@)EM )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GEN )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1EO )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MEP )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)CTDE[MD9AD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)EQ )@@G@@^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)ER )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5ES )@@G@@A@0B@8A)7A@2AD]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0ET )@@G@@AC6^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)EU )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)EV )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EW )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)C9 D1OCDHDD#DDI^@)^@)^@)^@)EX )@@G@@^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EY )@@G@@^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EZ )@@G@@[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@2AL]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1FA )@@G@@BC0A88BC4A*0A@0B@0AC7^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNFB )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PFC )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)FD )@@G@@^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)D1DE-MD9AFE )@@G@@E(MCDIE-JDDI^@)^@)^@)^@)^@)^@)^@)^@)^[D^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FG )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@2AT]C(ID1 E-O^@)^@)^[[C9IFH )@@G@@C(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0AC8^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PFI )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)FJ )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ FK )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)FL )@@G@@^@)^@)^@)D1JELAD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)FM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)FN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@2A-]C(IFO )@@G@@D1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0AC9^@)^@)^@)^@)^@)FP )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GFQ )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1FR )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MFS )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)D9AD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FT )@@G@@^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)FU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5FV )@@G@@A@0B@8A)7A@2A(]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0FW )@@G@@AK0^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)FX )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)FY )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)FZ )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)E- E-MCD#FD#D-DD1 ^@)^@)^@)GA )@@G@@^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GB )@@G@@^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GC )@@G@@[Q[Q=@A)5B@1AC6A)5A@0B@8A)7A@2A1]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1GD )@@G@@BC0A88BC4A*0A@0B@0AK1^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNGE )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PGF )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)GG )@@G@@^[QCC2AS8AS2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)E-MDDHC(OGH )@@G@@D@!ETPD-ACC)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GJ )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@8A@1B@0A@0ADCD9ME-JD0)^@)^@)^[ME(OGK )@@G@@D@)^@)^@)^@9A80AS2A@0A89BC4A*0AS1A)0A@1^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PGL )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)GM )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ GN )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)GO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@8A@1B@1A@0ATCD9MGR )@@G@@E-JD0)^@)^@)^[ME(OD@)^@)^@)^@9A80AS2A@0A89BC4A*0AS1A)0A@3^@)^@)^@)^@)^@)GS )@@G@@D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GGT )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1GU )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)GV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5GY )@@G@@A@8A@1B@2A@0ATCD9ME-JD0)^@)^@)^[ME(OD@)^@)^@)^@9A80AS2A@0A89BC4A*0AS1A)0GZ )@@G@@A@4^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)HA )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)HB )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)HC )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HF )@@G@@[Q[Q=@A)5B@1AC6A)5A@8A@1B@3A@0ATCD9ME-JD0)^@)^@)^[ME(OD@)^@)^@)^@9A80AS2HG )@@G@@A@0A89BC4A*0AS1A)0A@5^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNHH )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PHI )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)HJ )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HM )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5A@8A@1B@5A@0ATCD9ME-JD0)^@)^@)^[ME(OHN )@@G@@D@)^@)^@)^@9A80AS2A@0A89BC4A*0AS1A)0A@6^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PHO )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)HP )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ HQ )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5AC8A@8AC0A@0ADCD9MHU )@@G@@E-JD0)^@)^@)^[ME(OD@)^@)^@)^@9A80AS2A@0A89BC4A*0AS1A)0A@1^@)^@)^@)^@)^@)HV )@@G@@D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GHW )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1HX )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)D-JE9 EK)EL ETKDDMHY )@@G@@CDOD9MFC)CTPD-OE(MC*)^@)^@)C1DD1[D))EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)HZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5IB )@@G@@AC8A@8AC0A@0ATCD9ME-JD0)^@)^@)^[ME(OD@)^@)^@)^@9A80AS2A@0A89BC4A*0AS1A)0IC )@@G@@A@2^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)ID )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)IE )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)IF )@@G@@D-JE9 EK)EL ETKDDMCDOD9MFC)CTPD-OE(MC*)^@)^@)ELJE(ODDIC*)EL ETKDDMCDOD9MIG )@@G@@FC)C1GD9MCC)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)II )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADGDDOE-GC*)^@)^@)^[]C(MD1DCT ^@)^@9A80AK1IJ )@@G@@A*0A)7BC4A*0A@4A00A@1^@)^@)^@)^@)^@)D[JC1AD([D0)^@)D-PCTT^[#D9MEK)D1PELNIK )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PIL )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)IM )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IP )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADMD9#DS)^@)^@)^@)^[]EL[IQ )@@G@@F[OD9I^@)^@9A80AK1A*0A)7BC4A*0A@5AK0A@1AC0AC3A8)^@)^@)CDGDD^D[MD9[ES)D-PIR )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)IS )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ IT )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)IU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD[D-GIX )@@G@@EL C))^@)^@)^[CC(GC(I^@)^@)^@9A80AK2AC0A*2BC4A*0A@2AC0A@1^@)^@)^@)^@)^@)IY )@@G@@D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GIZ )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1JA )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)JB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5JE )@@G@@BC9A81AS1A@0ADADDID-[FDND9I^@)^[ D-NDD ^@)^@)^@9A80AK2A*0A*6BC4A*0A@1AS0JF )@@G@@A@1^@)^@)^@)^@)^@)D1[CTKDDG^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)JG )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)JH )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)JI )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JL )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADCCDMELDES)^@)^@)^[HDDID1DC*)^@)^@9A80AK2JM )@@G@@A*0A*6BC4A*0AK0AS0A@1^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNJN )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PJO )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)JP )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JS )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD[E[KC(METJD0)^@)^[ D-DJT )@@G@@FL[CL E-C^@9A80AK2A*0A*6BC4A*0AK1B@0A@1^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PJU )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)JV )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ JW )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)JX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADHCDCKA )@@G@@CDGC(T^@)^@)^[HCDMFC)^@)^@)^@9A80AK2A00A*7BC4A*0A@1A00A@1^@)^@)^@)^@)^@)KB )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GKC )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1KD )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)KE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5KH )@@G@@BC9A81AS1A@0AD#CDMD))^@)^@)^@)^[BEL[CT ^@)^@)^@9A80AK2A80A*8BC4A*0AC9A80KI )@@G@@A@1^@)^@)^@)^@)^@)E1 ELCE( D))^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)KJ )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)KK )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)KL )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KO )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD#CDMD))^@)^@)^@)^[BEL[CT ^@)^@)^@9A80AK2KP )@@G@@A80A*8BC4A*0AC9A80A@1AC0AS8A0)^@)^@)E1 ELCE( D))^@)D-PCTT^[#D9MEK)D1PELNKQ )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PKR )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)KS )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KV )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD]D9PD-HCDI^@)^@)^[HDDGKW )@@G@@C-MC(^^@)^@9A80AK2A80A*8BC4A*0AK0A@0A@1^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PKX )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)KY )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ KZ )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)LA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADOELPLD )@@G@@C(HCDI^@)^@)^[]C(MFDG^@)^@)^@9A80AK2AK0A*8BC4A*0AK0AC0A@1^@)^@)^@)^@)^@)LE )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GLF )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1LG )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)LH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5LK )@@G@@BC9A81AS1A@0ADOD[JELIE-JD0)^@)^[HCDMC9[EL E))^@9A80AK2B@0A*9BC4A*0A@1AK0LL )@@G@@A@1^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)LM )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)LN )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)LO )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LR )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADMFD[D0)^@)^@)^@)^[HCDMFC)^@)^@)^@9A80AS0LS )@@G@@AC0A00BC4A*0A@0A*0A@1^@)^@)^@)^@)^@)DL D([^@)^@)^@)D-PCTT^[#D9MEK)D1PELNLT )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PLU )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)LV )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LY )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADHCDND9I^@)^@)^@)^[AEL LZ )@@G@@C- ELDCTF^@9A80AS0A)0A03BC4A*0A@0A*0A@1^@)^@)^@)^@)^@)C1DD1#D@)^@)^@)D-PMA )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)MB )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ MC )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)MD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ME )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADKD9RMG )@@G@@C(GD))^@)^@)^[ D-GD9DET ^@)^@9A80AS0A*0A04BC4A*0A@0A*0A@1^@)^@)^@)^@)^@)MH )@@G@@CLMCD^ETCCDR^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GMI )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1MJ )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)MK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ML )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5MN )@@G@@BC9A81AS1A@0AD]E(ME-JD0)^@)^@)^[GCDREL D1#C*)^@9A80AS0A00A05BC4A*0A@0B@0MO )@@G@@A@1^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)MP )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)MQ )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)MR )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MU )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADND9TCDMES)^@)^@)^[ACDID1DC*)^@)^@9A80AS0MV )@@G@@A00A06BC4A*0A@1A@0A@1^@)^@)^@)^@)^@)D[JC1AD([D0)^@)D-PCTT^[#D9MEK)D1PELNMW )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PMX )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)MY )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NB )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD]E(ME-JD0)^@)^@)^[GCDRNC )@@G@@EL D1#C*)^@9A80AS1A@0A09BC4A*0A@0A)0A@1AC0A@2AK)^@)^@)CLJD-DD1B^@)^@)D-PND )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)NE )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ NF )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)NG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADHCDMNJ )@@G@@CTDD1FC(QDD#DDHCDMFC)^@)^@)^@9A80AS1AK0A81BC4A*0A@0A00A@1^@)^@)^@)^@)^@)NK )@@G@@ETHDDOD[ND9I^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GNL )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1NM )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)NN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5NQ )@@G@@BC9A81AS1A@0AD]ELJD9FES)^@)^@)^[RDDIETOD9I^@)^@9A80AS1AK0A82BC4A*0A@1AK0NR )@@G@@A@1^@)^@)^@)^@)^@)CLJD-GDDIC8)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)NS )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)NT )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)NU )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NX )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADRD9JC-ADDI^@)^@)^[MC(]C(#CT[^@)^@9A80AS1NY )@@G@@AS0A82BC4A*0A@1AS0A@1^@)^@)^@)^@)^@)E9 C-^^@)^@)^@)D-PCTT^[#D9MEK)D1PELNNZ )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-POA )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)OB )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OE )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0ADKD9RC(GD))^@)^@)^[ D-GOF )@@G@@D9PDDNC*)^@9A80AS1A80A86BC4A*0A@1AS0A@1^@)^@)^@)^@)^@)CLMCD^ETCCDR^@)D-POG )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)OH )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ OI )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)OJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD#ELJOM )@@G@@E9^C(M^@)^@)^[ECDHC(N^@)^@)^@9A80AS0A*0A86BC4A*0AC1AS0A@1^@)^@)^@)^@)^@)ON )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GOO )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1OP )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)OQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5OT )@@G@@BC9A81AS1A@0ADCCDBC*)^@)^@)^@)^[#CDOD[ ELDD1 ^@9A80AS1A80A86BC4A*0AK1AC0OU )@@G@@A@1^@)^@)^@)^@)^@)CLJD-GDDIC8)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)OV )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)OW )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)OX )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PA )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS1A@0AD]C(ID1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1PB )@@G@@BC0A88BC4A*0A@0B@0A@1^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNPC )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PPD )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)PE )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PH )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(GDDOE-GC*)^@)^@)^[]C(MPI )@@G@@D1DCT ^@)^@9A80AK1A*0A)7BC4A*0A@4A00A@4^@)^@)^@)^@)^@)D[JC1AD([D0)^@)D-PPJ )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)PK )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ PL )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(MD9#PP )@@G@@DS)^@)^@)^@)^[]EL[F[OD9I^@)^@9A80AK1A*0A)7BC4A*0A@5AK0A@4AC0AC3A8)^@)^@)PQ )@@G@@CDGDD^D[MD9[ES)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GPR )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1PS )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)PT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5PW )@@G@@BC9A81AS2A@0A([D-GEL C))^@)^@)^[CC(GC(I^@)^@)^@9A80AK2AC0A*2BC4A*0A@2AC0PX )@@G@@A@4^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)PY )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)PZ )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)QA )@@G@@EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QD )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A1ADDID-[FDND9I^@)^[ D-NDD ^@)^@)^@9A80AK2QE )@@G@@A*0A*6BC4A*0A@1AS0A@5^@)^@)^@)^@)^@)D1[CTKDDG^@)^@)D-PCTT^[#D9MEK)D1PELNQF )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PQG )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)QH )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QK )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(CCDMELDES)^@)^@)^[HDDIQL )@@G@@D1DC*)^@)^@9A80AK2A*0A*6BC4A*0AK0AS0A@4^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PQM )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)QN )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ QO )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)QP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A-[E[KQS )@@G@@C(METJD0)^@)^[ D-DFL[CL E-C^@9A80AK2A*0A*6BC4A*0AK1B@0A@5^@)^@)^@)^@)^@)QT )@@G@@D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GQU )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1QV )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)QW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5QZ )@@G@@BC9A81AS2A@0A(HCDCCDGC(T^@)^@)^[HCDMFC)^@)^@)^@9A80AK2A00A*7BC4A*0A@1A00RA )@@G@@A@4^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)RB )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)RC )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)RD )@@G@@EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RG )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A1#CDMD))^@)^@)^@)^[BEL[CT ^@)^@)^@9A80AK2RH )@@G@@A80A*8BC4A*0AC9A80A@5^@)^@)^@)^@)^@)E1 ELCE( D))^@)D-PCTT^[#D9MEK)D1PELNRI )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PRJ )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)RK )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RN )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A1#CDMD))^@)^@)^@)^[BEL[RO )@@G@@CT ^@)^@)^@9A80AK2A80A*8BC4A*0AC9A80A@5AC0AS8A0)^@)^@)E1 ELCE( D))^@)D-PRP )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)RQ )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ RR )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)RS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(]D9PRV )@@G@@D-HCDI^@)^@)^[HDDGC-MC(^^@)^@9A80AK2A80A*8BC4A*0AK0A@0A@4^@)^@)^@)^@)^@)RW )@@G@@D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GRX )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1RY )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)RZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5SC )@@G@@BC9A81AS2A@0B[OELPC(HCDI^@)^@)^[]C(MFDG^@)^@)^@9A80AK2AK0A*8BC4A*0AK0AC0SD )@@G@@A@7^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)SE )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)SF )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)SG )@@G@@EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SJ )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0ATOD[JELIE-JD0)^@)^[HCDMC9[EL E))^@9A80AK2SK )@@G@@B@0A*9BC4A*0A@1AK0A@3^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNSL )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PSM )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)SN )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SQ )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(MFD[D0)^@)^@)^@)^[HCDMSR )@@G@@FC)^@)^@)^@9A80AS0AC0A00BC4A*0A@0A*0A@4^@)^@)^@)^@)^@)DL D([^@)^@)^@)D-PSS )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)ST )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ SU )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)SV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(HCDNSY )@@G@@D9I^@)^@)^@)^[AEL C- ELDCTF^@9A80AS0A)0A03BC4A*0A@0A*0A@4^@)^@)^@)^@)^@)SZ )@@G@@C1DD1#D@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GTA )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1TB )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)TC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5TF )@@G@@BC9A81AS2A@0A(KD9RC(GD))^@)^@)^[ D-GD9DET ^@)^@9A80AS0A*0A04BC4A*0A@0A*0TG )@@G@@A@4^@)^@)^@)^@)^@)CLMCD^ETCCDR^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)TH )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)TI )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)TJ )@@G@@EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TM )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(]E(ME-JD0)^@)^@)^[GCDREL D1#C*)^@9A80AS0TN )@@G@@A00A05BC4A*0A@0B@0A@4^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNTO )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PTP )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)TQ )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TT )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(ND9TCDMES)^@)^@)^[ACDITU )@@G@@D1DC*)^@)^@9A80AS0A00A06BC4A*0A@1A@0A@4^@)^@)^@)^@)^@)D[JC1AD([D0)^@)D-PTV )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)TW )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ TX )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)TY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A1]E(MUB )@@G@@E-JD0)^@)^@)^[GCDREL D1#C*)^@9A80AS1A@0A09BC4A*0A@0A)0A@5AC0A@2AK)^@)^@)UC )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GUD )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1UE )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)UF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5UI )@@G@@BC9A81AS2A@0B[HCDMCTDD1FC(QDD#DDHCDMFC)^@)^@)^@9A80AS1AK0A81BC4A*0A@0A00UJ )@@G@@A@7^@)^@)^@)^@)^@)ETHDDOD[ND9I^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)UK )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)UL )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)UM )@@G@@EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UP )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(]ELJD9FES)^@)^@)^[RDDIETOD9I^@)^@9A80AS1UQ )@@G@@AK0A82BC4A*0A@1AK0A@4^@)^@)^@)^@)^@)CLJD-GDDIC8)^@)D-PCTT^[#D9MEK)D1PELNUR )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PUS )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)UT )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UW )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(RD9JC-ADDI^@)^@)^[MC(]UX )@@G@@C(#CT[^@)^@9A80AS1AS0A82BC4A*0A@1AS0A@4^@)^@)^@)^@)^@)E9 C-^^@)^@)^@)D-PUY )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)UZ )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ VA )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)VB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0ATKD9RVE )@@G@@C(GD))^@)^@)^[ D-GD9PDDNC*)^@9A80AS1A80A86BC4A*0A@1AS0A@3^@)^@)^@)^@)^@)VF )@@G@@CLMCD^ETCCDR^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GVG )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1VH )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)VI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5VL )@@G@@BC9A81AS2A@0A(#ELJE9^C(M^@)^@)^[ECDHC(N^@)^@)^@9A80AS0A*0A86BC4A*0AC1AS0VM )@@G@@A@4^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)VN )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)VO )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)VP )@@G@@EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VS )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0ATCCDBC*)^@)^@)^@)^[#CDOD[ ELDD1 ^@9A80AS1VT )@@G@@A80A86BC4A*0AK1AC0A@3^@)^@)^@)^@)^@)CLJD-GDDIC8)^@)D-PCTT^[#D9MEK)D1PELNVU )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PVV )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)VW )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VZ )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS2A@0A(]C(ID1 E-O^@)^@)^[[C9IWA )@@G@@C(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0A@4^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PWB )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)WC )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ WD )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)WE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0B[GDDOWH )@@G@@E-GC*)^@)^@)^[]C(MD1DCT ^@)^@9A80AK1A*0A)7BC4A*0A@4A00A@7^@)^@)^@)^@)^@)WI )@@G@@D[JC1AD([D0)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GWJ )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1WK )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)WL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5WO )@@G@@BC9A81AS3A@0A(MD9#DS)^@)^@)^@)^[]EL[F[OD9I^@)^@9A80AK1A*0A)7BC4A*0A@5AK0WP )@@G@@A@5AC0AC3A8)^@)^@)CDGDD^D[MD9[ES)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)WQ )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)WR )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)WS )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WV )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A([D-GEL C))^@)^@)^[CC(GC(I^@)^@)^@9A80AK2WW )@@G@@AC0A*2BC4A*0A@2AC0A@5^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNWX )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PWY )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)WZ )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XC )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A1ADDID-[FDND9I^@)^[ D-NXD )@@G@@DD ^@)^@)^@9A80AK2A*0A*6BC4A*0A@1AS0A@6^@)^@)^@)^@)^@)D1[CTKDDG^@)^@)D-PXE )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)XF )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ XG )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)XH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A(CCDMXK )@@G@@ELDES)^@)^@)^[HDDID1DC*)^@)^@9A80AK2A*0A*6BC4A*0AK0AS0A@5^@)^@)^@)^@)^@)XL )@@G@@D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GXM )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1XN )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)XO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5XR )@@G@@BC9A81AS3A@0A-[E[KC(METJD0)^@)^[ D-DFL[CL E-C^@9A80AK2A*0A*6BC4A*0AK1B@0XS )@@G@@A@6^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)XT )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)XU )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)XV )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XY )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0BDHCDCCDGC(T^@)^@)^[HCDMFC)^@)^@)^@9A80AK2XZ )@@G@@A00A*7BC4A*0A@1A00A@8^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNYA )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PYB )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)YC )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YF )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A1#CDMD))^@)^@)^@)^[BEL[YG )@@G@@CT ^@)^@)^@9A80AK2A80A*8BC4A*0AC9A80A@6^@)^@)^@)^@)^@)E1 ELCE( D))^@)D-PYH )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)YI )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ YJ )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)YK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A1#CDMYN )@@G@@D))^@)^@)^@)^[BEL[CT ^@)^@)^@9A80AK2A80A*8BC4A*0AC9A80A@6AC0AS8A0)^@)^@)YO )@@G@@E1 ELCE( D))^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GYP )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1YQ )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)YR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5YU )@@G@@BC9A81AS3A@0A(]D9PD-HCDI^@)^@)^[HDDGC-MC(^^@)^@9A80AK2A80A*8BC4A*0AK0A@0YV )@@G@@A@5^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)YW )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)YX )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)YY )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZB )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0B[OELPC(HCDI^@)^@)^[]C(MFDG^@)^@)^@9A80AK2ZC )@@G@@AK0A*8BC4A*0AK0AC0A@8^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)D1PELNZD )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PZE )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)ZF )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZI )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0ATOD[JELIE-JD0)^@)^[HCDMZJ )@@G@@C9[EL E))^@9A80AK2B@0A*9BC4A*0A@1AK0A@4^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PZK )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)ZL )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ZM )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)ZN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A(MFD[ZQ )@@G@@D0)^@)^@)^@)^[HCDMFC)^@)^@)^@9A80AS0AC0A00BC4A*0A@0A*0A@5^@)^@)^@)^@)^@)ZR )@@G@@DL D([^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GZS )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1ZT )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)ZU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5ZX )@@G@@BC9A81AS3A@0A(HCDND9I^@)^@)^@)^[AEL C- ELDCTF^@9A80AS0A)0A03BC4A*0A@0A*0ZY )@@G@@A@5^@)^@)^@)^@)^@)C1DD1#D@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)ZZ )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)AA )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)AB )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AE )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0B[KD9RC(GD))^@)^@)^[ D-GD9DET ^@)^@9A80AS0AF )@@G@@A*0A04BC4A*0A@0A*0A@7^@)^@)^@)^@)^@)CLMCD^ETCCDR^@)D-PCTT^[#D9MEK)D1PELNAG )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PAH )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)AI )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AL )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0BD]E(ME-JD0)^@)^@)^[GCDRAM )@@G@@EL D1#C*)^@9A80AS0A00A05BC4A*0A@0B@0A@8^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PAN )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)AO )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ AP )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)AQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A(ND9TAT )@@G@@CDMES)^@)^@)^[ACDID1DC*)^@)^@9A80AS0A00A06BC4A*0A@1A@0A@5^@)^@)^@)^@)^@)AU )@@G@@D[JC1AD([D0)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GAV )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1AW )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)AX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BA )@@G@@BC9A81AS3A@0BD]E(ME-JD0)^@)^@)^[GCDREL D1#C*)^@9A80AS1A@0A09BC4A*0A@0A)0BB )@@G@@A@8AC0A@2AK)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)BC )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)BD )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)BE )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BH )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0B[HCDMCTDD1FC(QDD#DDHCDMFC)^@)^@)^@9A80AS1BI )@@G@@AK0A81BC4A*0A@0A00A@8^@)^@)^@)^@)^@)ETHDDOD[ND9I^@)D-PCTT^[#D9MEK)D1PELNBJ )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PBK )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)BL )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BO )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A(]ELJD9FES)^@)^@)^[RDDIBP )@@G@@ETOD9I^@)^@9A80AS1AK0A82BC4A*0A@1AK0A@5^@)^@)^@)^@)^@)CLJD-GDDIC8)^@)D-PBQ )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)BR )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ BS )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)BT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0B[RD9JBW )@@G@@C-ADDI^@)^@)^[MC(]C(#CT[^@)^@9A80AS1AS0A82BC4A*0A@1AS0A@7^@)^@)^@)^@)^@)BX )@@G@@E9 C-^^@)^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GBY )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1BZ )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)CA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5CD )@@G@@BC9A81AS3A@0ATKD9RC(GD))^@)^@)^[ D-GD9PDDNC*)^@9A80AS1A80A86BC4A*0A@1AS0CE )@@G@@A@4^@)^@)^@)^@)^@)CLMCD^ETCCDR^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)CF )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)CG )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)CH )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CK )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A(#ELJE9^C(M^@)^@)^[ECDHC(N^@)^@)^@9A80AS0CL )@@G@@A*0A86BC4A*0AC1AS0A@5^@)^@)^@)^@)^@)CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNCM )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCN )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)CO )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CR )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0ATCCDBC*)^@)^@)^@)^[#CDOCS )@@G@@D[ ELDD1 ^@9A80AS1A80A86BC4A*0AK1AC0A@4^@)^@)^@)^@)^@)CLJD-GDDIC8)^@)D-PCT )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)CU )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ CV )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)CW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS3A@0A(]C(ICZ )@@G@@D1 E-O^@)^@)^[[C9IC(N^@)^@)^@9A80AS1BC0A88BC4A*0A@0B@0A@5^@)^@)^@)^@)^@)DA )@@G@@CLJD-DD1B^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GDB )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1DC )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@3^@)^@)DD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5DG )@@G@@BC9A81AS4A@0B[GDDOE-GC*)^@)^@)^[]C(MD1DCT ^@)^@9A80AK1A*0A)7BC4A*0A@4A00DH )@@G@@A@8^@)^@)^@)^@)^@)D[JC1AD([D0)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)DI )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)DJ )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)DK )@@G@@EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DN )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS4A@0A(MD9#DS)^@)^@)^@)^[]EL[F[OD9I^@)^@9A80AK1DO )@@G@@A*0A)7BC4A*0A@5AK0A@6AC0AC3A8)^@)^@)CDGDD^D[MD9[ES)D-PCTT^[#D9MEK)D1PELNDP )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PDQ )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)DR )@@G@@^[QCC2AS8AS2^@)^@)EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DU )@@G@@^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS4A@0A([D-GEL C))^@)^@)^[CC(GDV )@@G@@C(I^@)^@)^@9A80AK2AC0A*2BC4A*0A@2AC0A@6^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PDW )@@G@@CTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)DX )@@G@@^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ DY )@@G@@ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)DZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5BC9A81AS4A@0A1ADDIEC )@@G@@D-[FDND9I^@)^[ D-NDD ^@)^@)^@9A80AK2A*0A*6BC4A*0A@1AS0A@7^@)^@)^@)^@)^@)ED )@@G@@D1[CTKDDG^@)^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GEE )@@G@@D- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1EF )@@G@@A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EL ETPD-O^@4^@)^@)EG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)[Q[Q=@A)5B@1AC6A)5EJ )@@G@@BC9A81AS4A@0A(CCDMELDES)^@)^@)^[HDDID1DC*)^@)^@9A80AK2A*0A*6BC4A*0AK0AS0EK )@@G@@A@6^@)^@)^@)^@)^@)D(#CT[ELOC(M^@)D-PCTT^[#D9MEK)D1PELNDDIC8)D[JD( ^@)^@)EL )@@G@@^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PCTT^[#D9MEK)C-M^@)EM )@@G@@E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)^[QCC2AS8AS2^@)^@)EN )@@G@@EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EQ )@@G@@[Q[Q=@A)5B@1AC6A)5BC9A81AS4A@0A-[E[KC(METJD0)^@)^[ D-DFL[CL E-C^@9A80AK2ER )@@G@@A*0A*6BC4A*0AK1B@0A@7^@)^@)^@)^@)^@)D9RC(I^@)^@)^@)D-PCTT^[#D9MEK)D1PELNES )@@G@@DDIC8)D[JD( ^@)^@)^@)^@)CDOE-I^[#D9GD- C(I^[#CDKE[N^@)^@)^@)^@)^@)^@)D-PET )@@G@@CTT^[#D9MEK)C-M^@)E@)D8)C-MCDRC(M^@1A80^@)^@)^@)^[#D[ ETOC(MC1DC(GC))^@)EU )@@G@@^[QCC2AS8AS2^@)^@)EL ETP*[@@@@*SDFF*@^@@_@-315,315 CNSLI 32.0 @A@@@@EV )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@E@@@@ TNE,U A6,'$' EW )@@G@@ . ALLOW '$!' ONLY @E@@@@ JK 12,MON1C EX )@@G@@ . IF JK 12 IS SET @A@@@@. <<< END NYU LOCAL CODE <<<@^@@_@EY )@@G@@-356,356 CNSLI 32.0@]@@@@. NYU*** @E@@@@ L,U A5,0EZ )@@G@@46 . CURSOR = UNDERLINE@^@@_@-434,434 CNSLI 32.0@]@@@@FA )@@G@@. NYU*** @E@@@@ L,U A6,046 . CURSOR = UNDFB )@@G@@ERLINE@^@@_@-453,453 CNSLI 32.0@]@@@@. NYU*** @E@@@@ L,FC )@@G@@U A6,046 . CURSOR = UNDERLINE@^@@_@-590,590 CNSLI FD )@@G@@ 32.0@]@@@@. NYU*** @E@@@@ L,U A6,046 . FE )@@G@@CURSOR = UNDERLINE___^@) 0)CTPELND9M^@.^[PD1^C(MD-DD1 @A_@@@ *3BC8 )3BC8FF )@@G@@^@)CTIETGDC)^@)^@)AS1 00@A_@_@ *4AS4 )4AS4^@)CTIETGDC)^@)^@)AS1 00@A@@_@FG )@@G@@*[@@@@*SDFF*@^@@@@-1618,1620 CSI2 32.0@A@@@@. >>> BEGIN NYU LOFH )@@G@@CAL CODE >>>@E@@@@ L,H1 A2,1,A0 . GET FIRST CHFI )@@G@@AR @F@@@@ TNE,U A2,'X ' . IS RUN TO BE ABORTFJ )@@G@@ED? @^@@@@ J MSG2@A@@@@. <<< END NYU LOCAL CODFK )@@G@@E <<<___^@)^@)DDI^[PD1[E-OC(IC- C))D(JC- ^@*DLF*[@@@@*SDFF*@^@@@@-260 FL )@@G@@ CSI2 32.0@]@@@@. NYU*** @F@@@@ TE,U A5,050 FM )@@G@@ . HOME PAPER ON @XQT, TOO @^@@@@-1600 CSI2 32.0@A@@@@FN )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @F@@@@. IN UNATTFO )@@G@@ENDED MODE (JK 11 SET) TURN ALL @MSG,W'S INTO @D@@@@. @MSG'S AFP )@@G@@ND TELL USER 'SYSTEM IS UNATTENDED.'@[@@@@. @F@@@@ JK FQ )@@G@@ 11,NOOPR . IS SYSTEM UNATTENDED? @A@@@@. <<< END NFR )@@G@@YU LOCAL CODE <<<@^@@@@-1603 CSI2 32.0@A@@@@. >>> BEGIN FS )@@G@@NYU LOCAL CODE >>>@D@@@@ J MSG1 . GO DO FT )@@G@@COM$ @A@@@@NOOPRM 'SYSTEM IS UNATTENDED.' @E@@@@NOOPR FU )@@G@@ . SYSTEM UNATTENDED @D@@@@ LA A4,AFV )@@G@@0 . SAVE A0 @E@@@@ LA A0,(0104,NOOPRM)FW )@@G@@ . GET PRINT PKT @D@@@@ ER PRINT$ . FX )@@G@@PRINT MSG @D@@@@ LA A0,A4 . RESTORE A0 FY )@@G@@@D@@@@ L,U A4,042 . RESTORE A4 @A@@@@. FZ )@@G@@ <<< END NYU LOCAL CODE <<<___^[[A@)^@)@I@@@@^@)^@)^@)^@)^@)D-[^@)^@)GA )@@G@@^@)^@)CC0 )*A@1A@4 -ID9JE[MD*(^@)^@) 0)C9 E))E[MDDIE))E[FE))@H@@@@^@)^@)GB )@@G@@*[@@@@*SDFF*@^@@@@-190,190 CSF 31.0@G@@@@ F2 052,GC )@@G@@2,CKPARX . AVOID HANG IN CHKPAR TIL FIXED ___^[DD0)CTCDTKCDM^[ODDGGD )@@G@@^[ADDSC(^^@)___@@@@@@@@@*[@@@[*SDFF*@ @@_@ *1A09A8?AC6BC7^[#ETF^@)AS2 00GE )@@G@@@]@@_@ 0)D1TE*% K%@B@@_@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^9@C[@C[@C@$@A@@_@GF )@@G@@ *1A80A0?AC7A@6^[#ETF^@)^@3AK,A@)^@)@]@@_@ 0)D1TE*% K%@B@@_@^@)^@)^@)^@)GG )@@G@@^@)^@)^@)^@)^@)^@)^9@C[@C[@C@$@ @@_@ *1A81AC?AC7AC1^[#ETF^@)AS2 00@]@@_@GH )@@G@@ 0)D1TE*% K%@B@@_@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^9@C[@C[@C@$@ @@_@ *1A81GI )@@G@@A0?AC7AC6^[#ETF^@)AS2 00@]@@_@ 0)D1TE*% K%@B@@_@^@)^@)^@)^@)^@)^@)^@)^@)GJ )@@G@@^@)^@)^9@C[@C[@C@$___D1TE*% K%@B@@_@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^9@C[@GK )@@G@@C[@C@$___FOZ(@@I\B/K@@C:*[@@@@*SDFF*@^@@_@-1 EXMISC 32.0@#@@@@GL )@@G@@ CSDOC @#@@@@ CQDEF @^@@_@-220 EXMISC 32.0GM )@@G@@@A@@@@/. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @C@@@@. ERGN )@@G@@ ID$ - RETRIEVE/SET LIB/EXEC-ID @[@@@@. @]@@@@ID1ER* . @D@@@@GO )@@G@@ TZ BOOTSW . BOOTING? @F@@@@ TZGP )@@G@@,S1 BUFR-3 . AND FIRST CALL ON ID$? @H@@@@ J GQ )@@G@@ JSTGET . NO, SKIP LIBLEVEL/LIBTAPE STORE @H@@@@GR )@@G@@ L A0,UA0 . YES, PICK UP LIBLEVEL FROM USEGS )@@G@@R @F@@@@ . (SYS DOING @WATLIBGT )@@G@@). @D@@@@ S A0,BUFR-1 . AND STORE IT@F@@@@GU )@@G@@ DL A0,UA1 . GET LIBTAPE NUMBERS @E@@@@GV )@@G@@ DS A0,BUFR-3 . STORE THEM, TOO @D@@@@JSTGETGW )@@G@@ L A0,BUFR-1 . GET LIBLEVEL@E@@@@ DL GX )@@G@@ A1,BUFR . AND EXEC LEVEL @D@@@@ S A0,UGY )@@G@@A0 . GIVE THEM @D@@@@ DS A1,UA1 GZ )@@G@@ . TO THE USER @D@@@@ J EROUT . AND GOHA )@@G@@ AWAY @A@@@@. <<< END NYU LOCAL CODE <<<@^@@_@-612 EXMISC HB )@@G@@ 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@C@@@@ L HC )@@G@@ A1,SD,X10 . PCT @E@@@@ L,U A3,040 HD )@@G@@ . SET TO CHECK PRIV @E@@@@ L A4,EA5 . HE )@@G@@NEW PSR IN A4 @G@@@@ TEP A0,WONLY . W-ONLYHF )@@G@@ SET IN PREVIOUS PSR? @E@@@@ J $+3 . HG )@@G@@YES, KEEP IT SET @E@@@@ TOP A3,AY,A1 . USER PHH )@@G@@RIVILEGED? @H@@@@ AND A4,NWONLY . NO, NO W-ONLHI )@@G@@Y IF NOT SET BEFORE @A@@@@. <<< END NYU LOCAL CODE <<<@^@@_@HJ )@@G@@-615 EXMISC 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@ @@@@HK )@@G@@ TEP A3,AY,A1 @C@@@@ J EROUT HL )@@G@@ . PRIV'D@G@@@@ TEP A4,WONLY . WRITE BIT INHM )@@G@@ NEW PSR? @G@@@@ TEP A0,WONLY . YES, SHN )@@G@@ET IN OLD PSR ALSO? @G@@@@ J EROUT . HO )@@G@@OK, NOT CHANGING WRITE BIT @H@@@@ L,U A2,PSRERR HP )@@G@@ . KILL IF SETTING W-ONLY AND NOT PRIV @ @@@@ J ERRAHQ )@@G@@L @A@@@@. <<< END NYU LOCAL CODE <<<@^@@_@-629,629 EXMISC HR )@@G@@ 32.0@]@@@@. NYU*** @ @@@@WONLY + 1*/30 @^@@_@-631 HS )@@G@@ EXMISC 32.0@]@@@@. NYU*** @ @@@@NWONLY - 1*/30 HT )@@G@@@^@@_@-654 EXMISC 32.0@B@@@@/. >>> BEGIN NYU LOCAL CODE >>HU )@@G@@> @[@@@@. @[@@@@. @ @@@@. P O I N T E R $ @[@@@@HV )@@G@@. @G@@@@. RETURNS EXEC POINTERS IN USER REGISTERS, AND SETS HW )@@G@@ABSOLUTE @C@@@@. ADDRESSING AND WRITE-PROTECT MODES @[@@@@HX )@@G@@. @A@@@@. CALL: ER POINTER$ @[@@@@. @D@@@@POINTEHY )@@G@@R* L A0,SD,X10 . PCT ADDRESS @E@@@@ DL HZ )@@G@@ A1,BI,A0 . GET ACCT NUMBER @E@@@@ DAN A1,(IA )@@G@@'0-0040S ') . SYSTEMS ACCT? @F@@@@ DJZ A1,$+4 IB )@@G@@ . YES,$+4 NO,CHECK PRIV @E@@@@ L A0,AY,A0 IC )@@G@@ . GET 'ABORT FLAG' @D@@@@ TOP,U A0,040 ID )@@G@@ . PRIVILEGED? @E@@@@ J EROUT . NOPE,EIE )@@G@@ROUT YES @D@@@@ L A0,SC,X10 . A0 = ASA IF )@@G@@@D@@@@ L A1,FL,A0 . A1 = PSR @G@@@@ IG )@@G@@ OR A1,(1*/34++1*/30) . WRITE PROTECT AND ABS ADDR'ING@D@@@@IH )@@G@@ SA A2,FL,A0 . RESTORE PSR @F@@@@ LAII )@@G@@ A0,MDBASE . LOAD EXEC DBANK ABS ADDR@F@@@@ LXIJ )@@G@@I,U A0,LOCTAB . LOAD ADDR OF LOCTAB @F@@@@ LAIK )@@G@@,U A1,MAXDEM . LOAD MAX OPEN DEMAND @F@@@@ LXIL )@@G@@I,H2 A1,CSHOLD . LOAD MAX OPEN BATCH @E@@@@ DSIM )@@G@@ A0,UA0 . SET UP USER A0, A1@F@@@@ LA IN )@@G@@ A0,BOOTTIME$ . LOAD TIME OF LAST BOOT @H@@@@ LA,U IO )@@G@@ A1,0 . ADDR OF CORE MAP (WAS CCACM ON 27) @G@@@@ IP )@@G@@ LXI,U A1,TSCRQ . LOAD ADDR OF DA STATUS TABLES @E@@@@IQ )@@G@@ DS A0,UA2 . SET UP USER A2, A3@D@@@@ IR )@@G@@ DL A0,BUFR . GET EXEC ID @E@@@@ DS IS )@@G@@ A0,UA4 . SET UP USER A4, A5@F@@@@. L A0,(IT )@@G@@EXPSIZ,EXBPST) . LOAD EXPOOL ADDRESSES @E@@@@. SA A0,UIU )@@G@@A6 . PUT INTO USER'S A6@E@@@@ J EROUT IV )@@G@@ . RETURN TO USER @[@@@@/. @[@@@@. @#@@@@. S IW )@@G@@L R $ @[@@@@. @D@@@@. RETURNS STORAGE LIMITS FOR CALLING ACTIX )@@G@@IVITY @[@@@@. @ @@@@. CALL: ER SLR$ @ @@@@. REIY )@@G@@TURNS SLR IN A0 @[@@@@. @C@@@@ERSLR* L A1,SC,X10 IZ )@@G@@ . ASA @C@@@@ L A1,FJ,A1 . SLR @E@@@@JA )@@G@@ S A1,UA0 . PUT IN USER'S A0 @C@@@@ JB )@@G@@ J EROUT . EXIT @A@@@@. <<< END NYU LOCJC )@@G@@AL CODE <<<___ EXMISC *[@@@@*SDFF*@^@@_@-19,19 EXPOOL 32.0@]@@@@JD )@@G@@. NYU*** @G@@@@RECBIN* EQU 1 . WE WANT COMPJE )@@G@@LETE RECOMBINING ___^@)^@)^@)^@)^@)^@)^@)^@)^@)*[@@@@*SDFF*@ @@_@-300,3JF )@@G@@02 FASEC 32.0 @A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@JG )@@G@@. @D@@@@. MAKE SURE DAS IS UP TO DATE IF UNIT SATURATED (RCR) @[@@@@JH )@@G@@. @]@@@@NORMEY . @F@@@@ L,U A4,014 . JI )@@G@@LOAD ABS WRITE CODE @D@@@@ TZ DASWRT . JJ )@@G@@WRITE DAS? @E@@@@ LMJ X11,IOW . WRITE SECT TJK )@@G@@O DRUM@A@@@@. <<< END NYU LOCAL CODE <<<___^@)^@)^@)^@)^@)^@)^@)JL )@@G@@ 0)E9MDDOC*)C-[ES_@J@@@@^@)^@)^@)^@)^@)D-HDK)^@)*[@@@@*SDFF*@E@@_@-391 JM )@@G@@ FCUI 32.0 CCF *** FIX FITEM$ R/W BITS @F@@@@ L JN )@@G@@ X8,A3 . SAVE PCT ITEM ADDRESS @E@@_@-429,429 FCJO )@@G@@UI 32.0 CCF *** FIX FITEM$ R/W BITS @G@@@@ L JP )@@G@@ A4,PCFRW,X8 . GET READ/WRITE INDICATORS @E@@_@-432,432 FCJQ )@@G@@UI 32.0 CCF *** FIX FITEM$ R/W BITS @G@@@@ L JR )@@G@@ A0,PCFRWF,X8 . GET R/W KEYS NEEDED INDICATOR ___ -BCK?CC3@E_@@@JS )@@G@@ *6A02 )6A86^@)C1#E(D^@)^@)^@)CT#C0)^S1A@0AK!A@0*[@@@@*SDFF*@^@@_@-659,6JT )@@G@@59 FH 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. JU )@@G@@@[@@@@. @^@@@@. RCR STALL FIX @[@@@@. @G@@@@. IFJV )@@G@@ LOG TAPE IS ON LOCAL (FE HAS TAPE SUBSYSTEM), FIRST ATTEMPT@E@@@@. JW )@@G@@ TO WRITE ON LOG TAPE CAUSES STALL (JOC 0,$) . @[@@@@. @E@@@@JX )@@G@@ L,U X9,0310 . SET WAIT COUNT @E@@@@ JY )@@G@@ JOC 0,$+2 . CHANNEL BUSY? @D@@@@ J JZ )@@G@@ $+2 . NO, GO ON @E@@@@ JGD EX9,KA )@@G@@$-2 . YES, TRY AGAIN @A@@@@. <<< END NYU LOCAL CODKB )@@G@@E <<<___^):AK)^@)^@)^@)^@)^@)^@)^@) 0)CTCCDID1 D))CLPETTB8)@H@@@@^@)^@)KC )@@G@@*[@@@@*SDFF*@^@@_@-12 E8ID 32.0@A@@@@. >>> BEGIN NYU LOKD )@@G@@CAL CODE >>>@E@@@@ISITDLOC + 0 . FLAG FOR MSCKE )@@G@@ON @G@@@@DRTPMSG + 0 . DIRECTORY TAPE # FKF )@@G@@OR 'C ID' @E@@@@LIBTAPES + '@[>*<] [>*<]' . LIBRARY TAPEKG )@@G@@ #'S @H@@@@ . S1 OF LIBTAPES MUSKH )@@G@@T BE @ INITIALLY @E@@@@LIBID + ' [>*<]' . LIBLEVKI )@@G@@EL ID @A@@@@. <<< END NYU LOCAL CODE <<<___^@)^@)^@)^@)^@)KJ )@@G@@*[@@@@*SDFF*@^@@_@-1471 FIBRKI 32.0@A@@@@. >>> BEGIN NYU LOKK )@@G@@CAL CODE >>>@[@@@@. @D@@@@. START OF LIMIT HIGH-SPEED DRUM CATALOKL )@@G@@GUING CODE @[@@@@. @G@@@@ JK 12,ASGZZ4 . KM )@@G@@SKIP TOGGLE CODE IF JK12 IS ON@ @@@@ TZ FIA6,X11 @F@@@@KN )@@G@@ J ASGZZ1 . NO OPT CHECK ON CAT CARD@D@@@@KO )@@G@@ L A3,(1*/('Z'-'C')+1*/('Z'-'U')) @A@@@@ ANKP )@@G@@D A3,FIA38,X11 @H@@@@ JZ A4,ASGZZ4 . KQ )@@G@@NO CHECK IF NOT CAT OPTS ON ASG @A@@@@ASGZZ1 L A3,('SYS$ KR )@@G@@ ') @A@@@@ L A4,('SUNSHI') @E@@@@ TE KS )@@G@@ A3,FIA8,X11 . IF QUAL IS SYS$ OR@F@@@@ TNE A4,FKT )@@G@@IA8,X11 . IF QUAL IS SUNSHINE, @G@@@@ J ASGZKU )@@G@@Z4 . NO TOGGLE AND NO H.S. LIMIT @B@@@@ DL KV )@@G@@ A3,('WORKSPACE$ ') . @F@@@@ DTE A3,FIA9,X11 . KW )@@G@@IS THIS A DUM TPF$? @C@@@@ J $+2 . KX )@@G@@NOPE @F@@@@ J ASGZZ4 . YES, ALLOW H.S. DRKY )@@G@@UM @E@@@@ L A3,FIA12,X11 . GET FICON INDEX KZ )@@G@@@C@@@@ TE,U A3,FITAPE+11 . F ? @F@@@@ TLLA )@@G@@E,U A3,FITAPE+4 . OR FCS, F4, OR F17 ? @E@@@@ L,LB )@@G@@U A3,FITAPE+4 . YES, LIMIT TO F30 @A@@@@ L,H1 LC )@@G@@ A4,FICONV,A3 @ @@@@ LSSL A4,18 @ @@@@ A,LD )@@G@@H2 A4,SPACES @G@@@@ S A4,FIAEQP,X11 . RESET LE )@@G@@FIELD DATA EQUIP TYPE @E@@@@ S A3,FIA12,X11 . LF )@@G@@RESET FICONV INDEX@^@@@@ASGZZ4 . END LIMIT CODE@F@@@@ L LG )@@G@@ A3,FIA12,X11 . RELOAD FICONV INDEX @A@@@@. <<< END NLH )@@G@@YU LOCAL CODE <<<___@@@^@)^@)^@)^@)^@)DK)^@)^@)^@)^@)^):AK)^@)^@)^@)^@)LI )@@G@@^@)^@)^@)^@) 0)D1JE[ ^@)@K@@@@^@)^@)^@)^@)^@)DK)*[@@@@*SDFF*@^@@_@-2003 LJ )@@G@@ FICKAF 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. LK )@@G@@@F@@@@. SPECIAL CODE FOR UNATTENDED OPERATION -- ANY REMOVABLE DISC LL )@@G@@@F@@@@. PACKS WHICH ARE ALREADY MOUNTED MAY BE REFERENCED, BUT THERE'S LM )@@G@@@F@@@@. NO OPERATOR PRESENT TO MOUNT A CURRENTLY UNMOUNTED PACK, SO LN )@@G@@@E@@@@. GIVE THE USER A FAC REJECT IF HE TRIES TO ASSIGN A PACK @C@@@@LO )@@G@@. THAT ISN'T ALREADY THERE (IF JK 11 IS SET). @[@@@@. @H@@@@ LP )@@G@@ JK 11,DSKERR . SYSTEM UNATTENDED? CAN'T MOUNT PACK LQ )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<___BC0^@)C1DCTFCDA^@)^@)AS1 00LR )@@G@@^@)^@)CT#C0) K% K)C1DF@)A@5A@)ETOD9KES?^[RELJD1B^[ACD#^[]DDOES)^@)@F_@@@LS )@@G@@*[@@@@*SDFF*@^@@_@-1368 FREL 32.0@A@@@@. >>> BEGIN NYU LOLT )@@G@@CAL CODE >>>@[@@@@. @B@@@@. AVOID FILLING UP EXPOOL WITH FRSEC CALLSLU )@@G@@@[@@@@. @ @@@@SECWAT L,U A3,FRSEC @ @@@@ LMJ LV )@@G@@ X11,SEGNMC@A@@@@ L A3,SGWCNT,A3 @ @@@@ TLLW )@@G@@E,U A3,010 @ @@@@ J SECWA1 @ @@@@ L,LX )@@G@@U A1,LWAIT @ @@@@ ER TWAIT$ @ @@@@ J LY )@@G@@ SECWAT @]@@@@SECWA1 . @A@@@@. <<< END NYU LOCAL CODLZ )@@G@@E <<<___D1J ))ETFDDK^[ACDOCLG^[PE[^CDOC*)@A_@@@ *6A80 )6A81^@)C1MC(G^@)MA )@@G@@^@)^@)AS1 00@J_@@@ 0)CT#C0% K%^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MB )@@G@@^@)^@) 0)^S1A@0AK!A@0BC!*[@@@@*SDFF*@C@@_@-678 REMID **RCR** ACCOUNTINMC )@@G@@G INFO FOR STEVE @A@@@@ L A2,QRD$DT,A1 @E@@@@ MD )@@G@@ L,H1 A0,014,A2 . CARD IN COUNT @ @@@@ S,ME )@@G@@H1 A0,7,A3 @E@@@@ L A0,017+017,A2 . CARD OMF )@@G@@UT COUNT @ @@@@ S,H2 A0,7,A3 @D@@@@ L MG )@@G@@ A0,015+017,A2 . PRINT COUNT @ @@@@ L,S1 A4,8,A3 MH )@@G@@@ @@@@ S A0,8,A3 @ @@@@ S,S1 A4,8,A3 MI )@@G@@___AS)@I@@@@^@)^@)^@)^@)*[@@@@*SDFF*@^@@@@-246 RMCPC 31.0@A@@@@MJ )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR RMK )@@G@@EMOTE 1130 @[@@@@. @ @@@@ L A2,GNCTLC @B@@@@ ML )@@G@@ L,H1 A2,2,A2 PKTAD . @E@@@@ L A2,ELECHR,MM )@@G@@A2 . GET 1130 FLAG @E@@@@ TNE,U A2,ELEVID MN )@@G@@ . IS IT AN 1130? @G@@@@ L,U A1,ELESIZ . MO )@@G@@YES, GET CORRECT BLOCK SIZE @A@@@@. <<< END NYU LOCAL CODE <<>> BEGIN NYU LOCAL COMQ )@@G@@DE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. @ @@@@MR )@@G@@ L A2,GNCTLC @A@@@@ L,H1 A2,2,A2 PKTAD .MS )@@G@@@A@@@@ L A2,ELECHR,A2 @ @@@@ TNE,U A2,EMT )@@G@@LEVID @ @@@@ L,U A1,ELESIZ @A@@@@. <<< END NYU LOCMU )@@G@@AL CODE <<<@^@@@@-550,551 RMCPC 31.0@A@@@@. >>> BEGIN NYU LOMV )@@G@@CAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. MW )@@G@@@ @@@@ L,U A1,330 @ @@@@ L A2,GNCTLC MX )@@G@@@B@@@@ L,H1 A2,2,A2 PKTAD . @A@@@@ L MY )@@G@@ A2,ELECHR,A2 @ @@@@ TNE,U A2,ELEVID @ @@@@ L,MZ )@@G@@U A1,ELESIZ @ @@@@ TNE A1,MAXSIZ @A@@@@. <<< NA )@@G@@ END NYU LOCAL CODE <<<___D1N^[AD9M^[MC(HD9OC*)AC1AS0@[@@@@ 0)^@)@B@@@@NB )@@G@@*[@@@@*SDFF*@^@@@@-77 RMPB 31.0@A@@@@. >>> BEGIN NYU LONC )@@G@@CAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. ND )@@G@@@ @@@@ L A2,PKTAD @A@@@@ L A2,ELECHR,NE )@@G@@A2 @ @@@@ TNE,U A2,ELEVID @ @@@@ L,U A1,ENF )@@G@@LESIZ @A@@@@. <<< END NYU LOCAL CODE <<<___^@)^@)^@)^@)D)?E*)^@)NG )@@G@@^@)^@)CC1 - D- ETDFK)^@)@D@@@@ 0)^@)^@)^@)B)/B))^[ D1^^[IFDP^[GD9#CDG^[#NH )@@G@@D9^C*)^@/B)/___E-IEK)^@)^@)^@)^@)^@) 0)C*1^[ID9O^[ID9MD([D))D9I^[PD1 D1CNI )@@G@@*[@@@@*SDFF*@^@@@@-162,162/7 RMPNC 31.0@A@@@@. >>> BEGIN NYU LONJ )@@G@@CAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 @[@@@@. NK )@@G@@@ @@@@ L A2,GNCTLP @B@@@@ L,H1 A2,2,A2 PNL )@@G@@KTAD . @A@@@@ L A2,ELECHR,A2 @ @@@@ TNNM )@@G@@E,U A2,ELEVID @ @@@@ L,U A1,ELESIZ @A@@@@. <<< NN )@@G@@ END NYU LOCAL CODE <<<@^@@@@-270 RMPNC 31.0@A@@@@. >>> NO )@@G@@BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR REMOTE 1130 NP )@@G@@@[@@@@. @ @@@@ L A2,GNCTLP @B@@@@ L,H1 NQ )@@G@@ A2,2,A2 PKTAD . @A@@@@ L A2,ELECHR,A2 @ @@@@NR )@@G@@ TNE,U A2,ELEVID @ @@@@ L,U A1,ELESIZ @A@@@@NS )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-537,538 RMPNC 31.0@A@@@@NT )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. PROVISIONS FOR RNU )@@G@@EMOTE 1130 @[@@@@. @ @@@@ L A2,GNCTLP @B@@@@ NV )@@G@@ L,H1 A2,2,A2 PKTAD . @ @@@@ L,U A4,330 NW )@@G@@@A@@@@ L A2,ELECHR,A2 @ @@@@ TNE,U A2,ENX )@@G@@LEVID @ @@@@ L,U A4,ELESIZ @ @@@@ TNE A4,MNY )@@G@@AXBUF @A@@@@. <<< END NYU LOCAL CODE <<<___^@)CC0 )4 -[AS)@C_@@@NZ )@@G@@^@)^@)^@)^@)^@)CDIC)?E*)^@)^@)CC0 )!E[METGD9^^@)@B_@@@^@)^@)^@)^@)^@)ES?OA )@@G@@E)1^@)^@)^@)CC1 )4 -[AS)@C_@@@^@)^@)^@)^@)^@)D)?*[@@@@*SDFF*@C@@_@-472 OB )@@G@@ RMPNC 32.0 RCR 063-STOP FIX @A@@@@. >>> BEGIN NYU LOOC )@@G@@CAL CODE >>>@ @@@@ L,T1 A0,4,A3 @ @@@@ AND,U OD )@@G@@ A0,-PRSLOD@ @@@@ S,T1 A1,4,A3 @ @@@@ L,U OE )@@G@@ A1,SYMPRS @ @@@@ TEP,U A0,PRSLOD @ @@@@ LMJ OF )@@G@@ X11,SEGREL@A@@@@. <<< END NYU LOCAL CODE <<<___E-IC*?E*)^@)^@)OG )@@G@@CC2 - D- E1DC))^@)@C_@@@^@)^@)^@)^@)^@)D)?E*)^@)^@)^@)CC1 - D- ETDFK)^@)OH )@@G@@@D_@@@ 0)^@)^@)^@)B)/B))^[ D1^^[IFDP^[GD9#CDG^[#*[@@@@*SDFF*@ @@@@-18 OI )@@G@@ RMSRTN 31.159 @A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@OJ )@@G@@DLT1 EQU 0 . @F@@@@DLT3 EQOK )@@G@@U 1 . TURN ON CODE FOR 1130 @A@@@@. <<< OL )@@G@@ END NYU LOCAL CODE <<<___E-PELI^[JD0)CTJC- ^[AD9M^@1AC3A@)@D@@@@ 0)^@)OM )@@G@@^@)^@)B)/B))^[ D1^^[IFDP*[@@@@*SDFF*@^@@_@-263 RSIPUT 32.0@A@@@@ON )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @C@@@@. ASSUME COO )@@G@@ORE QUEUEING MODE INITIALLY @[@@@@. @B@@@@ L A4,ROP )@@G@@SBIT1,A3 . @B@@@@ OR,U A4,RSCORQ . @B@@@@OQ )@@G@@ S A5,RSBIT1,A3 . @A@@@@. <<< END NYU LOCOR )@@G@@AL CODE <<<___^@) 0)^@)@F@@@@^@)^@)^@)^@)^@)D9M -P^@)^@)^@)CC4 -MET#D9MOS )@@G@@EC)^@)^@)^@)^@)^@) 0)^@)@F@@@@^@)^@)^@)^@)^@)ES)^@)^@)^@)^@)CC5 -MET]DDOOT )@@G@@AC?CC3^@)^@)^@)^@) 0)^@)*[@@@@*SDFF*@G@@_@-291,292 SMALTS 32.0 - ALLOOU )@@G@@W AUTO-ASG OF FILE FOR DEMAND & R/T **NYU ___C))^0)EK\E)) K%D1TE*)@M_@_@OV )@@G@@ *2BC1 )2B@6^@)ETHCDGE-N^@)AS1 00^@) *)CDGD-JE8)*[@@@@*SDFF*@^@@_@-410,4OW )@@G@@10 SMNXTP 32.0@]@@@@. NYU*** @E@@@@ TLE,U A1,LWAIT*4OX )@@G@@ . MAX TWAIT VALUE @^@@_@-1142 SMNXTP 32.0@A@@@@. OY )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@H@@@@ J DELETE OZ )@@G@@ . THIS RETURN IS ONLY FOR END OF TAPE @F@@@@ . EITHER MUST PA )@@G@@QUIT, OR CALL TINTL$ TO DO REWIND BEFORE @B@@@@ . CONTINUING WPB )@@G@@ITH NEXT LABEL. @A@@@@. <<< END NYU LOCAL CODE <<<@^@@_@-1330 PC )@@G@@ SMNXTP 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@A@@@@ PD )@@G@@ S X11,NXTRTN,A2 @F@@@@ L,U A4,10 PE )@@G@@ . 10 BLOCKS BETWEEN PAUSES @ @@@@MOVAGN JGD A4,MOVAG1 @E@@@@PF )@@G@@ LMJ X11,PAUSE . LET OTHER SEGS GO @^@@@@ PG )@@G@@ GETSWL A3 @ @@@@ L A3,SE,A3 @ @@@@ L PH )@@G@@ A1,SMOLNK @A@@@@ L A2,SMOQSV,A1 @A@@@@ PI )@@G@@ L A0,BUFSAV,A2 @A@@@@ L X11,NXTRTN,A2 PJ )@@G@@@ @@@@ L,U A4,10 @]@@@@MOVAG1 . @A@@@@. <<< PK )@@G@@ END NYU LOCAL CODE <<<@^@@_@-1333,1333 SMNXTP 32.0@]@@@@. NYU*** PL )@@G@@@E@@@@ J MOVAGN . CONTINUE TO EOF @^@@_@PM )@@G@@-1336,1336 SMNXTP 32.0@]@@@@. NYU*** @C@@@@ J MOVAPN )@@G@@GN . $J YES ___^@)^@)^@)^@)C9 E-NE9G^@)^@)CC3^@)@B@@@@^@)^@)PO )@@G@@^@)^@)^@)D))^@)^@)^@)^@)*[@@@@*SDFF*@^@@_@-29,29 SYMACT 32.0@]@@@@PP )@@G@@. NYU*** @E@@@@ TLE,U A1,LWAIT*4 . MAX TWAIT VAPQ )@@G@@LUE ___@@@ 0)D1TE*% K%@J@@@@^@)^@)^@)^@)^@)E-G*[@@@@*SDFF*@^@@_@-2 PR )@@G@@ TEST1 32.0@]@@@@. NYU*** @#@@@@ SLEVEL @^@@_@-72 PS )@@G@@ TEST1 32.0 @A@@@@. >>> BEGIN NYU LOCAL CODE >>>@E@@@@ PT )@@G@@ L,H1 A5,0,A0 . GET KEYIN TYPE @G@@@@ L,PU )@@G@@U R1,NKEYS . GET NO OF POSSIBLE GOOD ONES @B@@@@ PV )@@G@@ L A1,K10 . @E@@@@ SE,H1 A5,KEYS,*APW )@@G@@1 . LOOK FOR KEYIN @D@@@@ J KEYERR PX )@@G@@ . NO FIND @A@@@@ L,H2 A1,KEYS-1,A1 @E@@@@ PY )@@G@@ J 0,A1 . HANDLE THIS KEYIN @[@@@@. @B@@@@PZ )@@G@@KEYS + 'MS ',MSKEY . @B@@@@ + 'CU QA )@@G@@',CUKEY . @B@@@@ + 'LB ',LBKEY . @B@@@@QB )@@G@@ + 'T1 ',T1KEY . @B@@@@NKEYS EQU $-KEQC )@@G@@YS . @[@@@@/. @A@@@@. T H E M S K E Y I N QD )@@G@@@[@@@@. @F@@@@. DISPLAYS TRACKS/POSITIONS AVAILABLE ON MASS QE )@@G@@STORAGE @[@@@@. @G@@@@. ENQF )@@G@@HANCED MAY 73 - D. KURLAND @[@@@@. @[@@@@. @A@@@@. KEQG )@@G@@YIN FORMAT: MS @[@@@@. @F@@@@. IF IS NOT PQH )@@G@@RESENT, THEN A SUMMARY OF AVAILABLE @E@@@@. SPACE FOR EACH MASS QI )@@G@@STORAGE EQUIPMENT TYPE IN THE @D@@@@. CONFIGURATION WILL BE DISPQJ )@@G@@LAYED IN THE FORM:@[@@@@. @C@@@@. EQUIP TRACKS/POQK )@@G@@SITIONS @[@@@@. @F@@@@. IF DEVICE IS PRESENT, IT MAY BE QL )@@G@@ANY OF THE FOLLOWING: @[@@@@. @G@@@@. A. AN EQUIPMENT TYPEQM )@@G@@ (F2, FB, F4, F8, F17, F14, F40, FCS) @E@@@@. IF THIS IS QN )@@G@@THE CASE, THE DISPLAY WILL BE IN THE@F@@@@. SAME FORMAT AS ABQO )@@G@@OVE, BUT ONLY FOR THAT EQUIPMENT. @[@@@@. @F@@@@. B. A SUBQP )@@G@@SYSTEM NUMBER (1 OR 2 DIGITS) - THIS MUST BE @H@@@@. A MASQQ )@@G@@S STORAGE SUBSYSTEM, OR 'MS KEY ERROR' WILL BE DISPLAYED. @E@@@@. QR )@@G@@ IF THE SUBSYSTEM IS FOUND IN FATBL, THE DISPLAY@F@@@@. QS )@@G@@ WILL CONSIST OF THE AVAILABLE TRACKS/POSITIONS ON @F@@@@. QT )@@G@@ EACH UNIT OF THAT SUBSYSTEM. IF A UNIT IS DOWN (OR, @F@@@@. QU )@@G@@ IN THE CASE OF DISC UNITS, HAS NO PACK MOUNTED OR @G@@@@. QV )@@G@@ IS BEING PREPPED OR REGISTERED OR SOMETHING) THE TRACKS @E@@@@. QW )@@G@@ AND POSITIONS WILL PRINT AS QUESTION MARKS. @[@@@@. @F@@@@QX )@@G@@. C. A SUBSYSTEM/UNIT NUMBER (UNIT 1 DIGIT ONLY). SAME @F@@@@QY )@@G@@. DISPLAY AS FOR SUBSYSTEM, BUT THIS UNIT ONLY. IF THE@H@@@@QZ )@@G@@. UNIT IS NOT FOUND IN FATBL, 'MS KEY ERROR' WILL BE DISPLAYERA )@@G@@D. @[@@@@. @F@@@@. D. A PACKID - IF MOUNTED, THE SS/UU ITRB )@@G@@'S ON WILL BE @G@@@@. DISPLAYED. IF NOT, 'PACKID NOT MOURC )@@G@@NTED' WILL BE DISPLAYED.@[@@@@. @[@@@@. @G@@@@COM EQUF RD )@@G@@ 10,A0 . START OF CONSOLE OUTPUT BUFFER @[@@@@. @E@@@@RE )@@G@@MSKEY S A0,R2 . SAVE BUFFER ADDR @B@@@@ RF )@@G@@ L,U A1,'/' . @F@@@@ S A1,COM+5 RG )@@G@@ . $P PUT SLASH IN MESSAGE @E@@@@ SZ COM RH )@@G@@ . $P SET UP COM$ PKT @B@@@@ L,U A1,COM+3 RI )@@G@@ . @B@@@@ LXI,U A1,24 . @B@@@@ S RJ )@@G@@ A1,COM+1 . @B@@@@ SZ COM+2 RK )@@G@@ . @F@@@@ L,H2 A1,0,A0 . $P GET CHARACTER CORL )@@G@@UNT @E@@@@ JZ A1,ALL . $T WAS THERE ANY? RM )@@G@@@D@@@@ . $A NO,ALL YES@G@@@@ RN )@@G@@ L A1,1,A0 . $P GET THE TYPE THAT HE TYPED @G@@@@RO )@@G@@ L,U R1,TYPESL . $P GET REPEAT COUNT FOR SEARCH RP )@@G@@@B@@@@ L A3,K10 . @E@@@@ SE RQ )@@G@@ A1,TYPES,*A3 . $T IS IT FOR REAL? @E@@@@ J TRYSRR )@@G@@S . NO, TRY SS NUMBER @F@@@@ S A1,COM+3 RS )@@G@@ . $P YES, PUT IT IN MSG @G@@@@ L,H1 A1,FATBL-1RT )@@G@@,A3 . GET POINTER TO TRACKS AVAIL @F@@@@ JZ A1,KRU )@@G@@EYERR . $T BUT DOES IT EXIST @E@@@@ RV )@@G@@ . $A NO,KEYERR YES @F@@@@ SZ R1 RW )@@G@@ . FAKE TO PRINT ONE ONLY @C@@@@ J ONE RX )@@G@@ . $J ONE @B@@@@ALL L,U R1,TYPESL-1 . @B@@@@RY )@@G@@LOOP L A2,R1 . @G@@@@ L,H1 A1,FRZ )@@G@@ATBL,A2 . GET POINTER TO TRACKS AVAIL @G@@@@ JZ SA )@@G@@ A1,SKIP . IS THERE REALLY ONE OF THESE? @E@@@@ L SB )@@G@@ A2,TYPES,A2 . $P GET NEXT TYPE @E@@@@ S SC )@@G@@ A2,COM+3 . $P PUT IT IN MSG @F@@@@ONE L,H2 R3,2SD )@@G@@,A1 . POS AVAIL THIS EQUIP @F@@@@ L A1,1SE )@@G@@,A1 . TRACKS AVIL THIS EQUIP @H@@@@ LSSL A1,1SF )@@G@@2 . GET RID OF DISC ROTATION POINTER @F@@@@ SSSG )@@G@@L A1,12 . BRING BACK THOSE TRACKS! @G@@@@ LMSH )@@G@@J X11,CONBD . $W CONVERT TRACKS TO DECIMAL @E@@@@ SI )@@G@@ L A0,R2 . RESTORE BUFFER ADDR@F@@@@ S SJ )@@G@@ A2,COM+4 . $P AND PUT THEM IN MSG @B@@@@ L SK )@@G@@ A1,R3 . @E@@@@ LMJ X11,CONBD SL )@@G@@ . $P NOW DO POSITIONS@B@@@@ L A0,R2 . SM )@@G@@@D@@@@ S A2,COM+6 . STORE POS @B@@@@ SN )@@G@@ L,U A0,COM . @E@@@@ ER COM$ SO )@@G@@ . $W PRINT OUT MSG @B@@@@ L A0,R2 SP )@@G@@ . @D@@@@SKIP JGD R1,LOOP . $T ALL DONE? @E@@@@SQ )@@G@@ J EXIT . $A YES,EXIT NO,LOOP@[@@@@. SR )@@G@@@C@@@@. PROCESS 'MS SS' AND 'MS SS/U' KEYINS @[@@@@. @E@@@@SS )@@G@@TRYSS SZ COM-2 . CLEAR SS/U FLAG @G@@@@ ST )@@G@@ SZ COM-3 . CLEAR PRINTED-SOMETHING FLAG @E@@@@SU )@@G@@ L,U A2,057 . LOW VALUE AND @G@@@@ SV )@@G@@ L,U A3,071 . HIGH VALUE FOR TW NUMERIC @D@@@@SW )@@G@@ L,S1 A5,1,A0 . GET 1ST CHAR@D@@@@ TWSX )@@G@@ A2,A5 . NUMERIC? @E@@@@ J TRYPSY )@@G@@AK . NO, MAY BE PACKID @D@@@@ AN,U A5,060 SZ )@@G@@ . STRIP OFF FD@D@@@@ L,S2 A4,1,A0 . TA )@@G@@2ND CHAR @C@@@@ TNE,U A4,5 . SPACE?@G@@@@TB )@@G@@ J ONEDIJ . YES, IT'S A 1-DIGIT SS NO. TC )@@G@@@C@@@@ TE,U A4,'/' . SLASH?@F@@@@ J TD )@@G@@ TWODIJ . NO, MUST BE 2-DIGIT SS @D@@@@ L,TE )@@G@@S3 A6,1,A0 . 3RD CHAR @D@@@@ TW A2,ATF )@@G@@6 . NUMBER? @E@@@@ J KEYERR TG )@@G@@ . NO,KEYERR YES @D@@@@ AN,U A6,060 . TH )@@G@@STRIP OFF FD@F@@@@ SN,H2 A6,COM-2 . SET SS/U SPETI )@@G@@C'D FLAG @D@@@@ J ONEDIJ . CONTINUE TJ )@@G@@@D@@@@TWODIJ TW A2,A4 . NUMBER? @E@@@@ TK )@@G@@ J TRYPAK . NO, MAY BE PACKID @D@@@@ ANTL )@@G@@,U A4,060 . STRIP OFF FD@F@@@@ MSI,U A5,1TM )@@G@@0 . FORM 2-DIGIT SS NUMBER @B@@@@ A A5,ATN )@@G@@4 . @D@@@@ L,S3 A6,1,A0 . 3RD CHTO )@@G@@AR @C@@@@ TNE,U A6,5 . SPACE?@E@@@@ TP )@@G@@ J ONEDIJ . YES, CONTINUE @G@@@@ TETQ )@@G@@,U A6,'/' . NOT A SPACE, MUST BE SLASH @E@@@@ TR )@@G@@ J TRYPAK . NO, MAY BE PACKID @D@@@@ L,TS )@@G@@S4 A6,1,A0 . 4TH CHAR @D@@@@ TW A2,ATT )@@G@@6 . NUMBER? @E@@@@ J KEYERR TU )@@G@@ . NO,KEYERR YES @D@@@@ AN,U A6,060 . TV )@@G@@STRIP OFF FD@F@@@@ SN,H2 A6,COM-2 . SET SS/U SPETW )@@G@@C'D FLAG @F@@@@ONEDIJ L,U X9,7 . TYPES IN FATTX )@@G@@BL (-1) @G@@@@SLOOP TNZ,H1 FATBL,X9 . ANY OF THIS TY )@@G@@TYPE CONFIGURED? @D@@@@ J SLOOPE . NO, SKTZ )@@G@@IP IT @G@@@@ L,H1 X4,FATBL,X9 . GET POINTER TO UNIUA )@@G@@T TABLE @F@@@@ L,T1 R1,0,X4 . NO. OF UNITSUB )@@G@@ THIS TYPE @E@@@@ JGD R1,$+1 . LESS 1 FOR JUC )@@G@@GD @G@@@@ A,U X4,3 . MOVE TO START OF UUD )@@G@@NIT INFO @F@@@@ SZ COM-1 . ASSUME NOT DUE )@@G@@ISC EQUIP @E@@@@ L A1,X9 . GET FATBL INUF )@@G@@DEX @B@@@@ TE,U A1,5 . @C@@@@ TNUG )@@G@@E,U A1,6 . DISC? @E@@@@ S A1,COM-1 UH )@@G@@ . YES, SET FLAG @E@@@@ULOOP TE,T1 A5,1,X4 UI )@@G@@ . RIGHT SS NUMBER? @E@@@@ J ULOOPE . UJ )@@G@@NO, TRY NEXT UNIT @D@@@@ L,S3 A2,1,X4 . GET UNUK )@@G@@IT NO.@C@@@@ TZ COM-1 . DISC? @G@@@@ UL )@@G@@ SSL A2,2 . YES, SHIFT IT RIGHT 2 BITS @E@@@@UM )@@G@@ TG,U A2,070 . WEIRD UNIT NO? @F@@@@ UN )@@G@@ AN,U A2,070 . YES, MAKE IT NORMAL @E@@@@ UO )@@G@@ TNZ COM-2 . UNIT NO. SPEC'D? @E@@@@ J UP )@@G@@ $+3 . NO, SKIP TEST @E@@@@ TE UQ )@@G@@ A2,A6 . RIGHT UNIT NUMBER?@E@@@@ J ULOOUR )@@G@@PE . NO, TRY NEXT UNIT @E@@@@ L A3,SPACES US )@@G@@ . SPACE-FILL A3 @H@@@@ A,U A2,'/0' UT )@@G@@ . CONV UNIT TO FD (ASSUME 1 DIGIT) @D@@@@ DSL A2,1UU )@@G@@2 . MOVE INTO A3@D@@@@ L,T1 A1,1,X4 UV )@@G@@ . GET SS NO. @E@@@@ LMJ X11,CONBD . CONVERUW )@@G@@T TO DEC FD @D@@@@ DSL A2,12 . MOVE INTO A3UX )@@G@@@F@@@@ L A0,R2 . RETRIEVE BUFFER ADDR UY )@@G@@@E@@@@ S A3,COM+3 . STORE SS/U IN MSG @F@@@@UZ )@@G@@ TP 0,X4 . UNIT UP OR SUSPENDED? @G@@@@VA )@@G@@ J QMARK . NO, INSERT QUESTION MARKS VB )@@G@@@D@@@@ TNZ COM-1 . DISC EQUIP? @G@@@@ VC )@@G@@ J NOTDSC . NO, SKIP PACKID TEST, ETC. @E@@@@VD )@@G@@ TNZ 4,X4 . ANY PACK MOUNTED? @E@@@@ VE )@@G@@ J QMARK . NO, CAN'T DO THIS @E@@@@ L,VF )@@G@@T3 A1,2,X4 . GET POS AVAIL @F@@@@ JN VG )@@G@@ A1,QMARK . QMARK IF FUNNY CONDITION@D@@@@ L,H2 VH )@@G@@ A1,1,X4 . ASG COUNT @E@@@@ SSL A1,16 VI )@@G@@ . GET PREP/REG BITS @F@@@@ JNZ A1,QMARK VJ )@@G@@ . PREP/REG? YES,QMARK NO@E@@@@NOTDSC L,H1 A1,2,X4 VK )@@G@@ . GET TRACKS AVAIL @E@@@@ LMJ X11,CONBD . VL )@@G@@CONVERT TO DEC FD @E@@@@ L A0,R2 . GET BUVM )@@G@@FFER ADDR @F@@@@ S A2,COM+4 . STORE TRACKSVN )@@G@@ IN MSG @D@@@@ L,T3 A1,2,X4 . POS AVAIL VO )@@G@@@E@@@@ LMJ X11,CONBD . CONVERT TO DEC FD @E@@@@VP )@@G@@ L A0,R2 . GET BUFFER ADDR @F@@@@HUH VQ )@@G@@ S A2,COM+6 . STORE POSITIONS IN MSG @E@@@@ VR )@@G@@ L,U A0,COM . COM$ PKT ADDR @C@@@@ ERVS )@@G@@ COM$ . DO IT @E@@@@ L A0,R2 VT )@@G@@ . GET BUFFER ADDR @F@@@@ S A0,COM-3 VU )@@G@@ . SET DID-SOMETHING FLAG @D@@@@ULOOPE A,U X4,4 VV )@@G@@ . NEXT UNIT @C@@@@ TZ COM-1 . DISC? VW )@@G@@@G@@@@ A,U X4,1 . MUST ADD 5 FOR DISC EQUIVX )@@G@@P @E@@@@ JGD R1,ULOOP . GET NEXT UNIT VY )@@G@@@E@@@@SLOOPE JGD X9,SLOOP . NEXT EQUIP TYPE @E@@@@VZ )@@G@@ TZ COM-3 . DID ANYTHING? @E@@@@ WA )@@G@@ J EXIT . ALL DONE, EXIT @F@@@@KEYERR L,WB )@@G@@U A0,COM1 . GET 'KEY ERROR' MSG @D@@@@COMDLR ERWC )@@G@@ COM$ . DISPLAY MSG @F@@@@EXIT L A0,RWD )@@G@@2 . RESTORE BUFFER ADDR @G@@@@ LMJ X11,WE )@@G@@EXREL . $W RELEASE CONSOLE BUFFER @C@@@@ FUNCE WF )@@G@@ . FUNCE @[@@@@. @E@@@@QMARK L,U A2,'WG )@@G@@?' . GET QUESTION MARK @F@@@@ S A2,COM+4 WH )@@G@@ . STORE IN TRACKS AREA @G@@@@ J HUH WI )@@G@@ . STORE IN POS, AND DISPLAY @[@@@@. @A@@@@. PRWJ )@@G@@OCESS 'MS PACKID' KEYINS@[@@@@. @E@@@@TRYPAK L A5,1,A0 WK )@@G@@ . GET THE PACKID @E@@@@ S A5,COM+3 WL )@@G@@ . STORE IT IN MSG @F@@@@ L,U X9,1 . WM )@@G@@SEARCH ONLY THE DISCS @H@@@@DLOOP TNZ,H1 FATBL+5,X9 . WN )@@G@@ANY OF THESE DISC THINGEES AROUND? @G@@@@ J DLOOPE WO )@@G@@ . NAH, TRY NEXT EQUIPMENT TYPE @H@@@@ L,H1 X4,FWP )@@G@@ATBL+5,X9 . GET POINTER TO UNIT STATUS TABLE @H@@@@ L,WQ )@@G@@T1 R1,0,X4 . GET NUMBER OF UNITS THIS EQUIP TYPE @E@@@@WR )@@G@@ JGD R1,$+1 . LES 1 FOR JGD @E@@@@ WS )@@G@@ A,U X4,3 . POINT TO UNIT INFO@G@@@@PLOOP TEWT )@@G@@ A5,4,X4 . DOES UNIT HAVE CORRECT PACKID?@E@@@@ WU )@@G@@ J PLOOPE . NO, TRY NEXT UNIT @E@@@@ L,WV )@@G@@S3 A3,1,X4 . GET UNIT NUMBER @G@@@@ SSL WW )@@G@@ A3,2 . CORRECT FOR 20-BIT DISC ADDR @F@@@@ A,WX )@@G@@U A3,'/0' . CONVERT UNIT # TO FD @G@@@@ DSWY )@@G@@L A3,12 . MOVE INTO A4 (A4 NOW '/U????')@D@@@@ WZ )@@G@@ L,T1 A1,1,X4 . GET SS # @F@@@@ LMJ XA )@@G@@ X11,CONBD . CONVERT IT TO FD DECIMAL@G@@@@ L XB )@@G@@ A0,R2 . RESTORE BUFFER ADDR TO A0 @G@@@@ AUXC )@@G@@,U A2,050000 . ADD A SPACE (A3 NOW '@@@ SS') @G@@@@ XD )@@G@@ DSL A3,24 . ADD TO UNIT (A4 NOW '@ SS/U') @E@@@@XE )@@G@@ L A3,(' IS ON') . GET REST OF MSG @G@@@@ XF )@@G@@ J PAKMSG . STORE MSG, DISPLAY, AND EXIT @F@@@@XG )@@G@@PLOOPE A,U X4,5 . MOVE UP TO NEXT UNIT @D@@@@XH )@@G@@ JGD R1,PLOOP . MORE UNITS? @E@@@@DLOOPE JGXI )@@G@@D X9,DLOOP . MORE EQUIP TYPES? @G@@@@ DL XJ )@@G@@ A3,(' NOT MOUNTED') . DIDN'T FIND PACKID ANYWHERE @F@@@@PAKMSG DSXK )@@G@@ A3,COM+4 . STORE APPROPRIATE MSG @B@@@@ SZXL )@@G@@ COM+6 . @E@@@@ L,U A0,COM XM )@@G@@ . GET COM$ PKT ADDR @F@@@@ J COMDLR . XN )@@G@@DISPLAY MSG AND EXIT @[@@@@. @D@@@@. CONVERT BINARY TO DECIMAL @ XO )@@G@@FILLED FROM A1 TO A2 @[@@@@. @B@@@@CONBD L X3,(-6,30)XP )@@G@@ . @B@@@@ L,U A2,0 . @B@@@@ XQ )@@G@@ L,U A0,0 . @B@@@@BNB DI,U A0,10 XR )@@G@@ . @B@@@@ A,U A1,'0' . @B@@@@ XS )@@G@@ DSL A1,6 . @B@@@@ JZ A0,$+3 XT )@@G@@ . @B@@@@ DSL A0,36 . @B@@@@ XU )@@G@@ JMGI X3,BNB . @B@@@@ TN,XU 0,X3 XV )@@G@@ . @B@@@@ SSC A2,0,X3 . @B@@@@ XW )@@G@@ J 0,X11 . @B@@@@TYPES 'F2' XX )@@G@@ . @B@@@@ 'FB' . @B@@@@ XY )@@G@@ 'F4' . @B@@@@ 'F8' XZ )@@G@@ . @B@@@@ 'F17' . @B@@@@ YA )@@G@@ 'F14' . @B@@@@ 'F40' YB )@@G@@ . @B@@@@ 'FCS' . @ @@@@TYPESLYC )@@G@@ EQU $-TYPES @B@@@@COM1 + 0 . YD )@@G@@@B@@@@ + 13,MSERR . @B@@@@ + YE )@@G@@ 0 . @B@@@@MSERR 'MS KEY ERROR@' . YF )@@G@@@[@@@@/. @D@@@@. THE LB KEYIN - DISPLAY TIME OF LAST BOOT YG )@@G@@@[@@@@. @E@@@@LBKEY S A0,R2 . SAVE BUFFER YH )@@G@@ADDR @B@@@@ SZ COM . @E@@@@ SZYI )@@G@@ COM+2 . SET UP COM$ PACKET@D@@@@ L,U YJ )@@G@@ A1,COM+3 . START OF MSG@D@@@@ LXI,U A1,30 YK )@@G@@ . 30 CHARS @B@@@@ S A1,COM+1 . YL )@@G@@@E@@@@ DL A1,('LAST BOOT: @') . GET START OF MSG @E@@@@YM )@@G@@ DS A1,COM+3 . STORE IN BUFFER @E@@@@ YN )@@G@@ DL A1,(' AT HRS') . GET REST OF MSG @E@@@@ DSYO )@@G@@ A1,COM+6 . STORE IN BUFFER @G@@@@ L,H1 YP )@@G@@ A1,BOOTTIME$ . GET BOOT TIME FROM EXMISC @E@@@@ ANYQ )@@G@@D,U A1,0770000 . MASK OUT THE MONTH@D@@@@ DSL YR )@@G@@ A2,48 . FOR DIVIDE @F@@@@ DI,U A2,10 YS )@@G@@ . CONVERT TO FD DECIMAL @B@@@@ A,U A2,060 YT )@@G@@ . @E@@@@ S,S1 A2,COM+5 . STORE 1ST CHYU )@@G@@AR @B@@@@ L,U A2,060,A3 . @E@@@@ S,YV )@@G@@S2 A2,COM+5 . STORE 2ND CHAR @D@@@@ L,U YW )@@G@@ A2,'/' . GET A SLASH @D@@@@ S,S3 A2,COM+5 YX )@@G@@ . ADD TO MSG @D@@@@ AND,U A1,07700 . YY )@@G@@NOW GET DAY @E@@@@ DSL A2,42 . SHIFT FOR DIYZ )@@G@@VIDE @F@@@@ DI,U A2,10 . CONVERT TO FD DECIZA )@@G@@MAL @B@@@@ A,U A2,060 . @E@@@@ S,ZB )@@G@@S4 A2,COM+5 . STORE 1ST CHAR @B@@@@ L,U ZC )@@G@@ A2,060,A3 . @B@@@@ LSSL A2,6 . ZD )@@G@@@F@@@@ S,T3 A2,COM+5 . STORE CHAR FOLLOWED BY @ZE )@@G@@@F@@@@ L,H2 A1,BOOTTIME$ . GET TIME SINCE MIDNITE ZF )@@G@@@B@@@@ DSL A1,36 . @D@@@@ DI,U ZG )@@G@@ A1,3600 . GET HOURS @E@@@@ S A2,A4 ZH )@@G@@ . SAVE REMAINDDER @F@@@@ DSL A1,36 ZI )@@G@@ . MOVE HOURS FOR DIVIDE @F@@@@ DI,U A1,10 ZJ )@@G@@ . CONVERT TO FD DECIMAL @B@@@@ A,U A1,060 ZK )@@G@@ . @E@@@@ S,S5 A1,COM+6 . STOPRE 1ST DIGIT ZL )@@G@@@B@@@@ L,U A1,060,A2 . @E@@@@ S,S6 ZM )@@G@@ A1,COM+6 . STORE 2ND CHAR @E@@@@ L A1,AZN )@@G@@4 . RETRIEVE REMAINDER@B@@@@ DSL A1,36 ZO )@@G@@ . @D@@@@ DI,U A1,60 . GET MINUTES ZP )@@G@@@B@@@@ DSL A1,36 . @F@@@@ DI,U ZQ )@@G@@ A1,10 . CONVERT TO FD DECIMAL @B@@@@ A,U ZR )@@G@@ A1,060 . @E@@@@ S,S1 A1,COM+7 . ZS )@@G@@STORE 1ST DIGIT @B@@@@ L,U A1,060,A2 . @E@@@@ZT )@@G@@ S,S2 A1,COM+7 . STORE 2ND DIGIT @F@@@@ ZU )@@G@@ L,U A0,COM . GET ADDR OF COM$ PKT @D@@@@ ZV )@@G@@ ER COM$ . DISPLAY MSG @H@@@@ J ZW )@@G@@ EXIT . RELEASE BUFFER & LEAVE PEACEFULLY @I@@@@/. ZX )@@G@@ . CU-KZY )@@G@@EY @I@@@@. THIS CODE HANDLES THE 'CU' KEYIN ZZ )@@G@@ . CU-KEY @I@@@@. AA )@@G@@ . CU-KEY @I@@@@. THERE ARE TWO AB )@@G@@FORMS . CU-KEY @I@@@@. AC )@@G@@ . CU-KAD )@@G@@EY @I@@@@. CU AE )@@G@@ . CU-KEY @I@@@@. AF )@@G@@ . CU-KEY @I@@@@. AND AG )@@G@@ . CU-KEY @I@@@@. AH )@@G@@ . CU-KAI )@@G@@EY @I@@@@. CU RUNID AJ )@@G@@ . CU-KEY @I@@@@. AK )@@G@@ . CU-KEY @I@@@@. THE 'CU' KEYINAL )@@G@@ DISPLAYS ALL RUNS CURRENTLY IN CORE . CU-KEY @I@@@@. AM )@@G@@ ALONG WITH THE PROGRAM SIZE AND PROGRAM NAME. 'CU RUNID' . CU-KAN )@@G@@EY @I@@@@. DISPLAYS SIZE AND NAME FOR THE SPECIFIED RUN AO )@@G@@ . CU-KEY @I@@@@. AP )@@G@@ . CU-KEY @I@@@@COMPKT EQUF 0,A0AQ )@@G@@ . COM$PACKET ( 3 WORDS ) . CU-KEY @I@@@@ZRUNIDAR )@@G@@ EQUF 3,A0 . RUNID . CU-KAS )@@G@@EY @I@@@@ZSIZE EQUF 5,A0 . PROGRAM SIZE (1K CHUAT )@@G@@NKS) . CU-KEY @I@@@@ZPN EQUF 7,A0 . PRAU )@@G@@OGRAM NAME ( 2 WORDS ) . CU-KEY @I@@@@. AV )@@G@@ . CU-KEY @I@@@@. AW )@@G@@ . CU-KAX )@@G@@EY @I@@@@CUKEY. AY )@@G@@ . CU-KEY @I@@@@. AZ )@@G@@ . CU-KEY @I@@@@. GET RUNID, IF BA )@@G@@SPECIFIED . CU-KEY @I@@@@. BB )@@G@@ . CU-KBC )@@G@@EY @I@@@@ SZ A5 . RUNID HERE, IF ANY BD )@@G@@ . CU-KEY @I@@@@ TZ,H2 0,A0 . IFBE )@@G@@ THERE WAS ANYTHING THERE . CU-KEY @I@@@@ L A5,1BF )@@G@@,A0 . GET IT . CU-KEY @I@@@@. BG )@@G@@ . CU-KBH )@@G@@EY @I@@@@. NOW SET UP COM$ PACKET AND BUFFER BI )@@G@@ . CU-KEY @I@@@@. BJ )@@G@@ . CU-KEY @I@@@@ L,U A1,'BK )@@G@@ ' . PUT IN SPACES WHERE REQUIRED . CU-KEY @I@@@@ BL )@@G@@ S A1,ZRUNID+1 . . CU-KBM )@@G@@EY @I@@@@ S A1,ZSIZE+1 . BN )@@G@@ . CU-KEY @I@@@@ SZ COMPKT . CLBO )@@G@@EAR JUNK IN PACKET . CU-KEY @I@@@@ LXI,U A1,6BP )@@G@@*6 . MESSAGE LENGTH . CU-KEY @I@@@@ BQ )@@G@@ LXM,U A1,ZRUNID . START OF TEXT . CU-KBR )@@G@@EY @I@@@@ S A1,COMPKT+1 . STASH ACCESS WORD BS )@@G@@ . CU-KEY @I@@@@ SZ COMPKT+2 . CLBT )@@G@@EAR MORE JUNK . CU-KEY @I@@@@ SZ R3 BU )@@G@@ . THIS FLAG SAYS WE PRINTED SOMETH. CU-KEY @I@@@@. BV )@@G@@ . CU-KBW )@@G@@EY @I@@@@. NOW, LOOP THROUGH PCT'S THAT ARE IN CORE BX )@@G@@ . CU-KEY @I@@@@. BY )@@G@@ . CU-KEY @I@@@@ R SLCKBZ )@@G@@Y,SDPCT,R1 . GET TO PROPER LEVEL . CU-KEY @I@@@@ CA )@@G@@ TS TSPCT . LOCK UP PCT'S . CU-KCB )@@G@@EY @I@@@@ L A3,EXPCTA . START WITH FIRST PCTCC )@@G@@ ( EXEC'S) . CU-KEY @I@@@@ZNEXT. CD )@@G@@ . CU-KEY @I@@@@ L A3,ECE )@@G@@P,A3 . GET NEXT PCT ADDRESS . CU-KEY @I@@@@ CF )@@G@@ JZ A3,ZDONE . ZERO LINK SAYS WE'RE THROUGH . CU-KCG )@@G@@EY @I@@@@ TON . CH )@@G@@ . CU-KEY @I@@@@ LSSL A3,9 . CRCI )@@G@@EATE HEMUNGOUS PCT ADDRESS FOR. CU-KEY @I@@@@ S A0,XCJ )@@G@@8 . . CU-KEY @I@@@@ CK )@@G@@ LPCTWC *PCQEA,A3 . . CU-KCL )@@G@@EY @I@@@@ L A0,X8 . CM )@@G@@ . CU-KEY @I@@@@ L,U A3,RUPCTA . CN )@@G@@ . CU-KEY @I@@@@ TOFF CO )@@G@@ . . CU-KEY @I@@@@ CP )@@G@@ L A1,AB,A3 . GET RUNID . CU-KCQ )@@G@@EY @I@@@@ JZ A5,$+3 . IF WE ARE LOOKING FOCR )@@G@@R ONE ONLY . CU-KEY @I@@@@ TE A1,A5 . CHCS )@@G@@ECK FOR IT . CU-KEY @I@@@@ J ZNEXCT )@@G@@T . WASN'T THE RIGHT ONE . CU-KEY @I@@@@ CU )@@G@@ S A1,ZRUNID . STASH IT . CU-KCV )@@G@@EY @I@@@@ DL A1,KB,A3 . GET PROGRAM NAME CW )@@G@@ . CU-KEY @I@@@@ TNE A2,SPACES . $PCX )@@G@@ EDIT OUT SOME TRAILING BLANKS. CU-KEY @I@@@@ L,U A2,0CY )@@G@@ . . CU-KEY @I@@@@ CZ )@@G@@ DS A1,ZPN . STASH IT ALSO . CU-KDA )@@G@@EY @I@@@@ L A1,IK,A3 . PROGRAM SIZE DB )@@G@@ . CU-KEY @I@@@@ DSA A1,36 . CODC )@@G@@NVERT TO 1K DECIMAL CHUNKS . CU-KEY @I@@@@ LSSL A2,9DD )@@G@@ . . CU-KEY @I@@@@ DE )@@G@@ A,U A2,500 . ROUND UP . CU-KDF )@@G@@EY @I@@@@ DI,U A1,1000 . DG )@@G@@ . CU-KEY @I@@@@ S A0,X8 . DH )@@G@@ . CU-KEY @I@@@@ S A3,XDI )@@G@@9 . SAVE REGS FROM GREEDY SUBROUTINE. CU-KEY @I@@@@ DJ )@@G@@ LMJ X11,CONBD . . CU-KDK )@@G@@EY @I@@@@ L A0,X8 . DL )@@G@@ . CU-KEY @I@@@@ L A3,X9 . DM )@@G@@ . CU-KEY @I@@@@ S A2,ZDN )@@G@@SIZE . STASH SIZE . CU-KEY @I@@@@ DO )@@G@@ ER COM$ . SPLAT IT OUT . CU-KDP )@@G@@EY @I@@@@ L,U R3,1 . SET FLAG TO SAY WE SDQ )@@G@@AID SOMETHIN. CU-KEY @I@@@@ J ZNEXT . KEDR )@@G@@EP IT UP . CU-KEY @I@@@@ZDONE. DS )@@G@@ . CU-KEY @I@@@@ DT )@@G@@ CTS TSPCT . LET PCT'S GO . CU-KDU )@@G@@EY @I@@@@ D SDPCT,SLCKY,R1 . BACK TO NORMAL DV )@@G@@ . CU-KEY @I@@@@ TZ R3 . PRDW )@@G@@INT ANYTHING? . CU-KEY @I@@@@ J ZEXIDX )@@G@@T . YEP... . CU-KEY @I@@@@ DY )@@G@@ L A1,ZNC . PRINT PROPER EXCUSE . CU-KDZ )@@G@@EY @I@@@@ TZ A5 . EA )@@G@@ . CU-KEY @I@@@@ L A1,ZNFC . EB )@@G@@ . CU-KEY @I@@@@ S A1,CEC )@@G@@OMPKT+1 . NEW ACCESS WORD . CU-KEY @I@@@@ ED )@@G@@ ER COM$ . PRINT EXCUSE . CU-KEE )@@G@@EY @I@@@@ZEXIT. EF )@@G@@ . CU-KEY @I@@@@ EXRELP A0 . EG )@@G@@ . CU-KEY @I@@@@ FUNCE . EH )@@G@@ . CU-KEY @I@@@@. EI )@@G@@ . CU-KEJ )@@G@@EY @I@@@@. EK )@@G@@ . CU-KEY @I@@@@ZNONE 'NO RUNS IN CORE' . EL )@@G@@ . CU-KEY @I@@@@ZNC + ($-ZEM )@@G@@NONE)*6,ZNONE . . CU-KEY @I@@@@ZNF EN )@@G@@ 'RUN NOT IN CORE' . . CU-KEO )@@G@@EY @I@@@@ZNFC + ($-ZNF)*6,ZNF . EP )@@G@@ . CU-KEY @[@@@@/. @C@@@@. ALLOW T1 KEYINS ONLYEQ )@@G@@ IF JK 12 IS SET @[@@@@. @G@@@@T1KEY JK 12,$+2 ER )@@G@@ . ALLOW T1 ONLY IF JK 12 SET @G@@@@ J EXIT+1 ES )@@G@@ . NO, EXIT (RELEASE BUFFER) @A@@@@. <<< END NYU LOCET )@@G@@AL CODE <<<___ A3,X9 . SAVE REGS FROM GREEDY SUBROUTINEEU )@@G@@. CU-KEY @I@@@@ LMJ X11,CONBD . EV )@@G@@*[@@@@*SDFF*@^@@_@-36 UKEYIN 32.0@A@@@@. >>> BEGIN NYU LOEW )@@G@@CAL CODE >>>@D@@@@ TNE,U A4,'MD' . $T MD KEYIN? EX )@@G@@@E@@@@ J ARBEGIN . $A NO YES,ARBEGIN @A@@@@EY )@@G@@. <<< END NYU LOCAL CODE <<<@^@@_@-54 UKEYIN 32.0@A@@@@EZ )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @G@@@@. THE MD-KFA )@@G@@EYIN ALLOWS THE CONSOLE OPERATOR TO ENTER A MESSAGE @G@@@@. OFFB )@@G@@ UP TO 50 CHARACTERS THAT WILL BE DISPLAYED IMMEDIATELY @G@@@@. FC )@@G@@ AFTER THE RUN CARD IN EACH PRINT FILE. IF THE FIRST CHARACTER@G@@@@FD )@@G@@. IN THE KEYIN IS A '*', THE CURRENT MESSAGE WILL BE DELETED. FE )@@G@@@F@@@@. IF THERE ARE NO CHARACTERS FOLLOWING THE MD, THE CURRENTFF )@@G@@@D@@@@. MESSAGE WILL BE DISPLAYED ON THE CONSOLE. @[@@@@. FG )@@G@@@G@@@@. THIS CODE CAME FROM THE UNIVERSITY OF MARYLAND, WHERE THFH )@@G@@E @^@@@@. KEYIN IS 'AR'.@[@@@@. @F@@@@ARPKT EQUF FI )@@G@@ 10,A2 . PACKET FOR COM$ & IOW$ @]@@@@ARBEGIN . @F@@@@FJ )@@G@@ L A2,A0 . $P BUFFER ADDRESS TO A2 @F@@@@FK )@@G@@ L,H2 A5,0,A2 . $P GET CHARACTER COUNT @F@@@@FL )@@G@@ JZ A5,ARDISP . $T CHARACTER COUNT ZERO? @E@@@@FM )@@G@@ . $A NO YES,ARDISP @F@@@@ FN )@@G@@ L,S1 A4,1,A2 . $P GET FIRST CHARACTER @F@@@@ FO )@@G@@ SZ A0 . $P SET PRINT PACKET TO 0 @F@@@@ FP )@@G@@ TNE,U A4,'*' . $T MESSAGE TO BE DELETED @E@@@@ FQ )@@G@@ J ARDLT . $A NO YES,ARDLT @G@@@@ ANFR )@@G@@,U A5,1 . $P CONVERT CHARACTERS TO WORDS @B@@@@ FS )@@G@@ SZ A4 . @B@@@@ DI,U A4,6 FT )@@G@@ . @G@@@@ TE,U A4,8 . $T MORE THAN 4FU )@@G@@8 CHARACTERS? @E@@@@ J ARDL1 . $A YES NFV )@@G@@O,ARDL1 @F@@@@ L A0,SPACES . $P SPACE FILL FW )@@G@@LAST WORD @F@@@@ S,S3 A0,9,A2 . $P SPACE FILL FX )@@G@@LAST WORD @B@@@@ S,H2 A0,9,A2 . @]@@@@ARDL1 FY )@@G@@ . @E@@@@ A,U A4,0201 . $P ADD SKIP COUNT FZ )@@G@@@G@@@@ L,U A0,ARCSA+1 . $P GET ADDRESS OF CSA BUFFGA )@@G@@ER + 1@F@@@@ LXI A0,A4 . $P FORM PRINT$ PACKEGB )@@G@@T @F@@@@ARDLT S A0,0,A2 . $P PRINT PACKET TO BGC )@@G@@UFFER @G@@@@ L,U A0,ABW$ . $P SET FUNCTION TO AGD )@@G@@BS WRITE @G@@@@ LMJ A1,ARIO . $P WRITE MESSAGE )@@G@@GE IN CSA BUFFER @G@@@@AREND EXRELP UA2 . $W RELEAGF )@@G@@SE KEYIN/WORK BUFFER @D@@@@ FUNCE . $WGG )@@G@@E FUNCE @G@@@@ARDISP L,U A0,ABR$ . $P SET FUNCTIOGH )@@G@@N TO ABS READ @E@@@@ LMJ A1,ARIO . $W INPUTGI )@@G@@ CSA BUFFER @F@@@@ TNZ 0,A2 . $T IS THERE A GJ )@@G@@MESSAGE @E@@@@ J ARNONE . $A YES NO,ARNOGK )@@G@@NE @E@@@@ L,S3 A0,0,A2 . $P GET WORD COUNT GL )@@G@@@E@@@@ MSI,U A0,6 . $P MULTIPLY BY 6 @G@@@@GM )@@G@@ARD1 S,H1 A0,ARPKT+1 . $P CHARACTER COUNT TO PACKET GN )@@G@@@B@@@@ L,U A0,1,A2 . @G@@@@ S,H2 GO )@@G@@ A0,ARPKT+1 . $P BUFFER ADDRESS TO PACKET @B@@@@ SZGP )@@G@@ ARPKT . @B@@@@ SZ ARPKT+2 GQ )@@G@@ . @B@@@@ L,U A0,ARPKT . @F@@@@ ERGR )@@G@@ COM$ . $P OUTPUT RUN MESSAGE @C@@@@ J GS )@@G@@ AREND . $J AREND@F@@@@ARNONE DL A0,('*MD NGT )@@G@@ONE ') . $P SET UP 'NONE' MESSAGE@B@@@@ DS A0,1,A2 GU )@@G@@ . @F@@@@ L,U A0,8 . $P LOAD CHARACGV )@@G@@TER COUNT @C@@@@ J ARD1 . $J ARD1 @E@@@@GW )@@G@@ARIO SZ ARPKT+2 . $P SET UP I/O PACKET@E@@@@ GX )@@G@@ S,T1 A0,ARPKT+3 . $P STORE FUNCTION @E@@@@ L,GY )@@G@@U A3,CSA . $P GET NAME OF CSA @G@@@@ LMJ GZ )@@G@@ X11,SEGNMC . $P CONVERT TO FUNCTION INDEX @E@@@@ L HA )@@G@@ A3,SGDRMA,A3 . $P GET DRUN ADDRESS @G@@@@ AA HB )@@G@@ A3,DCHAN . $P ADD SYSTEM CHANNEL NUMBER @F@@@@ A,HC )@@G@@U A3,ARCSA-SEGBIS . $P ADD BUFFER ADDRESS @G@@@@ S HD )@@G@@ A3,ARPKT+5 . $P STORE ABSOLUTE DRUM ADDRESS @G@@@@ HE )@@G@@ LXI,U A3,10 . $P WORD COUNT FOR ACCESS WORD @G@@@@HF )@@G@@ LXM,U A3,0,A2 . $P CORE ADDRESS FOR ACCESS WORD HG )@@G@@@G@@@@ S A3,ARPKT+4 . $P STORE ACCESS WORD IN PAHH )@@G@@CKET @B@@@@ L,U A0,ARPKT . @E@@@@ ERHI )@@G@@ IOW$ . $P READ OR WRITE @D@@@@ TNZ,S1 HJ )@@G@@ ARPKT+3 . $T I/O ERROR? @F@@@@ J 0,A1 HK )@@G@@ . $E NO, RETURN TO CALLER @E@@@@ XER11 040 HL )@@G@@ . $E YES, STOP EXEC @A@@@@. <<< END NYU LOCAL CODE <<>> BEGIN NYU LOCAL CODE >>>HN )@@G@@@E@@@@ TAB 'S3',SMKEY . QUICK 'SM PR3 S' @E@@@@HO )@@G@@ TAB 'S4',SMKEY . QUICK 'SM PR4 S' @D@@@@ HP )@@G@@ TAB 'GD',DKEY . GENDATE @E@@@@ TAB HQ )@@G@@ 'ML',DKEY . MAINTENANCE LOG @G@@@@ TAB 'MS'HR )@@G@@,TEST1 . MASS STORAGE AVAILABILITY @F@@@@ TAB HS )@@G@@ 'LB',TEST1 . TIME/DATE OF LAST REBOOT@D@@@@ TAB HT )@@G@@ 'CU',TEST1 . CORE USAGE @E@@@@ TAB 'SI',SN$APHU )@@G@@ . DEMAND SITE-ID @A@@@@. <<< END NYU LOCAL CODE <<>> BEGIN IA )@@G@@NYU LOCAL CODE >>>@E@@@@BDISP . DISPLAIB )@@G@@Y MAXOPEN @E@@@@ LA,H2 A5,CSHOLD . RETRIEVE MAXIC )@@G@@OPEN @F@@@@ LMJ X11,FDATA . CONVERT TO FD DECIID )@@G@@MAL @B@@@@ DL A4,('MAXOPEN: @@@') . @D@@@@ DSIE )@@G@@ A4,28,A2 . ADD MSG @B@@@@ SZ 0,A2IF )@@G@@ . @E@@@@ SZ 2,A2 . SET UPIG )@@G@@ COM$ PKT @D@@@@ LXI,U A3,18 . FOR 18 CHARSIH )@@G@@@F@@@@ LXM,U A3,28,A2 . FROM EXPOOL BUFFER+28 II )@@G@@@B@@@@ SA A3,1,A2 . @E@@@@ L,U IJ )@@G@@ A0,,A2 . LOAD PKT ADDR @F@@@@ ER COM$IK )@@G@@ . DISPLAY MAXOPEN VALUE @A@@@@. <<< END NYU LOCIL )@@G@@AL CODE <<<@^@@@@-699 CSK 32.0@A@@@@. >>> BEGIN NYU LOIM )@@G@@CAL CODE >>>@[@@@@. @C@@@@. ALLOW 'T B' KEYIN, FOR BATCH RUNIN )@@G@@S ONLY@[@@@@. @D@@@@ TNE,U A4,'B ' . T B KEIO )@@G@@YIN? @G@@@@ J $+3 . YES, WANT BATCH RUIP )@@G@@NS ONLY @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-721 CSIQ )@@G@@K 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@F@@@@ L IR )@@G@@ X10,R2 . GET EXPOOL BUFFER ADDR @D@@@@ L,IS )@@G@@T1 A4,27,X10 . GET MSG TEXT@D@@@@ TE,U A4,'IT )@@G@@B ' . T B KEYIN? @C@@@@ J NOTSPB IU )@@G@@ . NO @D@@@@ L A4,RTYPE,A3 . GET RUN TYPEIV )@@G@@@D@@@@ TNE,U A4,4 . DEMAND? @D@@@@ IW )@@G@@ J TKEYB . YES, SKIP IT@]@@@@NOTSPB . @A@@@@IX )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-1394 CSK 32.0@]@@@@IY )@@G@@. NYU*** @E@@@@ SZ 23,A2 . CLEAR OUT 'SIZ )@@G@@IZE ='@F@@@@ SZ 24,A2 . SINCE RUN ISN'T OPJA )@@G@@EN! @^@@@@-1439,1439 CSK 32.0@]@@@@. NYU*** @F@@@@ DLJB )@@G@@ A4,TRPROJ,A3 . GET PROJ FOR RC KEYIN @D@@@@ TNJC )@@G@@E A5,SPACES . 1-WD PROJ? @E@@@@ SZ A5 JD )@@G@@ . YES, CLEAR 2ND WD @^@@@@-1515 CSK 32.0@]@@@@JE )@@G@@. NYU*** @G@@@@ SZ 11,A2 . NO 'TIME =' JF )@@G@@IF RUN NOT INCORE @^@@@@-1542,1542 CSK 32.0@A@@@@. >>> BEGIN JG )@@G@@NYU LOCAL CODE >>>@F@@@@ A A3,AL,A3 . POINT JH )@@G@@TO QUAL TABLE @F@@@@ DL A4,*1,A3 . GET PRJI )@@G@@OJ FOR RC KEYIN @D@@@@ TNE A5,SPACES . 1-WD PJJ )@@G@@ROJ? @E@@@@ SZ A5 . YES, CLEAR 2ND WD JK )@@G@@@E@@@@ L A3,QPCT,A0 . RESTORE PCT TO A3 @A@@@@JL )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-1620 CSK 32.0@A@@@@JM )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @E@@@@. REMOVE TJN )@@G@@RAILING BLANKS FROM RUNID IN RC DISPLAY @[@@@@. @F@@@@ L,JO )@@G@@U R1,4 . FOR LAST FIVE CHARS @F@@@@ L JP )@@G@@ X11,(1,0) . CHECK RUNID FOR SPACES @F@@@@ZROS EXJQ )@@G@@ GETCHR,X11 . GET A CHAR OF RUNID @E@@@@ TEJR )@@G@@,U A4,5 . IS IT A SPACE? @E@@@@ J JS )@@G@@ ZROE . NO, WE'RE THROUGH @F@@@@ SZ A4 JT )@@G@@ . YES, GET ZERO IN A4 @D@@@@ EX STRCJU )@@G@@HR,*X11 . REPLACE CHAR@D@@@@ JGD R1,ZROS JV )@@G@@ . MORE TO DO? @E@@@@ZROE . . NO, WEJW )@@G@@'RE FINISHED@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1691,1694 JX )@@G@@CSK 32.0@]@@@@. NYU*** @B@@@@ ' @@@@' JY )@@G@@ . @G@@@@ '@@@@@@' . DON'T WASTE PAGEWRJZ )@@G@@ITER TIME @B@@@@ '@@@@@@' . @B@@@@ KA )@@G@@ '@@@ ' . @^@@@@-1701,1701 CSK 32.0@]@@@@KB )@@G@@. NYU*** @B@@@@ '@@@@@@' . @^@@@@-1703,KC )@@G@@1704 CSK 32.0@]@@@@. NYU*** @B@@@@ '@@@@@@' KD )@@G@@ . @B@@@@ '@@ P' . ___EXT@D@@@@KE )@@G@@ TE,U A4,'B ' . T B KEYIN? @C@@@@ J KF )@@G@@*[@@@@*SDFF*@^@@@@-3199 D5CCR 32.0@A@@@@. >>> BEGIN NYU LOKG )@@G@@CAL CODE >>>@D@@_@. RASH OF MSGS ON CONSOLE WHEN RSI SITE TIMED-OUT KH )@@G@@@A@@@@ L A1,D5FLG1,A3 @F@@@@ TEP,U A1,DKI )@@G@@5FDTC . ARE WE TERMINATING SITE?@F@@@@ J CHKOKJ )@@G@@SC . YES, IGNORE DN STATUS @A@@@@. <<< END NYU LOCKK )@@G@@AL CODE <<<___^@)^@)^@)CTCDTJET#^@)^@)^@)^@)^@)^@)^@) 0)FD ES?^[DC9ID9MKL )@@G@@C*)C-I^[NE-[E-PES)@D@@@@ 0)^@)^@)^@)B)/B))^[ D1^^[IFDP^[GD9#CDG^[#D9^C*)KM )@@G@@*[@@@@*SDFF*@^@@_@-199,199 D5CRIT 32.0@]@@@@. NYU*** @H@@@@STDTRMKN )@@G@@ + CR,077,042 . TERMINATOR,LINE-DELETE,CHAR-DELETE KO )@@G@@@H@@@@-378,379 D5CRIT 32.0 FIX FOR DON POMPLUN...132 CHAR WIDTH FKP )@@G@@OR FRIDEN @^@@@@-650,650 D5CRIT 32.0@]@@@@. NYU*** @G@@@@ KQ )@@G@@ TG,U A4,0200 . ALLOW 0175 AND 0176, TOO. @^@@@@KR )@@G@@-655 D5CRIT 32.0@]@@@@. NYU*** @G@@@@ L,U R1,LKS )@@G@@EGCLL . SEARCH T2 OF TABLE THIS TIME ___ )0AK0A@)^@)^@)^@)^@)KT )@@G@@*[@@@@*SDFF*@D@@_@-455 ERRF0 32.0 NYU** LET R/T HAVE REG DUMPS TOO KU )@@G@@@^@@_@ L A3,SH,A2 @C@@_@ TNE,U A3,2 KV )@@G@@ . R/T? @C@@@@ J XJSTK . YES ___AK)KW )@@G@@@A@@_@^@)^@)^@)^[G^@)^@)^@)^[[AS?ETC -[AK)@G_@@@^@)^@)^@)^[OD1 -P^@)^[[KX )@@G@@AC?AK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@,^[M 9OB8)*[@@@@*SDFF*@^@@@@-3361 KY )@@G@@ FNCCNT 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. KZ )@@G@@@F@@@@. AVOID OCCASSIONAL CPU HANG DUE TO REF TO NON-EXISTENT MEMORY LA )@@G@@@[@@@@. @E@@@@ TZ TSKLNK . IS TASK LINKLB )@@G@@? @C@@@@ J FCDB7A . YES @A@@@@. LC )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-3368,3369 FNCCNT 32.0@A@@@@. LD )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@D@@@@ J FCDBG3 LE )@@G@@ . GO TO FCDBG3@]@@@@FCDB7A . @A@@@@. <<< END NYU LOCAL CODLF )@@G@@E <<<___^@)AS2 00@D@@@@ 0)^@)^@)^@)B0"B0)CL C9DD0)D1TE*)D-JCT[D))CTJC- LG )@@G@@^@"B0"@[@@@@ 0)^@)@K@@@@ 0)CDQD9DC))D9#CT[ETNDDJD1[D))CTKE*)D[[D1B^[^E( LH )@@G@@*[@@@@*SDFF*@B@@_@-90,90 GCCFUN 32.0 TAKE OUT ON @A@@@@. LI )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @F@@@@. CHECK USER'S ALJ )@@G@@CCOUNT NUMBER...FOR MOST ACCOUNTS, ASK @E@@@@. OPERATOR IF ITLK )@@G@@'S OK FOR THIS GUY TO USE RSI$... @E@@@@. FOR SPECIAL ACCOUNTSLL )@@G@@, DON'T NEED OPERATOR'S OK. @[@@@@. @D@@@@ L A0,ULM )@@G@@PCT,X8 . GET PCT ADDR@F@@@@ L X11,K20 LN )@@G@@ . SET ACCT TABLE INDEX @E@@@@ DL A1,BI,A0 LO )@@G@@ . GET ACCT NUMBER @G@@@@ DTE A1,OKAC,X11 . LP )@@G@@ONE OF THE GOOD ACCOUNTS? @E@@@@ J $+2 LQ )@@G@@ . NO, CHECK OTHERS @F@@@@ J NOOPCK . LR )@@G@@YES, NO OPERATOR CHECK @E@@@@ TLEM,U X11,OKACL . LS )@@G@@ALL ACCTS CHECKED?@H@@@@ J $-4 . NO,CHELT )@@G@@CK THE OTHERS YES,ASK OPR @A@@@@. <<< END NYU LOCAL CODE <<>> BEGIN LW )@@G@@NYU LOCAL CODE >>>@^@@@@OKAC '0-0040S '@^@@@@ '0-0040-LX )@@G@@PDP '@ @@@@OKACL EQU $-OKAC @A@@@@. <<< END NYU LOCLY )@@G@@AL CODE <<<@B@@_@-417,417 GCCFUN 32.0 TAKE OUT OFF @B@@@@-459,4LZ )@@G@@60 GCCFUN 32.0 ***RCR FIX*** @B@@@@-463 GCCFUN 32.0 **MA )@@G@@*RCR FIX*** @ @@@@ TOP,U A2,GBTERM @G@@@@ J MB )@@G@@ MAINPY . J IF SITE NOT TERMING NOW @D@@@@ L MC )@@G@@ A4,YFUNC,X8 . GET FUNCTION@E@@@@ TNE,U A4,RMD )@@G@@STRA$ . EMERG SHUTDOWN? @F@@@@ J MAINPZ ME )@@G@@ . YES, DO OTHER SITES @E@@@@ J BDXGEX MF )@@G@@ . ERR IF RSTRM$ CALL@]@@@@MAINPY. @B@@@@-476 GCCFUN MG )@@G@@ 32.0 ***RCR FIX*** @]@@@@MAINPZ. ___^@)*[@@@@*SDFF*@^@@_@-153 MH )@@G@@ LOGIT 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. MI )@@G@@@A@@@@. CHECK FOR LS KEYIN NOW @[@@@@. @E@@@@ TZMJ )@@G@@,H2 LOCW8 . ANY LS KEYINS? @D@@@@ LMJ MK )@@G@@ X10,LSKEY . YES, PROCESS@A@@@@. <<< END NYU LOCAL CODML )@@G@@E <<<@D@@_@-253,254 LOGIT 32.0 NYU** DON'T CHECK LS NOW @^@@_@MM )@@G@@-400,402 LOGIT 32.0 @]@@_@. NYU*** @F@@@@ J EXECMN )@@G@@HN . PROCESS EXEC LOG CHAIN ___^@)*[@@@@*SDFF*@G@@_@-49,49MO )@@G@@ PRTCN 32.0 FIX STALL FOR DMI, SAVE OVERHEAD FOR RSI @D@@@@MP )@@G@@-177 PRTCN 32.0 MOVE LINE 49 TO HERE @ @@@@ LMMQ )@@G@@J A2,PRSTBS ___^@)@M@@_@ *4BC?A)9^@)^@)E[ME-#D0)^@)^@)AS2 00^@)^@)MR )@@G@@^[ADDS^[NE-[D-G^[AD9M^[^D(D ))ET[E1 ^[JE1 ELCC([C))C1JEK)ELNDC)^@)@H@@@@MS )@@G@@ *1A87^@)^@)^@)E[ME-#D0)*[@@@@*SDFF*@D@@_@-38,43 ROLBAK 32.0 NYUMT )@@G@@** DON'T NEED DLOC$ @D@@_@-57,64 ROLBAK 32.0 NYU** DON'T NEEMU )@@G@@D DLOC$ @C@@_@-164,165 ROLBAK 32.0 NYU** IMAGE FOR DLOC$@D@@_@MV )@@G@@-306,315 ROLBAK 32.0 NYU** DON'T NEED DLOC$ @E@@_@-318,318- RMW )@@G@@OLBAK 32.0 NYU** OUR SECURE ASSUMES C OPT @]@@@@/FC /F R/ ___ELJMX )@@G@@*[@@@@*SDFF*@D@@_@-242,252 ROLOUT 32.0 NYU** DON'T NEED DLOC$ MY )@@G@@@D@@_@-402,403 ROLOUT 32.0 NYU** DON'T NEED DLOC$ @C@@_@-533,5MZ )@@G@@34 ROLOUT 32.0 NYU** IMAGE FOR DLOC$ @C@@_@-540,548 ROLOUT 32.0NA )@@G@@ NYU** DON'T NEED DLOC$@E@@_@-550,550- ROLOUT 32.0 NYU** OUR SECURE NB )@@G@@ASSUMES C-OPT @]@@@@/ALC/AL / ___^@)^@)^80*[@@@@*SDFF*@F@@@@-112,1NC )@@G@@20 FIHOLD 32.0 NYU** AVOID EXPOOL FULL OF FIHOLDS ASA'A @E@@@@-284,2ND )@@G@@84 FIHOLD 32.0 *NYU* WAITING FOR A TAPE TO REWIND @A@@@@. >>> NE )@@G@@BEGIN NYU LOCAL CODE >>>@[@@@@. @F@@@@. ALLOW MORE THAN ONE NF )@@G@@ITEM TO BE REMOVED FROM HOLD IF @C@@@@. FREE OF A CATALOGUEDNG )@@G@@ FILE @[@@@@. @G@@@@ JZ A0,SRCHPK NH )@@G@@ . TRY FOR ANOTHER IF CAT FILE @A@@@@. <<< END NYU LOCAL CODNI )@@G@@E <<<___^@)@L@@@@^@)^@)^@)^@)^@)DLU^@)^@)^@)^@)*[@@@@*SDFF*@^@@@@-303,3NJ )@@G@@04 GCCERA 32.0@[@@@@. @F@@@@. RCR FIX*** FIX RANDOM STORE THATNK )@@G@@ HAPPENS ON EVERY ER RSI$ WHEN@G@@@@. EXPOOL IS TIGHT. THINL )@@G@@S INCLUDES ER IN REMID AT EVERY @F@@@@. RUN TERMINATIONNM )@@G@@ (WHETHER RUN HAS RSI$ SITES ACTIVE @^@@@@. OR NOT). @[@@@@NN )@@G@@. @E@@@@ L A1,R3 . GET SWL FOR AXWDCKNO )@@G@@@C@@@@ L A0,SC,A1 . ASA @B@@@@-675,675 GCCNP )@@G@@ERA **TEMP** RCR FIX FOR RSI$@B@@_@. CANNED MSGS DIDN'T HAV BIG ENUF BUNQ )@@G@@FFR @A@@@@ L,U A0,KEX3+33,A0 @ @@@@ TLE,U NR )@@G@@ A0,KEX31 @G@@@@ L,U A0,KEX31 . GET AT LEASTNS )@@G@@ A 31 WORD BUF @ @@@@ LXI X11,A0 ___E(A^[]E(AC1M^@)NT )@@G@@@E@@_@ 0)CT[D1IC(^^[HETBES)C-DC-I^9O^[CCDQ^[]DDB^[ D1PC0)CLPC1AEK)@D@@@@NU )@@G@@^@)^@)^@)^@)^@)D)?E*)^@)*[@@@@*SDFF*@^@@@@-64 DKEY 32.0@A@@@@NV )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @D@@@@. ML AND GD KEYINSNW )@@G@@, FOR MAINTENANCE LOG AND GENDATE. @[@@@@. @F@@@@. GENDATE IS SUPPLNX )@@G@@IED BY SYSGEN RUNSTREAM AND IS STORED IN E8ID. @F@@@@. EACH TIME A 'D' NY )@@G@@KEYIN IS DONE, DKEY CHECKS TO MAKE SURE THAT @E@@@@. THE DATE KEYED INZ )@@G@@N IS NOT BEFORE THE GENDATE. IF IT IS, @F@@@@. DKEY TURNS ON THE ALAROA )@@G@@M AND DISPLAYS THE GENDATE (UNLESS JK 12 @G@@@@. IS SET). THE 'GD' KEYOB )@@G@@IN IS PROVIDED TO JUST DISPLAY THE GENDATE, @#@@@@. IN THE FORM: OC )@@G@@@B@@@@. GENDATE WAS MMDDYY @[@@@@. @F@@@@. THE OD )@@G@@'ML' KEYIN PROVIDES A MEANS OF RECORDING HARDWARE PROBLEMS @F@@@@. AND OE )@@G@@OTHER 'MAINTENANCE LOG' ITEMS OF A GENERAL NATURE. A NORMAL@F@@@@. UNSOOF )@@G@@LICITED-KEYIN LOG ENTRY IS MADE, AND STISTX (OR ANY OTHER @F@@@@. LOG OG )@@G@@ANALYSIS PROGRAM) CAN RETRIEVE THE INFORMAION AND PRINT IT @C@@@@. IN TOH )@@G@@ABULAR FORM. THE FORMAT FOR THE KEYIN IS:@[@@@@. @A@@@@. OI )@@G@@ ML DEVICE TEXT @[@@@@. @C@@@@. WHERE 'DEVICE' MAY BE ANY OFOJ )@@G@@ THE FOLLOWING: @[@@@@. @C@@@@. SS/UU - SUBSYSTEM AND UNITOK )@@G@@ NUMBER @A@@@@. SS - SUBSYSTEM NUMBER @A@@@@. M/OL )@@G@@N - MEMORY NUMBER N @B@@@@. A/N - AIR CONDITIONER NUMBER NOM )@@G@@@ @@@@. P/N - CPU NUMBER N@ @@@@. PW - PAGEWRITER ON )@@G@@@^@@@@. PDP - PDP-11@^@@@@. O - OTHER @C@@@@. OO )@@G@@ + - CONTINUATION OF LAST ML KEYIN @[@@@@. @[@@@@. @F@@@@OP )@@G@@ TNE,U A1,'ML' . IS THIS AN ML KEYIN? @C@@@@OQ )@@G@@ J MLKEY . YUP @F@@@@ TNE,U OR )@@G@@ A1,'GD' . GOT WE A 'GD' KEYIN? @D@@@@ J OS )@@G@@ GDCOM . GUESS SO @A@@@@. <<< END NYU LOCAL CODOT )@@G@@E <<<@^@@@@-129 DKEY 32.0@A@@@@. >>> BEGIN NYU LOCAL COOU )@@G@@DE >>>@[@@@@. @A@@@@. CHECK DATE KEYED IN VS. GENDATE @[@@@@. OV )@@G@@@I@@@@ TNG,U A2,GENYR OW )@@G@@ NYU07220 @I@@@@ J SQUASH OX )@@G@@ NYU07230 @I@@@@ TE,U A2,GENYR OY )@@G@@ NYU07240 @I@@@@ J OZ )@@G@@ CONTIN NYU07250 PA )@@G@@@I@@@@ TNG,U A1,GENMO PB )@@G@@ NYU07260 @I@@@@ J SQUASH PC )@@G@@ NYU07270 @I@@@@ TE,U A1,GENMO PD )@@G@@ NYU07280 @I@@@@ J PE )@@G@@ CONTIN NYU07290 PF )@@G@@@I@@@@ TNG,U A4,GENDAY PG )@@G@@ NYU07300 @I@@@@ J SQUASH PH )@@G@@ NYU07310 @]@@@@CONTIN . @A@@@@. <<< PI )@@G@@ END NYU LOCAL CODE <<<@^@@@@-365 DKEY 32.0@A@@@@. >>> PJ )@@G@@BEGIN NYU LOCAL CODE >>>@G@@@@SQUASH JK 12,CONTIN . PK )@@G@@IF JK 12 IS SET, FORGET IT @I@@@@ III 010 PL )@@G@@ . SOME IDIOT KEYED IN THE WRONG DATE... @G@@@@GDCOM L,U PM )@@G@@ A0,GDPAK . TELL HIM WHAT THE GENDATE WAS @D@@@@ J PN )@@G@@ DKEYX1 . AND GO AWAY @A@@@@/. ML KEYIN SYNTAPO )@@G@@X CHECKER @[@@@@. @ @@@@MLKEY L,U A1,0,A1 @G@@@@ PP )@@G@@ TLE,U A1,6 . ENOUGH INPUT TO MAKE SENSE? @C@@@@PQ )@@G@@ J TYERR . NOPE @D@@@@ L,S1 PR )@@G@@ A1,DAYKEY,A0 . GET 1ST CHAR@E@@@@ TLE,U A1,061 PS )@@G@@ . IS IT A NUMBER? @C@@@@ J $+4 PT )@@G@@ . NOPE @F@@@@ TLE,U A1,072 . IS IT REALLYPU )@@G@@ A NUMBER? @C@@@@ J MLSSNO . YUP @E@@@@PV )@@G@@ J TYERR . NO, OUT OF RANGE @ @@@@ PW )@@G@@ TE,U A1,022 @E@@@@ TNE,U A1,6 . PX )@@G@@IS IT M OR A? @C@@@@ J MLSLASH2 . YES PY )@@G@@@C@@@@ TNE,U A1,025 . P? @C@@@@ J PZ )@@G@@ MLPCHECK . YES @E@@@@ TNE,U A1,024 QA )@@G@@ . O (FOR OTHER)? @C@@@@ J $+3 QB )@@G@@ . YES @C@@@@ TE,U A1,042 . +? @E@@@@QC )@@G@@ J TYERR . NONE OF THE ABOVE @D@@@@ QD )@@G@@ L,S2 A1,DAYKEY,A0 . GET 2ND CHAR@E@@@@ J QE )@@G@@ MLSPACE . CHECK FOR SPACE @D@@@@MLSSNO L,S2 A1,DQF )@@G@@AYKEY,A0 . GET 2ND CHAR@E@@@@ TLE,U A1,060 QG )@@G@@ . IS IT A NUMBER? @F@@@@ J MLSPACE . QH )@@G@@NO, CHECK FOR SPACE @F@@@@ TG,U A1,072 . QI )@@G@@IS IT REALLY A NUMBER? @G@@@@ J MLSLASH2 . QJ )@@G@@NO, GO CHECK FOR SLASH, ETC @E@@@@ L,S3 A1,DAYKEY,A0 QK )@@G@@ . YES, GET 3RF CHAR @C@@@@ TE,U A1,074 . QL )@@G@@SLASH?@F@@@@ J MLSPACE . NO, CHECK FOR SPACQM )@@G@@E @D@@@@ L,S4 A1,DAYKEY,A0 . GET 4TH CHAR@E@@@@QN )@@G@@ TG,U A1,060 . IS IT A NUMBER? @B@@@@ QO )@@G@@ TG,U A1,072 . @C@@@@ J TYERR QP )@@G@@ . NO @D@@@@ L,S5 A1,DAYKEY,A0 . GET 5TQQ )@@G@@H CHAR@C@@@@ TNE,U A1,5 . SPACE?@D@@@@ QR )@@G@@ J DKEYX2 . YES, OKAY @D@@@@ TG,U QS )@@G@@ A1,060 . NO, NUMBER? @B@@@@ TG,U A1,072 QT )@@G@@ . @C@@@@ J TYERR . NO @D@@@@QU )@@G@@ L,S6 A1,DAYKEY,A0 . GET 6TH CHAR@C@@@@MLSPACE TEQV )@@G@@,U A1,5 . SPACE?@C@@@@ J TYERR QW )@@G@@ . NO @E@@@@ J DKEYX2 . YES, CQX )@@G@@HECKS OKAY @D@@@@MLSLASH2 L,S2 A1,DAYKEY,A0 . GET 2ND CHARQY )@@G@@@C@@@@ TE,U A1,074 . SLASH?@C@@@@ J QZ )@@G@@ TYERR . NOPE @D@@@@MLUNITNO L,S3 A1,DAYKEY,RA )@@G@@A0 . GET 3RD CHAR@D@@@@ TG,U A1,060 . RB )@@G@@NUMBER? @B@@@@ TG,U A1,072 . @C@@@@ RC )@@G@@ J TYERR . NOPE @D@@@@ L,S4 A1,DRD )@@G@@AYKEY,A0 . GET 4TH CHAR@C@@@@ TNE,U A1,5 RE )@@G@@ . SPACE?@D@@@@ J DKEYX2 . YES, OKAY RF )@@G@@@D@@@@ TG,U A1,061 . NUMBER? @B@@@@ RG )@@G@@ TG,U A1,072 . @C@@@@ J TYERR RH )@@G@@ . NO @D@@@@ L,S5 A1,DAYKEY,A0 . GET 5TRI )@@G@@H CHAR@E@@@@ J MLSPACE . CHECK FOR SPACE RJ )@@G@@@D@@@@MLPCHECK L,S2 A1,DAYKEY,A0 . GET 2ND CHAR@C@@@@ RK )@@G@@ TE,U A1,034 . PW? @C@@@@ J $+3 RL )@@G@@ . NO @D@@@@ L,S3 A1,DAYKEY,A0 . RM )@@G@@GET 3RD CHAR@E@@@@ J MLSPACE . CHECK FOR SPRN )@@G@@ACE @C@@@@ TNE,U A1,074 . SLASH?@D@@@@ RO )@@G@@ J MLUNITNO . CPU NO. @C@@@@ TE,U RP )@@G@@ A1,011 . PDP? @C@@@@ J TYERR RQ )@@G@@ . NO @E@@@@ L,T2 A1,DAYKEY,A0 . GET NEXT TWORR )@@G@@ CHAR @D@@@@ TE,U A1,02505 . P (SPACE)? @C@@@@RS )@@G@@ J TYERR . NO @D@@@@ J RT )@@G@@ DKEYX2 . REALLY PDP. @A@@@@. <<< END NYU LOCAL CODRU )@@G@@E <<<@^@@@@-382 DKEY 32.0@A@@@@. >>> BEGIN NYU LOCAL CORV )@@G@@DE >>>@I@@@@GDMSG 'GENDATE WAS ' RW )@@G@@ NYU07390 @I@@@@ + GENDATE RX )@@G@@ NYU07400 @I@@@@GDPAK + 0 RY )@@G@@ NYU07410 @I@@@@ RZ )@@G@@ + 18,GDMSG NYU074SA )@@G@@20 @I@@@@ + 0 SB )@@G@@ NYU07430 @A@@@@. <<< END NYU LOCAL CODE <<<___ SC )@@G@@ . SPACE?@D@@@@ *[@@@@*SDFF*@^@@@@-6 LOGIT 32.0@A@@@@SD )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@F@@@@ STDEF SE )@@G@@ . DEFINE SUBSYSTEM TABLE @F@@@@ USTDEF SF )@@G@@ . DEFINE UNIT STATUS BITS @A@@@@. <<< END NYU LOCAL CODSG )@@G@@E <<<@^@@@@-85,85- LOGIT 32.0 @A@@@@.NYU*** ASG LOG WITH CPG OPTISH )@@G@@ONS @]@@@@/040/042/ @^@@@@-846 LOGIT 31.0@A@@@@. >>> SI )@@G@@BEGIN NYU LOCAL CODE >>>@#@@@@ OFF @[@@@@. @B@@@@. SJ )@@G@@ STOP LOG REWIND EXCEPT ON 4/13 @[@@@@. @E@@@@ ON SK )@@G@@ ACMLTP=1 . IF LOG ON TAPE @E@@@@ TZ,S2 LOCWSL )@@G@@8 . LOG ASG'D ALREADY?@D@@@@ J $+3 SM )@@G@@ . YES,$+3 NO@F@@@@ JK 13,SETSW3 . SN )@@G@@4/13 BOOT? FORCE REWIND@F@@@@ J ASGA . SO )@@G@@OTHERWISE JUST @ASG,A @#@@@@ OFF @A@@@@. <<< END NSP )@@G@@YU LOCAL CODE <<<@^@@@@-856 LOGIT 31.0@A@@@@. >>> BEGIN SQ )@@G@@NYU LOCAL CODE >>>@E@@@@ ON ACMLTP=1 . IF LOGSR )@@G@@ IS ON TAPE @G@@@@ L,U A1,59 . SET FOR 1-MISS )@@G@@NUTE MAX WAIT @]@@@@SETSW3A . @G@@@@ L A2,IOSUB+7ST )@@G@@ . GET SUBSYSTEM 7 TABLE ADDR @G@@@@ L A2,SSU )@@G@@TUST,A2 . GET UNIT STATUS TABLE ADDR @F@@@@ L,H1 SV )@@G@@ A2,5,A2 . GET UNIT 5 STATUS BITS @H@@@@ S SW )@@G@@ A2,NGA . SAVE STATUS BITS IN NGA FOR C-KEYINS@E@@@@ SX )@@G@@ TOP,U A2,USTIC . IS IT REWINDING? @F@@@@ J SY )@@G@@ $+3 . NO, GO AHEAD & ASSIGN IT@G@@@@ ERSZ )@@G@@ SWAIT$ . YES, WAIT FOR TAPE TO REWIND @D@@@@ TA )@@G@@ JGD A1,SETSW3A . TRY AGAIN @#@@@@ OFF TB )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-865 LOGIT 31.0TC )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@]@@@@ASGA . @G@@@@ TD )@@G@@ L,U A1,59 . SET FOR MAX 1-MINUTE WAIT @]@@@@TE )@@G@@ASGAA . @G@@@@ L A2,IOSUB+7 . GET SUBSYSTETF )@@G@@M 7 TABLE ADDR @G@@@@ L A2,STUST,A2 . GET UNTG )@@G@@IT STATUS TABLE ADDR @F@@@@ L,H1 A2,5,A2 . TH )@@G@@GET UNIT 5 STATUS BITS @H@@@@ S A2,NGA . TI )@@G@@SAVE STATUS BITS IN NGA FOR C-KEYINS@E@@@@ TOP,U A2,USTIC TJ )@@G@@ . IS IT REWINDING? @F@@@@ J $+3 TK )@@G@@ . NO, GO AHEAD & ASSIGN IT@G@@@@ ER SWAIT$ TL )@@G@@ . YES, WAIT FOR IT TO REWIND @D@@@@ JGD A1,ASGAA TM )@@G@@ . TRY AGAIN @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@TN )@@G@@-882 LOGIT 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@E@@@@TO )@@G@@ L A0,IOSUB+7 . GET SUBSYS 7 TABLE@E@@@@ TP )@@G@@ L A0,STUST,A0 . UNIT STATUS TABLE @C@@@@ L,TQ )@@G@@H1 A1,5,A0 . UNIT 5@G@@@@ AND,U A1,-USTIB TR )@@G@@ . CLEAR B=I TO AVOID REWIND @C@@@@ S,H1 A2,5TS )@@G@@,A0 . RESET @A@@@@. <<< END NYU LOCAL CODE <<<___ TT )@@G@@ 31.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@#@@@@ OFF TU )@@G@@@[@@@@. @B@@@@. STOP LOG REWIND EXCE*[@@@@*SDFF*@#@@@@-623 TV )@@G@@PR$RDS 32.0@^@@@@. CCF*** 1003-052-09609 @D@@@@ S,H1 A1,2TW )@@G@@9,A1 . ALSTCRD @^@@@@-1547,1547 PR$RDS 32.0@]@@@@. NYU*TX )@@G@@** @G@@@@ L,U A2,04 . GET CORRECT SYMB ETY )@@G@@RROR CODE ___^@)CC2 )0A))^@)^@)^@)^@)^@)^@)^@) 0)C9 E))CTJELMC(#E))ETTTZ )@@G@@D(]^[ ELMD9M^[#D9^C*)^@)*[@@@@*SDFF*@^@@_@-2583 SMTAGS 31.0@A@@@@UA )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @E@@@@. REMOTE 1UB )@@G@@130 TAGS (HANDLED BY REMOTE 1004 SYMBIONT)@[@@@@. @G@@@@. NOUC )@@G@@TE THAT ELECHR, ELEVID, AND ELESIZ MUST BE DEFINED, AND THAT@C@@@@. UD )@@G@@ ELESIZ MUST BE A MULTIPLE OF SIX. @[@@@@. @G@@@@ELECHR EQUE )@@G@@UF 0,0,S3 . SIXTH OF SITEID FOR 1130 ID @F@@@@ELEVIDUF )@@G@@ EQU 061 . FD VALUE OF 1130 ID CHAR@G@@@@ELESIZUG )@@G@@ EQU 300 . NO. OF 1130 TEXT CHARS -- MUST@F@@@@UH )@@G@@ . BE A MULTIPLE OF 6 -- @A@@@@UI )@@G@@. <<< END NYU LOCAL CODE <<<___E-T^[ODDH*[@@@@*SDFF*@C@@_@-987,9UJ )@@G@@87- TERLBL 32.0 SOME DUMMY CAN'T TYPE @[@@_@/./,/ ___@_@ 8, 8? 8)^@)UK )@@G@@___@@GR#)^#@O#)^#[/@:@@@R#K^]VP;K@@[;CI@@@O#@@@H!8@@@=R;@@@=?8@@@^R;@@@^UL )@@G@@*[@@@@*SDFF*@^@@@@-34 INDRIV 32.0@E@@@@ RSEQUF UM )@@G@@ . DEFINE RSTHLD @^@@@@-1397,1408 INDRIV 32.0@A@@@@UN )@@G@@/. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @B@@@@. 'SYS' COUO )@@G@@NDITION WORD SETTINGS: @[@@@@. @]@@@@. S3@]@@@@. --UP )@@G@@@^@@@@. 00 - DRUM @^@@@@. 01 - TAPE @[@@@@. UQ )@@G@@@[@@@@. @]@@@@. S4@]@@@@. --@ @@@@. 00 - NO UR )@@G@@SWITCHES @^@@@@. 01 - SWITCH 4 @ @@@@. 02 - SWITCH 4/US )@@G@@13 @ @@@@. 03 - SWITCH 4/9 @^@@@@. 04 - SWITCH 9 UT )@@G@@@[@@@@. @[@@@@. @[@@@@. @E@@@@ TZ,S3 SPUACUFLG UU )@@G@@ . RECOVERY BOOT? @E@@@@ J SUB4AGN UV )@@G@@ . YES,SUB4AGN NO @D@@@@ L,U A4,'3' . UW )@@G@@4/9 BOOT? @E@@@@ JK 9,SUB9 . MAYBE,SUB9 UX )@@G@@ NO @D@@@@ L,U A4,'2' . 4/13 BOOT? @G@@@@UY )@@G@@ JK 13,CANCW2 . YES,CANCW2 (13 IMPLIES 4/13) UZ )@@G@@@D@@@@ L,U A4,'1' . JK4 ONLY? @E@@@@ VA )@@G@@ JK 4,CANCW2 . YES,CANCW2 NO @E@@@@SUB4AGN L,VB )@@G@@U A4,'0' . ASSUME NO SWITCHES@G@@@@ JK VC )@@G@@ 9,SUB9+1 . IF 9 SET, IT'S A DRUM 9 BOOT @B@@@@ J VD )@@G@@ CANCW2 . @D@@@@SUB9 JK 4,CANCW2 VE )@@G@@ . REALLY 4/9? @F@@@@ L,U A4,'4' . YES,CAVF )@@G@@NCW2 NO,JUST 9 @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1512,VG )@@G@@1524 INDRIV 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. VH )@@G@@@ @@@@. FAKE 'C ID' KEYIN @[@@@@. @E@@@@ LMJ VI )@@G@@ X11,EX31P . GET EXPOOL BUFFER @B@@@@ L A4,(VJ )@@G@@'C ',02) . @D@@@@ L A5,('ID ') . FAKE 'VK )@@G@@C ID' @F@@@@ DS A4,0,A0 . STORE AS IF KEYED VL )@@G@@IN @D@@@@ FSTART CKEY . START CKEY @A@@@@VM )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-1554,1556 INDRIV 32.0@A@@@@VN )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @B@@@@. HOLD ALLVO )@@G@@ RUNS UNLESS UNATTENDED @[@@@@. @F@@@@ JK 11,NOREC VP )@@G@@ . ALLOW RUNS IF UNATTENDED@A@@@@. <<< END NYU LOCAL CODVQ )@@G@@E <<<@^@@@@-1560 INDRIV 32.0@]@@@@. NYU*** @E@@@@ SZVR )@@G@@ RSTHLD . TURN ON DEMANDS @^@@@@-1561 INDRIV VS )@@G@@ 32.0@]@@@@. NYU*** @F@@@@ SZ,H1 CORFL2 . VT )@@G@@SZ IN MAX EXPOOL USED @^@@@@-1637,1637 INDRIV 32.0@F@@@@CNTST2 '@VU )@@G@@TEST TE/1/S4,TE/2/S4,TE/3/S4 . JK4 SET?' . NYU*** @ @@_@-1641,1641 VV )@@G@@ INDRIV 32.0 @]@@@@. NYU*** @C@@_@CNASG2 '@ASG,CPRG SYS$*RUNVW )@@G@@$//RUKENY,F2' @]@@@@-1643,1643- @#@@@@/COPIN/COPY,G/ @ @@_@-1647,VX )@@G@@1647- INDRIV 32.0 @#@@_@/RUNWR$/RUKENY/ ___THLD @^@@@@-1397,VY )@@G@@1408 INDRIV 32.0@A@@@@/. >>> BEGIN NYU LO*[@@@@*SDFF*@^@@@@-204,2VZ )@@G@@04 AAFIPROC 32.0 @ @@_@. NYU*** LET 8C EFAULT TO 6C @G@@@@ FIWA )@@G@@CON '8C ',01,5,24 . SEARCH DOWN 5 INSTEAD OF 2 ___A1#@L@@@@WB )@@G@@*[@@@@*SDFF*@^@@@@-682 INASG 32.0@A@@@@. >>> BEGIN NYU LOWC )@@G@@CAL CODE >>>@ @@_@. DROP SWAP FLE ON JK 9 BOOT @]@@@@TSTJK9B . @D@@@@WD )@@G@@ JK 9,$+2 . JK 9 SET? @D@@@@ J WE )@@G@@ NOCHN . NO,NOCHN @E@@@@ L,U X8,SWF )@@G@@WAP$C . YES,DROP SWAP$ AND@D@@@@ J STATLOP2 WG )@@G@@ . RECATALOG IT@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@WH )@@G@@-692 INASG 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@WI )@@G@@. @G@@@@. READ DLOC$ MI SEC 1 TO GET BACKUP REEL NUMBER FOR WJ )@@G@@'C ID' KEYIN@[@@@@. @E@@@@DLOCRD S X10,DSAVE . WK )@@G@@SAVE REGISTERS @B@@@@ S X9,X1SAVE . @B@@@@WL )@@G@@ DS A1,RCVA0S . @B@@@@ S A5,RWM )@@G@@CVA2S . @F@@@@ LMJ X11,EX63P . GET ANWN )@@G@@ EXPOOL BUFFER @E@@@@ L,U A1,DREAD$ . SET UPWO )@@G@@ FOR DREAD$ @E@@@@ S A1,,A0 . OF DLOC$ MI WP )@@G@@SEC 1 @B@@@@ DL A1,('DLOC$ ') . @B@@@@ DSWQ )@@G@@ A1,1,A0 . @B@@@@ LXI,U A1,03401 WR )@@G@@ . @B@@@@ LXM,U A1,5,A0 . @B@@@@ S WS )@@G@@ A1,3,A0 . @B@@@@ L,U A1,1 WT )@@G@@ . @B@@@@ S,T1 A1,4,A0 . @F@@@@ S WU )@@G@@ A0,ASAVE . STORE EXPOOL BUFFER ADDR@G@@@@ WLWV )@@G@@INKI 0,DLCMSC . LINK TO INIT2 TO DO ER MSCON$ @F@@@@ WW )@@G@@ L A2,ASAVE . GET EXPOOL BUFFER ADDR @E@@@@ WX )@@G@@ JN A0,$+3 . DID REQUEST FAIL? @G@@@@ L WY )@@G@@ A1,16,A2 . NO, PICK UP BACKUP REEL NUMBER@F@@@@ WZ )@@G@@ S A1,BUFR-4 . STORE IN E8ID FOR 'C ID'@F@@@@ XA )@@G@@ EXRELP A2 . RELEASE EXPOOL BUFFER @B@@@@ XB )@@G@@ L X10,DSAVE . @B@@@@ L X9,X1SAVE XC )@@G@@ . @B@@@@ DL A1,RCVA0S . @B@@@@ XD )@@G@@ L A5,RCVA2S . @F@@@@ L,U X8,DLOCENTXE )@@G@@3 . GET @FREE DLOC$ IMAGE @C@@@@ J STATLOP2 XF )@@G@@ . DO IT @A@@@@. <<< END NYU LOCAL CODE <<<@ @@@@-1236,XG )@@G@@1236 INASG 32.0 @ @@@@ 'GENF$//TOOBAD . ' @^@@@@-1239,XH )@@G@@1239 INASG 32.0@C@@@@ 'GENF$//TOOBAD.,F4/28/TRK/0160000 . ' XI )@@G@@@A@@@@-1242,1242 INASG 32.0 @ @@@@ 'GENF$//TOOBAD . XJ )@@G@@' @^@@@@-1248,1248 INASG 32.0 @D@@@@ 'SYS$*DLOC$/@R/W@,F2XK )@@G@@ . ' . NYU*** @ @@@@-1261,1261 INASG 32.0 @G@@@@ XL )@@G@@ 'ACCOUNT$R1,F17///5000 . ' . NYU*** KEEP EXEC OFF 432 @ @@@@XM )@@G@@-1276,1276- INASG 32.0 @#@@@@/RUNWR$/RUKENY/ @^@@@@-1279,1279 XN )@@G@@INASG 32.0 @G@@@@ 'SYS$*LIB$//LIBWK$,F17/1//9999 . ' . NYU*** XO )@@G@@KEEP EXEC OFF 432 @ @@@@-1391,1391 INASG 32.0 @]@@@@. NYU*** XP )@@G@@@D@@_@. ASG DLOC$ TO READ MI FOR BKUP REEL FOR C ID KEYIN @F@@@@ XQ )@@G@@ TABENT 'ASG,CPRG',DLOCIM2 0 *DLOCRD 'END' @F@@_@-1392,XR )@@G@@1392- INASG 32.0 NYU** RTN TO DLOCENT3 TO FREE FILE @^@@@@/DLOCEXS )@@G@@NT3 /DLOCENT3*/ @F@@_@-1401,1401- INASG 32.0 NYU** TAKE X-OPT OFFXT )@@G@@ GENF$ FOR STAT @[@@@@/X/ / @^@@@@-1417,1417 INASG 32.0 @]@@_@. NYU*XU )@@G@@** @C@@_@. CODE FOR DROP OF SWAP$FILE ON JK9 RETNS HERE @F@@@@SWAP$CXV )@@G@@* TABENT 'ASG,AQ',SWAPIM1 *NOCHN 0 0 @E@@_@-1426,XW )@@G@@1426- INASG 32.0 NYU** TAKE X-OPT OFF GENF$ FOR STAT@[@@@@/X/ / @ @@@@XX )@@G@@-1428,1428 INASG 32.0 @]@@_@. NYU*** @A@@_@. TEST FOR JK9 AFTXY )@@G@@R ASG OF SWAP$FILE@F@@@@ TABENT 'ASG,AQX',SWAPIM SWAP$C XZ )@@G@@ *TSTJK9B 0 @E@@_@-1440,1440- INASG 32.0 NYU*** GO TO READ MI YA )@@G@@OF DLOC$ @^@@@@/DLOCENT3/*DLOCRD / ___ DL A1,('DLOC$ YB )@@G@@ ') . @B@@@@ DS A1,1,A0 . @B@@@@ LXYC )@@G@@I,U A1,03401 . @B@@@@ LX*[@@@@*SDFF*@^@@@@-127,1YD )@@G@@31 INDA 32.0 @A@@@@. NYU*** SEPARATE LIBRARY TAPE ___^@)^@)CC?YE )@@G@@E*)^@)^@)^@)CC4 )1^@)^@)^@)^@)^@)^@)^@)^@) 0)C1DF@)C1JEK)ET E[[EL[E- ^[GYF )@@G@@*[@@@@*SDFF*@^@@@@-286 XKEY 31.0@I@@@@ DIOSTR YG )@@G@@ . DI2.00 @F@@@@ YH )@@G@@ TOP,U A3,WESBIT . ALSO CHECK FOR WEST$ WAIT @I@@@@ YI )@@G@@ DIOEND . DI2.YJ )@@G@@00 @^@@@@-323 XKEY 31.0@#@@@@ DIOSTR @E@@@@ YK )@@G@@ JZ A0,XKEY7A . SKIP ACT IF NO SWL @#@@@@ DIYL )@@G@@OEND @^@@@@-403 XKEY 31.0@#@@@@ DIISTR @^@@@@-404 YM )@@G@@ XKEY 31.0@#@@@@ DIIEND @#@@@@ DIOSTR @A@@@@YN )@@G@@ L A3,QRD$DT,A1 @I@@@@ L A3,RQINDX YO )@@G@@ 00000200 @I@@@@ LMYP )@@G@@J X11,SYCKDIR 00000300 YQ )@@G@@@I@@@@ J XKEY7 . J IF NOT DI YR )@@G@@ 00000400 @I@@@@ LXI,U A3,DIBKTD . TELL DI YS )@@G@@BRK T DONE 00000500 @I@@@@ L,U A0,SMDMWQ YT )@@G@@ 00000600 @I@@@@ R YU )@@G@@ SLXKY,SDEX1 00000700 YV )@@G@@@I@@@@ LMJ X11,SMQING . QUE DI MAIN ACTIVITY YW )@@G@@ 00000800 @I@@@@ D SDEX1,SLXKY,A4 YX )@@G@@ 00000900 @#@@@@ DIOEND ___^@)^@)^@)YY )@@G@@CC0 -ND(^D(REC)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YZ )@@G@@^@)^@)A@0A@0A@6A@0@O@@@@^@)^@)^@)^@)^@)EK)^@)^@)^@)^@)ETGF[FFC?ET^C(SAC)ZA )@@G@@*[@@@@*SDFF*@^@@_@-49 PRTCON 30.0@#@@@@ DIOSTR @ @@@@ZB )@@G@@ LMJ X11,SYCKDI@E@@@@ J NOINF ZC )@@G@@ . JUMP IF DI SITE @#@@@@ DIOEND @^@@_@-407 PRTCON ZD )@@G@@ 31.0@#@@@@ DIISTR @^@@_@-408 PRTCON 31.0@#@@@@ ZE )@@G@@ DIIEND @#@@@@ DIOSTR @D@@@@ SSC A2,1 ZF )@@G@@ . DIVIDE BY 2 @^@@@@ TP UA2 @E@@@@ A,ZG )@@G@@U A2,1 . ADD 1 IF REMAINDER @E@@@@ LXI,U ZH )@@G@@ A2,0 . CLEAR OUT REMAINDER @#@@@@ DIOEND @^@@_@ZI )@@G@@-420 PRTCON 31.0@#@@@@ DIISTR @^@@_@-421 PRTCON ZJ )@@G@@ 31.0@#@@@@ DIIEND @#@@@@ DIOSTR @F@@@@ J ZK )@@G@@ IMERDI . CHECK DI BEFORE IMAGE ERR @ @@@@NORM1DI . ITZL )@@G@@ IS DI, CONTINUE @#@@@@ DIOEND @^@@_@-426 PRTCON 31.0ZM )@@G@@@#@@@@ DIOSTR @B@@@@NORM2DI . RETURN FROM IMGER1 FOR DI SITE ZN )@@G@@@#@@@@ DIOEND @^@@_@-432 PRTCON 31.0@#@@@@ DIZO )@@G@@OSTR @D@@@@ LMJ X11,SYCKDIR . SKIP IF DI @#@@@@ZP )@@G@@ DIOEND @^@@_@-441 PRTCON 31.0@#@@@@ DIOSTR ZQ )@@G@@@ @@@@IMERDI LMJ X11,SYCKDI@E@@@@ J NORM1DI ZR )@@G@@ . CONTINUE FOR DI @E@@@@ J IMGERR ZS )@@G@@ . TO IMGERR IF NOT DI @#@@@@ DIOEND @^@@_@-466 PRTCON ZT )@@G@@ 31.0@#@@@@ DIOSTR @ @@@@ LMJ X11,SYCKDI@E@@@@ZU )@@G@@ J NORM2DI . NORMAL RTN FOR DI @#@@@@ ZV )@@G@@ DIOEND @^@@_@-590 PRTCON 31.0@#@@@@ DIOSTR @ @@@@ZW )@@G@@ LMJ X11,SYCKDI@F@@@@ J NOTCNT ZX )@@G@@ . BYPASS IF DEMAND (DI) @#@@@@ DIOEND @^@@_@-610 PRZY )@@G@@TCON 31.0@#@@@@ DIOSTR @B@@@@ LMJ X11,SYCKDIZZ )@@G@@ .!@F@@@@ J NORM . DAKE BLANK MAA )@@G@@OVE IF DI @#@@@@ DIOEND @^@@_@-637 PRTCON 31.0@#@@@@AB )@@G@@ DIOSTR @ @@@@ LMJ X11,SYCKDI@E@@@@ J AC )@@G@@ RELHD1 . QUIT IF DI SITE @#@@@@ DIOEND AD )@@G@@___^@)^@)^@)^@)DK)^@)^@)^@)^@)DDHC9 ELM^@)^@)^@)^@)^@)^@) 0)E-J^[DD(BC(MAE )@@G@@EK)DDA^[ID9O^[^DC)@^@@@@*[@@@@*SDFF*@^@@@@-4 TERM 30.0@I@@@@AF )@@G@@ DIOSTR AG )@@G@@. DI2.00 @I@@@@ DMITAG . DEFINE TAGS FOR DMI AH )@@G@@ . DI2.00 @ @@@@POTFCT EQUF 014,,H2 @I@@@@AI )@@G@@ DIOEND AJ )@@G@@. DI2.00 @^@@_@-482 TERM 31.0@#@@@@ DIOSTR @^@@@@AK )@@G@@ LXI,U A3,0@I@@@@ TE A3,PCDMSI,A2 AL )@@G@@ . DI2.00 @I@@@@ J DMITAM )@@G@@AG0 . NOT THE INPUT ACTIVITY . DI2.00 @I@@@@ AN )@@G@@ LMJ X9,DMISRCH . DMISRCH DOESN'T RETURN . DI2.AO )@@G@@00 @I@@@@ TNE A3,DMINSW,A0 . TNIS IS FOR EX IN DMAP )@@G@@ISRCH . DI2.00 @I@@@@DMITAG0 TE A3,PCDMSO,A2 AQ )@@G@@ . DI2.00 @I@@@@ J DMITAR )@@G@@AG8 . NOT OUTPUT ACTIVITY EITHER . DI2.00 @I@@@@ AS )@@G@@ LMJ X9,DMISRCH . NO RETURN . DI2.AT )@@G@@00 @I@@@@ TNE A3,DMOTSW,A0 . FOR EX IN DMISRCH AU )@@G@@ . DI2.00 @I@@@@DMISRCH L A8,EA0 AV )@@G@@ . DI2.00 @I@@@@ L,H1 R3,DAW )@@G@@MIDBU . GET BASE OF DMI ID TABLES . DI2.00 @I@@@@DMITAGAX )@@G@@1 L A2,ER3 . DI2.AY )@@G@@00 @I@@@@ JZ A2,DMITAG7 . REACHED THE END OF TAZ )@@G@@HE LINE . DI2.00 @I@@@@ L,H2 R3,,A2 . SABA )@@G@@VE NEXT BUFFER . DI2.00 @I@@@@ L,H1 R2,,BB )@@G@@A2 . GET ENTRY COUNT . DI2.00 @I@@@@ BC )@@G@@ JGD ER2,$+1 . DI2.BD )@@G@@00 @I@@@@ LXI,U A2,2 BE )@@G@@ . DI2.00 @I@@@@DMITAG2 L,H2 A0,2,*A2 . GEBF )@@G@@T A SITE CTL . DI2.00 @I@@@@ JZ A0,DBG )@@G@@MITAG3 . NOT A LIVE SITE . DI2.00 @I@@@@ BH )@@G@@ EX 0,X9 . THIS IS A TNE A3,DMINSW OR DMOTSW,A0 . DI2.BI )@@G@@00 @I@@@@ J DMITAG4 . FOUNT ONE BJ )@@G@@ . DI2.00 @I@@@@DMITAG3 JGD ER2,DMITAG2 BK )@@G@@ . DI2.00 @I@@@@ J DMITBL )@@G@@AG1 . DI2.00 @I@@@@ BM )@@G@@ . DMIKILL IS ALSO REFERENCED BY DMITRM . DI2.BN )@@G@@00 @A@@@@$(DI$2I) . CALLED FROM FUNCTION @I@@@@DMIKILL* TS BO )@@G@@ DMSYNC,A0 . KILL THE TERMINAL . DI2.00 @A@@@@BP )@@G@@ L A4,DITIME,A0 @D@@@@ L,U A3,,A0 BQ )@@G@@ . FOR EARLY EXIT@I@@@@ TG,U A4,4 BR )@@G@@ . DI2.00 @I@@@@ J 0,X1BS )@@G@@1 . SITE ALREADY BEING TERMED . DI2.00 @I@@@@ BT )@@G@@ L A4,USRFLG,A0 . DI2.BU )@@G@@00 @I@@@@ OR,U A4,USRGON . MARK FOR NO DRIVER ABV )@@G@@CTIVITY . DI2.00 @I@@@@ S A5,USRFLG,A0 BW )@@G@@ . DI2.00 @I@@@@ L,U A1,1BX )@@G@@ . DI2.00 @A@@@@ BY )@@G@@ S A1,EOTRCD,A0 @E@@@@ S A1,RINLCK,A0 BZ )@@G@@ . LOCK OUT DMIN$ CALLS@D@@@@ L A2,POTFCT,A0 . GECA )@@G@@T OUTPUT CTL@E@@@@ S A1,OUTLCK,A2 . LOCK OUT DMOT$CB )@@G@@ CALLS@A@@@@ L A4,DITIME,A3 @^@@@@ L,U CC )@@G@@ A5,4@E@@@@ S A5,DITIME,A3 . DISCONTINUE TIMER CD )@@G@@@I@@@@ TNE,U A4,3 CE )@@G@@ . DI2.00 @I@@@@ J 1,X11 . INPUT ISCF )@@G@@ ALREADY DONE, KILL OUTP. DI2.00 @I@@@@ LXI,U A3,SHUTDN*CG )@@G@@/6 . REQUEST SHUT DOWN . DI2.00 @I@@@@ A,CH )@@G@@U X11,1 . SO OUTPUT WILL GET KICKED ON EXI. DI2.00 CI )@@G@@@I@@@@ L,U A0,SMDMWQ CJ )@@G@@ . DI2.00 @I@@@@ J SMQING . KICK IFRCK )@@G@@ INPUT AND EXIT . DI2.00 @A@@@@$(L$IVSQ) . BACK TO REGULAR TECL )@@G@@RM LC @I@@@@DMITAG4 L A11,EA2 CM )@@G@@ . DI2.00 @I@@@@ LMJ X11,DMIKILL . KICN )@@G@@LL SITE . DI2.00 @I@@@@ J DMITCO )@@G@@AG6 . ALL DONE . DI2.00 @I@@@@ CP )@@G@@ LXI,U A3,OTIMAG*/6+2 . MARK AS FD OUTPUT REQ . DI2.CQ )@@G@@00 @I@@@@ L,U A0,SMDMWQ CR )@@G@@ . DI2.00 @I@@@@ LMJ X11,SMQING . KICS )@@G@@CK IFR FOR OUTPUT . DI2.00 @I@@@@DMITAG6 CTS DMSYCT )@@G@@NC,A3 . DI2.00 @I@@@@ CU )@@G@@ DL A2,EA11 . CONTINUE SEARCH . DI2.CV )@@G@@00 @I@@@@ LXI,U A3,0 CW )@@G@@ . DI2.00 @I@@@@ J DMITAG3 CX )@@G@@ . DI2.00 @I@@@@DMITAG7 . CY )@@G@@ . DI2.00 @I@@@@ CZ )@@G@@ L A3,EA12 . RESET REGS FOR EXIT . DI2.DA )@@G@@00 @I@@@@ L A2,SD,A3 DB )@@G@@ . DI2.00 @I@@@@ S A2,EA11 DC )@@G@@ . DI2.00 @I@@@@ SZ PCDMDD )@@G@@SO,A2 . DI2.00 @I@@@@ DE )@@G@@ SZ PCDMSI,A2 . DI2.DF )@@G@@00 @I@@@@ L A0,EA8 DG )@@G@@ . DI2.00 @I@@@@DMITAG8 . DH )@@G@@ . DI2.00 @I@@@@ DIOEND DI )@@G@@ . DI2.00 @^@@_@-593 DJ )@@G@@ TERM 31.0@#@@@@ DIOSTR @F@@@@ TOP,U A3,WDK )@@G@@ESBIT . CLEAR ALL WEST$ WAITS ALSO@#@@@@ DIOEND ___ DL )@@G@@ A2,POTFCT,A0 . GET OUTPUT CTL@E@@@@ S A1,OUTLCK,DM )@@G@@A2 . LOCK OUT DMOT$ CALLS@A@@@@ L *[@@@@*SDFF*@^@@_@-607 DN )@@G@@ CGYCOD 32.0@#@@_@ DIOSTR @ @@_@ TEP,U A4,WDO )@@G@@ESBIT @ @@_@ J KEYWEST @#@@_@ DIOEND @^@@_@DP )@@G@@-609 CGYCOD 32.0@#@@_@ DIOSTR @]@@_@KEYWEST . @#@@_@DQ )@@G@@ DIOEND ___^@)^@)CTBFD#D9^^@)^@)AS2 00@^@@_@^@)^@)^@)^@)^@)C-DDR )@@G@@D9NE-M@#@@_@DT FDRC(NE))*[@@@@*SDFF*@^@@@@-2694,2695 CATFR 32.0 @F@@_@DS )@@G@@. NYU*** LET IT THINK EXPOOL TIGHT ALL THE TIME (AVOID 070 STOPS) @F@@@@DT )@@G@@ NOP . JZ A6,GETSITEM . $T TIGHT FIRST LEVEL @E@@@@DU )@@G@@ NOP . TNE,U A6,3 . $A YES,WANY$ NO @#@@@@-4027 DV )@@G@@CATFR 32.0 @A@@_@. >>> BEGIN NYU LOCAL CODE >>>@[@@_@. @I@@@@DW )@@G@@. FOR A TO-BE-CATALOGED FILE, A14=0 SEZ DON'T ALLOC GRANULE, JUST CHECK DX )@@G@@IF AVAIL @E@@@@. THIS CODE DOES THAT CHECK FOR POSITION GRANULAR FILEDY )@@G@@S @[@@_@. @G@@@@ JZ A14,NOGO1 . DO NOTDZ )@@G@@ ALLOC. POS, JUST CHECK @A@@_@. <<< END NYU LOCAL CODE <<<___CDGEA )@@G@@D-JCS)C9MCDIE(GC*?^[EE(NE))CTCC(#DS)DDA^[[E1[DDG*[@@@@*SDFF*@^@@_@-184 EB )@@G@@ E8END 32.0@#@@_@ DIOSTR @ @@_@EXMDI EQU DMTMEC )@@G@@AX @#@@_@ DIOEND @^@@_@-206 E8END 32.0@#@@_@ ED )@@G@@ DIOSTR @^@@_@EXPDI EQU 150 @#@@_@ DIOEND @^@@_@EE )@@G@@-235 E8END 32.0@#@@_@ DIISTR @^@@_@-236 E8END EF )@@G@@ 32.0@#@@_@ DIIEND @#@@_@ DIOSTR @B@@_@EXPRQ(2) EQEG )@@G@@U (EXMDMD+EXMDI)*EXPDMD @E@@_@EXRQDI(1) EQU 128 EH )@@G@@ . TO HAVE DI ACTIVE @A@@_@EXRQDI(2) EQU EXMDI*EXPDI @#@@_@EI )@@G@@ DIOEND @^@@@@-252,252 E8END 32.0@A@@@@. >>> BEGIN EJ )@@G@@NYU LOCAL CODE >>>@^@@@@ DO EXMT4<5 ,; @G@@@@EXPRQ(18) EQU EK )@@G@@ EXMT4*EXPT4 . SPACE NEEDED FOR REMOTE 1004'S@^@@@@ DOEL )@@G@@ EXMT4>4 ,; @G@@@@EXPRQ(18) EQU 5*EXPT4 . SPACE NEEDEDEM )@@G@@ FOR REMOTE 1004'S@A@@@@. <<< END NYU LOCAL CODE <<<@^@@_@-259 EN )@@G@@ E8END 32.0@A@@_@ EXRQDI(1)+EXRQDI(2)+; ___B)5^@?BS)EO )@@G@@@M@@@@C(SE[MEC*AC8 C)C(LE*)^@)^@)^@)C(SD(OA)%C(S*[@@@@*SDFF*@^@@@@-74,74EP )@@G@@ EX8MAP 32.0@]@@@@. NYU*** @D@@@@ IN SYS$*RLIB$EQ )@@G@@.ERU$,.NYUER$,GEN.CERU$ @ @@_@-153/0 EX8MAP 32.55 @#@@_@ ER )@@G@@ DIOSTR @B@@_@ IN EXEC$.DMIERS,.DMIIFR,.DMIINO@#@@_@ ES )@@G@@ DIOEND ___A*3 80^@)^@)^@)C(SB[HCDK^@)^@)AS2 05A*)@^@@_@^@)^@)^@)^@)ET )@@G@@^@)C-DD9NE-M@F@@_@^@)^@)*[@@@@*SDFF*@^@@@@-1782 IOD 32.0@A@@@@EU )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @D@@@@. TIME OF EV )@@G@@LAST BOOT FOR POINTER$ AND LB KEYIN @[@@@@. @B@@@@BOOTTIME$* + EW )@@G@@ 0 . @A@@@@. <<< END NYU LOCAL CODE <<<___DDIEX )@@G@@E- EK=^[[D1^^[GCK)DT FDDD0)^@)@[@@@@ 0)^@)@F@@@@CLJD9OE-DD( ^)%^@:^@)^@)EY )@@G@@*[@@@@*SDFF*@^@@_@-6 SMKEY 30.0@#@@_@ DIOSTR @#@@_@EZ )@@G@@ SLEVEL @E@@_@ DMISOM . DEFINE SFA )@@G@@OME DI TAGS @#@@_@ DIOEND @G@@@@-73,73 SMKEY 32.0. NYU*FB )@@G@@ ON RSICNT>0, SO DMI GETS TB, TM MSGS @G@@@@-79,79 SMKEY 32.0FC )@@G@@. NYU* OFF RSICNT>0, SO DMI GETS TB, TM MSGS @A@@@@. >>> BEGIN FD )@@G@@NYU LOCAL CODE >>>@[@@@@. @E@@@@. S3 AND S4 KEYINS, SHORT FOR 'SM PRFE )@@G@@3 S' AND 'SM PR4 S' @[@@@@. @E@@@@ TNE,U A4,'S3' FF )@@G@@ . QUICK 'SM PR3 S'? @C@@@@ J QMSG FG )@@G@@ . YES @E@@@@ TNE,U A4,'S4' . QUICK 'SM PRFH )@@G@@4 S'? @C@@@@ J Q4MSG . YES @F@@@@QRTN FI )@@G@@ . . QUICK KEYIN RETURN POINT@A@@@@. FJ )@@G@@ <<< END NYU LOCAL CODE <<<@^@@@@-89 SMKEY 31.0@A@@@@. FK )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @C@@@@. ALLOW SM A KEYFL )@@G@@INS, SHORT FOR SM ACTIVE@C@@@@. SM R SM FM )@@G@@RBATCH@[@@@@. @D@@@@ L,H2 A3,0,A0 . CHAR CFN )@@G@@OUNT @D@@@@ TE,U A3,1 . 1 CHAR? @D@@@@FO )@@G@@ J NOT1 . NO,NOT1 @E@@@@ L,FP )@@G@@S1 A5,1,A0 . GET FIRST CHAR @D@@@@ TNE,U FQ )@@G@@ A5,'A' . SM A KEYIN? @D@@@@ J PRACT FR )@@G@@ . YES,PRACT @D@@@@ TE,U A5,'R' . FS )@@G@@SM R KEYIN? @C@@@@ J ERR . NO,ERR@F@@@@FT )@@G@@ SZ A5 . YES, SET RBATCH FLAG @ @@@@FU )@@G@@ J PRACT @]@@@@NOT1 . @A@@@@. <<< END NFV )@@G@@YU LOCAL CODE <<<@^@@@@-100 SMKEY 31.0@A@@@@. >>> BEGIN FW )@@G@@NYU LOCAL CODE >>>@[@@@@. @D@@@@. CHECK FOR 'SM ACTIVE' OR 'FX )@@G@@SM RBATCH' KEYIN @[@@@@. @E@@@@ TNE A5,COMO+2 FY )@@G@@ . 'SM ACTIVE' KEYIN?@E@@@@ J PRACT . FZ )@@G@@YES, HANDLE IT @D@@@@ TE A5,('RBATCH') . SM RBAGA )@@G@@TCH? @D@@@@ J $+3 . NO, CONTINUE@F@@@@GB )@@G@@ SZ A5 . A5 IS ACTIVE/RBATCH FLAG@D@@@@GC )@@G@@ J PRACT . HANDLE IT @A@@@@. <<< GD )@@G@@ END NYU LOCAL CODE <<<@^@@_@-413 SMKEY 31.0@#@@_@ DIGE )@@G@@OSTR @ @@_@ TNE,U A4,DMUTYP @E@@_@ J ERRAGF )@@G@@C . NO T OR E FOR DI @#@@_@ DIOEND @^@@@@-443 GG )@@G@@ SMKEY 32.0@A@@@@/. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. GH )@@G@@@G@@@@. 'SM ACTIVE' KEYIN - PRINTS LIST OF ALL ACTIVE SYMBIONTS ON CONSOGI )@@G@@LE. @[@@@@. @ @@@@. DISPLAY IS OF THE FORM: @[@@@@. @ @@@@GJ )@@G@@. ACTV SITEID STATUS @[@@@@. @E@@@@. WHERE 'SITEID' IS THE GK )@@G@@REMOTE BATCH SYMBIONT NAME, ON-SITE @F@@@@. CARD READER, PRINTER, OR PUNGL )@@G@@CH NAME, OR DEMAND TERMINAL SITEID. @[@@@@. @B@@@@. 'STATUS' MAY BE GM )@@G@@ONE OF THE FOLLOWING: @[@@@@. @G@@@@. SS/UU - SUBSYGN )@@G@@STEM/UNIT ON WHICH THE DEVICE IS ACTIVE @F@@@@. DMI SITE -GO )@@G@@ SIGNIFIES A DEMAND INTERFACE 'TERMINAL' @D@@@@. RSI$ SITE -GP )@@G@@ SIGNIFIES AN RSI$ 'TERMINAL' @D@@@@. LOKD - ON-STIE DEVGQ )@@G@@ICE IS LOCKED OUT @D@@@@. SUSP - ON-SITE DEVICE IS SUSPEGR )@@G@@NDED @F@@@@. KILLED - OUTPUT TO ON-SITE DEVICE HAS BEEN KGS )@@G@@ILLED @D@@@@. PRINTING - ON-SITE PRINTER IS ACTIVE @C@@@@GT )@@G@@. PUNCHING - ON-SITE PUNCH IS ACTIVE@[@@@@. @G@@@@. IF NGU )@@G@@O SYMBIONTS ARE ACTIVE, THE FOLLOWING MESSAGE WILL BE DISPLAYED: @[@@@@GV )@@G@@. @^@@@@. ACTV NONE @[@@@@. @[@@@@. @E@@@@PRACT GW )@@G@@ L,U A1,3,A0 . SET UP COM$ PKT @G@@@@ LXGX )@@G@@I,U A1,24 . $P SET CHAR COUNT FOR ACW @B@@@@ GY )@@G@@ S A1,1,A0 . @B@@@@ SZ 0,A0 GZ )@@G@@ . @B@@@@ SZ 2,A0 . @E@@@@ HA )@@G@@ L A1,('ACTV @') . FISRT WORD OF MSG @B@@@@ S HB )@@G@@ A1,3,A0 . @F@@@@ S,H2 A5,9,A0 HC )@@G@@ . SAVE ACTIVE/RBATCH FLAG @F@@@@ SZ,H1 9,A0 HD )@@G@@ . SET PRINTED-NOTHING FLAG@F@@@@ LMJ X11,SMACTS HE )@@G@@ . LOCK SYMB ACTIVE TABLE @E@@@@ L,H2 A3,SMACT HF )@@G@@ . FIRST IN CHAIN @B@@@@ JZ A3,NONIN . HG )@@G@@@F@@@@NXT L,S6 R1,0,A3 . COUNT IN THIS BLOCK HH )@@G@@@F@@@@ LX,H2 X11,1,A3 . $P SAVE POINTER TO NEXT HI )@@G@@@B@@@@ S X11,11,A0 . @D@@@@ JGD HJ )@@G@@ R1,$+2 . ANY THERE? @C@@@@ J NFORG HK )@@G@@ . NOPE! @B@@@@ LXI,U A3,2 . @D@@@@HL )@@G@@FORG L A4,2,*A3 . NEXT ENTRY @E@@@@ JZHM )@@G@@ A4,FORG . THIS SLOT EMPTY @D@@@@ S HN )@@G@@ A4,4,A0 . SET NAME @D@@@@ SR R1,10,A0 HO )@@G@@ . $P SAVE REGS@B@@@@ S A3,12,A0 . HP )@@G@@@B@@@@ L A2,A3 . @F@@@@ L HQ )@@G@@ A3,A0 . A3 GETS BUFFER ADDR @E@@@@ L,S1 HR )@@G@@ A0,1,A2 . GET SYMBIONT TYPE @#@@@@ DIOSTR @E@@@@HS )@@G@@ TE,U A0,DMUTYP . DMI TERMINAL? @C@@@@ HT )@@G@@ J NOTDISITE . NO @G@@@@ TNZ,H2 9,A3HU )@@G@@ . YES, BUT REMOTE BATCH ONLY? @E@@@@ J HV )@@G@@ OFSA . YES, SO SKIP THIS @F@@@@ DL A1,(HW )@@G@@' DMI SITE') . NO, SO DISPLAY DMI SITE @B@@@@ J ONS HX )@@G@@ . @]@@@@NOTDISITE . @#@@@@ DIOEND @E@@@@ HY )@@G@@ TLE,U A0,040 . ON-SITE DEVICE? @G@@@@ J HZ )@@G@@ OFS . NO, MUST BE REMOTE OR DEMAND @G@@@@ IA )@@G@@ TNZ,H2 9,A3 . YES, WANT ONLY REMOTE BATCH? @E@@@@IB )@@G@@ J OFSA . YES, SO SKIP THIS @F@@@@ IC )@@G@@ L,S2 A4,1,A2 . ONSITE - GET STATUS BITS@E@@@@ ID )@@G@@ JNZ A4,BITSET . ANY BITS SET? @E@@@@ TNIE )@@G@@Z,H2 1,A2 . REALLY ACTIVE? @B@@@@. IF JUST QUEUED, IF )@@G@@LET THEM USE 'SQ' KEYIN @E@@@@ J OFSA . IG )@@G@@NO, SKIP THIS ONE @G@@@@ DL A1,(' PRINTING') . YES, AIH )@@G@@SSUME IT'S A PRINTER @G@@@@ L,T1 A4,4,A3 . II )@@G@@GET FIRST 2 CHARS OF SNAME @E@@@@ TNE,U A4,'CP' IJ )@@G@@ . IS IT A PUNCH? @F@@@@ DL A1,(' PUNCHING') . IK )@@G@@YES, SAY 'PUNCHING' @B@@@@ J ONS . IL )@@G@@@D@@@@BITSET DSL A1,72 . ZERO A1,A2 @E@@@@ IM )@@G@@ TNE,U A4,1 . OUTPUT KILLED? @C@@@@ DLIN )@@G@@ A1,(' KILLED') . YES @D@@@@ TEP,U A4,010 IO )@@G@@ . LOCKED OUT? @C@@@@ L A2,(' LOKD') . IP )@@G@@YES @D@@@@ TEP,U A4,020 . SUSPENDED? @G@@@@IQ )@@G@@ L A1,(' SUSP') . YES = MAY BE LOKD AND SUSP IR )@@G@@@B@@@@ J ONS . @]@@@@OFS . @E@@@@IS )@@G@@ TZ,H2 9,A3 . REMOTE BATCH ONLY?@E@@@@ IT )@@G@@ J OFSB . NO, ANYTHING'S OK @G@@@@ TGIU )@@G@@,U A0,010 . YES, IS THIS DEVICE REM BATCH?@B@@@@ IV )@@G@@ TG,U A0,020 . @C@@@@ J $+2 IW )@@G@@ . NO @D@@@@ J OFSB . YES, IIX )@@G@@T'S OK@]@@@@OFSA . @G@@@@ L A0,A3 . IY )@@G@@A0 GETS BUFFER ADDR AGAIN @E@@@@ J ONSA IZ )@@G@@ . SKIP THIS ONE @]@@@@OFSB . @F@@@@ TNZ,H2 1,A2JA )@@G@@ . $T IS CTL TABLE PRESENT @F@@@@ J OFSAJB )@@G@@ . $A NO,SKIP THIS ONE @E@@@@ L,U A0,1JC )@@G@@ . SET FOUND-ONE FLAG@B@@@@ S,H1 A0,9,A3 JD )@@G@@ . @F@@@@ LMJ X11,FILSCH . $W FILSCH FJE )@@G@@IND NAME @F@@@@ J RSIDLR . NO SS/U, MUSJF )@@G@@T BE RSI$ @D@@@@ LA,U A1,' ' . SPACE IN A1 JG )@@G@@@F@@@@ONS DS A1,5,A3 . STORE STATUS IN MSG JH )@@G@@@E@@@@ L A0,A3 . GET BUFFER ADDR @D@@@@JI )@@G@@ ER COM$ . DISPLAY @D@@@@ONSA L JJ )@@G@@ R1,10,A3 . RESTORE REGS@B@@@@ LA A3,1JK )@@G@@2,A3 . @E@@@@ JGD R1,FORG . BACK FJL )@@G@@OR MORE @]@@@@NFORG . @G@@@@ L A3,11,A0 JM )@@G@@ . $P GET NEXT BUFFER ADDRESS @B@@@@ JNZ A3,NXT JN )@@G@@ . @F@@@@ TNZ 9,A0 . 'RBTACH' ANDJO )@@G@@ NONE FOUND?@E@@@@ J NONIN . YES, SAY 'NOJP )@@G@@NE' @B@@@@ SZ,S2 SMTSWD . @B@@@@ J JQ )@@G@@ GETOUT . @E@@@@NONIN L A1,('NONE ') JR )@@G@@ . NO SITES ACTIVE @D@@@@ SZ,S2 SMTSWD . JS )@@G@@CLEAR LOCK @F@@@@ S A1,4,A0 . STORE 'NONE'JT )@@G@@ IN MSG @F@@@@ L,U A1,10 . CHANGE CHAR JU )@@G@@COUNT TO 10 @B@@@@ S,H1 A1,1,A0 . @F@@@@ JV )@@G@@ ER COM$ . DISPLAY 'ACTV NONE' @B@@@@ JW )@@G@@ J GETOUT . @G@@@@RSIDLR DL A1,(' RSI$JX )@@G@@ SITE ') . ACTIVE, BUT NO SS/UU FOUND @E@@@@ J ONS JY )@@G@@ . SAY IT'S RSI$ @A@@@@. <<< END NYU LOCAL CODJZ )@@G@@E <<<@B@@@@-976,976 SMKEY 32.0 @A@@@@. >>> KA )@@G@@BEGIN NYU LOCAL CODE >>>@[@@@@. @E@@@@. FIX REPRINT AND SKIP-AHEAD KKB )@@G@@EYINS FOR REMOTE SYMBIONTS @F@@@@. THIS FIX IS FROM 27-20-225 UPDATE KC )@@G@@A1, BUT IS NOT YET IN 31 PCF @[@@@@. @ @@@@ LM,XH2 A3,1KD )@@G@@,A0 @A@@@@. <<< END NYU LOCAL CODE <<<@D@@@@-1047 SMKEY KE )@@G@@ 32.0 RCR FIX 7/18/74 (4A8) @A@@@@. >>> BEGIN NYU LOCAL COKF )@@G@@DE >>>@[@@@@. @A@@@@. FIX 'SM PRN R+XXX' WHERE XXX > 511@[@@@@. KG )@@G@@@E@@@@ TG,U A5,0770 . GREATER THAN MAX? @E@@@@KH )@@G@@ L,U A5,0770 . YES, SET TO MAX @A@@@@. KI )@@G@@ <<< END NYU LOCAL CODE <<<@^@@_@-1195 SMKEY 31.0@#@@_@ KJ )@@G@@ DIOSTR @ @@_@ TE,U A4,DMUTYP @D@@_@ J KK )@@G@@ TMNDI . J IF NOT DI @A@@_@ L X9,SYMTBL,KL )@@G@@A0 @A@@_@ L A1,SYMTBL,A0 @ @@_@ JZ KM )@@G@@ A1,ERRACC @G@@_@ EXRELP A3 . REL INPUT TO AKN )@@G@@VOID REG. JUGGLE @A@@_@ L A3,POTFCT,X9 @^@@_@ KO )@@G@@ TS 0,A3@F@@_@ L,U A1,DMCNMI,A3 . A1=LOC. KP )@@G@@OF BASE OF CHAIN @ @@_@ L,H2 A0,,A1 @ @@_@ DSKQ )@@G@@C A0,36 @F@@_@ JNZ A1,$-2 . GET END KR )@@G@@OF CHAIN IN A0 @D@@_@ S,H2 A2,,A0 . CHAIN TOKS )@@G@@ END @^@@_@ CTS 0,A3@F@@_@ LXI,U A3,DITMSG KT )@@G@@ . SET TM MSG ENTRY TYPE @ @@_@ L,U A0,SMDMWQ KU )@@G@@@A@@_@ R SLSYM,SDEX1 @D@@_@ LMJ X11,KV )@@G@@SMQING . KICK DI OUTPUT@A@@_@ D SDEX1,SLSYM,A0 KW )@@G@@@D@@_@ SZ,S2 SMTSWD . UNLOCK SYMACT @#@@_@ KX )@@G@@ FUNCE @]@@_@TMNDI . @#@@_@ DIOEND @^@@_@-1251 SMKY )@@G@@KEY 31.0@#@@_@ DIOSTR @ @@_@ TNE,U A5,DMUTYP KZ )@@G@@@F@@_@ J TBISDI . INCLUDE DI SITES IN TB LA )@@G@@@#@@_@ DIOEND @^@@_@-1255 SMKEY 31.0@#@@_@ DILB )@@G@@OSTR @]@@_@TBISDI . @#@@_@ DIOEND @^@@@@-1278 SMKEY LC )@@G@@ 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @ @@@@. LD )@@G@@ S3 AND S4 KEYINS @[@@@@. @H@@@@QMSG DL A4,('SM @@LE )@@G@@ PR3 S ') . I CAN TYPE THIS FASTER THAN ANYONE @B@@@@ J LF )@@G@@ $+2 . @B@@@@Q4MSG DL A4,('SM @@ PR4 S ') . LG )@@G@@@E@@@@ DS A4,0,A0 . SET PHONEY DATA @G@@@@LH )@@G@@ J QRTN . PROCESS LIKE NORMAL SM KEYIN LI )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<___UT NO SS/UU FOUND @E@@@@LJ )@@G@@ J ONS . SAY IT'S RSI$ @A@@@@. LK )@@G@@*[@@@@*SDFF*@^@@@@-117 SYMBKP 32.0@ @@@@. UNIVAC FIX*** IN ON LL )@@G@@225A1 @^@@@@ SZ 2,A0@^@@_@-284 SYMBKP 31.0@#@@_@LM )@@G@@ DIOSTR @A@@_@ LMJ X11,SYCKDIR @D@@_@ LN )@@G@@ J RETRRNNDI . J IF NOT DI @A@@_@ L LO )@@G@@ A4,RSBIT2,A3 @G@@_@ OR,U A4,RSOBFL . ONE MORELP )@@G@@ IMAGE (EOF) IS AVAIL @A@@_@ S A4,RSBIT2,A3 @A@@_@LQ )@@G@@ L A5,RSOUTI,A3 @^@@_@ CTS 0,A3@ @@_@LR )@@G@@ TEP,U A4,RSOBFL @I@@_@ J DMDDI LS )@@G@@ . IF RSOBFL SET B4, QUE ENTRY MADE B 4 ALS @H@@_@ JNZ LT )@@G@@ A5,DMDDI . NO QUE ENTRY IF ALREADY OUTOUTTING @ @@_@ LU )@@G@@ L A3,UR1 @ @@_@ L X10,UR1 @F@@_@ LV )@@G@@ LXI,U A3,DIOTRDY . OUTPUT RDY QUE ENT TYPE @A@@_@ LW )@@G@@ R SLSYM,SDEX1 @ @@_@ L,U A0,SMDMWQ @C@@_@LX )@@G@@ LMJ X11,SMQING . KICK DI @A@@_@ D LY )@@G@@ SDEX1,SLSYM,A0 @D@@_@ L R1,X10 . RESTORE LZ )@@G@@RETURN@ @@_@ J DMDDI @]@@_@RETRRNNDI . @#@@_@ MA )@@G@@ DIOEND @^@@_@-299 SYMBKP 31.0@#@@_@ DIOSTR @]@@_@MB )@@G@@DMDDI . @#@@_@ DIOEND @#@@_@-308 DIOSTR @#@@_@ MC )@@G@@ DIOSTR @ @@_@ L A0,RQINDX @ @@_@ LMJ MD )@@G@@ X11,SDICHK@H@@_@ J DMDOFA . DI MUST WAIT TME )@@G@@IL OUTPUT PROCESSED @#@@_@ DIOEND @^@@_@-987 SYMBKP MF )@@G@@ 31.0@C@@_@ DIISTR . LEAVE DI'S PRMODE ALONE @^@@_@-998 MG )@@G@@ SYMBKP 31.0@#@@_@ DIIEND ___DTK^@)^@)AS1 00@^@@_@^@)^@)MH )@@G@@^@)^@)^@)C-DD9NE-M@#@@_@*[@@@@*SDFF*@^@@_@-19 SMQUES 32.0@I@@@@MI )@@G@@ DIOSTR MJ )@@G@@. DI2.00 @I@@@@ . THIS ROUTINE HAS BEEN MADE REGISTER INDEPENDANT FOMK )@@G@@R DEMAND INTERFACE. DI2.00 @I@@@@ LXI,U A0,0 ML )@@G@@ . DI2.00 @I@@@@ DIOEND MM )@@G@@ . DI2.00 @^@@_@MN )@@G@@-26 SMQUES 32.0@#@@@@ DIOSTR @ @@@@ JNZ MO )@@G@@ A4,$+2 @G@@@@ SZ ENDOFQ . CLR END IFF LAMP )@@G@@ST OF WHOLE QUE @#@@@@ DIOEND @^@@_@-34 SMQUES 32.0MQ )@@G@@@I@@@@ DIISTR MR )@@G@@ . DI2.00 @^@@_@-42 SMQUES 32.0@I@@@@ DIIEND MS )@@G@@ . DI2.00 @I@@@@MT )@@G@@ DIOSTR MU )@@G@@. DI2.00 @I@@@@ TNE,U A0,,A1 . IS IT BASE SEGMV )@@G@@MENT . DI2.00 @ @@@@ J EMPRTN @I@@@@MW )@@G@@ LSSL A0,18 . SAVE BASE SEG. ADDR MX )@@G@@. DI2.00 @I@@@@ LXM,U A0,,A1 MY )@@G@@ . DI2.00 @I@@@@ AN,U A0,1 MZ )@@G@@ . CLOSE CHAIN OVER EMPTY . DI2.00 @I@@@@ DIOEND NA )@@G@@ . DI2.00 @^@@_@NB )@@G@@-45 SMQUES 32.0@I@@@@ DIISTR NC )@@G@@ . DI2.00 @^@@_@-46 SMQUES 32.0ND )@@G@@@I@@@@ DIIEND NE )@@G@@ . DI2.00 @I@@@@ DIOSTR NF )@@G@@ . DI2.00 @I@@@@ TZ,U 0,A2 NG )@@G@@ . WAS THIS THE LAST QUE SEG. . DI2.00 @I@@@@ DINH )@@G@@OEND . DI2.00 NI )@@G@@@^@@_@-48 SMQUES 32.0@I@@@@ DIISTR NJ )@@G@@ . DI2.00 @^@@_@-52 SMQUES NK )@@G@@ 32.0@I@@@@ DIIEND NL )@@G@@ . DI2.00 @I@@@@ DIOSTR NM )@@G@@ . DI2.00 @I@@@@ SSC A0,1NN )@@G@@8 . DI2.00 @I@@@@ NO )@@G@@ SMCTS BASETS . DI2.NP )@@G@@00 @I@@@@ SSL A0,18 NQ )@@G@@ . DI2.00 @I@@@@ J EXREL . RENR )@@G@@LEASE SEG AND RETURN . DI2.00 @I@@@@ DIOEND NS )@@G@@ . DI2.00 @^@@_@-73 NT )@@G@@ SMQUES 32.0@#@@@@ DIISTR @^@@_@-75 SMQUES 32.0NU )@@G@@@#@@@@ DIIEND @#@@@@ DIOSTR @D@@@@ L,U NV )@@G@@ A0,,X11 . SAVE RETURN POINT @^@@@@ XER11 0101@C@@@@NW )@@G@@ DIOEND . QUE BASE = 0 @ @@_@-100 SMQUES NX )@@G@@ 32.0 @I@@@@ DIOSTR NY )@@G@@ . DI2.00 @I@@@@ . THIS ROUTINE HAS BEEN MADE REGISNZ )@@G@@TER INDEPENDANT FOR DEMAND INTERFACE. DI2.00 @I@@@@ LXI,U OA )@@G@@ A0,0 . DI2.00 @I@@@@OB )@@G@@ DIOEND OC )@@G@@. DI2.00 @^@@_@-104 SMQUES 32.0@I@@@@ DIISTR OD )@@G@@ . DI2.00 @^@@_@-105 OE )@@G@@ SMQUES 32.0@I@@@@ DIIEND OF )@@G@@ . DI2.00 @I@@@@ DIOSTR OG )@@G@@ . DI2.00 @I@@@@ L,OH )@@G@@U A1,,A0 . SET BASE AS CURRENT SEG . DI2.00 OI )@@G@@@I@@@@ DIOEND OJ )@@G@@ . DI2.00 @^@@_@-128 SMQUES 32.0@I@@@@ DIISTR OK )@@G@@ . DI2.00 @^@@_@OL )@@G@@-129 SMQUES 32.0@I@@@@ DIIEND OM )@@G@@ . DI2.00 @I@@@@ DIOSTR ON )@@G@@ . DI2.00 @I@@@@ OO )@@G@@ L,U A0,,A2 . DI2.OP )@@G@@00 @I@@@@ DIOEND OQ )@@G@@ . DI2.00 @^@@_@-132 SMQUES 32.0@#@@@@ DIOR )@@G@@OSTR @ @@@@ LXI A2,TAL @#@@@@ DIOEND @^@@_@OS )@@G@@-136 SMQUES 32.0@#@@@@ DIISTR @^@@_@-137 SMQUES OT )@@G@@ 32.0@#@@@@ DIIEND @#@@@@ DIOSTR @ @@@@ SSOU )@@G@@L A2,18 @A@@@@ D SDEX1,INDEF,A2 @#@@@@ OV )@@G@@ DIOEND @^@@_@-140 SMQUES 32.0@I@@@@ DIISTR OW )@@G@@ . DI2.00 @^@@_@-142 OX )@@G@@ SMQUES 32.0@I@@@@ DIIEND OY )@@G@@ . DI2.00 @I@@@@ DIOSTR OZ )@@G@@ . DI2.00 @I@@@@ L,PA )@@G@@U A0,,X11 . DI2.00 PB )@@G@@@D@@@@ XER11 0101 . QUE BASE = 0 @I@@@@ PC )@@G@@ DIOEND . DI2.PD )@@G@@00 @^@@_@-152 SMQUES 32.0@#@@@@ DIISTR @^@@_@-154 PE )@@G@@ SMQUES 32.0@#@@@@ DIIEND @#@@@@ DIOSTR @E@@@@PF )@@G@@ L,U A2,,A1 . SAVE LAST QUE SEG. @D@@@@ PG )@@G@@ LXI,U A2,,A0 . SAVE QUE BASE @#@@@@ DIOEND PH )@@G@@@^@@_@-156 SMQUES 32.0@#@@@@ DIISTR @^@@_@-159 SMPI )@@G@@QUES 32.0@#@@@@ DIIEND @#@@@@ DIOSTR @ @@@@ PJ )@@G@@ L,U A1,,A2 @ @@@@ SSL A2,18 @ @@@@ PK )@@G@@ LXI,U A0,,A2 @ @@@@ L,U A2,,A0 @#@@@@ PL )@@G@@ DIOEND @^@@_@-171 SMQUES 32.0@#@@@@ DIISTR @^@@_@PM )@@G@@-173 SMQUES 32.0@#@@@@ DIIEND @#@@@@ DIOSTR PN )@@G@@@ @@@@ L,U A5,,A1 @E@@@@ L,U A1,(SEGSIZPO )@@G@@-3)/2-2 . GET NO. ENTRIES - 2 @ @@@@ LXI A1,KM1 @G@@@@PP )@@G@@ S A5,BEGSEG . PUT BEGIN OF SEG IN EACH ENTRY PQ )@@G@@@#@@@@ DIOEND @^@@_@-175 SMQUES 32.0@#@@@@ DIPR )@@G@@ISTR @^@@_@-179 SMQUES 32.0@#@@@@ DIIEND @#@@@@ PS )@@G@@ DIOSTR @ @@@@ JMGI A1,$-3 @F@@@@ SZ PT )@@G@@ SMQLNK . CLEAR LINK IN LAST ENTRY @ @@@@ S PU )@@G@@ A5,BEGSEG @E@@@@ J CHKFUL . START ALL OVERPV )@@G@@ AGAIN@#@@@@ DIOEND @ @@@@-401 SMQUES 31.241 @I@@@@PW )@@G@@ DIOSTR PX )@@G@@. DI2.00 @I@@@@P PROC PY )@@G@@ . DI2.00 @I@@@@QUEQE1* NAME PZ )@@G@@ . DI2.00 @I@@@@ + QA )@@G@@ 0 . DI2.00 @I@@@@QB )@@G@@* QGEN P(1,1) . ACTUAL QUEUE QC )@@G@@. DI2.00 @I@@@@ END QD )@@G@@ . DI2.00 @I@@@@I DO 2*DMRMAX ,QU(I) QUEQEQE )@@G@@1 5 . DI2.00 @I@@@@SMDMQT* . TABLE OFQF )@@G@@ ABOVE QUEUES . DI2.00 @I@@@@QG )@@G@@I DO DMRMAX , + QU(2*I-1),QU(2*I) QH )@@G@@. DI2.00 @I@@@@ + 0 . EXPANSION CHAIQI )@@G@@N BASE FOR SMDMWQ . DI2.00 @C@@@@DINQE EQU (DMTMAX/2)*(DMTMQJ )@@G@@AX>20)+; @G@@@@ 10*(DMTMAX<21) . NO. QUE ENTRIEQK )@@G@@S = GREATER OF @F@@@@ . HALF NOQL )@@G@@. SITES OR 10 @D@@@@SMDMWQ* QGEN DINQE . DI WORK QM )@@G@@QUE @I@@@@EXPAQE EQU $-1 . END OF EXPANSION QUEQN )@@G@@ AREA . DI2.00 @I@@@@ DIOEND QO )@@G@@ . DI2.00 ___ SMQUES 32.0@#@@@@ QP )@@G@@ DIISTR @^@@_@-154 *[@@@@*SDFF*@^@@@@-10 SYMICR 30.0@I@@@@QQ )@@G@@ DIOSTR QR )@@G@@. DI2.00 @I@@@@ DMISOM QS )@@G@@ . DI2.00 @ @@@@RNSTAT EQUF 012,,S1 @^@@@@QT )@@G@@FINRCD EQU 04 @I@@@@ DIOEND QU )@@G@@ . DI2.00 @^@@_@-382 SYMICR 32.0QV )@@G@@@#@@@@ DIOSTR @^@@@@ TS 0,A3@A@@@@ L QW )@@G@@ A1,RNSTAT,A3 @ @@@@ OR,U A1,FINRCD @ @@@@ QX )@@G@@ LMJ X11,SYCKDI@E@@@@ S A2,RNSTAT,A3 . SEQY )@@G@@T FIN REC IF DI @^@@@@ CTS 0,A3@#@@@@ DIOEND QZ )@@G@@@^@@_@-387 SYMICR 32.0@#@@@@ DIISTR @^@@_@-391 SYRA )@@G@@MICR 32.0@#@@@@ DIIEND @^@@_@-397 SYMICR 32.0@#@@@@RB )@@G@@ DIISTR @^@@_@-398 SYMICR 32.0@#@@@@ DIIEND RC )@@G@@@#@@@@ DIOSTR @ @@@@ L,U X11,RNSTRT@D@@@@ RD )@@G@@ S X11,8,A3 . SET RETURN @D@@@@ J RE )@@G@@ RUNCL2 . CLOSE RUN @#@@@@ DIOEND @^@@_@-406 RF )@@G@@ SYMICR 32.0@#@@_@ DIOSTR @ @@_@ LMJ X11,RG )@@G@@SYCKDI@G@@_@ J IPUT2 . NO FILE OR ASG SCARH )@@G@@N FOR D.I. @#@@_@ DIOEND @^@@_@-424 SYMICR 32.0@#@@@@RI )@@G@@ DIOSTR @E@@@@DIICR1* . IF RUN,RUN, DI RETURNS HERE TO OPEN RJ )@@G@@2ND RUN @#@@@@ DIOEND @^@@_@-430 SYMICR 32.0@#@@@@RK )@@G@@ DIOSTR @I@@@@ LXI,U A3,0 . ENSURE CRL )@@G@@SP THINKS SYMB CALLED W/O INFOR @ @@@@ LMJ X11,SYCKDIRM )@@G@@@C@@@@ J TRM9 . J FOR DI@#@@@@ DIRN )@@G@@OEND @^@@_@-479 SYMICR 32.0@#@@@@ DIOSTR @E@@@@ RO )@@G@@ L,U A4,0 . SET FOR ILLEGAL RUN @ @@@@ LMRP )@@G@@J X11,SYCKDI@C@@@@ J TRM1 . J IF DI RQ )@@G@@@#@@@@ DIOEND @^@@_@-565 SYMICR 32.0@#@@@@ DIRR )@@G@@OSTR @^@@@@ TS 0,A3@A@@@@ L A1,RNSTAT,RS )@@G@@A3 @ @@@@ OR,U A1,FINRCD @ @@@@ LMJ X11,RT )@@G@@SYCKDI@E@@@@ S A2,RNSTAT,A3 . SET FIN REC'D IF DI RU )@@G@@@^@@@@ CTS 0,A3@#@@@@ DIOEND @^@@_@-594 SYRV )@@G@@MICR 32.0@#@@@@ DIOSTR @E@@@@ L,U A4,1 RW )@@G@@ . SET FOR FIN RETURN @ @@@@ LMJ X11,SYCKDI@C@@@@RX )@@G@@ J TRM9 . J IF DI @#@@@@ DIOEND RY )@@G@@@^@@_@-691 SYMICR 32.0@#@@@@ DIOSTR @F@@@@ L,RZ )@@G@@U A4,2 . SET FOR RUN SEARCH RETURN @ @@@@ LMSA )@@G@@J X11,SYCKDI@C@@@@ J TRM1 . J IF DI SB )@@G@@@#@@@@ DIOEND ___ DIOSTR SC )@@G@@ . DI2.00 @I@@@@ DMISOM SD )@@G@@*[@@@@*SDFF*@ @@@@-35 DMIINO DI4.0 @ @@@@ TEP,U SE )@@G@@ A4,PRESCD @G@@@@ J IIMAGE3 . CAN'T GO BINSF )@@G@@ IF DOING CONTINUE@ @@@@-77 DMIINO DI4.0 @E@@@@ SZSG )@@G@@,H1 29,A1 . CLEAR ALSTCRD @ @@@@-115,115 DMIINO SH )@@G@@ DI4.0 @ @@@@-121 DMIINO DI4.0 @ @@@@ L SI )@@G@@ A4,BITCTL @G@@@@ TOP,U A4,PRESCD . FORGET IT IFSJ )@@G@@ CONTINUATION @ @@@@-128 DMIINO DI4.0 @B@@@@DIOPRN* . SK )@@G@@RUN OPEN QUE ENTRY PROCESSING @^@@@@ TS 0,A3@A@@@@ SL )@@G@@ L A4,RNSTAT,A3 @ @@@@-145 DMIINO DI4.0 @ @@@@SM )@@G@@ L A4,BITCTL @G@@@@ TOP,U A4,PRESCD SN )@@G@@ . NO INPUT WAIT IF CONTINUE @ @@@@-157,157 DMIINO DI4.0 SO )@@G@@@ @@@@IIEXRL L A0,BITCTL @ @@@@ TEP,U A0,PRESCD SP )@@G@@@F@@@@ J 0,X11 . KEEP DESTAD IF CONTINUE SQ )@@G@@@^@@@@ TANDS TS1 @ @@@@-163 DMIINO DI4.0 @ @@@@SR )@@G@@IIALRL L A1,RQINDX @ @@@@ JZ A1,,X11 @E@@@@SS )@@G@@ L,H1 A0,29,A1 . GET SAVED ALSTCRD @ @@@@ ST )@@G@@ JZ A0,,X11 @ @@@@ SZ,H1 29,A1 @ @@@@ SU )@@G@@ TE A0,A1 @F@@@@ J EXREL . SV )@@G@@REL ALSTCRD IF NEEDED @ @@@@ J 0,X11 @ @@@@-220,2SW )@@G@@22 DMIINO DI4.0 @F@@@@ AND,U A4,-RUNWAT . CLSX )@@G@@EAR RUN BEING PROCESSED @ @@@@-225,230 DMIINO DI4.0 @D@@@@ SY )@@G@@ LMJ X11,IIALRL . REL ALSTCRD @ @@@@-231,241 DMIINO SZ )@@G@@ DI4.0 @D@@@@ LMJ X11,IIEXRL . REL DESTAD BUFTA )@@G@@@G@@_@. NYU** J IIRNSR . FAKE RUN SEARCH ON BAD RUNTB )@@G@@ CARD @A@@_@. >>> BEGIN NYU LOCAL CODE >>>@^@@_@ TS TC )@@G@@ 0,A3@ @@_@ J IINORS @A@@_@. <<< END NYU LOCTD )@@G@@AL CODE <<<@ @@@@-265,270 DMIINO DI4.0 @D@@@@ LMJ TE )@@G@@ X11,IIALRL . REL ALSTCRD @ @@@@-300 DMIINO DI4.0 TF )@@G@@@ @@@@ L A4,BITCTL @F@@@@ AND,U A4,-PRESCDTG )@@G@@ . BRK KILLS CONTINUATION @ @@@@ S A5,BITCTL TH )@@G@@@ @@@@ LMJ X11,IIALRL@ @@@@-350 DMIINO DI4.0 TI )@@G@@@ @@@@ L A4,BITCTL @F@@@@ AND,U A4,-PRESCDTJ )@@G@@ . TERM KILLS CONTINUATION @ @@@@ S A5,BITCTL TK )@@G@@@ @@@@ LMJ X11,IIALRL@ @@@@-372 DMIINO DI4.0 TL )@@G@@@D@@@@ SZ 29,A0 . CLR ALSTCRD @^@@@@-407,4TM )@@G@@07 DMIINO 4.0 @^@@@@ FSTART XKEY@ @@@@-481 DMIINO TN )@@G@@ DI4.0 @D@@@@SDICNR* . FROM DMIIFR DUE TO RSIMSG HAVING MOVED A TO )@@G@@@A@@@@ . CANNED MSG TO DESTAD @^@@@@ . A0 = POTFCT TP )@@G@@@A@@@@ . A4 = WORD COUNT OF MSG @ @@@@ L A3,ATQ )@@G@@0 @ @@@@ J OCNMS3 @ @@@@-712 DMIINO DI4.TR )@@G@@0 @^@@@@ TZ,S3 0,A1@F@@@@ J OCNMS2 TS )@@G@@ . J IF NOT RSI CANNED MSG @D@@@@ L A0,A3 TT )@@G@@ . PASS POTFCT @ @@@@ L A4,A3 @D@@@@ TU )@@G@@ FSTART RSIMSG,DIRSMG . GET MSG MOVED @ @@@@ L TV )@@G@@ A3,A4 @E@@@@ L,U X11,4 . GIVE NOP RETURTW )@@G@@N @E@@@@ J OTRET . J TO WAIT FOR RSIMSGTX )@@G@@@]@@@@OCNMS2 . @ @@@@-713 DMIINO DI4.0 @A@@@@OCNMS3 . TY )@@G@@RE-ENTER AFTER RSIMSG @ @@@@-740 DMIINO DI4.0 @^@@@@$(DI$2TZ )@@G@@I) . I VISIBLE @^@@@@-744 DMIINO 4.0 @E@@@@DICANMV* . UA )@@G@@ . DI CCF #056 9/15/73@ @@@@-759 DMIINO DI4.UB )@@G@@0 @A@@@@$(DI$1) . BACK TO I NON-VISIBLE @^@@@@-760,762 DMIINO UC )@@G@@ 4.0 @C@@@@OCANMO1 . SET WC AND LF A4 = WC , LF = 1 @ @@@@ UD )@@G@@ S A4,IMLENT @^@@@@ L,U A4,1___ . GET SAUE )@@G@@VED ALSTCRD @ @@@@ JZ A0,,X11 *[@@@@*SDFF*@^@@@@-39 UF )@@G@@ RSIMSG 32.0@#@@@@ DIOSTR @#@@@@ SLEVEL @C@@@@UG )@@G@@ DMISOM . DEFINE SOME D.I. TAGS @D@@@@DIRSMG* . ENTRY UH )@@G@@FOR D.I. TO GET CANNED MESSAGES @^@@@@ . A0 = POTFCT @ @@@@UI )@@G@@ L A3,A0 @A@@@@ L A1,DMCNMS,A0 UJ )@@G@@@D@@@@ L,T1 A2,,A1 . GET MSG INDEX @^@@_@ UK )@@G@@ AN,U A2,1@^@@@@ LSSL A2,1@D@@@@ L,S3 UL )@@G@@ A4,AXWDCV,A2 . GET WORD COUNT@E@@@@ L,H2 A1,AXWDCV,UM )@@G@@A2 . GET MSG ADDRESS @^@@@@ AN,U A1,1@F@@@@ UN )@@G@@ LMJ X11,DICANMV . XFER MSG W XLATE AS NEEDED@E@@@@ UO )@@G@@ LSSL A4,6 . POSITION WORD COUNT @E@@@@ A,UP )@@G@@U A4,DICNMR . SET Q ENTRY TYPE @ @@@@ LXI UQ )@@G@@ A3,A4 @ @@@@ L,U A0,SMDMWQ @A@@@@ R UR )@@G@@ SLSYM,SDEX1 @F@@@@ LMJ X11,SMQING . GET BACKUS )@@G@@ TO RES VIA Q @A@@@@ D SDEX1,SLSYM,R1 @ @@@@ UT )@@G@@ LMJ X11,FUNCE @#@@@@ DIOEND @^@@@@-49,49 RSIMSG UU )@@G@@ 32.0@]@@@@. NYU*** @E@@@@ CFM 68,17,QSTRTM 0 . UV )@@G@@SYSTEM SIGN-ON MSG@^@@@@-133 RSIMSG 32.0@]@@@@. NYU*** @E@@@@UW )@@G@@BELL EQU 07 . FOR TIMEOUT MSGS @^@@@@-169,1UX )@@G@@69 RSIMSG 32.0@]@@@@. NYU*** @E@@@@ '$$$$$$ NYU - UHMC 1UY )@@G@@108 OPERATING SYSTEM VER. '@^@@@@-256,256 RSIMSG 32.0@]@@@@. NYU*UZ )@@G@@** @E@@@@ '*TIMEOUT' . THANK YOU, UOM VA )@@G@@@B@@@@ + '*',BELL,' ',' ' . @^@@@@-277,277 RSIMSG VB )@@G@@ 32.0@]@@@@. NYU*** @D@@@@ '*TIMEOUT WARNING' . VC )@@G@@UOM, TOO @B@@@@ + '*',BELL,' ',' ' . ___^@)A@7^@)VD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) 0)C1JEK)E-DD( D9PE))D(NC9N^@)@A@@@@ *1A09 )1A09VE )@@G@@^@)ELNDDHETB^@)^@)AS2 00*[@@@@*SDFF*@^@@@@-78 CSP 32.0@A@@@@VF )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @G@@@@. ALTER ACCOUNT NUVG )@@G@@MBER FOR ROLOUT AND ROLBAK SUCH THAT 12TH CHARACTER @F@@@@. IS A @. CVH )@@G@@ODE AT 'SETACCT' WILL SET THE ACCOUNT TO THE OVERHEAD @]@@@@. ACCOUNT. VI )@@G@@@[@@@@. @ @@@@ L A3,A2 @F@@@@ L,U VJ )@@G@@ A5,010201 . FIND ACCOUNT NUMBER @B@@@@ LMJ VK )@@G@@ X11,FINDNYU . @D@@@@ J XWAIT . VL )@@G@@NO ACCT (?) @E@@@@ L,S6 A1,,A3 . IS ACCT 2 WOVM )@@G@@RDS? @^@@@@ TNE,U A1,2@F@@@@ SZ,S6 2,A3 VN )@@G@@ . YES, SET 12TH CHAR TO @ @A@@@@. <<< END NYU LOCAL CODVO )@@G@@E <<<@^@@@@-125,126 CSP 32.0@A@@@@. >>> BEGIN NYU LOCAL COVP )@@G@@DE >>>@[@@@@. @G@@@@. WE ARE REMOVING X-OPTIONS LATER, ALLOWING THEMVQ )@@G@@ FORM OVERHEAD RUNS IN @G@@@@. RUN$, ETC., SO MAKE SURE SYS HAS FINNED VR )@@G@@BEFORE CONTINUING IF X-OPTION @]@@@@. IS SET. @[@@@@. @F@@@@ VS )@@G@@ TOP,U A4,XOPT . X-OPTION ON RUN CARD? @D@@@@ VT )@@G@@ J RTRN2A . NO, GO ON @F@@@@XWAIT2 TNZ,H2 VU )@@G@@ INITSW . HAS SYS FINNED YET? @D@@@@ J VV )@@G@@ RTRN2A . YES, GO ON @C@@@@ L,U A1,1000 VW )@@G@@ . NO @E@@@@ ER TWAIT$ . WAIT OVX )@@G@@NE SECOND @E@@@@ J XWAIT2 . AND TRY AGAIVY )@@G@@N @A@@@@. <<< END NYU LOCAL CODE <<<@A@@@@. >>> BEGIN VZ )@@G@@NYU LOCAL CODE >>>@^@@@@-606 CSP DI @A@@@@. FIX FOR DI TO MAWA )@@G@@KE 'D' HOLD WORK @A@@@@ L,H2 A3,INPUT,A2 @E@@@@ WB )@@G@@ TZ,S1 0,A3 . =0, COULD BE DI @D@@@@ J WC )@@G@@ RSIYES . NO, NOT DI @A@@@@ L,H1 A3,IWD )@@G@@NPUT,A2 @D@@@@ LMJ X11,SYCKDIR . AM I DI? WE )@@G@@@D@@@@ J RSIYES . NO, NOT DI @E@@@@ WF )@@G@@ L,U A5,QDHOLD . GET 'D' HOLD MSG @E@@@@ TZWG )@@G@@ RSDHLD . DEMAND RUN HOLD? @C@@@@ J WH )@@G@@ QRSIMSG . NO @]@@@@RSIYES. @A@@@@. <<< END NWI )@@G@@YU LOCAL CODE <<<@^@@@@-634,634 CSP 32.0@A@@@@. >>> BEGIN WJ )@@G@@NYU LOCAL CODE >>>@[@@@@. @G@@@@. CSTART WILL CHECK FOR LEGAL USAGE WK )@@G@@OF OVERHEAD ACCOUNT, AND WILL CHANGE@G@@@@. ACCOUNT SO THAT THE 12TH CHAWL )@@G@@RACTER IS A '@'. WE MUST NOWCHANGE IT @G@@@@. BACK TO THE OVERHEAD AWM )@@G@@CCOUNT. X-OPTIONS MUST BE REMOVED FROM ALL RUNS@B@@@@. WHICH DO NOT HAVWN )@@G@@E THE OVERHEAD ACCOUNT. @[@@@@. @G@@@@. EXPLICIT USAGE OF THE OVERHEWO )@@G@@AD ACCOUNT ON A @RUN CARD, @START CARD, @F@@@@. OR ST KEYIN IS NOT ALLWP )@@G@@OWED. IT WILL NOT BE CHANGED TO '@' BY @D@@@@. CSTART, AND WILL GET RWQ )@@G@@EJECTED BY THE CODE BELOW. @[@@@@. @H@@@@. CSN WILL MARK A RUN ASWR )@@G@@ PRIVILEGED IF IT HAS THE OVERHEAD ACCOUNT NUMBER. @[@@@@. @F@@@@WS )@@G@@ TNE,U A1,2 . IS ACCOUNT 2 WORDS? @F@@@@WT )@@G@@ TZ,S6 2,A3 . AND IS 12TH CHAR = '@' ?@E@@@@WU )@@G@@ J NGLTCH . NO, NORMAL USER @G@@@@ WV )@@G@@ DL A4,(OVRACC) . YES, CHANGE TO OVERHEAD ACCT @G@@@@WW )@@G@@ J NOTOVR . GO ON, ALLOWING X-OPTIONS WX )@@G@@@E@@@@NGLTCH AND A0,CONST(-XOPT) . REMOVE X-OPTION @B@@@@WY )@@G@@ S A1,1,X8 . @A@@@@. <<< END NYU LOCWZ )@@G@@AL CODE <<<@^@@@@-718 CSP 32.0@#@@@@ DIOSTR @ @@@@XA )@@G@@ L,U A5,QBADRNM@^@@@@ TEP,U A4,2@ @@@@ XB )@@G@@ J QRSIMSG @#@@@@ DIOEND @E@@@@-1267,1268 CSP XC )@@G@@ 32.0 NYU*** ERT=25 IF NONE SPECIFIED @ @@@@-1287 CSP 32.XD )@@G@@0 @A@@@@. >>> BEGIN NYU LOCAL CODE >>>@G@@@@ TNZ XE )@@G@@ A4 . IS ESTIMATED RUN TIME ZERO? @F@@@@ LAXF )@@G@@,U A4,25 . YES, MAKE IT 25 SECS. @A@@@@. <<< XG )@@G@@ END NYU LOCAL CODE <<<@^@@@@-2200 CSP 32.0@A@@@@FINDNYU . XH )@@G@@NYU*** SEE CODE AT -78___ . NO @E@@@@ ER TWAIXI )@@G@@T$ . WAIT O*[@@@@*SDFF*@^@@@@-1245 DISP 32.0@A@@@@XJ )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@I@@@@ TG,U A8,02000 XK )@@G@@ . DI2.00 @F@@@@ TGXL )@@G@@,U A8,02300 . SPEC ERS 02000 TO 02300 @^@@@@ J XM )@@G@@ $+2 @I@@@@ AN,U A8,02000 . ADJUST FOR SPEXN )@@G@@CIAL ERS . DI2.00 @D@@@@ TNE,U A8,0142 XO )@@G@@ . OLD ER RSWAP$?@F@@@@ L,U A8,TSWAP$ . YES, CHAXP )@@G@@NGE IT TO TSWAP$ @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-1828 XQ )@@G@@ DISP 32.0@#@@@@ DIOSTR @ @@@@ TE,U A2,WXR )@@G@@ERACT @#@@@@ DIOEND @^@@@@-2353 DISP 32.0@#@@@@ XS )@@G@@ DIOSTR @]@@@@ACTER5 . @#@@@@ DIOEND @^@@@@-2362 DIXT )@@G@@SP 32.0@#@@@@ DIOSTR @ @@@@ TEP,U A2,WESBIT XU )@@G@@@ @@@@ J ACTER8 @#@@@@ DIOEND @^@@@@-2369 XV )@@G@@ DISP 32.0@#@@@@ DIOSTR @ @@@@ACTER8 AN,U A2,WXW )@@G@@ESBIT @ @@@@ S A2,SI,A0 @ @@@@ J ACTEXX )@@G@@R5 @ @@@@WESTACT* L X11,TAL @A@@@@ R INDEXY )@@G@@F,SDEX1 @ @@@@ TS TSSWL,A0 @ @@@@ L XZ )@@G@@ A2,SI,A0 @ @@@@ TEP,U A2,ADWAIT @ @@@@ J YA )@@G@@ WESTACNO @ @@@@ TOP,U A2,WESBIT @ @@@@ J YB )@@G@@ ACTER7 @ @@@@ACTER6 AN,U A2,WESBIT @ @@@@ S YC )@@G@@ A2,SI,A0 @ @@@@ CTS TSSWL,A0 @A@@@@ D YD )@@G@@ SDEX1,INDEF,*X11@^@@@@ LXI,U A0,0@ @@@@ LMJ YE )@@G@@ X11,ACT @]@@@@WERACT . @^@@@@ J 0,A3@ @@@@ACTER7YF )@@G@@ L A1,SQ,A0 @^@@@@ OR,U A1,2@ @@@@ S YG )@@G@@ A2,SQ,A0 @ @@@@WESTACNO CTS TSSWL,A0 @A@@@@ D YH )@@G@@ SDEX1,INDEF,*X11@^@@@@ J 0,A3@I@@@@/ . THYI )@@G@@IS IS THE CODE FOR WEST$ . DI2.00 YJ )@@G@@@]@@@@$(L$IZ) . @I@@@@WESGKY + WESKEY . KEY FOR YK )@@G@@WEST$ CALL . DI2.00 @I@@@@WEST . DEACT TO WAIT FOR EXYL )@@G@@TERNAL STIMULUS . DI2.00 @I@@@@ L,YM )@@G@@U A3,020 . DI2.00 YN )@@G@@@I@@@@ TOP A3,SU,X10 YO )@@G@@ . DI2.00 @I@@@@ J DACT2 . OMLY NAMYP )@@G@@ED ACTIVITIES PLEASE . DI2.00 @I@@@@ L,U A0,,X10 YQ )@@G@@ . DI2.00 @I@@@@ L YR )@@G@@ A3,UX11 . GET USER'S SECRET KEY . DI2.00 YS )@@G@@@I@@@@ TNE A3,WESGKY ALLOW ONLY THOSE WHO KNOW YT )@@G@@ . DI2.00 @I@@@@ J WEST1 YU )@@G@@ . DI2.00 @I@@@@ L A1,SD,X10 YV )@@G@@ . DI2.00 @I@@@@ TEYW )@@G@@ A0,PCDMSI,A1 . DI2.00 YX )@@G@@@I@@@@ TNE A0,PCDMSO,A1 YY )@@G@@ . DI2.00 @I@@@@ J WEST1 YZ )@@G@@ . DI2.00 @I@@@@ J DACT2 ZA )@@G@@ . ONLU DMI ACTIVITIES ALLOWED . DI2.00 @I@@@@WEST1 LXZB )@@G@@I,U A0,LGWBIT+WESBIT . DI2.00 ZC )@@G@@@ @@@@ L,U A5,SRSTOP @ @@@@ TEP A5,SR,X10 ZD )@@G@@@G@@@@ J DOOVER . J IF ASYNC. CONTIN. PENDINZE )@@G@@G @I@@@@ LMJ X11,WESTSUB . CHECK FOR SAM ZF )@@G@@ . DI2.00 @I@@@@ J DIDADC . ITZG )@@G@@ WAS SET, DON'T DEACT . DI2.00 @I@@@@ LMJ X9,DZH )@@G@@EACTS . DEACT AND SAVE REGS . DI2.00 @I@@@@ ZI )@@G@@ L A0,EX10 . DI2.ZJ )@@G@@00 @I@@@@ LXI,U A0,WESBIT . SET UP IN CASE OF ACZK )@@G@@T . DI2.00 @I@@@@ LMJ X11,WESTSUB . SEZL )@@G@@E IF SAM IS SET NOW . DI2.00 @I@@@@ LMJ X11,ZM )@@G@@ACT . IT WAS . DI2.00 @I@@@@ ZN )@@G@@ J DIDADC . DI2.ZO )@@G@@00 @D@@@@WESTSUB . CLEAR AND CHECK FOR ER TYPE SAM @I@@@@ZP )@@G@@ TS TSSWL,X10 ZQ )@@G@@. DI2.00 @I@@@@ L A2,SQ,X10 ZR )@@G@@ . DI2.00 @I@@@@ AND,U A2,075 ZS )@@G@@ . CLEAR ER TYPE SAM . DI2.00 @I@@@@ S ZT )@@G@@ A3,SQ,X10 . DI2.00 @I@@@@ZU )@@G@@ CTS TSSWL,X10 ZV )@@G@@. DI2.00 @I@@@@ TEP,U A2,2 . WAS SAM SET ZW )@@G@@ . DI2.00 @I@@@@ J 0,X11 ZX )@@G@@ . YES . DI2.00 @I@@@@ J ZY )@@G@@ 1,X11 . NO . DI2.00 @I@@@@ZZ )@@G@@ DIOEND AA )@@G@@. DI2.00 @F@@@@-2957,2957 DISP **RCR** CHANGE TWAIT FAB )@@G@@OR SWAPPING @F@@@@ TLE,U A4,100*5 . IS WAIT TIMEAC )@@G@@ <100 MS @^@@@@-3295,3295 DISP 32.0@A@@@@. >>> BEGIN NYU LOAD )@@G@@CAL CODE >>>@[@@@@. @D@@@@. ***TEMPORARY*** - USE ONLY CPU SUPS FORAE )@@G@@ MAXTIME @[@@@@. @D@@@@ L A2,CC,A0 . AF )@@G@@GET CPU SUPS@G@@@@ TG A2,AD,A0 . REACHED EXTIAG )@@G@@MATED TIME YET? @A@@@@. <<< END NYU LOCAL CODE <<<@A@@@@-3325,AH )@@G@@3326 DISP 32.0 ***TEMP**** @D@@@@-3829,3829 DISP 32.0 NYU** EDJS$AI )@@G@@ DEFINED IN ERU$ @ @@@@-4007/2 DISP 32.0 @A@@@@. >>> AJ )@@G@@BEGIN NYU LOCAL CODE >>>@E@@@@ DO 5 , ERH ERSTOP . AK )@@G@@0202-0206 - FILLER@D@@@@ ERH BEEP,,3 120 . 0207 BAL )@@G@@EEP$ @#@@@@ DIISTR @E@@@@ DO 6 , ERH ERSTOP AM )@@G@@ . 0210-0215 - FILLER@#@@@@ DIIEND @I@@@@ DIOSTR AN )@@G@@ . DI2.00 @D@@@@AO )@@G@@ ERH DMIINT,F+D 2000 . 0210 DMINT$ @D@@@@ ERAP )@@G@@H DMIIN,,,I 200 . 0211 DMIN$ @D@@@@ ERH DMIIAQ )@@G@@NC,,,I 50 . 0212 DMINC$ @D@@@@ ERH DMOT,,,I 50AR )@@G@@ . 0213 DMOT$ @D@@@@ ERH DMOTC,,,I 200 . 0214 DMAS )@@G@@OTC$ @D@@@@ ERH WEST 1000 . 0215 WEST$ @I@@@@AT )@@G@@ DIOEND AU )@@G@@. DI2.00 @C@@@@ ERH ID1ER,,,I 90 . 0216 ID$@D@@@@AV )@@G@@ ERH SN$AP,D+F 200 . 0217 SNAPA$ @D@@@@ ERAW )@@G@@H SN$AP,D+F 200 . 0220 SITID$ @D@@@@ ERH ERSTAX )@@G@@OP . 0221 FILLER @E@@@@ ERH POINTER,,,I 1AY )@@G@@000 . 0222 POINTER$ @D@@@@ ERH ERSLR,,,I 90 . AZ )@@G@@0223 SLR$ @A@@@@. <<< END NYU LOCAL CODE <<<@E@@@@-4020,4021 BA )@@G@@DISP 32.0 NYU** CRTN$ BDSPT$ DEF IN ERU$ @D@@@@-4024,4024 DISP BB )@@G@@32.0 NYU** SYSBAL$ DEFINED IN RU$ ___@@@ L A2,SQ,X10 BC )@@G@@ *[@@@@*SDFF*@^@@@@-6 SN$AP 32.0@A@@@@BD )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@#@@@@ CSDOC @#@@@@ BE )@@G@@ CQDEF @E@@@@SITID$ EQU 02220 . ER SITID$ COBF )@@G@@DE @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-44 SN$AP BG )@@G@@ 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@G@@@@ L,T1 BH )@@G@@ A1,,A0 . SEE IF IT'S AN 'SI' KEYIN @C@@@@ TNBI )@@G@@E,U A1,'SI' . IS IT?@G@@@@ J SIKEY BJ )@@G@@ . YES, HANDLE AT SIKEY ROUTINE @A@@@@. <<< END NYU LOCBK )@@G@@AL CODE <<<@^@@@@-46 SN$AP 32.0@A@@@@. >>> BEGIN NYU LOBL )@@G@@CAL CODE >>>@D@@@@ TNE,U A1,SITID$-02000 . ER SITID$? BM )@@G@@@E@@@@ J SITER . YES,SITER NO @A@@@@BN )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-58,58 SN$AP 32.0@A@@@@BO )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @G@@@@. CODE FORBP )@@G@@ ER SNAPA$ (02217) - SNAP$ TO ALTERNATE PRINT FILE @D@@@@. FIBQ )@@G@@LENAME IS IN WORDS 3-4 OF USER PACKET @[@@@@. @B@@@@ L BR )@@G@@ A1,R2 . @D@@@@ SSL A1,18 BS )@@G@@ . GET ER INDEX@D@@@@ TNE,U A1,SNAPA$-02000 . SNAPA$BT )@@G@@? @G@@@@ J ALTSN1 . YES, GET BIGGER EXBU )@@G@@POOL BUFFER @G@@@@ EXGET,'I' 63,EXP$T . GET 63-WORD BV )@@G@@EXPOOL BUFFER @D@@@@ J NTALT1 . CONTINBW )@@G@@UE @I@@@@ALTSN1 EXGET,'I' 127,EXP$T . GET 127-WORD EXPOOBX )@@G@@L BUFFER FOR SNAPA$ @]@@@@NTALT1 . @A@@@@. <<< END NYU LOCBY )@@G@@AL CODE <<<@^@@@@-106 SN$AP 32.0@A@@@@. >>> BEGIN NYU LOBZ )@@G@@CAL CODE >>>@E@@@@ SZ ALTSNP,A2 . CLEAR SNAPA$CA )@@G@@ FLAG @D@@@@ TE,U A0,SNAPA$-02000 . SNAPA$? @D@@@@CB )@@G@@ J NTALT2 . NO, CONTINUE@B@@@@ L,CC )@@G@@U A0,1 . @E@@@@ S A0,ALTSNP,A2 CD )@@G@@ . YES, SET FLAG @F@@@@ L,U A0,SNAP$ . CE )@@G@@GET REAL SNAP$ CODE @]@@@@NTALT2 . @A@@@@. <<< END NYU LOCCF )@@G@@AL CODE <<<@^@@@@-154 SN$AP 32.0@A@@@@. >>> BEGIN NYU LOCG )@@G@@CAL CODE >>>@D@@@@ TZ ALTSNP,X11 . SNAPA$? CH )@@G@@@F@@@@ LXI,U A0,5 . YES, PACKET IS 5 WORDS CI )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-163 SN$AP 32.0CJ )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@ TNZ ALTSCK )@@G@@NP,X11 . SNAPA$? @D@@@@ J NTALT3 CL )@@G@@ . NO, CONTINUE@H@@@@ DL A4,*3,A3 . YES, GCM )@@G@@ET FILENAME FROM USER'S PKT @F@@@@ DS A4,64,X11 CN )@@G@@ . STORE IN EXPOOL BUFFER @E@@@@ L,H2 A0,SWLSAV,X11 CO )@@G@@ . GET USER'S SWL @G@@@@ S R1,X11 . CP )@@G@@SAVE ABS ADDR OF ER PACKET @D@@@@ L A0,SD,A0 CQ )@@G@@ . GET PCT ADDR@G@@@@ A,U A0,PCTNAM . POINT CR )@@G@@TO FACILITIES SECTION @B@@@@ R SLSNAP,SDEX1 . CS )@@G@@@B@@@@ TS *0,A0 . @F@@@@ASN1 L,U CT )@@G@@ A1,,A0 . GET PCTNAM ADDR IN A1 @H@@@@ L,S3 CU )@@G@@ R1,*0,A0 . R1 GETS NUMBER OF NAMES THIS BUFFER @G@@@@ CV )@@G@@ AH A1,(3,-2) . A1 BECOMES FILENAME INDEX @G@@@@CW )@@G@@ASN2 SE A4,*3,*A1 . SEARCH FOR FIRST 6 CHARS SAME CX )@@G@@@G@@_@ J ASN4 . NO FIND IN THIS PCTNAM BCY )@@G@@UFFER @H@@@@ TE A5,*1,A1 . FOUND ONE - IS SECCZ )@@G@@OND WORD SAME? @F@@@@ J ASN2 . NO, CODA )@@G@@NTINUE SEARCH @G@@_@ A,H2 A0,*2,A1 . YES, PDB )@@G@@OINT TO FILE DESC ENTRY @D@@_@ TZ PCFEQT,A0 . DC )@@G@@DUMMY NAME? @E@@_@ J ASN3 . NO, GOT THE DD )@@G@@FILE @H@@_@ AN,H2 A0,*2,A1 . YES, POINT BACK TODE )@@G@@ PCTNAM BUFFER @E@@_@ J ASN2 . CONTINDF )@@G@@UE SEARCH @E@@_@ASN3 L,U A0,1 . SET GOT-ONE DG )@@G@@STATUS@D@@_@ J ASN6 . THAT'S IT @F@@_@DH )@@G@@ASN4 TNZ,H2 *0,A0 . ANOTHER PCTNAM BUFFER? @F@@_@DI )@@G@@ J ASN5 . NOPE, FILE NOT FOUND @G@@@@DJ )@@G@@ A,H2 A0,*0,A0 . YES, POINT TO NEXT BUFFER DK )@@G@@@E@@@@ J ASN1 . SEARCH NEW BUFFER @E@@_@DL )@@G@@ASN5 L,U A0,0 . SET NO-FIND STATUS@F@@_@ASN6 DM )@@G@@ L R1,X11 . RESTORE ABS PKT ADDR @F@@@@ DN )@@G@@ L X11,R3 . RESTORE BUFFER ADDR @E@@@@ DO )@@G@@ L,H2 A1,SWLSAV,X11 . GET USER'S SWL @D@@@@ L DP )@@G@@ A1,SD,A1 . PCT ADDR @D@@@@ CTS *PCTDQ )@@G@@NAM,A1 . CLEAR TS @B@@@@ D SDEX1,SLSNAP,A1 DR )@@G@@ . @E@@@@ JZ A0,OVRLIM . ERROR USER OFF DS )@@G@@@]@@@@NTALT3 . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-319,3DT )@@G@@20 SN$AP 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@#@@@@ DU )@@G@@ EXSNPS @A@@@@ L R2,ERINDX,X11 @#@@@@ EXDV )@@G@@SNPE @F@@@@ EXRELP X11 . RELEASE EXPOOL BUFDW )@@G@@FER @]@@@@SITEXT . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@DX )@@G@@-324 SN$AP 32.0@]@@@@. NYU*** @#@@@@ EXSNPS @^@@@@DY )@@G@@-325 SN$AP 32.0@]@@@@. NYU*** @#@@@@ EXSNPE @^@@@@DZ )@@G@@-377 SN$AP 32.0@]@@@@. NYU*** @#@@@@ EXSNPS @^@@@@EA )@@G@@-379 SN$AP 32.0@]@@@@. NYU*** @#@@@@ EXSNPE @^@@@@EB )@@G@@-418,420 SN$AP 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@#@@@@EC )@@G@@ EXSNPS @D@@@@ TZ ERINDX,X11 . EXEC SED )@@G@@NAP? @C@@@@ J EXSNRR . YES @#@@@@ EE )@@G@@ EXSNPE @F@@@@ J TSTRBT . CHECK IF R REF )@@G@@EGS WANTED @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-456 SNEG )@@G@@$AP 32.0@]@@@@. NYU*** @#@@@@ EXSNPS @^@@@@-458 SNEH )@@G@@$AP 32.0@]@@@@. NYU*** @#@@@@ EXSNPE @^@@@@-533,533 SNEI )@@G@@$AP 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@ TZEJ )@@G@@ ALTSNP,X9 . SNAPA$? @E@@@@ J ALTSEK )@@G@@N4 . YES, DO PRNTA$ @E@@@@ ERIDX PRINT$ EL )@@G@@ . NO, DO PRINT$ @D@@@@ J NTALT4 EM )@@G@@ . CONTINUE @E@@@@ALTSN4 S A0,63,X9 . STORE EN )@@G@@CW IN PKT @D@@@@ L,U A0,63,X9 . GET PKT ADDREO )@@G@@@D@@@@ ERIDX PRNTA$ . DO PRNTA$ @]@@@@NTALT4EP )@@G@@ . @A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-544 SN$AP EQ )@@G@@ 32.0@]@@@@. NYU*** @#@@@@ EXSNPS @^@@@@-546 SN$AP ER )@@G@@ 32.0@]@@@@. NYU*** @#@@@@ EXSNPE @^@@@@-649,649 SN$AP ES )@@G@@ 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@ TZ ET )@@G@@ ALTSNP,A2 . SNAPA$? @E@@@@ J ALTSN5 EU )@@G@@ . YES, DO PRNTA$ @E@@@@ ERIDX PRINT$ EV )@@G@@ . NO, DO PRINT$ @D@@@@ J NTALT5 . EW )@@G@@CONTINUE @E@@@@ALTSN5 S A0,63,A2 . STORE CW IN EX )@@G@@PKT @D@@@@ L,U A0,63,A2 . GET PKT ADDR@D@@@@EY )@@G@@ ERIDX PRNTA$ . DO PRNTA$ @]@@@@NTALT5 . EZ )@@G@@@A@@@@. <<< END NYU LOCAL CODE <<<@^@@@@-676,676 SN$AP 32.0FA )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@D@@@@ TZ ALTSFB )@@G@@NP,A2 . SNAPA$? @E@@@@ J ALTSN6 FC )@@G@@ . YES, DO PRNTA$ @E@@@@ ERIDX PRINT$ . FD )@@G@@NO, DO PRINT$ @D@@@@ J NTALT6 . CONTINFE )@@G@@UE @E@@@@ALTSN6 S A0,63,A2 . STORE CW IN PKT FF )@@G@@@D@@@@ L,U A0,63,A2 . GET PKT ADDR@D@@@@ FG )@@G@@ ERIDX PRNTA$ . DO PRNTA$ @]@@@@NTALT6 . @A@@@@FH )@@G@@. <<< END NYU LOCAL CODE <<<@^@@@@-691,691 SN$AP 32.0@A@@@@FI )@@G@@. >>> BEGIN NYU LOCAL CODE >>>@B@@@@ L X9,R3 FJ )@@G@@ . @D@@@@ TZ ALTSNP,X9 . SNAPA$? FK )@@G@@@E@@@@ J ALTSN7 . YES, DO PRNTA$ @E@@@@FL )@@G@@ ERIDX PRINT$ . NO, DO PRINT$ @D@@@@ FM )@@G@@ J NTALT7 . CONTINUE @E@@@@ALTSN7 S FN )@@G@@ A0,63,X9 . STORE CW IN PKT @D@@@@ L,U A0,6FO )@@G@@3,X9 . GET PKT ADDR@D@@@@ ERIDX PRNTA$ FP )@@G@@ . DO PRNTA$ @]@@@@NTALT7 . @A@@@@. <<< END NYU LOCAL CODFQ )@@G@@E <<<@^@@@@-696 SN$AP 32.0@]@@@@. NYU*** @D@@@@ TNFR )@@G@@Z ALTSNP,X9 . SNAPA$? @ @@@@-759,759 SN$AP 32.2FS )@@G@@44 @]@@@@. NYU*** @ @@@@ P 1,1,SPACES@^@@@@-781 FT )@@G@@ SN$AP 32.0@]@@@@. NYU*** @D@@@@ALTSNP EQUF WRD50,,S6 FU )@@G@@ . SNAPA$ FLAG @^@@@@-782 SN$AP 32.0@A@@@@/. >>> FV )@@G@@BEGIN NYU LOCAL CODE >>>@[@@@@. @[@@@@. @ @@@@. ENTRY FOFW )@@G@@R ER SITID$ @[@@@@. @H@@@@. RETRIEVES SITE-ID OF ANY ACTIVE FX )@@G@@DEMAND RUN, OR DEVICE ASSOCIATION @A@@@@. FOR ANY ACTIVE BATCHFY )@@G@@ RUN @[@@@@. @ @@@@. CALL: L A0,RUNID @ @@@@. FZ )@@G@@ ER SITID$ @[@@@@. @C@@@@. RETURNS STATUS IN A0, AND GA )@@G@@SITEID IN A1@[@@@@. @^@@@@. STATUS CODES: @ @@@@. 0 GB )@@G@@- FOUND DEMAND RUN@ @@@@. 1 - FOUND BATCH RUN @ @@@@. 2 GC )@@G@@- RUNID NOT FOUND @[@@@@. @[@@@@. @]@@@@SITER . @D@@@@ GD )@@G@@ S A0,R3 . SAVE SWL @H@@@@ S GE )@@G@@ A1,R2 . SET ERINDX NONZERO FOR EXIT ROUTINE @E@@@@ GF )@@G@@ LMJ X11,LOKRCT . LOCK RCT CHAIN @E@@@@ L GG )@@G@@ A3,SC,A0 . ABS ADDR OF ASA @G@@@@ L GH )@@G@@ X11,GB,A3 . REL LINK TO MINOR SAVE AREA @G@@@@ A GI )@@G@@ X11,A3 . GET ABS ADDR OF REG SAVE AREA @G@@@@ GJ )@@G@@ L A1,GH,X11 . PICK UP RUNID FROM USER'S A0 @F@@@@GK )@@G@@ L,U A0,2 . ASSUME RUN NOT FOUND @F@@@@GL )@@G@@ L A3,RSC . SEARCH RCT FOR RUNID @E@@@@GM )@@G@@SFR TNE,U A3,077 . END OF CHAIN? @E@@@@ GN )@@G@@ J SITEX . YES,SITEX NO @D@@@@ TNGO )@@G@@E A1,4,A3 . CORRECT RCT?@E@@@@ J GOTRGP )@@G@@UN . YES,GOTRUN NO @D@@@@ L,H2 A3,5,A3 GQ )@@G@@ . NEXT RCT @G@@@@ J SFR . GR )@@G@@CONTINUE SEARCH FOR RUNID @F@@@@GOTRUN L,U A0,2 GS )@@G@@ . ASSUME RUN NOT OPEN @B@@@@ L A4,RTCT,A3 GT )@@G@@ . @D@@@@ L A1,RTYPE,A3 . GET RUN TYPE@E@@@@GU )@@G@@ TEP,U A4,020 . IS RUN ACTIVE? @C@@@@ GV )@@G@@ J SITEX . NO @E@@@@ L A3,RGW )@@G@@CQLNK,A3 . YES, GET CQE ADDR @E@@@@ L A3,QRD$DT,GX )@@G@@A3 . POINT TO RD$DT @D@@@@ TE,U A1,4 GY )@@G@@ . DEMAND RUN? @H@@@@ J BATCH . NO, GEGZ )@@G@@T DEVICE ASSOC. FOR BATCH RUNS@A@@@@ L,H2 A1,0,A3 RQINDX HA )@@G@@@C@@@@ JZ A1,SITEX . ? @A@@@@ L,HB )@@G@@H2 A1,4,A1 SACTWD @D@@@@ L A1,0,A1 . HC )@@G@@GET SITE-ID @E@@@@ L,U A0,0 . SET DEMAND SHD )@@G@@TATUS @G@@@@ J STORIT . GIVE USER STATUS AHE )@@G@@ND SITEID @E@@@@BATCH A,U A3,RDTLEN . POINT TO PR$HF )@@G@@DT @F@@@@ L A1,DEVAPR . GET DEVICE ASSOCIAHG )@@G@@TION @F@@@@ L,U A0,1 . SET BATCH INDICATOHH )@@G@@R @G@@@@STORIT S A1,GI,X11 . STORE SITE-ID IN UHI )@@G@@SER'S A1 @F@@@@SITEX SZ,S2 RCTC . CLEAR LOCK OHJ )@@G@@N RCT CHAIN @F@@@@ S A0,GH,X11 . STATUS GOES HK )@@G@@IN USER'S A0@D@@@@ J SITEXT . THAT'S IT HL )@@G@@@D@@@@/. SUBROUTINE TO LOCK RCT CHAIN (COPIED FROM CSK) @[@@@@. HM )@@G@@@E@@@@LOKRCT L,U A1,LWAIT/8 . GET WAIT TIME @B@@@@HN )@@G@@ R SLSNAP,SDRCT,R1 . @B@@@@ TS RCTCHO )@@G@@ . @D@@@@ TNZ,S2 RCTC . RCT INHP )@@G@@ USE? @D@@@@ J SETRCT . NO, LOCK IT @B@@@@HQ )@@G@@ CTS RCTC . @G@@@@ D SDRCHR )@@G@@T,SLSNAP,R1 . DROP BACK TO SNAP'S LEVEL @D@@@@ ER HS )@@G@@ TWAIT$ . AND WAIT @F@@@@ TLE,U A1,1000 HT )@@G@@ . WAITED MAXIMUM YET? @F@@@@ LSSL A1,1 HU )@@G@@ . NO, DOUBLE WAIT TIME @E@@@@ J LOKRCT+1 HV )@@G@@ . AND WAIT SOME MORE@B@@@@SETRCT L,U R1,1 HW )@@G@@ . @E@@@@ S,S2 R1,RCTC . MARK RCT AS IN USEHX )@@G@@@^@@@@ CTS RCTC@G@@@@ D SDRCT,SLSNAP,R1 HY )@@G@@ . DROP BACK TO SNAP'S LEVEL @C@@@@ J 0,X11 HZ )@@G@@ . RETURN@[@@@@/. @G@@@@. 'SI' KEYIN - DISPLAY DEMANIA )@@G@@D TERMINAL SITEID FOR GIVEN RUNID @[@@@@. @A@@@@. KEYIN FOIB )@@G@@RMAT IS: SI RUNID@[@@@@. @H@@@@COMPKT EQUF 0,A0 IC )@@G@@ . COM$ PKT IN KEYIN EXPOOL BUFFER @F@@@@SIMSG EQUF 3,A0ID )@@G@@ . CONSOLE MESSAGE BUFFER @[@@@@. @]@@@@SIKEY . IE )@@G@@@E@@@@ L,H2 A1,,A0 . KEYIN CHAR COUNT @D@@@@IF )@@G@@ JZ A1,SIKYER . IF NONE, @E@@@@ TGIG )@@G@@,U A1,7 . OR MORE THAN SIX, @E@@@@ J IH )@@G@@ SIKYER . SAY 'SI KEY ERROR'@E@@@@ LMJ X11,II )@@G@@LOKRCT . LOCK RCT CHAIN @D@@@@ L A1,('RUN: IJ )@@G@@@') . START MSG @F@@@@ L A2,1,A0 . IK )@@G@@GET RUNID FROM KEYIN @F@@@@ DS A1,SIMSG . IL )@@G@@STORE IN COM$ BUFFER @E@@@@ L,U A1,2 . IM )@@G@@SET NOT-FOUND FLAG@F@@@@ L A3,RSC . SEARCHIN )@@G@@ RCT FOR RUNID @E@@@@SFR1 TNE,U A3,077 . END OFIO )@@G@@ CHAIN? @E@@@@ J ENDCHN . YES,ENDCHAINIP )@@G@@ NO @D@@@@ TNE A2,4,A3 . RIGHT RCT? @E@@@@IQ )@@G@@ J GOTRN1 . YES,GOTRN1 NO @D@@@@ IR )@@G@@ L,H2 A3,5,A3 . NEXT RCT @G@@@@ J IS )@@G@@ SFR1 . CONTINUE SEARCH FOR RUNID @F@@@@GOTRN1 L,IT )@@G@@U A1,2 . SET NO-FIND FLAGLAG @B@@@@ L IU )@@G@@ A4,RTCT,A3 . @D@@@@ L A2,RTYPE,A3 IV )@@G@@ . GET RUN TYPE@E@@@@ TEP,U A4,020 . IS RUNIW )@@G@@ ACTIVE? @E@@@@ J ENDCHN . NO,ENDCHN IX )@@G@@YES @D@@@@ L A3,RCQLNK,A3 . GET CQE ADDR@E@@@@IY )@@G@@ L A3,QRD$DT,A3 . POINT TO RD$DT @D@@@@ IZ )@@G@@ TE,U A2,4 . DEMAND RUN? @H@@@@ J JA )@@G@@ BATCH1 . NO, GET DEV ASSOC FOR BATCH RUNS @A@@@@ JB )@@G@@ L,H2 A2,0,A3 RQINDX @C@@@@ JZ A2,ENDCHN JC )@@G@@ . ? @A@@@@ L,H2 A2,4,A2 SACTWD @D@@@@ L JD )@@G@@ A2,0,A2 . GET SITEID @E@@@@ L,U A1,0JE )@@G@@ . SET GOT-IT FLAG @B@@@@ J ENDCHN JF )@@G@@ . @E@@@@BATCH1 A,U A3,RDTLEN . POINT TO PR$JG )@@G@@DT @F@@@@ L A2,DEVAPR . GET DEVICE ASSOCIAJH )@@G@@TION @E@@@@ L,U A1,0 . SET GOT-IT FLAG JI )@@G@@@F@@@@ENDCHN SZ,S2 RCTC . CLEAR LOCK ON RCT CHAIN JJ )@@G@@@D@@@@ JNZ A1,NOGOOD . FIND SITEID?@E@@@@ JK )@@G@@ . NO,NOGOOD YES @A@@@@ L JL )@@G@@ A1,(' SITE:') @G@@@@ DS A1,SIMSG+2 . JM )@@G@@STORE SITEID IN MSG BUFFER @E@@@@SITCOM SZ COMPKT JN )@@G@@ . SET UP COM$ PKT @B@@@@ SZ COMPKT+2 . JO )@@G@@@D@@@@ LXI,U A1,24 . 24 CHARS @B@@@@ JP )@@G@@ LXM,U A1,SIMSG . @F@@@@ S A1,COMPKT+JQ )@@G@@1 . STORE COM$ OUTPUT ACW @E@@@@ ER COM$ JR )@@G@@ . DISPLAY MESSAGE @F@@@@ EXRELP A0 JS )@@G@@ . RELEASE EXPOOL BUFFER @C@@@@ FUNCE JT )@@G@@ . EXIT @[@@@@. @E@@@@NOGOOD DL A2,(' NOT FOUND@@') . JU )@@G@@GET NOT-FOUND MSG @D@@@@ TE,U A1,2 . NOT FOJV )@@G@@UND? @B@@@@ DL A2,(' NOT DEMAND@') @F@@@@SITCM2 DSJW )@@G@@ A2,SIMSG+2 . STORE OUR CONDOLENCES @E@@@@ J JX )@@G@@ SITCOM . DISPLAY MESSAGE @[@@@@. @D@@@@SIKYERJY )@@G@@ DL A2,('SI KEY ERROR') . LOAD MSG @F@@@@ DS JZ )@@G@@ A2,SIMSG . STORE IN MESSAGE BUFFER @D@@@@ DSL KA )@@G@@ A2,72 . CLEAR A2,A3 @G@@@@ J SITCM2 KB )@@G@@ . ZERO REST OF MSG, AND DISPLAY @A@@@@. <<< END NYU LOCKC )@@G@@AL CODE <<<___@@@ L,H2 A3,5,A3 . NEXT RCT KD )@@G@@@G@@@@ J SFR1 . CONTINUE SEARCH FOR RUNIKE )@@G@@*[@@@@*SDFF*@^@@@@-213,213 ACCNTG 32.0 @B@@@@. NYU*** ADD LINE FOR APKF )@@G@@PROX PRICE MSG @F@@@@ 'THIS PRICE APPROX; ACTUAL CHARGES STAKG )@@G@@TED ON PRICE LIST'@E@@_@-732,732 ACCNTG 32.0 NYU*** ADD LINE FOR APPROKH )@@G@@X PRICE MSG @E@@_@-734,734 ACCNTG 32.0 NYU*** ADD LINE FOR APPROX PRICKI )@@G@@E MSG ___E[MDD#C*)D(NC8)@J@@_@ *7AS2 )7AS2^[[CT#*[@@@@*SDFF*@^@@@@-588,5KJ )@@G@@88 FIASG 32.0@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. KK )@@G@@@D@@@@. PREVENT FIASG FROM GETTING LOST DUE TO EQUAL USE AND@D@@@@. EXTEKL )@@G@@RNAL NAMES POINTING TO THE SAME FILE, OR BECAUSE@C@@@@. FILE DISAPPEAREDKM )@@G@@ BETWEEN FIRST AND SECOND PASS@[@@@@. @F@@@@ LMJ X11,KN )@@G@@DOFISHNM . FIND A GOOD NAME IF ANY @A@@@@. <<< END NYU LOCKO )@@G@@AL CODE <<<@^@@@@-649,665 FIASG 32.0@A@@@@. >>> BEGIN NYU LOKP )@@G@@CAL CODE >>>@F@@@@ LMJ X11,DOFISHNM . FIND A GOOD KQ )@@G@@NAME IF ANY @D@@@@ J ASGR3H . NO FIND KR )@@G@@@D@@@@ J FNMFND . FOUND ONE @B@@@@DOFISHKS )@@G@@NM S X11,SAVX11 . @B@@@@ L X11,CINTERKT )@@G@@ . @H@@@@ SZ FIA37,X11 . CLR DUMMY ITKU )@@G@@EM FLG IN CASE OF CHANGE@B@@@@ L,U X11,1 . KV )@@G@@@D@@@@ S X11,FILOAD . SET EXT ONLY@B@@@@ KW )@@G@@ LMJ X11,FISHNM . @C@@@@ J DOFISH2 KX )@@G@@ . NO EXT@E@@@@DOFISH1 L X11,SAVX11 . FOUND KY )@@G@@ONE, SO EXIT@B@@@@ J 1,X11 . @F@@@@DOFISHKZ )@@G@@2 SZ FILOAD . NOW TRY FOR A USE NAME @B@@@@ LA )@@G@@ LMJ X11,FISHNM . @D@@@@ J $+2 LB )@@G@@ . NO FIND @D@@@@ J DOFISH1 . LC )@@G@@FIND EXIT @B@@@@ L X11,SAVX11 . @B@@@@ LD )@@G@@ J 0,X11 . @A@@@@. <<< END NYU LOCAL CODLE )@@G@@E <<<@^@@_@-719,719 FIASG 32.0@D@@_@. CCF #1002-032-8029 FIX @FRELF )@@G@@E,X (SEE FICRIT,FIFREE)___^@)^@)^@)AC?F@1AC)^@)^@)^@)^@)^@)^@)^@) 0)^@)LG )@@G@@*[@@@@*SDFF*@^@@_@-1166,1166 FICRIT 32.0@D@@_@. CCF #1002-05-8030 FIXLH )@@G@@ @FREE,X (SEE FIASG,FIFREE) @^@@@@-1766 FICRIT 32.0@A@@@@. LI )@@G@@ >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @E@@@@. FOR R/T FILESALJ )@@G@@VE -- SETTING R-ONLY WITHOUT FREE @E@@@@. DON'T SET R/W INHIBILK )@@G@@TS IN EXPOOL ITEM ON @ASG @[@@@@. @E@@@@ L,U A3,0LL )@@G@@47 . KEEP REST OF PCFRW @I@@@@ AND A3,PCFRW,ALM )@@G@@0 . CLR R INHIBIT IF NOT R-ONLY, SAME FOR W @A@@@@ S LN )@@G@@ A4,PCFRW,A0 @A@@@@. <<< END NYU LOCAL CODE <<<___ -KLO )@@G@@CTAELR -[A@)^@)^@)^@) 0)CTGEK)EK)DDID[DCLDE))DDA^[ID9O^[M (JD1GFC?^[NCDHLP )@@G@@C*)C1JEK)E8)@C@@@@^@)^@)*[@@@@*SDFF*@ @@@@-1008,1008 FIFREE 32.0 LQ )@@G@@@A@@@@. >>> BEGIN NYU LOCAL CODE >>>@[@@@@. @E@@@@. DON'T ALLOLR )@@G@@W DROP OF FILE AT RUN TERMINATION IF IT WASN'T @A@@@@. ASSIGNE