@CAT,P 1033-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1033-001-001,,,130341053241,000 )@@G@@**PF**@@@@(R@@@@@@@@@@@[@]4@@@]FE^TFDJMASS @@@@@@@@A@@@AP )@@G@@ )@@]@[@@@@^C@@@@-YE>;AVJMASS @@@@@@@@[@@@ AQ )@@G@@@ @=@ ]@@@#1@@@@>&E=*AVJPURGE @@@@@@@@A@@@ )@@]@[@@@@[JAR )@@G@@@@@@+=BVJCHJPURGE @@@@@@@@[@@@ @ @O@ ]@@@#N@@@@<3BUJCHJAS )@@G@@BY LOU INFELD, 12/15/78 (2R9) ******* @H@@@@. ****AT )@@G@@*** UPDATED BY LOU INFELD, 04/17/79 (3R1) ******* AU )@@G@@@H@@@@. ******* UPDATED BY LOU INFELD, 12/28/79 (3R2) AV )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 02/22/80 (3R3) AW )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 03/07/80 AX )@@G@@ (3R4) ******* @H@@@@. ******* AY )@@G@@ ******* @H@@@@. ******* THIS PROAZ )@@G@@GRAM GENERATES AN SDF ELEMENT WHICH IS ******* @H@@@@. ****BA )@@G@@*** USUALLY USED AS AN SGS INPUT STREAM TO THE SSG ******* BB )@@G@@@H@@@@. ******* PROCESSOR. THERE ARE SEVERAL MODES OF OPERATION. BC )@@G@@ ******* @H@@@@. ******* BD )@@G@@ ******* @H@@@@. ******* MODE 1 - GENERAL INFORMATION BE )@@G@@ ******* @H@@@@. ******* ------ BF )@@G@@ ******* @H@@@@. ******* BG )@@G@@ ******* @H@@@@. ****BH )@@G@@*** THE FOLLOWING CARDS ARE 'ALWAYS' GENERATED (UNLESS 'N' ******* BI )@@G@@@H@@@@. ******* SPECIFIED) AND WRITTEN INTO OUTPUT ELEMENT: BJ )@@G@@ ******* @H@@@@. ******* BK )@@G@@ ******* @H@@@@. ******* DATE MM/DD/YY MM,DD,YY MONTH,DAYBL )@@G@@,YEAR DD,MO.,YY ******* @H@@@@. ******* DAY DAY-OF-WEEK BM )@@G@@ ******* @H@@@@. ******* TIME HH:BN )@@G@@MM:SS HH,MM,SS ******* @H@@@@. ****BO )@@G@@*** RUNID ORIGINAL,GENERATED ******* BP )@@G@@@H@@@@. ******* ACCOUNT RUN-ACCOUNT BQ )@@G@@ ******* @H@@@@. ******* PROJECT RUN-PROJECT-ID BR )@@G@@ ******* @H@@@@. ******* COND VALUE T1,T2,T3 BS )@@G@@ ******* @H@@@@. ******* PROGRAM TYPE BT )@@G@@ ******* @H@@@@. ******* EXEC LEVBU )@@G@@EL ******* @H@@@@. ****BV )@@G@@*** COMPUTER TYPE ******* BW )@@G@@@H@@@@. ******* SITEID SITE-ID BX )@@G@@ ******* @H@@@@. ******* USERID USER-ID BY )@@G@@ ******* @H@@@@. ******* SUPS CURRENT-SUPS MAX-SUPS CBSUPBZ )@@G@@S CPU-SUPS I/O-SUPS ******* @H@@@@. ******* ER-SUPS DELAY-TCA )@@G@@IME (ALL IN SECS) ******* @H@@@@. ******* CB )@@G@@ ******* @H@@@@. ****CC )@@G@@*** THE 'L' OPTION IS NOT AVAILABLE ******* CD )@@G@@@H@@@@. ******* ------------------------------- CE )@@G@@ ******* @H@@@@. ******* CF )@@G@@ ******* @H@@@@. ******* IF THE 'L' OPTION IS SPECIFIED, CG )@@G@@THE FOLLOWING CARDS ******* @H@@@@. ******* ARE ALSO GENERATED ACH )@@G@@ND WRITTEN TO OUTPUT ELEMENT: ******* @H@@@@. ******* CI )@@G@@ ******* @H@@@@. ****CJ )@@G@@*** SYMBIONT NAME EQUIP,TYPE,STATE,SS,UNIT (FOR EACH ******* CK )@@G@@@H@@@@. ******* CONFIGURED SYMBIONT DEVICE) CL )@@G@@ ******* @H@@@@. ******* ACTIVE #-DEM,#-BATCH CM )@@G@@ ******* @H@@@@. ******* BACKLOG NUM CN )@@G@@ ******* @H@@@@. ******* RUN RUNID ACCT,DFLAGCO )@@G@@,STATUS,OFC,SCH-TIME,DEVICE (FOR ******* @H@@@@. ******* EACCP )@@G@@H RUN IN ACTIVE AND BACKLOG QUEUES) ******* @H@@@@. ****CQ )@@G@@*** ******* CR )@@G@@@H@@@@. ******* MODE 2 - CONVERSATIONAL MODE CS )@@G@@ ******* @H@@@@. ******* ------ CT )@@G@@ ******* @H@@@@. ******* CU )@@G@@ ******* @H@@@@. ******* IF DATA CARDS FOLLOWCV )@@G@@ THE CONTROL CARD, THEY ARE ******* @H@@@@. ******* ASSUMED CW )@@G@@TO BE PARTIAL SGS STATEMENTS WHICH ARE ******* @H@@@@. ****CX )@@G@@*** TO BE COMPLETED. AFTER ALL THE CARDS ARE READ, ******* CY )@@G@@@H@@@@. ******* EACH PARTIAL IMAGE IS SENT TO USER (OR CONSOLE CZ )@@G@@ ******* @H@@@@. ******* IF 'C' OPTION ON) AS A QUESTION. THE USER (DA )@@G@@OR ******* @H@@@@. ******* OPERATOR) RESPONSE COMPLETES THEDB )@@G@@ SGS IMAGE WHICH ******* @H@@@@. ******* IS THEN WRITTEN TO TDC )@@G@@HE OUTPUT ELEMENT. SEVERAL ******* @H@@@@. ******* CONTROL DD )@@G@@IMAGES ARE RECOGNIZED: ******* @H@@@@. ****DE )@@G@@*** ******* DF )@@G@@@H@@@@. ******* *IF LAST ANSWER = [ ] - ALLOWS VARIABLE SGS DG )@@G@@ ******* @H@@@@. ******* *ELSE - GENERATION DH )@@G@@ ******* @H@@@@. ******* *END DI )@@G@@ ******* @H@@@@. ******* DJ )@@G@@ ******* @H@@@@. ******* *REPEAT DK )@@G@@ALL - REPEAT ALL SGS'S IF ******* @H@@@@. ****DL )@@G@@*** - RESPONSE IS 'YES' OR 'Y' ******* DM )@@G@@@H@@@@. ******* *REPEAT LAST - REPEAT LAST SGS DN )@@G@@ ******* @H@@@@. ******* *FILE - A MODE 4 TYPE DO )@@G@@FILE SGS IS ******* @H@@@@. ******* - DP )@@G@@GENERATED FROM NEXT INPUT ******* @H@@@@. ******* DQ )@@G@@ ******* @H@@@@. ******* IF A '*RDR )@@G@@EPEAT LAST' FOLLOWS AN '*IF LAST ....' STATEMENT, ******* @H@@@@. ****DS )@@G@@*** THE STATEMENT BEFORE THE '*IF' STATEMENT IS REPEATED UNTIL ******* DT )@@G@@@H@@@@. ******* THE CONDITION ON THE '*IF' STATEMENT BECOMES TRUE. DU )@@G@@ ******* @H@@@@. ******* IF A '*REPEAT LAST' FOLLOWS AN SGS IMAGE, THDV )@@G@@AT SGS IMAGE ******* @H@@@@. ******* IS REPEATED UNTIL A RESPONSE OF DW )@@G@@'$END' IS GIVEN. ******* @H@@@@. ******* DX )@@G@@ ******* @H@@@@. ******* AN ANSWEDY )@@G@@R OF '$SKIP' TO ANY SGS QUESTION, WILL SKIP ******* @H@@@@. ****DZ )@@G@@*** REST OF SGS QUESTIONS. ******* EA )@@G@@@H@@@@. ******* EB )@@G@@ ******* @H@@@@. ******* AN ANSWER OF '$ABORT' OR '$EXIT' WILL CAUSE EC )@@G@@PROGRAM TO ******* @H@@@@. ******* STOP READING INPUT AND CLOSE OUTED )@@G@@PUT ELEMENT WITH NO ******* @H@@@@. ******* FURTHER ACTION. EE )@@G@@ ******* @H@@@@. ******* EF )@@G@@ ******* @H@@@@. ****EG )@@G@@*** MODE 3 - DYNAMIC RUNSTREAM FEATURE ******* EH )@@G@@@H@@@@. ******* ------ EI )@@G@@ ******* @H@@@@. ******* EJ )@@G@@ ******* @H@@@@. ******* IF A SECOND SET OF DATA CARDS FOEK )@@G@@LLOW THE FIRST (WITH A @EOF******* @H@@@@. ******* IN BETWEEN), THEY WIEL )@@G@@LL BE STORED TEMPORARILY AND @ADD'ED TO******* @H@@@@. ******* THE RUNEM )@@G@@STREAM AFTER ALL PROCESSING IS DONE. CARDS WITH ******* @H@@@@. ****EN )@@G@@*** A '\' IN COLUMN 1 ARE ASSUMED TO BE CONTROL CARDS. ******* EO )@@G@@@H@@@@. ******* THIS FACILITY ALLOWS THIS PROCESSOR TO BE USED IN EP )@@G@@ ******* @H@@@@. ******* IN AN '@ADD' ELEMENT, INTERACT WITH THE USEREQ )@@G@@ IN ******* @H@@@@. ******* CONVERSATIONAL MODE, AND THEN HAER )@@G@@VE THE REST OF ******* @H@@@@. ******* THE RUNSTREAM EXECUTES )@@G@@ED USING ITS OUTPUT. AN @EOF MUST ******* @H@@@@. ******* ALSO FOLET )@@G@@LOW THIS DATA SET. AN EXAMPLE USING THIS ******* @H@@@@. ****EU )@@G@@*** FACILITY FOLLOWS: ******* EV )@@G@@@H@@@@. ******* EW )@@G@@ ******* @H@@@@. ******* @SGSGEN SGS EX )@@G@@ ******* @H@@@@. ******* TAPE NUMBER EY )@@G@@ ******* @H@@@@. ******* TAPE TYPE EZ )@@G@@ ******* @H@@@@. ******* @EOF FA )@@G@@ ******* @H@@@@. ****FB )@@G@@*** \SSG ,SGS ******* FC )@@G@@@H@@@@. ******* SKEL FD )@@G@@ ******* @H@@@@. ******* #MSG TODAY IS [DAY,1,1,1] FE )@@G@@ ******* @H@@@@. ******* #ASG,T TAPE,[TAPE,2,2,1],[TAPE,1FF )@@G@@,2,1] ******* @H@@@@. ******* \EOF FG )@@G@@ ******* @H@@@@. ******* \EOF FH )@@G@@ ******* @H@@@@. ****FI )@@G@@*** @EOF ******* FJ )@@G@@@H@@@@. ******* FK )@@G@@ ******* @H@@@@. ******* IN A GENERAL AN '@EOF' IS NEEDED AFTER MODESFL )@@G@@ 2 AND 3 ******* @H@@@@. ******* ONLY TO AVOID RE-READING CONTROLFM )@@G@@ IMAGES OR TO SEPARATE ******* @H@@@@. ******* MODES 2 AND 3. FN )@@G@@ ******* @H@@@@. ******* FO )@@G@@ ******* @H@@@@. ****FP )@@G@@*** MODE 4 - FILE INFORMATION ******* FQ )@@G@@@H@@@@. ******* ------ FR )@@G@@ ******* @H@@@@. ******* FS )@@G@@ ******* @H@@@@. ******* IF THE 'F' OPTION IS ON, THE DATFT )@@G@@A CARDS THAT FOLLOW ******* @H@@@@. ******* ARE ASSUMED TO BE FIFU )@@G@@LE NAMES. FOR EACH FILE NAME ******* @H@@@@. ******* READ, A FV )@@G@@CORRESPONDING OUTPUT IMAGE IS GENERATED ******* @H@@@@. ****FW )@@G@@*** CONTAINING A DESCRIPTION OF THE FILE. THE FORMAT ******* FX )@@G@@@H@@@@. ******* OF THIS IMAGE IS: FY )@@G@@ ******* @H@@@@. ******* FZ )@@G@@ ******* @H@@@@. ******* FILE QUAL,FILE-NAME,KEYS DEVICE GA )@@G@@GRAN ACCT PROJ ASG-CNTS ******* @H@@@@. ******* CAT-OPTS GB )@@G@@ ******* @H@@@@. ******* GC )@@G@@ ******* @H@@@@. ****GD )@@G@@*** WHERE 'QUAL' - QUALIFIER ******* GE )@@G@@@H@@@@. ******* 'FILE-NAME' - FILE NAME INCLUDING ABSOLUTE CYCLE GF )@@G@@ ******* @H@@@@. ******* 'KEYS' - READ/WRITE KEYS (IF ANY) IN DGG )@@G@@OUBLE QUOTES ******* @H@@@@. ******* 'DEVICE' - DEVICE TYPE GH )@@G@@ ******* @H@@@@. ******* 'GRAN' - FILE GI )@@G@@GRANULARITY IN FORM: ******* @H@@@@. ******* GJ )@@G@@ 'INIT,GRAN-TYPE,MAX,HI-GRAN,MAX-TRKS' ******* @H@@@@. ****GK )@@G@@*** FOR MASS STORAGE FILES OR ******* GL )@@G@@@H@@@@. ******* 'REEL-NO' FOR TAPE FILES GM )@@G@@ ******* @H@@@@. ******* 'ACCT' - ACCOUNT NUMBER UNDER WHICH FIGN )@@G@@LE CATALOGUED ******* @H@@@@. ******* 'PROJ' - PROJECT UNDER WHIGO )@@G@@CH FILE CATALOGUED ******* @H@@@@. ******* 'ASG-CNTS' - AGP )@@G@@SSIGN COUNT IN 1ST SUB-FIELD AND ******* @H@@@@. ******* GQ )@@G@@ 0/1 IF FILE ASSIGNED TO RUN (1) OR NOT ******* @H@@@@. ****GR )@@G@@*** IN 2ND SUB-FIELD ******* GS )@@G@@@H@@@@. ******* 'CAT-OPT' - CATALOG OPTIONS (ONE PER SUB-FIELD) GT )@@G@@ ******* @H@@@@. ******* GU )@@G@@ ******* @H@@@@. ******* IF THE 'I' OPTION WAS SPECIFIED GV )@@G@@ON CONTROL CARD, ******* @H@@@@. ******* ALL FILES ASSIGNED TGW )@@G@@O THE RUN WILL AUTOMATICALLY ******* @H@@@@. ******* BE INCLUGX )@@G@@DED IN THE LIST OF FILES PROCESSED. ******* @H@@@@. ****GY )@@G@@*** ******* GZ )@@G@@@H@@@@. ******* GENERAL FOR ALL MODES HA )@@G@@ ******* @H@@@@. ******* --------------------- HB )@@G@@ ******* @H@@@@. ******* HC )@@G@@ ******* @H@@@@. ******* THE OUTPUT ELEMENT WHD )@@G@@ILL BE STORED IN THE ELEMENT ******* @H@@@@. ******* SPECIFIEHE )@@G@@D AS PARAMETER 1 ON THE CONTROL CARD OR ******* @H@@@@. ****HF )@@G@@*** 'TPF$.SGS' IF NO ELEMENT SPECIFIED. ******* HG )@@G@@@H@@@@. ******* HH )@@G@@ ******* @H@@@@. ******* THIS PROGRAM IS THE SUCCESSOR TO THE OLD 'SGHI )@@G@@SGEN' AND ******* @H@@@@. ******* 'MSGSGS', 'FILESGS', AND 'SSGBUIHJ )@@G@@LD' PROGRAMS. ******* @H@@@@. ******* HK )@@G@@ ******* @H@@@@. ******* REVISIONHL )@@G@@ SUMMARY ******* @H@@@@. ****HM )@@G@@*** ---------------- ******* HN )@@G@@@H@@@@. ******* HO )@@G@@ ******* @H@@@@. ******* 1R1 - FIRST RELEASE HP )@@G@@ ******* @H@@@@. ******* 1R2 - SIGN-ON, ACCOUNT, PROJECTHQ )@@G@@ ******* @H@@@@. ******* 1R3 - IDONLY$, GETPHR )@@G@@SFN$ ******* @H@@@@. ******* - FHS )@@G@@REE,A LI$TEMP1 ******* @H@@@@. ****HT )@@G@@*** - SUPS CARD IMPROVED ******* HU )@@G@@@H@@@@. ******* - 'N' OPTION HV )@@G@@ ******* @H@@@@. ******* 2R1 - 'I' OPTION HW )@@G@@ ******* @H@@@@. ******* - *FILE CONTROL CARD HX )@@G@@ ******* @H@@@@. ******* - DIAGNOSTIC FOHY )@@G@@R TEMPORARY FILES ******* @H@@@@. ******* - FHZ )@@G@@REE,AR LI$FILE ******* @H@@@@. ****IA )@@G@@*** - FILE DIAGNOSTICS ON SAME LINE AS FILE NAME ******* IB )@@G@@@H@@@@. ******* - ASSIGN COUNT ADDED IC )@@G@@ ******* @H@@@@. ******* - CAT-OPT FIELD MOVED TO LAST FIELD ID )@@G@@ ******* @H@@@@. ******* - SPACE AFTER SIGN-ON IE )@@G@@ ******* @H@@@@. ******* 2R2 - SFILE FILE NAIF )@@G@@ME CORRECTION ******* @H@@@@. ******* - UIG )@@G@@SE INFO$ EQUATES ******* @H@@@@. ****IH )@@G@@*** - TREAD$ CORRECTION ******* II )@@G@@@H@@@@. ******* 2R3 - FURTHER CORRECTION FOR TREAD$ IJ )@@G@@ ******* @H@@@@. ******* - COLLECTED WITH MAP28R2 AND SYSLIB 73RIK )@@G@@1 ******* @H@@@@. ******* 2R4 - COMPUTER TYPE ADDED IL )@@G@@ ******* @H@@@@. ******* - USERID ADDED IM )@@G@@ ******* @H@@@@. ******* - AIN )@@G@@SSEMBLED WITH ASM 15R1 ******* @H@@@@. ****IO )@@G@@*** 2R5 - ADD CONTINGENCY TO CHECK 'ER STATUS$' EXISTENCE ******* IP )@@G@@@H@@@@. ******* - (THIS ALLOWS SGSGEN TO RUN UNDER L36 & L33) IQ )@@G@@ ******* @H@@@@. ******* - REMOVE 'SFILE' OUTPUT IN 'L' OPTION IR )@@G@@ ******* @H@@@@. ******* 2R6 - PROGRAM TYPE ADDED IS )@@G@@ ******* @H@@@@. ******* - REBOOT INFO RIT )@@G@@EMOVED ******* @H@@@@. ******* - CIU )@@G@@OMPATIBLE WITH L35 ******* @H@@@@. ****IV )@@G@@*** 2R7 - FIX 'C' OPTION UNDER L35 ******* IW )@@G@@@H@@@@. ******* - TIGHTEN LOGICAL CHECK FOR L35 IX )@@G@@ ******* @H@@@@. ******* 2R8 - USE MCT TO DETERMINE IF L35 OR > IY )@@G@@ ******* @H@@@@. ******* - COLLECT WITH SYSLIB 74R1 IZ )@@G@@ ******* @H@@@@. ******* - CHANGE 'REPEAJA )@@G@@T LAST' TO LOOK FOR '$END' INSTEAD ******* @H@@@@. ******* OJB )@@G@@F 'END' ******* @H@@@@. ****JC )@@G@@*** - ADD '$SKIP' FACILITY ******* JD )@@G@@@H@@@@. ******* - ECHO FULL FILE-NAME IN FILE MODE JE )@@G@@ ******* @H@@@@. ******* - ADD TEST MODE JF )@@G@@ ******* @H@@@@. ******* 2R9 - FIX OVERPRINT IN MODE 4 JG )@@G@@ ******* @H@@@@. ******* 3R1 - CONVERT TO MAJH )@@G@@SM ******* @H@@@@. ******* - DJI )@@G@@ON'T IGNORE $END ON 1ST INPUT ******* @H@@@@. ****JJ )@@G@@*** - ADD '$ABORT' AND '$EXIT' FACILITIES ******* JK )@@G@@@H@@@@. ******* - USE 'ER ERRPR$' FOR INTERNAL ERRORS JL )@@G@@ ******* @H@@@@. ******* - EXPAND 'ASG-CNT' FIELD FOR FILE MODE JM )@@G@@ ******* @H@@@@. ******* - TEST MODE VERSION GENERATJN )@@G@@ED WITH @MASM,T ******* @H@@@@. ******* 3R2 - DON'T USE PSFJO )@@G@@$ FOR SCRATCH ******* @H@@@@. ******* - UJP )@@G@@PDATE TEST FACILITY ******* @H@@@@. ****JQ )@@G@@*** - TURN OFF STATUS$ CODE ('L' OPTION) ******* JR )@@G@@@H@@@@. ******* - TURN OFF PRE-L35 CODE JS )@@G@@ ******* @H@@@@. ******* 3R3 - ALLOW BLANK AS ANSWER JT )@@G@@ ******* @H@@@@. ******* - ALLOW A *REPEAT LAST IMMEJU )@@G@@DIATELY AFTER AN *IF ******* @H@@@@. ******* 3R4 - ADD GRANULARIJV )@@G@@TY INFORMATION TO FILE MODE ******* @H@@@@. ******* - FJW )@@G@@IX POS/TRK GRANULARITY BUG ******* @H@@@@. ****JX )@@G@@*** ******* JY )@@G@@@H@@@@. ****************************************************************JZ )@@G@@********** _@@@@@. ******* 2R5 - ADD CONTINGENCY TO CHECK 'ER STATUS$'KA )@@G@@ EXISTENCE ******* *[S@@@*SDFF*@H@@@Q. ****************************KB )@@G@@********************************************** @H@@@Q. ******** THIS PDKC )@@G@@P ELEMENT CONTAINS USEFUL PROCS NOT DEFINED BY THE ******* @H@@@Q. ****KD )@@G@@**** EXEC 8. THESE PROCS ARE MADE AVAILABLE TO THE USER BY ******* KE )@@G@@@H@@@Q. ******** INVOKING THE PROC 'LIPROCS'. IF THIS ELEMENT HAS NOT BKF )@@G@@EEN******* @H@@@Q. ******** INCORPORATED INTO THE OPERATING SYSTEM, IT KG )@@G@@FIRST MUST BE ******* @H@@@Q. ******** PDP'ED INTO THE FILE FROM WHICHKH )@@G@@ THE CALLING PROGRAM IS ******* @H@@@Q. ******** BEING ASSEMBLED. KI )@@G@@ ******* @H@@@Q. ******** KJ )@@G@@ ******* @H@@@Q. ****KK )@@G@@********************************************************************** KL )@@G@@@D@@@QLIPROC$* $PROC 0 . MASTER PROC @D@@@QLIPROCKM )@@G@@S* $NAME . ALTERNATE NAME@H@T@Q AXR$ KN )@@G@@ . STANDARD ASSEMBLER REGISTER NAMES @H@@@T KO )@@G@@ $INCLUDE 'MAXR$/' . STANDARD ASSEMBLER REGISTER NAMES KP )@@G@@@H@@@Q. ****************************************************************KQ )@@G@@********** @H@@@Q. ******** CHECK XQT OPTION $PROC- ISOLATES BIT CORR. KR )@@G@@TO INPUT LETTER******* @H@@@Q. ******** KS )@@G@@ ******* @H@@@Q. ******** E.G. TOPT 'U' =KT )@@G@@ AND A0,(000000000040) ******* @H@@@Q. ******** TKU )@@G@@OPT A2,'U' = AND A2,(000000000040) ******* @H@@@Q. ****KV )@@G@@**** AOPT 'U' = AND A0,(000000000040) ******* KW )@@G@@@H@@@Q. ******** AOPT A2,'U' = AND A2,(000000000040) KX )@@G@@ ******* @H@@@Q. ******** SOPT 'U' = TOP A0,(000000000040) KY )@@G@@ ******* @H@@@Q. ******** SOPT A2,'U' = TOP A2,(000KZ )@@G@@000000040) ******* @H@@@Q. ******** GOPT 'U' =LA )@@G@@ ER OPT$ ******* @H@@@Q. ******** LB )@@G@@ AND A0,(000000000040) ******* @H@@@Q. ****LC )@@G@@********************************************************************** LD )@@G@@@#@@@QP $PROC @^@@@QTOPT** $NAME 0 @^@@@QAOPT** $NLE )@@G@@AME 0 @^@@@QGOPT** $NAME 1 @^@@@QSOPT** $NAME 2 LF )@@G@@@A@@@Q $DO P(0,0)=1 , ER OPT$ @F@@@Q $DO (P(0,0)<2)LG )@@G@@**(P(1)=1) , AND A0,(1*/('Z'-P(1,1))) @F@@@Q $DO (P(0,0)=0)LH )@@G@@**(P(1)>1) , AND P(1,1),(1*/('Z'-P(1,2))) @F@@@Q $DO (P(0,0)=2)LI )@@G@@**(P(1)=1) , TOP A0,(1*/('Z'-P(1,1))) @F@@@Q $DO (P(0,0)=2)LJ )@@G@@**(P(1)>1) , TOP P(1,1),(1*/('Z'-P(1,2))) @#@@@Q $END @[@@@QLK )@@G@@. @H@@@Q. **********************************************************LL )@@G@@**************** @H@@@Q. ******** FORTRAN CALL $PROC LM )@@G@@ ******* @H@@@Q. ******** LN )@@G@@ ******* @H@@@Q. ******** CALL SUBR A,BLO )@@G@@,C,D = LMJ X11,SUBR ******* @H@@@Q. ******** LP )@@G@@ + A ******* @H@@@QLQ )@@G@@. ******** + B ***LR )@@G@@**** @H@@@Q. ******** + C LS )@@G@@ ******* @H@@@Q. ******** + D LT )@@G@@ ******* @H@@@Q. ******** + 0 LU )@@G@@ ******* @H@@@Q. **********************LV )@@G@@**************************************************** @#@@@QCALL** $PLW )@@G@@ROC @A@@@Q LMJ X11,CALL(1,1) @A@@@QI $DO CALLLX )@@G@@(2) , + CALL(2,I) @^@@@Q + 0 @#@@@Q $END LY )@@G@@@[@@@Q. @H@@@Q. ****************************************************LZ )@@G@@********************** @H@@@Q. ******** INFOR TABLE INTERFACE PROCS - AMA )@@G@@IDS IN USING RINF$, SELT$ ******* @H@@@Q. ******** AND DMB )@@G@@USE$ SUBROUTINES ******* @H@@@Q. ******** MC )@@G@@ ******* @H@@@Q. ****MD )@@G@@**** R$INF - CALLS 'RINF$' AND INVOKES 'ELT$' ******* ME )@@G@@@H@@@Q. ******** S$ELT - CALLS 'SELT$' WITH PARAMETER # MF )@@G@@ ******* @H@@@Q. ******** D$USE - CALLS 'DUSE$' WITH FILE$NAME(MAY BEMG )@@G@@ R.J.) ******* @H@@@Q. ****************************************MH )@@G@@********************************** @H@@@QP $PROC 1 . A PMI )@@G@@ARAMETER SPECIFIES # OF XQT PARAMETERS EXPECTED,@D@@@QR$INF** $NAME MJ )@@G@@ . OTHERWISE 3 ASSUMED @F@@@Q $LEVEL 0,1,0 MK )@@G@@ . MAKE ELT$ LABELS GLOBAL @E@@@Q ELT$ ML )@@G@@ . INVOKE 'ELT$' PROC @F@@@Q $LEVEL 0,0,0 MM )@@G@@ . RETURN TO NORMAL LEVELING @B@@@QNN $EQU 28*(3*(P=1)+P(1,MN )@@G@@1)) @A@@@Q L A0,(NN,INF) @ @@@Q LMJ MO )@@G@@ X11,RINF$ @^@@@Q J ERR @^@@@Q J CONTMP )@@G@@@^@@@QINF RES NN @ @@@QERR ER PRINT$ @ @@@QMQ )@@G@@ ER EXIT$ @]@@@QCONT . @#@@@Q $END MR )@@G@@@^@@@QP $PROC 1 @#@@@QS$ELT** $NAME @A@@@Q $DMS )@@G@@O P(1)>0 , L,U A0,P(1,1)@^@@@Q LMJ X11,SELT$ @#@@@Q $EMT )@@G@@ND @^@@@QP $PROC 1 @#@@@QD$USE** $NAME @C@@@Q MU )@@G@@ $DO P(1)>0 , DL A0,($CFS(P(1,1)DL)) @ @@@Q LMJ X11,MV )@@G@@DUSE$ @#@@@Q $END @[@@@Q. @H@@@Q. **********************MW )@@G@@**************************************************** @H@@@Q. ******** SMX )@@G@@OURCE OUTPUT PROCS - AIDS IN USING SSOR, SOR, AND ESOR ******* @H@@@QMY )@@G@@. ******** SUBROUTINES ***MZ )@@G@@**** @H@@@Q. ******** NA )@@G@@ ******* @H@@@Q. ******** S$SOR - SETS UP 'PARTBL', ASSIGNS FILNB )@@G@@E AND CALLS 'SSOR' ******* @H@@@Q. ******** P(1,1) = FILE $NC )@@G@@NAME(MAY BE R.J.) ******* @H@@@Q. ******** P(1,2ND )@@G@@) = ELEMENT $NAME(MAY BE R.J.) ******* @H@@@Q. ******** NE )@@G@@ P(1,3) = VERSION $NAME(MAY BE R.J.) ******* @H@@@QNF )@@G@@. ******** P(0,1) = 1, IF NOT FIRST TIME CALLED ***NG )@@G@@**** @H@@@Q. ******** S$OR - CALLS 'SOR' NH )@@G@@ ******* @H@@@Q. ******** P(1,1) = (NWDS,ADDR) NI )@@G@@ ******* @H@@@Q. ******** P(1,1),P(1,2) = ANJ )@@G@@DDR,NWDS ******* @H@@@Q. ******** E$SOR - CALLSNK )@@G@@ 'ESOR' ******* @H@@@Q. **********NL )@@G@@**************************************************************** @^@@@QNM )@@G@@P $PROC 1 @#@@@QS$SOR** $NAME @A@@@Q $DO P(0,NN )@@G@@1)=0 , GO CONT1 @B@@@Q DL A0,($CFS(P(1,1)DL)) @A@@@QNO )@@G@@ DS A0,PARTBL+27 @B@@@Q DL A0,($CFS(PNP )@@G@@(1,2)DL)) @A@@@Q DS A0,PARTBL+29 @C@@@Q $DNQ )@@G@@O P(1)>2 , DL A0,($CFS(P(1,3)DL)) @B@@@Q $DO P(1)>2 , DS A0,PNR )@@G@@ARTBL+33 @#@@@QCONT1 $NAME @A@@@Q L A0,(3,PARTNS )@@G@@BL+26)@^@@@Q ER CSF$@ @@@Q LMJ X11,SSOR$ NT )@@G@@@^@@@Q ER ERR$@ @@@Q $DO P(0,1) , $END @^@@@QNU )@@G@@ J CONT@^@@@QPARTBL** RES 26 @#@@@Q '@NV )@@G@@ASG' @^@@@Q $CFS(P(1,1)DL)@^@@@Q $CFS(P(1,2)DL)@^@@@QNW )@@G@@ RES 2 @^@@@Q $CFS(P(1,3)DL)@^@@@Q RENX )@@G@@S 8 @]@@@QCONT . @#@@@Q $END @^@@@QP $PNY )@@G@@ROC 1 @#@@@QS$OR** $NAME @A@@@Q $DO P(1)=1 , L A0,P(NZ )@@G@@1,1) @C@@@Q $DO P(1)=2 , L A0,(P(1,2),P(1,1)) @ @@@Q OA )@@G@@ LMJ X11,SOR$ @^@@@Q ER ERR$@#@@@Q $EOB )@@G@@ND @^@@@QE$SOR** $PROC 0 @ @@@Q LMJ X11,ESOR$ OC )@@G@@@^@@@Q ER ERR$@#@@@Q $END @H@@@Q. **********OD )@@G@@**************************************************************** @H@@@QOE )@@G@@. ******* TEST FACILITY FOR MASM ELEMENTS ***OF )@@G@@**** @H@@@Q. ******* OG )@@G@@ ******* @H@@@Q. ******* IF @MASM,T USED, FACILITY IS PROCED ONOH )@@G@@ AND IF T2 OF ******* @H@@@Q. ******* RUN CONDITION WORD IS = 2 OI )@@G@@(@SETC 2), SNOOPY IS TURNED ON ******* @H@@@Q. ******* OJ )@@G@@ ******* @H@@@Q. **********OK )@@G@@**************************************************************** @#@@@QOL )@@G@@TEST** $PROC @G@@@QMASMT* $EQU $PAR(0)**(1*/('Z'-'T')) . TEOM )@@G@@ST MODE IF @MASM,T USED @C@@@RLCN $EQU $LCN . SAON )@@G@@VE LC @ @@@Q $IF MASMT @G@@@Q J CONTOO )@@G@@1 . JUMP TO ANOTHER LOCATION COUNTER@B@@@R$(0) '*TEST*'OP )@@G@@ . FOR IDONLY$ USE @]@R@Q$($LCN+2) @]@@@R$(LCN+2) @^@@@QSAVE OQ )@@G@@ $RES 2 @D@@@QCONT1 DS A0,SAVE . SAVE A0,OR )@@G@@A1 @E@@@Q COND$ . GET CONDITION WORD OS )@@G@@@D@@@Q AND A0,(0770000) . ISOLATE T2 @F@@@Q OT )@@G@@ TNE A1,(020000) . IF = 2, TURN ON SNOOPY @^@@@Q OU )@@G@@ SLJ TON$@D@@@Q DL A0,SAVE . RESTORE OV )@@G@@A0,A1 @H@@@Q J CONT2 . JUMP BACK TO ORIGINAOW )@@G@@L LOCATION COUNTER@#@R@Q$($LCN-2),CONT2 @#@T@R$(LCN-2),CONT2 @]@@@TOX )@@G@@$(LCN),CONT2@#@@@R $ELSE @#@@@R$(0) ' '@[@@@R$(LCN)OY )@@G@@@#@@@Q $ENDF @#@@@Q $END @#@@@Q $END OZ )@@G@@_@@@@@(1,1)DL)) @A@@@Q DS A0,PARTBL+27 @B@@@Q PA )@@G@@ DL A0,($CFS(P(1,2)DL)) @A@@@Q DS A0,PARTBL+PB )@@G@@*[S@@@*SDFF*@#@@@@ $DEF @ @@@@ $LEVEL 0,1,0 PC )@@G@@@^@@@@P $PROC *1 @ @@@@FORK$* $NAME 'FORK$' @ @@@@PD )@@G@@TFORK$* $NAME 'TFORK$' @ @@@@ $DO P(1)>0 , ;@H@@@@PE )@@G@@ LA 12,+(OPT$$ +($GFORM 6,P(1,4),6,P(1,3),6,P(1,2),18,P(PF )@@G@@1,1)))@ @@@@FORK$P* $NAME *'FORK$' @ @@@@TFORK$P* $NAME *'TFPG )@@G@@ORK$' @H@@@@ $DO (P(0,0)='TFORK$')**(P(0)>1) , LA 13,+(EQPH )@@G@@UF$ P(0),1,*1) @F@@@@ $DO P(0,*0)**(P(1)>0) , LA 12,+(PI )@@G@@EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @#@@@@ $EPJ )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @ @@@@EXIT$* $NAME PK )@@G@@ 'EXIT$' @ @@@@ERR$* $NAME 'ERR$' @ @@@@ABORT$* $NAME PL )@@G@@ 'ABORT$' @ @@@@EABT$* $NAME 'EABT$' @ @@@@XCTS$* $NAME PM )@@G@@ 'XCTS$' @ @@@@ ER [P(0,0)] @#@@@@ $END PN )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@ACSF$P* $NAME 'ACSPO )@@G@@F$' @ @@@@CSF$P* $NAME 'CSF$' @D@@@@ $DO P(1)PP )@@G@@>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @ @@@@PQ )@@G@@ DO 1 , $END @ @@@@ACSF$* $NAME *'ACSF$' @ @@@@PR )@@G@@CSF$* $NAME 'CSF$' @D@@@@ $DO P(1)=1 , LA 12,PS )@@G@@+(EQUF$ P(1),1,2) @G@@@@ $DO (P(1)>1)**(P(1,2)=14+7*P(0,*PT )@@G@@0)) , LA,14 12,P(1,1) @H@@@@ $DO (P(1)>1)**(P(1,2)<>14+PU )@@G@@7*P(0,*0)) , LA 12,(P(1,2),P(1,1)) @ @@@@ ER [P(0,0)] PV )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@PW )@@G@@CSF$S* $NAME 0 @E@@@@ LA 12,($SL(P(1,1))//6,($CPX )@@G@@FS(P(1,1))L)) @^@@@@ ER CSF$@ @@@@ $DO PY )@@G@@ 1 , $END @^@@@@ACSF$S* $NAME 0 @E@@@@ LA 12,(PZ )@@G@@$SL(P(1,1))//4,($CAS(P(1,1))L)) @ @@@@ ER ACSF$ QA )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@QB )@@G@@AWAIT$* $NAME 0 @^@@@@AWAIT$P* $NAME 1 @A@@@@BA $EQC )@@G@@QU $BA(P(1,1)) @C@@@@ $DO P(0,0)+P(1)+(\BA(0)) ,QD )@@G@@; @A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@ $DO QE )@@G@@ P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@ $DO QF )@@G@@ (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@ LA QG )@@G@@ 12,+(OPT$$ P(1,1)) @ @@@@ ER AWAIT$ @#@@@@ QH )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@NAME$* $NQI )@@G@@AME 0 @^@@@@NAME$P* $NAME 1 @E@@@@ $DO P(1)QJ )@@G@@>0 , LA 12,+(EQUF$ P(1),1,1-P(0,0)) @ @@@@ ER NAME$ QK )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC 0,1 @#@@@@QL )@@G@@IDENT$* $NAME @ @@@@ ER IDENT$ @#@@@@ $EQM )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@INT$* $NAME QN )@@G@@ 'INT$' @ @@@@INT$P* $NAME 'INT$' @C@@@@ $DO QO )@@G@@ P(0)>1 , LA 13,+(EQUF$ P(0))@ @@@@ACT$* $NAME 'ACT$' @ @@@@QP )@@G@@ACT$P* $NAME 'ACT$' @D@@@@ $DO P(1)>0 , LA 12,QQ )@@G@@+(EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @#@@@@ $EQR )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@DACT$* $NAME QS )@@G@@ 0 @ @@@@ ER DACT$ @#@@@@ $END @[@@@@QT )@@G@@ . @^@@@@P $PROC 0,1 @^@@@@TCELL$* $NAME *47 @ @@@@QU )@@G@@TSQRG$* $NAME 'TSQRG$' @ @@@@TSQCL$* $NAME 'TSQCL$' @E@@@@QV )@@G@@ $DO P(0,*0) , $GFORM 6,0,6,P(0,0),6,0,18,0 @C@@@@ QW )@@G@@ $DO \P(0,*0) , ER [P(0,0)] @#@@@@ $END @[@@@@QX )@@G@@ . @^@@@@P $PROC *1 @ @@@@CTS$* $NAME 'CTS$' QY )@@G@@@ @@@@CTSA$* $NAME 'CTSA$' @ @@@@ $IF P(1)>0 QZ )@@G@@@A@@@@ SZ,13 P(1,1),P(1,2) @A@@@@ TZ,1 P(1,RA )@@G@@1),P(1,2) @#@@@@ $ENDF @ @@@@ ER [P(0,0)] RB )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@RC )@@G@@CTSQ$* $NAME 0 @D@@@@ $DO P(1)>0 , NOP 0,+(EQUFRD )@@G@@$ P(1),1) @ @@@@ ER CTSQ$ @#@@@@ $END RE )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@RT$* $NAME 1 RF )@@G@@@^@@@@RT$P* $NAME 0 @E@@@@ $DO P(1)>0 , LA 12,RG )@@G@@+(EQUF$ P(1),1,P(0,0)) @^@@@@ ER RT$ @#@@@@ $ERH )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@NRT$* $NAME RI )@@G@@ 0 @^@@@@ ER NRT$@#@@@@ $END @[@@@@ . RJ )@@G@@@^@@@@P $PROC *1 @^@@@@TWAIT$* $NAME 1 @^@@@@TWAIT$RK )@@G@@P* $NAME 0 @E@@@@ $DO P(1)>0 , LA 13,+(EQUF$ P(1)RL )@@G@@,1,P(0,0)) @ @@@@ ER TWAIT$ @#@@@@ $END RM )@@G@@@[@@@@ . @^@@@@ $PROC 0,1 @ @@@@SWAIT$* $NAME 'SWARN )@@G@@IT$' @ @@@@SWTCH$* $NAME 'SWTCH$' @ @@@@ ER [P(0RO )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 RP )@@G@@@^@@@@SETC$* $NAME 1 @^@@@@SETC$P* $NAME 0 @E@@@@ RQ )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ERRR )@@G@@ SETC$ @#@@@@ $END @[@@@@ . @^@@@@P $PRS )@@G@@ROC 0,1 @#@@@@COND$* $NAME @ @@@@ ER COND$ RT )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 @ @@@@RU )@@G@@DATE$* $NAME 'DATE$' @ @@@@TDATE$* $NAME 'TDATE$' @ @@@@RV )@@G@@TIME$* $NAME 'TIME$' @ @@@@ ER [P(0,0)] @#@@@@RW )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@MCORE$RX )@@G@@* $NAME *'MCORE$' @ @@@@LCORE$* $NAME *'LCORE$' @ @@@@MCORE$RY )@@G@@P* $NAME 'MCORE$' @ @@@@LCORE$P* $NAME 'LCORE$' @F@@@@ RZ )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2*P(0,*0)) @E@@@@ SA )@@G@@ $DO P(0)>1 , LXI 12,+(EQUF$ P(0),1,*P(0,*0))@ @@@@ ERSB )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PSC )@@G@@ROC *1 @^@@@@PSR$* $NAME 0 @^@@@@PSR$P* $NAME 1 SD )@@G@@@F@@@@ $DO P(0,0)+P(1)+($IBITS(P(1,1))**(1*/4))>1 ,; SE )@@G@@@A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@ $DO P(0,SF )@@G@@0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@ $DO (P(1SG )@@G@@)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@ LA 12,+SH )@@G@@(OPT$$ P(1,1)) @^@@@@ ER PSR$@#@@@@ $END SI )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@BANK$* $NAME 0 SJ )@@G@@@D@@@@ $DO P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) @H@@@@ SK )@@G@@ $DO ($AP(P(2))>1*/16-1)++(P(0,1)=P(0)-1)**1-P(0,*1)**(P(1)>0) , ;SL )@@G@@@D@@@@ LA 12,+(EQUF$ P(1),1,2-P(0,*1)) @F@@@@ SM )@@G@@ $DO (($AP(P(2))>1*/16-1)++(\P(1)))**P(0,*1) , ; @A@@@@ SN )@@G@@ LXI,14 12,1*/17+P(0,1) @H@@@@ $DO (\P(0,*1))**(P(0SO )@@G@@)>1)**((P(1)=0)++($AP(P(2))>1*/16-1)) , ; @B@@@@ LXI 12,+SP )@@G@@(EQUF$ P(0),1,*1) @H@@@@ $DO (1-(P(0,1)=P(0)-1)++P(0,*1))**(SQ )@@G@@P(1)>0)**($AP(P(2))<1*/16) , ;@D@@@@ LA 12,(1*/17*P(0,*1SR )@@G@@)+P(0,1),P(2)) @^@@@@BANK$P* $NAME 1 @E@@@@ $DO SS )@@G@@ P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@ ER BANKST )@@G@@$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *255SU )@@G@@@^@@@@INFO$* $NAME 0 @E@@@@ $DO P>1 , LA 12,(2*PSV )@@G@@-1,$LCV(CTL$BNK(0))) @ @@@@ ER INFO$ @#@@@@$(CTL$SW )@@G@@BNK(0)). @^@@@@INFO$PKT* $NAME 1 @B@@@@ $DO P(0,SX )@@G@@1)*P(0,0) , + 0D @^@@@@LEN(1) $EQU 2 @^@@@@LEN(2) $EQU SY )@@G@@ 1 @^@@@@LEN(3) $EQU 2 @^@@@@LEN(4) $EQU 1 @^@@@@SZ )@@G@@LEN(5) $EQU 1 @^@@@@LEN(6) $EQU 1 @^@@@@LEN(7) $ETA )@@G@@QU 7 @ @@@@I $DO P-1 , ; @I@@@@ $GFORM TB )@@G@@ 12,P(I,1),24,0,2,0,16,LEN(P(I,1))*(P(I)<3)+P(I,3),18,P(I,2) @B@@@@TC )@@G@@I $DO P(0,2)*P(0,0) , + 0D @B@@@@ $DO P(0,TD )@@G@@0)=0 ,$($ILCN) @#@@@@ END @^@@@@P $PROC *1 TE )@@G@@@#@@@@INFO$P* $NAME @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$TF )@@G@@ P(1) ) @ @@@@ ER INFO$ @#@@@@ $END TG )@@G@@@[@@@@ . @^@@@@ $PROC *0,1@#@@@@OPT$* $NAME @^@@@@TH )@@G@@ ER OPT$@#@@@@ $END @[@@@@ . @^@@@@P TI )@@G@@ $PROC *1 @^@@@@PCT$* $NAME 0 @^@@@@PCT$P* $NAME TJ )@@G@@ 1 @ @@@@ $IF P(0,0) @D@@@@ $DO P(1)TK )@@G@@>0 , DL 12,+(EQUF$ P(1),1) @#@@@@ $ELSE @A@@@@LG $ETL )@@G@@QU P(1,2)+(P(1)<2) @E@@@@ $DO (P(0)>1)**(P(1)>0) , LTM )@@G@@A,14 12,P(1,1) @C@@@@ $DO P(0)>1 , LA 13,(LG,P(0,1)) TN )@@G@@@E@@@@ $DO (P(0)=1)**(P(1)>0) , LA 12,(LG,P(1,1)) @#@@@@TO )@@G@@ $ENDF @^@@@@ ER PCT$@#@@@@ $END TP )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@MCT$* $NAME 0 TQ )@@G@@@^@@@@MCT$P* $NAME 1 @F@@@@ $DO P(0,0)**(P(1)>0)TR )@@G@@ , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DO (\P(0,0))**(P(1)TS )@@G@@>0) , ; @G@@@@ LA,14 12,(MCT$PKT P(1,1),P(1,2),P(1,3),PTT )@@G@@(1,4)+(P(1)=3)) @^@@@@ ER MCT$@#@@@@ $END TU )@@G@@@[@@@@ . @^@@@@P $PROC *1 @#@@@@MCT$PKT* $NAME @ @@@@TV )@@G@@ $IF P(1,2)=3 @G@@@@ $GFORM 12,0,6,P(1,2),18TW )@@G@@,P(1,1),18,P(1,4)+(P(1)=3),18,P(1,3)@#@@@@ $ELSE @C@@@@ TX )@@G@@ $GFORM 12,0,6,P(1,2),18,P(1,1) @#@@@@ $ENDF @#@@@@TY )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@IALL$*TZ )@@G@@ $NAME 0 @ @@@@A(1) $EQU 'IOPR' @ @@@@A(2) $EUA )@@G@@QU 'IGDM' @ @@@@A(3) $EQU 'IFOF' @ @@@@A(4) $EUB )@@G@@QU 'IFUF' @ @@@@A(5) $EQU 'IDOF' @ @@@@A(6) $EUC )@@G@@QU 'IRST' @ @@@@A(7) $EQU 'IABT' @ @@@@A(8) $EUD )@@G@@QU 'IINT' @ @@@@A(9) $EQU 'ITS' @ @@@@A(10) $EUE )@@G@@QU 'ERR$' @F@@@@A(11) $EQU 'IAI' INTER ACUF )@@G@@TIVITY INTERRUPT @ @@@@A(12) $EQU 'BRKPT' @ @@@@A(13) $EUG )@@G@@QU 'PARITY' @ @@@@A(14) $EQU 'TIME' @E@@@@ . UH )@@G@@'TIME' VALUE IS ALSO USED FOR PCT OVERFLOWS @ @@@@A(15) $EQU UI )@@G@@ 'TERM' @[@@@@ . @G@@@@C $EQU 16 FIUJ )@@G@@RST APPLICATION SUBSCRIPT @[@@@@ . @ @@@@A(C) $EQU *'PGUK )@@G@@M' @ @@@@A(C+1) $EQU *'PROGRAM'@ @@@@A(C+2) $EQU *'ACUL )@@G@@T' @A@@@@A(C+3) $EQU *'ACTIVITY' @ @@@@A(C+4) $EQU UM )@@G@@ *'ESI' @ @@@@A(C+5) $EQU *'ESI' @ @@@@A(C+6) $EQU UN )@@G@@ *'CDB' @ @@@@A(C+7) $EQU *'COMMON' @[@@@@ . @B@@@@B(0) UO )@@G@@ $EQU (P(1)=2)+2*(P(1)=3) @F@@@@I $DO B(0) ,J $DUP )@@G@@O A , $DO P(1,I+1)=A(J) ,B(0) $EQU 0@C@@@@I $DO B(0) ,B(I-UQ )@@G@@1) $EQU P(1,I+1) @F@@@@I $DO P(1)-(P(1)>0) ,J $DO A , $DOUR )@@G@@ P(1,I+1)=A(J) ,; @E@@@@B(A(*J)) $EQU B(A(*J))++1*/((J-C*A(*J))*/-US )@@G@@A(*J)-1) @C@@@@DP $EQU (B(0)<0)++(B(0)>1*/12-1) @^@@@@UT )@@G@@ $IF DP @A@@@@IF $FORM 12,6,18,18,18 @#@@@@UU )@@G@@ $ELSE @ @@@@IF $FORM 12,6,18 @#@@@@ $EUV )@@G@@NDF @D@@@@ $DO DP , DL 12,(IF ,B(1),P(1,1),,B(0))@F@@@@UW )@@G@@ $DO (P(1)>0)**1-DP , LA 12,(IF B(0),B(1),P(1,1)) @ @@@@UX )@@G@@ ER IALL$ @#@@@@ $END @[@@@@ . @^@@@@UY )@@G@@P $PROC *1 @^@@@@IALL$P* $NAME 1 @D@@@@ $DUZ )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER IALLVA )@@G@@$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 VB )@@G@@@ @@@@CEND$* $NAME 'CEND$' @ @@@@CRTN$* $NAME 'CRTN$' VC )@@G@@@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . VD )@@G@@@^@@@@P PROC *1 @#@@@@CQUE$* NAME @A@@@@F FOVE )@@G@@RM 6,4,4,4,6,6,6 @I@@@@ DO P(1)>0 , F 8,14,,,P(1,VF )@@G@@2),P(1,3),P(1,2) . LA,U A0, @^@@@@CQUE$P* NAME 1 VG )@@G@@@E@@@@ DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) @D@@@@VH )@@G@@ DO P(0)>1 , LA 13,+(EQUF$ P(0) ) @ @@@@ ERVI )@@G@@ CQUE$ @#@@@@ END @^@@@@P PROC *1 VJ )@@G@@@#@@@@TRMRG$* NAME @B@@@@B EQU +(EQUF$ P(1),1,2) VK )@@G@@@F@@@@ DO (P(1)>0)**(P(0)<2)++($AP(B)<14*/26) , LXM 12,BVL )@@G@@@ @@@@F FORM 3,3,12,18 @F@@@@ DO ((P(1)=0)+VM )@@G@@+($AP(B)<14*/26))**(P(0)>1) , ; @C@@@@ LXI,14 12,(F ,P(0VN )@@G@@,1),P(0,2))*/-18 @H@@@@ DO (P(0)>1)**(P(1)>1)**($AP(B)>14*VO )@@G@@/26-1)**(B<14*/26+0777777) , ;@D@@@@ LA 12,(F ,P(0,1),P(VP )@@G@@0,2),B-14*/26) @^@@@@TRMRG$P* NAME 1 @E@@@@ DO VQ )@@G@@ (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1) ) @ @@@@ ER TRMRVR )@@G@@G$ @#@@@@ END @^@@@@P $PROC *1 @^@@@@SETBP$VS )@@G@@* $NAME 0 @^@@@@L(1) $EQU 'W' @^@@@@L(2) $EQU VT )@@G@@ 'R' @^@@@@L(3) $EQU 'WR'@^@@@@L(4) $EQU 'P' @C@@@@VU )@@G@@ $DO P(0,1)='RW' ,P(0,1) $EQU 3 @D@@@@I $DO VV )@@G@@ L , $DO P(0,1)=L(I) ,P(0,1) $EQU I@D@@@@ $DO P(0)>3 ,P(VW )@@G@@0,1) $EQU P(0,1)++8 @G@@@@P(3) $EQU +($GFORM 18,0,2,0,4,P(VX )@@G@@0,1),6,P(0,2)+63*(P(0)<3)) @D@@@@ $DO P(1)>0 ,P(2) $EQVY )@@G@@U +(EQUF$ P(1),1) @H@@@@ $DO ($AP(P(2))<1*/16)*(P(1)+P(0)VZ )@@G@@>1) , LA 12,+(OPT$$ P(3),P(2))@^@@@@SETBP$P* $NAME 1 @F@@@@ WA )@@G@@ $DO (P(1)>0)**P(0,0)++($AP(P(2))>1*/16-1) , ; @D@@@@ WB )@@G@@ LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) @F@@@@ $DO WC )@@G@@ ($AP(P(2))>1*/16-1)*(P(0)>1) , LXI,14 12,P(3) @G@@@@ $DO WD )@@G@@ P(0)>3-2*P(0,0) , LA 13,+(EQUF$ P(0),3-2*P(0,0),*1) @ @@@@ ERWE )@@G@@ SETBP$ @#@@@@ $END @[@@@@ . @^@@@@P $PWF )@@G@@ROC *1 @#@@@@ABSAD$* $NAME @ @@@@ $DO P(1)>0 , ;WG )@@G@@@F@@@@ LA,14 12,($GFORM 18,P(1,2),18,P(1,3),36,P(1,1)) WH )@@G@@@^@@@@ABSAD$P* $NAME 1 @F@@@@ $DO (P(1)>0)**P(0,0)WI )@@G@@ , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER ABSAD$ @#@@@@WJ )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@ADED$*WK )@@G@@ $NAME 1 @#@@@@ADED$P* $NAME @E@@@@ $D0 P(1)WL )@@G@@>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ER ADED$ WM )@@G@@@#@@@@ $END @[@@@@ . @^@@@@SYSBAL$P* $PROC *1 @#@@@@WN )@@G@@SYSBAL$* $NAME @F@@@@ $DO \\SYSBAL$P(1) , LA 12,+(EQUFWO )@@G@@$ SYSBAL$P(1),1,2)@ @@@@ ER SYSBAL$ @#@@@@ $EWP )@@G@@ND @[@@@@ . @^@@@@Q $PROC *2 @^@@@@COM$PGEN* $NAME WQ )@@G@@ 0 @^@@@@C(1) $EQU 'S' @^@@@@C(2) $EQU 'I' @^@@@@WR )@@G@@C(3) $EQU 'C' @^@@@@C(4) $EQU 'H' @ @@@@B(0) $EWS )@@G@@QU P(0,1) @D@@@@I $DO C , $DO B(0)=C(I) ,B(0) $EQUWT )@@G@@ I-1 @G@@@@ $GFORM 6,0,6,B(0),6,P(2,3),18,0,6,0,12,P(1,2)+5WU )@@G@@0*(P(1)=1),;@ @@@@ 18,P(1,1) @C@@@@ * WV )@@G@@ P(2,2)+50*(P(2)=1),P(2,1) @D@@@@ $DO P(2,3)>31 , $RESWW )@@G@@ 1. FOR RUNID @#@@@@ $END @[@@@@ . @^@@@@P $PWX )@@G@@ROC *2 @^@@@@COM$PKT* $NAME 0 @#@@@@ COM$PGEN@#@@@@WY )@@G@@ $END @[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@MRC-107 CONV TECH MGMT CDOWNING 106E-2XA )@@G@@A DARLING HF 718U/VEHICULAR JAKSA XB )@@G@@ HF 718U/VEHICULAR JAKSA @[E@[E@@@@@[N94906829767XC )@@G@@005111 HF1NA625 HF 5 HF HF ____".___/+'@@@@@@@@@C:U@@@C:U@@@@@@XD )@@G@@@@@C:U@@@ HN___/-8___/-8___/-8@@@@@@@@@ HN@@@[N=@@@@R+@@@@DP@@@@1Y@@@@^7XE )@@G@@@@@@[H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MRC-107 POWER BOX + CABLING CXG )@@G@@HOFFMAN 106E-2A DARLING HF 718U/VEHICULAR XH )@@G@@ JAKSA HF 718U/VEHICULAR JAKSA @[E@[EXI )@@G@@@@@@@[N94907829767005111 HF1NA625 HF 5 HF HF ____"J___8IQ@@@@@@XJ )@@G@@@@@I\T@@@I\T@@@@@@@@@I\T@@@A/@___8G&___8G&___8G&@@@@@@@@@A/@@@@#L!@@@[%4XK )@@G@@@@@@?T@@@@R2@@@@^*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MRC-107 1C CXM )@@G@@ONTROLS/JUNC BOX CROSENBERGER 106E-2A DARLING XN )@@G@@HF 718U/VEHICULAR JAKSA HF 718U/VEHICULAR XO )@@G@@JAKSA @[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2FTJJ[@^\@^\XQ )@@G@@@@R@[E@@@@@[N94908829767005111 HF1NA625 HF 5 HF HF @@@@@1@@@@%0XR )@@G@@2FTJJ[@^\@^\@@R@[E@@@@@[N94908829767005111 HF1NA625 HF 5 HF HF XS )@@G@@@@@@@1@@@@%0@@@@@@@@@@?5@@@@?5@@@@@@@@@@?5@@@[SQ@@@@:-@@@@:-@@@@:-@@@@@@XT )@@G@@@@@[SQ@@@@ U@@@@B<@@@@#&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@MRC-107 REP/REFB GFE ITEMS CDOWNING 106E-2A XW )@@G@@ DARLING HF 718U/VEHICULAR JAKSA HF 718U/VEHIXX )@@G@@CULAR JAKSA @[E@[E@@@@@[N94909829767005111 HF1NA625 XY )@@G@@HF 5 HF HF @@@@@Y@@@^R*@@@@@@@@@ED @@@ED @@@@@@@@@ED @@@I-F@@@^SAXZ )@@G@@@@@^SA@@@^SA@@@@@@@@@I-F@@@@6+@@@['G@@@[8R@@@[U2@@@@E-@@@@^[@@@@ ,@@@@ PYA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@MRC-107 MNTG SHELVES + HDWE CTRANTER 106E-2YC )@@G@@A DARLING HF 718U/VEHICULAR JAKSA YD )@@G@@ HF 718U/VEHICULAR JAKSA @[E@[E@@@@@[N95097823606YE )@@G@@005111 HF1NA625 HF 5 HF HF __________/V@@@@@@@@@ .5@@@ .5@@@@@@YF )@@G@@@@@ .5@@@ 'L____/V____/V____/V@@@@@@@@@ 'L@@@@S:@@@[NF@@@@8+@@@[N3@@@[D]YG )@@G@@@@@@!N@@@@E=@@@@^1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SAUDI PRC-66B DESIGN CYI )@@G@@GRISWOLD SAUDI PRC-66 DARLING HF 718U/VEHICULAR YJ )@@G@@ JAKSA HF 718U/VEHICULAR JAKSA @[E@[EYK )@@G@@@@@@@[N95098823606005111 HF1NA625 HF 5 HF HF _____"____8-@@@@@@YL )@@G@@@@@ASY@@@ASY@@@@@@@@@ASY@@@AK_____8)____8)____8)@@@@@@@@@AK_@@@@#G@@@@A4YM )@@G@@@@@@B/@@@@)2@@@[O<@@@['7@@@]^Y@@@@L8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SAUDI PRC-66YO )@@G@@B BUILD CGRISWOLD SAUDI PRC-66 DARLING YP )@@G@@HF 718U/VEHICULAR JAKSA HF 718U/VEHICULAR YQ )@@G@@JAKSA @[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=,X:3Z@^\@^\YS )@@G@@@@S@[E@@@@@[N95373829924005111 HF1NA625 HF 5 HF HF ____"U____N0YT )@@G@@=,X:3Z@^\@^\@@S@[E@@@@@[N95373829924005111 HF1NA625 HF 5 HF HF YU )@@G@@____"U____N0@@@@@@@@@[U3@@@[U3@@@@@@@@@[U3@@@@?_____MF____MF____MF@@@@@@YV )@@G@@@@@@?_@@@@@@@@@@@@@@@@@@@@@@CD@@@@NA@@@@.?@@@@@T@@@@@@@@@@[Z@@@@@@@@@@@@YW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@916E-1 CIPHER CNTRL CGRISWOLD VEHICULAR COMM YY )@@G@@ DARLING HF 718U/VEHICULAR JAKSA HF 718U/VEHIYZ )@@G@@CULAR JAKSA @[E@[E@@@@@[N95483829767005111 HF1NA625 ZA )@@G@@HF 5 HF HF ____"(____P>@@@@A&@@@[J/@@@[Q+@@@@BQ@@@[X8@@@@2N____OUZB )@@G@@____T3____T3@@@@C<@@@@2N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@#.@@@@F!ZC )@@G@@@@@@[E@@@@@@@@@@"\@@@@A&@@@@#:@@@@#:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@106E-2A CABLES/PWR DIST BOX HOFFMAN 106E-2ZE )@@G@@A DARLING HF 718U/VEHICULAR JAKSA ZF )@@G@@ HF 718U/VEHICULAR JAKSA @[E@[E@@@@@[N95485829767ZG )@@G@@005111 HF1NA625 HF 5 HF HF _____9____';@@@@F:@@@@5D@@@[@4@@@@T^ZH )@@G@@@@@[T8@@@[O>____'?____2:____2:@@@@OZ@@@[O>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@["@@@@C9@@@@#C@@@@FR@@@@#2@@@@S[@@@@F:@@@@LH@@@@^6@@@@#[@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@106E-2A PE ON T/L ZK )@@G@@DOWNING 106E-2A DARLING HF 718U/VEHICULAR ZL )@@G@@ JAKSA HF 718U/VEHICULAR JAKSA @[E@[EZM )@@G@@@@@@@[N95486829767005111 HF1NA625 HF 5 HF HF @@@@[F@@@[K&@@@@@@ZN )@@G@@@@@@QY@@@@QY@@@@#Y@@@@T/@@@[:<@@@[L$@@@[AN@@@[AN@@@@FV@@@[:<@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@B/@@@@ .@@@@[Z@@@@@@@@@@@@@@@@BA@@@@@@@@@@#[@@@@@XZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CONTROL/J-BOZQ )@@G@@X ROSENBERGER 106E-2A DARLING ZR )@@G@@HF 718U/VEHICULAR JAKSA HF 718U/VEHICULAR ZS )@@G@@JAKSA @[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@V\U9.?@^\@^\@@T@[E@@@@@[N95487829767005111 HF1NA625 HF 5 HF HF ZW )@@G@@@@@@[C@@@@/,____*<@@@@+;@@@@FZ@@@@F?@@@@RF@@@[O@@@@@/5@@@@AQ@@@@AQ@@@@%\ZX )@@G@@@@@[O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]7@@@@# @@@@E @@@@@2@@@@MCZY )@@G@@____*<@@@@F?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@MRC-107 MT HDWE TRANTER 106E-2A AA )@@G@@ DARLING HF 718U/VEHICULAR JAKSA HF 718U/VEHIAB )@@G@@CULAR JAKSA @[E@[E@@@@@[N95269CL7HF1005111 HF1NA437 AC )@@G@@HF 7 HF HF @@@@[I@@@#\!@@@@@@@@@[@$@@@[@$@@@@@@@@@[@$@@@^1[@@@#0UAD )@@G@@@@@]EW@@@]EW@@@@S5@@@^1[@@@@@@@@@@@@@@@@@@@@@@@@@@@@D#@@@@P=@@@@AO@@@@@+AE )@@G@@@@@@EC@@@@EQ@@@@[?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@VEH PROD DATA SHEET CBERGERON FY-80 AG )@@G@@COMMERCIAL COLLATERAL JAKSA HF 718U/VEHICULAR JAKSA AH )@@G@@ HF 718U/VEHICULAR JAKSA @[E@[E@@@@@[N95270CL7HF1AI )@@G@@005111 HF1NA437 HF 7 HF HF _____4____O5@@@@L6@@@AFY@@@AXO@@@@@@AJ )@@G@@@@@AXO@@@ 12____OX___"&\___"&\@@@@_=@@@ 12@@@@@@@@@@]-@@@@^2@@@@OL@@@[____I8____I8@@@@H2@@@^8)@@@@@@@@@@@@@@@@@@@@@@X.@@@]3DBM )@@G@@@@@@9;@@@@%'@@@@KQ@@@@BE@@@@]2@@@@#G@@@@J\@@@@#T@@@@#T@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@719D-10/40 R+D BO )@@G@@KLEMETSON PRC 515 JOYCE HF PRC-515-PACKSETBP )@@G@@S JAKSA HF PRC-515-PACKSETS JAKSA @[E@[EBQ )@@G@@@@@@@[N95491823947005111 HF1NB314 HF 4 HF HF _____/____71@@@@]-BR )@@G@@@@@#;^@@@#.>@@@@^%@@@^]J@@@#'@____70____;]____;]@@@@[N@@@#'@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@[Z@@@@9K@@@@="@@@[%2@@@@Y>@@@@M@@@@@]-@@@@]P@@@@]PBT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@514A-7 TSO TBU )@@G@@EST KAVLIE 514A-7 DARLING BV )@@G@@HF 718U/VEHICULAR JAKSA HF 718U/VEHICULAR BW )@@G@@JAKSA @[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4&LN]>@^\@^\BY )@@G@@@@V@[E@@@@@[N93436823400005112 HF2NB625 HF 5 HF HF @@@@@@@@@@[-BZ )@@G@@4&LN]>@^\@^\@@V@[E@@@@@[N93436823400005112 HF2NB625 HF 5 HF HF CA )@@G@@@@@@@@@@@@[-@@@@Y;@@@RC=@@@R$Z@@@]QV@@@T.'@@@T_V@@@@[-@@@@G @@@@G @@@@%^CB )@@G@@@@@T_V@@@@_#@@@]#J@@@[Q)@@@#N%@@@[-W@@@@/U@@@[Q#@@@D.S@@@]CT___7Q2@@@@?NCC )@@G@@@@@@Y;@@@@2D@@@@2D@@@@2D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@YUGO PACKSET P E HARO YUGO PACKSET PROD ENG CE )@@G@@ JOYCE HF PRC-515-PACKSETS JAKSA HF PRC-515-PCF )@@G@@ACKSETS JAKSA @[E@[E@@@@@[N95533823960005111 HF1NB625 CG )@@G@@HF 5 HF HF _____(____;;@@@@@@@@@@R/@@@@R/@@@@@@@@@@R/@@@@N+____;>CH )@@G@@____;>____;>@@@@@@@@@@N+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@I*CI )@@G@@@@@@DH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@499R-19A CONN KIT CKLEMETSON 499R-1CK )@@G@@9A DARLING HF 718U/VEHICULAR JAKSA CL )@@G@@ HF 718U/VEHICULAR JAKSA @[E@[E@@@@@[N95228CL7HF1CM )@@G@@005111 HF1NB437 HF 7 HF HF _____?____KW@@@@@S@@@^(:@@@^%#@@@@@@CN )@@G@@@@@^%#@@@#'@____J/___"\?___"\?@@@@)*@@@#'@@@@[$H@@@@?S@@@@X9@@@@Z$@@@@<%CO )@@G@@@@@@^(@@@@ K@@@@B=@@@@KS@@@@DW@@@@D:@@@@@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@718U-4/5 ACCESS P E CCQ )@@G@@ACKERMAN FY-80 COMMERCIAL COLLATERAL JAKSA HF 718U/VEHICULAR CR )@@G@@ JAKSA HF 718U/VEHICULAR @[@@@#*. @A@@@#*. HCS )@@G@@15515 PART 3: GENERATE JCL @[@@@#*. @#@@@#*IF ERROR IS SET @B@@@#CT )@@G@@#MSG,N RUN ABORTED DUE TO SGS ERROR @^@@@##BL RUN,ABORT CU )@@G@@@[@@@##FIN @[@@@#*ELSE @#@@@#*IF RECOV IS CLEAR@^@@@##BL INIT,STCV )@@G@@ART @^@@@##MSG INITIAL START@B@@@##QUAL H155-JA-[P2),1,6,1]CW )@@G@@[P2),1,4,1] @#@@@##ASG,AX *CTCF. @[@@@##END @^@@@##ASG,AX *DE-FILCX )@@G@@E. @[@@@##END @ @@@##ASG,AX *MTH-ACNT-SUM. @[@@@##END @^@@@#CY )@@G@@#ASG,AX *KP-CARDS. @[@@@##END @^@@@A#ASG,AX *QUIP-CARDS. @ @@@#CZ )@@G@@#CYCLE,C *UTILIZ-RPT.,0 @[@@@##END @ @@@##CAT,P *UTILIZ-RPT.,DA )@@G@@F @[@@@##END @^@@@##ASG,AX *UTILIZ-RPT. @[@@@##END @ @@@##CYCLEDB )@@G@@,C *MTH-COST-SUM.,0 @[@@@##END @A@@@##CAT,P *MTH-COST-SUM.,F///DC )@@G@@500 @[@@@##END @ @@@##ASG,AX *MTH-COST-SUM. @[@@@##END @#@@@#DD )@@G@@*IF SEL1 IS SET @D@@@##ASG,AX H155-JA-[P4A),1,8,1][P4A),1,6,1]*YTD-DE )@@G@@ACNT. @[@@@##END @G@@@##USE OLD-YTD-ACNT.,H155-JA-[P4A),1,8,1][P4DF )@@G@@A),1,6,1]*YTD-ACNT. @[@@@#*END @^@@@##CYCLE,C *YTD-ACNT.,0 @[@@@#DG )@@G@@#END @ @B@##CAT,P *YTD-ACNT.,F///1000@ @@@B#CAT,P *YTD-ACNT.,F/DH )@@G@@//1500@[@@@##END @^@@@##ASG,AX *YTD-ACNT. @[@@@##END @A@@@##USE DI )@@G@@ NEW-YTD-ACNT.,*YTD-ACNT. @^@@@##ASG,AX *SCS-SUMMARY.@[@@@##END DJ )@@G@@@^@@@##XQT H155.H1551060@]@@@##PMD,AELP @^@@@##FREE *UTILIZDK )@@G@@-RPT. @B@@@##SYM *UTILIZ-RPT.,[P5),1,6,1],PR @^@@@##FREE *DL )@@G@@DE-FILE. @ @@@##FREE *MTH-ACNT-SUM. @^@@@##FREE *KP-CARDM )@@G@@DS. @^@@@##FREE NEW-YTD-ACNT.@^@@@##FREE *SCS-SUMMARY.@#@@@#DN )@@G@@*IF SEL1 IS SET @^@@@##FREE OLD-YTD-ACNT.@[@@@#*END @ @@@##BL DO )@@G@@ CHECK,POINT,CP1 @ @@@##MSG CHECK-POINT CP1 @^@@@##ASG,ADP )@@G@@X *TABLE-JA. @[@@@##END @A@@@##USE TABLEDISC-JA.,*TABLE-JA. DQ )@@G@@@ @@@##ASG,AX *BILL-ADJ-CDS. @[@@@##END @ @@@##CYCLE,C *DP-SRVDR )@@G@@S-BILL.,0 @[@@@##END @ @@@##CAT,P *DP-SRVS-BILL.,F @[@@@##END DS )@@G@@@ @@@##ASG,AX *DP-SRVS-BILL. @[@@@##END @ @@@##CYCLE,C *DP-SRVDT )@@G@@S-SUM.,0 @[@@@##END @A@ @##CAT,P *DP-SRVS-SUM.,F///300 @A@@@ DU )@@G@@#CAT,P *DP-SRVS-SUM.,F///1000 @[@@@##END @^@@@##ASG,AX *DP-SRVDV )@@G@@S-SUM.@[@@@##END @#@@@#*IF SEL2 IS SET @E@@@##ASG,AX H155-JA-[P6A)DW )@@G@@,1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@##END @G@@@##USE OLD-YTDDX )@@G@@-SUM.,H155-JA-[P6A),1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@#*END @ @@@#DY )@@G@@#CYCLE,C *YTD-ACNT-SUM.,0 @[@@@##END @A@@@##CAT,P *YTD-ACNT-SUMDZ )@@G@@.,F///500 @[@@@##END @ @@@##ASG,AX *YTD-ACNT-SUM. @[@@@##END EA )@@G@@@B@@@##USE NEW-YTD-SUM.,*YTD-ACNT-SUM. @^@@@##XQT H155.H1EB )@@G@@551070@^@@@A#ADD,EP *QUIP-CARDS. @^@@@A#FREE *QUIP-CARDS. @ @@@#EC )@@G@@#FREE *DP-SRVS-BILL. @B@@@##SYM *DP-SRVS-BILL.,[P8),1,7,1ED )@@G@@],PR @^@@@##FREE *DP-SRVS-SUM.@B@@@##SYM *DP-SRVS-SUM.,[P7),EE )@@G@@1,7,1],PR @ @@@##FREE *BILL-ADJ-CDS. @ @@@##FREE *MTH-COEF )@@G@@ST-SUM. @#@@@#*IF SEL2 IS SET @^@@@##FREE OLD-YTD-SUM. @[@@@#EG )@@G@@*END @ @@@##BL CHECK,POINT,CP2 @ @@@##MSG CHECK-POINT CEH )@@G@@P2 @ @@@##CYCLE,C *MTH-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *EI )@@G@@MTH-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *MTH-DP-RPT. @[@@@#EJ )@@G@@#END @ @@@##CYCLE,C *YTD-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *EK )@@G@@YTD-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *YTD-DP-RPT. @[@@@#EL )@@G@@#END @^@@@##XQT H155.H1551080@ @@@##FREE *YTD-ACNT-SUM. EM )@@G@@@^@@@##FREE *MTH-DP-RPT. @B@@@##SYM *MTH-DP-RPT.,[P9),1,6,1],EN )@@G@@PR @^@@@##FREE *YTD-DP-RPT. @B@@@##SYM *YTD-DP-RPT.,[P10),EO )@@G@@1,6,1],PR @#@@@##FREE *CTCF. @ @@@##BL CHECK,POINT,CP3 EP )@@G@@@ @@@##MSG CHECK-POINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.,0 EQ )@@G@@@[@@@##END @ @@@##CAT,P *DP-LCH-LIST.,F @[@@@##END @^@@@##ASG,AER )@@G@@X *DP-LCH-LIST.@[@@@##END @^@@@##XQT H155.H1551090@^@@@##FREE ES )@@G@@ *DP-LCH-LIST.@B@@@##SYM *DP-LCH-LIST.,[P11),1,6,1],PR @^@@@#ET )@@G@@#FREE TABLEDISC-JA.@^@@@##BL NORMAL,FINISH@^@@@##MSG NEU )@@G@@ORMAL FINISH@[@@@#*ELSE @#@@@#*IF CKPT1 IS SET @ @@@##BL RESTRT,EV )@@G@@FROM,CP1 @ @@@##MSG RESTART FROM CP1 @B@@@##QUAL H155-JAEW )@@G@@-[P2),1,6,1][P2),1,4,1] @^@@@A#ASG,AX *QUIP-CARDS. @#@@@##ASG,AX *EX )@@G@@CTCF. @[@@@##END @ @@@##ASG,AX *MTH-COST-SUM. @[@@@##END @^@@@#EY )@@G@@#ASG,AX *TABLE-JA. @[@@@##END @A@@@##USE TABLEDISC-JA.,*TABLEZ )@@G@@E-JA. @ @@@##ASG,AX *BILL-ADJ-CDS. @[@@@##END @ @@@##CYCLE,C *FA )@@G@@DP-SRVS-BILL.,0 @[@@@##END @ @@@##CAT,P *DP-SRVS-BILL.,F @[@@@#FB )@@G@@#END @ @@@##ASG,AX *DP-SRVS-BILL. @[@@@##END @ @@@##CYCLE,C *FC )@@G@@DP-SRVS-SUM.,0 @[@@@##END @A@ @##CAT,P *DP-SRVS-SUM.,F///300 FD )@@G@@@A@@@ #CAT,P *DP-SRVS-SUM.,F///1000 @[@@@##END @^@@@##ASG,AX *FE )@@G@@DP-SRVS-SUM.@[@@@##END @#@@@#*IF SEL2 IS SET @E@@@##ASG,AX H155-JAFF )@@G@@-[P6A),1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@##END @G@@@##USE OFG )@@G@@LD-YTD-SUM.,H155-JA-[P6A),1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@#*END FH )@@G@@@ @@@##CYCLE,C *YTD-ACNT-SUM.,0 @[@@@##END @A@@@##CAT,P *YTD-ACFI )@@G@@NT-SUM.,F///500 @[@@@##END @ @@@##ASG,AX *YTD-ACNT-SUM. @[@@@#FJ )@@G@@#END @B@@@##USE NEW-YTD-SUM.,*YTD-ACNT-SUM. @^@@@##XQT HFK )@@G@@155.H1551070@^@@@A#ADD,EP *QUIP-CARDS. @^@@@A#FREE *QUIP-CARDS. FL )@@G@@@ @@@##FREE *DP-SRVS-BILL. @B@@@##SYM *DP-SRVS-BILL.,[P8)FM )@@G@@,1,7,1],PR @^@@@##FREE *DP-SRVS-SUM.@B@@@##SYM *DP-SRVS-SUM.FN )@@G@@,[P7),1,7,1],PR @ @@@##FREE *BILL-ADJ-CDS. @ @@@##FREE *FO )@@G@@MTH-COST-SUM. @#@@@#*IF SEL2 IS SET @^@@@##FREE OLD-YTD-SUM. FP )@@G@@@[@@@#*END @ @@@##BL CHECK,POINT,CP2 @ @@@##MSG CHECK-PFQ )@@G@@OINT CP2 @ @@@##CYCLE,C *MTH-DP-RPT.,0 @[@@@##END @A@@@##CAT,PFR )@@G@@ *MTH-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *MTH-DP-RPT. FS )@@G@@@[@@@##END @ @@@##CYCLE,C *YTD-DP-RPT.,0 @[@@@##END @A@@@##CAT,PFT )@@G@@ *YTD-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *YTD-DP-RPT. FU )@@G@@@[@@@##END @^@@@##XQT H155.H1551080@ @@@##FREE *YTD-ACNT-SUMFV )@@G@@. @^@@@##FREE *MTH-DP-RPT. @B@@@##SYM *MTH-DP-RPT.,[P9),1FW )@@G@@,6,1],PR @^@@@##FREE *YTD-DP-RPT. @B@@@##SYM *YTD-DP-RPT.,FX )@@G@@[P10),1,6,1],PR @#@@@##FREE *CTCF. @ @@@##BL CHECK,POINT,CFY )@@G@@P3 @ @@@##MSG CHECK-POINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.FZ )@@G@@,0 @[@@@##END @ @@@##CAT,P *DP-LCH-LIST.,F @[@@@##END @^@@@#GA )@@G@@#ASG,AX *DP-LCH-LIST.@[@@@##END @^@@@##XQT H155.H1551090@^@@@#GB )@@G@@#FREE *DP-LCH-LIST.@B@@@##SYM *DP-LCH-LIST.,[P11),1,6,1],PR GC )@@G@@@^@@@##FREE TABLEDISC-JA.@^@@@##BL NORMAL,FINISH@^@@@##MSG GD )@@G@@ NORMAL FINISH@[@@@#*END @#@@@#*IF CKPT2 IS SET @ @@@##BL RGE )@@G@@ESTRT,FROM,CP2 @ @@@##MSG RESTART FROM CP2 @B@@@##QUAL HGF )@@G@@155-JA-[P2),1,6,1][P2),1,4,1] @#@@@##ASG,AX *CTCF. @[@@@##END @ @@@#GG )@@G@@#ASG,AX *YTD-ACNT-SUM. @[@@@##END @^@@@##ASG,AX *TABLE-JA. GH )@@G@@@[@@@##END @A@@@##USE TABLEDISC-JA.,*TABLE-JA. @ @@@##CYCLE,C *GI )@@G@@MTH-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *MTH-DP-RPT.,F///300 GJ )@@G@@@[@@@##END @^@@@##ASG,AX *MTH-DP-RPT. @[@@@##END @ @@@##CYCLE,C *GK )@@G@@YTD-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *YTD-DP-RPT.,F///300 GL )@@G@@@[@@@##END @^@@@##ASG,AX *YTD-DP-RPT. @[@@@##END @^@@@##XQT HGM )@@G@@155.H1551080@ @@@##FREE *YTD-ACNT-SUM. @^@@@##FREE *MTH-DPGN )@@G@@-RPT. @B@@@##SYM *MTH-DP-RPT.,[P9),1,6,1],PR @^@@@##FREE *GO )@@G@@YTD-DP-RPT. @B@@@##SYM *YTD-DP-RPT.,[P10),1,6,1],PR @#@@@##FREE GP )@@G@@ *CTCF. @ @@@##BL CHECK,POINT,CP3 @ @@@##MSG CHECK-PGQ )@@G@@OINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.,0 @[@@@##END @ @@@##CAT,PGR )@@G@@ *DP-LCH-LIST.,F @[@@@##END @^@@@##ASG,AX *DP-LCH-LIST.@[@@@#GS )@@G@@#END @^@@@##XQT H155.H1551090@^@@@##FREE *DP-LCH-LIST.@B@@@#GT )@@G@@#SYM *DP-LCH-LIST.,[P11),1,6,1],PR @^@@@##FREE TABLEDISC-JA.GU )@@G@@@^@@@##BL NORMAL,FINISH@^@@@##MSG NORMAL FINISH@[@@@#*END GV )@@G@@@#@@@#*IF CKPT3 IS SET @ @@@##BL RESTRT,FROM,CP3 @ @@@##MSG GW )@@G@@ RESTART FROM CP3 @B@@@##QUAL H155-JA-[P2),1,6,1][P2),1,4,1] GX )@@G@@@^@@@##ASG,AX *TABLE-JA. @[@@@##END @A@@@##USE TABLEDISC-JA.GY )@@G@@,*TABLE-JA. @ @@@##BL CHECK,POINT,CP3 @ @@@##MSG CHECK-PGZ )@@G@@OINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.,0 @[@@@##END @ @@@##CAT,PHA )@@G@@ *DP-LCH-LIST.,F @[@@@##END @^@@@##ASG,AX *DP-LCH-LIST.@[@@@#HB )@@G@@#END @^@@@##XQT H155.H1551090@]@@@#@PMD,PALE @^@@@##FREE *HC )@@G@@DP-LCH-LIST.@B@@@##SYM *DP-LCH-LIST.,[P11),1,6,1],PR @^@@@##FREE HD )@@G@@ TABLEDISC-JA.@^@@@##BL NORMAL,FINISH@^@@@##MSG NORMAL HE )@@G@@FINISH@[@@@#*END @[@@@#*END @[@@@#*END ___@@#*END @[@@@#*ELSE @B@@@#HF )@@G@@#MSG,N SGS ERROR: PARAM (P6A) MISSING @]@@@#*SET ERROR @[@@@#*END HG )@@G@@@[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. *[S@@@*SDFF*@A@@@@*. PROHH )@@G@@GRAM NAME: H15516 (LEV 1R1) @ @@@@*. AUTHOR: D. E. RAGSDALE @ @@@@HI )@@G@@*. DATE WRITTEN: MAY 01, 1979 @C@@@@*. INSTALLATION: TX DEPT OF HEALTH, HJ )@@G@@AUSTIN, TX @F@@@@*. PROGRAM FUNC: SSG RUNSTREAM DRIVER FOR JOB ACCOUNTIHK )@@G@@NG SYSTEM. @[@@@@*. @#@@@@*. SGS PARAMELTER @[@@@@*. @F@@@@*. P1)HL )@@G@@ ACCOUNTING FILES TO BE BACKED UP ARE FOR: MONTH MM YEAR YY @[@@@@*. HM )@@G@@@[@@@@*. @]@@@@*CLEAR ERROR@[@@@@*. @ @@@@*. CHECK PARAMETER SYNTHN )@@G@@AX @[@@@@*. @#@@@@*IF [P1)] > 0 @#@@@@*IF [P1),1] = 12 @B@@@@HO )@@G@@*IF [P1),1,10,1] < 01 OR [P1),1,10,1] > 12@F@@@@#MSG,N SGS ERROR: MOHP )@@G@@NTH SPECIFIED ON PARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END HQ )@@G@@@B@@@@*IF [P1),1,12,1] < 77 OR [P1),1,12,1] > 99@F@@@@#MSG,N SGS ERRHR )@@G@@OR: YEAR SPECIFIED ON PARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@HS )@@G@@*END @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: PARAM (P1) HAS INCORRECT NHT )@@G@@O. OF FIELDS@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SHU )@@G@@GS ERROR: PARAM (P1) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. HV )@@G@@@#@@@@*. GENERATE JCL @[@@@@*. @#@@@@*IF ERROR IS SET @B@@@@#MSG,NHW )@@G@@ RUN ABORTED DUE TO SGS ERROR @^@@@@#MSG RUN ABORT @[@@@@HX )@@G@@*ELSE @^@@@@#ASG,TN IBACKUP.,T @ @@@@#ASG,TNF OBACKUP.,T,,400 HY )@@G@@@]@@@@#SECURE,IL @D@@@@ SAVE ALL QUALIFIER H155-JA-[P1),1,12,1][P1),1,1HZ )@@G@@0,1] @[@@@@#EOF @[@@@@*END ___AC(^[CCDN^[DD1#D9MEL CTO^[ID8,^[JC0)C1DIA )@@G@@C(GC-N@#@@@@ LNC(O^[ ELMD9M^@)@[@@@@ L D1^@]@@@@ L D-NC*)^@)@E@@@@^THETBIB )@@G@@ -I^@)^@)^[NC9N^[ ELMD9MBK)E[[EL[D*) [KAC(^[HDDN*[S@@@*SDFF*@A@@@] IC )@@G@@ IDENTIFICATION DIVISION. @ @@@] PROGRAM-ID. 'H1550020'.@^@@@]ID )@@G@@ AUTHOR. R B RUDY.@A@@@] DATE-WRITTEN. 25 APRIL 1978. @^@@@]IE )@@G@@ DATE-COMPILED. @ @@@] *REMARKS. ASCII ANS-1974@F@@@] IF )@@G@@* THIS PROGRAM SELECTS THE SYSTEM LOG RECORDS NEEDED FOR @G@@@] IG )@@G@@* ACCOUNTING AND SYSTEM STATUS FILE CREATION, AND SELECTS @F@@@]IH )@@G@@ * REFORMATS INTO ACCOUNT-NO, RUN-ID, DATE/TIME @G@@@]II )@@G@@ * ORDER THE LOG RECORDS USED TO GENERATE THE ACCOUNTING IJ )@@G@@@E@@@] * FILE RECORDS TO BE SORTED FOR H1550030. @G@@@]IK )@@G@@ * TWO PROGRAMS ARE OPTIONALLY PRINTED; A LISTING OF THE IL )@@G@@@G@@@] * OPERATOR ALLOWED RUNS, AND THE ACCOUNT-FILE REFEREIM )@@G@@NCE @G@@@] * REPORT WHICH DETAILS ANY ACCESSES OF ONE ACCIN )@@G@@OUNT GROUP @A@@@] * BY ANOTHER GROUP. @]@@@] * IO )@@G@@@ @@@] * CHANGE 13 MAY 80 @C@@@] * CONVERT TO ANS 1974IP )@@G@@ COBOL (ACOB4). @]@@@] * @C@@@] * CHANGE #2 08/19/8IQ )@@G@@0 D. HEROLD @E@@@] * 1. MODIFY TO ACCEPT SYSTEM LOGS FROM IR )@@G@@1100/60. @C@@@] * (A) TYPE 4 NO LONGER HAS CPU. @B@@@]IS )@@G@@ * (B) TYPE 17 CPU MOVED. @A@@@] * 2. REMOVE UP-IT )@@G@@TIME CODE. @]@@@] * @ @@@] ENVIRONMENT DIVISION. @ @@@]IU )@@G@@ CONFIGURATION SECTION. @ @@@] COPY COMPUTER-NAMES. @^@@@]IV )@@G@@ SPECIAL-NAMES. @ @@@] COPY DEVICE-NAMES. @ @@@] IW )@@G@@ INPUT-OUTPUT SECTION. @^@@@] FILE-CONTROL. @D@@@] SIX )@@G@@ELECT QUIP-CARDS ASSIGN TO CARD-READER. @F@@@] SELECT LOG-CAIY )@@G@@RD ASSIGN TO CARD-PUNCH INT-ACCT-VOL. @F@ @] SELECT DISCOUIZ )@@G@@T2 ASSIGN TO MASS-STORAGE INTERIM-ACCT. @G@@@ SELECT INTERIJA )@@G@@M-FILE ASSIGN TO MASS-STORAGE INTERIM-ACCT. @D@@@] SELECT JB )@@G@@AFPRINT ASSIGN TO PRINTER AFPRINTER.@D@@@] SELECT OPPRINT ASSIJC )@@G@@GN TO PRINTER OPPRINTER.@]@@@] / @^@@@] DATA DIVISION. JD )@@G@@@^@@@] FILE SECTION. @@@@@]@^@@@] FD QUIP-CARDS @A@@@]JE )@@G@@ LABEL RECORDS OMITTED. @@@@@]@^@@@] 01 QUIP-CARD. JF )@@G@@@D@@@] 03 QUIP-COMMAND PIC X(15).@D@@@] JG )@@G@@ 03 QUIP-ACCNT PIC X(12).@D@@@] 03 FILLJH )@@G@@ER PIC X(53).@@@@@]@^@ @] FD DISCOUT2 JI )@@G@@@^@@@ FD INTERIM-FILE @F@@@] LABEL RECORDS ARE STANDARJJ )@@G@@D BLOCK CONTAINS 6 RECORDS @F@@@] DATA RECORD IS ITERIM REJK )@@G@@CORDING MODE IS INTERNAL. @@@@@]@E@@@] 01 ITERIM USAGE IS DIJL )@@G@@SPLAY-1 PIC X(204). @@@@@]@#@@@] FD AFPRINT@E@@@] JM )@@G@@ LABEL RECORDS ARE OMITTED DATA RECORD IS AFPRT. @@@@@]@E@@@] JN )@@G@@ 01 AFPRT PIC X(132). @@@@@]@#@@@] JO )@@G@@ FD OPPRINT@E@@@] LABEL RECORDS ARE OMITTED DATA RECORD IS OPJP )@@G@@PRT. @@@@@]@E@@@] 01 OPPRT PIC X(1JQ )@@G@@32). @@@@@]@^@@@] FD LOG-CARD @E@@@] LABEL RECORDSJR )@@G@@ ARE OMITTED DATA RECORD IS L-CARD. @@@@@]@#@@@] 01 L-CARD.@D@@@]JS )@@G@@ 02 L-TITLE PIC X(9). @D@@@] 0JT )@@G@@2 LOG-V PIC 9(6). @D@@@] 02 FILLER JU )@@G@@ PIC X(65). @]@@@] / @A@@@] WORKING-STOJV )@@G@@RAGE SECTION. @I@@@] 77 DIFF VALUE ZERO PJW )@@G@@IC S9(10) COMP-4. TIMEDIFF@I@@@] 77 Q VALUE ZERO JX )@@G@@ PIC S99. SUBSCRPT @I@@@] 77 QJY )@@G@@1 VALUE ZERO PIC S9(10) COMP-4. SUBSCRPTJZ )@@G@@@I@@@] 77 Q2 VALUE ZERO PIC S9(10) COMP-4. KA )@@G@@ SUBSCRPT@I@@@] 77 Q3 VALUE ZERO PKB )@@G@@IC S9(10) COMP-4. SUBSCRPT@I@@@] 77 Q4 VALUE 1 KC )@@G@@ PIC S99. SUBSCRPT @F@@@] 77 DKD )@@G@@ATE-AREA VALUE SPACE PIC X(6) DISPLAY-1.@G@@@] 77 DKE )@@G@@ATE-EIGHT VALUE SPACE PIC X(8) DISPLAY-1. @E@@@] KF )@@G@@ 77 IND VALUE '1' PIC X DISPLAY-1. @E@@@] 77 SKG )@@G@@TATT VALUE 0 PIC 9(10) COMP-4. @E@@@] 77 INDX KH )@@G@@ VALUE ZERO PIC S9(10) COMP-4.@E@@@] 77 AFPG VAKI )@@G@@LUE ZERO PIC S999. @E@@@] 77 OPPG VALUE ZEKJ )@@G@@RO PIC S999. @F@@@] 77 CTR VALUE ZERO KK )@@G@@ PIC S9(10) COMP-4. @E@#@] 77 INC VALUE ZERO KL )@@G@@ PIC S9(10) COMP-4. @E@@@# 77 INC PIC 9(1KM )@@G@@0) COMP-4 VALUE 0.@F@@@] 77 LOG-VOL VALUE ZERO PKN )@@G@@IC S9(18) COMP-4. @E@@@] 77 STAT VALUE 0 PIC S9(10KO )@@G@@) COMP-4. @E@@@] 77 REC-V VALUE 0 PIC S9(10) COMPKP )@@G@@-4. @I@@@] 77 CKDEV9 VALUE 30 PIC S9(10) COKQ )@@G@@MP-4. CMSDEVIC@E@@@] 77 DATE9 VALUE ZERO KR )@@G@@ PIC 9(6). @D@@@] 77 T30-SW VALUE ZERO PKS )@@G@@IC S9.@E@@@] 77 NSA-SW VALUE ZERO PIC S99. KT )@@G@@@E@@@] 77 NSA-SW9 VALUE ZERO PIC S99. @E@@@]KU )@@G@@ 77 NSA-9 VALUE ZERO PIC S99. @D@@@] KV )@@G@@ 77 LOG-SW VALUE ZERO PIC S9.@E@@@] 77 BLNK VKW )@@G@@ALUE SPACE PIC X(132) DISP-1. @F@@@] 77 OP-CARD VALUEKX )@@G@@ '@ASG,CP OPPRINTER.,F///500 ' PIC X(80). @F@@@] 77 AF-CARD VALUEKY )@@G@@ '@ASG,CP AFPRINTER.,F///500 ' PIC X(80). @E@@@] 77 AF-FREE VALUEKZ )@@G@@ '@FREE,C AFPRINTER. ' PIC X(80). @E@@@] 77 OP-FREE VALUE '@FRELA )@@G@@E,C OPPRINTER. ' PIC X(80). @E@@@] 77 AF-SYM VALUE '@SYM AFPRLB )@@G@@INTER.,,PR ' PIC X(80). @E@@@] 77 OP-SYM VALUE '@SYM OPPRINTER.LC )@@G@@,,PR ' PIC X(80). @E@@@] 77 C-CARD USAGE IS DISPLAY-1 PLD )@@G@@IC X(80). @E@@@] 77 OP-LINES VALUE ZERO PIC S99LE )@@G@@. @E@@@] 77 AF-LINES VALUE ZERO PIC S99. LF )@@G@@@F@@@] 77 STD-ACCT VALUE '@@@@@@@@@@@@' PIC X(12) DISP-1. LG )@@G@@@F@@@] 77 INSTL VALUE 'INSTALLATION' PIC X(12) DISP-1. LH )@@G@@@E@@@] 77 PUBLIC VALUE 'PUBLIC ' PIC X(12) DISP-1. @E@@@]LI )@@G@@ 77 UNIVAC VALUE 'UNIVAC ' PIC X(12) DISP-1. @D@@@] LJ )@@G@@ 77 ASTR VALUE '*' PIC X DISP-1. @D@@@] 77 SLASH LK )@@G@@ VALUE '/' PIC X DISP-1. @D@#@] 77 M-S VALUE 'MSBLL )@@G@@EG ' PIC X(6) DISP-1. @D@#@] 77 T-A-P-E VALUE 'TAPBEG' PIC X(LM )@@G@@6) DISP-1. @C@@@] 77 R3-SW PIC 9 VALUE 0. @C@ @]LN )@@G@@ 77 P2 PIC 9(5) COMP. @C@@@ 77 GRAN-SULO )@@G@@B PIC 9(5) COMP. @D@@@] 77 QUIP-CNT PIC 9LP )@@G@@(10) COMP VALUE 0.@D@@@] 77 LAST-QUIP-ACCNT PIC X(12) VALUE SLQ )@@G@@PACES.@@@@@]@D@ @] 01 C-TIME PIC 9(10) COMP-4. LR )@@G@@@C@@@ 01 C-TIME PIC 1(36). @C@@@] 01 CLS )@@G@@-TIME-X REDEFINES C-TIME DISP-1. @C@@@] 03 TIME-YY LT )@@G@@ PIC 1(6). @C@@@] 03 TIME-MM PIC 1(6). LU )@@G@@@C@@@] 03 TIME-DD PIC 1(6). @D@@@] 0LV )@@G@@3 TIME-SECS PIC 9(5) COMP-4. @@@@@]@C@@@] 01 SW-QUIPLW )@@G@@-EOF PIC X VALUE 'N'. @C@@@] 88 QUIP-EOF LX )@@G@@ VALUE 'Y'. @@@@@]@B@@@] 01 SW-VALID-ACCT-NO PIC X . @C@@@]LY )@@G@@ 88 VALID-ACCT-NO VALUE 'Y'. @]@@@] / @^@A@]LZ )@@G@@ 01 INTERIM-1. @B@@@A 01 INTERIM-1 DISP-1.MA )@@G@@@ @@@] 02 INT-RCD-1. @G@#@] 03 LOG-ENTRY-TYPMB )@@G@@E PIC 9 COMP-4. @E@ @# 03 LOG-ENTMC )@@G@@RY-TYPE PIC 9 COMP-4.@E@@@ 03 LOG-ENTRY-TYPMD )@@G@@E PIC 1(6). @H@#@] 03 NUM-WDS-IN-ENTRY ME )@@G@@ PIC S9 COMP-4. @F@@@# 03 NUM-WDSMF )@@G@@-IN-ENTRY PIC S9 COMP-4. @F@A@] 03 FILLER MG )@@G@@ PIC X(4) DISP-1. @E@@@A 03 FILLER MH )@@G@@ PIC X(4). @F@A@] 03 FILLER MI )@@G@@ PIC X(144) DISP-1. @E@@@A 03 FILLER MJ )@@G@@ PIC X(144). @E@@@] 03 DTIM MK )@@G@@ PIC 1(36). @B@@@] 03 D-T-IM REDEFINES DTIM. ML )@@G@@@E@@@] 04 DT PIC 1(18). @F@@@]MM )@@G@@ 04 TIM PIC 9(5) COMP-4. @F@@@]MN )@@G@@ 03 INT1-INC PIC 9(10) COMP-4. @F@A@]MO )@@G@@ 03 RUNID PIC X(6) DISP-1. @E@@@AMP )@@G@@ 03 RUNID PIC X(6). @ @ @] MQ )@@G@@ 02 INT-SRT-1. @B@A@ 02 INT-SRT-1 DISP-1.MR )@@G@@@ @@@A 02 INT-SRT-1. @C@@@] 03 SRT1-DATE MS )@@G@@ PIC 1(18). @E@ @] 03 FILLER PIC XMT )@@G@@(9) DISP-1. @D@A@ 03 FILLER PIC X(9) DISP-1. MU )@@G@@@C@@@A 03 FILLER PIC X(9). @D@A@] MV )@@G@@ 03 SRT1-ACCOUNT PIC X(12) DISP-1. @C@@@A 03 SRT1-ACMW )@@G@@COUNT PIC X(12). @D@A@] 03 SRT1-RUNID PIC X(6MX )@@G@@) DISP-1. @C@@@A 03 SRT1-RUNID PIC X(6). @C@@@]MY )@@G@@ 03 SRT1-DTIM PIC 1(36). @@@@@]@^@A@] 01 IMZ )@@G@@NTERIM-2. @B@@@A 01 INTERIM-2 DISP-1.@ @@@] NA )@@G@@ 02 INT-RCD-2. @F@^@] 03 FILLER NB )@@G@@ PIC X(152) DISP-1. @F@A@^ 03 FILLER NC )@@G@@ PIC X(156) DISP-1. @E@@@A 03 FILLER ND )@@G@@ PIC X(156). @E@@@] 03 INT2-INC PIC 9NE )@@G@@(10) COMP-4.@E@A@] 03 FILLER PIC X(6) DNF )@@G@@ISP-1.@D@@@A 03 FILLER PIC X(6) . @ @@@]NG )@@G@@ 02 INT-SRT-2. @D@A@] 03 FILLER PNH )@@G@@IC X(6) DISP-1. @C@@@A 03 FILLER PIC X(6). NI )@@G@@@D@A@] 03 SRT2-DEVICE PIC X(6) DISP-1. @C@@@A NJ )@@G@@ 03 SRT2-DEVICE PIC X(6). @D@A@] 03 SRT2-ACNK )@@G@@COUNT PIC X(12) DISP-1. @C@@@A 03 SRT2-ACCOUNT PNL )@@G@@IC X(12). @C@@@] 03 SRT2-DATE PIC 1(18). @D@A@]NM )@@G@@ 03 FILLER PIC X(3) DISP-1. @C@@@A NN )@@G@@ 03 FILLER PIC X(3). @D@A@] 03 SRT2-RUNID NO )@@G@@ PIC X(6) DISP-1. @C@@@A 03 SRT2-RUNID PIC X(6NP )@@G@@). @D@@@] 02 INT-SRT-2-OTHER REDEFINES INT-SRT-2. @D@A@]NQ )@@G@@ 03 FILLER PIC X(18) DISP-1. @C@@@A NR )@@G@@ 03 FILLER PIC X(18). @D@@@] 03 SRT2-TYPE NS )@@G@@ PIC 9(10) COMP-4. @D@A@] 03 FILLER PIC X(6NT )@@G@@) DISP-1. @C@@@A 03 FILLER PIC X(6). @D@A@]NU )@@G@@ 03 SRT2-RUNID2 PIC X(6) DISP-1. @C@@@A NV )@@G@@ 03 SRT2-RUNID2 PIC X(6). @]@@@] / @B@@@] 01 LNW )@@G@@OGRECORD USAGE IS DISPLAY-1.@D@@@] 02 LOG-REC OCCURS 64 NX )@@G@@ PIC X(168).@@@@@]@^@ @] 01 RECORD-1. @B@@@ 01 RNY )@@G@@ECORD-1 DISP-1.@^@@@] 02 RCD-1. @C@ @] NZ )@@G@@ 03 R1-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R1-ENOA )@@G@@TRY-TYPE PIC 1(6). @D@A@] 03 FILLER PIC X(5OB )@@G@@) DISP-1. @C@@@A 03 FILLER PIC X(5). @B@A@]OC )@@G@@ 03 R1-MESSAGE DISP-1.@ @@@A 03 R1-MEOD )@@G@@SSAGE.@E@@@] 04 R1-ACCOUNT-CHANGE PIC XXX. OE )@@G@@@B@@@] 04 R1-ACCOUNT-NUMBER. @E@@@] OF )@@G@@ 05 R1-ACCOUNT-CHAR OCCURS 11 PIC X. @C@@@] 04 FOG )@@G@@ILLER PIC X(130). @C@@@] 03 R1-DTIM PIC 1(3OH )@@G@@6). @D@A@] 03 FILLER PIC X(6) DISP-1. @C@@@AOI )@@G@@ 03 FILLER PIC X(6). @D@A@] 03 OJ )@@G@@ R1-RUNID PIC X(6) DISP-1. @C@@@A 03 R1-RUNID OK )@@G@@ PIC X(6). @@@@@]@^@ @] 01 RECORD-3. @B@@@ 01 ROL )@@G@@ECORD-3 DISP-1.@^@@@] 02 RCD-3. @C@A@] OM )@@G@@ 03 R3-ID PIC X(6) DISP-1. @B@@@A 03 R3-ID ON )@@G@@ PIC X(6). @D@A@] 03 R3-QUALIFIER PIC X(12) DISOO )@@G@@P-1. @C@@@A 03 R3-QUALIFIER PIC X(12). @D@A@] OP )@@G@@ 03 R3-FILENAME PIC X(12) DISP-1. @C@@@A 03 OQ )@@G@@ R3-FILENAME PIC X(12). @D@A@] 03 R3-PROJECT POR )@@G@@IC X(12) DISP-1. @C@@@A 03 R3-PROJECT PIC X(12). OS )@@G@@@B@A@] 03 R3-ACCOUNT DISP-1.@ @@@A 03 OT )@@G@@ R3-ACCOUNT.@B@@@] 04 FILLER PIC X. @D@@@] OU )@@G@@ 04 R3-ACCOUNT-GROUP PIC X. @C@@@] OV )@@G@@ 04 FILLER PIC X(10). @C@A@] 03 FILLER POW )@@G@@IC X DISP-1.@B@@@A 03 FILLER PIC X. @B@@@] OX )@@G@@ 03 R3-COND-WD PIC 1. @D@@@] 88 R3-POSITIOOY )@@G@@N-GRANULARITY VALUE 1. @B@@@] 03 FILLER PIC 1(5). OZ )@@G@@@C@A@] 03 FILLER PIC X(2) DISP-1. @B@@@A PA )@@G@@ 03 FILLER PIC X(2). @D@@@] 03 R3-CYCLE PPB )@@G@@IC 9(3) COMP-4. @B@@@] 03 R3-FREE-TIME PIC 1(36). @C@A@]PC )@@G@@ 03 FILLER PIC X(6) DISP-1. @B@@@A 03 FPD )@@G@@ILLER PIC X(6). @E@@@] 03 R3-ASG-DATE-TIME PE )@@G@@ PIC 1(36). @F@@@] 03 R3-GRAN-CNT OCCURS 8 TIMES PIC PF )@@G@@9(10) COMP-4. @C@A@] 03 FILLER PIC X(30) DISP-1. PG )@@G@@@B@@@A 03 FILLER PIC X(30). @C@@@] 03 RPH )@@G@@3-INC PIC 9(10) COMP-4. @C@A@] 03 R3-RUNID PIC X(PI )@@G@@6) DISP-1. @B@@@A 03 R3-RUNID PIC X(6). @C@A@] PJ )@@G@@ 02 SRT-REC3 PIC X(36) DISP-1. @B@@@A 02 SRT-REC3 PK )@@G@@ PIC X(36). @@@@@]@^@ @] 01 RECORD-4. @B@@@ 01 RPL )@@G@@ECORD-4 DISP-1.@^@@@] 02 RCD-4. @E@ @] PM )@@G@@ 03 R4-TYPE PIC 9 COMP-4.@E@@@ PN )@@G@@ 03 R4-TYPE PIC 1(6). @E@#@] 03 RPO )@@G@@4-NWIE PIC 9 COMP-4.@F@#@] 03 FILLER PP )@@G@@ PIC X(4) DISP-1. @F@A@# 03 FILLER PQ )@@G@@ PIC X(5) DISP-1. @E@@@A 03 FILLER PR )@@G@@ PIC X(5). @F@A@] 03 R4-PGM PS )@@G@@ PIC X(12) DISP-1. @E@@@A 03 R4-PGM PT )@@G@@ PIC X(12). @F@A@] 03 R4-VERSION PU )@@G@@ PIC X(12) DISP-1. @E@@@A 03 R4-VERSION PV )@@G@@ PIC X(12). @F@A@] 03 R4-TERM PW )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R4-TERM PX )@@G@@ PIC X(6). @F@A@] 03 R4-PRIM-SRC PPY )@@G@@IC X(6) DISP-1. @E@@@A 03 R4-PRIM-SRC PPZ )@@G@@IC X(6). @F@A@] 03 R4-EXTEND PIC X(6QA )@@G@@) DISP-1. @E@@@A 03 R4-EXTEND PIC X(6QB )@@G@@). @E@@@] 03 R4-CARDS PIC S9(10) COMP-4.QC )@@G@@@ @@@] 03 R4-TRANSFERS.@F@@@] 04 R4-IOS OCQD )@@G@@CURS 10 PIC S9(10) COMP-4. @F@@@] 03 R4-SUPS QE )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R4-CBS QF )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R4-VOL-DELAY QG )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R4-RTL QH )@@G@@ PIC S9(10) COMP-4. @F@A@] 03 FILLER QI )@@G@@ PIC X(6) DISP-1. @E@@@A 03 FILLER QJ )@@G@@ PIC X(6). @E@@@] 03 R4-COND QK )@@G@@ PIC S9(10) COMP-4. @E@@@] 03 R4-DTIM QL )@@G@@ PIC 1(36). @F@A@] 03 FILLER PQM )@@G@@IC X(6) DISP-1. @E@@@A 03 FILLER PQN )@@G@@IC X(6). @F@A@] 03 R4-RUNID PIC X(6QO )@@G@@) DISP-1. @E@@@A 03 R4-RUNID PIC X(6QP )@@G@@). @ @@@] 02 R4-COUNTERS. @F@#@] 03 R4-CTRSQQ )@@G@@ OCCURS 15 TIMES PIC 9(10) COMP-4. @F@@@# 03 R4-CTRSQR )@@G@@ OCCURS 15 TIMES PIC S9(10) COMP-4. @D@ @] 03 R4-CPQS )@@G@@U PIC S9(10) COMP-4. @@@@@]@^@ @] 01 RECORD-5. @B@@@ QT )@@G@@ 01 RECORD-5 DISP-1.@^@@@] 02 RCD-5. QU )@@G@@@F@A@] 03 R5-ID PIC X(6) DISP-1. QV )@@G@@@E@@@A 03 R5-ID PIC X(6). @F@A@]QW )@@G@@ 03 R5-ACCT PIC X(12) DISP-1. @E@@@AQX )@@G@@ 03 R5-ACCT PIC X(12). @F@A@] QY )@@G@@ 03 R5-PROJ PIC X(12) DISP-1. @E@@@A QZ )@@G@@ 03 R5-PROJ PIC X(12). @ @@@] RA )@@G@@ 03 R5-START-TIME.@C@@@] 05 TIME-MM PIC 1(6). RB )@@G@@@C@@@] 05 TIME-DD PIC 1(6). @C@@@] RC )@@G@@ 05 TIME-YY PIC 1(6). @D@@@] 05 TIME-SECS RD )@@G@@ PIC 9(5) COMP-4. @ @@@] 03 R5-FIN-TIME. @C@@@] RE )@@G@@ 05 TIME-MM PIC 1(6). @C@@@] 05 TIME-RF )@@G@@DD PIC 1(6). @C@@@] 05 TIME-YY PIC 1(6RG )@@G@@). @D@@@] 05 TIME-SECS PIC 9(5) COMP-4. @F@@@]RH )@@G@@ 03 R5-CARDS-IN PIC 9(5) COMP-4. @F@@@]RI )@@G@@ 03 R5-CARDS-OUT PIC 9(5) COMP-4. @E@A@]RJ )@@G@@ 03 R5-PRIORITY PIC X DISP-1.@D@@@A RK )@@G@@ 03 R5-PRIORITY PIC X. @F@@@] 03 RRL )@@G@@5-PAGES PIC 9(8) COMP-4. @F@@@] 03 RRM )@@G@@5-ESUPS PIC 9(10) COMP-4. @F@@@] 03 RRN )@@G@@5-SUPS PIC S9(10) COMP-4. @F@@@] 03 RRO )@@G@@5-CBS PIC S9(10) COMP-4. @F@@@] 03 RRP )@@G@@5-12 PIC S9(10) COMP-4. @F@@@] 03 RRQ )@@G@@5-13 PIC S9(10) COMP-4. @F@@@] 03 RRR )@@G@@5-14 PIC S9(10) COMP-4. @F@@@] 03 RRS )@@G@@5-15 PIC S9(10) COMP-4. @F@@@] 03 RRT )@@G@@5-16 PIC S9(10) COMP-4. @F@@@] 03 RRU )@@G@@5-17 PIC S9(10) COMP-4. @F@@@] 03 RRV )@@G@@5-18 PIC S9(10) COMP-4. @F@@@] 03 RRW )@@G@@5-19 PIC S9(10) COMP-4. @F@A@] 03 RRX )@@G@@5-USERID PIC X(12) DISP-1. @E@@@A 03 RRY )@@G@@5-USERID PIC X(12). @F@@@] 03 R5-22 RZ )@@G@@ PIC 9(10) COMP-4. @F@@@] 03 R5-23 SA )@@G@@ PIC 9(10) COMP-4. @F@@@] 03 R5-24 SB )@@G@@ PIC 9(10) COMP-4. @E@@@] 03 R5-DTIMSC )@@G@@ PIC 1(36). @F@@@] 03 R5-INC SD )@@G@@ PIC 9(10) COMP-4. @F@A@] 03 R5-RUNID SE )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R5-RUNID SF )@@G@@ PIC X(6). @F@A@] 02 SRT-REC-5 SG )@@G@@ PIC X(36) DISP-1. @E@@@A 02 SRT-REC-5 SH )@@G@@ PIC X(36). @@@@@]@^@ @] 01 RECORD-7. @B@@@ SI )@@G@@ 01 RECORD-7 DISP-1.@^@@@] 02 RCD-7. @C@ @]SJ )@@G@@ 03 R7-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 SK )@@G@@ R7-ENTRY-TYPE PIC 1(6). @D@A@] 03 FILLER PSL )@@G@@IC X(5) DISP-1. @C@@@A 03 FILLER PIC X(5). SM )@@G@@@D@A@] 03 R7-MSG-SPACE1 PIC X(4) DISP-1. @C@@@A SN )@@G@@ 03 R7-MSG-SPACE1 PIC X(4). @C@A@] 03 R7-MSSO )@@G@@G-NBR PIC X DISP-1.@B@@@A 03 R7-MSG-NBR PIC X. SP )@@G@@@C@A@] 03 R7-MSG-SPACE2 PIC X DISP-1.@B@@@A SQ )@@G@@ 03 R7-MSG-SPACE2 PIC X. @B@A@] 03 R7-MESSAGE DSR )@@G@@ISP-1.@ @@@A 03 R7-MESSAGE.@E@@@] 04 RSS )@@G@@7-MSG-WORD-1 PIC X(6). @C@@@] 04 FILLER ST )@@G@@ PIC X(132). @E@A@] 03 R7-MESSAGE2 REDEFINES R7-MESSSU )@@G@@AGE DISP-1. @D@@@A 03 R7-MESSAGE2 REDEFINES R7-MESSAGE. SV )@@G@@@D@@@] 04 R7-MSG-CHAR OCCURS 138 PIC X. @C@@@] SW )@@G@@ 03 R7-DTIM PIC 1(36). @D@A@] 03 FILLESX )@@G@@R PIC X(6) DISP-1. @C@@@A 03 FILLER PSY )@@G@@IC X(6). @D@A@] 03 R7-RUNID PIC X(6) DISP-1. SZ )@@G@@@C@@@A 03 R7-RUNID PIC X(6). @@@@@]@^@ @] TA )@@G@@ 01 RECORD-9. @B@@@ 01 RECORD-9 DISP-1.@^@@@]TB )@@G@@ 02 RCD-9. @E@ @] 03 R9-TYPE TC )@@G@@ PIC 9 COMP-4.@E@@@ 03 R9-TYPE PTD )@@G@@IC 1(6). @F@A@] 03 FILLER PIC X(5TE )@@G@@) DISP-1. @E@@@A 03 FILLER PIC X(5TF )@@G@@). @C@A@] 03 R9-OPTIONS PIC X DISP-1.@B@@@A TG )@@G@@ 03 R9-OPTIONS PIC X. @C@A@] 03 R9-PRIORITYTH )@@G@@ PIC X DISP-1.@B@@@A 03 R9-PRIORITY PIC X. @C@@@]TI )@@G@@ 03 R9-START-TIME PIC 1(12). @E@@@] 03 TJ )@@G@@ R9-DEADLINE-TIME PIC 1(12). @D@@@] 03 R9-PATK )@@G@@GES PIC 9(5) COMP-4. @D@@@] 03 R9-CARDS-OUT PTL )@@G@@IC 9(5) COMP-4. @F@A@] 03 R9-NEW-RUNID PTM )@@G@@IC X(6) DISP-1. @E@@@A 03 R9-NEW-RUNID PTN )@@G@@IC X(6). @F@A@] 03 R9-OLD-RUNID PIC X(6TO )@@G@@) DISP-1. @E@@@A 03 R9-OLD-RUNID PIC X(6TP )@@G@@). @F@A@] 03 R9-PROJECT PIC X(12) DISTQ )@@G@@P-1. @E@@@A 03 R9-PROJECT PIC X(12). TR )@@G@@@F@A@] 03 R9-ACCOUNT PIC X(12) DISP-1. TS )@@G@@@E@@@A 03 R9-ACCOUNT PIC X(12). @D@A@]TT )@@G@@ 03 R9-SEQUENCE-ID PIC X(6) DISP-1. @C@@@A TU )@@G@@ 03 R9-SEQUENCE-ID PIC X(6). @C@@@] 03 R9-RUN-TYPETV )@@G@@ PIC 9 COMP-4.@D@A@] 03 FILLER PIC X(2) DISPTW )@@G@@-1. @C@@@A 03 FILLER PIC X(2). @D@@@] TX )@@G@@ 03 R9-EST-SUPS PIC 9(5) COMP-4. @F@A@] 03 TY )@@G@@ R9-DEVICE PIC X(6) DISP-1. @E@@@A 03 TZ )@@G@@ R9-DEVICE PIC X(6). @G@@@] 03 R9-DEUA )@@G@@VICE-NUM REDEFINES R9-DEVICE PIC 9(10) COMP-4. @D@A@] 03 UB )@@G@@ R9-USERID PIC X(12) DISP-1. @C@@@A 03 R9-USERID UC )@@G@@ PIC X(12). @E@A@] 03 FILLER PIC X(UD )@@G@@6) DISP-1. @D@@@A 03 FILLER PIC X(6). UE )@@G@@@E@@@] 03 R9-BL-MINS PIC 9(10) COMP-4. @E@A@]UF )@@G@@ 03 FILLER PIC X(54) DISP-1. @D@@@A UG )@@G@@ 03 FILLER PIC X(54). @ @#@] 03 RUH )@@G@@9-DTIM. @D@A@# 03 R9-DTIM DISP-1.UI )@@G@@@C@@@A 03 R9-DTIM . @E@@@] UJ )@@G@@ 04 R9-DT PIC 1(18). @F@@@] 04 UK )@@G@@ R9-TIM PIC 9(5) COMP-4. @E@@@] 03 RUL )@@G@@9-DTIM-REDEF REDEFINES R9-DTIM PIC 1(36). @F@A@] 03 FILLER UM )@@G@@ PIC X(6) DISP-1. @E@@@A 03 FILLER UN )@@G@@ PIC X(6). @F@A@] 03 R9-RUNID UO )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R9-RUNID UP )@@G@@ PIC X(6). @@@@@]@^@ @] 01 RECORD-10. @B@@@ UQ )@@G@@ 01 RECORD-10 DISP-1.@^@@@] 02 RCD-10. UR )@@G@@@C@ @] 03 R10-ENTRY-TYPE PIC 9 COMP-4.@C@@@ US )@@G@@ 03 R10-ENTRY-TYPE PIC 1(6). @D@A@] 03 FILLER UT )@@G@@ PIC X(9) DISP-1. @C@@@A 03 FILLER PIC X(9UU )@@G@@). @C@A@] 03 R10-MSG-NBR PIC X DISP-1.@B@@@A UV )@@G@@ 03 R10-MSG-NBR PIC X. @C@A@] 03 FILLER UW )@@G@@ PIC X DISP-1.@B@@@A 03 FILLER PIC X. @B@A@]UX )@@G@@ 03 R10-MESSAGE DISP-1.@A@@@A 03 R10-MUY )@@G@@ESSAGE. @D@@@] 04 R10-MSG-CHAR OCCURS 120 PIC X. UZ )@@G@@@D@A@] 03 R10-SITEID PIC X(6) DISP-1. @C@@@A VA )@@G@@ 03 R10-SITEID PIC X(6). @D@A@] 03 R10-UVB )@@G@@SERID PIC X(12) DISP-1. @C@@@A 03 R10-USERID PVC )@@G@@IC X(12). @C@@@] 03 R10-DTIM PIC 1(36). @D@A@]VD )@@G@@ 03 FILLER PIC X(6) DISP-1. @C@@@A VE )@@G@@ 03 FILLER PIC X(6). @D@A@] 03 R10-RUNID VF )@@G@@ PIC X(6) DISP-1. @C@@@A 03 R10-RUNID PIC X(6VG )@@G@@). @@@@@]@^@ @] 01 RECORD-12. @B@@@ 01 RECORD-12 VH )@@G@@ DISP-1.@^@@@] 02 RCD-12. @C@ @] 03 VI )@@G@@ R12-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R12-ENTRY-TYPE PVJ )@@G@@IC 1(6). @D@A@] 03 FILLER PIC X(8) DISP-1. VK )@@G@@@C@@@A 03 FILLER PIC X(8). @D@A@] VL )@@G@@ 03 R12-KEYIN PIC XXX DISP-1. @C@@@A 03 R12-KVM )@@G@@EYIN PIC XXX. @B@A@] 03 R12-MESSAGE DISP-1.VN )@@G@@@A@@@A 03 R12-MESSAGE. @D@@@] 04 RVO )@@G@@12-MSG-CHAR OCCURS 120 PIC X. @F@A@] 03 R12-MESSAGE2 REDEVP )@@G@@FINES R12-MESSAGE DISP-1. @D@@@A 03 R12-MESSAGE2 REDEVQ )@@G@@FINES R12-MESSAGE.@E@@@] 04 R12-MSG-WORD-1 PVR )@@G@@IC X(6). @C@@@] 04 FILLER PIC X(114). @D@A@]VS )@@G@@ 03 R12-SITEID PIC X(6) DISP-1. @C@@@A VT )@@G@@ 03 R12-SITEID PIC X(6). @D@A@] 03 R12-USERID VU )@@G@@ PIC X(12) DISP-1. @C@@@A 03 R12-USERID PIC X(1VV )@@G@@2). @C@@@] 03 R12-DTIM PIC 1(36). @D@A@] VW )@@G@@ 03 FILLER PIC X(6) DISP-1. @C@@@A 03 VX )@@G@@ FILLER PIC X(6). @D@A@] 03 R12-EXEC8 PVY )@@G@@IC X(6) DISP-1. @C@@@A 03 R12-EXEC8 PIC X(6). VZ )@@G@@@@@@@]@^@ @] 01 RECORD-14. @B@@@ 01 RECORD-14 WA )@@G@@ DISP-1.@^@@@] 02 RCD-14. @C@ @] 03 R14-EWB )@@G@@NTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R14-ENTRY-TYPE PIC 1(6WC )@@G@@). @D@A@] 03 FILLER PIC X(5) DISP-1. @C@@@AWD )@@G@@ 03 FILLER PIC X(5). @D@@@] 03 WE )@@G@@ R14-EQUIP-CODE PIC 999 COMP-4. @C@@@] 03 R14-FILE-TYWF )@@G@@PE PIC 9 COMP-4.@F@@@] 03 R14-SPEC-FORM-MNTS PWG )@@G@@IC 9(5) COMP-4. @D@A@] 03 R14-SYMBIONT PIC X(6) DISPWH )@@G@@-1. @C@@@A 03 R14-SYMBIONT PIC X(6). @F@@@] WI )@@G@@ 03 R14-LINE-CARD-COUNT PIC 9(10) COMP-4. @D@A@] WJ )@@G@@ 03 R14-RUNID PIC X(6) DISP-1. @C@@@A 03 WK )@@G@@ R14-RUNID PIC X(6). @D@A@] 03 FILLER PWL )@@G@@IC X(12) DISP-1. @C@@@A 03 FILLER PIC X(12). WM )@@G@@@D@A@] 03 R14-USERID PIC X(12) DISP-1. @C@@@A WN )@@G@@ 03 R14-USERID PIC X(12). @D@A@] 03 FILLEWO )@@G@@R PIC X(96) DISP-1. @C@@@A 03 FILLER PWP )@@G@@IC X(96). @C@@@] 03 R14-DTIM PIC 1(36). @D@A@]WQ )@@G@@ 03 FILLER PIC X(6) DISP-1. @C@@@A WR )@@G@@ 03 FILLER PIC X(6). @D@A@] 03 R14-EXEC8 WS )@@G@@ PIC X(6) DISP-1. @C@@@A 03 R14-EXEC8 PIC X(6WT )@@G@@). @@@@@]@^@ @] 01 RECORD-15. @B@@@ 01 RECORD-15 WU )@@G@@ DISP-1.@^@@@] 02 RCD-15. @C@ @] 03 WV )@@G@@ R15-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R15-ENTRY-TYPE PWW )@@G@@IC 1(6). @D@A@] 03 FILLER PIC X(5) DISP-1. WX )@@G@@@C@@@A 03 FILLER PIC X(5). @D@@@] WY )@@G@@ 03 R15-EQUIP-CODE PIC 999 COMP-4. @C@@@] 03 R15-FWZ )@@G@@ILE-TYPE PIC 9 COMP-4.@D@A@] 03 FILLER PIC X(3XA )@@G@@) DISP-1. @C@@@A 03 FILLER PIC X(3). @D@A@]XB )@@G@@ 03 R15-SYMBIONT PIC X(6) DISP-1. @C@@@A XC )@@G@@ 03 R15-SYMBIONT PIC X(6). @D@A@] 03 FILLER XD )@@G@@ PIC X(6) DISP-1. @C@@@A 03 FILLER PIC X(6XE )@@G@@). @D@A@] 03 R15-RUNID PIC X(6) DISP-1. @C@@@AXF )@@G@@ 03 R15-RUNID PIC X(6). @D@A@] 03 XG )@@G@@ R15-ACCOUNT PIC X(12) DISP-1. @C@@@A 03 R15-ACCOUNTXH )@@G@@ PIC X(12). @D@A@] 03 R15-USERID PIC X(12) DISXI )@@G@@P-1. @C@@@A 03 R15-USERID PIC X(12). @D@A@] XJ )@@G@@ 03 FILLER PIC X(96) DISP-1. @C@@@A 03 XK )@@G@@ FILLER PIC X(96). @C@@@] 03 R15-DTIM PXL )@@G@@IC 1(36). @D@A@] 03 FILLER PIC X(6) DISP-1. XM )@@G@@@C@@@A 03 FILLER PIC X(6). @D@A@] XN )@@G@@ 03 R15-EXEC8 PIC X(6) DISP-1. @C@@@A 03 R15-EXO )@@G@@XEC8 PIC X(6). @@@@@]@^@ @] 01 RECORD-17. @B@@@ XP )@@G@@ 01 RECORD-17 DISP-1.@^@@@] 02 RCD-17. @F@A@]XQ )@@G@@ 03 R17-ID PIC X(6) DISP-1. @E@@@AXR )@@G@@ 03 R17-ID PIC X(6). @F@@@] XS )@@G@@ 03 R17-1 PIC S9(10) COMP-4. @F@@@] XT )@@G@@ 03 R17-2 PIC 9(10) COMP-4. @F@@@] XU )@@G@@ 03 R17-ERS PIC S9(10) COMP-4. @A@@@] XV )@@G@@ 03 R17-TRANSFERS. @F@@@] 04 R17IOS OCCURS 10 XW )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-VOLD XX )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-CPU XY )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-16 XZ )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-17 YA )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-18 YB )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-19 YC )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-20 YD )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-21 YE )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-22 YF )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-23 YG )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-24 YH )@@G@@ PIC S9(10) COMP-4. @E@@@] 03 R17-DTIM YI )@@G@@ PIC 1(36). @F@@@] 03 R17-INC YJ )@@G@@ PIC S9(10) COMP-4. @F@A@] 03 R17-RUNID YK )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R17-RUNID YL )@@G@@ PIC X(6). @F@A@] 02 SRT-REC-17 PYM )@@G@@IC X(36) DISP-1. @E@@@A 02 SRT-REC-17 PYN )@@G@@IC X(36). @]@@@] / @^@@@] 01 TABLE-15. @B@@@] YO )@@G@@ 02 TBL-15 OCCURS 60 TIMES. @F@@@] 03 RUN15 YP )@@G@@ PIC X(6) DISP-1. @F@@@] 03 SYMB15 YQ )@@G@@ PIC X(6) DISP-1. @F@@@] 03 ACT-15 YR )@@G@@ PIC X(12) DISP-1. @E@@@] 03 DTIM15 YS )@@G@@ PIC 1(36). @D@@@] 03 DTIM15-REDEF REDEFIYT )@@G@@NES DTIM15 DISP-1.@E@@@] 04 DATE15 PYU )@@G@@IC 1(18). @F@@@] 04 TIME15 PIC 9(5YV )@@G@@) COMP-4. @F@#@] 03 CTR15 PIC S9(YW )@@G@@10) COMP-4. @F@@@# 03 CTR15 PIC 9(1YX )@@G@@0) COMP-4. @@@@@]@^@@@] 01 T3-ASG-TABLE.@E@@@] 03 ASG-YY )@@G@@TRACKS OCCURS 8 TIMES PIC 9(10) COMP-4. @@@@@]@ @@@] 01 T3-FREEYZ )@@G@@-TABLE. @E@@@] 03 FREE-TRACKS OCCURS 8 TIMES PIC 9(10) COMZA )@@G@@P-4. @@@@@]@ @@@] 01 VALID-ACCNT-TABLE. @F@@@] 03 VTABZB )@@G@@LE OCCURS 001 TO 999 TIMES DEPENDING ON QUIP-CNT@C@@@] ASCEZC )@@G@@NDING KEY IS VALID-ACCNT-NO @ @ @] INDEXED BY P3. @B@@@ ZD )@@G@@ INDEXED BY ACCNT-INDEX. @E@@@] 05 VALID-AZE )@@G@@CCNT-NO PIC X(12).@@@@@]@^@@@] 01 EQUIP-TBL. ZF )@@G@@@A@@@] 02 R-T32 OCCURS 30. @E@@@] 03 R32-SSYZG )@@G@@S PIC 99 DISP-1. @E@@@] 03 R32-RNG1 ZH )@@G@@ PIC 999 COMP-4. @E@@@] 03 R32-RNG2 ZI )@@G@@ PIC 999 COMP-4. @E@@@] 03 R32-DVCE ZJ )@@G@@PIC X(6) DISP-1. @E@@@] 03 R32-D-TYPE PIC X(ZK )@@G@@6) DISP-1. @E@@@] 03 R32-DUAL PIC X DISZL )@@G@@P-1. @E@@@] 03 R32-CONT PIC X DISP-1. ZM )@@G@@@E@@@] 03 R32-S-STAT PIC X DISP-1. @E@@@]ZN )@@G@@ 03 R32-0-UNIT PIC X DISP-1. @B@@@] ZO )@@G@@ 03 R32-UNITS OCCURS 50. @D@@@] 04 R32-U ZP )@@G@@ PIC X DISP-1. @E@@@] 01 T32-SPACE REDEFINES EQUIP-TBL ZQ )@@G@@ USAGE IS DISP-1. @ @@@] 02 T32S OCCURS 30.@C@@@] ZR )@@G@@ 03 T32S1 PIC XX. @C@@@] 03 T32S2 ZS )@@G@@ PIC X(70). @@@@@]@^@@@] 01 TIP-RCD. @E@@@] 0ZT )@@G@@2 T-HES PIC X DISP-1.@E@@@] 02 T-CZU )@@G@@HAR PIC X DISP-1.@F@@@] 02 T-NBR ZV )@@G@@ PIC XX DISP-1. @F@@@] 02 T-SPACE ZW )@@G@@ PIC XX DISP-1. @@@@@]@^@@@] 01 NON-STDZX )@@G@@-ACCT.@B@@@] 02 N-S-A OCCURS 15 TIMES. @E@@@] ZY )@@G@@ 03 NSANBR PIC X DISP-1.@F@@@] 03 NZZ )@@G@@SARUNID PIC X(6) DISP-1. @E@@@] 03 NAA )@@G@@SATM-START PIC 1(36). @E@@@] 03 NSATM-FAB )@@G@@IN PIC 1(36). @F@@@] 03 NSAACCTNO AC )@@G@@ PIC X(12) DISP-1. @F@@@] 03 NSAPROJ AD )@@G@@ PIC X(12) DISP-1. @F@@@] 03 NSADEVICE AE )@@G@@ PIC X(6) DISP-1. @F@@@] 03 NSAUSERID AF )@@G@@ PIC X(12) DISP-1. @F@@@] 03 NSACD-IN AG )@@G@@ PIC 9(6) DISP-1. @F@@@] 03 NSACD-OUT AH )@@G@@ PIC 9(6) DISP-1. @F@@@] 03 NSAPAGES AI )@@G@@ PIC 9(6) DISP-1. @F@#@] 03 NSATOT AJ )@@G@@ PIC 9(10) DISP-1. @F@@@# 03 NSATOT AK )@@G@@ PIC S9(10) DISP-1. @F@#@] 03 NSACPU AL )@@G@@ PIC 9(10) DISP-1. @F@@@# 03 NSACPU AM )@@G@@ PIC S9(10) DISP-1. @F@#@] 03 NSACB AN )@@G@@ PIC 9(10) DISP-1. @F@@@# 03 NSACB AO )@@G@@ PIC S9(10) DISP-1. @@@@@]@B@@@] 01 TDEVICES USAGAP )@@G@@E IS DISPLAY-1. @G@@@] 02 FILLER VALUE ' AQ )@@G@@ ' PIC X(30). @G@@@] 02 FILLER VALUE 'SEMS01SEMS02SAR )@@G@@EMS03SWIC01STBCR1' PIC X(30). @G@@@] 02 FILLER VALUE 'STBCR2SAS )@@G@@TBCR3STBCR4STBCR5SIH015' PIC X(30). @G@@@] 02 FILLER VALUE 'SAT )@@G@@IH016SIH017SIH001SDPU11SDPU12' PIC X(30). @G@@@] 02 FILLER VAAU )@@G@@LUE 'SYSOFASYSOFBSYSOFCSANU11SANU12' PIC X(30). @G@@@] 02 FILAV )@@G@@LER VALUE 'SANU13SANU14 ' PIC X(30). @B@@@] 01 TAW )@@G@@DEVICE REDEFINES TDEVICES. @G@@@] 02 TDVCE OCCURS 30 TIMESAX )@@G@@ PICTURE X(6) DISP-1. @@@@@]@B@@@] 01 K2-HOLD USAAY )@@G@@GE IS DISPLAY-1. @D@@@] 02 K2H OCCURS 9 PAZ )@@G@@IC X. @@@@@]@C@@@] 01 CONVT PIC 9(10). @A@@@]BA )@@G@@ 01 CONVT9 REDEFINES CONVT. @E@@@] 02 CONVT1 BB )@@G@@ PIC 9(5). @E@@@] 02 CONVT2 BC )@@G@@ PIC 9(5). @@@@@]@E@@@] 01 CNVT-BIN BD )@@G@@ PIC 9(10) COMP-4. @B@@@] 01 CNVT-BIN9 REDEFINES CNVT-BIN. BE )@@G@@@E@@@] 02 CBIN1 PIC 1(18). @E@@@]BF )@@G@@ 02 CBIN2 PIC 1(18). @@@@@]@E@@@]BG )@@G@@ 01 DATE-B PIC S9(6) DISP-1. @A@@@] BH )@@G@@ 01 DATE-BB REDEFINES DATE-B.@F@@@] 02 MYR BI )@@G@@ PIC S99 DISP-1. @F@@@] 02 MMO BJ )@@G@@ PIC S99 DISP-1. @F@@@] 02 MDA BK )@@G@@ PIC S99 DISP-1. @@@@@]@D@@@] 01 DATE-R BL )@@G@@ PIC 1(18). @A@@@] 01 DATE-RR REDEFINES DATE-R.@E@@@]BM )@@G@@ 02 RMO PIC 1(6). @E@@@] BN )@@G@@ 02 RDA PIC 1(6). @E@@@] 0BO )@@G@@2 RYR PIC 1(6). @@@@@]@B@@@] 01 WBP )@@G@@MESSAGE USAGE IS DISPLAY-1. @D@@@] 02 WMESSAGE-FLD1 BQ )@@G@@ PIC X(12). @D@@@] 02 FILLER PIC X(1BR )@@G@@26). @A@@@] 01 WMSGG REDEFINES WMESSAGE.@F@@@] 02 WMSBS )@@G@@G OCCURS 138 PIC X DISP-1. @@@@@]@B@@@] 01 EBT )@@G@@RR-TYPE USAGE IS DISPLAY-1. @D@@@] 02 ERRT OCCURS 3 TIMES BU )@@G@@ PIC X. @E@@@] 01 ERR-XX-X REDEFINES ERR-TYPE USAGE IS BV )@@G@@DISPLAY-1. @D@@@] 02 ERR-XX PIC XX. BW )@@G@@@D@@@] 02 ERR-X PIC X. @@@@@]@B@@@]BX )@@G@@ 01 ERR-MSG USAGE IS DISPLAY-1. @D@@@] 02 ERRM OCCUBY )@@G@@RS 6 TIMES PIC X. @]@@@] / @^@@@] COPY DEPT-HBZ )@@G@@EADER.@@@@@]@^@@@] 01 AFLINE1. @G@@@] 02 FILLER VACA )@@G@@LUE 'RUNID RUN ACT-NO RUN-PROJ-ID' PIC X(31).@G@@@] 02 FILCB )@@G@@LER VALUE ' DEVICE USER-ID FILE ACT-' PIC X(31).@G@@@] 0CC )@@G@@2 FILLER VALUE 'NO FILE PROJ-ID QUALIFIER-FIL' PIC X(31).@G@@@] CD )@@G@@ 02 FILLER VALUE 'ENAME DATE-TIME ASGN/' PIC X(31).@G@@@]CE )@@G@@ 02 FILLER VALUE 'FREED ' PIC X(7). CF )@@G@@@@@@@]@^@@@] 01 AFDATA1. @E@@@] 02 AF-RUNID VCG )@@G@@ALUE SPACES PIC X(6). @D@@@] 02 FILLER VALUE SCH )@@G@@PACES PIC X. @E@@@] 02 AF-R-ACT-NO VALUE SPACES PCI )@@G@@IC X(12). @D@@@] 02 FILLER VALUE SPACES PIC X. CJ )@@G@@@E@@@] 02 AF-R-PROJ VALUE SPACES PIC X(12). @D@@@]CK )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0CL )@@G@@2 AF-DEVICE VALUE SPACES PIC X(6). @D@@@] 02 FILCM )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 AF-USER-ID VCN )@@G@@ALUE SPACES PIC X(12). @D@@@] 02 FILLER VALUE SCO )@@G@@PACES PIC X. @E@@@] 02 AF-F-ACT-NO VALUE SPACES PCP )@@G@@IC X(12). @D@@@] 02 FILLER VALUE SPACES PIC X. CQ )@@G@@@E@@@] 02 AF-F-PROJ VALUE SPACES PIC X(12). @D@@@]CR )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0CS )@@G@@2 AF-QUAL VALUE SPACES PIC X(12). @D@@@] 02 FILCT )@@G@@LER VALUE '*' PIC X. @E@@@] 02 AF-FILENM VCU )@@G@@ALUE SPACES PIC X(12). @D@@@] 02 FILLER VALUE 'CV )@@G@@(' PIC X. @E@@@] 02 AF-CYCLE VALUE ZEROS PCW )@@G@@IC 999. @D@@@] 02 FILLER VALUE ') ' PIC XX.CX )@@G@@@ @@@] 02 AF-DATE-ASGD. @D@@@] 03 AF-DATE-A1 CY )@@G@@ PIC XX.@D@@@] 03 AF-SL1 CZ )@@G@@ PIC X. @D@@@] 03 AF-DATE-A2 PIC XX.DA )@@G@@@D@@@] 03 AF-SL2 PIC X. @D@@@] DB )@@G@@ 03 AF-DATE-A3 PIC XX.@D@@@] 02 FILDC )@@G@@LER VALUE SPACES PIC X. @ @@@] 02 AF-TM-ASGD. DD )@@G@@@D@@@] 03 AF-TM-ASG1 PIC XX.@D@@@] DE )@@G@@ 03 AF-DOT1 PIC X. @D@@@] 03 ADF )@@G@@F-TM-ASG2 PIC XX.@D@@@] 03 AF-DOT2 DG )@@G@@ PIC X. @D@@@] 03 AF-TM-ASG3 DH )@@G@@ PIC XX.@D@@@] 02 FILLER VALUE SPACES PIC X. DI )@@G@@@E@@@] 02 A-F PIC XXXX. @@@@@]DJ )@@G@@@^@@@] 01 AFTITLE. @E@@@] 02 FILLER VALUE SDK )@@G@@PACES PIC X(51). @G@@@] 02 FILLER VALUE 'ACCOUNT/FILE DL )@@G@@REFERENCE REPORT' PIC X(29). @E@@@] 02 FILLER VALUE SDM )@@G@@PACES PIC X(52). @@@@@]@^@@@] 01 OPTITLE. @E@@@] DN )@@G@@ 02 FILLER VALUE SPACES PIC X(55). @F@@@] 0DO )@@G@@2 FILLER VALUE 'OPERATOR ALLOWED RUNS' PIC X(21). @E@@@] 0DP )@@G@@2 FILLER VALUE SPACES PIC X(56). @@@@@]@^@@@] 01 ODQ )@@G@@PLINE1. @G@@@] 02 FILLER VALUE 'RUNID STARTED STOPPED DR )@@G@@ACCNT-' PIC X(31).@G@@@] 02 FILLER VALUE 'NO PROJECT-ID DS )@@G@@ DEVICE USER' PIC X(31).@G@@@] 02 FILLER VALUE '-ID CDS-DT )@@G@@IN CDS-OUT PAGES ' PIC X(31).@G@@@] 02 FILLER VALUE 'TOT-SUPDU )@@G@@S CPU-SUPS CB-SUPS ' PIC X(31).@G@@@] 02 FILLER VALUE ' DV )@@G@@ ' PIC X(8). @@@@@]@^@@@] 01 OPDATA1DW )@@G@@. @E@@@] 02 OP-RUNID VALUE SPACES PIC X(6). DX )@@G@@@D@@@] 02 FILLER VALUE SPACES PIC X. @D@@@] DY )@@G@@ 02 OP-TM-ST1 VALUE SPACES PIC XX.@C@@@] 02 FILDZ )@@G@@LER VALUE ':' PIC X. @D@@@] 02 OP-TM-ST2 EA )@@G@@ PIC XX.@D@@@] 02 FILLER VALUE ':' PEB )@@G@@IC X. @D@@@] 02 OP-TM-ST3 PIC XX.@D@@@]EC )@@G@@ 02 FILLER VALUE SPACES PIC X. @D@@@] 0ED )@@G@@2 OP-TM-FIN1 VALUE SPACES PIC XX.@D@@@] 02 FILLER EE )@@G@@ VALUE ':' PIC X. @D@@@] 02 OP-TM-FIN2 EF )@@G@@ PIC XX.@D@@@] 02 FILLER VALUE ':' PEG )@@G@@IC X. @D@@@] 02 OP-TM-FIN3 PIC XX.@D@@@]EH )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0EI )@@G@@2 OP-ACCT-NO VALUE SPACES PIC X(12). @D@@@] 02 FILEJ )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 OP-PROJ VEK )@@G@@ALUE SPACES PIC X(12). @D@@@] 02 FILLER VALUE SEL )@@G@@PACES PIC X. @E@@@] 02 OP-DEVICE VALUE SPACES PEM )@@G@@IC X(6). @D@@@] 02 FILLER VALUE SPACES PIC X. EN )@@G@@@E@@@] 02 OP-USER-ID VALUE SPACES PIC X(12). @D@@@]EO )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0EP )@@G@@2 OP-CD-IN VALUE ZEROS PIC ZZZZZ9. @D@@@] 02 FILEQ )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 OP-CD-OUT VER )@@G@@ALUE ZEROS PIC ZZZZZ9. @D@@@] 02 FILLER VALUE SES )@@G@@PACES PIC XX.@E@@@] 02 OP-PAGES VALUE ZEROS PET )@@G@@IC ZZZZZ9. @D@@@] 02 FILLER VALUE SPACES PIC X. EU )@@G@@@E@@@] 02 OP-TOT VALUE ZEROS PIC 9(10). @D@@@]EV )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0EW )@@G@@2 OP-CPU VALUE ZEROS PIC 9(10). @D@@@] 02 FILEX )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 OP-CB VEY )@@G@@ALUE ZEROS PIC 9(10). @E@@@] 02 FILLER VALUE SEZ )@@G@@PACES PIC X(7). @@@@@]@^@@@] 01 OPDATA2. @E@@@] FA )@@G@@ 02 FILLER VALUE SPACES PIC X(7). @ @@@] 0FB )@@G@@2 OP-DATE-START. @E@@@] 03 OP-DATE-A1 VALUE SPACES FC )@@G@@PIC XX. @D@@@] 03 OP-SL1 VALUE SPACES PIC X.FD )@@G@@@E@@@] 03 OP-DATE-A2 VALUE SPACES PIC XX. @D@@@]FE )@@G@@ 03 OP-SL2 VALUE SPACES PIC X.@E@@@] FF )@@G@@ 03 OP-DATE-A3 VALUE SPACES PIC XX. @D@@@] 02 FILFG )@@G@@LER VALUE SPACES PIC X. @ @@@] 02 OP-DATE-FIN. FH )@@G@@@E@@@] 03 OP-DATE-F1 VALUE SPACES PIC XX. @D@@@]FI )@@G@@ 03 OP-SL3 VALUE SPACES PIC X.@E@@@] FJ )@@G@@ 03 OP-DATE-F2 VALUE SPACES PIC XX. @D@@@] 03 OFK )@@G@@P-SL4 VALUE SPACES PIC X.@E@@@] 03 OP-DATE-F3 FL )@@G@@VALUE SPACES PIC XX. @E@@@] 02 FILLER VALUE SFM )@@G@@PACES PIC X(108). @]@@@] / @ @@@] PROCEDURE DIVISIOFN )@@G@@N. @@@@@]@#@@@] 000-OPEN. @B@ @] OPEN OUTPUT DISCOFO )@@G@@UT2 LOG-CARD@A@@@ OPEN INPUT QUIP-CARDS. @A@ @] FP )@@G@@ INPUT QUIP-CARDS. @^@ @] SET P3 TO 1. @A@@@ SFQ )@@G@@ET ACCNT-INDEX TO 1. @B@@@] PERFORM 010-FETCH-QUIP-CARDS FR )@@G@@@A@@@] UNTIL QUIP-EOF. @ @@@ CLOSE QUIP-CAFS )@@G@@RDS. @C@@@ OPEN OUTPUT INTERIM-FILE, LOG-CARD. @E@@@] FT )@@G@@ CALL 'LOG32' USING EQUIP-TBL REC-V LOGRECORD. @D@@@] MFU )@@G@@OVE LOW-VALUES TO INT-SRT-1, INT-SRT-2. @^@@@] MOVE 0 TO Q FV )@@G@@@B@@@] PERFORM 020-CLEAR-15 60 TIMES @ @@@] PERFORMFW )@@G@@ 026-SYMB15.@^@@@] MOVE 0 TO Q. @B@@@] MOVE 'RECORD FX )@@G@@= ' TO L-TITLE. @B@@@] MOVE 'H15500' TO DEPT-RUN-ID. @C@@@]FY )@@G@@ MOVE 'H1550020' TO DEPT-PROGRAM-NUM. @C@@@] ENTER FFZ )@@G@@D 'GETDATE' USING DATE-AREA @E@@@] ENTER FD 'DATEDIT' USING GA )@@G@@DATE-AREA DATE-EIGHT IND@B@@@] MOVE DATE-AREA TO DEPT-DATE. GB )@@G@@@C@@@] PERFORM 100-READT THRU 100-EXIT. @B@ @] PGC )@@G@@ERFORM 490-FINISH-REPORTS. @B@@@ PERFORM 499-FINISH-REPORTGD )@@G@@S. @A@ @] PERFORM 520-WRITE-VOLUME.@A@@@ PERFORMGE )@@G@@ 500-WRITE-VOLUME.@C@ @] CLOSE QUIP-CARDS DISCOUT2 LOG-CARD. GF )@@G@@@B@@@ CLOSE INTERIM-FILE LOG-CARD. @^@@@] STOP RUGG )@@G@@N. @]@@@] / @@@@@]@ @@@] 010-FETCH-QUIP-CARDS. @ @@@]GH )@@G@@ READ QUIP-CARDS @C@@@] AT END MOVE 'Y' TO SGI )@@G@@W-QUIP-EOF. @ @@@] IF NOT QUIP-EOF @D@@@] IF QGJ )@@G@@UIP-COMMAND = 'INSERT ACCOUNT ' @D@ @] PERFORM 050-CGK )@@G@@HECK-ACCNT-NO-SEQUENCE @D@@@ PERFORM 011-CHECK-ACCNT-NGL )@@G@@O-SEQUENCE @C@ @] PERFORM 051-STORE-ACCNT-NO @C@@@ GM )@@G@@ PERFORM 012-STORE-ACCNT-NO @#@@@] ELSEGN )@@G@@@F@@@] DISPLAY 'ILLEGAL QUIP COMMAND IN QUIP-CARDS' GO )@@G@@@B@@@] UPON PRINT-DEVICE@A@@@] EGP )@@G@@NTER FD 'ABORT'. @@@@@ @A@@@ 011-CHECK-ACCNT-NO-SEQUENCE. @C@@@ GQ )@@G@@ IF NOT QUIP-ACCNT > LAST-QUIP-ACCNT @G@@@ DISPGR )@@G@@LAY 'QUIP-ACCNT-NO ' QUIP-ACCNT ' OUT OF SEQUENCE' @B@@@ GS )@@G@@ UPON PRINT-DEVICE @ @@@ ENTER FD 'ABORT'@#@@@ GT )@@G@@ ELSE @D@@@ MOVE QUIP-ACCNT TO LAST-QUIP-ACCNTGU )@@G@@. @@@@@ @ @@@ 012-STORE-ACCNT-NO. @ @@@ ADD 1 TGV )@@G@@O QUIP-CNT. @E@@@ MOVE QUIP-ACCNT TO VALID-ACCNT-NO (ACCNT-INGW )@@G@@DEX). @A@@@ SET ACCNT-INDEX UP BY 1. @]@@@ / @@@@@]GX )@@G@@@^@@@] 020-CLEAR-15. @^@@@] ADD 1 TO Q. @A@@@] GY )@@G@@ PERFORM 021-CLEARED. @C@@@] IF Q < 16 PERFORM 021-CLGZ )@@G@@EAR-NSA. @@@@@]@^@@@] 021-CLEARED. @A@@@] MOVE SPHA )@@G@@ACES TO RUN15 (Q)@A@@@] MOVE SPACES TO SYMB15 (Q)@A@@@] HB )@@G@@ MOVE SPACES TO ACT-15 (Q)@B@@@] MOVE ZEROS TO DTIM15 (Q)HC )@@G@@. @@@@@]@^@@@] 021-CLEAR-NSA. @F@@@] MOVE SPACES HD )@@G@@TO NSARUNID (Q) NSANBR (Q) NSAACCTNO (Q). @E@@@] MOVE ZEROS THE )@@G@@O NSATM-START (Q) NSATM-FIN (Q). @@@@@]@^@@@] 022-CLEAR-4. HF )@@G@@@ @#@] MOVE 0 TO R4-NWIE @ @ @# MOVE 0 TO R4-CPU HG )@@G@@@ @#@] R4-CPU @ @ @] R4-SUPS HH )@@G@@@ @@@ MOVE 0 TO R4-SUPS @ @@@] R4-CBS HI )@@G@@@A@@@] R4-VOL-DELAY @ @@@] R4-HJ )@@G@@RTL @ @@@] R4-COND. @A@@@] MOVE ZEROES THK )@@G@@O R4-TERM @A@@@] R4-EXTEND @A@@@] HL )@@G@@ R4-CARDS. @B@@@] PERFORM 024-CLEAR-R4-XFERS HM )@@G@@@D@@@] VARYING Q FROM 1 BY 1 UNTIL Q > 10.@^@@@] HN )@@G@@ MOVE 0 TO Q @B@@@] PERFORM 023-CLEAR4RCD 15 TIMES.@@@@@]HO )@@G@@@^@@@] 023-CLEAR4RCD. @^@@@] ADD 1 TO Q @A@@@] HP )@@G@@ MOVE 0 TO R4-CTRS (Q). @@@@@]@@@@@]@ @@@] 024-CLEAR-R4-XFERHQ )@@G@@S. @A@@@] MOVE 0 TO R4-IOS (Q). @@@@@]@#@@@] 026-SHR )@@G@@YMB15.@B@@@] MOVE 'CR7 ' TO SYMB15 (1). @B@@@] MHS )@@G@@OVE 'SOCR ' TO SYMB15 (2). @B@@@] MOVE 'SOPR1 ' TO SYMB15 (HT )@@G@@3). @B@@@] MOVE 'SOPU1 ' TO SYMB15 (4). @B@@@] MHU )@@G@@OVE 'PR1 ' TO SYMB15 (5). @B@@@] MOVE 'PR3 ' TO SYMB15 (HV )@@G@@6). @B@@@] MOVE '9300SO' TO SYMB15 (7). @@@@@]@@@ @]@A@ @]HW )@@G@@ 050-CHECK-ACCNT-NO-SEQUENCE. @C@ @] IF NOT QUIP-ACCNT >HX )@@G@@ LAST-QUIP-ACCNT @G@ @] DISPLAY 'QUIP-ACCNT-NO ' QUIP-ACCNHY )@@G@@T ' OUT OF SEQUENCE' @B@ @] UPON PRINT-DEVICE HZ )@@G@@@ @ @] ENTER FD 'ABORT'@#@ @] ELSE @D@ @] IA )@@G@@ MOVE QUIP-ACCNT TO LAST-QUIP-ACCNT. @@@ @]@ @ @] 051-SIB )@@G@@TORE-ACCNT-NO. @ @ @] ADD 1 TO QUIP-CNT. @D@ @] MIC )@@G@@OVE QUIP-ACCNT TO VALID-ACCNT-NO (P3). @ @ @] SET P3 UP BY ID )@@G@@1. @]@@@] / @#@@@] 100-READT. @D@@@] CALL 'LIE )@@G@@OGREC' USING LOGRECORD INDX STATT. @B@@@] IF STATT > 1 GO TOIF )@@G@@ 100-EXIT. @ @@@] IF STATT = 0 OR 1 @E@@@] MOVEIG )@@G@@ LOG-REC (INDX) TO INT-RCD-1 INT-RCD-2. @A@@@] IF INDX < 1 IH )@@G@@OR INDX > 64@F@@@] DISPLAY 'INDX ' INDX ' INC ' INC UPON PII )@@G@@RINT-DEVICE @ @@@] ADD 1 TO STAT @ @@@] IF IJ )@@G@@STAT > 100 @A@@@] ENTER FD 'ABORT'.@A@@@] IIK )@@G@@F LOG-ENTRY-TYPE = 0 @A@@@] GO TO 100-READT. @^@@@]IL )@@G@@ ADD 1 TO INC @ @@@] IF RUNID = 'EXEC 8'@C@@@] IM )@@G@@ PERFORM 200-EXEC8 THRU 201-EXIT @A@@@] GO TO 100IN )@@G@@-READT. @B@@@] IF LOG-ENTRY-TYPE = 2 OR 3 OR 4@A@@@] IO )@@G@@ PERFORM 310-T2-3-4 @A@@@] GO TO 100-READT. IP )@@G@@@C@@@] IF LOG-ENTRY-TYPE = 5 OR 17 OR 18 @A@@@] IQ )@@G@@ PERFORM 320-T5-17-18 @A@@@] GO TO 100-READT. @F@@@]IR )@@G@@ IF LOG-ENTRY-TYPE = 9 PERFORM 300-T9 GO TO 100-READT. @F@@@]IS )@@G@@ IF LOG-ENTRY-TYPE = 1 PERFORM 350-T1 GO TO 100-READT.@I@#@]IT )@@G@@ IF LOG-ENTRY-TYPE = 7 PERFORM 330-T7 THRU 339-EXIT GO TO 100IU )@@G@@-READT. @A@@@# IF LOG-ENTRY-TYPE = 7 @C@@@# IV )@@G@@ PERFORM 330-T7 THRU 339-EXIT @A@@@# GO TO 100-READTIW )@@G@@. @G@@@] IF LOG-ENTRY-TYPE = 10 PERFORM 340-T10 GO TO 100IX )@@G@@-READT. @ @@@] GO TO 100-READT. @@@@@]@#@@@] 100-EIY )@@G@@XIT. @#@@@] EXIT. @]@@@] / @#@@@] 200-EXEC8. IZ )@@G@@@A@@@] IF LOG-ENTRY-TYPE = 12 @C@@@] PERFORMJA )@@G@@ 220-T12 GO TO 201-EXIT.@A@@@] IF LOG-ENTRY-TYPE = 15 @C@@@]JB )@@G@@ PERFORM 250-T15 GO TO 201-EXIT.@A@@@] IF LOG-JC )@@G@@ENTRY-TYPE = 14 @C@@@] PERFORM 260-T14 GO TO 201-EXIT. JD )@@G@@@A@@@] IF LOG-ENTRY-TYPE = 7 @C@@@] PERFORM JE )@@G@@270-T7 GO TO 201-EXIT. @A@@@] IF LOG-ENTRY-TYPE = 10 @ @@@]JF )@@G@@ IF NSA-SW > 0 @C@@@] PERFORM 285-T10 GO TJG )@@G@@O 201-EXIT. @@@@@]@^@@@] 201-EXIT. EXIT. @@@@@]@]@@@] / JH )@@G@@@#@@@] 220-T12. @A@@@] MOVE INT-RCD-1 TO RCD-12.@B@@@]JI )@@G@@ IF R12-KEYIN = 'E ' OR 'X ' @B@@@] PERFORM 2JJ )@@G@@21-RUN-E-OR-X. @@@@@]@^@@@] 221-RUN-E-OR-X. @B@^@] MJK )@@G@@OVE LOW-VALUES TO INT-SRT-2. @C@@@^ MOVE LOW-VALUES TO INT-SRJL )@@G@@T-2-OTHER. @A@@@] MOVE 2 TO SRT2-TYPE. @C@#@] MJM )@@G@@OVE R12-MSG-WORD-1 TO SRT2-RUNID. @C@@@# MOVE R12-MSG-WORD-1JN )@@G@@ TO SRT2-RUNID2. @ @@@] PERFORM 401-WRITE2.@]@@@] / JO )@@G@@@#@@@] 250-T15. @A@@@] MOVE INT-RCD-1 TO RCD-15.@^@@@]JP )@@G@@ MOVE 0 TO Q. @A@@@] PERFORM 252-FINDSLOT. @@@@@]JQ )@@G@@@^@@@] 252-FINDSLOT. @^@@@] ADD 1 TO Q @^@@@] JR )@@G@@ IF Q > 60 @E@@@] DISPLAY 'TOO MANY TYPE15S' UPON PRIJS )@@G@@NT-DEVICE @#@@@] ELSE @A@@@] IF SYMB15 (Q) = SPAJT )@@G@@CES @C@@@] MOVE R15-SYMBIONT TO SYMB15 (Q). @^@@@] JU )@@G@@ IF Q < 61 @B@@@] IF R15-SYMBIONT = SYMB15 (Q) @A@@@]JV )@@G@@ PERFORM 253-MOVE15 @#@@@] ELSE @A@@@] JW )@@G@@ GO TO 252-FINDSLOT. @A@@@] IF ACT-15 (Q) = 'UNIVAC' JX )@@G@@@C@@@] MOVE 'H152 ' TO ACT-15 (Q).@@@@@]@#@@@] JY )@@G@@ 253-MOVE15.@B@@@] IF R15-ACCOUNT = '@@@@@@@@@@@@'@D@@@] JZ )@@G@@ MOVE SPACES TO ACT-15 (Q) RUN15 (Q) @C@@@] MOVEKA )@@G@@ ZEROS TO CTR15 (Q) DTIM15 (Q)@#@@@] ELSE @C@@@] KB )@@G@@ MOVE R15-ACCOUNT TO ACT-15 (Q) @C@@@] MOVE R15-RUNID KC )@@G@@TO RUN15 (Q) @B@@@] MOVE ZEROS TO CTR15 (Q) @B@@@]KD )@@G@@ MOVE DTIM TO DTIM15 (Q). @]@@@] / @#@@@] KE )@@G@@ 260-T14. @A@@@] MOVE INT-RCD-1 TO RCD-14.@^@@@] MKF )@@G@@OVE 0 TO Q. @ @@@] PERFORM 261-FIND15.@@@@@]@#@@@] 261-FKG )@@G@@IND15.@^@@@] ADD 1 TO Q. @^@@@] IF Q < 61 @B@@@]KH )@@G@@ IF R14-SYMBIONT = SYMB15 (Q) @B@@@] IF R14-RUKI )@@G@@NID = RUN15 (Q) @B@@@] PERFORM 262-MOVE-15 @^@@@]KJ )@@G@@ ELSE @ @@@] NEXT SENTENCE @#@@@] KK )@@G@@ ELSE @A@@@] GO TO 261-FIND15. @@@@@]@^@@@] KL )@@G@@ 262-MOVE-15. @E@@@] MOVE ACT-15 (Q) TO SRT1-ACCOUNT SRTKM )@@G@@2-ACCOUNT. @D@@@] MOVE RUN15 (Q) TO SRT1-RUNID SRT2-RUNID. KN )@@G@@@D@@@] MOVE CTR15 (Q) TO R14-SPEC-FORM-MNTS. @D@@@] KO )@@G@@ MOVE DATE15 (Q) TO SRT1-DATE, SRT2-DATE. @B@@@] MOVE DTKP )@@G@@IM15 (Q) TO SRT1-DTIM. @B@@@] MOVE DTIM15 (Q) TO R14-DTIM. KQ )@@G@@@^@@@] ADD 1 TO INC @B@@@] MOVE SYMB15 (Q) TO SRT2-DKR )@@G@@EVICE.@C@@@] MOVE RCD-14 TO INT-RCD-1, INT-RCD-2. @C@@@] KS )@@G@@ PERFORM 400-WRITE1 THRU 401-WRITE2. @]@@@] / @#@@@] KT )@@G@@ 270-T7. @A@@@] MOVE INT-RCD-1 TO RCD-7. @B@@@] IKU )@@G@@F R7-MSG-WORD-1 = ' LOAD ' @A@@@] PERFORM 271-LOADS. KV )@@G@@@A@@@] IF R7-MSG-NBR IS NUMERIC @B@@@] AND R7-MSG-KW )@@G@@SPACE1 = SPACES @B@@@] AND R7-MSG-SPACE2 = SPACES @A@@@]KX )@@G@@ PERFORM 276-T7-MSG.@@@@@]@#@@@] 271-LOADS. @A@@@]KY )@@G@@ PERFORM 900-GET-CNT. @^@@@] MOVE 0 TO Q. @A@@@]KZ )@@G@@ MOVE SPACES TO ERR-MSG. @ @@@] PERFORM 272-CK-ID. LA )@@G@@@@@@@]@#@@@] 272-CK-ID. @C@@@] IF R7-MSG-CHAR (CTR) NOT LB )@@G@@= SPACES @ @@@] ADD 1 TO Q @A@@@] PERLC )@@G@@FORM 273-SHUFFLE @A@@@] SUBTRACT 1 FROM CTR @ @@@] LD )@@G@@ GO TO 272-CK-ID@#@@@] ELSE @^@@@] IF QLE )@@G@@ = 0 @A@@@] SUBTRACT 1 FROM CTR @A@@@] GOLF )@@G@@ TO 272-CK-ID @#@@@] ELSE @^@@@] IF Q = 1 LG )@@G@@@A@@@] IF ERRM (Q) = '8' @B@@@] PERLH )@@G@@FORM 274-SHUFFLE-8@^@@@] ELSE @B@@@] LI )@@G@@ PERFORM 275-LOAD-PK @^@@@] ELSE @B@@@] LJ )@@G@@ PERFORM 275-LOAD-PK. @@@@@]@^@@@] 273-SHUFFLE. @B@@@]LK )@@G@@ MOVE ERRM (5) TO ERRM (6). @B@@@] MOVE ERRM (4)LL )@@G@@ TO ERRM (5). @B@@@] MOVE ERRM (3) TO ERRM (4). @B@@@]LM )@@G@@ MOVE ERRM (2) TO ERRM (3). @B@@@] MOVE ERRM (1)LN )@@G@@ TO ERRM (2). @C@@@] MOVE R7-MSG-CHAR (CTR) TO ERRM (1). LO )@@G@@@@@@@]@^@@@] 274-SHUFFLE-8. @B@@@] SUBTRACT 4 FROM CTRLP )@@G@@ GIVING Q2. @A@@@] IF R7-MSG-CHAR (Q2) = 'E'@ @@@] LQ )@@G@@ ADD 1 TO Q2 @B@@@] IF R7-MSG-CHAR (Q2) = 'X' @ @@@]LR )@@G@@ ADD 1 TO Q2 @B@@@] IF R7-MSG-CHAR (Q2) =LS )@@G@@ 'E' @ @@@] ADD 1 TO Q2@B@@@] IF R7-MLT )@@G@@SG-CHAR (Q2) = 'C'@A@@@] NEXT SENTENCE @^@@@] LU )@@G@@ ELSE @B@@@] PERFORM 275-LOAD-PK @^@@@]LV )@@G@@ ELSE @A@@@] PERFORM 275-LOAD-PK@#@@@]LW )@@G@@ ELSE @A@@@] PERFORM 275-LOAD-PK @#@@@] LX )@@G@@ ELSE @A@@@] PERFORM 275-LOAD-PK. @@@@@]@^@@@] LY )@@G@@ 275-LOAD-PK. @B@^@] MOVE LOW-VALUES TO INT-SRT-2. @C@@@^LZ )@@G@@ MOVE LOW-VALUES TO INT-SRT-2-OTHER. @B@#@] MOVE ERMA )@@G@@R-MSG TO SRT2-RUNID. @B@@@# MOVE ERR-MSG TO SRT2-RUNID2. MB )@@G@@@A@@@] MOVE 1 TO SRT2-TYPE. @ @@@] PERFORM 401-WMC )@@G@@RITE2.@@@@@]@#@@@] 276-T7-MSG.@A@@@] MOVE SPACES TO WMESMD )@@G@@SAGE @A@@@] MOVE 6 TO Q MOVE 0 TO Q1@B@@@] PERFORMME )@@G@@ 277-MOVE-M 6 TIMES. @A@@@] IF WMESSAGE = 'SPECIA' @A@@@]MF )@@G@@ PERFORM 278-SPC-FORM.@A@@@] IF WMESSAGE = 'MOUNMG )@@G@@T ' @A@@@] PERFORM 279-ADD. @E@@@] IF WMESMH )@@G@@SAGE = 'UNDEF ' OR 'USERID' OR 'CAN RU' @A@@@] PERFORM 2MI )@@G@@80-STD-ACCT.@@@@@]@#@@@] 277-MOVE-M.@A@@@] ADD 1 TO Q AMJ )@@G@@DD 1 TO Q1 @C@@@] MOVE R7-MSG-CHAR (Q) TO WMSG (Q1). @@@@@]MK )@@G@@@^@@@] 278-SPC-FORM. @B@@@] PERFORM 277-MOVE-M 6 TIMEML )@@G@@S. @B@@@] IF WMESSAGE = 'SPECIAL FORM' @ @@@] MM )@@G@@ MOVE 0 TO Q @A@@@] PERFORM 279-ADD. @@@@@]@#@@@]MN )@@G@@ 279-ADD. @^@@@] ADD 1 TO Q. @^@@@] IF Q < MO )@@G@@16 @B@@@] IF SYMB15 (Q) = R7-MSG-WORD-1@A@@@] MP )@@G@@ ADD 1 TO CTR15 (Q) @#@@@] ELSE @ @@@] GO MQ )@@G@@TO 279-ADD. @@@@@]@^@@@] 280-STD-ACCT. @^@@@] MOVE 0 MR )@@G@@TO Q @ @@@] PERFORM 281-TABLE. @ @@@] ADD 1 TO NSA-MS )@@G@@SW. @@@@@]@#@@@] 281-TABLE. @^@@@] ADD 1 TO Q @A@@@]MT )@@G@@ IF NSANBR (Q) = SPACE @C@@@] MOVE R7-MSG-NBRMU )@@G@@ TO NSANBR (Q) @D@@@] MOVE R7-MSG-WORD-1 TO NSARUNID (QMV )@@G@@) @C@@@] MOVE DTIM TO NSATM-START (Q) @A@@@] MW )@@G@@ PERFORM 282-FIND-ACCT@#@@@] ELSE @A@@@] MX )@@G@@ GO TO 281-TABLE. @@@@@]@^@@@] 282-FIND-ACCT. @A@@@] MY )@@G@@ IF WMESSAGE = 'CAN RU' @D@@@] MOVE 'STNDRD-ACCNT' TMZ )@@G@@O NSAACCTNO (Q). @A@@@] IF WMESSAGE = 'USERID' @ @@@] NA )@@G@@ MOVE 12 TO Q1 @ @@@] MOVE 0 TO Q2 @B@@@] NB )@@G@@ MOVE SPACES TO WMESSAGE @A@@@] PERFORM 283-USENC )@@G@@R @C@@@] MOVE WMESSAGE TO NSAUSERID (Q) @ @@@] ND )@@G@@ ADD 16 TO Q1 @B@@@] MOVE SPACES TO WMESSAGE NE )@@G@@@ @@@] MOVE 0 TO Q2 @A@@@] PERFORM 283-USENF )@@G@@R @C@@@] MOVE WMESSAGE TO NSAACCTNO (Q). @A@@@] NG )@@G@@ IF WMESSAGE = 'UNDEF ' @ @@@] MOVE 18 TO Q1 @B@@@]NH )@@G@@ IF R7-MSG-CHAR (Q1) = SLASH@B@@@] MOVE SPNI )@@G@@ACES TO WMESSAGE @ @@@] MOVE 0 TO Q2 @ @@@] NJ )@@G@@ ADD 5 TO Q1 @A@@@] PERFORM 283-USER @C@@@] NK )@@G@@ MOVE WMESSAGE TO NSAACCTNO (Q) @B@@@] MOVE SPNL )@@G@@ACES TO WMESSAGE @ @@@] MOVE 0 TO Q2 @A@@@] NM )@@G@@ PERFORM 283-USER @C@@@] MOVE WMESSAGE TO NSAUSERINN )@@G@@D (Q) @^@@@] ELSE @B@@@] IF R7-MSG-CHANO )@@G@@R (Q1) = ' '@B@@@] MOVE SPACES TO WMESSAGE@A@@@] NP )@@G@@ MOVE 0 TO Q2 @A@@@] PERFORM 283-USER NQ )@@G@@@D@@@] MOVE WMESSAGE TO NSAACCTNO (Q). @#@@@] NR )@@G@@ 283-USER. @^@@@] ADD 1 TO Q1 @^@@@] ADD 1 TO Q2. NS )@@G@@@F@@@] IF R7-MSG-CHAR (Q1) = ' ' OR R7-MSG-CHAR (Q1) = SLASH NT )@@G@@@ @@@] NEXT SENTENCE @#@@@] ELSE @D@@@] NU )@@G@@ MOVE R7-MSG-CHAR (Q1) TO WMSG (Q2) @ @@@] GO NV )@@G@@TO 283-USER.@]@@@] / @#@@@] 285-T10. @A@@@] MNW )@@G@@OVE INT-RCD-1 TO RCD-10.@^@@@] MOVE 0 TO Q @ @@@] PNX )@@G@@ERFORM 286-TBL-10.@@@@@]@#@@@] 286-TBL-10.@^@@@] ADD 1 TNY )@@G@@O Q. @^@@@] IF Q < 16 @B@@@] IF R10-MSG-NBR = NZ )@@G@@NSANBR (Q) @A@@@] PERFORM 287-Y-N @#@@@] OA )@@G@@ ELSE @A@@@] GO TO 286-TBL-10. @@@@@]@#@@@] 287-YOB )@@G@@-N. @C@@@] IF R10-MSG-CHAR (1) = 'N' OR 'R' @G@@@] OC )@@G@@ MOVE SPACES TO NSANBR (Q) NSARUNID (Q) NSAACCTNO (Q) @A@@@]OD )@@G@@ NSAUSERID (Q) @#@@@] ELSE @A@@@] OE )@@G@@ ADD 1 TO NSA-SW9. @A@@@] SUBTRACT 1 FROM NSA-SW. OF )@@G@@@]@@@] / @#@@@] 300-T9. @A@@@] MOVE INT-RCD-OG )@@G@@1 TO RCD-9. @D@@@] MOVE LOW-VALUES TO INT-SRT-1, INT-SRT-2. OH )@@G@@@B@@@] PERFORM 492-CLEAR-T3-TABLES @D@ @] VARYOI )@@G@@ING P2 FROM 1 BY 1 UNTIL P2 > 8. @F@@@ VARYING GRAN-SUBOJ )@@G@@ FROM 1 BY 1 UNTIL GRAN-SUB > 8. @D@@@] MOVE R9-NEW-RUNID TOK )@@G@@O SRT1-RUNID SRT2-RUNID.@C@@@] IF R9-ACCOUNT = STD-ACCT OR INSOL )@@G@@TL @F@@@] MOVE 'H158 ' TO SRT1-ACCOUNT SRT2-ACCOUNOM )@@G@@T @#@@@] ELSE @A@@@] IF R9-ACCOUNT = UNIVAC ON )@@G@@@F@@@] MOVE 'H152 ' TO SRT1-ACCOUNT SRT2-ACCOUNT OO )@@G@@@#@@@] ELSE @E@@@] MOVE R9-ACCOUNT TO SRT1-ACCOP )@@G@@OUNT SRT2-ACCOUNT.@C@@@] MOVE R9-DT TO SRT1-DATE, SRT2-DATE OQ )@@G@@@B@@@] MOVE R9-DTIM-REDEF TO SRT1-DTIM@B@#@] MOVE SROR )@@G@@T1-RUNID TO TIP-RCD. @B@@@# MOVE R9-NEW-RUNID TO TIP-RCD. OS )@@G@@@C@@@] IF R9-DEVICE-NUM > 0 AND NOT > CKDEV9@ @@@] OT )@@G@@ PERFORM 303-TIP@B@@@] MOVE R9-DEVICE-NUM TO Q1 @C@@@]OU )@@G@@ MOVE TDVCE (Q1) TO SRT2-DEVICE @C@@@] MOVOV )@@G@@E TDVCE (Q1) TO R9-DEVICE @#@@@] ELSE @ @@@] OW )@@G@@ IF T-HES = ASTR@F@@@] MOVE 'H158 ' TO SRT1-ACOX )@@G@@COUNT SRT2-ACCOUNT@E@@@] MOVE 'CR7 ' TO SRT2-DEVICE ROY )@@G@@9-DEVICE @^@@@] ELSE @C@@@] MOVE ROZ )@@G@@9-DEVICE TO SRT2-DEVICE.@C@@@] MOVE RCD-9 TO INT-RCD-1, INT-RCPA )@@G@@D-2. @C@@@] PERFORM 400-WRITE1 THRU 401-WRITE2. @ @@@] PB )@@G@@ MOVE 0 TO LOG-SW. @A@@@] PERFORM 022-CLEAR-4. @A@@@]PC )@@G@@ MOVE SPACES TO K2-HOLD. @ @@@] IF NSA-SW9 > 0 PD )@@G@@@A@@@] MOVE 0 TO Q NSA-9. @ @@@] PERFORM 301-NPE )@@G@@SA9. @^@@@] IF NSA-9 > 0 @A@@@] PERFORM 302-NSAPF )@@G@@-9. @@@@@]@#@@@] 301-NSA9. @^@@@] ADD 1 TO Q. @^@@@]PG )@@G@@ IF Q < 16 @C@@@] IF SRT1-ACCOUNT = NSAACCTNO (PH )@@G@@Q) @C@@@] IF SRT1-RUNID = NSARUNID (Q) @A@@@] PI )@@G@@ MOVE 1 TO NSA-9 @^@@@] ELSE @A@@@] PJ )@@G@@ GO TO 301-NSA9 @#@@@] ELSE @ @@@] PK )@@G@@ GO TO 301-NSA9.@@@@@]@#@@@] 302-NSA-9. @D@@@] MOVE R9PL )@@G@@-DTIM-REDEF TO NSATM-START (Q). @B@@@] MOVE R9-PROJECT TO PM )@@G@@NSAPROJ (Q).@C@@@] MOVE R9-DEVICE TO NSADEVICE (Q). @C@@@]PN )@@G@@ MOVE R9-USERID TO NSAUSERID (Q). @@@@@]@#@@@] 303-TPO )@@G@@IP. @D@@@] MOVE 'H158 ' TO SRT1-ACCOUNT SRT2-ACCOUNT.@A@@@]PP )@@G@@ IF T-CHAR IS NOT NUMERIC @A@@@] IF T-NBR IS NUMERPQ )@@G@@IC @A@@@] IF T-HES = ASTR @A@@@] PR )@@G@@ MOVE 'H' TO T-HES@B@@@] PERFORM 304-CNVT-TIP @F@@@]PS )@@G@@ MOVE TIP-RCD TO SRT1-ACCOUNT SRT2-ACCOUNT. @@@@@]PT )@@G@@@^@@@] 304-CNVT-TIP. @C@@@] IF T-CHAR = 'I' MOVE '0' PU )@@G@@TO T-CHAR. @C@@@] IF T-CHAR = 'J' MOVE '1' TO T-CHAR. @C@@@]PV )@@G@@ IF T-CHAR = 'K' MOVE '2' TO T-CHAR. @C@@@] IF T-CHPW )@@G@@AR = 'L' MOVE '3' TO T-CHAR. @C@@@] IF T-CHAR = 'M' MOVE '4' PX )@@G@@TO T-CHAR. @C@@@] IF T-CHAR = 'N' MOVE '5' TO T-CHAR. @C@@@]PY )@@G@@ IF T-CHAR = 'O' MOVE '6' TO T-CHAR. @C@@@] IF T-CHPZ )@@G@@AR = 'P' MOVE '7' TO T-CHAR. @C@@@] IF T-CHAR = 'Q' MOVE '8' QA )@@G@@TO T-CHAR. @A@@@] MOVE SPACES TO T-SPACE. @]@@@] / QB )@@G@@@#@@@] 310-T2-3-4.@A@@@] IF RUNID = SRT1-RUNID @A@@@]QC )@@G@@ IF LOG-ENTRY-TYPE = 3 @A@@@] MOVE 1 TO R3QD )@@G@@-SW @B@@@] MOVE INT-RCD-1 TO RCD-3 @C@@@] QE )@@G@@ PERFORM 491-ACCUMULATE-TRACKS @E@ @] VARYING P2QF )@@G@@ FROM 1 BY 1 UNTIL P2 > 8 @G@@@ VARYING GRAN-SUBQG )@@G@@ FROM 1 BY 1 UNTIL GRAN-SUB > 8 @A@@@] PERFORM 311-QH )@@G@@T3-9 @^@@@] ELSE @A@@@] PERFORM 400-QI )@@G@@WRITE1@B@@@] IF LOG-ENTRY-TYPE = 4@C@@@] QJ )@@G@@ MOVE INT-RCD-1 TO RCD-4.@@@@@]@#@@@] 311-T3-9. @C@@@]QK )@@G@@ IF R3-PROJECT = PUBLIC NEXT SENTENCE @#@@@] ELSE QL )@@G@@@F@@@] IF SRT1-ACCOUNT = 'H159 ' OR 'H158 ' QM )@@G@@@B@@@] OR 'H152 ' OR INSTL @ @@@] NEXQN )@@G@@T SENTENCE @#@@@] ELSE @C@@@] IF R3-ACCOUNT =QO )@@G@@ STD-ACCT OR INSTL@ @@@] NEXT SENTENCE@^@@@] QP )@@G@@ ELSE @C@@@] MOVE SRT1-ACCOUNT TO WMESSAGE @C@@@]QQ )@@G@@ IF WMSG (2) = R3-ACCOUNT-GROUP @A@@@] QR )@@G@@NEXT SENTENCE @^@@@] ELSE @B@@@] QS )@@G@@ PERFORM 312-T3-RPT. @@@@@]@#@@@] 312-T3-RPT.@^@@@] IQT )@@G@@F AFPG = 0 @B@@@] MOVE AF-CARD TO C-CARD @C@@@] QU )@@G@@ ENTER FD ASM 'EQUIP' USING C-CARD@ @@@] MOVE 1 TOQV )@@G@@ AFPG @A@@@] OPEN OUTPUT AFPRINT @A@@@] PERQW )@@G@@FORM 313-AF-HDRS. @ @@@] IF AF-LINES > 55 @ @@@] QX )@@G@@ ADD 1 TO AFPG @A@@@] PERFORM 313-AF-HDRS. @C@@@] QY )@@G@@ MOVE SRT1-ACCOUNT TO AF-R-ACT-NO. @B@@@] MOVE SRT1-RUNQZ )@@G@@ID TO AF-RUNID. @B@@@] MOVE R9-PROJECT TO AF-R-PROJ. @E@@@]RA )@@G@@ MOVE SPACE TO AF-DEVICE AF-F-ACT-NO AF-USER-ID. @A@@@] RB )@@G@@ MOVE ZEROS TO AF-CYCLE. @A@@@] IF SRT2-DEVICE > SPACES RC )@@G@@@C@@@] MOVE SRT2-DEVICE TO AF-DEVICE. @E@@@] RD )@@G@@ IF R9-USERID = STD-ACCT NEXT SENTENCE ELSE @B@@@] MOVE RE )@@G@@R9-USERID TO AF-USER-ID.@A@@@] IF R3-ACCOUNT > SPACES @C@@@]RF )@@G@@ MOVE R3-ACCOUNT TO AF-F-ACT-NO. @B@@@] MOVE R3RG )@@G@@-FILENAME TO AF-FILENM.@B@@@] MOVE R3-PROJECT TO AF-F-PROJ.RH )@@G@@@B@@@] MOVE R3-QUALIFIER TO AF-QUAL. @B@@@] MOVE R3RI )@@G@@-CYCLE TO AF-CYCLE. @A@@@] IF R3-ASG-DATE-TIME > 0 @C@@@]RJ )@@G@@ MOVE R3-ASG-DATE-TIME TO CNVT-BIN@A@@@] MOVRK )@@G@@E CBIN1 TO DATE-R @ @@@] MOVE RYR TO MYR@ @@@] RL )@@G@@ MOVE RDA TO MDA@ @@@] MOVE RMO TO MMO@ @@@] RM )@@G@@ ADD 64 TO MYR @B@@@] MOVE MMO TO AF-DATE-A1 @B@@@]RN )@@G@@ MOVE MDA TO AF-DATE-A2 @B@@@] MOVE MYR RO )@@G@@TO AF-DATE-A3 @A@@@] MOVE CBIN2 TO DATE9 @A@@@] RP )@@G@@ MOVE ZEROS TO DATE-B @A@@@] PERFORM 413-CNVT-SEC RQ )@@G@@@B@@@] MOVE MYR TO AF-TM-ASG1 @B@@@] MOVRR )@@G@@E MMO TO AF-TM-ASG2 @B@@@] MOVE MDA TO AF-TM-ASG3 RS )@@G@@@A@@@] MOVE 'ASGN' TO A-F @B@@@] MOVE ':' RT )@@G@@TO AF-DOT1 AF-DOT2@B@@@] MOVE SLASH TO AF-SL1 AF-SL2.@A@@@]RU )@@G@@ IF R3-FREE-TIME > 0 @C@@@] MOVE R3-FREE-TIRV )@@G@@ME TO CNVT-BIN @A@@@] MOVE CBIN1 TO DATE-R @ @@@] RW )@@G@@ MOVE RYR TO MYR@ @@@] MOVE RMO TO MMO@ @@@] RX )@@G@@ MOVE RDA TO MDA@ @@@] ADD 64 TO MYR @B@@@] RY )@@G@@ MOVE MMO TO AF-DATE-A1 @B@@@] MOVE MDA TO AF-RZ )@@G@@DATE-A2 @B@@@] MOVE MYR TO AF-DATE-A3 @A@@@] SA )@@G@@ MOVE CBIN2 TO DATE9 @A@@@] MOVE ZEROS TO DATE-B SB )@@G@@@A@@@] PERFORM 413-CNVT-SEC @B@@@] MOVE MYR SC )@@G@@TO AF-TM-ASG1 @B@@@] MOVE MMO TO AF-TM-ASG2 @B@@@]SD )@@G@@ MOVE MDA TO AF-TM-ASG3 @A@@@] MOVE 'FRESE )@@G@@E' TO A-F @B@@@] MOVE ':' TO AF-DOT1 AF-DOT2@B@@@] SF )@@G@@ MOVE SLASH TO AF-SL1 AF-SL2.@E@@@] WRITE AFPRT FROM SG )@@G@@AFDATA1 AFTER ADVANCING 1. @ @@@] ADD 1 TO AF-LINES. @@@@@]SH )@@G@@@^@@@] 313-AF-HDRS. @B@@@] MOVE AFPG TO DEPT-PAGE-NUSI )@@G@@M @F@@@] WRITE AFPRT FROM DEPT-HEADER-1 AFTER ADVANCING PASJ )@@G@@GE. @F@@@] WRITE AFPRT FROM DEPT-HEADER-2 AFTER ADVANCINGSK )@@G@@ 1. @E@@@] WRITE AFPRT FROM AFTITLE AFTER ADVANCING 2. SL )@@G@@@E@@@] WRITE AFPRT FROM AFLINE1 AFTER ADVANCING 2. @E@@@]SM )@@G@@ WRITE AFPRT FROM BLNK AFTER ADVANCING 1. @A@@@] SN )@@G@@ MOVE 10 TO AF-LINES. @]@@@] / @^@@@] 320-T5-17-1SO )@@G@@8. @A@@@] IF LOG-ENTRY-TYPE = 5 @B@@@] MOVSP )@@G@@E INT-RCD-1 TO RCD-5 @#@@@] ELSE @B@@@] IF SQ )@@G@@LOG-ENTRY-TYPE = 17 @C@@@] MOVE INT-RCD-1 TO RCD-1SR )@@G@@7. @A@@@] IF RUNID = SRT1-RUNID @ @@@] IF LOSS )@@G@@G-SW > 0 @A@@@] PERFORM 322-LOG-SW.@A@@@] IST )@@G@@F RUNID = SRT1-RUNID @ @@@] IF R3-SW = 1 @C@@@] SU )@@G@@ PERFORM 493-COLLECT-NEW-GRANS @E@ @] VARYSV )@@G@@ING P2 FROM 1 BY 1 UNTIL P2 > 8 @G@@@ VARYING GRSW )@@G@@AN-SUB FROM 1 BY 1 UNTIL GRAN-SUB > 8 @B@@@] PERFORMSX )@@G@@ 494-RELEASE-R3. @A@@@] IF RUNID = SRT1-RUNID @D@@@] SY )@@G@@ PERFORM 400-WRITE1 THRU 401-WRITE2. @ @@@] IF NSA-SZ )@@G@@SW9 > 0 @A@@@] MOVE 0 TO Q NSA-9 @A@@@] TA )@@G@@ PERFORM 301-NSA9. @^@@@] IF NSA-9 > 0 @A@@@] TB )@@G@@ PERFORM 321-NSA. @@@@@]@#@@@] 321-NSA. @A@@@] ITC )@@G@@F LOG-ENTRY-TYPE = 5 @C@@@] MOVE R5-CARDS-IN TO NSACD-ITD )@@G@@N (Q) @D@@@] MOVE R5-CARDS-OUT TO NSACD-OUT (Q) @C@@@]TE )@@G@@ MOVE R5-PAGES TO NSAPAGES (Q) @B@@@] MOVTF )@@G@@E R5-SUPS TO NSATOT (Q) @B@@@] MOVE R5-CBS TO NSACB (Q). TG )@@G@@@A@@@] IF LOG-ENTRY-TYPE = 18 @B@@@] MOVE DTIMTH )@@G@@ TO NSATM-FIN (Q) @A@@@] PERFORM 410-NSA-RPT. @A@@@] TI )@@G@@ IF LOG-ENTRY-TYPE = 17 @B@@@] MOVE R17-CPU TO NSACPTJ )@@G@@U (Q) @B@@@] MOVE DTIM TO NSATM-FIN (Q)@A@@@] TK )@@G@@ PERFORM 410-NSA-RPT. @@@@@]@#@@@] 322-LOG-SW.@A@@@] ITL )@@G@@F LOG-ENTRY-TYPE = 5 @B@@@] MOVE R9-DTIM TO C-TIME-X TM )@@G@@@D@@@] MOVE CORR C-TIME-X TO R5-START-TIME @D@@@] TN )@@G@@ SUBTRACT R4-CTRS (12) FROM R5-SUPS @C@@@] SUBTO )@@G@@TRACT R4-CTRS (13) FROM R5-CBS@D@@@] MOVE RCD-5 TO INT-RCDTP )@@G@@-1, INT-RCD-2. @A@@@] IF LOG-ENTRY-TYPE = 17 @D@ @] TQ )@@G@@ SUBTRACT R4-CTRS (14) FROM R17-CPU @D@@@] SUBTR )@@G@@TRACT R4-CTRS (15) FROM R17-ERS @D@@@] SUBTRACT R4-CTRTS )@@G@@S (11) FROM R17-VOLD @ @@@] MOVE 0 TO Q @B@@@] TT )@@G@@ PERFORM 323-SUBT 10 TIMES @D@@@] MOVE RCD-17 TO TU )@@G@@INT-RCD-1 INT-RCD-2. @@@@@]@#@@@] 323-SUBT. @^@@@] ATV )@@G@@DD 1 TO Q. @D@@@] SUBTRACT R4-CTRS (Q) FROM R17IOS (Q). TW )@@G@@@]@@@] / @#@@@] 330-T7. @A@@@] IF RUNID = SRTX )@@G@@T1-RUNID @ @@@] NEXT SENTENCE @#@@@] ELSE TY )@@G@@@ @@@] GO TO 339-EXIT.@A@@@] MOVE INT-RCD-1 TO RTZ )@@G@@CD-7. @B@@@] IF R7-MSG-WORD-1 = ' LOAD ' @A@@@] UA )@@G@@ PERFORM 400-WRITE1. @A@@@] IF R7-MSG-NBR IS NUMERIC @B@@@]UB )@@G@@ AND R7-MSG-SPACE1 = SPACES @B@@@] AND R7-MSG-UC )@@G@@SPACE2 = SPACES @A@@@] PERFORM 331-T7-MSG. @ @@@] UD )@@G@@ GO TO 339-EXIT. @@@@@]@#@@@] 331-T7-MSG.@B@@@] MUE )@@G@@OVE R7-MESSAGE TO WMESSAGE. @ @@@] MOVE 0 TO Q2 Q3 @C@@@]UF )@@G@@ PERFORM 332-MSG THRU 333-CK-ERR. @@@@@]@#@@@] 332-MUG )@@G@@SG. @^@@@] ADD 1 TO Q2. @A@@@] IF WMSG (Q2) = SPACUH )@@G@@ES @ @@@] GO TO 332-MSG. @^@@@] ADD 1 TO Q3. UI )@@G@@@B@@@] MOVE WMSG (Q2) TO ERRT (Q3). @^@@@] IF Q3 >UJ )@@G@@ 2 @ @@@] GO TO 333-CK-ERR.@ @@@] GO TO 332-MSGUK )@@G@@. @@@@@]@#@@@] 333-CK-ERR.@D@@@] IF ERR-XX = 'DA' OUL )@@G@@R 'DB' OR 'DC' OR 'T0' @ @@@] MOVE 7 TO Q2 @A@@@] UM )@@G@@ PERFORM 334-CK-MSG. @@@@@]@#@@@] 334-CK-MSG.@^@@@] UN )@@G@@ IF Q2 = 7 @^@@@] MOVE 0 TO Q3 @A@@@] MOVE SUO )@@G@@PACES TO ERR-MSG. @A@@@] IF WMSG (Q2) = SPACES @A@@@] UP )@@G@@ PERFORM 335-NEXT @#@@@] ELSE @ @@@] UQ )@@G@@ ADD 1 TO Q2 @A@@@] GO TO 334-CK-MSG. @@@@@]@#@@@]UR )@@G@@ 335-NEXT. @^@@@] ADD 1 TO Q2. @A@@@] IF WMSGUS )@@G@@ (Q2) = SPACE @B@@@] AND Q3 > 0 MOVE 0 TO Q3 @A@@@]UT )@@G@@ PERFORM 336-COMPARE @#@@@] ELSE @ @@@] UU )@@G@@ ADD 1 TO Q3 @^@@@] IF Q3 < 7@C@@@] UV )@@G@@ MOVE WMSG (Q2) TO ERRM (Q3) @A@@@] GO TO 335-NEXUW )@@G@@T. @@@@@]@^@@@] 336-COMPARE. @C@@@] IF ERR-MSG = UX )@@G@@'WRTRNG' OR 'WRONG ' @ @@@] NEXT SENTENCE @#@@@] UY )@@G@@ ELSE @A@@@] PERFORM 400-WRITE1 @A@@@] UZ )@@G@@ PERFORM 337-K2HOLD. @@@@@]@#@@@] 337-K2HOLD.@^@@@] AVA )@@G@@DD 1 TO Q3. @A@@@] IF K2H (Q3) = SPACES @B@@@] VB )@@G@@ MOVE R7-MSG-NBR TO K2H (Q3) @#@@@] ELSE @^@@@] VC )@@G@@ IF Q3 < 10@A@@@] GO TO 337-K2HOLD. @^@@@] 339-EVD )@@G@@XIT. EXIT. @]@@@] / @#@@@] 340-T10. @A@@@] MVE )@@G@@OVE INT-RCD-1 TO RCD-10.@A@@@] IF RUNID = SRT1-RUNID @ @@@]VF )@@G@@ MOVE 0 TO Q3 @A@@@] PERFORM 341-K2-MATCH.VG )@@G@@@@@@@]@^@@@] 341-K2-MATCH. @^@@@] ADD 1 TO Q3. @A@@@]VH )@@G@@ IF R10-MSG-NBR = K2H (Q3)@A@@@] PERFORM 400-WRIVI )@@G@@TE1 @B@@@] MOVE SPACES TO K2H (Q3) @#@@@] VJ )@@G@@ELSE @^@@@] IF Q3 < 10 @A@@@] GO TO 341-K2-MAVK )@@G@@TCH. @]@@@] / @#@@@] 350-T1. @A@@@] MOVE INVL )@@G@@T-RCD-1 TO RCD-1. @B@@@] IF R1-ACCOUNT-CHANGE = '*/H' @C@@@]VM )@@G@@ PERFORM 450-GET-ACCT-NO-CANDIDATE@D@@@] PERVN )@@G@@FORM 453-CHECK-ACCT-NO-VALIDITY @A@@@] IF VALID-ACCT-NVO )@@G@@O @C@@@] PERFORM 454-CLOSE-CURRENT-RUN @C@@@] VP )@@G@@ PERFORM 455-OPEN-NEXT-RUN. @]@@@] / @#@@@] VQ )@@G@@ 400-WRITE1.@B@@@] MOVE INC TO INT1-INC INT2-INC. @B@@@] VR )@@G@@ WRITE ITERIM FROM INTERIM-1 @ @@@] ADD 1 TO LOG-VOL. VS )@@G@@@@@@@]@#@@@] 401-WRITE2.@B@@@] WRITE ITERIM FROM INTERIMVT )@@G@@-2 @ @@@] ADD 1 TO LOG-VOL. @]@@@] / @^@@@] VU )@@G@@ 410-NSA-RPT. @^@@@] IF OPPG = 0 @B@@@] MOVVV )@@G@@E OP-CARD TO C-CARD @C@@@] ENTER FD ASM 'EQUIP' USING VW )@@G@@C-CARD@ @@@] MOVE 1 TO OPPG @A@@@] OPEN OUTPVX )@@G@@UT OPPRINT @A@@@] PERFORM 412-OP-HDRS. @ @@@] IVY )@@G@@F OP-LINES > 55 @A@@@] PERFORM 412-OP-HDRS. @C@@@] VZ )@@G@@ MOVE NSARUNID (Q) TO OP-RUNID @C@@@] MOVE NSAACCTNWA )@@G@@O (Q) TO OP-ACCT-NO @B@@@] MOVE NSAPROJ (Q) TO OP-PROJWB )@@G@@@C@@@] MOVE NSADEVICE (Q) TO OP-DEVICE @C@@@] MWC )@@G@@OVE NSAUSERID (Q) TO OP-USER-ID @C@@@] MOVE NSACD-IN (Q) WD )@@G@@ TO OP-CD-IN @C@@@] MOVE NSACD-OUT (Q) TO OP-CD-OUT WE )@@G@@@C@@@] MOVE NSAPAGES (Q) TO OP-PAGES @B@@@] MWF )@@G@@OVE NSATOT (Q) TO OP-TOT @B@@@] MOVE NSACPU (Q) TO OWG )@@G@@P-CPU @B@@@] MOVE NSACB (Q) TO OP-CB @C@@@] MWH )@@G@@OVE NSATM-START (Q) TO CNVT-BIN. @A@@@] MOVE CBIN1 TO DATE-WI )@@G@@R. @ @@@] MOVE RYR TO MYR@ @@@] MOVE RMO WJ )@@G@@TO MMO@ @@@] MOVE RDA TO MDA@ @@@] ADD 64 TO MYRWK )@@G@@. @A@@@] MOVE MMO TO OP-DATE-A1. @A@@@] MOVE MDWL )@@G@@A TO OP-DATE-A2. @A@@@] MOVE MYR TO OP-DATE-A3. @A@@@] WM )@@G@@ MOVE CBIN2 TO DATE9. @A@@@] MOVE ZEROS TO DATE-B. WN )@@G@@@A@@@] PERFORM 413-CNVT-SEC. @A@@@] MOVE MYR TO OWO )@@G@@P-TM-ST1. @A@@@] MOVE MMO TO OP-TM-ST2. @A@@@] MWP )@@G@@OVE MDA TO OP-TM-ST3. @B@@@] MOVE NSATM-FIN (Q) TO CNVT-BIN.WQ )@@G@@@A@@@] MOVE CBIN1 TO DATE-R @ @@@] MOVE RYR WR )@@G@@TO MYR@ @@@] MOVE RMO TO MMO@ @@@] MOVE RDA WS )@@G@@TO MDA@ @@@] ADD 64 TO MYR. @A@@@] MOVE MMO TO OWT )@@G@@P-DATE-F1. @A@@@] MOVE MDA TO OP-DATE-F2. @A@@@] MWU )@@G@@OVE MYR TO OP-DATE-F3. @ @@@] MOVE CBIN2 TO DATE9@A@@@] WV )@@G@@ MOVE ZEROS TO DATE-B. @A@@@] PERFORM 413-CNVT-SEC. WW )@@G@@@A@@@] MOVE MYR TO OP-TM-FIN1 @A@@@] MOVE MMO TO OWX )@@G@@P-TM-FIN2 @A@@@] MOVE MDA TO OP-TM-FIN3. @E@@@] WY )@@G@@ MOVE SLASH TO OP-SL1 OP-SL2 OP-SL3 OP-SL4. @D@@@] WRITE OWZ )@@G@@PPRT FROM OPDATA1 AFTER ADVANCING 2.@D@@@] WRITE OPPRT FROM OPXA )@@G@@DATA2 AFTER ADVANCING 1.@ @@@] ADD 3 TO OP-LINES. @@@@@]@^@@@]XB )@@G@@ 412-OP-HDRS. @B@@@] MOVE OPPG TO DEPT-PAGE-NUM. XC )@@G@@@D@@@] WRITE OPPRT FROM DEPT-HEADER-1 AFTER PAGE. @E@@@] XD )@@G@@ WRITE OPPRT FROM DEPT-HEADER-2 AFTER ADVANCING 1.@D@@@] WXE )@@G@@RITE OPPRT FROM OPTITLE AFTER ADVANCING 2.@D@@@] WRITE OPPRT FXF )@@G@@ROM OPLINE1 AFTER ADVANCING 4.@A@@@] MOVE 11 TO OP-LINES. XG )@@G@@@@@@@]@^@@@] 413-CNVT-SEC. @F@@@] DIVIDE 3600 INTO DAXH )@@G@@TE9 GIVING MYR REMAINDER CONVT1. @E@@@] DIVIDE 60 INTO CONVXI )@@G@@T1 GIVING MMO REMAINDER MDA. @]@@@] / @A@@@] 450-GET-ACCXJ )@@G@@T-NO-CANDIDATE. @^@@@] MOVE 0 TO Q @^@@@] MOVE 1 XK )@@G@@TO Q1 @A@@@] MOVE SPACES TO WMESSAGE. @A@@@] MOVE 'HXL )@@G@@' TO WMSG (1). @A@@@] PERFORM 451-LOG-ACCT. @@@@@]@^@@@]XM )@@G@@ 451-LOG-ACCT. @^@@@] ADD 1 TO Q. @B@@@] IXN )@@G@@F R1-ACCOUNT-CHAR (Q) > SPACES@ @@@] ADD 1 TO Q1 @D@@@]XO )@@G@@ MOVE R1-ACCOUNT-CHAR (Q) TO WMSG (Q1) @A@@@] XP )@@G@@ GO TO 451-LOG-ACCT. @ @@@] PERFORM 452-SPACE. @@@@@]@#@@@]XQ )@@G@@ 452-SPACE. @^@@@] ADD 1 TO Q1 @A@@@] MOVE SPXR )@@G@@ACE TO WMSG (Q1). @^@@@] IF Q1 < 12 @A@@@] GO XS )@@G@@TO 452-SPACE. @@@@@]@@@@@]@A@@@] 453-CHECK-ACCT-NO-VALIDITY. XT )@@G@@@B@@@] MOVE 'N' TO SW-VALID-ACCT-NO. @^@ @] SET P3 XU )@@G@@TO 1. @A@@@ SET ACCNT-INDEX TO 1. @ @@@] SEARCH XV )@@G@@ALL VTABLE @E@ @] WHEN VALID-ACCNT-NO (P3) = WMESSAGE-XW )@@G@@FLD1 @G@@@ WHEN VALID-ACCNT-NO (ACCNT-INDEX) = WMESSAXX )@@G@@GE-FLD1 @D@@@] MOVE 'Y' TO SW-VALID-ACCT-NO. XY )@@G@@@@@@@]@ @@@] 454-CLOSE-CURRENT-RUN. @ @@@] MOVE 1 TO LOGXZ )@@G@@-SW. @A@@@] MOVE ' TURKY' TO R5-ID. @A@@@] MOVE 'LYA )@@G@@TURKY' TO R17-ID. @B@@@] MOVE R9-ACCOUNT TO R5-ACCT. @B@@@]YB )@@G@@ MOVE R9-PROJECT TO R5-PROJ. @A@@@] MOVE R9-DTIM YC )@@G@@TO C-TIME-X.@C@@@] MOVE CORR C-TIME-X TO R5-START-TIME. @A@@@]YD )@@G@@ MOVE DTIM TO C-TIME. @C@@@] MOVE CORR C-TIME-X YE )@@G@@TO R5-FIN-TIME. @B@@@] MOVE DTIM TO R5-DTIM R17-DTIM. @B@@@]YF )@@G@@ MOVE R9-USERID TO R5-USERID. @C@@@] MOVE R9-RUNIDYG )@@G@@ TO R5-RUNID R17-RUNID. @A@@@] MOVE 0 TO R5-CARDS-IN @A@@@]YH )@@G@@ R5-CARDS-OUT @ @@@] R5-PAGES YI )@@G@@@ @@@] R5-ESUPS @ @@@] R5-12 YJ )@@G@@@ @@@] R5-13 @ @@@] R5-14 YK )@@G@@@ @@@] R5-15 @ @@@] R5-16 YL )@@G@@@ @@@] R5-17 @ @@@] R5-18 YM )@@G@@@ @@@] R5-19 @ @@@] R5-22 YN )@@G@@@ @@@] R5-23 @ @@@] R5-24. YO )@@G@@@ @@@] MOVE 0 TO R17-1 @ @@@] R17-2 YP )@@G@@@ @@@ R17-CPU @ @@@] R17-16 YQ )@@G@@@ @@@] R17-17 @ @@@] R17-18 YR )@@G@@@ @@@] R17-19 @ @@@] R17-20 YS )@@G@@@ @@@] R17-21 @ @@@] R17-22 YT )@@G@@@ @@@] R17-23 @ @@@ R17-24. YU )@@G@@@ @ @] R17-24. @D@ @] MOVE INT-SRT-1 TO SYV )@@G@@RT-REC-5 SRT-REC-17. @C@ @] COMPUTE R4-CPU = R4-SUPS - R4-CYW )@@G@@ARDS. @A@ @] PERFORM 457-SUBTRACT-IO @A@ @] VARYIYX )@@G@@NG Q FROM 1 BY 1 @ @ @] UNTIL Q > 10. @G@@@] SYY )@@G@@UBTRACT R4-CTRS (11) FROM R4-VOL-DELAY GIVING R17-VOLD. @G@@@] YZ )@@G@@ SUBTRACT R4-CTRS (12) FROM R4-SUPS GIVING R5-SUPS. @F@@@]ZA )@@G@@ SUBTRACT R4-CTRS (13) FROM R4-CBS GIVING R5-CBS.@G@ @]ZB )@@G@@ SUBTRACT R4-CTRS (14) FROM R4-CPU GIVING R17-CPU. ZC )@@G@@@G@@@] SUBTRACT R4-CTRS (15) FROM R4-CARDS GIVING R17-ERSZD )@@G@@. @^@@@] MOVE 0 TO Q. @B@@@] PERFORM 456-MOVE-IOZE )@@G@@ 10 TIMES. @C@@@] MOVE R4-VOL-DELAY TO R4-CTRS (11). @C@@@]ZF )@@G@@ MOVE R4-SUPS TO R4-CTRS (12). @C@@@] MOVE R4ZG )@@G@@-CBS TO R4-CTRS (13). @B@ @] MOVE R4-CPU TO R4-CTRS (1ZH )@@G@@4). @B@@@] MOVE R4-CARDS TO R4-CTRS (15). @D@@@ MZI )@@G@@OVE INT-SRT-1 TO SRT-REC-5 SRT-REC-17. @C@@@] ADD 1 TO INC ZJ )@@G@@MOVE INC TO R5-INC. @B@@@] WRITE ITERIM FROM RECORD-5 ZK )@@G@@@ @@@] ADD 1 TO LOG-VOL. @C@@@] ADD 1 TO INC MOVE IZL )@@G@@NC TO R17-INC. @B@@@] WRITE ITERIM FROM RECORD-17 @ @@@]ZM )@@G@@ ADD 1 TO LOG-VOL. @D@@@] MOVE INT-SRT-2 TO SRT-RECZN )@@G@@-5 SRT-REC-17. @C@@@] ADD 1 TO INC MOVE INC TO R5-INC. ZO )@@G@@@B@@@] WRITE ITERIM FROM RECORD-5 @ @@@] ADD 1 TZP )@@G@@O LOG-VOL @C@@@] ADD 1 TO INC MOVE INC TO R17-INC. @B@@@]ZQ )@@G@@ WRITE ITERIM FROM RECORD-17 @ @@@] ADD 1 TO LOG-ZR )@@G@@VOL. @@@@@]@ @@@] 455-OPEN-NEXT-RUN. @G@@@] MOVE WMZS )@@G@@ESSAGE-FLD1 TO SRT1-ACCOUNT SRT2-ACCOUNT R9-ACCOUNT. @A@@@] MZT )@@G@@OVE 0 TO R9-BL-MINS. @B@@@] MOVE DTIM TO R9-DTIM-REDEF ZU )@@G@@@A@@@] MOVE DT TO SRT1-DATE @A@@@] MOVE DT TO SRZV )@@G@@T2-DATE @A@@@] MOVE DTIM TO SRT1-DTIM @C@@@] MZW )@@G@@OVE RCD-9 TO INT-RCD-1 INT-RCD-2 @C@@@] PERFORM 400-WRITE1 ZX )@@G@@THRU 401-WRITE2. @@@@@]@^@@@] 456-MOVE-IO. @^@@@] AZY )@@G@@DD 1 TO Q. @F@@@] SUBTRACT R4-CTRS (Q) FROM R4-IOS (Q) GIVINGZZ )@@G@@ R17IOS (Q).@C@@@] MOVE R4-IOS (Q) TO R4-CTRS (Q). @@@ @]AA )@@G@@@^@ @] 457-SUBTRACT-IO. @C@ @] SUBTRACT R4-IOS (Q) FROM AB )@@G@@R4-CPU. @]@@@] / @ @@@] 491-ACCUMULATE-TRACKS. @A@ @]AC )@@G@@ IF R3-GRAN-CNT (P2) > 0 @B@@@ IF R3-GRAN-CNT (GRAAD )@@G@@N-SUB) > 0 @B@@@] IF R3-POSITION-GRANULARITY @D@ @] AE )@@G@@ MULTIPLY 64 BY R3-GRAN-CNT (P2). @E@@@ MAF )@@G@@ULTIPLY 64 BY R3-GRAN-CNT (GRAN-SUB). @A@ @] IF R3-GRAN-CNAG )@@G@@T (P2) > 0 @B@@@ IF R3-GRAN-CNT (GRAN-SUB) > 0 @A@@@] AH )@@G@@ IF R3-FREE-TIME > 0 @E@ @] ADD R3-GRAN-CNT (P2AI )@@G@@) TO FREE-TRACKS (P2) @G@@@ ADD R3-GRAN-CNT (GRAN-SUBAJ )@@G@@) TO FREE-TRACKS (GRAN-SUB) @#@@@] ELSE@E@ @] AK )@@G@@ ADD R3-GRAN-CNT (P2) TO ASG-TRACKS (P2). @G@@@ AAL )@@G@@DD R3-GRAN-CNT (GRAN-SUB) TO ASG-TRACKS (GRAN-SUB). @@@@@]@ @@@] AM )@@G@@ 492-CLEAR-T3-TABLES. @A@ @] MOVE 0 TO ASG-TRACKS (P2)@B@@@ AN )@@G@@ MOVE 0 TO ASG-TRACKS (GRAN-SUB)@B@ @] FREEAO )@@G@@-TRACKS (P2). @C@@@ FREE-TRACKS (GRAN-SUB). AP )@@G@@@@@@@]@ @@@] 493-COLLECT-NEW-GRANS. @C@ @] IF FREE-TRACKAQ )@@G@@S (P2) > ASG-TRACKS (P2)@E@@@ IF FREE-TRACKS (GRAN-SUB) > ASGAR )@@G@@-TRACKS (GRAN-SUB)@B@ @] COMPUTE R3-GRAN-CNT (P2) = @C@@@ AS )@@G@@ COMPUTE R3-GRAN-CNT (GRAN-SUB) = @D@ @] FAT )@@G@@REE-TRACKS (P2) - ASG-TRACKS (P2) @F@@@ FREE-TRACKS (AU )@@G@@GRAN-SUB) - ASG-TRACKS (GRAN-SUB) @#@@@] ELSE @B@ @] AV )@@G@@ MOVE 0 TO R3-GRAN-CNT (P2). @C@@@ MOVE 0 TO R3-GRAAW )@@G@@N-CNT (GRAN-SUB). @@@@@]@^@@@] 494-RELEASE-R3. @A@@@] MAX )@@G@@OVE '#T3SUM' TO R3-ID. @ @@@] MOVE INC TO R3-INC.@B@@@] AY )@@G@@ MOVE INT-SRT-1 TO SRT-REC3. @B@@@] WRITE ITERIM FROM RAZ )@@G@@ECORD-3 @ @@@] ADD 1 TO LOG-VOL. @^@@@] ADD 1 TBA )@@G@@O INC.@ @@@] MOVE 0 TO R3-SW. @]@@@] / @ @ @] BB )@@G@@ 490-FINISH-REPORTS. @ @@@ 499-FINISH-REPORTS. @ @@@] BC )@@G@@ MOVE 30 TO Q4. @^@@@] IF OPPG > 0 @ @@@] BD )@@G@@ CLOSE OPPRINT @A@#@] MOVE OP-FREE TO C-CARD @B@@@# BE )@@G@@ MOVE OP-FREE TO C-CARD @C@#@] ENTER FD ASM 'EQUBF )@@G@@IP' USING C-CARD @C@@@# ENTER FD ASM 'EQUIP' USING C-CARDBG )@@G@@@A@#@] MOVE OP-SYM TO C-CARD @A@@@# MOVE OP-SBH )@@G@@YM TO C-CARD@C@#@] ENTER FD ASM 'EQUIP' USING C-CARD.@D@@@#BI )@@G@@ ENTER FD ASM 'EQUIP' USING C-CARD. @^@@@] IBJ )@@G@@F AFPG > 0 @ @@@] CLOSE AFPRINT @A@#@] MOVE ABK )@@G@@F-FREE TO C-CARD @B@@@# MOVE AF-FREE TO C-CARD @C@#@]BL )@@G@@ ENTER FD ASM 'EQUIP' USING C-CARD @C@@@# ENTBM )@@G@@ER FD ASM 'EQUIP' USING C-CARD@A@#@] MOVE AF-SYM TO C-CARD BN )@@G@@@A@@@# MOVE AF-SYM TO C-CARD@C@#@] ENTER FD ABO )@@G@@SM 'EQUIP' USING C-CARD.@D@@@# ENTER FD ASM 'EQUIP' USING BP )@@G@@C-CARD. @@@@@]@]@ @] / @^@ @] 520-WRITE-VOLUME.@^@@@ BQ )@@G@@ 500-WRITE-VOLUME.@C@@@] DIVIDE LOG-VOL BY 850 GIVING DIBR )@@G@@FF. @ @@@] ADD 1 TO DIFF. @ @@@] MOVE DIFF TO BS )@@G@@LOG-V.@^@@@] WRITE L-CARD.@@@@@]@^@@@] 900-GET-CNT. BT )@@G@@@ @@@] MOVE 0 TO CTR. @B@@@] MOVE NUM-WDS-IN-ENTBU )@@G@@RY TO CTR. @ @@@] MULTIPLY 6 BY CTR. @A@@@] SUBTRACBV )@@G@@T 6 FROM CTR. ___ MOVE NSAUSERID (Q) TO O*[S@@@*SDFF*@A@@@@ BW )@@G@@ IDENTIFICATION DIVISION. @@@@@@@@@@@@@B@@@@ PROGRAM-ID. H1550BX )@@G@@030. (LEV 1R1) @ @@@@ AUTHOR. DOUG RAGSDALE. @D@@@@ INSTABY )@@G@@LLATION. TX DEPT OF HEALTH; AUSTIN, TX. @A@@@@ DATE-WRITTEN. JUNBZ )@@G@@E 06, 1978. @^@@@@ DATE-COMPILED. @#@@@@ SECURITY. @E@@@@CA )@@G@@ *REMARKS. ASCII ANS-1974 ACOB 3R1 @F@@@@ CB )@@G@@* THIS PROGRAM CREATES THE SYSTEM DAILY-ACCNT FILE FOR @F@@@@ CC )@@G@@* USE BY H1550070 AND THE SYMBIONT-USAGE FILE, BY IN- @F@@@@ CD )@@G@@* TERPRETING THE INTERIM-ACCNT FILE PROVIDED BY H1550020.@F@@@@ CE )@@G@@* TWO REPORTS, SYM-RPT (SUMMARY OF PROCESSSING ACTIVITY @F@@@@ CF )@@G@@* BY SYMBIONT DEVICE) AND RUN-RPT (SUMMARY OF ACTIVITY @F@@@@ CG )@@G@@* BY RUNID) ARE SELECTABLE VIA PARAMETER CARD. ALL ERRORS@A@@@@ CH )@@G@@* ARE LISTED ON ERR-RPT. @]@@@@ * @ @@@@ * CHANGE CI )@@G@@ 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@CJ )@@G@@ * @C@@@@ * CHANGE #1 06/16/80 D. HEROLD @E@@@@CK )@@G@@ * CHANGE TO ACCEPT LEVEL 36 SYSTEM LOG FORMATS. @]@@@[ CL )@@G@@* @C@@@[ * CHANGE #2 08/25/80 D. HEROLD @D@@@[ CM )@@G@@* CHANGE TO ACCEPT 1100/60 SYSTEM LOG FORMATS@]@@@^ * @C@@@^CN )@@G@@ * CHANGE #3 11/21/80 D. HEROLD @G@@@^ * CHANGE CO )@@G@@TO MAKE RUN-TYPE BE REAL-TIME/DEMAND WHEN PROJECT-ID @#@@@^ * =CP )@@G@@ TIP$.@ @@@@ ENVIRONMENT DIVISION. @@@@@@@@@@@@@ @@@@ CONFICQ )@@G@@GURATION SECTION. @@@@@@@ @@@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@CR )@@G@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ CS )@@G@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROL. @@@@@@@ @@@@CT )@@G@@ SELECT INTERIM-FILE@D@@@@ ASSIGN MASS-STORAGCU )@@G@@E INT-ACCT-SRT. @ @@@@ SELECT ACCT-FILE @D@@@@ CV )@@G@@ ASSIGN MASS-STORAGE DAILY-ACCT. @ @@@@ SELECT SYM-FICW )@@G@@LE @C@@@@ ASSIGN MASS-STORAGE DAILY-SYM.@ @@@@ CX )@@G@@ SELECT SYM-RPT @C@@@@ ASSIGN PRINTER SYMBIONT-CY )@@G@@RPT. @ @@@@ SELECT RUN-RPT @C@@@@ ASSIGNCZ )@@G@@ PRINTER RUNS-TODAY. @ @@@@ SELECT ERR-RPT @A@@@@ DA )@@G@@ ASSIGN PRINTER. @ @@@@ SELECT PARAM-CARD @B@@@@DB )@@G@@ ASSIGN CARD-READER. @]@@@@ / @^@@@@ DC )@@G@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. @@@@@@@^@@@@DD )@@G@@ FD INTERIM-FILE @B@@@@ BLOCK CONTAINS 6 RECORDS DE )@@G@@@A@@@@ LABEL RECORDS STANDARD @A@@@@ RECORDING MODDF )@@G@@E INTERNAL. @@@@@@@^@#@@ 01 INTERIM-REC. @B@@@# 01 INTERIMDG )@@G@@-REC DISP-1.@E@]@@ 03 INT-TYPE PIC DH )@@G@@9 COMP-4. @C@@@] 03 INT-TYPE PIC 1(6). DI )@@G@@@E@#@@ 03 FILLER PIC X(149) DISP-1. @D@@@#DJ )@@G@@ 03 FILLER PIC X(149). @E@@@@ 03 DK )@@G@@INT-ENTRY-TIME COMP-4. @D@@@@ 05 INTDL )@@G@@-ENTRY-DATE COMP-4. @C@@@@ 07 INT-ENTRY-YYDM )@@G@@ PIC 1(6). @C@@@@ 07 INT-ENTRY-MM PIC 1(6). DN )@@G@@@C@@@@ 07 INT-ENTRY-DD PIC 1(6). @D@@@@ DO )@@G@@05 INT-ENTRY-SEC PIC 9(5) COMP-4.@E@#@@ 03 FILLER DP )@@G@@ PIC X(12) DISP-1. @C@@@# 03 FILLER DQ )@@G@@ PIC X(12).@C@@@@ 03 INT-SORT-DATE-9 PIC 9(10) COMP-4. DR )@@G@@@E@#@@ 03 INT-DEVICE-ID PIC X(6) DISP-1. @C@@@#DS )@@G@@ 03 INT-DEVICE-ID PIC X(6). @E@#@@ 03 INT-PRDT )@@G@@I-ACCT-NO DISP-1. @ @@@# 03 INT-PRI-ACCTDU )@@G@@-NO. @C@@@@ 05 INT-PRI-ACCT-GP PIC XX. @C@@@@ DV )@@G@@ 05 FILLER PIC X(10).@A@@@@ 03 INT-PRI-ACCNDW )@@G@@T9 REDEFINES@ @@@@ INT-PRI-ACCT-NO. @C@@@@ 05 FILDX )@@G@@LER PIC 9 COMP-4. @D@@@@ 05 INT-PRI-ACCT-NO-9 PICDY )@@G@@ 9(18) COMP-4. @D@#@@ 03 INT-RUNID PIC X(6) DISPDZ )@@G@@-1. @C@@@# 03 INT-RUNID PIC X(6). @F@@@@ EA )@@G@@ 03 INT-SYMB-DATE REDEFINES INT-RUNID PIC 9(10) COMP-4. @C@#@@ EB )@@G@@ 03 INT-SYMB-RUNID PIC X(6) DISP-1. @B@@@# 03 INT-SYMB-RUNEC )@@G@@ID PIC X(6). @@@@@@@^@@@@ FD ACCT-FILE @B@@@@ BED )@@G@@LOCK CONTAINS 3 RECORDS @A@@@@ LABEL RECORDS STANDARD EE )@@G@@@A@@@@ RECORDING MODE INTERNAL. @@@@@@@@@@@@@B@@@@ 01 WEF )@@G@@-ACT-REC. COPY DLY-ACCT-MST. @@@@@@@@@@@@@^@@@@ FD SYM-FILE EG )@@G@@@B@@@@ BLOCK CONTAINS 15 RECORDS @A@@@@ LABEL REH )@@G@@ECORDS STANDARD @A@@@@ RECORDING MODE INTERNAL. @@@@@@@^@@@@EI )@@G@@ 01 SYM-REC. @A@@@@ 03 SYM-REC-ID USAGE DISP-1.@E@@@@EJ )@@G@@ 05 SYM-DEVICE PIC X(6). @C@@@@ EK )@@G@@ 05 SYM-ACCT PIC X(12). @^@@@@ 05 SYM-DATE. EL )@@G@@@E@@@@ 07 SYM-YY PIC 99. @E@@@@EM )@@G@@ 07 SYM-MM PIC 99. @E@@@@ EN )@@G@@ 07 SYM-DD PIC 99. @A@@@@ 03 EO )@@G@@SYM-DATA USAGE COMP-4. @C@@@@ 05 SYM-SHIFT-INFO OCCURS 3 TIMEEP )@@G@@S. @E@@@@ 07 DLBT PIC 9(10). EQ )@@G@@@E@@@@ 07 BT PIC 9(10). @E@@@@ER )@@G@@ 07 DM PIC 9(10). @E@@@@ ES )@@G@@ 07 PRIORITY PIC 9(10). @E@@@@ ET )@@G@@ 07 FILLER PIC 9. @E@@@@ 07 ELEU )@@G@@AP-SECS PIC 9(18). @E@@@@ 07 FILLER EV )@@G@@ PIC 9. @E@@@@ 07 TOT-SECS EW )@@G@@ PIC 9(18). @E@@@@ 07 FILLER EX )@@G@@ PIC 9. @E@@@@ 07 CPU-SECS EY )@@G@@ PIC 9(18). @E@@@@ 07 FILLER EZ )@@G@@ PIC 9. @E@@@@ 07 C-BLKS PIC 9FA )@@G@@(18). @E@@@@ 07 S-CDS-N PIC 9(10). FB )@@G@@@E@@@@ 07 S-CDS-O PIC 9(10). @E@@@@FC )@@G@@ 07 R-CDS-N PIC 9(10). @E@@@@ FD )@@G@@ 07 R-CDS-O PIC 9(10). @E@@@@ FE )@@G@@ 07 S-LINES PIC 9(10). @E@@@@ 07 R-FF )@@G@@LINES PIC 9(10). @C@@@@ 03 CLR-SYM-DATAFG )@@G@@ REDEFINES SYM-DATA. @F@@@@ 05 CLR-SYM-DATA-WD OCCURS 54 TFH )@@G@@IMES PIC 9(10) COMP-4. @@@@@@@@@@@@@^@@@@ FD PARAM-CARD @A@@@@FI )@@G@@ LABEL RECORDS OMITTED. @@@@@@@^@@@@ 01 PARAM-REC. FJ )@@G@@@E@@@@ 03 SW-SYMBIONT PIC X. @B@@@@FK )@@G@@ 88 SYMBIONT-REPORT VALUE 'Y'. @E@@@@ 03 SW-RUNID FL )@@G@@ PIC X. @B@@@@ 88 RUNID-REPORT FM )@@G@@VALUE 'Y'. @E@@@@ 03 SW-TIPSUM PIC XFN )@@G@@. @B@@@@ 88 TIPSUM VALUE 'Y'. @E@@@@ 03 FO )@@G@@FILLER PIC X(77). @@@@@@@@@@@@@#@@@@ FP )@@G@@ FD SYM-RPT@A@@@@ LABEL RECORDS OMITTED. @@@@@@@E@@@@ FQ )@@G@@ 01 SYM-LINE PIC X(132).@@@@@@@@@@@@@#@@@@FR )@@G@@ FD RUN-RPT@A@@@@ LABEL RECORDS OMITTED. @@@@@@@E@@@@FS )@@G@@ 01 RUN-LINE PIC X(132).@@@@@@@@@@@@FT )@@G@@@#@@@@ FD ERR-RPT@A@@@@ LABEL RECORDS OMITTED. @@@@@@FU )@@G@@@E@@@@ 01 ERR-LINE PIC X(132).@]@@@@FV )@@G@@ / @A@@@@ WORKING-STORAGE SECTION. @@@@@@@@@@@@@G@@@@FW )@@G@@ 77 SUB USAGE COMP PIC 9(10) VALUE 0. FX )@@G@@@G@@@@ 77 SUB1 USAGE COMP PIC 9(10) VALUE 0FY )@@G@@. @E@@@@ 77 SUB2 USAGE COMP PIC 9(10) VALUE 0. FZ )@@G@@@E@@@@ 77 SR-PG-CNTR VALUE 0 PIC 9(10) COMP. @E@@@@GA )@@G@@ 77 SR-LINE-CNTR VALUE 0 PIC 9(10) COMP. @E@@@@ GB )@@G@@ 77 ELAPSED-SECS VALUE 0 PIC 9(10) COMP. @E@@@@ 77 EGC )@@G@@LAPSED-DAYS PIC 9(10) COMP VALUE 0.@E@@@@ 77 CUR-YR-GD )@@G@@MOD-1964 PIC 9(10) COMP VALUE 0.@E@@@@ 77 Q1 VALUEGE )@@G@@ 0 PIC 9(6) COMP. @E@@@@ 77 Q2 VALUE 0 GF )@@G@@ PIC 9(6) COMP. @E@@@@ 77 Q3 VALUE 0 GG )@@G@@ PIC 9(10) COMP. @E@@@@ 77 Q4 VALUE 0 GH )@@G@@PIC 9(10) COMP. @E@@@@ 77 Q5 VALUE 0 PIC 9(GI )@@G@@10) COMP. @E@@@@ 77 HOLD-INDEX VALUE 0 PIC 9(10) COGJ )@@G@@MP. @E@@@@ 77 HOLD-P3 VALUE 0 PIC 9(10) COMP . GK )@@G@@@E@@@@ 77 COMP-SECS VALUE 0 PIC 9(5) COMP. @E@@@@GL )@@G@@ 77 GRANULE-CNT VALUE 0 PIC 9(5) COMP. @E@@@@ GM )@@G@@ 77 NO-RUNS1 VALUE 0 PIC 9(5) COMP. @E@@@@ 77 NGN )@@G@@O-RUNS2 VALUE 0 PIC 9(5) COMP. @E@@@@ 77 PRIORITGO )@@G@@Y-QUO VALUE 0 PIC 9(5) COMP. @D@@@@ 77 CUR-SYM-DEV UGP )@@G@@SAGE DISP-1 PIC X(6). @E@@@@ 77 CUR-SYM-DATE GQ )@@G@@ PIC 9(10) COMP-4.@E@@@@ 77 CUR-SYMRPT-DEV USAGE DISP-1 GR )@@G@@ PIC X(6). @D@@@@ 77 CUR-SYMRPT-SHIFT VALUE 0 PICGS )@@G@@ 9. @D@@@@ 77 WORK-SHIFT PIC 9 VALUE 0. @D@@@@GT )@@G@@ 77 CUR-SHIFT PIC 9 VALUE 0. @C@@@@ 77 WGU )@@G@@ORK1-SHIFT VALUE 0 PIC 9.@C@@@@ 77 WORK2-SHIFT VALUEGV )@@G@@ 0 PIC 9.@C@@@@ 77 RUN-SHIFT VALUE 0 PIC 9. GW )@@G@@@D@@@@ 77 HOLD-WORK2-SHIFT VALUE 0 PIC 9. @E@@@@ GX )@@G@@ 77 SYM-REC-OUT-CNT VALUE 0 PIC 9(6) COMP. @D@@@@ 77 SGY )@@G@@YM-REC-IN-CNT VALUE 0 PIC 9(10) COMP. @D@@@@ 77 ACNT-YEAR GZ )@@G@@ VALUE 0 PIC 99 COMP. @D@@@@ 77 REC-IN-CNT VALUE 0 HA )@@G@@ PIC 9(6) COMP. @F@@@@ 77 ACCT-REC-OUT-CNT PIC 9(6) HB )@@G@@COMP VALUE 0. @D@@@@ 77 JOB-REC-IN PIC 9(6) COMP VAHC )@@G@@LUE 0.@E@@@@ 77 KILL-REC-IN PIC 9(6) COMP VALUE 0. HD )@@G@@@E@@@@ 77 PACK-REC-IN PIC 9(6) COMP VALUE 0. @F@@@@HE )@@G@@ 77 ERR-LINE-CNT PIC 9(10) COMP VALUE 77. @F@@@@HF )@@G@@ 77 ERR-PAGE-CNT PIC 9(10) COMP VALUE 0. @F@@@@HG )@@G@@ 77 W-SUP-SECS VALUE 0 PIC 9(11)V999 COMP. @E@@@@HH )@@G@@ 77 PRIORITY-ACCUM1 VALUE 0 PIC 9(5) COMP. @E@@@@ HI )@@G@@ 77 PRIORITY-ACCUM2 VALUE 0 PIC 9(5) COMP. @D@@@@ 77 LHJ )@@G@@AST-WORK-SHIFT PIC 9 VALUE 0. @D@@@@ 77 BATCH-SUP-CNTHK )@@G@@ PIC 9(10) COMP VALUE 0.@D@@@@ 77 RT-BATCH-SUP-CNT PIC 9HL )@@G@@(10) COMP VALUE 0.@D@@@@ 77 RT-BATCH-PRI-CNT PIC 9(10) COMP VAHM )@@G@@LUE 0.@D@@@@ 77 RT-BATCH-AV-PRI PIC 9(10) COMP VALUE 0.@D@@@@HN )@@G@@ 77 BATCH-PRI-CNT PIC 9(10) COMP VALUE 0.@D@@@@ 77 BHO )@@G@@ATCH-AV-PRI PIC 9(10) COMP VALUE 0.@E@@@@ 77 SR-PG-CNT HP )@@G@@ PIC 9(10) COMP VALUE 0.@C@@@@ 77 FIND-FILE HQ )@@G@@ PIC 9 VALUE 0. @B@@@@ 77 LAST-ERROR-TYPE PIC X(5).@E@@@@HR )@@G@@ 77 TOT-CAT-TRKS PIC 9(5) COMP VALUE 0. @C@@@@ HS )@@G@@ 77 HOLD-PRIT PIC X. @C@@@@ 77 PRIORITY-FINDHT )@@G@@ PIC 9. @C@@@@ 77 PK-FIND PIC 9HU )@@G@@. @C@@@@ 77 KILL-FIND PIC 9. @E@@@@ HV )@@G@@ 77 CDAY COMP-4 PIC S9(10) VALUE 0. @E@@@@ 77 CHW )@@G@@MONTH COMP-4 PIC S9(10) VALUE 0. @E@@@@ 77 CYEAR HX )@@G@@ COMP-4 PIC S9(10) VALUE 0. @E@@@@ 77 DAY-OF-WEEK HY )@@G@@COMP-4 PIC S9(10) VALUE 0. @F@@@@ 77 X-YEAR HZ )@@G@@ PIC 9(10) COMP VALUE 0. @D@@@@ 77 RUNRPT-PG-CNTR IA )@@G@@ PIC 9(5) COMP. @D@@@@ 77 RUNRPT-LN-CNTR PIC IB )@@G@@9(5) COMP. @D@@@@ 77 P PIC 9(5) COMP. IC )@@G@@@D@@@@ 77 Q PIC 9(5) COMP. @C@@@@ ID )@@G@@@@@@]3@[]@@@@@@@[F@@L@@@@@@@]@@@@@@@@@@@#D@@/@@@@^+@^Z@[A@@@@@@@@%@^M@@@IE )@@G@@@^N@[V@^C@@@@@@@^^@@Q@@@@@@@@@@@)@@@@[7@@1@[9@@@@@@@@@@@F@@@@@@@# @@S@@@IF )@@G@@@@@@@A@[%@@@@@@@],@]Y@@@@@@@[T@@[@@@@@@@]\@["@@@@@@@[6@]-@['@@@@@X@@(@@@IG )@@G@@@@@@@@@#,@]E@[I@[*@#-@@@@[!@@\@[@@@@@@@@@ @@T@@@@@@@[$@@]@@@@@@@]Z@@@@@@IH )@@G@@@@@@^U@@@@@@@@@@[?@]5@@@@@@@[^@@@@@@@@@@@@@]6@@@@]A@#Q@]T@@@@@@@]=@]>@@@II )@@G@@@@@@@G@@@@@@@@@@@@@@@@]O@@@@]/@@Y@[0@@@@@8@@V@@@@@@@@@@@2@@@@@@@@^@@U@@@IJ )@@G@@@@@@@5@@@@@@@@@@@I@@"@@@@@@@@E@[ @@@@@@@#1@@@@@J@[2@@$@[P@@@@#P@#H@#^@@@IK )@@G@@@@.@@-@]_@@@@[J@]U@@@@@@@@@@@7@[>@@@@@@@[U@@9@@@@@@@@3@@>@@@@@@@@@@@;@@@IL )@@G@@@@@@@*@[K@@@@@@@@C@@:@@@@@@@@@@] @@@@]I@@B@@P@@@@@@@@@@#.@@@@@@@#?@@W@@@IM )@@G@@@@@@@4@@H@@@@@@@]&@@R@@@@@@@@@@@M@@@@@@@[<@]G@@@@@@@#6@@K@@@@[(@@@@[M@@@IN )@@G@@@@@@]L@[\@@@@@@@]M@@D@@@@@@@]F@[E@@@@[4@]H@[,@@@@]Q@@?@@N@@@@]]@[N@@+@@@IO )@@G@@@@@@@Z@[3@[:@@@@@O@@&@@@@@@@]D@@@@@@@@@@@<@@^@^>FORK$ @@]@#S@@@GV'IP )@@G@@TFORK$ @@]@@#@@@GV'FORK$P @@]@[G@@@GV'TFORK$P @@]@@@@@@GV'IQ )@@G@@EXIT$ @@]@@@@@@GXRERR$ @@]@@=@@@GXRABORT$ @@]@^R@@@GXRIR )@@G@@EABT$ @@]@#J@@@GXRXCTS$ @@]@]?@@@GXRACSF$P @@]@]N@@@GYAIS )@@G@@CSF$P @@]@@@@@@GYAACSF$ @@]@#'@@@GYACSF$ @@]@@,@@@GYAIT )@@G@@CSF$S @@]@#I@@@GZ%ACSF$S @@]@[.@@@GZ%AWAIT$ @@]@#(@@@G)&IU )@@G@@AWAIT$P @@]@@'@@@G)&NAME$ @@]@]!@@@G-8NAME$P @@]@]%@@@G-8IV )@@G@@IDENT$ @@]@@0@@@G+YINT$ @@]@@@@@@G+3INT$P @@]@@!@@@G+3IW )@@G@@ACT$ @@]@][@@@G+3ACT$P @@]@#T@@@G+3DACT$ @@]@[D@@@G<\IX )@@G@@TCELL$ @@]@[+@@@G= TSQRG$ @@]@[Z@@@G= TSQCL$ @@]@#5@@@G= IY )@@G@@CTS$ @@]@[B@@@G=5CTSA$ @@]@[S@@@G=5CTSQ$ @@]@]K@@@G>%IZ )@@G@@RT$ @@]@[#@@@G&ERT$P @@]@]V@@@G&ENRT$ @@]@^[@@@G&\JA )@@G@@TWAIT$ @@]@[H@@@G$^TWAIT$P @@]@[O@@@G$^SWAIT$ @@]@@@@@@G$%JB )@@G@@SWTCH$ @@]@@@@@@G$%SETC$ @@]@#&@@@G*BSETC$P @@]@^=@@@G*BJC )@@G@@COND$ @@]@#V@@@G*!DATE$ @@]@#U@@@G(]TDATE$ @@]@]#@@@G(]JD )@@G@@TIME$ @@]@]:@@@G(]MCORE$ @@]@@6@@@G(>LCORE$ @@]@[_@@@G(>JE )@@G@@MCORE$P @@]@[R@@@G(>LCORE$P @@]@[&@@@G(>PSR$ @@]@[C@@@G%>JF )@@G@@PSR$P @@]@]^@@@G%>BANK$ @@]@[X@@@G:2BANK$P @@]@[1@@@G:2JG )@@G@@INFO$ @@]@#"@@@G!;INFO$PKT @@]@[;@@@G!;INFO$P @@]@[-@@@G\3JH )@@G@@OPT$ @@]@])@@@G0MPCT$ @@]@@_@@@G0&PCT$P @@]@@@@@@G0&JI )@@G@@MCT$ @@]@[[@@@G1"MCT$P @@]@#O@@@G1"MCT$PKT @@]@@@@@@G2'JJ )@@G@@IALL$ @@]@@@@@@G3!IALL$P @@]@@@@@@G8ZCEND$ @@]@[=@@@G8_JK )@@G@@CRTN$ @@]@@@@@@G8_CQUE$ @@]@]8@@@G9WCQUE$P @@]@^S@@@G9WJL )@@G@@TRMRG$ @@]@]X@@@G'ZTRMRG$P @@]@#%@@@G'ZSETBP$ @@]@[L@@@G/DJM )@@G@@SETBP$P @@]@##@@@G/DABSAD$ @@]@#G@@@G"(ABSAD$P @@]@@@@@@G"(JN )@@G@@ADED$ @@]@@@@@@G_-ADED$P @@]@]P@@@G_-SYSBAL$P @@]@[Y@@@H@AJO )@@G@@SYSBAL$ @@]@[)@@@H@ACOM$PGEN @@]@@@@@@H@$COM$PKT @@]@@@@@@H][JP )@@G@@COM$ @@]@[Q@@@H]PCOM$P @@]@^E@@@H#LII$ @@]@@@@@@H#0JQ )@@G@@SNAP$PGEN @@]@]J@@@H^^SNAP$PKT @@]@#W@@@H XSNAP$ @@]@]+@@@H 2JR )@@G@@SNAP$P @@]@[8@@@HB]ERRPR$ @@]@]2@@@HB,ERRPR$P @@]@[W@@@HB,JS )@@G@@READ$P @@]@]$@@@HCWAREAD$P @@]@#M@@@HCWREAD$ @@]@@@@@@HCWJT )@@G@@AREAD$ @@]@@@@@@HCWPRINT$P @@]@@@@@@HDXAPRINT$P @@]@^X@@@HDXJU )@@G@@PRINT$ @@]@@@@@@HDXAPRINT$ @@]@#Z@@@HDXPRINT$S @@]@#>@@@HE!JV )@@G@@APRINT$S @@]@@@@@@HE!PUNCH$P @@]@@@@@@HF.APUNCH$P @@]@]W@@@HF.JW )@@G@@PUNCH$ @@]@].@@@HF.APUNCH$ @@]@]B@@@HF.PRNTA$PGEN @@]@[/@@@HH]JX )@@G@@PRNTA$PKT @@]@[5@@@HH1APRNTA$PKT @@]@@@@@@HH1PRNTA$ @@]@^G@@@HIFJY )@@G@@APRNTA$ @@]@@@@@@HIFPRNTA$P @@]@]C@@@HJKAPRNTA$P @@]@@@@@@HJKJZ )@@G@@PNCHA$PGEN @@]@]<@@@HJ7PNCHA$PKT @@]@@@@@@HKTAPNCHA$PKT @@]@@@@@@HKTKA )@@G@@PNCHA$ @@]@#B@@@HK3APNCHA$ @@]@@@@@@HK3PNCHA$P @@]@#R@@@HL9KB )@@G@@APNCHA$P @@]@@@@@@HL9READA$PGEN @@]@^D@@@HM)READA$PKT @@]@](@@@HM.KC )@@G@@AREADA$PKT @@]@@@@@@HM.ARDA$PKT @@]@#!@@@HM.READA$ @@]@^Y@@@HN&KD )@@G@@AREADA$ @@]@@@@@@HN&ARDA$ @@]@#@@@@HN&READA$P @@]@^O@@@HO2KE )@@G@@AREADA$P @@]@@@@@@HO2ARDA$P @@]@#F@@@HO2PRTCN$ @@]@@@@@@HPZKF )@@G@@APRTCN$ @@]@]7@@@HPZPRTCA$ @@]@]R@@@HPZAPRTCA$ @@]@@@@@@HPZKG )@@G@@PCHCN$ @@]@]0@@@HPZAPCHCN$ @@]@@@@@@HPZPCHCA$ @@]@@@@@@HPZKH )@@G@@APCHCA$ @@]@@@@@@HPZPRTCN$P @@]@]*@@@HPZAPRTCN$P @@]@#+@@@HPZKI )@@G@@PRTCA$P @@]@#]@@@HPZAPRTCA$P @@]@@@@@@HPZPCHCN$P @@]@@@@@@HPZKJ )@@G@@APCHCN$P @@]@^@@@@HPZPCHCA$P @@]@@@@@@HPZAPCHCA$P @@]@@@@@@HPZKK )@@G@@PRTCN$S @@]@]S@@@HSQPRTCA$S @@]@@@@@@HSQPCHCN$S @@]@@@@@@HSQKL )@@G@@PCHCA$S @@]@^Q@@@HSQAPRTCN$S @@]@#/@@@HSQAPRTCA$S @@]@@@@@@HSQKM )@@G@@APCHCN$S @@]@]9@@@HSQAPCHCA$S @@]@@@@@@HSQTREAD$P @@]@@@@@@HT;KN )@@G@@ATREAD$P @@]@^I@@@HT;ATRD$P @@]@@@@@@HT;TREAD$ @@]@@@@@@HT;KO )@@G@@ATREAD$ @@]@@@@@@HT;ATRD$ @@]@]1@@@HT;CLIST$PGEN @@]@^W@@@HV\KP )@@G@@ACLIST$PGEN @@]@#:@@@HW%CLIST$PKT @@]@#9@@@HX"ACLIST$PKT @@]@#*@@@HX"KQ )@@G@@CLIST$ @@]@@@@@@HYBSM$PKT @@]@#N@@@H$CKZ )@@G@@FITEM$ @@]@^)@@@H:[FITEM$P @@]@^P@@@H:[FACIL$ @@]@#C@@@H? LA )@@G@@FACIT$ @@]@^F@@@H? FACIL$P @@]@#E@@@H? FACIT$P @@]@^H@@@H? LB )@@G@@TINTL$ @@]@^]@@@H?8TSWAP$ @@]@@@@@@H?8RSWAP$ @@]@@@@@@H?8LC )@@G@@TINTL$P @@]@#L@@@H?8TSWAP$P @@]@@@@@@H?8RSWAP$P @@]@@@@@@H?8LD )@@G@@BBEOF$ @@]@@@@@@H,AMSCON$ @@]@@@@@@H,ABBEOF$P @@]@#<@@@H,ALE )@@G@@MSCON$P @@]@@@@@@H,ADGET$PKT @@]@#2@@@H,9DGETP$PKT @@]@@@@@@H,9LF )@@G@@DREAD$PKT @@]@@@@@@H\3DBITS$PKT @@]@@@@@@H0WDUNLD$PKT @@]@#8@@@H0WLG )@@G@@DCYC$PKT @@]@^#@@@H0WDBACK$PKT @@]@@@@@@H1=DLAPS$PKT @@]@@@@@@H22LH )@@G@@DKEY$PKT @@]@@@@@@H3UDBB$PKT @@]@@@@@@H4[DREG$PKT @@]@#\@@@H4$LI )@@G@@MSALL$PKT @@]@@@@@@H5ULABEL$PGEN @@]@@@@@@H5/LABEL$PKT @@]@@@@@@H6WLJ )@@G@@LABEL$ @@]@^L@@@H61LABEL$P @@]@@@@@@H7!TLBL$ @@]@^>@@@H8HLK )@@G@@TLBL$P @@]@@@@@@H8HPFS$ @@]@@@@@@H9*PFD$ @@]@#)@@@H9*LL )@@G@@PFWL$ @@]@@@@@@H9*PFS$P @@]@@@@@@H9*PFD$P @@]@@@@@@H9*LM )@@G@@PFWL$P @@]@@@@@@H9*PFUWL$ @@]@@@@@@H'$PFI$ @@]@#4@@@H'$LN )@@G@@PFUWL$P @@]@#;@@@H'$PFI$P @@]@@@@@@H'$CMS$ @@]@@@@@@H;0LO )@@G@@CMS$P @@]@@@@@@H;0CMD$ @@]@@@@@@H.YCMI$ @@]@@@@@@H.YLP )@@G@@CMO$ @@]@^K@@@H.YCMSA$ @@]@#_@@@H.YCMH$ @@]@@@@@@H.YLQ )@@G@@CMT$ @@]@@@@@@H.YCMD$P @@]@@@@@@H.YCMI$P @@]@^V@@@H.YLR )@@G@@CMO$P @@]@^T@@@H.YCMSA$P @@]@@@@@@H.YCMH$P @@]@@@@@@H.YLS )@@G@@CMT$P @@]@@@@@@H.YCPOOL$ @@]@@@@@@H_[CPOOL$P @@]@@@@@@H_[LT )@@G@@CGET$ @@]@@@@@@I@ CGET$P @@]@@@@@@I@ CADD$ @@]@@@@@@I@7LU )@@G@@CJOIN$ @@]@@@@@@I@7CADD$P @@]@@@@@@I@7CJOIN$P @@]@@@@@@I@7LV )@@G@@ADACT$ @@]@@@@@@I[%ADACT$P @@]@@@@@@I[%CREL$ @@]@@@@@@I]TLW )@@G@@CREL$P @@]@@@@@@I]TROUTE$ @@]@@@@@@I#HROUTE$P @@]@^J@@@I#HLX )@@G@@LOAD$ @@]@@@@@@I^BRLIST$PGEN @@]@^A)@@I URLIST$PGEN @@]@@@@@@I 'LY )@@G@@RLIST$PKT @@]@@@@@@IAURLIST$ @@]@@@@@@IA\RLIST$P @@]@@@@@@IB0LZ )@@G@@LINK$ @@]@@@@@@ICKRLINK$ @@]@@@@@@ICKLINK$P @@]@@@@@@ICKMA )@@G@@RLINK$P @@]@@@@@@ICKEXLNK$ @@]@@@@@@IDLUNLNK$ @@]@@@@@@IDLMB )@@G@@LJSF$ @@]@^<@@@ID,ALJSF$ @@]@@@@@@ID,LJSF$1 @@]@^-@@@ID,MC )@@G@@LJSF$2 @@]@@@@@@ID,ALJSF$1 @@]@@@@@@ID,ALJSF$2 @@]@@@@@@ID,MD )@@G@@FDCVT$ @@]@@@@@@IE!LIT$ @@]@@@@@@IFAEQUF$ @@]@@@@@@IF(ME )@@G@@OPT$$ @@]@@@@@@IHZCTS @@]@@@@@@IY-TTW @@]@@@@@@IY4MF )@@G@@TQW @@]@@@@@@IY4JTW @@]@@@@@@IZKJQW @@]@@@@@@IZKMG )@@G@@SETQW @@]@@@@@@IZ2SETTW @@]@@@@@@IZ2THIRD @@]@@@@@@I)UMH )@@G@@QUARTER @@]@@@@@@I)UREZ @@]@@@@@@I)5SNZ2 @@]@@@@@@I-2MI )@@G@@DIU @@]@@@@@@I+1SNZ2 @@#@@@@@@JZYDIU @@#@@@@@@J)XMJ )@@G@@ 0)^@):@@@@R@A@@@@^@)^@)^@)^[ADDGC*)ET CTODDJD0,^@)^@):@@@@S@E@@@@^@)^@)MK )@@G@@^@)^[AC))^[KCDMCDH ([ET#DDD^[#D9KFC)E[[EL[D*!CDNCTDDC,:@@@@T@A@@@@^@)^@)ML )@@G@@^@)^[AC))^[^D9 AC0 (MAC)^@)^@):@@@@U@E@@@@^@)^@)^@)^@)^@)^[GCD]C(G^[MC(#MM )@@G@@D9MC-N^[[EL ^[NE-[D1^CDMC))^@):@@@@V@E@@@@^@)^@)^@)^@)^@)^[MC(#D9MC))CTJMN )@@G@@D1OCDDD1N^@8A@)CTCCDMCD#E- ELN:@@@@W@E@@@@^@)^@)^@)^@)^@)^[^CDOCC)EL CTJMO )@@G@@EL^^[DES)C-JC*1A@!EK1 (JE(O 0):@@@@X@H@@@@^@)^@)^@)^@0AC)^[^D9 AC0 (MAC!MP )@@G@@EL CS)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @8A@( 0)^@):@@@@Y@A@@@@^@)^@)^@)^[AMQ )@@G@@C))^[^D9 AC0 (AAC)^@)^@):@@@@Z@D@@@@^@)^@)^@)^@)^@)^[GCD]C(G^[MC(#D9MC-NMR )@@G@@^[[EL ^[JD(DE-OC(^:@@@@)@E@@@@^@)^@)^@)^@)^@)^[MC(#D9MC))CTJD1OCDDD1N^@8MS )@@G@@A@)CTCCDMCD#E- ELN:@@@@-@E@@@@^@)^@)^@)^@)^@)^[^CDOCC)EL CTJEL^^[DES)C-JMT )@@G@@C*1A@!C01 (MC(# 0):@@@@+@H@@@@^@)^@)^@)^@0AC)^[^D9 AC0 (AAC!EL CS)^@)^@)MU )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S @8A@( 0)^@):@@@@<@A@@@@^@)^@)^@)^[AC))^[^D9 AC0MV )@@G@@ (AAK)^@)^@):@@@@=@D@@@@^@)^@)^@)^@)^@)^[GCD]C(G^[MC(#D9MC-N^[[EL ^[JD(DMW )@@G@@E-OC(^:@@@@>@E@@@@^@)^@)^@)^@)^@)^[MC(#D9MC))CTJD1OCDDD1N^@8A@)CTCCDMCD#MX )@@G@@E- ELN:@@@@&@E@@@@^@)^@)^@)^@)^@)^[^CDOCC)EL CTJEL^^[DES)C-JC*1A@!C02 (MMY )@@G@@C(# 0):@@@@$@H@@@@^@)^@)^@)^@0AC)^[^D9 AC0 (AAK!EL CS)^@)^@)^@)^@)^@)^@)MZ )@@G@@^@)^[KDD#^[S @8A@( 0)^@):@@@@*@A@@@@^@)^@)^@)^[AC))^[^D9 AC0 (AAS)^@)^@)NA )@@G@@:@@@@(@D@@@@^@)^@)^@)^@)^@)^[GCD]C(G^[MC(#D9MC-N^[[EL ^[JD(DE-OC(^:@@@@%NB )@@G@@@E@@@@^@)^@)^@)^@)^@)^[MC(#D9MC))CTJD1OCDDD1N^@8A@)CTCCDMCD#E- ELN:@@@@:NC )@@G@@@E@@@@^@)^@)^@)^@)^@)^[^CDOCC)EL CTJEL^^[DES)C-JC*1A@!C03 (MC(# 0):@@@@?ND )@@G@@@H@@@@^@)^@)^@)^@0AC)^[^D9 AC0 (AAS!EL CS)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[SNE )@@G@@ @8A@( 0)^@):@@@@!@D@@@@^@)^@)^@)^[RD9MDTDD1B (NE-JEL[C9 ^[NC(#E-DD9I 0)NF )@@G@@^@)^@):@@@@,@M@@@@^@)^@)^@)^@7A8)^[K (ME(I (DC))^@)^@)^@)^@)^@)^@)^@)^@)NG )@@G@@^@)^[KDD#^[S @6 C)^@)^@)^@)^@)^[QCDGE( ^@$ (^D9 AC0^8,:@@@@\@M@@@@^@)^@)NH )@@G@@^@)^@7A8)^[CD9GC)!ETRE))^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^@)NI )@@G@@^@)^@)^@)^[QCDGE( ^[NE[[CT ES,:@@@@0@M@@@@^@)^@)^@)^@7A8)^[#DS!C1JEK!AK0NJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^@)^@)^@)^@)^@)^[QCDGE( ^[NE[[NK )@@G@@CT ES,:@@@@1@M@@@@^@)^@)^@)^@7A8)^[NE(]^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NL )@@G@@^@)^[KDD#^@9 @4 C)^@)^@)^@)^@)^@)^[QCDGE( ^[UC(MD9 ES,:@@@@2@M@@@@^@)^@)NM )@@G@@^@)^@7A8)^[AELJD*!FDT^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC)^@)^@)^@)NN )@@G@@^@)^@)^@)^[QCDGE( ^[UC(MD9 ES,:@@@@3@M@@@@^@)^@)^@)^@7A8)^[ D1^ (TFC)^@)NO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC)^@)^@)^@)^@)^@)^@)^[QCDGE( ^[UC(MNP )@@G@@D9 ES,:@@@@4@M@@@@^@)^@)^@)^@7A8)^[ F[O (NE-^ (#ETO^@)^@)^@)^@)^@)^@)^@)NQ )@@G@@^@)^[KDD#^[ND@9 @6 DQBC*A)(^@)^@)^[QCDGE( ^@:A@,^@)^@):@@@@5@M@@@@^@)^@)NR )@@G@@^@)^@7A8)^[ ELMD9M (#E))^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9 @4 C)^@)^@)NS )@@G@@^@)^@)^@)^[QCDGE( ^[UC(MD9 ES,:@@@@6@M@@@@^@)^@)^@)^@7A8)^[[CT#E(H (NE-^NT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[ND@9 @6 DQBC*A)(^@)^@)^[QCDGE( ^@:A@,NU )@@G@@^@)^@):@@@@7@M@@@@^@)^@)^@)^@7A8)^[ C)!E[GE)!ETOC))^@)^@)^@)^@)^@)^@)^@)NV )@@G@@^@)^[KDD#^[ND@9 @6 DQBC9^@)^@)^@)^[QCDGE( ^@:A@,^@)^@):@@@@8@M@@@@^@)^@)NW )@@G@@^@)^@7A8)^[MAC!CTO^@)^@)@H@@@@. ******* IF THE 'F' OPTION IS ON, THE DATNX )@@G@@A CARDS THAT FOLLOW ******* @H@@@@. ******* ARE ASSUMED TO BE FINY )@@G@@LE NAMES. FOR EACH FILE NAME ******* @H@@@@. ******* READ, A NZ )@@G@@CORRESPONDING OUTPUT IMAGE IS GENERATED ******* @H@@@@. ****OA )@@G@@*** CONTAINING A DESCRIPTION OF THE FILE. THE FORMAT ******* OB )@@G@@@H@@@@. ******* OF THIS IMAGE IS: OC )@@G@@ ******* @H@@@@. ******* OD )@@G@@ ******* @H@@@@. ******* FILE QUAL,FILE-NAME,KEYS DEVICE OE )@@G@@GRAN ACCT PROJ ASG-CNTS ******* @H@@@@. ******* CAT-OPTS OF )@@G@@ ******* @H@@@@. ******* OG )@@G@@ ******* @H@@@@. ****OH )@@G@@*** WHERE 'QUAL' - QUALIFIER ******* OI )@@G@@@H@@@@. ******* 'FILE-NAME' - FILE NAME INCLUDING ABSOLUTE CYCLE OJ )@@G@@ ******* @H@@@@. ******* 'KEYS' - READ/WRITE KEYS (IF ANY) IN DOK )@@G@@OUBLE QUOTES ******* @H@@@@. ******* 'DEVICE' - DEVICE TYPE OL )@@G@@ ******* @H@@@@. ******* 'GRAN' - FILE OM )@@G@@GRANULARITY IN FORM: ******* @H@@@@. ******* ON )@@G@@ 'INIT,GRAN-TYPE,MAX,HI-GRAN,MAX-TRKS' ******* @H@@@@. ****OO )@@G@@*** FOR MASS STORAGE FILES OR ******* OP )@@G@@@H@@@@. ******* 'REEL-NO' FOR TAPE FILES OQ )@@G@@ ******* @H@@@@. ******* 'ACCT' - ACCOUNT NUMBER UNDER WHICH FIOR )@@G@@LE CATALOGUED ******* @H@@@@. ******* 'PROJ' - PROJECT UNDER WHIOS )@@G@@CH FILE CATALOGUED ******* @H@@@@. ******* 'ASG-CNTS' - AOT )@@G@@SSIGN COUNT IN 1ST SUB-FIELD AND ******* @H@@@@. ******* OU )@@G@@ 0/1 IF FILE ASSIGNED TO RUN (1) OR NOT ******* @H@@@@. ****OV )@@G@@*** IN 2ND SUB-FIELD ******* OW )@@G@@@H@@@@. ******* 'CAT-OPT' - CATALOG OPTIONS (ONE PER SUB-FIELD) OX )@@G@@ ******* @H@@@@. ******* OY )@@G@@ ******* @H@@@@. ******* IF THE 'I' OPTION WAS SPECIFIED OZ )@@G@@ON CONTROL CARD, ******* @H@@@@. ******* ALL FILES ASSIGNED TPA )@@G@@O THE RUN WILL AUTOMATICALLY ******* @H@@@@. ******* BE INCLUPB )@@G@@DED IN THE LIST OF FILES PROCESSED. ******* @H@@@@. ****PC )@@G@@*** ******* PD )@@G@@@H@@@@. ******* GENERAL FOR ALL MODES PE )@@G@@ ******* @H@@@@. ******* --------------------- PF )@@G@@ ******* @H@@@@. ******* PG )@@G@@ ******* @H@@@@. ******* THE OUTPUT ELEMENT WPH )@@G@@ILL BE STORED IN THE ELEMENT ******* @H@@@@. ******* SPECIFIEPI )@@G@@D AS PARAMETER 1 ON THE CONTROL CARD OR ******* @H@@@@. ****PJ )@@G@@*** 'TPF$.SGS' IF NO ELEMENT SPECIFIED. ******* PK )@@G@@@H@@@@. ******* PL )@@G@@ ******* @H@@@@. ******* THIS PROGRAM IS THE SUCCESSOR TO THE OLD 'SGPM )@@G@@SGEN' AND ******* @H@@@@. ******* 'MSGSGS', 'FILESGS', AND 'SSGBUIPN )@@G@@LD' PROGRAMS. ******* @H@@@@. ******* PO )@@G@@ ******* @H@@@@. ******* REVISIONPP )@@G@@ SUMMARY ******* @H@@@@. ****PQ )@@G@@*** ---------------- ******* PR )@@G@@@H@@@@. ******* PS )@@G@@ ******* @H@@@@. ******* 1R1 - FIRST RELEASE PT )@@G@@ ******* @H@@@@. ******* 1R2 - SIGN-ON, ACCOUNT, PROJECTPU )@@G@@ ******* @H@@@@. ******* 1R3 - IDONLY$, GETPPV )@@G@@SFN$ ******* @H@@@@. ******* - FPW )@@G@@REE,A LI$TEMP1 ******* @H@@@@. ****PX )@@G@@*** - SUPS CARD IMPROVED ******* PY )@@G@@@H@@@@. ******* - 'N' OPTION PZ )@@G@@ ******* @H@@@@. ******* 2R1 - 'I' OPTION QA )@@G@@ ******* @H@@@@. ******* - *FILE CONTROL CARD QB )@@G@@ ******* @H@@@@. ******* - DIAGNOSTIC FOQC )@@G@@R TEMPORARY FILES ******* @H@@@@. ******* - FQD )@@G@@REE,AR LI$FILE ******* @H@@@@. ****QE )@@G@@*** - FILE DIAGNOSTICS ON SAME LINE AS FILE NAME ******* QF )@@G@@@H@@@@. ******* - ASSIGN COUNT ADDED QG )@@G@@ ******* @H@@@@. ******* - CAT-OPT FIELD MOVED TO LAST FIELD QH )@@G@@ ******* @H@@@@. ******* - SPACE AFTER SIGN-ON QI )@@G@@ ******* @H@@@@. ******* 2R2 - SFILE FILE NAQJ )@@G@@ME CORRECTION ******* @H@@@@. ******* - UQK )@@G@@SE INFO$ EQUATES ******* @H@@@@. ****QL )@@G@@*** - TREAD$ CORRECTION ******* QM )@@G@@@H@@@@. ******* 2R3 - FURTHER CORRECTION FOR TREAD$ QN )@@G@@ ******* @H@@@@. ******* - COLLECTED WITH MAP28R2 AND SYSLIB 73RQO )@@G@@1 ******* @H@@@@. ******* 2R4 - COMPUTER TYPE ADDED QP )@@G@@ ******* @H@@@@. ******* - USERID ADDED QQ )@@G@@ ******* @H@@@@. ******* - AQR )@@G@@SSEMBLED WITH ASM 15R1 ******* @H@@@@. ****QS )@@G@@*** 2R5 - ADD CONTINGENCY TO CHECK 'ER STATUS$' EXISTENCE ******* QT )@@G@@@H@@@@. ******* - (THIS ALLOWS SGSGEN TO RUN UNDER L36 & L33) QU )@@G@@ ******* @H@@@@. ******* - REMOVE 'SFILE' OUTPUT IN 'L' OPTION QV )@@G@@ ******* @H@@@@. ******* 2R6 - PROGRAM TYPE ADDED QW )@@G@@ ******* @H@@@@. ******* - REBOOT INFO RQX )@@G@@EMOVED ******* @H@@@@. ******* - CQY )@@G@@OMPATIBLE WITH L35 ******* @H@@@@. ****QZ )@@G@@*** 2R7 - FIX 'C' OPTION UNDER L35 ******* RA )@@G@@@H@@@@. ******* - TIGHTEN LOGICAL CHECK FOR L35 RB )@@G@@ ******* @H@@@@. ******* 2R8 - USE MCT TO DETERMINE IF L35 OR > RC )@@G@@ ******* @H@@@@. ******* - COLLECT WITH SYSLIB 74R1 RD )@@G@@ ******* @H@@@@. ******* - CHANGE 'REPEARE )@@G@@T LAST' TO LOOK FOR '$END' INSTEAD ******* @H@@@@. ******* ORF )@@G@@F 'END' ******* @H@@@@. ****RG )@@G@@*** - ADD '$SKIP' FACILITY ******* RH )@@G@@@H@@@@. ******* - ECHO FULL FILE-NAME IN FILE MODE RI )@@G@@ ******* @H@@@@. ******* - ADD TEST MODE RJ )@@G@@ ******* @H@@@@. ******* 2R9 - FIX OVERPRINT IN MODE 4 RK )@@G@@ ******* @H@@@@. ******* 3R1 - CONVERT TO MARL )@@G@@SM ******* @H@@@@. ******* - DRM )@@G@@ON'T IGNORE $END ON 1ST INPUT ******* @H@@@@. ****RN )@@G@@*** - ADD '$ABORT' AND '$EXIT' FACILITIES ******* RO )@@G@@@H@@@@. ******* - USE 'ER ERRPR$' FOR INTERNAL ERRORS RP )@@G@@ ******* @H@@@@. ******* - EXPAND 'ASG-CNT' FIELD FOR FILE MODE RQ )@@G@@ ******* @H@@@@. ******* - TEST MODE VERSION GENERATRR )@@G@@ED WITH @MASM,T ******* @H@@@@. ******* 3R2 - DON'T USE PSFRS )@@G@@$ FOR SCRATCH ******* @H@@@@. ******* - URT )@@G@@PDATE TEST FACILITY ******* @H@@@@. ****RU )@@G@@*** - TURN OFF STATUS$ CODE ('L' OPTION) ******* RV )@@G@@@H@@@@. ******* - TURN OFF PRE-L35 CODE RW )@@G@@ ******* @H@@@@. ******* 3R3 - ALLOW BLANK AS ANSWER RX )@@G@@ ******* @H@@@@. ******* - ALLOW A *REPEAT LAST IMMERY )@@G@@DIATELY AFTER AN *IF ******* @H@@@@. ******* 3R4 - ADD GRANULARIRZ )@@G@@TY INFORMATION TO FILE MODE ******* @H@@@@. ******* - FSA )@@G@@IX POS/TRK GRANULARITY BUG ******* @H@@@@. ****SB )@@G@@*** ******* SC )@@G@@@H@@@@. ****************************************************************SD )@@G@@********** _@@@@@. ******* 2R5 - ADD CONTINGENCY TO CHECK 'ER STATUS$'SE )@@G@@ EXISTENCE ******* *[S@@@*SDFF*@H@@@Q. ****************************SF )@@G@@********************************************** @H@@@Q. ******** THIS PDSG )@@G@@P ELEMENT CONTAINS USEFUL PROCS NOT DEFINED BY THE ******* @H@@@Q. ****SH )@@G@@**** EXEC 8. THESE PROCS ARE MADE AVAILABLE TO THE USER BY ******* SI )@@G@@@H@@@Q. ******** INVOKING THE PROC 'LIPROCS'. IF THIS ELEMENT HAS NOT BSJ )@@G@@EEN******* @H@@@Q. ******** INCORPORATED INTO THE OPERATING SYSTEM, IT SK )@@G@@FIRST MUST BE ******* @H@@@Q. ******** PDP'ED INTO THE FILE FROM WHICHSL )@@G@@ THE CALLING PROGRAM IS ******* @H@@@Q. ******** BEING ASSEMBLED. SM )@@G@@ ******* @H@@@Q. ******** SN )@@G@@ ******* @H@@@Q. ****SO )@@G@@********************************************************************** SP )@@G@@@D@@@QLIPROC$* $PROC 0 . MASTER PROC @D@@@QLIPROCSQ )@@G@@S* $NAME . ALTERNATE NAME@H@T@Q AXR$ SR )@@G@@ . STANDARD ASSEMBLER REGISTER NAMES @H@@@T SS )@@G@@ $INCLUDE 'MAXR$/' . STANDARD ASSEMBLER REGISTER NAMES ST )@@G@@@H@@@Q. ****************************************************************SU )@@G@@********** @H@@@Q. ******** CHECK XQT OPTION $PROC- ISOLATES BIT CORR. SV )@@G@@TO INPUT LETTER******* @H@@@Q. ******** SW )@@G@@ ******* @H@@@Q. ******** E.G. TOPT 'U' =SX )@@G@@ AND A0,(000000000040) ******* @H@@@Q. ******** TSY )@@G@@OPT A2,'U' = AND A2,(000000000040) ******* @H@@@Q. ****SZ )@@G@@**** AOPT 'U' = AND A0,(000000000040) ******* TA )@@G@@@H@@@Q. ******** AOPT A2,'U' = AND A2,(000000000040) TB )@@G@@ ******* @H@@@Q. ******** SOPT 'U' = TOP A0,(000000000040) TC )@@G@@ ******* @H@@@Q. ******** SOPT A2,'U' = TOP A2,(000TD )@@G@@000000040) ******* @H@@@Q. ******** GOPT 'U' =TE )@@G@@ ER OPT$ ******* @H@@@Q. ******** TF )@@G@@ AND A0,(000000000040) ******* @H@@@Q. ****TG )@@G@@********************************************************************** TH )@@G@@@#@@@QP $PROC @^@@@QTOPT** $NAME 0 @^@@@QAOPT** $NTI )@@G@@AME 0 @^@@@QGOPT** $NAME 1 @^@@@QSOPT** $NAME 2 TJ )@@G@@@A@@@Q $DO P(0,0)=1 , ER OPT$ @F@@@Q $DO (P(0,0)<2)TK )@@G@@**(P(1)=1) , AND A0,(1*/('Z'-P(1,1))) @F@@@Q $DO (P(0,0)=0)TL )@@G@@**(P(1)>1) , AND P(1,1),(1*/('Z'-P(1,2))) @F@@@Q $DO (P(0,0)=2)TM )@@G@@**(P(1)=1) , TOP A0,(1*/('Z'-P(1,1))) @F@@@Q $DO (P(0,0)=2)TN )@@G@@**(P(1)>1) , TOP P(1,1),(1*/('Z'-P(1,2))) @#@@@Q $END @[@@@QTO )@@G@@. @H@@@Q. **********************************************************TP )@@G@@**************** @H@@@Q. ******** FORTRAN CALL $PROC TQ )@@G@@ ******* @H@@@Q. ******** TR )@@G@@ ******* @H@@@Q. ******** CALL SUBR A,BTS )@@G@@,C,D = LMJ X11,SUBR ******* @H@@@Q. ******** TT )@@G@@ + A ******* @H@@@QTU )@@G@@. ******** + B ***TV )@@G@@**** @H@@@Q. ******** + C TW )@@G@@ ******* @H@@@Q. ******** + D TX )@@G@@ ******* @H@@@Q. ******** + 0 TY )@@G@@ ******* @H@@@Q. **********************TZ )@@G@@**************************************************** @#@@@QCALL** $PUA )@@G@@ROC @A@@@Q LMJ X11,CALL(1,1) @A@@@QI $DO CALLUB )@@G@@(2) , + CALL(2,I) @^@@@Q + 0 @#@@@Q $END UC )@@G@@@[@@@Q. @H@@@Q. ****************************************************UD )@@G@@********************** @H@@@Q. ******** INFOR TABLE INTERFACE PROCS - AUE )@@G@@IDS IN USING RINF$, SELT$ ******* @H@@@Q. ******** AND DUF )@@G@@USE$ SUBROUTINES ******* @H@@@Q. ******** UG )@@G@@ ******* @H@@@Q. ****UH )@@G@@**** R$INF - CALLS 'RINF$' AND INVOKES 'ELT$' ******* UI )@@G@@@H@@@Q. ******** S$ELT - CALLS 'SELT$' WITH PARAMETER # UJ )@@G@@ ******* @H@@@Q. ******** D$USE - CALLS 'DUSE$' WITH FILE$NAME(MAY BEUK )@@G@@ R.J.) ******* @H@@@Q. ****************************************UL )@@G@@********************************** @H@@@QP $PROC 1 . A PUM )@@G@@ARAMETER SPECIFIES # OF XQT PARAMETERS EXPECTED,@D@@@QR$INF** $NAME UN )@@G@@ . OTHERWISE 3 ASSUMED @F@@@Q $LEVEL 0,1,0 UO )@@G@@ . MAKE ELT$ LABELS GLOBAL @E@@@Q ELT$ UP )@@G@@ . INVOKE 'ELT$' PROC @F@@@Q $LEVEL 0,0,0 UQ )@@G@@ . RETURN TO NORMAL LEVELING @B@@@QNN $EQU 28*(3*(P=1)+P(1,UR )@@G@@1)) @A@@@Q L A0,(NN,INF) @ @@@Q LMJ US )@@G@@ X11,RINF$ @^@@@Q J ERR @^@@@Q J CONTUT )@@G@@@^@@@QINF RES NN @ @@@QERR ER PRINT$ @ @@@QUU )@@G@@ ER EXIT$ @]@@@QCONT . @#@@@Q $END UV )@@G@@@^@@@QP $PROC 1 @#@@@QS$ELT** $NAME @A@@@Q $DUW )@@G@@O P(1)>0 , L,U A0,P(1,1)@^@@@Q LMJ X11,SELT$ @#@@@Q $EUX )@@G@@ND @^@@@QP $PROC 1 @#@@@QD$USE** $NAME @C@@@Q UY )@@G@@ $DO P(1)>0 , DL A0,($CFS(P(1,1)DL)) @ @@@Q LMJ X11,UZ )@@G@@DUSE$ @#@@@Q $END @[@@@Q. @H@@@Q. **********************VA )@@G@@**************************************************** @H@@@Q. ******** SVB )@@G@@OURCE OUTPUT PROCS - AIDS IN USING SSOR, SOR, AND ESOR ******* @H@@@QVC )@@G@@. ******** SUBROUTINES ***VD )@@G@@**** @H@@@Q. ******** VE )@@G@@ ******* @H@@@Q. ******** S$SOR - SETS UP 'PARTBL', ASSIGNS FILVF )@@G@@E AND CALLS 'SSOR' ******* @H@@@Q. ******** P(1,1) = FILE $VG )@@G@@NAME(MAY BE R.J.) ******* @H@@@Q. ******** P(1,2VH )@@G@@) = ELEMENT $NAME(MAY BE R.J.) ******* @H@@@Q. ******** VI )@@G@@ P(1,3) = VERSION $NAME(MAY BE R.J.) ******* @H@@@QVJ )@@G@@. ******** P(0,1) = 1, IF NOT FIRST TIME CALLED ***VK )@@G@@**** @H@@@Q. ******** S$OR - CALLS 'SOR' VL )@@G@@ ******* @H@@@Q. ******** P(1,1) = (NWDS,ADDR) VM )@@G@@ ******* @H@@@Q. ******** P(1,1),P(1,2) = AVN )@@G@@DDR,NWDS ******* @H@@@Q. ******** E$SOR - CALLSVO )@@G@@ 'ESOR' ******* @H@@@Q. **********VP )@@G@@**************************************************************** @^@@@QVQ )@@G@@P $PROC 1 @#@@@QS$SOR** $NAME @A@@@Q $DO P(0,VR )@@G@@1)=0 , GO CONT1 @B@@@Q DL A0,($CFS(P(1,1)DL)) @A@@@QVS )@@G@@ DS A0,PARTBL+27 @B@@@Q DL A0,($CFS(PVT )@@G@@(1,2)DL)) @A@@@Q DS A0,PARTBL+29 @C@@@Q $DVU )@@G@@O P(1)>2 , DL A0,($CFS(P(1,3)DL)) @B@@@Q $DO P(1)>2 , DS A0,PVV )@@G@@ARTBL+33 @#@@@QCONT1 $NAME @A@@@Q L A0,(3,PARTVW )@@G@@BL+26)@^@@@Q ER CSF$@ @@@Q LMJ X11,SSOR$ VX )@@G@@@^@@@Q ER ERR$@ @@@Q $DO P(0,1) , $END @^@@@QVY )@@G@@ J CONT@^@@@QPARTBL** RES 26 @#@@@Q '@VZ )@@G@@ASG' @^@@@Q $CFS(P(1,1)DL)@^@@@Q $CFS(P(1,2)DL)@^@@@QWA )@@G@@ RES 2 @^@@@Q $CFS(P(1,3)DL)@^@@@Q REWB )@@G@@S 8 @]@@@QCONT . @#@@@Q $END @^@@@QP $PWC )@@G@@ROC 1 @#@@@QS$OR** $NAME @A@@@Q $DO P(1)=1 , L A0,P(WD )@@G@@1,1) @C@@@Q $DO P(1)=2 , L A0,(P(1,2),P(1,1)) @ @@@Q WE )@@G@@ LMJ X11,SOR$ @^@@@Q ER ERR$@#@@@Q $EWF )@@G@@ND @^@@@QE$SOR** $PROC 0 @ @@@Q LMJ X11,ESOR$ WG )@@G@@@^@@@Q ER ERR$@#@@@Q $END @H@@@Q. **********WH )@@G@@**************************************************************** @H@@@QWI )@@G@@. ******* TEST FACILITY FOR MASM ELEMENTS ***WJ )@@G@@**** @H@@@Q. ******* WK )@@G@@ ******* @H@@@Q. ******* IF @MASM,T USED, FACILITY IS PROCED ONWL )@@G@@ AND IF T2 OF ******* @H@@@Q. ******* RUN CONDITION WORD IS = 2 WM )@@G@@(@SETC 2), SNOOPY IS TURNED ON ******* @H@@@Q. ******* WN )@@G@@ ******* @H@@@Q. **********WO )@@G@@**************************************************************** @#@@@QWP )@@G@@TEST** $PROC @G@@@QMASMT* $EQU $PAR(0)**(1*/('Z'-'T')) . TEWQ )@@G@@ST MODE IF @MASM,T USED @C@@@RLCN $EQU $LCN . SAWR )@@G@@VE LC @ @@@Q $IF MASMT @G@@@Q J CONTWS )@@G@@1 . JUMP TO ANOTHER LOCATION COUNTER@B@@@R$(0) '*TEST*'WT )@@G@@ . FOR IDONLY$ USE @]@R@Q$($LCN+2) @]@@@R$(LCN+2) @^@@@QSAVE WU )@@G@@ $RES 2 @D@@@QCONT1 DS A0,SAVE . SAVE A0,WV )@@G@@A1 @E@@@Q COND$ . GET CONDITION WORD WW )@@G@@@D@@@Q AND A0,(0770000) . ISOLATE T2 @F@@@Q WX )@@G@@ TNE A1,(020000) . IF = 2, TURN ON SNOOPY @^@@@Q WY )@@G@@ SLJ TON$@D@@@Q DL A0,SAVE . RESTORE WZ )@@G@@A0,A1 @H@@@Q J CONT2 . JUMP BACK TO ORIGINAXA )@@G@@L LOCATION COUNTER@#@R@Q$($LCN-2),CONT2 @#@T@R$(LCN-2),CONT2 @]@@@TXB )@@G@@$(LCN),CONT2@#@@@R $ELSE @#@@@R$(0) ' '@[@@@R$(LCN)XC )@@G@@@#@@@Q $ENDF @#@@@Q $END @#@@@Q $END XD )@@G@@_@@@@@(1,1)DL)) @A@@@Q DS A0,PARTBL+27 @B@@@Q XE )@@G@@ DL A0,($CFS(P(1,2)DL)) @A@@@Q DS A0,PARTBL+XF )@@G@@*[S@@@*SDFF*@#@@@@ $DEF @ @@@@ $LEVEL 0,1,0 XG )@@G@@@^@@@@P $PROC *1 @ @@@@FORK$* $NAME 'FORK$' @ @@@@XH )@@G@@TFORK$* $NAME 'TFORK$' @ @@@@ $DO P(1)>0 , ;@H@@@@XI )@@G@@ LA 12,+(OPT$$ +($GFORM 6,P(1,4),6,P(1,3),6,P(1,2),18,P(XJ )@@G@@1,1)))@ @@@@FORK$P* $NAME *'FORK$' @ @@@@TFORK$P* $NAME *'TFXK )@@G@@ORK$' @H@@@@ $DO (P(0,0)='TFORK$')**(P(0)>1) , LA 13,+(EQXL )@@G@@UF$ P(0),1,*1) @F@@@@ $DO P(0,*0)**(P(1)>0) , LA 12,+(XM )@@G@@EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @#@@@@ $EXN )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @ @@@@EXIT$* $NAME XO )@@G@@ 'EXIT$' @ @@@@ERR$* $NAME 'ERR$' @ @@@@ABORT$* $NAME XP )@@G@@ 'ABORT$' @ @@@@EABT$* $NAME 'EABT$' @ @@@@XCTS$* $NAME XQ )@@G@@ 'XCTS$' @ @@@@ ER [P(0,0)] @#@@@@ $END XR )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@ACSF$P* $NAME 'ACSXS )@@G@@F$' @ @@@@CSF$P* $NAME 'CSF$' @D@@@@ $DO P(1)XT )@@G@@>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @ @@@@XU )@@G@@ DO 1 , $END @ @@@@ACSF$* $NAME *'ACSF$' @ @@@@XV )@@G@@CSF$* $NAME 'CSF$' @D@@@@ $DO P(1)=1 , LA 12,XW )@@G@@+(EQUF$ P(1),1,2) @G@@@@ $DO (P(1)>1)**(P(1,2)=14+7*P(0,*XX )@@G@@0)) , LA,14 12,P(1,1) @H@@@@ $DO (P(1)>1)**(P(1,2)<>14+XY )@@G@@7*P(0,*0)) , LA 12,(P(1,2),P(1,1)) @ @@@@ ER [P(0,0)] XZ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@YA )@@G@@CSF$S* $NAME 0 @E@@@@ LA 12,($SL(P(1,1))//6,($CYB )@@G@@FS(P(1,1))L)) @^@@@@ ER CSF$@ @@@@ $DO YC )@@G@@ 1 , $END @^@@@@ACSF$S* $NAME 0 @E@@@@ LA 12,(YD )@@G@@$SL(P(1,1))//4,($CAS(P(1,1))L)) @ @@@@ ER ACSF$ YE )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@YF )@@G@@AWAIT$* $NAME 0 @^@@@@AWAIT$P* $NAME 1 @A@@@@BA $EYG )@@G@@QU $BA(P(1,1)) @C@@@@ $DO P(0,0)+P(1)+(\BA(0)) ,YH )@@G@@; @A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@ $DO YI )@@G@@ P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@ $DO YJ )@@G@@ (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@ LA YK )@@G@@ 12,+(OPT$$ P(1,1)) @ @@@@ ER AWAIT$ @#@@@@ YL )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@NAME$* $NYM )@@G@@AME 0 @^@@@@NAME$P* $NAME 1 @E@@@@ $DO P(1)YN )@@G@@>0 , LA 12,+(EQUF$ P(1),1,1-P(0,0)) @ @@@@ ER NAME$ YO )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC 0,1 @#@@@@YP )@@G@@IDENT$* $NAME @ @@@@ ER IDENT$ @#@@@@ $EYQ )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@INT$* $NAME YR )@@G@@ 'INT$' @ @@@@INT$P* $NAME 'INT$' @C@@@@ $DO YS )@@G@@ P(0)>1 , LA 13,+(EQUF$ P(0))@ @@@@ACT$* $NAME 'ACT$' @ @@@@YT )@@G@@ACT$P* $NAME 'ACT$' @D@@@@ $DO P(1)>0 , LA 12,YU )@@G@@+(EQUF$ P(1),1) @ @@@@ ER [P(0,0)] @#@@@@ $EYV )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@DACT$* $NAME YW )@@G@@ 0 @ @@@@ ER DACT$ @#@@@@ $END @[@@@@YX )@@G@@ . @^@@@@P $PROC 0,1 @^@@@@TCELL$* $NAME *47 @ @@@@YY )@@G@@TSQRG$* $NAME 'TSQRG$' @ @@@@TSQCL$* $NAME 'TSQCL$' @E@@@@YZ )@@G@@ $DO P(0,*0) , $GFORM 6,0,6,P(0,0),6,0,18,0 @C@@@@ ZA )@@G@@ $DO \P(0,*0) , ER [P(0,0)] @#@@@@ $END @[@@@@ZB )@@G@@ . @^@@@@P $PROC *1 @ @@@@CTS$* $NAME 'CTS$' ZC )@@G@@@ @@@@CTSA$* $NAME 'CTSA$' @ @@@@ $IF P(1)>0 ZD )@@G@@@A@@@@ SZ,13 P(1,1),P(1,2) @A@@@@ TZ,1 P(1,ZE )@@G@@1),P(1,2) @#@@@@ $ENDF @ @@@@ ER [P(0,0)] ZF )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@ZG )@@G@@CTSQ$* $NAME 0 @D@@@@ $DO P(1)>0 , NOP 0,+(EQUFZH )@@G@@$ P(1),1) @ @@@@ ER CTSQ$ @#@@@@ $END ZI )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@RT$* $NAME 1 ZJ )@@G@@@^@@@@RT$P* $NAME 0 @E@@@@ $DO P(1)>0 , LA 12,ZK )@@G@@+(EQUF$ P(1),1,P(0,0)) @^@@@@ ER RT$ @#@@@@ $EZL )@@G@@ND @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@NRT$* $NAME ZM )@@G@@ 0 @^@@@@ ER NRT$@#@@@@ $END @[@@@@ . ZN )@@G@@@^@@@@P $PROC *1 @^@@@@TWAIT$* $NAME 1 @^@@@@TWAIT$ZO )@@G@@P* $NAME 0 @E@@@@ $DO P(1)>0 , LA 13,+(EQUF$ P(1)ZP )@@G@@,1,P(0,0)) @ @@@@ ER TWAIT$ @#@@@@ $END ZQ )@@G@@@[@@@@ . @^@@@@ $PROC 0,1 @ @@@@SWAIT$* $NAME 'SWAZR )@@G@@IT$' @ @@@@SWTCH$* $NAME 'SWTCH$' @ @@@@ ER [P(0ZS )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 ZT )@@G@@@^@@@@SETC$* $NAME 1 @^@@@@SETC$P* $NAME 0 @E@@@@ ZU )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ERZV )@@G@@ SETC$ @#@@@@ $END @[@@@@ . @^@@@@P $PZW )@@G@@ROC 0,1 @#@@@@COND$* $NAME @ @@@@ ER COND$ ZX )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 @ @@@@ZY )@@G@@DATE$* $NAME 'DATE$' @ @@@@TDATE$* $NAME 'TDATE$' @ @@@@ZZ )@@G@@TIME$* $NAME 'TIME$' @ @@@@ ER [P(0,0)] @#@@@@AA )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@MCORE$AB )@@G@@* $NAME *'MCORE$' @ @@@@LCORE$* $NAME *'LCORE$' @ @@@@MCORE$AC )@@G@@P* $NAME 'MCORE$' @ @@@@LCORE$P* $NAME 'LCORE$' @F@@@@ AD )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2*P(0,*0)) @E@@@@ AE )@@G@@ $DO P(0)>1 , LXI 12,+(EQUF$ P(0),1,*P(0,*0))@ @@@@ ERAF )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PAG )@@G@@ROC *1 @^@@@@PSR$* $NAME 0 @^@@@@PSR$P* $NAME 1 AH )@@G@@@F@@@@ $DO P(0,0)+P(1)+($IBITS(P(1,1))**(1*/4))>1 ,; AI )@@G@@@A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@ $DO P(0,AJ )@@G@@0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@ $DO (P(1AK )@@G@@)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@ LA 12,+AL )@@G@@(OPT$$ P(1,1)) @^@@@@ ER PSR$@#@@@@ $END AM )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@BANK$* $NAME 0 AN )@@G@@@D@@@@ $DO P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) @H@@@@ AO )@@G@@ $DO ($AP(P(2))>1*/16-1)++(P(0,1)=P(0)-1)**1-P(0,*1)**(P(1)>0) , ;AP )@@G@@@D@@@@ LA 12,+(EQUF$ P(1),1,2-P(0,*1)) @F@@@@ AQ )@@G@@ $DO (($AP(P(2))>1*/16-1)++(\P(1)))**P(0,*1) , ; @A@@@@ AR )@@G@@ LXI,14 12,1*/17+P(0,1) @H@@@@ $DO (\P(0,*1))**(P(0AS )@@G@@)>1)**((P(1)=0)++($AP(P(2))>1*/16-1)) , ; @B@@@@ LXI 12,+AT )@@G@@(EQUF$ P(0),1,*1) @H@@@@ $DO (1-(P(0,1)=P(0)-1)++P(0,*1))**(AU )@@G@@P(1)>0)**($AP(P(2))<1*/16) , ;@D@@@@ LA 12,(1*/17*P(0,*1AV )@@G@@)+P(0,1),P(2)) @^@@@@BANK$P* $NAME 1 @E@@@@ $DO AW )@@G@@ P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@ ER BANKAX )@@G@@$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *255AY )@@G@@@^@@@@INFO$* $NAME 0 @E@@@@ $DO P>1 , LA 12,(2*PAZ )@@G@@-1,$LCV(CTL$BNK(0))) @ @@@@ ER INFO$ @#@@@@$(CTL$BA )@@G@@BNK(0)). @^@@@@INFO$PKT* $NAME 1 @B@@@@ $DO P(0,BB )@@G@@1)*P(0,0) , + 0D @^@@@@LEN(1) $EQU 2 @^@@@@LEN(2) $EQU BC )@@G@@ 1 @^@@@@LEN(3) $EQU 2 @^@@@@LEN(4) $EQU 1 @^@@@@BD )@@G@@LEN(5) $EQU 1 @^@@@@LEN(6) $EQU 1 @^@@@@LEN(7) $EBE )@@G@@QU 7 @ @@@@I $DO P-1 , ; @I@@@@ $GFORM BF )@@G@@ 12,P(I,1),24,0,2,0,16,LEN(P(I,1))*(P(I)<3)+P(I,3),18,P(I,2) @B@@@@BG )@@G@@I $DO P(0,2)*P(0,0) , + 0D @B@@@@ $DO P(0,BH )@@G@@0)=0 ,$($ILCN) @#@@@@ END @^@@@@P $PROC *1 BI )@@G@@@#@@@@INFO$P* $NAME @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$BJ )@@G@@ P(1) ) @ @@@@ ER INFO$ @#@@@@ $END BK )@@G@@@[@@@@ . @^@@@@ $PROC *0,1@#@@@@OPT$* $NAME @^@@@@BL )@@G@@ ER OPT$@#@@@@ $END @[@@@@ . @^@@@@P BM )@@G@@ $PROC *1 @^@@@@PCT$* $NAME 0 @^@@@@PCT$P* $NAME BN )@@G@@ 1 @ @@@@ $IF P(0,0) @D@@@@ $DO P(1)BO )@@G@@>0 , DL 12,+(EQUF$ P(1),1) @#@@@@ $ELSE @A@@@@LG $EBP )@@G@@QU P(1,2)+(P(1)<2) @E@@@@ $DO (P(0)>1)**(P(1)>0) , LBQ )@@G@@A,14 12,P(1,1) @C@@@@ $DO P(0)>1 , LA 13,(LG,P(0,1)) BR )@@G@@@E@@@@ $DO (P(0)=1)**(P(1)>0) , LA 12,(LG,P(1,1)) @#@@@@BS )@@G@@ $ENDF @^@@@@ ER PCT$@#@@@@ $END BT )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@MCT$* $NAME 0 BU )@@G@@@^@@@@MCT$P* $NAME 1 @F@@@@ $DO P(0,0)**(P(1)>0)BV )@@G@@ , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DO (\P(0,0))**(P(1)BW )@@G@@>0) , ; @G@@@@ LA,14 12,(MCT$PKT P(1,1),P(1,2),P(1,3),PBX )@@G@@(1,4)+(P(1)=3)) @^@@@@ ER MCT$@#@@@@ $END BY )@@G@@@[@@@@ . @^@@@@P $PROC *1 @#@@@@MCT$PKT* $NAME @ @@@@BZ )@@G@@ $IF P(1,2)=3 @G@@@@ $GFORM 12,0,6,P(1,2),18CA )@@G@@,P(1,1),18,P(1,4)+(P(1)=3),18,P(1,3)@#@@@@ $ELSE @C@@@@ CB )@@G@@ $GFORM 12,0,6,P(1,2),18,P(1,1) @#@@@@ $ENDF @#@@@@CC )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@IALL$*CD )@@G@@ $NAME 0 @ @@@@A(1) $EQU 'IOPR' @ @@@@A(2) $ECE )@@G@@QU 'IGDM' @ @@@@A(3) $EQU 'IFOF' @ @@@@A(4) $ECF )@@G@@QU 'IFUF' @ @@@@A(5) $EQU 'IDOF' @ @@@@A(6) $ECG )@@G@@QU 'IRST' @ @@@@A(7) $EQU 'IABT' @ @@@@A(8) $ECH )@@G@@QU 'IINT' @ @@@@A(9) $EQU 'ITS' @ @@@@A(10) $ECI )@@G@@QU 'ERR$' @F@@@@A(11) $EQU 'IAI' INTER ACCJ )@@G@@TIVITY INTERRUPT @ @@@@A(12) $EQU 'BRKPT' @ @@@@A(13) $ECK )@@G@@QU 'PARITY' @ @@@@A(14) $EQU 'TIME' @E@@@@ . CL )@@G@@'TIME' VALUE IS ALSO USED FOR PCT OVERFLOWS @ @@@@A(15) $EQU CM )@@G@@ 'TERM' @[@@@@ . @G@@@@C $EQU 16 FICN )@@G@@RST APPLICATION SUBSCRIPT @[@@@@ . @ @@@@A(C) $EQU *'PGCO )@@G@@M' @ @@@@A(C+1) $EQU *'PROGRAM'@ @@@@A(C+2) $EQU *'ACCP )@@G@@T' @A@@@@A(C+3) $EQU *'ACTIVITY' @ @@@@A(C+4) $EQU CQ )@@G@@ *'ESI' @ @@@@A(C+5) $EQU *'ESI' @ @@@@A(C+6) $EQU CR )@@G@@ *'CDB' @ @@@@A(C+7) $EQU *'COMMON' @[@@@@ . @B@@@@B(0) CS )@@G@@ $EQU (P(1)=2)+2*(P(1)=3) @F@@@@I $DO B(0) ,J $DCT )@@G@@O A , $DO P(1,I+1)=A(J) ,B(0) $EQU 0@C@@@@I $DO B(0) ,B(I-CU )@@G@@1) $EQU P(1,I+1) @F@@@@I $DO P(1)-(P(1)>0) ,J $DO A , $DOCV )@@G@@ P(1,I+1)=A(J) ,; @E@@@@B(A(*J)) $EQU B(A(*J))++1*/((J-C*A(*J))*/-CW )@@G@@A(*J)-1) @C@@@@DP $EQU (B(0)<0)++(B(0)>1*/12-1) @^@@@@CX )@@G@@ $IF DP @A@@@@IF $FORM 12,6,18,18,18 @#@@@@CY )@@G@@ $ELSE @ @@@@IF $FORM 12,6,18 @#@@@@ $ECZ )@@G@@NDF @D@@@@ $DO DP , DL 12,(IF ,B(1),P(1,1),,B(0))@F@@@@DA )@@G@@ $DO (P(1)>0)**1-DP , LA 12,(IF B(0),B(1),P(1,1)) @ @@@@DB )@@G@@ ER IALL$ @#@@@@ $END @[@@@@ . @^@@@@DC )@@G@@P $PROC *1 @^@@@@IALL$P* $NAME 1 @D@@@@ $DDD )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER IALLDE )@@G@@$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 DF )@@G@@@ @@@@CEND$* $NAME 'CEND$' @ @@@@CRTN$* $NAME 'CRTN$' DG )@@G@@@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . DH )@@G@@@^@@@@P PROC *1 @#@@@@CQUE$* NAME @A@@@@F FODI )@@G@@RM 6,4,4,4,6,6,6 @I@@@@ DO P(1)>0 , F 8,14,,,P(1,DJ )@@G@@2),P(1,3),P(1,2) . LA,U A0, @^@@@@CQUE$P* NAME 1 DK )@@G@@@E@@@@ DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) @D@@@@DL )@@G@@ DO P(0)>1 , LA 13,+(EQUF$ P(0) ) @ @@@@ ERDM )@@G@@ CQUE$ @#@@@@ END @^@@@@P PROC *1 DN )@@G@@@#@@@@TRMRG$* NAME @B@@@@B EQU +(EQUF$ P(1),1,2) DO )@@G@@@F@@@@ DO (P(1)>0)**(P(0)<2)++($AP(B)<14*/26) , LXM 12,BDP )@@G@@@ @@@@F FORM 3,3,12,18 @F@@@@ DO ((P(1)=0)+DQ )@@G@@+($AP(B)<14*/26))**(P(0)>1) , ; @C@@@@ LXI,14 12,(F ,P(0DR )@@G@@,1),P(0,2))*/-18 @H@@@@ DO (P(0)>1)**(P(1)>1)**($AP(B)>14*DS )@@G@@/26-1)**(B<14*/26+0777777) , ;@D@@@@ LA 12,(F ,P(0,1),P(DT )@@G@@0,2),B-14*/26) @^@@@@TRMRG$P* NAME 1 @E@@@@ DO DU )@@G@@ (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1) ) @ @@@@ ER TRMRDV )@@G@@G$ @#@@@@ END @^@@@@P $PROC *1 @^@@@@SETBP$DW )@@G@@* $NAME 0 @^@@@@L(1) $EQU 'W' @^@@@@L(2) $EQU DX )@@G@@ 'R' @^@@@@L(3) $EQU 'WR'@^@@@@L(4) $EQU 'P' @C@@@@DY )@@G@@ $DO P(0,1)='RW' ,P(0,1) $EQU 3 @D@@@@I $DO DZ )@@G@@ L , $DO P(0,1)=L(I) ,P(0,1) $EQU I@D@@@@ $DO P(0)>3 ,P(EA )@@G@@0,1) $EQU P(0,1)++8 @G@@@@P(3) $EQU +($GFORM 18,0,2,0,4,P(EB )@@G@@0,1),6,P(0,2)+63*(P(0)<3)) @D@@@@ $DO P(1)>0 ,P(2) $EQEC )@@G@@U +(EQUF$ P(1),1) @H@@@@ $DO ($AP(P(2))<1*/16)*(P(1)+P(0)ED )@@G@@>1) , LA 12,+(OPT$$ P(3),P(2))@^@@@@SETBP$P* $NAME 1 @F@@@@ EE )@@G@@ $DO (P(1)>0)**P(0,0)++($AP(P(2))>1*/16-1) , ; @D@@@@ EF )@@G@@ LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) @F@@@@ $DO EG )@@G@@ ($AP(P(2))>1*/16-1)*(P(0)>1) , LXI,14 12,P(3) @G@@@@ $DO EH )@@G@@ P(0)>3-2*P(0,0) , LA 13,+(EQUF$ P(0),3-2*P(0,0),*1) @ @@@@ EREI )@@G@@ SETBP$ @#@@@@ $END @[@@@@ . @^@@@@P $PEJ )@@G@@ROC *1 @#@@@@ABSAD$* $NAME @ @@@@ $DO P(1)>0 , ;EK )@@G@@@F@@@@ LA,14 12,($GFORM 18,P(1,2),18,P(1,3),36,P(1,1)) EL )@@G@@@^@@@@ABSAD$P* $NAME 1 @F@@@@ $DO (P(1)>0)**P(0,0)EM )@@G@@ , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER ABSAD$ @#@@@@EN )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@ADED$*EO )@@G@@ $NAME 1 @#@@@@ADED$P* $NAME @E@@@@ $D0 P(1)EP )@@G@@>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ER ADED$ EQ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@SYSBAL$P* $PROC *1 @#@@@@ER )@@G@@SYSBAL$* $NAME @F@@@@ $DO \\SYSBAL$P(1) , LA 12,+(EQUFES )@@G@@$ SYSBAL$P(1),1,2)@ @@@@ ER SYSBAL$ @#@@@@ $EET )@@G@@ND @[@@@@ . @^@@@@Q $PROC *2 @^@@@@COM$PGEN* $NAME EU )@@G@@ 0 @^@@@@C(1) $EQU 'S' @^@@@@C(2) $EQU 'I' @^@@@@EV )@@G@@C(3) $EQU 'C' @^@@@@C(4) $EQU 'H' @ @@@@B(0) $EEW )@@G@@QU P(0,1) @D@@@@I $DO C , $DO B(0)=C(I) ,B(0) $EQUEX )@@G@@ I-1 @G@@@@ $GFORM 6,0,6,B(0),6,P(2,3),18,0,6,0,12,P(1,2)+5EY )@@G@@0*(P(1)=1),;@ @@@@ 18,P(1,1) @C@@@@ * EZ )@@G@@ P(2,2)+50*(P(2)=1),P(2,1) @D@@@@ $DO P(2,3)>31 , $RESFA )@@G@@ 1. FOR RUNID @#@@@@ $END @[@@@@ . @^@@@@P $PFB )@@G@@ROC *2 @^@@@@COM$PKT* $NAME 0 @#@@@@ COM$PGEN@#@@@@FC )@@G@@ $END @[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@D@@@@IDBUFF* 'MASS 3R6 EV )@@G@@ ' @H@@@@. ****************************************EW )@@G@@********************************** @H@@@@. ******* EX )@@G@@ ******* @H@@@@. ******* EY )@@G@@ MASS STORAGE DISPLAY PROGRAM ******* @H@@@@. ****EZ )@@G@@*** ******* FA )@@G@@@H@@@@. ******* WRITTEN BY NICK GRIMALDI - REP56 (1R1) FB )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 11/21/77 (2R1) FC )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 12/29/77 FD )@@G@@ (2R2) ******* @H@@@@. ******* UPDATED BY JOHN WICKFE )@@G@@HAM, 6/30/78 (2R3) ******* @H@@@@. ******* UPDATED FF )@@G@@BY LOU INFELD, 09/31/78 (3R1) ******* @H@@@@. ****FG )@@G@@*** UPDATED BY LOU INFELD, 12/18/78 (3R2) ******* FH )@@G@@@H@@@@. ******* UPDATED BY LOU INFELD, 02/28/79 (3R3) FI )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 03/13/79 (3R4) FJ )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 04/20/79 FK )@@G@@ (3R5) ******* @H@@@@. ******* UPDATED BY LOU INFELFL )@@G@@D, 06/27/79 (3R6) ******* @H@@@@. ******* FM )@@G@@ ******* @H@@@@. ****FN )@@G@@*** PROGRAM WILL DISPLAY MASS STORAGE AVAILABILITY AND ******* FO )@@G@@@H@@@@. ******* THEN GENERATE TWO REPORTS OF ALL FILES SORTED BY SUBSYSTFP )@@G@@EM ******* @H@@@@. ******* AND UNIT AND THEN SORTED BY FILE-NAME. FQ )@@G@@ ******* @H@@@@. ******* FR )@@G@@ ******* @H@@@@. ******* AVAILABLE OPTIONS FS )@@G@@ ******* @H@@@@. ******* --------FT )@@G@@--------- ******* @H@@@@. ****FU )@@G@@*** ******* FV )@@G@@@H@@@@. ******* A - ONLY MASS STORAGE AVAILABILITY PRINTED FW )@@G@@ ******* @H@@@@. ******* M - DON'T FREE MFD FILE (FOR FUTURE RE-USE OFX )@@G@@F MFD) ******* @H@@@@. ******* FY )@@G@@ ******* @H@@@@. ******* REVISION SUMMARY: FZ )@@G@@ ******* @H@@@@. ******* --------GA )@@G@@-------- ******* @H@@@@. ****GB )@@G@@*** ******* GC )@@G@@@H@@@@. ******* 1R1 - ORIGINAL RELEASE (REP56) GD )@@G@@ ******* @H@@@@. ******* 2R1 - REMOVE SORT CONSOLE P/O GE )@@G@@ ******* @H@@@@. ******* - IDONLY$ GF )@@G@@ ******* @H@@@@. ******* - DIAGNOSTIC MEGG )@@G@@SSAGE FOR DIRECTORY TOO SMALL ******* @H@@@@. ******* - IGH )@@G@@NTERNAL EBD$ ******* @H@@@@. ****GI )@@G@@*** - DON'T PRINT ON CONSOLE IF DEMAND RUN ******* GJ )@@G@@@H@@@@. ******* 2R2 - ADD 8405-0 TO TABLE GK )@@G@@ ******* @H@@@@. ******* 2R3 - INCREASE SIZE OF CORE FOR SORT GL )@@G@@ ******* @H@@@@. ******* 3R1 - REWRITTEN FOR LEVELS 35 OGM )@@G@@R GREATER ******* @H@@@@. ******* - USE SYSLIB 74GN )@@G@@ ******* @H@@@@. ******* - AGO )@@G@@DD 'M' OPTION ******* @H@@@@. ****GP )@@G@@*** 3R2 - USE MSALL$ INSTEAD OF INFO$ FOR DEVICE NAME ******* GQ )@@G@@@H@@@@. ******* - REWRITE FOR L33 ALSO GR )@@G@@ ******* @H@@@@. ******* - ASSEMBLED WITH MASM GS )@@G@@ ******* @H@@@@. ******* 3R3 - ALLOW VARIABLE BUFFER SIZGT )@@G@@E FOR MFDSP$ ******* @H@@@@. ******* 3R4 - ADD TOTALS TOGU )@@G@@ REPORTS ******* @H@@@@. ******* - CGV )@@G@@ORRECT STATUS LOGIC FOR 0 , ;@H@@@@ LA 12,+(OPT$$ +($GFORM 6,P(1,4)HJ )@@G@@,6,P(1,3),6,P(1,2),18,P(1,1)))@ @@@@FORK$P* $NAME *'FORK$' @ @@@@HK )@@G@@TFORK$P* $NAME *'TFORK$' @H@@@@ $DO (P(0,0)='TFORK$'HL )@@G@@)**(P(0)>1) , LA 13,+(EQUF$ P(0),1,*1) @F@@@@ $DO P(0,HM )@@G@@*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0HN )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 HO )@@G@@@ @@@@EXIT$* $NAME 'EXIT$' @ @@@@ERR$* $NAME 'ERR$' HP )@@G@@@ @@@@ABORT$* $NAME 'ABORT$' @ @@@@EABT$* $NAME 'EABT$' HQ )@@G@@@ @@@@XCTS$* $NAME 'XCTS$' @ @@@@ ER [P(0,0)] HR )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@HS )@@G@@ACSF$P* $NAME 'ACSF$' @ @@@@CSF$P* $NAME 'CSF$' @D@@@@HT )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ERHU )@@G@@ [P(0,0)] @ @@@@ DO 1 , $END @ @@@@ACSF$* $NHV )@@G@@AME *'ACSF$' @ @@@@CSF$* $NAME 'CSF$' @D@@@@ $DHW )@@G@@O P(1)=1 , LA 12,+(EQUF$ P(1),1,2) @G@@@@ $DO (P(1HX )@@G@@)>1)**(P(1,2)=14+7*P(0,*0)) , LA,14 12,P(1,1) @H@@@@ $DO HY )@@G@@ (P(1)>1)**(P(1,2)<>14+7*P(0,*0)) , LA 12,(P(1,2),P(1,1)) @ @@@@ HZ )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P IA )@@G@@ $PROC *1 @^@@@@CSF$S* $NAME 0 @E@@@@ LA IB )@@G@@ 12,($SL(P(1,1))//6,($CFS(P(1,1))L)) @^@@@@ ER CSF$IC )@@G@@@ @@@@ $DO 1 , $END @^@@@@ACSF$S* $NAME 0 @E@@@@ID )@@G@@ LA 12,($SL(P(1,1))//4,($CAS(P(1,1))L)) @ @@@@ IE )@@G@@ ER ACSF$ @#@@@@ $END @[@@@@ . @^@@@@P IF )@@G@@ $PROC *1 @^@@@@AWAIT$* $NAME 0 @^@@@@AWAIT$P* $NAME IG )@@G@@ 1 @A@@@@BA $EQU $BA(P(1,1)) @C@@@@ $DO IH )@@G@@ P(0,0)+P(1)+(\BA(0)) ,; @A@@@@P(2) $EQU +(EQUF$ P(1),1) II )@@G@@@F@@@@ $DO P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)IJ )@@G@@@F@@@@ $DO (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; IK )@@G@@@B@@@@ LA 12,+(OPT$$ P(1,1)) @ @@@@ ER IL )@@G@@ AWAIT$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC IM )@@G@@ *1 @^@@@@NAME$* $NAME 0 @^@@@@NAME$P* $NAME 1 @E@@@@IN )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,1-P(0,0)) @ @@@@ IO )@@G@@ ER NAME$ @#@@@@ $END @[@@@@ . @^@@@@ IP )@@G@@ $PROC 0,1 @#@@@@IDENT$* $NAME @ @@@@ ER IDENIQ )@@G@@T$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 IR )@@G@@@ @@@@INT$* $NAME 'INT$' @ @@@@INT$P* $NAME 'INT$' IS )@@G@@@C@@@@ $DO P(0)>1 , LA 13,+(EQUF$ P(0))@ @@@@ACT$* $NIT )@@G@@AME 'ACT$' @ @@@@ACT$P* $NAME 'ACT$' @D@@@@ $DIU )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER [P(0IV )@@G@@,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 IW )@@G@@@^@@@@DACT$* $NAME 0 @ @@@@ ER DACT$ @#@@@@IX )@@G@@ $END @[@@@@ . @^@@@@P $PROC 0,1 @^@@@@TCELL$IY )@@G@@* $NAME *47 @ @@@@TSQRG$* $NAME 'TSQRG$' @ @@@@TSQCL$* $NIZ )@@G@@AME 'TSQCL$' @E@@@@ $DO P(0,*0) , $GFORM 6,0,6,P(0,0JA )@@G@@),6,0,18,0 @C@@@@ $DO \P(0,*0) , ER [P(0,0)] @#@@@@JB )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@CTS$* JC )@@G@@ $NAME 'CTS$' @ @@@@CTSA$* $NAME 'CTSA$' @ @@@@ JD )@@G@@ $IF P(1)>0 @A@@@@ SZ,13 P(1,1),P(1,2) @A@@@@JE )@@G@@ TZ,1 P(1,1),P(1,2) @#@@@@ $ENDF @ @@@@ JF )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P JG )@@G@@ $PROC *1 @^@@@@CTSQ$* $NAME 0 @D@@@@ $DO JH )@@G@@ P(1)>0 , NOP 0,+(EQUF$ P(1),1) @ @@@@ ER CTSQ$ JI )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@JJ )@@G@@RT$* $NAME 1 @^@@@@RT$P* $NAME 0 @E@@@@ $DJK )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @^@@@@ ER JL )@@G@@ RT$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,1 JM )@@G@@@^@@@@NRT$* $NAME 0 @^@@@@ ER NRT$@#@@@@ JN )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@TWAIT$* $NJO )@@G@@AME 1 @^@@@@TWAIT$P* $NAME 0 @E@@@@ $DO P(1)JP )@@G@@>0 , LA 13,+(EQUF$ P(1),1,P(0,0)) @ @@@@ ER TWAIT$ JQ )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC 0,1 @ @@@@JR )@@G@@SWAIT$* $NAME 'SWAIT$' @ @@@@SWTCH$* $NAME 'SWTCH$' @ @@@@JS )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@JT )@@G@@P $PROC *1 @^@@@@SETC$* $NAME 1 @^@@@@SETC$P* $NJU )@@G@@AME 0 @E@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0JV )@@G@@,0)) @ @@@@ ER SETC$ @#@@@@ $END @[@@@@JW )@@G@@ . @^@@@@P $PROC 0,1 @#@@@@COND$* $NAME @ @@@@ JX )@@G@@ ER COND$ @#@@@@ $END @[@@@@ . @^@@@@P JY )@@G@@ $PROC 0,1 @ @@@@DATE$* $NAME 'DATE$' @ @@@@TDATE$* $NJZ )@@G@@AME 'TDATE$' @ @@@@TIME$* $NAME 'TIME$' @ @@@@ ERKA )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PKB )@@G@@ROC *1 @ @@@@MCORE$* $NAME *'MCORE$' @ @@@@LCORE$* $NAME KC )@@G@@ *'LCORE$' @ @@@@MCORE$P* $NAME 'MCORE$' @ @@@@LCORE$P* $NAME KD )@@G@@ 'LCORE$' @F@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2*PKE )@@G@@(0,*0)) @E@@@@ $DO P(0)>1 , LXI 12,+(EQUF$ P(0),1,*P(KF )@@G@@0,*0))@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@KG )@@G@@ . @^@@@@P $PROC *1 @^@@@@PSR$* $NAME 0 @^@@@@KH )@@G@@PSR$P* $NAME 1 @F@@@@ $DO P(0,0)+P(1)+($IBITS(P(KI )@@G@@1,1))**(1*/4))>1 ,; @A@@@@P(2) $EQU +(EQUF$ P(1),1) @F@@@@KJ )@@G@@ $DO P(0,0)+($AP(P(2))>1*/16-1)+P(1)>1 , LA 12,P(2)@F@@@@KK )@@G@@ $DO (P(1)=1)**(\P(0,0))**($AP(P(2))<1*/16) , ; @B@@@@KL )@@G@@ LA 12,+(OPT$$ P(1,1)) @^@@@@ ER PSR$KM )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@KN )@@G@@BANK$* $NAME 0 @D@@@@ $DO P(1)>0 ,P(2) $EQU +(EQKO )@@G@@UF$ P(1),1) @H@@@@ $DO ($AP(P(2))>1*/16-1)++(P(0,1)=P(0)-1)*KP )@@G@@*1-P(0,*1)**(P(1)>0) , ;@D@@@@ LA 12,+(EQUF$ P(1),1,2-PKQ )@@G@@(0,*1)) @F@@@@ $DO (($AP(P(2))>1*/16-1)++(\P(1)))**P(KR )@@G@@0,*1) , ; @A@@@@ LXI,14 12,1*/17+P(0,1) @H@@@@ $DKS )@@G@@O (\P(0,*1))**(P(0)>1)**((P(1)=0)++($AP(P(2))>1*/16-1)) , ; @B@@@@KT )@@G@@ LXI 12,+(EQUF$ P(0),1,*1) @H@@@@ $DO (1-(P(0KU )@@G@@,1)=P(0)-1)++P(0,*1))**(P(1)>0)**($AP(P(2))<1*/16) , ;@D@@@@ LAKV )@@G@@ 12,(1*/17*P(0,*1)+P(0,1),P(2)) @^@@@@BANK$P* $NAME 1 KW )@@G@@@E@@@@ $DO P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@KX )@@G@@ ER BANK$ @#@@@@ $END @[@@@@ . @^@@@@KY )@@G@@P $PROC *255@^@@@@INFO$* $NAME 0 @E@@@@ $DKZ )@@G@@O P>1 , LA 12,(2*P-1,$LCV(CTL$BNK(0))) @ @@@@ ER LA )@@G@@ INFO$ @#@@@@$(CTL$BNK(0)). @^@@@@INFO$PKT* $NAME 1 @B@@@@LB )@@G@@ $DO P(0,1)*P(0,0) , + 0D @^@@@@LEN(1) $EQU 2 LC )@@G@@@^@@@@LEN(2) $EQU 1 @^@@@@LEN(3) $EQU 2 @^@@@@LEN(4)LD )@@G@@ $EQU 1 @^@@@@LEN(5) $EQU 1 @^@@@@LEN(6) $EQU LE )@@G@@ 1 @^@@@@LEN(7) $EQU 7 @ @@@@I $DO P-1 , ; LF )@@G@@@I@@@@ $GFORM 12,P(I,1),24,0,2,0,16,LEN(P(I,1))*(P(I)<3)+P(ILG )@@G@@,3),18,P(I,2) @B@@@@I $DO P(0,2)*P(0,0) , + 0D @B@@@@LH )@@G@@ $DO P(0,0)=0 ,$($ILCN) @#@@@@ END @^@@@@LI )@@G@@P $PROC *1 @#@@@@INFO$P* $NAME @D@@@@ $DO LJ )@@G@@ P(1)>0 , LA 12,+(EQUF$ P(1) ) @ @@@@ ER INFO$ LK )@@G@@@#@@@@ $END @[@@@@ . @^@@@@ $PROC *0,1@#@@@@LL )@@G@@OPT$* $NAME @^@@@@ ER OPT$@#@@@@ $END LM )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@PCT$* $NAME 0 LN )@@G@@@^@@@@PCT$P* $NAME 1 @ @@@@ $IF P(0,0) @D@@@@LO )@@G@@ $DO P(1)>0 , DL 12,+(EQUF$ P(1),1) @#@@@@ $ELP )@@G@@LSE @A@@@@LG $EQU P(1,2)+(P(1)<2) @E@@@@ $DO LQ )@@G@@ (P(0)>1)**(P(1)>0) , LA,14 12,P(1,1) @C@@@@ $DO P(0)LR )@@G@@>1 , LA 13,(LG,P(0,1)) @E@@@@ $DO (P(0)=1)**(P(1)>0) , LLS )@@G@@A 12,(LG,P(1,1)) @#@@@@ $ENDF @^@@@@ ER PCT$LT )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@LU )@@G@@MCT$* $NAME 0 @^@@@@MCT$P* $NAME 1 @F@@@@ $DLV )@@G@@O P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DLW )@@G@@O (\P(0,0))**(P(1)>0) , ; @G@@@@ LA,14 12,(MCT$PKLX )@@G@@T P(1,1),P(1,2),P(1,3),P(1,4)+(P(1)=3)) @^@@@@ ER MCT$LY )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @#@@@@LZ )@@G@@MCT$PKT* $NAME @ @@@@ $IF P(1,2)=3 @G@@@@ $GMA )@@G@@FORM 12,0,6,P(1,2),18,P(1,1),18,P(1,4)+(P(1)=3),18,P(1,3)@#@@@@ MB )@@G@@ $ELSE @C@@@@ $GFORM 12,0,6,P(1,2),18,P(1,1) @#@@@@MC )@@G@@ $ENDF @#@@@@ $END @[@@@@ . @^@@@@P $PMD )@@G@@ROC *1 @^@@@@IALL$* $NAME 0 @ @@@@A(1) $EQU 'IOPME )@@G@@R' @ @@@@A(2) $EQU 'IGDM' @ @@@@A(3) $EQU 'IFOMF )@@G@@F' @ @@@@A(4) $EQU 'IFUF' @ @@@@A(5) $EQU 'IDOMG )@@G@@F' @ @@@@A(6) $EQU 'IRST' @ @@@@A(7) $EQU 'IABMH )@@G@@T' @ @@@@A(8) $EQU 'IINT' @ @@@@A(9) $EQU 'ITSMI )@@G@@' @ @@@@A(10) $EQU 'ERR$' @F@@@@A(11) $EQU 'IAIMJ )@@G@@' INTER ACTIVITY INTERRUPT @ @@@@A(12) $EQU 'BRKMK )@@G@@PT' @ @@@@A(13) $EQU 'PARITY' @ @@@@A(14) $EQU 'TIMML )@@G@@E' @E@@@@ . 'TIME' VALUE IS ALSO USED FOR PCT OVERFLOWS MM )@@G@@@ @@@@A(15) $EQU 'TERM' @[@@@@ . @G@@@@C $EQU MN )@@G@@ 16 FIRST APPLICATION SUBSCRIPT @[@@@@ . @ @@@@MO )@@G@@A(C) $EQU *'PGM' @ @@@@A(C+1) $EQU *'PROGRAM'@ @@@@MP )@@G@@A(C+2) $EQU *'ACT' @A@@@@A(C+3) $EQU *'ACTIVITY' MQ )@@G@@@ @@@@A(C+4) $EQU *'ESI' @ @@@@A(C+5) $EQU *'ESI' MR )@@G@@@ @@@@A(C+6) $EQU *'CDB' @ @@@@A(C+7) $EQU *'COMMON' MS )@@G@@@[@@@@ . @B@@@@B(0) $EQU (P(1)=2)+2*(P(1)=3) @F@@@@I MT )@@G@@ $DO B(0) ,J $DO A , $DO P(1,I+1)=A(J) ,B(0) $EQU 0@C@@@@I MU )@@G@@ $DO B(0) ,B(I-1) $EQU P(1,I+1) @F@@@@I $DO P(1)MV )@@G@@-(P(1)>0) ,J $DO A , $DO P(1,I+1)=A(J) ,; @E@@@@B(A(*J)) $EQU B(A(MW )@@G@@*J))++1*/((J-C*A(*J))*/-A(*J)-1) @C@@@@DP $EQU (B(0)<0)++MX )@@G@@(B(0)>1*/12-1) @^@@@@ $IF DP @A@@@@IF $FORM MY )@@G@@ 12,6,18,18,18 @#@@@@ $ELSE @ @@@@IF $FORM 12,6MZ )@@G@@,18 @#@@@@ $ENDF @D@@@@ $DO DP , DL 12,(IF ,NA )@@G@@B(1),P(1,1),,B(0))@F@@@@ $DO (P(1)>0)**1-DP , LA 12,(IF BNB )@@G@@(0),B(1),P(1,1)) @ @@@@ ER IALL$ @#@@@@ $ENC )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @^@@@@IALL$P* $NAME ND )@@G@@ 1 @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@NE )@@G@@ ER IALL$ @#@@@@ $END @[@@@@ . @^@@@@NF )@@G@@P $PROC 0,1 @ @@@@CEND$* $NAME 'CEND$' @ @@@@CRTN$*NG )@@G@@ $NAME 'CRTN$' @ @@@@ ER [P(0,0)] @#@@@@ NH )@@G@@ $END @[@@@@ . @^@@@@P PROC *1 @#@@@@CQUE$* NANI )@@G@@ME @A@@@@F FORM 6,4,4,4,6,6,6 @I@@@@ DO NJ )@@G@@ P(1)>0 , F 8,14,,,P(1,2),P(1,3),P(1,2) . LA,U A0, @^@@@@NK )@@G@@CQUE$P* NAME 1 @E@@@@ DO P(0,0)*(P(1)>0) , LA 1NL )@@G@@2,+(EQUF$ P(1) ) @D@@@@ DO P(0)>1 , LA 13,+(EQUF$ P(0) NM )@@G@@) @ @@@@ ER CQUE$ @#@@@@ END @^@@@@NN )@@G@@P PROC *1 @#@@@@TRMRG$* NAME @B@@@@B EQU NO )@@G@@ +(EQUF$ P(1),1,2) @F@@@@ DO (P(1)>0)**(P(0)<2)++($NP )@@G@@AP(B)<14*/26) , LXM 12,B@ @@@@F FORM 3,3,12,18 @F@@@@ NQ )@@G@@ DO ((P(1)=0)++($AP(B)<14*/26))**(P(0)>1) , ; @C@@@@ NR )@@G@@ LXI,14 12,(F ,P(0,1),P(0,2))*/-18 @H@@@@ DO (P(0)>1NS )@@G@@)**(P(1)>1)**($AP(B)>14*/26-1)**(B<14*/26+0777777) , ;@D@@@@ LANT )@@G@@ 12,(F ,P(0,1),P(0,2),B-14*/26) @^@@@@TRMRG$P* NAME 1 NU )@@G@@@E@@@@ DO (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1) ) @ @@@@NV )@@G@@ ER TRMRG$ @#@@@@ END @^@@@@P $PNW )@@G@@ROC *1 @^@@@@SETBP$* $NAME 0 @^@@@@L(1) $EQU 'W' NX )@@G@@@^@@@@L(2) $EQU 'R' @^@@@@L(3) $EQU 'WR'@^@@@@L(4) NY )@@G@@ $EQU 'P' @C@@@@ $DO P(0,1)='RW' ,P(0,1) $EQU 3 NZ )@@G@@@D@@@@I $DO L , $DO P(0,1)=L(I) ,P(0,1) $EQU I@D@@@@ OA )@@G@@ $DO P(0)>3 ,P(0,1) $EQU P(0,1)++8 @G@@@@P(3) $EQU OB )@@G@@ +($GFORM 18,0,2,0,4,P(0,1),6,P(0,2)+63*(P(0)<3)) @D@@@@ $DOC )@@G@@O P(1)>0 ,P(2) $EQU +(EQUF$ P(1),1) @H@@@@ $DO ($APOD )@@G@@(P(2))<1*/16)*(P(1)+P(0)>1) , LA 12,+(OPT$$ P(3),P(2))@^@@@@SETBP$P* $NOE )@@G@@AME 1 @F@@@@ $DO (P(1)>0)**P(0,0)++($AP(P(2))>1*/16OF )@@G@@-1) , ; @D@@@@ LA 12,+(EQUF$ P(1),1,2-2*P(0,0)) OG )@@G@@@F@@@@ $DO ($AP(P(2))>1*/16-1)*(P(0)>1) , LXI,14 12,P(3) OH )@@G@@@G@@@@ $DO P(0)>3-2*P(0,0) , LA 13,+(EQUF$ P(0),3-2*P(0,0OI )@@G@@),*1) @ @@@@ ER SETBP$ @#@@@@ $END @[@@@@OJ )@@G@@ . @^@@@@P $PROC *1 @#@@@@ABSAD$* $NAME @ @@@@ OK )@@G@@ $DO P(1)>0 , ;@F@@@@ LA,14 12,($GFORM 18,P(1,2),1OL )@@G@@8,P(1,3),36,P(1,1)) @^@@@@ABSAD$P* $NAME 1 @F@@@@ $DOM )@@G@@O (P(1)>0)**P(0,0) , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ERON )@@G@@ ABSAD$ @#@@@@ $END @[@@@@ . @^@@@@P $POO )@@G@@ROC *1 @^@@@@ADED$* $NAME 1 @#@@@@ADED$P* $NAME @E@@@@OP )@@G@@ $D0 P(1)>0 , LA 12,+(EQUF$ P(1),1,P(0,0)) @ @@@@ OQ )@@G@@ ER ADED$ @#@@@@ $END @[@@@@ . @^@@@@SYSBALOR )@@G@@$P* $PROC *1 @#@@@@SYSBAL$* $NAME @F@@@@ $DO \\SYOS )@@G@@SBAL$P(1) , LA 12,+(EQUF$ SYSBAL$P(1),1,2)@ @@@@ ER SYSBOT )@@G@@AL$ @#@@@@ $END @[@@@@ . @^@@@@Q $PROC *2 OU )@@G@@@^@@@@COM$PGEN* $NAME 0 @^@@@@C(1) $EQU 'S' @^@@@@C(2) OV )@@G@@ $EQU 'I' @^@@@@C(3) $EQU 'C' @^@@@@C(4) $EQU OW )@@G@@ 'H' @ @@@@B(0) $EQU P(0,1) @D@@@@I $DO C , OX )@@G@@$DO B(0)=C(I) ,B(0) $EQU I-1 @G@@@@ $GFORM 6,0,6,B(0),6,P(2OY )@@G@@,3),18,0,6,0,12,P(1,2)+50*(P(1)=1),;@ @@@@ 18,P(1,1) OZ )@@G@@@C@@@@ * P(2,2)+50*(P(2)=1),P(2,1) @D@@@@ $DPA )@@G@@O P(2,3)>31 , $RES 1. FOR RUNID @#@@@@ $END @[@@@@PB )@@G@@ . @^@@@@P $PROC *2 @^@@@@COM$PKT* $NAME 0 @#@@@@PC )@@G@@ COM$PGEN@#@@@@ $END @[@@@@ . @^@@@@P $PPD )@@G@@ROC *2 @^@@@@COM$* $NAME 0 @D@@@@ $DO P(1)PE )@@G@@>0 , LA,14 12,$LCV(CTL$BNK(0))@^@@@@F* $PROC 0 @^@@@@$(CTL$PF )@@G@@BNK(0)) . @#@@@@ COM$PGEN@]@@@@$($ILCN) . @#@@@@ PG )@@G@@ $END @[@@@@ . @^@@@@ ER COM$@ @@@@ $DPH )@@G@@O P(1)>0 , F@#@@@@ $END @[@@@@ . @^@@@@P $PPI )@@G@@ROC *1 @^@@@@COM$P* $NAME 0 @D@@@@ $DO P(1)PJ )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) @^@@@@ ER COM$@#@@@@ PK )@@G@@ $END @[@@@@ . @#@@@@P $PROC @^@@@@II$* $NAME PL )@@G@@ 0 @^@@@@ ER II$ @#@@@@ $END @[@@@@ . PM )@@G@@@^@@@@Q $PROC 0,3 @^@@@@SNAP$PGEN* $NAME 0 @B@@@@ PN )@@G@@ $DO P(1)>2 , LJSF$1 P(1,3)@B@@@@ $DO P(1)<3 , +PO )@@G@@ $CFS(5)SL @^@@@@REGS $EQU 0 @ @@@@I $REPEAT P(0)PP )@@G@@-1 @A@@@@J $REPEAT $SL(P(0,I)) @A@@@@REG $EQU PQ )@@G@@ $SS(P(0,I),J,1) @G@@@@REGS $EQU REGS++(1*(REG='R'))++(2*(REGPR )@@G@@='A'))++(4*(REG='X')) @#@@@@ $ENDR @#@@@@ $ENDR PS )@@G@@@E@@@@ $GFORM 3,REGS,15,P(1,2)+(P(1)=1),18,P(1,1),36,0@#@@@@PT )@@G@@ $END @[@@@@ . @^@@@@P $PROC 1,3 @^@@@@SNAP$PPU )@@G@@KT* $NAME 0 @^@@@@ SNAP$PGEN @#@@@@ $END PV )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@SNAP$* $NAME 0 PW )@@G@@@^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) . @^@@@@ PX )@@G@@ SNAP$PGEN @]@@@@$($ILCN) . @#@@@@ $END @[@@@@ . PY )@@G@@@A@@@@ $IF P(0)+P(1)>1 @B@@@@ SA 12,$PZ )@@G@@LCV(CTL$BNK(0))+2 @B@@@@ LA,14 12,$LCV(CTL$BNK(0)) @#@@@@QA )@@G@@ $ENDF @ @@@@ ER SNAP$ @A@@@@ $DQB )@@G@@O P(0)+P(1)>1 , F @#@@@@ $END @[@@@@ . @^@@@@P QC )@@G@@ $PROC *1 @^@@@@SNAP$P* $NAME 0 @F@@@@ $DO QD )@@G@@ (P(1)>0)**(P(1)<3) , SA 12,P(1,1)+2,P(1,2) @D@@@@ $DO QE )@@G@@ P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER SNAP$ QF )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @#@@@@QG )@@G@@ERRPR$* $NAME @C@@@@ $DO P>1 , LA,14 12,(,P(1,1)) QH )@@G@@@^@@@@ERRPR$P* $NAME 1 @E@@@@ $DO P(0,0)*(P>1) , LQI )@@G@@A 12,+(EQUF$ P(1),1,2) @ @@@@ ER ERRPR$ @#@@@@ QJ )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@READ$P* $NQK )@@G@@AME *'READ$' @ @@@@AREAD$P* $NAME *'AREAD$' @D@@@@ $DQL )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@READ$* $NAME 'REAQM )@@G@@D$' @ @@@@AREAD$* $NAME 'AREAD$' @H@@@@ $DO 1-P(QN )@@G@@0,*0)**(P(1)>0) , LA 12,(($+2)*(P(1)=1)+P(1,2),P(1,1))@ @@@@ ERQO )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PQP )@@G@@ROC *1 @^@@@@PRINT$P* $NAME *0 @^@@@@APRINT$P* $NAME *1 QQ )@@G@@@D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @^@@@@PRINT$QR )@@G@@* $NAME 0 @^@@@@APRINT$* $NAME 1 @C@@@@ $DO QS )@@G@@ (\P(0,*0))**(P(1)>0) , ; @D@@@@ LA 12,($GFORM 12,P(QT )@@G@@1,3)+(P(1)<3),; @F@@@@ 6,(22+11*P(0,0))*(P(1)<2)+P(QU )@@G@@1,2),18,P(1,1)) @B@@@@ ER P(0,0)->APRINT$!PRINT$@#@@@@QV )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@PRINT$QW )@@G@@S* $NAME 'PRINT$' @ @@@@APRINT$S* $NAME *'APRINT$'@ @@@@PF QX )@@G@@ $FORM 12,6,18 @A@@@@SP $EQU P(1,2)+(P(1)=1) @A@@@@QY )@@G@@ $DO P(0,*0) , ; @F@@@@ LA 12,(PF SP,QZ )@@G@@$SL(P(1,1))//4,($CAS(P(1,1))L)) @A@@@@ $DO \P(0,*0) ,RA )@@G@@ ; @F@@@@ LA 12,(PF SP,$SL(P(1,1))//6,($CFS(P(1,1))L)RB )@@G@@) @ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@RC )@@G@@ . @^@@@@P $PROC *1 @^@@@@PUNCH$P* $NAME 0 @^@@@@RD )@@G@@APUNCH$P* $NAME 1 @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$RE )@@G@@ P(1),1) @^@@@@PUNCH$* $NAME *0 @^@@@@APUNCH$* $NAME *1 RF )@@G@@@B@@@@ $DO P(0,*0)**(P(1)>0) , ; @F@@@@ LA RG )@@G@@ 12,((14+6*P(0,0))*(P(1)<2)+P(1,2),P(1,1)) @B@@@@ ER RH )@@G@@ P(0,0)->APUNCH$!PUNCH$@#@@@@ $END @[@@@@ . @^@@@@Q RI )@@G@@ $PROC 0,3 @^@]@@PRNTA$PGEN $NAME 0 @^@@@]PRNTA$PGEN* $NAME RJ )@@G@@ 0 @H@@@@ $GFORM 12,P(1,4)+(P(1)<4),6,(22+11*P(0,0))*(P(1RK )@@G@@)<3)+P(1,3),; @ @@@@ 18,P(1,2) @ @@@@ LJRL )@@G@@SF$2 P(1,1) @#@@@@ $END @[@@@@ . @^@@@@P $PRM )@@G@@ROC 1,3 @^@@@@PRNTA$PKT* $NAME 0 @^@@@@APRNTA$PKT* $NAME 1 RN )@@G@@@^@@@@ PRNTA$PGEN @#@@@@ $END @[@@@@ . @^@@@@RO )@@G@@P $PROC *1 @^@@@@PRNTA$* $NAME 0 @^@@@@APRNTA$* $NRP )@@G@@AME 1 @D@@@@ $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0))RQ )@@G@@@^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) . @^@@@@ RR )@@G@@ PRNTA$PGEN @]@@@@$($ILCN) . @#@@@@ $END @[@@@@ . RS )@@G@@@B@@@@ ER P(0,0)->APRNTA$!PRNTA$@ @@@@ $DO RT )@@G@@ P(1)>0 , F@#@@@@ $END @[@@@@ . @^@@@@P $PROC RU )@@G@@ *1 @ @@@@PRNTA$P* $NAME 'PRNTA$' @ @@@@APRNTA$P* $NAME 'APRRV )@@G@@NTA$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@RW )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@RX )@@G@@Q $PROC 0,3 @^@@@@PNCHA$PGEN* $NAME 0 @F@@@@ $GRY )@@G@@FORM 12,0,6,(14+6*P(0,0))*(P(1)<3)+P(1,3),18,P(1,2)@ @@@@ LJRZ )@@G@@SF$2 P(1,1) @#@@@@ $END @[@@@@ . @^@@@@P $PSA )@@G@@ROC 1,3 @^@@@@PNCHA$PKT* $NAME 0 @^@@@@APNCHA$PKT* $NAME 1 SB )@@G@@@^@@@@ PNCHA$PGEN @#@@@@ $END @[@@@@ . @^@@@@SC )@@G@@P $PROC *1 @^@@@@PNCHA$* $NAME 0 @^@@@@APNCHA$* $NSD )@@G@@AME 1 @^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) . SE )@@G@@@^@@@@ PNCHA$PGEN @]@@@@$($ILCN) . @#@@@@ $END SF )@@G@@@[@@@@ . @E@@@@ $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0)SG )@@G@@) @B@@@@ ER P(0,0)->APNCHA$!PNCHA$@ @@@@ $DSH )@@G@@O P(1)>0 , F@#@@@@ $END @[@@@@ . @^@@@@P $PSI )@@G@@ROC *1 @ @@@@PNCHA$P* $NAME 'PNCHA$' @ @@@@APNCHA$P* $NAME SJ )@@G@@ 'APNCHA$' @D@@@@ $DO P(1)> , LA 12,+(EQUF$ P(1),1,2) SK )@@G@@@ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . SL )@@G@@@^@@@@Q $PROC 0,3 @^@@@@READA$PGEN* $NAME 0 @A@@@@ SM )@@G@@ + P(1,3),P(1,2) @ @@@@ LJSF$2 P(1,1) @#@@@@SN )@@G@@ $END @[@@@@ . @^@@@@P $PROC 1,3 @^@@@@READA$SO )@@G@@PKT* $NAME 0 @^@@@@AREADA$PKT* $NAME 1 @^@@@@ARDA$PKT* $NAME SP )@@G@@ 2 @D@@@@ $DO P(1)<3 ,P(1,3) $EQU (ER ERR$) @^@@@@SQ )@@G@@ READA$PGEN @#@@@@ $END @[@@@@ . @^@@@@P SR )@@G@@ $PROC *1 @ @@@@READA$* $NAME 'READA$' @ @@@@AREADA$* $NSS )@@G@@AME 'AREADA$' @ @@@@ARDA$* $NAME 'ARDA$' @^@@@@F* $PST )@@G@@ROC 0 @^@@@@$(CTL$BNK(0)) . @^@@@@ READA$PGEN SU )@@G@@@]@@@@$($ILCN) . @#@@@@ $END @C@@@@ $DO P(1)SV )@@G@@=2 ,P(1,3) $EQU $LCV+2 @D@@@@ $DO P(1)>0 , LA,14 12,$LCVSW )@@G@@(CTL$BNK(0))@ @@@@ ER [P(0,0)] @#@@@@ $END SX )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@READA$P* $NAME 'REASY )@@G@@DA$' @ @@@@AREADA$P* $NAME 'AREADA$' @ @@@@ARDA$P* $NAME 'ARDSZ )@@G@@A$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@TA )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@TB )@@G@@P $PROC *1 @ @@@@PRTCN$* $NAME 'PRTCN$' @ @@@@APRTCNTC )@@G@@$* $NAME 'APRTCN$' @ @@@@PRTCA$* $NAME 'PRTCA$' @ @@@@APRTCATD )@@G@@$* $NAME 'APRTCA$' @ @@@@PCHCN$* $NAME 'PCHCN$' @ @@@@APCHCNTE )@@G@@$* $NAME 'APCHCN$' @ @@@@PCHCA$* $NAME 'PCHCA$' @ @@@@APCHCATF )@@G@@$* $NAME 'APCHCA$' @ @@@@PRTCN$P* $NAME *'PRTCN$' @ @@@@APRTCNTG )@@G@@$P* $NAME *'APRTCN$'@ @@@@PRTCA$P* $NAME *'PRTCA$' @ @@@@APRTCATH )@@G@@$P* $NAME *'APRTCA$'@ @@@@PCHCN$P* $NAME *'PCHCN$' @ @@@@APCHCNTI )@@G@@$P* $NAME *'APCHCN$'@ @@@@PCHCA$P* $NAME *'PCHCA$' @ @@@@APCHCATJ )@@G@@$P* $NAME *'APCHCA$'@F@@@@ $DO P(0,*0)**(P(1)>0) , LATK )@@G@@ 12,+(EQUF$ P(1),1) @H@@@@ $DO P(1)=1 ,P(1,2) $EQU (1TL )@@G@@32-52*(($SS(P(0,0),1,3)='PCH')++; @C@@@@ ($SS(P(0,0TM )@@G@@),1,3)='APC')))//;@D@@@@ (6-2*($SS(P(0,0),1,1)='A'))+TN )@@G@@; @G@@@@ 2*(($SS(P(0,0),5,2)='A$')++($SS(P(0,0),6TO )@@G@@,2)='A$')) @F@@@@ $DO 1-P(0,*0)**(P(1)>0) , LA 12,(P(1,2TP )@@G@@),P(1,1)) @ @@@@ ER [P(0,0)] @#@@@@ $END TQ )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@PRTCN$S* $NAME 'PRTTR )@@G@@CN$' @ @@@@PRTCA$S* $NAME 'PRTCA$' @ @@@@PCHCN$S* $NAME 'PCHTS )@@G@@CN$' @ @@@@PCHCA$S* $NAME 'PCHCA$' @E@@@@ LA 12,(TT )@@G@@$SL(P(1,1))//6,($CFS(P(1,1))L)) @ @@@@ ER [P(0,0)] TU )@@G@@@ @@@@ $DO 1 , $END @ @@@@APRTCN$S* $NAME 'APRTCN$' TV )@@G@@@ @@@@APRTCA$S* $NAME 'APRTCA$' @ @@@@APCHCN$S* $NAME 'APCHCN$' TW )@@G@@@ @@@@APCHCA$S* $NAME 'APCHCA$' @E@@@@ LA 12,($SL(P(TX )@@G@@1,1))//4,($CAS(P(1,1))L)) @ @@@@ ER [P(0,0)] @#@@@@TY )@@G@@ $END @[@@@@ . @[@@@@ . @^@@@@P $PROC *2 TZ )@@G@@@ @@@@TREAD$P* $NAME *'TREAD$' @ @@@@ATREAD$P* $NAME *'ATREAD$'UA )@@G@@@ @@@@ATRD$P* $NAME *'ATRD$' @D@@@@ $DO P(1)>0 , LUB )@@G@@A 12,+(EQUF$ P(1),1,2) @ @@@@TREAD$* $NAME 'TREAD$' @ @@@@ATREADUC )@@G@@$* $NAME 'ATREAD$' @ @@@@ATRD$* $NAME 'ATRD$' @C@@@@ UD )@@G@@ $DO P(2)=0 ,P(2,1) EQU P(1,1) @C@@@@ $DO (\P(UE )@@G@@0,*0))**(P(1)>0) , ; @I@@@@ LA,14 12,($GFORM 12,P(1,3)+(UF )@@G@@P(1)<3),6,(33-11*(P(0,0)='TREAD$'))*; @H@@@@ (P(1UG )@@G@@)<2)+P(1,2),18,P(1,1),18,($LCV+2)*(P(2)<2)+P(2,2),; @ @@@@ UH )@@G@@ 18,P(2,1))@ @@@@ ER [P(0,0)] @#@@@@ $EUI )@@G@@ND @[@@@@ . @^@@@@CLIST$PGEN* $PROC *0 @^@@@@TERM $EQU UJ )@@G@@ -0 @D@@@@ $DO \P(1,P(1)) ,TERM $EQU P(1,P(1)) @E@@@@UK )@@G@@ $DO \\P(0,1) , $GEN 0,0,0,0,P(0,1),TERM @F@@@@I UL )@@G@@ $DO (\P(1))+P(1)-(\P(1,P(1))) , LJSF$1 P(1,I) @B@@@@ UM )@@G@@ $DO \P(0,1) , $GEN TERM @#@@@@ $END @[@@@@ . UN )@@G@@@[@@@@ . @^@@@@ACLIST$PGEN* $PROC *0 @C@@@@PLUS $EQU 0100UO )@@G@@100100100100100100100D @C@@@@MINUS $EQU 0137137137137137137137UP )@@G@@137D @ @@@@F $FORM 36,36 @A@@@@B(0) $EQU P(1,UQ )@@G@@P(1))=PLUS @A@@@@B(1) $EQU P(1,P(1))=MINUS @E@@@@ $DUR )@@G@@O P(1,P(1))=0 ,B(+(F ,P(1,P(1)))>0) $EQU 1@E@@@@I $DO US )@@G@@ (P(1)=0)+P(1)-B(0)-B(1) , ALJSF$2 P(1,I)@A@@@@ $DO B(0)UT )@@G@@ , $GEN PLUS@B@@@@ $DO B(1) , $GEN MINUS @#@@@@ UU )@@G@@ END @^@@@@P $PROC *1 @^@@@@CLIST$PKT* $NAME 0 UV )@@G@@@^@@@@ACLIST$PKT* $NAME 1 @B@@@@ $DO \P(0,0) , CLIST$UW )@@G@@PGEN @B@@@@ $DO P(0,0) , ACLIST$PGEN @#@@@@ $EUX )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@CLIST$* $NAME UY )@@G@@ 'CLIST$' @ @@@@ACLIST$* $NAME *'ACLIST$'@H@@@@ $DO UZ )@@G@@ (\\P(1))**(\\P(0,1)) , LA 12,(P(0,1),$LCV(CTL$BNK(0))) @G@@@@ VA )@@G@@ $DO (\\P(1))**(\P(0,1)) , LA,14 12,$LCV(CTL$BNK(0)) @ @@@@VB )@@G@@ ER [P(0,0)] @F@@@@ $DO (\P(1))**(\P(0,*VC )@@G@@0)) ,$(CTL$BNK(0)) CLIST$PGEN @F@@@@ $DO (\P(1))**(P(0,*0VD )@@G@@)) ,$(CTL$BNK(0)) ACLIST$PGEN @#@@@@$($ILCN) $END @[@@@@ . @^@@@@VE )@@G@@P $PROC *1 @ @@@@ACLIST$P* $NAME 'ACLIST$' @ @@@@CLIST$VF )@@G@@P* $NAME 'CLIST$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$VG )@@G@@ P(1),1,2) @ @@@@ ER [P(0,0)] @#@@@@ $END VH )@@G@@@[@@@@ . @^@@@@P $PROC *1 @^@@@@RSI$* $NAME 0 VI )@@G@@@^@@@@RSI$P* $NAME 0 @D@@@@ $DO P(1)>0 , LA 12,+VJ )@@G@@(EQUF$ P(1),1,2) @^@@@@ ER RSI$@#@@@@ $END VK )@@G@@@[@@@@ . @^@@@@P $PROC 1,2 @^@@@@PLINE$* $NAME 0 VL )@@G@@@E@@@@ LA 12,(1,($CFS('L,'):$CFS($CD(P(1,1)))L)) @ @@@@VM )@@G@@ ER PRTCN$ @#@@@@ $END @[@@@@ . @^@@@@VN )@@G@@PMARG$* $PROC 1,2 @C@@@@A(4) FDCVT$ 66*(PMARG$(1)<1)+PMARGVO )@@G@@$(1,1)@C@@@@A(5) FDCVT$ 6*(PMARG$(1)<2)+PMARG$(1,2)@C@@@@A(6) VP )@@G@@ FDCVT$ 3*(PMARG$(1)<3)+PMARG$(1,3)@G@@@@ LA 12,(VQ )@@G@@2,($GFORM 12,$CFS('M,'),12,A(4),6,$CFS(','),; @F@@@@ VR )@@G@@ 12,A(5),6,$CFS(','),12,A(6),12,$CFS(' '))) @ @@@@ ER VS )@@G@@ PRTCN$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC VT )@@G@@ *1 @ @@@@IO$* $NAME 'IO$' @ @@@@IOI$* $NAME 'IOIVU )@@G@@$' @ @@@@IOW$* $NAME 'IOW$' @ @@@@IOWI$* $NAME 'IOWVV )@@G@@I$' @ @@@@IOXI$* $NAME 'IOXI$' @ @@@@IOARB$* $NAME 'IOAVW )@@G@@RB$' @ @@@@IOAXI$* $NAME 'IOAXI$' @ @@@@IO$P* $NAME *'IOVX )@@G@@$' @ @@@@IOI$P* $NAME *'IOI$' @ @@@@IOW$P* $NAME *'IOVY )@@G@@W$' @ @@@@IOWI$P* $NAME *'IOWI$' @ @@@@IOXI$P* $NAME *'IOVZ )@@G@@XI$' @ @@@@IOARB$P* $NAME *'IOARB$' @ @@@@IOAXI$P* $NAME *'IOWA )@@G@@AXI$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@WB )@@G@@WAIT$* $NAME 'WAIT$' @D@@@@ $DO (P(0,0)='WAIT$')WC )@@G@@**(P(1)>0) ,; @A@@@@ TP 3+(EQUF$ P(1),1)@ @@@@ WD )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P WE )@@G@@ $PROC 0,1 @ @@@@WANY$* $NAME 'WANY$' @ @@@@UNLCK$* $NWF )@@G@@AME 'UNLCK$' @ @@@@ ER [P(0,0)] @#@@@@ $EWG )@@G@@ND @[@@@@ . @^@@@@P $PROC *4 @^@@@@IO$PKT* $NAME WH )@@G@@ 0 @ @@@@ LJSF$2 P(1,1) @F@@@@ $GFORM 12,0WI )@@G@@,6,P(1,3),18,P(1,2),6,0,6,P(0,1),6,0,18,0 @ @@@@G $EQU P(2,WJ )@@G@@3) @A@@@@ $DO G='D' ,G $EQU 2 @A@@@@ $DO WK )@@G@@ G='N' ,G $EQU 1 @C@@@@ $DO (G='DN')++(G='ND') ,G $EQU 3WL )@@G@@@E@@@@ $DO P(2)>0 , $GFORM 2,G,16,P(2,1),18,P(2,2) @ @@@@WM )@@G@@ $IF P+P(3)>5 @G@@@@ $DO P(3)>0 , $GFORMWN )@@G@@ 12,P(3,2),24,P(3,1),36,P(4,1) @#@@@@ $ELSE @E@@@@ WO )@@G@@ $DO P(3)>0 , $GFORM 12,P(3,2),24,P(3,1) @#@@@@ $EWP )@@G@@NDF @D@@@@ $DO (P(3)>1)**(P(4)>0) ,X $EQU 08 @A@@@@WQ )@@G@@ $DO P(4)>0 , + 0 @#@@@@ $END @[@@@@ . WR )@@G@@@^@@@@P $PROC 8,1 @^@@@@SM$PKT* $NAME 0 @[@@@@ . WS )@@G@@@B@@@@SM('DENSITY','HIGH') $EQU 3*/34 @B@@@@SM('DENSITY','MEDIWT )@@G@@UM') $EQU 2*/34 @B@@@@SM('DENSITY','LOW') $EQU 1*/34 WU )@@G@@@B@@@@SM('PARITY','EVEN') $EQU 2*/32 @B@@@@SM('PARITY','ODD')WV )@@G@@ $EQU 1*/32 @B@@@@SM('BCD','ON') $EQU 1*/30 WW )@@G@@@B@@@@SM('BCD','OFF') $EQU 2*/30 @B@@@@SM('NOISE',1) WX )@@G@@ $EQU 1*/28 @B@@@@SM('SUPPRESS','ON') $EQU 1*/26 WY )@@G@@@B@@@@SM('SUPPRESS','OFF') $EQU 2*/26 @B@@@@SM('MSA-TRN','EBCDWZ )@@G@@IC') $EQU 1*/22 @B@@@@SM('MSA-TRN','ASCII') $EQU 2*/22 XA )@@G@@@B@@@@SM('MSA-TRN','XSEBCD') $EQU 3*/22 @B@@@@SM('MSA-TRN','XSASXB )@@G@@CI') $EQU 4*/22 @B@@@@SM('MSA-TRN','OFF') $EQU 15*/22 XC )@@G@@@B@@@@SM('UNIT-TRN','ON') $EQU 1*/20 @B@@@@SM('UNIT-TRN','OFFXD )@@G@@') $EQU 2*/20 @B@@@@SM('FORMAT','Q') $EQU 1*/18 XE )@@G@@@B@@@@SM('FORMAT','6') $EQU 2*/18 @B@@@@SM('FORMAT',6) XF )@@G@@ $EQU 2*/18 @B@@@@SM('FORMAT','8') $EQU 3*/18 XG )@@G@@@B@@@@SM('FORMAT',8) $EQU 3*/18 @[@@@@ . @^@@@@MODES XH )@@G@@ $EQU 0 @^@@@@I $REPEAT P-1 @A@@@@ $IF XI )@@G@@ P(I,1)='NOISE' @C@@@@MODES $EQU MODES++SM('NOISE',1)++P(I,2)XJ )@@G@@@#@@@@ $ELSE @C@@@@MODES $EQU MODES++SM(P(I,1),P(I,2XK )@@G@@)) @#@@@@ $ENDF @#@@@@ $ENDR @ @@@@ + XL )@@G@@ MODES @#@@@@ $END @[@@@@ . @^@@@@P $PXM )@@G@@ROC *1 @^@@@@FITEM$* $NAME 0 @^@@@@FITEM$P* $NAME 1 XN )@@G@@@C@@@@ $DO (\P(0,0))**(P(1)>0) , ; @D@@@@ LAXO )@@G@@ 12,(131071*(P(1)=1)+P(1,2),P(1,1))@E@@@@ . XP )@@G@@ 131071 = 0377777 @E@@@@ $DO P(0,0)**(PXQ )@@G@@(1)>0) , LA 12,+(EQUF$ P(1),1)@ @@@@ ER FITEM$ @#@@@@XR )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@FACIL$XS )@@G@@* $NAME 'FACIL$' @ @@@@FACIT$* $NAME 'FACIT$' @ @@@@FACIL$XT )@@G@@P* $NAME *'FACIL$' @ @@@@FACIT$P* $NAME *'FACIT$' @D@@@@ XU )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER XV )@@G@@ [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@P $PROC XW )@@G@@ *1 @ @@@@TINTL$* $NAME 'TINTL$' @ @@@@TSWAP$* $NAME 'TSWXX )@@G@@AP$' @ @@@@RSWAP$* $NAME 'RSWAP$' @ @@@@TINTL$P* $NAME *'TIXY )@@G@@NTL$' @ @@@@TSWAP$P* $NAME *'TSWAP$' @ @@@@RSWAP$P* $NAME *'RSXZ )@@G@@WAP$' @F@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2-2*P(0,*0YA )@@G@@)) @G@@@@ $DO (\P(0,*0))**(P(0)>1) , LXI 12,+(EQUF$ P(YB )@@G@@0),1,*1) @ @@@@ ER [P(0,0)] @#@@@@ $END YC )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@BBEOF$* $NAME 'BBEYD )@@G@@OF$' @ @@@@MSCON$* $NAME 'MSCON$' @ @@@@BBEOF$P* $NAME *'BBYE )@@G@@EOF$' @ @@@@MSCON$P* $NAME *'MSCON$' @D@@@@ $DO P(1)YF )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER [P(0,0)] @#@@@@YG )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @ @@@@DGET$PYH )@@G@@KT* $NAME 'DGET$' @ @@@@DGETP$PKT* $NAME 'DGETP$' @A@@@@ YI )@@G@@ $GFORM 30,0,6,[P(0,0)] @ @@@@ LJSF$2 P(1,1) @^@@@@YJ )@@G@@ + 0 @A@@@@ + P(1,2),P(1,3) @D@@@@YK )@@G@@ $DO P(0,0)='DGETP$' , LJSF$1 P(1,4) @#@@@@ $EYL )@@G@@ND @[@@@@ . @^@@@@P $PROC 1,5 @#@@@@DREAD$PKT* $NAME YM )@@G@@@A@@@@ $GFORM 30,0,6,DREAD$ @ @@@@ LJSF$2 P(1,YN )@@G@@1) @G@@@@ $GFORM 12,P(1,3),6,P(1,4),18,P(1,2),12,P(1,5),1YO )@@G@@2,0,12,0 @#@@@@ $END @[@@@@ . @^@@@@P $PROC YP )@@G@@ 1,4 @ @@@@DBITS$PKT* $NAME 'DBITS$' @ @@@@DUNLD$PKT* $NAME 'DUNYQ )@@G@@LD$' @ @@@@DCYC$PKT* $NAME 'DCYC$' @A@@@@ $GFORM 30,0YR )@@G@@,6,[P(0,0)] @ @@@@ LJSF$2 P(1,1) @D@@@@ $DO YS )@@G@@ P(0,0)='DBITS$' , +P(1,2),P(1,3) @C@@@@ $DO P(0,0)='DUYT )@@G@@NLD$' , +P(1,2) @E@@@@ $DO P(0,0)='DCYC$' , $GFORM 30,0YU )@@G@@,6,P(1,2) @#@@@@ $END @[@@@@ . @^@@@@P $PROC YV )@@G@@ *2 @#@@@@DBACK$PKT* $NAME @A@@@@ $GFORM 30,0,6,DBACK$ YW )@@G@@@ @@@@ LJSF$2 P(1,1) @D@@@@NR $EQU (P(2)-P(0,YX )@@G@@1))*(P(2)>P(0,1))+P(0,1)@ @@@@ + NR,,0 @ @@@@ YY )@@G@@ + P(1,2) @F@@@@ $GFORM 6,P(1,6),6,P(1,7),6,0,YZ )@@G@@18,P(1,3),12,P(1,8),; @B@@@@ 12,P(1,5),12,P(1,4) ZA )@@G@@@B@@@@I $DO NR , LJSF$1 P(2,I) @#@@@@ $END ZB )@@G@@@[@@@@ . @^@@@@P $PROC 1,5 @#@@@@DLAPS$PKT* $NAME @A@@@@ZC )@@G@@ $GFORM 30,0,6,DLAPS$ @ @@@@ LJSF$2 P(1,1) ZD )@@G@@@ @@@@ + P(1,2) @ @@@@ + P(1,3) ZE )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 1,7 @#@@@@ZF )@@G@@DKEY$PKT* $NAME @A@@@@ $GFORM 30,0,6,DKEY$ @ @@@@ ZG )@@G@@ LJSF$2 P(1,1) @E@@@@I $DO 4 , +(LJSF$1 P(1,I+1))ZH )@@G@@*(\\P(1,I+1)) @#@@@@ $END @[@@@@ . @^@@@@P $PZI )@@G@@ROC 1,5 @#@@@@DBB$PKT* $NAME @A@@@@ $GFORM 30,0,6,DBBZJ )@@G@@$ @ @@@@ LJSF$2 P(1,1) @D@@@@ $GFORM 12,0ZK )@@G@@,24,P(1,2),18,P(1,3),18,P(1,4)@#@@@@ $END @[@@@@ . @^@@@@ZL )@@G@@P $PROC 1,10@#@@@@DREG$PKT* $NAME @A@@@@ $GFORM ZM )@@G@@ 30,0,6,DREG$ @B@@@@I $DO 3 , LJSF$2 P(1,I) @C@@@@ZN )@@G@@ $GFORM 12,0,6,P(1,4),18,P(1,5) @ @@@@ + ZO )@@G@@ P(1,6) @ @@@@ + P(1,7) @#@@@@ $END ZP )@@G@@@[@@@@ . @^@@@@P $PROC 1,3 @#@@@@MSALL$PKT* $NAME @A@@@@ZQ )@@G@@ $GFORM 30,0,6,MSALL$ @A@@@@ + P(1,2),P(1ZR )@@G@@,1) @^@@@@ + 0 @#@@@@ $END @[@@@@ . ZS )@@G@@@^@@@@Q $PROC 0,3 @^@@@@LABEL$PGEN* $NAME 0 @D@@@@ ZT )@@G@@ $GFORM 6,P(1,4),6,P(1,3),6,0,18,P(1,2) @ @@@@ LJSF$2 ZU )@@G@@ P(1,1) @#@@@@ $END @[@@@@ . @^@@@@P $PROC ZV )@@G@@ 1,3 @^@@@@LABEL$PKT* $NAME 0 @^@@@@ LABEL$PGEN @#@@@@ZW )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@LABEL$ZX )@@G@@* $NAME 0 @^@@@@F* $PROC 0 @^@@@@$(CTL$BNK(0)) ZY )@@G@@ . @^@@@@ LABEL$PGEN @]@@@@$($ILCN) . @#@@@@ $EZZ )@@G@@ND @D@@@@ $DO P(1)>0 , LA,14 12,$LCV(CTL$BNK(0))@ @@@@AA )@@G@@ ER LABEL$ @ @@@@ $DO P(1)>0 , F@#@@@@AB )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@LABEL$AC )@@G@@P* $NAME 0 @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),AD )@@G@@1,2) @ @@@@ ER LABEL$ @#@@@@ $END @[@@@@AE )@@G@@ . @^@@@@P PROC *1 @^@@@@TLBL$* NAME 0 @D@@@@AF )@@G@@ DO (P(0)=1)**(P>1) ,P(0,1) EQU 19 @H@@@@A EQAG )@@G@@U 1--(P(0)=2)**(P(0,1)<1*/18)**(P(1)=1)**($AP(P(1,1))<1*/18)@C@@@@AH )@@G@@ DO 1-A , LA 12,(P(0,1),P(1,1)) @E@@@@ DO AI )@@G@@ A**(P(0)>1) , LXI 12,+(EQUF$ P(0),1,*1) @E@@@@ DO A**(AJ )@@G@@P(1)>0) , LXM 12,+(EQUF$ P(1),1,2) @^@@@@TLBL$P* NAME 1 @E@@@@AK )@@G@@ DO P(0,0)*(P(1)>0) , LA 12,+(EQUF$ P(1) ) @ @@@@ AL )@@G@@ ER TLBL$ @#@@@@ END @^@@@@P $PROC AM )@@G@@ *1 @ @@@@PFS$* $NAME 'PFS$' @ @@@@PFD$* $NAME 'PFDAN )@@G@@$' @ @@@@PFWL$* $NAME 'PFWL$' @ @@@@PFS$P* $NAME *'PFAO )@@G@@S$' @ @@@@PFD$P* $NAME *'PFD$' @ @@@@PFWL$P* $NAME *'PFAP )@@G@@WL$' @D@@@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@AQ )@@G@@ ER [P(0,0)] @#@@@@ $END @[@@@@ . @^@@@@AR )@@G@@P $PROC *2 @^@@@@PFUWL$* $NAME 0 @^@@@@PFI$* $NAS )@@G@@AME 1 @^@@@@PFUWL$P* $NAME *0 @^@@@@PFI$P* $NAME *1 AT )@@G@@@G@@@@ $DO (P(1)>0)**(\P(0,0))++(P=2) , LA 12,+(EQUF$ P(1AU )@@G@@),1,2)@E@@@@ $DO (P>2)**P(0,0) , LNA 12,+(EQUF$ P(1),1,2)AV )@@G@@@D@@@@ $DO P(2)>0 , LA 13,+(EQUF$ P(2),1) @B@@@@ AW )@@G@@ ER P(0,0)->PFI$!PFUWL$ @#@@@@ $END @[@@@@ . AX )@@G@@@^@@@@P $PROC *1 @^@@@@CMS$* $NAME 0 @^@@@@CMS$P*AY )@@G@@ $NAME 1 @A@@@@K(1) $EQU +(EQUF$ P(1),1) @F@@@@ AZ )@@G@@ $DO (P(0)>1)**(\P(0,0)) ,K(0) $EQU +(EQUF$ P(0),1)@E@@@@ BA )@@G@@ $DO (P(1)>0)**(K=1)++($AP(K(1))>1*/16-1) , ;@D@@@@ LABB )@@G@@ 12,+(EQUF$ P(1),1,2-2*P(0,0)) @H@@@@ $DO (P(1BC )@@G@@)>0)**(K=2)**($AP(K(1))<1*/16)**($AP(K(0))<1*/16) , ; @A@@@@ LABD )@@G@@ 12,(K(0),K(1)) @I@@@@ $DO K=2 , DO ($AP(K(0))>1*/16BE )@@G@@-1)++($AP(K(1))>1*/16-1)++(P(1)=0) , ; @B@@@@ LXI 12,+BF )@@G@@(EQUF$ P(0),1,*1) @^@@@@ ER CMS$@#@@@@ $END BG )@@G@@@[@@@@ . @^@@@@P $PROC *1 @ @@@@CMD$* $NAME 'CMDBH )@@G@@$' @ @@@@CMI$* $NAME 'CMI$' @ @@@@CMO$* $NAME 'CMOBI )@@G@@$' @ @@@@CMSA$* $NAME 'CMSA$' @ @@@@CMH$* $NAME 'CMHBJ )@@G@@$' @ @@@@CMT$* $NAME 'CMT$' @ @@@@CMD$P* $NAME *'CMBK )@@G@@D$' @ @@@@CMI$P* $NAME *'CMI$' @ @@@@CMO$P* $NAME *'CMBL )@@G@@O$' @ @@@@CMSA$P* $NAME *'CMSA$' @ @@@@CMH$P* $NAME *'CMBM )@@G@@H$' @ @@@@CMT$P* $NAME *'CMT$' @D@@@@ $DO P(1)BN )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER [P(0,0)] @#@@@@BO )@@G@@ $END @[@@@@ . @^@@@@P $PROC *2 @^@@@@CPOOL$BP )@@G@@* $NAME 0 @^@@@@CPOOL$P* $NAME 1 @F@@@@ $DO BQ )@@G@@ P(0,0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1,2) @C@@@@ $DO BR )@@G@@ (\P(0,0))**(P(1)>0) , ; @F@@@@ LA,14 12,($GFORM 6,P(2BS )@@G@@,2),12,P(2,1),18,P(1,1),12,0,;@B@@@@ 6,P(2,3),18,P(1,BT )@@G@@2)) @ @@@@ ER CPOOL$ @#@@@@ $END @[@@@@BU )@@G@@ . @^@@@@P $PROC *1 @^@@@@CGET$* $NAME 0 @^@@@@BV )@@G@@CGET$P* $NAME 1 @E@@@@ $DO P(0,0)**(P(1)>0) , LA BW )@@G@@12,+(EQUF$ P(1),1)@F@@@@ $DO (\P(0,0))**(P(1)>0) , LXI 12BX )@@G@@,+(EQUF$ P(1),1,2)@ @@@@ ER CGET$ @#@@@@ $EBY )@@G@@ND @[@@@@ . @^@@@@P $PROC *1 @ @@@@CADD$* $NAME BZ )@@G@@ 'CADD$' @ @@@@CJOIN$* $NAME 'CJOIN$' @ @@@@CADD$P* $NAME CA )@@G@@ *'CADD$' @ @@@@CJOIN$P* $NAME *'CJOIN$' @D@@@@ $DO CB )@@G@@ P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @ @@@@ ER [P(0,0)] CC )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *2 @^@@@@CD )@@G@@ADACT$* $NAME 0 @^@@@@ADACT$P* $NAME 1 @D@@@@ $DCE )@@G@@O P(1)>0 , LA 12,+(EQUF$ P(1),1,2) @D@@@@ $DO P(2)CF )@@G@@>0 , LA 13,+(EQUF$ P(2),1) @ @@@@ ER ADACT$ @#@@@@CG )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@CREL$*CH )@@G@@ $NAME 0 @^@@@@CREL$P* $NAME 1 @H@@@@ $DO CI )@@G@@ (P(0,0)++(P(0,1)=0))**(P(1)>0) , LA 12,+(EQUF$ P(1),1) @E@@@@ CJ )@@G@@ $DO (\P(0,0))**(P(0,1)>0) , LXI,14 12,1 @ @@@@ ERCK )@@G@@ CREL$ @#@@@@ $END @[@@@@ . @^@@@@P $PCL )@@G@@ROC *1 @^@@@@ROUTE$* $NAME 0 @^@@@@ROUTE$P* $NAME 1 CM )@@G@@@D@@@@ $DO P(0,0)**(P(1)>0) , LA 12,P(1,1) @C@@@@ CN )@@G@@ $DO P(1)>1 , LA,14 13,P(1,2) @F@@@@ $DO (\P(CO )@@G@@0,0))**(P(1)>0) , LA 12,(P(0,1),P(1,1)) @ @@@@ ER ROUTCP )@@G@@E$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 CQ )@@G@@@^@@@@LOAD$* $NAME 0 @E@@@@ $DO (\P(0,1))**(P(1)CR )@@G@@>0) , LA,14 12,P(1,1) @F@@@@ $DO (\\P(0,1))**(P(1)>0) ,CS )@@G@@ LA 12,(1*/17,P(1,1)) @D@@@@ $DO (\\P(0,1))**(\P(1)) , CT )@@G@@LXI,14 12,*0@C@@@@ $DO P(1)>1 , LA,14 13,P(1,2) @C@@@@CU )@@G@@ $DO P(1)=3 , LA,14 14,P(1,3) @D@@@@ $DO CV )@@G@@ P(1)>3 , LA 14,(P(1,4),P(1,3)) @ @@@@ ER LOAD$ CW )@@G@@@#@@@@ $END @[@@@@ . @^@@@@Q $PROC 0 @^@@@@CX )@@G@@RLIST$PGEN* $NAME 0 @ @@@@ LJSF$2 P(1,1) @D@@@@I CY )@@G@@ $DO (P(1)=0)+P(1)-1 , LJSF$1 P(1,I+1) @#@@@@ $END CZ )@@G@@@[@@@@ . @^@@@@Q $PROC 0 @^@@@@RLIST$PGEN* $NAME 0 DA )@@G@@@ @@@@ LJSF$2 P(1,1) @D@@@@I $DO (P(1)=0)+PDB )@@G@@(1)-1 , LJSF$1 P(1,I+1) @#@@@@ $END @[@@@@ . @^@@@@P DC )@@G@@ $PROC *1 @^@@@@RLIST$PKT* $NAME 0 @^@@@@ RLIST$PGDD )@@G@@EN @#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 DE )@@G@@@^@@@@RLIST$* $NAME 0 @^@@@@F* $PROC 0 @^@@@@$(CTL$DF )@@G@@BNK(0)) . @^@@@@ RLIST$PGEN @]@@@@$($ILCN) . @#@@@@DG )@@G@@ $END @[@@@@ . @G@@@@ $DO P(1)>0 , LA 12,+DH )@@G@@(OPT$$ P(1)-1,$LCV(CTL$BNK(0))) @ @@@@ ER RLIST$ DI )@@G@@@ @@@@ $DO P(1)>0 , F@#@@@@ $END @[@@@@ . DJ )@@G@@@^@@@@P $PROC *1 @^@@@@RLIST$P* $NAME 0 @D@@@@ DK )@@G@@ $DO P(1)>0 , LA 12,+(EQUF$ P(1),1) @ @@@@ ER DL )@@G@@ RLIST$ @#@@@@ $END @[@@@@ . @^@@@@P $PROC DM )@@G@@ *1 @ @@@@LINK$* $NAME 'LINK$' @ @@@@RLINK$* $NAME 'RLIDN )@@G@@NK$' @ @@@@LINK$P* $NAME *'LINK$' @ @@@@RLINK$P* $NAME *'RLDO )@@G@@INK$' @F@@@@ $DO P(0,*0)**(P(1)>0) , LA 12,+(EQUF$ P(1),1DP )@@G@@) @F@@@@ $DO (\P(0,*0))**(P(1)>0) , LA 12,(LJSF$1 P(1DQ )@@G@@,1)) @ @@@@ ER [P(0,0)] @#@@@@ $END @[@@@@DR )@@G@@ . @^@@@@P $PROC 0,1 @ @@@@EXLNK$* $NAME 'EXLNK$' DS )@@G@@@ @@@@UNLNK$* $NAME 'UNLNK$' @ @@@@ ER [P(0,0)] DT )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC *1 @^@@@@DU )@@G@@LJSF$* $NAME 'S' @^@@@@ALJSF$* $NAME *'S'@E@@@@ $DDV )@@G@@O P(0,1)=2 ,P(0,0) $EQU P(0,*0)->*'D'!'D' @^@@@@LJSF$1* $NAME DW )@@G@@ 'S' @^@@@@LJSF$2* $NAME 'D' @^@@@@ALJSF$1* $NAME *'S'@^@@@@DX )@@G@@ALJSF$2* $NAME *'D'@E@@@@ + (P(0,*0)->$CAS!$CFS)(PDY )@@G@@(1,1)[P(0,0)]L) @#@@@@ $END @[@@@@ . @^@@@@P $PDZ )@@G@@ROC 1 @^@@@@FDCVT$* $NAME 0 @C@@@@* $EQU $CFSEA )@@G@@($CD(P(1,1)///100)) @#@@@@ $END @[@@@@ . @^@@@@P EB )@@G@@ $PROC *1 @^@@@@LIT$* $NAME 0 @C@@@@ $DO EC )@@G@@ \P(1) ,P(1,1) $EQU $LCN @#@@@@$(P(1,1)) $LIT @ @@@@CTL$BNK(0)* ED )@@G@@ $EQU P(1,1) @#@@@@ $END @[@@@@ . @^@@@@E PREE )@@G@@OC 1,1 @^@@@@EQUF$* NAME 0 @B@@@@C EQU E(1,EF )@@G@@2)+($AP(E(1))<2) @G@@@@ IF ($AP(E(1,1,C))<1*/18)**(E(1,EG )@@G@@3)>0)**(E(1,1,*C)=0)**; @B@@@@ (E(1,1)-E(1,*3)-C<1) EH )@@G@@@C@@@@B(1) EQU +(I$ 0,14,0,0,0,E(1,1,C)) @#@@@@ ELEI )@@G@@SE @D@@@@B(1) EQU +(I$ 0,E(1,1,C+2),0,E(1,1,C+1),; @D@@@@EJ )@@G@@ 2*E(1,1,*1+C)+E(1,1,*C),E(1,1,C)) @#@@@@ ENEK )@@G@@DF @E@@@@ DO (E(1)>2)*(E(1,1)-E(1,*3)-C1*/26-1)+($AP(B(1))>1*/16-1)9)*(P(1)-9)):')'] @ @@@@L $EEU )@@G@@QU $AP(K) @^@@@@REL $EQU K-L @ @@@@U $EQU EV )@@G@@ L**0177777@F@@@@OPT $EQU (L>0)*(L<1*/18-1)+(-L>0)*(-L<1*/17EW )@@G@@)+(L=0) @ @@@@ $DO OPT , ; @G@@@@ I$ EX )@@G@@ ,14+(L<0),0,0,2*(L**(1*/17)>0)+(L**(1*/16)>0),U+REL @B@@@@ $DEY )@@G@@O \OPT , I$ ,,,,,(F K) @#@@@@ $END @[@@@@ . @#@@@@EZ )@@G@@F $FUNC @^@@@@OPTION* $NAME 0 @ @@@@NOPTION* $NAME FA )@@G@@ 1*/26-1 @^@@@@OPT $EQU 0 @ @@@@I $DO F-1 FB )@@G@@,; @G@@@@J $DO $SL(F(I)) ,OPT $EQU OPT++1*/('Z'-$SS(FFC )@@G@@(I),J)) @ @@@@ $END OPT--F(0) @[@@@@ . @#@@@@F FD )@@G@@ $FUNC @^@@@@BIT* $NAME 0 @^@@@@BITS* $NAME 0 FE )@@G@@@^@@@@A $EQU 0 @ @@@@I $DO F-1 ,; @ @@@@FF )@@G@@A $EQU A++1*/F(I)@B@@@@ $DO A>=1*/36 , $END FG )@@G@@(A)D @^@@@@ $END A @[@@@@ . @#@@@@F $FUNC FH )@@G@@@^@@@@BITSPAN* $NAME 0D @^@@@@BS* $NAME 0D @C@@@@ . FI )@@G@@ 0777777777777777777777777 @B@@@@NBITSPAN* $NAME 4722FJ )@@G@@366482869645213695@B@@@@NBS* $NAME 4722366482869645213695@^@@@@FK )@@G@@BITSPAN2* $NAME *0D @^@@@@BS2* $NAME *0D @C@@@@NBITSPAN2* $FL )@@G@@NAME *4722366482869645213695 @C@@@@NBS2* $NAME *472236648FM )@@G@@2869645213695 @B@@@@A $EQU 4722366482869645213695@^@@@@FN )@@G@@BITS $EQU 0D @^@@@@I $REPEAT F/2 @A@@@@M $EFO )@@G@@QU F(I*2)>F(I*2-1) @B@@@@P1 $EQU F(I*2)*(\M)+F(I*2-1)*MFP )@@G@@@B@@@@P2 $EQU F(I*2-1)*(\M)+F(I*2)*M@E@@@@BITS $EQU FQ )@@G@@ BITS++(A*/(71-P2)*/(-(71-P2+P1))*/P1) @#@@@@ $ENDR @C@@@@FR )@@G@@ . 0777777777777000000000000 @B@@@@C $EQU FS )@@G@@ 4722366482800925736960@D@@@@Q $FORM 72-36*((\(BITS**C))**(FT )@@G@@\F(*0))) @A@@@@ $END +(Q BITS--F(0)) @[@@@@ . @#@@@@FU )@@G@@F $FUNC @#@@@@GCD* $NAME @B@@@@ $DO G(2)FV )@@G@@=0 , $END G(1) @B@@@@ $END GCD(G(2),G(1)///G(2)) @[@@@@FW )@@G@@ . @#@@@@P $FUNC @^@@@@OPT* $NAME 0 @^@@@@OPT2* FX )@@G@@ $NAME 1 @ @@@@ $DO P(0)=0 , ;@F@@@@ $DFY )@@G@@O (K>0)*(K<1*/18-1)+(-K>0)*(-K<1*/17)+(K=0) , ; @H@@@@ $END FZ )@@G@@ +(I$ 14+(K<0),0,0,2*(K**(1*/17)>0)+(K**(1*/16)>0),K**0177777) @ @@@@GA )@@G@@ $END (F K) @[@@@@ . @#@@@@F FUNC @^@@@@GB )@@G@@BF* NAME 6 @^@@@@ABF* NAME *9 @ @@@@C(0) EQGC )@@G@@U 5+27*F(*0)@^@@@@LJ* NAME 6 @^@@@@ALJ* NAME GD )@@G@@ *9 @A@@@@C(1) EQU F(2)*F(0)>36 @D@@@@ DO GE )@@G@@ C(1)<(F(1)-F(1)+1)*/36 ,C(1) EQU 1@D@@@@N EQU (36+36*C(1GF )@@G@@))/F(0)*(F(2)=0)+F(2) @B@@@@K EQU 1-1D*/((N-1)*F(0)) GG )@@G@@@G@@@@ DO C(1)>(F(1)-F(1)+1)*/36 ,F(1) EQU F(1)**1D*/36-GH )@@G@@1 @F@@@@ DO N , DO 0=F(1)**K ,F(1) EQU F(1)*/F(0)++CGI )@@G@@(0) @^@@@@ END F(1)@#@@@@F FUNC @^@@@@RJ* GJ )@@G@@ NAME 6 @^@@@@ARJ* NAME *9 @ @@@@SP EQU GK )@@G@@ 5+27*F(*0)@ @@@@MS EQU 1*/F(0)-1 @B@@@@DP EQU GL )@@G@@ (F(1)-F(1)+1)*/36>0D @C@@@@ DO DP=0 ,B EQU 1*/(36-F(0GM )@@G@@))-1 @C@@@@ DO DP ,B EQU 1D*/(72-F(0))-1 @D@@@@ GN )@@G@@ DO (36*DP+36)/F(0)*(F(2)=0)+F(2) , ; @E@@@@ DO (F(1)GO )@@G@@**MS)*/1-SP--SP=0 ,F(1) EQU F(1)*/-F(0)**B@^@@@@ END F(1)GP )@@G@@@#@@@@F $FUNC @#@@@@INF* $NAME @F@@@@ $END GQ )@@G@@ +(I$ F(5),F(3),F(4),F(2),2*F(*2)+F(*1),F(1)) @[@@@@ . @#@@@@F GR )@@G@@ $FUNC @#@@@@GAF* $NAME @^@@@@A $EQU F(1)@^@@@@GS )@@G@@B $EQU F(2)@I@@@@ $END +(I$ 0,P(0,1)+P(A,B+2)GT )@@G@@,0,P(A,B+1),2*P(A,*B+1)+P(A,*B),P(A,B) @[@@@@ . @#@@@@F $FGU )@@G@@UNC @#@@@@GAF1* $NAME @^@@@@A $EQU F(1)@^@@@@B GV )@@G@@ $EQU F(1)@H@@@@ $END +(I$ 0,P(A,B+2),0,P(A,B+1),2GW )@@G@@*P(A,*B+1)+P(A,*B),P(A,B)) @[@@@@ . @#@@@@F $FUNC @#@@@@GX )@@G@@FLD* $NAME @C@@@@ $END F(1)*/(F(2)-1)*/(36-F(3)) GY )@@G@@@[@@@@ . @#@@@@C $FUNC @^@@@@COLUMN* $NAME 6 @^@@@@GZ )@@G@@COL* $NAME 6 @^@@@@ACOLUMN* $NAME 4 @^@@@@ACOL* $NHA )@@G@@AME 4 @D@@@@I $EQU (C(1)-(C(1)<-0))//C(0)-(C(1)>-1) HB )@@G@@@A@@@@J $EQU C(1)-C(0)*I @E@@@@ $DO C(0)HC )@@G@@=6 , $END I++(I$ 0,14-J,0,0,0,0) @D@@@@ $END I++(I$ 0,7HD )@@G@@-J/2-2*(J=2),0,0,0,0) @[@@@@ . @#@@@@M $FUNC @#@@@@MOD* HE )@@G@@ $NAME @A@@@@ $END M(1)///M(2) @[@@@@ . @#@@@@HF )@@G@@S $FUNC @#@@@@SIGN* $NAME @E@@@@ $DO $IBIHG )@@G@@TS(S(1))**2 , $END -0-(S(1)<>0) @A@@@@ $END 0+(S(1)<>0HH )@@G@@) @[@@@@ . @#@@@@A $FUNC @#@@@@ABS* $NAME @C@@@@HI )@@G@@ $DO $IBITS(A(1))**2 , $END -A(1)@^@@@@ $END HJ )@@G@@ A(1)@[@@@@ . @#@@@@M $FUNC @^@@@@MAX* $NAME '>' HK )@@G@@@^@@@@MIN* $NAME '<' @^@@@@Z $EQU M(I)@E@@@@I HL )@@G@@ $DO 2,M-1 , $DO M(I)[M(0)]Z ,Z $EQU M(I) @^@@@@ $EHM )@@G@@ND Z @[@@@@ . @#@@@@UX* FUNC @A@@@@A EQU HN )@@G@@ 1-2*(UX(1)<0) @^@@@@B(0) EQU 0 @G@@@@I DO HO )@@G@@ 18 ,B(0) EQU 2*B(0)+(A*UX(1)>(2*B(0)+1)*/(35-I)-1) @F@@@@ DOHP )@@G@@ UX>2 ,B(1) EQU (UX(3)-(B(0)*/-9*A**15))*/26 @ @@@@B(0) EQHQ )@@G@@U B(0)*A**31@C@@@@ DO B(0)=1 ,B(0) EQU UX(*2) HR )@@G@@@E@@@@ END UX(1)+(UX(2)*2-B(0)+UX(*2))*/17+B(1) @#@@@@HS )@@G@@J FUNC @^@@@@JREG* NAME 0 @ @@@@BYTES EQU HT )@@G@@ 36/J(1) @D@@@@ DO 36>J(1)*BYTES , EQU 09 . E FLAG HU )@@G@@@G@@@@ DO (BYTES<2)++(BYTES=5)++(BYTES>6) , EQU 09 . E FHV )@@G@@LAG @A@@@@ DO J<4 ,J(3) EQU 1 @B@@@@BL EQU HW )@@G@@ (BYTES**3)-(BYTES=2) @ @@@@IW EQU J(3)/BYTES@ @@@@OW HX )@@G@@ EQU J(2)/BYTES@C@@@@IB EQU (J(3)-IW*BYTES)*/(J(1)HY )@@G@@//6-1)@C@@@@OB EQU (J(2)-OW*BYTES)*/(J(1)//6-1)@A@@@@F HZ )@@G@@ FORM 1,2,1,11,3,15,3 @D@@@@ END +(F 1-J(*3),BL,JIA )@@G@@(*1),IW,IB,OW,OB) @[@@@@ . @^@@@@CTS* $PROC 1,1 @B@@@@ IB )@@G@@ SZ,13 +(EQUF$ CTS(1),1) @#@@@@ $END @[@@@@ . IC )@@G@@@^@@@@P $PROC 0,1 @^@@@@TTW* $NAME 0 @^@@@@TQW* ID )@@G@@ $NAME 1 @A@@@@ P(0,0)->TP!TN,4 $LCV @#@@@@ IE )@@G@@ $END @[@@@@ . @^@@@@P $PROC *1,2@^@@@@JTW* $NIF )@@G@@AME 0 @^@@@@JQW* $NAME 1 @A@@@@ P(0,0)->TN!TP,IG )@@G@@4 $LCV @ @@@@ J P(1,1) @#@@@@ $END IH )@@G@@@[@@@@ . @^@@@@P $PROC 0,3 @ @@@@SETQW* $NAME 0400II )@@G@@001 @^@@@@SETTW* $NAME *1 @ @@@@ L,14 12,P(0,0) IJ )@@G@@@A@@@@ P(0,*0)->TN!TP,7 $LCV @^@@@@ ER PSR$IK )@@G@@@#@@@@ $END @[@@@@ . @^@@@@P $PROC 0,0 @^@@@@IL )@@G@@THIRD* $NAME 5 @^@@@@QUARTER* $NAME 3 @ @@@@ $IIM )@@G@@NFO 1 P(0,0) @#@@@@ $END @[@@@@ . @^@@@@REZ* $PIN )@@G@@ROC *1 @C@@@@ $DO REZ(1,1)<-0 , $RES REZ(1,1) @B@@@@IO )@@G@@ $DO REZ(1,1)>0 , +REZ(1,2)@B@@@@ $DO REZ(IP )@@G@@1,1)<2 , $END @ @@@@A $EQU $TMODES**2@#@@@@ $UIQ )@@G@@NLIST @C@@@@ $DO REZ(1,1)-1 , + REZ(1,2) @ @@@@ IR )@@G@@ $DO A , $LIST @#@@@@ $END @[@@@@ . @^@@@@SNZ2* IS )@@G@@ PROC 1,2 @^@@@@W FORM 36 @E@@@@B(0) EQU IT )@@G@@ +(I$ +(EQUF$ SNZ2(1),1,0),SNZ2(0,1)) @F@@@@I DO 4 ,BIU )@@G@@(1) EQU ((B(1)*2+1)*/(30-I)-1Y2-1) @C@@@@DNM EQU (X-MBETA-1)*(Y1>JH )@@G@@Y2-1)+1D @^@@@@N(-1) EQU 0 @^@@@@F(0) EQU 1D JI )@@G@@@^@@@@ALPHA(0) EQU X-1 @#@@@@TOP NAME @D@@@@N(0) EQJJ )@@G@@U N(0)+1. TRY THE NEXT N@C@@@@F(0) EQU F(0)JK )@@G@@-(ALPHA(0)*2>X-1)+F(0) @H@@@@ DO N(0)>0 ,ALPHA(0) EQU AJL )@@G@@LPHA(0)-X*(ALPHA(0)*2>X-1)+ALPHA(0) @D@@@@ DO 1+ALPHA(0)JM )@@G@@*NUM>DNM*/N(0) , GO TOP @ @@@@N(1) EQU N(0)+1 @#@@@@DECN JN )@@G@@ NAME @ @@@@N(1) EQU N(1)-1 @C@@@@ DO JO )@@G@@ N(1)1D*/35-1 @B@@@@ DO JQ )@@G@@ OPT , DSA DIU(1,1),36 @E@@@@ DO OPT , DI DIU(1,1),+(OPJR )@@G@@T$$ DIU(1,2)) @ @@@@OPT0 EQU F(0)=1 @E@@@@ DOJS )@@G@@ OPT0 , DO N(1)>0 , SSA DIU(1,1),N(1) @F@@@@ DO JT )@@G@@ OPT0 , DO DIU(1,2)<0 , LNA DIU(1,1),DIU(1,1) @A@@@@ DO JU )@@G@@ OPT++OPT0 , END @A@@@@OPT1 EQU F(0)*/(36-N(1)) @C@@@@OPT2 JV )@@G@@ EQU (OPT1<1*/19)**(N(1)<36) @G@@@@ DO OPT2JW )@@G@@ , MF DIU(1,1),+(OPT$$ OPT1*/-1--DIU(1,2)*/-72) @E@@@@OPT3 EQU JX )@@G@@ (OPT1-1<0377777777777)**(N(1)<37)--OPT2 @G@@@@ DO OPT3JY )@@G@@ , MI DIU(1,1),+(OPT$$ OPT1--DIU(1,2)*/-72) @A@@@@OPT4 EQU JZ )@@G@@ OPT2++OPT3--1 @G@@@@ DO OPT4 , MI DIU(1,1),+(OPT$$ FKA )@@G@@(0)--DIU(1,2)*/-72) @F@@@@ DO OPT4 , DO 36-N(1)<0 , KB )@@G@@SSA DIU(1,1),N(1)-36 @F@@@@ DO OPT4 , DO 36-N(1)>0 , KC )@@G@@LDSC DIU(1,1),36-N(1) @#@@@@ END @[@@@@ . ___ $END KD )@@G@@@[@@@@ . @^@@@@SNZ2* PROC 1,2 @^@@@@W FORM 36 KE )@@G@@@E@@@@B(0) EQU +(I$ +(EQUF$ SNZ2(1),1,0),SNZ2(0,1)) @F@@@@KF )@@G@@======@@^@@ @@@@@@@@@@@@@@ [&N@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@E>;AVJ @@@@]@@@@@#9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@9@@A@@A@@3KH )@@G@@@]4@@@@@G@@^@@@[3)@@@@@@@^@@@]@^@H@[@ @@@]K^@G@)^N@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[$]@C@)@"[\]@@@___@@T^@@KK )@@G@@@@I^D(@@F^VA@@-^V*@#E V.)DK^@T)LJ^D7)@R^VL)_4^WD)@9 ZB@@@___@@@___@@@___KL )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KM )@@G@@/G@@CX!8@@@E/K@@CXN@K@@GC@0^@RCC\=@[C8@^@E[^)^@E'=@@[GC4)^@KC@Z^@@/^)@CLKN )@@G@@C@@^@S[CK^@P'=@@@J/G@@CC9@@@@KS )@@G@@[@C@@+[@C@@<[@C@@*[@C@@(C[@@KECCT@#*:89@^J/K@@DMCCT@#(G9@@[@[CZ@@K[DJ@@EKT )@@G@@C8@@D$C8K@D"C8)@GLC9@@F2[^J@@][^Z@@#[^\@@^[ J@@ @J@@BCDJ@@D[ J@@KCDJ@@JKU )@@G@@[ J@@J @J@@F @J@@IR#J@@A/,0[N1R]D@#Y/KCK@,R]D@#YAA8@@,RFJ@@EAFC@@*R7J@@#KV )@@G@@A3C@@KRFJ@@CA#C@@^K@C@@AABS@@EK^J@@DABS@@ OBZ@@DAFS@@ R;K@@#AFW@@[ CC@@]KW )@@G@@RFJ@@KA#C@@R9?J@@IA#C@@FABS@@G/KCK@,R]D@#YAA8@@,C[J@@FG9@@@[[[J@@FC[C@@IKX )@@G@@*@D@]CC[@@@G;D@@@MN@K@@KKDC@@AR#S@@^GDX@@[! Z@@D: Z@@D/K@@EM/,0@EWC[@@[[KY )@@G@@KDC@@AG9K@@#[DX@@[R#*@@E*@D@]C[ I)@@&;@@@[M#?)@@A#*@@E*@D@]C[DI@@@/KCK@,KZ )@@G@@A#8@@SCDC@@]G9@@@[[DC@@]9?S@@^[DH@@]CDX@@[;^K@@M;@K@@M9*S@@^%9@@@[/K@@E!LA )@@G@@R#*@@GC[C@@F[[I)@@A#*@@G/K@@FJ[ Y@@[(@C@@R/K@@E4&#*@@R/\0@FSRB*@@ [[I@@@LB )@@G@@0@C@@:'=@@@A*4C@@:/K@@J\(^I@@[/K@@FM&F,@@[R#8@@F9**@@?R;*@@*R38@@K%80@@]LC )@@G@@/K@@FBRF8@@?G80@[\;G0@@=W80@[0T80@[0AF8@@?R38@@KA\8@@K/\0@F<[[C@@FA#C@@BLD )@@G@@R;C@@*'=@@@[R#C@@BK@S@@AAB*@@E/KF@@@CDY@@]%9K@@[/K@@E'R#8@@S&B\@@D/K@@E;LE )@@G@@ @@@@KCDY@@[;^)@@MH9K@@]W9I@@@H9@@@[;=)@@M;H@@@=G[I)@]8^K@F)/KJ@@@CDI@@^LF )@@G@@C!S@@K/[K@F0%9K@@]/K@@F!G9@@[\;H@@@=W9@@[0;(@@@]/K@@F0G9@@@V;H@@@=W9@@@WLG )@@G@@G[I@@ /KJ@@@R]D@#YAA8@@,C J@@KH9@@@[/H@@J3[ J@@K/,0@EW CH@@[/,0@EXC9@@@#LH )@@G@@[DH@@[ CC@@]0@C@@:'=@@@A*4C@@:/K@@J\/KCK@,R#C@@^RFW@@[:8K@@#/K@@GT/,0@F2LI )@@G@@R#8@@TR#D@]E*^J@@K!4J@@[/K@@GT9!C@@F[[J@@I[ Z@@J/K@[O7R]D@#YAA8@@,A#8@@TLJ )@@G@@(@J@@F/K@@J*C5J@@]:9@@@#/K@@G#RB_@@@/,0[OLR]D@#YR#8@@TC J@@@[ C@@PC J@@ELK )@@G@@[ C@@H[[C@@#CDJ@@K[[C@@QCDJ@@E[DC@@+R7J@@#A7C@@KC J@@D[ C@@UA@S@@CA@*@@DLL )@@G@@A@8@@BRC_@@JRCZ@@DP^Z@@KA^S@@]RA_@@CA]8@@VR#@@@[R#T@@+/\)@5;R]D@#YR#@@@[LM )@@G@@K@@@@[O;K@@CR@)@@HO]0@@HA]8@@WR#T@@+/\)@5;R]D@#YO@)@@F @C@@XR#)@@]&#*@@ULN )@@G@@R#3@@@R#K@@#/,0@I:/,0@I0R]8@@W/\)@6GR]D@#YRBC@@&O#C@@A&#D@[:(@D@]C/K@@HMLO )@@G@@&BG@@@O;@@@[R#K@@#R]8@@V/\)@6GR]D@#YO80@@[O@*@@UP8K@@[*@@@@[/K@@H]C9K@I'=@@@A*4C@@>/K@@J;RBC@@&(@C@@Q/K@@I/R#)@@G&#*@@Q/\0@FS%[G@@@/K@@JJLX )@@G@@C[C@@XG9@@@[%DG@@]/K@@K#CDG@@[R;*@@+R78@@KA\8@@K/\0@F=[[G@@@OFG@@[PFC@@ALY )@@G@@*@D@]C/K@@JGPBD@[:/K@@JHPFG@@@&BC@@&/KF@@@C[C@@)G9@@@[!9@@@E/K@@J_[[C@@)LZ )@@G@@R;C@@+'=@@@[/K@@I0RB8@@PR#C@@#/,_K@#R]D@#YR#8@@TC[C@@NG9@@@[K[C@@O%[Z@@FMA )@@G@@/K@@J3G[J@@B[[J@@BR'0@J&AA8@@,/K@@DXRB8@@P/K@[M:RB_@@@/,0[OLR]D@#YR#8@@TMB )@@G@@C J@@@[[C@@P/K@@J/\0@M(D4[@@]]?[@@AG*[@@AME )@@G@@0@@@@GC8@@@@[*[@@A/\K@LE/,0@MA/,0@L>RE1@@#/KF@@@/\0@M>/\0@M(CG[@@B?*[@@AMF )@@G@@?/@__"/K@@KHG8@@@[[?[@@AH*[@@A#*[@@A/\K@LE/,0@MACC[@@BRE1@@#/@F@@@/K@[<(MG )@@G@@/\0@M>/\0@M(EG[@@B1G[@@B/K@@K.H8@@@[9?L@@C?8@@@D/K@@K4;GK@@=H8@@@D/K@@K\MH )@@G@@;G)@@=9*-@@C;GK@@=W@W@N3S@)@OI9)-@@CW@?@N39*L@@CC/@__"G8@@@[[?[@@AG8@@@[MI )@@G@@G*[@@AG=[@@ACC1@@BH8/@@@C8)@@ /K@@LB')]-4C8K@@]1@@@@FC8K@@#!8@@[=/K@[>TMN )@@G@@C8)@@0!8@@@E/K@@M[H8K@@[')]-TH8K@@[')]-TC8)@@-*=[@@AMO )@@G@@')]-@K@O9/K@@N,0@@@@H[=[@@A94)@@H9*-@@CMS )@@G@@C8@@@@9=)@OP/C)@M_9?-@@C"?)@ON9*-@@CC/@_;GN8K@@DC@K@O'9?-@@C4@!)N'/K@@NJMT )@@G@@9=!@N//G)@N[C8!@@@;C)@@[C80@@[;*"@@@G8J@@@9?-@@C"?!@N/9*-@@C/K@@N]"?)@OJMU )@@G@@(0[@@]/K@@NZC8V@@@%8K@K%/K@@NUC8K@@[/G@@NSG@K@@GG*L@@A/K@@NVC*L@@A!8K@@LMV )@@G@@/K@@NZ;*K@@[")!@OP9*-@@C9=)@OL/G)@N&G8@@@[9?-@@C"?)@N/9*-@@C[G[@@B"0[@@CMW )@@G@@H8@@K/E/G@@@;GW@@@W@K@OI9*L@@C/KF@@@[)[@@A G[@@B @[@@C @[@@D/KF@@@@@@@@[MX )@@G@@@@@@@E@@@@[=@@@@J*@@@]WK@@@SU)@@#4D@@@&DU@@ .Y^@K^*@@@@@@@@@KB2@@@@@@@@@MY )@@G@@KI$^@@@@@@@@KV\:0)@@@@@@K6<-\D\0K@@@L:$WQ!%]!0!TNP0$)ZMZ_J(!Q%=;(B2S#(^@@@@@K=,=I7NB )@@G@@K@@@@@K->KF9@@@@@@KX;&?*@@@@@@KU\:0)@@@@@@KR&DU@@@@@@@KN.]K@@@@@@@KK05@@NC )@@G@@@@@@@@KH$^@@@@@@@@KD")@@@@@@@@KA2@@@@@@@@@K#*@@@@@@@@@)@)@@@__.@@MC@0@@GND )@@G@@;C0@@M!80@]@/K@@P C8K@@@C80@@@C8)@@]C9@@@[C9K@]@/KF@@@A]G@@NE )@@G@@AA/@@?[@G@@+R])@@G?8K@@@')@@-S!8K@@E')@@-S/KH@PK/K@@PU/K@@PX/K@@P-/K@@QKNF )@@G@@/K@@Q(/K@@S]/K@@S&/K@@S6/K@@T^/K@@TB 4E@[P/,0@U)/K@@P-C8@@@[[4E@[P/,0@U)NG )@@G@@/K@@Q(*4E@[P'-K@-S @E@[R/,0@X8@@@K'-K@-S:8@@@M/,0@U[NU )@@G@@(@E@[9/K@@+BC@%@[9/,0@)M'<@@-SC@!@@A+@)@+2(4E@[P/K@@SN&F'@["'O0@+3%@'@[;NV )@@G@@'RA/@@?PV )@@G@@ CG@@5[^W@@5/KF@@@;GK@[CC80@@@[^U@@5[C%@@5[@'@[3RA'@@?CDU@@4C@E@@+R]G@@/KF@@[@@[@-%@@8@-%@@]@-%@@]@-'@@]@-/@@#@-%@@^@-!@@ @-!@@A@-1PX )@@G@@@@B@-1@@C@-1@@D@-1@@E@-!@@F@-1@@G@-1@@H@-1@@I@-!@@J@-!@@K@-!@@L@-!@@T@-%PY )@@G@@@@U@-1@@M@-4@@N@-4@@O@-%@@P@-%@@Q@-4@@9@-%@@R@-1@@S@-%@@_@-4@_____@@[@@@PZ )@@G@@____@_*NO.@*@@[@@[)@@@@@@__@@@______C9K@@[/K@@+.C9K@@@&';@@@N@K@@DQ'K^D(QA )@@G@@9?(@@@C8K@@H/K@@< ;G)@@AH8K@@[+80@@_:9@@@ /K@@<#;GK@@=W8K@@AO]K@@H&'K@@[QB )@@G@@&;)@@[C[@@=BC@@@=CC80@@@+8@@@_%8K@@ /K@@D@@@/,0@=^Q;)@@@[-D)@@/KF@@@SLIB QG )@@G@@74R1 A#D@[DA#T@[E^@T@[FR;@@$ER;T@[KN8K@@EO#K@$FM#W)@@R#D@[D+8@J__P;K@@%QH )@@G@@T8K@@K;*@@@E;C@@@)O#@@@HA#D@[JR#@@$GR;T@[KO#K@$FN8K@@#M#W)@@R#D@[JC^W@&FQI )@@G@@;*K@@AO;K@@ AFT@[N(?G@&F/K@@>DR;D@[U9*(@[=9(D@[&R#T@@.9!H@@@9(G@@@R7.@@#QJ )@@G@@A<9@[*'=@@[ RFG@@D;G@@@D;CK@@#;?@@@A;CK@@J;?@@@MQK )@@G@@;CK@@-A$T@[*)@@@$HA#T@[ORBT@[*;?@@@Y;CK@@J;?@@@M;CK@@#;?@@@G)@@@$IA#T@[PQL )@@G@@/K@@>BR#@@$JA#D@[O9?(@[=9!D@[&R#D@[JR7W@&FAFT@#ER;T@[KABT@#E @D@#DR;T@[(QM )@@G@@**G@&F&;K@@]A#T@#FR;K GNAFT@[QR;D@#D'=@@@C(^D@#D/K@@>YR7D@[(%8@@@G:8@@@AQN )@@G@@/K@@>Y/K@@>_C@D@[JA](@[U(8@)^N'=@@@)&'))^NQO )@@G@@B,)@C[R](@[UN8K@@#C8D@[U&;@@@[C@K@$LM#H)@@N8K@@ @@@@GC^T@@,;*K@@M;*@@@#QP )@@G@@;?@@@#8KK@>3)@@@$M[@T@[XC8D@[U&;@@[^'=@@@IN@T@[FR#D@@.R#T@[E'=@@@)R#D@@.QQ )@@G@@R#T@[E(8@@@@/K@@&^B,;@@@/KF@@@SORT ERROR CODE = ***ERROR ADDRESS= @@@@@@QR )@@G@@O@@@B1O@@@B2O@@@B3O@@@B4O@@@B7O@@@B8O@@@M0O@@@M1O@@@M2O@@@M3O@@@M4O@@@M5QS )@@G@@O@@@M6O@@@E0O@@@E1O@@@E2O@@@E3O@@@E4O@@@E5O@@@B5O@@@B5O@@@K9O@@@D0O@@@D4QT )@@G@@O@@@D5O@@@D6O@@@D7O@@@F0O@@@F4O@@@F5O@@@F6O@@@F7O@@@X0O@@@X4O@@@X5O@@@X6QU )@@G@@O@@@X7O@@@M7O@@@D8O@@@P0O@@@S1O@@@C1=@[@A0O@@@A1$@[[A2$@[[A3O@@@F8$@[[A5QV )@@G@@=@[@A6$@[[A7=@[@A8O@@@L1O@@@L2O@@@L3O@@@L4O@@@L5O@@@X8O@@@B7O@@@B9O@@@M8QW )@@G@@O@@@C2O@@@C3 @@[@@@@@[@& 000/000 000 ON DAS@@@)@@@@[@&C000000 QX )@@G@@&;@@@[8KK@$R/KF@@@ @G)@@8KK@$R/KF@@@&;@@@[&;K@@[M#W)@@/KF@@@R#D@@)/K@@$-QY )@@G@@R#D@@-&;@@@[A7T@@=R7W)@[:8K@@8/K@@$?:8K@@9/K@@$0%4T@@=/K@@$P:/@@@P#K@@J+[B@@@1@@@@L/[K@(7'R;K@0D/,0@:0/,0@:.;D@@@A/K@@!TC9@@@AC9K@@AAFZ@@[;G@@@=RV )@@G@@W@@@@K/^K@:/R:$@@@P;)@@[W@K@@KA3Z@@@?@K@@L/@:@@@'+T@@%?8@@@]/K@@:/R:B@@@RW )@@G@@P;@@@[K^B@@[D9@@@@P;K@@=/GK@?C;GK@@=W8K@@=/K@@?GRB$@@[C9K@@@; I@@=;GK@[CRX )@@G@@;DG@@@[[J@@]ABZ@@[D9K@@@;DY@@@][Z@@#/KF@@@C8K@14/,0@:0/K@@?UC8K@20?8K@@MRY )@@G@@C8K@25/,0@!3[4Z@@@/,0@:_/K@@%+C8K@0]/,0@:0/,0@!H/,0@:.C8@@@A/K@@?*C8K@2>RZ )@@G@@/,0@!3/,0@!H/,0@:.C8@@@D/@K@?80@J@@#/K@@?!P;K@@[[^Z@@[C[J@@#1@@@@KD9@@@@SA )@@G@@;(G@@@[[J@@#/ @@%+R;)@@A%8)@@GC8)@@^[4\@@@/K@@%+*@J@@#/K@@?!C8)@@=C5J@@@SB )@@G@@T[@@@GC[Z@@]P#)@@K;DY@@@;(Y@@@[[Z@@]/K@@%+R;K@11/,0@:0/K@@!ER;K@1'?8@@@MSC )@@G@@R;K@1"/,0@!3/,0@!H/,0@:_/K@@%+O#K@@GP;K@@[;GK@@=W@K@@LA7\@@@:9K@@AA3\@@@SD )@@G@@/KF@@@R;K@2Y/,0@!3/,0@:.;D@@@D+[J@@][[Z@@]/K@@%+(CE@@^/K@@%Z/,0@!3/,0@:_SE )@@G@@/-@@!*T8@<<=T8)WWWO;)@@HA7\@@@A3J@@@R;@@2./K@@%-/H@@!\R;@@@$>9@@C@R;@@@+SF )@@G@@:9@_8@R;@@@:/K@@!>RBB@@[T8@WWWO;@@@)/K@@!>C9@@@DC9K@@^[1U@@@/K@@:2RB%@@]SG )@@G@@O;)@@^A#(@@+ @D@]4 CD@[HR;K@@-/,0@$)/K@@,ARBG@@@A#D@]4[@D@[@C8@@$9[CD@[HSH )@@G@@[@D@@+/K@@,"(4E@@@'+D@@%&;)@@]&'0@@[R#'@@[C[@@7 &;@C[G&90N@%/K@@,9'Y@@@SV )@@G@@K)I@@@')F@0V[-Y)@@8KK@0X/KB@00K=I@@@')F@0V[>Y@@@K*I@@@')F@0V[(Y@@@K?I@@@SW )@@G@@')F@0V[!Y@@@K0I@@@')F@0V[1Y@@@K4I@@@')F@0V[5Y@@@/K@@\'K0I@@@')F@0V[1Y@@@SX )@@G@@/K@@\'K0I@@@')F@0V[1Y@@@K?I@@@')F@0V[!Y@@@/K@@\'K0I@@@')F@0V[1Y@@@K?I@@@SY )@@G@@')F@0V[!Y@@@K*I@@@')F@0V[(Y@@@/K@@\'K0I@@@')F@0V[1Y@@@K?I@@@')F@0V[!Y@@@SZ )@@G@@K*I@@@')F@0V[(Y@@@K=I@@@')F@0V[>Y@@@/K@@\'R7Y@@@R3Y@@@R\Y@@@R:Y@@@R$Y@@@TA )@@G@@RY@@@[-Y@@@[5Y@@[O#)@[[0@J@@#O;)@@[TB )@@G@@')B@1<')F@18')B@1%/K@@2ACDX@3\C X@3\')B@2M')F@2W')B@2RR5_@@@O#)@[[0@J@@#TC )@@G@@O;)@@[')B@2H!8K@["/K@@\'')F@2F')B@2R>9K@^@/K@@\'R#%@@#OB\@@@/K@@0GCXX@3\TD )@@G@@CTX@3\RZY@@@RNY@@@RVY@@@RRY@@@RZY@@[CXI@@@CLI@@@CTI@@@CPI@@@CXI@@[[XY@@@TE )@@G@@[LY@@@[TY@@@[PY@@@[XY@@[)9@@^@-9@@^@')B@2N')F@2W')B@2S')B@2H%8K@@!/K@@\'TF )@@G@@/K@@0G')B@2M')F@2W')B@2RR5_@@@O#)@[[')B@2H%8K@@!/K@@\'C@%@@#OB\@@@/K@@0GTG )@@G@@O90@@[')B@2M')F@2W')B@2RP90@@[')B@2H!8K@["/K@@\'')F@2F')B@2R>9K@^@/K@@\'TH )@@G@@/K@@0GRFE@@^/KB@2_KWI@@@')F@0V?^U@@^[XY@@@KKI@@@')F@0V?^U@@^[LY@@@KSI@@@TI )@@G@@')F@0V?^U@@^[TY@@@KOI@@@')F@0V?^U@@^[PY@@@O;)@@[8KK@2_R7Z@@@/KH@3MKSI@@@TJ )@@G@@')F@0V?^U@@^[TY@@@KKI@@@')F@0V?^U@@^[LY@@@KWI@@@')F@0V?^U@@^[XY@@@RFE@@]TK )@@G@@/K@@\'KKI@@@')F@0V?^U@@^[LY@@@/K@@3ZKKI@@@')F@0V?^U@@^[LY@@@KSI@@@')F@0VTL )@@G@@?^U@@^[TY@@@/K@@3Z])O5\*]*P57(]0Q5_%]8R6B:#@S6J?#CT6R!#KF6Z,#SG6$\#)H6\0TM )@@G@@#*I0RM#0JA@0#8KAC1^@LAK2^CMAS3^KNA)4^Z7A*5^$8A06^\9A87^7'B@8^_;BC9 B/@@@TN )@@G@@ J.@C[ R"@K] Z_@S# )U@)^ *V@* 0W@0S 8X@8TA@Y[@UACZ[CVAK)[KWAS-[SXA)+[)YTO )@@G@@"0<[*ZA*=[0)A0>[8-A8&]@+B@$]CBS%])&B):]*$B*?]0*B0!]8(B8E#@%TP )@@G@@CB6#C:CC,#K,CK\#S\[KE#)@[SF#*@[)G#0@[*H#8@[0I^@@[8J^K@]@K^S@]CL^)@]KM^*@TQ )@@G@@]SN^0@D*'^8'D0; @;D8/ C/E@. K.EC" S"[K_ )_EK@ *@[S@ 0@[)@ 8@[*@@@@[0@@@@TR )@@G@@[8@@@@]@@@@@]C@@@@]K@@@@]S@@@@"8@@@@_@@@@@_C@@@@_K@BK@_S@BS@_)@B)@_*@B*@TS )@@G@@_0@B0@_8@C@@ES@ES@E)@E)@E*@E*@E0@E0@E8@E8@F@@F@@FC@FC@FK@FK@FS@FS@F)@F)@TT )@@G@@F*@F*@F0@F0@F8@F8@G@@G@@GC@GC@GK@GK@GS@GS@G)@G)@G*@G*@G0@G0@G8@G8@H@@H@@TU )@@G@@HC@HC@HK@HK@HS@HS@H)@H)@H*@H*@H0@H0@H8@H8@I@@I@@IC@IC@IK@IK@IS@IS@I)@I)@TV )@@G@@I*@I*@I0@I0@I8@I8@J@@J@@JC@JC@JK@JK@[K@@@@J)@J)@"0@@@@R;0@[C9!@@7E;G@@@=TW )@@G@@W8@@@EG8K@@:G K@@H; @@@AP;0@@A/^@@5\; J@@@/KF@@@R#0@67C[@@66/K@@5/9?0@66TX )@@G@@AB:@@ 9*;@@@Q;0@64A#;@@][@V@@# @F@@^;@@@@8@@K@/K@@8[(8@@@@/K@@8[/,0@@@UI )@@G@@[@9@@-R;K@@[/,0@$)/K@@8BRB?@@@A#(@[:?8)@@[')T@@% @D@]CR;K@@]/,0@$)/K@@8KUJ )@@G@@RBW@@@A#T@]C?@)@@H'+(@@!CCT@[!P#T@[:AFT@[3R](@@*@D@]!/K@@'V?@(@](/K@@9/US )@@G@@9*T@]?9?S@@@9*T@],/K@@'V9?9@]*9*9@]?9?9@]%9*9@],/K@@9,N8K@@JR]0[KX24V-JMUT )@@G@@'-(@@%R3:[JL*4D@]6/K@@'FA7(@]7AA9@]7/K@@'H%4(@]7/K@@'ZR7(@]6O;)@@[!8)@@TUU )@@G@@/K@@'VA7(@]6RB(@]6AB*@@FO;)@[@AB(@]69?8@@@9*8@@GR;C@@E&;@@@^'=@@@JR;K@@NUV )@@G@@/,0@$Y/K@@'*/K@@9HR39@]6!80@@K/K@@'VR#@@@LC G@@@[[B)@@O;0@@[A39@]6/K@@'VUW )@@G@@ @D@CL @D@CQ @D@CO CD@C)RBD@CZ?8@@@#/K@@/%R#9@#ZRFT@[3RBD@[?N8K@@3P#K@[[UX )@@G@@P#@@[[AFT@[3ABD@[?8KK@'8R#K@@G&;K@@[ @H)@@8KK@''A#D@#ZAB/@@[R;K@@N/,0@$)UY )@@G@@/K@@/%/K@@;KR;K@@N/,0@$Y/K@@/?R#T@CL/@K@;KR[9@CN&90@@GQ#?@@@9?,@@@8#K@;GUZ )@@G@@9/$)@@/K@@;J/K@@;]8#K@;GRBW@@@R;C@@@9?!@@@9**@@@'=@@[GR7W@@A;CK@@#%8K@@#VA )@@G@@/K@@;]RBS@@CCDC@@C*?C@@AT8K@[@T8K@W@*?C@@AT9@@[@T9@@W@(@@@@KC[@@@H!CT@[!VB )@@G@@:CT@[!/K@@;]*@D@CQ?@T@CQA#T@CQ*@D@CO?[D@CO[[D@CORFT@[3RBD@[?N8K@@GP#K@[[VC )@@G@@P#@@[[AFT@[3ABD@[?8KK@;4R#K@@G&;K@@[ @H)@@8KK@;6R[0@@GA#D@CN9*$@@@R;T@CTVD )@@G@@(8@@[I/K@@/H&;@@@]&;K@@[A#D@CVA#T@CXR;@@#@R;K@C@;*@@@M;*K@@MA#D@CUA#T@CWVE )@@G@@R;D@CU&;@@@^'=@@[I(?G@@]/K@@/KR7C@@AR#G[J;A#D@CTR#D@CTN8K@@JR#K[KY%@H-JK8K@@#R#K@@JO;0@@#?9@@@X/K@@.=G80@[!/K@@.&!9@@@SG80@@TC9@@@@W[@@@JVM )@@G@@T[@@@HR;0@[0T@0@@GO#0@@IP#0@@LH[@@@J0@@@@K/KF@@@/KF@@[ @D@]AR;K@@S/,0@$)VN )@@G@@/K@@.6AFT@]AR;K@@T/,0@$)/K@@./*CD@]A'-D@@%AFT@]AR;K@@U/,0@$)/K@@"]*CD@]AVO )@@G@@'-D@@%AFT@]AR;K@@V/,0@$)/K@@"C*CD@]A'-D@@%AFT@]AR;K@@W/,0@$)/K@@"GABT@]AVP )@@G@@R;K@@X/,0@$)/K@@"M*^D@]A'-D@@%ABT@]AR;K@@Y/,0@$)/K@@"S*^D@]A'-D@@%ABT@]AVQ )@@G@@R;K@@Z/,0@$)/K@@"Y*^D@]A'-D@@%ABT@]AR;K@@$/,0@$)/K@@"=*^D@]A'-D@@%ABT@]AVR )@@G@@RB9@]ACDD@]AC5T@]6:80@@W/K@@".:80@@Y/K@@".:80@@X/K@@"8:80@@Z/K@@"8%80@@$VS )@@G@@/K@@_A:9@@@V/K@@_F%9@@@S'-D@@%?9K@@#'-D@@%/K@@_F:9@@@S/K@@"5:9@@@U/K@@_FVT )@@G@@'-D@@%:9@@@S/K@@_#%9@@@T'-D@@%/ K@_%'-D@@%?9K@@#'-D@@%/K@@_%*@@@@K:9@@@SVU )@@G@@/K@@_%:9@@@T/K@@_[R#9@]V[DZ@@DC8T@]WABZ@@@RBT@[?PFT@[3ABZ@@CP#T@[:ABZ@@EVV )@@G@@RFT@[3AFZ@@CR;)@@ZA#(@]ER]9@#<(8@@@@/KF@@@B,;@@@RA9@]7S8)@@SRBF[JLS8@@@#VW )@@G@@O#0@@HRBF[JLS?F[JLS8K[F@R;K@@@W@K@@JS8K@@DW8K@@ES@K@@L/KB@@@C5T@]6G1T@]6VX )@@G@@ CD@[5/[K[[]*@D@]C/K@@_8R;K@#C;GK@@=W@T@[:*@@@@IO;K@@[T@T@[:O;K@@^/K@@_/VY )@@G@@R#T@[:O;K@@A?8K@#CR;K@#CA#T@#=G9K@@]RFD@[3;G@@@=W@@@@L!@D@#=/K@[@JRFD@[3VZ )@@G@@;G@@@=W@D@#=P;@@@]?4D@]6/K@[@GP7D@]6A3D@]6/K@[@IA7D@]6 0D@]6R#D@#=R#T@[:WA )@@G@@G8K@@A?8K@J*/K@[@PR#@@@H/K@[@R!8@@J*R;@@J**@D@]C/K@[@YP;@@@^;G@@@=W@D@[:WB )@@G@@T@D@[:O;@@@^AFD@[5R#)@@GC[K@@GH9K@@^*@D@]CH9K@@]/!0@_WA#(@[6C[D@]!/ @[@:WC )@@G@@C[D@]((@@@@KCDD@[3C5T@]6G1T@]6[ T@[1?9K@@]/K@[[]%9K@@]/K@[@;RF9@]A:80@@TWD )@@G@@/K@[[]R#(@[6O#(@[6![@@@I/K@[[]R#T@]U/K@[[EH9K@@[?[D@[6/K@[[^R#(@[6T@)@@LWE )@@G@@?[@@@I/K@[@9 @D@]O/K@[[YR#)@@KT@)@@L!@(@[6/K@[@9R#(@[6R#T@]TA#T@]OA#(@][WF )@@G@@(0D@]6/K@[[YC8(@]9 @@@@L&;)@@[Q#")@@9?_@@@9*8@@GRB9@]6AB8@@FO;0@[@AB9@]6WG )@@G@@R;C@@E&;@@@^'=@@@JG9K@@[%1T@]6/K@[[LR#D@CL CD@CZ/@@[^&R#T@CQP;@@@[T@@@@HWH )@@G@@S8@@@EW8@@@FA#D@CSR;K@@4/,0@$)/K@[[1RBW@@@T8K@J*T@T@[:0@@@@HR#K[KZ?@T@CSWI )@@G@@A#T@CSRD9@[3PD9@[5PD9@[5RD(@C)R[T@[:R[D@[:O9K@@#*@D@]CO9K@@[R@T@CL&8K@@[WJ )@@G@@ @D@CRR#@@@BR;K@@ O#T@CLT8L@@@O;K@@KP#@@@H;O@@@=W8[@@[;O@@@=W^A[K]T^A[K]WK )@@G@@?CA[K]/K@[^A?8 @@#/K@[^AR@0@@GT8@@@#R#K@@BP;K@@KP#K@@GR#D@CLG8#@@ ;OK@@=WL )@@G@@W@K@@G?8K@@]/K@[^@R@)@@HC8[@@@!@K@@G/K@[^AC[D@CSR#D@]!(@@@@GR#D@](S8@@@EWM )@@G@@/^K[]>R#@@@BP#@@@#P#@@@#S@D@]$W8@@@F;P@@@=W[@@@GG[D@CLH9@@@[;O@@@=W@@@@^WN )@@G@@R#)@@#P;)@@#;O)@@=W@)@@^;O@@@=W@@@@IO;@@@[C[K@@GR;@@J*R;K@J*R;-@@@!@)@@KWO )@@G@@/K@[#ET@)@@]!@)@@K/K@[]"O;@@J*/K@[]9R#K@@]T@K@@KP#K@@IR#0@@]O#K@@]P;K@@]WP )@@G@@P;0@@[;OK@@=W@K@@JS8K@J*W@K@@KO#K@@GR#)@@#R\A[J2;O)@@=;*@@@[W^&[J2O#@@@IWQ )@@G@@T@@@@HT@@@@KS@@@@LW8@@J*;*@@@[R#T@CR/@K[#T!@@@@H/K@[#.ACT@CMA^(@CMAC9@CZWR )@@G@@A#D@CRR#@@@#P#@@@ O#@@@^R#9@#ZR#)@@^*@D@]CO;)@@[;O@@@=W@@@@IR#T@CQ;OK@@=WS )@@G@@W@K@@#P#K@@]A#T@CYT@@@@HR#(@CLT@@@@^P;)@@[T@@@@IA#J@@AR#@@@#P;@@@#;O@@@=WT )@@G@@W@@@@^C^9@[.C^&[K],@)@@H/K@[#.P^6[K]R#@@@#(@D@]C/^@[]H%9[@@@?9[@@@/K@[^AWU )@@G@@R#@@@B;O@@@=W^A[K]P;@@@#$@K@@G/K@[[.(@D@CR/K@[^MR#9@#ZR#D@CQ;O@@@=WCD@CZWV )@@G@@P;@@@[SCD@CZW8@@@WO;@@@[A#D@CP/K@[^N'+T@@!R#(@CL8#)[^Q/K@[^&R[9@CN&90@@GWW )@@G@@RFT@[3RBD@[?N^T@CMP#K@[[P#@@[[AFT@[3ABD@[?8KK[^)R#K@@G&;K@@[ @H)@@8KK[^+WX )@@G@@[CB)@D8#)[^S CD@[1R'D@[U CD@['CDT@CZ(@@@@LCDT@[5RF9@[3;(K@@[P#0@@LC[T@]!WY )@@G@@/[K[ E;DK@@[?[T@]([[T@](R#(@](RFD@[!T8@@@#?@)@@G/K@[AB9!D@]?/,0@/2/K@[AFWZ )@@G@@AFD@[1AF(@[7[[D@[09?D@],9*C@@GC@K[K)[@S@@FR;C@@E&;@@@^'=@@@JRF9@[3T8)@@#XA )@@G@@P#0@@IPF9@[1[@9@#>9!D@]*/[K[AHRF(@[3S@(@]$W8)@@FRB9@#>/,0@/2/K@[A :CD@['XB )@@G@@/K@[ .AFD@['AB(@[7[[D@[9RF9@[3T8)@@#P#0@@IPF9@[1P#0@@GAF9@[8C@(@[:*@D@]CXC )@@G@@C@(@]CS@0@@IG8)@@[*@D@]CG8)@@[W@0@@IS@9@]$W80@@ET@0@@G?@9@[9/K@[ 8*CD@[1XD )@@G@@%8@@@[/K@[ .CCD@[1CC(@[79!D@]?9(D@]*9!D@],9(D@]%C[D@[0 CD@[1 @D@]!/K@[ PXE )@@G@@C@9@#>9!D@]*/,0@/5'-D@@:/K@[ N9?D@]%9*C@@GC@K[K-[@S@@FR;C@@E&;@@@^'=@@@JXF )@@G@@/K@[AI(@D@]!/K@[AH9!D@]?9(D@]*9!D@],9(D@]% @D@]!/K@[ EAF9@[8C9K@@[[[T@#XXG )@@G@@R#9@]Q[5Z@@[R;@@@[A7J@@]RBD@[?PFD@[3RFT@[8ABZ@@DK@K@@GP#D@[:A#D@]GR;@@@@XH )@@G@@C[D@[:G9@@@[W@@@@KS@D@[:A#Z@@AC9@@@](CD@['/K@[B[*4D@#S'+(@@?R#D@]RABJ@@@XI )@@G@@A#0@@HA#@@@JAFZ@@@G9K@@[[5Z@@[[5J@@]AF\@@CRBD@[7ABJ@@DRFD@['AFJ@@DR#D@[9XJ )@@G@@A#J@@ARBD@[?PFD@[1PFD@['AFJ@@J @@@@IR#T@]*!8K@@SR;)@@[!8K@@XR;)@@]A7\@@#XK )@@G@@G9@@@[(CD@[1/K@[BZC@D@]SABJ@@@A#0@@HR#0@@GAFZ@@@G9K@@[[5Z@@[[5J@@]RBD@[?XL )@@G@@PFD@[1AFJ@@JRFT@[7ABZ@@DT8K@@#P#@@@HAFJ@@CR#T@[0A#Z@@ARFT@[1AFZ@@D @@@@IXM )@@G@@R#T@]?!8K@@SR;)@@[!8K@@XR;)@@]A7\@@#C9@@@#(^D@CZ/K@[B1R#D@#ZR#K@@JABJ@@@XN )@@G@@R#0@@GG9K@@[AFZ@@@[5Z@@[[5J@@]RB(@CMRFT@CZRBD@[?AF\@@DABZ@@DP#@@@HP#@@@HXO )@@G@@AFJ@@CR#D@]O(@@@@G/K@[CCR#D@]OABJ@@@A#0@@HA#@@@J*0D@#S'+(@@?AFZ@@@G9K@@[XP )@@G@@[5Z@@[[5J@@]RB(@[?PF(@[5PF(@[5AF\@@CRFD@[5ABJ@@DRBD@[1AFJ@@DR#D@[6A#J@@AXQ )@@G@@RFD@]AR7(@]6:8@@@T/K@[CJ!8)@@#%8@@@S/K@[C"R#D@]VABJ@@@A#0@@HA#@@@JAFZ@@@XR )@@G@@RFT@]A%8K@@S/K@[CUAF\@@DC8D@]WABJ@@@G9K@@[[5T@[/[5Z@@[R;@@@#A7J@@]R;K@@FXS )@@G@@/,0@$)/K@[C5RB?@@@!C(@[5/K@[C5(@D@]C/K@[C%L8)@@AA#0@@L/K@[C0P;)@@^R;K@@@XT )@@G@@W@T@[:S@T@[:A#)@@LO;)@@^AB(@[5/!0@_WR#9@]VRBT@[5/K@[C7RFT@[5R#(@[6ABZ@@DXU )@@G@@A#(@[;RB(@[?PB\@@DPB\@@DAF\@@C/K@[D][5T@[/C8D@]WABJ@@@AF/@@@R#K[KZA#T@]@XV )@@G@@A#9@]] @D@[_AB9@[/C8K@@@(^D@]A/K@[D=R;K@@%/,0@$)/K@[D-RB?@@@;*)@@S;K)@@SXW )@@G@@A#(@]FR;K@@*/,0@$)/K@[D-R#W@@@A#T@]# 4D@]#C T@]AR#)[KZ%9K@@W/K@[D+R;K@@(XX )@@G@@/,0@$)/K@[D-R#W@@@+@K[K+/K@[D+')(@@%A#(@]^R;K@@ZA7T@#R @D@[\(CD@]A/K@[D0XY )@@G@@R;K@@C/,0@$)/K@[D0R#W@@@A#T@[\ 4D@[\R#T@[\A#T@[,C9@@@@R;K@@3/,0@$)/K@[D5XZ )@@G@@C9@@@[[(D@#SC9@@@@R;K@@5/,0@$)/K@[D;C9@@@[[5D@[.(8@@@@/ @[F,R'D@[UC@@[J#YA )@@G@@[@C@@@9?@[JH9*C@@[9?@[JJ9*C@@^9?@[JL9*C@@BRBD@[7/,0@5![[S@@#C9K@@E[5S@@#YB )@@G@@RFD@['/@@[E9/,0@5![[S@@AC@D@]*;G@@@#;*@@@#;?@@@#O;@ 00[^C@@CC8C@@@&;@@@DYC )@@G@@*8@@@@/K@[EW'=@@@J/K@[EZC8C@@[&;@@[C'=@@@IC8@@@2[0C@@[RFD@[7/,0@5![[S@@#YD )@@G@@C9K@@E[5S@@#RFD@[1/@@[E9/,0@5![[S@@AC@D@]?;G@@@#;*@@@#;?@@@#O;@ 00[^C@@CYE )@@G@@R;C@@@&;@@@D*8@@@@/K@[E6'=@@@J/K@[E9C8C@@[&;@@[C'=@@@IC8@DK [CC@@[RFD@CZYF )@@G@@/@@[F,/,0@5![[S@@#C9K@@E[5S@@#RBD@CM/,0@5![DS@@ARFD@CM/,0@5![ S@@AR;@@@,YG )@@G@@A:C@@ACCD@C)R#W[J+R#@[K<9*C@@BR;C@@@&;@@@D*8@@@@/K@[FN'=@@@J/K@[F,C8C@@[YH )@@G@@&;@@[C'=@@@I9?@[K=9*C@@[R#@[K&A#C@@#R#D@CRO;@@B4;O@@@=W8@@J*;O@@@=W8@@@/YI )@@G@@R#)@@H/,0@5!R#@@@IR#)@@L/,0@5!;*)@@AO;)@@:R#0@@L;*0@@S;?)@@GA#*@@^R;C@@[YJ )@@G@@&;@@[^'=@@@I'=@@@NA#D@]5 @D@[" @D@]IC8@@@Z[)D@#R ?D@#R *D@#R =D@#RN8K@@[YK )@@G@@^CT@#*^CT@#(^^T@#*^^T@#(R;K@@0/,0@$)/K@[GFR3W@@@R\?@@@R:/@@@C>G@@@:8K@@DYL )@@G@@ CD@#*:8)@@F CD@#(:80@@T ^D@#*:9@@@K ^D@#(R;K@@6/,0@$)/K@[GWR\?@@@RBW@@@YM )@@G@@:8)@@^ABT@#(:8)@@#ABT@#*:8)@@]AFT@#(:8)@@[AFT@#*R;K@@6/,0@$Y/K@[GW/K@[GIYN )@@G@@C9@@@@R;K@@1/,0@$)/K@[G-C G@@@[DD@]0C9@@@@R;K@@2/,0@$)/K@[G$C G@@@[ D@]0YO )@@G@@(CD@['/K@[G!RBD@[7R#T@]*/,@[G3(CD@[1/K@[G.RFD@[7R#T@]?/,@[G3/K@[G.:8K@@SYP )@@G@@/K@[G':8K@@T/K@[G'!CD@]0/KC@@@'-9@@?!^D@]0/KC@@@'<9@@?R]9@#<(8@@@@/KF@@[YQ )@@G@@B,;@@[A]9@#S@@]R#D@["/,0@5![[S@@ [-C@@^;D@@@A[>C@@^R#D@]I/,0@5![5S@@C;DK@@A[[S@@BYU )@@G@@[5C@@B;D@@@A[-C@@AR#(@[_;G)@@=(@D@["/K@[IAW@(@["O;)@@[(@D@]C/K@[I@O;)@@[YV )@@G@@C[D@]CG9@@@]![@@@IR#)@@KRF9@[8;G0@@=W@0@@IC[D@#X%9@@@[/K@[IEC9@ [-C@@DYW )@@G@@C9KSEQ/K@[ITR#D@[";G@@@=W@@@@J*@@@@HO;@@@[T8@@@E;G@@@=W@@@@K?8@@@ER;@@@EYX )@@G@@!8@]WK/K@[IA/,0@5![-S@@D;DK@@A[(S@@D;[K@@A[!S@@D;-K@@A;DK@@G[1S@@D**D@#SYY )@@G@@/K@[I?C8S@@[&;K@@L[@T@#DR;D@#C(8@@@@'=@@@CR;S@@^&;K@@=[@T@#D(8@@@@'=@@@CYZ )@@G@@C8C@@@&;@@@E*8@@@@/K@[I3(4D@[.'=@@@J/K@[I6C8C@@[&;@@[D'=@@@I/K@[I8A]9@#0@SE1776A]9@@&(8@@@@/K@[K8C@@[X''=@@[0;C@@@M[@D@[AZK )@@G@@C@@[X;[@D@[]C@@[X/[@D@[#Q;@@*H[@D@[^Q;@@*L[@D@[ C8)@@[R'D@]Q&'@@@[C8D@#%ZL )@@G@@C8K[QJ/!0[LOC8D@^JC8K@C&(^H@@[[4(@#S/!0[LOC8D@^)/!0[LOC8D@^1C8K WV 0D@#SZM )@@G@@(^H@@[[0(@#S/!0[LOC8D@ ]C8K WV/!0[LOC8D@ NC8K WV/!0[LOR;K WXA#T@#Z/K@[LRZN )@@G@@[@C)@@[^W@@[/KB@@@R'D@]WC8@[PL[@C@@]C8@[P:[@C@@#C8@[P6[@C@@^[@C@@ C@@[X.ZO )@@G@@[@C@@[(8@@@@/K@[L$&'0@@@B,0@7G/K@[M#/K@[L(/,0@7G/K@[M#RB9@[/[^9@[/C^Z@@[ZP )@@G@@(@H@@['+(@@?C[K[X"[[Z@@G @J@@H 0J@@[R#D@]GABJ@@EO#D@[:ABJ@@C/,_K@[RB9@[/ZQ )@@G@@R7J@@[RF_@@@%8@@@[/K@[L% @D@]ER#9@]Q/,0[OLR]9@@&(8@@@@/KF@@@B,;@@@C@D@#LZR )@@G@@[@D@#J/,_K@[A]9@@&*?D@#R'-D@@!R#T@["O;K@@[*4D@#R/K@[M/[@T@["(@D@]C/K@[MUZS )@@G@@R#K@@G;CK@@M*@D@]4/K@[MQ?^T@[.'RF_@@@ZZ )@@G@@/K@[NZR#0@@IA#J@@G?@D@]@/K@[N%/KDK#OA#D@]@R7\@@[A3(@[//KDK#OA#D@]@A3(@[/AA )@@G@@/KDK#PA]9@#P CD@#PO#D@[_/4@[N6R#@[X"A#J@@GR7\@@[R#9@]]/K@[N'R7Z@@]?8K@@]AB )@@G@@/K@[N,?@J@@G/K@[O %@J@@G/K@[O#!4\@@[/K@[O R#J@@GR7\@@[RF_@@@/K@[N':4T@[/AC )@@G@@/K@[OFRB_@@@/K@[OPCDD@]A*^D@]A/K@[O1%9@@@TC89@]W/K@[O1A]9@#Q[@D@[U CD@#QAD )@@G@@RF\@@@R7Z@@[!@T@]E/K@[O1&;0@@@C@D@]E%8@@@Z/K@[O:(@D@]A*@D@]O/K@[O::@9@]SAE )@@G@@/K@[O\%@9@]R/K@[O:C^J@@@%@D@]S/K@[O((0G@@[/K@[OB/K@[O::8D@]W/K@[OB:@9@]RAF )@@G@@/K@[O1:@9@]S/K@[O1(0J@@[/K@[OBC@D@[UR;K@@[A3Z@@[AB"@@@/,_K@]/KDK#Q(@J@@HAG )@@G@@/K@[P@R#J@@GP#D@[_O#J@@H @J@@HA#9@#V/,0[N1C@9@#V(CD@]A/K@[L/R7J@@[%4D@[/AH )@@G@@/K@[PER#T@[\A#T@[,R#T@]FO;K@@[A#T@]FR#)@@JRF_@@@AB\@@@:89@#%/K@[L/ 0J@@[AI )@@G@@/K@[PEA]9@#T CD@#TRFT@]A!8K@@U/K@[PV:8K@@T/K@[PUR;@@@Z%@D@]E'-D@@:R#D@#TAJ )@@G@@&;@@@@A#D@#UR;@@@Z[?D@#R[*D@#R[=D@#R )D@#RR]9@@&(8@@@@/KF@@@B,;@@@A]9@@&AK )@@G@@*)D@#R'-9@@!/KDK#UA#D@@HR](@@@@@CG9@#_[^(@#"?80@@[/K@[X,H@9@]CNGT@#_!80@@[BO )@@G@@N@T@]C[G9@#_G@)[Y@C@0[Y@QF9@#"M#\)@@[C9@#"/K@[V^/!K[V^C80[V<[^9@^FC@0[V,BP )@@G@@[@9@^EC80[TL[^9@^G[^D@^@C^9@#%/,0[OL/K@[XT/!K[V^C^T@#4R[D@@+/,4@@@/K@[TTBQ )@@G@@/S@@@@[^D@^@C^9@#%C@D@#4/,_K@#C@K[Y@Q#T@#4C^D@^@G@D@]CCC?@@@H@D@]C+8)Z__BR )@@G@@[C9@#4:CD@#_/K@[X-G@@[Y@/K@[V;N@K@@J!^9@]CN^T@]CH^9@]CM#W)@@Q#G@@@!80@@[BS )@@G@@/K@[V9C^(@^@C^T@#"[^(@#"CG9@#_?80@@[/K@[X,H@9@]CNGT@#_!80@@[N@T@]C[G9@#_BT )@@G@@G@T@]C[^!@@@H@T@]CG@)[Y@C@0[Y@QF9@#"M#\)@@[C9@#"C^9@#" @@@@IHC9@^[W^(@^[BU )@@G@@GC(@^@;G)@@[/@(K^GG@(@^H/C0[W+ ^I@@@CCI@@@;*@@@M;K@@@M/K@[W= CI@@@CGI@@@BV )@@G@@H@(@^H/@@[WTG@D@]CC@/@@@H@D@]C-@9@#;/D@[U\/K@[W0R[D@@+/,4@@@/K@[W0C@@@@HBW )@@G@@;G)@@[/@)[XCG@(@^H/C0[W9CCY@@@;*K@@M;KK@@M[^I@@@/K@[W;CGY@@@[CI@@@H@(@^HBX )@@G@@/@K[W0R[@@@HO[D@]C')D@^C/K@[W?/K@[V]CC9@#/)^9@#;G@D@]C[DG@@@H@D@]C/K@[W0BY )@@G@@/!K[V^[^D@^@C^9@#%C@D@#4/,_K@#C@D@^CC@T@^D[@T@^C[@D@^DC@D@#;;@@@@M[@D@#;BZ )@@G@@C^9@#%/,_K@ C@(@#XG8)@@[[@(@#XC^9@#%C^J@@K%8@@@[/K@[V! @@@@GC^9@#%/,0[NUCA )@@G@@/K@[V!N@T@]C[^D@#"G@@[Y@M#W)@@H@9@]C?80@@[/K@[X?N@K@@JQ#D@#/G@D@]CM#W)@@CB )@@G@@R]9@^I/KF@@@G@T@]C ^H@@@R]9@^I/KF@@@ @D@#_R'0[X5A]9@^IC^9@#"G@9@]C ^J@@@CC )@@G@@H@9@]C/K@[WP)@@@@@B,5@@@B,0@*D@[@@@@Z_____@#@@@@@@[@@@/CJ@@@/GJ@@@0@^@@@CD )@@G@@1@^@@@[@K@@WC@K@@D;CK@@M?8K@C-'[@9@@-/?K[-:A]9@#JN8K@B;C8@^@_*@D@@@C8D@@&C@T@#J/,0@$O[@T@#JC8@^C'CG )@@G@@C8K WW(@D@@@/K@[Y\C8D@C-C@K@@G(@@^C'G8K@@\[@D@#Y[@T@#)N8K@@^C8@[+OC8T@@%CH )@@G@@&;K@@[M#W)@@N8K@@JR;K[+ R;D@@,&;K@@[&;@@@[M#H)@@(8@@@@/K@[Z C@@[+P'=@@[0CI )@@G@@;C@@@M[@D@[[&'0@@@B,0@C@/K@[ZA/,0[K(/?K[-7R@T@@]R]9@#JR]T@@>/KF@@@[@K@@WCJ )@@G@@C8T@@@%^T@@@'<(@@!C@K@@WA]K@@W/K@[ZPA]K@@WR'K^@T @D@@@A@T@@]R@K@@WA@T@@>CK )@@G@@/?K[-:R](@@/?K[-:CM )@@G@@R](@@CN )@@G@@/KF@@@[@K@@WC8T@@@%^T@@@'<(@@!C@K@@WA]K@@W/K@[)BA]K@@WR'K^@T @D@@@A@T@@]CO )@@G@@R@K@@WA@T@@>/?K[-:R](@@<(@D@#LA]9@#L(8@@@@/K@[)N&'0@@@B,0@C#/K@[)O/,0[NKCP )@@G@@/?K[-7R@T@@]R]9@#LR]T@@>/KF@@@[@K@@WC8T@@@%^T@@@'<(@@!C@K@@WA]K@@W/K@[)/?K[-:R](@@/KF@@[/?K[-7R@T@@]R]T@@>CS )@@G@@/KFK@@[@K@@WC8T@@@%^T@@@'<(@@!C@K@@WA]K@@W/K@[-#A]K@@WR'K^@T @D@@@A@T@@]CT )@@G@@R@K@@WA@T@@>/?K[-:A]9@#M(8@@@@/K@[-H&'0@@@B,0@C /K@[-I/,0[Q#/?K[-7R@T@@]CU )@@G@@R]T@@>/KF@@@[@K@@WC8T@@@%^T@@@'<(@@!C@K@@WA]K@@W/K@[-WA]K@@WR'K^@T @D@@@CV )@@G@@A@T@@]R@K@@WA@T@@>/?K[-:*8@@@@/K@[-=/,0 WV/K@[-&&'0@@@B,0@CA9*D@@H/?K[-7CW )@@G@@R@T@@]R]T@@>/KF@@@A@T@@[A@(@@#^@T@@X^@(@@Y^@9@@ZR@K[+Q&8)@@[Q8(@@]N8K@@JCX )@@G@@M@-)@]R@T@@[/K[@@@A@T@@[R@K[+Q&8)@@[Q8(@@]A]K@@WN8K@@JM@M)@]R]K@@WR@(@@#CY )@@G@@N@T@@XN@(@@YN@9@@ZR@T@@[/K[@@@@@@@@@A#D@@.A]9@@"RBD@@,P;@@@[R#G@@@(8@@@@CZ )@@G@@/KD@@9&'0@@@B,0@CE/KD@@'/,0@=DR]9@@"R#D@@./KDK@,'^D@@,)@@@@@@@[@@[A^W@@#DA )@@G@@A@?@@^A@/@@ Q8W@@@ ?[@@]R@)[&KQ^1@@@&80@@]C?-@@@+8)@@B;C)@@#9?@[&L/K@[+*DB )@@G@@9*#)@@9*#)@@9*#)@@9*#)@@8#)[+=C8)@@G&80@@[N@K@@JM@")@@Q^1@@@/KF@@@A^W@@#DC )@@G@@A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[DD )@@G@@C8[@@@C0L@@[C8+@@@/@)[<]%8)@@AG8K@@[Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@DE )@@G@@[?<@@@[*<@@@[=<@@@[)<)@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)[;G@@@M;CK@@M&;@@@[&;K@@[')G-DC8)@@-')]-D;O@@@=W8@@@E;?)@@ADP )@@G@@G8.@@08KK[>I/^@[>D9?@@@IC8)@@0/K@[>N')]-M+8K@@_')]-ODQ )@@G@@/KF@@@N8X@@@&'0@@@C80@@@/C@[>)&'0@@-D@@@@G8KK[>);O@@@=W8@@@E;?)@@AG8.@@0DR )@@G@@8KK[>>/^@[>)9?@@@IC8)@@ /K@[>%')]-(C@)@@F;C)@@M*@@@@I')]-\/KF@@@C80@@@/C@[>9C8)@@-')]-99?@@@I+8K@@_')]-_/KF@@@;*@@@AC8N@@@H^L@@@C8+@@@DU )@@G@@/@)[&F%8)@@AG8K@@[G@@@@H;*@@@MQB[@@@'=@@@I/K@[+9@@[@@@ C@@ Y*DV )@@G@@'=@@@HC8@ Y['=@@@-C@@ Y(%@@^WD[@@ Y#9(@^D3/,0@+/C@@ Y%'=@@@IC@@ Y:'=@@@IDW )@@G@@C8@^D5'=@@[P/C@[&$+@@ Y?%@K Y!/K@[,J/K@[,VC@@ Y,'=@@@IC@@ Y:'=@@@I*@@ Y#DX )@@G@@/K@[$@RD0^D7RAR^D'O[0 Y\R]@ Y\C/@^VA/,0[+RCWB^D'C8K@@]/,0[>TC/@@@//,0[<&DY )@@G@@C?B=D';C@@@]C8K@@]/,0[>TC@@^VL[@C^T+$]@@@D/K@[&1 @@^V6(@@ Y#/K@[$1R[K Y\DZ )@@G@@RAK^D'RD>^D'R 5^D'O90^D/REA^D'C@A^D;[@C^T+C/@^VA/,0[+RC@C^T+/,0[=@C/@@@JEA )@@G@@/,0[<(C8@@UPC@Q^D//@K[$VC8@@@?=@K Y0C@@ Y1=@K Y2C@@ Y3=@K Y4C@@ Y5/,0[=@EB )@@G@@C/@@@Y/,0[<(C@A^E]K@@^V6[@K^V6C8K@@A/,0[>TC/@@@0/,0[<(C@B)@@CCP^D':@K@@AEC )@@G@@/,0[=@C8@@@[/,0[&^R &^D'*@@@@A/K@[$C$[K@@D/K@[$ /K@[*:C@@^W)[@@ Y]C8@ Y[ED )@@G@@'=@@@-R[K Y6R[0 Y7OD0^D8RAK^D8PEK^D8RD>^D'R]) Y6CWA^D'H8@@@[[@@ Y@O90@@[EE )@@G@@C/@^VA/,0[+RCWA^D"/,0[>4C/@@@//,0[<&C?A^D";C@@@]/,0[>4C/@@@J/,0[<(C8@@UPEF )@@G@@C4Q^D.;CK@@^/@K[*QC8@@@?:8K@@[C@@ Y5:8K@@]C@@ Y3:8K@@#C@@ Y1/,0[=@C/@@@YEG )@@G@@/,0[<(CCA^D_K@@^V6[@K^V6C8K@@A/,0[>TC/@@@0/,0[<(C@B@@@CCP^D':@K@@A/,0[=@EH )@@G@@C8@@@[/,0[&^O9)@@ $]) Y@/K@[*@$[K@@D/K@[$'C/@^VA/,0[+RC8@^V2/,0[=TC8@@@]/,0[&^C8@^D0'=@@@CC@@^D4=@@ Y8'=@@@DC@@ Y9EJ )@@G@@'=@@@U*4@ X(/K@[(LC/@^VA/,0[+RC8@^V7/,0[=4/,0[=)C8@^VL'=@@@JEK )@@G@@C8@^W^'=@@[P/C@[(L+@@ Y?%@K Y''=@@@)C8@ V"'=@@@J/K@[*_C8@^V/'=@@@JC8@^W@EL )@@G@@'=@@@JC80 W[/,0[YRC8@@@@/,0@C@'=@@@)9?@^W 9*@^WDC8K@@@/K@[%ZC@@ V.C8K@@^EM )@@G@@/,0@O;/K@[,>/@K[%Y9?!@@[9*)^D'9?!@@#9*)^D/CO!@@L[@)^D" @@^D_C@!@@E[@)^E@EN )@@G@@ @@^E[CW!@@G[W)^D"1@H@@G/K@[('C@@ V.C8K@@ /,0@O;/K@[,>C^H@@D*@@@@H[@@^D_EO )@@G@@'^@[:-/K@[(Y>8)@@)/K@[("'^@[:-/K@[(YC8K@@A/K@[%[C8K@@BC@@ V./,0@O;/K@[,>EP )@@G@@*@@@@H/K@[%C'^@[:-/K@[(YG@K Y;C^H@@]=@@ Y//K@[%UC@G^T+(@@^E[[@@^E[:@@^E[EQ )@@G@@/K@[%P'^@[:- @@^E[ @@^D_/K@[%D @@@@IC@.@@[W8)@W@G@)^D_[@)^D_CCH)@]=8@@@^ER )@@G@@/K@[%@/K@[%DC8K@@]C@@ V./,0@O;/K@[,>/^K[(Y/,0[)^ @@^D'C8@ X?'=@@@# @@ X1ES )@@G@@C@@ Y.'=@@[Z @@ W_/,0[))@@@[%"[@@@@ C@P@@B:@K W_/K@[%/[@K W_(@@ Y^/K@[%/ET )@@G@@C@@ Y"'=@@@I'^@[?,C@@ Y"'=@@@IR8K@@B @[ Y^8@K[%''^@[:%/K@[%:C80 WG/,0[YREU )@@G@@C8@@@K[0@ X\C8@ X?'=@@@#(@@^D'/K@[:GC@@ X1G8@@@[[@@ X1C8@^D'/,0[ZM/K@[:]EV )@@G@@/,0[)^C@@ Y_'=@@[ZR8K@@B @[ Y^8@K[:K/,0[))@@@[:R[@@@@ '^@[:%/K@[:MC8@ V"EW )@@G@@C@K^D4>@K Z@'=@@@JC@@ Y:'=@@@I'^@[?,C@@ Z]'=@@[Z'=@@@D@@@@@@C8@^D'/,0[ZMEX )@@G@@C8@ X?'=@@@#C@@ X1G8@@@[[@@ X1/K@L:-@@@@@@C/@^VA/,0[+R9? @@@/,0[=]C/@@@HEY )@@G@@/,0[<(9? @@]/,0[=]C8@@@[:O @@^/K@[:/C/@@@(/,0[<&CO @@^/,0[>4C/@@@)/,0[<&EZ )@@G@@C/@@@)/,0[<(C@ @@ C8K@@ /,0[>T @@@@^'^@[?&CXP@@^>9K@K@/K@[?IC/@@@\/,0[<(FA )@@G@@C/@@@*/,0[<&R9@@@['^@[?&0@ @@^/K@[?XC/@@@4/,0[<(C@ @@B/,0[=@C/@@@;/,0[<(FB )@@G@@>9K@K@/K@[?<(@ @@A/K@[?T/,0[=)C@@ YCFE )@@G@@C8K@@A/,0[>TC8@@@[/,0[&^(@@ Y /K@[!UC/@^VA/,0[+RC8@ YN/,0[=T/,0[=)C@@ YDC8K@@A/,0[>TC/@@@[/,0[<\C9K@]V"PK YCC[K Z#"HK@@MC8@@]VFG )@@G@@"O@ YD"CK@@LC8@@B#/,0@KSC/@__//,0[<\C/@@@%/,0[<&C8@@@[/,0[&^(@@ YA/K@[!4FH )@@G@@C/@^VA/,0[+RC8@ YU/,0[=T/,0[=)C@@ YEC8K@@A/,0[>TC/@@@[FI )@@G@@/,0[<\C8@@]V"O@ YE"CK@@LC8@@B#/,0@KSC/@__//,0[<\C/@@@%/,0[<&C8@@@[/,0[&^FJ )@@G@@(@@ YB/K@L?,C/@^VA/,0[+RC8@ Y-/,0[=T/,0[=)C@@ YFC8K@@AFK )@@G@@/,0[>TC/@@@[/,0[<\C8@@]V"O@ YF"CK@@LC8@@B#/,0@KSC/@__//,0[<\C/@@@%/,0[<&FL )@@G@@C8@@@[/,0[&^/K@L?,[@@^V$C/@^VA/,0[+RC8@ X^/,0[=4/,0[=)C8@@@[/,0[&^FN )@@G@@'=@@@)%8)@@]/K@[,%[DK V. @@@@H/K@[%Z9*@ X@9*) X]C/@^VA/,0[+RC8@ XU/,0[=@C&@@@@@AK@@[@^GY )@@G@@@^0@KF@@@@@PK@@[@^@HS@O;@@@@@PK@@#@^@@$@+N@@@@@JK@@[@^@[J@+'@@@@@$K@@[@^GZ )@@G@@@#E@=D@@@@@!K@@[@^@J0@$N@@@@@!K@@#@^@@D@7#@@@@@YK@@[@^@R6@7G@@@@@YK@@#@^HA )@@G@@@[&[J]@@@@@-K@@[@^@HX[K*@@@@@%K@@[@^@^M[Y @@@@@#K@@[@^@#/[+R@@@@@M@@@[@^HB )@@G@@@C\[&N@@@@@G0@@]@ @@T^@@@@@@@=0@@]@ @C-^@T@@@@@S0@@]@ @@\^C'@@@@@M)@@@@ HC )@@G@@[PY^D(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ADBNK$ @@6[M3CDRET0$ @@P@@6CDRET1$ HF )@@G@@@@P@@'CDRET2$ @@P@@"DFINT$ @@#@@@ECHAR$ @@$@[JECOLN$ HG )@@G@@@@$@[-ECOL$ @@$@[MEDECF$ @@$@#]EDECV$ @@$@#XEDIT$ HH )@@G@@@@$@@@EDIT$T @@$@@\EFD1$ @@$@[(EFD2$ @@$@[:EFLG1$ HI )@@G@@@@A@@HEMSGR$ @@$@]DEMSG$ @@$@]GEOCTF$ @@$@]&EOCTV$ HJ )@@G@@@@$@]SEPRINT$ @@$@#!ESKIP$ @@$@[SGETPSF$ @@@@@@IDBUFF HK )@@G@@@@6@@@IDONLY$ @@J@@]MFDSP$ @@D@@@MINT @@6[M2RDFD$ HL )@@G@@@@3@@@RDKINT @@6[M4REBD$ @@P@IURECYB$ @@-@]XRENDB$ HM )@@G@@@@-@]#REND$ @@V@P5RETB$ @@-@^_RFIND$ @@P@@HRFNDZ$ HN )@@G@@@@P@@FRGKTC$ @@P@[JRINFP$ @@6[M2RINIT$ @@V@@@RKTI$ HO )@@G@@@@P@B9RKTO$ @@P@B_ROB$ @@-@#(ROPNB$ @@-@@[ROPN$ HP )@@G@@@@=@@MRQNDB$ @@-@ VRRCYC$ @@-@^JRRELB$ @@-@[YRREL$ HQ )@@G@@@@=@[HRRET$ @@=@]VRSELA$ @@P@I*RSELE$ @@P@I9RSEL$ HR )@@G@@@@P@I.RSORTD$ @@0@@@RSORT$ @@=@[_RSRTB$ @@-@]*RSVL2$ HS )@@G@@@@-@#DSDROC$ @@P@@+SORTERR @@M@@@TPINT @@6[M2TSINT HT )@@G@@@@6[M2ZCORE$ @@P@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FRSTD$ @@@^@@KPRCD$HV )@@G@@ @@@@@@LASTD$ @@@ ZASYSLIB$ID 74R1 @@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@*[S@@@*SDFF*@F@-@)TEST EQU 1 . TEST MODE ON IHY )@@G@@F NOT 0 @D@-@)IDBUFF* 'MASS 3R2 ' HZ )@@G@@@D@+@-IDBUFF* 'MASS 3R4 ' @D@=@+IDBUFFIA )@@G@@* 'MASS 3R5 ' @D@@@=IDBUFF* 'MASS 3RIB )@@G@@6 ' @H@@@). ****************************IC )@@G@@********************************************** @H@@@). ******* ID )@@G@@ ******* @H@@@). ****IE )@@G@@*** MASS STORAGE DISPLAY PROGRAM ******* IF )@@G@@@H@@@). ******* IG )@@G@@ ******* @H@@@). ******* WRITTEN BY NICK GRIMALDI - REP56 (1R1) IH )@@G@@ ******* @H@@@). ******* UPDATED BY LOU INFELD, 11/21/77 II )@@G@@ (2R1) ******* @H@@@). ******* UPDATED BY LOU INFELIJ )@@G@@D, 12/29/77 (2R2) ******* @H@@@). ******* UPDATED IK )@@G@@BY JOHN WICKHAM, 6/30/78 (2R3) ******* @H@@@). ****IL )@@G@@*** UPDATED BY LOU INFELD, 09/31/78 (3R1) ******* IM )@@G@@@H@@@). ******* UPDATED BY LOU INFELD, 12/18/78 (3R2) IN )@@G@@ ******* @H@@@-. ******* UPDATED BY LOU INFELD, 02/28/79 (3R3) IO )@@G@@ ******* @H@@@-. ******* UPDATED BY LOU INFELD, 03/13/79 IP )@@G@@ (3R4) ******* @H@@@+. ******* UPDATED BY LOU INFELIQ )@@G@@D, 04/20/79 (3R5) ******* @H@@@=. ******* UPDATED IR )@@G@@BY LOU INFELD, 06/27/79 (3R6) ******* @H@@@). ****IS )@@G@@*** ******* IT )@@G@@@H@@@). ******* PROGRAM WILL DISPLAY MASS STORAGE AVAILABILITY AND IU )@@G@@ ******* @H@@@). ******* THEN GENERATE TWO REPORTS OF ALL FILES SORTEIV )@@G@@D BY SUBSYSTEM ******* @H@@@). ******* AND UNIT AND THEN SORTED BY FILEIW )@@G@@-NAME. ******* @H@@@). ******* IX )@@G@@ ******* @H@@@). ******* AVAILABLIY )@@G@@E OPTIONS ******* @H@@@). ****IZ )@@G@@*** ----------------- ******* JA )@@G@@@H@@@). ******* JB )@@G@@ ******* @H@@@). ******* A - ONLY MASS STORAGE AVAILABILITY PRINTED JC )@@G@@ ******* @H@@@). ******* M - DON'T FREE MFD FILE (FOR FUTJD )@@G@@URE RE-USE OF MFD) ******* @H@@@). ******* JE )@@G@@ ******* @H@@@). ******* REVISIONJF )@@G@@ SUMMARY: ******* @H@@@). ****JG )@@G@@*** ---------------- ******* JH )@@G@@@H@@@). ******* JI )@@G@@ ******* @H@@@). ******* 1R1 - ORIGINAL RELEASE (REP56) JJ )@@G@@ ******* @H@@@). ******* 2R1 - REMOVE SORT CONSOLE P/O JK )@@G@@ ******* @H@@@). ******* - IDONLY$ JL )@@G@@ ******* @H@@@). ******* - DJM )@@G@@IAGNOSTIC MESSAGE FOR DIRECTORY TOO SMALL ******* @H@@@). ****JN )@@G@@*** - INTERNAL EBD$ ******* JO )@@G@@@H@@@). ******* - DON'T PRINT ON CONSOLE IF DEMAND RUN JP )@@G@@ ******* @H@@@). ******* 2R2 - ADD 8405-0 TO TABLE JQ )@@G@@ ******* @H@@@). ******* 2R3 - INCREASE SIZE OF CORE FORJR )@@G@@ SORT ******* @H@@@). ******* 3R1 - REWRITTEN FORJS )@@G@@ LEVELS 35 OR GREATER ******* @H@@@). ******* - UJT )@@G@@SE SYSLIB 74 ******* @H@@@). ****JU )@@G@@*** - ADD 'M' OPTION ******* JV )@@G@@@H@@@). ******* 3R2 - USE MSALL$ INSTEAD OF INFO$ FOR DEVICE NAME JW )@@G@@ ******* @H@@@). ******* - REWRITE FOR L33 ALSO JX )@@G@@ ******* @H@@@). ******* - ASSEMBLED WITH MASM JY )@@G@@ ******* @H@@@-. ******* 3R3 - ALLOW VARIABLJZ )@@G@@E BUFFER SIZE FOR MFDSP$ ******* @H@@@-. ******* 3R4 - AKA )@@G@@DD TOTALS TO REPORTS ******* @H@@@-. ****KB )@@G@@*** - CORRECT STATUS LOGIC FOR @F@@@) LJ )@@G@@ DS A4,RTYPE . SAVE RUN TYPE & OPTIONS @E@@@) LK )@@G@@ LMJ X11,IDONLY$ . GENERATE SIGN-ON @D@@@) PRLL )@@G@@INT$ IDBUFF,6 . PRINT SIGN-ON @D@@@) PRINT$ 0,0,LM )@@G@@1 . SKIP A LINE @A@@@) L,U A0,MSALLPKT LN )@@G@@@D@-@) TNZ L35 . *** REMOVE @D@@@) LO )@@G@@ MSCON$ . GET MSALL DATA@C@@@) JP LP )@@G@@ A0,CONT1 . ERROR? @E@@@) AND A0,(077,0) LQ )@@G@@ . YES, CHECK IF 027 @ @@@) TE A1,(027,0)@E@-@) LR )@@G@@ J ERR2 . NO, MSCON$ ERROR @E@@@- J LS )@@G@@ ERR1 . NO, MSCON$ ERROR @F@-@) J LT )@@G@@ ERR3 . YES, NMSALL TOO SMALL @F@@@- J LU )@@G@@ ERR2 . YES, NMSALL TOO SMALL @D@@@)CONT1 PRINT$ LV )@@G@@ HDG1,NHDG1 . PRINT HEADING @D@@@) PRINT$ 0,0,1 LW )@@G@@ . SKIP A LINE @E@@@) TZ L35 . IFLX )@@G@@ NOT LEVEL 35, @F@@@) J CONT3 . MOVE LDLY )@@G@@AT TO LOCAL LDAT @E@@@) L,H1 X7,MSALLPKT+2 . LENGTH OLZ )@@G@@F FATBL @D@@@) L,H2 X9,BUFF,X7 . LENGTH OF LDATMA )@@G@@@F@@@) A X7,(1,1) . PT TO 1ST ENTRY IN LDAT MB )@@G@@@G@@@) L X8,(1,1) . PT TO 1ST ENTRY IN LOCAL LMC )@@G@@DAT @E@@@)CONT2 E$DIT EPKT . CONVERT SS/U TO FD MD )@@G@@@ @-@) E$DECV BUFF,X7,T1@A@@@- E$DECF 2,BUFF,X7,ME )@@G@@T1 @^@@@) E$CHAR '/' @A@@@) L,S3 A0,BUFF,*XMF )@@G@@7 @^@@@) SSL A0,2@#@-@) E$DECV @^@@@- MG )@@G@@ E$DECF 2 @ @@@) L A0,OUT @F@@@) S MH )@@G@@ A0,LDAT,X8 . STORE IN LOCAL LDAT TABLE @ @@@) TLMI )@@G@@EM X8,X9 @ @@@) J CONT2 @[@@@). @F@@@)MJ )@@G@@. THIS NEXT SECTION CALCULATES MASS STORAGE AVAILABILITY @[@@@)MK )@@G@@. @H@@@). AS OF EXEC LEVEL 35 THE MSALL$ FORMAT CHANGED RADIML )@@G@@CALLY. IN ORDER @D@@@). TO HANDLE BOTH CASES, THE FOLLOWING LOMM )@@G@@GIC IS@F@@@). BROKEN UP INTO TWO CASES (LEVEL 35 AND PRE-LEVEL 3MN )@@G@@5). @[@@@). @G@@@). HERE IS A SUMMARY OF THE REGISTER USAGMO )@@G@@E IN THIS NEXT SECTION: @[@@@). @C@@@). X5 - POINTER TO EQUIMP )@@G@@P INDEX TABLE @A@@@). X6 - POINTER TO UNIT TABLE@F@@@). MQ )@@G@@ X7 - POINTER TO EQUIP MNEMONICS IN MCT (FOR EXEC < L35) @E@@@). MR )@@G@@ - POINTER TO EQUIP SUMMARY TABLE (FOR L35 OR >)@ @@@). X8MS )@@G@@ - LDAT INDEX @ @@@). X9 - # OF DEVICES -1@[@@@). @F@@@)MT )@@G@@CONT3 SZ NTRKS . CLEAR TOTAL AVAIL TRACKS @^@@@)MU )@@G@@ TNZ L35 @ @@@) J NOT35 @[@@@). MV )@@G@@@A@@@). LEVEL 35 OR GREATER CODE @[@@@). @G@@@) L MW )@@G@@ X5,(1,1) . INIT. PT TO EQUIP INDEX TABLE @D@@@) MX )@@G@@ L,H2 X9,BUFF . # OF DEVICES @^@=@) AN,U MY )@@G@@ X9,1@F@@@)LOOP1 L,H1 X6,BUFF,X5 . INIT. PT TO 1ST UNITMZ )@@G@@ TABLE@G@@@) L,H2 X7,BUFF,X5 . INIT. PT TO EQUIP SUNA )@@G@@MMARY TABLE @ @@@) A,U X7,BUFF+2 @D@@@)LOOP2 L,H1 NB )@@G@@ X8,BUFF,X6 . GET LDAT INDEX@F@@@) L A0,BUFF+1,NC )@@G@@X6 . AND STORE DEVICE NAME @E@@@) S A0,LDAT,X8ND )@@G@@ . IN LOCAL LDAT TABLE @E@@@) E$DIT EPKT NE )@@G@@ . INITIATE EDITOR @D@@@) E$FD1 LDAT,X8 . DENF )@@G@@VICE NAME @^@@@) E$COL 15 @ @@@) L,U A0,'NG )@@G@@UP' @C@@@) L A1,BUFF+2,X6 . STATUS @C@@@) NH )@@G@@ JZ A1,CONT4 . UP IF 0 @ @@@) L,U A0,'NI )@@G@@?' @ @@@) TEP A1,(1*/2) @A@@@) L A0,(NJ )@@G@@'DOWN') @ @@@) TEP A1,(1*/3) @A@@@) L NK )@@G@@ A0,('RESV') @ @@@) TEP A1,(1*/4) @A@@@) L NL )@@G@@ A0,('SUSP') @#@@@)CONT4 E$FD1 @^@@@) E$COL NM )@@G@@ 30 @E@@@) L A0,BUFF+010,X6 . AVAILABLE TRACKS NN )@@G@@@E@@@) AU A0,NTRKS . UPDATE TOTAL TRACKS @ @@@)NO )@@G@@ S A1,NTRKS @^@@@) E$DECF 6 @^@@@) NP )@@G@@ E$COL 48 @D@@@) L A0,0,*X7 . EQUIP MNNQ )@@G@@EMONIC@G@@@) L,H1 A1,BUFF,X5 . PRINT IF 1ST DEVICE NR )@@G@@OF THAT TYPE@ @@@) TNE A1,X6 @#@@@) E$FD1 NS )@@G@@@D@@@) E$PRINT . PRINT ENTRY @F@@@) NT )@@G@@ L,H2 X6,BUFF,X6 . PT TO NEXT UNIT TABLE @G@@@) NU )@@G@@ TZ X6 . WAS THAT THE LAST UNIT TABLE? @E@@@)NV )@@G@@ J LOOP2 . NO, PROCESS NEXT ONE@G@@@) NW )@@G@@ TLEM X5,X9 . ARE WE FINISHED EQUIP TABLES? @B@@@)NX )@@G@@ J LOOP1 . NO@ @@@) J AVAINY )@@G@@LTOT @[@@@). @ @@@). PRE-LEVEL 35 CODE @[@@@). @G@@@)NZ )@@G@@NOT35 L A0,MCT+027 . GET MNEMONIC TABLE ACW FROM MCT OA )@@G@@@E@@@) S A0,MCTPKT+1 . STORE IN MCT PACKET @H@@@)OB )@@G@@ MCT$P MCTPKT . GET MNEMONIC TABLE PORTION OF MCOC )@@G@@T @G@@@) L X5,(1,0) . INIT. PT TO EQUIP INOD )@@G@@DEX TABLE @G@@@) L X7,(1,MCT-2) . INIT. PT TO EQOE )@@G@@UIP MNEMONICS @H@@@) A,H1 X7,MSALLPKT+3 . ADVANCE OF )@@G@@TO FIRST MASS STORAGE DEVICE-1@E@@@) L,H2 X9,MSALLPKT+3 OG )@@G@@ . CALC # OF DEVICES @A@@@) AN,H1 X9,MSALLPKT+3 @F@@@)OH )@@G@@LOOP2A L,H1 X6,BUFF,X5 . INIT. PT TO 1ST UNIT TABLE@E@@@)OI )@@G@@ L X10,(1,0) . INIT. # OF UNITS @G@@@) OJ )@@G@@ L,T1 A0,BUFF,X6 . SAVE # OF UNITS IN EQUIP TYPE @^@@@)OK )@@G@@ AN,U A0,1@ @@@) S A0,NUNITS @F@@@) OL )@@G@@ A,U X7,1 . INCREMENT MNEMONIC POINTER@E@@@)LOOP2BOM )@@G@@ E$DIT EPKT . INITIATE EDITOR @G@-@) E$ON )@@G@@DECF 2,BUFF+4,X6,T1 . GENERATE SS/UU FROM UNIT TABLE @G@@@- OO )@@G@@ E$DECV BUFF+4,X6,T1 . GENERATE SS/UU FROM UNIT TABLE @^@@@)OP )@@G@@ E$CHAR '/' @A@@@) L,S3 A0,BUFF+4,X6 @^@@@)OQ )@@G@@ SSL A0,2@^@-@) E$DECF 2 @#@@@- E$OR )@@G@@DECV @^@@@) E$COL 15 @ @@@) L,U A0,'UP' OS )@@G@@@C@-@) L,S1 A1,BUFF+4,X6 . STATUS @C@@@- L,OT )@@G@@S1 A1,BUFF+3,X6 . STATUS @^@-@) SSL A1,1@^@@@-OU )@@G@@ SSL A1,4@ @@@) JZ A1,CONT5 @ @@@) OV )@@G@@ L,U A0,'?' @^@@@) TNE,U A1,1@A@@@) L OW )@@G@@ A0,('SUSP') @^@@@) TNE,U A1,2@A@@@) L OX )@@G@@ A0,('RESV') @^@@@) TNE,U A1,3@A@@@) L OY )@@G@@ A0,('DOWN') @#@@@)CONT5 E$FD1 @^@@@) E$COL OZ )@@G@@ 30 @D@-@) L,T3 A0,BUFF+5,X6 . AVAIL POS @E@-@)PA )@@G@@ MSI,U A0,64 . CONVERT TO TRACKS @E@-@) PB )@@G@@ A,H1 A0,BUFF+5,X6 . ADD IN AVAIL TRACKS @D@@@- L,PC )@@G@@H1 A0,BUFF+5,X6 . AVAIL TRACKS @E@@@) AU A0,NPD )@@G@@TRKS . UPDATE TOTAL TRACKS @ @@@) S A1,NTRKS PE )@@G@@@^@@@) E$DECF 6 @^@@@) E$COL 48 @D@@@) PF )@@G@@ L A0,0,X7 . EQUIP MNEMONIC@G@@@) L,H1 PG )@@G@@ A1,BUFF,X5 . PRINT IF 1ST DEVICE OF THAT TYPE@ @@@) TNPH )@@G@@E A1,X6 @#@@@) E$FD1 @D@@@) E$PRINT PI )@@G@@ . PRINT ENTRY @G@@@) A,U X6,5 PJ )@@G@@ . INCREMENT UNIT TABLE POINTER @F@@@) TLEM X10,NUNITSPK )@@G@@ . ANY MORE UNIT TABLES? @C@@@) J LOOP2B PL )@@G@@ . YES @G@@@) TLEM X5,X9 . ARE WE FPM )@@G@@INISHED EQUIP TABLES? @B@@@) J LOOP2A . NOPN )@@G@@@[@@@). @^@@@). PRINT TOTALS @[@@@). @E@@@)AVAILTOT E$PO )@@G@@DIT EPKT . PREPARE TOTAL LINE @ @-@) E$MSG PP )@@G@@ TOTAL @ @@@- E$MSG TOTMESS @^@@@) E$COL PQ )@@G@@ 30 @E@@@) E$DECF 6,NTRKS . TOTAL AVAIL TRKS PR )@@G@@@C@@@) E$PRINT 2 . PRINT @ @-@) ONPS )@@G@@ 1-TEST @ @@@- $IF 1-TEST @G@@@) COPT )@@G@@M$ OUT,60 . SEND SAME MESSAGE TO CONSOLE @#@-@) PU )@@G@@ OFF @#@@@- $ENDF @E@@@) L A0,OPT PV )@@G@@ . IF 'A' OPTION, STOP @B@@@) TEP A0,(1*/('Z'-'A')PW )@@G@@) @#@@@) EXIT$ @[@@@). @E@@@). THE FOLLOWING PX )@@G@@SECTION GENERATES THE FILE REPORTS @[@@@). @G@@@) FITEM$ PY )@@G@@ FPKT,7 . IS MFD FILE ALREADY ASSIGNED? @ @@@) TZPZ )@@G@@,S1 FPKT+6 @F@@@) J CONT8 . YES, SKIQA )@@G@@P MFD CHECKPOINT @F@@@)CONT7 E$DIT EPKT . GENERATEQB )@@G@@ @ASG FOR MFD FILE@^@@@) E$MSG ASG1@E@@@) E$DECV QC )@@G@@ DGETPKT+3 . # OF INIT TRACKS @#@@@) E$MSGR @E@@@)QD )@@G@@ CSF$ OUT . '@ASG,T DIRECTORY' @C@@@) QE )@@G@@ MSCON$ DGETPKT . GET MFD @D@@@) JP A0,CQF )@@G@@ONT8 . CHECK STATUS @F@-@) AND A0,(077,0) QG )@@G@@ . IF INITIAL RES TOO SMALL, @F@@@- AND A0,(077,0) QH )@@G@@ . IF INITIAL RES TOO SMALL, @F@@@) TE A1,(033,0) QI )@@G@@ . FREE FILE AND TRY AGAIN @E@@@) ERR$ QJ )@@G@@ . DIFFERENT ERROR @E@@@) CSF$ FREE1 . '@QK )@@G@@FREE DIRECTORY' @ @@@) J CONT7 @D@@@)CONT8 CSQL )@@G@@F$ ASG2 . '@ASG,T XA' @E@@@) CSF$ ASG3QM )@@G@@ . '@ASG,T R$CORE' @E@@@) R$NCDS QN )@@G@@ . DON'T COLLECT KPARCD@D@@@) R$OPN STBL1 QO )@@G@@ . INIT SORT @^@@@) L,U A0,0@E@@@) LMJ QP )@@G@@ X11,GETPSF$ . GET A SCRATCH FILE @#@@@) ERR$ @F@@@)QQ )@@G@@ DL A0,DGETPKT+1 . STORE NAME OF MFD FILE @E@@@)QR )@@G@@ DS A0,FBUFF1 . INTO MFDSP$ BUFFER@^@@@) QS )@@G@@ L,U A1,0@E@@@) J CONT12 . GET FIRSQT )@@G@@T LEAD ITEM @B@-@)LOOP3 L A0,(NFBUFF1,FBUFF1) @ @@@-LOOP3 QU )@@G@@ L A0,MFDACW @^@@@) L,U A1,4@E@@@) LMQV )@@G@@J X11,MFDSP$ . GET NEXT MAIN ITEM @#@+@) ERR$ QW )@@G@@@^@@@+ J ERR3@F@@@) JZ A1,CONT11 QX )@@G@@ . CHECK IF OUT OF MAIN ITEMS@F@@@) DL A2,1,A1 QY )@@G@@ . MOVE QUAL TO SORT BUFFER @ @@@) DS A2,BUFF @D@@@)QZ )@@G@@ DL A2,3,A1 . MOVE FILE-NAME@ @@@) DSRA )@@G@@ A2,BUFF+2 @^@@@- $IF TEST@D@@@- L RB )@@G@@ A0,TCOND . CONDITION WORD@D@@@- TE A0,(030000RC )@@G@@) . IS IT = 3? @B@@@- J ETEST1 . NORD )@@G@@@F@@@- DTE A2,TESTFNAME . YES, IS MI FOR TEST FILE? RE )@@G@@@B@@@- J ETEST1 . NO@F@@@-$(0),TESTFNAME RF )@@G@@ ' ' . STORE TEST FILE-NAME HERE @D@@@-$(1) SLJ RG )@@G@@ TON$ . CALL SNOOPY @[@@@-ETEST1@#@@@- $ENDF RH )@@G@@@E@@@) L,T3 A2,17,A1 . MOVE ABS CYCLE # @ @@@)RI )@@G@@ S A2,BUFF+4 @E@@@) SZ BUFF+5 RJ )@@G@@ . INIT # OF GRANULES @F@@@- L A2,10,A1 . UNRK )@@G@@LOAD OR LAST WRITE TIME @ @@@- S A2,BUFF+6 @E@-@) RL )@@G@@ SZ BUFF+6 . INIT UNLOAD INFO @E@@@) SZRM )@@G@@ BUFF+7 . INIT DEVICE NAME @F@@@- L,T1 RN )@@G@@ A2,12,A1 . MOVE DESCRIPTOR FLAGS @E@@@- S,T1 RO )@@G@@ A2,BUFF+4 . STORE IN SORT BUFFER@E@@@) TN 12,ARP )@@G@@1 . IS FILE UNLOADED? @B@-@) J $+3 RQ )@@G@@ . NO@B@@@- J CONT9 . NO@ @@@- RR )@@G@@ L A0,MFDACW @^@@@- L,U A1,5@F@@@- LMRS )@@G@@J X11,MFDSP$ . GET SECTOR 1 OF MAIN ITEM @#@+@- ERRT )@@G@@R$ @^@@@+ J ERR3@F@@@- L,H2 A0,9,A1 RU )@@G@@ . # OF BACKUP TAPE BLOCKS @G@@@- TZ A1 RV )@@G@@ . MAKE SURE THERE IS A SECTOR 1 @G@@@- S A0,BRW )@@G@@UFF+5 . STORE INSTEAD OF # OF TRACKS @H@@@) SLJ RX )@@G@@ OUTPUT . OUTPUT PARTIAL DATA TO SORT AND SCRAT @ @@@) RY )@@G@@ J LOOP3 @ @-@) L A2,12,A1 @E@-@) RZ )@@G@@ TOP A2,(1*/29) . IS FILE A TAPE? @E@@@-CONT9 TOSA )@@G@@P,U A2,040 . IS FILE A TAPE? @B@@@) J SB )@@G@@ $+3 . NO@H@@@) SLJ OUTPUT . OUSC )@@G@@TPUT PARTIAL DATA TO SORT AND SCRAT @ @@@) J LOOP3 SD )@@G@@@D@-@) AND A2,(1*/34) . BACKED UP FLAG@ @-@) SE )@@G@@ S A3,BUFF+6 @G@@@) L,U A1,6 . GESF )@@G@@T 1ST DAD TABLE FOR THIS FILE @^@@@) J $+2 @G@@@)LOOP4 SG )@@G@@ L,U A1,7 . GET NEXT DAD TABLE FOR THIS FILE@B@-@)SH )@@G@@ L A0,(NFBUFF1,FBUFF1) @ @@@- L A0,MSI )@@G@@FDACW @ @@@) LMJ X11,MFDSP$@#@+@) ERR$ @^@@@+SJ )@@G@@ J ERR3@G@@@) TZ A1 . DISK )@@G@@D WE RUN OUT OF DAD TABLES? @B@@@) J $+3 SL )@@G@@ . NO@F@@@) SLJ OUTPUT . YES, OUTPUT LAST BUFSM )@@G@@FER @D@@@) J LOOP3 . GET NEXT FILE @E@@@)SN )@@G@@ A A1,(3,4) . PT TO 1ST LDAT INDEX@E@@@)LOOP5 SO )@@G@@ L,H2 A0,2,A1 . NEXT LDAT INDEX @F@@@) TESP )@@G@@P A0,(0400000) . IS FILE AREA ALLOCATED? @E@-@) J SQ )@@G@@ CONT10 . NO, SKIP THIS ENTRY @E@@@- J SR )@@G@@ CONT10A . NO, SKIP THIS ENTRY @H@@@) L A0,LSS )@@G@@DAT,A0 . GET CORRESPONDING DEVICE NAME OR SS/U @G@@@) TNST )@@G@@Z BUFF+7 . IF 1ST LDAT, STORE IN BUFFER @ @@@) SU )@@G@@ S A0,BUFF+7 @H@@@) TNE A0,BUFF+7 . HASV )@@G@@S LDAT CHANGED SINCE LAST ENTRY? @E@@@) J CONT10 SW )@@G@@ . NO, DON'T OUTPUT @G@@@) SLJ OUTPUT SX )@@G@@ . OUTPUT DATA TO SORT AND SCRAT @E@@@) SZ BUFF+7 SY )@@G@@ . CLEAR DEVICE NAME @E@@@) SZ BUFF+5 SZ )@@G@@ . CLEAR TRACK COUNT @G@@@) J LOOP5 . PRTA )@@G@@OCESS THIS DAD ENTRY AGAIN @F@@@)CONT10 SZ A2 TB )@@G@@ . CALCULATE # OF TRACKS FROM@F@@@) L A3,1,A1 TC )@@G@@ . FROM # OF WORDS IN DAD @ @@@) DI,U A2,1792 @H@@@)TD )@@G@@ A A2,BUFF+5 . ADD TO TRACK COUNT IN SORT BUFFETE )@@G@@R @ @@@) S A2,BUFF+5 @C@-@) L,H1 A0,2TF )@@G@@,*A1 . DAD FLAG@C@@@-CONT10A L,H1 A0,2,*A1 . DATG )@@G@@D FLAG@F@@@) TEP,U A0,4 . IS THIS LAST DAD ENTTH )@@G@@RY? @F@@@) J LOOP4 . YES, GET NEXT DAD TATI )@@G@@BLE @F@@@) J LOOP5 . NO, GET NEXT DAD ENTTJ )@@G@@RY @^@@@)CONT11 L,U A1,2@B@-@)CONT12 L A0,(NFBUFFTK )@@G@@1,FBUFF1) @ @@@-CONT12 L A0,MFDACW @E@@@) LMJ TL )@@G@@ X11,MFDSP$ . GET NEXT LEAD ITEM @#@-@) ERR$ @^@@@-TM )@@G@@ J ERR3@F@@@) JNZ A1,LOOP3 . CHTN )@@G@@ECK IF FINISHED MFD SCAN@C@@@) R$SORT . SOTO )@@G@@RT @F@@@) SZ BUFF . WRITE END-DATA TO SCTP )@@G@@RATCH @^@@@) I$OW SPKT@D@@@) SZ SPKT+5 TQ )@@G@@ . REWIND SCRATCH@E@@@) PRTCN$ PCN1,NPCN1 . GETR )@@G@@NERATE HEADING @ @@@) SZ LNAME @F@@@)LOOP6 R$TS )@@G@@RET CONT13 . GET NEXT SORTED RECORD @D@@@) S TT )@@G@@ A0,X5 . SAVE ADDRESS @G@-@) L A0,(TU )@@G@@PF 1,NDASHES,DASHES) . IF DEVICE NAME CHANGED, @F@-@) L TV )@@G@@ A1,7,X5 . PRINT A LINE OF DASHES @ @@@- L TW )@@G@@ A1,7,X5 @ @-@) TE A1,LNAME @F@@@- TNE TX )@@G@@ A1,LNAME . DID DEVICE NAME CHANGE ? @#@-@) PRINT$ TY )@@G@@@B@@@- J CONT12A . NO@E@@@- S TZ )@@G@@ A1,LNAME . UPDATE DEVICE NAME @E@@@- TNZ TFILUA )@@G@@ES . ANY FILES PROCESSED?@B@@@- J CONT12A UB )@@G@@ . NO@E@@@- PRINT$ DASHES,NDASHES . YES, PRINT DASUC )@@G@@HES @D@@@- SLJ PTOTAL . PRINT TOTALS @D@@@-UD )@@G@@ PRINT$ DASHES,NDASHES. YES, PRINT DASHES @^@@@- L,UE )@@G@@U X1,7@D@@@- SZ TFILES,X1 . ZERO TOTALS UF )@@G@@@ @@@- JGD X1,$-1 @E@-@) S A1,LNAME UG )@@G@@ . UPDATE DEVICE NAME @E@-@) SLJ PLINE UH )@@G@@ . PRINT NEXT FILE LINE@E@@@-CONT12A SLJ PLINE . PRUI )@@G@@INT NEXT FILE LINE@ @@@) J LOOP6 @F@@@)CONT13 R$UJ )@@G@@OPN STBL2 . OPEN SORT FOR NEXT REPORT @G@@@) L,UK )@@G@@U A0,R$ . GET I/O PKT READY FOR READING @ @@@) UL )@@G@@ S,S2 A0,SPKT+3 @G@@@)LOOP7 I$OW SPKT . REUM )@@G@@AD NEXT RECORD FROM SCRATCH @D@@@) TNZ BUFF UN )@@G@@ . END-DATA? @C@@@) J CONT14 . YES UO )@@G@@@F@@@) L A0,SPKT+5 . UPDATE SECTOR ADDRESS UP )@@G@@@^@@@) A,U A0,1@ @@@) S A0,SPKT+5 @ @@@)UQ )@@G@@ L,U A0,BUFF @E@@@) R$REL UR )@@G@@ . NO, RELEASE TO SORT @ @@@) J LOOP7 @C@@@)CONT14US )@@G@@ R$SORT . SORT @E@@@) PRTCN$ PCN2UT )@@G@@,NPCN2 . GENERATE NEW HEADING@^@@@- L,U X1,7@D@@@-UU )@@G@@ SZ TFILES,X1 . ZERO TOTALS @ @@@- JGUV )@@G@@D X1,$-1 @F@@@)LOOP8 R$RET CONT15 . GET NEXTUW )@@G@@ SORTED RECORD @D@@@) S A0,X5 . SAVE ADDUX )@@G@@RESS @E@@@) SLJ PLINE . PRINT FILE LINE UY )@@G@@@ @@@) J LOOP8 @G@@@)CONT15 L,U A0,FREE1 UZ )@@G@@ . FREE MFD FILE IF NO 'M' OPTION @ @@@) L A1,OVA )@@G@@PT @B@@@) TOP A1,(1*/('Z'-'M')) @#@@@) CSVB )@@G@@F$ @D@@@- PRINT$ 0,0,1 . SKIP LINE @D@@@-VC )@@G@@ SLJ PTOTAL . PRINT TOTALS @D@@@- PRVD )@@G@@TCN$ ('H,N '),1 . CLEAR HEADING @#@@@) EXIT$ @H@@@)VE )@@G@@. **********************************************************************VF )@@G@@**** @H@-@). ******* OUTPUT TO SORT AND SCRATCH SUBROUTINE VG )@@G@@ ******* @H@@@-. ******* OUTPUT TO SORT AND SCRATCH SUBROUTINE VH )@@G@@ ******* @H@@@). **********************************VI )@@G@@**************************************** @^@@@)OUTPUT + 0 VJ )@@G@@@E@@@) L,U A0,BUFF . RELEASE SORT BUFFER @#@@@)VK )@@G@@ R$REL @E@@@) I$OW SPKT . RELEASE VL )@@G@@TO SCRATCH @F@@@) L A0,SPKT+5 . UPDATE SECTOR VM )@@G@@ADDRESS @^@@@) A,U A0,1@ @@@) S A0,SVN )@@G@@PKT+5 @C@@@) J *OUTPUT . RETURN @H@@@). ****VO )@@G@@********************************************************************** VP )@@G@@@H@@@). ******* PRINT FILE LINE SUBROUTINE VQ )@@G@@ ******* @H@@@). ******* VR )@@G@@ ******* @H@@@). ******* X5 - ADDRESS OF INPUT BUFFER VS )@@G@@ ******* @H@@@). ******* VT )@@G@@ ******* @H@@@). ****************VU )@@G@@********************************************************** @]@-@)PLINE VV )@@G@@ +0@^@@@-PLINE + 0 @G@@@) E$DIT EPKT VW )@@G@@ . GENERATE NEXT LINE OF REPORT @C@@@) E$FD2 0,X5VX )@@G@@ . QUAL @^@@@) E$COL 13 @D@@@- DLVY )@@G@@ A0,2,X5 . FILE-NAME @^@@@- $IF TESTVZ )@@G@@@D@@@- L A2,TCOND . CONDITION WORD@D@@@- WA )@@G@@ TE A2,(030000) . IS IT = 3? @B@@@- J WB )@@G@@ ETEST2 . NO@G@@@- DTE A0,TESTFNAME . YEWC )@@G@@S, IS LINE FOR TEST FILE? @B@@@- J ETEST2 WD )@@G@@ . NO@D@@@- SLJ TON$ . CALL SNOOPY @[@@@-WE )@@G@@ETEST2@#@@@- $ENDF @D@-@) E$FD2 2,X5 WF )@@G@@ . FILE-NAME @#@@@- E$FD2 @^@@@) L,U A0,1WG )@@G@@@E@-@) TNE A0,4,X5 . IF CYCLE NOT 1, EDIT@E@@@-WH )@@G@@ TNE,T3 A0,4,X5 . IF CYCLE NOT 1, EDIT@ @@@) WI )@@G@@ J PLINE1 @^@@@) E$CHAR '(' @^@-@) E$WJ )@@G@@DECV 4,X5@ @@@- E$DECV 4,X5,T3 @^@@@) E$CHAR WK )@@G@@ ')' @E@-@)PLINE1 TNZ 5,X5 . IS FILE UNLOADED? WL )@@G@@@B@-@) J PLINE2 . NO@^@-@) E$COL WM )@@G@@ 32 @^@@@-PLINE1 E$COL 32 @ @-@) E$DECF 5,5,X5 WN )@@G@@@D@@@- E$DECF 5,5,X5 . # OF TRACKS @^@@@- WO )@@G@@ SZ X4 @G@@@- SLJ TOTAL . UPDATE TWP )@@G@@OTAL FILES AND TRACKS @^@-@) E$SKIP 3 @ @-@) L,WQ )@@G@@U A0,'*' @D@-@) TZ,H1 6,X5 . BACKED UWR )@@G@@P FLAG@E@@@- L,T1 A5,4,X5 . DESCRIPTOR FLAGS WS )@@G@@@E@@@- TOP,U A5,02000 . IS FILE BACKED UP? @B@@@-WT )@@G@@ J PLINE2 . NO@E@@@- E$COL 47 WU )@@G@@ . YES, INSERT '*' @^@@@- E$CHAR '*' @^@@@-WV )@@G@@ L,U X4,1@I@@@- SLJ TOTAL . UPWW )@@G@@DATE TOTALS FOR SECURED FILES & TRACKS @E@@@- TP 4,X5WX )@@G@@ . IS FILE UNLOADED? @C@@@- J PLINE3 WY )@@G@@ . YES @#@-@) E$CHAR @^@-@) E$COL 52 WZ )@@G@@@^@@@-PLINE2 E$COL 52 @D@-@) E$FD1 7,X5 XA )@@G@@ . LOGICAL DEVICE@D@@@- E$FD1 7,X5 . LOGICAL XB )@@G@@DEVICE@^@-@)PLINE2 E$COL 59 @^@@@- E$COL 59 @ @-@)XC )@@G@@ L,U A0,MSG5 @E@-@) TNZ 5,X5 XD )@@G@@ . IS FILE UNLOADED? @F@-@) J $+3 . EDXE )@@G@@IT UNLOADED MESSAGE @ @-@) L,U A0,MSG4 @D@@@- XF )@@G@@ TOP,U A5,02000 . BACKED UP? @B@@@- J XG )@@G@@ PLINE4 . NO@E@-@) TZ,H2 6,X5 . UPXH )@@G@@DATE TIME OR 0 @F@@@- TNZ 6,X5 . YES, IS XI )@@G@@UPDATE TIME 0 ? @#@-@) E$MSG @C@@@- J PLINXJ )@@G@@E4 . YES @F@@@- E$MSG MSG4 . NOXK )@@G@@, 'BACKUP NOT CURRENT' @^@@@- L,U X4,2@I@@@- SLXL )@@G@@J TOTAL . UPDATE TOTALS FOR UPDATED FILES & TRACKS XM )@@G@@@ @@@- J PLINE4 @^@@@-PLINE3 E$COL 59 @D@@@-XN )@@G@@ E$MSG MSG5 . 'UNLOADED' @^@@@- L,XO )@@G@@U X4,3@I@@@- SLJ TOTAL . UPDATE TOTALS XP )@@G@@FOR UNLOADED FILES & TRACK @D@-@) E$PRINT XQ )@@G@@ . PRINT LINE @D@@@-PLINE4 E$PRINT . PRINT LIXR )@@G@@NE @C@@@) J *PLINE . RETURN @H@@@-. ****XS )@@G@@********************************************************************** XT )@@G@@@H@@@-. ******* UPDATE TOTALS SUBROUTINE XU )@@G@@ ******* @H@@@-. ******* XV )@@G@@ ******* @H@@@-. ******* X4 - INDEX INTO TOTAL TABLES XW )@@G@@ ******* @H@@@-. ******* XX )@@G@@ ******* @H@@@-. ****************XY )@@G@@********************************************************** @^@@@-TOTAL XZ )@@G@@ + 0 @E@@@- L A0,TFILES,X4 . INCREMENYA )@@G@@T FILES BY 1@^@@@- A,U A0,1@A@@@- S A0,TYB )@@G@@FILES,X4 @D@@@- L A0,5,X5 . # OF TRACKS YC )@@G@@@E@@@- A A0,TTRKS,X4 . ADD TO TOTAL TRACKS @A@@@-YD )@@G@@ S A0,TTRKS,X4 @C@@@- J *TOTAL YE )@@G@@ . RETURN @H@@@-. **********************************************YF )@@G@@**************************** @H@@@-. ******* PRINT TOTALS SUBROUTINE YG )@@G@@ ******* @H@@@-. **********************YH )@@G@@**************************************************** @^@@@-PTOTAL + YI )@@G@@ 0 @E@@@- E$DIT EPKT . INITIATE EDITOYJ )@@G@@R @E@@@- E$MSG TMESS1 . TOTAL FILES & TRACKSYK )@@G@@@D@@@- E$DECF 5,TFILES . TOTAL FILES @#@@@- YL )@@G@@ E$MSGR @D@@@- E$DECF 6,TTRKS . TOTAL TRACKS YM )@@G@@@C@@@- E$PRINT . PRINT @E@@@- TNYN )@@G@@Z SFILES . ANY SECURED FILES ? @B@@@- J YO )@@G@@ PTOTAL1 . NO@E@@@- E$DIT EPKT . INYP )@@G@@ITIATE EDITOR @F@@@- E$MSG TMESS2 . SECURED YQ )@@G@@FILES & TRACKS @D@@@- E$DECF 5,SFILES . SECURED YR )@@G@@FILES @#@@@- E$MSGR @D@@@- E$DECF 6,STRKS YS )@@G@@ . SECURED TRACKS@^@@@- E$SKIP 1 @ @@@- L,U YT )@@G@@ A5,155 @G@@@- LCF A5,TTRKS . CONVERT TOTAL YU )@@G@@TRACKS TO F.P. @E@@@- L A5,(100.0) . CALCULATYV )@@G@@E 100./TTRKS@ @@@- FD A5,A6 @ @@@- L,U YW )@@G@@ A0,155 @G@@@- LCF A0,STRKS . CONVERT SECUREYX )@@G@@D TRACKS TO F.P. @E@@@- FM A1,A5 . CALC % OYY )@@G@@F TOTAL @C@@@- E$FLG1 7*/6+3 . EDIT @^@@@-YZ )@@G@@ E$SKIP -3 @^@@@- E$CHAR '%' @C@@@- E$ZA )@@G@@PRINT . PRINT @E@@@-PTOTAL1 TNZ UFILES ZB )@@G@@ . ANY UPDATED FILES ? @B@@@- J PTOTAL2 ZC )@@G@@ . NO@E@@@- E$DIT EPKT . INITIATE EDITOR ZD )@@G@@@F@@@- E$MSG TMESS3 . UPDATED FILES & TRACKS ZE )@@G@@@D@@@- E$DECF 5,UFILES . UPDATED FILES @#@@@- ZF )@@G@@ E$MSGR @D@@@- E$DECF 6,UTRKS . UPDATED TRACKSZG )@@G@@@^@@@- E$SKIP 1 @ @@@- L,U A0,155 @G@@@-ZH )@@G@@ LCF A0,UTRKS . CONVERT UPDATED TRACKS TO F.P. ZI )@@G@@@E@@@- FM A1,A5 . CALC % OF TOTAL @C@@@-ZJ )@@G@@ E$FLG1 7*/6+3 . EDIT @^@@@- E$SKIP ZK )@@G@@ -3 @^@@@- E$CHAR '%' @C@@@- E$PRINT ZL )@@G@@ . PRINT @E@@@-PTOTAL2 TNZ UNFILES . ANY UNLOZM )@@G@@ADED FILES ?@D@@@- J *PTOTAL . NO, RETURN ZN )@@G@@@E@@@- E$DIT EPKT . INITIATE EDITOR @F@@@-ZO )@@G@@ E$MSG TMESS4 . UNLOADED FILES & TRACKS @D@@@-ZP )@@G@@ E$DECF 5,UNFILES . UNLOADED FILES@#@@@- E$ZQ )@@G@@MSGR @E@@@- E$DECF 6,UNTRKS . UNLOADED TRACKS ZR )@@G@@@^@@@- E$SKIP 1 @ @@@- L,U A0,155 @G@@@-ZS )@@G@@ LCF A0,UNTRKS . CONVERT UNLOADED TRACKS TO F.P. ZT )@@G@@@E@@@- FM A1,A5 . CALC % OF TOTAL @C@@@-ZU )@@G@@ E$FLG1 7*/6+3 . EDIT @^@@@- E$SKIP ZV )@@G@@ -3 @^@@@- E$CHAR '%' @C@@@- E$PRINT ZW )@@G@@ . PRINT @C@@@- J *PTOTAL . RETURN ZX )@@G@@@H@@@-. ****************************************************************ZY )@@G@@********** @D@-@)ERR2 S A0,STATUS . SAVE STATUS ZZ )@@G@@@D@@@-ERR1 S A0,STATUS . SAVE STATUS @^@@@) AA )@@G@@ E$DIT EPKT@E@@@) E$MSG MSG2 . 'MSCON$ AB )@@G@@ERROR ....' @ @@@) E$OCTF 12,STATUS @#@@@) E$MSGR AC )@@G@@@#@@@) E$PRINT @#@@@) ERR$ @^@-@)ERR3 E$DIT AD )@@G@@ EPKT@^@@@-ERR2 E$DIT EPKT@H@@@) E$MSG MSG3 AE )@@G@@ . 'INCREASE PARAMETER ''NMSALL'' ....' @ @@@) E$DECV AF )@@G@@ NMSALL,,U @#@@@) E$MSGR @#@@@) E$PRINT @#@@@) AG )@@G@@ ERR$ @H@+@-ERR3 TE,U A2,2 . IF BUFFER TO SAH )@@G@@MALL, USE VALUE GIVEN @#@+@- ERR$ @ @+@- S,H1 AI )@@G@@ A5,MFDACW @^@+@- SZ A1 @ @+@- J CONTAJ )@@G@@12 @F@@@+ERR3 TE,U A2,2 . IS ERROR BUFFER TOO AK )@@G@@SMALL?@F@@@+ J ERR3A . NO, ANOTHER MFDSP$ EAL )@@G@@RROR @F@@@+ S,H1 A5,MFDACW . STORE BUFFER SIZE INAM )@@G@@ ACW @^@@@+ SZ A1 @D@@@+ J CONT12 AN )@@G@@ . TRY AGAIN @G@@@+ERR3A DS A0,TEMP . MFAO )@@G@@DSP$ ERROR - PRINT WARNING @D@@@+ DS A2,TEMP+2 AP )@@G@@ . SAVE REGISTERS@D@@@+ E$DIT EPKT . EDIT MESAQ )@@G@@SAGE @^@@@+ E$MSG MSG6@D@@@+ E$OCTV TEMP+2 AR )@@G@@ . ERROR CODE @#@@@+ E$MSGR @F@@@+ E$PRINT AS )@@G@@ 2 . PRINT ERROR DIAGNOSTIC @E@@@+ CSF$ AT )@@G@@ LOG,22 . LOG ERROR DIAGNOSTIC@D@@@+ DL A0,TAU )@@G@@EMP . RESTORE A0-A3 @ @@@+ DL A2,TEMP+2 @H@@@+AV )@@G@@ S,H2 A1,$+6 . STORE ITEM ADDRESS IN SNAP PACKEAW )@@G@@T @E@@@+ L$SNAP 'MITEM',2,28,$-$ . SNAP ITEM BUFFER AX )@@G@@@E@@@+ J CONT11 . GET NEXT LEAD ITEM @H@@@-AY )@@G@@. **********************************************************************AZ )@@G@@**** @[@@@)$(0) @ @-@)PF FORM 12,6,18 @^@-@)RTYPE REBA )@@G@@S 2 @^@@@-RTYPE $RES 2 @ @-@)OPT EQU RTYPBB )@@G@@E+1 @ @@@-OPT $EQU RTYPE+1 @ @@@)MSALLPKT + 1,MSBC )@@G@@ALL$ @A@@@) + NMSALL,BUFF @^@-@) RES BD )@@G@@ 3 @^@@@- $RES 3 @I@-@). BUFF RES NMSALL BE )@@G@@ . **** USE TEST BUFF FOR TESTING UNDER 33 @ @@@-BUFF $RBF )@@G@@ES NMSALL @ @-@)LDAT RES 2*NDEVICES@ @@@-LDAT $RBG )@@G@@ES 2*NDEVICES@ @-@)EPKT E$PKT 13,OUT @ @@@-EPKT E$BH )@@G@@PKTF 22,OUT @^@-@)OUT RES 13 @E@@@+LOG '@LOG' BI )@@G@@ . MUST PRECEDE 'OUT' @^@@@-OUT $RES 22 BJ )@@G@@@^@-@)STATUS RES 1 @^@@@-STATUS $RES 1 @G@@@)HDG1 BK )@@G@@ 'DEVICE STATUS AVAIL TRKS EQUIPMENT' @ @-@)BL )@@G@@NHDG1 EQU $-HDG1 @ @@@-NHDG1 $EQU $-HDG1 @A@-@)BM )@@G@@TOTAL 'TOTALS FOR UP UNITS &' @A@@@-TOTMESS 'TOTALS FOR UP UNITSBN )@@G@@ &' @^@-@)NTRKS RES 1 @^@@@-NTRKS $RES 1 @B@@@)BO )@@G@@ASG1 '@ASG,T DIRECTORY,F4/&//5000&' @A@@@)ASG2 '@ASG,T XA,F4/BP )@@G@@//200 . ' @A@@@)ASG3 '@ASG,T R$CORE,F///10 . ' @ @@@)DGETPKT + BQ )@@G@@ DGET$ @^@@@) 'DIRECTORY' @^@@@) + BR )@@G@@ $-$ @A@@@) + FBUFF1,FBUFF2 @ @-@)FBUFF1 RES BS )@@G@@ 2*1792+320@ @@@-FBUFF1 $RES 2*1792+500@ @-@)NFBUFF1 EQU BT )@@G@@ $-FBUFF1 @A@-@)FBUFF2 EQU FBUFF1+1792 @A@@@-FBUFF2 $EBU )@@G@@QU FBUFF1+1792 @ @-@)MCT EQU FBUFF1 @ @@@-MCT BV )@@G@@ $EQU FBUFF1 @ @@@-MFDACW + 200,FBUFF1@ @@@)FREE1 BW )@@G@@ '@FREE DIRECTORY . '@E@@@)STBL1 R$FILE 'KEYW',8,35,36,'A','A'BX )@@G@@ ; DEVICE NAME @D@@@) 'KEYW',1,35,72,'A','A' ; QUABY )@@G@@L @D@@@) 'KEYW',3,35,72,'A','A' ; FILE-NAME@D@@@)BZ )@@G@@ 'KEYW',5,35,36,'U','A' ; CYCLE @A@@@) CA )@@G@@ 'COPY',STCOM @D@@@)STBL2 R$FILE 'KEYW',1,35,72,'A','A'CB )@@G@@ ; QUAL @D@@@) 'KEYW',3,35,72,'A','A' ; FILE-NAMECC )@@G@@@D@@@) 'KEYW',5,35,36,'U','A' ; CYCLE @E@@@) CD )@@G@@ 'KEYW',8,35,36,'A','A' ; DEVICE NAME @A@@@) CE )@@G@@ 'COPY',STCOM @ @@@)STCOM R$FILE 'RSZW',8 ;@A@@@) CF )@@G@@ 'FILES','XA' ; @ @@@) 'DELCON' ;@ @@@)CG )@@G@@ 'NOTAPE' ;@ @@@) 'NODISK' @I@-@)CH )@@G@@PCN1 'L,1.H,,1,QUALIFIER FILE-NAME SIZE SECURED(*) DCI )@@G@@EVICE'; @I@@@-PCN1 'L,1.H,,1,QUALIFIER FILE-NAME SCJ )@@G@@IZE SECURED(*) DEVICE'; @B@@@) ' SORTED BY DEVICE NAMCK )@@G@@E . ' @ @-@)NPCN1 EQU $-PCN1 @ @@@-NPCN1 $EQU $-PCCL )@@G@@N1 @I@-@)PCN2 'L,1.H,,1,QUALIFIER FILE-NAME SIZE CM )@@G@@SECURED(*) DEVICE'; @I@@@-PCN2 'L,1.H,,1,QUALIFIER FILE-NAMECN )@@G@@ SIZE SECURED(*) DEVICE'; @B@-@) ' SORTED BCO )@@G@@Y DEVICE NAME . ' @B@@@- ' SORTED BY FILE NAME . ' @ @-@)CP )@@G@@NPCN2 EQU $-PCN2 @ @@@-NPCN2 $EQU $-PCN2 @^@-@)CQ )@@G@@LNAME RES 1 @^@@@-LNAME $RES 1 @^@@@+TEMP $RCR )@@G@@ES 4 @D@@@)MSG2 'MSCON$ ERROR & RESULTED FROM MSALL CALL&' CS )@@G@@@E@@@)MSG3 'INCREASE PARAMETER ''NMSALL'' (PRESENTLY = &)&' @A@-@)CT )@@G@@MSG4 'UPDATED SINCE SAVED&' @A@@@-MSG4 ' BACKUP NOT CURRCU )@@G@@ENT&' @^@-@)MSG5 'UNLOADED&' @ @@@-MSG5 ' UNLOADED&' CV )@@G@@@F@@@+MSG6 'MFDSP$ ERROR & ENCOUNTERED, PROCESSING CONTINUED&' CW )@@G@@@^@@@)FPKT 'DIRECTORY' @^@-@) RES 7 @^@@@- CX )@@G@@ $RES 7 @A@@@)SPKT I$OD 'PSF$',W$ 9,BUFF@H@-@)DASHESCY )@@G@@ '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' CZ )@@G@@@^@@@-DASHES $SR('- ',41) @ @-@)NDASHES EQU $-DASHES @ @@@-DA )@@G@@NDASHES $EQU $-DASHES @^@-@)NUNITS RES 1 @^@@@-NUNITSDB )@@G@@ $RES 1 @A@@@)MCTPKT MCT$PKT MCT,3,0,030 @[@-@)$(2) DC )@@G@@@G@-@)L35* + 1 . ***** FOR 36 TESTING ON 33DD )@@G@@ EXEC @^@@@-L35 $RES 1 @ @-@) END START DE )@@G@@@^@@@-TFILES $RES 8 @ @@@-SFILES $EQU TFILES+1 @ @@@-DF )@@G@@UFILES $EQU TFILES+2 @ @@@-UNFILES $EQU TFILES+3 @ @@@-DG )@@G@@TTRKS $EQU TFILES+4 @ @@@-STRKS $EQU TFILES+5 @ @@@-DH )@@G@@UTRKS $EQU TFILES+6 @ @@@-UNTRKS $EQU TFILES+7 @D@@@-DI )@@G@@TMESS1 'TOTAL FILES = & , TOTAL TRACKS = &' @D@@@-TMESS2 'SDJ )@@G@@ECURED FILES = & , SECURED TRACKS = &' @D@@@-TMESS3 'UPDATED FILEDK )@@G@@S = & , UPDATED TRACKS = &' @D@@@-TMESS4 'UNLOADED FILES = & , UNLODL )@@G@@ADED TRACKS = &' @ @@@- $END START ___REGISTERS@D@@@+DM )@@G@@ E$DIT EPKT . EDIT MESSAGE @^@@@+ E$DN )@@G@@MSG MSG6@D@@@+ ^@)^[KDD#^[S^@)^@)^[^DDNE[GCDT *1 0):@@@^O@J@@@@DO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[ F[KD9ME)!D-DCS)^@)^@)^@)^@)^[KDD#^[S @6 C)DP )@@G@@^[^DDNE[GCDT *1 0):@@@^P@C@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[DD1QD9DCT (IDQ )@@G@@D8,^@):@@@^Q@G@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1A*)^[DD1QD9DCT (IE(HCL DR )@@G@@EK!E[MC(ADDS^@)^@):@@@^R@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DS )@@G@@^@)^@)^@)^@)^@)^[KDD#^[S^@)^@)^[^DDNE[GCDT *1 0):@@@^S@F@@@@^@)^@)^@)^@)DT )@@G@@^@)^@)^@)^@)^@)^@1A*)^[DD1QD9DCT (IE(HCL EK!D([DDI^@):@@@^T@J@@@@^@)^@)DU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @5 C)^[^DDNDV )@@G@@E[GCDT *1 0):@@@^U@D@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[DD1QD9DCT (^CDOC*,DW )@@G@@^@)^@):@@@^V@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1A*)^[DD1Q (^E- (HD8)^@)DX )@@G@@^@)^[KDD#^@9BC)^@)^[^DDNE[GCDT *1 0):@@@^W@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)DY )@@G@@^@)^@1A*)^[DD1Q (^E- (^C))^@)^@)^[KDD#^@9BC)^@)^[^DDNE[GCDT *1 0):@@@^XDZ )@@G@@@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1A*)^[DD1Q (^E- (TEK)^@)^@)^[KDD#^@9EA )@@G@@BC)^@)^[^DDNE[GCDT *1 0):@@@^Y@J@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[#D9IETDEB )@@G@@C9IC( (KDD#DTPE@)^@)^[KDD#^[S @8 C)^[^DDNE[GCDT *1 0):@@@^Z@J@@@@^@)^@)EC )@@G@@^@)^@)^@)^@)^@)^@1A@)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)^[KDD#^[S @2 C)^[^DDNED )@@G@@E[GCDT *1 0):@@@^)@J@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[HCTN (DD1^DD#CDOD9MEE )@@G@@^@)^@)^@)^[KDD#^[S^@)^@)^[^DDNE[GCDT *1 0):@@@^-@J@@@@^@)^@)^@)^@)^@)^@)EF )@@G@@^@)^@1A@)^[JEL^C(M (OFDKC*)^@)^@)^@)^@)^[KDD#^[S^@)^@)^[^DDNE[GCDT *1 0)EG )@@G@@:@@@^+@J@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[MC(HCDMDTN (ID9OC(N^@)^@)^@)^[KEH )@@G@@DD#^[S @3A0(^[^DDNE[GCDT *1 0):@@@^<@D@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[[EI )@@G@@CTOE([D)!ETCDDK (^CDOC*,:@@@^=@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1A*)CDNEJ )@@G@@C)!D(H^@)^@)^@)^@)^@)^[KDD#^[SF@)^@)^[^DDNE[GCDT *1 0):@@@^>@J@@@@^@)^@)EK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@1A*)CDNC)!C-^^@)^@)^@)^@)^@)^[KDD#^[SF@)^@)^[^DDNEL )@@G@@E[GCDT *1 0):@@@^&@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1A*)CDNC)!FDT^@)^@)EM )@@G@@^@)^@)^@)^[KDD#^[SF@)^@)^[^DDNE[GCDT *1 0):@@@^$@J@@@@^@)^@)^@)^@)^@)^@)EN )@@G@@^@)^@1A@)^[OCDS (KC(MCT D1OCDBC*)^@)^@)^[KDD#^@9BDQBC9^[^DDNE[GCDT *1 0)EO )@@G@@:@@@^*@J@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)^[KEP )@@G@@DD#^[S @1A)(^[^DDNE[GCDT *1 0):@@@^(@K@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[[EQ )@@G@@CT# ( F[O (^D9G (NE-^^@)^@)^[KDD#^[NBC*B@(E09 @2 C)CTJD(K *4 0)^@):@@@^%ER )@@G@@@J@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[IC(SE)!CDQCDDD)!AK0 (MC(#^@)^[KDD#^@9ES )@@G@@ @3 C)^[^DDNE[GCDT *1 0):@@@^:@J@@@@^@)^@)^@)^@)^@)^@)^@)^@1A@)^[GD9#DTJET )@@G@@E(O (DD1^ *1A@)^@)^@)^[KDD#^[SF[S^@)^[^DDNE[GCDT *1 0):@@@^?@J@@@@^@)^@)EU )@@G@@^@)^@)^@)^@)^@)^@1A@)^[GD9#DT#ELO (DD1^ *1A@)EL C- C1DD1 ES)D-JCTFD9PE)!EV )@@G@@DDIC)!AC0^@):@@@^!@J@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EW )@@G@@^@)^@)^@)^[KDD#^@9BC9^@)^[^DDNE[GCDT *1 0):@@@^,@J@@@@^@)^@)^@)^@)^@)^@)EX )@@G@@^@)^@1A@)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)^[KDD#^[S @7B@(^[^DDNE[GCDT *1 0)EY )@@G@@:@@@^\@A@@@@^@)^@)^@)^@0AC)^[O (GCD]C(G 0)^@)^@):@@@^0@G@@@@^@)^@)^@)^@)EZ )@@G@@^@)^@0AS)^[O (ICDHC*)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @6 C,:@@@^1@G@@@@FA )@@G@@^@)^@)^@)^@)^@)^@0AS)^[O (^CDOC*!F@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @6 C,FB )@@G@@:@@@^2@A@@@@^@)^@)^@)^@0AC)^@)CS!C-[E- (S 0)^@):@@@^3@G@@@@^@)^@)^@)^@)FC )@@G@@^@)^@0AS)^[TFC)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[SF@,^@):@@@^4@G@@@@FD )@@G@@^@)^@)^@)^@)^@)^@0AS)^[HD*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[SF@,^@)FE )@@G@@:@@@^5@G@@@@^@)^@)^@)^@)^@)^@0AS)^[^C))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KFF )@@G@@DD#^[SF@,^@):@@@^6@ @@@@^@)^@)^@)^@0AC)^[A (KELJDK,^@):@@@^7@J@@@@^@)^@)FG )@@G@@^@)^@)^@)^@0AS)^[A (KELJDK!ETK^@)^@)^@)^@)^@)^@)^@)^@)E[DCS)F[S^@)^@)C-DFH )@@G@@ETKD-[FC!AC,:@@@^8@J@@@@^@)^@)^@)^@)^@)^@0AS)^[A (KELJDK!F@)^@)^@)^@)^@)FI )@@G@@^@)^@)^@)^[KDD#^[S @6 C)^[^DDNE[GCDT *1 0):@@@^9@A@@@@^@)^@)^@)^@0AC)^[]FJ )@@G@@ ([EL CC!CTPETO 0):@@@^'@J@@@@^@)^@)^@)^@)^@)^@0A*)^[] ([EL CC!CTPETO (IFK )@@G@@D8)^@)^@)^@)^@)^[KDD#^[S @4 C)^[^DDNE[GCDT *1 0):@@@^;@M@@@@^@)^@)^@)^@)FL )@@G@@^@)^@0A*)^[ADDGD- EK)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^@9BC9^@)^[^DDNE[GCDTFM )@@G@@ *1^[QCDGE( ^[UC(MD8,^@):@@@^/@K@@@@^@)^@)^@)^@0AC)^[HCDK (^E-MDS)^@)^@)FN )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A@7A*2 C)^[^DDNE[GCDT *1 0):@@@^.@K@@@@FO )@@G@@^@)^@)^@)^@0AC)^[HCDK (DE-MDS)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A@7FP )@@G@@A*2 C)^[^DDNE[GCDT *1 0):@@@^"@K@@@@^@)^@)^@)^@0AC)^[HCDK (KE-MDS)^@)^@)FQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A@7A*2 C)^[^DDNE[GCDT *1 0):@@@^_@K@@@@FR )@@G@@^@)^@)^@)^@0AC)^[^D9 (^E-MDS)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A@7FS )@@G@@A*2 C)^[^DDNE[GCDT *1 0):@@@ @@K@@@@^@)^@)^@)^@0AC)^[^D9 (DE-MDS)^@)^@)FT )@@G@@^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A@7A*2 C)^[^DDNE[GCDT *1 0):@@@ [@K@@@@FU )@@G@@^@)^@)^@)^@0AC)^[^D9 (KE-MDS)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @1A@7FV )@@G@@A*2 C)^[^DDNE[GCDT *1 0):@@@ ]@B@@@@^@)^@)^@)^[KELJCT C-PEL ^[^DDQDDNDDJFW )@@G@@D0,^@):@@@ #@A@@@@^@)^@)^@)^[HCDDD1GDDIC*)ET CTODDJD0,:@@@ ^@^@@@@^@)^@)FX )@@G@@^@)^@0A@0 (ND9K 0):@@@ @G@@@@^@)^@)^@)^@)^@)^[^DDNE[GCDT^@$ETJE@)C-JC*1FY )@@G@@A@$^[PE[JD0)E[MDDIE- EK,^@)^@):@@@ A@H@@@@^@)^@)^@)^@)^@)^[KC(MC1JELH^[JFZ )@@G@@E[ D0!D[JE(NC(FC( E[DD1B^[OD[ME*)C(IC)!D9KC(I 0):@@@ B@J@@@@^@)^@)^@)^@)GA )@@G@@^@)^[KC(MC1JELH^[MC(QCDGDD^CDOC*!C-JC(HETO^[OD[ME*)C(IC)!EL E1[D-DC-[E- GB )@@G@@ 0)^@):@@@ C@I@@@@^@)^@)^@)^@)^@)^[KC(MC1JELH^[#D-JET (CD9PET DT C(KDDIGC )@@G@@C8)E-CELP^[ D1^ (#D-JET 0)^@):@@@ D@G@@@@^@)^@)^@)^@)^@)^[^DDNE[GCDT^@$GD )@@G@@C(JE@)C-JC*1A@$^[PE[JD0)E[MDDIE- EK,^@)^@):@@@ E@A@@@@^@)^@)^@)^@)^@)^[NGE )@@G@@E-JE@)ELPD0,^@)^@):@@@ F@B@@@@^@)^@)^@)^[ D1^ (HCDDD1GDDIC*)ET CTODDJD0,GF )@@G@@:@@@ G@ @@@@^@)^@)^@)^[ D1^ ( F[DE)1 0)^@):@@@ H@^@@@@^@)^@)^@)^@)^@)^[ GG )@@G@@F[DE),:@@@ I@D@@@@^@)^@)^@)^[JE[ D0!D[JE(NC(FC( E[DD1B^[NC(#E-DD9I 0)^@)GH )@@G@@:@@@ J@G@@@@^@)^@)^@)^@0A@1 (K (GD9[C),^[#D9KFC)D-JCD^ (KCDMCDHC(OC(MES!GI )@@G@@CDNCTDDC,^@):@@@ K@G@@@@^@)^@)^@)^@)^@)^[[CT#C(KE))CTPELMC(IE)!C-[E- ^[AGJ )@@G@@ELJD*)C-[E- (ODDHC*,^@):@@@ L@G@@@@^@)^@)^@)^@)^@)^[NE(]E-MCD#E)) S1^[AGK )@@G@@ELJD*)CS!FDT^[BDDQDDIC8)C1MD9H (TFC,:@@@ M@E@@@@^@)^@)^@)^@)^@)^[[C-^^@:GL )@@G@@AC) ))CS!FDT^[BDDQDDIC8)C(IC)!FDT 0):@@@ N@G@@@@^@)^@)^@)^@)^@)^[DC0)D(HGM )@@G@@^[JC0)CS!C-[E- *1^@/^@$A@1^8)D9M^@"^@$AC2^8)^@):@@@ O@G@@@@^@)^@)^@)^@)GN )@@G@@^@)^@)^@)^[KC(MC1JELH^[# (^CDOC*!C(MEK)E-CELP^[ ELM ( F@,^@):@@@ P@G@@@@GO )@@G@@^@)^@)^@)^@)^@)^[DC0)C-^^[JC0)CS!C-[E- *1^@/^@$A@1^8)D9M^@"^@$AS1^8)^@)GP )@@G@@:@@@ Q@G@@@@^@)^@)^@)^@)^@)^@)^@)^[KC(MC1JELH^[# (^CDOC*!C(MEK)E-CELP^[ GQ )@@G@@ELM ( F@,^@):@@@ R@H@@@@^@)^@)^@)^@)^@)^[DC0)FDT^[JC0)CS!C-[E- *1^@/^[AGR )@@G@@ELJD*!FDT^[JEK)B0)C(IC)!FDT^@):@@@ S@G@@@@^@)^@)^@)^@)^@)^@)^@)^[KC(MC1JGS )@@G@@ELH^[# (^CDOC*!C(MEK)E-CELP^[ ELM ( F@,^@):@@@ T@F@@@@^@)^@)^@)^@)^@)^[HGT )@@G@@D9QC*)CTJELM^[# (^CDOC*!AC)E-J^[# (^CDOC*!F@,^@):@@@ U@D@@@@^@)^@)^@)^@)GU )@@G@@^@)^[BD8)E-J^@0A@3 (^D9 D(NE)!D9KC(I 0)^@):@@@ V@ @@@@^@)^@)^@)^[# (^CDOGV )@@G@@C*!C(MEK,^@):@@@ W@E@@@@^@)^@)^@)^@)^@)^[^DDNE[GCDT^@$CS!C-[E- *1^[DD1QGW )@@G@@CDGDD^^8,^@):@@@ X@G@@@@^@)^@)^@)^@)^@)^[^DDNE[GCDT^@$CS!C-[E- *1^[DES)GX )@@G@@^8)CS!C-[E- *1 0)^@)^@):@@@ Y@D@@@@^@)^@)^@)^@)^@)^[NE-JE@)^9OFDKC*)D1JGY )@@G@@^[JEK)C9J^8,^@)^@):@@@ Z@^@@@@^@)^@)^@)^[ ELM ( F@,^@):@@@ )@^@@@@^@)^@)GZ )@@G@@^@)^@)^@)^[ F[DE),:@@@ -@A@@@@^@)^@)^@)^@0A@3 (^D9 D(NE)!D9KC(I 0):@@@ +HA )@@G@@@J@@@@^@)^@)^@)^@)^@)^[HD9QC*)^9^D9 D(NE)$^[OD8)C1DD- (ICDHC*)D9A^[^D9 HB )@@G@@D(NE)!C1DD- (#D1OELG 0):@@@ <@H@@@@^@)^@)^@)^@)^@)^[HD9QC*)AC0^[OD8)C1PHC )@@G@@D1#E-DD9I^[JC0)C-JC(HETO (ADDGC*!CTIE-MD),:@@@ =@G@@@@^@)^@)^@)^@)^@)^[#HD )@@G@@CDGD))^9ADDGD9KD0$^[PETDD1B^[^D9 D(NE)!C1DD- (#D1OELG:@@@ >@F@@@@^@)^@)HE )@@G@@^@)^@)^@)^@)^@)^[^D9 (^E-MDS)C-JC*!DDOELF^[^D9 (KE-MDS,^@):@@@ &@A@@@@HF @EOF @COPY,IO TEMP.1033-001-001,1033-001-001. @FREE TEMP.