@CAT,P 1013-003-005.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1013-003-005,,,127777053241,000 )@@G@@**PF**@@@@12@@@@@@@@@@@[@#C@@@]FE /^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@AAN )@@G@@ASCII-TCF @@]@@@@@[@@@LEVEL31-126 @ @@@[[@@@]Y@@@@W@IKLDMDASCII-TCF AO )@@G@@@@@@@@@@[@@@LEVEL31-77 @ @[@][@@@]-@@@@YYIK0DMDRUN @@@@@@@@[@@@AP )@@G@@APL @ @@@[[@@@@[@@@@)_G68EYBSKELETON @@@@@@@@[@@@MAINTAIN AQ )@@G@@@ @A@ [@@@^%@@@@-@JM.CCDPCF @@@@@@@@[@@@ @ @@@[[@@@E?AR )@@G@@@@@@>%L_+ESDSGSSES @@@@@@@@[@@@APL @ @,@ [@@@[W@@@@0QF_ ETDAS )@@G@@@D@[@@RECODE Q1905000(1=1)(2=2)(3=3)(4=4)(ELSE=9) @D@[@@MISSINAT )@@G@@G VALUES Q32GPVAL,Q188FAM$,Q1905000,Q32COTH(9) @F@[@@VALUE LABELS Q32AU )@@G@@CRES TO Q32COTH (1) OWN (2) DONT (9) NA /@C@[@@ Q32AV )@@G@@EZAFR (1) AFFECTED (0) NA/ @F@[@@ Q188FAM$ (1) 0-4 (2) AW )@@G@@5-6 (3) 7-8 (4) 9-10 (5) 11-12@D@[@@ (6)13-14 (7) 15-17 (8AX )@@G@@) 18-34 (9) ELSE/ @G@[@@ LAND (1) ONE (2) TWO (3) THREE (4AY )@@G@@) FOUR (5) FIVE(0) NONE/@D@[@@ CONSPROP (0) NONE (1) ONE (AZ )@@G@@2) TWO/ @D@[@@ PRODPROP (0) NONE (1) ONE (2) TWO/ BA )@@G@@@G@[@@ Q32GPVAL (1)UNDER7K (2)7-11999 (3)12-17999 (4) 18-2BB )@@G@@4999 @G@[@@ (5) 25-34999 (6)35-49999 (7) 50-99999 (8)100-BC )@@G@@300K(9)NA/ @H@[@@ Q1905000(1) UNDER20K (2) 20-40K (3) 40-BD )@@G@@90K (4) OVER 90K (9) NA/@H@[@@CROSSTABS VARIABLES = Q32EZAFR(1,0),QBE )@@G@@188FAM$,Q1905000,Q32GPVAL(1,9)/ @F@[@@ TABLES = Q32EZABF )@@G@@FR BY Q188FAM$,Q1905000,Q32GPVAL @#@[@@OPTIONS 9,7@^@[@@STATISBG )@@G@@TICS 1,3,4 @#@[@@READ INPUT DATA @ @[@@*SELECT IF (LAND GT BH )@@G@@0) @H@[@@CROSSTABS VARIABLES = Q32EZAFR(1,0),Q188FAM$,Q1905000,QBI )@@G@@32GPVAL(1,9)/ @F@[@@ TABLES = Q32EZAFR BY Q188FAM$,Q19BJ )@@G@@05000,Q32GPVAL @#@[@@OPTIONS 9,7@^@[@@STATISTICS 1,3,4,8 BK )@@G@@@#@[@@*SELECT IF (LA(]@@@@ND GT 0) @E@[@@CROSSTABS VARIABLESBL )@@G@@ = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ TABLES = Q32GPVBM )@@G@@AL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7@^@[@@STATISTICS 1,3BN )@@G@@,4,8 @ @[@@*SELECT IF (CONSPROP GE 1)@E@[@@CROSSTABS VARIABLESBO )@@G@@ = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ TABLES = Q32GPVBP )@@G@@AL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7@^@[@@STATISTICS 1,3BQ )@@G@@,4,8 @ @[@@*SELECT IF (PRODPROP GE 1)@E@[@@CROSSTABS VARIABLESBR )@@G@@ = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ TABLES = Q32GPVBS )@@G@@AL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7@^@[@@STATISTICS 1,3BT )@@G@@,4,8 @ @[@@*SELECT IF (Q32CFRM EQ 1) @E@[@@CROSSTABS VARIABLESBU )@@G@@ = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ TABLES = Q32GPVBV )@@G@@AL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7@^@[@@STATISTICS 1,3BW )@@G@@,4,8 @ @[@@*SELECT IF (Q32CRES EQ 1) @E@[@@CROSSTABS VARIABLESBX )@@G@@ = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ TABLES = Q32GPVBY )@@G@@AL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7@^@[@@STATISTICS 1,3BZ )@@G@@,4,8 @C@[@@*SELECT IF (LAND GT 0 AND Q32CFRM EQ 1) @E@[@@CROSSTCA )@@G@@ABS VARIABLES = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ CB )@@G@@ TABLES = Q32GPVAL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7@^@[@@CC )@@G@@STATISTICS 1,3,4,8 @ @[@@*SELECT IF (Q32EZAFR EQ 1)@[@[@@CROSSTCD )@@G@@(D@@@@ABS VARIABLES = Q32GPVAL,Q188FAM$,Q1995000(1,9)/ @D@[@@ CE )@@G@@ TABLES = Q32GPVAL BY Q188FAM$,Q1905000 @#@[@@OPTIONS 9,7CF )@@G@@@^@[@@STATISTICS 1,3,4,8 @[@[@@FINISH@[@[@@@FIN _@_____P__________CG )@@G@@________________________________________________________________________CH )@@G@@_________________________________________________V______________________CI )@@G@@________________________________________________________________________CJ )@@G@@________________________________________________________________________CK )@@G@@_V______________________________________________________________________CL )@@G@@________________________________________________________________________CM )@@G@@_________________________V______________________________________________CN )@@G@@________________________________________________________________________CO )@@G@@_________________________________________________V______________________CP )@@G@@________________________________________________________________________CQ )@@G@@________________________________________________________________________CR )@@G@@_V______________________________________________________________________CS )@@G@@________________________________________________________________________CT )@@G@@_________________________V______________________________________________CU )@@G@@________________________________________________________________________CV )@@G@@________________________________________________________________________CW )@@G@@________________________________________________________________________CX )@@G@@________________________________________________________________________CY )@@G@@________________________________________________________________________CZ )@@G@@________________________________________________________________________DA )@@G@@________________________________________________________________________DB )@@G@@________________________________________________________________________DC )@@G@@________________________________________________________________________DD )@@G@@________________________________________________________________________DE )@@G@@________________________________________________________________________DF )@@G@@________________________________________________________________________DG )@@G@@________________________________________________________________________DH )@@G@@________________________________________________________________________DI )@@G@@________________________________________________________________________DJ )@@G@@________________________________________________________________________DK )@@G@@________________________________________________________________________DL )@@G@@________________________________________________________________________DM )@@G@@________________________________________________________________________DN )@@G@@________________________________________________________________________DO )@@G@@________________________ DP )@@G@@ GPQ12200 @I@@@@. THIS ROUTINE CHECKS THE QUEUES REFERENCEDQ )@@G@@D TO SEE IF THEY ARE LEGAL GPQ12300 @I@@@@GPX$ALLQ* J $-$ DR )@@G@@ . GPQ12400 @I@@@@ DS )@@G@@ SLJ GPX$K . GET THE VALUE OF THE QUEUE NO. GPQ125DT )@@G@@00 @I@@@@ TG,U A1,0377777 . SEE IF LARGER THAN HDU )@@G@@ALF WORD GPQ12600 @I@@@@ J GPX$QSIZE . IFDV )@@G@@ SO THEN ERROR GPQ12700 @I@@@@ TLE,U A1,1 DW )@@G@@ . SEE IF SMALLER THAN 1 GPQ12800 @I@@@@ DX )@@G@@ J GPX$QSIZE . IF TRUE THEN ERROR GPQ129DY )@@G@@00 @I@@@@ L,U A2,GPXQ$ . PICK UP ADDRESS OFDZ )@@G@@ QUEUEQ GPQ13000 @I@@@@ SLJ GPX$ENTITY . GOEA )@@G@@ SEE IF THIS QUE EXISTS GPQ13100 @I@@@@ J GPX$AEB )@@G@@LLQ . GPQ13200 @I@@@@. GET EC )@@G@@THE CURRENT SIZE OF THE QUEUE GPQ133ED )@@G@@00 @I@@@@GPX$Q* J $-$ . EE )@@G@@ GPQ13400 @I@@@@ SLJ GPX$ALLQ . GEEF )@@G@@T THE ADDRESS OF THE QUE GPQ13500 @I@@@@ L,U A1,0 EG )@@G@@ . SET FOR ERROR GPQ13600 @I@@@@ EH )@@G@@ JN A2,*GPX$Q . RETURN FOR NON-EXISTANCE GPQ137EI )@@G@@00 @I@@@@ L A1,6,A2 . PICK UP THE CURRENT EJ )@@G@@COUNT GPQ13800 @I@@@@ J *GPX$Q . REEK )@@G@@TURN GPQ13900 @I@@@@. THIS PICKS UP THE MAXIEL )@@G@@MUM COUNT AT ANY ONE TIME GPQ14000 @I@@@@GPX$QMEM )@@G@@* J $-$ . GPQ141EN )@@G@@00 @I@@@@ SLJ GPX$ALLQ . GET QUEUE ADDRESS EO )@@G@@ GPQ14200 @I@@@@ L,U A1,0 . LOEP )@@G@@AD FOR ERROR GPQ14300 @I@@@@ JN A2,*GEQ )@@G@@PX$QM . ERROR ON NON-EXISTANCE GPQ14400 @I@@@@ ER )@@G@@ L A1,7,A2 . GET THE MAX. COUNT GPQ145ES )@@G@@00 @I@@@@ J *GPX$QM . RETURN ET )@@G@@ GPQ14600 @I@@@@. GET THE AVERAGE TIME A TRAN. SPENT IN THEU )@@G@@E QUEUE GPQ14700 @I@@@@GPX$QA* J $-$ EV )@@G@@ . GPQ14800 @I@@@@ EW )@@G@@ SLJ GPX$ALLQ . GET QUEUE NO. GPQ149EX )@@G@@00 @I@@@@ L,U A1,0 . SET FOR ERROR RETURNEY )@@G@@ GPQ15000 @I@@@@ JN A2,*GPX$QA . REEZ )@@G@@TURN FOR NON-EXISTANCE GPQ15100 @I@@@@ DL A1,4,FA )@@G@@A2 . LOAD A1 WITH TIME INTEGRAL GPQ15200 @I@@@@ FB )@@G@@ L A4,GPXCLOCK$ . GPQ153FC )@@G@@00 @I@@@@ AN A4,GPXCRESET$ . FD )@@G@@ GPQ15400 @I@@@@ DI A1,A4 . FE )@@G@@ GPQ15500 @I@@@@ J *GPX$FF )@@G@@QA . RETURN GPQ15600 @I@@@@. PICKFG )@@G@@ UP THE TOTAL ENTRY COUNT FOR THE QUEUE GPQ157FH )@@G@@00 @I@@@@GPX$QC* J $-$ . FI )@@G@@ GPQ15800 @I@@@@ SLJ GPX$ALLQ . GEFJ )@@G@@T THE QUEUE ADDRESS GPQ15900 @I@@@@ L,U A1,0 FK )@@G@@ . SET FOR ERROR GPQ16000 @I@@@@ FL )@@G@@ JN A2,*GPX$QC . JUMP ON NON-EXISTANCE GPQ161FM )@@G@@00 @I@@@@ L A1,2,A2 . PICK UP TOTAL ENTRY FN )@@G@@COUNT GPQ16200 @I@@@@ J *GPX$QC . REFO )@@G@@TURN GPQ16300 @I@@@@. PICK UP THE COUNT OF ZFP )@@G@@ERO ENTRIES GPQ16400 @I@@@@GPX$QZFQ )@@G@@* J $-$ . GPQ165FR )@@G@@00 @I@@@@ SLJ GPX$ALLQ . GET QUEUE ADDRESS FS )@@G@@ GPQ16600 8#@@S9/K@KR5C^K^U\C@X@@@/CK@T#/@K@T#C8)@@-'^@@M+FT )@@G@@H9@@@[C8)@@08^@@TA/K@@SP'^@@M+/K@@T^'^@@TE/K@@RL/K@@@@C K^O'R;)@@*/K@@TJFU )@@G@@'^@@M+8^K@TI/K@KTE%8)@@'/K@@T)/,0@ZL:8)@@'/K@@TS'^@@M+/K@@TNR#K^O8A#K^OFFV )@@G@@/,0@ZL:8)@@'/K@@TQR#K^OFA#K^O8/K@@UN/,0@ZL'^@@M+8^K@T)/K@@UNR;)@@ '^@@M+FW )@@G@@8^K@T>CDK^P]?[K^P[/K@@UNC8@@T([^@@Z1/K@@)IC9K^O[[ K^O6/K@@U@@@@@@@'^@@M[FX )@@G@@C@@^O@'=@@@IC^K@T0/\)@L;C[K^OP[[K^VR/KH@@@@@@@@@C@@^OQ'=@@[SC^K@T9/K@@T5FY )@@G@@ 4@^U\ 0@^U\ @@^U0 @@^O9 @@^P] @@^OCC9K@W([ K@EPC[K@0:[[K@0,C[K^O5[DK^U5FZ )@@G@@C9K@Z&[ K@0CC[K^O6[[K^O8/,0@ZL%8)@@(/K@@UIC[K^O8[[K^O;R;@@@@ @@^O' *@^O9GA )@@G@@/,0@D(C9@@@@/,0@ZL/KI@UU/KG@V)/KG@V)/KG@V)/KG@V)/KG@V)/KG@V=/K@@VU/KG@V)GB )@@G@@/KG@V)/KG@V?/KG@V?/KG@V*/KG@V*/KG@V0/K@@VY/K@@VY/KG@V)/K@@VU/KG@V)/KG@V)GC )@@G@@/KG@V9/KG@V./KG@V)/K@@VU/KG@V)/K@@VU/KG@V)/KG@V)/KG@V)/KG@W[/KG@V)/KG@V)GD )@@G@@/KG@W /KG@WD/KG@WX/KG@V)/KG@V)/KG@V)/KG@V)/KG@V)/KG@V)/KG@WH/KG@V)/KG@V)GE )@@G@@/KG@V)/KG@V)/KG@W-/KG@V)/KG@WL/KG@WL/KG@WL/KG@WL/KG@WL/KG@WL/KG@WL/KG@WLGF )@@G@@/KG@WL/KG@WL/KG@W>/KG@V)/KG@WP/KG@WT/KG@V)/KG@V)A<)^O4%8@@@#R;)@@A/KG@V*GG )@@G@@A<)^O4/KG@V4/K@@W(/K@@W(/K@@W(/K@@D*/K@@US/K@@US/K@@US/K@@D-/K@@W'/K@@X GH )@@G@@/K@@XL/K@@D*/K@@W'/K@@X /K@@XL/K@@D>/K@@XS/K@@XX/K@@X)/K@@D*/K@@W6/K@@X[GI )@@G@@/K@@XH/K@@D*/K@@WO/K@@W8/K@@X#/K@@XJ/K@@D*/K@@X$/K@@X?/K@@X\/K@@D*/K@@X1GJ )@@G@@/K@@X5/K@@X8/K@@D*/K@@YL/K@@YK/K@@Y9/K@@D*/K@@Y;/K@@W(/K@@W(/K@@D/K@@D*R;Y@[@;*K@@SG^K^O'A#K^U6D@@^OR*0@^U5/\K@+: 0@^U5/K@@USGN )@@G@@/,0@ZA/K@@UN'^@@ZE/K@@UNR;0@@ /K@@W/R;0@@B/K@@W/;G)@@#;C0@@-A70^O9'^@@E]GO )@@G@@[DK^O_R;@@@[/K@@UQR;0@@ /K@@XBR;0@@B/K@@XB;G)@@#;C0@@-A30^O9/,0@ZAR30^O9GP )@@G@@A70^O9C9K@@[/K@@W"R;0@@ /K@@XNR;0@@B/K@@XN;G)@@#;C0@@-A30^O9'^@@ZE/K@@XDGQ )@@G@@/,0@D!/K@@US'^@@E]/,0@)TH9K@@[R;)@@H/K@@DY/,0@ZAC9K@@[/K@@XT'^@@ZE/K@@XYGR )@@G@@/,0@ZAR;)@@'/K@@DY'^@@ZE/K@@X"R;!@@@/^)@&J'^@@!*[@0^RDC8@^RD'=@@[GHX )@@G@@R#0^U"R;@@@[A7J^SKR7@^RJ*0J^SK/@@@&^*^@^R)/K@@<,/K@^R(R;K@@& @H^R(8#K@H8#K@=C'^@@$@^CX^R*C8)@^@G@)@[[H8)@@[[^!^R*^@K@@KIB )@@G@@C8H^R*K9@@@H @I@@@%@)@[[8#)@=OC@0^U"AB@@=6[ J^SK[DW@@@[[@^U,R#@@@KC5K^RJIC )@@G@@G9K@[@C1J^SK/[@@=$:9@@@6/K@@>F;DK@@^H9K@@];(K@@E)[@@@L;(K@@A[DZ^SK9?K^RDID )@@G@@/[@@=,9*W@@[O;@@@#/K@@=69*W@@@;GK@[C9*W@@]9*W@@^9*W@@C9*W@@EA#W@@GO;@@@HIE )@@G@@AF@@@@C@@^U,C5@^RJ/ @@=.C8K@^7[^W@@A/K@@>N?9@@@K/K@@>.?9@@@S/K@@>CC^K^RLIF )@@G@@*?@^RJ;)K@@A;)K@@AH8K@@D[^W@@A/K@@>.C@K^RLH8K@#//K@@>AC9K6=@/K@@=*C8H^R*IG )@@G@@CDH^R*K9@@@H? X^R*/K@@=R/K@@=FC[@^U_?9@@@#/K@@&Q?9@@@A/K@@>,:9@@@A/K@@>=IH )@@G@@:9@@@C/K@@>,CCK^RD[^K^Q9C@K^U"&;KR@@[@K^U6C@@^QH'=@@@I'^@@?)C@0^U"C^J^SKII )@@G@@K8@@@HC8)^R&%CY@@@C8)^R$[CI@@@ @J^SKR]0^WC/KF@@]C@@^RD;@@@@SC0K^RD:8K@@ IJ )@@G@@;@@@@A[^@^Q.C@@^R<'=@@@J/^@@&-C@0^U"C9@@@T1@J^SK[1J^SKC@K^U, @H@@#R#Z^SKIK )@@G@@A#K^U,C0Z^SKC^@@.CCK^RD[^K^R@C@@^R=IL )@@G@@'=@@@J/^@@&-C8K@@T[4K^RJ/K@@<*C@K^U_:8K@@C/K@@>.CC!@@@[^)^QXC@@^QE/K@@&VIM )@@G@@CCK^RDAFK^QKC@@^QC/K@@&VC@@^QD'=@@@I/K@@?)RFK^RDAFK^Q%R#@^QF/K@@&V'^@@!DIN )@@G@@C@@^QGRFK^RDABK^Q0/K@@&VC1J^SK?9@@@K/KI@@@CDW@@^?9@@@S/K@@&\ @@@@KW9@@@WIO )@@G@@;H@@@=G[W@@ C G@@B[ W@@BH[K@@K!DW@@B[DW@@BC G@@BGDG@@BH G@@A0@@@@K/KI@@@IP )@@G@@C9K@@[[5W@@A/KI@@@/K@@@@ @@^R-/K@@$#/K@@@@C@K@$@[@K^R-C^K^R) @@@[[P;K@@[IQ )@@G@@(CH^R*/K@@$W8#K@$AC^)^R$/@)@$LP;)@^@CC0^R$?@)@@J/K@@$L[^)^R$/K@@$RC^)^R&IR )@@G@@P;)@^@CC0^R&?@)@@J/K@@$=[^)^R&C@K^R)G8)@@[[^!=R*[@K^R)P;K@@[C[@^U_[DH^R*IS )@@G@@N^X^R*C@0^U"C^J^SK(@@^R-/K@K&./K@K$@C@0^U"(@@^R-/K@K&. @@^RN @@^RO @@^RPIT )@@G@@ @@@@JC^J^SK/@@@*?(?G@@]0@J^SK/K@@*?*@G@@D*?G@@C/K@@*?N^W@@^'^@@(YCC!^R*IU )@@G@@!8)@@ /K@@(&/KI@$9/K@@$W/K@@*@/K@@*L/K@@*O[C0^RN[^K^RN/K@@*?*4G@@C/K@@* IV )@@G@@[C0^RO[^K^RO/K@@*?0@G@@#'=@@@A*4G@@#'^@@-8'^@@IK'^@@H3N^W@@^C G@@D[ G@@^IW )@@G@@ 4G@@C'^@@(Y/K@@$W[C0^RP[^K^RP/K@@*?C1G@@#:9@@@(/K@@*Y0@G@@#'=@@@A*4G@@#IX )@@G@@'^@@-8 @G@@D ^G@@C/K@@$W[C0^RQ[^K^RQC G@@C/[@@*VC0Z^SK?8K@@K/K@@*?[DG@@^IY )@@G@@C9@@@C[1G@@#'^@@IKCC0^RQC^K^RQ/K@@*VG80@@[?80@@Z/K@@$:C[@^RN/[@@( CC0^RNIZ )@@G@@C^J^SK0@G@@#'=@@@A*4G@@#'^@@-8C[@^U"[[@^V\[@0^U"'^@@)&C@0^V\[@0^U"0@G@@#JA )@@G@@'=@@@A*4G@@#'^@@-8 @G@@D ^G@@CC^K^RN/K@@$WC[@^RO/ @@(HC[@^RP/[@@(&CC0^RPJB )@@G@@C^J^SKN^K^RP/K@@(KCC0^ROC^J^SKN^K^RO0@G@@#'=@@@A*4G@@#'^@@-8C1G@@#:9@@@(JC )@@G@@/K@@(T'^@@IK'^@@H3C9@@@[[!G@@CR#K@[[ @G@@D/K@@$W/K@@@@ @@@@HC H^R*:[@@[[JD )@@G@@/K@K(YG8K@@[?8K@@*/K@@()C@@^RR'=@@@I/K@@?)/K@@@@N^W@@^'^@@(YC[K^U_[DX^R*JE )@@G@@(4G@@C/K@K((N^W@@D'^@@(Y[DX^R*/K@K((/K@@@@N8K@@$C@K^V5% H=R*8KK@(7P#K^V6JF )@@G@@ CH^R*/K@K(4(4G@@C/K@@%@C G@@D'^@@(4C G@@^'^@@(4 @G@@C @G@@D/KI@@@'^@@!DJG )@@G@@R;F@@@L8@@@[RB!@@@?8)K@@/K@@%HH8)K@@RB,@@@P;)@@[RB,@@@N@"@@@R#K@@GRF!@@@JH )@@G@@/^)@%PO;K@@[/K@@%L:8)/K@/K@@%NP#K@@GABK@% /K@@%&'^@@!DC@@^UH/K@@%+'^@@!DJI )@@G@@C@@^UI/K@@%+'^@@!DC@@^UJ'=@@@I/K@@%A/K@@% '^@@!DR;V@@@OBKK%=A#K^S0^@0^T^JJ )@@G@@^@0^TBRFX@@@R#@^UK'=@@@IR#@@@HN80@#C'^@@!)A#@^THRBK^S09!@^S10@H@@@/K@@:XJK )@@G@@(^H@@@/K@@:-RBH@@@RF/@@[?80@[@9!@^S39(@^TER#G@@@A#@^TJR#@^UL'=@@@IR#@^TJJL )@@G@@A#@^TBRBK^S0RBX@@@CCH@@[?8@@[@/K@@:MR#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@JM )@@G@@O#K@@GRFH@@@8K0@:V/K@@8W8#@@:GO;K@@[R#X@@@RFH@@@/@@@:T%8@/K@/K@@:JO;K@@[JN )@@G@@/K@@:P[@K^S0/K@@%09!@^S39(@^TEC@@^UM/K@@:>9(@^TER#@^UNA#@^TJR#@^UO'=@@@IJO )@@G@@'^@@?T/K@@8W/K@@@@'^@@!DRF@K:*'^@@!)A#@^TXR#@^UPRBKK:*/@K@:8'=@@@IL8K@@]JP )@@G@@N@.@@@RA.@@[RB,@@@P;)@@[AB)@% /K@@%&&;@@]K/K@@:>'^@@!D/\0@?'A#@^T$A#@^S\JQ )@@G@@R#@^UQ'=@@@I/K@@?H'^@@!D/\0@?'A#@^T\9?@^T0/K@@?E'^@@!D/\0@?'A#@^T\9?@^T2JR )@@G@@9*@^T*R#@^UR'=@@@I(^@^S0/K@@:+R#@^US'=@@@I'^@@?TR#@^TJA#@^TBN80@#C*@@^S\JS )@@G@@/K@@?\RBK^S0/K@@: /K@@@@RB@@?)/@@K?TAB@@?T ^@@?)'^@@!R/K@K?T/S@@@@'^@@!DJT )@@G@@RB@^WC(CG@@@P;@@@[OF@^WCR#K^UTN@/@@@/\0@?;/K@@?H/K@@??N@0K?%'^@@!DR#K^UUJU )@@G@@/K@@?*R]0^S6 @@^S\*CF@@@*4F@@@/K@@?8R;V@@@RFF@@@A#K^S0/K@@%0O'0@@[/K@@?1JV )@@G@@R#K^UVA#K^TBR#@^UW(^@@?)'=@@@I^@0^S0RF@^S0'^@@!)A#@^THR#@^UNRBK^S0*@@@@HJW )@@G@@R#H@@@A#@^TJ/KJ@@@/K@@@@*@@^S5/K@K!DA]0^S69*@^S79*)^S99(@^S;^@K^S.^@)^S"JX )@@G@@^@0^S_N^K@!D^@K^S5N@K^S./K@K!D/K@@@@R]0^S69?@^S79?)^S99!@^S;N@K^S.N@)^S"JY )@@G@@N@0^S_/K@@!R/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@A8#)@!/KF@@]C@@^U!'=@@@I'^@@?)/KF@@]*^@@HK/KF@@]'^@@-8(@G@@DKK )@@G@@/K@@\3C1G@@C:9@@@^'^@@)&/\)@%@0@G@@#'=@@@A*4G@@#'^@@-8C9@@@D[1G@@#'=@@@[KL )@@G@@/KF@@]R#@^U6 @@^U6/KF@@]@@ @@@/K@@@@'^@@@@ C@^P]/K@K\_/K@@@@'^@@@@/K@K0#KM )@@G@@/K@@@@C^)@0A/K@@@@/K@@@@/K@J__R#)^U2AB)@0CR#)^U4A#)@0,/K@@0BR#)^U3A#)@0,KN )@@G@@/K@K0!RB@@0A*4G@@@/KG@@@R;?@@[R#G@@@+@@^V'O#K^V;A#K@0VR7@@@@AB)@0A/K@@0CKO )@@G@@/K@@@@[^@^U\P;)@@[C[I@@@;(@@@E;D@@@)[1@^U\:9@@@^[5@^U\C9K@@[%9@@@#:9@@@^KP )@@G@@C9K@@][[K^U./K@K0Y/K@@@@/S@@@@(4@^U\/K@@0NRB@^U\O;@@@[AB@^U\ 4@^U\/K@K0!KQ )@@G@@/K@@@@C@K^V8A#K^U5'^@@?)/K@K06&'0@@]RB;@@@A]0^WCC@_@@@N^:@@[N8K@@^^@K^U_KR )@@G@@'^@@!8@@@F/K@@72LA )@@G@@(@G^-W/K@@720@G^-W/K@@34(CG^-W/KGO-WCCW^-WA].@@D9*!@@G9?)^)%9*!@@E9(H@@ILB )@@G@@^@X@@K^@!@@L^@.@@M9?)@2>9*!@@BC@?^-W]@?^-W @@@2> @@@2&R#@^WF'=@@[[/KH@@@LC )@@G@@C@FK@@?8@@@F?8@@@[/K@@3$(@G^-W/K@@3$ @@@@H(@FK@[/K@@3-RBV@@]?8KK@@/K@@3PLD )@@G@@ABK@3NRBK@@@/K@@3KC@)^-(Q;:K@[R;.@@B9*!@@@Q;)@3%�@@GQ;.@@ 9*!@@]Q;)@39LE )@@G@@C@0^-%9*!@@^ @H@@ 0@G^-WD@K@@H[CW^-W*4F@@^/KF@@^/KF@@ AA0^)(/,0@'5@@<^)*LF )@@G@@9?:@@^9*)@2>9?F@@C9?:@@E9*@^)%9*)^)?CCF@@@D@W^-W[@K^-W/KH@@@C@)@@GC@@^-:LG )@@G@@'=@@@ID@Y^-W/KH@@@9?:@@D9!F@@FN@V@@HN@:@@IN@;@@J&'0@@@P'0@@ RBF@@BO;@@@[LH )@@G@@AB@@7WCCF@@#D@W^-W[@W^-W9?F@@ER];@@D/K@@7W/K@@@@ @@@@HA#@^-GR;@@@ ;))@@MLI )@@G@@;*K@@#;?K@@#8#@@4IO#K^-?R#@^-G/K@K4D/K@@@@R#0^-!R#@^-, @@@@HW8K@@EO;)@@0LJ )@@G@@;G)@@A;GK@@=/@)@4Y/:@@4S1/G@@@;@/@@@R#K@@J/K@@4O/K@@72R7K@2>!8K@@C/K@@72LK )@@G@@')H@4$/K@@72/K@@4\/K@@5M/K@@5)/K@@5+/K@@5\/K@@72/K@@72R3)@2>:8)@@M/K@@4/LL )@@G@@:8)@@L/K@@4_'^@@4DR;)@@ ;*K@@G;^K@@GABK^XWR#K^-\R;@^XZ/K@@5[R;@^XGR#K^-0LM )@@G@@/K@@5[R;@^XMR#K^-1RB)@2&/^)@5^R#)^)%!8)@C@/K@@5CR;)^-2/K@@5H?8)@.Y/K@@5HLN )@@G@@!8)^@@!8)^:8@@@-/K@@5W:8@@@+LO )@@G@@/K@@5YR3)@2>'^@@4DABK^YIR#)^-4/K@@7XR#)^-5/K@@7XR#)^-6/K@@7XR#)^-7/K@@7XLP )@@G@@R3)@2>:8)@@)/K@@5::8)@@+/K@@5!'^@@4DABK^XRR#)^-8/K@@7XR#)^-9/K@@7XR#)^-'LQ )@@G@@/K@@7XR#)^-;/K@@7XRB0@2>R#\@@@;@)@@M'^@@4DA#K^X.;))@@M'^@@4DA#K^X"R#)^-/LR )@@G@@/K@@7XR#)^-.RB@@2>R#G@@@:@@^-(R#)^-"/K@@7X9?)^-_R#K^+['^@@6G(C@^WA/K@@6DLS )@@G@@'^@@64R#)^+]/K@@7XC^@@2>[C@^WA/K@@7M/K@@@@R#@^WE=8@@]@/K@@6M>8@@)@/K@@6GLT )@@G@@9*)^Z9/^K@6SR;K@@['KK^WKA#K^WK/K@@6U'KK^WAA#K^WARB)@2>'^@@4DA#K^Z/R#@^WELU )@@G@@=8@@]@/K@@7MR#@^+#'=@@@I/K@@7M9?)^+^R;K@@@'^@@6GR#)^+A/K@@7XR#)^+B/K@@7XLV )@@G@@9?)^+CR;K@@['^@@6G(^@^WA/K@@61R#)^+E/K@@7XRB@@2>[^@^WA/K@@7M/K@@@@CC)^WALW )@@G@@/@)@69C@0^+]'^@@6"C^)^WA/@)@6.C@0^+E'^@@6"/K@@64/K@@@@'^@@4D[@K^W*C@@^+FLX )@@G@@'=@@@IC@@@@J'=@@@I/K@@6"R#)^+G/K@@7XR#)^+HR7K@2>:8K@@]/K@@7X'=@@@MA#K^)JLY )@@G@@R;@^)M'=@@@CR;KBO0'=@@@0R#@@2>O;@@@[AB@@7W9?@^)%9?)^)? @@@2> @@@2&R#@^WFLZ )@@G@@'=@@[[R#@^)%/K@@@@R#0@@IR#@^+K'=@@[ZC@@^+LRB)@2>'^@@4DA#K^W*'=@@@IR#@@@JMA )@@G@@'=@@@IR#@^WF'=@@[[9?@^)%D/:J]-/G)@70!/)@5Z/K@@709?)^)?'^@@8E9?)^)?'^@@8&MB )@@G@@R#)^+M/K@@7X'^@@8&/K@@@@(^@@8[/K@@75 ^@@8[9*@^-L9*)^-NA]0^-R9(@^-P^@K^-SMC )@@G@@^@)^-T^@0^-U/K@K75/K@@8[9?@^-L9?)^-N9!@^-PR]0^-RN@K^-SN@)^-TN@0^-U/K@K8[MD )@@G@@/S@@@@'^@@75(^@@8E/K@@8N[@@@'_/\@@;@R#@@'_'=@@@I'^@@8&R;F@@@P;@@@[RBW@@@ME )@@G@@P;K@@[R#X@@@A#K^Y0'^@@8[R#@^+N'^@@8E ^@^WH'^@@8&R#V@@@/@K@8&R#@^+OR#X@@@MF )@@G@@*^@@8&/K@@8&%@K^-!9*@^Z@/S@@@@/S@@@@R#@^+P'=@@[Z'^@@75R#@^WE>8@@]@=8@@)@MG )@@G@@/K@@80/K@@8;RB)^WA'^@@4OA#K^Z"RF)^WA'^@@4OA#K^)]RB)^WK'^@@4OA#K^) R#@^+QMH )@@G@@'=@@@IR#@^WD/^@@9RR#@^WF/@@@9RR;@@9RAB@@4(R#@^+RR_)__"'=@@@H/G)@9CO_)@@[MI )@@G@@R#@^+S/K@@9#A\@^)QR#@^+T'=@@@IR#@^)Q'=@@@IR#@^+SO_)@@[/K@@9#'^@@4OA#K^Z2MJ )@@G@@/@)@9P'^@@4OA#K^Z1R#@^+U'=@@@I @@@@G'=@@[[R#@^WE=8@@]@/K@@9Y>8@@)@'^@@64MK )@@G@@/S@@@@/S@@@@/S@@@@/S@@@@R#@^+V*^@@8&A#@^Y6R;@^)5R#K^+W'=@@@4R#)^)5P#)^WBML )@@G@@O;)@@^;G)@@=W8)@@ '^@@4OA#K^Y//@)@92'^@@4OA#K^Y;R#@^+X'=@@@I 4@^WER#@^WEMM )@@G@@=8@@^@]4@^WE=@@^+Y#4@@8&'^@@8[(^@^WH'^@@!R1@@^WE/K@@'[R;@^-J'=@@[Q(^@@8&MN )@@G@@'=@@@D1@@@8&'=@@@)'=@@@Q'^@@75R#@^+Z'=@@@I/\@@;@'^@@8&'^@@75'^@@4OA#K^ZCMO )@@G@@/@)@'L'^@@4OA#K^ZBR#@^+)/K@@'C*8@@@@RA0@'N'^@@75'^@@4OA#K^W-/@)@'V'^@@4OMP )@@G@@A#K^W)R#@^+-/K@@'C/K@@'%'^@@75P'0@@[CDF@@@:D@@'X/K@@'&R#@^++R'"@@@/K@@'CMQ )@@G@@*4F@@](0F@@[/K@@''=@@@IR#@^+&'=@@@IN8K@@1&'0@@@MT )@@G@@R#)@@FP;)@@[/\@@;/R#K^-!;=K@@M9*K@/ED@0@@FRF:@@@%8)/K@/^)@;QO'0@@[/K@@;LMU )@@G@@?8))@@/K@@;XR#K^+$A#K@/DR#@^+*'=@@@I/K@@;9O#0@@F/^0@;-C[@^+(/K@@;% @@@@GMV )@@G@@;O0@@=W80@@EG9@@@0;H@@@AO;@@@A/^0@;+C[@^-!;!G@@@[[@@/H/\@@;/A#)@/GRBV@@@MW )@@G@@*^H@@[/^K@;3 @@@[[R#@^+%/K@@;5R#H@@@RA.@@[A#@@/DR#@^+:'=@@@I8KK@;ER#@@@FMX )@@G@@R]0^-H/KF@@[/^)@;_R#)^+(/KG@@@R;0@@= @@@@H;^K@@#;CK@@#P;0@@A/^)@/[)@K^-?MY )@@G@@R#K^-!;GZ@@@/KG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R;@^+?'=@@@CR;@^+7AB@^+!MZ )@@G@@R;@^+?'=@@@CR;@^+"AB@^+!R;@^+?'=@@@C'=@@@6A#@^+!RV@^+!A#FK@@/KF@@]R#@^KF9NJ )@@G@@@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=N(,RRQNK )@@G@@!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7N@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@#C^N[@@@8$OK )@@G@@!@)@@H/K@@&U/K@@<:@@[@@@@-@@@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ON )@@G@@ SEQUENCE N LINE N@@@@@@ ERROR TERMINATION IN ROUTINE OO )@@G@@ CALLED AT SEQUENCE NUMBER OF ROGRAMA COMPUTED GOP )@@G@@O TO THAT WAS OUT OF RANGE WAS DETECTED AT SEQUENCE NUMBER OF MAOQ )@@G@@IN PROGRAM. ILLEGAL OP AT SPECIFIED RETURN FROM RETUROR )@@G@@N VARIABLE SPECIFIED IN OUT OF RANGE NEGATIVEFORTRAN V ERROR TEOS )@@G@@RMINATION: ARGUMENT UNNORMALIZED OR OUTSIDE ALLOWABLE RANGE CAUSING OT )@@G@@ARGUMENT OUTSIDE ALLOWABLE RANGE CAUSING OVERFLOW CAUSED @]E^T9@]B^U#OU )@@G@@@]#^UE@]B^T@@]D^TB@]B^TBMAIN P@[E^TB@]H^TL@]B^T-@]C^T*@[D^TB I/O RETN 0OV )@@G@@RETN K@] ^T4 _@@S@@@@[^U)@EOF AN ATTEMPT TO WRITE AN EOF-MARK ON COW )@@G@@ARDREADER OR PRINTER - IGNORED @]G^U-______@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@/S@@@@/K@@0K @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^VS@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@^V4^V4@@@@@@@@[@@@@@[@@[/K@K0D @@J___C/@@@@OZ )@@G@@A REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED @]D^V/@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@ATTEMPT TO EPB )@@G@@XECUTE STATEMENT WITH SOURCE PROGRAM ERROR. SUBSCRIPT OUT OF RANGE--PC )@@G@@ERROR RETURN TO SYSTEM PROGRAM CONTINGENCY AT XXXXXX--PREVIOUSLY IGNORPD )@@G@@ED CALL ON NON-EXISTENT SUBROUTINE VIOLATION OF PROGRAM LIMITS. PE )@@G@@PROBABLE SUBSCRIPT ERRORPAGE OUTPUT ESTIMATE EXCEEDED CARD OUTPUT ESTIMAPF )@@G@@TE EXCEEDED FASTRAND FILE SIZE EXCEEDED -- FILE I/O ATTEMPTED ON UNASSIGPG )@@G@@NED FILE ILLEGAL EXECUTIVE REQUEST OF TYPE XX INPUT/OUTPUT ERROR OF TPH )@@G@@YPE XX, ON FILE: XXXXXXXXXXXXILLEGAL CONTROL STATEMENT IMAGE SUBMITTED PI )@@G@@TO EXECUTIVECONTROL STATEMENT IMAGE SYNTAX ERRORINTERNAL ERROR REQUEST: PJ )@@G@@ ERR$ ATTEMPT TO EXECUTE ILLEGAL MACHINE INSTRUCTION: XXXXXXXXXXXXFLOATIPK )@@G@@NG POINT OVERFLOW FLOATING POINT UNDERFLOWDIVIDE OVERFLOW SYMBIONT-CALPL )@@G@@L ERROR OF TYPE XXPROGRAM RESTART PROGRAM ABORT REQUEST UNKNOWN OR UPM )@@G@@NPROCESSABLE PROGRAM CONTINGENCY ERROR TRACE FROM ROUTINE IN ERROR TOPN )@@G@@ MAIN PROGRAM (DECK) (LOCATION) (LINE#) (ARGS) LIBRARY ROUTINE PO )@@G@@XXXXXX UNDEFINED ERROR TERMINATION NORMAL EXIT. EXECUTION TIME: PP )@@G@@ MILLISECONDS. INVALID COMPUTED GO TO VALUE = PQ )@@G@@ RETURN FROM FUNCTION TO ILLEGAL CALLING SEQUENCEILLEGAL VARIABLE-RPR )@@G@@ETURN INDEX: UNDEFINED ERROR RETURN CONSOLE CALL ERROR. PS )@@G@@MULTIPLE CONTINGENCIES--STANDARD MONITOR ACTION TAKEN THE FIRST CARD NOTPT )@@G@@ READ DURING EXECUTION WAS: XXXXXX ADDITIONAL CARDS WERE NOT REAPU )@@G@@D. XXXXXXXXXXXX AT: XXXXXX. 000000 DIVIDE CHECKS; 000000 OVERFPV )@@G@@LOWS; 000000 UNDERFLOWS.EXECUTION INTERRUPTED BY OPERATOR AT: @@@@@@@@@@PW )@@G@@BREAK KEY @@@@@@@@0^)C@@@@@@L,1. @[I^)RNS@@@@K/@@@@@@@@@@ERRSUB@@^@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ERROR @@@@@@@@@@@@*R-OPT8@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ@@2>@@@@51@@@@5;@@@@6[PZ )@@G@@@@@@6<@@@@6%@@@@@@@@@@7A@@@@7C@@@@@@@@@@4<@@^@@@_7____/,0@@@ERRSUB@#D^Z)QA )@@G@@000000 __9@@Y@[D^XS@[C^XA@[C^XG (UNKNOWN) @[ ^YE@[ ^W/@[ ^X[@[ ^X0QB )@@G@@@[A^XM@[A^X%@[D^X-@[^^ZW@[E^X5@[D^W3@[A^W! OVERFLOW@@[@@@@[^^X_@] ^Z9QC )@@G@@ UNDERFLOW@[^^Y#@[#^YJDIVIDE CHECK@[#^YB@#D^W=@[^^YM@[]^)KM,66,4,3 . QD )@@G@@@@]^+I@[ ^W=@[C^YQ@YD^Y!STOP: @@[^)P@ E^Z"@9R^)R@9K^)R@ C^Z(@[C^Z1 ERRORQE )@@G@@@@[@@Q@[G^Y6@@C@@@@OE^WM@OB^Z]@OA^WW@OC^ZD@OB^ZL@O^^ZS@DD^YY@]A^Y$??????QF )@@G@@@]#@/D 0MAIN @] @/D@@@@@@@@%^+0@@@@@@@@@@@@HELLO, THIS IS THE SECURQG )@@G@@E PAKREG@@ PROGRAMI'M GONNA ASK YOU WHAT PACKS YOU WANNA USEWHEN YOU RUNQH )@@G@@ OUT OF PACKS, ANSWER %NOMORE%PACKID? INVALID PACKID - TRY AGAIN QI )@@G@@@@B^< @@A^+\@@U^R;)@@[H[K@@IG K^O'R]@^MFC^K^U\0@H@@@/[K@PXR_S@@@QM )@@G@@CDK^O'GHK^P]/HK@PX/K@^LZNBDCV$ K@#@@BE!]EDB@@@@@@@[Q@C@@@<^@@NFTV$ QN )@@G@@ K@]@@HH *AO#@@@@@@@@N@DQNCNVT$ K@#@@OE!ZEDB@@@@@@@]K@D(@@.^@E!\EDB@@@@@@@A1@EDB@@@@@@@#4@% @[\^S\NWEF$ QW )@@G@@ K@#@['E0@0;NRWND$ K@#@]IE0GEDB@@@@@@QY )@@G@@@@0@1)@@E^V/UOMSYS C@[@]NBK$BTC@@G^WAH$MONITOR K@ @]WG0< KC@@@@@@QZ )@@G@@@D"@2K@AU^WM@@@@@@)]I@@@ERU$ K@@@])N=9GBBBLANK$COMMONC@[@]>BK$BTCRA )@@G@@@@@^+?R2 @@]@]:BK>BTC@@<^+?@@)@/IR1 @@#@@@BK)BTC@@E^^^:@#\^ U0@B@@@@KY@C@@@@___@@@___RI )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___RJ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@@@[***** BAD CARD TO RK )@@G@@BILLER *****@AM_@[@]#^@R@^@^@@BILLER 3K-870 MAXIMUM PRIORITY = A RL )@@G@@BLANK PRIORITY = M REAL-TIME LEVEL = DEADLINE NOT ALLOWED RM )@@G@@***** ALLOWABLE RT LEVELS ARE: 2-35 ***** THE SPECIFIED ACCT NUMBERS DO RN )@@G@@NOT EXIST ****** OTHER ACCT NUMBERS SPECIFIED DO NOT EXIST *****@[^^@URO )@@G@@@[^^@Y@[^^@+@[^^@&@@@@@@@@@@@@ACCOUNT$ @@@@@@@P@@@@@@8^[T@@@@@@ACCOUNRP )@@G@@T$ @@@@@@@C@@@@@@8^]L@@@@@@ACCOUNT$ @@@@@@@K@@@@@@8^#D@@@@@@_____"RQ )@@G@@@@@@@[@ASG,A SYS$*ACCOUNT$ @@@@@@@@@@@@@[@[@[ I/O ERROR *** ACCT NO RR )@@G@@ALREADY PRESENT IN FILE *** PURGE FOLLOWS AND SHOWS STATUS OF ACCOUNT PRRS )@@G@@IOR TO THIS INSERT @@@$$$@@@JAN@@@FEB@@@MAR@@@APR@@@MAY@@@JUNRT )@@G@@@@@JUL@@@AUG@@@SEP@@@OCT@@@NOV@@@DEC8C 6C 4C 3A 2A FH432 RU )@@G@@FH880 CRD PTP HSP 1004 CTS WTS CTMC -FASTRAND- -RV )@@G@@-FASTBAND- --FH432 - --FH880 - --FH1782 - - 00:00:00.000 RW )@@G@@ **** @@@@@@@@@@@@ **** TIME/DATE OF FIRST ENTRY - - - - - -RX )@@G@@00:00:00-MMM DD,1960 TIME/DATE OF LAST ENTRY - - - - - -00:00:00-MMMRY )@@G@@ 12,1967 TIME/DATE OF LAST PURGE - - - - - -00:00:00-DEC 12,1967 RZ )@@G@@TOTAL RUNS PROCESSED - - - - - - - - TOTAL LAPSE TIME OF RUNS - - -SA )@@G@@ - - - 00:00:00TOTAL COMPUTE TIME OF RUNS - - - - -00:00:00.000TOTAL SB )@@G@@CARDS READ - - - - - - - - - - TOTAL CARDS PUNCHED- - - - - - - - -SC )@@G@@ TOTAL PAGES GENERATED- - - - - - - - SUBSYSTEM USAGE: SD )@@G@@ XXXXXX 00:00:00TRACK-SECS TEMP FILE USE-FASTRAND- -SE )@@G@@ *****NO RUNS PROCESSED YET UNDER THIS ACCT NO NO RUNS PROCSF )@@G@@ESSED SINCE LAST PURGE AT - - 00:00:00-MMM DD,1970 HAS NOT BEEN PURGESG )@@G@@D YET OPERATOR ALLOWED ACC NO - SYSTEM STANDARDS USED OPERATOR ENTERED ASH )@@G@@CC NO - SYSTEM STANDARDS INSERTED ACC NO INSERTED VIA BILLER AT 00:00:SI )@@G@@00-MMM DD,1970 PARAMETERS WERE CHANGED TO THE FOLLOWING BY BILLER AT SJ )@@G@@00:00:00-MMM DD,1970 @@^^^#@H!^@@@@[@@@@@]@@@INSERT@ NE NOTSK )@@G@@NONE NE @[A^@%REMOVEPURGE READ @[ ^@J@]D^@8@]C^@0SL )@@G@@@[A^^0@[F^^6@@[^[T@@[^]L@[]^^,@_A^ 7@]D^B9@]E^ "@]E^AC@]E^AM@]A^B+@]B^AWSM )@@G@@@]C^A:@]C^A<@]B^A3@]B^A'@]B^B[@@]^ %@@[^[\@]C^BM@]C^B1@]F^B+@]C^BU@]D^C]SN )@@G@@@]H^CF@]#^BC@@[^ U@@[^[8@]B^BF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@R#@^CS'=@@@J0@@@@G'=@@@)R#@^@P'=@@@IN90@@/N'@@@]R#@^CT'=@@@HC;0@@@ @@^[ASP )@@G@@C;)@@@A\@^@QR#@^@Q'=@@@I @@^@IR\@^@QR[0^CUR[)^CU')B)H]:9K@@ /K@@CO%9K@@ISQ )@@G@@/K@@F(R#)^CVR#0^CUN9)@@ ')J)HJ')B)H]8L)@CWR#K^^B%@K^CW/K@@HY%9K@@ /K@@HYSR )@@G@@R#0^CUR#)^CV9!@^CX9(@^^BC[@^@O[[@^^: @@^[ C'@@@[')B)H]:9K@@ /K@@C?:9K@@,SS )@@G@@/K@@HY:9K@@./K@@HYC3@^^:[3@^@XC\@^^:[3@^@-C#@^CZ[#@^@$C#@^C)[#@^@>C;@@@@ST )@@G@@^2@^@QC;0@@[')J)HJ')B)H]:9K@@ /K@@DE:9K@@,/K@@DN:9K@@./K@@F)G'@@@[:'@@@HSU )@@G@@/K@@HY/K@@C":;@@@^/K@@F)')B)H]:9K@@ /K@@DG:9K@@./K@@F)%9K@@,/K@@HY')B)H]SV )@@G@@:9K@@ /K@@DN:9K@@./K@@F):9K@@M/K@@D-:9K@@D/K@@EV:9K@@B/K@@D_:9K@@R/K@@E:8A@@@/K@@FW')B)H]:9K@@ TE )@@G@@/K@@FW:9K@@,/K@@FW:9K@@./K@@FW[1K^@>[5)^@>H9K@@0H9)@@0T9)@@ER[@@@MG9O@@@TF )@@G@@!9K@@=/K@@FN?9K@@]/K@@FN[(K^^:G;@@@[/K@@DEC[)^C)[[)^@>:9K@@_/K@@FKR#@^CH9K@@0/K@@FGR#@^[['=@@@IR#@^[]'=@@@ITH )@@G@@R#@^[#'=@@@IR#@^[^'=@@@I/K@@KA^10^@Q')B)H]%9K@@E/K@@F"')B)H]%9K@@M/K@@GITI )@@G@@')B)H]%9K@@O/K@@HY')B)H]%9K@@V/K@@HY')B)H]%9K@@E/K@@HY')B)H]%9K@@ /K@@HYTJ )@@G@@R#K^C=/K@@GR%9K@@U/K@@HY')B)H]%9K@@R/K@@HY')B)H]%9K@@G/K@@HY')B)H]%9K@@ETK )@@G@@/K@@HY')B)H]%9K@@ /K@@HYR#K^C>/K@@GR%9K@@A/K@@HY')B)H]%9K@@D/K@@HY')B)H]TL )@@G@@%9K@@ /K@@HYR#K^C&')B)H]:9K@@ /K@@GR:9K@@,/K@@HY:9K@@./K@@H-9?0^C$R@K^CVTM )@@G@@N8K@@L9*1=^B8KK@G-C'K@@[C'@@@@[]K^[AR#)^CVR#0^CU')J)HJG'@@@[')B)H]:9K@@ TN )@@G@@/K@@G%:9K@@./K@@H-:9K@@,/K@@G.')J)HJG'@@@[%'@@@G/K@@G%')B)H]:9K@@,/K@@G_TO )@@G@@:9K@@./K@@H-:9K@@ /K@@G5/K@@HYG8)@@]Q;0@@@G'K@@[C'@@@@/K@@G%/,0@HFC1Q^@@TP )@@G@@C!Q^@@C(Q^@@C>Q^@@/,0@HCC-Q=@@Q90@@@/KF@@@:8A@@@/K@@H-C5Q^@@/KF@@@[5Y^^BTQ )@@G@@[1Y^^B[!Y^^B[(Y^^B[>Y^^B[-Y^^B[5Y^^C[1Y^^C[!Y^^C[(Y^^C[>Y^^C/,0@HV[-Y=^CTR )@@G@@Q;0@@@/KF@@@R#@^C('=@@@I/K@@CC:;0@@[/K@@F)R#)^[A/@)@N@[]K^^?:@K^C=/K@@IITS )@@G@@:@K^C>/K@@JV:@K^C&/K@@J9/K@@HYC]@^@I/]@@NC/K@@H0 @@^[SC'@@@[[]@^^]R;@@H7TT )@@G@@AB@@IHC9)@@K[1)^[QR;@^[N'=@@@#*4@^[Q/K@@NIN;0@@VR])^CV9!E=#D:[@^^[/K@@NCTU )@@G@@*@@@@K/K@@I^8N0@H./K@@IA/,K@MS8N0@H.R;E@@@G8@@@]T@@^^][^@^[SR#@^^]G8@@@[TV )@@G@@A#@^^]/K@@H7C'@@@[[]@^^]C90@@@C'K@IQ[AK@IH @@^[SC9)@@P[1)^[QR;@^[N'=@@@#TW )@@G@@*4@^[Q/K@@NIN;0@@VR])^CV9!E=#D:[@^^[/K@@JER@)^CVN@K^^?2[]=^B/K@@JT%[M^^ATX )@@G@@/K@@JTR#@^[SO;E@@@AB@^[MAB@^[GR;@^[B'=@@@#*4@^[E/K@@NK @E^#B @E^#CR;@@@CTY )@@G@@A3@^[QR;@^[N'=@@@#*4@^[Q/K@@NIR@)^CUN8)@@7 @]=]L8K)@I7R;@^[H'=@@@#*4@^[KTZ )@@G@@/K@@NM/,0@NZC9)@@PG90@@[:[0^^?/K@@JE8N0@J^/K@@JL[1)^[QR;@^[N'=@@@#*4@^[QUA )@@G@@/K@@NI/K@@IWC'@@@C[2@^[QR;@^[N'=@@@#*4@^[Q/K@@NI/K@@CCC'@@@C[2@^[QR;@^[NUB )@@G@@'=@@@#*4@^[Q/K@@NI[1)^[Q/K@@IA8N0@IW/K@@JLC'@@@[[]@^^]C'K@J<[AK@IHC'K@@KUC )@@G@@[2K^[QC'K@@@ @@^[SR;@^[N'=@@@#*4@^[Q/K@@NIN;0@@VR])^CV9!E=#D:[@^^[/K@@J;UD )@@G@@R@)^CVN@K^^?2[]=^B/K@@J7%[M^^A/K@@J,G'@@@[/,K@MSG'K@@[:]K^^?/K@@J;8N0@J(UE )@@G@@/K@@IA S@^^!/K@@JVH'@@@[/]@@K[:]@^^?/K@@K#R#@^C%/K@@K]R#@^C:'=@@@IC'@@@[UF )@@G@@[U@^^!/K@@CCR;@@@[A#@^^] @@^[SC9)@KH[ )@IHC9)@@K[1)^[QR;@^[N'=@@@#*4@^[QUG )@@G@@/K@@NIN;0@@VR])^CV9!E=#D:[@^^[/K@@K<%[@^^B/K@@KU:[K^^C/K@@KW8N0@KN/K@@IAUH )@@G@@ C@^^!R#@^C?'=@@@IR#@^C!'=@@@I/,K@MS/K@@CCR;@@@[A#@^^] @@^[SC9)@K%[ )@IHUI )@@G@@C9)@@P[1)^[QR;@^[N'=@@@#*4@^[Q/K@@NIN;0@@VR])^CV9!E=#D:[@^^[/K@@LK(@@@@KUJ )@@G@@/K@@K78N0@K0/K@@MKR#@^[SO;E@@@AB@^[MR@K^CUN80@@7 @[=]L8K0@K/9?K^^B9*K^]LUK )@@G@@R#0^^:A#0^]N9*U^#B'=@@@M9*@^#BR;@^[H'=@@@#*4@^[K/K@@NMC9)@@C[1)^[QR;@^[NUL )@@G@@'=@@@#*4@^[Q/K@@NI/K@@CCR#@^[SO;E@@@AB@^[M8N0@LP/K@@L!R@K^CUN8K@@7 @[=]LUM )@@G@@8KK@LR9!)^^B9()^]LC[K^^:[[K^]N9(%^#B'=@@@M9*@^#BC[)^^[[[%^#DR;@^[H'=@@@#UN )@@G@@*4@^[K/K@@NMC9)@@C[1)^[QR;@^[N'=@@@#*4@^[Q/K@@NI/K@@CC9!)^#D[[@^#DC]K^[SUO )@@G@@K'K@@'[])^[SC'@@@C[2@^[QR;@^[N'=@@@#*4@^[Q/K@@NI[]K^[S9()^#D9!)^^B9(%^#BUP )@@G@@R@K^CUN80@@7 @[=]L8K0@L"9()^]LC[)^^:[[)^]N'=@@@M9*@^#BR;@^[H'=@@@#*4@^[KUQ )@@G@@/K@@NMR;@@@CA3@^[QR;@^[N'=@@@#*4@^[Q/K@@NI/K@@CCR;@@@CA3@^[QR;@^[N'=@@@#UR )@@G@@*4@^[Q/K@@NI[1)^[Q/K@@IAR#@^[SO;E@@@AB@^[GAB@^[MC9)@@[R;@^[B'=@@@#*4@^[EUS )@@G@@/K@@NKR[@^C,R[K^C\N8K@@8M[O)@@*S@^^!/K@@M*/K@@M'*W@^^!/K@@M\C[0^^:[[0^]NUT )@@G@@C90@@][-0^]N[X)^^! @@^]V @@^]W'=@@@M9*@^]Z9*@^#BC[@^[R[K^CUUU )@@G@@ @ =]-8KK@M8R;@^[H'=@@@#*4@^[K/K@@NM/,0@NZ/KD@@@:@K^C>/K@@NA%@K^C&/K@@HYUV )@@G@@ S@^^!/K@@H0 O@^^!/K@@H0(O@^^!/K@@NE'=@@@DR;@@@[AR@^^!/K@@CCR7@^[Q/K@@NOUW )@@G@@R7@^[E/K@@NOR7@^[K/K@@NO;G@@@=W8@@@CO;K@@0A(@@^[V/K@@QF*4@^[V/K@@Q-R3@^[VA3@^@XR\@^[VA3@^@-R;@@@_UZ )@@G@@%*@^[V/K@@Q0*)@^[V/K@@Q;R#@^C2'=@@@IR#@^[['=@@@IR#@^[]'=@@@IR#@^[#'=@@@IVA )@@G@@R#@^[^'=@@@I9!@^[R9)^AI/\K@R;R#@^C3'=@@@IR#@^C4VB )@@G@@'=@@@IR#@^C59!@^[$&9)@OQQ9)^AS(@@@@K/K@@Q=R9)^AS/\K@R;'=@@@I9!@^ 49(@^A(VC )@@G@@9!@^ 5;H@@@G9(@^A1C[@^ 4[X@^A1C[@^ [[[@^B@[[@^BB[[@^A9[[@^A+C[@^[(/ @@O$VD )@@G@@R#@^C6'=@@@I/KF@@@R9)^A+R[K^CU/\K@R5/\K@SPR#@^C7'=@@@IC[@^[%;H@@@=W9@@@ VE )@@G@@;H@@@=W9@@J*C[)@@K;!@@@=R9)^A2Q9K@@@/\K@R5C[@@@M;H@@@=W9@@8K[[K@@MR9)^A1VF )@@G@@Q9K@@^/\K@R5C[@@@M;H@@@=W9@@@/[[K@@MR9)^A1Q9K@@[/\K@R5C[@@@MR9)^A2Q9K@@^VG )@@G@@/\K@R5R#@^C8'=@@@IC[@^[:;H@@@=W9@@8K[[K@@MR9)^A(Q9K@@@/\K@R5C[@@@M;H@@@=VH )@@G@@W9@@@/[[K@@MR9)^A%Q9K@@#/\K@R5C[@@@MR9)^A%Q9K@@@/\K@R5C@@^C9'=@@@IC[@^[?VI )@@G@@R9)^A9Q9K@@@/\K@R5/\K@SPR#@^C''=@@@IC[@^[!R9)^B@Q9K@@@/\K@R5/\K@SPR#@^C;VJ )@@G@@'=@@@IC[@^[,;(@@@A;D@@@A;H@@@=W9@@@9(@@@@KC9@@@[R9)^BBQ9K@@@/\K@R5/\K@SPVK )@@G@@R#@^C/'=@@@IR@0^C.R[@^C"N;)@@^8N)@P_/K@@REC[^)@@9?#)@@/[@@P.9*@^BQ9?@^C$VL )@@G@@9*@^BSR[K^CUR9)^BT/\K@R5R#@^C_'=@@@I/K@@P.R#@^D@'=@@@I/K@@O]9!@^[>/[@@QYVM )@@G@@R9)^AI/\K@R;9!@^[$R#@^D[&9)@QVQ9)^B((@@@@K/K@@Q=R9)^B(/\K@R;'=@@@IR#@^C4VN )@@G@@'=@@@I/KF@@@R#@^D]'=@@@I/KF@@@C#@^C-[#@^@$/K@@N\9!@^B!9(A@@@9!@^B\9(A@@]VO )@@G@@'=@@@I9!@^CB9(A@@@9!@^CD9(A@@]R#@@@A;C@@@M/KG@@@C#@^C+[#@^@>C(@^[V;H@@@=VP )@@G@@W9@@@E/[@@Q8G9@@@0[5@^@>G9K@@0[1K^@>/K@@N6R;@@@[%)@^[V/K@@R^9!@^]JR9)^CBVQ )@@G@@/\K@R;R#@^D#'=@@@I/K@@N'9!@^]JR9)^CO/\K@R;R#@^D^'=@@@I/K@@N'R#@^D '=@@@IVR )@@G@@N;)@@JR@0^DAR[@^DBC[#)@@[[@^BIC[^)@@(@@@@K/K@@R(;H@@@=W9@@8KC[)@@LR9)^BKVS )@@G@@Q9K@@@/\K@R5C[@@@M;H@@@=W9@@@/C[)@@LR9)^BLQ9K@@#/\K@R5C[@@@MR9)^BLQ9K@@@VT )@@G@@/\K@R5R#@^DC'=@@@I9!@^ 49(@^BK8N)@RJ/KF@@@[-Q@@@[>Q@@@[(Q@@@[!Q@@@[1Q@@@VU )@@G@@/?)@R1Q9K@@@[5Q@@@P9)@@[/K]@@@;H@@@=W9@@@EG9K@@0') )R:/ @@R5/KH@@@ @@@@JVV )@@G@@;(@@@];?0@@^T80@@ER#)@@J @@@@J;(@@@];?0@@^G@0@@IRB\^ #AB&@@[;?0@@AA36@@]VW )@@G@@;?0@@AA\6@@];?0@@GAZ6@@#;!@@@G[XA@@@;!@@@A[(A@@@;!@@@A[>A@@@;!@@@G[XA@@[VX )@@G@@/KH@@@C9@@@ N8K@@ %5A@@@/KH@@@C[Q@@@;-K@@A[[Q@@@8KK@SR/KH@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @@H@@@@@@@@[VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@ERU$ K@@@@^H=RCZABILLER @@ @@@M4%CZA@@@@@@@KY@C@@CS^@@@@@@@@WC )@@G@@@@1^CS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#^@C=@C@^@M^@@@C=^@M@@@^@@@@@@@[@@@@@@@@@@@ WE )@@G@@@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@53 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@C@@@M@CN0@R@@@@@N^@@WG )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___WH )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___WI )@@G@@@@@@@@@@=@CN@@2@CJZOOM @@@@@@@C@@@@@@@@CD@@@@W@*[@@@@*SDFF*@@@@@@WJ )@@G@@ UNLOAD TRACKS = HOW MANY TRACKS YA WANNA FREE UP? ZOOM ZOOM WK )@@G@@ @@@@@@@@[@@@ @ @@@[@@@@@[@@@@W@@@@@@@ PA600665 WL )@@G@@@I@@@@ IF(2*ITOTH-ITOT) 1,2,1 WM )@@G@@ PA600666 @I@@@@ 1 PRE=-PRE R;@@C@'=@@@CRBK@C@O;K@@RWN )@@G@@ @@@@GW8@@@AAZ@@CFO;@@@^AF@@CBR#K^@MA#W@CCR;@@C#'=@@@#R;@@CT'=@@[^R;K@W[WO )@@G@@'=@@[B'=@@@D___@@@ PA600668 @I@@@@ X=GA*(WP )@@G@@MAIN @@E@@@@@@@@[ PA600669 WQ )@@G@@@I@@@@ XX=2.*X WR )@@G@@ PA600670 @I@@@@ERU$ K@@@@^H=RCZACOOOKEEE @@]@@@L5.AABWS )@@G@@@@N^@@@@>@C@ PA600671 @I@@@@ FNU(7)=FMCH WT )@@G@@ PA6006@@@@AC@E;@C@^#H^@@@E;^#HWU )@@G@@@@@@DF@@@@@[@@@@@@@@@@@G@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@57 @@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@]/@C@@@>^@@@@N^@2@@T^]5@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___WX )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___WY )@@G@@@@@___@@@___@@@___@@@___R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CWZ )@@G@@A#W@@DC G@@DG G@@BC W@@AGDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BXA )@@G@@H[K@@KN@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@AXB )@@G@@[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ XC )@@G@@CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AXD )@@G@@ABW@@^RBW@@DD8)___AF!@@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WXE )@@G@@AF?@@^O#W@@ '=@@@#A#W@@ C5W@@#/ V@@@/KF@@[R;@^@#'=@@@JR;@^@-'=@@@CQ')@@@XF )@@G@@R;@^]5'=@@[CA#K^@_A#K^]_R;@^@'/,0@C$R;@^@'/,0@C@'=@@@)R#@^@@R;K^@;N8K@@IXG )@@G@@M#H)@@R;@@I@;*@@@MA#@^[^'=@@@?;)@@@MA#@^#@N80@@ R])^@[9\)^#C/,0@EK9\)^#EXH )@@G@@/,0@EK9\)^#G/,0@EKR;@^@'/,0@C@'=@@@)/,0@EV9\)^@7/,0@EKC;@@@@R;@^@NAB@^@+XI )@@G@@R;@^@-'=@@@CR;@^@UAB@^@+R;@^@-'=@@@CC#0^@9R;K@D/R;@^@4'=@@@C(^@^@4/K@@EEXJ )@@G@@C#)^@A:#)^@]/K@@E+C;K@@ N9@@@^%G^X @@@@@@@[F@C@ERU$ K@@@@EK32]QBA XZ )@@G@@@@#@@@G-4[IC@@#^@@@[1@DF@#F^@#K#],S@K#],T@K#],U@K#],V@K#],W@K#],X@K#],Y@YA )@@G@@K#],Z@K#],)@K#],-@K#],+@@@@@B@@FX@C@^#R^@@@FX^#R@@@@DF@@@@@[@@@@@@@@@@@IYB )@@G@@@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@57 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#Y@C@@@>^@@@@N^@2@@<^]5YD )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___YE )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___YF )@@G@@R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@AYG )@@G@@GDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@BYH )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DYI )@@G@@'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@YJ )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@YK )@@G@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ YL )@@G@@C5W@@#/ V@@@/KF@@[R;@^@#'=@@@JR;@^@-'=@@@CQ')@@@R;@^]5'=@@[CA#K^@_A#K^]_YM )@@G@@R;@^@'/,0@C$R;@^@'/,0@C@'=@@@)R#@^@@R;K^@;N8K@@IM#H)@@R;@@I@;*@@@MA#@^[^YN )@@G@@'=@@@?;)@@@MA#@^#@N80@@ R])^@[9\)^#K/,0@E2R;@^#CAB@^#IR;K@D%R;@^#H'=@@@CYO )@@G@@(^@^#H/K@@E:R;@@@['=@@@5R7@^@A:8@@@B/K@@D;%8@@@D/K@@E: @@@@G'=@@@59\)^#MYP )@@G@@/,0@E29\)^#O/,0@E29\)^#Q/,0@E2R;@^@'/,0@C@'=@@@)/,0@E.9\)^@7/,0@E2C;@@@@YQ )@@G@@R7@^@AA#@^#C%8@@@B/K@@EKR;@^@NAB@^@+R;@^@-'=@@@CR;@^@UAB@^@+R;@^@-'=@@@CYR )@@G@@C#0^@9C#K^#C:;K@@DC#0^@;C')@@[Q'0@EQR;K@ERR;@^@4'=@@@CH')@@[(^@^@4/K@@E:YS )@@G@@C#)^@A:#)^@]/K@@F^C#K^#C%;K@@D/K@@E=/,0@E2/,0@FFC;K@@ N9@@@^%G^X @@@@@@@[F@C@ERU$ ZK )@@G@@K@@@@EK32]QBREGSTR @@#@@@F#X]XC@@#^@@@]N@DF@#P^@#@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ?@D.@C@^[$^@@@D.^[$ZM )@@G@@@@@@C@@@@@@[@@@@@@@@@@@F@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@67-8 @@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@["@C@@[*^@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___ZP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___ZQ )@@G@@@@@___@@@___@@@___@@@___C8@^@@'=@@@C(^@^@@/K@@C@CW@^[P;*@@@S;C@@@SC^K^@@ZR )@@G@@:8K@@[/K@@CKH8@@00;G@@@A;CK@@YT8@@@EG@@@@H/K@@CM;C@@@AH8@@@00@@@@G/K@@C@ZS )@@G@@H8@@@[!8@@@2/K@@D;N@K@@GC8@^@#'=@@@CC4@^[P%8@@@T/K@@C7C8@^@I'=@@@CC@@^[PZT )@@G@@[@@^@X[@@^@-+@@^[W:@K^[X;)@@@M[C@^@W[C@^@)[C@^@QC@@^[Y[@@^@G'=@@@J/^@@D$ZU )@@G@@8KK@C2C@@^[Z[@@^@G'=@@@J/^@@D$'=@@@DC@@^[)[@@^@G'=@@@J/^@@D$/K@@C?C8@^@IZV )@@G@@'=@@@CC@@^[P[@@^@:[@@^@1R;@^@R'=@@@C9?@^[P9*@^[GR#@^[-A#@^[QR#@^[+'=@@@JZW )@@G@@C8@^@A'=@@@C9?K^[PD^0^@AG80@@FT80@@A/G0@D7;GK@@AO#K^[<;^Z@@@9*K^@=9*K^@*ZX )@@G@@9*K^@,C8@^@L'=@@@CC4@^[P%8@@@N[@@^[RC@@^[=[@@^@G'=@@@J/^@@D$8KK@D+C@@^[>ZY )@@G@@(@@^[RC@@^[&[@@^@G'=@@@J/^@@D$'=@@@DC@@^[&[@@^@G'=@@@J/^@@D$/K@@DUR8K@@[ZZ )@@G@@N8K@@ ;G@@@#;CK@@#G@K^[$8KK@D([@L^[N8@K@D*R;@@@ATC@^@GAF@^@GR;@^@F'=@@@CAA )@@G@@R;@^@D'=@@@C'=@@@)R;@@@*A<@^@$A<@^@!/K@@DIC8@^[S'=@@@C/K@@C@@@@@@@@@M^@2AB )@@G@@@@]^[P@@@@@@@@M^@5@@^^[P@@@@@@@@S^@8@@G^[P@@@@@@@@%^[I@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@=^@/@@A^[P@@@@@@@@=^[]@@[^[P@CAT,P SYMTAP3,6C@@@@@@@@M^[C@@G^[PAD )@@G@@@SYM,US SYMTAP3,T,PR3 @SYM,S SYMTAP3,T,PR3 @ASG,A AE )@@G@@@SYM,US , ,PR3 @SYM,S , ,PR3 AF )@@G@@HOW MANY COPIES? TAPE OR F-II? ENTER F-II FILENAME ENTER NAME OAG )@@G@@F DEVICE TO DO PRINTING DELETE FILE WHEN DONE? ANS Y OR N ENTER QUALIFAH )@@G@@IER @QUAL ABOVE REQUEST REJECTED CODE: @@@@@@AI )@@G@@ @@@@@@@@@@@@@@A^[V@@@@@@MAX=50__@@@@PR@@@@@@#^@O@@^^@Y@@^^@U AJ )@@G@@@@#^[F*@@@@@@@^^@+@@A^@?@@A^@&0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @@E@@@@@@@@[Q.LOOKUP.AND.LKT.ER#0@@NAM )@@G@@O TO 438 G.0@@= @@@@#R /]0^L>(0,18,TYPEIN(1)).ER]@^MFAN )@@G@@IN) GO TO(438,1038R_S@@@,LKT /K@^LZERU$ K@@@@^NO$#KCAO )@@G@@GPUR @@]@@@J<)EKC@[*^@@@["@C@ @@@@#UAP )@@G@@ OLKLIN=FLD(0,18,TYPEIN(1)) AQ )@@G@@@@@["8[)N@C@ 3[^@@[)N 3[@@@^XJ@@@@@[@@@@@@@@@@^U@#)@@W@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@68-2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@DL@C@@&G@L<@-V@"9@[]^@@@@E^N^@#F^N=@#P^Q"@[0^UXAT )@@G@@@D'^W;@@E^\V@@T^1@@@W^11@@E^6-@BZ^7J@G) =I@[[ 1Z@@@___@@@___@@@___@@@___AU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___/K@@@@C^W@@CC0?@@CC9K@@#AV )@@G@@%8)@@[C9K@@^[1W@@CC[I^P![1G@@#%9K@@#/K@KC@H8K@@[?8K@@[/K@KC@C^?@@C[C?@@DAW )@@G@@'^@@I!/K@KC@/K@@@@C@0^WF0@G@@#'=@@@A*4G@@#'^@@Y5C8)@@K[0?@@#'^@@JYC8)@#)AX )@@G@@C0W@@C:8K@@]/K@@C+C8)@#/?9@@@KC8)@^@[C?@@^'=@@@[/K@KCMC8F@@][@@^Q"/\)@5QAY )@@G@@[@K@@JC9@@@AC@_@@@[[@^WG/\@@Q2/K@@DMC^J^T!0@G@@#'=@@@A*4G@@#'^@@Y5(@G@@DAZ )@@G@@/K@@D#(^G@@C/K@@D[C1G@@C?9@@@#/K@@D[C1G@@#%9@@@('^@@H30@G@@#'=@@@A*4G@@#BA )@@G@@'^@@Y5 CG@@^/\)@YXC1J^T!!9@@@K/K@@DKC8K@@)[0W@@# 4G@@#'=@@@[ @G@@E @G@@CBB )@@G@@ @G@@^ 4G@@A @G@@B/KF@@] @G@@ /K@@DE'^@@2*C@@^@@'=@@@I'^@@2[/KF@@]C8F@@]BC )@@G@@[@@^Q"/\)@5Q[@K@@JC9@@@ C@_@@@[[@^WG/\@@Q2/K@@E9C^J^T!(?G@@C/K@@D('^@@U3BD )@@G@@C@@^V/^^W@@^^^W@@D'^@@CM ?G@@CC1J^T!?9@@@K/K@@FH*^G@@D/K@@D3'^@@U3C@0^WFBE )@@G@@C^J^T!^^W@@D^^W@@^'^@@JYC1G@@C*4G@@C/K@@D;0@G@@#'=@@@A*4G@@#/K@@FEC9K@@_BF )@@G@@=9@@@[[1W@@E%9@@@]/K@@E#'^@@I.*4G@@C'^@@I.RBW@@CR3?@@C:8)@@^%CW@@D/K@@ETBG )@@G@@'^@@H3C8K@#)AFW@@D*4G@@C/K@@ES'^@@U0*@@@[[/K@@EP0@G@@#'=@@@A*4G@@#'^@@Y5BH )@@G@@/K@@ESR;K@@[A7W@@C^^W@@D ^G@@CC G@@^*4G@@C'^@@YP 4G@@CC^W@@CC1G@@E[!@^@EBI )@@G@@K^W@@DG8K@@[[^W@@C ^G@@GC[@^@E[[I@@@[[G@@EC1G@@C:9@@@#/K@@E0:9@@@^/K@@E2BJ )@@G@@'^@@C@C1G@@C%9@@@#/K@@E2C9@@@^[1G@@C'^@@H30@G@@#'=@@@A*4G@@#'^@@Y5/\)@Y-BK )@@G@@/KF@@]C1J^T!R#@^V/%9@@@-/K@@F /G@@F[C@@^@F'=@@[S/KF@@]C[@^@F[[G@@@'=@@[>BL )@@G@@/KF@@]'^@@2*C@@^@H'=@@@I'^@@2[/KF@@]*^@@HP/KF@@]'^@@Y5(@G@@D/K@@FNC1G@@CBM )@@G@@:9@@@^'^@@H3/\)@Y-0@G@@#'=@@@A*4G@@#'^@@Y5C9@@@D[1G@@#'=@@@[/KF@@]@@@@@@BN )@@G@@@@@@@@A#@^@WR\@@FVP;@@@^%8@@@A/K@@F0C@@^@W'^@@2*R7@@FV'^@@2_AF@^@-R3@@FVBO )@@G@@'^@@2_AF@^@@@GRR;@^@4 @@@@JC8;K@[ 4G@@#*@J@@@'=@@@#(4G@@#/KF@@#/K@@G$C8K@@6BS )@@G@@%4Z^T!/KF@@# ^J^T![@)^@;C@@^[@'=@@@J/^@@G$;@)@@SC1@^@4:9@@@ ;@)@@A[^)^@.BT )@@G@@C@@^[['=@@@J/@F@@#/\0@HH/KF@@#*?G@@]/KF@@#9!G@@C99@@G"C0/@@#C1G@@C%80@@(BU )@@G@@?9@@@#/K@@G"A]0^@9/,0@DT@@@@@@@@@@@@R]0^@90@G@@#'=@@@A(4G@@#/K@@G"C4/@@#BV )@@G@@%80@@]/\0@HG @@@@JC8:K@[C@0^WFC^J^T! 4G@@#(@I@@@/K@@HEA]0^@9/,0@C$@@@@@@BW )@@G@@@@@@@@R]0^@9/\)@YX/KF@@#RF?@@@[@)^@1'^@@2*C@@^@( ^@^Q_'=@@@I0@@^@8'^@@2[BX )@@G@@/KJ@@@/K@@@@C@0^@8/C0@HVC80@@Y*^J^T!/K@@HX8#0@HT/K@KHPC^J^T!C5J^T!%9@@@QBY )@@G@@/K@@H?(4G@@A/K@@HV 4G@@A0@G@@#'=@@@A*4G@@#'^@@Y5C9@@@C[1G@@#'=@@@[/K@@HVBZ )@@G@@[@0^@8/,0@F/@@@^@8@@@^@/@@@@@@C@0^@8/K@@HV/K@@@@C@0^WFC1G@@C%9@@@#/K@@IPCA )@@G@@C^W@@DK^W@@CC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@G[[Y@@[[[W@@E[[X@@@CDW@@G CG@@GCB )@@G@@ @G@@FG8)@@]G9K@@# @@@@KW9@@@W/[K@IKD[K@@LG9K@@W8^K@IH&;)@@[ @I)@@8^K@IICC )@@G@@H^?@@D[C?@@D[^?@@C'^@@I!/K@KH3C^?@@CG^?@@DC W@@C @@@@KW9@@@W/[K@IKD[K@@LCD )@@G@@G9K@@WH9K@@[C1G@@E[!I@@@[1Y@@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)[5I@@@[(I@@@CE )@@G@@C[I@@@[[G@@EG8)@@[/[K@IK/K@@IG/K@@@@0@G@@#'=@@@A*4G@@#'^@@Y5C8K@@C[0W@@#CF )@@G@@'^@@JYN^W@@^C@?@@D[@?@@^*4G@@C^^W@@D*CG@@^'=@@@[/K@KI!/K@@@@C8K@@([0W@@#CG )@@G@@ 4G@@#C1J^T!!9@@@K/K@@JM0@G@@#'=@@@A*4G@@#'^@@Y5N80@^@^C/@@^N^/@@#C1G@@CCH )@@G@@/-@@JI @@@[#'=@@@#^^/@@#*4G@@#/K@@JSN^/@@#^C/@@^(@G@@ /K@@JW'^@@JY/K@KI.CI )@@G@@C5G@@#!9@@@#'^@@Y5/K@KI. CG@@^/K@KI./K@@@@C1J^T!?9@@@K/K@KJYCCW@@^+8KB__CJ )@@G@@/@)KJY0@G@@#'=@@@A?9@@@S/K@@J? @@@@HW8K@@W;GK@@=C0W@@#:8K@@(D@)@@IG@?@@ CK )@@G@@[@?@@ CG@@^/C)KJY @G@@ !9@@@ST8)@@WOB?@@#AB?@@#AB?@@C/K@KJYC@@^X ;GK@@=CL )@@G@@W8K@@E[@?=NH/^K@J;[@@^NEC @^NE/KJ@@@ ^@^N<>@0^N=")0^NB98;@@@"0@@@JH8@@K@CM )@@G@@/@F@@@S@@^NDAA0@K+/^@@KIE@@@@G/K@@KM[^@^NH8@@@[/K@@KM9?K^NA9=K@@J98K@KX/CK@K-G8@@@["?0^N>/K@@KMCO )@@G@@G9@@@[[^@^N/K@KM(980@N<"0)@@J9)0^N?0@@@@J9=0^N,"4)@@J"/0@@J'^@@N>/K@KM?/K@@@@DD )@@G@@C[K^@U^@K^@U/[K@N>'^@@2*C@@^W#&;@B@@A#@^W]D@@^N$/\K@Z'"*"^N0"?"^N0"*"^O]DE )@@G@@"?"^O]"*"^OO"?"^OO/K@@@@C[@^O>[ @^RC[[@^W=[[@^W#C@@^V/C1J^T!:9@@@)/K@@ZRDF )@@G@@0@J^T!/K@@O :9@@@=/K@@ON:9@@@-/K@@OK/K@@OU%9@@@=:9@@@>/K@@OH%9@@@-/K@@OUDG )@@G@@C9K@PYN8K@[L/K@@OPC9K@P>N8K@] /K@@OPC9K@*,N8K@[L/K@@OPC9K@*YN8K@] [ K@3.DH )@@G@@[ K@4[^^K^T%^^K^WC/K@KN5C[@^O&[[@@,%(@G@@D/K@@O>C0W@@C/@K@O?:8K@@^/K@@O5DI )@@G@@%8K@@#/K@@PK/K@@O;'^@@U3C@@^V/^^W@@D^^W@@^N8K@#)^CW@@D/K@@OYRBW@@DC[@^O=DJ )@@G@@C[K^X @H@@[[[H@@@[[G@@E[[X@@]C9@@@][ G@@CC9K@P!N8K@@^^0W@@C ^G@@GN8K@] DK )@@G@@/K@@OPC9@@@_[1G@@E*4G@@C/K@@PF'^@@U0C@@^V/(@@@[[/K@@PFC8K@@[[4W@@C^^W@@DDL )@@G@@ ^G@@CN8K@#)^CW@@D'^@@YD/K@@O50@G@@#'=@@@A*4G@@#'^@@Y5/K@@PA'^@@JY(?G@@CDM )@@G@@'^@@I.*4G@@C'^@@I. ?G@@CC0?@@CC9K@@_:8)@@[[1W@@EC[I^P![1G@@#'^@@YD/K@@O5DN )@@G@@/K@@@@C[@^O$C@@^V/[[G@@@'=@@[>C^K@PY/K@@*(/K@@@@'^@@)!C@@^V/C[@^S([[G@@@DO )@@G@@'=@@[=C^K@P>/K@@*(/K@@@@C80@@PC@)^XD:@\^W>8#0@P0G80@@[A]@^W/C@@^V/ 4G@@EDP )@@G@@[@0@[]C0?@@E[??@@E[0/@@ER]@^X C G@@G[ G@@EG9@@@[[ G@@GC8)@@C[*?@@EN@/@@EDQ )@@G@@/K@@Q^N@8=W>C^W@@C?CW@@D/K@@QO'^@@H3C8K@#)[CW@@D*4G@@C/K@@QN'^@@U0*@@@[[DR )@@G@@/K@@QX0@G@@#'=@@@A*4G@@#'^@@Y5 ^G@@CC^W@@CK^W@@D^@"@@@G8K@@[[^W@@C8K)@Q#DS )@@G@@C^K@P!R]@^W//K@@*(C8K@@[[4W@@C^^W@@D/K@@QNC@0^WFC^J^T!(4G@@C/K@@Q,0@G@@#DT )@@G@@'=@@@A*4G@@#'^@@Y5C G@@^'^@@YP 4G@@CC G@@D[ G@@^C[@^XC[[@@,%/\)@UU/K@K4ADU )@@G@@[@@^O*/G0@ZR!80@@Z/K@@ZR[@0^WFC@Z^T!+@K^QJ/^)@T7R;!@@@/^)@T"'^@@3B[@0^P5DV )@@G@@C@@^QK'=@@@UR#0^WFR;@@@[A7J^T!R7@^P;*0J^T!/@@@T?*^@^QH/K@@RG/K@^QRR;K@@&DW )@@G@@ @H^QR8#K@RER#0^WFR7@^P;R3Z^T!;C@@@#:8@@@]/^K@UKCD@^QOR;)@@H*@@@@HR;)@@#DX )@@G@@K[@@@IC8@^QOC^K^QOG8K@@[!@K@@L/K@@R5CD@^QPK[@@@IC8@^QPC^K^QPG8K@@[!@K@@LDY )@@G@@/K@@R5C8K@@*P;K@@[C8)@@ ?C!^QQ/K@@S48#K@R&'^@@U3^CX^QQC8)@^@G@)@[[H8)@@[DZ )@@G@@[^!^QQ^@K@@KC8H^QQK9@@@H @I@@@%@)@[[8#)@R2C@0^WFAB@@SR[ J^T![DW@@@[[@^V/EA )@@G@@R#@@@KC5K^P;C[@^WG:9@@@Q/K@@S1G9K@[@C1J^T!/[@@SC:9@@@6/K@@S\;DK@@^H9K@@]EB )@@G@@;(K@@E)[@@@L;(K@@A[DZ^T!9?K^P5/[@@SJ9*W@@[O;@@@#/K@@SR9*W@@@;GK@[C9*W@@]EC )@@G@@9*W@@^9*W@@C9*W@@EA#W@@GO;@@@HAF@@@@C@K^WG:8K@@Q/K@@T>C@@^V/C5@^P;/ @@S-ED )@@G@@C8K@^7[^W@@A/K@@S'?9@@@K/K@@T>?9@@@S/K@@S?C^K^P.*?@^P;;)K@@A;)K@@AH8K@@DEE )@@G@@[^W@@A/K@@T>C@K^P"H8K@#//K@@S%C9K6=@/K@@SDG9K@Q@ @@@@K/K@@SCC8H^QQCDH^QQEF )@@G@@K9@@@H? X^QQ/K@@R5/K@@R(C[@^WG?9@@@#/K@@UA?9@@@A/K@@TQ:9@@@A/K@@TG:9@@@CEG )@@G@@/K@@TQ'^@@2*CCK^P5[^K^PVC@K^WF&;KR@@[@K^W]C@@^O,'=@@@I'^@@2[C@0^WFC^J^T!EH )@@G@@K8@@@HC8)^QO%CY@@@C8)^QP[CI@@@ @J^T!RA0^Q"/KF@@@C@@^P5;@@@@SC0K^P5:8K@@ EI )@@G@@;@@@@A[^@^P(C@@^QL'=@@@J/^@@UPC@0^WFC9@@@T1@J^T![1J^T!C@K^V/ @H@@#R#Z^T!EJ )@@G@@A#K^V/C0Z^T!C^@^O*?8K@@)/KG@@[/KG@@@C8K@@6%0Z^T!/K@@T>CCK^P5[^K^P?C@@^QMEK )@@G@@'=@@@J/^@@UPC8K@@T[4K^P;/K@@RAC8@@@Q%4J^T!/K@@T&:@@^WG/KF@@AC@@^O\/K@@UIEL )@@G@@C@K^WG:8K@@C/K@@T>'^@@2*CC!@@@[^)^O_C@@^O:/K@@UI'^@@2*CCK^P5AFK^O2C@@^O(EM )@@G@@ ^J^T!/K@@UI'^@@2*C@@^O%'=@@@I/K@@2['^@@2*CCK^P5AFK^PGR#@^O?/K@@UI'^@@2*EN )@@G@@C@@^O!RFK^P5ABK^PM/K@@UIC1J^T!?9@@@K/KI@@@CDW@@^?9@@@S/K@@U< @@@@KW9@@@WEO )@@G@@;H@@@=G[W@@ C G@@B[ W@@BH[K@@K!DW@@B[DW@@BC G@@BGDG@@BH G@@A/HI@@@C9K@@[EP )@@G@@[5W@@A/KI@@@/K@@@@ @@^QI/K@@U6/K@@@@C@K@U3[@K^QIC^K^QH @@@[[P;K@@[(CH^QQEQ )@@G@@/K@@VJ8#K@U9C^)^QP/@)@V^P;)@^@CC0^QP?@)@@J/K@@V^[^)^QP/K@@VEC^)^QOP;)@^@ER )@@G@@CC0^QO?@)@@J/K@@VR[^)^QOC@K^QHG8)@@[[^!=QQ[@K^QHP;K@@[C[@^WG[DH^QQN^X^QQES )@@G@@C@0^WFC^J^T!(@@^QI/K@KU0/K@KU3C@0^WF(@@^QI/K@KU0 @@^P_ @@^Q@ @@^Q[ @@^Q#ET )@@G@@ @@@@JC^J^T!/@@@W/(?G@@]0@J^T!/K@@W/(0G@@A/K@@V((^G@@^/K@@W//K@@V?*@G@@DEU )@@G@@*?G@@C/K@@W/N^W@@^'^@@X.CC!^QQ*0G@@A/K@@V;!8)@@ /K@@Y /KI@V4/K@@VJ/K@@WKEV )@@G@@/K@@W-/K@@W=[C0^P_[^K^P_/K@@W/%8)@@P/K@@W@[C0^Q#[^K^Q#/K@@W/0@G@@#'=@@@AEW )@@G@@*4G@@#'^@@Y5*4G@@A/K@@WD ^G@@^ ^G@@D/K@@VJ 4G@@AC9@@@C[1G@@#'=@@@#*4G@@#EX )@@G@@'^@@Y5/K@@WA*4G@@C/K@@WP[C0^Q@[^K^Q@/K@@W/0@G@@#'=@@@A*4G@@#'^@@Y5'^@@JYEY )@@G@@'^@@I.N^W@@^C G@@D[ G@@^ 4G@@C'^@@X./K@@VJ[C0^Q[[^K^Q[/K@@W/C1G@@#:9@@@(EZ )@@G@@/K@@W,0@G@@#'=@@@A*4G@@#'^@@Y5 @G@@D ^G@@C/K@@VJ[C0^Q][^K^Q]C G@@C/[@@W:FA )@@G@@C0Z^T!?8K@@K/K@@W/[DG@@^C9@@@C[1G@@#'^@@JYCC0^Q]C^K^Q]/K@@W:G80@@[?80@@ZFB )@@G@@/K@@VZC[@^P_/[@@XYCC0^P_C^J^T!0@G@@#'=@@@A*4G@@#'^@@Y5C[@^WF[[@^W/[@0^WFFC )@@G@@C1W@@#:9K@@(/K@@XS'^@@H30@G@@#'=@@@A*4G@@#'^@@Y5 ^G@@C @G@@DR#0^W/A#0^WFFD )@@G@@C^K^P_/K@@VJ'^@@I!'^@@JY'^@@I.C9@@@[[!G@@C/K@@XNC[@^Q@/ @@X&C[@^Q[/[@@X7FE )@@G@@CC0^Q[C^J^T!N^K^Q[/K@@X(CC0^Q@C^J^T!N^K^Q@0@G@@#'=@@@A*4G@@#'^@@Y5C1G@@#FF )@@G@@:9@@@(/K@@X2'^@@JY'^@@I.C9@@@[[!G@@CR#K@[[ @G@@D/K@@VJC[@^Q#/[@@Y CC0^Q#FG )@@G@@C^J^T!C^K^Q#/K@@W@/K@@@@ @@@@HC H^QQ:[@@[[/K@KX.G8K@@[?8K@@*/K@@X_'^@@2*FH )@@G@@C@@^Q^'=@@@I/K@@2[/K@@@@N^W@@^'^@@X.C[K^WG[DX^QQ(0G@@A(4G@@C/K@KYDN^W@@DFI )@@G@@'^@@X.[DX^QQ/K@KYD/K@@@@N8K@@$C@K^X % H=QQ8KK@YSP#K^XA CH^QQ/K@KYP(4G@@CFJ )@@G@@/K@@Y-C G@@D'^@@YPC G@@^/[I@@@'^@@YP @G@@C @G@@D/KI@@@R#V@@@R;@^R]R#X@@@FK )@@G@@A#K^R[%@K^R '=@@@C/S@@@@*^@^Q_'=@@@D*@@^UM'^@@26'=@@@Q ^@^Q_/K@@Y!/K@@@@FL )@@G@@'^@@2*C4W@@#[CK^RA 4G@@#:8K@@ /K@@ZY:8K@@]/K@@Z&%8K@@[/K@@Z]C[K^RB[[W@@EFM )@@G@@!8K@@ @@@@HC@H^RDR#)^WF&;)#@@(@@^WA/K@@ZF&;,F@@Q#)^W A#)^W]*@@@@H!8K@@#FN )@@G@@/\K@Z;O;K@@OA7K^W]%8K@@Q/K@@ZPC[K^XC[[K@,%C9K@@]/K@@Z.'^@@2*C@@^RIRB)^Q"FO )@@G@@&;)O@@Q#,@@@A#)^W]/\K@Z; @@^UM*0G@@A/K@@Z=C^W@@#[CW@@^/@K@Z^C@K^UP/K@KY5FP )@@G@@ @@^UM[4W@@AC@K^UP/K@KY5'^@@2*C@@^SD&;KN@@Q#K^WF[@K^W]/\K@Z''^@@2*C@@^SLFQ )@@G@@&;KL@@/K@@Z!'^@@2*C@@^SU&;KM@@/K@@Z!R;K@@[/K@@Z^'^@@2*[^K^RAC9K@@#R]0^Q"FR )@@G@@CC)^Q"H8)@@[/G)@) :DV@@@/K@@)>O'0@@[8#)@)[:9K@@]/K@@)+/C)@)VC[K@@GE@@@@GFS )@@G@@'=@@@I/DK@)KR#@^S<'=@@@IR#@^RC'=@@@ICG@^V//@@@)S0@@^V/R;G@@[RFG@@@AB@^SAFT )@@G@@R#@^S='=@@@I(^@^RA/G)@)Z/G)@2[ ^@^RA @@^WA @@^UM/KI@@@ @@^UM'^@@2[/KH@@@FU )@@G@@/C)@)W'=@@@I/K@@2[C@:@@@/K@@) 9!@^XDC@@^S7N8)@@E9(G)@@8K)@)%/KI@@@/K@@@@FV )@@G@@C4K^W> 4@^S(:8K@@ /K@@)8:8K@@0/K@@)':8K@@1/K@@)/:8K@@+/K@@)_C8)@@[/K@@-@FW )@@G@@C8)@@]/K@@-@C8)@@_[4)^S(/K@@-@C8)@@@[0)^S(C8K@@ [4K^W>/K@K)!/K@@*/K@@K%8K@@^/K@@=%R3K^V.:8K@@#/K@@>KGQ )@@G@@R3K^V.%8K@@#/K@@=794"@@@980@>+?@0^S8?@0^S9/K@@=3/K@@='R7K^T+%8K@@#/K@@=GGR )@@G@@/K@@$6E@"@@@/@0@>+"80@@J/,0@K]9*0^S5R7@^T+/KG@=//K@@>R/K@@>VDH@^N#GS )@@G@@/D@@>OGD@^TODH@^N%[ @@=)GT )@@G@@RJ0^NX94"@@@980@>+/,0@K]/K@@>SCDK^TR ^@^N+ @@^N< @@^NGR;K@@OGV )@@G@@ABK^NE/K@K=)'^@@,:'^@@=)CH@^N0DH@^N<] @^N-/K@@>8*C@^T6GW )@@G@@D9@@@[[ @^NE] @^N-/K@@>8[ @^N-D9@@@@H9@@@[HD@^T*C[@^S,[[@^T2DH@^N7/K@@@@'^@@&=0G@^N-/K@@&ZR;)@@.'^@@-ICD@^T<'^@@$O/K@K&S/K@@@@HA )@@G@@ ^@@&=/K@@&>/K@@@@/[@@$[H9@@@]R;)@@ /H@@&:'^@@-I8^@@&(C^K^V.1@H@@@/K@@$@HB )@@G@@R#X@@@R70^T+:80@@ /K@@&'R30^V.:80@@[/K@@&':80@@#/K@@&.>@K^S'/K@@$@/K@@&_HC )@@G@@(@@@@H/K@@$@/K@@&_>@K^S;/K@@$@C8)@@-'^@@-ICH@^N-/H@@$Z(^@@&=/K@@$D'^@@$OHD )@@G@@/K@K&=/K@@@@ ^@@&-R#@@@K/K@@$KR#?^NH!@@^S/R;)@@@O;)@@0'^@@-I8#@@$F*^@@&-HE )@@G@@/K@K&-/K@K$B/K@@@@R#@^NE/K@@$WR#?=NH!@@^S.R;)@@@O;)@@0'^@@-I8^@@$RAB@^NEHF )@@G@@/K@K$OD@@@@KGD@^T/K@K&=/K@@@@C^K^V.HG )@@G@@C@X@@@/CK@$0/@K@$0C8)@@-'^@@-IH9@@@[C8)@@08^@@$4 @@@@K/K@K$*'^@@-I/K@@$1HH )@@G@@'^@@$8/K@@&@/K@@@@C K^T/K@@*$[@@^S&C8@^S&'=@@[=HL )@@G@@/K@@**'=@@@IC^K@*Y/\)@)$C[K^S"[[K^W= @@^S1/KH@@@@@@@@@C@@^S_'=@@[SC^K@*,HM )@@G@@/K@@*( 4@^V. 0@^V. @@^S1 @@^V" @@^T+ @@^T:C9K@:)[ K@MJC[K^TY[DK^W[C9K@,)HN )@@G@@[ K@4 C9K@4F[ K@4EC9K@4X[ K@4SC[K^TZ[[K^T-/,0@,F%8)@@(/K@@( C[K^T-[[K^T=HO )@@G@@R;@@@@ @@^T< *@^T+/,0@L[ Y^T$O;)@@[A$)^T+!8)@@]/K@@(E 4@^T+A<)^T+A#0^T=[DK^T$/K@@(E/,0@,@IJ )@@G@@C9K@@[/K@@?5'^@@,^/K@@!A/,0@,@R$)^T+/@)@!MC Y^T&P;)@@[8^K@!\A$)^T+/K@@(EIK )@@G@@C4)^T+/@)@LU'^@@49C@)^V.[@)^V"C[K^T=[[K^T-R<)^T+A$)^T+/@)@!YCDK^T$[ K^T$IL )@@G@@'^@@3/C @^T%%9@@][/K@@(EC9@@@@C[K^T-/,0@,F%8)@@//K@@!(G9@@@[/K@@!<[[K^T-IM )@@G@@/[@@(E[1@^T?C@@^T?'=@@@I/K@@(E[ Y^T$C[Y^T>[[K^T-/K@@(E'^@@,^/K@@!FR;)@@[IN )@@G@@A:)^T+/K@@(H/,0@,@/K@@!Y'^@@,^/K@@!Y'^@@L/[ K^T8K@@)/K@@5"^@)@@IN8:K@[ @@^W@C8K@] [^K@63[^)^XF/K@@6SN8:K@[^@)^W@C@X@@@KF )@@G@@C8:K@][CK^XG[^)^XF ^@^XG!8K@] C8K@]^G8K@@[[^K@63%8@@@^/K@@6SC8VK@# @@^W_KG )@@G@@[^K^X@/K@@6SC9K@@F/\)@5QN@)@@H&'0@@][[K^WG/\)@5[ @@^V/C9K@,([ K@4B^^)^TZKH )@@G@@/\)@)$N8K@@EC@K^S?C@)^S!M#!)@@C[@^XH[ @^RC[[@^W=[[@^W#AA0@4#C[@^WG:9@@@FKI )@@G@@/K@@65:9@@@H/K@@62%9@@@G/K@@ZRC9K@*,N8K@[L/K@@67C9K@6'N8K@] /K@@67C9K@*YKJ )@@G@@N8K@] [ K@3.^^K^T%/K@@*3/K@@@@C@@^W@(@@@@G/K@@7+ @@@@IC^0^XGW8)@@AG^)^XFKK )@@G@@C8@@@ H@@@@JC @@63H9@@@]C8K@@ C80^W>')H@7Q8#K@7GC8K@@ G80@@[')G@7W8#@@7KKL )@@G@@C8@@@ O;)@@[8^@@7CC^@^XGGC@^XG[^@^XGC^K@6'/K@@*(C-Z@@@C>Z@@@C(Z@@@C!Z@@@KM )@@G@@C1Z@@@C5Z@@@[-Y@@@[>Y@@@[(Y@@@[!Y@@@[1Y@@@[5Y@@@C^0^S1CCK^S1%8K@@ G80@@[KN )@@G@@P;0^W>N@K@@JC@K^XIC@)^XFM#!)@@G@0^XF[@0^XFC^K@6'/K@@*(10 @@@@@@KO )@@G@@@C@@@@@@W@@@@@@@@@11 @@@@@@@C@@@@@@W@@@@@@@@@LASTLASTLASTWAS A KP )@@G@@MONTHEND STISTX RUN EARLIER THIS WEEK? YN HAVE I ALREADY READ ALL ITS INKQ )@@G@@PUT TAPES? YN ARE THERE MORE TAPES TO READ? YN DID THE MONTHEND SKR )@@G@@TISTX READ ANY OF THEM? YN IS THE TAPE I'M ABOUT TO READ THE ONE KS )@@G@@FOR THE FIRST OF THIS MONTH? YN SO, YOU CAN'T ANSWER 'S' NOW YOU ANKT )@@G@@SWERED 'S' ONCE ALREADY.@@@@@@@@0@_B@@[[@4@@@@@@@@0@_J@@[[@4@@@@@@@@=@_RKU )@@G@@@@[[@4@@@@@@@@0@_X@@[[@4@@@@@@@@%@_>@@@[@4@@@@@@@@=@_?@@[[@4@@@@@@@@Y@_2KV )@@G@@@@@[@4@@@@@@@@Y@_7@@@[@4@@@@@0@@@@@0S,DOC PAPER PLEASE. SYSLOG KW )@@G@@@@@@@@@K@@@@@#)@7\SYSSQU @@@@@@@C@@@@@#)@;J@@@@@@@@@@@@@@Q[@*@@@@@@KX )@@G@@BAD I/O ON OUTPUT@ TAPE @@@@@@@@U[@\@@A[@4MOUNT NEXT INPUT REEL? NYS KY )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@ACT-OVERHEADI/O STATUS @XX ASE@@@@@@@@M[@;KZ )@@G@@@@[[@4GARBAGE SE @@@@@@@@G[[[@@[[@4@@@@@@ OK? YN @@@@@@@@H[[A@@[[@4LA )@@G@@ACCOUNTING FOR @@@ RUNS LOST THRU BAD IO: RUN LOST @@@@@@@@M[[NLB )@@G@@@@@@@@@@@@@@@@0[[G@@@@@@/,0@6O@[@^7J@[3 2F'^@@4AN@0[[+/K@[W&@[6 2F*@@^6=LC )@@G@@/K@[[1R@K 2)C@@^6+T/@@@#C4-@@A[@?^3MC0-@@A[@?^3NC?-@@AG/)@[@[@?^3OC/@@@[LD )@@G@@[@@^6=C/@__"G@@^"!R@K 2)C/)@@[C[[@@[H[@ 1Z*@@@@K @@@@IC.@@@[*@[@@[ @@@@KLE )@@G@@)@)@@K/=0[]2C_)@@[[@@@[J[#)^6>C@@^6>[@@^6&R@)^6&C@-@@[H@+ =H(@@@@I/K@[])LF )@@G@@G_)@@[8N0[]@C/)@AJH@)^"!/C)[]J*@@@@I/K@[]UR@)^"!C@-@@[[@+ =HR@)^"!C@[@@]LG )@@G@@[@] %XC/)@@[G@)^"![@)^"![@)^6&/K@[])C/@@@[G@@^6$[@@^6$N@0[]Z/K@[W&@]L 2FLH )@@G@@R@K^6&C@[^"!G/@@@[[@[^"!R@) 2)C@- ^.G@+@@B[@- ^.CC]@@C[@[ FHC^]@@C[@[ LXLI )@@G@@C@[ R!G@]@@F[@[ R!C@- X.G@+@@G[@- X.R@) 2)C^]@@CGC]@@C;O@@@=W@@^\)G/@@@[LJ )@@G@@[@@^6*G/@__J/G@[].*@@@@G/K@[#GR@K^6*C@[^,IG/@@@[[@[^,IC^+@@CGC+@@CT@+@@BLK )@@G@@C.@@]V"P@@@I; @@@="[[ 0![[[ 0!N@0[#F/K@[W&@]X 2FR/)@@[N_0@@RA@)^6*C@@^6*LL )@@G@@;@@@@<[@@^6&R@K^6&C@-^,IG@-^,H[@+^,IC[[ 0?"[[ 0![[] 0!O/)@@[8N0[#IR@K 1)LM )@@G@@N_0@@T @[^,I @[>0!8N0[#XC@@^\);@@@@<[@@^\)/K@[]2R@) 2-C^]@@ [@]@@@C^]@@ALN )@@G@@;O@@@=W/@@8KT/@@[=[@@^6(C^+@@A[@)^6%C^+@@ [@)^6:C@)^6:H@)^6%]@)^6?A@) 2+LO )@@G@@D@@^6?/C@[#8*@@@@G/K@[#;C@@ 1-G@@^6?[@@^6?C/@@@SH@@^6-[@@ 2R@)^6\C@]^6C;O@@@=W@[^1S[@@^64LV )@@G@@C@)^60;O)@@=W@+^1S[@)^65C[@^6?[[@^60R@K 2-C.)@]V"P-@@E; )@@="D) 1+[[)^61LW )@@G@@C"@@]V"Q@^6?;A@@@="E@ 1<[]@^62C@@^62"^@^61*@@@@G1@@@@G/K@[ *C@@ 1="@@^62LX )@@G@@[@@^62C/)@@/G@)^6?[@)^6?C.@@@/G[@^60[[@^60/K@[ TC@@^61"G@^62[@@^63(@@^6\LY )@@G@@/K@[A^R@)^6\C/)@]V"O)^64;^)@@="C) 1+[@+^2=C.@@]V"P@^65; @@@="D@ 1<[[]^2/LZ )@@G@@R@K^6>C[-^2="H-^2/[[+^2GC]@^60T"@@J*C]+^6C;Q)@@=W])@@OC"@@]V"Q@@@Q[]K^66MA )@@G@@C@@^6,[@@^6\N@0[AC/K@[W&@#> 2FR@K 2=CC[@@H[@@^67*@@^0"/K@[AKC@@^67[@@^0"MB )@@G@@C@@^67H@@^0"*@@@@G/K@[C]R@)^2FC@]^&4G/@@@[[@]^&4R@K 2=A@K 2G/)@@[[@?^!>C[G^!&G.@@@[[[G^!&R@) 2+C*]@@@G@@^6!G/@@@[[@@^6!MJ )@@G@@R@K 2+C?[@@@G/@__$*@@@@G/K@[B7C/@@@F[@@^6!C@@^6!;@@@@G/)@@[[@?^!>MK )@@G@@C[G^!&G.@@@[[[G^!&N@0[C[/K@[W&@^B 2FR@)^2FC@@^!*[@]^:%A@) 2+C/@@@[/)@[CFML )@@G@@C@@^!/R@K 2+[@[^?DR@) 2+ @]^?*R@K^6,C@@^6+T/@@@#G/@@@[R@0 1>N_0@@[[@@ 2/,0@6O@[@^7T@B> 2F@@L =H@@L %X@@L^"!@@)^6"R@) 12Q@) 2>N_)@@#NQ )@@G@@C/]=8X'^K@4#8N)[H/'^@@4AC/@@@[G@@^6/[@@^6/ @[^"!8N0[G4/,0@6O@[@^;M@B3 2FNR )@@G@@'^@@4A @@ 1YR/0@@[N_0@@\C@# 0!"C@ 10[@# 0!C@) 13[@)^0_C@@ 1Y"^# 0!*@@@@GNS )@@G@@1@@@@G/K@[ISC@# 0![@@ 1YO/0@@[8N0[IGC@@ 1Y"C@ 14[@@ 1YR.@@@0N_0@@\A[@^6!NT )@@G@@C/@@@[H@@^6!T@@^\)E@@@@G[@@^6-C@)^\)T@)^6!G/)__"[@)^68C[^ 0!"H@ 1Y"[@ 15NU )@@G@@"[@ 16"L@@@KH.@@]<# @[I1;-K@@C;LK@@@[[K^6*G.K__"[[K 2 0!NX )@@G@@O.K@@[8N0[JC/,0@6O@[@^;5@CT 2FR@) 1*N_0@@EC/]>0!'^)@4#8N0[JR'^@@4A/,0@6ONY )@@G@@@[@^;/@CZ 2F'^@@4A/,0^>G@C- 2F/,0@6O@[@^;/@C< 2F'^@@4AC@@^&5G/@@@ ;O@@@=NZ )@@G@@W/@@@A[@@^6!C@)^$OG/)@@ ;O)@@=W/)@@A[@)^6&C[@^$3G.@@@ ;P@@@=W.@@@A[[@^6,OA )@@G@@C.)@@ZG[)^69/,0@6O@[@^/ @C% 2FR@K 1:N_0@@][[) 2'^K@4#8N0[K7C/@^!$'^K@4#OG )@@G@@'^@@4AC@@ 19[@@^0_/,0[X?@@@ 1'@DM 2F/,0@3S@[@ 1%@@@^&:@DN 2F@@K^0_R@K 1*OH )@@G@@N_0@@BC/[="!'^K@4#8N0[LD'^@@4A/,0@3S@[@ 1%@@@^&1@DU 2FR@0 1;N_0@@BC/#=!>OI )@@G@@'^K@4#8N0[LNC/@^!.'^K@4#'^@@4AC@@ 1/[@@^0_/,0[X?@@@ 1.@D= 2FC/@@@#[@@^6!OJ )@@G@@R[@^6!C@) 1"[@=^"!C/@@@#[@@^6&/,0@3S@[@ 1%@@@^&:@D* 2F@@K^0_C.)__"G[)^6&OK )@@G@@R[K 1*[[)@[JC/ ="!'^K@4#8N0[L,'^@@4A/,0@3S@[@ 1%@@@^&1@D\ 2FR@) 1>N_0@@[OL )@@G@@C/]=!>'^K@4#8N0[L8C/@^!;'^K@4#@@K^!5'^@@4A/,0@6O@[@^/3@D7 2F'^@@4AC/@@@>OM )@@G@@[@@^6//,0@6O@[@^/'@D; 2F'^@@4AC@@ 2&[@@^6_/G@[MI*@@@@G/K@[MP/,0@6O@[@^.^ON )@@G@@@E[ 2F'^@@4AC/@@@%[@@^6//K@[P!/,0^>Y@@@^,_@EA 2FC/@__"G@@^6_C_)@@[[@@@[JOO )@@G@@[#)^6!/,0^>>@EE 2FC4@^\[[@@^6&C/@@@+H@@^6&*@@@@G/K@[M*G_)@@[8N0[MW/K@[MIOP )@@G@@C0@^,_G/@@@][@@^7@/,0[Y.@@@^\S@EL 2F[@@^0"[@@^,_/,0[Z.@@@^\S@EN 2F[@@^\@OQ )@@G@@N8K[M7^@K^7[/K@[O&C@@ 1_[@@^7]C/)@@][@)^7#/,0@6O@[@^.D@ES 2F@@K^7]C.)__"OR )@@G@@G[)^7@R@K 1*[[)@[JC/[=,"'^K@4#8N0[N#'^@@4AC/@@@%[@@^6/C@)^6!H@)^6_*@@@@IOS )@@G@@1@@@@I/K@[P!C/)@@[G@)^6![@)^6!C/@@@[G@@^6![@@^6!C@) 1_[@)^7]C.@@@][[@^7#OT )@@G@@/,0^>>@E$ 2FC0@^,_G/@@@][@@^7@C4)^\[[@)^6&C/)@@+H@)^6&*@@@@I/K@[N\C@) 1ZOU )@@G@@[@)^7]C.@@@[[[@^7#[@)^,_[@)^\@N8K[N?^@K^7[/K@[O&C/@@@ [4@^\[/K@[O]/,0[Y.OV )@@G@@@@@^\S@E4 2F[@@^,_H@@^0"(@@@@G/K@[N9C@@^,_[@@^0"/K@[N;C@@ 1Z[@@^,_/,0[Z.OW )@@G@@@@@^\S@E' 2F[@@^\@N8K[O]^@K^7[/K@[O&/,0@6O@[@^.D@E. 2F@@K^7]C.)__"G[)^7@OX )@@G@@R@0 1*[[)@[JC/#=,"'^K@4#8N0[OE'^@@4AC@@^7#G@@^6/[@@^6/G/@__B/C@[OP*@@@@GOY )@@G@@/K@[O)/,0@6O@[@^.=@FB 2F'^@@4A/,0@6O@[@^/'@FD 2F'^@@4AC/@@@#[@@^6/ @@^0"OZ )@@G@@C@@^6!H@@^6_/C@[O>*@@@@G/K@[NL/K@[P!R[@^7@C@@ 1Z[@^^,"C_)@@@N_0@@^[#)^7^PA )@@G@@C@@^7^T/@@@AC@)^\[;)?@@@;C)@@Y[@)^7 G/)__'(@@@@I/K@[O8G_)@@[8N0[O:/K@O7[PB )@@G@@C/@@@[G@@^7^[@@^7^H/@@@A]@@^7 C/)@@^H@)^7@C[@^7^T.@@@A[[@ 2][@ 2$[[) 2*E@@ 2$C@>^,"PD )@@G@@;C?@@@E@@ 2*C@5^,";)/@@@;G)P2<;@0P2+[@5^,"E@@ 2>C@>^,.;))P2<;C?@@@E@@ 2+PE )@@G@@C@5^,";)/@@@;G)P2+[@5=,"8N0[PIC@@ 1Z[@@^7AE@) 2>C[@^7A;DI@@@E@) 2*C[K^\[PF )@@G@@;-Y@@@;H@P2+;[KP2<[[K^\[/K@O7[C/@@@*H@@^6/*@@@@G1@@@@G/K@[P8/,0@6O@[@^.=PG )@@G@@@F$ 2F'^@@4AC/@@@^[@@^6//,0@6O@[@^.G@F% 2F'^@@4A/,0@6O@[@^.O@F! 2F'^@@4APH )@@G@@C@@ 2([@@^7B/G@[Q *@@@@G/K@[QG/,0@6O@[@^.Z@F3 2F'^@@4AN@0[QF/K@[W&@F5 2FPI )@@G@@/,0^>!@@@^",@F7 2F @@^6- @@^7CC@@ 2[[@@^0"/,0^>J@@@^,_@F; 2FC/@__"G@@^7BPJ )@@G@@[@@@[J/,0^>Q@F_ 2FC/@@@[[@@^6& @@^2FR/)@@FN_)@@ C@]^,"H@@ 1Z(@@@@G/K@[Q&PK )@@G@@C/@@@[[@@^2FO/)@@[8N)[Q) @@^0_C@@^\[G/@__6(@@@@G/K@[Q0C/@@@[G@@^6&[@@^6&PL )@@G@@C/@@@[C@)^\AH@) 2](@@@@I @@@@GC/)@@[C[@^\AH[@ 2#(@@@@K @@@@I+@@@@IC/)@@[PM )@@G@@C[@^\AH[@ 2^(@@@@K @@@@I+@)@@HC/@@@[DD@^\]*@@@@K1@@@@K @@@@G;^)@@=+@)@@GPN )@@G@@C/@@@[C.@@@#HD@^\]*@@@@K1@@@@K @@@@G;^)@@=)@)@@G/)0[RNC/@@@[[@@^0_C@@^6&PO )@@G@@G@@^0_G@@^2F[@@^6&C/@@@[H@@^6&*@@@@G/K@[RXC/@@@][@@^6&C@@^6/G@@^6&G/@__NPP )@@G@@/C@[R<*@@@@G/K@[R,/,0@6O@[@^.=@GM 2F'^@@4A/,0@6O@[@^.O@GP 2F'^@@4AC/@@@#PQ )@@G@@[@@^6/ @@^0"C@@^6/G@@^6&[@@^6/C4)^\BG/)__JC1@^\#G.@__JT.@@@/C5)^\#G.)__JPR )@@G@@T.)@DSG[@@@MC!)^\#G.)__JT.)@@EG[)@@KC(@^\#G.@__JG[@@@MC!)^\BG.)__JT.)@@EPS )@@G@@C2@^\BG"@__JT"@@@/T/)@DSG]@@@IG[)@@OC*)^\BG/)__JG@)@@MH[@@@I][@^6&C/@@@[PT )@@G@@C/)__&H@)^6&*@@@@I1@@@@I @@@@GC/)@@[D[@^6&*@@@@K0@@@@K @@@@I+@@@@I/)K[SYPU )@@G@@E@@^6&[@@^6&C@@^6&G/@_(Z/C@[S<*@@@@G/K@[S$C/@@Q)H@@^6&]@@^6&/K@[SYD@@^6&PV )@@G@@*@@@@G0@@@@G/K@[S\C/@@Q)G@@^6&[@@^6&/K@[S$C@@^\^H@@^0"*@@@@G/K@[S5C@@ 1ZPW )@@G@@[@@^\^C@@^7CG@@^6&[@@^7CC@@^\^H@@ 1Z(@@@@G/K@[S"C@@^\^[@@^0"C@@ 1Z[@@^6>PX )@@G@@C^@^\]G/@__-*@@@@G/K@[TAC@@ 13[@@^6>/,0@6O@[@^.>@G! 2F@@K^\^@@K^\#@@K^\APY )@@G@@@@K^6>@@K^\ @@K^6&'^@@4A(@@^2F/K@[TV/,0@6O@[@^.%@G7 2FR@K 2 N_)@@ C/[=,"PZ )@@G@@'^K@4#8N)[TR'^@@4A(@@^0_/K@[T6C@@ 2A[@@^\FC@) 2B[@)^\ECC@^\];O@@@=W/@@@]QA )@@G@@*@@@@H/K@[T*C@@ 2C[@@^\ECC@^\];K@@@[G/@@@[[@@^7DR@0^7DC@<^\U[@)^\D/,0@6OQB )@@G@@@[@^.%@HA 2F@@K^\D@@K^\E@@K^\F'^@@4AC@@^\[G/@__6(@@@@G/K@[ULC@@^\[G/@__+QC )@@G@@(@@@@G/K@[UHC@@^\[G/@__>(@@@@G/K@[UC/,0@6O@[@^.!@HL 2F@@K^\['^@@4A/K@[ULQD )@@G@@/,0@6O@[@^.4@HQ 2F'^@@4A/K@[UL/,0@6O@[@^./@HU 2F'^@@4A/,0^>3@@@^6-@@@^",QE )@@G@@@@@^\A@@@^6,@HY 2FR[@^6,C@^ FHG/@@@[[@^ FHC@= R!G@)^6&[@= R!8N0[QTC/@__"QF )@@G@@G@@^6-;K@@@#C_)@@[[@@@[J[#)^6!C/@@@BG@@^6![@@^0_C@@^6-H@@^0_*@@@@G1@@@@GQG )@@G@@/K@[U\C@@^6-[@@^0_C/@@@ G@@^6/[@@^6/G/@__C/C@[U6*@@@@G/K@[U//,0@6O@[@^.=QH )@@G@@@H? 2F'^@@4AC/@@@[[@@^6//,0@6O@[@^"]@H\ 2FC[)^0_H[)^6!R[K 1$Q[K^6![[)@[IQI )@@G@@C/ ="!'^K@4#8N)[V^'^@@4A/K@[VDC/@@G)G@@^6![@@^68C/)@G)G@)^0_[@)^0_/,0@6OQJ )@@G@@@[@^"^@H' 2FD[)^68G[)^0_R@) 1$Q@)^68[[)@[IC/]="!'^K@4#8N)[VR'^@@4AC/@@G)QK )@@G@@G@@^68[@@^68C/)@G)G@)^0_[@)^0_/,0@6O@[@^"C@I# 2FD[)^68G[)^0_R@K 1$Q@K^68QL )@@G@@[[)@[IC/[="!'^K@4#8N)[V('^@@4AG_)@@C8N0[U=C/@@@3H@@^6/*@@@@G1@@@@G/K@[V8QM )@@G@@/,0@6O@[@^.=@IH 2F'^@@4A/,0@6O@[@^"G@IJ 2F@@K^7B'^@@4A/,0@6O@[@^"P@IN 2FQN )@@G@@@@K^7C'^@@4A/,0^>3@@@^6-@@@^",@@@^"Y@@@^6!@IR 2FC/@@G)H@@^6!(@@@@G/K@[WKQO )@@G@@R@0^6!C@# R!H@@^7C]@@^7C/,0^>3@@@^6-@@@^",@@@^")@@@^6!@IU 2FC/@@G)H@@^6!QP )@@G@@(@@@@G/K@[WYR[@^6!C@^ R!H@@^7C]@@^7C/,0@6O@[@^"+@IX 2F@@K^7C'^@@4AN@0[W>QQ )@@G@@/K@[W&@I- 2FR]0 2G9!) 2%9,@ 2?9,) 2,9\) 20R@K 22R@) 23R@0 24R[@ 25R[K 26QR )@@G@@N#0 27N#) 28*4@P2D/K@P2D/K@@1VAA0 2G[^@ 2D9() 2%9%@ 2?9%) 2,9:) 20A@K 22QS )@@G@@A@) 23A@0 24A[@ 25A[K 26^#0 27^#) 28/KH@@@C8@@@[/\K[W5/K@[)[C8@@@]/\K[W5QT )@@G@@/K@[)]C8@@@]/\K[W5/K@[)#C8@@@]/\K[W5/K@[)AC8@@@]/\K[W5/K@[)DC8@@@]/\K[W5QU )@@G@@/K@[)GC8@@@#/\K[W5/K@[)J/,0[Y @@@@@@@I> 2J[0@^&,C0@^&,[?@^&3C@@@@@;O@@@=QV )@@G@@W/@@@EG/K@@0[?K^&,C?@^&,[*@^&3N@0[X$/K@[X*@I( 2JR]0 2K*4@P2H/K@P2H/K@@1VQW )@@G@@AA0 2KC8FK@@[^@[XT[^@[XY/K@[XSC@@ 29;O@@@=W/@@@EG/@@@0[@@^7EC@@ 29G/@__5QX )@@G@@*@@@@G1@@@@G/K@[X.C/@@@ [@@^7EN@0[X_/K@[Y@@I0 2NR]0 2OC@@^7E*4@P2L/K@P2LQY )@@G@@/K@@1VAA0 2OC@VK@@[@K 29/K@[X1C@@ 2P[@@^7FC_)@@@N_0@@][#)^7^C@@^7^;@@@@RK )@@G@@@]D^@[A REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED _@@S@@@@[^@GRL )@@G@@@EOF @]G^@IAN ATTEMPT TO WRITE AN EOF-MARK ON CARDREADER OR PRINTER - RM )@@G@@IGNORED @@@@@@#C@^@U@@@@@@#^@^@UERROR MODE: TYPE= , CODE= , ERN )@@G@@RR.ADDRESS= @]D^@YCO@@FV@#C^@%ERROR DETECTED WHILE CLOSING FILE OFRO )@@G@@ UNIT @BRKPT @@@@@@@)@@@@_____"@@@@@@@FREE RP )@@G@@@SYM ,,PR @@#^@2@@]^@'@@#^@/J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@NL[HPMRQ )@@G@@@@[@@@@@@@@@@@@@@@@@@@@@)@)@@@K^*@@@@@@@@@@[^^N*INPUT EXPONENT TOO LARGERR )@@G@@@@@@@@^@@@@@@@@@@@C@@@@@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@RS )@@G@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@RT )@@G@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=RU )@@G@@N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7NRV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[F@@@@@ ^W>/K@@Q-@@I^W>RW )@@G@@@@@@@@@[B^O0@_A^O7@_D^O.@_B^PA@_A^PH@[F^PN__E^PYINPUT FILE $-$ HAS NOT RX )@@G@@BEEN ASSIGNED. NO PACKET SPACE AVAILABLE INITIALLY THE NTRAN UNIT $-$RY )@@G@@ IS NOT AVAILABLE FOR STANDARD I/O. DRUM FILE ASSIGNED TO SYMBIONT UNIT RZ )@@G@@ FAILURE TO ASSIGN FASTRAND FILE $-$BACKSPACE WAS ENCOUNTERED FOR SA )@@G@@THE UNASSIGNED FILE: $-$ - IGNORED. SEQUENTIAL I/O ATTEMPTED ON UNIT DEFSB )@@G@@INED AS DIRECT ACCESS @ASG,T ,F///5@ASG,CP @@@@@@@@@@@K@@@@@KSC )@@G@@@@@@@C@@@@@C@@@@@D@@@@@)@@@@@( @@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_C^Q ABNORMAL CONDITIONSE )@@G@@ DETECTED IN BUFFER HANDLING @@[@@@@@@@@@_@_@@@@@E^P5@@#^P*@@]^P:'^@@HPSF )@@G@@@@@@@@@@@@@@@@@@@@C8K@@@/@K^QYC8)@@@[C)^QPG@)@@HP;)@@[[^)^QPC8K^[][CK^QOSG )@@G@@G8K@M]P;K@^[[^K^QOG8K@@[C@0^QH[^Z=QQCC)^QOC^K^QOG8)@@H[@0^QHC@@^QN[@@@Y!SH )@@G@@!@)@@H/K@@UG/K@@RD@@@@@@@@@@@[STOP @@@@@@@@G^R@@@@@@@ @@@@@@SI )@@G@@_@@@@@@[Q@@@@_A^R,@_F^RJ@_G^RU@_F^RJ@_C^R&@_#^R4EXECUTION TERMINATED BY SJ )@@G@@AN ATTEMPT TO READ PAST AN END-OF-FILE. EXECUTION TERMINATED BY AN ATTSK )@@G@@EMPT TO PASS END OF TAPE/DRUM OR FASTRAND A NON INTEGRAL BLOCK WAS READ SL )@@G@@FROM MAGNETIC TAPEABNORMAL I/O CONDITION DETECTED INAPPROPRIATE UNITSM )@@G@@THE FOLLOWING RECORD IS ERRONEOUS OR DOES NOT CORRESPOND TO FORMAT SPECISN )@@G@@FICATIONS: I/O UNIT IS IN ERROR@_B^SEUNRECOGNIZABLE CONTROL WORD ENSO )@@G@@COUNTERED @_C^SMFORMATTED READ ATTEMPTED ON NON-FORMATTED DATA @_C^SVSP )@@G@@NON-FORMATTED READ ATTEMPTED ON FORMATTED DATA @[I^R7@[^^S @@@@@@@@@@@@SQ )@@G@@TRACE$ @@Q^W>(1P6G13.5) @@[@-^@@[@LL@@@@@@@@@@@@@@@@@@@@@@@@T SR )@@G@@F @@@@@@@@@@@@@@@@@@@@]^W>M@@@@@I@@@@@)^@@@@)@)@@@@@[@@O@@[@@P@@ ^W>SS )@@G@@@@I^W>@]D^T#@]C^TG@]D^TOILLEGAL FORMAT CHARACTERS WERE ACCEPTED AS BLANKST )@@G@@S. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTY. THE INTERPRETATIONSU )@@G@@ OF MEANINGLESS INPUT WAS ATTEMPTED.@@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NBMSG$@@@@@@@@@@@@@@@@@@@@[@@@@-@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ SEQUENCE N LINE N@@@@@@SZ )@@G@@ ERROR TERMINATION IN ROUTINE CALLED AT SEQUENCE NTA )@@G@@UMBER OF ROGRAMA COMPUTED GO TO THAT WAS OUT OF RANGE WASTB )@@G@@ DETECTED AT SEQUENCE NUMBER OF MAIN PROGRAM. ILLEGAL OP AT SPECTC )@@G@@IFIED RETURN FROM RETURN VARIABLE SPECIFIED IN TD )@@G@@OUT OF RANGE NEGATIVEFORTRAN V ERROR TERMINATION: ARGUMENT UNNORMALITE )@@G@@ZED OR OUTSIDE ALLOWABLE RANGE CAUSING ARGUMENT OUTSIDE ALLOWABLE RANTF )@@G@@GE CAUSING OVERFLOW CAUSED @]E^VQ@]B^V)@]#^V$@]B^UX@]D^U=@]B^U=MAIN PTG )@@G@@@[E^U=@@[__"@]H^U,@]B^U"@]C^V @[D^U= I/O RETN 0RETN K@] ^VL ______TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^W>@@@@@@@@@@@@@@@@@@@@@@@@^X[^X[@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@[@@@@@[@@['^@@4#/K@K4A @@[@@@@@@@@@@@ ^W>@@[^W>TK )@@G@@'=@@@6[@@@"5C8@@"5[@@^XO/,0[XA@@@@@@@@@@@@R@)^&JR@K^&KC@@^&L'=@@@#C4@[@XTL )@@G@@/^@^+9C+0@7\!'0@@[!'0@@D/K@^)[[AW9K@@EUD )@@G@@9-K[@O[!K[[A[()[[A @@@@LC-)[[AG9)@[@W9K@@E9-K[@O[>K[[A[-)[[AR;@[[D'=@@@CUE )@@G@@R7@[@4:8@@@N/K@^)@@9!L@769(M@;J9!L@749(M@;LC[L@73[[M@;%R#@^&L@71:9K@@ /K@^+>!9K@@0!9K@@'/K^@@@C-L@71UK )@@G@@%9K@@ /K^@@@/K@^+>C1L@71%9K@@//K^@@@C!L@71!9K@@0!9K@@'/K^@@@C(L@71:9K@@ UL )@@G@@/K@^+>!9K@@1!9K@@'/K^@@@C>L@71/K@^+BC1L@71%9K@@W/K@^+YC!L@71/K@^+B:9K@@/UM )@@G@@/K@^+H%9K@@D/K^@@@CTL@71%9K@P /K^@@@C8[@7\[^@@_#C@@@_^G8@@@[[@@@_^C8@@"_UN )@@G@@'=@@@#(4@@_]/K^@@@/K@^YL(C@@"8/KG@@@C K@"8G9K@@[[[K@"8A#@@[[R;@[[Q'=@@@CUO )@@G@@R#@@[[/KG@@@/\@^+\C5K[@X:9K@@[/K@^UR )@@G@@[@@[@XC@@^&&'=@@@CC4@[@?/^@^#A#)[[JR;@[[T'=@@@C'=@@@DR#@^&*'=@@[Z/KF@@[R;@@@KAZ@@"/R#F@@@AB@@".VB )@@G@@R;@@@[A#@@""/KF@@]R;@@"9'=@@@#*4@@"//K@^YJR#@@""O;@@@[A#@@""/KF@@[R;@@@KVC )@@G@@AZ@@_]R#F@@@AB@@_#R;@@@[A#@@_^/KF@@]R;@@"_'=@@@#*4@@_]/K@^YLR#@@_^O;@@@[VD )@@G@@A#@@_^/KF@@[R;@^&KN8K@>)R#V@@@&;K@@[M#W)@@/KF@@](@FK@@/K@^>"N@VK@@R#FK@]VE )@@G@@R#V@@[&;K@@[2@H)@@/K@^>"P#V@@[ABVK@#/KF@@ R#FK@@!8@@G)/K@^&DO;@@@[A#FK@@VF )@@G@@A#FK@#R#VK@]P;@@@[O#F@@[A#W@@@/KF@@ R#@^&(R#V@@[A#H@GZR;@@G)A#FK@#/KF@@ VG )@@G@@@@W@@@@@@@@@@@@[@U@@@@@WRECOV @@@@@[@@@@@]@@@PA@[@@@@@0-0040S SUNSHIVH )@@G@@NE SYS$ 0-0040-OPN @@@@#^@@@[@Z@@@@@C@@@BX5@@@@@ @-@@@@@K@@@@@@@[@?VI )@@G@@@@@[@>@@^[@QOVFLOW@@@@@@(4X,A6,': UNITS',@@A4,' TOTAL') (13X,'ERRORSVJ )@@G@@',@@I4,I7,/)NO SW. SW. 4 4/13SW. 14 4/14@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@[=@@@@#C@@@@^?@@@@AK@@@@B4@@@@DS@@@@E/@@@@G)@@@@I^@@@@J*@@@@LGVL )@@G@@@@@@M0@@@@OO@@@@P8@@@@RW@@@@T@@@@@U=@@@@WC@@@@X?@@@@ZK@@@@)4@@@@+S@@@@)0000 0100 0200 0300 0400 0500 0600 0700 0800 0900 1000 VN )@@G@@1100 1200 1300 1400 1500 1600 1700 1800 1900 2000 2100 2200 VO )@@G@@2300 @@@@@@HOUR @@@@@[@@@@@A@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@(1H1////////////////////T54,023HDISTRIBUTION STATISTICVQ )@@G@@S) (4X,2A6,T20,I6,T33,F10.5,T56,3X,O3,T67,3X,O3,T75,I10,T98,I10) VR )@@G@@(1H1,T46,041HHOUR INTERVAL JOB DISTRIBUTION STATISTICS,T100,I2,001H/,I2,VS )@@G@@001H/,I2,/,T46,041H---- -------- --- ------------ ----------,/,T23,12(5XVT )@@G@@,A4),/,T23,12(5X,004H----)//) (015H NUMBER OF RUNS,T23,12(3X,I6),/,021H VU )@@G@@AVG CPU TIME PER RUN,T23,12(F9.4),/,024H AVG IN/OUT TIME PER RUN,T23,12(VV )@@G@@F9.4),/,011H EFFICIENCY,T23,12(F9.4)) (//////////,T23,12(5X,A4),/,T2VW )@@G@@5,12(5X,004H----)//) (55X,004HTAPE,6X,004HTAPE,4X,005HLINES,4X,005HCAVX )@@G@@RDS,4X,005HCARDS,3X,004HTAPE,3X,006HFSTRND,3X,004HDRUM,4X,004HDISC/3X,A4VY )@@G@@,6X,004HRUNS,4X,005HBATCH,3X,006HDEMAND,6X,008HCPU TIME,5X,006HMOUNTS,5XVZ )@@G@@,004HTIME,5X,003HOUT,6X,002HIN,7X,003HOUT,3X,006HERRORS,2X,006HERRORS,2XWA )@@G@@,006HERRORS,2X,006HERRORS/3X,004H----,6X,4(001H-),4X,5(001H-),3X,006H---WB )@@G@@---6X,008H--------,5X,006H------,5X,004H----,4X,005H-----,4X,005H-----,4WC )@@G@@X,005H-----,2X,006H------,2X,006H------,2X,006H------,2X,006H------//) WD )@@G@@(1H ,I2,001H/,I2,001H/,I2,2X,3(I6,3X),1X,F10.3,2X,5I9,4I8,/)(//2X,005HTOWE )@@G@@TAL,4X,3(I6,3X),1X,F10.3,2X,5I9,4I8)(1H1,T54,025HDAY INTERVAL DISTRIBUTIWF )@@G@@ON/T54,25(001H-)//T54,I2,001H/,I2,001H/,I2,009H - ,I2,001H/,I2,001WG )@@G@@H/,I2/T54,25(001H-)///) (001H0,25(001H*),I4,030H PROCESSORS NOT LISTED, WH )@@G@@TABLE 008HOVERFLEW,25(001H*)//) (1H1,T30,032HTYPE 4 LOG ENTRIES FOR WI )@@G@@THE WEEK ,I2,2(001H/,I2),004H - ,I2,2(001H/,I2),//5X,009HPROG NAME,5X,0WJ )@@G@@09HNO. XQTS,4X,018HAVG RUN TIME (SEC),5X,006HI-BANK,5X,006HD-BANK,5X,01WK )@@G@@5HAVG NO I/O REFS,5X,026HAVG DATA WORDS TRANSFERRED///) (1H1,53X,024WL )@@G@@HCORE USAGE/PROGRAM SIZES,/,54X,24(001H-),//,2X,050HSIZE NO. XQTS COREWM )@@G@@ BLOCK SECONDS, TOTAL (APPROX),/,2X,004H----,2X,8(001H-),2X,34(001H-)) WN )@@G@@(1X,O3,001H-,O3,I8,2X,114A1) (1H+,17X,1H^,11(9X,1H^))(18X,1H^,11(9(001HWO )@@G@@+),1H^),/,18X,11E10.2) (1H1,54(/,1X,001H:,25X,014HPOS. 1 THRU 67,26X,00WP )@@G@@1H:)) (035H11108 HARDWARE-SOFTWARE PERFORMANCE,5X,I2,001H/,I2,001H/,I2,0WQ )@@G@@04H TO ,I2,001H/,I2,001H/,I2,/,1X,34(001H-),///,3X,016HRUNS: TOTAL AVG,WR )@@G@@/,3X,016H---- ----- ---,/,007H0 BATCH,I7,I5,/,007H0DEMAND,I7,I5,/,007HWS )@@G@@0 TOTAL,I7,I5,////,024H HARDWARE ERROR ANALYSIS,/,1X,23(001H-),/) (/016HWT )@@G@@ MAINTENANCE LOG,/,1X,15(001H-),///)(034H+ DATE TIME UNIT EXPLANATWU )@@G@@ION,/,1X,67(001H-),/) (017H0***NO ENTRIES***,/) (A1,2A6,2X,11A6) WV )@@G@@(/021H0SYSTEM STOP ANALYSIS,/,1X,20(001H-),///) (040H+ DATE TIME CODE WW )@@G@@ ADDR DWNTM COMMENTS,/,1X,67(001H-),/) (015H0***NO STOPS***,/001H1) WX )@@G@@(1H1) (1H0,A6,1X,A4,1X,A6,A1,A6,I3) (1H+,31X,6A6,/) (1H+,31X,017HRECOVWY )@@G@@ RUN ERROR: ,O12,/) (1H+,31X,028HSYS UNATTENDED: STOP UNKNOWN,/) WZ )@@G@@(1H+,31X,020HOP. KILLED RECOV RUN,/)(//10X,8A7) (010H STOPS:,8I7) XA )@@G@@(010H DOWNTIME:,8I7) (041H0TOTAL STOPS INCLUDING MAINT AND SYSTEST:,IXB )@@G@@4) (044H TOTAL DOWNTIME INCLUDING MAINT AND SYSTEST:,I7) MAINT______XC )@@G@@SYSTST______(028H TOTAL UNSCHEDULED DOWNTIME:,I7,//,012H0STISTX V2.3,/,1XD )@@G@@H1) @@@@@[ XE )@@G@@ XF )@@G@@ XG )@@G@@ XH )@@G@@ XI )@@G@@ XJ )@@G@@ XK )@@G@@ XL )@@G@@ XM )@@G@@ XN )@@G@@ XO )@@G@@ XP )@@G@@ XQ )@@G@@ XR )@@G@@ XS )@@G@@ XT )@@G@@ XU )@@G@@ XV )@@G@@ XW )@@G@@ XX )@@G@@ XY )@@G@@ XZ )@@G@@ YA )@@G@@ YB )@@G@@ YC )@@G@@ YD )@@G@@ YE )@@G@@ YF )@@G@@ YG )@@G@@ YH )@@G@@ YI )@@G@@ YJ )@@G@@ YK )@@G@@ YL )@@G@@ YM )@@G@@ YN )@@G@@ YO )@@G@@ YP )@@G@@ YQ )@@G@@ YR )@@G@@ YS )@@G@@ YT )@@G@@ YU )@@G@@ YV )@@G@@ YW )@@G@@ YX )@@G@@ YY )@@G@@ YZ )@@G@@ ZA )@@G@@ ZB )@@G@@ ZC )@@G@@ ZD )@@G@@ ZE )@@G@@ ZF )@@G@@ ZG )@@G@@ ZH )@@G@@ ZI )@@G@@ ZJ )@@G@@ ZK )@@G@@ ZL )@@G@@ ZM )@@G@@ ZN )@@G@@ ZO )@@G@@ ZP )@@G@@ ZQ )@@G@@ ZR )@@G@@ @@[@@RZS )@@G@@@@@PA@IGR$?*JWL^L KG@@@@@@]@@M@@]@@]@@[@@@@@[@@[@@[@@H@@@@@A@@Z@@Z@@Z@@@ZT )@@G@@DAY @@Z@@)@@Z@];I&@@@ G=R#0@@N@B@ G(@@@ G=@@#__"G.0@@=ZZ )@@G@@@@@ G=@@#__"@B@ G(/]0^L>@@#__"@B@ G>@@@ G=R]@^MF@B@ G>@@@ G=@@#__"R_S@@@AA )@@G@@@@@ G=@@#__"@B@ G>/K@^LZNSWTC$ K@]@@A[ %[Z^@@@@@@@@M@C@NRBLK$ AB )@@G@@K@]@@GN#;BEC@@@@@@@@N@CMNRWND$ K@#@@NN#"BEC@@@@@@@@2@C>@@E^@@NWEF$ AC )@@G@@ K@#@@UN^FBEC@@@@@@@]^@DR@@K^@ENINTR$ K@#@@-J.TACB@@@@@@@@Z@FVAD )@@G@@@@J^@UNCLOS$ K@#@@*N]/BEC@@@@@@@[9@F'@@T^@(NWBLK$ K@]@@,N^CBECAE )@@G@@@@@@@@@[E@H3NBSBL$ K@]@@4N]'BEC@@@@@@@@-@I.NUPDA$ K@]@@'N^ABECAF )@@G@@@@@@@@@@W@JYNBF00$ K@#@[[H^BAO#@@@@@@@@@@@@@M]^[]NBDCV$ K@#@[CAG )@@G@@E!]EDB@@@@@@@[Q@J'@@<^N^NFTV$ K@]@[IH *AO#@@@@@@@@N@LKNCNVT$ AH )@@G@@K@#@[PN].BEC@@@@@@@]M@L<@@.^N$NOTIN$ K@#@[WN#7BEC@@@@@@@].@N5@@^^O=AI )@@G@@NFCHK$ K@ @[>N#OBEC@@@@@@@B5@Q2@[?^O*@@@@@@@@%^QONSTOP$ K@#@[?AJ )@@G@@N^@BEC@@@@@@@@I@Y$@@C^Q"NIOER$ K@#@[3N#(BEC@@@@@@@[2@Y5@[Z^RANOUT$ AK )@@G@@ K@#@['N#'BEC@@@@@@@CG@)$@@V^S>NFMT$ K@#@][N#VBEC@@@@@@@A,@*3AL )@@G@@@@!^T@NTAB$ K@#@]CHB0AO#@@@@@@@@@@@@@@Z^T!NERR$ K@#@]JN#]BECAM )@@G@@@@@@@@@#7@\-@[0^UGNOBUF$ K@]@]PN#4BEC@@@@@@@@-@3SNIER$ K@#@]WAN )@@G@@N#-BEC@@@@@@@[%@39@[J^V/NOSYM$ K@#@]R;@^@='=@@@CR;@^@XAB@^@>R;@^@='=@@@CC#0^[BR;@^##'=@@[CA#K^[HA#K^#HBD )@@G@@R;@^[C/,0@C$R;@^[C/,0@C@'=@@@)R#@^@@R;K^[DN8K@@IM#H)@@9?@^[ 9*@^@$C;@@@@BE )@@G@@R;@@I@;*@@@MA#@^[M'=@@@?;)@@@MA#@^#IN80@@ R])^@[R;K@D1R;@^@7'=@@@C(^@^@7BF )@@G@@/K@@D_C#)^@D:#)^@]/K@@E)C;K@@ N9@@@^%R;@^@='=@@@C/KH@@@R;@^#JAB@^@>R;@^@='=@@@C/KH@@@R;@^#QAB@^@>R;@^@=BH )@@G@@'=@@@C/KH@@@AA0@ESG;@@@[8K0@ERR;@@@;AR;K@F\R;@^#='=@@@C(^@^#=/K@@D_R7@^@D:8@@@N/K@@F$%8@@@Y/K@@D_BQ )@@G@@C#)^^OC#0^[D/,0@EIP90@@[R#$=^QC#)@@IGR)^[D:@)^#89\)^#%:@)^#'9\)^#?:@)^#/BR )@@G@@9\)^#,R;K@@Y%@)^#"R;K@@GA#K@@PAFK^#2/,0@EI/,@@G7R;K^^ ABK^#>R;K@GJR;@^#=BS )@@G@@'=@@@C(^@^#=/K@@D_R7@^@D:8@@@N/K@@F$%8@@@Y/K@@D_ @@@@AQ[)@@ER[K^@^') )G!BT )@@G@@:8@@@ /K@@GVQ#@@@ !8@@@]/K@@GR;K@JUR;@^#='=@@@CCJ )@@G@@(^@^#=/K@@D_R7@^@D%8@@@Y/K@@J4R]0@[#P'0@@[A]0@[#9\)^#5/,0@EIR;@^[C/,0@C@CK )@@G@@'=@@@)/,0@ETR7@^^M%8@@@R/K@@J\9\)^#3/K@@J1C#)^#7C#0^[D/,0@EIR#@^^K/K@@FECL )@@G@@N80@@A9\)^#5/,0@EIR;@^^EAB@^#>R;K@J'R;@^#='=@@@C(^@^#=/K@@D_R7@^@D:8@@@YCM )@@G@@/K@@E$%8@@@N/K@@D_R;@^[C/,0@C@'=@@@)R;@^[C/,0@C0'=@@@)'=@@@?;)@@@MA#@^#ICN )@@G@@RB@^[HPB@^#HAB@^#GR;@^##'=@@[^R;@^##RBK^[H'=@@[B'=@@@D@@[^@$@@]^@*NOMORECO )@@G@@@@]@@@@@[@@@@@]^@D@ASG,T ZOOM. . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CP )@@G@@HELLO, THIS IS THE SECURE PAZZZ@@@ PROGRAMI'M GONNA ASK YOU WHAT TAPES YCQ )@@G@@OU WANNA USEWHEN YOU RUN OUT OF TAPES, ANSWER %NOMORE%@@@@@@@@%^@J@@@@@@CR )@@G@@*SDFF*TAPE NUMBER?@@@@@@@@G^@5@@A^@DREGSTR, OR @LOAD@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@? @@@@@@@@:^@'@@A^@DIBACKUP = , ZOOM @@@@@@@C@@@@CT )@@G@@@@8@@@@@@@@@^[N^]F@@]@@@@@[^@$@@[@@@*[@@@@ZOOM ZOOM @@@@@@CU )@@G@@@@[@@@ @ @@@[C@@@@@@@@@@@@@@@@@BAD CHARACTER: @@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@FILE-NAME IS TOO LONG, OR SYNTAX IS BAD. YORE ANSER DON'T FCW )@@G@@YT. LERN TU SPEL GOODER!@@@@@@@@Y@@@@@[^@DWHAT@ ? PROJECT CX )@@G@@ACCOUNT QUALIFIER @@@@@@@@H^#$@@@^@DREGISTER FROM IBACKUPLOAD CY )@@G@@PROJ@@, @@@@ACCT@@, @@@@QUAL@@, OR @FILE@@? LEAVE OUT ANY @@@@ CZ )@@G@@S? YN MORE @ S TO LEAVE OUT? YNANYTHING ELSE TO PAZZZ? YN MORE @DA )@@G@@ S TO @ ? YN EXCEPTFILE ACCT@@QUAL@@FILE@@@@@@@@PROJ@@QUAL@@DB )@@G@@FILE@@@@@@@@PROJ@@ACCT@@FILE@@@@@@@@@@@@@@@@@@@@MAIN @@L@@@@@@@@[DC )@@G@@ A0,MSG11 @A@@@@R#0@@N S,H2 A0,PG.0@@=1 @ @@@@ /]0^L>DD )@@G@@U A1,$+1 R]@^MF L,U R_S@@@K3001 @^@@@@ /K@^LZDE )@@G@@SDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ K@@@@ENO$#KCPAZZZ DF )@@G@@@@#@@@@4@FDC@@A^@@@BE@DF@^X^@AS1 A0,INBUF @ @@@@ TNE,U DG )@@G@@ A0,'Y' @ @@@@ @@@@HC@K*@C@^^<^@@@K*^^<@@@@DF@@@@@[@@@@@@@@@@@WDH )@@G@@@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@67-8 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(@C@@@(^@@@@Y^@6@[)^#^DJ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DK )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DL )@@G@@R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@ADM )@@G@@GDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@BDN )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DDO )@@G@@'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@DP )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@DQ )@@G@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ DR )@@G@@C5W@@#/ V@@@/KF@@[R;@^@B'=@@@JR;@^@>'=@@@CR;@^@RAB@^@&R;@^@>'=@@@CR;@^@YDS )@@G@@AB@^@&R;@^@>'=@@@CC#0^[CR;@^#^'=@@[CA#K^[IA#K^#IR;@^[D/,0@C$R;@^[D/,0@C@DT )@@G@@'=@@@)R#@^@@R;K^[EN8K@@IM#H)@@9?@^[A9*@^@*C;@@@@R;@@I@;*@@@MA#@^[N'=@@@?DU )@@G@@;)@@@MA#@^#JN80@@ R])^@[R;K@D1R;@^@8'=@@@C(^@^@8/K@@D_C#)^@E:#)^@]/K@@E)DV )@@G@@C;K@@ N9@@@^%'=@@@C/KH@@@DW )@@G@@R;@^#KAB@^@&R;@^@>'=@@@C/KH@@@R;@^#RAB@^@&R;@^@>'=@@@C/KH@@@AA0@ESG;@@@[DX )@@G@@8K0@ERR;@@@;AAB@^#:R;@^#%EB )@@G@@'=@@@CR;K@E_(^@^#%/K@@D_R7@^@E%8@@@Y/K@@FDC#0^@#/K@@FF%8@@@N/K@@D_/,0@EIEC )@@G@@R;@^#9AB@^[^R;K@FJR;@^[#'=@@@CR;@@@^%^@^[#/K@@D_ O@^@ER#@^@ER#)^@^:@I^#9ED )@@G@@/K@@FW$;)@@A/K@@FR/K@@D_&;)@@@;C)@@[R;K@@G:8)@@#R;K@@YA#K@@PAFK^#8A#@^#,EE )@@G@@A#@^^LC#0^[EC#)^#_GZ)^[E:8)@@]9\)^#4:8)@@[9\)^#2(@@@@I9\)^#0T8)@@^R[0@@IEF )@@G@@&90@@[/,0@EI/,@@H#R#$=^R/@)@JAB@^#:R;@^#%'=@@@CR;K@J;(^@^#%/K@@D_R7@^@E%8@@@Y/K@@K C#0^@#FC )@@G@@/K@@KB%8@@@N/K@@D_/,0@EIR#@^^L/K@@FQN80@@AR;@^^FAB@^#:R;K@KIR;@^#%'=@@@CFD )@@G@@(^@^#%/K@@D_R7@^@E:8@@@Y/K@@E$%8@@@N/K@@D_R;@^[D/,0@C@'=@@@)R;@^[D/,0@C0FE )@@G@@'=@@@)'=@@@?;)@@@MA#@^#JRB@^[IPB@^#IAB@^#HR;@^#^'=@@[^R;@^#^RBK^[I'=@@[BFF )@@G@@'=@@@D@@[^@*@@]^@(NOMORE ALL @@]@@@@@[@@@@@]^@E@ASG,T ZOOM. . @@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ HELLO, THIS IS THE SECURE ZZZAP@@@ PROGRAMFH )@@G@@I'M GONNA ASK YOU WHAT TAPES YOU WANNA USEWHEN YOU RUN OUT OF TAPES, ANSFI )@@G@@WER %NOMORE%@@@@@@@@%^@K@@@@@@*SDFF*TAPE NUMBER?@@@@@@@@G^@6@@A^@EREMOVEFJ )@@G@@, @@@@UNLOAD, OR @SAVE @@@@@@@@@@@@? @@@@@@@@:^@;@@A^@EOBACKUP = FK )@@G@@, ZOOM @@@@@@@C@@@@@@8@@@@@@@@@^[O^]G@@]@@@@@[^@*@@[@@@*[@@@@FL )@@G@@ZOOM ZOOM @@@@@@@@[@@@ @ @@@[C@@@@@@@@@@@@@@@@@FM )@@G@@BAD CHARACTER: @@@@@@@@@@@@@@@@@@@@@@@@@@FILE-NAME IS TOO LONG, OR SYNTFN )@@G@@AX IS BAD. YORE ANSER DON'T FYT. LERN TU SPEL GOODER!NEW BACKUP IF OLD FO )@@G@@ONE GOOD? YN@@@@@@@@Y@@@@@[^@EWHAT@ ? PROJECT ACCOUNT FP )@@G@@QUALIFIER @@@@@@@@H^#!@@@^@EPROJ@@, @@@@ACCT@@, @@@@QUAL@@, OR @FILE@@FQ )@@G@@? LEAVE OUT ANY @@@@ S? YN MORE @ S TO LEAVE OUT? YNANYTHIFR )@@G@@NG MORE TO ZZZAP? YN MORE @ S TO @ ? YN EXCEPTFILE ACCT@@FS )@@G@@QUAL@@FILE@@@@@@@@PROJ@@QUAL@@FILE@@@@@@@@PROJ@@ACCT@@FILE@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @@L@@@@@@@@[FU )@@G@@@ @@@@ TNR#0@@N A0,MSG4+2 @^@@@@G.0@@= J $+15/]0^L>FV )@@G@@ L,U R]@^MFSG6 @A@@@@ R_S@@@H2 A0,PK3001+/K@^LZFW )@@G@@SDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ K@@@@ENO$#KCZZZAP FX )@@G@@@@#@@@[VNFDC@@B^@@@BY@DF@^X^@B@ @@@@ TNZ,H2 PK3001 @ @@@@FY )@@G@@ J BADA@@@@F4@JY@C@^^E^@@@JY^^E@@@@DF@@@@@[@@@@@@@@@@@TFZ )@@G@@@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@67-8 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ@C@@@)^@@@@L^@!@[X^],GB )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GC )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GD )@@G@@R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@AGE )@@G@@GDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@BGF )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DGG )@@G@@'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@GH )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@GI )@@G@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ GJ )@@G@@C5W@@#/ V@@@/KF@@[R;@^@ '=@@@JR;@^@W'=@@@CR;@^@PAB@^@XR;@^@W'=@@@CC#0^@2GK )@@G@@R;@^],'=@@[CA#K^@8A#K^]8R;@^@3/,0@C$R;@^@3/,0@C@'=@@@)R#@^@@R;K^@4N8K@@IGL )@@G@@M#H)@@C;@@@@R;@@I@;*@@@MA#@^@.'=@@@?;)@@@MA#@^]9N80@@ R])^@[/K@@ERR;@^#CGM )@@G@@AB@^@XR;@^@W'=@@@C/KH@@@R;@^]'AB@^@XR;@^@W'=@@@C/KH@@@R;@^#[AB@^@XR;@^@WGN )@@G@@'=@@@C/KH@@@AA0@E^G;@@@[8K0@E#R;@@@;AHM )@@G@@/K@@G28[K@G,R[K^@0R]K^@19?K^@PP9K@@[9\()@@/,0@D'8[K@I%/KC@@@R;@^#7AB@^#KHN )@@G@@R;K@I1R;@^#J'=@@@C(^@^#J/K@@D:R7@^@C%8@@@Y/K@@J@R;@^@3/,0@C@'=@@@)/,0@E HO )@@G@@9\)^#Y/,0@D'R#@^#8/K@@E-N80@@AR;@^#2AB@^#KR;K@J^R;@^#J'=@@@C(^@^#J/K@@D:HP )@@G@@R7@^@C:8@@@Y/K@@EN%8@@@N/K@@D:R;@^@3/,0@C@'=@@@)R;@^@3/,0@C0'=@@@)'=@@@?HQ )@@G@@;)@@@MA#@^]9RB@^@8PB@^]8AB@^]7R;@^],'=@@[^R;@^],RBK^@8'=@@[B'=@@@D@@[^@ZHR )@@G@@@@]^@)@@]@@@@@[@@@@@]^@C@ASG,T ZOOM. . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@ HELLO, THIS IS THE SECURE ROLBAK@@ PROGRAMTELL ME WHAT STUFF YOU WHT )@@G@@ANT ME TO LOAD.@@@@@@@@@@@%^@I@@@@@@*SDFF*@@@@@@@@:^#)@@^^@C@@@@@@@@@@@@HU )@@G@@, ZOOM @@@@@@@C@@@@@@8@@@@@@@@@^@"^[6@@]@@@@@[^@Z@@[@@@*[@@@@HV )@@G@@ZOOM ZOOM @@@@@@@@[@@@ @ @@@[C@@@@@@@@@@@@@@@@@HW )@@G@@BAD CHARACTER: @@@@@@@@@@@@@@@@@@@@@@@@@@FILE-NAME IS TOO LONG, OR SYNTHX )@@G@@AX IS BAD. YORE ANSER DON'T FYT. LERN TU SPEL GOODER!@@@@@@@@Y@@@@@[^@CHY )@@G@@WHAT@ ? PROJECT ACCOUNT QUALIFIER @@@@@@@@H^#M@@@^@CHZ )@@G@@LOAD PROJ@@, @@@@ACCT@@, @@@@QUAL@@, OR @FILE@@? LEAVE OUT ANIA )@@G@@Y @@@@ S? YN MORE @ S TO LEAVE OUT? YNANYTHING ELSE TO ROLBAK?IB )@@G@@ YN MORE @ S TO @LOAD@@? YN EXCEPTFILE ACCT@@QUAL@@FILE@@@@@@@@IC )@@G@@PROJ@@QUAL@@FILE@@@@@@@@PROJ@@ACCT@@FILE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @@L@@@@@@@@[IF )@@G@@ #@KZ"%@@@@@@R#0@@N@@@@@@@@@@@@@@@@@@G.0@@=@@@@@@@@@@@@@@@@@@/]0^L>IG )@@G@@@@@@@@@@@@@@@@@@@@R]@^MF@@@@@@@@@@@@@@@@@@R_S@@@@@@@@@@@@@@@@@@@@@/K@^LZIH )@@G@@SDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ K@@@@ENO$#KCROLBAK II )@@G@@@@#@@@@11FDC@@ ^@@@AO@DF@^A^@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@B@@"[@RUN,A CHGN,0-0040-167OV,SUNSHIK )@@G@@INE,2,200 @#@@@@@ASG,AX CHGFILE @#@@@@@ED CHGFILE.,A @^@@"[C Z@CHIL )@@G@@GNZ&%&%&Z ALL @]@@@@C Z@Z??Z ALL@^@@"[C Z&%&%&Z@CHGNZ ALL @]@@@@IM )@@G@@@PRT,S A @[@@@@@ADD A@[@[@@^FIN @[@@@[@FIN ___C9IFK&^*&^*&FK)CDGD))IN )@@G@@@#@@@@CS)FL@FK_B9U^[[D-G@ "@@@CS)FK&^*&^*&FL@CTCC9AFK)CDGD))@ @@"@CS)FK&IO )@@G@@*[@@@@*SDFF*@D@@_@@RUN,A/RN GBILL,0-0040-167OV,SUNSHINE,5,100/1000 IP )@@G@@@^@@@@@DELETE,C GBILL3PUNCHF. @ @@@@@CAT,PG GBILL3PUNCHF,F2///3000@^@@@@IQ )@@G@@@ASG,A GBILL3PUNCHF @ @@@@@BRKPT PUNCH$/GBILL3PUNCHF @ @@@@@HDG,NIR )@@G@@ .S,GBILL PAPER PLEASE. @]@@@@@GBILL,XZ @#@@@@@BRKPT PUNCH$ @#@@@@IS )@@G@@@FREE GBILL3PUNCHF@#@@@@@TEST TNE/00/S4 @^@@@@@SYM,U GBILL3PUNCHF,,CP4IT )@@G@@___^@,ES?C9]DDGD))E[[E[ EK)E[GC([ET 0)^@)@#@@@@C[BCLDD-G -SFK)^@)@^@@@@IU )@@G@@C[]ELFE[O^[KE(ICTC^))^@)@ @@@@C[AEL C*)C9]DDGD)3E[PD1#D[A^@)@ @@@@C[OC(NIV )@@G@@*[@@@@*SDFF*@D@@@@@RUN,A/RN REELS,0-0040-167OV,SUNSHINE,9,900 . **POOT**IW )@@G@@@E@@_@@HDG REELS @]@@@@IX )@@G@@@SECURE,IL A@]@@@@LIST REELS ___^@)EL C(GES)^@)@I@@_@C[CC-B^@)^@)^@)^@)IY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[MC( D-N@#@@@@IZ )@@G@@C[NC(#E(MC*?DDG^[[@#@@@@D-DETO^[MC( D-N^@)___@@@*[@@@@*SDFF*@G@@_@@RUN,AJA )@@G@@/N ROLOUT,0-0040-167OV,SUNSHINE,20,400 . ** NODECK THINGOES ** @#@@@@JB )@@G@@@TEST TE/0/T2 @]@@@@@JUMP TRACK @]@@@@@SECURE,IL A@]@@@@ UNLOAD JC )@@G@@@]@@@@@JUMP END @A@@@@@TRACK:ASG,T ZOOM.,F2/1/TRK/128 @^@@@@@XQT SJD )@@G@@YS$*RUN$.ROLOUT @^@@@@@SECURE,L ZOOM.ZOOM @[@@@@@END: ___D1GD9[C))JE )@@G@@@#@@@@C[EE(HE@)C(IC))^@)*[@@@@*SDFF*@H@@_@@RUN,A/X SYSJOB,0-0040-167OV,AJF )@@G@@ST,200,2000 . **ASK SUPERVISOR WHERE OUTPUT GOES@^@@@@@ADD AST*JOBFILE/BJG )@@G@@REACH.___@_@C[ME(I -[ 9S^[NFDNDLJCK?A@0 *0A@4A@!*[@@@@*SDFF*@B@[@@@RUN,DJH )@@G@@ TALK,0-0040-167OV,SUNSHINE @B@@"[@RUN,D/RN TALK,0-0040-167OVJI )@@G@@,SUNSHINE,1 @^@@@@@XQT SYS$*RUN$.TALK ___E(I -^ 9MD0)^@)^[OCDGDS?A@!JJ )@@G@@*[@@@@*SDFF*@C@@@@@RUN,A/NR ACCRUN,0-0040-167OV,SUNSHINE,60,600 @[@@@@JK )@@G@@. @ @@@@. CONDITION WORD SETTINGS: @[@@@@. @A@@@@. 0000 JL )@@G@@= STARTED BY OPERATOR @A@@@@. 1300 = 4/13 (RUNID IS 413ACT)@A@@@@JM )@@G@@. 1301 = 4/9 (RUNID IS 49ACT) @A@@@@. 1400 = SW 9 (RUNID IS 9JN )@@G@@ACCT) @[@@@@. @^@@@@@ASG,AQY SYS$*ACCOUNT$ @G@@@@@XQT SYS$*RUN$.BILJO )@@G@@LER . INSERT THE NEEDED ACCOUNTS @ @@@@INSERT 8-196JP )@@G@@1-805AR,MP=C,RTL=2@ @@@@INSERT 8-1961-805,MP=D,RTL=2 @^@@@@INSERT 0-004JQ )@@G@@0ACDECK,MP=D@F@@@@@TEST TE/13/S3 . IS THIS A 4/JR )@@G@@13 OR 4/9? @E@@@@@JUMP NOT413 . NO JS )@@G@@ @D@@@@@TEST TE/1/S4 . 4/9 BOOT? @E@@@@JT )@@G@@@JUMP NOT49 . NO, IT'S A 4/13...@G@@@@ JU )@@G@@ . R/T FILES WILL DEFINITELY HAVE@E@@@@JV )@@G@@ . TO BE RESTORED. @H@@@@@TALK JW )@@G@@ . IT'S A 4/9, SO MAYBE THEY'RE OK JX )@@G@@@B@@_@TRY STARTING R/T...IF IT DOESN'T WORK,; @]@@@@@NOT49: @[@@@@JY )@@G@@@TALK @B@@@@R/T FILES MUST BE RESTORED. PLEASE START;@C@@@@RTLOAD OR RTJZ )@@G@@REMP (WHICHEVER IS APPROPRIATE). @]@@@@@NOT413: @G@@@@@TEST TNE/KA )@@G@@14/S3 . IS IT A 9? IF SO, PUT UP MSG @E@@@@@MSG,WKB )@@G@@ RECOV SHOULD START R/T SOON. MAKE SURE IT'S IN. @[@@@@@TALK @^@@@@KC )@@G@@PLEASE READ IN ACDECK @ @@@@PLEASE KEYIN 'CS A ACDECK' @ @@@@PLEASEKD )@@G@@ ANS WHEN ACDECK FINS @#@@@@@Q:ASG,AXQY ACFILE@H@@@@@ED ACFILE. KE )@@G@@ . WE DON'T WANT ANY HORSEPLAY, NOW. @]@@@@C X@X?KF )@@G@@?X ALL@H@@@@@XQT SYS$*RUN$.BILLER . OK, SO NOW REMOVE KG )@@G@@ACDECK'S ACCT, AND@G@@@@@ADD ACFILE. . MAKE SKH )@@G@@URE 'OV' IS NOT THERE. @^@@@@REMOVE 0-0040ACDECK @^@@@@REMOVE 0-004KI )@@G@@0-167OV @ @@@@INSERT 0-0040-167P@,MP=C,RTL=5@ @@@@INSERT 0-0040-RZ-PKJ )@@G@@@,MP=C,RTL=5@D@@@@@TEST TNE/14/S3 . SWITCH 9? KK )@@G@@@G@@@@@JUMP K . YES, SKIP FILE-RESTORE SKL )@@G@@TUFF @D@@@@@TEST TE/13/S3 . 4/13 OR 4/9?@G@@@@KM )@@G@@@JUMP P . NOPE, MUST BE 9 OR OP START. KN )@@G@@@D@@@@@MSG YOU SHOULD NOW RUN ANY USER FILE-RESTORE RUNS @C@@@@@MSG,WKO )@@G@@ SUCH AS THOSE FOR REGISTRATION, IRS, ETC.@]@@@@@JUMP J @E@@@@@K:MSGKP )@@G@@,W YOU MAY NOW RUN ALL JOBS: KEYIN 'CS A' AND 'D ON' @A@@@@@J:MSG BL + KQ )@@G@@PRINT QUEUES WERE LOST @A@@@@@MSG PLEASE NOTIFY ALL REMOTE SITES @^@@@@KR )@@G@@@XQT SYS$*RUN$.TALK @D@@@@@P:DATA,I ACFILE. . KS )@@G@@CLEAR ACFILE@[@@@@@END @[@@@@@FIN ___@@@EL D(JE1 ^@0 *0A@4A@!AC6A9JE0)KT )@@G@@@C@@@@DDIET ELO^@0 *0A@4A@!AC6A9KC@?D(KB(# -ME-GB*5^@)@C@@@@DDIET ELO^@0KU )@@G@@ *0A@4A@!ELU (KC@?D(KB(#*[@@@@*SDFF*@G@@_@@RUN,A HDISAB,0-0040-167OV,SKV )@@G@@UNSHINE,9,99 . HDW-DISABLED FILE RECOVERY @ @@@@@XQT SYS$*RUN$.HDISAKW )@@G@@B @E@@@@@EDQ,P ZOOM.ZOOM,.ZOOM . CAN'T ASG/FREE FILES WITH @'S KX )@@G@@@]@@@@LCD *PR@ @]@@@@LCD *PU@ @]@@@@LCD GENF$ @#@@@@LCD SWAP$FILKY )@@G@@E @#@@@@@PRT,S ZOOM.ZOOM@[@@@@@TALK @C@@@@THE FOLLOWING FILES CANNKZ )@@G@@OT BE ENABLED/REVERTED; @C@@@@BECAUSE THEY HAVE NO CURRENT SECURE BACKUPLA )@@G@@S; @ @@@@>>>> NOTIFY THE PROGRAMMERS.; @#@@@@@ADD,P ZOOM.ZOOM@[@@@@LB )@@G@@@TALK @B@@@@ALL HARDWARE-DISABLED FILES WITH CURRENT; @A@@@@SECURE BACKULC )@@G@@PS HAVE BEEN DELETED.; @ @@@@USE REGSTR TO RESTORE THEM.; @[@@@@@FIN LD )@@G@@___CDQC*)D1J^[#E(MEL D1O^[NC(#E(MC*)CL[CTFE(KES;*[@@@@*SDFF*@G@@@@@RUN RLE )@@G@@TREMP,8-1961-805AR,NYUMED,20,50 . R/T FILE RESTORE FROM REM DISCS @[@@@@LF )@@G@@. @A@@@@. CONDITION WORD SETTINGS: @[@@@@. @]@@@@. LG )@@G@@ S3 @]@@@@. -- @A@@@@. 00 - SYM PRINTOUT TO RMMCT4 @ @@@@LH )@@G@@. 01 - PRINT OUT ONSITE @[@@@@. @]@@@@. S4 @]@@@@. LI )@@G@@ -- @#@@@@. 01 - NOON @^@@@@. 02 - AFTERNOON @#@@@@. LJ )@@G@@ 03 - NITE @^@@@@. 04 - MORNING @[@@@@. @#@@@@@TEST TNE/LK )@@G@@0/S3 @^@@@@@SYM PRINT$,,RMMCT4 @#@@@@@TEST TE/1/S4 @#@@@@@JUMP LL )@@G@@ QUAL2 @#@@@@@QUAL NYUNON @A@@@@@MSG RESTORE FROM NOON PACK SLM )@@G@@AVE @#@@@@@JUMP QUALND @]@@@@@QUAL2: @#@@@@@TEST TE/2/S4 LN )@@G@@@#@@@@@JUMP QUAL3 @#@@@@@QUAL NYUAFT @B@@@@@MSG RESTORE FROMLO )@@G@@ AFTERNOON PACK SAVE @#@@@@@JUMP QUALND @]@@@@@QUAL3: @#@@@@LP )@@G@@@TEST TE/3/S4 @#@@@@@JUMP QUAL4 @#@@@@@QUAL NYUNIT @A@@@@LQ )@@G@@@MSG RESTORE FROM EVENING PACK SAVE@#@@@@@JUMP QUALND @]@@@@@QUAL4LR )@@G@@: @#@@@@@TEST TE/4/S4 @#@@@@@JUMP EXIT @#@@@@@QUAL NYLS )@@G@@UMOR @A@@@@@MSG RESTORE FROM MORNING PACK SAVE@]@@@@@QUALND: @ @@@@LT )@@G@@@FILES,Q . PRINT QUAL@[@@@@@TALK @B@@@@TWO DISC DRIVES MUST BE LU )@@G@@'UP R', AND THE; @C@@@@REQUIRED PACKS MUST BE REGISTERED, IF NECESSARY.LV )@@G@@@#@@@@@DELETE,C FILSAV. @^@@@@@ASG,CG FILSAV,F2 @#@@@@@ASG,A *FLW )@@G@@ILSAV.@ @@@@@COPY *FILSAV.,FILSAV. @#@@@@@FREE FILSAV @#@@@@LX )@@G@@@FREE *FILSAV @]@@@@@BACK,G @[@@@@@EOF @[@@@@NYUMED@D@@@@@ADD,PLY )@@G@@ *FILSAV.FILES2 . FILES SAVED ON FIL2SV @D@@@@@ADD,P *FILSAV.LZ )@@G@@FILES1 . FILES SAVED ON FIL1SV @D@@@@@ADD,P *FILSAV.FILES3 . MA )@@G@@ FILES SAVED ON FIL3SV @]@@@@@PMD,BLEAP @#@@@@@ASG,A HISRUN. @ @@@@MB )@@G@@@START FILSAV.TEMPMESSCAT @A@@@@@MSG,W PLEASE KEYIN 'CS A TMPMCT' MC )@@G@@@#@@@@@PACK HISRUN. @C@@@@@START,/X SYS$*RUN$.DAYSYS,11,,8-1961-8MD )@@G@@05AR @A@@@@@MSG,W PLEASE KEYIN 'CS A HISRT' @#@@@@@JUMP TERM ME )@@G@@@[@@@@@EXIT:@A@@@@@MSG ***CONDITION WORD WRONG*** @]@@@@@TERM:FIN MF )@@G@@___CDQC(^^[JD0)C1DD)2ETQ@H@@@@C[[C-^ -K^@)^@) LA@@@[I0[AN@C@^Y9^@@[AN^Y9MG )@@G@@@@@[#"@@@@@[@@@@@@@@@@]:@#/@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@]D@C@@;9@EV@@E^@@@@E^MG@#=^M?@A ^QZ@[*^XM@@@___@@@___@@@___@@@___@@@___MJ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___MK )@@G@@@@@___@@@___@@@___@@@___C8F@@][@@^V;/\)@_[[@K@@JC9@@@AC@_@@@[[@^W'^@@ZTC@@^@@'=@@@I'^@@Y1/KF@@]C@@^XW;GK@@=W8K@@E[@?=MP/^K@C3[@@^MMMP )@@G@@C @^MM/KJ@@@ ^@^M:>@0^M?")0^MJ98;@@@"0@@@JH8@@K@/@F@@@S@@^MLAA0@DU/^@@DAMQ )@@G@@E@@@@G/K@@DE[^@^M:D@K@@G/,0@FWRJ@^M:9?K^MG9=K@@J98K@DS/GK@DL"*0^M!H8@@@[MR )@@G@@/K@@DE9?K^MI9=K@@J98K@DP/CK@DTG8@@@["?0^M!/K@@DEG9@@@[[^@^M:/K@@@@980@E^MS )@@G@@"0K@@JP;K@J5;?!@@@[ K^M%?9K@@B @@@@J!9K@@OC9K@@NC@@^XW ^@^MMC@K@@IU8K@@EMT )@@G@@/@0@D\;C0@@[U80@@E;*0@@[[@0^MO9)K^MNC@0@@K[@W=MP;C)@@[8^K@D& @@^MOG8K@@ MU )@@G@@H@@^XX/K@@D9C@W^MPG8K@@[[@W^MP?8K@@E/KF@@@H8K@@E[@W^MP8#@@D6C8K@@[[@K^MOMV )@@G@@G^K^M:[^K^M:[^@^MM/KF@@@[ K^M%C8K@@O[^K^MM/KF@@@/KI@EC @@^N( @@^N% @@^N&MW )@@G@@/KF@@@*4@^N(/K@@E\+8)@@JR#)^N%T8)@@EO#0@@IA#0^N%R#)^N((4@^N%/@:@@@T8)@@EMX )@@G@@O7)^N% 4@^N%R#0^N%A#)^N(/KF@@@R#)^N&O;)@@[A#)^N&9?)^N(/KF@@@/K@@@@9!@^N(MY )@@G@@'^@@E"/ KKE4C9K@@[/K@KE4/K@@@@9!@^N$'^@@E"/K@KE'/K@@@@/[@KE"!9@@@)/K@@F MZ )@@G@@;(K@@A;H@@@A/K@KE"RB)@E":8)@E7/K@@@@'^@@ZTR#)^WU&;)A@@A#)^WTD@@^US/\K@:#NA )@@G@@ 4@^WS/K@KE"/K@@@@ @@^N:/,0@EV'^@@FP/K@KFK/K@@@@9?)^N(9*)^N$R#)^N&A#)^N>NB )@@G@@/,0@EV/K@KFP @@@F=AA0@F-N@K^X= @@^X=/K@@F./K@@@@ ^@@F=/K@@F>/K@@@@9!@^N(NC )@@G@@'^@@E"*?@^N:D[K@@LR#K@@LPJK^N:O#K^N>E[K@@H!9K@AK/K@@G-N@K^X= @@^X=9?0^N$ND )@@G@@980@F';(@@@A;W0@@J;G0@@[R;)@K7P#)@@L9)0^M8"4)@@J*4@^N:900@@J980@GK/@K@GKNE )@@G@@R;@@@@/CK@G]R;@@@[E@K@@H;GK@@=!8)@@EW8K@@E/@)@GH;*)@@[[@0^N=')G@G$%@0^N=NF )@@G@@/K@@GH;G0@[C/K@@GK/@K@GKG8@@@]/K@@G]*^@@F=/K@@GO'^@@GX/K@KF-980@GV"0)@@JNG )@@G@@9)0^M40@@@@J9=0^M6"4)@@J"/0@@J'^@@GX/K@KF=/K@@@@C[K^X=^@K^X=/[K@GX'^@@ZTNH )@@G@@C@@^WU&;@B@@A#@^WTD@@^M\/\K@:["*"^M8"?"^M8"*"^NE"?"^NE"*"^NW"?"^NWC8F@@#NI )@@G@@[@@^V; @@@@JC8;K@@[@0@H$[@0@H'C@_@@@[@0^W+C^J^VW/@F@@#1@J^VW/K@@HWC@?@@[NJ )@@G@@[@)^N7C[J^VWR#@^O]'=@@@J/G@@HU;D@@@+/>@@HER;@^N7 @@@@JC8;K@[ 4G@@#*@J@@@NK )@@G@@'=@@@#(4G@@#/KF@@#/K@@HUC8K@@6%4Z^VW/KF@@# ^J^VW[@)^N"C@@^O#'=@@@J/^@@HUNL )@@G@@;@)@@SC1@^N7:9@@@ ;@)@@A[^)^O@C@@^O^'=@@@J/@F@@#/\0@I@/KF@@#*?G@@]/KF@@#NM )@@G@@9!G@@C99@@H1C0/@@#C1G@@C%80@@(?9@@@#/K@@H1A]0^N//,0@'9@@@@@@@@@@@@R]0^N/NN )@@G@@0@G@@#'=@@@A(4G@@#/K@@H1C4/@@#%80@@]/\0@H_ @@@@JC8:K@[C@0^W+C^J^VW 4G@@#NO )@@G@@(@I@@@/K@@H.A]0^N//,0@C]@@@@@@@@@@@@R]0^N//\)@V"/KF@@#RF?@@@[@)^N4'^@@ZTNP )@@G@@C@@^N? ^@^V/'=@@@I0@@^N;'^@@Y1/KJ@@@/K@@@@C@0^N;/C0@IIC80@@Y*^J^VW/K@@IKNQ )@@G@@8#0@IG/K@KICC^J^VWC5J^VW%9@@@Q/K@@IZ(4G@@A/K@@II 4G@@A0@G@@#'=@@@A*4G@@#NR )@@G@@'^@@(6C9@@@C[1G@@#'=@@@[/K@@II[@0^N;/,0@G\@@@^N;@@@^N_@@@@@@C@0^N;/K@@IINS )@@G@@/K@@@@C^W@@CC0?@@CC9K@@#%8)@@[C9K@@^[1W@@CC[I^PI[1G@@#%9K@@#/K@KI&H8K@@[NT )@@G@@?8K@@[/K@KI&C@)^W<:8)@@ /K@KI&C^?@@C[C?@@D'^@@J5/K@KI&/K@@@@C@0^W+C1G@@CNU )@@G@@%9@@@#/K@@JXC^W@@DK^W@@CC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@G[[Y@@[[[W@@E[[X@@@NV )@@G@@CDW@@G CG@@G @G@@FG8)@@]G9K@@# @@@@KW9@@@W/[K@JSD[K@@LG9K@@W8^K@JP&;)@@[NW )@@G@@ @I)@@8^K@JQH^?@@D[C?@@D[^?@@C'^@@J5/K@KI;C^?@@CG^?@@DC W@@C @@@@KW9@@@WNX )@@G@@/[K@JSD[K@@LG9K@@WH9K@@[C1G@@E[!I@@@[1Y@@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)NY )@@G@@[5I@@@[(I@@@C[I@@@[[G@@EG8)@@[/[K@JS/K@@JO/K@@@@0@G@@#'=@@@A*4G@@#'^@@(6NZ )@@G@@C8K@@C[0W@@#'^@@K&N^W@@^C@?@@D[@?@@^*4G@@C^^W@@D*CG@@^'=@@@[/K@KJ5/K@@@@OA )@@G@@C8K@@([0W@@# 4G@@#C1J^VW!9@@@K/K@@KU0@G@@#'=@@@A*4G@@#'^@@(6N80@^@^C/@@^OB )@@G@@N^/@@#C1G@@C/-@@KQ @@@[#'=@@@#^^/@@#*4G@@#/K@@K)N^/@@#^C/@@^(@G@@ /K@@K=OC )@@G@@'^@@K&/K@KK C5G@@#!9@@@#'^@@(6/K@KK CG@@^/K@KK /K@@@@C1J^VW?9@@@K/K@KK&OD )@@G@@CCW@@^+8KB__/@)KK&0@G@@#'=@@@A?9@@@S/K@@K4 @@@@HW8K@@W;GK@@=C0W@@#:8K@@(OE )@@G@@D@)@@IG@?@@ [@?@@ CG@@^/C)KK& @G@@ !9@@@ST8)@@WOB?@@#AB?@@#AB?@@C/K@KK&OF )@@G@@/K@@@@C@0^W+0@G@@#'=@@@A*4G@@#'^@@(6C8)@@K[0?@@#'^@@K&C8)@#)C0W@@C:8K@@]OG )@@G@@/K@@LMC8)@#/?9@@@KC8)@^@[C?@@^'=@@@[/K@KL]/K@@@@C[@^OA[ @^S9[[@^W;[[@^WUOH )@@G@@C@@^WNC1J^VW:9@@@)/K@@%S0@J^VW/K@@L>:9@@@=/K@@L3:9@@@-/K@@L0/K@@L'%9@@@=OI )@@G@@:9@@@>/K@@L!%9@@@-/K@@L'C9K@M"N8K@[L/K@@L5C9K@N N8K@] /K@@L5C9K@(1N8K@[LOJ )@@G@@/K@@L5C9K@()N8K@] [ K@.)[ K@.=^^K^V@^^K^WZ/K@KLPC[@^OB[[@@1=(@G@@D/K@@M OK )@@G@@C0W@@C/@K@MG:8K@@^/K@@MP%8K@@#/K@@M0/K@@MV'^@@SOC@@^WN^^W@@D^^W@@^N8K@#)OL )@@G@@^CW@@D/K@@L"RBW@@DC[@^O C[K^XW @H@@[[[H@@@[[G@@E[[X@@]C9@@@][ G@@CC9K@NHOM )@@G@@N8K@@^^0W@@C ^G@@GN8K@] /K@@L5C9@@@_[1G@@E*4G@@C/K@@M:'^@@SLC@@^WN(@@@[[ON )@@G@@/K@@M:C8K@@[[4W@@C^^W@@D ^G@@CN8K@#)^CW@@D'^@@V%/K@@MP0@G@@#'=@@@A*4G@@#OO )@@G@@'^@@(6/K@@M&'^@@K&(?G@@C'^@@K *4G@@C'^@@K ?G@@CC0?@@CC9K@@_:8)@@[[1W@@EOP )@@G@@C[I^PI[1G@@#'^@@V%/K@@MP/K@@@@C[@^OCC@@^WN[[G@@@'=@@[>C^K@M"/K@@(!/K@@@@OQ )@@G@@'^@@)JC@@^WNC[@^SW[[G@@@'=@@[=C^K@N /K@@(!/K@@@@C80@@PC@)^X):@\^W/8#0@NKOR )@@G@@G80@@[A]@^XNC@@^WN 4G@@E[@0@[]C0?@@E[??@@E[0/@@ER]@^XWC G@@G[ G@@EG9@@@[OS )@@G@@[ G@@GC8)@@C[*?@@EN@/@@E/K@@N=N@8=W/C^W@@C?CW@@D/K@@N4'^@@I;C8K@#)[CW@@DOT )@@G@@*4G@@C/K@@N3'^@@SL*@@@[[/K@@N.0@G@@#'=@@@A*4G@@#'^@@(6 ^G@@CC^W@@CK^W@@DOU )@@G@@^@"@@@G8K@@[[^W@@C8K)@NP;)@^@CC0^P6?@)@@JPT )@@G@@/K@@S>[^)^P6/K@@S:C^)^P5P;)@^@CC0^P5?@)@@J/K@@S8[^)^P5C@K^P,G8)@@[[^!=P7PU )@@G@@[@K^P,P;K@@[C[@^W<[DH^P7N^X^P7C@0^W+C^J^VW(@@^P\/K@KSL/K@KSOC@0^W+(@@^P\PV )@@G@@/K@KSL @@^P) @@^P- @@^P+ @@^P= @@@@JC^J^VW/@@@UX(?G@@]0@J^VW/K@@UX(0G@@APW )@@G@@/K@@TE(^G@@^/K@@UX/K@@TH*@G@@D*?G@@C/K@@UXN^W@@^'^@@VYCC!^P7*0G@@A/K@@TWPX )@@G@@!8)@@ /K@@V&/KI@TP/K@@S0/K@@T1/K@@U]/K@@U [C0^P)[^K^P)/K@@UX%8)@@P/K@@T-PY )@@G@@[C0^P=[^K^P=/K@@UX0@G@@#'=@@@A*4G@@#'^@@(6*4G@@A/K@@T% ^G@@^ ^G@@D/K@@S0PZ )@@G@@ 4G@@AC9@@@C[1G@@#'=@@@#*4G@@#'^@@(6/K@@T$*4G@@C/K@@T6[C0^P-[^K^P-/K@@UXQA )@@G@@0@G@@#'=@@@A*4G@@#'^@@(6'^@@K&'^@@K N^W@@^C G@@D[ G@@^ 4G@@C'^@@VY/K@@S0QB )@@G@@[C0^P+[^K^P+/K@@UXC1G@@#:9@@@(/K@@UJ0@G@@#'=@@@A*4G@@#'^@@(6 @G@@D ^G@@CQC )@@G@@/K@@S0[C0^P<[^K^P'=@@@I/K@@Y1/K@@@@N^W@@^'^@@VYC[K^W'^@@ZTC@@^SA/K@@W>'^@@ZTC@@^SB'=@@@I/K@@WD/K@@WC'^@@ZTR;V@@@QP )@@G@@OBKKW$A#K^Q)^@0^Q4^@0^Q7RFX@@@R#@^SC'=@@@IR#@@@HN80@#C'^@@Z0A#@^Q.RBK^Q)QQ )@@G@@9!@^Q-0@H@@@/K@@X)(^H@@@/K@@X=RBH@@@RF/@@[?80@[@9!@^Q<9(@^Q'R#G@@@A#@^Q_QR )@@G@@R#@^SD'=@@@IR#@^Q_A#@^Q7RBK^Q)RBX@@@CCH@@[?8@@[@/K@@XPR#@@@HP;@@@]RBG@@@QS )@@G@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0@XY/K@@'58#@@XJO;K@@[R#X@@@RFH@@@/@@@XWQT )@@G@@%8@/K@/K@@XMO;K@@[/K@@XS[@K^Q)/K@@W39!@^Q<9(@^Q'C@@^SE/K@@X:9(@^Q'C^K^Q)QU )@@G@@C@X@@@[@K^Q)R#@^SFA#@^Q_R#@^SG'=@@@I'^@@Y%(^@^Q)/K@@'5C@@^SH'=@@@I'=@@@QQV )@@G@@/K@@@@'^@@ZTC^@@X2'K@^SI*4G)@[/K@@X6[^@@X2RF@KX2'^@@Z0A#@^RHR#@^SJRBKKX2QW )@@G@@/@K@YB'=@@@IL8K@@]N@.@@@RA.@@[RB,@@@P;)@@[AB)@WC/K@@W(&;@@]K/K@@X:'^@@ZTQX )@@G@@/\0@ZDA#@^RRA#@^QZR#@^SK'=@@@I/K@@YW'^@@ZT/\0@ZDA#@^RZ9?@^R)/K@@YT'^@@ZTQY )@@G@@/\0@ZDA#@^RZ9?@^R+9*@^RSR#@^SL'=@@@I(^@^Q)/K@@YZ(^H@@[/K@@X*R#@^SM'=@@@IQZ )@@G@@'^@@Y%R#@^Q_A#@^Q7N80@#C*@@^QZ/K@@Y"RBK^Q)/K@@XC/K@@@@RB@@Y1/@@KY%AB@@Y%RA )@@G@@ ^@@Y1'^@@Z$/K@KY%/S@@@@'^@@ZTRB@^V;P;@@@[R#K^SNN@/@@@/\0@ZE/K@@YW/K@@Y;RB )@@G@@N@0KY9'^@@ZTR#K^SO/K@@Y7R]0^Q& @@^QZ*CF@@@*4F@@@/K@@ZBR;V@@@RFF@@@A#K^Q)RC )@@G@@/K@@W3O'0@@[/K@@Z@R#K^SPA#K^Q7R#@^SQ(^@@Y1'=@@@I^@0^Q)RF@^Q)'^@@Z0A#@^Q.RD )@@G@@R#@^SFRBK^Q)/@K@ZR*^H@@[R#H@@@A#@^Q_/KJ@@@/K@@@@*@@^Q>/K@KZTA]0^Q&9*@^Q$RE )@@G@@9*)^Q(9(@^Q:^@K^Q!^@)^Q,^@0^Q\N^K@ZT^@K^Q>N@K^Q!/K@KZT/K@@@@R]0^Q&9?@^Q$RF )@@G@@9?)^Q(9!@^Q:N@K^Q!N@)^Q,N@0^Q\/K@@Z$/K@@@@;G@@@MR;)@@ Q;K@@A;@K@@#;?@@@ARG )@@G@@8#)@Z3/K@@Z0@@@@@@ @@@@HC@)@@JN8K@@^W8K@@EK8)@@0;G0@@A;GK@@=*@@@@I8KK@Z/RH )@@G@@C8K@@ H@K@[[T8K@@AC@0^SR;?.@@@;@.@@@/K@KZ89!@^X)C@@^S,N8)@@E9(G)@@8K)@)GRI )@@G@@/KI@@@/K@@@@C4K^W/ 4@^SW:8K@@ /K@@)U:8K@@0/K@@)W:8K@@1/K@@)Y:8K@@+/K@@)-RJ )@@G@@C8)@@[/K@@)+C8)@@]/K@@)+C8)@@_[4)^SW/K@@)+C8)@@@[0)^SWC8K@@ [4K^W//K@K)JRK )@@G@@/K@@=O/K@@=O/K@@&%/K@@=H/K@@/K@@-F!^0^S$/K@K)0RN )@@G@@/K@@)7?^0^S$/K@@)7%^0^S$/K@K)0!CK^S$:CK^S$/K@K)0/K@@)7[[K^S:%9K@@T/K@@-*RO )@@G@@C K^U9*@@@@LH9K@@[[DK^V[C[@^W<:9@@@H/K@@+>C9@@@@W9@@@A;[@@@MD[K@@LG9K@@ RP )@@G@@; @@@MG @^XM[[@^W; C@^U"'^@@1>/K@@-Q'^@@1>C[K^S:%9K@@L/K@@-5C9K^S(C^)^WORQ )@@G@@C@,@@@+8)@@[(@@@@JC9K^S%[ K^WOC9K@@]/K@@-6C9K@@B[[K^S/K@@+0 @@@@KW9@@@ARV )@@G@@*@@@@KG@0@@KH9K@@ *@@@@LD[K@@L/K@@+"CCK^S&:8K@@ /K@@+*G8K@@[H[K@@H*@@@@LRW )@@G@@G80@@[*@@@@L/DK@+*/HK@+/C9K@@ /K@@+"D[K@@LH9K@@[[DK^S*[^0^S*C @^S*% @^S=RX )@@G@@/K@@C@K@@LT8K@@ARZ )@@G@@;@!@@@/K@@+ZR7K^U8:8K@@^/K@@=H'^@@1>C^K^WOC@X@@@/CK@<=D@K@@H/\0@C2[ @^M(SA )@@G@@H @^U9/[@@<%D[@@@K/H@@<4C^)^WO(@I@@@/K@@<\0@I@@@/[@@<4C)0^U3:80@@J'^@@*%SB )@@G@@'^@@$C K^U9?9K@@H/K@@<_H9K@@HR;)@@ '^@@)08^K@<;SC )@@G@@C9K@@GR;K@@#T@K@@LC^)^WOC[I@@@;[H@@@H9K@@[R#)@@K;[@@@-;G)@@=R;)@@A;^)@[ SD )@@G@@'^@@)08^K@= /K@@<6'^@@1>R3K^WO:8K@@[/K@@<):8K@@ /K@@-?/K@@=P'^@@1>DHK^V[SE )@@G@@] K^M(/HK@=TC9K@@@HDK^U9H9K@@^ @@@@IR7K^U8:8K@@[R;)@@[%8K@@^/K@@==R3K^WOSF )@@G@@:8K@@#R;)@@[H[K@@IG K^U9/HK@>IC^K^WO0@H@@@/[K@>I[DK^S+CDK^U9GHK^V[/HK@>ISG )@@G@@C4@^U8%8@@@^/[K@>I[ K^S+'^@@>+CD@^S+'^@@$U(G@^M%/K@@>PRJ)^M:PJ)^V[#^)^M:SH )@@G@@/@)@=//G)@>NR;)@@+'^@@)0RJK^M:/\0@C2 @G=MP @G=MPC9@@@]C4@^U8:8@@@[/K@@>FSI )@@G@@%8@@@^/K@@>GR3@^WO%8@@@#/K@@>GC9@@@#'^@@*D/K@@>J'^@@*'R7K^U8%8K@@^/K@@=OSJ )@@G@@/K@@=HR;)@@-/K@@=.R;)@@ C9K@@]R7K^U8:8K@@[/K@@>Y%8K@@^/K@@>ZR3K^WO:8K@@#SK )@@G@@C9K@@#'^@@)08^K@>Z/K@@>J/K@@@@RB)^WOR7K^U8:8K@@[/K@@&M%8K@@^/K@@>?R3K^WOSL )@@G@@:8K@@#/K@@&MR3K^WO%8K@@#/K@@>994"@@@980@&=?@0^S\?@0^S0/K@@>5/K@@>/R7K^U8SM )@@G@@%8K@@#/K@@>I/K@@*8E@"@@@/@0@&="80@@J/,0@C'9*0^S?R7@^U8/KG@>"/K@@&T/K@@&XSN )@@G@@DH@^M:/[@@& /D@@&QGD@^U9/H@@&QDH@^M:GD@^U9R#0^U9A#0^S-P;0@@#[D@^U9AB0^U9SO )@@G@@C9@@&?[ @@>+RJ0^M:/K@@&Z94"@@@980@&=/,0@C'/K@@&UCDK^U9GHK^V[/[K@>I9?0^S?SP )@@G@@C K^S+/,0@DV/K@K>+RJ0^V[OJ0^M:AB0^M:OF0^U9AB0^S+ @@^MO/C0@&T ^@^M% @@^M:SQ )@@G@@ @@^MOR;K@@OABK^MM/K@K>+'^@@1>'^@@>+CH@^M:/H@@$G/[@@&2DH@^M:] @^M(/K@@&'SR )@@G@@*C@^U9/K@@&8D9@@@[[ @^MM] @^M(/K@@&'[ @^M(D9@@@@H9@@@[HD@^U9G @^U9/H@@*8SS )@@G@@C^)^WO0@I@@@/[@@*8'^@@$UC5@^U8%9@@@^/K@@&%C[@^S-[[@^U9R;)@@ C9K@@]'^@@)0ST )@@G@@8^K@$D/K@@=H(@@^MOG9@@@[/H@@$KD9@@@@[ @^M:(C@^U9/K@@&4DH@^M:!D@^U9CD@^U9SU )@@G@@] @^M(C9@@@[] @^MM/K@@&9/K@@@@'^@@$&0G@^M(/K@@$-R;)@@.'^@@)0CD@^U9'^@@*QSV )@@G@@/K@K$U/K@@@@ ^@@$&/K@@$$/K@@@@/[@@*#H9@@@]R;)@@ /H@@$!'^@@)08^@@$:C^K^WOSW )@@G@@1@H@@@/K@@*]R#X@@@R70^U8:80@@ /K@@$/R30^WO:80@@[/K@@$/:80@@#/K@@$_>@K^S1SX )@@G@@/K@@*]/K@@*[(@@@@H/K@@*]/K@@*[>@K^S2/K@@*]C8)@@-'^@@)0CH@^M(/H@@*-(^@@$&SY )@@G@@/K@@*F'^@@*Q/K@K$&/K@@@@ ^@@$/K@@2]C9K^SX[ K^U5/K@@:0@@@@@@'^@@)JC@@^SW(^@^SS/K@@(:[@@^STTG )@@G@@C8@^ST'=@@[=(C@^SS/K@@(?C@@^SW'=@@@IC^K@()/\)@)DC[K^S5[[K^W;/KH@@@@@@@@@TH )@@G@@C@@^S6'=@@[SC^K@(1/K@@(!/K@@@@'^@@ZTC4W@@#[CK^S7 4G@@#:8K@@ /K@@%Z:8K@@]TI )@@G@@/K@@%$%8K@@[/K@@%#C[K^S8[[W@@E!8K@@ @@@@HC@H^S'R#)^W+&;)#@@(@@^WX/K@@%GTJ )@@G@@&;,F@@Q#)^WWA#)^WT*@@@@H!8K@@#/\K@:]O;K@@OA7K^WT%8K@@Q/K@@%QC[K^XZ[[K@1=TK )@@G@@C9K@@]/K@@:^'^@@ZTC@@^S_RB)^V;&;)O@@Q#,@@@A#)^WT/\K@:] @@^Q>*0G@@A/K@@%>TL )@@G@@C^W@@#[CW@@^/@K@% C@K^Q*/K@K(6 @@^Q>[4W@@AC@K^Q*/K@K(6'^@@ZTC@@^T'&;KN@@TM )@@G@@Q#K^W+[@K^WT/\K@:['^@@ZTC@@^U]&;KL@@/K@@%,'^@@ZTC@@^UF&;KM@@/K@@%,;C@@@/KI@@@ @@^Q>'^@@Y1/KH@@@/C)@:/K@@,U/K@@,U/K@@,U/K@@EU/K@@?DUA )@@G@@/K@@?D/K@@?D/K@@EN/K@@,,/K@@,9/K@@\ /K@@EU/K@@,,/K@@,9/K@@\ /K@@ER/K@@\GUB )@@G@@/K@@\L/K@@\O/K@@EU/K@@,%/K@@,5/K@@\[/K@@EU/K@@, /K@@,?/K@@,7/K@@\#/K@@EUUC )@@G@@/K@@\V/K@@\)/K@@\/K@@\(/K@@\?/K@@EU/K@@0 /K@@0^/K@@0!/K@@EUUD )@@G@@/K@@0\/K@@,U/K@@,U/K@@EP/K@@\,/K@@\_/K@@0]/K@@EU/K@@\E/K@@\E/K@@\E/K@@ESUE )@@G@@/K@@0S/K@@02/K@@04/K@@EU/K@@,U/K@@06/K@@,U/K@@EQ/K@@?^/K@@,&/K@@,*/K@@EOUF )@@G@@/K@@?^/K@@,&/K@@,*/K@@ET/K@@\R/K@@\Q/K@@\T/K@@EU'^@@ZTC8Y@[@;*K@@SG^K^U9UG )@@G@@A#K^WT[@@@@JD@@^UQ*0@^WS/\K@:# 0@^WSC@@@@J/K@@?D/,0@0'/K@@?^'^@@0"/K@@?^UH )@@G@@R;0@@ /K@@,0R;0@@B/K@@,0;G)@@#;C0@@-A70^U8'^@@E4[DK^U"R;@@@[/K@@?BR;0@@ UI )@@G@@/K@@,;R;0@@B/K@@,;;G)@@#;C0@@-A30^U8/,0@0'R30^U8A70^U8C9K@@[/K@@,2R;0@@ UJ )@@G@@/K@@\BR;0@@B/K@@\B;G)@@#;C0@@-A30^U8'^@@0"/K@@,./,0@EZ/K@@?D'^@@E4/,0@2IUK )@@G@@H9K@@[R;)@@H/K@@EK/,0@0'C9K@@[/K@@\H'^@@0"/K@@\M/,0@0'R;)@@'/K@@EK'^@@0"UL )@@G@@/K@@\RC[K^N%**@^U8D[K@@L[ K^V[/K@@?^/,0@0'C9K@@[/K@@\Y'^@@0"/K@@\-'^@@E4UM )@@G@@/,0@2IH9K@@[/K@@EL/,0@0'C9K@@[/K@@\&'^@@0"/K@@\%'^@@E4R$)^U8!8)@@]R;)@@[UN )@@G@@R#0^U7H9K@@[A#"^U;[ Y^U.O;)@@[A$)^U8!8)@@]/K@@?^ 4@^U8A<)^U8A#0^U'[DK^U.UO )@@G@@/K@@?^/,0@0'C9K@@[/K@@\\'^@@0"/K@@0@/,0@0'R$)^U8/@)@0GC Y^U/P;)@@[8^K@0(UP )@@G@@A$)^U8/K@@?^C4)^U8/@)@EM'^@@"VA )@@G@@C[@^W<%9@@@H/K@@2RC @^XR[ @@2QC[@@@LG[@^XQ[[@^XQ[[@@@@CD@^V[G[@@@L[D@^V[VB )@@G@@/KF@@@/K@@6I/K@@6I/K@@6I/K@@6A/K@@5G/K@@3#/K@@5/KH@7_VC )@@G@@/KH@8^/KH@8D/KH@8I/KH@8N/KH@8S/KH@8X/K@@7KRF@^W=RB0^W=')G@1I8#@@24O;0@@[VD )@@G@@R;@@@ AB0^W=AF@^W=C@0^W<%80@@H/KF@@@C^0^W=?^0^VC/KF@@@%^0^VC/K@@3@CC0^W=VE )@@G@@HC0^VC/C;@@@C@0^W=[@0^VC/KF@@@[[K^VB%9K@@T/K@@3RC K^U9*@@@@LH9K@@[[DK^V[VF )@@G@@C[@^W<:9@@@H/K@@40 @@@@KW9@@@A;[@@@MD[K@@LG9K@@ ; @@@MG @^WV[[@^W= C@^U"VG )@@G@@'^@@1>'^@@1>C K^U9C[@^VB:9@@@L/K@@4VC00^WO%80@@#/K@@3.:9@@@R/K@@3.?9K@@HVH )@@G@@/K@@3$H9K@@H/,0@2!8^K@3=C9K@@GH9K@@[C8K@@ C@@^U4C@K^U4 @@@@K;=@@@A[@@^VRVI )@@G@@;@K@@A/,0@2!C@@^VR;@)@@A;=K@@AG9@@@A8^K@3?H9@@[CE[@@@KC@)@@K*@@@@I;=I@@@VJ )@@G@@C^0^WO9*J@@@/K@@4Q @@@@K?9K@@B/K@@4CH9K@@B/,0@2!8^K@4[C9K@@ /,0@2!;@)@@AVK )@@G@@;=K@@AG9@@@A8^K@4^R#@@@KR#)^U4C[@^VB:9@@@R @@@@I;^W@@@RBK^WO%9@@@R/K@@4PVL )@@G@@C @^U9?9@@@A;)?@@@A#!@@@R7K^U8:8K@@^/K@@6A/K@@3RAA0^V#H9K@@[D8K@@[/,0@2!VM )@@G@@:8)@@,/K@@4,/CK@4(P;)@@MF@K@@I%/K__8/K@@4(RBK^WOD@)@@I;C)@@RB0^U9VQ )@@G@@[@0@[#'^@@7]?8K@@]/K@@5U'^@@ZTRBK^WU&;K @@A#K^WTD@@^US*4@^WS/\K@:# 4@^WSVR )@@G@@'^@@E'*4@^N:D[K@@LRBK^WO[[X@@@R7K^U8:8K@@^/K@@6A/K@@5G'^@@1>C K^U9C9@@@@VS )@@G@@?9K@@H/K@@6[H9K@@H/,0@2!8^K@5(C9K@@F/,0@2!;G)@@=:80@@ R;0@@0;G0@@#:80@@AVT )@@G@@/K@@6@'^@@ZT[ K^U9;?0@@#R;Z@^@;G0@@#;*K@@SQBK^WUA#K^WTD@@^US*4@^WS/\K@:#VU )@@G@@C K^U9 4@^WS;[@@@Y8^K@5?;[@@@#RBK^WO[[H@@@/K@@5<'^@@1>C K^U9R3K^WO:8K@@[VV )@@G@@/K@@5H:8K@@ /K@@4V/K@@6P'^@@1>R30^WOC5@^U8%9@@@[/K@@6P%80@@#/K@@66RB0^U9VW )@@G@@[@0@[#'^@@7]'^@@6XR7K^U8:8K@@^/K@@6A/K@@6I/K@@@@R#K^N>C5K^U8(@@^VQPJK^V[VX )@@G@@(0@^N:PFK^U9A#K^N> @@^VQC1@^WO%9K@@^/K@@6?:9@@@#/K@@62/K@@6,:9@@@#/K@@62VY )@@G@@'^@@F=RBK^WOA#.@@@/K@K6X'^@@F-RBK^WO9*.@@@/K@K6X'^@@ZTC40^U8;*0@@AO30^WOVZ )@@G@@AF0^WTRB0^WOAB0^WTD@@^VF*4@^WS/\K@:# 4@^WS/K@@6P/K@@@@'^@@FKC9K@@@C9@@@@WA )@@G@@R;K@@@/K@@7EG9K@@[/,0@EZ8K0@7G/KH@8X/,0@2![@)^V^R;@@@#/KI@?F'^@@ZT/^)@7QWB )@@G@@C@@^W>;C@@@A:@@^VS/\K@%9G8)@C@;*)@@SQ#)^WUA#)^WTD@@^US*4@^WS/\K@:#R3)^WTWC )@@G@@ 4@^WS/K@@8?[ K^N:R;)@@[A\)^N:/K@@7>[ K^N:'^@@FPR;K@@#/K@@7ER;)@@[A7)^N:WD )@@G@@/K@@7ER;)@@[A\)^N:/K@@7ER;)@@[A#)^N%/K@@7&R;)@@[A3)^N:R;K@@]C9K@@@/K@@7EWE )@@G@@R;K@@[/K@@7DR;K@@^[@K^VQ/K@@7D*4@^V#/K@@7ER;)@@@/KH@8S/K@@7E/K@@7;/K@@7;WF )@@G@@/K@@7E/K@@7;/K@@7E/K@@7>/K@@7=/K@@7E/K@@7K/K@@7*/K@@7-/K@@7)/K@@7:/K@@7KWG )@@G@@/K@@71/K@@71/K@@7K/K@@7K/K@@7K/K@@7,/K@@7>/K@@7=/K@@7E/K@@7K/K@@76/K@@7DWH )@@G@@/K@@7C/K@@78/K@@7D/K@@8+/K@@8=/K@@8&/K@@8(/K@@8:'^@@82/K@@8''^@@82/K@@8?WI )@@G@@'^@@82[ K^N:/K@@8?'^@@82/K@K7]'^@@82*4@^V#/K@K7]/K@@80/,0@2!8K0@8\/K@K7]WJ )@@G@@/K@@@@?8K@@#'^@@FPR#)^V^:8)@@,*4@^V#/K@K82/K@@7KR;)@@[A7)^N:/K@K7]A#)^VBWK )@@G@@%8)@@'/K@@9KRFK^U7RB0^U7')H@1I%8)@@'/K@@9H8#K@9CO;0@@[R;K@@ ')H@1I%8)@@'WL )@@G@@/K@@9YR;)@@ ')H@1OR#)^V[O;)@@[A#)^V[/,0@2!CCK^U7RB0^U7')H@1O8#K@9SO;0@@[WM )@@G@@R;K@@ AB0^U7AFK^U7R#)^VB:8)@@'/K@@9@8^K@9K/K@@?^/,0@1 /K@@?^/,0@2!8^K@9)WN )@@G@@/K@@?^'^@@.Z/K@@9&'^@@"'^@@6X/K@@9> 4@^V#0@@@[# @@@[#RB)^U9P#)@[#WQ )@@G@@OF)^V[AF)^V[R3)^WOP;)@@[AB)^U6/KF@@@C[K@[#/,0@4U[[K@[#/,0@'[/K@@9>@@@@@@WR )@@G@@/\)@'RC@@^VT'=@@@H/\)@'X/K@K'L9!@^X)C@@^VUN8K@@E9(G)@@8KK@'U/KI@@@C[K^VVWS )@@G@@[[K^W=[ K^WU[ K^WV/KI@@@R#V@@@R;@^V_R#X@@@A#K^V"%@K^W]'=@@@C/S@@@@*^@^V/WT )@@G@@'=@@@D*@@^Q>'^@@Z$'=@@@Q @@@@G'=@@[['=@@@6;C@@@Y(@@@@G'=@@@Q'=@@@) ^@^V/WU )@@G@@/K@@'*C8F@@][@@^V;/\)@_[[@K@@JC9@@@ C@_@@@[[@^W/G@@/-C@@^W^'=@@[S/KF@@]C[@^W^XD )@@G@@[[G@@@'=@@[>/KF@@]'^@@ZTC@@^WA'=@@@I'^@@Y1/KF@@]*^@@IC/KF@@]'^@@(6(@G@@DXE )@@G@@/K@@/3C1G@@C:9@@@^'^@@I;/\)@W]0@G@@#'=@@@A*4G@@#'^@@(6C9@@@D[1G@@#'=@@@[XF )@@G@@/KF@@]/\)@_[N8:K@[C@.@@@&'0@@#/\)@":N8K@@^^@K^WC@@^X&'^@@ZTR7@@_I'^@@Z0AF@^X:R3@@_I'^@@Z0AF@^X!RB@@_I'^@@Z0A#@^X0XT )@@G@@R#@^X1'=@@@I/K@@'5')G^X&RB@@_IO;@@@['=@@[@AB@@_:R#@^X&/K@@@@C@@^X2'=@@[[XU )@@G@@/KF@@[C9K@@G/K@[@YC9K@@H&'0@@#C^:@@@/K@[@DC9K@@H&'0@@[C@@@@F(0G)@[/K@@_8XV )@@G@@H@@@@F&'/@@[C8K^XS[^K^XR/\)@".%8@@@]/K@[@JN@)@@HC8:K@[CCV@@@:8K@[[/K@[@CXW )@@G@@>8K@@)/K@[@E^@)@@IN8:K@[C8K@] [^K[@/[^)^S& @@^S>/K@[@-N8:K@[^@)^WRC@X@@@XX )@@G@@C8:K@][@K^S>[^)^S&G8K@@[[^K[@/%8@@@^/K@[@-C8VK@# @@^XQ[^K^XR/K@[@-C9K@@FXY )@@G@@/\)@_[N@)@@H&'0@@][[K^W/K@[[TCD@^S=:9@@@ /K@[[&C@)^S=[@)^W;C8)@@ '^@@)08^@[[Q/K@[[&C^K^S$YD )@@G@@?^K^S=/K@[[&%^K^S=/K@[[-CCK^S$!CK^S=/K@[[&C@)^S=[@)^W;C8)@@ '^@@)0/K@[[TYE )@@G@@C@K^S=*@@^S>C@K^S$[@K^W;[@K^S&C^K^S&[^K^S9[^K^WU/\@[[1C^K[[H/KH@@@*@@^S>YF )@@G@@/K@[[7C K^S=G9K@@Q[ K^S$/KG@@@C[K^S>CCK^S&C^0^S&:8K@@ /K@[]#H9K@@[H[K@@HYG )@@G@@/DK[]#G9K@@[*@@@@LD[K@@L/K@[]J @@@@KW9@@@A*@@@@KG@0@@K%8K@@ G80@@[(@@@@LYH )@@G@@D9K@@ %[K^X4H9K@@ *@@@@LD[K@@L[DK^S$[^0^S$/KG@@@C9K@@H&'0@@#C^:@@@/K@[]%YI )@@G@@C9K@@H&'0@@[C@@@@F(0G)@[/K@[]TH@@@@F&'/@@[C8K^XS[^K^XR/\)@".%8@@@]/K@[]1YJ )@@G@@N@)@@HC8:K@[CCV@@@:8K@[[/K@[](>8K@@)/K@[]:^@)@@IN8:K@[C8K@] [^K[#U[^)^X5YK )@@G@@ @@^XQ @@^VE/K@[#^N8:K@[C@X@@@C8:K@][@K^VE[^)^X5 @@^X6 @@^XQG8K@@[[^K[#UYL )@@G@@%8@@@^/K@[#^C8VK@# @@^XQ[^K^XR/K@[#^C9K@@E/\)@_[&'0@@]N@)@@H[[K^W[ K^S9C@0^W<:80@@HYN )@@G@@/K@[#TC9K@'LN8K@[L[ K@.)^@K^V@'^@@.Z/K@@:,C9K[#WN8K@] /K@[#P/K@@@@*@@^XQYO )@@G@@/K@[#\C8K@@ C^0^X5(@@^VE/K@[#&C[@^X6G[@^VE[[@^X6[CK^W=[^0^W=[^0^S9[^0^WUYP )@@G@@[^0^WVC@0^W=[@0^VD[@0^VC/K@L#W*@@^VE/K@[#7C^0^VCCCK^VC%8K@@ G80@@[C8K@@ YQ )@@G@@/K@[#& @@@@JC[@^X6W80@@AG^0^X5C8K@@ H@K@@K/K@[#-/,0@_?@@@@@@/,0^Y$@@@^YVYR )@@G@@@@@^X7@@@^YW@@@^YA@@@^YO@[G@@@R/K@@[N_0@@#A@K^YPC@[^X/H@@^YA(@@@@G/K@[ SYS )@@G@@O/K@@[8N0[^DC@@^YAH@@^Y[*@@@@G/K@[^@/,0^Y4@@@^YP@[P@@@C@@^YX[@@^YQC@)^YPYT )@@G@@;C)@@SC@0^YQ;)0@@G;G)@@G[@0^YQ/,0[]Q@[@^YT@@@^YQ@[S@@@@@K^YR'^@@.(C/@@@^YU )@@G@@H@@^YR]@@^YSH/@__"*@@@@G0@@@@G/K@[^7C/@@@CG@@^YR[@@^YSC@)^YP;))@@S;C)@@SYV )@@G@@G/)__"C@0^YP;G)@@G;@0@@S[@0^YP/,0@_5@[@^YT@@@^YQ@[-@@@@@K^YS'^@@.(C@@^YQYW )@@G@@;C@@@SC@K^YP;)K@@G;G@@@G[@K^YPC@@^YSG/@__5*@@@@G1@@@@G/K@[ EC/@@@0[4@^YPYX )@@G@@/,0@/;@[@^YW@@@^YU@[$@@@@@K^YP'^@@.(/,0@'7@[@^YW@[%@@@/,0^Y7@@@^YC@[:@@@YY )@@G@@/,0@'+@@@^YYR@K^YPC@[^Y[[@@^YJC@)^YA;C)@@GC@0^YH;)0@@S;G)@@S[@0^YHC/@@@^YZ )@@G@@H@@^YP(@@@@G/K@[ !/,0^Y$@@@^YZ@@@^YG@@@^Y)@@@^YA@@@^YO@[1@@@/K@[ 4/,0^Y$ZA )@@G@@@@@^YZ@@@^YG@@@^Y-@@@^YA@@@^YO@[3@@@C@@^YOG/@__"/C@[ 9*@@@@G/K@[ -C@@^YAZB )@@G@@[@@^YKC/@@@AH@@^YO*@@@@G1@@@@G/K@[A]C@@^YB[@@^YL/,0@/;@[@^YW@@@^YU@[9@@@ZC )@@G@@'^@@.:@^K^YI@@[@@^'^@@.(/,0@'7@[@^YW@[.@@@/,0^Y7@@@^YM@["@@@/,0@'+@@@^Y+ZD )@@G@@/,0@'+@@@^Y<@]D^@[A REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED ZE )@@G@@J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@NL[HPM@@[@@@@@@@@@@@@@@@@@@@@@)@)@@@K^*@@@ZF )@@G@@@@@@@@@[^^M0INPUT EXPONENT TOO LARGE@@@@@@^@@@@@@@@@@@C@@@@@@@@@@@@@@@C@ZG )@@G@@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@ZH )@@G@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,ZI )@@G@@M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&ZJ )@@G@@PH==5(FESV96UT(3\2B=K@I?7N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@#C^N!ERROR DETECTED WHILE CLOSING FILE OF UNIT @BRKPTZL )@@G@@ @@@@@@@)@@@@_____"@@@@@@@FREE @SYM ,,PR ZM )@@G@@@@#^N5@@]^N.@@#^N_*[F@@@@@ ^W//K@@O[@@I^W/@@@@@@@[B^OL@_A^OS@_D^OY@_B^O$ZN )@@G@@@_A^O,@[F^O4__E^O_INPUT FILE $-$ HAS NOT BEEN ASSIGNED. NO PACKET SPZO )@@G@@ACE AVAILABLE INITIALLY THE NTRAN UNIT $-$ IS NOT AVAILABLE FOR STANDARDZP )@@G@@ I/O. DRUM FILE ASSIGNED TO SYMBIONT UNIT FAILURE TO ASSIGN FASTRAZQ )@@G@@ND FILE $-$BACKSPACE WAS ENCOUNTERED FOR THE UNASSIGNED FILE: $-$ - IGNZR )@@G@@ORED. SEQUENTIAL I/O ATTEMPTED ON UNIT DEFINED AS DIRECT ACCESS @ASG,TZS )@@G@@ ,F///5@ASG,CP @@@@@@@@@@@K@@@@@K@@@@@C@@@@@C@@@@@D@@@@@)@@@@@(ZT )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@_C^P&ABNORMAL CONDITION DETECTED IN BUFFER HANDLING ZV )@@G@@@@[@@@@@@@@@_@_@@@@@E^PQ@@#^PD@@]^PG'^@@IC@@@@@@@@@@@@@@@@@@C8K@@@/@K^P_ZW )@@G@@C8)@@@[C)^P6G@)@@HP;)@@[[^)^P6C8K^@E[CK^P5G8K@M]P;K@^[[^K^P5G8K@@[C@0^P,ZX )@@G@@[^Z=P7CC)^P5C^K^P5G8)@@H[@0^P,C@@^P4[@@@'*!@)@@H/K@@R!/K@@O(@@@@@@@@@@@@ZY )@@G@@ SEQUENCE N LINE N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@ ERROR TERMINATION IN ROUTINE CALLEAA )@@G@@D AT SEQUENCE NUMBER OF ROGRAMA COMPUTED GO TO THAT WAAB )@@G@@S OUT OF RANGE WAS DETECTED AT SEQUENCE NUMBER OF MAIN PROGRAM. AC )@@G@@ILLEGAL OP AT SPECIFIED RETURN FROM RETURN VARIABLE SAD )@@G@@PECIFIED IN OUT OF RANGE NEGATIVEFORTRAN V ERROR TERMINATION: AE )@@G@@ARGUMENT UNNORMALIZED OR OUTSIDE ALLOWABLE RANGE CAUSING ARGUMENT OUTAF )@@G@@SIDE ALLOWABLE RANGE CAUSING OVERFLOW CAUSED ROFR PROGRAM ERROR RESUAG )@@G@@LTED IN A WALK BACK @]E^R(@]B^R3@]#^R'@]B^Q0@]D^Q7@]B^Q7MAIN P@[E^Q7AH )@@G@@@]C^R.@@[__"@]H^R[@]B^RL@]C^RS@[D^Q7 I/O RETN 0RETN K@] ^R= @@@@@@AI )@@G@@@@@@@@TRACE$ @@Q^W/(1P6G13.5) @@[@)&@@[@ED@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@T F @@@@@@@@@@@@@@@@@@@@]^W/M@@@@@I@@@@@AK )@@G@@)^@@@@)@)@@@@@[@@O@@[@@P@@ ^W/@@I^W/@@@@@@_@@@@@@[Q@@@@_A^TZ@_F^T@@_G^TFAL )@@G@@@_F^T@@_C^TR@_#^T>EXECUTION TERMINATED BY AN ATTEMPT TO READ PAST AN ENDAM )@@G@@-OF-FILE. EXECUTION TERMINATED BY AN ATTEMPT TO PASS END OF TAPE/DRUM AN )@@G@@OR FASTRAND A NON INTEGRAL BLOCK WAS READ FROM MAGNETIC TAPEABNORMAL I/OAO )@@G@@ CONDITION DETECTED INAPPROPRIATE UNITTHE FOLLOWING RECORD IS ERRONEAP )@@G@@OUS OR DOES NOT CORRESPOND TO FORMAT SPECIFICATIONS: I/O UNIT IS INAQ )@@G@@ ERROR@_B^T;UNRECOGNIZABLE CONTROL WORD ENCOUNTERED @_C^U#FORMATTED REAR )@@G@@AD ATTEMPTED ON NON-FORMATTED DATA @_C^UGNON-FORMATTED READ ATTEMPTED OAS )@@G@@N FORMATTED DATA @[I^T*@[^^T6@]D^UT@]C^U+@]D^U%ILLEGAL FORMAT CHARACTERAT )@@G@@S WERE ACCEPTED AS BLANKS. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTAU )@@G@@Y. THE INTERPRETATION OF MEANINGLESS INPUT WAS ATTEMPTED.@@@@@@ AV )@@G@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NBMSG$@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@2V@@[@ED@@@@@@@@@@@@@@@@@@@@@@@@@]E^VGERROR AX )@@G@@- TYPE IN FORMAT IS NOT THE SAME AS THE INTERNAL TYPE.@@@@@@@@@@@@@@EOF AY )@@G@@@%9^W>@@]^W>@@ ^W>@@[@@@@-@@@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@[BB )@@G@@STOP @@@@@@@@G^V.@@@@@@ _@@S@@@@[^W @EOF @]G^WBAN ATTEMPT TBC )@@G@@O WRITE AN EOF-MARK ON CARDREADER OR PRINTER - IGNORED ______@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@ ^W/@@@@@@@@@@@@@@@@@@@@@@@@^XS^XS@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@[@@@@@[@@['^@@.&/K@K.( @@@@@@@[@@@@@@@@@@#C@^X=@@@@@@BG )@@G@@#^@^X=ERROR MODE: TYPE= , CODE= , ERR.ADDRESS= @]D^X*DO@@_IBH )@@G@@@@ ^W/_____'@@ @@@@@@@@@PROJ, ACCT, QUAL, PACK, OR ALL? PROJ ACCT BI )@@G@@QUAL PACK ALL P A Q K @@@@@@@@@@@@@ADD SYS$*RUN$.MFDBJ )@@G@@ADD WHAT@ XXXX? @MFD, P @ADD 4. . @@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@(I2) (4A6) @@@@@Z@@@@@^ @@@@@F@@@@@G@@@@@A BL )@@G@@ @@@@@@@@@@@@@@@@@@R#FK@@R#V@@[AF@^Y>ABK^Y>R#FK@]R#V@@#AF@^Y&ABK^Y&BM )@@G@@R;@^Y='=@@@CRB@^Y=A#FK@^/KF@@A'=@@@MA#FK@@/KF@@]R#F@@@'=@@@J/KF@@]@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @#A@@@@@@@@[BP )@@G@@/K@@E^^@[@E#@@#@@ R#0@@NC[K@@6@@[@E^]EJ@@@G.0@@=@@ @@ @@@@#G[K@@N/]0^L>BQ )@@G@@]EJ@@@$@@@@C@@ @@ R]@^MF[[K@@N@@[@EA]EJ@@@R_S@@@@@ @@##@@@@]@@@@@[/K@^LZBR )@@G@@NRWND$ K@#@@BN#"BEC@@@@@@@@2@C@@@E^@@NBF00$ K@#@@IH^BAO#@@@@@@BS )@@G@@@@@@@@@M]^@ENBDCV$ K@#@@PE!]EDB@@@@@@@[Q@C2@@<^MGNFTV$ K@]@@VBT )@@G@@H *AO#@@@@@@@@N@ECNCNVT$ K@#@@+N].BEC@@@@@@@]M@EV@@.^M\NCLOS$ BU )@@G@@K@#@@(N]/BEC@@@@@@@[9@G!@@T^N?NSWTC$ K@]@@\NW ^ D@@@@@@@@P@I&NWBLK$BV )@@G@@ K@]@@5N^CBEC@@@@@@@[E@I;NBSBL$ K@]@@;N]'BEC@@@@@@@@-@K NUPDA$BW )@@G@@ K@]@[[N^ABEC@@@@@@@@W@K&NRBLK$ K@]@[BN#;BEC@@@@@@@@N@L]NOTIN$BX )@@G@@ K@#@[IN#7BEC@@@@@@@].@LP@@^^O NFCHK$ K@ @[RNU6^ D@@@@@@@B6@OMBY )@@G@@@[?^OD@@@@@@@@%^P5NERR$ K@#@[YNU0^ D@@@@@@@^[@WC@[9^QZNOUT$ BZ )@@G@@K@#@[>NV'^ D@@@@@@@D!@)D@@Z^SSNIOER$ K@#@[?NVQ^ D@@@@@@@[8@(6@[Z^S7CA )@@G@@NFMT$ K@#@[3NU_^ D@@@@@@@A!@:,@@!^UQNINPT$ K@#@['NVK^ D@@@@@@CB )@@G@@@CB@2V@@T^V#NTAB$ K@#@][HB0AO#@@@@@@@@@@@@@@Z^VWNSTOP$ K@#@]CCC )@@G@@NW^^ D@@@@@@@@P@'+@@C^V;NWEF$ K@#@]JNWK^ D@@@@@@@]^@'7@@K^W#NOBUF$CD )@@G@@ K@]@]PN#4BEC@@@@@@@@-@/;NIER$ K@#@]WNVF^ D@@@@@@@[2@.W@[L^WNCE )@@G@@NINTR$ K@#@]4G#D@@@^X7OPWIPE @@#@#[[>4G#D@@!^X7@]Q[#"CH )@@G@@)]5@@@ASM @@[@@@[EIG#D@@Q^Y=$@@@@C@@ @@ @@@@#^])@@6@@[@E*]EJ@@@CI )@@G@@$@@@@C@@ @@##@@@@#/K@@ES^@[@E(@@#@@ @@@@#C[K@@N@@[@E%]EJ@@@$@@@@C@@ @@ CJ )@@G@@ @@@@#G[K@@)@@[@E:]EJ@@@$@@@@C@@ @@ @@@@#[[K@@)@@@@ K@EC@C@^B;^@@@EC^B;CK )@@G@@@@@@DF@@@@@[@@@@@@@@@@@E@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@]D@C@@@F^@@@@1^BF@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___CN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___CO )@@G@@@@@___@@@___@@@___@@@___R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CCP )@@G@@A#W@@DC G@@DG G@@BC W@@AGDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BCQ )@@G@@H[K@@KN@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@ACR )@@G@@[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ CS )@@G@@CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@ACT )@@G@@ABW@@^RBW@@DD8)___AF!@@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WCU )@@G@@AF?@@^O#W@@ '=@@@#A#W@@ C5W@@#/ V@@@/KF@@[R;@^BT'=@@@J/^@@D.R#@^B'A#@^BTCV )@@G@@R;@@ AR@^BVR;@^@@/,0@C$/,0@C@/K@@E#R;@^BO'=@@@CRBW@@@/@K@DRR;.@@@P;K@@[CW )@@G@@;GK@@=W8K@@AO;K^BF')I^BY%9K@@_/K@@D*[[K^BXC9K@@ ')I^B=RB/@@@P;0@@[/@0@D6CX )@@G@@R#)^BF;C)@@A:@)^B; 4@^BF @@@@IO;0@@ W8)@@A;*)@@SA#)^@ER;@^@@/,0@C@/K@@E#CY )@@G@@(@@^BX/K@@DQR;@^@@/,0@C0/K@@E#R;@^BT'=@@@J(@@@@G'=@@@DR#@^B0A#@^BP @@^BQCZ )@@G@@R;@^BO'=@@@C'=@@@)R#@^B9A#@^BP @@^BQR;@^BO'=@@@C'=@@@)MFD$ADD @@@@@@DA )@@G@@@C@@@@@#)@@@@@@@@@^@F^#:@@C@@D@@[^BF@@[@@@*[@@@@*SDFF*@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G^BR@@2^BFCONTROL CARD@ASG,T MFD$DC )@@G@@ADD.,F . @@@@@@C5X@@@C1X@@@C!X@@@C(X@@@C>X@@@C-X@@@[5X@@@[1X@@@[!X@@@DD )@@G@@[(X@@@[>X@@@[-X@@@INTERNAL CSF$ ERROR - CALL SYSTEMS @@=^B%INTERNAL ERRDE )@@G@@OR WRITING ADD FILE - CALL SYSTEMS @@0^B1@ADD,L@*MFD,@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@MAIN @@K@@@@@@@@[^@)^[HD9QC*)D[JD-^R#0@@NE[MDDIE)!EL CS!A8!G.0@@=DI )@@G@@@F@@@@^@)^@)^@)^@)/]0^L>C-^^[^C(HCDIC)!AC)R]@^MFD9OCDG (^C(HCDIC)!R_S@@@DJ )@@G@@@F@@@@^@)^@)^@)^@)/K@^LZSDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ DK )@@G@@K@@@@EJ--E[DWIPE$ @@]@@@]R"G#D@B/^@@@@"@DFD9OCDG (^C(HCDIC)!AS,^@)DL )@@G@@@G@@@@^@)^@)^@)^@)^@)^[HD9QC*)A@)E-J^[^C(HCDIC)!*[@@@@*SDFF*@F@@@@@RUN,DDM )@@G@@/RN MFD,0-0040-167OV,SUNSHINE,20,1000 . WHURP! THEY CRIED @#@@@@@TEST DN )@@G@@ TE/00/T2 @#@@@@@JUMP CREATE @]@@@@@ASG,T 4. @^@@_@@XQT SYS$*RUDO )@@G@@N$.OPMFD @]@@@@@JUMP OUT @ @@_@@CREATE:XQT SYS$*RUN$.MFD @]@@@@DP )@@G@@@OUT:FIN ___ELPD0= 1JE[HC1^@#@@@@C[EE(HE@)D9PE))^@)@B_@@@C[#EL CDOC*'DQ )@@G@@F[LE))ETTES= LME(I^),E9D@@@@I@@LW@C@^"?^@@@LW^"?@@@@DX@@@@@[@@@@@@@@@@@XDR )@@G@@@[O@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX@C@@@"^@@@@-^^T@@E^)'DT )@@G@@@@O^+M@@B^"&@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DV )@@G@@R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@ADW )@@G@@GDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@BDX )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DDY )@@G@@'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@DZ )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@EA )@@G@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ EB )@@G@@C5W@@#/ V@@@/KF@@[R7^@@@R3^@@@R\^@@@R:^@@@R$^@@@/!0@DLR<^)@@Q80@@@/KB@@@EC )@@G@@A7A@@@A3A@@@A\A@@@A:A@@@A$A@@@/!0@DUAR;@@@*') )DOR;K@@F')#)DF%8@@@ ') )DO8#K@E?R;@@@(') )DORRK^]I @@@@GEK )@@G@@W8@@[=A#@@@I/@@@E9O;@@@0') )DO @@@@GW8@@@E(@@@@I/@@@E_O;@@@0') )DOR;H@@0EL )@@G@@') )DOR;@@@)') )DOR;@^@=/,0@C@'=@@@)/K@@EE9!0^[;%90@@#'=@@@)R;@@@[A3@^@,EM )@@G@@AB@^@:R;@^^ZAB@^@?R;@^@=/,0@C@'=@@@)/,0@C0'=@@@)R;@^@\R#K^@(L@K^@9AB)^@8EN )@@G@@'=@@[B'=@@[^'=@@@DR#@^^>C@K^^(A#@^^(C@@^^)'=@@@J[@K^^( @@^+M/KF@@[A]0^).EO )@@G@@C@K^++;CK@@ G@K^++C@)^^$ @@@@GW8@@@EG8K@@0;GK@@AC@K@@G/^@@F*[@)^^,R;@^^(EP )@@G@@'=@@@J/^@@I&R;@^+Z'=@@[P/C@@F"R#K@@G;CK@@Y!8K@@8@@@]ES )@@G@@=8@@@^/K@@GR/K@@IY @@@@H;G@@@];*@@@L;?@@@MA#@^^3/K@@I'A]0^).*4@^^2/K@@HWET )@@G@@R#)^+M/@)@I4!@)^+O/K@@I)+8)@@_/^0@G;A#)^^9R#@^^-A#@^^8R;@^^4'=@@@#*4@^^7EU )@@G@@'^@@IUR#K^+PO;K@@#A#K^+PR#X@@@/@K@G!/CK@G;%@K^+X/K@@G!R;@^-6A#@^+PN8K@@VEV )@@G@@&;@@@[R#K^^+M#H)@@R#)^+M;@)@@ +8)@@[O;0@@[O#0^+P;C)@@ZR#J@@@;*I@@@/C@@I:EW )@@G@@R#)^+M+8)@@_T80@@WR#J^^'+@@^^1/@K@I:R#@^^+K@@@@JQ;@^)"N8K@@WM#H)@@O;)@@[EX )@@G@@A#)^+MR;@@@[A7@^^2(^@^^3/K@@HYR#@^^+K@@@@JR]0^).Q#F@@]N8K@@WM#H)@@/KF@@^EY )@@G@@(C@^^3/K@@G)RB@^^2!*@^-B/K@@H7O;@@@[AB@^^2R#@^^<*@G^-D/K@@H9$;@@@K/K@@H=EZ )@@G@@*0@^^2/K@@H2/,0@I9/K@@H7@@@^)'@@@^-U@@@^)"@@@@@@R;@@@[A3@^^2R#@^^<*@G^-VFA )@@G@@/K@@H;$;@@@I/K@@H3 @@^^2/K@@G)O;@^-D/K@@H/O;@^-VR#W@@@ @G@@@A#K^)/R]0^).FB )@@G@@R#V@@]A#K@I /,0@I9/K@@H7/K@^)'@@@@@@@@@^)/@@@@@@R]0^)./KF@@^R#K@@G;*@@@GFC )@@G@@;C@@@Y:8@@@V/K@@ILR;@@@[/K@@I6R#@^^*O;@@@[A#@^^*!8@@@#/K@@IJ/,0@FV@@@@@@FD )@@G@@R]0^)./K@@F=/K@@@@R;@@@]R#K^^7/K@@I6R;@@@D/K@@I-R;@@@#R#K^+N;*K@@AA#@^+MFE )@@G@@ @@@@H/K@@I6-@@^^=/@K@F"R#K@@GR;@@@^/K@@I6R#)^+MO;)@@[A#)^+M/K@@GYR#K^+MFF )@@G@@O;K@[@-8K@@_A#)^+M/K@@GYR;@@@ @@@@HR]0^).9*FK@[/KFK@@/K@@J%R;@^+='=@@@-FG )@@G@@R7K^+=R;@@@C/^K@LGRV@^6:/@@@J^R;@@@#A7@^"(A7@^"%R#@O+RP#@O+Q;C@@@A!8@@O[FH )@@G@@/K@@LER#0^+TR#@O+QA#J@@ R#@^+S&;@@@VA#J@@^R#K^":&;)@@#R;J@@@'=@@@#*4J@@#FI )@@G@@'^@@LNQ#)^+SR#I)@@/@@@JQ/C@@JW%@@^+X/K@@JQ/K@@J-A#H)@@R#J@@ O;@@[@A#J@@ FJ )@@G@@/K@@JQR#J@@ ?@@O+R/K@@JLR;H@@@P;@^+&A#@^+>R;@@@WAFJ@@^/KF@@ ^@K^"&*@@^+>FK )@@G@@(@@O+Q/K@@LT^@)^"$A[@^"*R#FK@#/@@@LIR#K@@G;CK@@S+8K@#_=8)@]@/K@@KZR;K^6&FL )@@G@@RV.@@C*S@^6:RV.@@AO#K@@JO#K@@IRR!@@@O;)^6&R7"@@@!80@@S/K@@KZQ9@^+&&9@@@[FM )@@G@@R#O)@@+@K^"(P;)@@[K8)@W@+@@^"(\@)@@H/K@@KLR#0^+>O;0^+&O;0@@[:84@@@/K@@LIFN )@@G@@/K@@K^R;4@@@P;0@@[O;)@@[P#K@@I1@J@@@/K@@KU+@@^"?PBZ@@@/GK@KF @@@@GW8@@@WFO )@@G@@/^K@LIA#@@@H/K@@K!Q9@^+&&9@@@[R#)^+>A#)@[[N@)^"%9@^)@@/K@@LIN@K^"&N@)^"$FP )@@G@@+@@^"?R;4@@@P;0@@[PBZ@@@A#K@@GP;0^+&R[@^"*O#0O+U;*0@@AO#@@@JR#0^+TA#J@@ FQ )@@G@@R#)O+QP;)@@[;C)@@A;C@@@A:@@@@I/K@@L]R#F@@]&;@@@WA#J@@^R;J@@@'=@@@#*4J@@#FR )@@G@@'^@@LN/KF@@ T8K@@WO#K^+Y&;K@@[R#F@@]&;@@@[N8K@@WM#H)@@/KF@@ R;@@@AR;K@@@FS )@@G@@9*FK@[/KFK@@R;@@@BR#VK@#R[@^"*9*FK@[/KFK@@/K@@@@R;@@@]R#K^+TR#X@@#9*FK@[FT )@@G@@/KFK@@R;@@@ @@@@H9*FK@[/KFK@@HELLO, THIS IS THE SECURE LOAD@@@@ PROGRAMFU )@@G@@I%M GONNA ASK YOU WHAT TAPES YOU WANNA USEWHEN YOU RUN OUT OF NUMBERS ANFV )@@G@@SWR %NOMORE%@@@@@@@@%^@@@@@@@@*SDFF*TAPE NUMBER?@@@@@@@@G^@T@@A^]5@ASG,TFW )@@G@@ ZOOM,F @@#^@Y@@@@@^@@@@@@ZOOM @@@@@@@C@@@@@@W@@@@@@@@@^[#^[ZFX )@@G@@@@[@@[@@[^@S@@[@@@*[@@@@ZOOM ZOOM @@@@@@@@[@@@ FY )@@G@@@ @@@[C@@@@@@@@@@@@@@@@@LOAD FILE @@[^]5NOMORE@@[@@@ @@[^["FZ )@@G@@@@[^@"END @@^^^(@W@^^'@@[^^'@@[@@@C@@@@@@FREE / @@@@@@@ASG,TGA )@@G@@ $$--DGET--$$,F/ /2000 . C@@@@@@@@@@@@@@@@@$$--DGET--$$GB )@@G@@@@@@@@@K@@@@@@W^-6@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^+M@@@^+O@@@^-6@@@^^4@@@^+N@@@@@@GD )@@G@@@@@@@@5?65?6@@@^^'@@@@@H$$--DGET--$$@@@@@@^^'^+&@@@^6&@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@[_____[____@@@[^+&@@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@MAIN @@Z@@@@@@@@[R#@^]OK@K^]NAB)^]RR#0@@NCDY@@]%9K@@[/K@@N!G.0@@=GH )@@G@@&B\@@D/K@@N, @@@@K/]0^L>CDY@@[H9K@@]G[I)@[R]@^MF/KJ@@@CDI@@^CPK^]XR_S@@@GI )@@G@@%9K@@]/K@@ONG9@@[\/K@^LZSDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ GJ )@@G@@K@@@@EJ--E[DLOAD @@]@@KNO]]#E@^)^@@@]K@DFDIREC$ @@ @@TNHX]#EGK )@@G@@@@ ^^)@#Y@FV@@@@@@@@@@@@@X_^^>DIRLNK @@]@@@L=:[TE@WD^+=@]=@I9*WJ@@#GL )@@G@@!4J@@[/K@@O.9!@^]S[[J@@I[ Z@@J/K@[CV/K@@O6AB0@Q:(@J@@F/K@@R0C5J@@]:9@@@#GM )@@G@@/K@@O*RB_@@@'^@[CERB0@Q:C J@@@[ @@Q[C J@@E[ @^]U[[@^]KC1J@@][ @@R CXJ@@EGN )@@G@@@@@@IW@L8@C@^".^@@@L8^".@^@@DX@@@@@[@@@@@@@@@@@Y@[O@@W@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@D9@C@@[I^@@@@+^^(@@E^-F@@O^+<@@B^"7@@@___@@@___GQ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___R#W@@DR#?@@EA#!)@@;K)@@SGS )@@G@@/C)@CAR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@AGDW@@^H[@@@L/D@@CNN^W@@BGT )@@G@@M#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@BGU )@@G@@[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@CDRBW@@AGV )@@G@@ABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#'=@@@AC[W@@ GDW@@BGW )@@G@@[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@PBW@@AO;K@@[;GK@@=W8K@@WGX )@@G@@/@)@D]O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ C5W@@#/ V@@@/KF@@[R7^@@@GY )@@G@@R3^@@@R\^@@@R:^@@@R$^@@@/!0@DLR<^)@@Q80@@@/KB@@@A7A@@@A3A@@@A\A@@@A:A@@@GZ )@@G@@A$A@@@/!0@DUA'=@@@CR;K^@KABK^@&'=@@@CR;K^@RABK^@&HA )@@G@@'=@@@CR;@^@:R#K^^(R;0@[<'=@@@CR#!)@@ABK^@!%@)^^%8#0@D*P;K^#AN9.@@@R;@^@YHB )@@G@@AB@^@&R#@^^:A#@^@$R;@^@>'=@@@CR7K^@@:8K@@Y/K@@D;%8K@@N/K@@D4 @@^@@/,0@F_HC )@@G@@/K@@FW@@@^]F@@@^@2@@@^@3@@@@@@R#@^@1'=@@@J0@@@@G'=@@@)'=@@@?;)@@@MA#@^[EHD )@@G@@R;@^@_'=@@[CA#K^@9A#K^[DR;@^@4/,0@C$/,0@C@'=@@@)R;K@@CAZK^@"ABK^@;R;@^[FHE )@@G@@AB@^@/C;0@@K/,0@G9/K@@FW@@@^]F@@@^]H@@@@@@>70^]T/K@@EQ/,0@JP/K@@EQ@@@^]FHF )@@G@@@@@^](@@@^]U@@@@@@R#@^]4^[0@[[R@)^^?2@]=# /K@@E(/K@@E1CW@^]0:8@@@[/K@@EQHG )@@G@@C@@^]5^[0@[[R@)^^?2@]=# /K@@EQR#@^^!R;K@@^A#H^[I8#K@E3R@0^^?R[@^^,R[K^^?HH )@@G@@R[)^^\R;K@@F')#)DF%8@@@ ') )DO8#K@E'R;@@@*') )DOR;K@@F')#)DF%8@@@ ') )DOHI )@@G@@8#K@F[R;@@@(') )DORRK^]Y @@@@GW8@@[=A#@@@I/@@@FIO;@@@0') )DO @@@@GW8@@@EHJ )@@G@@(@@@@I/@@@FOO;@@@0') )DOR;H@@0') )DOR;@@@)') )DOR;@^@4/,0@C@'=@@@)/K@@EQHK )@@G@@9!0^]F%90@@#'=@@@)(@@^@@/K@@F&R;@^@[AB@^@/R;@^@4/,0@C@'=@@@)R;@@@[A3@^@"HL )@@G@@AB@^@;R;@^^0AB@^@/R;@^@4/,0@C@'=@@@)/,0@C0'=@@@)R;@^@_R#K^@9L@K^[DAB)^[CHM )@@G@@'=@@[B'=@@[^'=@@@DR#@^^6C@K^^'A#@^^'C@@^^1'=@@@J[@K^^' @@^+R;@^+ZA#@^+&R#@^+,A#@^+BA#@^++R#FK@]>8@@@]HR )@@G@@=8@@@^/K@@G3/K@@I' @@@@H;G@@@];*@@@L;?@@@MA#@^ ^/K@@JQA]0^-I*4@^ #/K@@H8HS )@@G@@R#)^+/K@@I/+8)@@_/^0@HRA#)^ ER#@^^2A#@^ DR;@^ '=@@@#*4@^ CHT )@@G@@'^@@I6R#K^+&O;K@@#A#K^+&R#X@@@/@K@HD/CK@HR%@K^+,/K@@HDR;@^+BA#@^+&N8K@@VHU )@@G@@&;@@@[R#K^^3M#H)@@R#)^+<;@)@@ +8)@@[O;0@@[O#0^+&;C)@@ZR#J@@@;*I@@@/C@@JBHV )@@G@@R#)^+<+8)@@_T80@@WR#J^ F+@@^ ]/@K@JBR#@^^3K@@@@JQ;@^-JN8K@@WM#H)@@O;)@@[HW )@@G@@A#)^+@@@^+B@@@^ @@@^+=@@@@@@@@@@@@5?65?6@@@^ F@@@@@H$$--DGET--$$@@@@@@JE )@@G@@^ F^+7@@@^67@@@@@@@@@@@@@@@@@@@@@@@@[_____[____@@@[^+7@@@___@@@@@@@@@@@@JF )@@G@@MAIN @@Z@@@@@@@@[!4J@@[/K@@O.9!@^]SR#0@@N[ Z@@J/K@[CV/K@@O6G.0@@=JG )@@G@@(@J@@F/K@@R0C5J@@]/]0^L>/K@@O*RB_@@@'^@[CER]@^MFC J@@@[ @@Q[C J@@ER_S@@@JH )@@G@@[[@^]KC1J@@][ @@R /K@^LZSDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ JI )@@G@@K@@@@EJ--E[DMERGE @@]@@KNO,]#E@^1^@@@]?@DFDIREC$ @@ @@TNHX]#EJJ )@@G@@@@ ^^1@#Y@F7@@@@@@@@@@@@@X_^^6DIRLNK @@]@@@L=:[TE@WD^+5@]=@JP/,0@Q;JK )@@G@@/,0@R@RA0@QQ/\)@CORB@^#JO#@^]N')@@Q)R#K@@#RA0@Q-/\)@COO80@@[O8)@@@P8K@@[JL )@@G@@*@@@@[/K@@P@@@@@@ @@@@Q>70^[0=7)^[1/K@@E#/K@@D90@@^[1/K@@EJ(@@^[\/K@@EJC')@@[KC )@@G@@/K@@EJ9?@^@[9*@^@=R;@^@H/,0@C@'=@@@)/K@@D9R#@^][R;K@@^A#H^@&8#K@ELR@0^]]KD )@@G@@R[@^]#R[K^]]R[)^]^R;K@@F')#)DF%8@@@ ') )DO8#K@ESR;@@@*') )DOR;K@@F')#)DFKE )@@G@@%8@@@ ') )DO8#K@EZR;@@@(') )DORRK^[6 @@@@GW8@@[=A#@@@I/@@@E?O;@@@0') )DOKF )@@G@@ @@@@GW8@@@E(@@@@I/@@@E2O;@@@0') )DOR;H@@0') )DOR;@@@)') )DO/A)@ED9?@^@#KG )@@G@@9*@^@=R;@^@H/,0@C@'=@@@)9?@^@ 9*@^@=R;@^@H/,0@C@'=@@@)/K@@D99!0^[<%90@@#KH )@@G@@'=@@@)R;@^@H/,0@C0'=@@@)R;@^@SR#K^@ML@K^@+AB)^@-'=@@[B'=@@[^'=@@@DR#@^]EKI )@@G@@C@K^]IA#@^]IC@@^] '=@@@J[@K^]I @@^Z7/KF@@[A]0^Y+C@K^)B;CK@@ G@K^)BC@)^]GKJ )@@G@@ @@@@GW8@@@EG8K@@0;GK@@AC@K@@G/^@@FW[@)^]NR;@^]I'=@@@J/^@@IUR;@^)^'=@@[PKK )@@G@@/C@@F2R#K@@G;CK@@Y!8K@@8@@@]=8@@@^/K@@GF/K@@IM @@@@HKN )@@G@@;G@@@];*@@@L;?@@@MA#@^]S/K@@I,A]0^Y+*4@^]R/K@@HKR#)^Z7/@)@I*!@)^Z9/K@@IOKO )@@G@@+8)@@_/^0@G\A#)^]YR#@^]AA#@^]XR;@^]T'=@@@#*4@^]W'^@@IIR#K^Z'O;K@@#A#K^Z'KP )@@G@@R#X@@@/@K@G-/CK@G\%@K^)]/K@@G-R;@^ZVA#@^Z'N8K@@V&;@@@[R#K^]BM#H)@@R#)^Z7KQ )@@G@@;@)@@ +8)@@[O;0@@[O#0^Z';C)@@ZR#J@@@;*I@@@/C@@IZR#)^Z7+8)@@_T80@@WR#J^]ZKR )@@G@@+@@^]Q/@K@IZR#@^]BK@@@@JQ;@^Y+@)^L2:@0^L3/K@[I;R]@^MF/K@[I_:@0^L5/K@[JXR_S@@@LZ )@@G@@/K@[J0:@0^L7/K@[J_/K@^LZSDFO K@]@@AD>G^X @@@@@@@[F@C@ERU$ MA )@@G@@K@@@@EJ--E[DHDISAB @@]@@KNP^]#E@] ^@@@]^@DFDIREC$ @@ @@TNHX]#EMB )@@G@@@@ ^] @#Y@FJ@@@@@@@@@@@@@X_^]EDIRLNK @@]@@@L=:[TE@WD^)D@]=@I!/,)[L!MC )@@G@@'^@[H:'^@[LO'^D[G%&;)[@@[@:)@@'^@[H:'^@[LO'^D[G%&;)]@@[@:)@@'^@[H:'^@[LOMD )@@G@@'^D[G%G8) @@ @@^L?[C)^L?'^@[H:'^@[LO'^D[G%G@)^L?[@:)@@/K@[GY/K@[G%/K@[G%ME )@@G@@@@@@I@@L4@C@^;3^@@@L4^;3@@@@EX@@@@@[@@@@@@@@@@@X@[O@@W@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@D5@C@@@E^@@@@N^@&@@0^[L@@E^Y[@@O^ZT@@B^;!@@@___MH )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___MI )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___A^W@@#A@?@@^A@/@@ Q8W@@@MJ )@@G@@N?L@@@R@)@EVR^1@@@&80@@[C8@@EWM@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^A@/@@ MK )@@G@@Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#ML )@@G@@R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@C>[)<)@@A^-@@]Q8)@@@MM )@@G@@/K[K@]C8?@@@')])CZ/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@MN )@@G@@H^L@@@T8K@@AG8H@@@/K@@C?C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@D@C80@@FMO )@@G@@;^@@[]+8K@@_%8)@@ :8)@@@/K@@DA')])CZ8#0@D@/KF@@@&"0__"/K@@DF&'0@@@C8.@@@MP )@@G@@;G@@@M;CK@@M&;@@@[&;K@@[8#0@DM/KF@@@')G)D&0@@@@F%8)@@@')])CZ/K@@DKC?[@@[MQ )@@G@@C^L@@[/K@@DW;G@@@M;CK@@M&;@@@[&;K@@[')G)D&:0-@@@/K@@D<')])CZ/K@@DY[?[@@[MR )@@G@@[^L@@[/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@D?C)!)@@[^[@@]Q;@@@@/K[K@]MS )@@G@@C80@@@;G@@@#/@@@D8G80@@[;G@@@#/^@@D3C8)@@0')])CZC8)@@@;=K@@#G8)@@0')])CZMT )@@G@@8#0@D8/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@D8C8K@@@N8X@@@C80@@@;O@@@=W8@@@EMU )@@G@@E/X@@@;?)@@AG8.@@08KK@EG/^@@EA/C@@EL;?)@@AG80@@-8KK@ELC@K@@IC8)@@ /K@@EPMV )@@G@@')])CZ8KK@EOC@)@@J')])CZ;GK@@A/^)@ER/KF@@@@@[@@@ /,0@F;@@@@F<@@@^@=MW )@@G@@@@@^[-@@@^[+@@@@@@/,0@G5@@@@F<@@@^@=@@@^@B@@@@@@1@@^@M/K@@E'=@@@I'=@@@QC/@^@3/,0@C@C8@^[RNB )@@G@@/,0@DUC@@^@'=@@@I/K@@E<9!0^@=:90@@#'=@@@DC/@^@3/,0@C@NC )@@G@@C8@^[L/,0@DUC@@^@=/,0@E#/,0@DRC@@^@>/,0@E#/,0@CRR#@^[&'=@@@I'=@@@QR#@^[?ND )@@G@@C@K^[0A#@^[0C@@^[$'=@@@J[@K^[0 @@^ZT/KF@@[A]0^Y^C@K^Z(;CK@@ G@K^Z(C@)^[,NE )@@G@@ @@@@GW8@@@EG8K@@0;GK@@AC@K@@G/^@@G@[@)^[5R;@^[0'=@@@J/^@@I"R;@^Z&'=@@[PNF )@@G@@/C@@GQR#K@@G;CK@@Y!8K@@8@@@]=8@@@^/K@@G\/K@@I6 @@@@HNI )@@G@@;G@@@];*@@@L;?@@@MA#@^['/K@@JMA]0^Y^*4@^[9/K@@H4R#)^ZT/@)@JG!@)^ZV/K@@I8NJ )@@G@@+8)@@_/^0@HNA#)^]@R#@^[*A#@^[_R;@^[;'=@@@#*4@^["'^@@I2R#K^ZWO;K@@#A#K^ZWNK )@@G@@R#X@@@/@K@H /CK@HN%@K^Z=/K@@H R;@^Y.A#@^ZWN8K@@V&;@@@[R#K^[(M#H)@@R#)^ZTNL )@@G@@;@)@@ +8)@@[O;0@@[O#0^ZW;C)@@ZR#J@@@;*I@@@/C@@J#R#)^ZT+8)@@_T80@@WR#J^][NM )@@G@@+@@^[8/@K@J#R#@^[(K@@@@JQ;@^Y N8K@@WM#H)@@O;)@@[A#)^ZTR;@@@[A7@^[9(^@^['NN )@@G@@/K@@H6R#@^[(K@@@@JR]0^Y^Q#F@@]N8K@@WM#H)@@/KF@@^(C@^['/K@@G8RB@^[9!*@^YINO )@@G@@/K@@IJO;@@@[AB@^[9R#@^[%*@G^YK/K@@IL$;@@@K/K@@H/*0@^[9/K@@IE/,0@JL/K@@IJNP )@@G@@@@@^Y[@@@^Y-@@@^Y @@@@@@R;@@@[A3@^[9R#@^[%*@G^Y+/K@@IN$;@@@I/K@@IF @@^[9NQ )@@G@@/K@@G8O;@^YK/K@@IOO;@^Y+R#W@@@ @G@@@A#K^Y#R]0^Y^R#V@@]A#K@IX/,0@JL/K@@IJNR )@@G@@/K@^Y[@@@@@@@@@^Y#@@@@@@R]0^Y^/KF@@^R#K@@G;*@@@G;C@@@Y:8@@@V/K@@I(R;@@@[NS )@@G@@/K@@JIR#@^[\O;@@@[A#@^[\!8@@@#/K@@I$/,0@F3@@@@@@R]0^Y^/K@@F//K@@@@R;@@@]NT )@@G@@R#K^["/K@@JIR;@@@D/K@@I9R;@@@#R#K^ZU;*K@@AA#@^ZT @@@@H/K@@JI-@@^[:/@K@GQNU )@@G@@R#K@@GR;@@@^/K@@JIR#)^ZTO;)@@[A#)^ZT/K@@G6R#K^ZTO;K@[@-8K@@_A#)^ZT/K@@G6NV )@@G@@R;@@@ @@@@HR]0^Y^9*FK@[/KFK@@/K@@K]R;@^Z:'=@@@-R7K^Z:R;@@@C/^K@L=RV@^32NW )@@G@@/@@@JWR;@@@#A7@^;0A7@^;1R#@OZYP#@OZX;C@@@A!8@@O[/K@@L+R#0^Z)R#@OZXA#J@@ NX )@@G@@R#@^ZZ&;@@@VA#J@@^R#K^;2&;)@@#R;J@@@'=@@@#*4J@@#'^@@L:Q#)^ZZR#I)@@/@@@J,NY )@@G@@/C@@J4%@@^Z=/K@@J,/K@@J9A#H)@@R#J@@ O;@@[@A#J@@ /K@@J,R#J@@ ?@@OZY/K@@J(NZ )@@G@@R;H@@@P;@^Z!A#@^Z?R;@@@WAFJ@@^/KF@@ ^@K^;!*@@^Z?(@@OZX/K@@L1^@)^;,A[@^;\OA )@@G@@R#FK@#/@@@L&R#K@@G;CK@@S+8K@#_=8)@]@/K@@K7R;K^3!RV.@@C*S@^32RV.@@AO#K@@JOB )@@G@@O#K@@IRR!@@@O;)^3!R7"@@@!80@@S/K@@K7Q9@^Z!&9@@@[R#O)@@+@K^;0P;)@@[K8)@W@OC )@@G@@+@@^;0\@)@@H/K@@K(R#0^Z?O;0^Z!O;0@@[:84@@@/K@@L&/K@@KWR;4@@@P;0@@[O;)@@[OD )@@G@@P#K@@I1@J@@@/K@@K2+@@^;3PBZ@@@/GK@K< @@@@GW8@@@W/^K@L&A#@@@H/K@@L Q9@^Z!OE )@@G@@&9@@@[R#)^Z?A#)@[[N@)^;19@^)@@/K@@L&N@K^;!N@)^;,+@@^;3R;4@@@P;0@@[PBZ@@@OF )@@G@@A#K@@GP;0^Z!R[@^;\O#0OZ-;*0@@AO#@@@JR#0^Z)A#J@@ R#)OZXP;)@@[;C)@@A;C@@@AOG )@@G@@:@@@@I/K@@LUR#F@@]&;@@@WA#J@@^R;J@@@'=@@@#*4J@@#'^@@L:/KF@@ T8K@@WO#K^Z>OH )@@G@@&;K@@[R#F@@]&;@@@[N8K@@WM#H)@@/KF@@ R;@@@AR;K@@@9*FK@[/KFK@@R;@@@BR#VK@#OI )@@G@@R[@^;\9*FK@[/KFK@@/K@@@@R;@@@]R#K^Z)R#X@@#9*FK@[/KFK@@R;@@@ @@@@H9*FK@[OJ )@@G@@/KFK@@MSCNPK0@#^@#@@@@@@@@@@@SINTERNAL @@@@@D@@@@@@@@@@@@@@@@@@@ASG,AOK )@@G@@QY INTERNAL . @FREE INTERNAL @&G^[ @@@@@@[[@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@&G^@9@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@DIREC$ ERROR: TYPE & CODE & OM )@@G@@FAC REJECT: & MSCON$ ERROR: & @USE INTERNAL,& @@@@@^@@@@@@ON )@@G@@@[D^[C@@G^[ @]G^@9@[G^@9@@^^[0@W@^][@@[^][@@[@@@C@@@@@@FREE / OO )@@G@@@@@@@@@ASG,T $$--DGET--$$,F/ /2000 . C@@@@@@@@@@@@@@@@@OP )@@G@@$$--DGET--$$@@@@@@@K@@@@@@W^Y.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^ZT@@@^ZV@@@^Y.@@@^[;OR )@@G@@@@@^ZU@@@@@@@@@@@@5?65?6@@@^][@@@@@H$$--DGET--$$@@@@@@^][^Z!@@@^3!@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@[_____[____@@@[^Z!@@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @@Z@@@@@@@@[OU )@@G@@@@@@@@@[F@C@ERU$ R#0@@NK@@@@EJ--E[DHDISABG.0@@=@@]@@KNP^]#E@] ^@@/]0^L>OV )@@G@@DIREC$ @@ @@TR]@^MF@@ ^] @#Y@FJ@@@@@@R_S@@@@X_^]EDIRLNK /K@^LZOW )@@G@@ERU$ K@@@@^J--E[DEDIT$ K@]@@EHJGGC^@@@@@@@]X@C@DISAB OX )@@G@@@@]@@KNP=]#E@[$^@@@[Q@EXDIREC$ @@ @@TNHX]#E@@ ^[$@#Y@F3@@@@@@@@@@@@OY )@@G@@@X_^[?DIRLNK @@]@@@L=:[TE@WD^Z:@]=@JL;^K@@=/@K[G?G8)@@[ @@@@H/K@[G?OZ )@@G@@R'K@@]/K@[GI[@)^L>C8)@@0 @@^L?[4)^L?'^@[H::8)@@D[0)^L?:8)@@T[?)^L?:8)@@FPA )@@G@@[*)^L?/K@[G'C8K@@S/,)[L!C8K@@C/,)[L!C8K@@D/,)[L!*[@@@@*SDFF*@C@@@@@RUN,DPB )@@G@@/E COMCN,8-1961-805,NYUMED,120,300/200 @#@@@@@ADD HISRUN.NEWSYS___ 9 PC )@@G@@^@)CTJD(#D0?B@!AC9A01 *8A@5CDM -IFDPD( C)?AC2A@?A*0 82A@0^@)@F_@_@C[ME(IPD )@@G@@*[@@@@*SDFF*@F@@@@@RUN,A/X RECOV,0-0040-167OV,SUNSHINE,20,2000 . **ALLEZPE )@@G@@ OUP! ** @[@@@@@COND @[@@@@. @ @@@@. CONDITION WORDS: PF )@@G@@@[@@@@. @]@@@@. S3@]@@@@. --@A@@@@. 00 - STAPG )@@G@@RTED BY SUNNY @A@@@@. 01 - STARTED BY OPERATOR @[@@@@. PH )@@G@@@[@@@@. @]@@@@. S4@]@@@@. --@A@@@@. 00 - NO PI )@@G@@SWITCHES DRUM @A@@@@. 01 - NO SWITCHES TAPE @ @@@@. PJ )@@G@@ 02 - SW 4 DRUM ??? @^@@@@. 03 - SW 4 TAPE@ @@@@. 04PK )@@G@@ - 4/13 DRUM ??? @^@@@@. 05 - 4/13 TAPE@ @@@@. 06 - SW PL )@@G@@14 DRUM @ @@@@. 07 - SW 14 TAPE @ @@@@. 10 - 4/1PM )@@G@@4 DRUM ??? @^@@@@. 11 - 4/14 TAPE@[@@@@. @[@@@@. @E@@@@PN )@@G@@@TEST TE/00/S3 . OPERATOR RESTART? @C@@@@@JUMP PO )@@G@@OK . YES @#@@@@@ASG,A SYS$*RUN$. @G@@@@PP )@@G@@@XQT SYS$*RUN$.RECOV . NO, ASK OP ABOUT THE BOOT PQ )@@G@@@E@@@@@TEST TNE/0/S6 . DID THAT GO OK? @D@@@@PR )@@G@@@JUMP OK . GUESS SO @G@@@@@PMD,ABL PS )@@G@@ . NO, GET OODLES OF PRINTOUT @[@@@@@COND PT )@@G@@@D@@@@@HDG,N .S,RECOV FAILURE, GIVE PRINTOUT TO SYSTEMS @#@@@@@BRKPTPU )@@G@@ PRINT$ @[@@@@@OK: @F@@@@@TEST TG/3/S4 . PV )@@G@@NO SW, OR JUST SW 4? @E@@@@@JUMP RT . PW )@@G@@YES, FILES ARE OK @D@@@@@TEST TE/7/S4 . SW 14 PX )@@G@@TAPE ?@D@@@@@TEST TNE/6/S4 . SW 14 DRUM ?@F@@@@PY )@@G@@@JUMP RT . YES, FILES STILL OK. @C@@@@PZ )@@G@@@TEST TE/10/S4,TE/11/S4 . 4/14? @C@@@@@JUMP G QA )@@G@@ . NO, 4/13 @H@@@@@XQT SYS$*RUN$.HDISAB QB )@@G@@ . YES, DELETE ALL HDWR DISABLED FILES @^@@@@@EDQ,P ZOOM.ZOOM,.ZOOM QC )@@G@@@]@@@@LCD *PR@ @]@@@@LCD *PU@ @]@@@@LCD GENF$ @#@@@@LCD SWAP$FILQD )@@G@@E @#@@@@@PRT,S ZOOM.ZOOM @[@@@@@TALK @C@@@@THE FOLLOWING FILES CANNQE )@@G@@OT BE ENABLED/REVERTED; @C@@@@BECAUSE THEY HAVE NO CURRENT SECURE BACKUPQF )@@G@@S; @ @@@@>>>> NOTIFY THE PROGRAMMERS.; @#@@@@@ADD,P ZOOM.ZOOM @]@@@@QG )@@G@@@FREE ZOOM.@[@@@@@TALK @B@@@@ALL HARDWARE-DISABLED FILES WITH CURRENT; QH )@@G@@@A@@@@SECURE BACKUPS HAVE BEEN DELETED.; @ @@@@REGSTR WILL RESTORE THEMQI )@@G@@.; @F@@@@@START,/RXN SYS$*RUN$.REGSTR,1400 . REGISTER ALL THE FQJ )@@G@@ILES @^@@@@@MSG REGSTR STARTING @B@@@@@G:MSG YOU MAY NOW RUN JOBS THQK )@@G@@AT DONT USE @ @@@@@MSG ANY CATALOGUED FILES @G@@@@@JUMP H QL )@@G@@ . SKIP R/T START ON 4/13 OR 4/14@[@@@@@RT: @D@@@@QM )@@G@@@MSG PLEASE START R/T IF I HAVEN'T ALREADY DONE SO. @[@@@@@H: @A@@_@QN )@@G@@@ENABLE,C CONFR$*CONFERENCE$. @F@@@@@SECURE,R QO )@@G@@ . LIST DISABLED FILES, EVERY BOOT @[@@@@@FIN ___RECOV,0-0040-167OV,SUQP )@@G@@NSHINE,20,2000 . **ALLEZ OUP! ** @[@@@@@COND @[@@@@. @ @@@@. QQ )@@G@@ CONDITION WORDS: @[@@@@. @]@@@@. *[@@@@*SDFF*@G@@@@@RUN,DQR )@@G@@ CNVERT,0-0040-167OV,SUNSHINE,9,999 . ***PACK CONVERSION*** @#@@@@QS )@@G@@@ASG,AD CON*VERT. @#@@@@@EDQ,P CON*VERT. @]@@@@C /@/?/9999 @[@@@@@EOF QT )@@G@@@^@@@@@ASG,A KURLAND*CONVERT @ @@@@@XQT KURLAND*CONVERT.CONVERT @#@@@@QU )@@G@@@ADD CON*VERT. @]@@@@@PMD,PE @[@@@@@FIN ___@@@ 0)A@1A@1^@!^[^DDMQV )@@G@@E1 EK?^[KELDD1OD9PE))E-J======@@^@@ @@@@@@@@@@@@@@ [SW@@@@@]@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NCHDGE70-1 @@@@]@@@@@#8@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@[C@@A@@A@@%@]H@@@@@A@@^@@@[2*@@@@@@@^@@@]@^@F@[@ @@@]K^@G@)QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@[Q5@C@)[F[Y5@@@___@]H^@@@[A^]R@[S^#$@@"^A\@@E^C\@] ^EO@@E^G7@@G^H*@@Z^H"RB )@@G@@@@0^I!@@+^:X@@E B_@@M DR)@E^]H)@E^#X)[0^^_)[]^B!)[V^C9)@Y^GT)@$^H[)@E^H4RC )@@G@@)@K^IX)W@^JX)W@^:_)[I CDR#0@C"C[@@C./K@@C^9?0@C.AB:@@ 9*;@@@Q;0@C;A#;@@]RD )@@G@@[@V@@# @F@@^;@@@@9@@C@R;@@@+:9@_8@SA )@@G@@R;@@@:/K@@GORBD@@[T8@WWWO;@@@)/K@@GOC9@@@DC9K@@^[1U@@@/K@@FMRB%@@]O;)@@^SB )@@G@@A#)^GRR;K@@-/,0@8"/K@@G\RBG@@@A#@^GR/KEK@@C9@@M1(4E@@@/?K@9$&;)@@]&'0@@[SC )@@G@@R#'@@[C[@^]D&;@C[G&'KN@)/K@@H+C9@@M6/?K@9$0@J@@@/K@@G9R\Z@@@C[K^]E:8K@@DSD )@@G@@G.K@@#QA_@@@N^Z@@[(@J@@]/K@@HIQ'Z@@]A]Y@@@O;)@@[&;K<[HQ;F@@@Q;V)@@9*I)@@SE )@@G@@&;KC[X/K@@HQ&;KC[X0@J@@]/K@@HNO'0@@[/K@@HRQ;F@@@Q;V)@@9*I)@@9(I)@@8KK@HNSF )@@G@@(@J@@#/K@@H+Q'Z@@#A]Y@@@O;)@@[&;K<[HQ;F@@@Q;V)@@9*I)@@9(I)@@$B'@@]/K@@G;SG )@@G@@R#@^]FA#I@@@O;)@@[/KEK@@?[@@@L/KF@@@/KF@@[![@@@L/KF@@@/KF@@[(4E@@@/KF@@@SH )@@G@@AA'@@@R'0@@@ABE@@#/K@@H'(4E@@@/KF@@@AA'@@@R'0@@[ABE@@#/\@@I@R#'@@[R;@)@[SI )@@G@@*0E@@@'=@@[\RFE@@]/K@@IWR#'@@[C[@^]G/K@@IJR#%@@#OB\@@@E^Z@@[0@J@@#O;K@@[SJ )@@G@@0@J@@]/K@@IGO;)@@[/K@@II-[I@@@[[Y)@@8#K@IG$B'@@]/K@@I#/KG@@@RFZ@@[R2Z@@@SK )@@G@@R#%@@#OB\@@@N^Z@@[/KH@@@C9@@@[;[D@@[-[I@@@[[Y@@@$B'@@]/K@@IM/KF@IZ/\@@I@SL )@@G@@R;@@@[*0E@@@'=@@[\/KEK@@')D@J"%8K@@-/K@@IWC[J@@]-[I@@@/K@@I:D[Y@@@[[Y)@@SM )@@G@@8KK@I%C[J@@#/K@@IUC9@@@[;[D@@[+[I@@@')F@I4/K@@I$/[K@IU/ K@IUCDX@@@C X@@@SN )@@G@@K4I@@@')F@I6[5Y@@@K0I@@@')F@I6[1Y@@@K?I@@@')F@I6[!Y@@@K*I@@@')F@I6[(Y@@@SO )@@G@@K=I@@@')F@I6[>Y@@@K)I@@@')F@I6[-Y)@@8KK@I8/KD@JFK=I@@@')F@I6[>Y@@@K*I@@@SP )@@G@@')F@I6[(Y@@@K?I@@@')F@I6[!Y@@@K0I@@@')F@I6[1Y@@@K4I@@@')F@I6[5Y@@@/K@@IWSQ )@@G@@K0I@@@')F@I6[1Y@@@/K@@IWK0I@@@')F@I6[1Y@@@K?I@@@')F@I6[!Y@@@/K@@IWK0I@@@SR )@@G@@')F@I6[1Y@@@K?I@@@')F@I6[!Y@@@K*I@@@')F@I6[(Y@@@/K@@IWK0I@@@')F@I6[1Y@@@SS )@@G@@K?I@@@')F@I6[!Y@@@K*I@@@')F@I6[(Y@@@K=I@@@')F@I6[>Y@@@/K@@IWR7Y@@@R3Y@@@ST )@@G@@R\Y@@@R:Y@@@R$Y@@@RY@@@[-Y@@@O#)@[[0@J@@#SU )@@G@@O;)@@[')D@J"')F@KL')D@K^/K@@KZCDX^@DC X^@D')D@K%')F@K4')D@K\R6Z@@@O#)@[[SV )@@G@@0@J@@#O;)@@[')D@K&!8K@["/K@@IW')F@K=')D@K\>9K@^@/K@@IWR#%@@#OB\@@@/K@@I$SW )@@G@@CXX^@DCTX^@DRZY@@@RNY@@@RVY@@@RRY@@@CXI@@@CLI@@@CTI@@@CPI@@@CXI@@[[XY@@@SX )@@G@@[LY@@@[TY@@@[PY@@@[XY@@[)9@@^@-9@@^@')D@K:')F@K4')D@K0')D@K&%8K@@!/K@@IWSY )@@G@@/K@@I$RFE@@^/KD@K_KWI@@@')F@I6?^U@@^[XY@@@KKI@@@')F@I6?^U@@^[LY@@@KSI@@@SZ )@@G@@')F@I6?^U@@^[TY@@@KOI@@@')F@I6?^U@@^[PY@@@O;)@@[8KK@K_R7Z@@@/KH@LMKSI@@@TA )@@G@@')F@I6?^U@@^[TY@@@KKI@@@')F@I6?^U@@^[LY@@@KWI@@@')F@I6?^U@@^[XY@@@RFE@@]TB )@@G@@/K@@IWKKI@@@')F@I6?^U@@^[LY@@@/K@@LZKKI@@@')F@I6?^U@@^[LY@@@KSI@@@')F@I6TC )@@G@@?^U@@^[TY@@@/K@@LZ/K@@L\*@@^HX/K@@M@C[@^HY(@@@@KC9@@Q[[ @@Q(C[@^H@[ @@NJTD )@@G@@[D@^]V9?@^]YR#)^]-9!@^]Z[[@@QE[[K@RR9!@@NI/K@@MA9?@^]+R#)^]*9!@^]&[[@@QETE )@@G@@[[K@RR9!@^]=A#@@M'A#K@NDA#)^]N[[@@NH[[K@Q)C9@@@@R;K@@0/,0@8"/K@@MN&;0@@@TF )@@G@@C1G@@@%80^]:C(G@@@[1J@@] @J@@B/,0@MR/K@KL\CDJ@@D[XJ@@#CDJ@@J[ J@@J @J@@FTG )@@G@@ @J@@IR#J@@A'^@[B:/KF@@@/K@@M)RZJ@@EAZ@^#LR\J@@EAV@^]XRFJ@@CA#@^]LK@@^]NTH )@@G@@ABK^]RK^J@@DABK^]MOBZ@@DAFK^]MR;K@@#AFW@@[ C@^]JR3J@@]AB@@N+9?J@@IA#@^]STI )@@G@@ABK^]T/K@KM)/K@@M6C[J@@FG9@@@[[[J@@FC[@^]V;D@@@MN@K@@KKD@^]NR#K^]LGDX@@[TJ )@@G@@! Z@@D: Z@@D/K@@NB/,0@NKC[@@[[KD@^]NG9K@@#[DX@@[R#)^]R/S@@@@&;@@@[M#?)@@TK )@@G@@A#)^]R/K@KM6/K@KM6&;@@@@AB0@R7CD@^]JG9@@@[[D@^]J9?K^]L[DH@@]CDX@@[;^K@@MTL )@@G@@;@K@@M9*K^]L%9@@@[/K@@N-R#)^]TC[@^]S[[I)@@A#)^]T/K@@N9[ Y@@[*8@@@@/K@@N$TM )@@G@@/\0@O]RB)^]M[[I@@@0@@^#O'=@@@A*4@^#O/K@@R6(^I@@[/K@@N/&F,@@[R#0^]S9*)^#PTN )@@G@@R;)^#LRV0^]XAR0^]X/\0@OD[[@^]SA#@^]OR;@^#L'=@@@[R#@^]OK@K^]NAB)^]R/KF@@@TO )@@G@@CDY@@]%9K@@[/K@@N!R#0@R7&B\@@D/K@@N, @@@@K&;)@@[CDY@@[H9K@@]G[I)@[8^K@OATP )@@G@@/KJ@@@CDI@@^CPK^]X/[K@OQ%9K@@]/K@@ONG9@@[\;H@@@=W9@@[0;(@@@]/K@@OQG9@@@VTQ )@@G@@;H@@@=W9@@@WG[I@@ /KJ@@@/K@@OSCXJ@@#H9@@@[/H@@R9[XJ@@#/,0@NK CH@@[/,0@NLTR )@@G@@C9@@@#[DH@@[ C@^]J0@@^#O'=@@@A*4@^#O/K@@R6/K@KOSR#@^]LRFW@@[:8K@@#/K@@O.TS )@@G@@'^@@OSRB0@Q:R#@^HZ*WJ@@#!4J@@[/K@@O.9!@^]S[[J@@I[ Z@@J/K@[CV/K@@O6AB0@Q:TT )@@G@@(@J@@F/K@@R0C5J@@]:9@@@#/K@@O*RB_@@@'^@[CERB0@Q:C J@@@[ @@Q[C J@@E[ @^]UTU )@@G@@[[@^]KC1J@@][ @@R CXJ@@E[X@^#FR\J@@EAZ@^]XC J@@D[ @@P2A@K^]PA@)^]QA@0^]OTV )@@G@@RC_@@JRCZ@@DPWZ@@#A^K^]JRA_@@CAA0@Q-R#@@@[R#K^GR/\)@C#R#@@@[K@@@@[O;K@@CTW )@@G@@R@)@@HO]0@@HAA0@QQR#K^GR/\)@C#O@)@@F ^@@RFR#)@@]&B)@P2R#3@@@R#K@@#/,0@Q;TX )@@G@@/,0@R@RA0@QQ/\)@CORB@^#JO#@^]N')@@Q)R#K@@#RA0@Q-/\)@COO80@@[O8)@@@P8K@@[TY )@@G@@*@@@@[/K@@P;^@@@=/,0OHY/K@@Z7VZ )@@G@@RB0@&3R#\@@HO#)^H@A#\@@HR#@@@HO#@^^4/K@@)]R#@@@H/K@@)P/,0@Z>/K@@)]C9@@Z"WA )@@G@@[ @@)P/K@@Z_'^@@+GRB)^^6C[@^^4/\0@+ R#K^^5RF!@@SO;)@@[AF!@@SRB.@@S:^\@@[WB )@@G@@'^@@>DR'0^^_/\)@CS(@@@@G/K@@)GA#K^^5/K@@)IC9@@)M[ @@)I/K@@)PRBK^^6/,0OGRWC )@@G@@/K@@%>/K@@)P/K@@)Q/S@@@@RA0@)RR#0@@G;C0@@M+@@^^9)@0@@HP#@@@HRBK^^\[[H@@@WD )@@G@@K8K@@[K^!@@@O;0@@[?^0^^0/K@@-F[[@^^;K8)@@@O;0@@[?^0^^0/K@@)0RB0O^';@0@@MWE )@@G@@A#.@@@'^@@+NC[@^^;/K@@)YL^)^^0O;0@@]K^0^^;)[@^^9[[K^^;H H@@@] H@@@(@@@@JWF )@@G@@/K@@)_E[@@@JRF0^^0O;0@@[AF0^^0/\0@+ P#)^^8RB.@@@;@0@@MA#"@@@O;)@@['^@@+NWG )@@G@@C[@^^;[[H@@@K8K@@[K^)^^;O;0@@[!^0^^0/K@@)0ABK^^'/K@@-_C9@@-K[ @@)P/K@@-LWH )@@G@@'^@@+GL8@@@[C H@@@RFX@@@RB)^^6/\0@+ /K@@-QP#@@@KL8@@@[C[H@@@/,0@)Y(^G@@@WI )@@G@@/K@@-ZO;@@@[/K@@)DR#K^^5RB.@@S'^@@>DL8@@@[*@@@@G1@H@@@/K@@)DC H@@@[[@^^;WJ )@@G@@R#K^^'K H@@@[ X@@@RB)^^\/,0@-B/K@@-VAFK^^6(^G@@@/K@@-3O;@@@[/K@@)DAB)@-;WK )@@G@@RBK^^5RB.@@S'^@@>DL8@@@[*@@@@G1@H@@@/K@@)DR;)@@@C H@@@/\0@+ /K@@-\RF0^^0WL )@@G@@O;0@@[AF0^^0/\0@+ AB)^^\/KF@@@O#@^^8O#)^^8+D@^^9N@K@@LM#?)@@P#@^^8/KJ@@@WM )@@G@@/S@@@@AB@@+LRB0K&3R#@^^6'^JK@#R;@@@@/K@K+G/S@@@@AB@@+7AA0@+8RBK^A0PB)^A0WN )@@G@@K8)@@[AF.@@@C @O^1G9@@@[[ @O^1[ H@@@/K@@+ZRF@^^0ABH@@[?80@[&R;0@[&AF0^A0WO )@@G@@*^@@&A/K@@+!P;)@@#O;K@@]O#K^^8 @@@@KG[H)@@8#)@+%[[H@@@'^@@<]C[@^A0R#K^A1WP )@@G@@[[@^A6AZK^A2R;@^A2'=@@@[RFK^^\RB)^A0/\@@+'R;@@@@R'0@@@/K@K+NAF)^^\A#K^A0WQ )@@G@@K8K@@@A#)^^0 @H@@[O;K@@]ABK^^\/KG@@@/S@@@@0@@^A5'=@@@A(4@^A5/K@K<]C9@@@]WR )@@G@@%5@^A5/K@@%2/K@@!R;0@)JAB0@)IWW )@@G@@R;@@@@RBK^GRR'0^ 7/\)@C#RB@@=^RBK^GRR'0^^_/\)@C#/K@K*^H@@0'^@@=!O;K@@[!@K^A\:@K^A\/K@@=JR#K^^1(^@^A;/K@@=(WY )@@G@@:8K@@@/K@@=<'^@@=!RBK@=WRF!@@@A#K^^1A#)^A1R;K@@@/K@@=,R#!@@0P#)^^8A#!@@0WZ )@@G@@/K@@=PR#!@@0O#)^^8A#!@@0/K@@=I/S@@@@ABK@=/(^@^A;/K@@=_'^@@>2/,0@>W/S@@@@XA )@@G@@R#K^^5R'0^ 7/\)@COR#K^^5R'0^^_RBH@@SO;@@@@/\)@COR;K@@@(@@@@H/K@@>AA#K^^5XB )@@G@@'^@@>%RBK@>!OFK^A;ABK@>!R#K^^5/K@K=!R;)@)DA#)@>D/K@@>M/S@@@@AB0@>!D8@@@@XC )@@G@@A#H@@S*4J@@[/K@K>D'^@@>2/,0@>W/K@@>UR'0^ 7/\)@CS*@@@@G'^@@>%R#0^^5R#J@@SXD )@@G@@OB@@='/K@K>DR#K^^5/K@@>PR#K^^5A#!@@SR#@@@J*4I@@[/K@@>)/K@@>-P#@^^4O;@@@[XE )@@G@@/KF@@[PFG@@@L8@@@[1@H@@@/KF@@[/KF@@@/S@@@@RF!@@@AZ)^A7R;0@@@AB0^A;R;@^A7XF )@@G@@'=@@@[/K@K>%/S@@@@0@@^A''=@@@ARBK^A'R7)^A'/@)@>_%8)@@^/K@@%\R\)^A'/@)@>_XG )@@G@@%8)@@ /K@@%\P;K@@[RB)^A;:CY@@@/K@@&A!CY@@@%8K@[&/K@@%(RFY@@@(8@@@@/K@@&FXH )@@G@@K@)@@HP;0@@]/K@@&NP;K@@^K8)@@[O#0^^8 @@@@KG[J)@[8#K@&J%[J@@[/K@@%:C @O^5XI )@@G@@G9@@@[% I@@@/K@@%/[ @O^5/K@K>2/S@@@@R;K^B$ABK@&X/,0@&+R;K@@@:@K^A\/K@K&TXJ )@@G@@O;K@@[/K@@&VR;0@@)RF!@@@0@@^A_'=@@@AAZ)^A/ ^H@@@A30^A_R;@^A/'=@@@[/KF@@@XK )@@G@@/S@@@@RBK^A0O;K@@]%^K^^\'^I@@@'^@@<]R#@^HZR;0@@@/K@K&?/S@@@@R;)@$K'^@@&?XL )@@G@@?4J@@[/K@[CVR#J@@A'^@[B:'^@@&T/,0@&.R#K^A\A#K^^1A#K^^2RF!@@@A#)^A1R;)@<)'^@@*$R#J@@A'^@[B:'^@@&T @@^^7XX )@@G@@/K@K*9/S@@@@R;K@+ZABK@+Y(@@^HX/K@@(WC[K^HX[[K^^4[ K@)&C9K@)P[ K@)QC[Z@@EXY )@@G@@[[K^^6R'0@)RR;@@>C9@@%]C9K@(./K@@(*C[K^H@[[K^^4C9K@)P*@@^HYXZ )@@G@@C9K@Z![ K@)QR'0@Z+C9@@(9C9K@(5AB@@-[ @@%YYA )@@G@@[ K@&.AA_@@# ^@@&AR;K@@0/,0@8"/K@@(4*?G@@@ABK@&A/K@K(DC9K@Z9C[@^^/[[@@Z$YB )@@G@@/K@@%@C[@@+N[[@@Z$C9@@Z;/K@@% C9@@-R[ @@-QC9K@-L[ K@)P/KF@@@C9@@-,[ @@-QYC )@@G@@C9@@-HAA0@%J @@^^1[ @@)PC9@@<9[ @@)GRB0@&3C J@@E[[@^^6R#_@@@'^@[CE/K@@%JYD )@@G@@RFZ@@CK^Z@@D/\@@+' 4@^A5/KF@@@A#K^^1CDKO^1[[K^A1C9K@%<[ K@3ABK@>%R#K^BNP;K@@[(@@@@H/K@@>\#@K^B^R;)@@(1@@@@HR;)@@*YJ )@@G@@A3)^B#R;@^B@'=@@@#(4@^B#/K@@:-R;)@A8C5@^B#RZ0^B@/K@@%5R#K^B^P;K@@[/@K@>\YK )@@G@@A#K^B^/K@@:U/S@@@@; @@@#'L@^GK;(@@@#;!@@@#G9@@@0[T@^BGAZ0^BUR;@^BU'=@@[AB)@?4R;K@@U/,0@8"/K@@?3'^@@\//K@@?4'^@@83R#K@?4A#K^D/RBK^A0ABK@>!YR )@@G@@R;K^B$A#K^^5'^@@1DRFY@@ ABK@+/R#K^^5'^@@1"R#K^E+A#K^E8R;@^F)'=@@@CR;K@@XYS )@@G@@/,0@8"/K@@!0RBK^A0(@H@@A/K@@!GR\!@@]%8)@@A/K@@!IR;)@E3/K@@%&C H@@[H9@@@[YT )@@G@@*@@@@K/K@@!=R#!@@AA#!@@]C H@@ RZ!@@#P;)@@[AZ!@@#CPX@@#H9K@@[RZ.@@^P3.@@[YU )@@G@@1@@@@J/K@@!+CTX@@#O\.@@^R\!@@^AV!@@#[PX@@#AZ.@@^H9@@@[[ H@@[ @H@@AR#!@@BYV )@@G@@A#!@@C @H@@BRB!@@^AB)@8O/\0@8:R;K@8MABK@+Y/K@@!4RBK^A0RB!@@[P;)@@[AB!@@[YW )@@G@@RB@^A0C9@@[>[DG@@@R;)^C\/\0@+ AB@@63'^@@6!RFK^C1P;K@@[ABK@5+R3K^C0%^K@=^YX )@@G@@/K@@88(@@^C7/K@@04R\K^C7O;K^B$ABK@8YRBK^C7ABK@8ZRZK^C7ABK@8+RBK@)PABK@8>YY )@@G@@R;K@8VABK@)PR;K@Z5*@@^HXR;K@8*ABK@8)/K@@04(8@@,N/K@@,&RB@@,NR;)^C\C9@@[>YZ )@@G@@/\0@+ R;K^C\/\0@8:R;K@@V/,0@8"/K@@,)'^@@\//K@@,-'^@@83R#K^C1%@K^E_/K@@8'ZA )@@G@@/,0K%Y/K@@!"R;K@@G/,0@8"/K@@,7'^@@\/R;K@@V/,0@8"/K@@,1R#K^E_A#K^C1/,0K%YZB )@@G@@/K@@04R#K^GMO#K^C1A#K^C1/,0@7<'^@@6!/K@@04C9K@@@C9@@@@R;0@32R;K@@T/,0@8"ZC )@@G@@/K@@,"/\)@\WAB0@3$R;0@3ZR;K@@D/,0@8"/K@@\AR#K^^>T^W@@@A#K^^>R;K@@C/,0@8"ZD )@@G@@/K@@?=R#G@@@+@@^GLT@K^^4+@K^GLA#)^^>AB0@3S[ @@2$[[K^C3/\)@\ZR;0^^ZR#@^^>ZE )@@G@@'^@[B:R;K@@AAFK^C\R;K@@AA\K^C1R#K@+NA#K@7M/K@K:9R;0@6QAB0@3$/KI@@@C K^^*ZF )@@G@@R;K@@F/,0@8"/K@@\>! W@@@C W@@@R#K^H@O;K@@#*@@^HXO;K@@]?8K@[&R;K@[&?[K@@HZG )@@G@@/K@@\5?8K@J*/K@@\1C[K@@H/K@@\3!9K@J*C9K@J*[DK^C4/KI@@@R;)@E0/K@@%&9*K^FWZH )@@G@@[>@^FVR#@^GN'=@@@J/KF@@@/S@@@@C9@@$DR;0^B*R;K@@G/,0@8"/K@@\_R#)^BOAB@@0CZI )@@G@@R#WK@@A#Z@]P[DJ@@@/,0@\7R;@@0CR;K@@G/,0@8//K@@0JG9@@@[O;0@@[/K@@0#AB0^A\ZJ )@@G@@P;0^B$AB0@=^A30^C0'^@@0V/\)@\W/\0@0>'^@@20/,0K&.C9K@3-[ K@)G/K@K\//S@@@@ZK )@@G@@R;K^^ZABK@&3R;K@[>AFK^C\R;K@2HABK@>)R#K^GOA#K@7M/K@K0VRFK^^$R;@@@@RB)@=^ZL )@@G@@O;)@@#W@@@@IAB@^^*AF@^A;P;)@@]T@@@@IOB@^^$AF@^^$RB@^^$AB@@=@/\)@\Z/KJ@@@ZM )@@G@@'^@@0@@^A''=@@@A9?K^A'ZP )@@G@@9*K^FYRZK^A7ABK@12R;@^F<'=@@@CRBK^^5'^@@>%0@@^A''=@@@ARB)^A;R#Y@@]A#K^E,ZQ )@@G@@RBI@@[/,0^#2[ K^E?R#K^E$%@K^E,/K@@17RBK^E>%^K^E?/K@@17'^@@>2RF0^C4RB)^A;ZR )@@G@@?C"@@ /K@@7-R;K@@@AZK^A79?@^FY9*@^A'/K@K1DR#K^E+A#K^E*R#K^^5'^@@7AR;@^F&ZS )@@G@@'=@@@C/K@@1V/S@@@@C[H@]P[[@^E4R#H@["/,0^#2[ K^E2R#K^^5'^@@7ARZ0^A/'^@@:&ZT )@@G@@A#0^E\R;@^F('=@@@CR#K^^5/K@K1"AA0@<)AB@@2WC H@@@[DH@@0'^@@1"RB!@@SC9@@@8ZU )@@G@@:5I@@[/K@@<) CI@@[R;@^A/'=@@[XRBK^^5'^@@1DRA0@<)R;@@@@/K@@>-/S@@@@'^@@20ZV )@@G@@R#)^HN:@)^C3/K@K2YR#0^C3O;0@@[A#0^C2A#)^C3R;@@@@O;@@@[AB@@2$O;@@J*/,0^#2ZW )@@G@@[ K^C1/,0@7<'^@@6!/K@K2Y/S@@@@RF)^C4AB)@+/RFK^^$OF)^^$/\@@+' 4@^A5 ^@^C0ZX )@@G@@R;K^B$A#K^^1RFX@@@A#K^A1R;K@6RABK@'^@[B:R;0^^ZAA )@@G@@R#K^^4ABK@)&/K@[CVC9K@@A/K@@3='^@@K^F ;[K@@A[TK^F R;@^F5'=@@@CAF )@@G@@R;@^F8'=@@@C*8@@4U/K@@4 @I@["*W@^C3/K@@5URFK^C1ABK@5+O;K@@[AK )@@G@@AFK^C1RVK^C2A\K^C3RRK^C2AVK^C2 O@^C2RZ@^C3O;@@@[AZ@^C3:S@^C2 W@^C3O;@@J*AL )@@G@@/,0^#2[ Y@]PR;0@5+AF"@]PO;)@@[C9K@5>H9K@@[*@@@@L/K@@5HRZ@^C2O;@@@[AZ@^C2AM )@@G@@/,0^#2[>K^F ;[K@@A[TK^F *W@^C3/K@@54(O@^C2/K@@3K^E/R;@^GB'=@@@C/K@[E-RFK^^\*4H@@[/K@K<]RBK^A0*4H@@[AQ )@@G@@/K@@+,R;)@@*A7!@@[RBK@+NABK@6?R;K@6*ABK@+NRB@@+7AB@@6%RA0@+8AA0@6:/K@@+,AR )@@G@@'^@@7E'^@@6!R;@@@@R'0@@@/K@@6?/S@@@@R#K^^1RBK^C0O;K@@[ABK^C0AFK^^0R;)@@@AS )@@G@@'^@@+NRF@^^\O;@@@7R;)^C8C9@@@,/\0@+ '^@@<]RZ0^A2'^@@:&A#0^EWR#K^C1A#K^E-AT )@@G@@RB@^C0/,0^#2[ K^EZR;@^GE'=@@@C/K@K6!/S@@@@R;0@@-/,0@&'^@@20/K@K83BD )@@G@@R;)@E4/K@@%&R;)@E5/K@@%&R#@^GP/K@@8_R#@^GQAK8K@@#R#K@@JO;0@@#?9@@@X/K@@/_O;0@[!/K@@.[!9@@@SBZ )@@G@@O;0@@TC9@@@@W[@@@JT[@@@HR;0@[0T@0@@GO#0@@IP#0@@LH[@@@J/KF@@[ @@^HVR;K@@SCA )@@G@@/,0@8"/K@@.JAFK^HVR;K@@T/,0@8"/K@@.P*C@^HV/K@[FPAFK^HVR;K@@U/,0@8"/K@@.VCB )@@G@@*C@^HV/K@[FPAFK^HVR;K@@V/,0@8"/K@@.-*C@^HV/K@[FPAFK^HVR;K@@W/,0@8"/K@@.>CC )@@G@@ABK^HVR;K@@X/,0@8"/K@@.:*^@^HV/K@[FPABK^HVR;K@@Y/,0@8"/K@@.1*^@^HV/K@[FPCD )@@G@@ABK^HVR;K@@Z/,0@8"/K@@.7*^@^HV/K@[FPABK^HVR;K@@$/,0@8"/K@@..*^@^HV/K@[FPCE )@@G@@ABK^HVRB0^HVCD@^HVC5K^IB:80@@W/K@@"Q:80@@Y/K@@"Q:80@@X/K@@"L:80@@Z/K@@"LCF )@@G@@%80@@$/K@@"Z:9@@@V/K@@"=%9@@@S/K@[FP?9K@@#/K@[FP/K@@"=:9@@@S/K@@"I:9@@@UCG )@@G@@/K@@"=/K@[FP:9@@@S/K@@"W%9@@@T/K@[FP/[K[FP/K@@_[?9K@@#/K@[FP/K@@_[*@@@@KCH )@@G@@:9@@@S/K@@_[:9@@@T/K@@"UR#0^H?[DZ@@DR#K^H!ABZ@@@RBK^H[PBK^HCABZ@@CP#K^H@CI )@@G@@ABZ@@ERBK^HCAFZ@@CR;)@@ZA#)^HZ'^JK@[/K@@"2RA0^IRS8)@@SRBF^IAS8@@@#O#0@@HCJ )@@G@@RBF^IAS?F^IAS8K[F@R;K@@@W@K@@JS8K@@DW8K@@ES@K@@L/K@@"2C5K^IBG1K^IB C@^HECK )@@G@@/[K[@T*@@^HX/K@@_JR;K@#C;GK@@=W@K^H@*@@@@IO;K@@[T@K^H@O;K@@^/K@@_NR#K^H@CL )@@G@@O;K@@A?8K@#CR;K@#CABK@_SG9K@@]RB@^HC;G@@@=W@@@@L!8@@@@/K@@_&RB@^HC;G@@@=CM )@@G@@W^@@_SP;@@@]?4@^IB/K@@_A7@^IB 0@^IBRB@@_SR#K^H@O;K@@ACN )@@G@@?8K@J*/K@@_?R#@@@H/K@@_,!8@@J*R;@@J**@@^HX/K@@_5P;@@@^;G@@@=W@@^H@T@@^H@CO )@@G@@O;@@@^AF@^HER#)@@GC[K@@GH9K@@^*@@^HXH9K@@]'^@@"2A#)^HFC[@^I^/ @[@]C[@^I@CP )@@G@@(@@@@KC @^HCC5K^IBG1K^IB[PK^HA?9K@@]/K@[@T%9K@@]/K@[@MRF0^HV:80@@T/K@[@TCQ )@@G@@R#)^HFO#)^HF![@@@I/K@[@TRFK^H:/K@[@-H9K@@[?[@^HF/K@[@VR#)^HFT@)@@L?[@@@ICR )@@G@@/K@[@K @@^H%/K@[@1R#)@@KT@)@@L!@)^HF/K@[@KR#)^HFRBK^H:A#K^H%A#)^HQ(0@^IBCS )@@G@@/K@[@1 @@@@I9?"OIX9*0^IURB0^IBAB0^ITO;0@[@AB0^IBR;@^IS'=@@@JO;)@@[%0)^IBCT )@@G@@/K@[@& W@^HA C@^HJRB0^HCPF0^HEPF0^HEC[K^I^/[K[[K;DK@@[?[K^I@[[K^I@R#)^I@CU )@@G@@RF@^H]T8@@@#?@)@@G/K@[[79!@^I#/,0@/H/K@[[;AZ@^HAAF)^HG[[@^H 9?@^I 9*@^IUCV )@@G@@R;K$B,ABK^ITR;@^IS'=@@@JRB0^HCT8)@@#P#0@@IPZ0^HAAB0[[(9!@^H_/[K[[.RB)^HCCW )@@G@@S@)^H"W8)@@FRB0[[(/,0@/H/K@[[5:C@^HJ/K@[[,AF@^HJAB)^HG[[@^HIRB0^HCT8)@@#CX )@@G@@P#0@@IPZ0^HAP#0@@GAF0^HHS@0^H"W80@@ET@0@@G!@0^HI/K@[[,R;0@@@9!@^H_/,0@/KCY )@@G@@/K@[[?/K@[[T9?@^I[9*@^IUR;K$A,ABK^ITR;@^IS'=@@@J/K@[["(@@^I^/K@[[.9!@^I#CZ )@@G@@9(@^H_9!@^I 9(@^I[ @@^I^/K@[[KAF0^HHC9K@@[[[K^I;R#0^H*[5Z@@[R;@@@[A7J@@]DA )@@G@@RB@^H[PB@^HCRFK^HHABZ@@DK@K@@GP#@^H@A#@^H-R;@@@@C[@^H@G9@@@[W@@@@KS@@^H@DB )@@G@@A#Z@@AC9@@@](C@^HJ/K@[]\R#@^H(ABJ@@@A#0@@HA#@@@JAFZ@@@G9K@@[[5Z@@[[5J@@]DC )@@G@@AF\@@CRB@^HGABJ@@DRF@^HJAFJ@@DR#@^HIA#J@@ARB@^H[PZ@^HAPF@^HJAFJ@@J @@@@IDD )@@G@@R#K^H_!8K@@SR;)@@[!8K@@XR;)@@]A\\@@EG9@@@[(W@^HA/K@[#IR;@^];ABJ@@@A#0@@HDE )@@G@@R#0@@GAFZ@@@G9K@@[[5Z@@[[5J@@]RB@^H[PZ@^HAAFJ@@JRFK^HGABZ@@DT8K@@#P#@@@HDF )@@G@@AFJ@@CR#K^H A#Z@@ARZK^HAAFZ@@D @@@@IR#K^I#!8K@@SR;)@@[!8K@@XR;)@@]A\\@@EDG )@@G@@%9@@@#C9@@@#R#@^H%(@@@@G/K@[#/K@[BQA#@^HPR7\@@[A3)^HL/K@[BQA#@^HPA3)^HL/K@[B?EE )@@G@@O#@^HO/4@[B\R#@^JNA#J@@GR7\@@[RB0^HR/K@[B3R7Z@@]?8K@@]/K@[B(?@J@@G/K@[B"EF )@@G@@%@J@@G/K@[B/!4\@@[/K@[B"R#J@@GR7\@@[RF_@@@/K@[B3:4K^HL/K@[C^RB_@@@/K@[CGEG )@@G@@CD@^HV*^@^HV/K@[CQ%9@@@TR#0^H!/K@[CQ/K@[CERF\@@@R7Z@@[!@K^HZ/K@[CQ&;0@@@EH )@@G@@:@0^H(/K@[CQ:80^];/K@[CQ(0J@@[/K@[C@R;K@@[A3Z@@[AB"@@@'^JK@]/K@[CE(@J@@HEI )@@G@@/K@[C=R#J@@GP#@^HOO#J@@H @J@@HAB0[C<'^@[B:R;0@@@(C@^HV/K@[AFR7J@@[%4@^HLEJ )@@G@@/K@[C,R#K^H^A#K^H#R#K^H)O;K@@[A#K^H)R#)@@JRF_@@@AB\@@@:80^#R/K@[AF 0J@@[EK )@@G@@/K@[C,/K@[C5RFK^HV!8K@@U/K@[C_C9@@B5:8K@@T/K@[C"R;@@@Z%@@^HZ/?K@9$R#@[C5EL )@@G@@A#@[DIR8K[E?A^K[ALA^K[BLA^K[BFR8K@9LA^K[DG'^@@9W(^@[DE/K@[DD/K@[DEA@K^GTEM )@@G@@/?K[E?RRET$ /K@[DIA#@^G=R])^GS/,0@H4R#)^HR;@@@#A7@^:)A7@^:-R#@PDWP#@PDV;C@@@AEZ )@@G@@!8@@O[/K@[H:R#0 DYR#@PDVA#J@@ R#@ DX&;@@@VA#J@@^R#K^:+&;)@@#R;J@@@'=@@@#FA )@@G@@*4J@@#'^@[H4Q#) DXR#I)@@/@@[F7/C@[F.%@@ D+/K@[F7/K@[G]A#H)@@R#J@@ O;@@[@FB )@@G@@A#J@@ /K@[F7R#J@@ ?@@PDW/K@[F2R;H@@@P;@^JXA#@^JWR;@@@WAFJ@@^/KF@@ ^@K^:XFC )@@G@@*@@^JW(@@PDV/K@[H'^@)^:YA[@^:ZR#FK@#/@@[H\R#K@@G;CK@@S+8K@#_=8)@]@/K@[H@FD )@@G@@R;K^R;4@@@P;0@@[O;)@@[P#K@@I1@J@@@/K@[G;+@@^:FS )@@G@@A#@^:.R;@^:9'=@@@#*4@^:/'^@[K"R#K DUO;K@@#A#K DUR#X@@@/@K[JL/CK[JZ%@K D+FT )@@G@@/K@[JLR;@ C;A#@ DUN8K@@V&;@@@[R#K^:&M#H)@@;@)@@ +8)@@[O;0@@[O#0 DU;C)@@ZFU )@@G@@R#J@@@;*I@@@/C@[LYR#) DR+8)@@_T80@@WR#J^:_+@@^:5/@K[LYR#@^:&K@@@@JQ;@ C#FV )@@G@@N8K@@WM#H)@@O;)@@[A#) DRR;@@@[A#@^:8(^@^:7/K@[K[R#@^:&K@@@@JR]0 C]Q#F@@]FW )@@G@@N8K@@WM#H)@@/KF@@^(C@^:7/K@[J^RB@^:6!*@ CG/K@[KUO;@@@[AB@^:6R#@^:$*@G CIFX )@@G@@/K@[KX$;@@@K/K@[KB*0@^:6/K@[KP/,0[GF/K@[KU@@@ B_@@@ CZ@@@ C#@@@@@@R;@@@[FY )@@G@@A3@^:6R#@^:$*@G C)/K@[KZ$;@@@I/K@[KQ @@^:6 @@^:8/K@[J^O;@ CI/K@[K)O;@ C)FZ )@@G@@R#W@@@ @G@@@A#K C[R]0 C]R#V@@]A#K[K(/,0[GF/K@[KU@@@ B_@@@@@@@@@ C[@@@@@@GA )@@G@@R]0 C]/KF@@^R#K@@G;*@@@G;C@@@Y:8@@@V/K@[K5R;@@@[/K@[L(R#@^:?O;@@@[A#@^:?GB )@@G@@!8@@@#/K@[K3/,0[H"@@@@@@R]0 C]/K@[IL/K@@@@R;@@@]R#K^://K@[L(R#K@@GR;@@@DGC )@@G@@/K@[L(R#@ DS;*@@@AA#@ DR @@^:8 @@^:6R;@ DNA#@ DUR;@@@# @@@@H/K@[L(-@@^:*GD )@@G@@/@K[LOR#K@@GR;@@@^/K@[L((@@ DR/K@[I: @@^:8 @@^:6C@@ DS;*@@@A[@@ DRR;@ DNGE )@@G@@A#@ DU/KF@@ R#) DRO;)@@[A#) DR/K@[J]R#K DRO;K@[@-8K@@_A#) DR/K@[J]R;@@@ GF )@@G@@ @@@@HR]0 C]9*FK@[/KFK@@A@K^GT/?K@9LROPN$ '=@@@3+8@@K@/@K@9:R]0 F_AA;)@@GG )@@G@@[^;@@@C8K@@8[4V)@@'^@[O5'^@[N/+@) G@:@0 G[/K@[PG:@0 G]/K@[PK:@0 G#/K@[P,GH )@@G@@:@0 G^/K@[Q[:@0 G /K@[QK:@0 GA/K@[Q%:@0 GB/K@[QT:@0 GC/K@[Q*:@0 GD/K@[Q6GI )@@G@@:@0 GE/K@[NN:@0 GF/K@[NB:@0 GG/K@[N :80IAS/K@[NW:80DRM/K@[N-:80FST/K@[N>GJ )@@G@@:80CON/K@[N(:80VOL/K@[N?%@0 GH/K@[SFR'K@@@C8K@@[/,)[R"C8K@@]/,)[R"C8K@@ GK )@@G@@/,)[R"'^@[N/'^@[R>'^D[M;&;)[@@[@:)@@'^@[N/'^@[R>'^D[M;&;)]@@[@:)@@'^@[N/GL )@@G@@'^@[R>'^D[M;G8) @@ @@ F'[C) F''^@[N/'^@[R>'^D[M;G@) F'[@:)@@/K@[M\/K@[M;GM )@@G@@/K@[M;/K@[M. @@@@HW8K@@A;^K@@=/@K[M.G8)@@[ @@@@H/K@[M.R'K@@]/K@[MZ[@) F3GN )@@G@@C8)@@0 @@ F'[4) F''^@[N/:8)@@D[0) F':8)@@T[?) F':8)@@F[*) F'/K@[NFC8K@@SGO )@@G@@/,)[R"C8K@@C/,)[R"C8K@@D/,)[R"C8K@@E/,)[R"/K@[L7'^@[N/'^@[R>&;)A@@A#:)@@GP )@@G@@/K@[L7'^@[N/'^@[R>&;)1@@/K@[NZ'^@[N/'^@[R>&;)2@@/K@[NZR;)@@3A7:)@@/K@[L7GQ )@@G@@'^@[N/'^@[R>&;)4@@/K@[NZR7?@@@R3?@@@R\?@@@R:?@@@R$?@@@R&;)F@@GZ )@@G@@[@:)@@/K@[L7/K@[PU'^@[P('^@[N/(@@@@I/K@[P+'^@[R>&;)C@@[@:)@@'^@[N/(@@@@IHA )@@G@@/K@[L7'^@[R>&;)D@@[@:)@@/K@[PU/K@[P('^@[N/&;)E@@[@:)@@/K@[P(C8)@@U[4:)@@HB )@@G@@'^@[P('^@[N/[@K F'*4@ F'/K@[P8;?K@@AG8)@@ /K@[P2C^0 FT&;0H@@[@;)@@&;0@@[HC )@@G@@[@Z)@@[@\)@@[^0 FT'^@[Q /K@[L7C8)@@V[4:)@@'^@[Q /K@[L7/K@[Q '^@[N/[@) F2HD )@@G@@C^) FT&;)G@@[@:)@@C@K FTC@) F2[@!)@@[@K FT/K@[QAC8)@@W[4:)@@'^@[QX'^@[N/HE )@@G@@'^@[R>A#:@@@R;)@@(A7:)@@/K@[L7C8)@@Y[4:)@@'^@[QX/K@[L7/K@[QX'^@[N/'^@[R>HF )@@G@@&;)%@@[@:)@@'^@[N/'^@[R>A#:@@@R;)@@*A7:)@@/K@[QXC8)@@Z/K@[Q:C8)@@X[4:)@@HG )@@G@@/K@[Q!'^@[N/[@) F.'^@[N/'^@[R>[@) F"C8) F.&;):@@[@:)@@/K@[L7C8)@@$[4:)@@HH )@@G@@C8)^C\[@) F;C^) D% @@@@H'^@[R>[@) FURFK D5A#K F\ @@ F0R#@ F0O;@@@[A#@ F0HI )@@G@@A]0 F1/,0^#2R]0 F1%XK D6/K@[RWR#) FUR;K@@E!@K FU/K@[RYH8)@@E[@) FUN8K@@EHJ )@@G@@C8K D:C^) F;G@K GLG@) GLM#!)@@(@@ FU/K@[R-[@) F;'^@[O5R#) F\:C) D5/K@[R[HK )@@G@@C9@@K9/K@@9$N@K@@I @@ FU/K@[RKC8)^C\&;)?@@[@:)@@/K@[L7/K@[R>[@@ F1[@K@@GHL )@@G@@[@)@@HC9@@@F;G)@[C;^@@[][@K F7C)) F7:8)@@ /K@[R9(@@@@I/K@[R9H8)@@00@@@@IHM )@@G@@/K@[SF!8)@@E/K@[SFT80@@EG@0@@I @@@@I8^@[R:C@)@@JC@@ F1/K@[R>[@@ F1A]0 F7HN )@@G@@C^@ ENG@@ GL[^@^GQC8)@@'/,0@8_/K@[SC[4?@@@/K@[S^C@@ F1R]0 F7/KE@@@R;@ F&HO )@@G@@'=@@@C'=@@@)C@0 F_[^;@@@C8)@@9[4:@@@R;W@@@:8K@@A/K@[SRR;@ F('=@@@CRB0 F_HP )@@G@@/K@@9:R;@ F?'=@@@C'=@@@)'=@@@6;C@@@GAB@ R<;C@@@AAF@ R70 RDHV )@@G@@R7@ QL=3) RIR7@ Q>=7) RDR7@ QYA\@ R]RB@ RLR7K R]?8K@@K/K@[T1OB@ RMOB@ RNHW )@@G@@OB@ ROOB@ RPOB@ RQOB@ RROB@ RSA#@ R# @@ R^R3@ RD=8@@@C 4@ R]*^@ R8@@@K/K@[U-R#) X@R#I RJ/,0[U4$;)@@N/K@[U:1@@ RB/K@[U-R;@ Q"/,0[AK/K@[TKIC )@@G@@/@F@@@/[0[U1H90@@[/]@[VDN@K@@OR#K X[2@H>R=/K@[V[R#H RR+&;@@[]'=@@@I8 @[WBR#@ X '=@@[ZR#@ Q:'=@@@IIK )@@G@@R#@ Q?'=@@@IR#@ Q!'=@@@IR#@ Q,'=@@@IR#@ Q\'=@@@IR#@ Q0'=@@@IR#@ Q1'=@@@IIL )@@G@@C@@ P1'=@@@I/K@[BKR8K P+&8)@@[&80@@[&9@@@[C;0@@KC;)@@)C;@@@RC;K@@ZR[K X@IM )@@G@@&9)@@[/,0[DF@@@[YXR#)@@GQ8) Q.N8K@@JM@-)@@Q9@ Q.Q80@@@Q[)@@IR\I@@^')#-V\IN )@@G@@N80@@F') -V&%8@@@ ')#-V\8K0[W9R;@@@*')#-V\N80@@F') -V&%8@@@ ')#-V\8K0[X@IO )@@G@@R;@@@(')#-V\RRI@@^/,@[VMR;@@@)')#-V\R7I@@^/@@[XIR#G WW/K@[XJR#I@@DA#@ R#IP )@@G@@R#I@@ \7I@@^>:,@@^/K@[XP;*@@@AQ80@@@Q9@ R^/,@[VMC@@ R^;@@@@A[@@ R^*^@ R[8-A8&]@+B@$]CBS%])&B):]*$B*?]0*B0!]8(B8E#@%CB6#C:JC )@@G@@CC,#K,CK\#S\[KE#)@[SF#*@[)G#0@[*H#8@[0I^@@[8J^K@]@K^S@]CL^)@]KM^*@]SN^0@JD )@@G@@D*'^8'D0; @;D8/ C/E@. K.EC" S"[K_ )_EK@ *@[S@ 0@[)@ 8@[*@@@@[0@@@@[8@@@@JE )@@G@@]@@@@@]C@@@@]K@@@@]S@@@@"8@@@@_@@@@@_C@@@@_K@BK@_S@BS@_)@B)@_*@B*@_0@B0@JF )@@G@@_8@C@@ES@ES@E)@E)@E*@E*@E0@E0@E8@E8@F@@F@@FC@FC@FK@FK@FS@FS@F)@F)@F*@F*@JG )@@G@@F0@F0@F8@F8@G@@G@@GC@GC@GK@GK@GS@GS@G)@G)@G*@G*@G0@G0@G8@G8@H@@H@@HC@HC@JH )@@G@@HK@HK@HS@HS@H)@H)@H*@H*@H0@H0@H8@H8@I@@I@@IC@IC@IK@IK@IS@IS@I)@I)@I*@I*@JI )@@G@@I0@I0@I8@I8@J@@J@@JC@JC@JK@JK@[K@@@@J)@J)@"0@@@@@@[@@@@@#__/%[@@@L/K@@H*JJ )@@G@@/KF@@])@@@@@@@[@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@C[@^]V/S@@@@PB@@NJJK )@@G@@@@@@@#C[@@@G[ I)@@[DI@@@&BG)@@^CK^]KPFG@@@@@[@@]@@@@@@@@@@@@@@@@@@@@@@L\JL )@@G@@@@@@M)@@@@M6D@@@O6@@@@OS@@@@@@@@@@@@@@@@@@@@@@@@$A@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@L\@@@@M)@@@@M6F@@@O6@@@@OS@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@$B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@K@@@@@@@@@@@@@@@@JO )@@G@@ @@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@SA@@@@@@@#@@@@@@@@@@@@@@VEJP )@@G@@@@@@@@@@@@@@@@[@@@/C@@@@/G@@@@@@[@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R;0@[CJQ )@@G@@9!@^#.;G@@@=W8@@@EO;K@@:'TK@@H; @@@AP;0@@A/^@^#4; J@@@/KF@@@ JR )@@G@@@@@@@@@@@@*^@@@@*BZ_@@@@@@@@&5@@@@$K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*N@@@@*Y@@@@@@@@@@$B@@@@$0@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:9@@@@2Y@[@@@@JU )@@G@@@@@@3[@@@@3[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@___@@@@@@@@@JW )@@G@@@@@@@@A#)^^6@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@C@@@@@@@@@@JX )@@G@@ @@@@@@@K@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@JY )@@G@@@@@@@@@@@@@@@[@@@@@@Y^BP@@@@@@@[@@@@@@%^BF@@]^BM / SORT READ ERJZ )@@G@@ROR A . (NO OR GO)@@@@@@@@@@@@ SORT ERROR CODE A KA )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@CYC NO. . RECORD NOS. - KD )@@G@@ LABEL: REEL OF MOUNT REEL OF KE )@@G@@ LABEL ERROR: REEL OF DISMOUNT REEL OF KF )@@G@@ + MOUNT BLANK MOUNT BLANKEND REDO END PART FINAL KG )@@G@@MERGE(S) REQUIRED:START MRG NO. : INPUT FILES OUTPUT FILE KH )@@G@@ UNIT LABEL UNIT LABEL KI )@@G@@ OUTPUT@USE $ , @@@@@@@@@@@@@[@@@@@@M^E8@@@@@@@[@@@@KJ )@@G@@@@=^E+@@[^BM@[@@@@@@%^E*@@@@@@@[@@@@@@=^E\@@@@@@@[@@@@@@0^EO@@@@@@@[@@@@KK )@@G@@@@G^E.@@@@@@@[@@@@@@M^F@@@@@@@@[@@@@@@%^F^@@@@@@@[@@@@@@%^FF@@@@@@@[@@@@KL )@@G@@@@S^FM@@@@@@@[@@@@@@0^FM@@@@@@@[@@@@@@%^FM@@@@@@@[@@@@@@M^F#@@@@@@@[@@@@KM )@@G@@@@G^E;@@@@@@@[@@@@@@=^EW@@@@@@@[@@@@@@2^E\@@[^BM@@@@@0@B____@@B001@@^^FUKN )@@G@@'^@@7(@@[@@@@@[@@@@@@@@@@@@@@@SORT ERROR CODE @@@@@@@@M^G7@@@@@@@@[@@[KO )@@G@@@@[^GT022871@@@@@@@@@^#R@@@^]:@@@@@@^^J^#_@@@^^Z@@@^H,@@@@@@@[@@@@@@@[C5KP )@@G@@@@@[DI@@@[DR@@@[DR@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@[#S@G)]#S@G)# S@G)^ S@G) ^S@K*A^S@K*B#S@G)C S@G)D#S@G)E#S@G)F^S@-OKR )@@G@@G^S@-OH^S@-OI]=@J*J[S@#'@@@@@@@USE ,EXTERNALFILE . @@@@@@@@@@@@KS )@@G@@@@@@@@@LOG SORT: T/R=XXX.XMS, IC=XXXXXXXX, OC=XXXXXXXX, BIA=XXX.X@@@@@@KT )@@G@@@@@@@[ SORT LINKAGE USED AT WRONG TIME DRUM BLOCK SIZE TOO SMALKU )@@G@@L = @@@@@@FASTRAND BLOCK SIZE TOO SMALL = @@@@@@@@@@@@@@@@@@@@[@@[KV )@@G@@Z_____@_____/K@[A_@@L^I1@@=^I4@@E^I0R$CORE @@@^@@@@@5@@@@[C@@@@[Y@@@@[9@@@@]T@@@@]"@@@@#*@@@@^S@@@@ JLT )@@G@@@@@@AF@@@@BG@@@@CM@@@@@@[]) KVR;KWJG @@@@K:^V@@]C[F@@]/H@ L7R;@ GQ'=@@@JLU )@@G@@R;@ GS'=@@@JR;@ GU'=@@@JR;F@@#AB@ L%R#VK@[/GK OYO;K@@F @@@@GW8@@@AT@FK@@LV )@@G@@/G@ OWS8@@@FW8@@@E;G@@@=A#K@@IW8@W@@/@@ O#O;@@@[A#@ LP!8@@[V/K@ O)N8K@@MLW )@@G@@R#) P R#@ LP5^I>LP/K@ O+R;Y@@@T8K@W@O;K@:$ @@@@GW8@@J*A#@ LRS8@#%SP;KN?@LX )@@G@@W8@^4@A#@@@JR#@ LP;G@@@YW8I@@@K@@@@J @@@@GW@@@@JT@@@@JA#@ LQR#@ LP?8@@@^LY )@@G@@/K@ M$R;@@@[A#@ GM/K@ NCR;@ G2'=@@[P @@@@Q @@@@HRF@ G5/@@ M2OBW G7R#G G6LZ )@@G@@;*@@@G;C@@@GG])@@GRF@ G'/@@ M9OBW G7R#G G6;*@@@G;C@@@GG])@@GRF@ G;/@@ N@MA )@@G@@OBW G7R#G G6;*@@@G;C@@@GG])@@G?@K LP/K@ M=R#K LP;*K@@AO#K LQH')@N)?])@@HMB )@@G@@/K@ O0R#@ LP/@@ N>>@^[[S=@@@[P/@@@@@/ MO )@@G@@ FILENAME EQUIP TRK BACKUP POS BLK DATE MP )@@G@@ TIME @]I PTABLE OVERFLOW, TAPE LIST INCOMV )@@G@@MPLETE, BE CAREFUL@@@@@@@@I Q2@@] Q.RUN TERMINATED DUE TOO: DIREC$ ERRORMW )@@G@@ NO. 0 CODE @@@@@@@@@@@@? 8C7 6C7 8CI 6CI 8C9 6C9 4C MX )@@G@@TYPE10TYPE11TYPE12TYPE13TYPE14TYPE153A 2A F4 F8 F7 TYPE23MY )@@G@@TYPE24TYPE25TYPE26TYPE27F2 TYPE31F4 F8 F17 F14 F40 F MZ )@@G@@$$--EXEC--$$DLOC$ SYS$ @@[@@@@@]@@@@@]@@] L,0. @@[ X^*NONE*@[J Q.NA )@@G@@@[[ PY@[# WQ0@@@@@@[A WQXA XB @@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]ANIMCNTR AMCXQT #@OJ">@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ATMRG GS+[ DBCONSG K*$DPDBKEYS NF )@@G@@I)$[#DDIREC$ ^ZACMEDIRLNK G(:^EEERU$ D1<]FEKPARCD NG )@@G@@IXR[#DKRFIND IY [#DPCORE IZG[#DPRATTS IZ*[#DPRT NH )@@G@@NCFDGERDFM$ J#K[#DREBD$ I)@[#DSORTF A!MFPD@@@@@@@@@@]^NI )@@G@@@@@@@@YL@@@[DGEBT=^XECK1@@@@@@@#C@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@]@@@@@@NJ )@@G@@$IBANK @@@@@F$DBANK @@-@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK@@[@^@[E@C@@@@@@AK@@[@^@C>@DE@@@@@-K@@[@^NM )@@G@@@AR@L\@@@@@SK@@[@^@BX@SA@@@@@@K@@[@^@TT@Z<@@@@@PK@@[@^@@\@8/@@@@@#K@@[@^NN )@@G@@@L0@9:@@@@@GK@@[@^@]<[FV@@@@@DK@@[@^@#,[H"@@@@@MK@@[@^@A0[L?@@@@@Y@@@[@^NO )@@G@@@AT[SW@@@@@A0@@@@ @]H^@@@@@@@-0@@@@ @[E^]H@@@@@S0@@@@ @@V^#R@@@@@=0@@@@ NP )@@G@@@@H^#2@@@@@@0@@@@ @CQ^#_@@@@@P0@@@@ @@%^GP@@@@@#0@@@@ @]W^G_@@@@@G0@@@@ NQ )@@G@@@WD^JV@@@@@D0@@@@ @@ ^:=@@@@@D0@@^@ @Y@^:(@@@@@M0@@@@ @]( D(@@@@@$0@@@@ NR )@@G@@@C" GM@@@@@Y)@@@@ @C@ PK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@DGET$BUF2 @@6@@]DIREC$ @@/@X2DIRINT NT )@@G@@@@S@@CDIRLNK @@P@@0DIRSEC @@S@[#DIR$ET @@P@@@RBIND$ NU )@@G@@@@3@@)RBPN$ @@M@@@RCITC$ @@3@@ORCOMP$ @@0@@]RCORT$ NV )@@G@@@@$@@@RCOSG$ @@3@[/RDRMT$ @@=@@YREBD$ @@%@@@RENDB$ NW )@@G@@@@M@H#REPA$ @@3@@ZRERR$ @@J@@:REXIT$ @@M@K6RFIND$ NX )@@G@@@@J@@]RFNDZ$ @@J@@@RFSTR$ @@=@@,RGKTC$ @@#@@@RKTI$ NY )@@G@@@@#@^=RKTO$ @@#@^%RLBLK$ @@!@^0RLNKS$ @@3@@YRNEW1$ NZ )@@G@@@@0@@^RNEW2$ @@J@@)ROB$ @@M@IZROPN$ @@V@@@RPARA$ OA )@@G@@@@0@@[RRCYC$ @@M@I0RRECS$ @@3@@[RREL$ @@M@G>RRET$ OB )@@G@@@@M@J)RSELA$ @@@@@#RSELE$ @@@@@ORSEL$ @@@@@SRSORT$ OC )@@G@@@@M@H>RSTRG$ @@J@@PRSVL1$ @@M@H:RSVL2$ @@M@I@RTMT$ OD )@@G@@@@!@@)RTPT$ @@!@@@RTST$ @@!@@KRWS$ @@0@@#SORTF OE )@@G@@@[]@ T#@KWB>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@DIRSIZ @@@@@@LASTD$ @@@ XJ@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@C@@_@@RUN,DOJ )@@G@@/NE CONFR,0-0040-OP8,OPERATIONS,1 @#@@@@@TEST TNE/0 @]@@@@OK )@@G@@@JUMP S @]@@@@@CONFR,C @]@@@@@JUMP FIN @]@@@@@S:CONFR,SC @]@@@@OL )@@G@@@FIN:FIN ___E(HE@)ES)@]@@@@C[#D9IC1M -#@#@@@@C[EE(HE@)C1DD0)^@)@#@@@@OM )@@G@@C[NBL#D9IC1M -NCS)@]@@@@C[ADDIBLADDI___MZ@M@COPL@#.@@@@@@@@@@@@@@@@@@@@VON )@@G@@@@@@@@@@@@@@@@@[;\@@@B)^*[@@@@*SDFF*@F@@_@@RUN,D CREATE,0-0040-OP8,OPEROO )@@G@@ATIONS,20,5000/1000 . NO DECK @#@@@@@TEST TNE/00/T2 @]@@@@@JUMP OP )@@G@@ ONCE@]@@@@@SETC,I @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTOQ )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> OR )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUOS )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CROT )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTOV )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> OW )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUOX )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CROY )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTPA )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> PB )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUPC )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRPD )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTPF )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> PG )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUPH )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRPI )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTPK )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> PL )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUPM )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRPN )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTPP )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> PQ )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUPR )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRPS )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTPU )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> PV )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUPW )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRPX )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTPZ )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> QA )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUQB )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRQC )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTQE )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> QF )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUQG )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRQH )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTQJ )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> QK )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUQL )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRQM )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTQO )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> QP )@@G@@@^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUQQ )@@G@@NID CREATE <><><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CRQR )@@G@@EATE @#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @#@@@@@BRKPT PRINTQT )@@G@@$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><><> QU )@@G@@@A@@@@@MSG I'M GONNA FIN SOON.........! @^@@@@@XQT SYS$*RUN$.CREATE QV )@@G@@@#@@@@@BRKPT PRINT$ @E@@@@@MSG,N RUNID CREATE <><><><><><><><><><><><><><> @^@@@@@XQT SYS$*RUN$.CREATE @]@@@@@MSG BYE! @]@@@@QX )@@G@@@JUMP FIN @ @@@@@ONCE:XQT SYS$*RUN$.CREATE @]@@@@@FIN:FIN ___ QY )@@G@@@^@@@@@XQT SYS$*RUN$.CR*[@@@@*SDFF*@B@@_@@RUN,A/RN GPUR,0-0040-OP8,SUNSQZ )@@G@@HINE,1,10 @ @@@@@MSG U H M C GPUR ACTIVE @#@@@@@TEST TNE/3/T2 RA )@@G@@@]@@@@@JUMP PRINT3@#@@@@@TEST TNE/4/T2 @]@@@@@JUMP PRINT4@^@@@@@XQT SRB )@@G@@YS$*RUN$.GPUR @]@@@@@JUMP OUT @]@@@@@PRINT3: @^@@@@@CAT SYMTAPERC )@@G@@3(+1),6C,ANY@^@@@@@SYM SYMTAPE3,T,PR3 @]@@@@@JUMP OUT @]@@@@@PRINTRD )@@G@@4: @^@@@@@CAT SYMTAPE4(+1),6C,ANY@^@@@@@SYM SYMTAPE4,T,PR4 @]@@@@RE )@@G@@@OUT:TALK @A@@@@WHAT ARE YOU PRINTING? FOR WHOM? @[@@@@@EOF ___ELDRF )@@G@@D1OA)'@A@@@@C[#CDO^[NFDH*[@@@@*SDFF*@B@@'@@RUN,A PRT,0-0040-OP8,SUNSHINERG )@@G@@,9,1000 @D@@@@@HDG PRT RH )@@G@@@#@@@@@XQT SYS$*RUN$.PRT___ )0 *0A@4A@!D9KD0?ETP*[@@@@*SDFF*@F@@@@@RUN,DRI )@@G@@/NER OPDOC,0-0040-OP8,OPERATIONS,5,500/2000 . NO DECK @#@@@@@ASG,ARJ )@@G@@ DOC/TOR. @[@@@@@TALK @^@@@@WHO IS THIS MANUAL FOR? @B@@_@@HDG,N X.S,DRK )@@G@@OC PAPER FOR OPERATIONS MANUAL@#@@@@@DOC,DARSI A @B@@@@ RL )@@G@@ UHMC OPERATIONS MANUAL @]@@@@SPACE 15 @C@@@@ RM )@@G@@ UHMC OPERATIONS MANUAL @]@@@@SPACE 5 @B@@@@ RN )@@G@@ UHMC COMPUTER CENTER @B@@@@ NEW YORK UNIVERSITY RO )@@G@@@[@@@@SPACE @ @@@@ SUITE 1F @C@@@@ RP )@@G@@ 1 WASHINGTON SQUARE VILLAGE@C@@@@ NEW YORK, NEW YRQ )@@G@@ORK 10013 @[@@@@SPACE @A@@@@ -OR- @[@@@@RR )@@G@@SPACE @C@@@@ C/O BRONX COMMUNITY COLLEGE@A@@@@ RS )@@G@@ MEDL BUILDING @E@@@@ WEST 181ST STRERT )@@G@@ET AND UNIVERSITY AVENUE@C@@@@ BRONX, NEW YORK 1045RU )@@G@@3 @#@@@@@ADD DOC.FULL @]@@@@@OUT:FIN ___D[JE(NC*)ETJC1OE9[EL RV )@@G@@^[[D1^^[#D9IETJD- ^[FC(TDDIES)@#_@@@C[EE(HE@)D9P*[@@@@*SDFF*@F@@@@@RUN,ARW )@@G@@ SECDEK,0-0040-167OV,SUNSHINE,200,2000 . **NONE DECKOZE** @#@@@@@TEST RX )@@G@@TE/00/S3 @^@@_@@ASG,NT IBACKUP01,U @#@@@@@TEST TLE/01/S3 @^@@_@RY )@@G@@@ASG,NT IBACKUP02,U @#@@@@@TEST TLE/02/S3 @^@@_@@ASG,NT IBACKUP03,RZ )@@G@@U @#@@@@@TEST TE/00/S4 @^@@_@@ASG,NT OBACKUP01,U @#@@@@@TEST SA )@@G@@TLE/01/S4 @^@@_@@ASG,NT OBACKUP02,U @#@@@@@TEST TLE/02/S4 @^@@_@SB )@@G@@@ASG,NT OBACKUP03,U @#@@@@@ASG,AX SEC*SEC @#@@@@@ED,U SEC*SEC. SC )@@G@@@]@@@@C Z@Z??Z ALL@]@@@@@SECURE,I C @#@@@@@ADD SEC*SEC. ___C(NE))E-GSD )@@G@@C*\A@1 9NA))@ _@@@C[[ETB -IE))D9]CD#DTPE@0AK?B[#@ @@_@C[[ETB -IE))D9]CD#SE )@@G@@DTPE@0AK?E*)@^@@@@C[OC(NE))E-GC*\A@2 9NA))@ _@@@C[[ETB -IE))D9]CD#DTPE@0SF )@@G@@*[@@@@*SDFF*@F@@@@@RUN,A SECURE,0-0040-167OV,SUNSHINE,200,2000 . **NONE SG )@@G@@DECKOZE** @#@@@@@TEST TE/00/S3 @^@@_@@ASG,NT IBACKUP01,U @#@@@@SH )@@G@@@TEST TLE/01/S3 @^@@_@@ASG,NT IBACKUP02,U @#@@@@@TEST TLE/02/S3 SI )@@G@@@^@@_@@ASG,NT IBACKUP03,U @#@@@@@TEST TE/00/S4 @^@@_@@ASG,NT OBACSJ )@@G@@KUP01,U @#@@@@@TEST TLE/01/S4 @^@@_@@ASG,NT OBACKUP02,U @#@@@@SK )@@G@@@TEST TLE/02/S4 @^@@_@@ASG,NT OBACKUP03,U @]@@@@@SECURE,I C @]@@@@SL )@@G@@CONSOLE ___ETB -IE))D9]CD#DTPE@0AC?B[#@ @@_@C[[ETB -IE))D9]CD#DTPE@0SM )@@G@@*[@@@@*SDFF*@C@@@@@RUN,A/R ROLBAK,0-0040-167OV,SUNSHINE,200,2000 @#@@@@SN )@@G@@@ASG,T ZOOM.,F2 @^@@_@@ASG,NT IBACKUP01.,U @#@@@@@TEST TLE/1/S3 SO )@@G@@@^@@_@@ASG,NT IBACKUP02.,U @#@@@@@TEST TLE/2/S3 @^@@_@@ASG,NT IBASP )@@G@@CKUP03.,U @^@@@@@XQT SYS$*RUN$.ROLBAK @^@@@@@SECURE,L ZOOM.ZOOM SQ )@@G@@___E))^[DCL[CTFE(KA@2 0?E*)^@)@ @@@@C[OC(NE))^@)*[@@@@*SDFF*@C@@@@@RUN,ASR )@@G@@/NR PAZZZ,0-0040-167OV,SUNSHINE,200,2000 @#@@@@@ASG,T ZOOM.,F2 @#@@"@SS )@@G@@@ASG,NT IBACKUP.,U@^@@@@@USE OBACKUP,IBACKUP @^@@@@@XQT SYS$*RUN$.PAZST )@@G@@ZZ @G@@@@@TEST TNE/1/S6 . SINGLE-FILE MODE? SU )@@G@@ @G@@@@@JUMP FOPT . YES, ADD F-OSV )@@G@@PTION @G@@@@@SECURE,L ZOOM.ZOOM . NO, DOSW )@@G@@N'T USE F-OPTION @]@@@@@JUMP OUT @ @@@@@FOPT:SECURE,LF ZOOM.ZSX )@@G@@OOM @]@@@@@OUT:FIN ___^@)^@)^@)^@)^@)^@)^@)*[@@@@*SDFF*@E@@@@@RUN,ASY )@@G@@/N LOAD,0-0040-167OV,SUNSHINE,200,999 . SECURE LOAD @#@@@@@SYS$*RUN$.LSZ )@@G@@OAD @^@@_@@ASG,NT IBACKUP01.,U @#@@@@@TEST TLE/1/S3 @^@@_@@ASG,NTA )@@G@@T IBACKUP02.,U @#@@@@@TEST TLE/2/S3 @^@@_@@ASG,NT IBACKUP03.,U TB )@@G@@@^@@@@@SECURE,L ZOOM.ZOOM @[@@@@@FIN ___^@)@A@@_@C[[ETB -IE))^[DCL[TC )@@G@@CTFE(KA@2 0?E*)^@)@ @@@@*[@@@@*SDFF*@B@@@@@RUN,A RTLOAD,8-1961-805AR,NYUTD )@@G@@MED,40,200 @#@@@@@ASG,T RESTORE @#@@.@@ASG,T SVTP1,U,ANY@^@@@@@USE TTE )@@G@@APESAVE,SVTP1 @^@@@@@USE TSVE2,TAPESAVE @#@@@@@TEST TE/1234/T2 TF )@@G@@@#@@@@@MOVE TAPESAVE.,1 @^@@@@@COPY,G TAPESAVE,RESTORE@#@@@@@ADD,P RESTOTG )@@G@@RE. ___C(NCDQC*)@ @]@[C[PET ^[NE1OE@1 -OCDKC(NCDQC*)@^@@@[C[OC(NE))E- TH )@@G@@*[@@@@*SDFF*@F@@@@@RUN,D/R STISTX,0-0040-167OV,SUNSHINE,99,500 . STISTI )@@G@@TX - NO DECK@^@@_@@ASG,T SYSLOG,U,LOG @A@@@@@MSG NO RING IN LOG, TJ )@@G@@PLEASE. @^@@@@@ASG,T 10,F///2000 @^@@@@@ASG,T 11,F///2000 TK )@@G@@@#@@_@@ASG,T SYSSQU,U @A@@@@@HDG,N .S,STISTIKAL PAPER PLEASE @^@@@@TL )@@G@@@XQT SYS$*RUN$.STISTX@]@@@@@PMD,ABLE @]@@@@@WIPE,ZJ @C@@@@@HDG,NTM )@@G@@ .S,RUN DONE, REAL PAPER AGAIN PLEASE. @[@@@@@FIN ___E[ EK)E[GC([ET TN )@@G@@@A@@@@C[SEDO^@)^@)ETTES= LME(I^),ETODDNE-S@#@@@@C[KD(^ -[CLGC*)^@)@]@@@@TO )@@G@@*[@@@@*SDFF*@F@@@@@RUN,A/RN UEFLOD,0-0040-167OV,SUNSHINE,200,2000 . **LOTP )@@G@@AD BY UEF** @^@@_@@ASG,NT IBACKUP01,U @^@@_@@ASG,NT IBACKUP02,U TQ )@@G@@@^@@_@@ASG,NT IBACKUP03,U @]@@@@@SECURE,LI A@^@@@@LOAD UNTIL UEF = 4TR )@@G@@5 @[@@@@END @D@@@@@MSG LOAD DONE - IF YOU NEED MORE, USE ROLBAK ORTS )@@G@@ LOAD.___ETB -IE))DD]CD#DTPE@0AS?E*)@#@@@@C[NC(#*[@@@@*SDFF*@G@@@@@RUN,ATT )@@G@@/RN VLOAD,0-0040-167OV,SUNSHINE,200,2000 . LOAD V-OPTION FILES @^@@_@TU )@@G@@@ASG,NT IBACKUP01,U @#@@@@@TEST TLE/01/S3 @^@@_@@ASG,NT IBACKUP02,TV )@@G@@U @#@@@@@TEST TLE/02/S3 @^@@_@@ASG,NT IBACKUP03,U @ @@@@@MSG TW )@@G@@V-OPTION LOAD BEGINNING @]@@@@@SECURE,IL A@^@@@@LOAD ALL V-OPTION FILES TX )@@G@@@[@@@@END @^@@@@@MSG V-OPTION LOAD DONE@#@@@@@FREE IBACKUP01 @#@@@@TY )@@G@@@FREE IBACKUP02 @#@@@@@FREE IBACKUP03 @#@@@@@TEST TE/14/S3 @]@@@@TZ )@@G@@@JUMP OUT @^@@_@@ASG,NT IBACKUO01,U @^@@_@@ASG,NT IBACKUP02,U UA )@@G@@@^@@_@@ASG,NT IBACKUP03,U @^@@@@@MSG UEF LOAD BEGINNING@]@@@@@SECURUB )@@G@@E,IL A@^@@@@LOAD UNTIL UEF = 45 @[@@@@END @^@@@@@MSG UEF LOAD DONUC )@@G@@E @]@@@@@OUT:FIN ___^@)@ _@@@C[[ETB -IE))DD]CD#DTPD80AC?B[#@ @@_@UD )@@G@@C[[ETB -IE))DD]CD#DTPD80AC?E*)@ _@@@C[[ETB -IE))DD]CD#DTPE@0AK?B[#@ @@_@UE )@@G@@C[[ETB -IE))DD]CD#DTPE@0*[@@@@*SDFF*@C@@@@@RUN,A/RN ZZZAP,0-0040-167OV,SUF )@@G@@UNSHINE,200,200 @#@@@@@ASG,T ZOOM.,F2 @#@@.@@ASG,NT OBACKUP.,U@^@@.@UG )@@G@@@ASG,NT IBACKUP.,U @^@@@@@XQT SYS$*RUN$.ZZZAP @^@@@@@SECURE,L ZOUH )@@G@@OM.ZOOM ___E@, )8CS)@ @@.@C[[ETB -IE))D9]CD#DTPE@, -P^@)@^@[@@C[OC(NUI )@@G@@E))^[OC*\A@0 9OAK)@ .@@]C[[ETB -IE))^[DCL[CTFE(K 0?B[#@ @@.@C[[ETB -IE))UJ )@@G@@*[@@@@*SDFF*@G@@@@@RUN,A/RN MERGE,0-0040-167OV,SUNSHINE,200,999 . SECURUK )@@G@@E TAPE MERGER @E@@@@@HDG MERGUL )@@G@@E.M,66,9,6. @[@@@@@COND @#@@@@@SYS$*RUN$.MERGE @^@@_@@ASG,NT OBACKUP01UM )@@G@@.,U @^@@_@@ASG,NT IBACKUP01.,U @#@@@@@TEST TLE/1/S4 @^@@_@@ASG,NUN )@@G@@T OBACKUP02.,U @#@@@@@TEST TLE/1/S3 @^@@_@@ASG,NT IBACKUP02.,U UO )@@G@@@#@@@@@TEST TLE/2/S4 @^@@_@@ASG,NT OBACKUP03.,U @#@@@@@TEST TLEUP )@@G@@/2/S3 @^@@_@@ASG,NT IBACKUP03.,U @^@@@@@SECURE,L ZOOM.ZOOM @^@@@@UQ )@@G@@@START SYS$*RUN$.REELS @B@@@@@MSG MERGE DONE, PRT AND REELS BEGINNING UR )@@G@@@#@@@@@FREE OBACKUP01 @#@@@@@FREE OBACKUP02 @#@@@@@FREE OBACKUP03 US )@@G@@@#@@@@@FREE IBACKUP01 @#@@@@@FREE IBACKUP02 @#@@@@@FREE IBACKUP03 UT )@@G@@@#@@@@@BRKPT PRINT$ @E@@@@@HDG UU )@@G@@MERGE PRT.M,66,9,6@]@@@@@SETC 0 @^@@@@@FREE $$--DGET--$$. @#@@@@UV )@@G@@@XQT SYS$*RUN$.PRT___E(KA@3 0?E*)^@)@A@@@@C[NC(#E(MC*?D))^@)^[UD9JD*,FLJUW )@@G@@D9H^@)@A@@@@C[NE-[ELO^[NFDN^)%ELPD0= 1MC( D-N^@)@E@@@@C[HETB^[HC(MC9 ^[^UX )@@G@@*[@@@@*SDFF*@G@@@@@RUN,A/RN LIBSAV,0-0040-167OV,SUNSHINE,90,9000 . **SAVUY )@@G@@E THIS PRINTOUT @#@@/@@ASG,NT IBACKUP,U @#@@/@@ASG,NT OBACKUP,U @#@@@@UZ )@@G@@@TEST TE/00/T2 @]@@@@@JUMP QUICK @]@@@@@SECURE,IL A@ @@@@SAVE ALL PROVA )@@G@@JECT $$--EXEC--$$ @]@@@@@JUMP FIN @#@@@@@QUICK:SECURE,IL A@ @@@@SAVE PVB )@@G@@ROJECT $$--EXEC--$$ @^@@@@@FIN:MFD,P $$--EXEC--$$ @[@@@@@FIN ___^@)VC )@@G@@@ /@@#C[[ETB -IE))D9]CD#DTPE@?B[#^@)@ @@/@C[[ETB -IE))D9]CD#DTPE@?E*)^@)VD )@@G@@@^@@@#C[OC(NE))E- 80A@\E)2^@)@#@@@#C[EE(HE@)EDPDD#DS)@ @[@@C[NC(#E(MC*?VE )@@G@@*[@@@@*SDFF*@F@@@@@RUN,A NEWSEC,0-0040-167OV,SUNSHINE,200,2000 . **NONE VF )@@G@@DECKOZE** @#@@@@@TEST TE/00/S3 @^@@_@@ASG,NT IBACKUP01,U @#@@@@VG )@@G@@@TEST TLE/01/S3 @^@@_@@ASG,NT IBACKUP02,U @#@@@@@TEST TLE/02/S3 VH )@@G@@@^@@_@@ASG,NT IBACKUP03,U @#@@@@@TEST TE/00/S4 @^@@_@@ASG,NT OBACVI )@@G@@KUP01,U @#@@@@@TEST TLE/01/S4 @^@@_@@ASG,NT OBACKUP02,U @#@@@@VJ )@@G@@@TEST TLE/02/S4 @^@@_@@ASG,NT OBACKUP03,U @^@@@@@COPY,A UHMC*NWLB.VK )@@G@@SECURE@]@@@@@.SECURE,I C@]@@@@CONSOLE ___@_@C[[ETB -IE))D9]CD#DTPE@0VL )@@G@@*[@@@@*SDFF*@B@@@@@RUN OOOPS,0-0040-167OV,SUNSHINE,20,500 @[@@@@@COND VM )@@G@@@A@@@@. OOOPS NOW SUPPORTS 3 OPTIONS: @ @@@@. O - TAPE IS OVERWRIVN )@@G@@TTEN @ @@@@. B - TAPE HAS BAD LABEL @A@@@@. J - LIST ALL FILES VO )@@G@@ON THE TAPE @[@@@@. @[@@@@. @G@@@@. FOR THE O OPTION, START THIVP )@@G@@S RUN WITH A CONDITION WORD OF 0 OR 1 @D@@@@. FOR THE B OPTION, USEVQ )@@G@@ A CONDITION WORD OF 2, AND @C@@@@. FOR THE J OPTION, USE A CONDITIONVR )@@G@@ WORD OF 3 @[@@@@. @[@@@@. @[@@@@. @#@@@@@TEST TG/1/T2 VS )@@G@@@B@@@@@XQT,O SYS$*RUN$.OOOPS . T2=0 OR 1 @#@@@@@TEST TNE/2/T2 VT )@@G@@@A@@@@@XQT,B SYS$*RUN$.OOOPS . T2=2@#@@@@@TEST TNE/3/T2 @A@@@@VU )@@G@@@XQT,J SYS$*RUN$.OOOPS . T2=3@E@@@@@TEST TLE/3/T2 VV )@@G@@. STRANGE CONDITION WORD? @C@@@@@JUMP AGAIN . YES,VW )@@G@@AGAIN NO @[@@@@@PMD,E@D@@@@@MSG OOOPS DONE ----- PRT AND REELSVX )@@G@@ STARTED @^@@@@@START SYS$*RUN$.PRT @]@@@@@FREE TAPE1 @]@@@@@FREE VY )@@G@@TAPE2 @#@@_@@ASG,NT OBACKUP,U @]@@@@@SECURE,IL @#@@@@SAVE DIRECTORY VZ )@@G@@@[@@@@END @#@@@@@FREE OBACKUP @]@@@@@SECURE,IL @]@@@@LIST REELS WA )@@G@@@]@@@@@JUMP OUT @D@@@@@AGAIN:MSG STRANGE CONDITION WORD, PLEZE START WB )@@G@@AGAIN @]@@@@@OUT:FIN ___@@@C[NE-[ELO^[NFDN^)%ELPD0= 1KELO@#@@@@C[AEL WC )@@G@@C*)E-[E[ AC)@#@@@@C[AEL C*)E-[E[ AK)@ _@@@C[[ETB -IE))D9]CD#DTPE@?B[#^@)WD )@@G@@@ @@_@C[[ETB -IE))D9]CD#DTPE@?E*)^@)@#@@@@C[NC(#*[@@@@*SDFF*@A@@@@. WE )@@G@@ CONDITION WORD SETTINGS: @[@@@@. @]@@@@. S3@]@@@@. WF )@@G@@ --@^@@@@. 00 - DRUM @^@@@@. 01 - TAPE @[@@@@WG )@@G@@. @[@@@@. @]@@@@. S4@]@@@@. --@ @@@@. 00WH )@@G@@ - NO SWITCHES @^@@@@. 01 - SWITCH 4 @ @@@@. 02 - SWIWI )@@G@@TCH 4/13 @ @@@@. 03 - SWITCH 4/9 @^@@@@. 04 - SWIWJ )@@G@@TCH 9 @[@@@@. @[@@@@. @C@@@@@TEST TE/0/S4 WK )@@G@@ . NO SW?@E@@@@@TEST TNE/4/S4 . OR JUST SW 9WL )@@G@@? @F@@@@@JUMP LABELB . YES, DON'T DO RLIBWM )@@G@@$ @C@@@@@ASG,UGPR SYS$*RLIB$//RLBKY$,F/8/TRK/1000 @E@@@@@COPY,WN )@@G@@G BOOT.,SYS$*RLIB$. . COPY FAST RLIBS @A@@@@@ASG,C WO )@@G@@SYS$*RLIB$//RLBKY$,F2 @E@@@@@COPY,G BOOT.,SYS$*RLIB$. . WP )@@G@@COPY SLOW RLIBS @G@@@@@ASG,C SYS$*RLIB$//RLBKY$,F17 . MARK DWQ )@@G@@IRECTORY AS F17 AGAIN @E@@@@@FREE SYS$*RLIB$. . WR )@@G@@SO MUCH FOR RLIB$ @ @@@@@MSG RLIB$ CREATED @G@@@@@DELETE,C WS )@@G@@E8*DUMPLIBS. . PANIC DUMP ANALYZER LIBRARY @ @@@@@ASG,CWT )@@G@@PRG E8*DUMPLIBS.,F2 @F@@@@@COPY,G BOOT.,E8*DUMPLIBS. . WU )@@G@@LAST FILE ON LIB TAPE @^@@@@@FREE E8*DUMPLIBS.@ @@@@@MSG WV )@@G@@DUMPLIBS CREATED @F@@@@@REWIND,I BOOT. . HAVE TWW )@@G@@O GET SYS$MAP NOW @E@@@@@MSG,W PLEASE SWITCH BACK TO THE BOOT TAPE WX )@@G@@- ANS GO @]@@@@@LABELB: @D@@@@@TEST TE/1/S3 WY )@@G@@ . TAPE BOOT? @C@@@@@JUMP NOMAP . NO WZ )@@G@@@G@@@@@DELETE,C SYS$*SYS$MAP. . COLLECTOR DIAGNOSTIC FILXA )@@G@@E @ @@@@@ASG,CPRG SYS$*SYS$MAP.,F2/5@G@@@@@COPY,G BOOT.,SYS$*SXB )@@G@@YS$MAP. . GET IT OFF BOOT TAPE, ALWAYS @ @@@@@FREE SYS$*SXC )@@G@@YS$MAP. @ @@@@@MSG SYS$MAP CREATED @G@@@@@FREE BOOT. XD )@@G@@ . WE'RE FINISHED WITH THE TAPE @]@@@@@NOMAP: XE )@@G@@@D@@@@@TEST TNE/4/S4 . SW 9 ONLY? @C@@@@@JUMP XF )@@G@@ BOOT9 . YES @E@@@@@TEST TE/00/T2 XG )@@G@@ . NO SWITCHES DRUM? @C@@@@@JUMP NOT0D XH )@@G@@ . NO @ @@@@@START,/X SYS$*RUN$.RECOV @#@@@@@JUMP XI )@@G@@LABELC@E@@@@@NOT0D:TEST TE/0100/T2 . NO SWITCHES TAPE? XJ )@@G@@@C@@@@@JUMP NOT0T . NOPE @ @@@@@START,/X XK )@@G@@SYS$*RUN$.RECOV,1 @#@@@@@JUMP LABELC@E@@@@@NOT0T:TEST TE/1/T2 XL )@@G@@ . SWITCH 4 DRUM??? @E@@@@@JUMP NOT4D XM )@@G@@ . NO, THAT'S GOOD! @ @@@@@START,/X SYS$*RUN$.RECOV,2 @#@@@@XN )@@G@@@JUMP LABELC@G@@@@@NOT4D:TEST TE/0101/T2 . HOW ABXO )@@G@@OUT SWITCH 4 TAPE? HUH? @G@@@@@JUMP NOT4T . XP )@@G@@SORRY, CHARLIE - TRY AGAIN @ @@@@@START,/X SYS$*RUN$.RECOV,3 @#@@@@XQ )@@G@@@JUMP LABELC@]@@@@@NOT4T: @C@@@@@TEST TE/02/S4 XR )@@G@@ . 4/13? @C@@@@@JUMP NOT413 . NOPE XS )@@G@@@B@@@@@START,/XRN SYS$*RUN$.ACCRUN,1300,413ACT @A@@@@@START,/XRN SYS$*RXT )@@G@@UN$.REGSTR,1300 @G@@@@@TEST TNE/0/S3 . WELL, XU )@@G@@WAS IT DRUM OR TAPE? @H@@@@@START,/X SYS$*RUN$.RECOV,4 . XV )@@G@@DRUM?? SHOW ME HOW YOU DID THIS ONE!@^@@@@@TEST TNE/01/S3 @E@@@@XW )@@G@@@START,/X SYS$*RUN$.RECOV,5 . 4/13 TAPE BOOT @#@@@@@JUMP XX )@@G@@ LABELC@E@@@@@NOT413:TEST TE/03/S4 . HOW ABOUT A XY )@@G@@4/9? @C@@@@@JUMP NOT49 . NOPE @B@@@@@STARTXZ )@@G@@,/XNR SYS$*RUN$.ACCRUN,1301,49ACT @D@@@@@TEST TNE/00/S3 YA )@@G@@ . 4/9 DRUM?? @H@@@@@START,/X SYS$*RUN$.RECOV,010 . YB )@@G@@YUP, SHARP OPERATORS WE GOT HERE @H@@@@@TEST TNE/01/S3 YC )@@G@@ . IF NOT DRUM, WAS IT TAPE, MAYBE? @E@@@@@START,/X SYS$*RYD )@@G@@UN$.RECOV,011 . YEAH, 4/9 TAPE @#@@@@@JUMP LABELC@E@@@@YE )@@G@@@NOT49: . GOT A WEIRDEE HERE@C@@@@@MSG YF )@@G@@ STRANGE CONDITION WORD ENCOUNTERED @B@@@@@MSG RECOVERY RUNYG )@@G@@S NOT STARTED @[@@@@@COND @ @@@@@MSG,W SUGGEST REBOOT @#@@@@YH )@@G@@@JUMP FIN @F@@@@@BOOT9: . IT'S AYI )@@G@@ SWITCH 9 BOOT @B@@@@@START,/RXN SYS$*RUN$.ACCRUN,1400,9ACCT @E@@@@YJ )@@G@@@TEST TNE/00/S3 . WAS IT FROM DRUM? @E@@@@@STARTYK )@@G@@,/X SYS$*RUN$.RECOV,6 . YUP, SWITCH 9 DRUM@E@@@@@TEST YL )@@G@@TNE/01/S3 . WAS IT FROM TAPE? @E@@@@@START,/X SYS$*RYM )@@G@@UN$.RECOV,7 . YUP, SWITCH 9 TAPE@]@@@@@LABELC: @F@@@@@WATLIYN )@@G@@B . DO THIS ON ALL BOOTS @G@@@@@DISCSYO )@@G@@,ML . PROVIDE DOCUMENTATION ON WHAT @F@@@@YP )@@G@@@DISCS,FL . STATE THE SYSTEM IS IN @D@@@@YQ )@@G@@@FIN:FIN . THIS TOO. ___ . YES @E@@@@YR )@@G@@*[@@@@*SDFF*@G@@@@@RUN,A/R SAVE,0-0040-167OV,SUNSHINE,200,999 . NO DECK-YS )@@G@@ DAILY SECURE SAVE@D@@@@@HDG SAVE.M,66,1YT )@@G@@0,8. @[@@@@@COND @^@@_@@ASG,NT OBACKUP01,U @#@@@@@TEST TE/00/S3 YU )@@G@@@]@@@@@JUMP ALL @#@@@@@TEST TLE/01/S4 @^@@_@@ASG,NT OBACKUP02,U YV )@@G@@@#@@@@@TEST TLE/02/S4 @^@@_@@ASG,NT OBACKUP03,U @]@@@@@SECURE,IL AYW )@@G@@@ @@@@SAVE EXCEPT PROJECT UHMC, SYS$@]@@@@@JUMP PRT @^@@_@@ALL:ASG,NT YX )@@G@@IBACKUP01,U @#@@@@@TEST TLE/01/S3 @^@@_@@ASG,NT IBACKUP02,U @#@@@@YY )@@G@@@TEST TLE/02/S3 @^@@_@@ASG,NT IBACKUP03,U @^@@_@@ASG,NT OBACKUP02,YZ )@@G@@U @^@@_@@ASG,NT OBACKUP03,U @]@@@@@SECURE,IL A@A@@@@SAVE ALL EXCZA )@@G@@EPT PROJECT UHMC, SYS$ @#@@@@@FREE IBACKUP01 @#@@@@@FREE IBACKUP02 ZB )@@G@@@#@@@@@FREE IBACKUP03 @^@@@@@PRT:FREE OBACKUP01 @#@@@@@FREE OBACKUZC )@@G@@P02 @#@@@@@FREE OBACKUP03 @^@@@@@START SYS$*RUN$.REELS @ @@@@@MSG SZD )@@G@@AVE DONE, PRT BEGINNING @]@@@@@SETC 0 @#@@@@@BRKPT PRINT$ @D@@@@ZE )@@G@@@HDG SAVE PRT.M,66,10,8.@#@@@@@XQT SYS$*RUZF )@@G@@N$.PRT@]@@@@@FIN:FIN ___E@0AS?B[#@ @@_@C[[ETB -IE))D9]CD#DTPE@0AS?E*)ZG )@@G@@@#@@@@C[NC(#E(MC*?DDG^[[@D@@@@ET[E1 ^[[D-G^[ F[#C(KE))E[MD9EC(#E))E(CD(#ZH )@@G@@ ))ETTES=^@)@^@@@@C[AEL *[@@@@*SDFF*@B@@@@@RUN,F/REY IN,,,30,500 . **FILZI )@@G@@E RESTORE** @#@@_@@ASG,T SVTP1,U,ANY@[@@@@@IN @]@@@@@PMD,ABLEP ___ETBZJ )@@G@@ -O^[NE1OE@1 -P -[D1T^@)@[@@@@C[DD0)@#@@@@C[KD(^*[@@@@*SDFF*@B@@@@@RUN,FZK )@@G@@/REY IOCHK,,,30,500 . ** @IOCHK RUN @#@@_@@ASG,T SVTP1,U,ANY@[@@@@@IOCHKZL )@@G@@@]@@@@@PMD,ABLEP ___ETB -O^[NE1OE@1 -P -[D1T^@)@]@@@@C[DD9#D[F^@)@#@@@@ZM )@@G@@*[@@@@*SDFF*@A@@@@. CONDITION WORD SETTINGS: @[@@@@. @]@@@@ZN )@@G@@. S3@]@@@@. --@^@@@@. 00 - DRUM @^@@@@. ZO )@@G@@ 01 - TAPE @[@@@@. @[@@@@. @]@@@@. S4@]@@@@. ZP )@@G@@ --@ @@@@. 00 - NO SWITCHES @^@@@@. 01 - SWITCH 4 ZQ )@@G@@@ @@@@. 02 - SWITCH 4/13 @ @@@@. 03 - SWITCH 4/9 ZR )@@G@@@^@@@@. 04 - SWITCH 9 @[@@@@. @[@@@@. @C@@@@@TEST ZS )@@G@@TE/0/S4 . NO SW?@E@@@@@TEST TNE/4/S4 ZT )@@G@@ . OR JUST SW 9? @F@@@@@JUMP LABELB ZU )@@G@@ . YES, DON'T DO RLIB$ @C@@@@@ASG,UGPR SYS$*RLIB$//RLBKY$,F/8/TZV )@@G@@RK/1000 @E@@@@@COPY,G BOOT.,SYS$*RLIB$. . COPY FAST RLZW )@@G@@IBS @A@@@@@ASG,C SYS$*RLIB$//RLBKY$,F2 @E@@@@@COPY,G BOOT.,ZX )@@G@@SYS$*RLIB$. . COPY SLOW RLIBS @G@@@@@ASG,C SYS$*RLIB$//ZY )@@G@@RLBKY$,F17 . MARK DIRECTORY AS F17 AGAIN @E@@@@@FREE SYS$*RZZ )@@G@@LIB$. . SO MUCH FOR RLIB$ @ @@@@@MSG RLIB$ CREATEAA )@@G@@D @G@@@@@DELETE,C E8*DUMPLIBS. . PANIC DUMP ANALYZEAB )@@G@@R LIBRARY @ @@@@@ASG,CPRG E8*DUMPLIBS.,F2 @F@@@@@COPY,G BOOT.,AC )@@G@@E8*DUMPLIBS. . LAST FILE ON LIB TAPE @^@@@@@FREE E8*DUMAD )@@G@@PLIBS.@ @@@@@MSG DUMPLIBS CREATED @]@@@@@LABELB: @D@@@@@TEST AE )@@G@@ TE/1/S3 . TAPE BOOT? @C@@@@@JUMP NOMAP AF )@@G@@ . NO @G@@@@@DELETE,C SYS$*SYS$MAP. AG )@@G@@ . COLLECTOR DIAGNOSTIC FILE @ @@@@@ASG,CPRG SYS$*SYS$MAP.,F2/5AH )@@G@@@G@@@@@COPY,G BOOT.,SYS$*SYS$MAP. . GET IT OFF BOOT TAPE, ALAI )@@G@@WAYS @ @@@@@FREE SYS$*SYS$MAP. @ @@@@@MSG SYS$MAP CREAAJ )@@G@@TED @G@@@@@FREE BOOT. . WE'RE FINISHED WITAK )@@G@@H THE TAPE @]@@@@@NOMAP: @D@@@@@TEST TNE/4/S4 AL )@@G@@ . SW 9 ONLY? @C@@@@@JUMP BOOT9 . YES AM )@@G@@@E@@@@@TEST TE/00/T2 . NO SWITCHES DRUM? @C@@@@AN )@@G@@@JUMP NOT0D . NO @ @@@@@START,/X SYS$*RAO )@@G@@UN$.RECOV @#@@@@@JUMP LABELC@E@@@@@NOT0D:TEST TE/0100/T2 AP )@@G@@ . NO SWITCHES TAPE? @C@@@@@JUMP NOT0T AQ )@@G@@ . NOPE @ @@@@@START,/X SYS$*RUN$.RECOV,1 @#@@@@@JUMP LABELCAR )@@G@@@E@@@@@NOT0T:TEST TE/1/T2 . SWITCH 4 DRUM??? @E@@@@AS )@@G@@@JUMP NOT4D . NO, THAT'S GOOD! @ @@@@@STARTAT )@@G@@,/X SYS$*RUN$.RECOV,2 @#@@@@@JUMP LABELC@G@@@@@NOT4D:TEST TE/010AU )@@G@@1/T2 . HOW ABOUT SWITCH 4 TAPE? HUH? @G@@@@@JUMP AV )@@G@@NOT4T . SORRY, CHARLIE - TRY AGAIN @ @@@@@STARTAW )@@G@@,/X SYS$*RUN$.RECOV,3 @#@@@@@JUMP LABELC@]@@@@@NOT4T: @C@@@@AX )@@G@@@TEST TE/02/S4 . 4/13? @C@@@@@JUMP NOT413AY )@@G@@ . NOPE @B@@@@@START,/XRN SYS$*RUN$.ACCRUN,1300,41AZ )@@G@@3ACT @A@@@@@START,/XRN SYS$*RUN$.REGSTR,1300 @G@@@@@TEST TNE/0/BA )@@G@@S3 . WELL, WAS IT DRUM OR TAPE? @H@@@@@START,/X BB )@@G@@SYS$*RUN$.RECOV,4 . DRUM?? SHOW ME HOW YOU DID THIS ONE!@^@@@@BC )@@G@@@TEST TNE/01/S3 @E@@@@@START,/X SYS$*RUN$.RECOV,5 . BD )@@G@@4/13 TAPE BOOT @#@@@@@JUMP LABELC@E@@@@@NOT413:TEST TE/03/S4 BE )@@G@@ . HOW ABOUT A 4/9? @C@@@@@JUMP NOT49 BF )@@G@@ . NOPE @B@@@@@START,/XNR SYS$*RUN$.ACCRUN,1301,49ACT @D@@@@BG )@@G@@@TEST TNE/00/S3 . 4/9 DRUM?? @H@@@@@START,/X BH )@@G@@SYS$*RUN$.RECOV,010 . YUP, SHARP OPERATORS WE GOT HERE @H@@@@BI )@@G@@@TEST TNE/01/S3 . IF NOT DRUM, WAS IT TAPE, MAYBBJ )@@G@@E? @E@@@@@START,/X SYS$*RUN$.RECOV,011 . YEAH, 4/9 TAPE BK )@@G@@@#@@@@@JUMP LABELC@E@@@@@NOT49: . BL )@@G@@GOT A WEIRDEE HERE@C@@@@@MSG STRANGE CONDITION WORD ENCOUNTERED BM )@@G@@@B@@@@@MSG RECOVERY RUNS NOT STARTED @[@@@@@COND @ @@@@@MSG,WBN )@@G@@ SUGGEST REBOOT @#@@@@@JUMP FIN @F@@@@@BOOT9: BO )@@G@@ . IT'S A SWITCH 9 BOOT @B@@@@@START,/RXN SYS$*RBP )@@G@@UN$.ACCRUN,1400,9ACCT @E@@@@@TEST TNE/00/S3 . BQ )@@G@@WAS IT FROM DRUM? @E@@@@@START,/X SYS$*RUN$.RECOV,6 . YUP, SBR )@@G@@WITCH 9 DRUM@E@@@@@TEST TNE/01/S3 . WAS IT FROM BS )@@G@@TAPE? @E@@@@@START,/X SYS$*RUN$.RECOV,7 . YUP, SWITCH 9 TAPEBT )@@G@@@]@@@@@LABELC: @F@@@@@WATLIB . DO THIBU )@@G@@S ON ALL BOOTS @G@@@@@DISCS,ML . PROVIDBV )@@G@@E DOCUMENTATION ON WHAT @F@@@@@DISCS,FL . BW )@@G@@STATE THE SYSTEM IS IN @D@@@@@FIN:FIN . BX )@@G@@THIS TOO. ___ . YES @E@@@@@TEST TE/00/T2 . BY )@@G@@NO SWITCHES DRUM? @C@@@@@JUMP NOT0D . NO BZ )@@G@@@ @@@@@START,/X SYS$*R*[@@@@*SDFF*@A@@@@. CONDITION WORD SETTICA )@@G@@NGS: @[@@@@. @]@@@@. S3@]@@@@. --@^@@@@. 00CB )@@G@@ - DRUM @^@@@@. 01 - TAPE @[@@@@. @[@@@@. @]@@@@CC )@@G@@. S4@]@@@@. --@ @@@@. 00 - NO SWITCHES @^@@@@CD )@@G@@. 01 - SWITCH 4 @ @@@@. 02 - SWITCH 4/13 @ @@@@. CE )@@G@@ 03 - SWITCH 4/9 @^@@@@. 04 - SWITCH 9 @[@@@@. @[@@@@CF )@@G@@. @C@@@@@TEST TE/0/S4 . NO SW?@E@@@@@TEST CG )@@G@@ TNE/4/S4 . OR JUST SW 9? @F@@@@@JUMP CH )@@G@@LABELB . YES, DON'T DO RLIB$ @C@@@@@ASG,UGPR CI )@@G@@SYS$*RLIB$//RLBKY$,F/8/TRK/1000 @E@@@@@COPY,G BOOT.,SYS$*RLIB$. CJ )@@G@@ . COPY FAST RLIBS @A@@@@@ASG,C SYS$*RLIB$//RLBKY$,F2 CK )@@G@@@E@@@@@COPY,G BOOT.,SYS$*RLIB$. . COPY SLOW RLIBS @G@@@@CL )@@G@@@ASG,C SYS$*RLIB$//RLBKY$,F17 . MARK DIRECTORY AS F17 AGAIN CM )@@G@@@E@@@@@FREE SYS$*RLIB$. . SO MUCH FOR RLIB$ @ @@@@CN )@@G@@@MSG RLIB$ CREATED @G@@@@@DELETE,C E8*DUMPLIBS. CO )@@G@@ . PANIC DUMP ANALYZER LIBRARY @ @@@@@ASG,CPRG E8*DUMPLIBS.,F2 CP )@@G@@@F@@@@@COPY,G BOOT.,E8*DUMPLIBS. . LAST FILE ON LIB TAPE CQ )@@G@@@^@@@@@FREE E8*DUMPLIBS.@ @@@@@MSG DUMPLIBS CREATED @F@@@@CR )@@G@@@REWIND,I BOOT. . HAVE TO GET SYS$MAP NOW @E@@@@CS )@@G@@@MSG,W PLEASE SWITCH BACK TO THE BOOT TAPE - ANS GO @]@@@@@LABELCT )@@G@@B: @D@@@@@TEST TE/1/S3 . TAPE BOOT? @C@@@@CU )@@G@@@JUMP NOMAP . NO @G@@@@@DELETE,C SYS$*SCV )@@G@@YS$MAP. . COLLECTOR DIAGNOSTIC FILE @ @@@@@ASG,CPRG CW )@@G@@SYS$*SYS$MAP.,F2/5@G@@@@@COPY,G BOOT.,SYS$*SYS$MAP. . GET ITCX )@@G@@ OFF BOOT TAPE, ALWAYS @ @@@@@FREE SYS$*SYS$MAP. @ @@@@@MSG CY )@@G@@ SYS$MAP CREATED @G@@@@@FREE BOOT. . CZ )@@G@@WE'RE FINISHED WITH THE TAPE @]@@@@@NOMAP: @D@@@@@TEST TNE/4/DA )@@G@@S4 . SW 9 ONLY? @C@@@@@JUMP BOOT9 DB )@@G@@ . YES @E@@@@@TEST TE/00/T2 . NO SWIDC )@@G@@TCHES DRUM? @C@@@@@JUMP NOT0D . NO @ @@@@DD )@@G@@@START,/X SYS$*RUN$.RECOV @#@@@@@JUMP LABELC@E@@@@@NOT0D:TEST DE )@@G@@TE/0100/T2 . NO SWITCHES TAPE? @C@@@@@JUMP NOT0T DF )@@G@@ . NOPE @ @@@@@START,/X SYS$*RUN$.RECOV,1 @#@@@@DG )@@G@@@JUMP LABELC@E@@@@@NOT0T:TEST TE/1/T2 . SWITCHDH )@@G@@ 4 DRUM??? @E@@@@@JUMP NOT4D . NO, THAT'S GDI )@@G@@OOD! @ @@@@@START,/X SYS$*RUN$.RECOV,2 @#@@@@@JUMP LABELC@G@@@@DJ )@@G@@@NOT4D:TEST TE/0101/T2 . HOW ABOUT SWITCH 4 TAPE? HUH? DK )@@G@@@G@@@@@JUMP NOT4T . SORRY, CHARLIE - TRY AGADL )@@G@@IN @ @@@@@START,/X SYS$*RUN$.RECOV,3 @#@@@@@JUMP LABELC@]@@@@DM )@@G@@@NOT4T: @C@@@@@TEST TE/02/S4 . 4/13? @C@@@@DN )@@G@@@JUMP NOT413 . NOPE @B@@_@@START,/XRN SYS$*RDO )@@G@@UN$.ACCR32,1300,413ACT @A@@@@@START,/XRN SYS$*RUN$.REGSTR,1300 @G@@@@DP )@@G@@@TEST TNE/0/S3 . WELL, WAS IT DRUM OR TAPE? DQ )@@G@@@H@@@@@START,/X SYS$*RUN$.RECOV,4 . DRUM?? SHOW ME HOW YOU DDR )@@G@@ID THIS ONE!@^@@@@@TEST TNE/01/S3 @E@@@@@START,/X SYS$*RUN$.REDS )@@G@@COV,5 . 4/13 TAPE BOOT @#@@@@@JUMP LABELC@E@@@@@NOT41DT )@@G@@3:TEST TE/03/S4 . HOW ABOUT A 4/9? @C@@@@@JUMP DU )@@G@@NOT49 . NOPE @B@@_@@START,/XNR SYS$*RUN$.ACCR32,1DV )@@G@@301,49ACT @D@@@@@TEST TNE/00/S3 . 4/9 DRUM?? DW )@@G@@@H@@@@@START,/X SYS$*RUN$.RECOV,010 . YUP, SHARP OPERATORS WE DX )@@G@@GOT HERE @H@@@@@TEST TNE/01/S3 . IF NOT DRUM,DY )@@G@@ WAS IT TAPE, MAYBE? @E@@@@@START,/X SYS$*RUN$.RECOV,011 . DZ )@@G@@YEAH, 4/9 TAPE @#@@@@@JUMP LABELC@E@@@@@NOT49: EA )@@G@@ . GOT A WEIRDEE HERE@C@@@@@MSG STRANGE CONDITION EB )@@G@@WORD ENCOUNTERED @B@@@@@MSG RECOVERY RUNS NOT STARTED @[@@@@EC )@@G@@@COND @ @@@@@MSG,W SUGGEST REBOOT @#@@@@@JUMP FIN @F@@@@ED )@@G@@@BOOT9: . IT'S A SWITCH 9 BOOT @B@@_@EE )@@G@@@START,/RXN SYS$*RUN$.ACCR32,1400,9ACCT @E@@@@@TEST TNE/00/S3 EF )@@G@@ . WAS IT FROM DRUM? @E@@@@@START,/X SYS$*RUN$.RECOV,6 EG )@@G@@ . YUP, SWITCH 9 DRUM@E@@@@@TEST TNE/01/S3 EH )@@G@@ . WAS IT FROM TAPE? @E@@@@@START,/X SYS$*RUN$.RECOV,7 . EI )@@G@@YUP, SWITCH 9 TAPE@]@@@@@LABELC: @F@@@@@WATLIB EJ )@@G@@ . DO THIS ON ALL BOOTS @G@@@@@DISCS,ML EK )@@G@@ . PROVIDE DOCUMENTATION ON WHAT @F@@@@@DISCS,FL EL )@@G@@ . STATE THE SYSTEM IS IN @D@@@@@FIN:FIN EM )@@G@@ . THIS TOO. ___ . YES @E@@@@*[@@@@*SDFF*@C@@@@@RUN,AEN )@@G@@/RN DISAB,0-0040-167OV,SUNSHINE,60,6000 @D@@_@@TEST TNE/1/T2 EO )@@G@@ . CW = 1 ? @G@@_@@XQT SYS$*RUN$.DISAB EP )@@G@@ . YES, ENABLE ALL WRN-ONLY FILES@D@@_@@TEST TNE/2/T2 EQ )@@G@@ . CW = 2 ? @E@@_@@JUMP RO . ER )@@G@@YES, DO SECURE,RO @E@@_@@SECURE,R . NO, JUES )@@G@@ST SECURE,R @D@@_@@JUMP FIN . ALL DONE ET )@@G@@@F@@_@@RO:SECURE,RO . CW = 2: HDW-DIS ONLY EU )@@G@@@]@@_@@FIN:FIN ___^@) 0)CTR^@.^@2B8)^@)@H@@_@C[OC(NE))^[OD1 82 9OAK)EV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)CTR^@.^@2^@_^@)@]_@_@C[EE(HE@)ELJEW )@@G@@*[@@@@*SDFF*@G@@@@@RUN,D PAKREG,0-0040-167OV,SUNSHINE,20,999 . REMOVABEX )@@G@@LE DISC REGISTER @]@@@@@ASG,T 8. @^@@@@@XQT SYS$*RUN$.PAKREG @[@@@@EY )@@G@@@SSG @[@@@@SGS @]@@@@@ADD,P 8. @[@@@@@EOF @[@@@@SKEL @#@@@@*IF [PEZ )@@G@@ACK] > 0 @^@@@@*INCREMENT A TO [PACK] @[@@@@#TALK @D@@@@EXEC MUST SEFA )@@G@@E [PACK,A,1,1] 'UP R' (ON ANY DRIVE).; @D@@@@ANSWER WHEN 'FS S/U' KEYFB )@@G@@IN SHOWS PACKID [PACK,A,1,1]. @A@@_@#ASG,TY IBACKUP,F24,[PACK,A,1,1] FC )@@G@@@#@@@@#SECURE,IL REG @^@@@@IBACKUP = [PACK,A,1,1] @^@@@@REGISTER FROFD )@@G@@M IBACKUP @[@@@@END @#@@@@#FREE IBACKUP. @[@@@@#TALK @C@@@@ANSWERFE )@@G@@ THE [PACK,A,1,1] MSG, IF ANY, WITH AN 'A'@[@@@@*LOOP @[@@@@*END @[@@@@FF )@@G@@@EOF @[@@@@@EOF ___E@)*[@@@@*SDFF*@C@@@@@RUN,A/RN REGSTR,0-0040-167OV,FG )@@G@@SUNSHINE,200,6000 @[@@@@. @B@@@@. CONDITION WORD SETTING (T2FH )@@G@@): @[@@@@. @E@@@@. 0000 - NORMAL, STARTED VIA 'ST' KEYIN FI )@@G@@BY OPERATOR @D@@@@. 1300 - STARTED BY 'SYS' DURING 4/13 BOOT FJ )@@G@@@G@@@@. 1400 - STARTED BY 'RECOV' FOLLOWING 'HDISAB' ON 4/14 BOOFK )@@G@@T. @[@@@@. @E@@@@@HDG REGISTER.FL )@@G@@M,66,10,8. @E@@@@@TEST TE/13/S3,TE/14/S3 . 4/14 OR 4/13FM )@@G@@? @D@@@@@JUMP REG . NO, GO ON @[@@@@FN )@@G@@@TALK @D@@@@ALL REMOVABLE DISC PACKS WHICH HAVE BEEN MOUNTED; @D@@@@FO )@@G@@SINCE THE LATEST DIRECTORY TAPE WAS WRITTEN MUST; @ @@@@NOW BE REGISFP )@@G@@TERED VIA PAKREG.;@A@@@@ANSWER WHEN ALL PAKREG'S ARE DONE. @[@@@@@REG: FQ )@@G@@@#@@@@@ASG,T ZOOM,F2 @ @@@@@XQT SYS$*RUN$.REGSTR @[@@@@. FR )@@G@@@G@@@@. S6 OF CONDITION WORD WILL BE 0 AT THIS POINT IF A DIRECTFS )@@G@@ORY @D@@@@. TAPE (NOT A BACKUP TAPE) IS BEING REGISTERED@[@@@@FT )@@G@@. @E@@_@@TEST TE/0/T2 . DIRECTORY TAPE? FU )@@G@@@E@@_@@ASG,TN IBACKUP.,U . NO, ASG THE TAPE. @E@@@@FV )@@G@@@MSG,W AT LEAST 1 DISC DRIVE MUST BE 'UP R' TO CONTINUE. @H@@_@@SECURFW )@@G@@E,L ZOOM.ZOOM . SECURE WILL FREE DIRECTORY TAPE FX )@@G@@@#@@@@@FREE IBACKUP @^@@@@@MSG REGSTR DONE @G@@@@@TEST TEFY )@@G@@/13/S3,TE/14/S3 . ST'D BY SYS ON 4/13 OR 4/14? @C@@@@@JUMP FZ )@@G@@ NOBOOT . NOPE @A@@@@@START,A/RNX SYS$*RUN$.VGA )@@G@@LOAD,1400 @A@@@@@MSG YOU MAY NOW RUN ALL JOBS @B@@@@@MSG,W PLGB )@@G@@EASE KEYIN 'CS A' AND 'D ON' @]@@@@@NOBOOT: @^@@@@@MSG PRT STARGC )@@G@@TING @]@@@@@SETC 0 @E@@@@@HDG REGSTGD )@@G@@R PRT.M,66,8,8. @^@@@@@XQT SYS$*RUN$.PRT @[@@@@@FIN ___C(#E(MC*?GE )@@G@@D))FLJD9H 1UD9JD*)@N@@_@C[NC(#E(MC*?D))FLJD9H 1UD9JD*)^@)^@)^@)^@)^@)^@)GF )@@G@@*[@@@@*SDFF*@[@@_@ @F@@_@@RUN,A SECZ,0-0040-167OV,SUNSHINE,200,2000GG )@@G@@ . **NONE DECKOZE** @^@@_@@MSG SECURE ARCHIVE RUN @#@@@@@TEST TE/00/GH )@@G@@S3 @^@@@@@ASG,NT IBACKUP01,U @#@@@@@TEST TLE/01/S3 @^@@@@@ASG,NGI )@@G@@T IBACKUP02,U @#@@@@@TEST TLE/02/S3 @^@@@@@ASG,NT IBACKUP03,U GJ )@@G@@@#@@@@@TEST TE/00/S4 @^@@@@@ASG,NT OBACKUP01,U @#@@@@@TEST TLE/01GK )@@G@@/S4 @^@@@@@ASG,NT OBACKUP02,U @#@@@@@TEST TLE/02/S4 @^@@@@@ASG,NGL )@@G@@T OBACKUP03,U @]@@_@@SECURE,IZ C@]@@@@CONSOLE ___^@)@ @@@@C[[ETBGM )@@G@@*[@@@@*SDFF*@C@@@@@RUN,A/NR ACCRUN,0-0040-167OV,SUNSHINE,60,600 @^@@@@GN )@@G@@@MSG LEVEL 32 ACCRUN @[@@@@. @ @@@@. CONDITION WORD SETTINGS: GO )@@G@@@[@@@@. @A@@@@. 0000 = STARTED BY OPERATOR @A@@@@. 1300 GP )@@G@@= 4/13 (RUNID IS 413ACT)@A@@@@. 1301 = 4/9 (RUNID IS 49ACT) @A@@@@GQ )@@G@@. 1400 = SW 9 (RUNID IS 9ACCT) @[@@@@. @^@@@@@MSG PLEASE RUN ACGR )@@G@@DECK @G@@@@@TEST TE/0/T2 . IF STARTED BY OP, GS )@@G@@SKIP MSG @B@@@@@MSG,W ANSWER WHEN VITAL ACCOUNTS ARE IN. @F@@@@@TEST GT )@@G@@TE/13/S3 . IS THIS A 4/13 OR 4/9? @C@@@@@JUMP GU )@@G@@NOT413 . NO @D@@@@@TEST TE/1/S4 GV )@@G@@ . 4/9 BOOT? @E@@@@@JUMP NOT49 GW )@@G@@ . NO, IT'S A 4/13...@G@@@@ . GX )@@G@@R/T FILES WILL DEFINITELY HAVE@E@@@@ GY )@@G@@ . TO BE RESTORED. @H@@@@@TALK . GZ )@@G@@IT'S A 4/9, SO MAYBE THEY'RE OK @B@@@@TRY STARTING R/T...IF IT DOESNHA )@@G@@'T WORK,; @]@@@@@NOT49: @[@@@@@TALK @B@@@@R/T FILES MUST BE RESTORHB )@@G@@ED. PLEASE START;@C@@@@RTLOAD OR RTREMP (WHICHEVER IS APPROPRIATE). HC )@@G@@@]@@@@@NOT413: @G@@@@@TEST TNE/14/S3 . IS IT HD )@@G@@A 9? IF SO, PUT UP MSG @E@@@@@MSG,W RECOV SHOULD START R/T SOON. MAKE HE )@@G@@SURE IT'S IN. @D@@@@@TEST TNE/14/S3 . SWITCHHF )@@G@@ 9? @G@@@@@JUMP K . YES, SKIP FILE-RESHG )@@G@@TORE STUFF @D@@@@@TEST TE/13/S3 . 4/13 OR 4/9?HH )@@G@@@F@@@@@JUMP P . NOPE, MUST BE OP START. HI )@@G@@@D@@@@@MSG YOU SHOULD NOW RUN ANY USER FILE-RESTORE RUNS @C@@@@@MSG,WHJ )@@G@@ SUCH AS THOSE FOR REGISTRATION, ETC. @]@@@@@JUMP J @E@@_@@K:MSGHK )@@G@@,W YOU MAY NOW RUN ALL JOBS: KEYIN 'CS A' AND 'CS AT'@A@@@@@J:MSG BL + HL )@@G@@PRINT QUEUES WERE LOST @A@@@@@MSG PLEASE NOTIFY ALL REMOTE SITES @^@@@@HM )@@G@@@XQT SYS$*RUN$.TALK @[@@@@@P:FIN___E(HE@)DS)^@)^@)^@)^@)^@)^@)^@)^@)HN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) 0)FD ES?^[NDTDE@)C1DD- (MC(NE-JEL ^[NE-PC1A^@)HO )@@G@@======@@^@@ @@@@@@@@@@@@@@ ^DO@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@L3TGAE70-1 @@@[@@@@@@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@A@@A@@AHQ )@@G@@@@@@@@@@@@@^@@@@I@@@@@@@@^@@@]@^@@@[@ @@@]K^@#@)@@@P"K@@@P"K@@@]WK@@@]WKHR )@@G@@@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WK@@@]WKHS )@@G@@@@@@#C@@@@#C@@@]WK@@@]WK@@@]WK@@@]WK@@@@#C@@@@#C@@@___@[=^@@@[N^[1@B6^DOHT )@@G@@)@H^[=)AK^#^)A6^LE@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HV )@@G@@PLEASE CONFIRM CORRECT DATE@@@@@@@@@@@Y^@@@@[^[$PLEASE READ IN PATCHES, HW )@@G@@IF ANY@@@@@@@@Y^@C@@[^[$KEYIN 'CS A' AND '@@D ON'@@@@@@@@@@@@@Y^@K@@[^[$HX )@@G@@PD TAKEN? YN@@@@@@@@G^@S@@[^[$WHAT SWITCHES?@@@@@@@@@@@@M^@X@@^^[$DRUM (HY )@@G@@DISC) OR TAPE? DT@@@@@@@@@S^@<@@[^[$ANS MUST BE XXX CHARS@@@LEGAL RESPONHZ )@@G@@SES:@@@@@@@@@@S@@@@@@@@@@@@@@@@@A@@@@@@@@@R7D@@@R3D@@@R\D@@@R:D@@@R$D@@@IA )@@G@@RR9K^E>IR )@@G@@R;@^[='=@@@CR;@@@[(^@^[=/K@^J(R]0^L] @@@@H')F^@7:8@@@ /K@^E5!8@@@0!8@@@'IS )@@G@@/K@^J3P;@@@0T8K@@EO#K@@G$'0@@ /K@^E?A#K^[K @@@@IR;A@@@;G@@@=W8@@@EO;K@@0IT )@@G@@;GK@@A/^@^E'A#)^[;C8@@@Y[C@^[>C8@^['[^@^[> @@^[=C8@@@A[C@^[&C8@^[$[^@^[&IU )@@G@@R9K^FER;@^[='=@@@C*4@^[=/,K^JS:70^[$/K@^KBN8K@@CC@@^[$C@)^L]2@I=]*/K@^JYIV )@@G@@&;)@@@A#)@[ R#I^]$A#@^]Z%8)@@A:8)@@^/K@^F&%8)@@]:8)@@#/K@^F&C@@^L#A#@^[>IW )@@G@@R#@^L^A#@^[&R9K^F=R;@^[='=@@@CR9K^F$R;@^@U'=@@@CR;@@@[%^@^@U/K@^J(R7@^[$IX )@@G@@%8@@@Y:8@@@N/K@^F1/K @@@AB@^]V'=@@@6)8@@[@R#@@@HRBK^]V:8K@@Y'=@@@5C8@^[_IY )@@G@@&;@@@S[@@^[>R#@^L A#@^[& @@^[=R9K^F_C8@^[='=@@@C*4@^[=/,K^JS:70^[$/K@^KBIZ )@@G@@C4@^[$:8@@@N/K@^GI%8@@@Y/K @@@R#@^# A#@^]XA#@^]-/K@^G%C8@^]#[^@^[>C8@@@SJA )@@G@@[C@^[>C8@@@A[C@^[& @@^[=R9K^GQC8@^[='=@@@C*4@^[=/,K^JS:70^[$/K@^KBR;@@@AJB )@@G@@%^@^[=/K@^J(C80@@ ')J^@7!8@@@0!4J^[[/K@^J28#0^G)R#@^[$A#@^]XR#K@@A%@K^K/JC )@@G@@A#@^]-C8@^]B&;@@@M[@@^[>R;@@@^AF@^[&R;@@@^AF@^[& @@^[=R9K^G3C8@^[='=@@@CJD )@@G@@*4@^[=/,K^JS:70^[$/K@^KBR;@@@^%^@^[=/K@^J(C80@@#')J^@7!8@@@0!4J^[B/K@^J2JE )@@G@@8#0^G. O@^[$R#@^[$O;@@00A#@^]WR#K@@A%@K^K/A#@^])R#)@[ C@@^LA[@@^]Y%8)@@]JF )@@G@@/K@^H*C8@^]E @@^]Y&;@@@A[@@^[>R;@@@AAF@^[& @@^[=R9K^HQC8@^[='=@@@C*4@^[=JG )@@G@@/,K^JS:70^[$/K@^KBR;@@@A%^@^[=/K@^J(R;0@@ ')J^@7!8@@@0!8@@@8/K@^J28#0^H)JH )@@G@@R#K^[$A#K^]Y/K@^IM%8)@@#/K@^IMC8@^]F[^@^[>C8@@@G[C@^[> @@^[=C8@@@E[C@^[&JI )@@G@@R9K^H2C8@^[='=@@@C*4@^[=/,K^JS:70^[$/K@^KBR;@@@E%^@^[=/K@^J(R;0@@D')J^@7JJ )@@G@@!8@@@0!8@@@8/K@^J2:80@@^P;0@@[8#0^H/9?@^[$;G@@@GR#@^[$Q;@ A#K^]YA#@^]ZJK )@@G@@%@@^]R:@@^LB/K@^IH/K@^IMR#@^L#R#K^L^9*@^[>R;@^[='=@@@CR;A@@@:@@^[K/K@^I5JL )@@G@@R9K^IQR;@^@)'=@@@C:70^[$/K@^KB(^@^@)/K@^K!N8K@@ C@@^[$C@K^L]2@H=]M/K@^K!JM )@@G@@&;K@@@P;K@@[;*K@@[R;@^@$R9K^I='=@@@C:70^[$/K@^KBR;@@@[%^@^@$/K@^J(R7@^[$JN )@@G@@%8@@@D:8@@@T/K@^I1/K @@@%8@@@DO;K@@[AFK^]V/K@^I9'=@@@6;*@@@G;@@@@S[C@^]VJO )@@G@@C@@^LCR;0@@D(@@^]UA#0^]U'=@@@J$[)^[K/K@^J['=@@@DRZ@^]U%8@@^)/K@^JCR;@@@DJP )@@G@@A#@^]UR;@@@XA#@^J7R#@^LAR;K@@^A#H^]+8#K^JER;K@@A @H^]V8#K^JHR#K^]URZ@^]UJQ )@@G@@%8K@@D:8@@^)/K@^JP/K@^KD:8K@@D @@^]U/K@^E8R;@^[7'=@@@CA#@^#]R;@^#@'=@@[QJR )@@G@@'=@@@)R;@^@,AB@^@2R;@^@1'=@@@CR;@^@4R;K@@BR;.^]*AB0^@5'=@@@C8#K^J=/K @@@JS )@@G@@O;@@@0!8@@@'O;@@06AF@^@?R;@^@%AB@^@2R;@^@1'=@@@C/K @@@')J^@7A<@^[GR;@^[HJT )@@G@@'=@@@C/K @@@@@@@@X@@@@@@'=@@@6;*@@@Y;C@@@Y/^@^K R#K^J7A#K^]U;CK@@S%8K@^)JU )@@G@@/K@^KBR;@@@;R9K^JC/K@^J3R;@@@['=@@@5*@@^]U/K@^K-R#@^J7A#@^]U*@@^]Z/K@^KKJV )@@G@@R;)@@[R#I^]$A#@^]Z*@@^]X/K@^KPR#@^# A#@^]-A#@^]X*@@^]W/K@^KUR#@^#AA#@^])JW )@@G@@A#@^]WR#@^LA%8)@@#:8)@@]R#@^LD(@@^]YA#@^]Y/K@^I5 @@@@G'=@@[[R;@@@]'=@@@5JX )@@G@@R;@^]4'=@@@CR#@^]_'=@@[Z'=@@@DR;@@@UA<@^J7/K@^KBR;@^@,AB@^@2R;@^@1'=@@@CJY )@@G@@R;@^@4R;K@@^R;.^]MAB0^@5'=@@@C8#K^K3/K @@@9 4/9 150 1@@[@@[JZ )@@G@@D#@^J7@[!7K@@CS AT@@M^]J@@A^[$@@[@@@@@G^]H@@Y^]+@@[^[$ 000 @@K^]SKA )@@G@@000000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]@@@[@ @@@@@]@@@@[=@@@@[=KC )@@G@@@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=KD )@@G@@@@@@[=@@@@@2@@@@@2@@@@@2@@@@@2@@@@@2@@@@@2@@@@@2ERU$ D1<]FERECOV KE )@@G@@ L3RGAE@@@@@2@@@@@2@@@@@2@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=KF )@@G@@@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=@@@@[=KG )@@G@@$IBANK @@@@@@$DBANK @@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#)@@@@ @LE^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@2@@@@@2KK )@@G@@@@@@@2@@@@@2@@@@@2@@@@@2@@@@@2@@@@@2@@@@@2@@@@@@*[@@@@*SDFF*@D@@@@@RUN,AKL )@@G@@ SDUMP,0-0040S,E8,50,600 . OUTPUT FOR SYSTEMS @[@@@@@BOX @#@@@@@SYM KM )@@G@@PRINT$,2,PR3@#@@@@@ASG,A DUMPLIBS @^@@@@@ADD DUMPLIBS.SDUMP @[@@@@KN )@@G@@@FIN ___C-B -I^[S 1H )6A0?AC?AC,^@)@^@@@@C[[ETB -[^@)C-PD(KD-DCLN@A@@@@KO )@@G@@C[[C-^^@)^@)C-PD(KD-DCLN 1NC-PD(K^@)@#_@@@C[MC(NE(HC*?D@)^@)@]_@@@C[[ETBKP )@@G@@ -O^[O@^_@@@C[]ELFE[O^[K*[@@@@*SDFF*@D@@@@@RUN,A LDUMP,0-0040S,E8,90,600KQ )@@G@@ . OUTPUT FOR SYSTEMS @[@@@@@BOX @#@@@@@SYM PRINT$,2,PR3 @#@@@@@ASG,AKR )@@G@@ DUMPLIBS @^@@@@@ADD DUMPLIBS.LDUMP @[@@@@@FIN ___ETB -[^@)C-PD(KKS )@@G@@D-DCLN@A@@@@C[[C-^^@)^@)C-PD(KD-DCLN 1GC-PD(K^@)@#_@@@C[MC(NE(HC*?D@)^@)KT )@@G@@@]_@@@C[[ETB -O^[O@^_@@@C[]ELFE[O^[KELDD1O^)\E))@]_@@@C[ADDGC(N^@)@^_@@@KU )@@G@@*[@@@@*SDFF*@#@@@@@ELT,ID QQQ @C@@@@@HDG MKV )@@G@@FD SORTED LISTING @ @@@@@MFD,ZBM ,,,SORT*ACCT. @D@@@@@HDG KW )@@G@@ FIXED FILES - THE REAL PIGS @A@@_@@MFD,MZ ,250/O,F,SORKX )@@G@@T*SIZE. @D@@@@@HDG CATALOGUED TAPE FILES KY )@@G@@@]@@@@@MFD,MTZ @C@@@@@HDG V-OPTION FILES KZ )@@G@@@]@@@@@MFD,MVZ @C@@@@@HDG G-OPTION FILES LA )@@G@@@]@@@@@MFD,MGZ @C@@@@@HDG <>LB )@@G@@@]@@@@@MFD,MRZ @[@@@@DIS @E@@@@@HDG FILES NOT LC )@@G@@REFERENCED IN 4 MONTHS @^@@@@@MFD,MDZ ,,,SORT*REF. @[@@@@@END @#@@@@LD )@@G@@@ED QQQ,QQQ @]@@@@L MFD,MDZ @[@@@@ @]@@@@@ADD 4. @[@@@@LE )@@G@@@EOF @]@@@@@ADD QQQ ___B0"@]@@@@C[HC1^ -HELU@[@@@@C-DES)@J@@@@C[CC-BLF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)C1DD- ES)D1JE))======@@^@@ @@@@@@@@@@@@LG )@@G@@@@ @GS@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E7^[KF70-1 @@@@@@LH )@@G@@@@@@@/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@A@@A@@G@@/@@@@@@@@^@@@@XO@@@@@@LI )@@G@@@^@@@]@^@#@[@ @@@]K^@A@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@NE@C@)^6@VE@@@___@@_^@@@]M^[S@]L^&V)@T^@_)+1^#%LL )@@G@@)BO^*?@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LM )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___C8G@@@;G@@@=W8@@8KC8?@@@LN )@@G@@C8H@@@/\K@CLC8)@@:')])EA;G@@@=W8@@@/C8?@@@C8H@@@/\K@CLC8)@@:')])EAC8?@@@LO )@@G@@C8V@@@;G)@@=W8)@@EG8)@@0')])EAC8\@@0')])EA/KH@@@;C@@@M+8@_@@;GK@@0/\K@CLLP )@@G@@C8)@@/')])EA+8@@_@;GK@@%/\K@CLC8)@@/')])EA+8@@@_C8!@[@/\K@CL/KF@@@;C@@@MLQ )@@G@@+8@@_@;GK@@%/\K@CL+8@_@@;CK@@FC@!@DHC80@@^;@)@@Y')])EA8#0@C\+8@@@_C8!@[@LR )@@G@@/\K@CL/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@;CK@@F9?H@DH/,0@E!C8)@@ ')])EAC@K@[[LS )@@G@@+8K@_@;G)@@%W8)@@E/@)@DAG8)@@0')])EAC8\@@0')])EAC8)@@,')])EA+8K@@_C8I@Y?LT )@@G@@C8K@@ RE1@@#/K@@F4 JAN UARY FEB RUARY MAR CH APR IL MAY LU )@@G@@ JUN E JUL Y AUG UST SEP TEMBER OCT OBER NOV ELV )@@G@@MBER DEC EMBER A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)@GQR^1@@@&80@@[C8@@GRLW )@@G@@M@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[LX )@@G@@O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@LY )@@G@@[?<@@@[*<@@@[=<@@@/?)@EG[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])EA/KF@@@;G@@@=LZ )@@G@@W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@ENN?L@@@MA )@@G@@Q^1@@@C8@@GRM@/)@@Q8)@@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ MB )@@G@@/K@@E,C80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@E4')])EA8#0@E,/KF@@@&"0__"/K@@E9MC )@@G@@&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[8#0@F@/KF@@@')G)FO0@@@@F%8)@@@')])EAMD )@@G@@/K@@E"C?[@@[C^L@@[/K@@FE;G@@@M;CK@@M&;@@@[&;K@@[')G)FO:0-@@@/K@@FL')])EAME )@@G@@/K@@FG[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@FUC)!)@@[^[@@]MF )@@G@@Q;@@@@/K[K@]C80@@@;G@@@#/@@@F&G80@@[;G@@@#/^@@F-C8)@@0')])EAC8)@@@;=K@@#MG )@@G@@G8)@@0')])EA8#0@F&/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@F&&"0__"/K@@F5C8K@@@MH )@@G@@&'0@@@N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@F./^@@F7/C@@G^0@@@@FMI )@@G@@/K@@G^;?)@@AG80@@-8KK@G^C@K@@I0@@@@F1@@@@G/K@@GFR;)@@-')])EA8KK@GFC8)@@ MJ )@@G@@0@@@@FC8)@@0/K@@GK')])EA8KK@GJC@)@@J')])EA;GK@@A/^)@GM/KF@@@@@[@@@ MK )@@G@@'=@@@3A#@^&-;C@@@F/)@@GYR;K@@[A#K^&+;C@@@ /)@@G+R;K@@[A#K^&<;C@@@C/)@@G&ML )@@G@@R;K@@[A#K^&=*@@^&+/K@@G.*@@^&'=@@@CR#@^&!%@@^$/K@@G?R;K@@[MN )@@G@@A#K^&= @@@@GA#@^=09?@^$&9*@^=OA#F^#I/%0@LNC/@^$ /,0@D$9?@^^4/,0@E!C/@@@*/,0@EKNL )@@G@@9?@^^6/,0@E!C/@@@./,0@EK/,0@D"R]0^*@R#F^>OA#F^#R/%0@L+C/@^$T/,0@D$C/@@@,NM )@@G@@/,0@EK9?@^^4/,0@E!C/@@@*/,0@EK9?@^^6/,0@E!C/@@@./,0@EK/,0@D"R]0^*[R#F^&QNN )@@G@@A#F^#)/%0@L3R#@^*]'=@@@J(@@^&6R;K@@[AZK^[ R;K@@]NZ )@@G@@A7K^[BR;K@@TA3K^[BR#K^#%A#K^[DA#K^A&R#K^[[AVK^[CA#K^A(R#@^=0*@@@@G/K@@ONOA )@@G@@R;@@@[A#@^=0/K@@OTR;@@@(AZ@^@.R#@^*PA#@^@"R;@^@''=@@@#R;@@@CAZ@^@.R#@^*QOB )@@G@@A#@^@"R;@^@''=@@@#R7@^@.*@@@@G/K@@O:8@@@[/K@@O,:8@@@]/K@@O,:8@@@DOC )@@G@@/K@@O,:8@@@E/K@@O,%8@@@F'=@@@)/K@@U-R;@@@(AZ@^@.R;@^@''=@@@#R7@^@.*@@@@GOD )@@G@@/K@@O6/K@@O,:8@@@[/K@@O_:8@@@D/K@@O,:8@@@E/K@@O,%8@@@F'=@@@)/K@@U-R#@^]3OE )@@G@@A#@^[ER#@^*PA#@^[WR;@@@CAZ@^[VR;@^[S'=@@@#R;@@@DAZ@^[V @@@@GA#@^[WR;@^[SOF )@@G@@'=@@@#R;@^]1'=@@@#R#@^#*A#@^@5R;@@@(AZ@^@8 @@@@GA#@^@9R;@^@5'=@@@#R7@^@8OG )@@G@@*@@@@G/K@@PV/K@@PLR;@@@*AZ@^@8R;@^@5'=@@@# @@@@GA#@^=0R7@^@8%8@@@['=@@@)OH )@@G@@/K@@NF/S@@@@R#@^#*A#@^@5R;@@@KAZ@^@8R#@^*RA#@^@9R;@^@5'=@@@#R7@^@8%8@@@@OI )@@G@@/K@@P"R#@^[@O;@@@[A#@^[@R;@@@CAZ@^@8R#@^#(A#@^@5R;@^@5'=@@@#R7@^@8%8@@@@OJ )@@G@@/K@@O,/K@@P>%8@@@[/K@@Q[/K@@RH:8@@@D/K@@QE:8@@@E/K@@QE:8@@@F/K@@U-:8@@@^OK )@@G@@/K@@P1'=@@@QR;@^@?'=@@@CR;@^@\'=@@@CR#@^=2:@@^*H/K@@P1:@@^$!/K@@QO/K@@QEOL )@@G@@/S@@@@R;@@@(AZ@^@.R;@^@''=@@@#R7@^@.*@@@@G/K@@QX/K@@QO%8@@@[/K@@Q=R;@@@*OM )@@G@@AZ@^@.R;@^@''=@@@#R#@^#(A#@^[SR#@^]3A#@^[ER;@@@CAZ@^[VR#@^*PA#@^[WR;@^[SON )@@G@@'=@@@#/K@@Q5:8@@@D/K@@QO:8@@@E/K@@QO:8@@@F/K@@U-'=@@@)R;@@@*AZ@^@8R#@^*SOO )@@G@@A#@^@5 @@^@9R;@^@5'=@@@#R7@^@8*@@@@G/K@@R@/K@@Q5%8@@@[/K@@RAR#@^[[P;@@@[OP )@@G@@A#@^[[/K@@I.:8@@@D/K@@Q5:8@@@E/K@@Q5:8@@@F/K@@U-'=@@@QRB@^@8AR@^[CR#@^[@OQ )@@G@@AB@^[BR;@@@DAZ@^@.R;@^@''=@@@#R#@^#(A#@^[SR#@^]3A#@^[ER;@@@CAZ@^[VR#@^*POR )@@G@@A#@^[WR;@^[S'=@@@#R#@^*T'=@@@JA#@^=31@@@@G/K@@T R#)@@G @@@@H;?K@@[ @@@@HOS )@@G@@;?K@@I/S@@@@*@@@@H/K@@TS;?K@@#(@@@@G'=@@@QR;K@@[O#K^&,A#K^&,R#K^$('=@@@0OT )@@G@@R#K^&,%8K@@^/K@@RZC/@^$J/,0@D$R#@^$3/,0@E:C/@@@ /,0@EK9?@^^4/,0@E!C/@@@*OU )@@G@@/,0@EK9?@^^6/,0@E!C/@@@(/,0@EKRR@^ )/,0@F3C/@@@)/,0@EKC/@@@ /,0@EKR#@^*UOV )@@G@@/,0@E:C/@@@ /,0@EKR#@^$'/,0@E:C/@@@ /,0@EKR#@^*V/,0@E:C/@@@ /,0@EKR#@^*WOW )@@G@@/,0@E:C/@@@ /,0@EKR#@^*X/,0@E:C/@@@ /,0@EK9?@^*Y/,0@E!C/@@@ /,0@EKC@@^[[OX )@@G@@/,0@F3C/@@@:/,0@EKC/@@@ /,0@EKR#@^$3/,0@E:C/@@@ /,0@EK9?@^*)/,0@E!C/@@@ OY )@@G@@/,0@EKR#@^*+/,0@E:C/@@@ /,0@EK9?@^*/,0@E:C/@@@ OZ )@@G@@/,0@EK9?@^*&/,0@E!C/@@@ /,0@EKR#@^*+/,0@E:/,0@D"/K@@UVR;@@@KA<@^>5R;@@@WPA )@@G@@AZ@^>8R;@@@[A\@^>8R;@^>'AB@^>8R;@^>5'=@@[PA#@^=5R#@^&H%@@^ +/K@@TS/S@@@@PB )@@G@@/S@@@@R;@^[]'=@@[PA#@^=4C/@^$J/,0@D$R#@^$3/,0@E:C/@@@ /,0@EK9?@^^4/,0@E!PC )@@G@@C/@@@*/,0@EK9?@^^6/,0@E!C/@@@(/,0@EKRR@^ )/,0@F3C/@@@)/,0@EKC/@@@ /,0@EKPD )@@G@@R#@^*U/,0@E:C/@@@ /,0@EKR#@^$'/,0@E:C/@@@ /,0@EKR#@^*W/,0@E:C/@@@ /,0@EKPE )@@G@@C@@^#%/,0@E:C/@@@ /,0@EKR#@^*X/,0@E:C/@@@ /,0@EK9?@^*Y/,0@E!C/@@@ /,0@EKPF )@@G@@C@@^[[/,0@F3C/@@@ /,0@EKR#@^$7/,0@E:C/@@@ /,0@EKR#@^[A/,0@CSC/@@@ /,0@EKPG )@@G@@R#@^*X/,0@E:C/@@@ /,0@EKR#@^[A/,0@C@C/@@@ /,0@EKR#@^**/,0@E:/,0@D"R#@^*(PH )@@G@@'=@@@IR#@^*%'=@@@J/K@@I./K@@I.R;@^[X'=@@@C'=@@@Q@@@@@@R#@^*:A#@^@3 @@^@4PI )@@G@@R;@^@2'=@@@CC/@^&\/,0@D$RB@^@8/,0@F3C8@^]Y/,0@FC/,0@D"R#@^*^A#@^@3R;@^@2PJ )@@G@@'=@@@CC/@^&\/,0@D$C8@^]%@@^$!/K@@V[/K@@QO'=@@@D@@@@@@@@Y^[)PL )@@G@@@@A^=6TAPE1 @@@@@@@K@@@@@[@^#:TAPE1 @@@@@@@*@@@@@@@@@@@@@@@@PM )@@G@@@@%^[>@@@@@@@@@@@@@@%^]'@@[^=1@@@@@@@@S^[?@@@@@@@@@@@@@@Y^[0@@@@@@TAPE1 PN )@@G@@ @@@@@@@K@@@@@[8^^:@@@@@@@@:^[.@@@@@@TAPE1 @@@@@@@*@@@@@@@@@@PO )@@G@@@@@@@@@@:^#^@@A^=1@@@@@@@@2^=9@@[^=1@@@@@@@@2^] @@@@@@@@@@@@@@2^]I@@[^=2PP )@@G@@@@@@@@@@@@@@@@@@@@TAPE1 @@@@@@@@@@@@@@@@@@TAPE2 @@@@@@@@@@@@PQ )@@G@@@@@@@@TAPE2 @@@@@@@@@@@@@@@@@@@@@@@@@@&^&V@@@@@@KEY IN REEL NUMBERPR )@@G@@ TO BE READ YOU ASKED FOR @@@@@@ AND LOADED @@@@@@WAITING FOR 1 TAPEPS )@@G@@ DRIVE THIS IS NOT A SECURE TAPE THERE ARE NO FILES TO COPY OFF OFPT )@@G@@ TAPE @@@@@@************ END OF INPUT TAPE ************ UNRECOVERABLPU )@@G@@E PARITY ON INPUT TAPE, SHOULD REST OF FILE BE COPIED AND DIRECTORPV )@@G@@Y CHANGED? YN NON INTEGRAL BLOCK READ OFF INPUT TAPE WORDSPW )@@G@@ OF 1800 WORDS READ& ONLY & CHARACTERS OF LAST WORD READ CONTINUE? YPX )@@G@@N& TAPE1 @@@@@@@-@@@@@@@@@@TAPE2 EOTEOT@@@@@@@-@@@@@@@@@@PY )@@G@@@ASG,NT TAPE1,6C LOAD @@@@@@ ON / ANSWER -A- OR -N- @ASG,NT TAPZ )@@G@@PE2,6C RING BLANK ON / KEY IN REEL NUMBER USED @ASG,AXQY QA )@@G@@ @FREE QB )@@G@@ @USE USEFIL QC )@@G@@NOMORETAPE1 TAPE2 ********** YOU KILLED ME ********** @@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@V^&*@@[^&!NO OPTION ENTERED - RETRY @@@@@@@@@@@@@@D^=9QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D^>]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D^>FQF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B^>O@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U^>V@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^&Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@O J B TAPE1 @@#^#[@@@BO0@@[DJ)@@#^]7QJ )@@G@@@@H^=]@[D^>]@[D^>F@@2^>F@@[^=1R S Y __"@@_@@@^=7QM )@@G@@@@[@@[@[@^#:__"@[7USEFIL @@I^[E@[8^A<@WC^CVTAPE1 @@D^#GCOPIEDOUTPUTQN )@@G@@@@TAPE@@@@AT@@@@POSITION@@@@ASSIGNED******@@@DIRECTORY@@@NOT@@@@@CHANGEDQO )@@G@@@HOURS@]Q^>V@@D^#P@@2^]R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]QQ )@@G@@@@@#@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@A E60[KFEDIT$ MZ4F^EEDIT$T HJ\GC^ERU$ D1<]FEQT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@#$DBANK @@D@@[@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK@@[@^@[$@C@@@@@@#QX )@@G@@K@@[@^@]1@D$@@@@@@@@@[@^@I2@GS@@@@@@)@@@@ @*?^@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@ECHAR$ @@#@@(ECLEAR$ @@#@@8ECOLN$ @@#@@_ECOL$ @@#@@?RA )@@G@@EDAY1$ @@@@@SEDCFZ$ @@#@]EEDECF$ @@#@]HEDECV$ @@#@]GRB )@@G@@EDITR$ @@#@@HEDITX$ @@#@@REDIT$ @@#@@@EDIT$T @@#@@ZRC )@@G@@EFD1$ @@#@[^EFD2$ @@#@[AEMSGR$ @@#@[YEMSG$ @@#@[-RD )@@G@@EOCTF$ @@#@] EOCTV$ @@#@[7ESKIP$ @@#@@2ETIME$ @@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@======@@^@@ @@@@@@@@@@@@@@ [O<@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@N[7[RF71-3 @@@@]@@@@@^%@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@9@@A@@A@@-RI )@@G@@@[8@@@@@#@@^@@@]C^@@@@@@@^@@@]@^@H@[@ @@@]K^@N@)[PK^HA?9K@@]/K@[@T%9K@@]RJ )@@G@@/K@[@MRF0^HV:80@@T/K@[@TR#)^HFO#)^HF![@@@I/K@[@TRFK^H:/K@[@-H9K@@[?[@^HFRK )@@G@@/K@[@VR#)^HFT@)@@L?[@@@I/K@[@K @@^H%/K@[@1R#)@@K[+>@C@) V[%>@@@___@]I^@@RL )@@G@@@[C^]S@[V^#5@@"^B@@@E^D@@] ^E>@@E^HC@@G^H9@@Z^IJ@[]^I"@]R^L\@A=^OU@E ^VMRM )@@G@@)@E^]I)@P^#))[0^ K)[]^B")[V^DE)@Y^G%)@$^HM)@E^I )@K^I,)[\^K@)@O^OA)@O^U"RN )@@G@@R#0@C"C[@@C./K@@C^9?0@C.AB:@@ 9*;@@@Q;0@C;A#;@@][@V@@# @F@@^;@@@@[DJ@@[/,0@F)A3J@@@/K@@D_C9@@I"/K@@F R;K@I3SE )@@G@@/,0@FK/,0@FY;D@@@A/K@@GCC9@@@AC9K@@AAFZ@@[;G@@@=W@@@@K/^K@FWR:(@@@P;)@@[SF )@@G@@W@K@@KA3Z@@@?@K@@L/@:@@@C9@@M2/?K@'8?8@@@]/K@@FWR:D@@@P;@@@[K^D@@[D9@@@@SG )@@G@@P;K@@=/GK@F(;GK@@=W8K@@=/K@@F!RB(@@[C9K@@@; I@@=;GK@[C;DG@@@[[J@@]ABZ@@[SH )@@G@@D9K@@@;DY@@@][Z@@#/KF@@@R;K@KT/,0@FK/K@@F;R;K@K+?8@@@MR;K@K&/,0@G+O#K@@GSI )@@G@@P;K@@[;GK@@=W@K@@LA7\@@@:9K@@AA3\@@@/,0@F)/K@@D_R;K@L /,0@G+/,0@FY;D@@@DSJ )@@G@@+[J@@][[Z@@]/K@@D_(CE@@^/K@@D//,0@G+/,0@F)/-@@GRT8@<<=T8)WWWO;)@@HA7\@@@SK )@@G@@A3J@@@R;@@LG/K@@D"/H@@GYR;@@@$>9@@C@R;@@@+:9@_8@R;@@@:/K@@GORBD@@[T8@WWWSL )@@G@@O;@@@)/K@@GOC9@@@DC9K@@^[1U@@@/K@@FMRB%@@]O;)@@^A#)^G*R;K@@-/,0@'J/K@@G\SM )@@G@@RBG@@@A#@^G*/KEK@@C9@@M1(4E@@@/?K@'8&;)@@]&'0@@[R#'@@[C[@^]D&;@C[G&'KN@)SN )@@G@@/K@@H+C9@@M6/?K@'80@J@@@/K@@G9R\Z@@@C[K^]E:8K@@DG.K@@#QA_@@@N^Z@@[(@J@@]SO )@@G@@/K@@HIQ'Z@@]A]Y@@@O;)@@[&;K<[HQ;F@@@Q;V)@@9*I)@@&;KC[X/K@@HQ&;KC[X0@J@@]SP )@@G@@/K@@HNO'0@@[/K@@HRQ;F@@@Q;V)@@9*I)@@9(I)@@8KK@HN(@J@@#/K@@H+Q'Z@@#A]Y@@@SQ )@@G@@O;)@@[&;K<[HQ;F@@@Q;V)@@9*I)@@9(I)@@$B'@@]/K@@G;R#@^]FA#I@@@O;)@@[C9@@I1SR )@@G@@R;0@IE(0E@@@/K@@H\0K@^]G/K@@H\R;0@IFC9@@I2AB0@ID[ @@I0RBU@@#/KEK@@?[@@@LSS )@@G@@/KF@@@/KF@@[![@@@L/KF@@@/KF@@[(4E@@@/KF@@@AA'@@@R'0@@@ABE@@#/K@@I (4E@@@ST )@@G@@/KF@@@AA'@@@R'0@@[ABE@@#/\@@IHR#'@@[R;@)@[(0E@@@/K@@IF/K@@IE'=@@[\RFE@@]SU )@@G@@/K@@I(R#'@@[C[@^]H/K@@IWR#%@@#OB\@@@E^Z@@[0@J@@#O;K@@[0@J@@]/K@@ITO;)@@[SV )@@G@@/K@@IV-[I@@@[[Y)@@8#K@IT$B'@@]/K@@IK/KG@@@RFZ@@[R2Z@@@R#%@@#OB\@@@N^Z@@[SW )@@G@@/KH@@@C9@@@[;[D@@[-[I@@@[[Y@@@$B'@@]/K@@IZ/KF@I?/\@@IHR;@@@[(0E@@@/K@@I2SX )@@G@@/K@@I1'=@@[\/KEK@@')D@KH%8K@@-/K@@I(C[J@@]-[I@@@/K@@I'D[Y@@@[[Y)@@8KK@I9SY )@@G@@C[J@@#/K@@I$C9@@@[;[D@@[+[I@@@')F@J#/K@@I6/[K@I$/ K@I$CDX@@@C X@@@K4I@@@SZ )@@G@@')F@J [5Y@@@K0I@@@')F@J [1Y@@@K?I@@@')F@J [!Y@@@K*I@@@')F@J [(Y@@@K=I@@@TA )@@G@@')F@J [>Y@@@K)I@@@')F@J [-Y)@@8KK@JB/KD@JUK=I@@@')F@J [>Y@@@K*I@@@')F@J TB )@@G@@[(Y@@@K?I@@@')F@J [!Y@@@K0I@@@')F@J [1Y@@@K4I@@@')F@J [5Y@@@/K@@I(K0I@@@TC )@@G@@')F@J [1Y@@@/K@@I(K0I@@@')F@J [1Y@@@K?I@@@')F@J [!Y@@@/K@@I(K0I@@@')F@J TD )@@G@@[1Y@@@K?I@@@')F@J [!Y@@@K*I@@@')F@J [(Y@@@/K@@I(K0I@@@')F@J [1Y@@@K?I@@@TE )@@G@@')F@J [!Y@@@K*I@@@')F@J [(Y@@@K=I@@@')F@J [>Y@@@/K@@I(R7Y@@@R3Y@@@R\Y@@@TF )@@G@@R:Y@@@R$Y@@@RY@@@[-Y@@@O#)@[[0@J@@#O;)@@[TG )@@G@@')D@KH')F@K)')D@KN/K@@K,CDX^@DC X^@D')D@K9')F@L#')D@K"R6Z@@@O#)@[[0@J@@#TH )@@G@@O;)@@[')D@K5!8K@["/K@@I(')F@K3')D@K">9K@^@/K@@I(R#%@@#OB\@@@/K@@I6CXX^@DTI )@@G@@CTX^@DRZY@@@RNY@@@RVY@@@RRY@@@CXI@@@CLI@@@CTI@@@CPI@@@CXI@@[[XY@@@[LY@@@TJ )@@G@@[TY@@@[PY@@@[XY@@[)9@@^@-9@@^@')D@K'')F@L#')D@K_')D@K5%8K@@!/K@@I(/K@@I6TK )@@G@@RFE@@^/KD@LIKWI@@@')F@J ?^U@@^[XY@@@KKI@@@')F@J ?^U@@^[LY@@@KSI@@@')F@J TL )@@G@@?^U@@^[TY@@@KOI@@@')F@J ?^U@@^[PY@@@O;)@@[8KK@LIR7Z@@@/KH@L-KSI@@@')F@J TM )@@G@@?^U@@^[TY@@@KKI@@@')F@J ?^U@@^[LY@@@KWI@@@')F@J ?^U@@^[XY@@@RFE@@]/K@@I(TN )@@G@@KKI@@@')F@J ?^U@@^[LY@@@/K@@L,KKI@@@')F@J ?^U@@^[LY@@@KSI@@@')F@J ?^U@@^TO )@@G@@[TY@@@/K@@L,/K@@L"*@@^H,/K@@MJC[@^H\(@@@@KC9@@QT[ @@R#C[@^HL[ @@NY[D@^]WTP )@@G@@9?@^]ZR#)^]+9!@^])[[@@Q+[[K@R19!@@NX/K@@MP9?@^]A#@@NDA#K@NSA#)^]O[[@@NW[[K@Q'C9@@@@R;K@@0/,0@'J/K@@M+&;0@@@C1G@@@TR )@@G@@%80^]?C(G@@@[1J@@] @J@@B/,0@M&/K@KL"CDJ@@D[ J@@KCDJ@@J[ J@@J @J@@F @J@@ITS )@@G@@R#J@@A'^@[D5/KF@@@/K@@M\RFJ@@EAF@^#OR7J@@#A3@^]YRFJ@@CA#@^]MK@@^]OABK^]STT )@@G@@K^J@@DABK^]NOBZ@@DAFK^]NR;K@@#AFW@@[ C@^]KR3J@@]AB@@N19?J@@IA#@^]TABK^]UTU )@@G@@/K@KM\/K@@N C[J@@FG9@@@[[[J@@FC[@^]W;D@@@MN@K@@KKD@^]OR#K^]MGDX@@[! Z@@DTV )@@G@@: Z@@D/K@@NQ/,0@NZC[@@[[KD@^]OG9K@@#[DX@@[R#)^]S/S@@@@&;@@@[M#?)@@A#)^]STW )@@G@@/K@KN /K@KN &;@@@@AB0@SLCD@^]KG9@@@[[D@^]K9?K^]M[DH@@]CDX@@[;^K@@M;@K@@MTX )@@G@@9*K^]M%9@@@[/K@@N0R#)^]UC[@^]T[[I)@@A#)^]U/K@@OL[ Y@@[*8@@@@/K@@N6/\0@OUTY )@@G@@RB)^]N[[I@@@0@@^#R'=@@@A*4@^#R/K@@SK(^I@@[/K@@OO&F,@@[R#0^]T9*)^#SR;)^#OTZ )@@G@@R30^]Y%80@@]/K@@ODRF0^#SG80@[\;G0@@=W80@[0T80@[0AF0^#SR30^]YA\0^]Y/\0@O-UA )@@G@@[[@^]TA#@^]PR;@^#O'=@@@[R#@^]PK@K^]OAB)^]S/KF@@@CDY@@]%9K@@[/K@@N/R#0@SLUB )@@G@@&B\@@D/K@@N. @@@@K&;)@@[CDY@@[H9K@@]G[I)@[8^K@OY/KJ@@@CDI@@^C!K^]Y/[K@O,UC )@@G@@%9K@@]/K@@O:G9@@[\;H@@@=W9@@[0;(@@@]/K@@O,G9@@@V;H@@@=W9@@@WG[I@@ /KJ@@@UD )@@G@@/K@@O0C J@@KH9@@@[/H@@SN[ J@@K/,0@NZ CH@@[/,0@N)C9@@@#[DH@@[ C@^]K0@@^#RUE )@@G@@'=@@@A*4@^#R/K@@SK/K@KO0R#@^]MRFW@@[:8K@@#/K@@PP'^@@O0RB0@R R#@^H0*^J@@KUF )@@G@@!4J@@[/K@@PP9!@^]T[[J@@I[ Z@@J/K@[E>/K@@PIAB0@R (@J@@F/K@@SEC5J@@]:9@@@#UG )@@G@@/K@@P@RB_@@@'^@[EORB0@R C J@@@[ @@QTC J@@E[ @^]V[[@^]LC1J@@][ @@RZCDJ@@EUH )@@G@@[D@^#IR7J@@#A7@^]YC J@@D[ @@QEA@K^]QA@)^]RA@0^]PRC_@@JRCZ@@DP^Z@@KA^K^]KUI )@@G@@RA_@@CAA0@Q;R#@@@[R#K^G*/\)@C#R#@@@[K@@@@[O;K@@CR@)@@HO]0@@HAA0@Q,R#K^G*UJ )@@G@@/\)@C#O@)@@F ^@@R>R#)@@]&B)@QER#3@@@R#K@@#/,0@RP/,0@RURA0@Q,/\)@CORB@^#MUK )@@G@@O#@^]O')@@Q'R#K@@#RA0@Q;/\)@COO80@@[O8)@@@P8K@@[*@@@@[/K@@P;C9K@RH[ K@R@UL )@@G@@ @@^]% @@^]:A^)@RMR@K^]QR@)^]RR@0^]P/K@@Q,D/@@@@/K@@Q!R;0@@@R#@^]L'^JK@#UM )@@G@@C[@^]%G9@@@[[[@^]%R#@^]IR#)^]VNCK^]I/S@@@@&;@@@[M#?)@@C @^]I% @^]J/K@@Q'UN )@@G@@RF0^]J(^J@@[/K@@QRAB0@RM/,0@RUA#@^]XR'0@@@/\)@CS/G@@R/A#@^]J;C@@@M*^G@@[UO )@@G@@/,0@RKRF@^]X;*@@@M;K@@@M/G@@Q;O#@^]O&;@@@@R'0@@@/\)@CSA#@^]I&;@@@@RBK^]LUP )@@G@@/,0@RH/K@@SP/K@@QT/,0@QT/K@@QTR;0@@@R#\@@HO#)^HLA#\@@HC[@^]:G9@@@[[[@^]:UQ )@@G@@/K@@QZC[@^G*[ @@R@/K@@QZCDG@@][ @@R>R;)@@@&B?@@[R#/@@@9*)^#MR;@^#I ^@@R4UR )@@G@@'=@@@[/KF@@@0@@^#L'=@@@A*4@^#L/K@@SRRB@^#M*8@@@@/K@@R>R#)@@G/\0@OU%[G@@@US )@@G@@/K@@R4C9@@@@G9@@@[%DG@@]/K@@SVCDG@@[R;)^#IR70^]YA\0^]Y/\0@O+[[G@@@OFG@@[UT )@@G@@PF@^]OPB@@NY&B@^#M/KF@@@C9@@@@G9@@@[!9@@@E/K@@ST[ @@R4R;@^#I'=@@@[/K@@RUUU )@@G@@RB0@QTR#@^]L'^JK@#RB0@R C[@^]%G9@@@[K[@^]:%[Z@@F/K@@SNG[J@@B[[J@@B/,0@M&UV )@@G@@RB0@QT/K@[C8RB_@@@'^@[EORB0@R C J@@@[ @@QT/K@@SBC9@@@5R;0@@@/?K@SYC9@@@0UW )@@G@@/?K@SXC9@@@4/?K@SXC9@@@5/?K@SXC9@@@6/?K@SXC9@@@7/?K@SXRB0@R GDJ@@^/K@@'8UX )@@G@@/?K@@@RB@^H,/^@@V*C8@@T [^@^#WC8@@TS[^@^#XC8@@VB[^@^#YC@@^H\/^@@S?R;@@UMUY )@@G@@AB@@UFC@@^G*[^@^#9[^@^#8AB@@T=AB@@UCC@@^HL[^@^#7G8@@@[C8K@@@C^)^#A#@@XOR;@@X'AB@@XTR;@@VUAB@@Y7R;@@@0A7@@ZNR;@@@1A7@@XR#@@@H/K@@)8/,0@)C/K@@)>C9@@)-[ @@)8/K@@)+'^@@+\RB)^ BC[@^ WO )@@G@@/\0@+*R#K^ ARF!@@SO;)@@[AF!@@SRB.@@S:^\@@['^@@>?R'0^ K/\)@CS(@@@@G/K@@)\WP )@@G@@A#K^ A/K@@)1C9@@)5[ @@)1/K@@)8RBK^ B/,0OG*/K@@:C/K@@)8/K@@)9/S@@@@RA0@)'WQ )@@G@@R#0@@G;C0@@M+@@^ E)@0@@HP#@@@HRBK^ @[[H@@@K8K@@[K^!@@@O;0@@[?^0^ [/K@@-,WR )@@G@@[[@^ GK8)@@@O;0@@[?^0^ [/K@@-NRB0O F;@0@@MA#.@@@'^@@+6C[@^ G/K@@-[L^)^ [WS )@@G@@O;0@@]K^0^ G)[@^ E[[K^ GH H@@@] H@@@(@@@@J/K@@-+E[@@@JRF0^ [O;0@@[AF0^ [WT )@@G@@/\0@+*P#)^ DRB.@@@;@0@@MA#"@@@O;)@@['^@@+6C[@^ G[[H@@@K8K@@[K^)^ GO;0@@[WU )@@G@@!^0^ [/K@@-NABK^ F/K@@++C9@@-3[ @@)8/K@@-4'^@@+\L8@@@[C H@@@RFX@@@RB)^ BWV )@@G@@/\0@+*/K@@-9P#@@@KL8@@@[C[H@@@/,0@-[(^G@@@/K@@+]O;@@@[/K@@)?R#K^ ARB.@@SWW )@@G@@'^@@>?L8@@@[*@@@@G1@H@@@/K@@)?C H@@@[[@^ GR#K^ FK H@@@[ X@@@RB)^ @/,0@-%WX )@@G@@/K@@-"AFK^ B(^G@@@/K@@+QO;@@@[/K@@)?AB)@+YRBK^ ARB.@@S'^@@>?L8@@@[*@@@@GWY )@@G@@1@H@@@/K@@)?R;)@@@C H@@@/\0@+*/K@@+MRF0^ [O;0@@[AF0^ [/\0@+*AB)^ @/KF@@@WZ )@@G@@O#@^ DO#)^ D+D@^ EN@K@@LM#?)@@P#@^ D/KJ@@@/S@@@@AB@@+4RB0K$QR#@^ B'^JK@#XA )@@G@@R;@@@@/K@K+\/S@@@@AB@@C[@^B[R#K^B][[@^BBAFK^B#R;@^B#'=@@@[RFK^ @XD )@@G@@RB)^B[/\@@C9@@@]%5@^BA/K@@:P/K@@R#K^ ]/,0@$ R#K^ ]R;)@@[%@!@@0/K@@=0XI )@@G@@(@@^ ^/K@@:[R;K^B8(^H@@0/K@@:['^@@=ZR;K^B8/K@@>['^@@+\RB0K$Q/K@[C8/S@@@@XJ )@@G@@R#K^ #ABK@=_ ^@^BGR;0@@@AB0@&KR;0@)2AB0@)1R;@@@@RBK^G*R'0^AC/\)@C#RB@@=$XK )@@G@@RBK^G*R'0^ K/\)@C#/K@K=Z'^@@=ZR;K^B8:@K^ ]/K@@=8*CH@@0/K@@>C*^H@@0'^@@>KXL )@@G@@O;K@@[!@K^B@:@K^B@/K@@=2R#K^ ](^@^BG/K@@>G:8K@@@/K@@>A'^@@>KRBK@=_RF!@@@XM )@@G@@A#K^ ]A#)^B]R;K@@@/K@@>LR#!@@0P#)^ DA#!@@0/K@@=8R#!@@0O#)^ DA#!@@0/K@@=1XN )@@G@@/S@@@@ABK@>Z(^@^BG/K@@>+'^@@&P/,0@>_/S@@@@R#K^ AR'0^AC/\)@COR#K^ AR'0^ KXO )@@G@@RBH@@SO;@@@@/\)@COR;K@@@(@@@@H/K@@>(A#K^ A'^@@&HRBK@&KOFK^BGABK@&KR#K^ AXP )@@G@@/K@K>KR;)@)?A#)@>?/K@@>5/S@@@@AB0@&KD8@@@@A#H@@S*4J@@[/K@K>?'^@@&P/,0@>_XQ )@@G@@/K@@>.R'0^AC/\)@CS*@@@@G'^@@&HR#0^ AR#J@@SOB@@>X/K@K>?R#K^ A/K@@>8R#K^ AXR )@@G@@A#!@@SR#@@@J*4I@@[/K@@&#/K@@&^P#@^ O;@@@[/KF@@[PFG@@@L8@@@[1@H@@@/KF@@[XS )@@G@@/KF@@@/S@@@@RF!@@@AF)^BCR;0@@@AB0^BGR;@^BC'=@@@[/K@K&H/S@@@@0@@^BF'=@@@AXT )@@G@@RBK^BFR7)^BF/@)@&+%8)@@^/K@@:MR\)^BF/@)@&+%8)@@ /K@@:MP;K@@[RB)^BG:CY@@@XU )@@G@@/K@@&(!CY@@@%8K@[&/K@@:GRFY@@@(8@@@@/K@@&,K@)@@HP;0@@]/K@@&6P;K@@^K8)@@[XV )@@G@@O#0^ D @@@@KG[J)@[8#K@&2%[J@@[/K@@:IC @O AG9@@@[% I@@@/K@@:Z[ @O A/K@K&PXW )@@G@@/S@@@@R;K^B8ABK@$@/,0@$ R;K@@@:@K^B@/K@K&/O;K@@[/K@@&"R;0@@)RF!@@@0@@^BKXX )@@G@@'=@@@AAF)^BH ^H@@@A30^BKR;@^BH'=@@@[/KF@@@/S@@@@RBK^B[O;K@@]%^K^ @'^I@@@XY )@@G@@'^@@<>R#@^H0R;0@@@/K@K$J/S@@@@R;)@$3'^@@$J?4J@@[/K@[E>R#J@@A'^@[D5'^@@&/XZ )@@G@@/,0@$)R#K^B@A#K^ ]A#K^ #RF!@@@A#)^B]R;)@=AAB)@)\R;K^B9/K@@=L/S@@@@R;)@*NYA )@@G@@'^@@$J!4J@@[:4J@@[/K@[E>RB)@=$AB\@@K/K@@:[/S@@@@'^@@<,(C@^ I/K@@$_RF)^ IYB )@@G@@R;K^B8%^K^ IAF!@@0O;K@@[%@K^B@/K@@$9 C@^ IR#K^ ]R#.@@0P#0^ DO;0@@[A#.@@0YC )@@G@@K8K@@[:@)^B@R;)^B8%^)^ I/K@@*J(CH@@0/K@@*HO;)@@[/K@@* A#K^ IAF0^ IA#)^ ]YD )@@G@@CDI@@@[[@^B]/K@K$3/S@@@@R#J@@A'^@[D5'^@@<,'^@@<>R#K^ ]R;)@@[A#!@@0K8K@@[YE )@@G@@A#)^ ]RF,@@@A#)^B]/,0@$ R;0^^YRBZ@@KP;K@@[ABZ@@K(@@@@H/K@@$0/K@K*N/S@@@@YF )@@G@@'^@@(W/K@K*$/S@@@@/,0@%30@@^ C/K@K*%R;K^B9K8K@@[:@)^B@R;)^B8O#)^ DA#)^ IYG )@@G@@/,0@%8/K@K*%/S@@@@'^@@(WR;0^^YRF\@@D:8)@@] @@^ ^*@@^ ^P;)@@[AB)@=$AB\@@KYH )@@G@@/K@K*6/S@@@@/,0@%30@@^ C/K@K([R;K^B8*@@^ ^O;K@@[/,0@%8/K@K([/S@@@@ @@^ ^YI )@@G@@R;K@@E/,0@'J/K@@(KA#K^ ^RF\@@DP;)@@[AB)@=$R;K^B7C9K$C [DX@@[ @H@@1O;K@@[YJ )@@G@@G9K@[@8#)@(PA#K^B@/K@K(E/S@@@@'^@@(?AB0@$QC Z@@D[DK^BG[ K@C9K@%)/K@@%FC[K^HL[[K^ C9K@)8*@@^H\C9K@)K[ K@)9R'0@)AR;@@<9R;K@@]YN )@@G@@R;)@& C9@@%WC9K@%SAB@@<4ABK@>XAB)@&^[ @@:[[ K@$)AA_@@# ^@@&(R;K@@0/,0@'JYO )@@G@@/K@@%R*?G@@@ABK@&(/K@K(?C9K@)WC[@^ H[[@@)E/K@@%R#0^B>/K@@:TR;) A2/K@@:NR;) A3/K@@:NYT )@@G@@R;) A4/K@@:TR;) A5C9@@@@/K@@:-R;) A6C5@^BARF0^B#'^@@?DAB)^B%A#0^B&[[@^B$YU )@@G@@R;@^BQ'=@@@C'=@@@)H I@@@R;) A7[[@^B=RF0^BCAF0^BLC5@^BF'^@@?DE@K^B=!8K@@AYV )@@G@@/K@@:K[[@^BXA#0^BWAB)^B)R;@^BT'=@@@CRFK^B<%8KGO '=@@@)R;K@&QABK@&HR#K^B=YW )@@G@@P;K@@[(@@@@H/K@@&M#@K^BPR;)@@(1@@@@HR;)@@*A3)^BOR;@^BL'=@@@#(4@^BO/K@@?^YX )@@G@@R;)@A8C5@^BORF0^BL/K@@:SR#K^BPP;K@@[/@K@&MA#K^BP/K@@:./S@@@@C9K ;(K@@MYY )@@G@@;H@@@#'L@^G-;(@@@#;!@@@#G9@@@0;!@@@G[[@^BXAF0^B:R;@^B:'=@@[X@@#A3.@@^;C0@@AA7.@@^ZK )@@G@@H9@@@[[ H@@[ @H@@AR#!@@BA#!@@C @H@@BRB!@@^AB)@9>/\0@9/R;K@9[DG@@@R;)^D@/\0@+*AB@@8@'^@@7'RFK^D]ZM )@@G@@P;K@@[ABK@6(R3K^D[%^K@=$/K@@'D(@@^DC/K@@1\R\K^DCO;K^B8ABK@9\RBK^DCABK@90ZN )@@G@@RFK^DC;CK@@AABK@93RBK@)8ABK@96R;K@9?ABK@)8R;K@)S*@@^H,R;K@99ABK@91/K@@1\ZO )@@G@@(8@@\G/K@@\ZRB@@\GR;)^D@C9@@[>/\0@+*R;K^D@/\0@9/R;K@@V/,0@'J/K@@\T'^@@07ZP )@@G@@/K@@\U'^@@'^R#K^D]%@K^FK/K@@'F/,0K:[/K@@,6R;K@@G/,0@'J/K@@\0'^@@07R;K@@VZQ )@@G@@/,0@'J/K@@\%R#K^FKA#K^D]/,0K:[/K@@1\R#K^G@^F?;-@@@AR#@^G='=@@@J/KF@@@/S@@@@ZX )@@G@@C9@$D R;0^B9R;K@@G/,0@'J/K@@0'R#)^B>AB@@1#R#WK@@A#Z@]P[DJ@@@/,0@00R;@@1#ZY )@@G@@R;K@@G/,0@'H/K@@1EG9@@@[O;0@[@/K@@0"AB0^B@P;0^B8AB0@=$A30^D['^@@1Q/\)@0PZZ )@@G@@/\0@1)'^@@3:/,0K$)C9K@4W[ K@)\/K@K07/S@@@@R;K^^\ABK@$QR;K@[>AFK^D@R;K@3CAA )@@G@@ABK@&#R#K^G>A#K@8-/K@K1QRFK^^7R;@@@@RB)@=$O;)@@#W@@@@IAB@^^8AF@^BGP;)@@]AB )@@G@@T@@@@IOB@^^7AF@^^7RB@^^7AB@@=A ^H@@@(@H@]P/K@@2]A#K^ AAB)@2['^@@2^RBK^ AR;)@@@AB)^ A'^@@>KAD )@@G@@ABK@1.R;)@@@O;K@@[/K@@13/S@@@@RF.@@@'^@@?DA#0^E3RBK^ AR#H@["O;@@@[A#H@["AE )@@G@@R#!@]PA#)^E8/,0^^@[ K^E60@@^BF'=@@@A9?K^BF9*K^F\RFK^BCABK@2!R;@^F4'=@@@CAF )@@G@@RBK^ A'^@@&H0@@^BF'=@@@ARB)^BGR#Y@@]A#K^E_RBI@@[/,0^^@[ K^E.R#K^E8%@K^E_AG )@@G@@/K@@22RBK^E6%^K^E./K@@22'^@@&PRF0^D RB)^BG?C"@@ /K@@80R;K@@@AFK^BC9?@^F\AH )@@G@@9*@^BF/K@K2^R#K^E3A#K^E9R#K^ A'^@@8NR;@^F7'=@@@C/K@@2Q/S@@@@C[H@]P[[@^F AI )@@G@@R#H@["/,0^^@[ K^F#R#K^ A'^@@8NRF0^BH'^@@?DA#0^F@R;@^F''=@@@CR#K^ A/K@K29AJ )@@G@@AA0@=#AB@@3RC H@@@[DH@@0'^@@29RB!@@SC9@@@8:5I@@[/K@@=# CI@@[R;@^BH'=@@[XAK )@@G@@RBK^ A'^@@2^RA0@=#R;@@@@/K@@&^/S@@@@'^@@3:R#)^H=:@)^D^/K@K3TR#0^D^O;0@@[AL )@@G@@A#0^D#A#)^D^R;@@@@O;@@@[AB@@3+O;@@J*/,0^^@[ K^D]/,0@82'^@@7'/K@K3T/S@@@@AM )@@G@@RF)^D AB)@C9K@@A/K@@4ZAQ )@@G@@'^@@<,'^@@8RC9K@@B[-K^FJR;@^G@'=@@@C/K@@4+/S@@@@R;0^^\'^@@(E'^@@1QC9K@7 AR )@@G@@[ K@4+/,0K$)R;K@7GABK@)\/K@K4<'^@@4< @@^DA9?@^^7AB@@=K^FQ;[K@@A[ K^FQR;@^GA'=@@@CR;@^GD'=@@@C*8@@5P/K@@5YRFK^F(AV )@@G@@AFK^F&O;K@@[AFK^F(RBK@5'ABK@5- ^@@5'RB@@5PO;@@@[AB@@5P:8@@5- ^@@5PO;@@J*AW )@@G@@/,0^^@[ K^F&R;@@5&RFW^B9AFK^F>O;@@@[AB@@5&:8@@5:/K@@50R;@^GG'=@@@C/K@@5PAX )@@G@@(^@@5P*^@@5'/K@@5'R#K^FKA#K^F(R;K AFK^F*R;@^GJ'=@@@C/K@@6^R;@@5'O;@@@[AY )@@G@@AB@@5'O;@@J*/,0^^@[ K^F(R;@^GM'=@@@CRBK@=$/K@@5CC9K@@@ @@^D^ ^@^D[R;)^B9AZ )@@G@@[ K@6? @I@["RF@^D^;C@@@A*@@@@G/K@@6VRFK^D]ABK@6(O;K@@[AFK^D]R#K^D#;*K@@GBA )@@G@@;CK@@SA\K^D^RBK^D#;*K@@GABK^D#;CK@@MA\K^D#RF@^D^O;@@[@AF@^D^;C@@@AR#K^D#BB )@@G@@;*K@@G;CK@@S%@@@@H/K@@6& 0@^D^ 4@^D^O;@@J*/,0^^@[ Y@]PR;0@6(AF"@]PO;)@@[BC )@@G@@C9K@6?H9K@@[*@@@@L/K@@6CRF@^D#O;@@[@AF@^D#;C@@@A/,0^^@;-K@@A[[K^FQRF@^D^BD )@@G@@;C@@@A*@@@@G/K@@6_RB@^D#;*@@@S(@@@@G/K@@4YRB@^D#O;@@@[AB@^D#O;@@J*/,0^^@BE )@@G@@[ K^D]R;@^GP'=@@@CRB@^D#;*@@@S(@@@@G/K@@\&/K@@\!'^@@<,'^@@8RC K@=$/K@@6ABF )@@G@@C9K@@A/K@@7)R;K^B8O;K@@[A#K^ A*^H@@@'^@@29?@K^B@/K@@7N'^@@8RRBK^D^:^K@9>BG )@@G@@/K@@7ZR;)@E2/K@@:DC9K@@B[>K^FHR;@^GS'=@@@C/K@[G2RFK^ @*4H@@[/K@K<>RBK^B[BH )@@G@@*4H@@[/K@@RF0^B#'^@@?DA#0^E!R#K^D]BK )@@G@@A#K^E2RB@^D[/,0^^@[ K^E0R;@^GV'=@@@C/K@K7'/S@@@@R;0@@-/,0@$A/K@K8N/S@@@@BL )@@G@@C K^B8[-K^D^;DK@@A[>K^D^C K^D[[ K^D R#K^D]A#K^DA/,0@82/S@@@@'^@@<>R#K^ ]BM )@@G@@'^@@8NR#K^E!A#K^F@R#K^E0A#K^F#R#K^E2A#K^F R;@^GY'=@@@CR;@^BH'=@@[X/K@K8RBN )@@G@@R;)@E1/K@@:DRB)^B[CD@^D@R;@^D@/\0@+*AB)@8@/KF@@@/S@@@@R#0^DCA#0^DBR#0^ ABO )@@G@@A#0^DC(@@@@J/K@@9EL80^B8[!@^DCC Z@@@?9K@@]CDZ@@0[ K^DCRB@@77PBJ@@SA3@^DCBP )@@G@@;C@@@AA7@^DCR;@^B9RBK^B[C[@^DBC[K^DC[[H@@B[[X@@CC[G@]PC[W@["(@@@@K/K@@9WBQ )@@G@@RB/@@@!80@@]/K@@9T*@@@@JH9K@@[H9K@@[(@G@@SC9@@@@[[H@[I[[X@@7:@@^B@/K@K88BR )@@G@@O;@@@[O;K@@[/K@@9K0@H@@[/K@@9(%9@@@@/K@@<]C9@@@*[5H@@[C9@@7M[ @@+6/K@@<]BS )@@G@@C9K@9,[ K@)1C X@@@:8K@@@%9K@@@/K@@91C X@@SG9K@@@%[K@@G/K@@91C9K@@@[ K@)8BT )@@G@@/K@@)2L8@@@[OBH@@@/K@@-"R;)@@!C9@@@@C[X@@D[[H@@D[[X@@7O;K@@[8#)@9"/KJ@@@BU )@@G@@/S@@@@'^@@4K8K@@#R#K@@JO;0@@#?9@@@X/K@@"QO;0@[!/K@@"S!9@@@SO;0@@TCR )@@G@@C9@@@@W[@@@JT[@@@HR;0@[0T@0@@GO#0@@IP#0@@LH[@@@J0@@@@K/KF@@@/KF@@[ @@^H?CS )@@G@@R;K@@S/,0@'J/K@@"*AFK^H?R;K@@T/,0@'J/K@@",*C@^H?/K@[H:AFK^H?R;K@@U/,0@'JCT )@@G@@/K@@"4*C@^H?/K@[H:AFK^H?R;K@@V/,0@'J/K@@"'*C@^H?/K@[H:AFK^H?R;K@@W/,0@'JCU )@@G@@/K@@""ABK^H?R;K@@X/,0@'J/K@@_^*^@^H?/K@[H:ABK^H?R;K@@Y/,0@'J/K@@_E*^@^H?CV )@@G@@/K@[H:ABK^H?R;K@@Z/,0@'J/K@@_K*^@^H?/K@[H:ABK^H?R;K@@$/,0@'J/K@@_Q*^@^H?CW )@@G@@/K@[H:ABK^H?RB0^H?CD@^H?C5K^IS:80@@W/K@@_\:80@@Y/K@@_\:80@@X/K@@_%:80@@ZCX )@@G@@/K@@_%%80@@$/K@@_8:9@@@V/K@@_.%9@@@S/K@[H:?9K@@#/K@[H:/K@@_.:9@@@S/K@@_$CY )@@G@@:9@@@U/K@@_./K@[H::9@@@S/K@@_5%9@@@T/K@[H:/[K[H:/K@[@U?9K@@#/K@[H:/K@[@UCZ )@@G@@*@@@@K:9@@@S/K@[@U:9@@@T/K@@_3R#0^H.[DZ@@DR#K^H"ABZ@@@RBK^HMPBK^HTABZ@@CDA )@@G@@P#K^HLABZ@@ERBK^HTAFZ@@CR;)@@ZA#)^H0'^JK@[/K@[@FRA0^I*S8)@@SRBF^IRS8@@@#DB )@@G@@O#0@@HRBF^IRS?F^IRS8K[F@R;K@@@W@K@@JS8K@@DW8K@@ES@K@@L/K@[@FC5K^ISG1K^ISDC )@@G@@ C@^HV/[K[[2*@@^H,/K@[@*R;K@#C;GK@@=W@K^HL*@@@@IO;K@@[T@K^HLO;K@@^/K@[@?DD )@@G@@R#K^HLO;K@@A?8K@#CR;K@#CABK[@1G9K@@]RB@^HT;G@@@=W@@@@L!8@@@@/K@[@_RB@^HTDE )@@G@@;G@@@=W^@[@1P;@@@]?4@^IS/K@[@/P7@^ISA3@^IS/K@[@"A7@^IS 0@^ISRB@[@1R#K^HLDF )@@G@@O;K@@A?8K@J*/K@[[ R#@@@H/K@[[B!8@@J*R;@@J**@@^H,/K@[[IP;@@@^;G@@@=W@@^HLDG )@@G@@T@@^HLO;@@@^AF@^HVR#)@@GC[K@@GH9K@@^*@@^H,H9K@@]'^@[@FA#)^HWC[@^IP/ @[[VDH )@@G@@C[@^IL(@@@@KC @^HTC5K^ISG1K^IS[ K^HR?9K@@]/K@[[2%9K@@]/K@[[:RF0^H?:80@@TDI )@@G@@/K@[[2R#)^HWO#)^HW![@@@I/K@[[2RFK^H//K@[['H9K@@[?[@^HW/K@[[4R#)^HWT@)@@LDJ )@@G@@?[@@@I/K@[[( @@^H;/K@[]ER#)@@KT@)@@L!@)^HW/K@[[(R#)^HWRBK^H/A#K^H;A#)^H$DK )@@G@@(0@^IS/K@[]E @@@@I9?"OI,9*0^I:RB0^ISAB0^I%O;0@[@AB0^ISR;@^I('=@@@JO;)@@[DL )@@G@@%0)^IS/K@[[_ C@^HR C@^H)RB0^HTPF0^HVPF0^HVC[K^IP/[K[](;DK@@[?[K^IL[[K^ILDM )@@G@@R#)^ILRF@^HNT8@@@#?@)@@G/K@[#S9!@^IO/,0@.=/K@[#WAF@^HRAF)^HX[[@^HQ9?@^IQDN )@@G@@9*@^I:R;K$B,ABK^I%R;@^I('=@@@JRB0^HTT8)@@#P#0@@IPF0^HRAB0[#E9!@^IK/[K[#YDO )@@G@@RB)^HTS@)^IJW8)@@FRB0[#E/,0@.=/K@[#Q:C@^H)/K@[#JAF@^H)AB)^HX[[@^HZRB0^HTDP )@@G@@T8)@@#P#0@@IPF0^HRP#0@@GAF0^HYC@)^HL*@@^H,C@)^H,S@0@@IG8)@@[*@@^H,G8)@@[DQ )@@G@@W@0@@IS@0^IJW80@@ET@0@@G!@0^HZ/K@[#JR;0@@@9!@^IK/,0@.$/K@[#H/K@[]29?@^IMDR )@@G@@9*@^I:R;K$A,ABK^I%R;@^I('=@@@J/K@[#Z(@@^IP/K@[#Y9!@^IO9(@^IK9!@^IQ9(@^IMDS )@@G@@ @@^IP/K@[](AF0^HYC9K@@[[[K^J)R#0^H9[5Z@@[R;@@@[A7J@@]RB@^HMPB@^HTRFK^HYDT )@@G@@ABZ@@DK@K@@GP#@^HLA#@^H2R;@@@@C[@^HLG9@@@[W@@@@KS@@^HLA#Z@@AC9@@@](C@^H)DU )@@G@@/K@[^NRB@^]!(@@@@G/K@[H]R#@^H'ABJ@@@A#0@@HA#@@@JAFZ@@@G9K@@[[5Z@@[[5J@@]DV )@@G@@AF\@@CRB@^HXABJ@@DRF@^H)AFJ@@DR#@^HZA#J@@ARB@^HMPF@^HRPF@^H)AFJ@@J @@@@IDW )@@G@@R#K^IK!8K@@SR;)@@[!8K@@XR;)@@]A7\@@#G9@@@[(C@^HR/K@[^4RB@^]"(@@@@G/K@[H]DX )@@G@@R;@^].ABJ@@@A#0@@HR#0@@GAFZ@@@G9K@@[[5Z@@[[5J@@]RB@^HMPF@^HRAFJ@@JRFK^HXDY )@@G@@ABZ@@DT8K@@#P#@@@HAFJ@@CR#K^HQA#Z@@ARFK^HRAFZ@@D @@@@IR#K^IO!8K@@SR;)@@[DZ )@@G@@!8K@@XR;)@@]A7\@@#C9@@@#R#@^H;(@@@@G/K@[ GR#@^H;ABJ@@@A#0@@HA#@@@JRBJ@@[EA )@@G@@(@@@@G/K@[H]AFZ@@@G9K@@[[5Z@@[[5J@@]RB)^HMPF)^HVPF)^HVAF\@@CRF@^HVABJ@@DEB )@@G@@RB@^HRAFJ@@DR#@^HWA#J@@ARF@^H?R7)^IS:8@@@T/K@[ N!8)@@#%8@@@S/K@[A R#@^H.EC )@@G@@ABJ@@@A#0@@HA#@@@JAFZ@@@RBJ@@[(@@@@G/K@[H]RFK^H?%8K@@S/K@[ -AF\@@DR#@^H"ED )@@G@@ABJ@@@G9K@@[[5K^H+[5Z@@[R;@@@#A7J@@]R;K@@F/,0@'J/K@[ /RB?@@@!C)^HV/K@[ /EE )@@G@@(@@^H,/K@[ 1L8)@@AA#0@@L/K@[ 7P;)@@^R;K@@@W@K^HLS@K^HLA#)@@LO;)@@^AB)^HVEF )@@G@@'^@[@FR#0^H.RBK^HV/K@[ "RFK^HVR#)^HWABZ@@DA#)^H-RB)^HMPB\@@DPB\@@DAF\@@CEG )@@G@@/K@[AD[5K^H+R#@^H"ABJ@@@AF/@@@R#K^J8A#K^H&AB0^H* @@^H>AB0^H+C[K^J8[[Z@@GEH )@@G@@ @J@@H 0J@@[R#@^H2ABJ@@EO#@^HLABJ@@C'^JK@[RB0^H+R7J@@[RF_@@@%8@@@[/K@[AHEI )@@G@@R#K[DD(^@^H?/K@[A7R;K@@%/,0@'J/K@[HCRB?@@@;*)@@S;K)@@SA#)^H1R;K@@*/,0@'JEJ )@@G@@/K@[HCR#W@@@A#K^H( 4@^H(C K^H?R#)^J8%9K@@W/K@[A5R;K@@(/,0@'J/K@[HCR#W@@@EK )@@G@@+@K^J9A#)^H%R#K^J'A#K[CW @@^HP(C@^H?/K@[B#R;K@@C/,0@'J/K@[B#R#W@@@A#K^HPEL )@@G@@ 4@^HPR#K^HPA#K^HOC9@@@@R;K@@5/,0@'J/K@[BCC9@@@[[5@^HASCII, DONT CHANGE H2.OZ )@@G@@ QW-OT@H@@@@ S A1,UR1 . RESET R1 PA )@@G@@ . QW-OT@H@@@@PRT080. PB )@@G@@ . QW-OT@H@@@@ GETSWL A1 PC )@@G@@ . GET SWITCH LIST ADDRESS . QW-OT@H@@@@ L A3,SPD )@@G@@E,A1 . GET RD$DT ADDRESS . QW-OT@H@@@@ A,PE )@@G@@U A3,RDTLEN . A3 = PR$DT ADDRESS . QW-OT@H@@@@PF )@@G@@PRT100. .PG )@@G@@ QW-OT@]@@@@*RSIPUT @H@@@@-244 PH )@@G@@ . QW-IN@H@@@@. PI )@@G@@ . QW-IN@H@@@@. IF A SHIFT OUT HPJ )@@G@@AS BEEN RECEIVED IN UOM 'FUNNY' MODE THEN PASS . QW-IN@H@@@@. THE PK )@@G@@IMAGE AS IF IT WERE FIELDATA TO PREVENT TRANSLATION WHEN THE USER. QW-INPL )@@G@@@H@@@@. ER READ$. PM )@@G@@ . QW-IN@H@@@@. PN )@@G@@ . QW-IN@H@@@@D5UMBT EQUF 9,,S1 . UOPO )@@G@@M FUNNY MODE BITS . QW-IN@H@@@@FUNMOD EQU 01 PP )@@G@@ . FUNNY MODE REQUESTED . QW-IN@H@@@@SOUTR EQU PQ )@@G@@ 02 . SHIFT OUT RECEIVED . QW-IN@H@@@@ PR )@@G@@ L A1,IFCT,X8 . INPUT FCT . QW-INPS )@@G@@@H@@@@ L A1,DVTABL,A1 . GET ADDRESS OF DEVICE TABLPT )@@G@@E . QW-IN@H@@@@ L A4,D5UMBT,A1 . GET UOM BITS PU )@@G@@ . QW-IN@H@@@@ TOP,U A4,SOUTR . SHPV )@@G@@IFT OUT RECEIVED? . QW-IN@H@@@@ J PRPUT20 PW )@@G@@ . NO, CONTINUE . QW-IN@H@@@@ TS PX )@@G@@ 0,A3 . LOCK INPUT FCT . QW-IN@H@@@@ PY )@@G@@ L A4,PRMODE . GET MODE FLAGS . QW-INPZ )@@G@@@H@@@@ AND,U A4,-ASCTYP . CLEAR ASCII BIT QA )@@G@@ . QW-IN@H@@@@ S A5,PRMODE . RESET IT QB )@@G@@ . QW-IN@H@@@@ CTS 0,A3 . UNQC )@@G@@LOCK FCT . QW-IN@H@@@@PRPUT20. QD )@@G@@ . QW-IN@H@@@@-245 QE )@@G@@ . QW-IN@H@@@@ QF )@@G@@ TS 0,A3 . LOCK FCT . QW-INQG )@@G@@@H@@@@ L A4,PRMODE . GET MODE FLAGS QH )@@G@@ . QW-IN@H@@@@ OR,U A4,ASCTYP . SET ASCII TYPEQI )@@G@@ BACK . QW-IN@H@@@@ S A5,PRMODE . QJ )@@G@@ . QW-IN@H@@@@ CTS 0,A3 QK )@@G@@ . UNLOCK FCT . QW-IN@]@@@@*RSIGET @H@@@@QL )@@G@@-401 .QM )@@G@@ QW-OT@H@@@@. QN )@@G@@ . QW-OT@H@@@@. IF THE USER HAS REQUESTED UOM FUNNY MODE (BIT QO )@@G@@FUNMOD OF D5UMBT) . QW-OT@H@@@@. AND S1 OF THE IMAGE IS 077, PASS IQP )@@G@@T UNCHANGED TO TERMINAL . QW-OT@H@@@@. QQ )@@G@@ . QW-OT@H@@@@D5UMBT EQQR )@@G@@UF 9,,S1 . UOM FUNNY MODE BITS . QW-OT@H@@@@QS )@@G@@FUNMOD EQU 01 . FUNNY MODE REQUESTED .QT )@@G@@ QW-OT@H@@@@SOUTR EQU 02 . SHIFT OUT RECEIVED QU )@@G@@ . QW-OT@H@@@@. QV )@@G@@ . QW-OT@H@@@@ L A1,PINFCT,A3 QW )@@G@@ . GET INPUT FCT . QW-OT@H@@@@ L A1,DQX )@@G@@VTABL,A1 . GET ADDRESS OF DEVICE TABLE . QW-OT@H@@@@ L QY )@@G@@ A4,D5UMBT,A1 . GET UOM BITS . QW-OT@H@@@@QZ )@@G@@ TOP,U A4,FUNMOD . REQUEST FOR FUNNY MODE? .RA )@@G@@ QW-OT@H@@@@ J STR020 . NO, CONTINUE RB )@@G@@ . QW-OT@H@@@@ L A1,IMBUFR,X8 . YES, GETRC )@@G@@ ADDRESS OF IMAGE . QW-OT@H@@@@ L,S1 A4,0,A1 RD )@@G@@ . GET S1 OF IMAGE . QW-OT@H@@@@ TNE,U A4,0RE )@@G@@77 . 077 MEANS FULL ASCII . QW-OT@H@@@@ J RF )@@G@@ STRIP1 . YES, DON'T TOUCH THE IMAGE . QW-OT@H@@@@RG )@@G@@STR020. .RH )@@G@@ QW-OT@]@@@@*RSSUBS @H@@@@-748 RI )@@G@@ . QW-IO@H@@@@. RJ )@@G@@ . QW-IO@H@@@@D5UMBT EQUF RK )@@G@@ 9,,S1 . UOM FUNNY MODE BITS . QW-IO@H@@@@FUNMODRL )@@G@@ EQU 01 . FUNNY MODE REQUESTED . QW-IORM )@@G@@@H@@@@SOUTR EQU 02 . SHIFT OUT RECEIVED RN )@@G@@ . QW-IO@H@@@@. RO )@@G@@ . QW-IO@H@@@@RSON. . @@ON FOUND RP )@@G@@ . QW-IO@H@@@@ LN,U A2,1 RQ )@@G@@ . FLAG FOR ON . QW-IO@H@@@@ J RR )@@G@@ ONOF10 . CONTINUE . QW-IO@H@@@@RSOFF RS )@@G@@ . @@OFF RECEIVED . QW-IORT )@@G@@@H@@@@ L,U A2,0 . FLAG MEANING OFF RU )@@G@@ . QW-IO@H@@@@ONOF10 L,U X11,ONOF30 . RETURN ADDRESSRV )@@G@@ FROM RSCSI1 . QW-IO@H@@@@ J RSCSI1 . INRW )@@G@@ITIALIZE CARD SCAN . QW-IO@H@@@@ONOF20 LMJ X11,RSCSI RX )@@G@@ . GET THE NEXT CHARACTER . QW-IO@H@@@@ONOF30 J RY )@@G@@ ONOF20 . IGNORE COMMAS . QW-IO@H@@@@ RZ )@@G@@ J ONOF20 . IGNORE SPACES . QW-IOSA )@@G@@@H@@@@ J RSPUTCR . ALL DONE EXIT SB )@@G@@ . QW-IO@H@@@@ TEP,U A4,040 . IGNORE CASE SC )@@G@@ . QW-IO@H@@@@ AN,U A4,040 . GESD )@@G@@T UPPER CASE ONLY . QW-IO@H@@@@ TE,U A4,0106 SE )@@G@@ . F = FUNNY MODE REQUEST . QW-IO@H@@@@ J SF )@@G@@ ONOF20 . NO, GET NEXT CHARACTER . QW-IO@H@@@@ SG )@@G@@ L A3,IFCT,X8 . ADDRESS OF INPUT FCT . QW-IOSH )@@G@@@H@@@@ L A1,DVTABL,A3 . GET ADDRESS OF DEVICE TABLSI )@@G@@E . QW-IO@H@@@@ L A4,D5UMBT,A1 . GET UOM BITS SJ )@@G@@ . QW-IO@H@@@@ AND,U A4,-FUNMOD . CLSK )@@G@@EAR BIT . QW-IO@H@@@@ JP A2,$+2 SL )@@G@@ . DID HE WANT IT SET? . QW-IO@H@@@@ OR,U SM )@@G@@ A4,FUNMOD . YES, SET IT . QW-IO@H@@@@ SN )@@G@@ S A5,D5UMBT,A1 . RESET UOM BITS . QW-IOSO )@@G@@@H@@@@ J RSPUTCR . EXIT SP )@@G@@ . QW-IO@H@@@@. SQ )@@G@@ . QW-IO@H@@@@-1405 SR )@@G@@ . QW-IO@H@@@@ . TURN MODE ON OR OFSS )@@G@@F . QW-IO@H@@@@. ST )@@G@@ . QW-IO@H@@@@ SU )@@G@@ + 'ON' . . QW-IOSV )@@G@@@H@@@@ + RSON . SW )@@G@@ . QW-IO@H@@@@ + 'OFF' . SX )@@G@@ . QW-IO@H@@@@ + RSOFF . SY )@@G@@ . QW-IO___ . UNLOCK FCT SZ )@@G@@*[@@@@*SDFF*@[@@@@*D5CCR@H@@@@-107,107 TA )@@G@@ . QW-IO@H@@@@. TB )@@G@@ . QW-IO@H@@@@D5UMBT EQUF TC )@@G@@ 9,,S1 . UOM FUNNY MODE BITS . QW-IO@H@@@@FUNMODTD )@@G@@ EQU 1*/0 . FUNNY MODE REQUESTED (@@ON F) . QW-IOTE )@@G@@@H@@@@SOUTR EQU 1*/1 . SHIFT OUT RECEIVED TF )@@G@@ . QW-IO@H@@@@LPWFM EQU 1*/2 . LAST PRINT WASTG )@@G@@ FUNNY MODE . QW-IO@H@@@@ADCRLF EQU 1*/3 . ADTH )@@G@@D CR LF TO THIS IMAGE . QW-IO@H@@@@. TI )@@G@@ . QW-IO@H@@@@PKSAV EQU TJ )@@G@@ 10 . SAVE LAST PACKET FOR RSIGET . QW-IO@H@@@@-282 TK )@@G@@ . QW-IOTL )@@G@@@H@@@@ASCISO EQU 016 . SHIFT OUT TM )@@G@@ . QW-IO@H@@@@ASCISI EQU 017 . SHIFT IN TN )@@G@@ . QW-IO@H@@@@-508 TO )@@G@@ . QW-IO@H@@@@ L A5,D5UMBT,TP )@@G@@A3 . GET UOM BITS . QW-IO@H@@@@ TEP,U TQ )@@G@@ A5,SOUTR . IN SHIFT OUT MODE? . QW-IO@H@@@@ TR )@@G@@ L,U A4,D5FDIQ . YES, NO CRLF NEEDED . QW-IOTS )@@G@@@H@@@@. TT )@@G@@ . QW-IO@H@@@@. SYNCRONIZE SYMBIONT AND FUNNY MODE USER PROGRAM TU )@@G@@ . QW-IO@H@@@@. SO THAT USER CAN INTERMIX FUNNY MODE PRITV )@@G@@NTS AND NORMAL PRINTS. . QW-IO@H@@@@. WE ADJUST THE CURSOR SO THATTW )@@G@@ IT IS POSITIONED FOR THE . QW-IO@H@@@@. NEXT PRINT AFTERTX )@@G@@ EACH PRINT. NO LEADING CR,LF SEQUENCE IS . QW-IO@H@@@@. NEEDTY )@@G@@ED BY THE USER. . QW-IOTZ )@@G@@@H@@@@. UA )@@G@@ . QW-IO@H@@@@-795 UB )@@G@@ . QW-IO@H@@@@ L A4,D5UMBT,A3 . GEUC )@@G@@T UOM BITS . QW-IO@H@@@@ TOP,U A4,FUNMOD UD )@@G@@ . FUNNY MODE PRINT POSSIBLE? . QW-IO@H@@@@ J UE )@@G@@ NORM60 . NO, SKIP . QW-IO@H@@@@ UF )@@G@@ AND,U A4,-ADCRLF . CLEAR EXTRA CRLF FLAG . QW-IOUG )@@G@@@H@@@@ L A4,A5 . RESET A4 UH )@@G@@ . QW-IO@H@@@@ TOP,U A4,LPWFM . WAS LAST PRINTUI )@@G@@ FUNNY MODE? . QW-IO@H@@@@ OR,U A4,ADCRLF . NOUJ )@@G@@, MUST ADD CRLF BEFORE FUNNY . QW-IO@H@@@@ L A4,A5 UK )@@G@@ . RESET A4 . QW-IO@H@@@@ L UL )@@G@@ A2,IMBUFR,A0 . GET IMAGE ADDRESS . QW-IO@H@@@@ UM )@@G@@ L,S1 A2,,A2 . GET FIRST SIXTH WORD OF IMAGE . QW-IOUN )@@G@@@H@@@@ TEP,U A4,LPWFM . WAS PREVIOUS IMAGE FUNNY MUO )@@G@@ODE? . QW-IO@H@@@@ TNE,U A2,077 . AND IS THIS ONUP )@@G@@E REGULAR? . QW-IO@H@@@@ J NORM30 . NOUQ )@@G@@, SKIP . QW-IO@H@@@@ L A5,LSPACE,UR )@@G@@A0 . GET SKIP COUNT . QW-IO@H@@@@ JGD US )@@G@@ A5,$+2 . DECREMENT . QW-IO@H@@@@ UT )@@G@@ L,U A5,0 . NEGATIVE NOT ALLOWED . QW-IOUU )@@G@@@H@@@@ S A5,LSPACE,A0 . RESET SKIP COUNT UV )@@G@@ . QW-IO@H@@@@NORM30. UW )@@G@@ . QW-IO@H@@@@ OR,U A4,LPWFM . SEUX )@@G@@T FUNNY MODE PRINT REQUEST . QW-IO@H@@@@ TE,U A2,077 UY )@@G@@ . FUNNY MODE PRINT REQUEST? . QW-IO@H@@@@ AND,U UZ )@@G@@ A4,-LPWFM . NO, CLEAR FUNNY MODE PRINT REQU. QW-IO@H@@@@ VA )@@G@@ S A5,D5UMBT,A3 . RESET BITS . QW-IOVB )@@G@@@H@@@@NORM60. VC )@@G@@ . QW-IO@H@@@@-814,814 VD )@@G@@ . QW-OT@H@@@@ L A4,D5UMBT,A3 . GEVE )@@G@@T UOM BITS . QW-OT@H@@@@ TEP,U A4,LPWFM VF )@@G@@ . IS THIS A FUNNY MODE IMAGE? . QW-OT@H@@@@ J VG )@@G@@ FMCONV . YES, CONVERT IT TO HALF WORDS . QW-OT@H@@@@ VH )@@G@@ LMJ X11,RSCONV . NO, USE RSI CONVERSION ROUTINE . QW-OTVI )@@G@@@H@@@@ J NORM90 . SKIP FUNNY MODE CONVERSIONVJ )@@G@@ CODE. QW-OT@H@@@@. VK )@@G@@ . QW-OT@H@@@@. CONVERT QUARTER WORD IMAGE TO HALF WORDSVL )@@G@@ . QW-OT@H@@@@. VM )@@G@@ . QW-OT@H@@@@FMCONV. VN )@@G@@ . QW-OT@H@@@@ VO )@@G@@ S A0,R2 . SAVE PACKET ADDRESS . QW-OTVP )@@G@@@H@@@@ L X11,PAKADR,A0 . GET OUTPUT ADDRESS VQ )@@G@@ . QW-OT@H@@@@ LXI,U X11,1 . INCREMENT BIT VR )@@G@@ . QW-OT@H@@@@ L A1,IMBUFR,A0 . INVS )@@G@@PUT ADDRESS . QW-OT@H@@@@ LXI,U A1,1 VT )@@G@@ . INCREMENT BIT . QW-OT@H@@@@ L VU )@@G@@ R3,RSCCNT,A0 . GET CHARACTER COUNT . QW-OT@H@@@@ VV )@@G@@ JGD R3,$+2 . DECREMENT FOR IGNORE OF 077 (1S. QW-OTVW )@@G@@@H@@@@ L,U R3,0 . BUT NOT THROUGH ZERO VX )@@G@@ . QW-OT@H@@@@ S R3,RSCCNT,A0 . RESET CHARACTEVY )@@G@@R COUNT . QW-OT@H@@@@ L,U A2,FMC060 . GEVZ )@@G@@T ADDRESS OF STORE CO-ROUTINE. QW-OT@H@@@@ L A4,D5UMBT,WA )@@G@@A3 . GET UOM BITS . QW-OT@H@@@@ TOP,U WB )@@G@@ A4,ADCRLF . MUST WE ADD A CR LF? . QW-OT@H@@@@ WC )@@G@@ J FMC010 . NO, CONTINUE . QW-OTWD )@@G@@@H@@@@ L,U A5,CR . YES, GET CARRIAGE RETURN WE )@@G@@ . QW-OT@H@@@@ LMJ A2,,A2 . STORE IT WF )@@G@@ . QW-OT@H@@@@ L,U A5,LF . GEWG )@@G@@T LINE FEED . QW-OT@H@@@@ LMJ A2,,A2 WH )@@G@@ . STORE IT . QW-OT@H@@@@ L WI )@@G@@ A5,RSCCNT,A0 . GET CHARACTER COUNT . QW-OT@H@@@@ WJ )@@G@@ A,U A5,2 . ADD 2 FOR CR,LF CHARACTERS . QW-OTWK )@@G@@@H@@@@ S A5,RSCCNT,A0 . RESET WL )@@G@@ . QW-OT@H@@@@FMC010 LMJ A0,FMC050 . GET FLAG (077)WM )@@G@@ AND IGNORE . QW-OT@H@@@@FMC020 JGD R3,FMC030 . LOWN )@@G@@OP ON CHARACTER COUNT . QW-OT@H@@@@ L A0,R2 WO )@@G@@ . RESTORE PACKET ADDRESS . QW-OT@H@@@@ J WP )@@G@@ NORM90 . ALL DONE EXIT . QW-OT@H@@@@. WQ )@@G@@ . QW-OTWR )@@G@@@H@@@@. GET NEXT CHARACTER. IF 9 TH BIT IS SET SEND 8 BITS OTHERWISE WS )@@G@@ . QW-OT@H@@@@. FORCE EVEN PARITY AND STORE IN HALF WORDS WT )@@G@@ . QW-OT@H@@@@. WU )@@G@@ . QW-OT@H@@@@FMC030. WV )@@G@@ . QW-OT@H@@@@ LMJ WW )@@G@@ A0,,A0 . GET NEXT CHARACTER . QW-OT@H@@@@ WX )@@G@@ TOP,U A4,0400 . IS 9 TH BIT SET? . QW-OTWY )@@G@@@H@@@@ J FMC040 . NO, ADD SYSTEM PARITY (EVEWZ )@@G@@N) . QW-OT@H@@@@ AND,U A4,0377 . YES, TAKE 8 BIXA )@@G@@TS . QW-OT@H@@@@ LMJ A2,,A2 . STXB )@@G@@ORE CHARACTER . QW-OT@H@@@@ J FMC020 XC )@@G@@ . LOOP ON CHARACTER COUNT . QW-OT@H@@@@. XD )@@G@@ . QW-OT@H@@@@FMC040XE )@@G@@. . QW-OTXF )@@G@@@H@@@@ AND,U A4,0177 . 7 BITS TO A5 XG )@@G@@ . QW-OT@H@@@@ TEP,U A4,0177 . DOES IT HAVE EXH )@@G@@VEN PARITY? . QW-OT@H@@@@ A,U A5,0200 . NOXI )@@G@@, FORCE EVEN PARITY . QW-OT@H@@@@ LMJ A2,,A2 XJ )@@G@@ . STORE CHARACTER . QW-OT@H@@@@ J XK )@@G@@ FMC020 . LOOP ON CHARACTER COUNT . QW-OT@H@@@@. XL )@@G@@ . QW-OTXM )@@G@@@H@@@@. CO-ROUTINE TO GET CHARACTER IN Q4 OF A4 XN )@@G@@ . QW-OT@H@@@@. XO )@@G@@ . QW-OT@H@@@@FMC050. XP )@@G@@ . QW-OT@H@@@@ L A4,,*A1 XQ )@@G@@ . GET NEXT WORD . QW-OT@H@@@@ LSSC XR )@@G@@ A4,9 . Q1 TO Q4 . QW-OT@H@@@@ XS )@@G@@ LMJ A0,,A0 . RETURN . QW-OTXT )@@G@@@H@@@@ LSSC A4,9 . Q2 TO Q4 XU )@@G@@ . QW-OT@H@@@@ LMJ A0,,A0 . RETURN XV )@@G@@ . QW-OT@H@@@@ LSSC A4,9 . Q3XW )@@G@@ TO Q4 . QW-OT@H@@@@ LMJ A0,,A0 XX )@@G@@ . RETURN . QW-OT@H@@@@ LSSC XY )@@G@@ A4,9 . Q4 TO Q4 . QW-OT@H@@@@ XZ )@@G@@ LMJ A0,,A0 . RETURN . QW-OTYA )@@G@@@H@@@@ J FMC050 . GET NEXT WORD YB )@@G@@ . QW-OT@H@@@@. YC )@@G@@ . QW-OT@H@@@@. CO-ROUTINE TO STORE CHARACTER IN A5 INTOYD )@@G@@ NEXT HALF WORD . QW-OT@H@@@@. YE )@@G@@ . QW-OT@H@@@@FMC060. YF )@@G@@ . QW-OT@H@@@@ YG )@@G@@ S,H2 A5,,X11 . STORE IN H2 . QW-OTYH )@@G@@@H@@@@ LMJ A2,,A2 . RETURN YI )@@G@@ . QW-OT@H@@@@ S,H1 A5,,*X11 . STORE IN H1 YJ )@@G@@ . QW-OT@H@@@@ LMJ A2,,A2 . REYK )@@G@@TURN . QW-OT@H@@@@ J FMC060 YL )@@G@@ . GO TO H2 STORE . QW-OT@H@@@@. YM )@@G@@ . QW-OT@H@@@@NORM90YN )@@G@@. . QW-OTYO )@@G@@@H@@@@-921 YP )@@G@@ . QW-IO@H@@@@ L A4,D5UMBT,A3 . GET UOM BITS YQ )@@G@@ . QW-IO@H@@@@ TOP,U A4,FUNMOD . ISYR )@@G@@ FUNNY MODE ALLOWED? . QW-IO@H@@@@ J D5GTA1 YS )@@G@@ . NO, CONTINUE . QW-IO@H@@@@ TEP,U YT )@@G@@ A4,LPWFM . YES, IS THIS A FUNNY MODE PRINT. QW-IO@H@@@@ YU )@@G@@ J 0,X11 . YES, RETURN . QW-IOYV )@@G@@@H@@@@-1419 YW )@@G@@ . QW-IO@[@@@@. @C@@@@. CLEAR FUNNY MODE INPUT BIT (SOUTR) TO ALYX )@@G@@LOW @A@@@@. COMMUNICATIONS WITH THE EXEC. @[@@@@. @H@@@@ YY )@@G@@ L A4,D5UMBT,A3 . GET UOM BITS . QW-IOYZ )@@G@@@H@@@@ AND,U A4,-SOUTR . CLEAR FUNNY MODE FLAG ZA )@@G@@ . QW-IO@H@@@@ S A5,D5UMBT,A3 . RESET ZB )@@G@@ . QW-IO@H@@@@-1432 ZC )@@G@@ . QW-IN@H@@@@ SZ R2 ZD )@@G@@ . CLEAR R2 . QW-IN@H@@@@ L ZE )@@G@@ A4,D5UMBT,A3 . GET UOM BITS . QW-IN@H@@@@ ZF )@@G@@ TOP,U A4,FUNMOD . FUNNY MODE ALLOWED? . QW-INZG )@@G@@@H@@@@ J ESIN99 . NO, CONTINUE ZH )@@G@@ . QW-IN@H@@@@ TE,U A5,ASCISO . SHIFT OUT? ZI )@@G@@ . QW-IN@H@@@@ J ESIN10 . NOZJ )@@G@@, CONTINUE . QW-IN@H@@@@ TEP,U A4,SOUTR ZK )@@G@@ . SHIFTOUT ALREADY SEEN? . QW-IN@H@@@@ J ZL )@@G@@ ESIN30 . YES, STORE IT . QW-IN@H@@@@ ZM )@@G@@ OR,U A4,SOUTR . SET SHIFT OUT MODE . QW-INZN )@@G@@@H@@@@ S A5,D5UMBT,A3 . RESET ZO )@@G@@ . QW-IN@H@@@@ L,U A5,0770 . GET FUNNY MODEZP )@@G@@ FLAG . QW-IN@H@@@@ J ESTORC . PUZQ )@@G@@T IT IN THE BUFFER . QW-IN@H@@@@ESIN10. ZR )@@G@@ . QW-IN@H@@@@ TOP,U ZS )@@G@@ A4,SOUTR . IN SHIFT OUT MODE? . QW-IN@H@@@@ ZT )@@G@@ J ESIN99 . NO, PROCESS NORMALLY . QW-INZU )@@G@@@H@@@@ TE,U A5,ASCISI . SHIFT IN? ZV )@@G@@ . QW-IN@H@@@@ J ESIN20 . NO, CONTINUE ZW )@@G@@ . QW-IN@H@@@@ L A4,D5UMBT,A3 . GEZX )@@G@@T UOM BITS . QW-IN@H@@@@ AND,U A4,-SOUTR ZY )@@G@@ . CLEAR SHIFT OUT BODE . QW-IN@H@@@@ S ZZ )@@G@@ A5,D5UMBT,A3 . RESET BITS . QW-IN@H@@@@ AA )@@G@@ L,U R2,D5ICNK . YES, GET LINE TERMINATE FUNCTIO. QW-INAB )@@G@@@H@@@@ J ESTORC . STORE CHARACTER AND LEAVE AC )@@G@@ . QW-IN@H@@@@ESIN20 TE,U A5,XOFF . XOFF? AD )@@G@@ . QW-IN@H@@@@ TNE A5,TERM1,A3 . ORAE )@@G@@ LINE TERMINATION CHARACTER . QW-IN@H@@@@ L,U R2,D5ICNK AF )@@G@@ . YES, TERMINATE LINE . QW-IN@H@@@@ESIN30 TZ AG )@@G@@ RSCCNT,A2 . IS THIS THE FIRST CHARACTER? . QW-IN@H@@@@ AH )@@G@@ J ESTORC . NO, STORE IT . QW-INAI )@@G@@@H@@@@ A,U A5,0777000 . YES, ADD FLAG AJ )@@G@@ . QW-IN@H@@@@ LSSL A5,18 . PUT IN H1 AK )@@G@@ . QW-IN@H@@@@ L,U A1,2 . SEAL )@@G@@T NEXT STORE POSITION . QW-IN@H@@@@ S A1,CHARST,AM )@@G@@A2 . . QW-IN@H@@@@ L AN )@@G@@ A1,BINCR1,A2 . WORD SOTER POSITION . QW-IN@H@@@@ AO )@@G@@ AU A1,IMBUFR,A2 . . QW-INAP )@@G@@@H@@@@ S A5,0,A2 . STORE THE CHARACTERS AQ )@@G@@ . QW-IN@H@@@@ L A2,INBUF,A0 . RESTORE POINTEAR )@@G@@R . QW-IN@H@@@@ L,U A4,2 . GEAS )@@G@@T CHARACTER COUNT OF 2 . QW-IN@H@@@@ S A4,RSCCNT,AT )@@G@@A2 . SET IT . QW-IN@H@@@@ TZ AU )@@G@@ R2 . LINE TERMINATION CHARACTER? . QW-IN@H@@@@ AV )@@G@@ J ESTRM2 . YES . QW-INAW )@@G@@@H@@@@ ER EXIT$ . LEAVE AX )@@G@@ . QW-IN@H@@@@ESIN99. AY )@@G@@ . QW-IN@H@@@@-1493 AZ )@@G@@ . QW-IN@H@@@@ TZ R2 BA )@@G@@ . SPECIAL RETURN? . QW-IN@H@@@@ J BB )@@G@@ ESTRM2 . YES . QW-IN@H@@@@-2995 BC )@@G@@ . QW-IOBD )@@G@@@H@@@@ TZ,H1 OACESS,A0 . ANYTHING TO SEND? BE )@@G@@ . QW-IO@H@@@@ J SND050 . YES, CONTINUE BF )@@G@@ . QW-IO@H@@@@ L A1,OACESS,A0 . GEBG )@@G@@T CHARACTER ADDRESS . QW-IO@H@@@@ L,U A4,0777 BH )@@G@@ . DO NOTHING CHARACTER . QW-IO@H@@@@ S,H2 BI )@@G@@ A4,,A1 . SET FOR SOMETHING TO SEND . QW-IO@H@@@@ BJ )@@G@@ L,U A4,1 . TELL HIM ONE CHARACTER . QW-IOBK )@@G@@@H@@@@ S,H1 A4,OACESS,A0 . SET IT BL )@@G@@ . QW-IO@H@@@@SND050. BM )@@G@@ . QW-OT@[@[@@*KPOOL@B@[@@-139,139/0,1 KPOOL LEAVE LASTRBN )@@G@@K SMALL @]@@@@*PRINT$ @H@@@@-252 BO )@@G@@ . QW-OT@H@@@@. BP )@@G@@ . QW-OT@H@@@@. IF USER HABQ )@@G@@S REQUESTED FUNNY MODE AND DOES A PRINT$ WITH A 077 IN . QW-OT@H@@@@BR )@@G@@. S1 OF THE IMAGE. IT WILL BE TRANSMITTED UNCHANGED TO THE DEVICE. .BS )@@G@@ QW-OT@H@@@@. BT )@@G@@ . QW-OT@H@@@@D5UMBT EQUF 9,,S1 . UOM FUNNBU )@@G@@Y MODE BITS . QW-OT@H@@@@FUNMOD EQU 01 BV )@@G@@ . FUNNY MODE REQUESTED . QW-OT@H@@@@SOUTR EQU 02 BW )@@G@@ . SHIFT OUT RECEIVED . QW-OT@H@@@@. BX )@@G@@ . QW-OT@H@@@@BY )@@G@@ L A4,UR1 . GET IMAGE TYPE .BZ )@@G@@ QW-OT@H@@@@ JN A4,PRT100 . SKIP IF ALREADY ASCICA )@@G@@I . QW-OT@H@@@@ L A4,PRMODE . GET FLAGCB )@@G@@ BITS . QW-OT@H@@@@ TOP,U A4,RSIUSE CC )@@G@@ . RSI SYMBIONT? . QW-OT@H@@@@ J PRT1CD )@@G@@00 . NO, SKIP . QW-OT@H@@@@ L CE )@@G@@ A3,SE,A1 . A3=RD$DT ADDRESS . QW-OT@H@@@@CF )@@G@@ L A3,RQINDX . A3 = INPUT FCT ADDRESS .CG )@@G@@ QW-OT@H@@@@ L A3,DVTABL,A3 . GET ADDRESS OF DEVICCH )@@G@@E TABLE . QW-OT@H@@@@ L A4,D5UMBT,A3 . GET UOM CI )@@G@@BITS . QW-OT@H@@@@ TOP,U A4,FUNMOD CJ )@@G@@ . FUNNY MODE AVAILABLE? . QW-OT@H@@@@ J PRT0CK )@@G@@80 . NO, EXIT . QW-OT@H@@@@ L CL )@@G@@ A0,UR3 . YES, GET SOURCE CARD ADDRESS . QW-OT@H@@@@CM )@@G@@ L,U A3,,A0 . .CN )@@G@@ QW-OT@H@@@@ JZ A3,PRT080 . FUNNY MODE NEEDS AT CO )@@G@@LEAST 1 WOR. QW-OT@H@@@@ GETUSWL A1 . GET SWICP )@@G@@TCH LIST ADDRESS . QW-OT@H@@@@ LMJ X11,ABS CQ )@@G@@ . MAKE ADDRESS ABSOLUTE . QW-OT@H@@@@ L,S1 A4,*CR )@@G@@0,A3 . GET FIRST CHARACTER . QW-OT@H@@@@ TECS )@@G@@,U A4,077 . UOM FUNNY MODE FLAG? . QW-OT@H@@@@CT )@@G@@ J PRT080 . NO, EXIT .CU )@@G@@ QW-OT@H@@@@. CV )@@G@@ . QW-OT@H@@@@. R1 MUST NOW BE SET NEGATIVE TO INDICATE ASCII.CW )@@G@@ IF THE LOWER HALF . QW-OT@H@@@@. OF R1 IS NON ZERO IT IS A RETURN ACX )@@G@@DDRESS AND MUST NOT BE DESTROYED . QW-OT@H@@@@. CY )@@G@@ . QW-OT@H@@@@ L CZ )@@G@@ A1,UR1 . GET FD-ASCII SWITCH . QW-OT@H@@@@DA )@@G@@ L,U A1,,A1 . GET LOWER HALF .DB )@@G@@ QW-OT@H@@@@ JNZ A1,$+2 . PROTECT NON-ZERO CONDC )@@G@@TENTS . QW-OT@H@@@@ L A1,KM0 . NONE BLADD )@@G@@ST WHOLE REGISTER . QW-OT@H@@@@ LXI A1,KM0 DE )@@G@@ . YES, NEG=>ASCII, DONT CHANGE H2. QW-OT@H@@@@ S A1,UDF )@@G@@R1 . RESET R1 . QW-OT@H@@@@PRT080. DG )@@G@@ . QW-OT@H@@@@DH )@@G@@ GETSWL A1 . GET SWITCH LIST ADDRESS .DI )@@G@@ QW-OT@H@@@@ L A3,SE,A1 . GET RD$DT ADDRESS DJ )@@G@@ . QW-OT@H@@@@ A,U A3,RDTLEN . A3 = PR$DK )@@G@@DT ADDRESS . QW-OT@H@@@@PRT100. DL )@@G@@ . QW-OT@[@@@@*READ$@H@@@@-362 DM )@@G@@ . FIX @H@@@@DN )@@G@@ L A4,PRMODE . GET FILE MODE FLAGS .DO )@@G@@ FIX @H@@@@ AND,U A4,-ASCMOD . CLEAR FILE MODE DP )@@G@@ . FIX @H@@@@ S A5,PRMODE . RESET ITDQ )@@G@@ . FIX @]@@@@*RSIPUT @H@@@@-244 DR )@@G@@ . QW-IN@H@@@@. DS )@@G@@ . QW-INDT )@@G@@@H@@@@. IF A SHIFT OUT HAS BEEN RECEIVED IN UOM 'FUNNY' MODE THEN PASS DU )@@G@@ . QW-IN@H@@@@. THE IMAGE AS IF IT WERE FIELDATA TO PREVENT TRANSLATDV )@@G@@ION WHEN THE USER. QW-IN@H@@@@. ER READ$. DW )@@G@@ . QW-IN@H@@@@. DX )@@G@@ . QW-IN@H@@@@D5UMBT EQUF DY )@@G@@ 9,,S1 . UOM FUNNY MODE BITS . QW-IN@H@@@@FUNMODDZ )@@G@@ EQU 01 . FUNNY MODE REQUESTED . QW-INEA )@@G@@@H@@@@SOUTR EQU 02 . SHIFT OUT RECEIVED EB )@@G@@ . QW-IN@H@@@@ L A1,IFCT,X8 . INPUT FCT EC )@@G@@ . QW-IN@H@@@@ L A1,DVTABL,A1 . GEED )@@G@@T ADDRESS OF DEVICE TABLE . QW-IN@H@@@@ L A4,D5UMBT,EE )@@G@@A1 . GET UOM BITS . QW-IN@H@@@@ TOP,U EF )@@G@@ A4,SOUTR . SHIFT OUT RECEIVED? . QW-IN@H@@@@ EG )@@G@@ J PRPUT20 . NO, CONTINUE . QW-INEH )@@G@@@H@@@@ TS 0,A3 . LOCK INPUT FCT EI )@@G@@ . QW-IN@H@@@@ L A4,PRMODE . GET MODE FLAGSEJ )@@G@@ . QW-IN@H@@@@ AND,U A4,-ASCTYP . CLEK )@@G@@EAR ASCII BIT . QW-IN@H@@@@ S A5,PRMODE EL )@@G@@ . RESET IT . QW-IN@H@@@@ CTS EM )@@G@@ 0,A3 . UNLOCK FCT . QW-IN@H@@@@PRPUT2EN )@@G@@0. . QW-INEO )@@G@@@H@@@@-245 EP )@@G@@ . QW-IN@H@@@@ TS 0,A3 . LOCK FCT EQ )@@G@@ . QW-IN@H@@@@ L A4,PRMODE . GEER )@@G@@T MODE FLAGS . QW-IN@H@@@@ OR,U A4,ASCTYP ES )@@G@@ . SET ASCII TYPE BACK . QW-IN@H@@@@ S ET )@@G@@ A5,PRMODE . . QW-IN@H@@@@ EU )@@G@@ CTS 0,A3 . UNLOCK FCT . QW-INEV )@@G@@@]@@@@*RSIGET @H@@@@-401 EW )@@G@@ . QW-OT@H@@@@. EX )@@G@@ . QW-OT@H@@@@. IF THE USER HAS REQUESEY )@@G@@TED UOM FUNNY MODE (BIT FUNMOD OF D5UMBT) . QW-OT@H@@@@. AND S1 OF EZ )@@G@@THE IMAGE IS 077, PASS IT UNCHANGED TO TERMINAL . QW-OT@H@@@@FA )@@G@@. .FB )@@G@@ QW-OT@H@@@@D5UMBT EQUF 9,,S1 . UOM FUNNY MODE BITS FC )@@G@@ . QW-OT@H@@@@FUNMOD EQU 01 . FUNNY MOFD )@@G@@DE REQUESTED . QW-OT@H@@@@SOUTR EQU 02 FE )@@G@@ . SHIFT OUT RECEIVED . QW-OT@H@@@@. FF )@@G@@ . QW-OT@H@@@@ L FG )@@G@@ A1,PINFCT,A3 . GET INPUT FCT . QW-OT@H@@@@FH )@@G@@ L A1,DVTABL,A1 . GET ADDRESS OF DEVICE TABLE .FI )@@G@@ QW-OT@H@@@@ L A4,D5UMBT,A1 . GET UOM BITS FJ )@@G@@ . QW-OT@H@@@@ TOP,U A4,FUNMOD . REQUEST FK )@@G@@FOR FUNNY MODE? . QW-OT@H@@@@ J STR020 FL )@@G@@ . NO, CONTINUE . QW-OT@H@@@@ L A1,IFM )@@G@@MBUFR,X8 . YES, GET ADDRESS OF IMAGE . QW-OT@H@@@@ L,FN )@@G@@S1 A4,0,A1 . GET S1 OF IMAGE . QW-OT@H@@@@FO )@@G@@ TNE,U A4,077 . 077 MEANS FULL ASCII .FP )@@G@@ QW-OT@H@@@@ J STRIP1 . YES, DON'T TOUCH THEFQ )@@G@@ IMAGE . QW-OT@H@@@@STR020. FR )@@G@@ . QW-OT@]@@@@*RSSUBS @H@@@@-748 FS )@@G@@ . QW-IO@H@@@@. FT )@@G@@ . QW-IOFU )@@G@@@H@@@@D5UMBT EQUF 9,,S1 . UOM FUNNY MODE BITS FV )@@G@@ . QW-IO@H@@@@FUNMOD EQU 01 . FUNNY MODE REQFW )@@G@@UESTED . QW-IO@H@@@@SOUTR EQU 02 . SHFX )@@G@@IFT OUT RECEIVED . QW-IO@H@@@@. FY )@@G@@ . QW-IO@H@@@@RSON. . @@ON FFZ )@@G@@OUND . QW-IO@H@@@@ GA )@@G@@ LN,U A2,1 . FLAG FOR ON . QW-IOGB )@@G@@@H@@@@ J ONOF10 . CONTINUE GC )@@G@@ . QW-IO@H@@@@RSOFF . @@OFF RECEIVED GD )@@G@@ . QW-IO@H@@@@ L,U A2,0 . FLGE )@@G@@AG MEANING OFF . QW-IO@H@@@@ONOF10 L,U X11,ONOF30GF )@@G@@ . RETURN ADDRESS FROM RSCSI1 . QW-IO@H@@@@ J GG )@@G@@ RSCSI1 . INITIALIZE CARD SCAN . QW-IO@H@@@@ONOF20GH )@@G@@ LMJ X11,RSCSI . GET THE NEXT CHARACTER . QW-IOGI )@@G@@@H@@@@ONOF30 J ONOF20 . IGNORE COMMAS GJ )@@G@@ . QW-IO@H@@@@ J ONOF20 . IGNORE SPACES GK )@@G@@ . QW-IO@H@@@@ J RSPUTCR . ALGL )@@G@@L DONE EXIT . QW-IO@H@@@@ TEP,U A4,040 GM )@@G@@ . IGNORE CASE . QW-IO@H@@@@ AN,U GN )@@G@@ A4,040 . GET UPPER CASE ONLY . QW-IO@H@@@@ GO )@@G@@ TE,U A4,0106 . F = FUNNY MODE REQUEST . QW-IOGP )@@G@@@H@@@@ J ONOF20 . NO, GET NEXT CHARACTER GQ )@@G@@ . QW-IO@H@@@@ L A3,IFCT,X8 . ADDRESS OF INPGR )@@G@@UT FCT . QW-IO@H@@@@ L A1,DVTABL,A3 . GEGS )@@G@@T ADDRESS OF DEVICE TABLE . QW-IO@H@@@@ L A4,D5UMBT,GT )@@G@@A1 . GET UOM BITS . QW-IO@H@@@@ AND,U GU )@@G@@ A4,-FUNMOD . CLEAR BIT . QW-IO@H@@@@ GV )@@G@@ JP A2,$+2 . DID HE WANT IT SET? . QW-IOGW )@@G@@@H@@@@ OR,U A4,FUNMOD . YES, SET IT GX )@@G@@ . QW-IO@H@@@@ S A5,D5UMBT,A1 . RESET UOM BITSGY )@@G@@ . QW-IO@H@@@@ J RSPUTCR . EXGZ )@@G@@IT . QW-IO@H@@@@. HA )@@G@@ . QW-IO@H@@@@-1405 HB )@@G@@ . QW-IO@H@@@@ HC )@@G@@ . TURN MODE ON OR OFF . QW-IOHD )@@G@@@H@@@@. HE )@@G@@ . QW-IO@H@@@@ + 'ON' . HF )@@G@@ . QW-IO@H@@@@ + RSON . HG )@@G@@ . QW-IO@H@@@@ + 'OFF' HH )@@G@@ . . QW-IO@H@@@@ + HI )@@G@@ RSOFF . . QW-IO___ . UNHJ )@@G@@LOCK FCT . QW-IN@H@@@@PRPUT20. HK )@@G@@ . QW-IN*[@@@@*SDFF*@E@@@@@SSG OHL )@@G@@LD$SKEL.SKELETON/MAINTAIN,OLD$SKEL.SGSSES/APL,,,,, ; @ @@@@ PCF/1,OHM )@@G@@LD$SKEL.PCF . @]@@@@TEMP COR ___ APL,,,,, ; @F@B@A@SSG,ABK OLDHN )@@G@@*[@@@@*SDFF*@ @@@]* . USE OF THIS SKELETON- @G@@@]* . THIS SKEHO )@@G@@LETON IS DESIGNED TO SIMPLIFY THE MAINTAINENCE OF @D@@@]* . MEDIUM-SHP )@@G@@IZED PROGRAMS. THREE FILES ARE REQUIRED. @G@@@]* . (1) THE FILE HQ )@@G@@ OLD$BASYMB CONTAINING THE BASE SYMBOLIC @G@@@]* . DECKSHR )@@G@@ FOR ALL ELEMENTS OF THE PROGRAM, AND THE ABSOLUTE(S) @B@@@]* . HS )@@G@@ WHICH CORRESPOND TO THIS BASE@G@@@]* . (2) THE FILE OLD$RELLIB HT )@@G@@ CONTAINING THE LATEST (I.E. @G@@@]* . CORRECTED, IF NECHU )@@G@@ESSARY) RELOCATABLE DECKS FOR ALL ELEMENTS@G@@@]* . PLUS PROC, HV )@@G@@MAP AND ELT SYMBOLICS FOR ELEMENTS WHICH HAVE @ @@@]* . PCF CHW )@@G@@ORRECTIONS. @G@@@]* . (3) THE FILE OLD$SKEL WHICH CONTAINSHX )@@G@@ THE CURRENT PCF @F@@@]* . AND THE SO-CALLED 'BASE' SGSSES, WHHY )@@G@@ICH DESCRIBE THE @B@@@]* . ELEMENTS IN THE BASYMB FILE. @[@@@]HZ )@@G@@* . @G@@@]* . TWO TYPES OF SGSSES ARE USED TO CONTROL THE GENERAIA )@@G@@TED RUN- @G@@@]* . THE FIRST SET (WHICH REMAINS CONSTANT AND THUS USUIB )@@G@@ALLY APPEARS IN @G@@@]* . THE SKEL FILE) DESCRIBE THE ELEMENTS IN THE IC )@@G@@FILE BEING MAINTAINED, @G@@@]* . THEY ARE THE 'BASE' SGSSES. THE OTHERID )@@G@@S (USUALLY SUPPLIED WITH EACH @F@@@]* . RUN) DESCRIBE THE PARTICULAR TYIE )@@G@@PE OF RUN TO BE GENERATED. @G@@@]* . THERE MUST BE ONE 'BASE' SIF )@@G@@GS FOR EACH ELEMENT OF THE BASE @G@@@]* . SYMBOLICS. THE COMPILATIOIG )@@G@@NS/ASSEMBLIES ETC, OF A GIVEN RUN ARE DONE@G@@@]* . IN THE ORDER OF APPEIH )@@G@@ARENCE OF THE APPROPRIATE BASE CARDS. BECAUSE @G@@@]* . OF THIS, THE II )@@G@@BASE CARDS FOR PROCEDURE ELEMENTS SHOULD BE GROUPED @F@@@]* . TOGETHERIJ )@@G@@ AT THE BEGINNING. THE FORMAT OF THESE CARDS IS: @G@@@]* . BASE ,,, , FILLER @]@@@]* . WHIL )@@G@@ERE - @G@@@]* . BASE IS THE SGS LABEL (STARTS IN COL 1) AND IS ALWIM )@@G@@AYS PRESENT @G@@@]* . FIELD 1 GIVES NAME INFORMATION FOR THE DECK, ANIN )@@G@@D HAS FROM 1 TO @A@@@]* . 4 SUBFIELDS WHICH ARE@G@@@]* . IO )@@G@@ SOURCE INPUT NAME (I.E. ELEMENT NAME) @G@@@]IP )@@G@@* . (OPTIONAL) VERSION NAME FOR USE FOR SI IQ )@@G@@@G@@@]* . (OPTIONAL) NAME FOR R.O. FIELD (SPECIR )@@G@@ 2) @G@@@]* . OF PROCESSOR CALL CARD. IF NOIS )@@G@@T GIVEN, @E@@@]* . IS USED AS THE R.OIT )@@G@@. NAME@G@@@]* . (OPTIONAL) VERSION NAME FOR R.IU )@@G@@O. FIELD @G@@@]* . NORMALLY, PROCESSOR CALL CARDS ARE GENEIV )@@G@@RATED WITH 2 SPEC @G@@@]* . FIELDS, BOTH OF WHICH HAVE THE NAIW )@@G@@ME /. WHEN @G@@@]* . AN IS GIVEN, 3 SPEC FIX )@@G@@IELDS WILL BE USED, BUT THE @G@@@]* . S.O. FIELD (SPEC 3) WIY )@@G@@ILL BE IDENTICAL TO SPEC 1. THE USE @G@@@]* . OF / IZ )@@G@@IS USUALLY RESTRICTED TO @MAP SYMBOLICS @G@@@]* . FIELD 2 GIVES THEJA )@@G@@ PROCESSOR NAME AND OPTIONS TO BE @G@@@]* . USEJB )@@G@@D WHEN EXECUTING THE DESIGNATED PROCESSOR. SINCE @G@@@]* . JC )@@G@@ MOST PROCESSOR CALLS ARE GENERATED WITH 2 SPEC FIELDS, @E@@@]* . JD )@@G@@ (SEE ABOVE), THE USUAL OPTIONS ARE US . @G@@@]* . FIELD JE )@@G@@3 MUST BE PRESENT, BUT IS PRESENTLY UNUSED. ANYTHING MAY @G@@@]* . JF )@@G@@ APPEAR HERE, BUT THE WORD FILLER OR A MASTER SPACE @B@@@]JG )@@G@@* . IS THE USUAL CONVENTION. @G@@@]* . FIELDS 4,5,ETC. THJH )@@G@@E IS ENGLISH-LANGUAGE TEXT WHICH @G@@@]* . GIVJI )@@G@@ES A SIMPLE DESCRIPTION OF THE ELEMENT. THIS TEXT @G@@@]* . JJ )@@G@@ WILL BE PUT ON AN @HDG CARD WHEN THE ELEMENT IS PROCESSED@[@@@]* . JK )@@G@@@G@@@]* . THE ELEMENTS IN THE BASE NEED NOT ALL BE LANGUAGE PROCESJL )@@G@@SOR @G@@@]* . SOURCE DECKS. TEST DATA, FOR EXAMPLE MAY ALSO APPEAR,JM )@@G@@ BUT SUCH @G@@@]* . DATA MUST BE IN @ELT SYMBOLICS TO AVOID AN ATTEMJN )@@G@@PT BY THE SKELETON@G@@@]* . TO MAP IT INTO THE PROGRAM BEING MAINTAINEJO )@@G@@D. ANY NUMBER OF @MAP @F@@@]* . SYMBOLICS MAY APPEAR, AS A PARTICULAJP )@@G@@R @MAP OF THE PROGRAM IS@F@@@]* . USUALLY DONE BY AN EXPLICIT CONTROL JQ )@@G@@CARD (SGS) REQUEST. @[@@@]* . @^@@@]* . RUN TYPE SGSSES: @G@@@]JR )@@G@@* . THE FOLLOWING SGSSES MAY BE SUPPLIED TO DETERMINE THE PARTIC- JS )@@G@@@G@@@]* . ULAR TYPE OF RUN TO BE GENERATED. IF NONE ARE SUPPLIED, A DJT )@@G@@EBUG @B@@@]* . RUN IS ASSUMED. THE FORMATS ARE: @E@@@]* . (1)JU )@@G@@ ONE 'RUN' CARD OF ONE OF THE FOLLOWING TYPES- @ @@@]* . RUNJV )@@G@@ IS DEBUG @ @@@]* . RUN IS ROLLOUT @C@@@]* . RUNJW )@@G@@ IS UPDATE @D@@@]* . RUN IS LISTING OF @^@@@]* . WHERE: @F@@@]* . JY )@@G@@ IS EITHER PCF OR BASE .@F@@@]* . AND JZ )@@G@@ MAY BE PCF, BASE OR CORRECTED.@[@@@]* . @G@@@]* . KA )@@G@@ A DEBUG RUN APPLIES ALL THE CORRECTIONS, PROCESSES THE @G@@@]KB )@@G@@* . CORRECTED DECKS, MAPS THE RESULTING PROGRAM, AND MAY ALSO KC )@@G@@@G@@@]* . PERFORM TEST EXECUTIONS OF VARIOUS TYPES. A ROLLOUT KD )@@G@@RUN @G@@@]* . DOES NOTHING BUT COPY THE CURRENT COPIES OF THEKE )@@G@@ THREE FILES@G@@@]* . TO TAPE. AN UPDATE RUN PROCESSES CORRECTKF )@@G@@ED DECKS (PCF) OR @F@@@]* . ALL DECKS (BASE), MAPS AND EXECUTEKG )@@G@@S (AS FOR A DEBUG @G@@@]* . RUN), APPROPRIATELY UPDATES THE PCFKH )@@G@@ AND/OR BASE SYMBOLICS, @C@@@]* . AND SAVES THE NEWLY CREATED FKI )@@G@@ILES. @G@@@]* . (2) A ROLLOUT CARD WHICH DEFINES THE TAPE TO BE USKJ )@@G@@ED FOR A @G@@@]* . BACKUP COPY OF THE FILES. A ROLLOUT CARDKK )@@G@@ IS REQUIRED IN @G@@@]* . A ROLLOUT RUN, BUT MAY ALSO OPTIONAKL )@@G@@LLY APPEAR IN ANY OTHER @G@@@]* . TYPE OF RUN. A ROLLOUT TO TAKM )@@G@@PE IS RECOMMENDED WHENEVER AN @G@@@]* . UPDATE (PCF OR BASE) ISKN )@@G@@ DONE. THE FORMAT OF A ROLLOUT @^@@@]* . CARD IS- @[@@@]KO )@@G@@* . @C@@@]* . ROLLOUT TAPE IS , @[@@@]* . KP )@@G@@@G@@@]* . WHERE IS OPTIONAL- IF NOT GIVEN, 8C IS ASSUMEDKQ )@@G@@. @G@@@]* . IF A CATALLOGED TAPE FILE IS BEING USED FOR ROLKR )@@G@@LOUTS, THE @A@@@]* . APPROPRIATE CARD IS @[@@@]* . @D@@@]KS )@@G@@* . ROLLOUT FILE IS @[@@@]* . @F@@@]KT )@@G@@* . WHERE IS THE USUAL DESIGNATION @G@@@]KU )@@G@@* . FOR A FILE, INCLUDING QUALIFIER AND KEYS, IF NECESSARY, KV )@@G@@@G@@@]* . BUT WITHOUT THE TRAILING DECIMAL POINT USUALLY NEEDEDKW )@@G@@. @G@@@]* . THE @FCYCLE PROCESSOR WILL BE USED TO PERMUTE RKX )@@G@@EEL NUMBERS @D@@@]* . WHEN A CATALLOGED TAPE FILE IS USED. KY )@@G@@@G@@@]* . (3) FOR DEBUG AND UPDATE RUNS ANY NUMBER OF 'MAP' CARDS WKZ )@@G@@HICH @G@@@]* . SPECIFY WHICH MAP SYMBOLICS SHOULD BE USED FOR LA )@@G@@COLLECTIONS.@G@@@]* . IF NOT PRESENT, THE FIRST MAP SYMBOLIC WHLB )@@G@@ICH APPEARS IN THE@F@@@]* . 'BASE' SGSSES IS USED. THE FORM OFLC )@@G@@ THIS CARD IS @[@@@]* . @B@@@]* . MAP IS <1>,<2>,... @[@@@]* . @G@@@]* . WHERE <1>,<2>... ETC ARE THE NAMES LE )@@G@@OF THE MAP SYMBOLICS TO @G@@@]* . BE USED AS THEY APPEAR IN FIELF )@@G@@LD 1 OF THE 'BASE' SGSSES. @G@@@]* . VERSION NAMES, EVEN THOLG )@@G@@UGH PRESENT ON THE 'BASE' CARDS, ARE@G@@@]* . IGNORED AND SHOULLH )@@G@@D NOT APPEAR ON 'MAP' CARDS. THE COLLECT-@G@@@]* . IONS GENERALI )@@G@@TED BY 'MAP' CARDS ARE DISTINCT FROM THOSE GEN- @G@@@]* . ERATELJ )@@G@@D BY THE PRESENCE OF CORRECTIONS TO MAP SYMBOLIC DECKS@G@@@]* . (4)LK )@@G@@ FOR UPDATE RUNS, OPTIONAL 'NEW' CARDS WHICH DEFINE THE @G@@@]* . LL )@@G@@ FILES IN WHICH THE NEWLY UPDATED PROGRAM IS TO BE PLACED. @G@@@]LM )@@G@@* . IF NOT PRESENT, THE MODIFIED FILES ARE COPIED TO THE NEXT LN )@@G@@@G@@@]* . HIGHER F-CYCLE OF THE OLD FILES. THE FORMAT OF THE 'LO )@@G@@NEW' @^@@@]* . CARDS IS: @[@@@]* . @G@@@]* . LP )@@G@@ NEW FILE IS ,,, PLUS ONE @[@@@]* . @G@@@]LQ )@@G@@* . WHERE IS SKEL, BASYMB OR RELLIB. THE WORDS PLUS LR )@@G@@@G@@@]* . ONE ARE OPTIONAL, AND INDICATE THAT A NEW F-CYCLE OF LS )@@G@@THE @G@@@]* . NAMED FILE IS TO BE CREATED. IF THE FILE HAS KLT )@@G@@EYS, A'NEW' @G@@@]* . CARD IS REQUIRED EVEN IF THE FILE NAME ISLU )@@G@@ THE SAME AS THE @F@@@]* . OLD FILE AND A NEW CYCLE (PLUS ONE)LV )@@G@@ IS TO BE CREATED.@G@@@]* . (5) A 'TEST' CARD FOR EACH TEST EXECUTILW )@@G@@ON TO BE GENERATED. @^@@@]* . FORMAT IS: @G@@@]* . TEST ,, ADD,, DATA,, PMD,,...@G@@@]* . LY )@@G@@ WHERE IS PROGNAME OR XQT AND ARE SPEC FIELDS TO USE @C@@@]LZ )@@G@@* . A1,A2 ARE ELEMENTS TO BE @ADDED, IF ANY @G@@@]* . D1,D2 ARE MA )@@G@@NAMES OF INLINE DATA PACKETS-- THE CARDS MUST APPEAR @F@@@]* . MB )@@G@@ IN THE TCF ONLY, HEADED BY MATCHING * ETC. CARDS@G@@@]* . THE PRMC )@@G@@OG TO EXECUTE MUST BE 1ST, AND PMD'S (IF ANY) LAST, BUT ADD @G@@@]* . MD )@@G@@AND DATA MAY BE FREELY DISPERSED ANYWHERE IN BETWEEN. AS MANY @G@@@]ME )@@G@@* . DIFFERENT PMD'S AS DESIRED MAY BE SPECIFIED, EACH GETTING ITS OWN MF )@@G@@@G@@@]* . FIELD. IF THE WORD DOWN APPEARS ANYWHERE ON THE CARD, ITMG )@@G@@ WILL @G@@@]* . BE TAKEN AS A SIGNAL TO GENERATE 2 EXECUTIONS, OLD ANDMH )@@G@@ NEW, AND @G@@@]* . DOWNDATE THE PRINT$ FILES PRODUCED BY EACH AGAINMI )@@G@@ST EACH OTHER. @F@@@]* . SGSSES SUCH AS THE ABOVE ARE ALWAYS PUNCHEMJ )@@G@@D WITH THE KEYWORD@E@@@]* . (E.G. 'RUN' OR 'NEW' OR 'MAP') STARTING IMK )@@G@@N COLUMN 1. @[@@@]* . @#@@@]* . DECK SETUP - @G@@@]* . ALTHOUGHML )@@G@@ THE SSG PROCESSOR ALLOWS MANY VARIATIONS OF DECK @F@@@]* . SETUP, TMM )@@G@@HE FOLLOWING IS PROVIDED FOR THOSE NOT INTERESTED IN @^@@@]* . BECOMINGMN )@@G@@ SSG EXPERTS@C@@@]* . @SSG ,,,,,,PCF/1,@#@@@]MO )@@G@@* . TEMP COR@#@@@]* . *@#@@@]* . -N,M @G@@@]MP )@@G@@* . ... CORRECTIONS FOR DECK , LINE NUMBERS AS APPROPRIATEMQ )@@G@@@#@@@]* . *@#@@@]* . -I,J @B@@@]* . ... CORRMR )@@G@@ECTIONS FOR DECK @C@@@]* . @EOF . AFTER ALL CORRECTION CARDMS )@@G@@S @#@@@]* . SGS @^@@@]* . RUN IS ... @^@@@]* . MT )@@G@@ MAP IS ... @^@@@]* . ETC., ETC. @C@@@]* . @EOF . AMU )@@G@@FTER ALL RUN CONTROL SGSSES @#@@@]* . @EOF . @G@@@]* . WHERE IS THE ELEMENT NAME OF THE SKELETON (FILE.EL NOTATION) @E@@@]* . MW )@@G@@ IS THE ELEMENT NAME FOR THE 'BASE' SGSSES@C@@@]* . AND IS THE ELEMENT NAME OF THE PCF @G@@@]* . IF THERE ARE NO CORRECTIMY )@@G@@ONS, THE TEMP COR AND ITS MATCHING @EOF @G@@@]* . MAY BE OMITTED. IMZ )@@G@@F THERE ARE NO SGSSES (OTHER THAN THE 'BASE' @G@@@]* . SGSSES, WHICNA )@@G@@H ARE SPECIFIED IN SPEC 2), THE SGS AND ITS MATCHING @G@@@]* . @EOF CNB )@@G@@ARD MAY BE OMITTED. IN THIS CASE, A DEBUG RUN IS ASSUMED. @G@@@]* . NC )@@G@@ THE SKELETON AS PRESENTLY IMPLEMENTED WILL GENERATE EVERYTHING@G@@@]ND )@@G@@* . THROUGH A @MAP, AND LEAVE THE RESULTING ABSOLUTE IN TPF$, ALONG NE )@@G@@@G@@@]* . WITH UPDATED SYMBOLICS FOR THE CHANGED DECKS AND A COPY OF TNF )@@G@@HE @G@@@]* . LATEST VERSION OF ALL @ELT DECKS. THE @ELT DECKS ARE NG )@@G@@THUS AVAIL- @G@@@]* . ABLE TO BE @ADD'ED AS TEST DATA FOR A TRIAL EXENH )@@G@@CUTION OF THE @ @@@]* . RESULTING ABSOLUTE. @G@@@]* . PRNI )@@G@@IOR TO THE @SSG CARD, THE REQUIRED FILES MUST HAVE BEEN @G@@@]* . NJ )@@G@@ASSIGNED TO THE RUN, AND THEY MUST HAVE THE NAMES OLD$BASYMB, @E@@@]NK )@@G@@* . OLD$RELLIB AND OLD$SKEL, WHICH MAY BE @USE NAMES. @[@@@]* . NL )@@G@@@[@@@]* . @G@@@]* . **************************************************NM )@@G@@******************@G@@@]* . NN )@@G@@ *@G@@@]*DEFINE FILESPEC . COLLECT A FILENAME OF FNO )@@G@@ORM ,,, *@G@@@]* . . [#1]=SGS LABEL, [NP )@@G@@#2]=CARD, [#3]=FIELD *@G@@@]* . NQ )@@G@@ *@G@@@]*IF [[#1],[#2],[#3],1]='NR )@@G@@''' . IS QUALIFIER NULL? ..... *@G@@@]*ELSE . IF NOT, PUNS )@@G@@T IT IN ....: *@G@@@]*IF [[#1],[#NT )@@G@@2],[#3],1]=* . IS SPEC A NAKED ASTERISK? ..... : *@^@@@][[#1],NU )@@G@@[#2],[#3],1]& @G@@@]*ELSE . IF NOT, WE MUST SUPPLY IT NV )@@G@@ ....: : *@^@@@][[#1],[#2],[#3],1]*& @G@@@]*END . OF ASNW )@@G@@TERISK TEST ....: : *@G@@@]*END .NX )@@G@@ OF NULL QUALIFIER TEST, NOW PUT IN FILENAME ....: *@^@@@]NY )@@G@@[[#1],[#2],[#3],2]& @G@@@]*IF [[#1],[#2],[#3]]>2 . ANY KEYS? NZ )@@G@@ ..... *@G@@@]*INCREMENT KEYS FROM 3 TO [[#1],[#2]OA )@@G@@,[#3]] . YES, PUT THEM IN.... : *@^@@@]/[[#1],[#2],[#3],KEYS]& @G@@@]OB )@@G@@*LOOP . TO NEXT KEY ...: : *OC )@@G@@@G@@@]*END . OF TEST FOR KEYS .OD )@@G@@...: *@G@@@]* . OE )@@G@@ *@G@@@]*END . OF DEFN OF PROC TO MAKE FILENAMES OF )@@G@@ *@G@@@]* . OG )@@G@@ *@G@@@]* . **************************************OH )@@G@@******************************@[@@@]* . @G@@@]* . ********************OI )@@G@@************************************************@G@@@]* . OJ )@@G@@ *@G@@@]* . THIS PROOK )@@G@@CEDURE SUPERVISES ROLLOUT OF FILES TO TAPE *@G@@@]* . OL )@@G@@ *@G@@@]OM )@@G@@*DEFINE ROLLOUT . SGS: ROLLOUT TAPE IS XXX(,9) *ON )@@G@@@G@@@]*IF [ROLLOUT]>0 . ...... OO )@@G@@ *@A@@@]#HDG,P ROLLOUT TO TAPE OF [#1] FILES@G@@@]*IF ROLLTAPE IS CLOP )@@G@@EAR . IS TAPE ALREADY ASG'D?..... : *@G@@@]*IF [ROLLOUTOQ )@@G@@,1,1,1]=FILE . CATALLOGED TAPE? ... : : *@G@@@]*EDIT OR )@@G@@ON & : : : *@]@#@]OS )@@G@@#FCYCLE,CP &@]@@@##FCYCLE,C & @G@@@]*PROCESS FILESPEC ROLLOUT 1 3 . OT )@@G@@ : : : *@]@@@].,,OUTAPE @G@@@]*EDIT OFF . OU )@@G@@END CREATION OF @FCYCLE CARD : : : *@G@@@]*ELSE OV )@@G@@. IF NOT USING A CATALLOGED TAPE... ...: : : *@G@@@]OW )@@G@@*IF [ROLLOUT,1,3]>1 . TYPE OF UNIT GIVEN? .... : : : *OX )@@G@@@C@@@]#ASG,T OUTAPE.,[ROLLOUT,1,3,2],[ROLLOUT,1,3,1] .@G@@@]*ELSE . IF NOY )@@G@@OT GIVEN, ASSUME 8C .....: : : : *@A@#@]#ASG,TOZ )@@G@@ OUTAPE.,8C,[ROLLOUT,1,3,1] . @A@@@##ASG,T OUTAPE.,8C9,[ROLLOUT,1,3,1] .PA )@@G@@@G@@@]*END . OF TEST FOR DEVICE TYPE .....: : : : PB )@@G@@ *@G@@@]*END . OF TEST FOR CATALLOGED ROLLOUT FILE ..: : : PC )@@G@@ *@G@@@]*END . OF ASSIGNMENT OF ROLLOUT TAPE .....: PD )@@G@@ : *@G@@@]*SET ROLLTAPE . INDICATE TAPE IS ASG'D PE )@@G@@ : *@ @@@]#COPY,GM [#1]$SKEL.,OUTAPE. @ @@@]#COPY,PF )@@G@@GM [#1]$RELLIB.,OUTAPE.@ @@@]#COPY,GM [#1]$BASYMB.,OUTAPE.@G@@@]*END .PG )@@G@@ OF CHECK WHETHER ROLLOUT IS TO BE DONE AT ALL...: *@[@@@]PH )@@G@@#HDG,P@B@@@]*END . OF DEFINITION OF ROLLOUT PROCEDURE @G@@@]* . PI )@@G@@ *@G@@@]* . **PJ )@@G@@******************************************************************@[@@@]PK )@@G@@* . @[@@@]* . @G@@@]* . ********************************************PL )@@G@@************************@G@@@]* . PM )@@G@@ *@G@@@]*DEFINE CLEANUP . CLEAN UP ALL OUR FPN )@@G@@ILES *@G@@@]* . PO )@@G@@ *@A@@@]#HDG,P TOC OF NEW SSG COPP )@@G@@NTROL FILE @#@@@]#PACK NEW$SKEL. @#@@@]#PREP NEW$SKEL. @#@@@]#PRT,TPQ )@@G@@ NEW$SKEL. @B@@@]#HDG,P TOC OF NEW RB/PROC/ELT LIBRARY @#@@@]#PACK PR )@@G@@NEW$RELLIB. @#@@@]#PREP NEW$RELLIB. @#@@@]#PRT,T NEW$RELLIB.@G@@@]*IF [#PS )@@G@@1]=BASE . *@A@@@]PT )@@G@@#HDG,P TOC OF NEW BASE SYMBOLIC FILE@#@@@]#PACK NEW$BASYMB. @#@@@]#PREP PU )@@G@@NEW$BASYMB. @G@@@]*ELSE . IF NOT BASE UPDATE, ASSUME PCF PV )@@G@@ *@B@@@]#HDG,P TOC OF CURRENT BASE SYMBOLIC FILE @G@@@]PW )@@G@@#USE NEW$BASYMB.,OLD$BASYMB. . NEED THIS FOR ROLLOUT *PX )@@G@@@G@@@]*END . PY )@@G@@ *@G@@@]#PRT,T NEW$BASYMB. . LIST THE PZ )@@G@@TOC *@[@@@]#HDG,P@G@@@]*PROCESS ROLLOUT NEW . IF ANY ROLLOUT, DO QA )@@G@@IT *@^@@@]#DELETE,C OLD$SKEL. @^@@@]#DELETQB )@@G@@E,C OLD$RELLIB. @G@@@]*IF [#1]=BASE . QC )@@G@@ *@^@@@]#DELETE,C OLD$BASYMB. @G@@@]*END . OF TEQD )@@G@@ST FOR BASE UPDATE *@[@@@]#HDG,PQE )@@G@@@G@@@]* . QF )@@G@@ *@G@@@]*END . OF DEF OF PROC QG )@@G@@ *@G@@@]* . QH )@@G@@ *@G@@@]* . ********************************************QI )@@G@@************************@[@@@]* . @[@@@]* . @G@@@]* . **************QJ )@@G@@******************************************************@G@@@]* . QK )@@G@@ *@G@@@]* . THQL )@@G@@IS PROCEDURE DEFAULTS A NEW FILE TO THE NEXT CYCLE OF THE *@G@@@]QM )@@G@@* . STANDARD NAME BY DOING THE APPROPRIATE ASG AND USE *QN )@@G@@@G@@@]* . QO )@@G@@ *@G@@@]*DEFINE DEFAULTFILE . QP )@@G@@ *@B@#@]#ASG,CPR OLD$[#1](+1).,///300 . @B@@@##ASG,CQQ )@@G@@R OLD$[#1](+1).,///300 . @B@@@]#USE NEW$[#1].,OLD$[#1QR )@@G@@](+1). . @G@@@]*END . OF PROCEDURE TO DEFINE DEFAULT FILE ASSIGNMENTSQS )@@G@@ *@G@@@]* . QT )@@G@@ *@G@@@]* . **************************************QU )@@G@@******************************@[@@@]* . @G@@@]* . ********************QV )@@G@@************************************************@G@@@]* . QW )@@G@@ *@G@@@]* .THIS PROCQX )@@G@@EDURE ASSIGNS THE APPROPRIATE OUTPUT /SKEL/RELLIB/BASYMB/ *@G@@@]* . QY )@@G@@ *@G@@@]QZ )@@G@@*DEFINE ASSIGNEW . ARG IS /SKEL/RELLIB/BASYMB/ *RA )@@G@@@G@@@]* . RB )@@G@@ *@G@@@]*IF [NEW]>0 . ARE ANY ASSIGN CDS PRESENT ...... RC )@@G@@ *@G@@@]*IF COLUMN SEARCH FROM NEW FOR [#1] . YES, SCAN ... RD )@@G@@ : *@G@@@]*EDIT ON & RE )@@G@@ : : *@]@#@]#ASG,CPR & @]@@@##ASG,CR & @G@@@]*PROCERF )@@G@@SS FILESPEC NEW CARD 4 . PUT FILENAME IN : : *@ @@@]RG )@@G@@.,///300 . UPDATED [#1] FILE @G@@@]*EDIT OFF . FLUSH OUT ASG CARD RH )@@G@@ : : *@G@@@]*EDIT ON & . START NEW CARD RI )@@G@@ : : *@#@@@]#USE NEW$[#1].,& @G@@@]RJ )@@G@@*PROCESS FILESPEC NEW CARD 4 : : *RK )@@G@@@G@@@]*EDIT OFF . FLUSH OUT @USE CARD : : RL )@@G@@ *@G@@@]*ELSE . IF NO CARD FOR THIS FILE .....: : RM )@@G@@ *@G@@@]*PROCESS DEFAULTFILE [#1] . DEFAULT IT : RN )@@G@@ : *@G@@@]*END . OF PROCESSING OF 'NEW' FILE CARD ...RO )@@G@@..: : *@G@@@]*ELSE . IF NO 'NEW' CARD IS PRESENT-- RP )@@G@@ .....: *@G@@@]*PROCESS DEFAULTFILE [#1] . DEFAULT RQ )@@G@@THIS FILE : *@G@@@]*END . OF TEST ON WHETHER CARDRR )@@G@@ EXISTS .....: *@G@@@]* . RS )@@G@@ *@G@@@]*END . OF DEFINITIRT )@@G@@ON OF PROC TO ASSIGN NEW FILES *@G@@@]* . RU )@@G@@ *@G@@@]* . **RV )@@G@@******************************************************************@[@@@]RW )@@G@@* . @[@@@]* . @G@@@]* . ********************************************RX )@@G@@************************@G@@@]* . RY )@@G@@ *@G@@@]* . THIS PROCEDURE GENERATES HEADINGRZ )@@G@@ CARDS, USING TEXT FROM THE SGS (IF*@G@@@]* . IT EXISTS), OR ELEMENT/VERSA )@@G@@SION NAMES. *@G@@@]* . SB )@@G@@ *@G@@@]* . SC )@@G@@ *@G@@@]*DEFINE HEADSD )@@G@@ING *@G@@@]*EDIT SE )@@G@@ON & *@G@@@]SF )@@G@@* . PUT OUT START OF CARD AND ELEMENT NAME *SG )@@G@@@ @@@]#HDG,P **** [[#1],CARD,1,1]& @G@@@]*IF [[#1],CARD,1]>1 . IS THERESH )@@G@@ A VERSION? ........... *@G@@@]* . YES-- PUT IT ON THE SI )@@G@@CARD : *@#@@@]/[[#1],CARD,1,2]& SJ )@@G@@@G@@@]*END ..........: SK )@@G@@ *@G@@@]* . GENERATE TRAILER AFTER NAME/VERSION SL )@@G@@ *@]@@@] **** & @G@@@]*IF [[#1],CARD]>3 . DOES SGS HAVE TESM )@@G@@XT FOR HEADER?...... *@G@@@]*INCREMENT K FROM 4 TO [[#1],CSN )@@G@@ARD] . SCAN IT ...... : *@G@@@]* . PUT IN NEXT COMMENT SO )@@G@@WORD FROM SGS : : *@#@@@][[#1],CARD,K,1] & SP )@@G@@@G@@@]*LOOP . GET NEXT WORD OF TEXT ..........: : SQ )@@G@@ *@G@@@]*END . WHEN NO MORE TO PUT ON THE HDG CARD-- .....: SR )@@G@@ *@G@@@]*EDIT OFF . FLUSH IT TO THE OUTPUT RUNSTREAM SS )@@G@@ *@G@@@]*END . END OF PROCEDURE TO GENERATE @HDGST )@@G@@ CARDS *@G@@@]* . **************************************SU )@@G@@******************************@[@@@]* . @[@@@]* . @G@@@]* . ********SV )@@G@@************************************************************@G@@@]* . SW )@@G@@ *@G@@@]SX )@@G@@* . THIS PROCEDURE MAKES PROCESSOR CALL CARDS. ITS ARGUMENTS ARE THE *SY )@@G@@@G@@@]* . SOURCE INPUT AND RELOCATABLE OUTPUT FILE NAMES SZ )@@G@@ *@G@@@]* . TA )@@G@@ *@G@@@]*DEFINE PROCESSORCALL TB )@@G@@ *@G@@@]*EDIT ON & TC )@@G@@ *@G@@@]* . MAKE FIRST PART OF THE PROCESSOR CALL TD )@@G@@CARD *@C@@@]*IF [DEMAND]>0 . DEMAND RUNS GET S-OTE )@@G@@PTION ONLY @B@@@]#[[#1],CARD,2,1],S [#2].[[#1],CARD,1,1]& @A@@@]*ELSE TF )@@G@@. OTHERWISE, USE STANDARD OPTS@E@@@]#[[#1],CARD,2,1],[[#1],CARD,2,2] [#TG )@@G@@2].[[#1],CARD,1,1]& @ @@@]*END . OF TEST FOR OPTIONS @G@@@]*IF [[TH )@@G@@#1],CARD,1]>1 . IF VERSION-- ...... *@G@@@]TI )@@G@@* . THEN PUT SPEC1 VERSION ON CARD : *TJ )@@G@@@#@@@]/[[#1],CARD,1,2]& @G@@@]*END . OF INSERTION OF VERSION FOR SPEC1 TK )@@G@@ .....: *@G@@@]*IF [[#1],CARD,1]>2 . SPEC2 EXPLICITL )@@G@@T? ...... *@^@@@],[#3].[[#1],CARD,1,3]& @G@@@]TM )@@G@@*IF [[#1],CARD,1]>3 . DOES SPEC2 HAVE VERSION? ...... : *TN )@@G@@@#@@@]/[[#1],CARD,1,4]& @G@@@]*END . INSERTION OF SPEC2 VERSION TO )@@G@@ .....: : *@G@@@]*END . TEST FOR EXPLICIT SPEC2 TP )@@G@@ .....: *@G@@@]* . NOW INSERT LAST SPEC (2 ORTQ )@@G@@ 3), WHICH IS ALWAYS SAME AS 1 *@^@@@],[#3].[[#1],CARD,1,1]& TR )@@G@@@G@@@]*IF [[#1],CARD,1]>1 . DOES SPEC HAVE VERS? ......TS )@@G@@ *@#@@@]/[[#1],CARD,1,2]& @G@@@]*END . TEST ON VERS FOR LAST SPEC TT )@@G@@ .....: *@G@@@]*EDIT OFF . SEND CARD TO OUTU )@@G@@TPUT RUNSTREAM *@G@@@]*END . AND RETURTV )@@G@@N TO CALLER *@G@@@]* . TW )@@G@@ *@G@@@]* . ********TX )@@G@@************************************************************@[@@@]* . TY )@@G@@@[@@@]* . @G@@@]* . **************************************************TZ )@@G@@******************@G@@@]* . UA )@@G@@ *@G@@@]* . THIS PROC PRODUCES HDG'S AND PROCESSORUB )@@G@@ CALLS FOR [[#1],CARD] *@G@@@]* . [#2] IS SOURCE FILE FOR LANGUAGEUC )@@G@@ ELEMENTS, [#3] FOR ALL OTHERS *@G@@@]* . UD )@@G@@ *@G@@@]*DEFINE ELEMENT . UE )@@G@@ *@G@@@]* . UF )@@G@@ *@G@@@]*PROCESS HEAUG )@@G@@DING [#1] . *@G@@@]*IF [[UH )@@G@@#1],CARD,2,1]=MAP . WATCH OUT FOR MAPS *@G@@@]UI )@@G@@*END . OF CHECK FOR MAP ELEMENTS *UJ )@@G@@@G@@@]*IF ROW SEARCH FROM LANGUAGE,1,1,1 FOR [[#1],CARD,2,1] . ..... UK )@@G@@ *@G@@@]*PROCESS PROCESSORCALL [#1] [#2] TPF$ . UL )@@G@@ : *@G@@@]*ELSE . IF NOT SOURCE LANGUAGE, TAKE S.I FROM ELSEWHERUM )@@G@@E ....: *@G@@@]*PROCESS PROCESSORCALL [#1] [#3] TPF$ . UN )@@G@@ : *@G@@@]*END . TEST ON ELEMENT TYPE UO )@@G@@ ....: *@G@@@]*END . DEFN OF PROCEDURE UP )@@G@@ *@G@@@]* . UQ )@@G@@ *@G@@@]* . ********************UR )@@G@@************************************************@[@@@]* . @G@@@]* . **US )@@G@@******************************************************************@G@@@]UT )@@G@@* . *UU )@@G@@@G@@@]* . THIS PROCEDURE PROCESSES THE CORRECTIONS IN THE TCF, MERGING PUV )@@G@@CF *@G@@@]* . AND TCF, AND GENERATING PROCESSOR CALL AND HEADING CARDSUW )@@G@@ *@G@@@]* . UX )@@G@@ *@G@@@]*DEFINE CORRECTIONS . UY )@@G@@ *@G@@@]*INCREMENT CARD TO [[#1]] . DO IN ORDER OFUZ )@@G@@ CANNED SGSSES ......*@G@@@]*IF [[#1],CARD,1,1] HAS TEMP CORRECTVA )@@G@@IONS . ...... :*@G@@@]*PROCESS ELEMENT [#1] TPF$ OLDVB )@@G@@$BASYMB . ASM IS TPF, PDP IS [#1] : :*@G@@@]*CORRECT [[#1],CARD,1,1]VC )@@G@@ . ...... : :*@G@@@]*END VD )@@G@@ . END OF CORRECTIONS .....: : :*@G@@@]*END . ENDVE )@@G@@ GENERATION OF I'TH UPDATE DECK .....: :*@G@@@]*LOOP VF )@@G@@ . END SCAN OF TCF .....:*@A@@@]VG )@@G@@#HDG,P . END OF CORRECTION DECKS @G@@@]*END . END DEFINITION OF PROVH )@@G@@C TO GENERATE CORRECTIONS *@G@@@]* . VI )@@G@@ *@G@@@]* . **************VJ )@@G@@******************************************************@[@@@]* . @[@@@]VK )@@G@@* . @G@@@]* . ********************************************************VL )@@G@@************@G@@@]* . VM )@@G@@ *@G@@@]*DEFINE CTLCARD . VN )@@G@@ *@G@@@]* . GENERATE CONTROL CARD FROM FIELD OF FOVO )@@G@@RM ,,... *@G@@@]*EDIT ON & VP )@@G@@ *@G@@@]*IF [TEST,I,J,1]=XQT . NORMAL VQ )@@G@@PROGRAM CALL? ..... *@[@@@]#XQT& @G@@@]*IF [TEST,I,VR )@@G@@J]>1 . ARE OPTIONS GIVEN? ..... : *@#@@@],[TESTVS )@@G@@,I,J,2]& @G@@@]*END . OF TEST FOR OPTIONS ...VT )@@G@@.: : *@G@@@]*IF [#1]=@ . IS FILE UNSPECIFIED? VU )@@G@@ ..... : *@#@@@] [TEST,I,J,3]& @G@@@]*ELSE . IF GIVEN, VV )@@G@@USE IT ..... : *@^@@@] [#1].[TEST,VW )@@G@@I,J,3]& @G@@@]*END . OF TEST FOR EXPLICIT FILENAME ...VX )@@G@@.: : *@G@@@]*ELSE . IF XQT NOT GIVEN, USE PROCESSOR CALL FORVY )@@G@@MAT ..... *@G@@@]*IF [#1]=@ . IS FILE UNSPECIFIED? VZ )@@G@@ .... : *@#@@@]#[TEST,I,J,1]& @G@@@]*ELSE . IF IWA )@@G@@T IS GIVEN, USE IT ...: : *@^@@@]#[#1].WB )@@G@@[TEST,I,J,1]& @G@@@]*END . OF TEST FOR FILE TO USE .WC )@@G@@..: : *@G@@@]*IF [TEST,I,J]>1 . ANY OPTIONS? WD )@@G@@ .... : *@#@@@],[TEST,I,J,2]& @G@@@]*END . OF CHWE )@@G@@ECK FOR OPTIONS ...: : *@G@@@]*IF [TWF )@@G@@EST,I,J]>2 . ANY SPECS? .... : *@#@@@]WG )@@G@@ [TEST,I,J,3] @G@@@]*IF [TEST,I,J]>3 . MORE THAN 1 SPEC? WH )@@G@@ .... : : *@G@@@]*INCREMENT K FROM 4 TO [TEST,I,ROW] . DO TWI )@@G@@HEM .... : : : *@#@@@],[TEST,I,J,K]& @G@@@]*LOOP . TO NWJ )@@G@@EXT SPEC ...: : : : *@G@@@]*END .WK )@@G@@ OF TEST FOR MORE THAN 1 SPEC ...: : : *@G@@@]WL )@@G@@*END . OF TEST FOR ANY SPECS AT ALL ...: : *WM )@@G@@@G@@@]*END . OF TEST FOR XQT OR PROCESSOR CALL FORMAT ....:WN )@@G@@ *@G@@@]*EDIT OFF . FLUSH CREATED CARD WO )@@G@@ *@G@@@]* . WP )@@G@@ *@G@@@]*END . OF PROCEDURE TO GENERATE CONTROL CARDS WQ )@@G@@ *@G@@@]* . WR )@@G@@ *@G@@@]* . ********************************WS )@@G@@************************************@[@@@]* . @G@@@]* . **************WT )@@G@@******************************************************@G@@@]* . WU )@@G@@ *@G@@@]*DEFINWV )@@G@@E EXECUTION . OF PROGRAM AT SGS [TEST,I] FROM FILE [#1] *@G@@@]WW )@@G@@* . *WX )@@G@@@G@@@]*INCREMENT J TO [TEST,I] . LOOP OVER SPECS WY )@@G@@ *@G@@@]*IF [*J]=1 . PROG UNDER TEST IS FIELD 1 WZ )@@G@@ ... *@G@@@]*PROCESS CTLCARD [#1] . SO CALL IT RIGHT AWAY XA )@@G@@ : *@G@@@]*ELSE . IF WE'RE NOT DOING THE 1ST FIELD XB )@@G@@ ..: *@G@@@]*IF [TEST,I,J,1]=DOWN . DOWNDATER CALL? XC )@@G@@ .... : *@G@@@]*ELSE . IFSO, BYPASS IN THIS PHASE XD )@@G@@ ...: : *@G@@@]*IF [TEST,I,J,1]=ADD . DATA TXE )@@G@@O @ADD? .... : : *@G@@@]*INCREMENT K FROM 2 TO [XF )@@G@@TEST,I,J] . YES .... : : : *@G@@@]*EDIT ON & XG )@@G@@ .. : : : : *@^@@@]#ADD,P [TESTXH )@@G@@,I,J,K]& @G@@@]*IF COLUMN SEARCH FROM BASE FOR [TEST,I,J,K] . .. :XI )@@G@@ : : : : *@G@@@]*IF [BASE,CARD,1]>1 . ..XJ )@@G@@ : : : : : : *@#@@@]/[BASE,CARD,1,2]& @G@@@]*END . OF VERSION XK )@@G@@TEST .: : : : : : : *@G@@@]*END . OF SGXL )@@G@@S SEARCH ..: : : : : : *@G@@@]*EDIT XM )@@G@@OFF . ADD CARD CREATED... ..: : : : : *@G@@@]XN )@@G@@*LOOP . TO NEXT EL TO ADD ...: : : : *XO )@@G@@@G@@@]*ELSE . IF NOT @ADD DATA ....: :XP )@@G@@ : *@G@@@]*IF [TEST,I,J,1]=DATA . IS IT INLINE DATA? .... XQ )@@G@@: : : *@G@@@]*INCREMENT K FROM 2 TO [TEST,I,J] . .... XR )@@G@@ : : : : *@G@@@]*CORRECT [TEST,I,J,K] . INSERT FROM TCF .... XS )@@G@@ : : : : : *@G@@@]*END . INSERTION OF INLINE DATA XT )@@G@@...: : : : : : *@G@@@]*LOOP . TO NEXT INLINE DATA DECK XU )@@G@@ ...: : : : : *@G@@@]*ELSE . IF NOT THE ABOVE, PROBXV )@@G@@ABLY @PMD. ...: : : : *@G@@@]*PROCESS CTLCARD @ . DO XW )@@G@@WHATEVER IT IS : : : : *@G@@@]*END . OF CHECK FOXX )@@G@@R INLINE DATA ...: : : : *@G@@@]*END . OF CHXY )@@G@@ECK FOR @ADD DATA ...: : : *@G@@@]*END .XZ )@@G@@ OF DOWNDATER BYPASS TEST ...: : *@G@@@]YA )@@G@@*END . OF TEST FOR SPEC 1 ..: *YB )@@G@@@G@@@]*LOOP . TO NEXT SPEC YC )@@G@@ *@G@@@]* . YD )@@G@@ *@G@@@]*END . OF PROCEDURE TO GENERATE A SINGLE EXECUTION YE )@@G@@ *@G@@@]* . YF )@@G@@ *@G@@@]* . **************************************YG )@@G@@******************************@[@@@]* . @G@@@]* . ********************YH )@@G@@************************************************@G@@@]* . YI )@@G@@ *@G@@@]*DEFINE TESTYJ )@@G@@RUNS . GENERATE TEST EXECUTIONS *@G@@@]*INCREYK )@@G@@MENT I TO [TEST] . DO OVER ALL TEST RUNS *@G@@@]YL )@@G@@*IF ROW SEARCH FROM TEST,I,2,1 FOR DOWN . *YM )@@G@@@C@@@]#DELETE,C NEW$OUT. . IN CASE LAST RUN FAILED @ @@@]#DELETE,C OLYN )@@G@@D$OUT. . DITTO @#@@@]#ASG,U NEW$OUT. @#@@@]#ASG,U OLD$OUT. @#@@@]YO )@@G@@#ASG,T DOWN$OUT. @^@@@]#BRKPT PRINT$/NEW$OUT @G@@@]*PROCESS EXECUTIONYP )@@G@@ TPF$ . EXECUTE NEW PROG *@^@@@]#BRKPT PRINYQ )@@G@@T$/OLD$OUT @G@@@]*PROCESS EXECUTION OLD$RELLIB . EXECUTE OLD PROG YR )@@G@@ *@#@@@]#BRKPT PRINT$ @A@@@]#HDG,P COMPARE NEW PROG YS )@@G@@WITH OLD @A@ @]#DOWN,P NEW$OUT.,OLD$OUT.,DOWN$OUT. @A@@@ #DOWN,P OLD$YT )@@G@@OUT.,NEW$OUT.,DOWN$OUT. @G@@@]*IF [TEST,I,FLD]>1 . PRINT ALL OUTPUT? YU )@@G@@ *@B@@@]#HDG,P TEST OUTPUT OF UPDATED PROGRAYV )@@G@@M @#@^@]#ED,PZD NEW$OUT. @#@@@^#ED,Z NEW$OUT. @]@@@]P 50000 YW )@@G@@@[@@@]#EOF @G@@@]*END . OF TEST ON PRINT OF ALL OUTPUT YX )@@G@@ *@E@@@]#FREE,I NEW$OUT. . RUN WAS OK, GET RID OF OUTPUTYY )@@G@@ PRINT FILE @#@@@]#FREE,I OLD$OUT. @G@@@]*ELSE . IF NO DOWNDATING SPECIYZ )@@G@@FIED- *@G@@@]*PROCESS EXECUTION TPF$ ZA )@@G@@. DO A SIMPLE EXECUTE *@G@@@]*END . OF TEST FORZB )@@G@@ DOWNDATING *@G@@@]*LOOP . TO NZC )@@G@@EXT REQUESTED TEST RUN *@G@@@]* . ZD )@@G@@ *@G@@@]ZE )@@G@@*END . OF PROC TO GENERATE TEST EXECUTIONS *ZF )@@G@@@G@@@]* . ZG )@@G@@ *@G@@@]* . ********************************************************ZH )@@G@@************@G@@@]* . **************************************************ZI )@@G@@******************@G@@@]* . ZJ )@@G@@ *@G@@@]* . THIS PROCEDURE MAPS AND ABS'S THE PROGZK )@@G@@RAM IN TPF$ *@G@@@]* . ZL )@@G@@ *@G@@@]*DEFINE COLLECTION . SGS: ZM )@@G@@ MAP IS [NAME], ETC. *@G@@@]*IF [MAP]>0 . SEE IF A ZN )@@G@@MAP CARD WAS SUPPLIED ...... *@G@@@]*INCREMENT I TO [MZO )@@G@@AP,1,2] . DO OVER MAP NAMES GIVEN .... : *@G@@@]*IF COLUMN SZP )@@G@@EARCH FROM BASE FOR [MAP,1,2,I] . : : *@B@@@]#PACK ZQ )@@G@@. BE SURE NOT TO CONFUSE THE MAPPER @C@@@]#PREP . WHICH SOMETIMES WANTS ZR )@@G@@TPF$ TO BE PREPPED@G@@@]*PROCESS ELEMENT BASE TPF$ TPF$ . ZS )@@G@@ : : *@G@@@]*END . OF SEARCH FOR SGS REQUESTED FOR THIZT )@@G@@S MAP : : *@G@@@]*LOOP . TO NEXT SPEC ON 'MAP IS' CARZU )@@G@@D .....: : *@G@@@]*ELSE . IF NO MAP SPECIFICALLYZV )@@G@@ REQUESTED .....: *@G@@@]*IF COLUMN SEARCH FROM BZW )@@G@@ASE,1,2,1 FOR MAP . DEFAULT .... : *@D@@@]* . SUCCESS, CLEANZX )@@G@@ UP TPF$ BEFORE GENERATING MAPS @A@@@]#PACK . GET RID OF ALL THE GARZY )@@G@@BAGE @C@@@]#PREP . AND PROTECT THE MAPPER AGAINST ITSELF @G@@@]*PROCEZZ )@@G@@SS ELEMENT BASE TPF$ TPF$ : : *@G@@@]AA )@@G@@*END . OF SEARCH FOR DEFAULT MAP ELEMENT .....: : *AB )@@G@@@G@@@]*END . OF CHECK FOR EXISTENCE OF EXPLICIT MAP REQUEST ...... AC )@@G@@ *@G@@@]*PROCESS TESTRUNS . IF EXECUTION WANTED, DO IT AD )@@G@@ *@E@@@]#DELETE,C OLD$ABSOLUTE. . IF ANY OLD FILE, GET RID OFAE )@@G@@ IT @G@@@]*PROCESS ASSIGNEW ABSOLUTE . GET SOMPLACE TO PUT ABSOLUTES AF )@@G@@ *@D@@@]#COPY,A TPF$.,NEW$ABSOLUTE. . SAVE NEWEST ABSOLUTES AG )@@G@@@G@@@]*END . DEF OF PROC USED TO GENERATE COLLECTIONS AH )@@G@@ *@G@@@]* . AI )@@G@@ *@G@@@]* . **************************************************AJ )@@G@@******************@[@@@]* . @[@@@]* . @G@@@]* . ********************AK )@@G@@************************************************@G@@@]* . AL )@@G@@ *@G@@@]* . THIS PROAM )@@G@@C SUPERVISES UPDATING OF BASE LEVEL SYMBOLICS *@G@@@]* . AN )@@G@@ *@G@@@]AO )@@G@@*DEFINE BASEUPDATE . *AP )@@G@@@ @@@]#HDG,P CLEAR BASELEVEL PCF @[@@@]#ERS .@#@@@]#COPY,P OLD$SKEL.AQ )@@G@@@A@@@]#ELT,LID PCF . CREATE EMPTY PCF@ @@@]#END . OF NEWLY EMPTIED AR )@@G@@PCF @G@@@]*PROCESS ASSIGNEW SKEL . GET NEW FILE AS )@@G@@ *@]@@@]#PACK . @A@@@]#COPY,P TPF$.,NEW$SKEL . CREATE ITAT )@@G@@@G@@@]* . NOW GENERATE CORRECTED SYMBOLICS AU )@@G@@ *@#@@@]#ERS . CLEAR TPF$ @D@@@]#COPY,P OLD$BASYMB. . GET BASE SYAV )@@G@@MBOLICS, OLD PROCS@G@@@]*INCREMENT CARD TO [BASE] . AW )@@G@@ ...... *@G@@@]*PROCESS ELEMENT BASE TPF$ TPF$ . AX )@@G@@ : *@G@@@]*CORRECT [BASE,CARD,1,1] . .AY )@@G@@..... : *@G@@@]*END . OF CORRECTIONS AZ )@@G@@ .....: : *@G@@@]*LOOP . TO NEXT SGS BA )@@G@@ .....: *@G@@@]*PROCESS COLLECTIOBB )@@G@@N . *@G@@@]*PROCESS ASSBC )@@G@@IGNEW BASYMB . *@D@@@]#HDG,PBD )@@G@@ MOVE UPDATED SYMBOLICS TO NEW BASELEVEL FILE @]@@@]#PACK . @C@A@]BE )@@G@@#COPY,S TPF$.,NEW$BASYMB. . SAVE ALL SYMBOLICS @C@@@A#COPY,SC TPF$.,NEWBF )@@G@@$BASYMB. . SAVE ALL SYMBOLICS@E@@@]#COPY,A TPF$.,NEW$BASYMB. . AND BASBG )@@G@@ELEVEL ABSOLUTES, TOO @G@@@]*PROCESS ASSIGNEW RELLIB . BH )@@G@@ *@F@@@]#COPY,R TPF$.,NEW$RELLIB. . BE SURBI )@@G@@E NEW RELLIB IS UP-TO-DATE @G@@@]#COPY,A TPF$.,NEW$RELLIB. . INCLUDIBJ )@@G@@NG THE LATEST ABSOLUTES *@G@@@]*PROCESS CLEANUP BASE . TAKE CBK )@@G@@ARE OF THE FILES *@G@@@]*END . OF BASELEVEL UPDABL )@@G@@TING *@G@@@]* . BM )@@G@@ *@G@@@]* . ********BN )@@G@@************************************************************@[@@@]* . BO )@@G@@@[@@@]* . @[@@@]* . @G@@@]* . **************************************BP )@@G@@******************************@G@@@]* . BQ )@@G@@ *@G@@@]* . THIS PROCEDURE COPIES UPDABR )@@G@@TED SYMBOLIC ELEMENTS WHICH HAD *@G@@@]* . CORRECTIONS TO THE FBS )@@G@@ILE SPECIFIED BY THE 2ND ARGUMENT. THE FIRST *@G@@@]* . ARG IS THE DECBT )@@G@@K TYPE (MAP,ELT,PDP, ETC. ) *@G@@@]* . BU )@@G@@ *@G@@@]*DEFINBV )@@G@@E TEMPCOPY *@G@@@]BW )@@G@@*INCREMENT N TO [BASE] . DO OVER ALL POSSIBLE DECKS ...... *BX )@@G@@@G@@@]*IF [BASE,N,1,1] HAS TEMP CORRECTIONS . ...... :BY )@@G@@ *@G@@@]*IF [BASE,N,2,1]=[#1] . CHECK DECK TYPE ...... BZ )@@G@@: : *@G@@@]*EDIT ON & . AND IF THIS IS IT, COPY CA )@@G@@ : : : *@ @A@]#COPY,S TPF$.[BASE,N,1,1]& @ @@@A#COPY,SC TPFCB )@@G@@$.[BASE,N,1,1]& @G@@@]*IF [BASE,N,1]>1 . CHECK FOR VERS NAME ..... CC )@@G@@ : : : *@#@@@]/[BASE,N,1,2]& @G@@@]*END . OF SPEC1 VECD )@@G@@RSION CHECK ....: : : : *@^@@@],[#2].[BASE,CE )@@G@@N,1,1]& @G@@@]*IF [BASE,N,1]>1 . VERS CHECK FOR SPEC 2 ..... CF )@@G@@ : : : *@#@@@]/[BASE,N,1,2]& @G@@@]*END . SPEC2 VERS CHECK CG )@@G@@ ....: : : : *@]@@@]*EDIT OFF . @G@@@]CH )@@G@@*END . OF TEST ON TYPE OF ELEMENT .....: : : *CI )@@G@@@G@@@]*END . OF TEST ON WHETHER DECK WAS CORRECTED .....: :CJ )@@G@@ *@G@@@]*LOOP . OVER ALL DECKS IN BASE LEVEL CK )@@G@@.....: *@G@@@]*END . DEFINITION OF PROC TO COPY NEW SYMBOLICS CL )@@G@@ *@G@@@]* . CM )@@G@@ *@G@@@]* .***************************************CN )@@G@@******************************@[@@@]* . @[@@@]* . @G@@@]* . ********CO )@@G@@************************************************************@G@@@]* . CP )@@G@@ *@G@@@]CQ )@@G@@* . THIS PROCEDURE GENERATES THE @ELT DECK TO MAKE A NEW PCF, WHICH *CR )@@G@@@G@@@]* . CONTAINS MERGED CORRECTIONS FROM THE OLD PCF AND CURRENT TCF CS )@@G@@ *@G@@@]* . CT )@@G@@ *@G@@@]*DEFINE PCFUPDATE . CU )@@G@@ *@G@@@]* . CV )@@G@@ *@A@@@]#HDG,P MERGE AND UPDATE PCF . @ @@@]CW )@@G@@#ERS . BE SURE TPF$ IS EMPTY @F@@@]#COPY,P OLD$SKEL. . GET FILE CX )@@G@@WITH SKELETON, SGSSES, ETC. @#@@@]#ELT,LID [#1].PCF@G@@@]*INCREMENT KCY )@@G@@ TO [BASE] . DO OVER ALL DECKS ...... *@G@@@]*IF [BCZ )@@G@@ASE,K,1,1] HAS CORRECTIONS . ...... : *@D@@@]DA )@@G@@"[BASE,K,1,1] . PERMANENT CORRECTIONS FOR [BASE,K,1,1]@G@@@]*CORRECT [BADB )@@G@@SE,K,1,1] . INSERT THEM HERE ..... : : *@G@@@]*END DC )@@G@@ . .....: : : *@G@@@]DD )@@G@@*END . .....: : *DE )@@G@@@G@@@]*LOOP . TO NEXT DECK WHICH HAS CORRECTIONS .....:DF )@@G@@ *@B@@@]#END . OF ELT INSERTION DECK FOR NEW PCF @G@@@]*PROCESS ASSDG )@@G@@IGNEW SKEL . SET UP ASG AND USE FOR NEW SKEL FILE *@[@@@]#PACK DH )@@G@@@C@@@]#COPY,P TPF$.,NEW$SKEL . SAVE NEW SKELETON FILE.@G@@@]* . DI )@@G@@ *@G@@@]* . NODJ )@@G@@W UPDATE CHANGED PROCS AND RB'S INTO RELLIB *@G@@@]DK )@@G@@* . *DL )@@G@@@A@@@]#ERS . CLEAR OUT THE SKELETON STUFF @F@@@]#COPY,P OLD$BASYMB. . GDM )@@G@@ET BASE SYMBOLICS (FOR UNCHANGED PROCS) @E@@@]#COPY,P OLD$RELLIB. . GEDN )@@G@@T CURRENT RB'S AND CHANGED PROCS @G@@@]*PROCESS CORRECTIONS BASE DO )@@G@@. ASM FROM BASE INTO TPF$ *@G@@@]*PROCESS COLLECTION DP )@@G@@ *@D@@@]#HDG,P MOVE UPDATEDQ )@@G@@D RELS, PROCS ELTS, MAPS TO LIBRARY @G@@@]*PROCESS ASSIGNEW RELLIB . GETDR )@@G@@ NEW FILE FOR LIBRARY *@D@@@]#COPY,A TPF$.,NEW$RELLDS )@@G@@IB. . SAVE LATEST ABSOLUTES @E@@@]#COPY,R TPF$.,NEW$RELLIB. . PUT LATEDT )@@G@@ST RB'S INTO NEW LIBRARY@G@A@]#COPY,S OLD$RELLIB.,NEW$RELLIB. . . GET PRDU )@@G@@OCS WITH PREVIOUS PERM CORS @G@@@A#COPY,SC OLD$RELLIB.,NEW$RELLIB. . .DV )@@G@@ GET PROCS WITH PREVIOUS PERM CORS @G@@@]* . NOW COPY SYMBOLICS WHOSE TDW )@@G@@EMP CORS ARE TO BECOME PERMANENT *@G@@@]*PROCESS TEMPCOPY PDP NEDX )@@G@@W$RELLIB . *@G@@@]*PROCESS TEMPCOPY DY )@@G@@ELT NEW$RELLIB . *@G@@@]*PROCESS TEMDZ )@@G@@PCOPY MAP NEW$RELLIB . *@G@@@]*PROCEEA )@@G@@SS CLEANUP PCF . *@G@@@]EB )@@G@@*END . OF PROCEDURE TO UPDATE PCF AND LIBRARY *EC )@@G@@@G@@@]* . ED )@@G@@ *@G@@@]* . ********************************************************EE )@@G@@************@[@@@]* . @[@@@]* . @G@@@]* . **************************EF )@@G@@******************************************@G@@@]* . EG )@@G@@ *@G@@@]* . THIS PROCEDUREEH )@@G@@, CALLED IF THIS IS AN UPDATE RUN, DETERMINES *@G@@@]* . WHAT KINEI )@@G@@D OF UPDATE TO DO (E.G. PCF, BASE SYMBOLICS), AND CALLS *@G@@@]* . THEJ )@@G@@E APPROPRIATE UPDATE ROUTINE FOR THAT TYPE OF RUN *@G@@@]EK )@@G@@* . *EL )@@G@@@G@@@]*DEFINE UPDATING . EM )@@G@@ *@G@@@]*IF ROW SEARCH FROM RUN FOR BASE . ...... EN )@@G@@ *@G@@@]*PROCESS BASEUPDATE . MAKE NEW BASE LEVEL : EO )@@G@@ *@G@@@]*ELSE . .....: EP )@@G@@ *@G@@@]*PROCESS PCFUPDATE TPF$ EQ )@@G@@ : *@G@@@]*END . ER )@@G@@ .....: *@G@@@]*END . OF DEFINITION OF PROC TES )@@G@@O DRIVE UPDATE RUNS *@G@@@]* . ET )@@G@@ *@G@@@]* . **************EU )@@G@@******************************************************@[@@@]* . @[@@@]EV )@@G@@* . @G@@@]* . ********************************************************EW )@@G@@************@G@@@]* . EX )@@G@@ *@G@@@]* . THIS PROC GENERATES RUNSTREAMS FOR LISTING REY )@@G@@UNS *@G@@@]* . SGS: RUN IS LISTING OF PCF/,BASE/,CORREZ )@@G@@ECTED *@G@@@]* . FA )@@G@@ *@G@@@]*DEFINE LISTINGRUN . FB )@@G@@ *@G@@@]* . FC )@@G@@ *@G@@@]*IF ROW SEARCH FROFD )@@G@@M RUN FOR PCF ...... *@^@@@]#HDG,P CURRFE )@@G@@ENT PCF @^@@@]#ELT,L OLD$SKEL.PCF @G@@@]*END . FF )@@G@@ .....: *@G@@@]*CLEAR BASECOPIED FG )@@G@@ . *@G@@@]*IF ROW SEARFH )@@G@@CH FROM RUN FOR BASE . ...... *@G@@@]#ERS .FI )@@G@@ BE SURE TPF$ IS EMPTY *@^@@@]FJ )@@G@@#COPY,P OLD$BASYMB. . @G@@@]*SET BASECOPIED . FK )@@G@@ : *@G@@@]*INCREMENT CARD TO [BASE] .FL )@@G@@ ...... : *@G@@@]*PROCESS ELEMENT BASE TPF$ TPFFM )@@G@@$ . : : *@G@@@]*LOOP . TO NEXT BASE SYMFN )@@G@@BOLIC DECK .....: : *@G@@@]*END . OF TEST FORFO )@@G@@ BASELEVEL LISTING .....: *@G@@@]*IF ROW SEARFP )@@G@@CH FROM RUN FOR CORRECTED ...... *@G@@@]*IF BAFQ )@@G@@SECOPIED IS CLEAR ...... : *@[@@@]FR )@@G@@#ERS @^@@@]#COPY,P OLD$BASYMB. @G@@@]*END FS )@@G@@ .....: : *@C@@@]#COPY,P OLD$RELLIB . GETFT )@@G@@ MOST RECENT PROCS, ELTS@G@@@]*INCREMENT CARD TO [BASE] . FU )@@G@@ ...... : *@G@@@]*IF [BASE,CARD,1,1] HAS CORRECTIONS FV )@@G@@ . ...... : : *@G@@@]*PROCESS ELEMENT BASE TPF$ OLDFW )@@G@@$BASYMB . : : : *@G@@@]*CORRECT [BASE,CARD,1,1]FX )@@G@@ . ...... : : : *@G@@@]*END . OF CORRECTIFY )@@G@@ONS . .....: : : : *@G@@@]*END . OF TEFZ )@@G@@ST FOR CORRECTIONS .....: : : *@G@@@]*LOOP GA )@@G@@. TO NEXT SGS IN BASE LEVEL .....: : *@G@@@]GB )@@G@@*PROCESS COLLECTION . : *GC )@@G@@@G@@@]*END . OF PROCESSING OF CORRECTED DECKS .....: GD )@@G@@ *@G@@@]*END . OF DEFN OF LISTING RUN GE )@@G@@ *@G@@@]* . GF )@@G@@ *@G@@@]* . ********************************************GG )@@G@@************************@[@@@]* . @G@@@]* . **************************GH )@@G@@******************************************@G@@@]* . THIS ROUTINE GENERATGI )@@G@@ES THE STREAM FOR DEBUG RUNS *@G@@@]* . GJ )@@G@@ *@G@@@]* . GK )@@G@@ *@G@@@]*DEFINGL )@@G@@E DEBUGRUN . *@G@@@]GM )@@G@@* . *GN )@@G@@@G@@@]* . MOVE SOURCE TO TPF$. FOR UPDATING--- GO )@@G@@ *@G@@@]*. GP )@@G@@ *@]@@@]#FREE TPF$. @^@@@]#ASG,T TPF$.,///3000 @C@@@]#COPY,GQ )@@G@@P OLD$BASYMB. . GET BASE SYMBOLICS @F@@@]#COPY,P OLD$RELLIB. GR )@@G@@ . GET CURRENT RB'S AND CHANGED PROCS @]@@@]#PACK . @]@@@]#PREP GS )@@G@@. @G@@@]*. GT )@@G@@ *@G@@@]*PROCESS CORRECTIONS BASE . GU )@@G@@ *@G@@@]*PROCESS COLLECTION . GV )@@G@@ *@G@@@]*END . GW )@@G@@ *@G@@@]* . GX )@@G@@ *@G@@@]* . **************************GY )@@G@@******************************************@[@@@]* . @[@@@]* . @G@@@]GZ )@@G@@* . ********************************************************************HA )@@G@@@G@@@]* . HB )@@G@@ *@G@@@]* . THIS PROCEDURE EXAMINES THE 'RUN IS' CARD AND SETS FLAGSHC )@@G@@ ACCORDING *@G@@@]* . TO THE FIELDS PRESENT ON IT. THE VALUES OF THE FLHD )@@G@@AG (RUNTYP) *@G@@@]* . HE )@@G@@ *@G@@@]* . HF )@@G@@ *@G@@@]*DEFINE RUNCARD . HG )@@G@@ *@G@@@]*IF [RUN]>0 . DOES A RUN CARDHH )@@G@@ EXIST? ...... *@G@@@]*IF ROW SEARCH FROM RUN,HI )@@G@@1,1,1 FOR UPDATE . YES ...... : *@G@@@]*PROCESS UPDATING HJ )@@G@@ . : : *@G@@@]*ELSE . IF HK )@@G@@NOT UPDATE, TRY ROLLOUT .....: : *@G@@@]*IF ROHL )@@G@@W SEARCH FROM RUN FOR ROLLOUT . ...... : : *@G@@@]HM )@@G@@*PROCESS ROLLOUT OLD . : : : *HN )@@G@@@G@@@]*ELSE . IF NOT ROLLOUT .....: : : HO )@@G@@ *@G@@@]*IF ROW SEARCH FROM RUN FOR LISTING . ... : : HP )@@G@@: *@G@@@]*PROCESS LISTINGRUN . : : HQ )@@G@@ : : *@G@@@]*ELSE . BUT IF NOT LISTING RUN .....: : HR )@@G@@ : : *@G@@@]*PROCESS DEBUGRUN . : HS )@@G@@ : : : *@G@@@]*END . TEST FOR LISTINGRUN .HT )@@G@@....: : : : *@G@@@]*END . TEST FOR ROLLOUT RUN HU )@@G@@ .....: : : *@G@@@]*END . HV )@@G@@ .....: : *@G@@@]*ELSE . IF NO RUNHW )@@G@@ CARD IS PRESENT .....: *@G@@@]*PROCESS DEBHX )@@G@@UGRUN . ASSUME DEBUG RUN : *@G@@@]*END HY )@@G@@ . .....: *@G@@@]HZ )@@G@@*END . END OF PROC TO SET RUN OPTIONS *IA )@@G@@@G@@@]* . IB )@@G@@ *@G@@@]* . ********************************************************IC )@@G@@************@[@@@]* . @[@@@]* . @A@@@]* . GENERATE INITIALIZATION CAID )@@G@@RDS @[@@@]* . @[@@@]* . @[@@@]* . @E@@@]*CLEAR ROLLTAPE . INDICAIE )@@G@@TE NO ROLLOUT TAPE YET ASSIGNED @D@@@]*CREATE SGS: LANGUAGE ASM FOR IF )@@G@@RALPH BASIC ALG COB @A@@@]*PROCESS RUNCARD . GO DO EVERYTHING @[@@@]IG )@@G@@* . ___T BASECOPIED *[S@@@*SDFF*@B@@@@*CBLOX . PERMANENT CORRECTIONSIH )@@G@@ FOR CBLOX @[@@@@-18,18@G@@@@. S2 OF DESCRIPTOR INDICATES ONE OF II )@@G@@THE FOLLOWING DATA MODES. @F@@@@. SOME OF THE MODE VALUES BELOIJ )@@G@@W ARE USED AS FLAGS AND DO NOT@G@@@@. APPEAR IN ACTUAL DATA IN THEIK )@@G@@ WORKSPACE. THE FLAGS AE USED AS @C@@@@. TABLE INDICES INTERNALIL )@@G@@ TO THE PROCESSOR.@[@@@@. @[@@@@-24,24@G@@@@ZMOIND EQU 5 IM )@@G@@ . STASH FLAG. INDICATES THAT THE RESULT @G@@@@ IN )@@G@@ . OF A FUNC IS INDEFINITE, I.E. IS INTEGER@G@@@@ IO )@@G@@ . WHICH MAY EXCEED 17 BITS (REQUIRING @G@@@@ IP )@@G@@ . CONVERSION OF PREVIOUSLY CALCULATED @E@@@@IQ )@@G@@ . RESULTS TO DFLOAT) . @[@@@@-26,27IR )@@G@@@G@@@@ZMODFI EQU 8 . FETCH FLAG. INDICATES THAT A DFLOAIS )@@G@@T @G@@@@ . OPERAND MUST BE CONVERTED TOIT )@@G@@ HALFINT (BY@G@@@@ . TAKING THE FLOOR) AS IIU )@@G@@T IS BEING FETCHED@G@@@@ZMOIDF EQU 5 . FETCH FLAG. INDIV )@@G@@ICATES THAT A HALFINT @G@@@@ . OPERAND ISIW )@@G@@ TO BE FLOATED AS IT IS BEING @G@@@@ . FETCIX )@@G@@HED. NOTE: WHEN ALL REFS IN THE @G@@@@ IY )@@G@@. PROCESSOR TO THE TAG 'ZMOINT' HAVE BEEN @G@@@@ IZ )@@G@@ . REMOVED, THE VALUE OF ZMOIDF WILL BE @C@@@@ JA )@@G@@ . CHANGED TO 9 @B@@@@*CONFIG . PERMANENT CORRECTIONS FOR JB )@@G@@CONFIG@[@@@@-5,9 @B@@@@*WSDEF . PERMANENT CORRECTIONS FOR WSDEF @[@@@@JC )@@G@@-213 @G@@@@/. TAGS USED TO REFERENCE INTO ADDRESS MAP. FOR A DETAILED JD )@@G@@EXPOSITION, @^@@@@. SEE ELEMENT ADRMAP/APL@#@@@@ DEF . @F@@@@JE )@@G@@MAXSUB EQU 63 . NAX NO OF SUBSCRS (I.E. MAX RANK) @G@@@@JF )@@G@@AMCLNK EQU WORDPT . LINK WD- LOADED INTO X6 TO COMPUTE SUBSCJG )@@G@@@D@@@@AMLINI EQUF AMCLNK,X8,H1 . INITIAL VALUE OF LINK @C@@@@AMLCURJH )@@G@@ EQUF AMCLNK,X8,H2 . CURRENT VALUE @G@@@@AMCOUN EQU AMCLNK+MAJI )@@G@@XSUB . JGD CNT OF ELEMENTS TO GET B4 CYCLING @G@@@@AMCINI EQUF AMCJJ )@@G@@OUN,X8,H1 . INITIAL CNT IS NO OF ELEMENTS LESS 1 @C@@@@AMCCUR EQUFJK )@@G@@ AMCOUN,X8,XH2 . CURRENT COUNT @G@@@@AMDATA EQU AMCOUN+MAXSUB JL )@@G@@. DATA PTR (SUBSCR IS EXPR)/VALUE (JVECT) @E@@@@AMDINC EQUF AMDATA,X8JM )@@G@@,H1 . INCREMENT FOR DATA FECTH @E@@@@AMDCUR EQUF AMDATA,X8,XH2 JN )@@G@@. CURRENT DATA POINTER/VALUE @G@@@@AMDWD2 EQU AMDATA+MAXSUB . ANOTJO )@@G@@HER WD FOR DATA VALS OF SUBSCRS @G@@@@AMDESC EQUF AMDWD2,X8,H1 JP )@@G@@. REL DESCR ADDR OF SUBSCR EXPR, IF ANY @G@@@@AMDINI EQUF AMDWD2,X8JQ )@@G@@,XH2 . INITIAL DATA POINTER/VALUE (MODIFIER) @C@@@@AMPARM EQU AMDJR )@@G@@WD2+MAXSUB . PARAMETER WORD @F@@@@AMWGHT EQUF AMPARM,X8,H1 . WEIGJS )@@G@@HT (MULTIPLIER) FOR THIS AXIS @G@@@@AMRANG EQUF AMPARM,X8,H2 . RANGJT )@@G@@E (I.E. AXIS LENGTH) PLUS 1 (0-ORIG)@B@@@@AMVWRD EQU AMPARM+MAXSUB JU )@@G@@. VALUE WORD@D@@@@AMFILL EQUF AMVWRD,X8,H1 . FILL FLAG (FOR OVERTAKE) JV )@@G@@@E@@@@AMVALU EQUF AMVWRD,X8,XH2 . CURRENT VALUE OF THIS SUBSCR @G@@@@JW )@@G@@. TAGS BELOW (ON X5) ARE USED WHEN MODIFYING THE MAP FOR A SPECIFIC FUNCJX )@@G@@@A@@@@OMLINI EQUF AMCLNK,X5,H1 . @A@@@@OMCINI EQUF AMCOUN,X5JY )@@G@@,H1 . @A@@@@OMDINC EQUF AMDATA,X5,H1 . @A@@@@OMDINI EQUFJZ )@@G@@ AMDWD2,X5,XH2 . @A@@@@OMDESC EQUF AMDWD2,X5,H1 . @A@@@@KA )@@G@@OMWGHT EQUF AMPARM,X5,H1 . @A@@@@OMRANG EQUF AMPARM,X5,H2 KB )@@G@@. @G@@@@. OTHER TAGS INTO ALLPURPOSE SCRATCH AREA USED WHILE ADDRESSKC )@@G@@ MAPPING @E@@@@AMSDIM EQU AMVWRD+MAXSUB . DIMVECT OF SELECTED SUKD )@@G@@BARRAY@F@@@@ABASE EQU AMSDIM+MAXSUB//2 . BASE OF ACCESS POLYNOMIKE )@@G@@AL @E@@@@AMAXIS EQU ABASE+1 . 0-ORIGIN OF SELECTED AXIS KF )@@G@@@G@@@@AMNSIG EQU AMAXIS+1 . NUM OF SIGNIFICANT (IE VARYING) SUKG )@@G@@BSCRS @F@@@@AMSRNK EQU AMNSIG+1 . RANK OF SUBARRAY BEING MAPPEKH )@@G@@D @F@@@@AMSLTH EQU AMSRNK+1 . LENGTH OF SUBARRAY BEING MAPKI )@@G@@PED @[@@@@. @D@@@@AMLAST EQU AMSLTH+1 . MARK END OF WORDKJ )@@G@@S USED@F@@@@AMNWDS EQU AMLAST-AMCLNK . NO WDS NEEDED TO HOLD MAP DAKK )@@G@@TA @#@@@@ PROC . @#@@@@AMTAGS* NAME . @#@@@@ END KL )@@G@@ . @B@@@@*ACCNTG . PERMANENT CORRECTIONS FOR ACCNTG@[@@@@-11,11@[@@@@KM )@@G@@-564 @F@@@@ TNZ ACENAB . IS ACCNT ELEMENT CURRENTLY OKN )@@G@@PEN? @F@@@@ J AC0510 . NO, CAN'T CLOSE SO ERROR EXIKO )@@G@@T @]@@@@-610,612 @[@@@@-625 @#@@@@ VARBLS . @F@@@@. CAUTKP )@@G@@ION, THIS FLAG TESTED AT EXIT, MUST ALWAYS BE AVAILABLE @B@@@@ACFLGWKQ )@@G@@* +0 . FLAG WD FOR ACCNT ELEMENT@F@@@@ACENAB EQUF ACFLGW,,S1 KR )@@G@@ . ENABLE TYPE, 1=READ, 2=WRITE @F@@@@ACCHFL EQUF ACFLGW,,H2 KS )@@G@@. CHANGE FLAG FOR ACTIVE RECORD @B@@@@*ADRMAP . PERMANENT CORRECTIONKT )@@G@@S FOR ADRMAP@[@@@@-1,7 @#@@@@ AXR$ . @[@@@@-11,16@E@@@@ KU )@@G@@ CBLOCK . DEFINE CONTROL BLOCK TAGS @[@@@@-53,65@E@@@@KV )@@G@@ AMTAGS . DEFINE TAGS INTO THE MAP @[@@@@-84,84KW )@@G@@@C@@@@PM0010 SX X11,PMPIKF . RAISE PICK FLAG @]@@@@-93,118 KX )@@G@@@C@@@@PM0020 SZ PMPIKF . LOWER PICK FLAG @[@@@@. @G@@@@KY )@@G@@. INITIALIZE ADDR MAP PARAMS FOR MORMAL ORDER ACCESS TO MAPPED DATUM KZ )@@G@@@[@@@@. @F@@@@PM0100 SA,H1 A5,PMDIDM . SAVE LENGTH IN DUMMY DLA )@@G@@IMVECT LOCN @F@@@@ TLE,U A4,2 . DOES DATUM HAVE ITS OWLB )@@G@@N DIMVECT? @F@@@@ LA,U A1,PMDIDM . NO, PRETEND DUMMY LOC LC )@@G@@IS DIMVECT @E@@@@ SAVER A0,MAPDAD,8 . SAVE DECODED ARG PARAMLD )@@G@@S @G@@@@ SZ OFXROT . LOWER ROTATION FLAG USED BY LE )@@G@@OFFSET RTNE @G@@@@ SA A6,RITDSC . ***** TEMP FOR GARBAGELF )@@G@@ COLLECTION*** @G@@@@ SA A4,AMSRNK . SET SELECTED SUBLG )@@G@@ARRAY RANK TO THIS ARRAY@F@@@@ SA A5,AMSLTH . DITTO LENGLH )@@G@@TH O F SELECTED SUBARRAY@E@@@@ SAVER X2,PMX2SV,2 X6,PMX6SV,3 . LI )@@G@@SAVE WORKREGS @E@@@@PM0110 JNZ A4,PM0200 . IF NON-SCALAR, WLJ )@@G@@E'RE DONE @E@@@@ LA,U A4,1 . ELSE FUDGE RANK TO VECLK )@@G@@TOR @F@@@@ JNE,U A3,ZMOHFI PM0200 . IF NOT HALFINT, WE'RE DLL )@@G@@ONE @G@@@@ LA,H2 A0,0,A0 . ELSE GET ACTUAL DATA VALUE FLM )@@G@@ROM DESCR @E@@@@ SA,H1 A0,PMDADM . PUT THAT IN A DUMMY LOLN )@@G@@C ALSO@G@@@@ LA,U A0,PMDADM . THEN FAKE DATA VAL ADR TO POLO )@@G@@INT TO DUMY @G@@@@ SA A0,MAPDAD . MAKE DUMMY LOCN NEW BALP )@@G@@SE OF ACCESS POLYN@[@@@@. @G@@@@. NOW LOOP OVER DIMVECT AND PLUG SUBLQ )@@G@@SCR COMPUTE PARAMS IN MAP ENTRIES @[@@@@. @G@@@@PM0200 SA A4,LR )@@G@@AMNSIG . POST NO OF SIGNIFICANT (VARYING) SUBSCRS@[@@@@-126 @F@@@@LS )@@G@@ LSSL A2,18 . ALIGN INITIAL LINK, CLEAR CURRENT @]@@@@LT )@@G@@-129,163 @F@@@@PM0210 JNGD R1,PM0220 . WHEN DIM SCAN DONE, GOLU )@@G@@ SET WEIGHTS@E@@@@ SA A2,AMCLNK,X8 . SET LINK WORD TO (+JVELV )@@G@@CT,0) @G@@@@ LMJ X6,0,X6 . GET LENGTH OF NEXT AXIS (DIMLW )@@G@@) TO A5 @G@@@@ ANU,U A5,1 . DECREMENT AXIS LENGTH LX )@@G@@GIVING JGD COUNT @G@@@@ LSSL A6,18 . ALIGN, CLEARING LY )@@G@@CURRENT COUNT FIELD (H2)@D@@@@ SA A6,AMCOUN,X8 . INITIALIZELZ )@@G@@ COUNT WORD @F@@@@ SA A13,AMDINC . SET INITIALI DATA WORDMA )@@G@@ INCR TO ONE@G@@@@ SA A14,AMDWD2,X8 . CLEAR DESCR, SET INIT MB )@@G@@DATA VAL TO ORIGIN@F@@@@ SA A5,AMRANG,*0 . SET LENGTH OF AXMC )@@G@@IS, BUMP POINTER @C@@@@ J PM0210 . GO DO NEXT AXIS MD )@@G@@@E@@@@. NOW BUILD WEIGHTS (FROM RIGHT TO LEFT SO WE CAM MULTIPLY) @D@@@@ME )@@G@@PM0220 LA A2,AMNSIG . RECOVER NO OF AXES @E@@@@ LA,UMF )@@G@@ A0,1 . INITIAL WEIGHT IS UNITY @E@@@@PM0230 JNGD A2,MG )@@G@@PM0240 . QUIT AFTER SETTING ALL AXES @E@@@@ SA A0,AMWGHTMH )@@G@@,A2-X8 . POST CURRENT WEIGHT @G@@@@ MSI A0,AMRANG,A2-X8MI )@@G@@ . FILD IN LENGTH GIVING NEXT WEIGHT @F@@@@ J PM0230 MJ )@@G@@ . GO SEE WHETHER WE'RE DONE YET @G@@@@PM0240 TE A0,MAPSIZMK )@@G@@ . FOR GOOD LUCK, CHECK RESULT OF SGHT CALC@F@@@@ ER ERRML )@@G@@$ . AND WIPE OUT IF ITS INCORRECT @[@@@@. @E@@@@. MAP MM )@@G@@INITIALIZED, SET GET/PUT LINKAGE FOR CALLING RTNES @[@@@@. @E@@@@MN )@@G@@PM0300 LA A0,MAPMOD . GET MODE OF DATUM IN MAP @D@@@@ MO )@@G@@ TNZ PMPIKF . IS PICK FLAG RAISED? @D@@@@ J PM0MP )@@G@@320 . NO, GO SET UP FOR PUT @C@@@@. PICK OPERATION (ALWAYS USES MQ )@@G@@RIGHTARG REGS) @F@@@@PM0310 LX X6,PIKTBL,A0 . GET PICK RTNE ADMR )@@G@@DR FOR THIS MODE @G@@@@ LA A15,AMSLTH . SET ELEMENT COUNMS )@@G@@T TO SUBARRAY LENGTH @C@@@@ LOADR X2,PMX2SV,2 . RESTORE PUMT )@@G@@TREGS @B@@@@ J PM0400 . AND QUIT @#@@@@. PUT OPERATMU )@@G@@ION @C@@@@PM0320 LX X2,PUTTBL,A0 . SETUP LINKAGET @G@@@@ MV )@@G@@ LA A13,AMSLTH . SET NO OF ELS TO LENGTH OF SUBARRAY @C@@@@MW )@@G@@ LOADR X6,PMX6SV,2 . RESTORE PIKREGS @[@@@@. @A@@@@PM0400MX )@@G@@ LX X8,PMX8SV . @A@@@@ LX X11,PMLINK . MY )@@G@@@A@@@@ J 1,X11 . @@@@@@@]@@@@-170,174 @A@@@@MZ )@@G@@ LX X8,PMX8SV . @A@@@@ J 0,X11 NA )@@G@@. @[@@@@. @#@@@@ VARBLS . @D@@@@PMDIDM RES 1 NB )@@G@@ . DUMMY DIM WORD (H1) @A@@@@PMLINK EQUF PMDIDM,,H2 . NC )@@G@@@D@@@@PMDADM RES 1 . DUMMY DATA WORD (H1) @B@@@@PMPIKFND )@@G@@ EQUF PMDADM,,H2 . PICK FLAG @A@@@@PMX2SV RES 2 NE )@@G@@. @A@@@@PMX6SV RES 3 . @A@@@@PMX8SV EQU PMXNF )@@G@@6SV+2 . @]@@@@-175,195 @[@@@@. @D@@@@. DECODED PARAMS ONG )@@G@@F OPERAND REPRESENTED BY THE MAP -- @[@@@@. @E@@@@MAPDAD* RES 8 NH )@@G@@ . ABSADR OF 1ST DATA ELEMENT @D@@@@MAPDMD* EQU MAPDAD+1 NI )@@G@@ . ABSADR OF DIM DATA @A@@@@MAPTYP* EQU MAPDAD+2 . TYPENJ )@@G@@@A@@@@MAPMOD* EQU MAPDAD+3 . MODE@A@@@@MAPRNK* EQU MAPDAD+4 NK )@@G@@ . RANK@D@@@@MAPSIZ* EQU MAPDAD+5 . SIZE (I.E. LENGTH) NL )@@G@@@C@@@@MAPDSC* EQU MAPDAD+6 . RELADR OF DSCR @D@@@@MAPDDS* EQU NM )@@G@@ MAPDAD+7 . RELADR OF DIM DESCR @]@@@@-210,210- @]@@@@/A0/A1NN )@@G@@/ @]@@@@-212,212- @#@@@@/VBASE /MAPDAD/ @]@@@@-218,218- @#@@@@NO )@@G@@/ZMOINT/ZMOIDF/ @]@@@@-253,253- @#@@@@/ZMOINT/ZMOIND/ @]@@@@-298,3NP )@@G@@01 @A@@@@AMPNTR EQUF AMDATA,X8 . @D@@@@OFFSET TZ OFXNQ )@@G@@ROT . IS ROTATION FLAG UP? @E@@@@ J ROTOFF NR )@@G@@. YES, GO TO SPECIAL ROUTINE @D@@@@ SA A1,OFLINK . NO, NS )@@G@@SAVE RETURN ADDR @G@@@@ SA A1,OFCARY . AND SET CARRY FONT )@@G@@RCING INC OF RIGHT AXIS @D@@@@ SAVER X6,OFXSAV,3 . SAVE REGS NU )@@G@@WE'LL USE @C@@@@. NOW SET UP FOR NORMAL CYCLING THRU THE MAP @G@@@@NV )@@G@@OF0020 LX X8,AMNSIG . SET LOOP CNT/POINTER FOR R-TO-L SCAN NW )@@G@@@]@@@@-302,302- @]@@@@/A0/A6/ @]@@@@-307,307- @]@@@@/A0/A6/ NX )@@G@@@]@@@@-330,330- @]@@@@/A0/A6/ @]@@@@-336,336- @#@@@@/PMXSAV/OFXSNY )@@G@@AV/ @[@@@@-337 @A@@@@ LA A0,A6 . @]@@@@-340,3NZ )@@G@@40 @A@@@@OF0900 LOADR X6,OFXSAV,3 . @F@@@@ SAVER X2,OA )@@G@@OFXSAV,6 . SAVE REGS TRASHED BY ERROR PRINTER@C@@@@ ERROR YINOB )@@G@@DEX . SIGNAL THE ERROR@D@@@@ LOADR X2,OFXSAV,6 . RESTOC )@@G@@ORE EXIT LINKAGE @]@@@@-341,341 @[@@@@-347 @A@@@@OFXSAV RES 6 OD )@@G@@ . @G@@@@OFXROT* RES 2 . X4,5 AT ROTATIONOE )@@G@@ PREFETCH. NOTE: 1ST WD @G@@@@ . ZERO/NON-ZOF )@@G@@ERO IS ALSO USED AS A FLAG @]@@@@-363,363- @]@@@@/DSL/DSA/ @]@@@@OG )@@G@@-366,457 @B@@@@*BEATNG . PERMANENT CORRECTIONS FOR BEATNG@[@@@@-1,7 OH )@@G@@@#@@@@ AXR$ . @[@@@@-11,11@[@@@@-13,19@E@@@@ AMTAGS OI )@@G@@ . DEFINE TAGS INTO ADDRESS MAP@[@@@@-20 @G@@@@/. GENERAL ROJ )@@G@@OUTINE TO INITIALIZE FOR MIXED FUNCTIONS WHOSE LEFTARG (IF @G@@@@. ANY)OK )@@G@@ IS AN ACCESS CONTROL ARRAY (E.G. TAKE, XPOSE, ROTATE) AND/OR @F@@@@OL )@@G@@. WHICH MAY SELECT AN AXIS, AND/OR WHOSE RITEARG MAY BE MAPPED @F@@@@OM )@@G@@. ARGUMENT IS FLAG WORD IN A1 INDICATING ACTION TO BE TAKEN:@G@@@@ON )@@G@@. S1,2 LEFTARG MODE,RANK. 0 TO BYPASS CHECKS OO )@@G@@@G@@@@. S3,4 RITEARG MODE,RANK. 0 TO BYPASS CHECKOP )@@G@@S @E@@@@. S5 CTL BITS 8 = PICK RIGHTARG UNDER MAP OQ )@@G@@@E@@@@. 4 = PICK RIGHTARG LINEARLY @F@@@@OR )@@G@@. 1 = PICK LEFTARG (ALWAYS LINEARLY) @G@@@@OS )@@G@@. S6 AXIS FLAG: 0,1,2 = LAST, SELECT, FIRST OT )@@G@@@[@@@@. @F@@@@. PICK REGS FOR LEFTARG (IF ANY) ARE GLOBALLY SAVED INOU )@@G@@ CASE THE OP@C@@@@. NEEDS TO MODIFY THE ADDRESS MAP WITH THEM @[@@@@OV )@@G@@. @#@@@@ INSTRS . @C@@@@PIKCTL* SX X11,PCLINK . SAVEOW )@@G@@ RETURN ADDR@D@@@@ SA A1,PCCTRL . AND CONTROL FLAGS OX )@@G@@@G@@@@ JEP,U A1,1*/6 PC0200 . IF NO LEFTARG, GO EXAMINE AXIS SELOY )@@G@@ECTION@A@@@@. INITIALIZE LEFTARG LINEAR FECTH @D@@@@PC0100 VERIFY PC0OZ )@@G@@900,,PC0910 . POP AND DECIDE IT @G@@@@ SA,H1 A5,PCLDIM PA )@@G@@. SAVE LENGTH AS A DUMMY DIN IN CASE VECT @F@@@@ TLE,U A4,2 PB )@@G@@ . DOES DATUM HAVE ITS OWN DIMVECT? @E@@@@ LA,U A1,PCLDIMPC )@@G@@ . NO, FAKE DIMVECT DATA ADDR @D@@@@ SAVER A0,LFTDAD,8 PD )@@G@@. POST ALL INFO WE HAVE @F@@@@ JZ A5,PC0120 . IF LENGTH PE )@@G@@ZERO, ALL MODES ARE GOOD@F@@@@ TZ PCMCHL . IS MODECHEPF )@@G@@CK ON LEFTARG REQUIRED? @E@@@@ TNE A3,PCMCHL . YES, SAME PG )@@G@@AS TABULATED? @F@@@@ J PC0120 . IF SAME OR NOCHEPH )@@G@@K, GO SET FETCH UP@G@@@@ JE,U A3,ZMOCHR PC0920 . MISMATCH ONPI )@@G@@ CHAR TYPE IS DOMAIN ERR@D@@@@. MODE CONVERSION REQUIRED WHILE FETCHING;PJ )@@G@@ SET FLAG @D@@@@PC0110 TNE,U A3,ZMODFL . IS VARIABLE DFLOAT? PK )@@G@@@F@@@@ LA,U A3,ZMODFI . YES, CONVERT DFLOAT TO HALFINT PL )@@G@@@D@@@@ TNE,U A3,ZMOHFI . IS VARIABLE HALFINT? @F@@@@ PM )@@G@@ LA,U A3,ZMOIDF . YES, CONVERT HALFINT TO DFLOAT @ @@@@. CHECPN )@@G@@K RANK, IF REQUIRED @F@@@@PC0120 TE,U A5,1 . IS IT LENGPO )@@G@@TH 1 (WHICH IS XTENDED) @E@@@@ TNZ PCRCHL . NO, IS RANPP )@@G@@K CHECK FLAG ON? @D@@@@ J PC0130 . IF EITHER, FORGEPQ )@@G@@T IT @F@@@@ TE A4,PCRCHL . ELSE IS OPERAND RANK EXACTLYPR )@@G@@ ? @D@@@@ J PC0930 . IF NOT, RANK ERROR @A@@@@PS )@@G@@. NOW SET UP FETCHREGS FOR LEFTARG @C@@@@PC0130 LMJ X11,PIKLFU PT )@@G@@. SET UP THE FETCH@A@@@@ J PC0999 . @[@@@@. PU )@@G@@@A@@@@. NOW CHECK FOR AN AXIS SELECTOR @[@@@@. @C@@@@PC0200 LA PV )@@G@@ A0,PCAFLG . GET THE FLAG @E@@@@ JNE,U A0,1 PC0300 PW )@@G@@. IF NONE, GO CHECK RITEARG @D@@@@ LMJ X11,CRDPOP . ELSEPX )@@G@@ POP AND CHECK IT @A@@@@ J PC0999 . @G@@@@ PY )@@G@@ JNZ A0,PC0920 . NON-INT IS DOMAIN AS THIS ISN'T LAMINATE@F@@@@PZ )@@G@@ SA A2,PCAVAL . SAVE 1-ORIGIN FOR SELECTEDA XIS @[@@@@QA )@@G@@. @ @@@@. SET UP FETCH OF RIGHTARG @[@@@@. @F@@@@PC0300 LA QB )@@G@@ A0,PCCTRL . GET INITIAL CONTROL BITS BACK @E@@@@ AND,QC )@@G@@U A0,12*/6 . EXAMINE RIGHTARG FETCH BITS @D@@@@ JZ A1,QD )@@G@@PC0400 . IF NONE ON, WE'RE DONE@F@@@@ LMJ X11,PIKMAP QE )@@G@@. ELSE INITIALIZE MAP, WEIGHTS, ETC.@A@@@@ J PC0999 QF )@@G@@. @D@@@@ LOADR A3,MAPMOD,3 . GET MODE, RANK, SIZE @E@@@@QG )@@G@@ LA A0,PCCTRL . THEN RECOVER CONTROL BITS @G@@@@ QH )@@G@@ JEP,U A0,4*/6 PC0320 . IF LINEAR FETCH BIT OFF, WE'RE DONE HERE@E@@@@QI )@@G@@ DL A0,MAPDAD . ELSE PICK UP THE DATA ADDR @D@@@@ QJ )@@G@@ TNZ A4 . IS RIGHTARG A SCALAR? @G@@@@ LA,U A4,QK )@@G@@1 . YES FUDGE VECT IN CASE ADRMAP ALTERED A0@E@@@@ LMJ QL )@@G@@ X11,PIKRIU . INITIALIZE LINEAR FETCHREGS @A@@@@ ER ERRQM )@@G@@$ . @E@@@@. CHECK RITEARG MODE, RANK, AND VALIDIDY OF ASIXQN )@@G@@ SELECTION @F@@@@PC0320 JZ A5,PC0330 . IF NULL ARRAY, ANY MODQO )@@G@@E IS OK @F@@@@ TZ PCMCHR . SHOULD RITEARG MODE BEQP )@@G@@ CHECKED? @D@@@@ TNE A3,PCMCHR . YES, IS IT CORRECT? QQ )@@G@@@D@@@@ J PC0330 . IF OK, GO CHECK RANK @D@@@@ QR )@@G@@ J PC0920 . ELSE DOMAIN ERROR @B@@@@PC0330 TE,U A5,QS )@@G@@1 . LENGTH 1 @E@@@@ TNZ PCRCHR . NO, DO WE QT )@@G@@CARE ABOUT RANK? @G@@@@ J PC0400 . IF UNIT LENGTH OQU )@@G@@R NO FLAG, SKIP RANK CHK@F@@@@ TE A4,PCRCHR . ELSE BE SUQV )@@G@@RE ITS EXACTLY RIGHT @D@@@@ J PC0930 . OR SIGNAL QW )@@G@@A RANK ERROR@F@@@@. SET 0-ORIGIN INDEX (I.E. INTO MAP) OF SELECTED AXIS,QX )@@G@@ IF ANY @E@@@@PC0400 LA A0,PCAFLG . GET AXIS FLAG INDICATOQY )@@G@@R @F@@@@ JZ A0,PC0420 . IF OFF, USE RANK (ALREADY INQZ )@@G@@ A5) @D@@@@ ANA,U A0,1 . ELSE DECREMENT FLAG @G@@@@RA )@@G@@ JNZ A0,PC0410 . IF NON-0, USE THE 1 WE JUST GENERATED RB )@@G@@@G@@@@ LA A0,PCAVAL . ELSE PICK UP THE VALUE WE UNSTACKERC )@@G@@D @G@@@@ JG A4,A0 PC0930 . IF TOO BIG, NO SUCH AXIS. RARD )@@G@@N K ERROR @D@@@@PC0410 LA A4,A0 . PUT AXIS IN RANK REG RE )@@G@@@B@@@@PC0420 TZ A4 . SCALAR? @D@@@@ ANA,U A4,RF )@@G@@1 . NO, FARBLE TO 0-ORIGIN@D@@@@ SA A4,AMAXIS RG )@@G@@. STASH WITH MAP PARAMS @[@@@@. @[@@@@. @E@@@@. FOR INNER/OUTER RH )@@G@@PRODS AND BASE/REP, CATENATE THE DIMS @[@@@@. @C@@@@PC0500 LA RI )@@G@@ A0,PCCTRL . GET CONTROL BITS@E@@@@ JEP,U A0,02000 PC0600RJ )@@G@@ . IF CAT BIT OFF, GET OUT@E@@@@ AND,U A0,04000 . ELSERK )@@G@@ ISOLATE INNER SKIP FLAG@B@@@@ SSL A1,11 . ALIGN IT RL )@@G@@@G@@@@ SA A1,PCISKP . AND SAVE FLAG AS 0 (OUTER) OR 1 (IRM )@@G@@NNER) @D@@@@ SAVER X4,PCFREG,2 . SAVE LEFTARG FETCHREGS@A@@@@RN )@@G@@. INITIALIZE DIM STASH, LEFTARG SCAN@F@@@@PC0510 LX X2,PUTARY+ZMOHFRO )@@G@@I . USE NORMAL HALFINT STASH RTNE@F@@@@ LX X3,(+1,AMSDIM) RP )@@G@@ . AND PUT RESULTS IN DIM AREA @E@@@@ LX X4,GLFTBL+ZMOHFRQ )@@G@@I . USE LEFTARG FETCH RTNE @D@@@@ LX X5,LFTDMD . TO FRR )@@G@@ETCH LEFTARG DIMS @A@@@@ LXI,U X5,1 . @F@@@@ RS )@@G@@ LA,U A4,1 . INITIALIZE RUNNING RESULT SIZE @E@@@@ RT )@@G@@ LA A3,LFTRNK . GET NO OF AXES TO BE SCANNED@F@@@@ TZ RU )@@G@@ A3 . IF ALREADY SCALAR, DON'T ADJUST IT@F@@@@ ANA RV )@@G@@ A3,PCISKP . LESS 1 IF INNER DIM GOES AWAY @F@@@@ SA RW )@@G@@ A3,AMSRNK . TEMP SAVE INITIAL RESULT RANK @^@@@@. SCAN LEFTARX )@@G@@RG DIMS - @D@@@@PC0520 JNGD A3,PC0530 . QUIT WHEN ALL DONE RY )@@G@@@C@@@@ LMJ X4,0,X4 . GET NEXT DIMVAL @E@@@@ MSI RZ )@@G@@ A4,A2 . FOLD INTO RUNNING LENGTH @E@@@@ LMJ X2,SA )@@G@@0,X2 . CATENATE ONTO RESULT DIMVECT@D@@@@ J PC0520 SB )@@G@@ . GO BACK FOR LAST DIM @D@@@@. IF BASE OR INNER, GET AND SAVE LASSC )@@G@@T (INTERIOR) DIM @F@@@@PC0530 TZ PCISKP . WAS INNER DIM ALSD )@@G@@READY CATENATED? @B@@@@ LMJ X4,0,X4 . NO, GET IT@G@@@@SE )@@G@@ SA A2,PCALFT . SAVE LEFT OPERAND INTERIOR AXIS LENGTH SF )@@G@@@F@@@@ SA A4,AMSLTH . SAVE TOTAL/REDUCED LEFTARG SIZE SG )@@G@@@A@@@@. CHECK RITEARG RANK, SET TOTAL RANK@F@@@@PC0540 LA A3,MAPRNKSH )@@G@@ . GET RITEARG RANK FROM MAP AREA @F@@@@ TZ A3 SI )@@G@@ . IF ALREADY SCALAR, DON'T ADJUST IT@G@@@@ ANA A3,PCISKPSJ )@@G@@ . LESS 1 IF INNER DIMS ARE TO BE REDUCED @F@@@@ AU A3,SK )@@G@@AMSRNK . PLUS POSSIBLY REDUCED LEFTARG RANK@D@@@@ TG,U A4,SL )@@G@@MAXSUB+1 . IS IT WITHIN RANGE? @C@@@@ J PC0930 SM )@@G@@. NO, RANK ERROR @E@@@@ SMA A4,AMSRNK . POST RESULT SUBASN )@@G@@RRAY RANK @C@@@@. INITIALIZE RIGHTARG DIM SCAN AND CATENATION @G@@@@SO )@@G@@PC0550 LA A0,(+1,0) . VALUES WILL BE STROBED OUT OF ADDR MAP SP )@@G@@@E@@@@ LA,U A4,1 . INITIALIZE RUNNING LENGTH @F@@@@SQ )@@G@@ TZ PCISKP . IS INNER DIM TO BE CATENATED? @D@@@@SR )@@G@@ LA A2,AMRANG,*A0-X8 . NO, PICK IT UP @F@@@@ SA SS )@@G@@ A2,PCARIT . SAVE INNER AXIS LENGTH OF RIGHTARG@C@@@@. NOW FOLD IST )@@G@@N REMAINING RITEARG DIMS (IF ANY) @D@@@@PC0560 JNGD A3,PC0570 SU )@@G@@. QUIT WHEN EXHAUSTED @F@@@@ LA A2,AMRANG,*A0-X8 . PICK SV )@@G@@UP NEXT AXIS FROM MAP @C@@@@ MSI A4,A2 . FOLD INTO SW )@@G@@LENGTH@E@@@@ LMJ X2,0,X2 . CATENATE ONTO RESULT DIM SX )@@G@@@E@@@@ J PC0560 . AND GO BACK FOR THE NEXT @D@@@@SY )@@G@@. PERFORM FINAL DIMENSION CLEANUP, SET EXIT PARAMETERS@E@@@@PC0570 LA SZ )@@G@@ A0,AMSLTH . GET LEFTARG REDUCED LENGTH @B@@@@ LA A1,TA )@@G@@A4 . AND RIGHT @F@@@@ LA A2,PCALFT . INTERIOR ATB )@@G@@XIS LENGTH OF LEFTARG @C@@@@ LA A3,PCARIT . DITTO FOR TC )@@G@@RIGHT @E@@@@ MSI A4,A0 . COMPUTE RESULT TOTAL LENGTH TD )@@G@@@D@@@@ SA A4,AMSLTH . AND POST SUBARRAY SIZE@E@@@@ TE )@@G@@ LOADR X4,PCFREG,2 . RECOVER LEFTARG FETCHREGS @[@@@@. @]@@@@TF )@@G@@. FINAL EXIT@[@@@@. @C@@@@PC0600 LX X11,PCLINK . GET RETURNTG )@@G@@ ADDR @A@@@@ J 1,X11 . @[@@@@. @#@@@@. ERROTH )@@G@@R EXITS @[@@@@. @A@@@@PC0900 ERROR YSYNTA,PC0999 . @A@@@@TI )@@G@@PC0910 ERROR YVALUE,PC0999 . @A@@@@PC0920 ERROR YDOMAI,PC0999 TJ )@@G@@. @A@@@@PC0930 ERROR YRANK,PC0999 . @[@@@@. @A@@@@PC0999TK )@@G@@ LX X11,PCLINK . @A@@@@ J 0,X11 . TL )@@G@@@[@@@@. @#@@@@ VARBLS . @E@@@@PCCTRL RES 1 TM )@@G@@. CONTROL WD (A1 AT ENTRY) @D@@@@PCMCHL EQUF PCCTRL,,S1 . LEFTTN )@@G@@ARG MODE CHECK @D@@@@PCRCHL EQUF PCCTRL,,S2 . LEFTARG RANK CHETO )@@G@@CK @D@@@@PCMCHR EQUF PCCTRL,,S3 . RITEARG MODE CHECK @D@@@@TP )@@G@@PCRCHR EQUF PCCTRL,,S4 . RITEARG RANK CHECK @B@@@@PCAFLG EQUFTQ )@@G@@ PCCTRL,,S6 . AXIS FLAG @E@@@@PCLDIM RES 1 . H1=DTR )@@G@@UMMY DIM FOR LEFTARG @A@@@@PCLINK EQUF PCLDIM,,H2 . @E@@@@TS )@@G@@PCRDIM RES 1 . H1=DUMMY DIM FOR RITEARG @A@@@@PCAVALTT )@@G@@ EQUF PCRDIM,,H2 . @E@@@@PCISKP EQUF $,,H1 . INTETU )@@G@@RIOR AXIS SKIP FLAG @A@@@@ RES 1 . @E@@@@TV )@@G@@PCALFT EQUF $,,H1 . LEFTARG INTERIOR AXIS LENGTH@E@@@@PCARITTW )@@G@@ EQUF $,,H2 . RITEARG INTERIOR AXIS LENGTH@A@@@@ RES TX )@@G@@ 1 . @F@@@@PCFREG RES 2 . TEMP SAVE TY )@@G@@OF LEFTARG FETCHREGS @[@@@@-24,26@A@@@@CRDPOP* SX X11,CDLINK TZ )@@G@@. @[@@@@-39,39@D@@@@ JNZ A1,CD0910 . IF TOO BIG, RANKUA )@@G@@ ERROR@[@@@@-58,58@[@@@@-72,93@#@@@@ OFF . @G@@@@/. ENTRIES TUB )@@G@@O MOVE MAP-TO-NORMAL OR VICE VERSA WHNE THE SUBARRAY DIMVECT@G@@@@. DOESUC )@@G@@ NOT YET EXISTS AND MUST BE CONSTRUCTED FROM AXIS LENGTHS IN MAP @[@@@@UD )@@G@@. @#@@@@ INSTRS . @D@@@@. THESE ENTRIES TO GET SPACE AND SETUE )@@G@@ PICKREGS ONLY -- @D@@@@BRNOMD* SX X11,BERFLG . RAISE RESERVE FLUF )@@G@@AG @D@@@@ SZ BDMNFL . LOSER M-TO-N FLAG @A@@@@UG )@@G@@ J BD0010 . @E@@@@BRMNOD* SX X11,BERFLG UH )@@G@@. RAISE SPACE RESERVE FLAG @C@@@@ SX X11,BDMNFL . AND UI )@@G@@M-TO-N FLAG @A@@@@ J BD0010 . @C@@@@. THESE ENTRUJ )@@G@@IES TO RESRVE SPACE AND COPY ALOS @D@@@@BENOMD* SZ BDMNFL UK )@@G@@. LOWER M-TO-N FLAG @E@@@@ J BD0005 . ANC GO CLEUL )@@G@@AR RESERVE FLAG @A@@@@. THIS ENTRY FOR MAPPED TO NORMAL @D@@@@BEMNODUM )@@G@@* SX X11,BDMNFL . RAISE M-TO-N FLAG @E@@@@BD0005 SZ BERUN )@@G@@FLG . CLEAR RESERVE-ONLY FLAG @[@@@@. @D@@@@BD0010 DL UO )@@G@@ A4,X2 . TEMP SAVE PUTREGS @E@@@@ LX,U X2,PUTARYUP )@@G@@+ZMOHFI . SET UP STASH LINKAGE @G@@@@ LX,U X3,AMSDIM UQ )@@G@@. SET TARGET ARRAY TO SUBARRAY DIMVECT @A@@@@ LXI,U X3,1 UR )@@G@@ . @D@@@@ LA A3,(+1,0) . SET FETCH POINTER US )@@G@@@F@@@@ LA,U A0,1 . INITIALIZE RESULT LENGTH TOTALIZERUT )@@G@@@G@@@@ LA A14,AMSRNK . AND DIMVECT LENGTH IS SUBARRAY RANUU )@@G@@K @E@@@@BD0020 JNGD A14,BD0030 . QUIT WHEN ALL AXES SCANNED UV )@@G@@@F@@@@ LA A2,AMRANG,*A3-X8 . GET AXIS LENGTH, BUMP POINTERUW )@@G@@@F@@@@ MSI A0,A2 . FOLD INTO TOTAL RESULT LENGTH UX )@@G@@@B@@@@ LMJ X2,0,X2 . STASH IT @A@@@@ J BD0UY )@@G@@020 . @E@@@@BD0030 DS A4,X2 . RESTORE ORIGINALUZ )@@G@@ STASHREGS @E@@@@ SA A0,AMSLTH . POST SUBARRAY TOTAL LEVA )@@G@@NGTH @D@@@@ TNZ BDMNFL . IS FLAT SET TO M-TO-N?@C@@@@VB )@@G@@ J BENORM . NO, GO DO N-TO-M@E@@@@ J BN0VC )@@G@@005 . YES, XFER TO M-TO-N ROUTINE @[@@@@. @#@@@@ VARBVD )@@G@@LS . @A@@@@BDMNFL EQUF $,,H1 . @F@@@@BERFLG EQUF $,,VE )@@G@@H2 . ON IF ONLY SPACE IS TO BE RESERVED@A@@@@ RES 1 VF )@@G@@ . @]@@@@-94,337 @G@@@@/. ROUTINE TO MOVE DATA FROM AVG )@@G@@ MAPPED AREA INTO A NORMAL ORDER ARRAY. @G@@@@. THIS ROUTINE ACQUIRES VH )@@G@@SPACE FOR THE NORMAL ORDER RESULT USING THE DATA@G@@@@. ASSOCIATED WITH VI )@@G@@THE MAP FOR MODE, AND SUBARRAY DATA (AMRLTH, ETC.) @[@@@@. @#@@@@VJ )@@G@@ INSTRS . @F@@@@BERNOR* SX X11,BERFLG . RAISE FLAG TO ONVK )@@G@@LY RESERVE SPACE @A@@@@ J BN0005 . @E@@@@BEMNORVL )@@G@@* SZ BERFLG . CLEAR RESERVE-ONLY FLAG @E@@@@. NOTE: DIMVVM )@@G@@ECT BUILDERS (ABOVE) ENTER AT THIS POINT -- @A@@@@BN0005 SX X11VN )@@G@@,BNLINK . @F@@@@ SZ BNRDSC . CLEAR FLAG, NO SVO )@@G@@PACE ALLOCAED YET @[@@@@. @D@@@@. BUILD DUMMY DESCR FROM MAP DATA ANVP )@@G@@D INITIALIZE STASH@[@@@@. @E@@@@BN0010 LA A0,MAPMOD . MODEVQ )@@G@@ OF DATA BEING MAPPED @C@@@@ SA,S2 A0,BNDUMY . TO DUMMY DVR )@@G@@ESCR @E@@@@ LA A0,AMSRNK . RANK OF SUBARRAY OF MAP VS )@@G@@@B@@@@ SA,S3 A0,BNDUMY . TO DESCR @D@@@@ JZ A0,VT )@@G@@BN0020 . IF SCALAR, WE'RE DONE @E@@@@ LA A1,AMSLTH VU )@@G@@. ELSE GET MAP SUBARRAY LENGTH@C@@@@ SA,H2 A1,BNDUMY . TO DVV )@@G@@UMMY DESCR @D@@@@ JE,U A0,1 BN0020 . IF VECTOR, WE'RE DONE VW )@@G@@@G@@@@ SA,H2 A0,BNDMVD . ELSE USE RANK AS DINVECT LENGTH, TVX )@@G@@OO @E@@@@ LA,U A0,AMSDIM . GET ADDR OF SUBARRAY DIMVECTVY )@@G@@@A@@@@ RELADR A0 . @G@@@@ SA A0,BNDMVDVZ )@@G@@+1 . PLUG INTO DATA PTR OF DIMVECT DESCR @D@@@@ LA,U A0,WA )@@G@@BNDMVD . ADDR OF DIMVECT DESCR @A@@@@ RELADR A0 WB )@@G@@. @F@@@@ SA,H1 A0,BNDUMY+1 . PLUG DESCR PTR INTO PRIMARY WC )@@G@@DESCR @E@@@@BN0020 LA,U A0,BNDUMY . ADDR OF DUMMY PRIMARY DESCR WD )@@G@@@F@@@@ LA A1,MAPMOD . SET MODE TO THAT OF MAPPED DATUM WE )@@G@@@G@@@@ LMJ X11,PUTANS . ACQUIRE SPACE AND SET NORMAL STASHWF )@@G@@REGS @A@@@@ J BN0910 . @E@@@@ TZ BERWG )@@G@@FLG . IS RESERVE ONLY FLAG UP? @F@@@@ J BN0210 WH )@@G@@ . YES, QUIT LEAIVNG DESCR ADDR IN A2@E@@@@ SA A2,BNRDSCWI )@@G@@ . STASH RELAD OF TARGET DESCR @[@@@@. @C@@@@. NOW MOVE FROM MAWJ )@@G@@PPED AREA TO NORMAL ORDER AREA@[@@@@. @G@@@@BN0100 LA A15,AMSLTWK )@@G@@H . INIT NO ELS TO MOVE AS SUBARRAY LENGTH @E@@@@ LX X6,WL )@@G@@MAPMOD . GET MODE OF MAPPED DATUM @E@@@@ LX X6,PIKTBLWM )@@G@@,X6 . SET UP ADDR OF PICK RTNE @D@@@@BN0110 JNGD A15,BN0200 WN )@@G@@. QUIT WHEN ALL MOVED @C@@@@ LMJ X6,0,X6 . FETCH UNDEWO )@@G@@R MAP @A@@@@ J BN0900 . @D@@@@ LMJ X2,WP )@@G@@0,X2 . STASH NORMAL ORDER @A@@@@ J BN0110 WQ )@@G@@. @[@@@@. @#@@@@. NORMAL EXIT @E@@@@BN0200 LA A6,BNRDSCWR )@@G@@ . GET RELADR OF RESULT DESCR @A@@@@BN0210 LX X11,BNLINK WS )@@G@@. @A@@@@ J 1,X11 . @[@@@@. @#@@@@. ERROWT )@@G@@R EXITS @[@@@@. @E@@@@BN0900 LA A6,BNRDSC . GET REL DEWU )@@G@@SCR PTR FOR RESULT@D@@@@ JZ A6,BN0910 . IF NONE, GET RIGWV )@@G@@HT OUT@E@@@@ LMJ X11,ERASET . ELSE GARBAGE COLLECT IT WW )@@G@@@A@@@@ ER ERR$ . @A@@@@BN0910 LX X11,BNLINWX )@@G@@K . @A@@@@ J 0,X11 . @[@@@@. @#@@@@WY )@@G@@ VARBLS . @A@@@@BNLINK EQUF $,,H1 . @A@@@@BNRDSCWZ )@@G@@ EQUF $,,H2 . @A@@@@ RES 1 . XA )@@G@@@F@@@@BNDUMY CBLOCK ZTPTMP,0,0,0 0 . DUMMY PRIMARY DESCR FOR RESULT XB )@@G@@@F@@@@BNDMVD CBLOCK ZTPTMP,ZMOHFI,ZRANKV,0 0 . DUMMY DIMVECT DESCR XC )@@G@@@]@@@@-338,338 @ @@@@/. MOVE NORMAL TO MAPPED ARRAY@G@@@@. THIS ROUTIXD )@@G@@NE IS NOT YET USED, HENCE NOT YET CODED. THE IMPLEMENTATION @G@@@@. OF DXE )@@G@@RAGALONG AND SELECTION ON THE LEFT WILL REQUIRE IT, HOWEVER, AND @F@@@@XF )@@G@@. ATH THAT TIME, THE NUCLEUS OF THIS ROUTINE CAN BE EXTRACTED FROM@F@@@@XG )@@G@@. EXISTING CODE IN ELEMENT SUBSCR/APL, WHICH CODE IS SO COMMENTED @[@@@@XH )@@G@@. @G@@@@BENORM* EQU 0 . ANYONE WHO TRIES TO GET HEREXI )@@G@@ WILL DIE @[@@@@. @[@@@@/. @]@@@@-339,473 @[@@@@. @B@@@@XJ )@@G@@*BUFMAN . PERMANENT CORRECTIONS FOR BUFMAN@[@@@@-10,10@[@@@@-90,90@D@@@@XK )@@G@@BF0100 LA A1,WSWDTH . GET CURRENT WIDTH @D@@@@ TLE,XL )@@G@@U A1,10 . IS THIS A FALSE ALARM?@E@@@@ ER ERR$ XM )@@G@@ . YES, WS HAS BEEN TRASHED @F@@@@ LA,U A1,AEOL XN )@@G@@. ITS REAL, GET AN END OF LINE FLAG @B@@@@*CMPOUN . PERMANENT CORRECTIONXO )@@G@@S FOR CMPOUN@[@@@@-1,5 @#@@@@ AXR$ . @[@@@@-8,15 @E@@@@ XP )@@G@@ CBLOCK . DEFINE CONTROL BLOCK TYPES @E@@@@ AMTAXQ )@@G@@GS . DEFINE TAGS INTO ADDRESS MAP@[@@@@-21,26@[@@@@-34,36XR )@@G@@@[@@@@-41,47@[@@@@-66,77@]@@@@-86,107 @]@@@@-133,136 @ @@@@DV0160XS )@@G@@ . FALL THRU HERE @[@@@@. @]@@@@-167,244 @A@@@@/. INNER PROXT )@@G@@DUCT AND BASE VALUE - @[@@@@. @ @@@@ INSTRS . XU )@@G@@@E@@@@BASVAL* LA,U A2,0 . TURN INNERPRODUCT FLAG OFF @G@@@@XV )@@G@@ J IP0005 . FUNCS ARE + AND H, PRESET BY INTERP XW )@@G@@@D@@@@INPROD* LA,U A2,1 . SET INNERPRODUCT FLAG @D@@@@IP0005XX )@@G@@ SA A2,IPIFLG . SAVE INNERPRODUCT FLAG@A@@@@ SX X11XY )@@G@@,IPLINK . @E@@@@ DS A4,IPLFTF . SAVE FLAGS FOR LXZ )@@G@@EFT FUNC @F@@@@ DS A0,IPRITF . AND ALSO RIGHT (NOTE BYA )@@G@@ACKWARDS) @F@@@@ LA A1,(+0,0,0,0,32+16+8+1,0) . GET FETYB )@@G@@CH CTRL BITS@G@@@@ LMJ X11,PIKCTL . INITIALIZE FETCH AND DYC )@@G@@IM CATENATION @A@@@@ J IP0999 . @F@@@@ YD )@@G@@ ANA,U A1,1 . DECREMENT RITE WEIGHT FOR JGD USE @E@@@@ YE )@@G@@ SA A1,IPRCOL . AND SAVE AS 'COLUMN' COUNTER@G@@@@ SA YF )@@G@@ A2,RAAXIL . TEMP SAVE LEFTARG INTERIOR AXIS LENGTH @G@@@@ YG )@@G@@ SZ AMAXIS . MARK LEFTMOST AS LEFTART SELECTED AXIS @E@@@@YH )@@G@@ LA A0,IPIFLG . GET PARITY REVERSAL FLAG @G@@@@ YI )@@G@@ LMJ X11,MAPBAK . MOVE SELECTED AXIS TO FAR RIGHT IN MAP @G@@@@YJ )@@G@@ LA A5,AMSLTH . RECOVER TOT SUBARRAY (RESULT) LENGTH YK )@@G@@@G@@@@ LA A0,AMAXIS . GET NEW POSN IN MAP OF SELECTED AXYL )@@G@@IS @E@@@@ LA A0,AMRANG,A0-X8 . THEN GET ITS LENGTH YM )@@G@@@[@@@@. @D@@@@. CHECK INTERIOR AXIS LENGTH MATCH, EXTENSION, ETC. YN )@@G@@@[@@@@. @F@@@@IP0100 LA,U A2,ZMOHFI . FORCE MODE IN CASE RESYO )@@G@@ULT IS NULL @F@@@@ JZ A5,IP0250 . AND IF ITS NULL, GO ALYP )@@G@@LOCATE SPACE@E@@@@ SZ IPLXTF . CLEAR LEFTARG EXTENSIOYQ )@@G@@N FLAG@G@@@@ LA A1,RAAXIL . GET LEFTARG LENGTH (RIGHT ISYR )@@G@@ IN A0) @F@@@@IP0110 JE A1,A0 IP0200 . IF BOTH LENGTHS EQUAL,YS )@@G@@ GO SET FUNX@F@@@@ JE,U A0,1 IP0120 . IF RITE UNIT LENGTH, GYT )@@G@@O EXTEND IT @F@@@@ JNE,U A1,1 IP0900 . ELSE BE SURE LEFT IS OYU )@@G@@R DOMAIN ERR@G@@@@ SA A0,RAAXIL . SET REDUCED AXIS LENGTYV )@@G@@H TO THAT OF RIGHT@G@@@@ SA A0,IPLXTF . AND IF AXIS>0, RYW )@@G@@AISE EXTENSION FLAG @D@@@@ J IP0200 . AND GO SETYX )@@G@@ MODES, ETC @G@@@@IP0120 LA A0,AMAXIS . GET INDEX OF RIGHTARG YY )@@G@@EXTENDED AXIS @E@@@@ SA A1,AMRANG,A0-X8 . SET ERSATZ YZ )@@G@@AXIS LENGTH @G@@@@ ANA,U A1,1 . DECREMENT LEFT LENGTH ZA )@@G@@GIVING JGD COUNT @F@@@@ SA A1,AMCINI,A0-X8 . SET LOOP CNZB )@@G@@T ON THIS AXIS @F@@@@ SZ AMDINC,A0-X8 . CLEAR INCREMENT ZC )@@G@@PART OF J-VECTOR @C@@@@. SET UP MODES AND LINKS TO COMPUTE ROUTINES ZD )@@G@@@[@@@@. @G@@@@IP0200 LA,U A2,ZMOHFI . FORCE MODE IN CASE INNZE )@@G@@ER AXIS IS NULL @F@@@@ SZ IIMODC . CLEAR INNER LOOPZF )@@G@@ MODE CHANGE FLAG @F@@@@ TNZ RAAXIL . ARE INTERIOR AXEZG )@@G@@S SIGNIFICANT? @G@@@@ J IP0240 . NO, GO SET UP REZH )@@G@@DUCTION ON NULL AXIS @D@@@@ LA A0,LFTMOD . YES, GET LZI )@@G@@EFTARG MODE @D@@@@ LA A1,MAPMOD . AND RIGHTARG MODE ZJ )@@G@@@E@@@@ TE A0,A1 . ARE BOTH ARGS SAME TYPE @F@@@@ZK )@@G@@ J IP0205 . NO, GO INSURE NEITHER IS CHAR @G@@@@ZL )@@G@@ LA A2,A0 . YES, DUPE TO ESTABLISH INNER FETCH MODE ZM )@@G@@@D@@@@ TZ IPIFLG . IS THIS INNER PRODUCT?@F@@@@ ZN )@@G@@ J IP0220 . YES, GO DO USING ESTABLISHED MODES@E@@@@IP0205ZO )@@G@@ TE,U A0,ZMOCHR . NO, BASE. IS LEFTARG CHAR? @C@@@@ TNE,ZP )@@G@@U A1,ZMOCHR . IS RITEARG CHAR?@G@@@@ J IP0910 ZQ )@@G@@. IF (MIXED.OR.BASEVAL).AND.CHAR- DOM ERR @G@@@@. MODE MISMATCH AND NEITZR )@@G@@HER CHAR CAN ONLY BE DFLOAT,INT (AT PRESENT) @F@@@@IP0210 LA,U A2,ZS )@@G@@ZMODFL . SO FORCE FETCHMODE OF ENTIRETY @F@@@@ TE,U A0,ZT )@@G@@ZMODFL . IS THE LEFTARG ALREADY DFLOAT? @E@@@@ LA,U A0,ZU )@@G@@ZMOIDF . NO, CHANGE ITS FETCH FLAG @D@@@@ TE,U A1,ZMODFLZV )@@G@@ . IS THE RITARG DFLOAT? @E@@@@ LA,U A1,ZMOIDF . NO, ZW )@@G@@CHANGE ITS FETCH FLAG @C@@@@. SET FETCH LINKAGES DEPENDING ON MODES OFZX )@@G@@ ARGS @C@@@@IP0220 LX X4,GLFTBL,A0 . LEFTGET IS THIS @D@@@@ ZY )@@G@@ TNZ LFTRNK . UNLESS ITS A SCALAR @E@@@@ LX X4,ZZ )@@G@@GLFSCL,A0 . WHICH HAS SPECIAL FETCH RTNE@G@@@@ ANX X4,IPIFLGAA )@@G@@ . IF INNER PROD, SET FETCH TO RUN BKWD @G@@@@ SAVER X4,AB )@@G@@IPTRUX,2 . SAVE LINKAGE WHERE EXTENSION FINDS IT @F@@@@ TZ AC )@@G@@ IPLXTF . IS LEFTARG EXTENSION FLAG ON? @G@@@@ LX,UAD )@@G@@ X4,IPRPTL . YES, FORCE PICKUP TO USE REPEAT ROUTINE @E@@@@ AE )@@G@@ SX X4,IPLREG . AND SAVE LEFTARG FETCH LINK @F@@@@ LX AF )@@G@@ X6,PIKTBL,A1 . GET PIK RTNE FOR MAPPED RIGHTARG @F@@@@ SX AG )@@G@@ X6,IILPTR . SAVE WHERE INNER LOOP CAN GET IT @G@@@@ LX,UAH )@@G@@ X6,II0100 . THEN SET REDUCTION FETCH TO INNER LOOP @A@@@@. SET AI )@@G@@UP LINKAGE FOR RIGHTHAND DYAD @G@@@@IP0230 AU A2,IPRITF+1 . INPUAJ )@@G@@T MODE PLUS TBL BASE = ADDR OF ENTRY@G@@@@ LA A2,0,A3 AK )@@G@@. GET TABLE ENTRY FOR THIS OP AND INMODE @G@@@@ JN A2,IP0910AL )@@G@@ . DOMAIN IF ILLEGAL FOR GIVEN INPUT MODE @G@@@@ SA A2,AM )@@G@@IICLNK . ELSE STASH LINK TO COMPUTE RTNE (H2) @E@@@@ SSL AN )@@G@@ A2,36-6 . AND ALIGN OUTPUT MODE (S1) @G@@@@ JNE,U A2,AO )@@G@@ZMOIND IP0240 . IF OUTPUT MODE DEFINITE, GO REDUCE @F@@@@ SX AP )@@G@@ X11,IIMODC . IF INDEFINITE, RAISE MODE CHG FLAG@G@@@@ LA,UAQ )@@G@@ A2,ZMODFL . AND FORCE INPUT MODE FOR REDUCER DFLOAT @A@@@@. SET AR )@@G@@UP LINKAGE TO REDUCTION LOOP @E@@@@IP0240 DL A0,IPLFTF . GET AS )@@G@@FLAGS FOR LEFT DYAD @F@@@@ LMJ X11,REDINI . AND INITIAAT )@@G@@LIZE FOR THE REDUCTION @A@@@@ J IP0999 . OOPS@G@@@@AU )@@G@@ TNE,U A1,ZMOIDF . DOES REDUCER WANT ITS INPUT MODE CHANGEDAV )@@G@@@G@@@@ SX X11,IIMODC . YES, RAISE INNER LOOP MODE CHANGE AW )@@G@@FLAG @B@@@@. GET SPACE FOR RESULT, SET STASH LINKAGE @F@@@@IP0250 SA AX )@@G@@ A2,MAPMOD . PUT RESULT MODE WHERE ITS EXPECTED@G@@@@ LMJ AY )@@G@@ X11,BERNOR . RESERVE SPACE FOR MAP-TO-NORMAL MOVE @A@@@@ AZ )@@G@@ J IP0999 . @E@@@@ PUSH A2 . STACBA )@@G@@H RESULT DESCRIPTOR @C@@@@ TZ IPIFLG . INNER PRODBB )@@G@@UCT? @F@@@@ JGD X2,IP0300 . YES, SET BKWD STASH AND GO DBC )@@G@@O IT @[@@@@. @F@@@@. FOR BASE VALUE, SET PARAMS NEEDED FOR INNER LOBD )@@G@@OP COMPUTATION @[@@@@. @C@@@@IP0260 DSL A0,72 . GET BE )@@G@@SOME ZEROES @G@@@@ DS A0,RARTMP . AND CLEAR INITIAL REDUBF )@@G@@CTION PARTIAL @E@@@@ LA A0,IICLNK . GET LINK TO MULTBG )@@G@@IPLY RTNE @E@@@@ SA A0,BACLNK . AND SET UP SO BASE CALBH )@@G@@LS IT @F@@@@ LA,U A0,BA0100 . THEN GET ADDR OF SPECIAL BASBI )@@G@@E RTNE@F@@@@ SA A0,IICLNK . AND FORCE INNER LOOP TO CALLBJ )@@G@@ IT @F@@@@ SZ IIMODC . AND CLEAR SO INNER WON'T DO BK )@@G@@IT @E@@@@ . THEN FALL THRU AS IF INNER BL )@@G@@@[@@@@. @D@@@@. NOW PERFORM THE ACTUAL INNER PRODUCT OPERATION-- BM )@@G@@@[@@@@. @F@@@@IP0300 LA A13,AMSLTH . OUTER LOOP IS OVER ELSBN )@@G@@ IN RESULT @F@@@@ LA,U A14,0 . FORCE INITIALIZATION OBO )@@G@@F INNER LOOP@F@@@@IP0310 JNGD A13,IP0400 . EXIT WHEN ALL RESULT IBP )@@G@@S STASHED @G@@@@ JGD A14,IP0340 . IF MORE COLS IN RITEARBQ )@@G@@G, REPEAT LEFT ROW@E@@@@ LA A14,IPRCOL . ELSE RESET RITEABR )@@G@@RG COL CNTR @E@@@@ TZ IPLXTF . IS LEFTARG BEING EXTENBS )@@G@@DED? @E@@@@ J IP0330 . YES, GO DUMMY UP NEXT VALUE BT )@@G@@@G@@@@IP0320 SAVER X4,IPLREG,2 . NO, SAVE POINTERS TO CURRENT LEFTABU )@@G@@RG ROW@D@@@@ J IP0340 . AND GO REDUCE THE AXIS@E@@@@BV )@@G@@IP0330 LOADR X4,IPTRUX,2 . GET TRUE LEFTARG FETCHREGS @C@@@@ BW )@@G@@ LMJ X4,0,X4 . GET THE VALUE @G@@@@ DS A1,IPXVALBX )@@G@@ . STASH WHENCE EXTENSION FETCH GETS IT @E@@@@ SAVER X4,BY )@@G@@IPTRUX,2 . SAVE TRUE LEFTARG FETCHREGS @G@@@@IP0340 LOADR X4,IPLREGBZ )@@G@@,2 . SET FETCHREGS TO START CURRENT LEFT ROW @F@@@@ LMJ X11CA )@@G@@,RDAXIS . REDUCE ALONG THE INTERIOR AXES @B@@@@ J IP0CB )@@G@@999 . OOPS!! @C@@@@ LMJ X2,0,X2 . STASH IN RCC )@@G@@ESULT @E@@@@ J IP0310 . GO BACK FOR NEXT ELEMENT CD )@@G@@@#@@@@. NORMAL EXIT -- @A@@@@IP0400 LX X11,IPLINK . @A@@@@CE )@@G@@ J 1,X11 . @#@@@@. ERROR EXITS @A@@@@IP0900CF )@@G@@ ERROR YLENGT,IP0999 . @A@@@@IP0910 ERROR YDOMAI,IP0999 . CG )@@G@@@A@@@@IP0999 LX X11,IPLINK . @A@@@@ J 0,X11 CH )@@G@@ . @[@@@@. @F@@@@. REPETITIVE FAKE LEFTARG FETCH CODE USED CI )@@G@@WHEN EXTENDING LEFTARG--@[@@@@. @E@@@@IPRPTL DL A1,IPXVAL CJ )@@G@@. GET VALUE BEING EXTENDED @B@@@@ LMJ X4,0,X4 . AND CK )@@G@@EXIT @G@@@@ J IPRPTL . WHEN RECALLED, REPEAT THE SACL )@@G@@ME THING @[@@@@. @#@@@@ VARBLS . @G@@@@IPXVAL RES 2 CM )@@G@@ . TEMP SAVE VALUE OF EXTENDED LEFTARG @G@@@@IPTRUX RES CN )@@G@@ 2 . TRUE XREGS FOR EXTENDED LEFTARG FETCH @G@@@@IPRCOLCO )@@G@@ EQUF $,,H1 . INITIAL VAL OF RITEARG COLUMN COUNTER @D@@@@CP )@@G@@IPLXTF EQUF $,,H2 . LEFTARG EXTENSION FLAG@A@@@@ RES CQ )@@G@@ 1 . @G@@@@IPLREG RES 2 . LEFTARG FECR )@@G@@TCHREGS AT START OF ITS ROW @F@@@@IPLWRD RES 1 . NOTECS )@@G@@: H1 IS USED AS DUMMY DIM @A@@@@IPLINK EQUF IPLWRD,,H2 . CT )@@G@@@A@@@@IPRITF RES 2 . @A@@@@IPLFTF RES 2 CU )@@G@@ . @E@@@@IPIFLG EQUF $,,S1 . 1 IF INPROD, 0 IF BASECV )@@G@@VAL @A@@@@ RES 1 . @G@@@@/. INNER PRODUCT ICW )@@G@@NNER LOOP ROUTINE. INNER PRODUCT DOES A REDUCTION @G@@@@. ALONG THE CX )@@G@@INTERIOR AXES ON THE PAIRWISE COMBINATIONS OF ELEMENTS OF @G@@@@. THE CY )@@G@@LEFT AND RIGHT ARGS. THIS ROUTINE GETS THE ELEMENT PAIR AND DOES @G@@@@CZ )@@G@@. THE DYADIC FUNC TO COMBINE THEM. ITS RESULTS ARE PRESENTED TO THE DA )@@G@@@G@@@@. REDUCTION LOOP AS IF THEY WERE THE RIGHT ARGUMENTS OF NORMAL REDDB )@@G@@UCE. @[@@@@. @#@@@@ INSTRS . @C@@@@II0100 SAVER X6,IILINXDC )@@G@@,1 X11,IILINX+1,1 . @B@@@@ LOADR X6,IILPTR,1 X11,IICLNK,1 . DD )@@G@@@E@@@@ LMJ X6,0,X6 . GET NEXT (MAPPED) RITEARG @F@@@@DE )@@G@@ ER ERR$ . INDEX ERR IMPOSSIBLE FOR JVECTS @B@@@@DF )@@G@@ DS A1,IIRTMP . PROTECT IT@E@@@@ LMJ X4,0,X4 DG )@@G@@ . GET NEXT (LINEAR) LEFTARG @D@@@@ DL A4,IIRTMP DH )@@G@@. RECOVER RIGHTARG VALUE@D@@@@ LMJ X11,0,X11 . DO THE DYADI )@@G@@DIC FUNC @F@@@@ SX X11,ERRITH . IF DYAD ERRORS, SET OFDJ )@@G@@LO FLAG @F@@@@ JNZ A1,II0110 . IF ALREADY DFLOAT, DONDK )@@G@@'T CHECK @G@@@@ TNZ IIMODC . SHOULD MODE OF DYAD OUDL )@@G@@TPUT BE CHANGED? @D@@@@ J II0110 . NO, TAKE NORMAL DM )@@G@@EXIT @B@@@@ DFLOAT A0,A1 . YES, DO SO@G@@@@II0110 SAVEDN )@@G@@R X6,IILPTR,1 X11,IICLNK,1 . SAVE FETCH LINK, COMPUTE ADDR @C@@@@ DO )@@G@@ LOADR X6,IILINX,1 X11,IILINX+1,1 . @G@@@@ LMJ X6,1,X6 DP )@@G@@ . EXIT AS IF WE DID MAPPED RITEARG FETCH @F@@@@ J II0DQ )@@G@@100 . IF RECALLED, RESTART FROM THE TOP @#@@@@ VARBLS . DR )@@G@@@A@@@@IILINX RES 2 . @F@@@@IIMODC EQUF $,,H1 DS )@@G@@ . ON TO CHANGE MODE OF DYAD'S OUTPUT@F@@@@IICLNK EQUF $,,H2 DT )@@G@@ . LINK TO COMPUTE RTNE FOR THE DYAD @A@@@@ RES 1 DU )@@G@@ . @G@@@@IILPTR EQUF $,,H1 . POINTER TO RITEARG FETDV )@@G@@CH (IN MAP RTNES) @A@@@@ RES 1 . @A@@@@IIRTMPDW )@@G@@ RES 2 . @[@@@@. @G@@@@. COMPUTE ROUTINE USED BDX )@@G@@Y BASE/DECODE IN THE INNER PRODUCT INNER LOOP. @G@@@@. FOR X @B Y, REDUDY )@@G@@CTION PARTIALS ARE Z[K] $S Y[K]+X[K]#Z[K-1] . THIS @G@@@@. ROUTINE ISDZ )@@G@@ CALLED BY THE INNER LOOP WITH X[K] IN A1,2 AND Y[K] IN A3,4@G@@@@. IT MEA )@@G@@ODIFIES THE REDUCER'S PARTIAL TO X[K]#Z[K-1], AND RETURNS Y[K], @F@@@@EB )@@G@@. WHICH WILL BE ADDED TO THE MODIFIED PARTIAL BY THE REDUCER. @[@@@@EC )@@G@@. @#@@@@ INSTRS . @A@@@@BA0100 SX X11,BALINK .ED )@@G@@@F@@@@ LX X11,BACLNK . GET LINK TO MULTIPLY RTNE EE )@@G@@@C@@@@ DS A4,BARARG . SAVE Y[K] @G@@@@ DL EF )@@G@@ A4,RARTMP . GET Z[K-1] WHENCE REDUCER KEEPS IT @F@@@@ EG )@@G@@ LMJ X11,0,X11 . MULTIPLY FORMING X[K]#Z[K-1] @G@@@@ EH )@@G@@ SX X11,ERRITH . IF OFLO, RAISE DOMAIN ERR FLAG @F@@@@EI )@@G@@ DS A1,RARTMP . SET RED PARTIAL TO Y[K]#Z[K-1] @G@@@@EJ )@@G@@ DL A1,BARARG . RECOVER Y[K], SO REDUCER CAN ADD ITEK )@@G@@@A@@@@ LX X11,BALINK .@D@@@@ TZ ERRITH EL )@@G@@ . WAS AN ERROR DETECTED?@C@@@@ J 0,X11 . YES,EM )@@G@@ ERROR EXIT @E@@@@ LMJ X11,1,X11 . NO, GET NEXT PAIR OF AEN )@@G@@RGS @D@@@@ J BA0100 . AND GO COMPUTE ON THEM@#@@@@EO )@@G@@ VARBLS . @ @@@@BALINK EQUF $,,H1 . @ @@@@BACLNK EQUFEP )@@G@@ $,,H2 . @ @@@@ RES 1 . @ @@@@BARARG RES EQ )@@G@@ 2 . @]@@@@-247,376 @E@@@@REDUCE* LXI,U A0,0,X11 ER )@@G@@. PACK RETURN ADDR INTO FLAGS @E@@@@ DS A0,RDFLGS . AND ES )@@G@@SAVE THE WHOLE THING @G@@@@ LA,U A1,8*/6,A2 . SET CTL BIET )@@G@@TS FOR MAPPED PICKUP, SELECT @G@@@@ LMJ X11,PIKCTL . PREPEU )@@G@@ARE TO FETCH MAPPED WITH SELECTION @A@@@@ J RD0999 EV )@@G@@. @C@@@@ LA A15,MAPRNK . GET ARG RANK @E@@@@ EW )@@G@@ TZ A15 . IF SCALAR, DON'T CHANGE IT @D@@@@ ANA,EX )@@G@@U A15,1 . ELSE REDUCE IT BY 1 @D@@@@ SA A15,AMSRNEY )@@G@@K . AND POST SUBARRAY RANK@D@@@@ LA,U A0,1 . SET PARITEZ )@@G@@Y REVERSAL FLAG @G@@@@ LMJ X11,MAPBAK . FARBLE MAP. MOVEFA )@@G@@ SELECTED AXIS TO RITE. @A@@@@. INITIALIZE AXIS REDUCTION ROUTINE @C@@@@FB )@@G@@RD0030 DL A0,RDFLGS . GET FLAG DATA @E@@@@ LA A2,FC )@@G@@MAPMOD . AMD MODE OF INPUT DATUM @F@@@@ LMJ X11,REDINFD )@@G@@I . INITIALIZE TO SCAN REDUCED AXIS @A@@@@ J RD0999 FE )@@G@@ . @F@@@@ SA A2,MAPMOD . CRAM OUTPUT MODE INTO FF )@@G@@MAP PARAMS @F@@@@ LX X6,PIKTBL,A1 . SET UP FETCH RTNE FOR FG )@@G@@INPUT MODE @G@@@@ LMJ X11,BRMNOD . AND GET SPACE FOR RESUFH )@@G@@LT, INIT PUTREGS @A@@@@ J RD0999 . @D@@@@ FI )@@G@@ PUSH A2 . STACK RESULT DESCR @F@@@@ ANX,U X2,FJ )@@G@@1 . SET STASHREGS TO RUN BACKWARD @F@@@@ LA A13FK )@@G@@,AMSLTH . USE SUBARRAY LENGTH AS NO TO STORE@ @@@@. NOW DO THE ACTUAFL )@@G@@L REDUCTION @E@@@@RD0100 JNGD A13,RD0200 . QUIT WHEN ALL ARE STORFM )@@G@@ED @F@@@@ LMJ X11,RDAXIS . GET NEXT REDUCED VALUE TO A1FN )@@G@@,2 @A@@@@ J RD0999 . @C@@@@ LMJ X2,FO )@@G@@0,X2 . STASH RESULT @C@@@@ J RD0100 . AND FP )@@G@@CONTINUE @[@@@@. @A@@@@RD0200 LX X11,RDLINK . @C@@@@FQ )@@G@@ J 1,X11 . NORMAL EXIT @[@@@@. @A@@@@RD0999FR )@@G@@ LX X11,RDLINK . @B@@@@ J 0,X11 . ERROFS )@@G@@R EXIT@[@@@@. @#@@@@ VARBLS . @A@@@@RDFLGS RES 2 FT )@@G@@ . @A@@@@RDLINK EQUF RDFLGS,,H1 . @]@@@@-377,434 FU )@@G@@@]@@@@-437,508 @[@@@@-538 @G@@@@/. REDUCTION ALONG AN AXIS-- USED BYFV )@@G@@ BOTH REDUCE FUNC AND INNER PRODUCT @[@@@@. @G@@@@. INITIALIZATION EFW )@@G@@NTRY. A0=REDUCTION FLAGS FOR DYAD, A1=DYAD TABLE ADDR,@ @@@@. A2=MFX )@@G@@ODE OF ARGUMENT @E@@@@. EXIT WITH A1=OPERAND FETCH MODE, A2=RESULT (OUFY )@@G@@TPUT) MODE @[@@@@. @#@@@@ INSTRS . @A@@@@REDINI SX X11FZ )@@G@@,RALINK . @G@@@@ SZ RAFFLG . CLEAR FLAG TO FLGA )@@G@@OAT PARTIAL RESULTS @D@@@@ LA,U A4,0,A0 . ISOLATE REGB )@@G@@DUCTION BITS@F@@@@ LA,U A0,0,A1 . SET UP POINTER TO 2NDAGC )@@G@@RY TABLE @E@@@@ LA A1,A2 . AND REPLICATE INPUT MOGD )@@G@@E @G@@@@ LA A1,A2 . PRETEND INPUT AND OUTPUT MODGE )@@G@@ES ARE SAME @E@@@@ LA A3,AMAXIS . GET INDEX OF SELECTED GF )@@G@@AXIS @E@@@@ LA A3,AMRANG,A3-X8 . GET ITS LENGTH FROM MP GG )@@G@@@E@@@@ SA A3,RAAXIL . SAVE FOR USE AS LOOP COUNT @F@@@@GH )@@G@@ JE,U A3,1 RI0200 . IF UNIT LENGTH AXIS, WE'RE DONE @G@@@@GI )@@G@@ JZ A4,RI0900 . DOMAIN IF REDUCTION NOT ALLOWED FOR FUNCGJ )@@G@@@G@@@@ JNZ A3,RI0020 . IF NOT NULL, GO SET UP COMPUTE RTNGK )@@G@@E @A@@@@. FOR NULL REDUCTIONS, GET IEDNTITY @E@@@@RI0010 JEP,U A4,GL )@@G@@2 RI0900 . IF NO IDENTITY, DOMAIN ERR @E@@@@ DL A3,0,A0 GM )@@G@@ . ELSE GET IDENTITY FROM TABLE@D@@@@ DS A3,RAIDEN GN )@@G@@. POST FOR USE LATER @E@@@@ LA,U A2,ZMODFL . ASSUME RESGO )@@G@@ULT MODE EFLOAT @B@@@@ TNZ A3 . IS IT? @D@@@@GP )@@G@@ LA,U A2,ZMOHFI . NO, CHANGE TO HALFINT @C@@@@ J GQ )@@G@@ RI0200 . NORMAL EXIT @C@@@@. FOR NON-NULL, SET POINTERS TGR )@@G@@O COMPUTE RTNE @F@@@@RI0020 AU A1,A0 . GET TBL ADDR FORGS )@@G@@ THIS INPUT MODE @D@@@@ LA A2,0,A2 . GET THE TABLE ENGT )@@G@@TRY @G@@@@ JN A2,RI0900 . DOMAIN IF OP ILLEGAL FOR INPGU )@@G@@UT MODE @G@@@@ DSL A2,36-6 . OUTPUT MODE TO A2, COMGV )@@G@@PUTE ADDR TO A3 @F@@@@ TNE A1,A2 . INPUT AND OUTPUTGW )@@G@@ MODES THE SAME? @F@@@@ J RI0100 . YES, GO POST COMGX )@@G@@PUTE RTNE AND EXIT@D@@@@. OUTPUT AND INPUT MODES DIFFER, SET FLAGS ACCORGY )@@G@@DINGLY@G@@@@RI0030 JE,U A1,ZMOCHR RI0900 . COMAIN IF INPUT MODE CHGZ )@@G@@ARACTER @G@@@@ JNE,U A1,ZMOHFI RI0040 . IF INPUT MODE NOTHA )@@G@@ HFI, GO DO DBL @G@@@@. INPUT (I.E. ARGUMENT) MODE HALFINT, OP OUTPUT HB )@@G@@DOUBLE. CHANGE FETCH @F@@@@. FLAG SO ARG IS PICKED DOUBLE TO MATCH MOHC )@@G@@DE OF PARTIAL RESULT @A@@@@ LA,U A1,ZMOIDF . @F@@@@HD )@@G@@ LA A2,ZMODFL,A0 . GET TABLE ENTRY FOR DFLOAT INPUT @D@@@@HE )@@G@@ DSL A2,36-6 . ALIGN OUTPUT MODE @B@@@@ J HF )@@G@@ RI0100 . GO POST IT@G@@@@. INPUT MODE DFLOAT, OUTPUT HALFINT.HG )@@G@@ SET FLAG SO PARTIAL RESULTS ARE @G@@@@. FLOATED MAKING INPUT TO FUNCHH )@@G@@ RTNE DOUBLE FOR BOTH ARG AND PARTIAL @C@@@@RI0040 SX X11,RAFFLHI )@@G@@G . RAISE THE FLAG @A@@@@. SET ADDR OF COMPUTE RTNE, QUIT @D@@@@HJ )@@G@@RI0100 SSL A3,6 . LINE UP ADDR (H2) @E@@@@ SA HK )@@G@@ A3,RACLNK . SAVE POINTER TO COMPUTE RTNE@[@@@@. @C@@@@RI0200HL )@@G@@ LX X11,RALINK . GET RETURN ADDR @C@@@@ J 1,X11 HM )@@G@@ . NORMAL EXIT @[@@@@. @A@@@@RI0900 ERROR YDOMAI,RI0999 HN )@@G@@. @A@@@@RI0999 LX X11,RALINK . @A@@@@ J 0,XHO )@@G@@11 . @[@@@@. @G@@@@. MAIN REDUCTION LOOP -- REDUCES ALOHP )@@G@@NG THE SELECTED AXIS, RETURNING @F@@@@. REDUCED VALUE IN A1,2. EXPECHQ )@@G@@TS X6,X7 TO POINT TO FETCH RTNE FOR @A@@@@. ELEMENTS ALONG THE REDUCED AHR )@@G@@XIS. @[@@@@. @A@@@@RDAXIS SX X11,RALINK . @E@@@@ HS )@@G@@ LX X11,RACLNK . GET ADDR OF COMPUTE RTNE @F@@@@ LA HT )@@G@@ A15,RAAXIL . GET LENGTH OF AXIS TO BE REDUCED @[@@@@. @C@@@@HU )@@G@@RA0100 DL A1,RAIDEN . GET IDENTITY @E@@@@ JNGD A15HV )@@G@@,RA0120 . COUNT 1ST FETCH, OUT IF NULL@G@@@@ LMJ X6,0,X6 HW )@@G@@ . FETCH 1ST ELEMENT ON AXIS BEING REDUCED @G@@@@ ER ERRHX )@@G@@$ . INDEX ERRORS IMPOSSIBLE WHEN USING JVECT@B@@@@. . CHECK OFHY )@@G@@LO, GET ELS AFTER THE 1ST @B@@@@RA0110 TZ ERRITH . OFLOHZ )@@G@@? @C@@@@ J RA0900 . YES, DOMAIN ERR @D@@@@ IA )@@G@@ JNGD A15,RA0120 . COUNT NEXT EL, IF ANY @G@@@@ DS A1,IB )@@G@@RARTMP . PROTECT PARTIAL RESULT AGAINST FETCH @E@@@@ LMJ IC )@@G@@ X6,0,X6 . GET NEXT VAL ON THIS AXIS @F@@@@ ER ERRID )@@G@@$ . CAN'T HAVE INDEX ERR USING J-VECTS@F@@@@ DL A4,IE )@@G@@RARTMP . RECOVER PARTIAL RESULT AS RITEARG @D@@@@ LMJ X11IF )@@G@@,0,X11 . PERFORM DYADIC OP @C@@@@ J RA0900 IG )@@G@@. OOPS, DOMAIN ERR@G@@@@ JZ A15,RA0110 . IF THAT WAS THE IH )@@G@@LAST, GO CHECK OFLO @F@@@@ TNZ RAFFLG . IF NOT, SHII )@@G@@OULD PARTIAL BE FLOATED?@E@@@@ J RA0110 . NO, GO DO IJ )@@G@@NEXT ITERATION @B@@@@ DFLOAT A0,A1 . YES, DO SO@F@@@@IK )@@G@@ J RA0110 . GO CHECK OFLO, GET NEXT ELEMENT @A@@@@IL )@@G@@RA0120 LX X11,RALINK . @A@@@@ J 1,X11 IM )@@G@@. @[@@@@. @D@@@@RA0900 SZ ERRITH . MARK OVERFLOW SEIN )@@G@@RVICED@A@@@@ ERROR YDOMAI,RA0999 . @A@@@@RA0999 LX X11IO )@@G@@,RALINK . @A@@@@ J 0,X11 . @[@@@@. IP )@@G@@@#@@@@ VARBLS . @B@@@@RAIDEN RES 2 . IDENTITY IQ )@@G@@@E@@@@RARTMP RES 2 . TEMPSAVE OF PARTIAL RESULT @A@@@@IR )@@G@@RALINK EQUF $,,H1 . @F@@@@RACLNK EQUF $,,H2 IS )@@G@@. LINK TO COMPUTE ROUTINE FOR DYAD @A@@@@ RES 1 IT )@@G@@. @E@@@@RAAXIL EQUF $,,H1 . LENGTH OF AXIS BEING REDUCEDIU )@@G@@@G@@@@RAFFLG EQUF $,,H2 . ON TO CAUSE FLOATING OF PARTIAL REIV )@@G@@SULTS @A@@@@ RES 1 . @F@@@@/. ADDRESS MAP MODIW )@@G@@IFICATION FOR INNERPRODUCT AND REDUCTION. MOVE @F@@@@. ENTRIES FOR SELEIX )@@G@@CTED COORDINATE TO FAR RIGHT OF MAP, AND SET ALL@ @@@@. JVECTORS TO RUN IY )@@G@@BACKWARD-- @[@@@@. @#@@@@ INSTRS . @A@@@@MAPBAK SX X11IZ )@@G@@,MBLINK . @E@@@@ SA A0,MBPREV . SAVE PARITY REVEJA )@@G@@RSAL FLAG @E@@@@ LA A0,AMAXIS . GET INDEX OF SELECTED JB )@@G@@AXIS @A@@@@ LXI,U A0,1 . @E@@@@ LA A3,JC )@@G@@AMNSIG . GET NO OF SIGNIFICANT AXES @E@@@@ ANA,U A3,1,A0 JD )@@G@@ . GET NO OF AXES TO LOOP OVER @F@@@@ LA A2,AMPARM,A0 JE )@@G@@. GET PARAM WD OF SELECTED AXIS @E@@@@MB0010 JNGD A3,MB0020 JF )@@G@@. QUIT WHEN ALL AXES DONE @G@@@@ LA A1,AMPARM+1,A0 . GET JG )@@G@@PARAM WD FROM NEXT AXIS TO RIGHT @E@@@@ SA A1,AMPARM,*A0 JH )@@G@@. MOVE IT ONE AXIS TO THE LEFT@E@@@@ J MB0010 . AND JI )@@G@@GO CHECK FOR THE END @F@@@@MB0020 SA A2,AMPARM,A0 . PLUG SELECJJ )@@G@@TED AXIS IN AT FAR RIGHT@G@@@@ LA,U A0,0,A0 . ISOLATE INJK )@@G@@DEX USED FOR RIGHTMOST AXIS @G@@@@ SA A0,AMAXIS . AND JL )@@G@@POST AS NEW INDEX OF SELECTED AXIS @E@@@@. REVERSE AXIS PARITIES BY ADJJM )@@G@@USTING COUNTS AND INCREMENTS @G@@@@MB0100 AA,U A0,1 . BUMPJN )@@G@@ AXIS COUNT TO COMPENSATE FOR JNGD @G@@@@ LNA,U A1,1 JO )@@G@@. GET VAL TO CRAM INTO INCREMENT FIELD @E@@@@MB0110 JNGD A0,MB0200JP )@@G@@ . OUT WHEN ALL AXES FIXED UP @D@@@@ LA A2,AMRANG,A0-X8JQ )@@G@@ . GET AXIS LENGTH @E@@@@ ANA,U A2,1 . MAKE A JGDJR )@@G@@ COUNT OUT OF IT @F@@@@ SA A2,AMCINI,A0-X8 . AND SET INIJS )@@G@@TIAL COUNT FIELD @E@@@@ TNZ MBPREV . SHOULD PARITY BEJT )@@G@@ REVERSED? @C@@@@ J MB0110 . NO, DO NEXT AXIS@G@@@@JU )@@G@@ AU A2,WSIXOR . GET ORIGIN DEPENDENT LAST LEGAL INDEX JV )@@G@@@F@@@@ SA A3,AMDINI,A0-X8 . AND SET AS STARTVAL FOR JVECTJW )@@G@@@F@@@@ SA A1,AMDINC,A0-X8 . THEN FORCE INCREMENT TO -1 JX )@@G@@@E@@@@ J MB0110 . AND LOOP BACK FOR NEXT AXIS @ @@@@JY )@@G@@. MAP MODIFIED, TIME TO QUIT @A@@@@MB0200 LX X11,MBLINK . JZ )@@G@@@A@@@@ J 0,X11 . @#@@@@ VARBLS . @A@@@@KA )@@G@@MBLINK EQUF $,,H1 . @E@@@@MBPREV EQUF $,,H2 KB )@@G@@. AXIS PARITY REVERSAL FLAG @A@@@@ RES 1 . KC )@@G@@@B@@@@*COMPIL . PERMANENT CORRECTIONS FOR COMPIL@[@@@@-10,10@[@@@@-48,48KD )@@G@@@B@@@@ TEP,U A12,P(0,0) . IS BIT ON?@F@@@@ TLE,U A0,KE )@@G@@0200 . YES, IS OP REALLY IN THE TABLE? @F@@@@ KF )@@G@@ . NOSKIP IF BIT OFF OR NOT IN TABLE @F@@@@ KG )@@G@@ . SKIP IF IN TABLE .AND. BIT IS ON @B@@@@*CONTIN . PERMANENKH )@@G@@T CORRECTIONS FOR CONTIN@B@@@@*COPIER . PERMANENT CORRECTIONS FOR COPIERKI )@@G@@@[@@@@-9,9 @]@@@@-198,200 @F@@@@ PUSH A6 . STACKJ )@@G@@K DUMMY AS RITEARG OF STORE @B@@@@*INTERP . PERMANENT CORRECTIONS FOR KK )@@G@@INTERP@[@@@@-1,6 @#@@@@ AXR$ . @[@@@@-11,17@E@@@@ CBLOKL )@@G@@CK . DEFINE CONTROL BLOCK TYPES @]@@@@-341,341- @#@@@@KM )@@G@@/ZMOINT/ZMOIND/ @]@@@@-347,347- @#@@@@/ZMOINT/ZMOIND/ @[@@@@-517 KN )@@G@@@D@@@@. ALSO INCLUDES BASEVALUE (DECODE) DEFINED ON ARRAYS @[@@@@. KO )@@G@@@G@@@@ DYADEF ADCODE IN3050 . BASEVAL WILL SIMULATE INNER PRODUCKP )@@G@@T @[@@@@. @]@@@@-547,549 @[@@@@. @B@@@@. BASEVALUE (DECODKQ )@@G@@E) DEFINED ON MATRICES @[@@@@. @D@@@@IN3050 LX,U X11,BASVAL KR )@@G@@. SET TARGET RTNE ADDR @D@@@@ LA,U A2,AADD . LEFTOP IS KS )@@G@@ADDITION @E@@@@ LA,U A3,AMULT . RIGHT IS MULTIPLICATIOKT )@@G@@N @F@@@@ J IN3110 . CONTINUE AS PER INNER PRODUCKU )@@G@@T @[@@@@. @#@@@@. INNER PRODUCT @[@@@@. @D@@@@IN3100 LX,UKV )@@G@@ X11,INPROD . SET TARGET RTNE ADDR @ @@@@. BASE VAL FALLS INTO HEKW )@@G@@RE @G@@@@IN3110 SETOP A4,A2 . USE LEFTOP (A2) TO SET PARAMKX )@@G@@S IN A4,5 @]@@@@-566,566- @]@@@@/99/96/ @]@@@@-574,574- @]@@@@KY )@@G@@/99/96/ @]@@@@-659,659- @#@@@@/ZMOINT/ZMOIND/ @]@@@@-669,669- KZ )@@G@@@#@@@@/ZMOINT/ZMOIND/ @]@@@@-678,678- @#@@@@/ZMOINT/ZMOIND/ @]@@@@LA )@@G@@-784,786 @F@@@@IN5090 JZ A2,IN5093 . IF LEFTARG ZERO, GO USLB )@@G@@E RITEARG @E@@@@ DI A4,A2 . ELSE FORM RITE OVER LELC )@@G@@FT @D@@@@ TNZ A5 . IS REMAINDER ZERO? @E@@@@LD )@@G@@ DSL A1,72 . YES, FUDGE SO RESULT IS, TOO@G@@@@ LE )@@G@@ XOR A2,A5 . COMPARE SIGNS OF REMAINDER AND MODULUS @D@@@@LF )@@G@@ TP A3 . ARE THEY THE SAME? @D@@@@ AA LG )@@G@@ A5,A2 . NO, FIX UP REMAINDER @E@@@@IN5093 LA A2,A5 LH )@@G@@ . PUT RESULT IN EXPECTED REG @]@@@@-842,842 @D@@@@CI0020 +CITLI )@@G@@RRG . DUMMY ARG POINTER @#@@@@ +0 . @]@@@@LJ )@@G@@-964,964- @#@@@@/ZMOINT/ZMOIDF/ @]@@@@-1019,1019- @#@@@@/ZMOINT/ZMOILK )@@G@@DF/ @]@@@@-1068,1068 @]@@@@-1074,1074- @]@@@@/99/96/ @B@@@@*LEXANLL )@@G@@L . PERMANENT CORRECTIONS FOR LEXANL@[@@@@-10,10@]@@@@-587,591 @B@@@@LM )@@G@@*LEXCAN . PERMANENT CORRECTIONS FOR LEXCAN@[@@@@-1,3 @[@@@@-10,15@#@@@@LN )@@G@@ CBLOCK . @]@@@@-102,103 @F@@@@LX0035 LA,Q2 A12,OPRPQ2-0200LO )@@G@@,A0 . GET BITMASK FOR THIS CHAR @C@@@@ TG,U A0,0200 LP )@@G@@. IS IT TABULATED?@G@@@@ TOP,U A12,DYAFUN . YES, CAN IT BE ULQ )@@G@@SED AS A DYADIC FUNC? @B@@@@ J LX0500 . NO, ERROR LR )@@G@@@]@@@@-189,192 @D@@@@LX0900 EQU 0 . SYSERR