@CAT,P 1034-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1034-001-001,,,130343053241,000 )@@G@@**PF**@@@@(>@@@@@@@@@@@[@#&@@@]FE^ 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 H-DATA (SUB) TO TAPE-DATCS )@@G@@A-XFERS-NO. @G@@@@016180 ADD TAPE-XFERS OF AC-DEMAND-DATA (SUB) TO TCT )@@G@@APE-DATA-XFERS-NO.@D@@@@016190 ADD TAPE-XFERS OF AC-RT-BATCH-DATA (SCU )@@G@@UB) @C@@@@ TO TAPE-DATA-XFERS-NO. @D@@@@016210CV )@@G@@ ADD TAPE-XFERS OF AC-RT-DMAND-DATA (SUB) TO@A@@@@016220 TAPCW )@@G@@E-DATA-XFERS-NO. @F@@@@016230 ADD CARDS-IN OF AC-BATCH-DATA (SUB) TCX )@@G@@O CARDS-READ-NO. @F@@@@016240 ADD CARDS-IN OF AC-DEMAND-DATA (SUB) CY )@@G@@TO CARDS-READ-NO. @G@@@@016250 ADD CARDS-IN OF AC-RT-BATCH-DATA (SUBCZ )@@G@@) TO CARDS-READ-NO. @G@@@@017010 ADD CARDS-IN OF AC-RT-DMAND-DATDA )@@G@@A (SUB) TO CARDS-READ-NO. @G@@@@017020 ADD CARDS-OUT OF AC-BATCHDB )@@G@@-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017030 ADD CARDS-OUT OF ACDC )@@G@@-DEMAND-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017040 ADD CARDS-OUTDD )@@G@@ OF AC-RT-BATCH-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017050 ADD CARDE )@@G@@DS-OUT OF AC-RT-DMAND-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017060 ADF )@@G@@DD RMV-MNTS OF AC-BATCH-DATA (SUB) TO RM-PACK-MOUNTS-NO. @G@@@@017070DG )@@G@@ ADD RMV-MNTS OF AC-DEMAND-DATA (SUB) TO RM-PACK-MOUNTS-NO. @G@@@@DH )@@G@@017080 ADD RMV-MNTS OF AC-RT-BATCH-DATA (SUB) TO RM-PACK-MOUNTS-NO. DI )@@G@@@G@@@@017090 ADD RMV-MNTS OF AC-RT-DMAND-DATA (SUB) TO RM-PACK-MOUNTDJ )@@G@@S-NO. @F@@@@017100 ADD RMV-SECS OF AC-BATCH-DATA (SUB) TO RM-PACK-SEDK )@@G@@CS-NO.@G@@@@017110 ADD RMV-SECS OF AC-DEMAND-DATA (SUB) TO RM-PACK-SDL )@@G@@ECS-NO. @G@@@@017120 ADD RMV-SECS OF AC-RT-BATCH-DATA (SUB) TO RDM )@@G@@M-PACK-SECS-NO. @G@@@@017130 ADD RMV-SECS OF AC-RT-DMAND-DATA (SUBDN )@@G@@) TO RM-PACK-SECS-NO. @ @@@@018030 1600-TOTAL-COMM-TRANS. @F@@@@018040DO )@@G@@ ADD RUNS OF AC-RT-DMAND-DATA (SUB) TO COMM-TRANS-NO. @A@@@@ DP )@@G@@ 1700-ADD-UP-COMM-TRANS-COST. @A@@@@ IF TRANS-COST IS NUMERIC DQ )@@G@@@C@@@@ MOVE TRANS-COST TO TRANS-COST-5 @D@@@@ DR )@@G@@ MULTIPLY COMM-TRANS-NO BY TRANS-COST-5 @B@@@@ GIVINDS )@@G@@G W-TRANS-COST @D@@@@ ADD W-TRANS-COST TO COMM-TRANS RODT )@@G@@UNDED @D@@@@ ADD COMM-TRANS-NO TO COMM-TRANS-TOTAL. @B@@@@DU )@@G@@ MOVE AC-ACCOUNT-NUM TO ACCT-NO.@B@@@@ MOVE ZEROES TDV )@@G@@O COMM-TRANS-NO. @ @@@@ 1750-READ-ACCNT-FILE. @^@@@@ RDW )@@G@@EAD ACCT-REC@D@@@@ AT END MOVE 'Y' TO LAST-RECORD-FLAG. DX )@@G@@@A@@@@ ADD 1 TO MO-ACT-REC-CNT. @F@@@@ IF AC-ACCOUNTDY )@@G@@-NUM > '149' AND AC-ACCOUNT-NUM < '191' @C@@@@ AND AC-ADZ )@@G@@CCOUNT-NUM NOT = '180' @B@@@@ OR AC-ACCOUNT-NUM = '865' EA )@@G@@@B@@@@ OR AC-ACCOUNT-NUM = '900' @ @@@@ MOVEB )@@G@@E 1 TO DPS @A@@@@ ELSE MOVE 0 TO DPS. @ @@@@ 1760-EC )@@G@@READ-DECODE-01. @B@@@@ MOVE ACCT-NO TO 3-DIGIT-FIELD. @C@@@@ED )@@G@@ READ TAB-DISC INTO TABLE-DISC-01 @ @@@@ INVEE )@@G@@ALID KEY @C@@@@ MOVE 'N' TO VALID-ACCT-SWITCH@C@@@@EF )@@G@@ MOVE 'Y' TO ABORT-SWITCH @G@@@@ EG )@@G@@ DISPLAY 'ACCT NUMBER ' ACCT-NO ' NOT ON TABLE-DISC' @B@@@@ EH )@@G@@ UPON PRINT-DEVICE. @B@@@@ ADD 1 TO TABLE-DISC-REC-CEI )@@G@@NT. @^@@@@019010 1800-COST-TOTALS.@A@@@@019020 PERFORM 1900-CARDS-EJ )@@G@@READ. @B@@@@019030 PERFORM 2000-CARDS-PUNCHED. @B@@@@019040 PEK )@@G@@ERFORM 2100-PAGES-CREATED. @B@@@@019050 PERFORM 2200-FORMS-MOUNTEEL )@@G@@D. @B@@@@019060 PERFORM 2300-REELS-MOUNTED. @A@@@@019070 PEM )@@G@@ERFORM 2400-TAPE-XFERS. @B@@@@019080 PERFORM 2500-REELS-IN-LIBR. EN )@@G@@@B@@@@019090 PERFORM 2600-RMV-PACK-MOUNTS. @B@@@@019100 PERFORMEO )@@G@@ 2700-RMV-PACK-SECS. @A@@@@019110 PERFORM 2800-CAT-TRKS. @A@@@@EP )@@G@@019120 PERFORM 2900-M-S-XFERS. @^@@@@019130 1900-CARDS-READ. @A@@@@EQ )@@G@@019140 MOVE 03 TO DECODE-FIELD. @B@@@@019150 MOVE 001 TO 3-DIGITER )@@G@@-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@ ES )@@G@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLAY 'NO COSTS FORET )@@G@@ CARDS READ ON DECODE-03' @A@@@@ UPON PRINT-DEVICEEU )@@G@@@A@@@@ ENTER FD 'ABORT'. @C@@@@019170 MOVE UNITS TOEV )@@G@@ CARDS-READ-UNIT-PRT. @F@@@@019180 MOVE UNIT-COST TO CARDS-READ-COEW )@@G@@ST-PRT UNIT-COST-5. @E@@@@ MOVE SHIFT-DIFF-1 TO SHIFT1-DIFEX )@@G@@F SHIFT1-DIFF-PRT.@E@@@@ MOVE SHIFT-DIFF-3 TO SHIFT3-DIFF SHIFEY )@@G@@T3-DIFF-PRT.@E@@@@019210 IF UNITS = 'I' MOVE CARDS-READ-NO TO 1ST-COEZ )@@G@@MPUTE.@D@@@@019220 IF UNITS = 'K' DIVIDE CARDS-READ-NO BY 1000@A@@@@FA )@@G@@ GIVING 1ST-COMPUTE. @F@@@@019230 IF UNITS = 'M' DIVIFB )@@G@@DE CARDS-READ-NO BY 1000000 GIVING @ @@@@ 1ST-COMPUTE. FC )@@G@@@F@@@@019240 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING CARDS-READ FD )@@G@@@^@@@@ ROUNDED. @D@@@@019250 MOVE CARDS-READ TO CARDS-FE )@@G@@READ-TOTAL-PRT. @ @@@@020010 2000-CARDS-PUNCHED. @B@@@@020030 MFF )@@G@@OVE 002 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-FG )@@G@@03. @A@@@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISFH )@@G@@PLAY 'NO COSTS FOR CARDS PUNCHED ON DECODE-03' @A@@@@ FI )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @C@@@@020050FJ )@@G@@ MOVE UNITS TO CARDS-PUNCHED-UNIT-PRT.@F@@@@020060 MOVE UNIT-COSFK )@@G@@T TO CARDS-PUNCHED-COST-PRT UNIT-COST-5. @F@@@@020070 IF UNITS = 'IFL )@@G@@' MOVE CARDS-PUNCHED-NO TO 1ST-COMPUTE. @F@@@@020080 IF UNITS = 'KFM )@@G@@' DIVIDE CARDS-PUNCHED-NO BY 1000 GIVING @ @@@@020090 1ST-COMPUTFN )@@G@@E. @G@@@@020100 IF UNITS = 'M' DIVIDE CARDS-PUNCHED-NO BY 1000000FO )@@G@@ GIVING @ @@@@020110 1ST-COMPUTE. @G@@@@020120 MULTIPLFP )@@G@@Y 1ST-COMPUTE BY UNIT-COST-5 GIVING CARDS-PUNCHED @^@@@@ FQ )@@G@@ ROUNDED. @E@@@@020130 MOVE CARDS-PUNCHED TO CARDS-PUNCHED-TOTAL-PFR )@@G@@RT. @ @@@@020140 2100-PAGES-CREATED. @B@@@@020150 MOVE 003 TO 3FS )@@G@@-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@FT )@@G@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLAY 'NO COSFU )@@G@@TS FOR PAGES CREATED ON DECODE-03' @A@@@@ UPON PRINT-FV )@@G@@DEVICE@A@@@@ ENTER FD 'ABORT'. @B@@@@020170 MOVE UNFW )@@G@@ITS TO PAGES-UNIT-PRT. @E@@@@020180 MOVE UNIT-COST TO PAGES-COST-PRFX )@@G@@T UNIT-COST-5. @F@@@@020190 IF UNITS = 'I' MOVE PAGES-CREATED-NO FY )@@G@@TO 1ST-COMPUTE. @F@@@@020200 IF UNITS = 'K' DIVIDE PAGES-CREATED-NFZ )@@G@@O BY 1000 GIVING @ @@@@020210 1ST-COMPUTE. @G@@@@020220 IGA )@@G@@F UNITS = 'M' DIVIDE PAGES-CREATED-NO BY 1000000 GIVING @ @@@@020230GB )@@G@@ 1ST-COMPUTE. @G@@@@020240 MULTIPLY 1ST-COMPUTE BY UNIT-COGC )@@G@@ST-5 GIVING PAGES-CREATED @^@@@@ ROUNDED. @D@@@@020250GD )@@G@@ MOVE PAGES-CREATED TO PAGES-TOTAL-PRT. @ @@@@021010 2200-FORMS-GE )@@G@@MOUNTED. @B@@@@021020 MOVE 004 TO 3-DIGIT-FIELD. @B@@@@ GF )@@G@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECODE-03-SWITCHGG )@@G@@ = 'N'@F@@@@ DISPLAY 'NO COSTS FOR FORMS MOUNTED ON DECODEGH )@@G@@-03' @A@@@@ UPON PRINT-DEVICE@A@@@@ ENTGI )@@G@@ER FD 'ABORT'. @B@@@@021040 MOVE UNITS TO FORMS-UNIT-PRT. @E@@@@GJ )@@G@@021050 MOVE UNIT-COST TO FORMS-COST-PRT UNIT-COST-5. @F@@@@021060GK )@@G@@ IF UNITS = 'I' MOVE SPECIAL-FORMS-NO TO 1ST-COMPUTE. @F@@@@021070GL )@@G@@ IF UNITS = 'K' DIVIDE SPECIAL-FORMS-NO BY 1000 GIVING @ @@@@021080GM )@@G@@ 1ST-COMPUTE. @G@@@@021090 IF UNITS = 'M' DIVIDE SPECIAL-FGN )@@G@@ORMS-NO BY 1000000 GIVING @ @@@@021100 1ST-COMPUTE. @G@@@@GO )@@G@@021110 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING SPECIAL-FORMS GP )@@G@@@^@@@@ ROUNDED. @D@@@@021120 MOVE SPECIAL-FORMS TO FORGQ )@@G@@MS-TOTAL-PRT. @ @@@@021130 2300-REELS-MOUNTED. @B@@@@021140 MGR )@@G@@OVE 005 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-GS )@@G@@03. @A@@@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISGT )@@G@@PLAY 'NO COSTS FOR REELS MOUNTED ON DECODE-03' @A@@@@ GU )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @C@@@@021160GV )@@G@@ MOVE UNITS TO REELS-MOUNTED-UNIT-PRT.@F@@@@021170 MOVE UNIT-COSGW )@@G@@T TO REELS-MOUNTED-COST-PRT UNIT-COST-5. @F@@@@021180 IF UNITS = 'IGX )@@G@@' MOVE TAPE-MOUNTS-NO TO 1ST-COMPUTE. @F@@@@021190 IF UNITS = 'KGY )@@G@@' DIVIDE TAPE-MOUNTS-NO BY 1000 GIVING @ @@@@ 1ST-COMPUTGZ )@@G@@E. @F@@@@021200 IF UNITS = 'M' DIVIDE TAPE-MOUNTS-NO BY 1000000 GHA )@@G@@IVING @ @@@@021210 1ST-COMPUTE. @G@@@@021220 MULTIPLY 1ST-HB )@@G@@COMPUTE BY UNIT-COST-5 GIVING REELS-MOUNTED @^@@@@ ROUHC )@@G@@NDED. @D@@@@021230 MOVE REELS-MOUNTED TO TAPE-MNTS-TOTAL-PRT. @^@@@@HD )@@G@@022010 2400-TAPE-XFERS. @B@@@@022020 MOVE 006 TO 3-DIGIT-FIELD. HE )@@G@@@B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECOHF )@@G@@DE-03-SWITCH = 'N'@E@@@@ DISPLAY 'NO COSTS FOR TAPE DATA THG )@@G@@RANSFERS' @A@@@@ UPON PRINT-DEVICE@A@@@@ HH )@@G@@ ENTER FD 'ABORT'. @D@@@@022040 MOVE UNITS TO TAPE-DATA-XFERS-UHI )@@G@@NIT-PRT. @F@@@@022050 MOVE UNIT-COST TO TAPE-DATA-XFERS-COST-PRT HJ )@@G@@UNIT-COST-5.@F@@@@022060 IF UNITS = 'I' MOVE TAPE-DATA-XFERS-NO TO 1HK )@@G@@ST-COMPUTE. @F@@@@022070 IF UNITS = 'K' DIVIDE TAPE-DATA-XFERS-NO BYHL )@@G@@ 1000 GIVING@ @@@@022080 1ST-COMPUTE. @G@@@@022090 IF UNITHM )@@G@@S = 'M' DIVIDE TAPE-DATA-XFERS-NO BY 1000000 GIVING @ @@@@022100 HN )@@G@@ 1ST-COMPUTE. @C@@@@022110 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 HO )@@G@@@E@@@@ GIVING TAPE-XFERS OF COST-TOTALS ROUNDED. @G@@@@HP )@@G@@022120 MOVE TAPE-XFERS OF COST-TOTALS TO TAPE-DATA-XFERS-TOTAL-PRT. HQ )@@G@@@ @@@@022130 2500-REELS-IN-LIBR. @B@@@@022140 MOVE 007 TO 3-DIGITHR )@@G@@-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@ HS )@@G@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLAY 'NO COSTS FORHT )@@G@@ LIBRARY REELS ON DECODE-03' @A@@@@ UPON PRINT-DEVICEHU )@@G@@@A@@@@ ENTER FD 'ABORT'. @C@@@@022160 MOVE UNITS TOHV )@@G@@ LIB-REELS-UNIT-PRT. @E@@@@022170 MOVE UNIT-COST TO LIB-REELS-COSHW )@@G@@T-PRT UNIT-COST-5.@F@@@@022180 IF UNITS = 'I' MOVE OUTSD-LIB-REELS-NHX )@@G@@O TO 1ST-COMPUTE. @F@@@@022190 IF UNITS = 'K' DIVIDE OUTSD-LIB-REELSHY )@@G@@-NO BY 1000 GIVING@ @@@@022200 1ST-COMPUTE. @G@@@@022210 IHZ )@@G@@F UNITS = 'M' DIVIDE OUTSD-LIB-REELS-NO BY 1000000 GIVING @ @@@@022220IA )@@G@@ 1ST-COMPUTE. @D@@@@022230 MULTIPLY 1ST-COMPUTE BY UNIT-COIB )@@G@@ST-5 GIVING @B@@@@ OUTSTAND-LIB-REELS ROUNDED.@E@@@@022240IC )@@G@@ MOVE OUTSTAND-LIB-REELS TO LIB-REELS-TOTAL-PRT. @ @@@@023010 2600-ID )@@G@@RMV-PACK-MOUNTS. @B@@@@023020 MOVE 008 TO 3-DIGIT-FIELD. @B@@@@IE )@@G@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECODE-03-IF )@@G@@SWITCH = 'N'@E@@@@ DISPLAY 'NO COSTS FOR REMOVABLE PACK MOIG )@@G@@UNTS' @A@@@@ UPON PRINT-DEVICE@A@@@@ ENTIH )@@G@@ER FD 'ABORT'. @D@@@@023040 MOVE UNITS TO REMOV-PACK-MTS-UNIT-PRTII )@@G@@. @F@@@@023050 MOVE UNIT-COST TO REMOV-PACK-MTS-COST-PRT UNIT-COIJ )@@G@@ST-5. @F@@@@023060 IF UNITS = 'I' MOVE RM-PACK-MOUNTS-NO TO 1ST-COMPIK )@@G@@UTE. @F@@@@023070 IF UNITS = 'K' DIVIDE RM-PACK-MOUNTS-NO BY 1000 GIL )@@G@@IVING @ @@@@023080 1ST-COMPUTE. @G@@@@023090 IF UNITS = 'MIM )@@G@@' DIVIDE RM-PACK-MOUNTS-NO BY 1000000 GIVING @ @@@@023100 1ST-IN )@@G@@COMPUTE. @G@@@@023110 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING IO )@@G@@RMV-PACKS-MOUNTED @^@@@@ ROUNDED. @F@@@@023120 MOVE RMIP )@@G@@V-PACKS-MOUNTED TO REMOV-PACK-MTS-TOTAL-PRT. @ @@@@023130 2700-RMV-PAIQ )@@G@@CK-SECS. @B@@@@023140 MOVE 009 TO 3-DIGIT-FIELD. @B@@@@ IR )@@G@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECODE-03-SWITCHIS )@@G@@ = 'N'@E@@@@ DISPLAY 'NO COSTS FOR REMOVABLE PACK SECS' IT )@@G@@@A@@@@ UPON PRINT-DEVICE@A@@@@ ENTER FD IU )@@G@@'ABORT'. @D@@@@023160 MOVE UNITS TO REMOV-PACK-SEC-UNIT-PRT. IV )@@G@@@F@@@@023170 MOVE UNIT-COST TO REMOV-PACK-SECS-COST-PRT UNIT-COST-5.IW )@@G@@@F@@@@023180 IF UNITS = 'I' MOVE RM-PACK-SECS-NO TO 1ST-COMPUTE. IX )@@G@@@F@@@@023190 IF UNITS = 'K' DIVIDE RM-PACK-SECS-NO BY 1000 GIVING IY )@@G@@@ @@@@023200 1ST-COMPUTE. @F@@@@023210 IF UNITS = 'M' DIVIIZ )@@G@@DE RM-PACK-SECS-NO BY 1000000 GIVING@ @@@@023220 1ST-COMPUTE. JA )@@G@@@G@@@@023230 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING RMV-PACKS-SEJB )@@G@@CS @^@@@@ ROUNDED. @E@@@@023240 MOVE RMV-PACKS-SECSJC )@@G@@ TO REMOV-PACK-SECS-TOTAL-PRT.@^@@@@024010 2800-CAT-TRKS. @B@@@@024020JD )@@G@@ MOVE 010 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DJE )@@G@@ECODE-03. @A@@@@ IF DECODE-03-SWITCH = 'N'@E@@@@ JF )@@G@@ DISPLAY 'NO COSTS FOR CATALOGUED TRACKS' @A@@@@ JG )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @C@@@@024040JH )@@G@@ MOVE UNITS TO CAT-TRACKS-UNIT-PRT. @F@@@@024050 MOVE UNIT-COSJI )@@G@@T TO CAT-TRACKS-COST-PRT UNIT-COST-5. @F@@@@024060 IF UNITS = 'IJJ )@@G@@' MOVE OUTSD-CAT-TRACKS-NO TO 1ST-COMPUTE.@G@@@@024070 IF UNITS = 'KJK )@@G@@' DIVIDE OUTSD-CAT-TRACKS-NO BY 1000 GIVING @ @@@@024080 1ST-JL )@@G@@COMPUTE. @G@@@@024090 IF UNITS = 'M' DIVIDE OUTSD-CAT-TRACKS-NO BJM )@@G@@Y 1000000 GIVING @ @@@@024100 1ST-COMPUTE. @D@@@@024110 MJN )@@G@@ULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING @C@@@@ OUTSTAND-JO )@@G@@CAT-TRACKS ROUNDED. @E@@@@024120 MOVE OUTSTAND-CAT-TRACKS TO CATJP )@@G@@-TRACKS-TOTAL-PRT.@^@@@@024130 2900-M-S-XFERS. @B@@@@024140 MOVE 01JQ )@@G@@1 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. JR )@@G@@@A@@@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLJS )@@G@@AY 'NO COSTS FOR MASS STORAGE TRANSFERS' @B@@@@ UJT )@@G@@PON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'.@B@@@@024160JU )@@G@@ MOVE UNITS TO M-S-UNIT-PRT. @D@@@@024170 MOVE UNIT-COST TO MJV )@@G@@-S-COST-PRT UNIT-COST-5.@E@@@@024180 IF UNITS = 'I' MOVE M-S-XFERS-NJW )@@G@@O TO 1ST-COMPUTE. @D@@@@024190 IF UNITS = 'K' DIVIDE M-S-XFERS-NO BYJX )@@G@@ 1000 @A@@@@ GIVING 1ST-COMPUTE. @E@@@@024200 IF UNITJY )@@G@@S = 'M' DIVIDE M-S-XFERS-NO BY 1000000 @A@@@@ GIVING 1SJZ )@@G@@T-COMPUTE. @F@@@@024210 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING KA )@@G@@MASS-XFERS @^@@@@ ROUNDED. @C@@@@024220 MOVE MASS-XFEKB )@@G@@RS TO M-S-TOTAL-PRT. @ @@@@ 2950-READ-DECODE-03. @C@@@@ KC )@@G@@ READ TAB-DISC INTO TABLE-DISC-03 @ @@@@ INVALID KKD )@@G@@EY @C@@@@ MOVE 'N' TO DECODE-03-SWITCH.@B@@@@ KE )@@G@@ ADD 1 TO TABLE-DISC-REC-CNT. @ @@@@025010 3000-FINAL-SUP-TOTAL. KF )@@G@@@G@@@@ DIVIDE SHIFT1-SUPS BY 18000000 GIVING SHIFT-SUP-HRS (1)KG )@@G@@. @G@@@@ DIVIDE SHIFT2-SUPS BY 18000000 GIVING SHIFT-SUP-HKH )@@G@@RS (2). @G@@@@ DIVIDE SHIFT3-SUPS BY 18000000 GIVING SHIFTKI )@@G@@-SUP-HRS (3). @F@@@@ DIVIDE SHIFT4-SUPS BY 18000000 GIVINGKJ )@@G@@ SHIFT4-SUP-HRS. @F@@@@ DIVIDE NON-DP-SUPS-1 BY 18000000 GIVIKK )@@G@@NG NON-DP-HRS (1).@F@@@@ DIVIDE NON-DP-SUPS-2 BY 18000000 GIVIKL )@@G@@NG NON-DP-HRS (2).@F@@@@ DIVIDE NON-DP-SUPS-3 BY 18000000 GIVIKM )@@G@@NG NON-DP-HRS (3).@F@@@@ DIVIDE NON-DP-SUPS-4 BY 18000000 GIVIKN )@@G@@NG NON-DP-HRS-4. @G@@@@025020 ADD SHIFT-SUP-HRS (1) SHIFT-SUP-HRS (KO )@@G@@2) SHIFT-SUP-HRS (3) @A@@@@025030 GIVING TOTAL-SUP-HRS. @ @@@@KP )@@G@@ ADD NON-DP-HRS (1) @ @@@@ NON-DP-HRS (2) @D@@@@KQ )@@G@@ NON-DP-HRS (3) GIVING SUP-HRS-LESS-DP. @E@@@@ SKR )@@G@@UBTRACT SHIFT4-SUP-HRS FROM SHIFT-SUP-HRS (1) @B@@@@ GIVKS )@@G@@ING SHIFT1-SUP-HRS-PRT. @E@@@@ SUBTRACT NON-DP-HRS-4 FROM NON-KT )@@G@@DP-HRS (1) GIVING @ @@@@ NON-DP-1-PRT. @E@@@@025050 MKU )@@G@@OVE SHIFT-SUP-HRS (2) TO SHIFT2-SUP-HRS-PRT. @E@@@@025060 MOVE SHKV )@@G@@IFT-SUP-HRS (3) TO SHIFT3-SUP-HRS-PRT. @D@@@@025070 MOVE SHIFT4-SKW )@@G@@UP-HRS TO SHIFT4-SUP-HRS-PRT. @C@@@@ MOVE NON-DP-HRS (2) TO NOKX )@@G@@N-DP-2-PRT. @C@@@@ MOVE NON-DP-HRS (3) TO NON-DP-3-PRT. @C@@@@KY )@@G@@ MOVE NON-DP-HRS-4 TO NON-DP-4-PRT. @D@@@@025080 MOVE TOKZ )@@G@@TAL-SUP-HRS TO TOTAL-SUP-HRS-PRT. @D@@@@ MOVE SUP-HRS-LESS-DLA )@@G@@P TO SUP-LESS-DP-PRT. @^@@@@025090 3100-GET-DATE. @C@@@@025100 ELB )@@G@@NTER FD 'GETDATE' USING DATE-6. @ @@@@025110 MOVE MM TO MONTH-8.LC )@@G@@@ @@@@ MOVE DD TO DA-8. @ @@@@025120 MOVE YY TO YEAR-8. LD )@@G@@@C@@@@ MOVE AC-YY-9 TO YEAR PROCESSING-YY. @C@@@@ MLE )@@G@@OVE AC-MM-9 TO MONTH PROCESSING-MM. @A@@@@ MOVE DATE-8 TO DEPTLF )@@G@@-DATE.@C@@@@ ENTER FD 'CONVDATE' USING DATE-EDIT. @B@@@@ LG )@@G@@ MOVE DATE-EDIT TO MONTH-YEAR. @A@@@@026010 3200-WRITE-OUTPUT-FILESLH )@@G@@. @D@@@@026020 MOVE OUTSD-CAT-TRACKS-NO TO CAT-TRACKS-PRT.@D@@@@LI )@@G@@026030 MOVE OUTSD-LIB-REELS-NO TO LIB-REELS-PRT. @D@@@@026040 MLJ )@@G@@OVE PAGES-CREATED-NO TO PAGES-CREATED-PRT.@D@@@@026050 MOVE SPECIAL-LK )@@G@@FORMS-NO TO SPEC-FORMS-PRT. @D@@@@026060 MOVE M-S-XFERS-NO TO M-S-LL )@@G@@TRANSFERS-PRT. @D@@@@026070 MOVE TAPE-MOUNTS-NO TO REELS-MOUNTED-LM )@@G@@PRT. @F@@@@026080 MOVE TAPE-DATA-XFERS-NO TO TAPE-DATA-TRANSFERS-PRLN )@@G@@T. @C@@@@026090 MOVE CARDS-READ-NO TO CARDS-READ-PRT.@D@@@@026100LO )@@G@@ MOVE CARDS-PUNCHED-NO TO CARDS-PUNCHED-PRT.@E@@@@026110 MOVE RMLP )@@G@@-PACK-MOUNTS-NO TO REMOV-PACK-MTS-PRT. @E@@@@026120 MOVE RM-PACK-LQ )@@G@@SECS-NO TO REMOV-PACK-SECS-PRT. @F@@@@ MOVE COMM-TRANS-TOTLR )@@G@@AL TO COMM-NO-PRT TCOMM-NO-PRT. @C@@@@ MOVE COMM-TRANS TO LS )@@G@@COMM-COST-PRT. @E@@@@026020 MOVE TOUTSD-CAT-TRACKS-NO TO TCAT-TRALT )@@G@@CKS-PRT. @D@@@@026030 MOVE TOUTSD-LIB-REELS-NO TO TLIB-REELS-PRT.LU )@@G@@@E@@@@026040 MOVE TPAGES-CREATED-NO TO TPAGES-CREATED-PRT. @D@@@@LV )@@G@@026050 MOVE TSPECIAL-FORMS-NO TO TSPEC-FORMS-PRT. @D@@@@026060 MLW )@@G@@OVE TM-S-XFERS-NO TO TM-S-TRANSFERS-PRT. @D@@@@026070 MOVE TTAPE-MOLX )@@G@@UNTS-NO TO TREELS-MOUNTED-PRT.@F@@@@026080 MOVE TTAPE-DATA-XFERS-NO LY )@@G@@TO TTAPE-DATA-TRANSFERS-PRT. @D@@@@026090 MOVE TCARDS-READ-NO TO TCLZ )@@G@@ARDS-READ-PRT. @E@@@@026100 MOVE TCARDS-PUNCHED-NO TO TCARDS-PUNCMA )@@G@@HED-PRT. @E@@@@026110 MOVE TRM-PACK-MOUNTS-NO TO TREMOV-PACK-MTS-MB )@@G@@PRT. @E@@@@026120 MOVE TRM-PACK-SECS-NO TO TREMOV-PACK-SECS-PRT. MC )@@G@@@A@@@@ ADD OUTSTAND-CAT-TRACKS @A@@@@ OUTSTAND-MD )@@G@@LIB-REELS @ @@@@ PAGES-CREATED @ @@@@ SPEME )@@G@@CIAL-FORMS @ @@@@ MASS-XFERS @ @@@@ REEMF )@@G@@LS-MOUNTED @B@@@@ TAPE-XFERS OF COST-TOTALS @ @@@@ MG )@@G@@ CARDS-READ @ @@@@ CARDS-PUNCHED @A@@@@ MH )@@G@@ RMV-PACKS-MOUNTED @ @@@@ COMM-TRANS @D@@@@MI )@@G@@ RMV-PACKS-SECS GIVING COST-TOT-PRT. @ @@@@026130 WMJ )@@G@@RITE COST-TOTALS. @A@@@@ ADD 1 TO CTCF-REC-CNT. @C@@@@ MK )@@G@@ WRITE PRINT-FILE FROM DEPT-HEADER-1 @A@@@@ AFTER ADVAML )@@G@@NCING PAGE. @G@@@@ WRITE PRINT-FILE FROM DEPT-HEADER-2 AFTER AMM )@@G@@DVANCING 1 LINE. @F@@@@026160 WRITE PRINT-FILE FROM LINE-3 AFTER ADMN )@@G@@VANCING 1 LINE. @F@@@@026160 WRITE PRINT-FILE FROM LINE-3A AFTER AMO )@@G@@DVANCING 2 LINES. @F@@@@026170 WRITE PRINT-FILE FROM LINE-4 AFTER ADMP )@@G@@VANCING 2 LINES. @F@@@@026180 WRITE PRINT-FILE FROM LINE-5 AFTER ADMQ )@@G@@VANCING 2 LINES. @F@@@@026190 WRITE PRINT-FILE FROM LINE-6 AFTER ADMR )@@G@@VANCING 2 LINES. @F@@@@026200 WRITE PRINT-FILE FROM LINE-7 AFTER ADMS )@@G@@VANCING 2 LINES. @F@@@@026210 WRITE PRINT-FILE FROM LINE-8 AFTER ADMT )@@G@@VANCING 2 LINES. @F@@@@026220 WRITE PRINT-FILE FROM LINE-9 AFTER ADMU )@@G@@VANCING 2 LINES. @F@@@@026230 WRITE PRINT-FILE FROM LINE-10 AFTER AMV )@@G@@DVANCING 2 LINES. @F@@@@026240 WRITE PRINT-FILE FROM LINE-11 AFTER AMW )@@G@@DVANCING 2 LINES. @F@@@@026250 WRITE PRINT-FILE FROM LINE-12 AFTER AMX )@@G@@DVANCING 2 LINES. @F@@@@027010 WRITE PRINT-FILE FROM LINE-13 AFTER AMY )@@G@@DVANCING 2 LINES. @F@@@@027020 WRITE PRINT-FILE FROM LINE-14 AFTER AMZ )@@G@@DVANCING 2 LINES. @G@@@@ WRITE PRINT-FILE FROM COMM-LINE AFTERNA )@@G@@ ADVANCING 2 LINES. @G@@@@ WRITE PRINT-FILE FROM TOTAL-LINNB )@@G@@E AFTER ADVANCING 2 LINES. @F@@@@027030 WRITE PRINT-FILE FROM LINNC )@@G@@E-15 AFTER ADVANCING 6 LINES. @F@@@@027040 WRITE PRINT-FILE FROM LINND )@@G@@E-16 AFTER ADVANCING 2 LINES. @F@@@@027050 WRITE PRINT-FILE FROM LINNE )@@G@@E-17 AFTER ADVANCING 3 LINES. @F@@@@027060 WRITE PRINT-FILE FROM LINNF )@@G@@E-18 AFTER ADVANCING 1 LINE. @F@@@@027070 WRITE PRINT-FILE FROM LINNG )@@G@@E-19 AFTER ADVANCING 1 LINE. @F@@@@027080 WRITE PRINT-FILE FROM LINNH )@@G@@E-20 AFTER ADVANCING 1 LINE. @F@@@@027090 WRITE PRINT-FILE FROM LINNI )@@G@@E-21 AFTER ADVANCING 1 LINE. @^@@@@027100 3300-CLOSE-FILES.@ @@@@027110NJ )@@G@@ CLOSE TAB-DISC @ @@@@027120 ACCT-REC @ @@@@027130NK )@@G@@ PRINT-OUT @ @@@@027140 DISC-OUT. @E@@@@ NL )@@G@@ CALL 'LOG-RCNT' USING FILENAME-1, MO-ACT-REC-CNT.@F@@@@ CNM )@@G@@ALL 'LOG-RCNT' USING FILENAME-2, TABLE-DISC-REC-CNT. @E@@@@ CNN )@@G@@ALL 'LOG-WCNT' USING FILENAME-3, CTCF-REC-CNT. @C@@@@ * IF ABORNO )@@G@@T-SWITCH = 'Y' CALL 'ABORT'. ___S-UNIT-PRT. @E@@@@022170 MOVE UNNP )@@G@@IT-COST TO LIB-REELS-COST-PRT UNIT-COST-5.@F@@@@022180 IF UNITS = 'INQ )@@G@@' MOVE OUTSD-LIB-REELS-N*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONNR )@@G@@. @@@@@@@@@@@@@ @@@@ PROGRAM-ID. H1551050. @ @@@@ AUTHONS )@@G@@R. DOUG RAGSDALE. @D@@@@ INSTALLATION. TEXAS DEPT. OF HEALTH, AUSTNT )@@G@@IN,TX.@A@@@@ DATE-WRITTEN. SEPT. 21,1978 @^@@@@ DATE-COMPILNU )@@G@@ED. @#@@@@ SECURITY. @E@@@@ *REMARKS. ASCII ANS-NV )@@G@@1974 ACOB 3R1 @G@@@@ * THIS PROGRAM DERIVES HOURLY NW )@@G@@RATES FOR DATA PROCESSING @F@@@@ * SERVICES (DATA-ENTRY, ANANX )@@G@@LYSIS/PROGRAMMING AND COMPUTER@F@@@@ * SUP HRS), GENERATES THE ENY )@@G@@XPENDITURE AND BUDGET REPORTS @F@@@@ * AND UPDATES THE COST TOTANZ )@@G@@L BY CATEGORY FILE (CTCF). @]@@@@ * @]@@@@ * @ @@@@OA )@@G@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOLOB )@@G@@ (ACOB4). @]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @@@@@@OC )@@G@@@@@@@@@ @@@@ CONFIGURATION SECTION. @@@@@@@ @@@@ COPY COMPUTOD )@@G@@ER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NOE )@@G@@AMES. @ @@@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROOF )@@G@@L. @ @@@@ SELECT CTCF-IN @C@@@@ ASSIGNOG )@@G@@ MASS-STORAGE OLD-CTCF. @ @@@@ SELECT CTCF-OUT @C@@@@ OH )@@G@@ ASSIGN MASS-STORAGE NEW-CTCF. @B@@@@ SELECT OPTIONOI )@@G@@AL DATA-ENTRY-TIME@C@@@@ ASSIGN MASS-STORAGE DE-FILE. OJ )@@G@@@A@@@@ SELECT KEY-PUNCH-TIME @C@@@@ ASSIGNOK )@@G@@ CARD-READER KP-TIME. @A@@@@ SELECT SALRY-EQUIP-COSTS @B@@@@OL )@@G@@ ASSIGN CARD-READER. @A@@@@ SELECT PCT-COOM )@@G@@ST-FIGURES @D@@@@ ASSIGN MASS-STORAGE TABLEDISC-JA ON )@@G@@@B@@@@ ACCESS MODE IS DYNAMIC @B@@@@ OO )@@G@@ORGANIZATION IS INDEXED @C@@@@ ACTUAL KEY IS TABLE-JA-KOP )@@G@@EY. @ @@@@ SELECT SCS-SUMM @D@@@@ ASSIGNOQ )@@G@@ MASS-STORAGE SCS-SUMMARY @B@@@@ ACCESS MODE IS DYNOR )@@G@@AMIC @B@@@@ ORGANIZATION IS INDEXED @C@@@@ OS )@@G@@ ACTUAL KEY IS SCS-SUMM-KEY. @ @@@@ SELECT PRINT-FILE OT )@@G@@@C@@@@ ASSIGN PRINTER EXP-BUD-RPT. @]@@@@ / OU )@@G@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. OV )@@G@@@@@@@@@#@@@@ FD CTCF-IN@B@@@@ BLOCK CONTAINS 1 RECORDOW )@@G@@S @A@@@@ LABEL RECORDS STANDARD @A@@@@ RECORDIOX )@@G@@NG MODE INTERNAL. @@@@@@@D@@@@ 01 CTCF-IN-REC PICOY )@@G@@ X(324). @@@@@@@^@@@@ FD CTCF-OUT @B@@@@ BLOCK COZ )@@G@@ONTAINS 1 RECORDS @A@@@@ LABEL RECORDS STANDARD @A@@@@PA )@@G@@ RECORDING MODE INTERNAL. @@@@@@@B@@@@ 01 CTCF-OUT-REC.PB )@@G@@ COPY CTCF-REC. @@@@@@@ @@@@ FD DATA-ENTRY-TIME @A@@@@ PC )@@G@@ BLOCK CONTAINS 8 RECORDS @A@@@@ LABEL RECORDS STANDARD PD )@@G@@@B@@@@ RECORD CONTAINS 70 CHARACTERS @A@@@@ RECORDIPE )@@G@@NG MODE INTERNAL. @@@@@@@A@@@@ 01 DE-IN-REC. COPY DE-REC. @@@@@@PF )@@G@@@ @@@@ FD SALRY-EQUIP-COSTS @A@@@@ LABEL RECORDS OMITTPG )@@G@@ED. @@@@@@@A@@@@ 01 SALARY-EQUIP-COSTS-REC. @D@@@@ 0PH )@@G@@3 PROGRAM-NO PIC X(8). @G@@@@ 88 CONTROLPI )@@G@@-CARD VALUE 'H1551050'. @D@@@@ 03 CARDPJ )@@G@@-TYPE PIC X. @E@@@@ 03 ADMIN-SALARIES PK )@@G@@ PIC 9(5)V99. @E@@@@ 03 DE-SALARIES PL )@@G@@ PIC 9(5)V99. @E@@@@ 03 AP-SALARIES PM )@@G@@ PIC 9(5)V99. @E@@@@ 03 COMPUTER-SALARIES PIC PN )@@G@@9(5)V99. @E@@@@ 03 DE-EQUIP-COST PIC 9(5)V9PO )@@G@@9. @E@@@@ 03 COMPUTER-EQUIP-COST PIC 9(6)V99. PP )@@G@@@E@@@@ 03 AFTER-5-MAINT PIC 9(5)V99. @D@@@@PQ )@@G@@ 03 FILLER PIC X(21).@@@@@@@ @@@@ PR )@@G@@ FD KEY-PUNCH-TIME @A@@@@ LABEL RECORDS OMITTED. @@@@@@PS )@@G@@@^@@@@ 01 KP-TIME-REC. @D@@@@ 03 FILLER PT )@@G@@ PIC X. @D@@@@ 03 KP-MACHINE-TYPE PIC PU )@@G@@XXX. @D@@@@ 03 KP-MACHINE-NO PIC 9. @^@@@@PV )@@G@@ 03 KP-DATE. @D@@@@ 05 KP-MM PW )@@G@@ PIC 99. @D@@@@ 05 KP-DD PIC 99. PX )@@G@@@D@@@@ 05 KP-YY PIC 99. @D@@@@ PY )@@G@@ 03 KP-JOB-CODE PIC 999. @D@@@@ 03 KP-HPZ )@@G@@RS PIC 99V9. @D@@@@ 03 KP-HRS-X REDEFINQA )@@G@@ES KP-HRS PIC XXX. @D@@@@ 03 FILLER QB )@@G@@ PIC X(63).@@@@@@@@@@@@@ @@@@ FD PCT-COST-FIGURES @B@@@@ QC )@@G@@ BLOCK CONTAINS 3360 CHARACTERS @A@@@@ LABEL RECORDS STANDQD )@@G@@ARD @A@@@@ RECORDING MODE INTERNAL. @@@@@@@A@@@@ 01 TQE )@@G@@ABLE-JA-REC DISP-1. @C@@@@ 03 TJA-KEY PICQF )@@G@@ 99. @D@@@@ 03 TJA-HEADER-AREA PIC X(10). @C@@@@QG )@@G@@ 88 TJA-DECODE-02-HDR VALUE SPACES.@D@@@@ 88 TQH )@@G@@JA-DECODE-02 VALUE 'JAPCT 0'.@C@@@@ 03 FILLER QI )@@G@@ PIC X. @D@@@@ 03 TJA-OVHD-PCT PIC 99V99QJ )@@G@@. @D@@@@ 03 TJA-EMP-BENEFIT-PCT PIC 99V99. @D@@@@QK )@@G@@ 03 TJA-DE-SUPPLIES PIC 999V99. @D@@@@ 0QL )@@G@@3 TJA-AP-SUPPLIES PIC 999V99. @D@@@@ 03 TJA-COMPUTQM )@@G@@ER-SUPPLIES PIC 9(5)V99. @D@@@@ 03 TJA-CTMC-LINE-COST QN )@@G@@ PIC 9(5)V99. @D@@@@ 03 TJA-HS-CTM-COST PIC 999V9QO )@@G@@9. @D@@@@ 03 TJA-MS-CTM-COST PIC 999V99. @D@@@@QP )@@G@@ 03 TJA-LS-CTM-COST PIC 999V99. @D@@@@ 0QQ )@@G@@3 TJA-DIAL-CTM-COST PIC 999V99. @D@@@@ 03 FILLER QR )@@G@@ PIC X(19). @@@@@@@^@@@@ FD SCS-SUMM @B@@@@QS )@@G@@ BLOCK CONTAINS 119 RECORDS @A@@@@ LABEL RECORDSQT )@@G@@ STANDARD @A@@@@ RECORDING MODE INTERNAL. @@@@@@@C@@@@ QU )@@G@@ 01 SCS-SUMM-REC. COPY SCS-SUMM-REC. @@@@@@@^@@@@ FD PRINT-FQV )@@G@@ILE @B@@@@ REPORTS ARE EXPENDITURE-RPT @A@@@@ QW )@@G@@ BUDGET-RPT @A@@@@ LABEL RECORDS OMITTED. @]@@@@QX )@@G@@ / @A@@@@ WORKING-STORAGE SECTION. @F@@@@ 77 DQY )@@G@@E-BYPASS-MIN PIC 9(6)V999 VALUE 0. @F@@@@ 77 DQZ )@@G@@E-OVHD-MIN PIC 9(6)V999 VALUE 0. @F@@@@ 77 DRA )@@G@@E-TOTAL-MIN PIC 9(6)V999 VALUE 0. @F@@@@ 77 DRB )@@G@@E-BYPASS-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 DRC )@@G@@E-OVHD-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 DRD )@@G@@E-TOTAL-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 KRE )@@G@@P-BYPASS-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 KRF )@@G@@P-OVHD-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 KRG )@@G@@P-TOTAL-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 ARH )@@G@@P-BYPASS-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 ARI )@@G@@P-OVHD-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 ARJ )@@G@@P-TOTAL-HRS PIC 9(5)V999 VALUE 0. @E@@@@ 77 NRK )@@G@@ET-EXP-TOTAL PIC 9(6)V99. @E@@@@ 77 ADJ-SUPRL )@@G@@-HR-RATE PIC 999V99. @E@@@@ 77 Q RM )@@G@@ PIC 9(10) COMP. @D@@@@ 77 MM-SUB RN )@@G@@ PIC 99. @D@@@@ 77 DEPT-DATE RO )@@G@@ PIC X(8). @D@@@@ 77 DEPT-TIME VALUE SPACE PIC X(5). RP )@@G@@@D@@@@ 77 DEPT-RUN-ID PIC X(6). @D@@@@ RQ )@@G@@ 77 DEPT-PROGRAM-NO PIC X(8). @E@@@@ 77 PCT-REGRR )@@G@@ PIC 999V9999. @D@@@@ 77 E1-40 RS )@@G@@ PIC 9(6)V99. @D@@@@ 77 E1-60 RT )@@G@@ PIC 9(6)V99. @D@@@@ 77 E1-80 PIC 9(6)VRU )@@G@@99. @D@@@@ 77 E1-100 PIC 9(6)V99. @D@@@@RV )@@G@@ 77 E2-40 PIC 9(6)V99. @D@@@@ 77 ERW )@@G@@2-60 PIC 9(6)V99. @D@@@@ 77 E2-80 RX )@@G@@ PIC 9(6)V99. @D@@@@ 77 E2-100 RY )@@G@@ PIC 9(6)V99. @D@@@@ 77 E3-40 PIC 9(6)VRZ )@@G@@99. @D@@@@ 77 E3-60 PIC 9(6)V99. @D@@@@SA )@@G@@ 77 E3-80 PIC 9(6)V99. @D@@@@ 77 ESB )@@G@@3-100 PIC 9(6)V99. @D@@@@ 77 E4-40 SC )@@G@@ PIC 9(6)V99. @E@@@@ 77 E4-40A SD )@@G@@ PIC 9(6)V9999999. @D@@@@ 77 E4-60 PICSE )@@G@@ 9(6)V99. @E@@@@ 77 E4-60A PIC 9(6)V999999SF )@@G@@9. @D@@@@ 77 E4-80 PIC 9(6)V99. @E@@@@SG )@@G@@ 77 E4-80A PIC 9(6)V9999999. @D@@@@ SH )@@G@@ 77 E4-100 PIC 9(6)V99. @E@@@@ 77 E4-100ASI )@@G@@ PIC 9(6)V9999999. @D@@@@ 77 E5-22 SJ )@@G@@ PIC 99V99. @D@@@@ 77 E5-40 SK )@@G@@ PIC 9(6)V99. @E@@@@ 77 E5-40A PIC 9(6)VSL )@@G@@9999999. @D@@@@ 77 E5-60 PIC 9(6)V99. SM )@@G@@@E@@@@ 77 E5-60A PIC 9(6)V9999999. @D@@@@SN )@@G@@ 77 E5-80 PIC 9(6)V99. @E@@@@ 77 ESO )@@G@@5-80A PIC 9(6)V9999999. @D@@@@ 77 E5-100 SP )@@G@@ PIC 9(6)V99. @E@@@@ 77 E5-100A SQ )@@G@@ PIC 9(6)V9999999. @D@@@@ 77 E6-40 SR )@@G@@ PIC 9(6)V99. @D@@@@ 77 E6-60 PIC 9(6)VSS )@@G@@99. @D@@@@ 77 E6-80 PIC 9(6)V99. @D@@@@ST )@@G@@ 77 E6-100 PIC 9(6)V99. @D@@@@ 77 ESU )@@G@@7-40 PIC 9(6)V99. @D@@@@ 77 E7-60 SV )@@G@@ PIC 9(6)V99. @D@@@@ 77 E7-100 SW )@@G@@ PIC 9(6)V99. @D@@@@ 77 E8-40 PIC 9(6)VSX )@@G@@99. @D@@@@ 77 E8-100 PIC 9(6)V99. @D@@@@SY )@@G@@ 77 E9-40 PIC 9(7)V99. @E@@@@ 77 ESZ )@@G@@9-40A PIC 9(7)V9999999. @D@@@@ 77 E9-60 TA )@@G@@ PIC 9(7)V99. @E@@@@ 77 E9-60A TB )@@G@@ PIC 9(7)V9999999. @D@@@@ 77 E9-80 TC )@@G@@ PIC 9(7)V99. @E@@@@ 77 E9-80A PIC 9(7)VTD )@@G@@9999999. @D@@@@ 77 E9-100 PIC 9(7)V99. TE )@@G@@@E@@@@ 77 E9-100A PIC 9(7)V9999999. @D@@@@TF )@@G@@ 77 E10-45 PIC 99V999. @D@@@@ 77 ETG )@@G@@10-65 PIC 99V999. @D@@@@ 77 E10-85 TH )@@G@@ PIC 99V999. @D@@@@ 77 E10-105 TI )@@G@@ PIC 99V999. @D@@@@ 77 E11-45 PIC 99V99TJ )@@G@@9. @D@@@@ 77 E11-65 PIC 99V999. @D@@@@TK )@@G@@ 77 E11-85 PIC 99V999. @D@@@@ 77 ETL )@@G@@11-105 PIC 99V999. @D@@@@ 77 E4-13 TM )@@G@@ PIC 99V99. @D@@@@ 77 B1-1 TN )@@G@@ PIC 9(5)V9. @D@@@@ 77 B1-57 PIC 9(5)VTO )@@G@@9. @D@@@@ 77 B2-24 PIC 9(6)V99. @D@@@@TP )@@G@@ 77 B2-39 PIC 9(5)V99. @D@@@@ 77 BTQ )@@G@@2-100 PIC 9(7)V99. @D@@@@ 77 B3-28 TR )@@G@@ PIC 9(6)V99. @D@@@@ 77 B3-42 TS )@@G@@ PIC 9(6)V99. @D@@@@ 77 B3-108 PIC 9(7)VTT )@@G@@99. @D@@@@ 77 B4-27 PIC 9(7)V99. @D@@@@TU )@@G@@ 77 B4-71 PIC 9(7)V99. @D@@@@ 77 BTV )@@G@@5-30 PIC 999V99999. @D@@@@ 77 B5-90 TW )@@G@@ PIC 999V99999. @E@@@@ 77 B6-65 TX )@@G@@ PIC 9(6)V99 VALUE 0. @E@@@@ 77 B6-87 PICTY )@@G@@ 9(6)V99 VALUE 0. @D@@@@ 77 B6-87A PIC 9(6)VTZ )@@G@@99999.@D@@@@ 77 B7-58 PIC 999V99999. @D@@@@UA )@@G@@ 77 B7-77 PIC 999V99999. @D@@@@ 77 BUB )@@G@@9-32 PIC 999V99999. @D@@@@ 77 B9-47 UC )@@G@@ PIC 9(5)V99999.@E@@@@ 77 B9-67 UD )@@G@@ PIC 9(6)V99 VALUE 0. @D@@@@ 77 B9-67A PICUE )@@G@@ 9(6)V99999.@D@@@@ 77 B10-32 PIC 999V99999. UF )@@G@@@E@@@@ 77 B10-47 PIC 9(5)V99999. @E@@@@UG )@@G@@ 77 B10-67 PIC 9(6)V99 VALUE 0.@E@@@@ UH )@@G@@ 77 B10-67A PIC 9(6)V99999. @D@@@@ 77 BUI )@@G@@11-32 PIC 999V99999. @E@@@@ 77 B11-47 UJ )@@G@@ PIC 9(5)V99999. @E@@@@ 77 B11-67 UK )@@G@@ PIC 9(6)V99 VALUE 0.@E@@@@ 77 B11-67A UL )@@G@@ PIC 9(6)V99999. @E@@@@ 77 B12-47 PIUM )@@G@@C 9(5)V99999. @D@@@@ 77 B12-67 PIC 9(6)UN )@@G@@V99. @@@@@@@A@@@@ 01 TABLE-JA-KEY DISP-1. @E@@@@ 0UO )@@G@@3 TABLE-JA-KEY-NO PIC 99 VALUE 02.@G@@@@ 03 FILLUP )@@G@@ER PIC X(10) VALUE SPACES. @@@@@@@^@@@@ UQ )@@G@@ 01 SCS-SUMM-KEY.@E@@@@ 88 COUNT-REC VALUUR )@@G@@E '0000'. @F@@@@ 02 SCS-ACCT-NUM PIC 999 VAUS )@@G@@LUE 000. @E@@@@ 02 SCS-ACCT-CLASS PIC X VALUUT )@@G@@E '0'.@@@@@@@^@@@@ 01 CUR-DATE. @D@@@@ 03 CUR-YY UU )@@G@@ PIC 99. @D@@@@ 03 CUR-MM UV )@@G@@ PIC 99. @D@@@@ 03 CUR-DD PIC UW )@@G@@99. @@@@@@@ @@@@ 01 CUR-DATE-EDITED. @D@@@@ 03 CUR-UX )@@G@@MM PIC 99. @E@@@@ 03 FILLER UY )@@G@@ PIC X VALUE '-'.@D@@@@ 03 CUR-DD UZ )@@G@@ PIC 99. @E@@@@ 03 FILLER PIC VA )@@G@@X VALUE '-'.@D@@@@ 03 CUR-YY PIC 99. VB )@@G@@@@@@@@@G@@@@ 01 DE-CNT PIC 9(10) COMP VVC )@@G@@ALUE 0. @E@@@@ 01 DE-NAME PIC X(12) VD )@@G@@VALUE @ @@@@ 'DE-FILE'. @G@@@@ 01 KP-CNT VE )@@G@@ PIC 9(10) COMP VALUE 0. @E@@@@ 01 KP-NAMEVF )@@G@@ PIC X(12) VALUE @ @@@@ 'KP-TIVG )@@G@@ME'. @G@@@@ 01 AP-CNT PIC 9(10) COMP VVH )@@G@@ALUE 0. @E@@@@ 01 AP-NAME PIC X(12) VI )@@G@@VALUE @A@@@@ 'SCS-SUMMARY'. @@@@@@@E@@@@ 01 SVJ )@@G@@W-CTCF-IN-EOF PIC X VALUE 'N'.@A@@@@ 88 CTCFVK )@@G@@-IN-EOF VALUE 'Y'.@@@@@@@E@@@@ 01 SW-CARD-IN-EOF VL )@@G@@ PIC X VALUE 'N'.@A@@@@ 88 CARD-IN-EOF VALUE 'Y'.@@@@@@@E@@@@VM )@@G@@ 01 SW-DE-TIME-EOF PIC X VALUE 'N'.@A@@@@ VN )@@G@@ 88 DE-TIME-EOF VALUE 'Y'.@@@@@@@E@@@@ 01 SW-KP-TIME-EOF VO )@@G@@ PIC X VALUE 'N'.@A@@@@ 88 KP-TIME-EOF VALUE 'Y'.VP )@@G@@@@@@@@@E@@@@ 01 SW-SCS-SUMM-EOF PIC X VALUE 'N'.VQ )@@G@@@B@@@@ 88 SCS-SUMM-EOF VALUE 'Y'. @@@@@@@E@@@@ 01 SVR )@@G@@W-TABLE-JA-EOF PIC X VALUE 'N'.@E@@@@ 88 TABLVS )@@G@@E-JA-EOF VALUE 'Y'.@@@@@@@]@@@@ / @^@@@@VT )@@G@@ REPORT SECTION. @@@@@@@ @@@@ RD EXPENDITURE-RPT @A@@@@VU )@@G@@ PAGE LIMIT IS 66 LINES @ @@@@ HEADING 7 VV )@@G@@@A@@@@ FIRST DETAIL 20 . @@@@@@@ @@@@ COPY DEPT-HVW )@@G@@EADER-RW. @ @@@@ 03 LINE PLUS 2. @D@@@@ 05 CVX )@@G@@OLUMN 56 PIC X(21) VALUE@B@@@@ 'EXPENDITURE VY )@@G@@WORKSHEET'. @ @@@@ 03 LINE PLUS 1. @G@@@@ 05 CVZ )@@G@@OLUMN 63 PIC XX SOURCE PROCESSING-MM. @E@@@@ WA )@@G@@ 05 COLUMN 65 PIC XXX VALUE '/19'. @G@@@@ 05 CWB )@@G@@OLUMN 68 PIC XX SOURCE PROCESSING-YY. @@@@@@@B@@@@ WC )@@G@@ 01 EXPEND-RPT-DETAIL TYPE DE. @A@@@@ 02 LINE NUMBER IS 2WD )@@G@@0. @F@@@@ 03 COLUMN 80 PIC X(9) VALUE 'ANALYWE )@@G@@SIS/'.@ @@@@ 02 LINE PLUS 1. @D@@@@ 03 COLUMN WF )@@G@@44 PIC X(67) VALUE@F@@@@ 'TOTAL DWG )@@G@@ATA ENTRY PROGRAMMING @A@@@@ - ' COMPUTER'. WH )@@G@@@ @@@@ 02 LINE PLUS 2. @F@@@@ 03 COLUMN 1 WI )@@G@@ PIC X(9) VALUE 'SALARIES:'.@G@@@@ 03 COLUMN 40 WJ )@@G@@ PIC $$$$,$$$.99 SOURCE E1-40. @G@@@@ 03 COLUMN WK )@@G@@60 PIC $$$$,$$$.99 SOURCE E1-60. @G@@@@ 03 CWL )@@G@@OLUMN 80 PIC $$$$,$$$.99 SOURCE E1-80. @G@@@@ WM )@@G@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCE E1-100. @ @@@@ WN )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 4 PICWO )@@G@@ X(24) VALUE@C@@@@ 'ADMINISTRATIVE PERSONNEL'. @G@@@@WP )@@G@@ 03 COLUMN 40 PIC $$$$,$$$.99 SOURCE E2-40. WQ )@@G@@@G@@@@ 03 COLUMN 60 PIC $$$$,$$$.99 SOURCE E2-6WR )@@G@@0. @F@@@@ 03 COLUMN 72 PIC X(5) VALUE '(15%)WS )@@G@@'. @G@@@@ 03 COLUMN 80 PIC $$$$,$$$.99 SOURCWT )@@G@@E E2-80. @F@@@@ 03 COLUMN 92 PIC X(5) VALUE WU )@@G@@'(55%)'. @G@@@@ 03 COLUMN 100 PIC $$$$,$$$.99WV )@@G@@ SOURCE E2-100. @F@@@@ 03 COLUMN 112 PIC X(5) WW )@@G@@VALUE '(30%)'. @ @@@@ 02 LINE PLUS 2. @D@@@@ WX )@@G@@ 03 COLUMN 4 PIC X(28) VALUE@C@@@@ 'NON-ADWY )@@G@@MINISTRATIVE PERSONNEL'.@G@@@@ 03 COLUMN 40 PICWZ )@@G@@ $$$$,$$$.99 SOURCE E3-40. @G@@@@ 03 COLUMN 60 XA )@@G@@ PIC $$$$,$$$.99 SOURCE E3-60. @G@@@@ 03 COLUMN 80 XB )@@G@@ PIC $$$$,$$$.99 SOURCE E3-80. @G@@@@ 03 COLUMN XC )@@G@@100 PIC $$$$,$$$.99 SOURCE E3-100. @ @@@@ 02 LINEXD )@@G@@ PLUS 2. @G@@@@ 03 COLUMN 1 PIC X(11) VALUEXE )@@G@@ 'OVERHEAD ('. @G@@@@ 03 COLUMN 13 PIC ZZ.99XF )@@G@@ SOURCE E4-13. @E@@@@ 03 COLUMN 19 PICXG )@@G@@ XXX VALUE '% )'. @G@@@@ 03 COLUMN 40 PIC $$$$,XH )@@G@@$$$.99 SOURCE E4-40. @G@@@@ 03 COLUMN 60 PICXI )@@G@@ $$$$,$$$.99 SOURCE E4-60. @G@@@@ 03 COLUMN 80 XJ )@@G@@ PIC $$$$,$$$.99 SOURCE E4-80. @G@@@@ 03 COLUMN 100 XK )@@G@@ PIC $$$$,$$$.99 SOURCE E4-100. @ @@@@ 02 LINE PLUS XL )@@G@@2. @D@@@@ 03 COLUMN 1 PIC X(20) VALUE@B@@@@XM )@@G@@ 'EMPLOYEE BENEFITS ('. @G@@@@ 03 COLUMN XN )@@G@@22 PIC ZZ.99 SOURCE E5-22. @E@@@@ 03 CXO )@@G@@OLUMN 28 PIC XXX VALUE '% )'. @G@@@@ 03 COLUMN XP )@@G@@40 PIC $$$$,$$$.99 SOURCE E5-40. @G@@@@ 03 CXQ )@@G@@OLUMN 60 PIC $$$$,$$$.99 SOURCE E5-60. @G@@@@ XR )@@G@@ 03 COLUMN 80 PIC $$$$,$$$.99 SOURCE E5-80. @G@@@@ XS )@@G@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCE E5-100. @ @@@@XT )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 1 XU )@@G@@ PIC X(35) VALUE@E@@@@ 'COST OF SUPPLIES (AVER. HIST. XV )@@G@@COST)'. @G@@@@ 03 COLUMN 40 PIC $$$$,$$$.99XW )@@G@@ SOURCE E6-40. @G@@@@ 03 COLUMN 60 PIC $$$$,XX )@@G@@$$$.99 SOURCE E6-60. @G@@@@ 03 COLUMN 80 PICXY )@@G@@ $$$$,$$$.99 SOURCE E6-80. @G@@@@ 03 COLUMN 100 XZ )@@G@@ PIC $$$$,$$$.99 SOURCE E6-100. @ @@@@ 02 LINE PLUS 2. YA )@@G@@@D@@@@ 03 COLUMN 1 PIC X(31) VALUE@D@@@@ YB )@@G@@ 'RENTAL/MAINTENANCE OF EQUIPMENT'. @G@@@@ 03 CYC )@@G@@OLUMN 40 PIC $$$$,$$$.99 SOURCE E7-40. @G@@@@ YD )@@G@@ 03 COLUMN 60 PIC $$$$,$$$.99 SOURCE E7-60. @G@@@@ YE )@@G@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCE E7-100. @ @@@@YF )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 1 YG )@@G@@ PIC X(23) VALUE@C@@@@ 'AFTER HOURS MAINTENANCE'. YH )@@G@@@G@@@@ 03 COLUMN 40 PIC $$$$,$$$.99 SOURCE E8-4YI )@@G@@0. @G@@@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCYJ )@@G@@E E8-100. @ @@@@ 02 LINE PLUS 4. @D@@@@ 03 CYK )@@G@@OLUMN 3 PIC X(25) VALUE@C@@@@ '** TOTAL EXPYL )@@G@@ENDITURES ***'. @G@@@@ 03 COLUMN 38 PIC $$,$$YM )@@G@@$,$$$.99 SOURCE E9-40. @G@@@@ 03 COLUMN 58 PICYN )@@G@@ $$,$$$,$$$.99 SOURCE E9-60. @G@@@@ 03 COLUMN 78 YO )@@G@@ PIC $$,$$$,$$$.99 SOURCE E9-80. @G@@@@ 03 COLUMN 98 YP )@@G@@ PIC $$,$$$,$$$.99 SOURCE E9-100. @ @@@@ 02 LINE PLUS YQ )@@G@@4. @D@@@@ 03 COLUMN 1 PIC X(30) VALUE@D@@@@YR )@@G@@ 'PERCENTAGE OF TOTAL = OVERHEAD'. @G@@@@ YS )@@G@@ 03 COLUMN 45 PIC ZZ.999 SOURCE E10-45. @G@@@@ YT )@@G@@ 03 COLUMN 65 PIC ZZ.999 SOURCE E10-65. @G@@@@YU )@@G@@ 03 COLUMN 85 PIC ZZ.999 SOURCE E10-85. YV )@@G@@@G@@@@ 03 COLUMN 105 PIC ZZ.999 SOURCE E10-1YW )@@G@@05. @ @@@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN YX )@@G@@1 PIC X(39) VALUE@E@@@@ 'PERCENTAGE OF TOTAYY )@@G@@L = EMPLOYEE BENEFITS'. @G@@@@ 03 COLUMN 45 PICYZ )@@G@@ ZZ.999 SOURCE E11-45. @G@@@@ 03 COLUMN 65 ZA )@@G@@ PIC ZZ.999 SOURCE E11-65. @G@@@@ 03 COLUMN 85 ZB )@@G@@ PIC ZZ.999 SOURCE E11-85. @G@@@@ 03 COLUMN ZC )@@G@@105 PIC ZZ.999 SOURCE E11-105. @@@@@@@^@@@@ RD BZD )@@G@@UDGET-RPT @A@@@@ PAGE LIMIT IS 66 LINES @ @@@@ ZE )@@G@@ HEADING 7 @A@@@@ FIRST DETAIL 15. @@@@@@@ @@@@ZF )@@G@@ COPY DEPT-HEADER-RW. @ @@@@ 03 LINE PLUS 2. @E@@@@ZG )@@G@@ 05 COLUMN 55 PIC X(24) VALUE @C@@@@ ZH )@@G@@ 'BUDGET ADJUSTMENT REPORT'. @ @@@@ 03 LINE PLUS ZI )@@G@@1. @G@@@@ 05 COLUMN 63 PIC XX SOURCE PRZJ )@@G@@OCESSING-MM.@F@@@@ 05 COLUMN 65 PIC XXX VAZK )@@G@@LUE '/19'. @G@@@@ 05 COLUMN 68 PIC XX SOUZL )@@G@@RCE PROCESSING-YY.@@@@@@@A@@@@ 01 BUD-RPT-DETAIL TYPE DE. @A@@@@ZM )@@G@@ 02 LINE NUMBER IS 15. @F@@@@ 03 COLUMN 1 ZN )@@G@@ PIC Z(5).9 SOURCE B1-1. @D@@@@ 03 COLUMN 9 ZO )@@G@@ PIC X(43) VALUE@F@@@@ 'KP/VER HOURS TO BE ADDEDZP )@@G@@ TO COMPUTER BUDGET'. @F@@@@ 03 COLUMN 57 PICZQ )@@G@@ Z(5).9 SOURCE B1-57. @D@@@@ 03 COLUMN 65 PICZR )@@G@@ X(47) VALUE@G@@@@ 'PROGRAMMER HOURS TO BE ADDED TO COMPZS )@@G@@UTER BUDGET'. @ @@@@ 02 LINE PLUS 2. @D@@@@ ZT )@@G@@ 03 COLUMN 1 PIC X(22) VALUE@B@@@@ 'INITIAZU )@@G@@L KP/VER BUDGET:'.@G@@@@ 03 COLUMN 24 PIC $$$$,ZV )@@G@@$$$.99 SOURCE B2-24. @G@@@@ 03 COLUMN 39 PICZW )@@G@@ $$$,$$$.99 SOURCE B2-39. @D@@@@ 03 COLUMN 50 ZX )@@G@@ PIC X(50) VALUE@G@@@@ 'ADDED TO COMPUTER BUDGET - ADJZY )@@G@@USTED KP/VER BUDGET:'. @G@@@@ 03 COLUMN 100 PICZZ )@@G@@ $$,$$$,$$$.99 SOURCE B2-100. @ @@@@ 02 LINE PLUS 2. @D@@@@AA )@@G@@ 03 COLUMN 1 PIC X(26) VALUE@C@@@@ AB )@@G@@ 'INITIAL PROGRAMMER BUDGET:'. @G@@@@ 03 COLUMN 28 AC )@@G@@ PIC $$$$,$$$.99 SOURCE B3-28. @G@@@@ 03 COLUMN AD )@@G@@41 PIC $$$$,$$$.99 SOURCE B3-42. @D@@@@ 03 CAE )@@G@@OLUMN 53 PIC X(54) VALUE@G@@@@ 'ADDED TO COMPUAF )@@G@@TER BUDGET - ADJUSTED PROGRAMMER BUDGET:'.@G@@@@ 03 COLUMN AG )@@G@@108 PIC $$,$$$,$$$.99 SOURCE B3-108. @ @@@@ 02 LINEAH )@@G@@ PLUS 2. @D@@@@ 03 COLUMN 1 PIC X(24) VALUEAI )@@G@@@C@@@@ 'INITIAL COMPUTER BUDGET:'. @G@@@@ AJ )@@G@@ 03 COLUMN 27 PIC $$,$$$,$$$.99 SOURCE B4-27. @D@@@@ AK )@@G@@ 03 COLUMN 44 PIC X(25) VALUE@C@@@@ 'AL )@@G@@ADJUSTED COMPUTER BUDGET:'. @G@@@@ 03 COLUMN 71 AM )@@G@@ PIC $$,$$$,$$$.99 SOURCE B4-71. @ @@@@ 02 LINE PLUS 6. AN )@@G@@@D@@@@ 03 COLUMN 1 PIC X(28) VALUE@C@@@@ AO )@@G@@ 'HOURLY RATE FOR DATA ENTRY ='.@G@@@@ 03 COLUMN AP )@@G@@30 PIC $$$$.99999 SOURCE B5-30. @D@@@@ 03 CAQ )@@G@@OLUMN 51 PIC X(38) VALUE@E@@@@ 'HOURLY RATE AR )@@G@@FOR ANALYSIS/PROGRAMMING ='. @G@@@@ 03 COLUMN 90 AS )@@G@@ PIC $$$$.99999 SOURCE B5-90. @ @@@@ 02 LINE PLUS 2. AT )@@G@@@E@@@@ 03 COLUMN 1 PIC X(63) VALUE @G@@@@AU )@@G@@ 'NET EXPENDITURE TOTAL AFTER DEDUCTING PRE-DETERMINED CAV )@@G@@@ @@@@ - 'OSTS OF:'. @F@@@@ 03 COLUMN 65 AW )@@G@@ PIC $$$$,$$$.99 SOURCE B6-65.@D@@@@ 03 COLUMN 77 AX )@@G@@ PIC X(9) VALUE @A@@@@ ' EQUALS:'. @F@@@@AY )@@G@@ 03 COLUMN 87 PIC $$$$,$$$.99 SOURCE B6-87.@ @@@@AZ )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 1 BA )@@G@@ PIC X(56) VALUE @G@@@@ 'AVERAGE RATES FOR COMPUTER PRBB )@@G@@OCESSING (SUP) HOUR: BAS@^@@@@ - 'E ='.@F@@@@ BC )@@G@@ 03 COLUMN 58 PIC $$$$.99999 SOURCE B7-58. @D@@@@ BD )@@G@@ 03 COLUMN 69 PIC X(10) VALUE @A@@@@ 'ADJUSBE )@@G@@TED ='. @F@@@@ 03 COLUMN 80 PIC $$$$.99999 SOBF )@@G@@URCE B7-77. @ @@@@ 02 LINE PLUS 2. @D@@@@ 03 BG )@@G@@COLUMN 1 PIC X(30) VALUE @D@@@@ 'SUP HOUR RABH )@@G@@TES FOR EACH SHIFT:'. @ @@@@ 02 LINE PLUS 1. @D@@@@ BI )@@G@@ 03 COLUMN 10 PIC X(22) VALUE @B@@@@ BJ )@@G@@'SHIFT-1 (0001-0800) ='.@F@@@@ 03 COLUMN 32 PIC $BK )@@G@@$$$.99999 SOURCE B9-32. @D@@@@ 03 COLUMN 42 PIC XBL )@@G@@(7) VALUE @ @@@@ '/HR FOR'. @F@@@@ 03 BM )@@G@@COLUMN 50 PIC 9(5).99999 SOURCE B9-47. @D@@@@ 03 BN )@@G@@COLUMN 62 PIC X(9) VALUE @ @@@@ 'SUP HRS ='.BO )@@G@@@F@@@@ 03 COLUMN 72 PIC $$$$,$$$.99 SOURCE B9-67.BP )@@G@@@ @@@@ 02 LINE PLUS 1. @D@@@@ 03 COLUMN 10 BQ )@@G@@ PIC X(22) VALUE @B@@@@ 'SHIFT-2 (0801-1700) ='.BR )@@G@@@F@@@@ 03 COLUMN 32 PIC $$$$.99999 SOURCE B10-32.BS )@@G@@@D@@@@ 03 COLUMN 42 PIC X(7) VALUE @ @@@@ BT )@@G@@ '/HR FOR'. @F@@@@ 03 COLUMN 50 PIC 9BU )@@G@@(5).99999 SOURCE B10-47.@D@@@@ 03 COLUMN 62 PIC XBV )@@G@@(9) VALUE @ @@@@ 'SUP HRS ='.@G@@@@ 03 BW )@@G@@COLUMN 72 PIC $$$$,$$$.99 SOURCE B10-67. @ @@@@ 0BX )@@G@@2 LINE PLUS 1. @D@@@@ 03 COLUMN 10 PIC X(22) VBY )@@G@@ALUE @B@@@@ 'SHIFT-3 (1701-2400) ='.@F@@@@ BZ )@@G@@ 03 COLUMN 32 PIC $$$$.99999 SOURCE B11-32.@D@@@@ CA )@@G@@ 03 COLUMN 42 PIC X(7) VALUE @ @@@@ '/HR FCB )@@G@@OR'. @F@@@@ 03 COLUMN 50 PIC 9(5).99999 SOURCE BCC )@@G@@11-47.@D@@@@ 03 COLUMN 62 PIC X(9) VALUE @ @@@@CD )@@G@@ 'SUP HRS ='.@G@@@@ 03 COLUMN 72 CE )@@G@@ PIC $$$$,$$$.99 SOURCE B11-67. @ @@@@ 02 LINE PLUS 2. CF )@@G@@@D@@@@ 03 COLUMN 10 PIC X(7) VALUE @ @@@@ CG )@@G@@ 'TOTALS:'. @F@@@@ 03 COLUMN 50 PIC 9(5CH )@@G@@).99999 SOURCE B12-47. @D@@@@ 03 COLUMN 62 PIC X(9CI )@@G@@) VALUE @ @@@@ 'SUP HRS ='.@F@@@@ 03 CJ )@@G@@COLUMN 72 PIC $$$$,$$$.99 SOURCE B12-67. @]@@@@ / @ @@@@CK )@@G@@ PROCEDURE DIVISION. @@@@@@@@@@@@@^@@@@ 0000-CONTROL. CL )@@G@@@@@@@@@A@@@@ PERFORM 0100-INITIALIZE. @B@@@@ PERFORMCM )@@G@@ 0110-FETCH-CTCF-IN. @D@@@@ PERFORM 0120-FETCH-SALARY-EQUIPCN )@@G@@-COSTS. @F@@@@ PERFORM 0130-FETCH-DATA-ENTRY-TIME UNTIL DECO )@@G@@-TIME-EOF. @F@@@@ PERFORM 0140-FETCH-KEYPUNCH-TIME UNTIL KP-TCP )@@G@@IME-EOF. @E@@@@ PERFORM 0150-FETCH-AP-TIME UNTIL SCS-SUMM-ECQ )@@G@@OF. @C@@@@ PERFORM 0160-FETCH-PCT-COST-FIGURES. @C@@@@ CR )@@G@@ PERFORM 0170-PROCESS-EXPENDITURE-RPT.@C@@@@ PERFORM 0180-CS )@@G@@PROCESS-BUDGET-RPT. @A@@@@ PERFORM 0190-OUTPUT-CTCF.@A@@@@CT )@@G@@ PERFORM 0199-CLOSE-UP. @^@@@@ STOP RUN. @@@@@@CU )@@G@@@@@@@@@^@@@@ 0100-INITIALIZE. @@@@@@@ @@@@ OPEN INPUT CTCV )@@G@@CF-IN @B@@@@ DATA-ENTRY-TIME @B@@@@ CW )@@G@@ SALRY-EQUIP-COSTS @A@@@@ KEY-PUNCH-TIMECX )@@G@@@B@@@@ PCT-COST-FIGURES @ @@@@ CY )@@G@@ SCS-SUMM@A@@@@ OUTPUT CTCF-OUT @A@@@@ CZ )@@G@@ PRINT-FILE. @B@@@@ ACCEPT CUR-DATE FROM DATE. DA )@@G@@@D@@@@ MOVE CORR CUR-DATE TO CUR-DATE-EDITED. @C@@@@ DB )@@G@@ MOVE CUR-DATE-EDITED TO DEPT-DATE . @C@@@@ MOVE 'H155105DC )@@G@@0' TO DEPT-PROGRAM-NO . @B@@@@ MOVE 'H15513' TO DEPT-RUN-ID . DD )@@G@@@^@@@@ READ SCS-SUMM@A@@@@ INVALID KEY DISPLAY DE )@@G@@@G@@@@ 'COULD NOT READ SCS-SUMMARY FILE' UPON PRIDF )@@G@@NTER @B@@@@ ENTER FD 'ABORT'. @@@@@@@@@@@@@ @@@@DG )@@G@@ 0110-FETCH-CTCF-IN. @@@@@@@B@@@@ READ CTCF-IN INTO CDH )@@G@@TCF-OUT-REC @D@@@@ AT END MOVE 'Y' TO SW-CTCF-IN-EOF. DI )@@G@@@B@@@@ MOVE PROCESSING-MM TO MM-SUB. @@@@@@@@@@@@@B@@@@ DJ )@@G@@ 0120-FETCH-SALARY-EQUIP-COSTS. @@@@@@@A@@@@ READ SALRY-EQDK )@@G@@UIP-COSTS @D@@@@ AT END MOVE 'Y' TO SW-CARD-IN-EOF. DL )@@G@@@ @@@@ IF NOT CONTROL-CARD@G@@@@ DISPLAY 'H155105DM )@@G@@0 CONTROL CARD MISSING' UPON PRINT-DEVICE @A@@@@ ENTER FD 'DN )@@G@@ABORT'. @@@@@@@@@@@@@A@@@@ 0130-FETCH-DATA-ENTRY-TIME. @@@@@@DO )@@G@@@A@@@@ READ DATA-ENTRY-TIME @D@@@@ AT END MDP )@@G@@OVE 'Y' TO SW-DE-TIME-EOF. @ @@@@ IF NOT DE-TIME-EOF @ @@@@DQ )@@G@@ ADD 1 TO DE-CNT @E@@@@ IF DE-ACNT-NO-FLD = '1DR )@@G@@50' OR '162' OR '865' @^@@@@ OR @B@@@@ DS )@@G@@ DE-ACNT-NO-FLD > '899' @E@@@@ ADD DE-ENTRY-MIN TODT )@@G@@ DE-BYPASS-MIN ROUNDED @E@@@@ ADD DE-VERIFY-MIN TO DE-BDU )@@G@@YPASS-MIN ROUNDED @#@@@@ ELSE@D@@@@ IF DE-ADV )@@G@@CNT-NO-FLD > '150' AND < '160'@E@@@@ ADD DE-ENTRY-MINDW )@@G@@ TO DE-OVHD-MIN ROUNDED @E@@@@ ADD DE-VERIFY-MIN TO DDX )@@G@@E-OVHD-MIN ROUNDED@^@@@@ ELSE @E@@@@ DY )@@G@@ ADD DE-ENTRY-MIN TO DE-TOTAL-MIN ROUNDED@F@@@@ ADD DZ )@@G@@DE-VERIFY-MIN TO DE-TOTAL-MIN ROUNDED @#@@@@ ELSE @G@@@@EA )@@G@@ COMPUTE DE-BYPASS-HRS ROUNDED = DE-BYPASS-MIN / 60.000 EB )@@G@@@F@@@@ COMPUTE DE-OVHD-HRS ROUNDED = DE-OVHD-MIN / 60.000 EC )@@G@@@F@@@@ COMPUTE DE-TOTAL-HRS ROUNDED = DE-TOTAL-MIN / 60.000ED )@@G@@@G@@@@ ADD DE-BYPASS-HRS DE-OVHD-HRS TO DE-TOTAL-HRS ROUNDEEE )@@G@@D @F@@@@ DISPLAY 'DE-BYPASS ' DE-BYPASS-HRS UPON PRINT-EF )@@G@@DEVICE@F@@@@ DISPLAY 'DE-OVHD ' DE-OVHD-HRS UPON PRINT-DEVIEG )@@G@@CE @F@@@@ DISPLAY 'DE-TOTAL ' DE-TOTAL-HRS UPON PRINT-DEEH )@@G@@VICE. @@@@@@@@@@@@@A@@@@ 0140-FETCH-KEYPUNCH-TIME. @@@@@@@ @@@@EI )@@G@@ READ KEY-PUNCH-TIME@D@@@@ AT END MOVE 'Y' TO SEJ )@@G@@W-KP-TIME-EOF. @ @@@@ IF NOT KP-TIME-EOF @ @@@@ EK )@@G@@ ADD 1 TO KP-CNT @B@@@@ IF KP-MACHINE-TYPE = '129' @A@@@@EL )@@G@@ IF KP-HRS-X NUMERIC@D@@@@ IF KP-JOB-EM )@@G@@CODE = 150 OR 162 OR 865@ @@@@ OR @B@@@@ EN )@@G@@ KP-JOB-CODE > 899 @E@@@@ ADD KP-EO )@@G@@HRS TO KP-BYPASS-HRS ROUNDED @^@@@@ ELSE@D@@@@ EP )@@G@@ IF KP-JOB-CODE > 150 AND < 160 @E@@@@ EQ )@@G@@ ADD KP-HRS TO KP-OVHD-HRS ROUNDED @ @@@@ EER )@@G@@LSE @E@@@@ ADD KP-HRS TO KP-TOTAL-HRS ROUNDEDES )@@G@@@^@@@@ ELSE @A@@@@ NEXT SENTENCE ET )@@G@@@#@@@@ ELSE@ @@@@ NEXT SENTENCE@#@@@@ EU )@@G@@ ELSE @G@@@@ ADD KP-BYPASS-HRS KP-OVHD-HRS TO KP-TOTAEV )@@G@@L-HRS ROUNDED @F@@@@ DISPLAY 'KP-BYPASS ' KP-BYPASS-HRSEW )@@G@@ UPON PRINT-DEVICE@F@@@@ DISPLAY 'KP-OVHD ' KP-OVHD-HRS UPOEX )@@G@@N PRINT-DEVICE @F@@@@ DISPLAY 'KP-TOTAL ' KP-TOTAL-HRS UEY )@@G@@PON PRINT-DEVICE. @@@@@@@@@@@@@ @@@@ 0150-FETCH-AP-TIME . @@@@@@EZ )@@G@@@ @@@@ READ SCS-SUMM NEXT @D@@@@ AT END MOVE 'YFA )@@G@@' TO SW-SCS-SUMM-EOF. @ @@@@ IF NOT SCS-SUMM-EOF@ @@@@ FB )@@G@@ ADD 1 TO AP-CNT @C@@@@ IF NOT INACTIVE-SUMMARY-RECOFC )@@G@@RD @D@@@@ IF SCS-ACCT-NUM = 150 OR 162 OR 865 @F@@@@FD )@@G@@ ADD ACCT-HOURS (MM-SUB) RUN-HOURS (MM-SUB) @C@@@@FE )@@G@@ TO AP-BYPASS-HRS ROUNDED@^@@@@ EFF )@@G@@LSE @D@@@@ IF SCS-ACCT-NUM > 150 AND < 160 @F@@@@FG )@@G@@ ADD ACCT-HOURS (MM-SUB) RUN-HOURS (MM-SUB) @D@@@@FH )@@G@@ TO AP-OVHD-HRS ROUNDED @^@@@@ FI )@@G@@ ELSE@F@@@@ ADD ACCT-HOURS (MM-SUB) RUN-HOUFJ )@@G@@RS (MM-SUB) @D@@@@ TO AP-TOTAL-HRS ROUNDED FK )@@G@@@#@@@@ ELSE@ @@@@ NEXT SENTENCE@#@@@@ FL )@@G@@ ELSE @G@@@@ ADD AP-BYPASS-HRS AP-OVHD-HRS TO AP-TOTAFM )@@G@@L-HRS ROUNDED @F@@@@ DISPLAY 'AP-BYPASS ' AP-BYPASS-HRSFN )@@G@@ UPON PRINT-DEVICE@F@@@@ DISPLAY 'AP-OVHD ' AP-OVHD-HRS UPOFO )@@G@@N PRINT-DEVICE @F@@@@ DISPLAY 'AP-TOTAL ' AP-TOTAL-HRS UFP )@@G@@PON PRINT-DEVICE. @@@@@@@@@@@@@A@@@@ 0160-FETCH-PCT-COST-FIGURES. FQ )@@G@@@@@@@@@A@@@@ READ PCT-COST-FIGURES @F@@@@ INFR )@@G@@VALID KEY DISPLAY 'TABLE-DISC-JA KEY 02 INVALID'@D@@@@ FS )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORFT )@@G@@T'. @B@@@@ READ PCT-COST-FIGURES NEXT @D@@@@ FU )@@G@@ AT END MOVE 'Y' TO SW-TABLE-JA-EOF. @ @@@@ IF TABLE-JA-EFV )@@G@@OF @A@@@@ OR NOT TJA-DECODE-02 @F@@@@ DISPFW )@@G@@LAY 'COULD NOT FIND TABLE-DISC-JA DECODE 02' @B@@@@ FX )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. @@@@@@FY )@@G@@@@@@@@@A@@@@ 0170-PROCESS-EXPENDITURE-RPT.@@@@@@@B@@@@ MFZ )@@G@@OVE ADMIN-SALARIES TO E2-40. @C@@@@ COMPUTE E2-60 ROUNDED = EGA )@@G@@2-40 * 0.15.@C@@@@ COMPUTE E2-80 ROUNDED = E2-40 * 0.55.@D@@@@GB )@@G@@ COMPUTE E2-100 ROUNDED = E2-40 * 0.30. @B@@@@ MGC )@@G@@OVE DE-SALARIES TO E3-60. @B@@@@ MOVE AP-SALARIES TO E3-80GD )@@G@@. @C@@@@ MOVE COMPUTER-SALARIES TO E3-100. @E@@@@ GE )@@G@@ COMPUTE E3-40 ROUNDED = E3-60 + E3-80 + E3-100. @D@@@@ CGF )@@G@@OMPUTE E1-40 ROUNDED = E2-40 + E3-40. @D@@@@ COMPUTE E1-60GG )@@G@@ ROUNDED = E2-60 + E3-60. @D@@@@ COMPUTE E1-80 ROUNDED = EGH )@@G@@2-80 + E3-80. @D@@@@ COMPUTE E1-100 ROUNDED = E2-100 + E3-GI )@@G@@100. @B@@@@ MOVE TJA-OVHD-PCT TO E4-13 @B@@@@ GJ )@@G@@ PCT-REG. @E@@@@ COMPUTE PCT-REG ROUNDED =GK )@@G@@ PCT-REG / 100.00000. @D@@@@ COMPUTE E4-60 ROUNDED = E1-60 GL )@@G@@ * PCT-REG. @D@@@@ COMPUTE E4-80 ROUNDED = E1-80 * PCT-REG. GM )@@G@@@D@@@@ COMPUTE E4-100 ROUNDED = E1-100 * PCT-REG. @E@@@@ GN )@@G@@ COMPUTE E4-40 ROUNDED = E4-60 + E4-80 + E4-100. @A@@@@ MGO )@@G@@OVE E4-40 TO E4-40A. @A@@@@ MOVE E4-60 TO E4-60A. @A@@@@GP )@@G@@ MOVE E4-80 TO E4-80A. @A@@@@ MOVE E4-100 TO E4-1GQ )@@G@@00A. @C@@@@ MOVE TJA-EMP-BENEFIT-PCT TO E5-22 @B@@@@ GR )@@G@@ PCT-REG. @E@@@@ COMPUTE PCT-REG ROUGS )@@G@@NDED = PCT-REG / 100.00000. @D@@@@ COMPUTE E5-60 ROUNDED = GT )@@G@@E1-60 * PCT-REG. @D@@@@ COMPUTE E5-80 ROUNDED = E1-80 * PCTGU )@@G@@-REG. @D@@@@ COMPUTE E5-100 ROUNDED = E1-100 * PCT-REG. @E@@@@GV )@@G@@ COMPUTE E5-40 ROUNDED = E5-60 + E5-80 + E5-100. @A@@@@ GW )@@G@@ MOVE E5-40 TO E5-40A. @A@@@@ MOVE E5-60 TO E5-60A. GX )@@G@@@A@@@@ MOVE E5-80 TO E5-80A. @A@@@@ MOVE E5-100 TGY )@@G@@O E5-100A. @B@@@@ MOVE TJA-DE-SUPPLIES TO E6-60. @B@@@@ GZ )@@G@@ MOVE TJA-AP-SUPPLIES TO E6-80. @C@@@@ MOVE TJA-COMPUTER-SHA )@@G@@UPPLIES TO E6-100.@E@@@@ COMPUTE E6-40 ROUNDED = E6-60 + E6-80HB )@@G@@ + E6-100. @B@@@@ MOVE DE-EQUIP-COST TO E7-60. @C@@@@ HC )@@G@@ MOVE COMPUTER-EQUIP-COST TO E7-100. @D@@@@ COMPUTE E7-40HD )@@G@@ ROUNDED = E7-60 + E7-100. @B@@@@ MOVE AFTER-5-MAINT TO E8-HE )@@G@@40 @B@@@@ E8-100. @F@@@@ CHF )@@G@@OMPUTE E9-40 ROUNDED = E1-40 + E4-40 + E5-40 + E6-40 +@D@@@@ HG )@@G@@ E7-40 + E8-40. @F@@@@ COMPUTE E9-60HH )@@G@@ ROUNDED = E1-60 + E4-60 + E5-60 + E6-60 +@B@@@@ HI )@@G@@ E7-60. @F@@@@ COMPUTE E9-80 ROUNDED = E1-80 + E4-80HJ )@@G@@ + E5-80 + E6-80. @G@@@@ COMPUTE E9-100 ROUNDED = E1-100 + E4-HK )@@G@@100 + E5-100 + E6-100 + @D@@@@ E7-100HL )@@G@@ + E8-100. @A@@@@ MOVE E9-40 TO E9-40A. @A@@@@ MHM )@@G@@OVE E9-60 TO E9-60A. @A@@@@ MOVE E9-80 TO E9-80A. @A@@@@HN )@@G@@ MOVE E9-100 TO E9-100A. @F@@@@ COMPUTE E10-45 ROUNHO )@@G@@DED = (E4-40A / E9-40A) * 100.00000.@F@@@@ COMPUTE E10-65 ROUNHP )@@G@@DED = (E4-60A / E9-60A) * 100.00000.@F@@@@ COMPUTE E10-85 ROUNHQ )@@G@@DED = (E4-80A / E9-80A) * 100.00000.@G@@@@ COMPUTE E10-105 ROUHR )@@G@@NDED = (E4-100A / E9-100A) * 100.00000. @G@@@@ COMPUTE E11-4HS )@@G@@5 ROUNDED = (E5-40A / E9-40A) * 100.00000. @G@@@@ COMPUTEHT )@@G@@ E11-65 ROUNDED = (E5-60A / E9-60A) * 100.00000. @G@@@@ CHU )@@G@@OMPUTE E11-85 ROUNDED = (E5-80A / E9-80A) * 100.00000. @G@@@@ HV )@@G@@ COMPUTE E11-105 ROUNDED = (E5-100A / E9-100A) * 100.00000. @A@@@@HW )@@G@@ INITIATE EXPENDITURE-RPT.@B@@@@ GENERATE EXPEND-RPTHX )@@G@@-DETAIL. @B@@@@ TERMINATE EXPENDITURE-RPT. @@@@@@@@@@@@HY )@@G@@@A@@@@ 0180-PROCESS-BUDGET-RPT. @@@@@@@A@@@@ MOVE E9HZ )@@G@@-60 TO B2-24. @A@@@@ MOVE E9-80 TO B3-28. @A@@@@ IA )@@G@@ MOVE E9-100 TO B4-27. @D@@@@ ADD KP-BYPASS-HRS TO DE-BIB )@@G@@YPASS-HRS ROUNDED.@D@@@@ ADD KP-OVHD-HRS TO DE-OVHD-HRS ROUNDEIC )@@G@@D. @D@@@@ ADD KP-TOTAL-HRS TO DE-TOTAL-HRS ROUNDED. @A@@@@ID )@@G@@ MOVE DE-OVHD-HRS TO B1-1.@B@@@@ MOVE AP-OVHD-HRS TOIE )@@G@@ B1-57. @E@@@@ COMPUTE B2-39 ROUNDED = (E9-60 / DE-TOTAL-HIF )@@G@@RS) * @C@@@@ DE-OVHD-HRS. @D@@@@ IG )@@G@@ COMPUTE B2-100 ROUNDED = B2-24 - B2-39. @E@@@@ COMPUTEIH )@@G@@ B3-42 ROUNDED = (E9-80 / AP-TOTAL-HRS) * @C@@@@ II )@@G@@ AP-OVHD-HRS. @D@@@@ COMPUTE B3-108 ROUNDED = B3-28 IJ )@@G@@- B3-42. @E@@@@ COMPUTE B4-71 ROUNDED = B2-39 + B3-42 + B4-IK )@@G@@27. @E@@@@ COMPUTE B5-30 ROUNDED = B2-100 / (DE-TOTAL-HRS - IL )@@G@@@F@@@@ (DE-OVHD-HRS + DE-BYPASS-HRS)).IM )@@G@@@E@@@@ COMPUTE B5-90 ROUNDED = B3-108 / (AP-TOTAL-HRS - @F@@@@IN )@@G@@ (AP-OVHD-HRS + AP-BYPASS-HRS)).@C@@@@IO )@@G@@ PERFORM 0200-ACCUMULATE-PRE-DET-COSTS@D@@@@ IP )@@G@@ VARYING Q FROM 1 BY 1 UNTIL Q > 20.@C@@@@ ADD COMM-TRANS TO BIQ )@@G@@6-65 ROUNDED. @D@@@@ COMPUTE B6-87 ROUNDED = B4-71 - B6-65IR )@@G@@. @B@@@@ MOVE NON-DP-HRS (1) TO B9-47. @B@@@@ MIS )@@G@@OVE NON-DP-HRS (2) TO B10-47. @B@@@@ MOVE NON-DP-HRS (3) TO B1IT )@@G@@1-47. @B@@@@ MOVE SUP-HRS-LESS-DP TO B12-47.@D@@@@ CIU )@@G@@OMPUTE B7-58 ROUNDED = B4-71 / B12-47. @D@@@@ COMPUTE B7-77IV )@@G@@ ROUNDED = B6-87 / B12-47. @B@@@@ MOVE SHIFT1-DIFF TO PCT-RIW )@@G@@EG. @E@@@@ COMPUTE PCT-REG ROUNDED = PCT-REG / 100.00000. IX )@@G@@@D@@@@ COMPUTE B9-32 ROUNDED = B7-77 * PCT-REG. @D@@@@ IY )@@G@@ COMPUTE B9-67A ROUNDED = B9-32 * B9-47. @D@@@@ COMPUTEIZ )@@G@@ B9-67 ROUNDED = B9-67 + B9-67A. @B@@@@ MOVE SHIFT3-DIFF TOJA )@@G@@ PCT-REG. @E@@@@ COMPUTE PCT-REG ROUNDED = PCT-REG / 100.000JB )@@G@@00. @D@@@@ COMPUTE B11-32 ROUNDED = B7-77 * PCT-REG. @D@@@@JC )@@G@@ COMPUTE B11-67A ROUNDED = B11-32 * B11-47. @D@@@@ CJD )@@G@@OMPUTE B11-67 ROUNDED = B11-67 + B11-67A. @A@@@@ MOVE B6-87 TOJE )@@G@@ B6-87A. @F@@@@ COMPUTE B10-67A ROUNDED = B6-87A - (B9-67A JF )@@G@@+ B11-67A). @D@@@@ COMPUTE B10-67 ROUNDED = B10-67 + B10-67A. JG )@@G@@@D@@@@ COMPUTE B10-32 ROUNDED = B10-67A / B10-47. @E@@@@ JH )@@G@@ COMPUTE B12-67 ROUNDED = B9-67 + B10-67 + B11-67.@A@@@@ IJI )@@G@@NITIATE BUDGET-RPT. @A@@@@ GENERATE BUD-RPT-DETAIL. @A@@@@JJ )@@G@@ TERMINATE BUDGET-RPT. @@@@@@@@@@@@@^@@@@ 0190-OUTPUTJK )@@G@@-CTCF.@@@@@@@D@@@@ MOVE E10-65 TO D-E OF PCT-OVHD-TO-APPLY. JL )@@G@@@D@@@@ MOVE E10-85 TO AP OF PCT-OVHD-TO-APPLY. @E@@@@ JM )@@G@@ MOVE E10-105 TO COMPUTER OF PCT-OVHD-TO-APPLY. @E@@@@ MJN )@@G@@OVE E11-65 TO D-E OF PCT-EMPLOYEE-BENEFITS. @E@@@@ MOVE E1JO )@@G@@1-85 TO AP OF PCT-EMPLOYEE-BENEFITS. @F@@@@ MOVE E11-105 JP )@@G@@TO COMPUTER OF PCT-EMPLOYEE-BENEFITS. @C@@@@ MOVE B5-30 TOJQ )@@G@@ D-E OF HOURLY-RATES. @C@@@@ MOVE B5-90 TO AP OF HOURLY-RATJR )@@G@@ES. @C@@@@ MOVE B7-58 TO UNADJ-SUP-HR-RATE. @B@@@@ JS )@@G@@ MOVE B9-32 TO CMPUTR-RATES (1).@C@@@@ MOVE B10-32 TO CMPUJT )@@G@@TR-RATES (2). @C@@@@ MOVE B11-32 TO CMPUTR-RATES (3). JU )@@G@@@ @@@@ WRITE CTCF-OUT-REC.@@@@@@@@@@@@@^@@@@ 0199-CLOSE-JV )@@G@@UP. @@@@@@@^@@@@ CLOSE CTCF-IN@A@@@@ DATA-ENJW )@@G@@TRY-TIME @A@@@@ SALRY-EQUIP-COSTS @A@@@@ JX )@@G@@ KEY-PUNCH-TIME @A@@@@ PCT-COST-FIGURES @ @@@@JY )@@G@@ SCS-SUMM @ @@@@ CTCF-OUT @ @@@@JZ )@@G@@ PRINT-FILE. @C@@@@ CALL 'LOG-RCNT' USING DE-KA )@@G@@NAME DE-CNT.@C@@@@ CALL 'LOG-RCNT' USING KP-NAME KP-CNT.@C@@@@KB )@@G@@ CALL 'LOG-RCNT' USING AP-NAME AP-CNT.@@@@@@@@@@@@@B@@@@ KC )@@G@@ 0200-ACCUMULATE-PRE-DET-COSTS. @@@@@@@B@@@@ IF PRE-DET-ITKD )@@G@@EM (Q) IS NUMERIC @F@@@@ COMPUTE B6-65 ROUNDED = B6-65 + PRKE )@@G@@E-DET-ITEM (Q). ___@@@ IF KP-HRS-X NUMERIC@D@@@@ KF )@@G@@ IF KP-JOB-CODE = 150 OR 162 OR 865@ @@@@ KG )@@G@@ OR @B@@@@ *[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONKH )@@G@@. @A@@@@ PROGRAM-ID. H1551060. @B@@@@ AUTHOR. KI )@@G@@ JOHN BROZOVSKY. @D@@@@ INSTALLATION. TEXAS DEPARTMENT OFKJ )@@G@@ HEALTH. @B@@@@ DATE-WRITTEN. SEPTEMBER 16, 1978.@^@@@@ KK )@@G@@ DATE-COMPILED. @C@@@@ *REMARKS. *** ASCII ANS-1974 *** KL )@@G@@@C@@@@ * INPUTS: COST-TOTALS-BY-CATAGORY @C@@@@ * KM )@@G@@ MONTHLY-ACCOUNTING-LOG @D@@@@ * YEAR-TKN )@@G@@O-DATE-ACCOUNTING-LOG @E@@@@ * ANALYSIS / PROGRAMKO )@@G@@MING TIME (SCS) @A@@@@ * INFOREX TIME@D@@@@ KP )@@G@@* KEYPUNCH TIME (TEMPORARY). @]@@@@ * @E@@@@KQ )@@G@@ * THESE ARE USED TO CREATE AND UPDATE THE @F@@@@ KR )@@G@@* YEAR-TO-DATE-ACCOUNTING-LOG, TO CREATE THE @G@@@@ KS )@@G@@* COST-SUMMARY-BY-ACCOUNT (LEAVES SEVERAL FIELDS @G@@@@KT )@@G@@ * BLANK), AND TO WRITE THE COMPUTER UTILIZATION KU )@@G@@@ @@@@ * RECAP. @]@@@@ * @]@@@@ * KV )@@G@@@]@@@@ * @]@@@@ * @ @@@@ * CHANGE 10 MAY 80 KW )@@G@@@C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ * KX )@@G@@@ @@@@ ENVIRONMENT DIVISION. @ @@@@ CONFIGURATION SECTION. KY )@@G@@@ @@@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@ SPECIAL-NAMES. KZ )@@G@@@ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUT SECTION. LA )@@G@@@@@@@@@^@@@@ FILE-CONTROL. @B@@@@ SELECT COST-BY-CATALB )@@G@@GORY-FILE @C@@@@ ASSIGN TO MASS-STORAGE CTCF. @A@@@@LC )@@G@@ SELECT MONTHLY-BY-ACCOUNT@D@@@@ ASSIGN TO MASS-LD )@@G@@STORAGE MTH-ACNT-SUM. @B@@@@ SELECT SCS-BY-ACCOUNT-FILE LE )@@G@@@D@@@@ ASSIGN TO MASS-STORAGE SCS-SUMMARY, @B@@@@ LF )@@G@@ ACCESS MODE IS SEQUENTIAL, @B@@@@ ORGANIZATION ISLG )@@G@@ INDEXED, @B@@@@ PROCESSING IS SEQUENTIAL, @B@@@@ LH )@@G@@ ACTUAL KEY IS SCS-SUMM-KEY.@B@@@@ SELECT OPTIONAL OLDLI )@@G@@-Y-T-D-FILE @D@@@@ ASSIGN TO MASS-STORAGE OLD-YTD-ACNT. LJ )@@G@@@A@@@@ SELECT NEW-Y-T-D-FILE @D@@@@ ASSIGN TOLK )@@G@@ MASS-STORAGE NEW-YTD-ACNT. @B@@@@ SELECT COST-BY-ACCOUNT-FILL )@@G@@LE @D@@@@ ASSIGN TO MASS-STORAGE MTH-COST-SUM. @B@@@@LM )@@G@@ SELECT OPTIONAL INFOREX-FILE @C@@@@ ASSIGN TOLN )@@G@@ MASS-STORAGE DE-FILE. @A@@@@ SELECT KEYPUNCH-FILE @C@@@@LO )@@G@@ ASSIGN TO CARD-READER KP-CARDS. @ @@@@ SELECT LP )@@G@@PRINT-FILE @C@@@@ ASSIGN TO PRINTER UTILIZ-RPT. @]@@@@LQ )@@G@@ / @^@@@@ DATA DIVISION. @@@@@@@^@@@@ FILE SECTIOLR )@@G@@N. @@@@@@@@@@@@@A@@@@ FD COST-BY-CATAGORY-FILE, @B@@@@ LS )@@G@@ LABEL RECORDS ARE STANDARD, @A@@@@ BLOCK CONTAINS 1 RELT )@@G@@CORDS,@B@@@@ DATA RECORD IS CATAGORY-RECORD.@@@@@@@C@@@@ LU )@@G@@ 01 CATAGORY-RECORD. COPY CTCF-REC. @@@@@@@@@@@@@^@@@@ FD PLV )@@G@@RINT-FILE @A@@@@ LABEL RECORDS ARE OMITTED@A@@@@ LLW )@@G@@INAGE 66 TOP 0 BOTTOM 0 @B@@@@ DATA RECORD IS PRINT-LINE. LX )@@G@@@@@@@@@C@@@@ 01 PRINT-LINE PIC X(132). @@@@@@@@@@@@LY )@@G@@@ @@@@ FD MONTHLY-BY-ACCOUNT,@B@@@@ LABEL RECORDS ARE SLZ )@@G@@TANDARD, @A@@@@ BLOCK CONTAINS 3 RECORDS,@A@@@@ DMA )@@G@@ATA RECORD IS ACCOUNT. @@@@@@@B@@@@ 01 ACCOUNT. COPY DLY-ACCT-MMB )@@G@@ST. @@@@@@@@@@@@@A@@@@ FD SCS-BY-ACCOUNT-FILE, @B@@@@ MC )@@G@@ LABEL RECORDS ARE STANDARD, @B@@@@ BLOCK CONTAINS 119 MD )@@G@@RECORDS, @B@@@@ DATA RECORD IS SCS-RECORD. @@@@@@@B@@@@ME )@@G@@ 01 SCS-RECORD. COPY SCS-SUMM-REC. @@@@@@@@@@@@@ @@@@ FD OMF )@@G@@LD-Y-T-D-FILE, @B@@@@ LABEL RECORDS ARE STANDARD, @A@@@@MG )@@G@@ BLOCK CONTAINS 3 RECORDS,@C@@@@ RECORD CONTAINS 199MH )@@G@@2 CHARACTERS, @C@@@@ DATA RECORD IS OLD-ACCOUNT-YEARLY. MI )@@G@@@@@@@@@E@@@@ 01 OLD-ACCOUNT-YEARLY PIC X(1992) USAGE DISP-1. MJ )@@G@@@@@@@@@@@@@@@ @@@@ FD NEW-Y-T-D-FILE, @B@@@@ LABEL RMK )@@G@@ECORDS ARE STANDARD, @A@@@@ BLOCK CONTAINS 3 RECORDS,@C@@@@ML )@@G@@ DATA RECORD IS NEW-ACCOUNT-YEARLY. @@@@@@@ @@@@ 01 NMM )@@G@@EW-ACCOUNT-YEARLY.@E@@@@ 05 INITIAL-ACCT-INFO USAGEMN )@@G@@ DISP-1. @C@@@@ 10 FILLER PIC X(4). @B@@@@MO )@@G@@ 10 ACCOUNT-TYPE PIC X. @D@@@@ 88 DMP )@@G@@EVELOPMENTAL VALUE 'T'. @C@@@@ 10 FILLER PMQ )@@G@@IC X(9). @B@@@@ 10 MONTH-OF-YEARLY PIC 99.@B@@@@ MR )@@G@@ 10 ACCT-DAY-CODE PIC 99.@D@@@@ 88 WEEKDAYMS )@@G@@ VALUE 32. @D@@@@ 88 WEEKEND MT )@@G@@ VALUE 33. @C@@@@ 10 FILLER PIC X(6). @C@@@@MU )@@G@@ 05 START-FILLER USAGE IS COMP-4. @E@@@@ 10 MV )@@G@@ FILLER PIC 9(10) OCCURS 16 TIMES. @C@@@@ 10 SHIFTMW )@@G@@-INFO OCCURS 3 TIMES. @E@@@@ 15 FILLER PIC 9(10) OMX )@@G@@CCURS 4 TIMES. @D@@@@ 15 BATCH-RUNS PIC 9MY )@@G@@(10). @E@@@@ 15 FILLER PIC 9(10) OCCURS 6 TIMES. MZ )@@G@@@D@@@@ 15 FILLER PIC 9. @D@@@@ NA )@@G@@ 15 BATCH-SUPS PIC 9(18). @G@@@@ NB )@@G@@ 15 FILLER PIC 9(10) OCCURS 18 TIMES. @D@@@@ NC )@@G@@ 15 DEMAND-RUNS PIC 9(10). @D@@@@ 15 FND )@@G@@ILLER PIC 9(10). @D@@@@ 15 FILLER NE )@@G@@ PIC 9. @D@@@@ 15 DEMAND-SUPS PIC 9NF )@@G@@(18). @G@@@@ 15 FILLER PIC 9(10) OCCURS NG )@@G@@18 TIMES. @D@@@@ 15 RT-BATCH-RUNS PIC 9(10). NH )@@G@@@G@@@@ 15 FILLER PIC 9(10) OCCURS 4 TIMNI )@@G@@ES. @D@@@@ 15 FILLER PIC 9. @D@@@@NJ )@@G@@ 15 RT-BATCH-SUPS PIC 9(18). @G@@@@ NK )@@G@@ 15 FILLER PIC 9(10) OCCURS 20 TIMES. @D@@@@ NL )@@G@@ 15 RT-DEMAND-RUNS PIC 9(10). @D@@@@ NM )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 FILLER NN )@@G@@ PIC 9. @D@@@@ 15 RT-DEMAND-SUPS NO )@@G@@ PIC 9(18). @G@@@@ 15 FILLER PIC 9(10) ONP )@@G@@CCURS 20 TIMES. @@@@@@@@@@@@@A@@@@ FD COST-BY-ACCOUNT-FILE, NQ )@@G@@@B@@@@ LABEL RECORDS ARE STANDARD, @B@@@@ BLOCK CNR )@@G@@ONTAINS 13 RECORDS, @B@@@@ RECORD CONTAINS 236 CHARACTERS,NS )@@G@@@F@@@@ DATA RECORD ARE BY-ACCOUNT-RECORD, BY-ACCOUNT-CLEAR. NT )@@G@@@@@@@@@ @@@@ 01 BY-ACCOUNT-RECORD. @ @@@@ 05 BUDGET-NUMNU )@@G@@. @C@@@@ 10 DEPUTY-NUMBER PIC X . @C@@@@ NV )@@G@@ 10 BUREAU-NUMBER PIC X . @C@@@@ 10 FILLERNW )@@G@@ PIC XXX . @A@@@@ 10 ACCOUNT-CODE. @C@@@@NX )@@G@@ 15 ACCT-CODE-3 PIC XXX. @C@@@@ NY )@@G@@ 15 ACCT-CODE-L PIC X(9). @^@@@@ 05 PERIOD. @B@@@@ NZ )@@G@@ 10 PERIOD-YEAR PIC XX.@B@@@@ 10 PERIOD-MONTOA )@@G@@H PIC XX.@C@@@@ 05 FILLER PIC XXX. @D@@@@OB )@@G@@ 05 NUMERIC-FIELDS USAGE IS COMPUTATIONAL. @C@@@@ OC )@@G@@ 10 NUM-OF-RUNS PIC 9(10). @D@@@@ 10 COMPUTER-PROD )@@G@@OCESSING OCCURS 3 TIMES.@D@@@@ 15 COMP-HOURS PICOE )@@G@@ 9(5)V9(4). @C@@@@ 15 COMP-COST PIC 9(7)V99. @A@@@@OF )@@G@@ 10 RELATED-COSTS. @D@@@@ 15 CARDS-IOG )@@G@@N-REL PIC 9(10). @D@@@@ 15 CARDS-IN-COST PICOH )@@G@@ 9(7)V99. @D@@@@ 15 CARDS-OUT-REL PIC 9(10). OI )@@G@@@D@@@@ 15 CARDS-OUT-COST PIC 9(7)V99. @D@@@@ OJ )@@G@@ 15 PAGES-PRINTED PIC 9(10). @D@@@@ OK )@@G@@ 15 PAGES-COST PIC 9(7)V99. @D@@@@ 15 FORMS-MOL )@@G@@OUNTED PIC 9(10). @D@@@@ 15 FORMS-MT-COST PICOM )@@G@@ 9(7)V99. @D@@@@ 15 REELS-MOUNT PIC 9(10). ON )@@G@@@D@@@@ 15 REELS-MT-COST PIC 9(7)V99. @C@@@@ OO )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 TOP )@@G@@APE-DATA-TRANS PIC 9(18). @D@@@@ 15 DATA-TRAN-COSOQ )@@G@@T PIC 9(7)V99. @D@@@@ 15 REELS-IN-LIBR PIC 9(10)OR )@@G@@. @D@@@@ 15 REELS-LIBR-COST PIC 9(7)V99. @D@@@@OS )@@G@@ 15 PACKS-MOUNTED PIC 9(10). @D@@@@ OT )@@G@@ 15 PACK-MT-COST PIC 9(7)V99. @C@@@@ 15 FOU )@@G@@ILLER PIC 9. @D@@@@ 15 CAT-DISC-TRACKS PICOV )@@G@@ 9(18). @D@@@@ 15 CAT-TRACKS-COST PIC 9(7)V99. OW )@@G@@@C@@@@ 15 FILLER PIC 9. @D@@@@ OX )@@G@@ 15 MS-DATA-TRANS PIC 9(18). @E@@@@ 15 MOY )@@G@@S-DATA-TRANS-COST PIC 9(7)V99. @D@@@@ 15 PACK-DUOZ )@@G@@R PIC 9(10). @D@@@@ 15 PACK-DUR-COST PICPA )@@G@@ 9(7)V99. @A@@@@ 10 DATA-ENTRY-COSTS.@D@@@@ PB )@@G@@ 15 DE-REC-ENTERED PIC 9(10). @D@@@@ 15 DPC )@@G@@E-REC-VERIFIED PIC 9(10). @D@@@@ 15 DE-KEY-ENTEREPD )@@G@@D PIC 9(10). @D@@@@ 15 DE-KEY-VERIFIED PIC 9(10)PE )@@G@@. @D@@@@ 15 DE-HOUR-ENTER PIC 9(7)V9. @D@@@@PF )@@G@@ 15 DE-ENTER-COST PIC 9(7)V99. @D@@@@ PG )@@G@@ 15 DE-HOUR-VERIFY PIC 9(7)V9. @D@@@@ 15 DPH )@@G@@E-VERIFY-COST PIC 9(7)V99. @B@@@@ 10 ANALYSIS-PROGRAMMPI )@@G@@ING. @D@@@@ 15 AP-HOURS PIC 9(7)V9. @D@@@@PJ )@@G@@ 15 AP-COST PIC 9(7)V99. @A@@@@ PK )@@G@@ 10 RELATED-COST-2. @D@@@@ 15 DATA-COM-SOFT PICPL )@@G@@ 9(7)V99. @D@@@@ 15 DATA-COM-HARD PIC 9(7)V99. PM )@@G@@@D@@@@ 10 OTHER-COST PIC 9(7)V99. @A@@@@ PN )@@G@@ 10 OVERHEAD-PERCENT.@D@@@@ 15 COMPUTER-OV PO )@@G@@ PIC 9(5)V999. @D@@@@ 15 DATA-ENTRY-OV PIC 9(5)VPP )@@G@@999. @D@@@@ 15 ANAL-PROG-OV PIC 9(5)V999. @B@@@@PQ )@@G@@ 10 EMPLOYEE-BENEFITS-PCT. @D@@@@ 15 CPR )@@G@@OMPUTER-EMP PIC 9(5)V999. @D@@@@ 15 DATA-ENTRY-EMPS )@@G@@P PIC 9(5)V999. @D@@@@ 15 ANAL-PROG-EMP PIC 9(5)VPT )@@G@@999. @D@@@@ 10 BUDGETED-AMOUNT PIC 9(7)V99. @D@@@@PU )@@G@@ 10 NUM-COM-TRANS PIC 9(10). @@@@@@@ @@@@ PV )@@G@@ 01 BY-ACCOUNT-CLEAR. @A@@@@ 05 FILLER PIC X(24). @A@@@@PW )@@G@@ 05 NUM USAGE COMP. @G@@@@ 10 NUMERIC-FIEPX )@@G@@LDS-CLEAR OCCURS 53 TIMES PIC 9(10). @@@@@@@@@@@@@^@@@@ FD IPY )@@G@@NFOREX-FILE,@B@@@@ LABEL RECORDS ARE STANDARD, @A@@@@ PZ )@@G@@ BLOCK CONTAINS 8 RECORDS,@B@@@@ DATA RECORD IS INFOREX-CAQA )@@G@@RD. @@@@@@@B@@@@ 01 INFOREX-CARD. COPY DE-REC. @@@@@@@@@@@@QB )@@G@@@^@@@@ FD KEYPUNCH-FILE@A@@@@ LABEL RECORDS ARE OMITTEDQC )@@G@@@B@@@@ RECORD CONTAINS 80 CHARACTERS @B@@@@ DATA REQD )@@G@@CORD IS KEYPUNCH-RECORD.@D@@@@ 01 KEYPUNCH-RECORD QE )@@G@@ PIC X(80).@]@@@@ / @A@@@@ WORKING-STORAGE SECTION. QF )@@G@@@@@@@@@@@@@@@D@@@@ 77 PRINT-MONTH PIC 9(10) COMP.QG )@@G@@@D@@@@ 77 PROD-TEST PIC 9(10) COMP.@D@@@@ QH )@@G@@ 77 SHIFT PIC 9(10) COMP.@D@@@@ 77 INFOREXQI )@@G@@-TIME PIC 9(5)V999. @C@@@@ 77 CALC-YEAR-TMP QJ )@@G@@ PIC 99. @D@@@@ 77 MONTH PIC 9(10)QK )@@G@@ COMP.@D@@@@ 77 TEMP-CALC PIC 9(7)V9(5). @D@@@@QL )@@G@@ 77 REC-ENTERED PIC 9(10). @E@@@@ 77 TQM )@@G@@OTAL-TIME-TO-PUNCH PIC 9(7)V9 VALUE 0. @D@@@@ 77 TIME-RAQN )@@G@@TIO PIC 9(5)V9(5). @C@@@@ 77 TIME-OFF QO )@@G@@ PIC 9V9. @E@@@@ 77 KP-HOUR-ENTER PIC 9(7)VQP )@@G@@9 VALUE 0. @E@@@@ 77 KP-HOUR-VERIFY PIC 9(7)V9 VALUQQ )@@G@@E 0. @E@@@@ 77 KP-REC-ENTERED PIC 9(10) VALUE 0. QR )@@G@@@E@@@@ 77 KP-REC-VERIFIED PIC 9(10) VALUE 0. @F@@@@QS )@@G@@ 77 ACT-DE-MIN-ENT PIC 9(10)V999 VALUE 0. @F@@@@QT )@@G@@ 77 ACT-DE-MIN-VER PIC 9(10)V999 VALUE 0. @D@@@@QU )@@G@@ 77 TEMP-DE-HOUR-ENTER PIC 9(7)V9. @D@@@@ 77 TQV )@@G@@EMP-DE-HOUR-VERIFY PIC 9(7)V9. @D@@@@ 77 HOLD-ACCT VALQW )@@G@@UE SPACE PIC X(12). @@@@@@@@@@@@@^@@@@ 01 DE-JOBACNT. QX )@@G@@@E@@@@ 05 DE-ACT-NO PIC XXX. @E@@@@QY )@@G@@ 05 DE-ACT-RMDR PIC X(9). @E@@@@ QZ )@@G@@ 01 JOB-ACCOUNT-NUM PIC X(12). @^@@@@ 01 ARA )@@G@@CCOUNT-NUM. @E@@@@ 05 ACCT-NUM PIC XXXRB )@@G@@. @E@@@@ 05 ACCT-TYPE PIC X(9). RC )@@G@@@@@@@@@ @@@@ 01 KEYPUNCH-CARD. @B@@@@ 05 PUNCH-VERRD )@@G@@IFY PIC X. @E@@@@ 88 KP-TIME VALURE )@@G@@E IS ' '. @E@@@@ 88 KEYPUNCH VALUE IS '0RF )@@G@@'. @E@@@@ 88 VERIFY VALUE IS '1'. RG )@@G@@@C@@@@ 05 FILLER PIC X(4). @C@@@@ 0RH )@@G@@5 FILLER PIC X(6). @C@@@@ 05 KP-ACNT-NUMBER RI )@@G@@ PIC XXX. @C@@@@ 05 TIME-TO-PUNCH PIC 99V9. RJ )@@G@@@C@@@@ 05 FILLER PIC X(7). @C@@@@ 0RK )@@G@@5 NUM-RECORDS-PUNCHED PIC 9(6). @C@@@@ 05 FILLER RL )@@G@@ PIC X(50). @@@@@@@D@@@@ 01 CALCULATIONS-FOR-2ND-PRINT USARM )@@G@@GE COMP-4. @D@@@@ 05 PROD-RUNS-CALC PIC 9(10). RN )@@G@@@D@@@@ 05 TEST-RUNS-CALC PIC 9(10). @D@@@@ RO )@@G@@ 05 PROD-SUP-HOURS-CALC PIC 9(6)V9(4). @D@@@@ 05 TESRP )@@G@@T-SUP-HOURS-CALC PIC 9(6)V9(4). @^@@@@ 01 LOW-ACCOUNT. @C@@@@RQ )@@G@@ 05 LOW-NUM PIC XXX.@D@@@@ 05 LOWRR )@@G@@-TYPE PIC X(9). @@@@@@@@@@@@@^@@@@ COPY DEPT-HRS )@@G@@EADER.@@@@@@@^@@@@ 01 HEADER-3. @E@@@@ 05 FILLER RT )@@G@@ PIC X(53) VALUE IS SPACES. @B@@@@ 05 FILLER RU )@@G@@ PIC X(79) @E@@@@ VALUE IS 'COMPUTER UTILIZATION RECARV )@@G@@P'. @@@@@@@^@@@@ 01 HEADER-4. @E@@@@ 05 FILLER RW )@@G@@ PIC X(58) VALUE IS SPACES. @E@@@@ 05 FILLER RX )@@G@@ PIC X(4) VALUE IS 'SEP '. @B@@@@ 05 HEADING-YEAR-1 PIC XRY )@@G@@X. @E@@@@ 05 FILLER PIC XXX VALUE IS ' - '. RZ )@@G@@@B@@@@ 05 HEADING-MONTH-2 PIC XXXX. @B@@@@ 05 HEASA )@@G@@DING-YEAR-2 PIC XX. @E@@@@ 05 FILLER PIC X(53) SB )@@G@@ VALUE IS SPACES. @@@@@@@@@@@@@ @@@@ 01 DETAIL-HEAD-MONTHS.@E@@@@SC )@@G@@ 05 FILLER PIC X(4) VALUE IS SPACES. @G@@@@ SD )@@G@@ 05 FILLER PIC X(26) VALUE IS '----DESCRIPTION----'.@E@@@@SE )@@G@@ 05 FILLER PIC X(9) VALUE IS 'SEP'. @E@@@@ SF )@@G@@ 05 FILLER PIC X(9) VALUE IS 'OCT'. @E@@@@ 0SG )@@G@@5 FILLER PIC X(9) VALUE IS 'NOV'. @E@@@@ 05 FILSH )@@G@@LER PIC X(9) VALUE IS 'DEC'. @E@@@@ 05 FILLER SI )@@G@@ PIC X(9) VALUE IS 'JAN'. @E@@@@ 05 FILLER SJ )@@G@@ PIC X(9) VALUE IS 'FEB'. @E@@@@ 05 FILLER PIC XSK )@@G@@(9) VALUE IS 'MAR'. @E@@@@ 05 FILLER PIC X(9) SL )@@G@@ VALUE IS 'APR'. @E@@@@ 05 FILLER PIC X(9) VALUESM )@@G@@ IS 'MAY'. @E@@@@ 05 FILLER PIC X(9) VALUE IS 'JSN )@@G@@UN'. @E@@@@ 05 FILLER PIC X(9) VALUE IS 'JUL'. SO )@@G@@@E@@@@ 05 FILLER PIC X(9) VALUE IS 'AUG'. @@@@@@SP )@@G@@@ @@@@ 01 DETAIL-HEAD-RUN-1. @E@@@@ 05 FILLER SQ )@@G@@ PIC X(10) VALUE IS SPACES. @B@@@@ 05 FILLER PIC XSR )@@G@@(63) @G@@@@ VALUE IS '----------------------COMPUTER RUNSSS )@@G@@------------@B@@@@ - '-----------'. @G@@@@ ST )@@G@@ 05 FILLER PIC X(59) VALUE '----------------------C@D@@@@SU )@@G@@ - 'OMPUTER HOURS----------------------'. @@@@@@@ @@@@ SV )@@G@@ 01 DETAIL-HEAD-RUN-2. @E@@@@ 05 FILLER PIC X(10) SW )@@G@@ VALUE IS SPACES. @B@@@@ 05 FILLER PIC X(122) @G@@@@SX )@@G@@ VALUE IS 'TOTAL ---BATCH--- --DEMAND-- ---PROD--- SY )@@G@@@G@@@@ - ' ---TEST--- TOTAL ---BATCH--- -SZ )@@G@@-DEMAN@E@@@@ - 'D-- ---PROD--- ---TEST--- '. TA )@@G@@@@@@@@@ @@@@ 01 DETAIL-HEAD-RUN-3. @G@@@@ 05 FILLER TB )@@G@@ PIC X(132) VALUE IS ' MONTH RUNS R@G@@@@ - 'UNTC )@@G@@S PCT RUNS PCT RUNS PCT RUNS PCT HO@G@@@@ - TD )@@G@@ 'URS HOURS PCT HOURS PCT HOURS PCT HOURS PCT@^@@@@ TE )@@G@@- ' '. @@@@@@@B@@@@ 01 DETAIL-PAGE-1-LINE-HEADING. TF )@@G@@@F@@@@ 05 BATCH-T PIC X(5) VALUE 'BATCH'. TG )@@G@@@F@@@@ 05 TOTAL-T VALUE 'TOTAL COMPUTER RUNS' PIC X(19). TH )@@G@@@F@@@@ 05 DEMAND-T PIC X(6) VALUE 'DEMAND'.TI )@@G@@@G@@@@ 05 PROD-T PIC X(10) VALUE 'PRODUCTITJ )@@G@@ON'. @F@@@@ 05 TEST-T PIC X(4) VALUE 'TETK )@@G@@ST'. @F@@@@ 05 SUP-TOT-T VALUE 'TOTAL SUP HOURS' PIC X(15)TL )@@G@@. @ @@@@ 05 SHIFT-LABELS. @G@@@@ 10 FILLETM )@@G@@R PIC X(9) VALUE '0000-0800'. @G@@@@ 10 TN )@@G@@ FILLER PIC X(9) VALUE '0800-1700'. @G@@@@ TO )@@G@@ 10 FILLER PIC X(9) VALUE '1700-2400'. @G@@@@ TP )@@G@@ 10 FILLER PIC X(9) VALUE 'WEEKEND '. @D@@@@TQ )@@G@@ 05 SHIFT-TIME REDEFINES SHIFT-LABELS. @F@@@@ TR )@@G@@ 10 TIME-OF-SHIFT PIC X(9) OCCURS 4 TIMES.@@@@@@@@@@@@@ @@@@TS )@@G@@ 01 DETAIL-PAGE-1. @C@@@@ 05 FILLER TT )@@G@@ PIC XXXX.@D@@@@ 05 TOTAL-LINE-TITLE PIC X(20). TU )@@G@@@D@@@@ 05 TITLE-2 REDEFINES TOTAL-LINE-TITLE. @C@@@@ TV )@@G@@ 10 FILLER PIC XX. @D@@@@ 10 BATCHTW )@@G@@-TITLE PIC X(18). @D@@@@ 05 TITLE-3 REDEFINES TOTTX )@@G@@AL-LINE-TITLE. @C@@@@ 10 FILLER PIC XXXX.TY )@@G@@@D@@@@ 10 DETAIL-TITLE PIC X(16). @D@@@@ TZ )@@G@@ 05 TITLE-4 REDEFINES TOTAL-LINE-TITLE. @C@@@@ 10 UA )@@G@@ FILLER PIC X(6).@D@@@@ 10 HOURS-TITLE UB )@@G@@ PIC X(14). @A@@@@ 05 MONTHLY-DETAIL-PRINT.@D@@@@ UC )@@G@@ 10 MONTHLY-DETAIL OCCURS 12 TIMES. @D@@@@ UD )@@G@@ 15 FILLER PIC X(3). @D@@@@ 15 MONTHLYUE )@@G@@-RUNS-PRINT PIC ZZ,ZZZ.@F@@@@ 05 MONTHLY-DETAIL-2 REDEFINES UF )@@G@@MONTHLY-DETAIL-PRINT. @D@@@@ 10 MONTHLY-DETAIL-H OCCURSUG )@@G@@ 12 TIMES. @D@@@@ 15 FILLER PIC XX. UH )@@G@@@E@@@@ 15 MONTHLY-HOURS-PRINT PIC Z,ZZZ.Z. @@@@@@UI )@@G@@@ @@@@ 01 DETAIL-2ND-PAGE. @C@@@@ 05 MONTH-PRINT UJ )@@G@@ PIC X(4). @B@@@@ 05 FILLER VALUE '19' PIC XX.@B@@@@UK )@@G@@ 05 YEAR-PRINT PIC 99.@B@@@@ 05 FILLER VAUL )@@G@@LUE SPACES PIC X. @C@@@@ 05 TOT-RUN-PRINT PIC ZZ,ZZZ. UM )@@G@@@B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 BATUN )@@G@@CH-RUN-PRINT PIC ZZ,ZZZ. @C@@@@ 05 FILLER VALUE SPACES PUO )@@G@@IC XXX. @C@@@@ 05 BATCH-PCT-PRINT PIC ZZ.Z. @B@@@@UP )@@G@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 DEMAND-RUUQ )@@G@@N-PRINT PIC ZZ,ZZZ. @B@@@@ 05 FILLER VALUE SPACES PIC X. UR )@@G@@@C@@@@ 05 DEMAND-PCT-PRINT PIC ZZZ.Z. @B@@@@ 0US )@@G@@5 FILLER VALUE SPACES PIC X. @C@@@@ 05 PROD-RUN-PRINT PUT )@@G@@IC ZZ,ZZZ. @B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ UU )@@G@@ 05 PROD-PCT-PRINT PIC ZZZ.Z. @B@@@@ 05 FILLER VAUV )@@G@@LUE SPACES PIC X. @C@@@@ 05 TEST-RUN-PRINT PIC ZZ,ZZZ. UW )@@G@@@B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 TESUX )@@G@@T-PCT-PRINT PIC ZZZ.Z. @C@@@@ 05 FILLER VALUE SPACES PUY )@@G@@IC X(3). @C@@@@ 05 TOT-HOURS-PRINT PIC Z,ZZZ.Z. @B@@@@UZ )@@G@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 B-HOURS-PVA )@@G@@RINT PIC Z,ZZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PIC XX.VB )@@G@@@C@@@@ 05 B-HOURS-PCT-PRINT PIC ZZ.Z. @B@@@@ 0VC )@@G@@5 FILLER VALUE SPACES PIC X. @C@@@@ 05 D-HOURS-PRINT PVD )@@G@@IC Z,ZZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ VE )@@G@@ 05 D-HOURS-PCT-PRINT PIC ZZ.Z. @B@@@@ 05 FILLER VAVF )@@G@@LUE SPACES PIC X. @C@@@@ 05 P-HOURS-PRINT PIC Z,ZZZ.Z. VG )@@G@@@B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 P-HVH )@@G@@OURS-PCT-PRINT PIC ZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PVI )@@G@@IC X. @C@@@@ 05 T-HOURS-PRINT PIC Z,ZZZ.Z. @B@@@@ VJ )@@G@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 T-HOURS-PCT-PRIVK )@@G@@NT PIC ZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PIC X. @@@@@@VL )@@G@@@@@@@@@ @@@@ 01 UTILIZATION-MATRIX.@F@@@@ 05 MONTH-OF-VM )@@G@@YEAR OCCURS 12 TIMES USAGE IS COMP-4. @D@@@@ 10 PRODUVN )@@G@@CTION-TEST OCCURS 2 TIMES. @C@@@@ 15 SHIFTS OCCURSVO )@@G@@ 4 TIMES. @F@@@@ 20 BATCH-RUNS-TOTAL PICVP )@@G@@ 9(10) . @F@@@@ 20 DEMAND-RUNS-TOTAL PICVQ )@@G@@ 9(10) . @F@@@@ 20 BATCH-SUP-HOURS-TOTAL PICVR )@@G@@ 9(6)V9(4). @F@@@@ 20 DEMAND-SUP-HOURS-TOTAL PICVS )@@G@@ 9(6)V9(4). @E@@@@ 20 FILLER PICVT )@@G@@ 9. @F@@@@ 20 BATCH-SUP-CALC-TOTAL PIC 9(18)VU )@@G@@. @E@@@@ 20 FILLER PIC 9. VV )@@G@@@F@@@@ 20 DEMAND-SUP-CALC-TOTAL PIC 9(18). VW )@@G@@@B@@@@ 10 TOTAL-COMPUTER-RUNS. @D@@@@ VX )@@G@@ 15 TOTAL-RUNS PIC 9(10). @E@@@@ 15 TOTAL-BVY )@@G@@ATCH-RUNS PIC 9(10). @E@@@@ 15 TOTAL-DEMAND-VZ )@@G@@RUNS PIC 9(10). @A@@@@ 10 TOTAL-SUPS-HOURS.@E@@@@WA )@@G@@ 15 TOTAL-SUP-HOURS PIC 9(6)V9(4). @E@@@@ WB )@@G@@ 15 BATCH-SUP-HOURS PIC 9(6)V9(4). @E@@@@ WC )@@G@@ 15 DEMAND-SUP-HOURS PIC 9(6)V9(4). @C@@@@ WD )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 TOTAL-SUP-CALWE )@@G@@C PIC 9(18). @C@@@@ 15 FILLER PIC 9. WF )@@G@@@D@@@@ 15 BATCH-SUP-CALC PIC 9(18). @C@@@@ WG )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 DWH )@@G@@EMAND-SUP-CALC PIC 9(18). @@@@@@@@@@@@@^@@@@ 01 SCS-SUMM-KEY.WI )@@G@@@F@@@@ 88 COUNT-REC VALUE '0000'. WJ )@@G@@@C@@@@ 02 SCS-ACCT-NUM PIC XXX. @C@@@@ 0WK )@@G@@2 SCS-ACCT-CLASS PIC X. @@@@@@@A@@@@ 01 SUPS-1 USAGE WL )@@G@@COMP-4. @B@@@@ 05 SUPS-2 OCCURS 3 TIMES. @B@@@@ WM )@@G@@ 10 FILLER PIC 9. @C@@@@ 10 SUPS-SUM WN )@@G@@ PIC 9(18). @A@@@@ 01 SUP-HR-1 USAGE COMP-4. @E@@@@ WO )@@G@@ 05 SUP-HR-TMP OCCURS 3 TIMES PIC 9(5)V9(4). @@@@@@@@@@@@@B@@@@WP )@@G@@ 01 TWELVE-MONTHS-OF-THE-YEAR. @C@@@@ 05 FILLER WQ )@@G@@ PIC XXX VALUE 'JAN'. @C@@@@ 05 FILLER PIC XXX VALUE 'FEWR )@@G@@B'. @C@@@@ 05 FILLER PIC XXX VALUE 'MAR'. @C@@@@ WS )@@G@@ 05 FILLER PIC XXX VALUE 'APR'. @C@@@@ 05 FILLER WT )@@G@@ PIC XXX VALUE 'MAY'. @C@@@@ 05 FILLER PIC XXX VALUE 'JUWU )@@G@@N'. @C@@@@ 05 FILLER PIC XXX VALUE 'JUL'. @C@@@@ WV )@@G@@ 05 FILLER PIC XXX VALUE 'AUG'. @C@@@@ 05 FILLER WW )@@G@@ PIC XXX VALUE 'SEP'. @C@@@@ 05 FILLER PIC XXX VALUE 'OCWX )@@G@@T'. @C@@@@ 05 FILLER PIC XXX VALUE 'NOV'. @C@@@@ WY )@@G@@ 05 FILLER PIC XXX VALUE 'DEC'. @@@@@@@@@@@@@E@@@@ 01 MWZ )@@G@@ONTHS-01 REDEFINES TWELVE-MONTHS-OF-THE-YEAR . @D@@@@ 05 MONXA )@@G@@THS-12 OCCURS 12 TIMES PIC XXX. @E@@@@ 01 END-OF-FILE-YEAR-SWXB )@@G@@ PIC XXX VALUE 'NO'. @E@@@@ 88 END-OF-FILE-YEAR XC )@@G@@ VALUE 'YES'. @D@@@@ 01 END-OF-FILES-SW PIC 9 XD )@@G@@ VALUE 0. @D@@@@ 88 END-OF-FILES VALUE 4. XE )@@G@@@E@@@@ 01 NEXT-ACCOUNT-SW PIC XXX VALUE IS 'NO'. @E@@@@XF )@@G@@ 88 NEXT-ACCOUNT VALUE IS 'YES'. @@@@@@@D@@@@XG )@@G@@ 01 CLEAR-SUB PIC 9(10) COMP. @@@@@@@@@@@@@F@@@@XH )@@G@@ 01 WREC-NEW-YEARLY PIC 9(10) COMP VALUE 0. @F@@@@XI )@@G@@ 01 WREC-COST-SUM PIC 9(10) COMP VALUE 0. @F@@@@XJ )@@G@@ 01 RREC-Y-T-D-OLD PIC 9(10) COMP VALUE 0. @F@@@@XK )@@G@@ 01 RREC-SCS PIC 9(10) COMP VALUE 0. @F@@@@XL )@@G@@ 01 RREC-INFOREX PIC 9(10) COMP VALUE 0. @F@@@@XM )@@G@@ 01 RREC-KEYPUNCH PIC 9(10) COMP VALUE 0. @F@@@@XN )@@G@@ 01 RREC-MTH-ACCT-LOG PIC 9(10) COMP VALUE 0. @@@@@@XO )@@G@@@D@@@@ 01 EXT-SCS VALUE 'SCS-SUMMARY ' PIC X(12). @F@@@@ XP )@@G@@ 01 EXT-Y-T-D-OLD VALUE 'OLD-YTD-ACNT' PIC X(12). @E@@@@ XQ )@@G@@ 01 EXT-INFOREX VALUE 'DE-FILE' PIC X(12). @E@@@@ 01 EXR )@@G@@XT-KEYPUNCH VALUE 'KP-CARDS' PIC X(12). @F@@@@ 01 EXT-MTHXS )@@G@@-ACCT VALUE 'MTH-ACNT-SUM' PIC X(12). @F@@@@ 01 EXT-YTDXT )@@G@@-MTH-ACCT VALUE 'NEW-YTD-ACNT' PIC X(12). @F@@@@ 01 EXT-COSXU )@@G@@T-SUM VALUE 'MTH-COST-SUM' PIC X(12). @@@@@@@D@@@@ 01 DXV )@@G@@ATE-AREA USAGE DISP-1 PIC X(6). @D@@@@ 01 INDICATOR VAXW )@@G@@LUE 1 USAGE DISP-1 PIC 9. @D@@@@ 01 DATE-RESULT USAGEXX )@@G@@ DISP-1 PIC X(8). @D@@@@ 01 POINT-05 VALUE .05 PIC XY )@@G@@9V99. @]@@@@ / @ @@@@ PROCEDURE DIVISION. @@@@@@@@@@@@XZ )@@G@@@^@@@@ 000-CONTROL. @C@@@@ PERFORM 110-READ-COST-BY-YA )@@G@@CATAGORY. @A@@@@ PERFORM 120-HOUSEKEEPING.@C@@@@ PYB )@@G@@ERFORM 130-PROCESS-Y-T-D-ACCT-LOG @B@@@@ UNTIL END-OF-FIYC )@@G@@LE-YEAR. @C@@@@ PERFORM 140-PROCESS-COST-SUM-BY-ACCT @A@@@@YD )@@G@@ UNTIL END-OF-FILES. @C@@@@ PERFORM 150-PRINT-UYE )@@G@@TILIZATION-RECAP. @A@@@@ PERFORM 190-CLOSING. @^@@@@ YF )@@G@@ STOP RUN. @@@@@@@@@@@@@@@@@@@A@@@@ 110-READ-COST-BY-CATAGOYG )@@G@@RY. @C@@@@ OPEN INPUT COST-BY-CATAGORY-FILE. @B@@@@ YH )@@G@@ READ COST-BY-CATAGORY-FILE @D@@@@ AT END DISPLAYYI )@@G@@ 'NO CATAGORY FILE' @C@@@@ UPON PRINT-DEVIYJ )@@G@@CE @B@@@@ ENTER FD 'ABORT'. @@@@@@@^@@@@ YK )@@G@@ 120-HOUSEKEEPING.@B@@@@ OPEN INPUT MONTHLY-BY-ACCOUNT @B@@@@YL )@@G@@ SCS-BY-ACCOUNT-FILE@B@@@@ OYM )@@G@@LD-Y-T-D-FILE @A@@@@ INFOREX-FILE @A@@@@ YN )@@G@@ KEYPUNCH-FILE@C@@@@ OUTPUT COST-BY-ACCOUYO )@@G@@NT-FILE @B@@@@ NEW-Y-T-D-FILE @A@@@@ YP )@@G@@ PRINT-FILE. @B@@@@ MOVE ZEROES TO SCS-SUMM-KYQ )@@G@@EY @ @@@@ SUPS-SUM (1) @ @@@@ SUPS-SUM YR )@@G@@(2) @ @@@@ SUPS-SUM (3). @C@@@@ ENTER FD 'GETYS )@@G@@DATE' USING DATE-AREA. @G@@@@ ENTER FD 'DATEDIT' USING DATE-AYT )@@G@@REA DATE-RESULT INDICATOR. @B@@@@ MOVE DATE-RESULT TO DEPT-YU )@@G@@DATE. @E@@@@ * READING INITIAL RECORDS-THROWING OUT VOLUME RECORDSYV )@@G@@@C@@@@ PERFORM 300-READ-Y-T-D-BY-ACCOUNT. @B@@@@ PYW )@@G@@ERFORM 330-READ-SCS 2 TIMES. @A@@@@ PERFORM 330-READ-SCS YX )@@G@@@D@@@@ UNTIL NOT INACTIVE-SUMMARY-RECORD. @A@@@@ YY )@@G@@ PERFORM 340-READ-INFOREX.@B@@@@ PERFORM 360-READ-MTH-ACCTYZ )@@G@@-LOG. @C@@@@ PERFORM 290-ZERO-SUMMARY-ACCOUNT @G@@@@ ZA )@@G@@ VARYING CLEAR-SUB FROM 1 BY 1 UNTIL CLEAR-SUB GREATER 53.@B@@@@ZB )@@G@@ PERFORM 350-READ-KEYPUNCH. @C@@@@ IF JOB-ACCOUNZC )@@G@@T-NUM EQUALS HIGH-VALUES@ @@@@ NEXT SENTENCE @#@@@@ ZD )@@G@@ ELSE @D@@@@ MOVE KP-ACNT-NUMBER TO JOB-ACCOUNT-NUM.ZE )@@G@@@C@@@@ MOVE AC-ACCOUNT-NUM TO ACCT-NUM. @C@@@@ MZF )@@G@@OVE AC-ACCOUNT-TYPE TO ACCT-TYPE. @C@@@@ MOVE DE-ACNT-NO-FLDZG )@@G@@ TO DE-ACT-NO. @C@@@@ MOVE DE-ACNT-RMDR-FLD TO DE-ACT-RMDR.ZH )@@G@@@@@@@@@A@@@@ 130-PROCESS-Y-T-D-ACCT-LOG. @C@@@@ PERFORMZI )@@G@@ 310-ACCUMULATE-UTIL-TOTALS. @B@@@@ PERFORM 320-WRITE-NEW-Y-TZJ )@@G@@-D. @C@@@@ PERFORM 300-READ-Y-T-D-BY-ACCOUNT. @@@@@@@@@@@@ZK )@@G@@@A@@@@ 140-PROCESS-COST-SUM-BY-ACCT.@C@@@@ PERFORM 200-DZL )@@G@@ETERMINE-LOW-ACCOUNT. @A@@@@ PERFORM 230-PROCESS-SCS @F@@@@ZM )@@G@@ UNTIL SCS-SUMM-KEY IS NOT EQUAL TO LOW-ACCOUNT.@B@@@@ZN )@@G@@ PERFORM 240-PROCESS-INFOREX @F@@@@ UNTILZO )@@G@@ DE-JOBACNT IS NOT EQUAL TO LOW-ACCOUNT. @B@@@@ PERFORM 250-PZP )@@G@@ROCESS-KEYPUNCH @G@@@@ UNTIL JOB-ACCOUNT-NUM IS NOTZQ )@@G@@ EQUAL TO LOW-ACCOUNT. @C@@@@ PERFORM 260-PROCESS-MONTHLY-ACCZR )@@G@@T-LOG @F@@@@ UNTIL ACCOUNT-NUM IS NOT EQUAL TO LOW-ACCZS )@@G@@OUNT. @D@@@@ PERFORM 270-FINAL-SUMMARY-CALCULATIONS. @C@@@@ZT )@@G@@ PERFORM 280-WRITE-SUMMARY-ACCOUNT. @C@@@@ PERFORMZU )@@G@@ 290-ZERO-SUMMARY-ACCOUNT @G@@@@ VARYING CLEAR-SUB FROZV )@@G@@M 1 BY 1 UNTIL CLEAR-SUB GREATER 53.@@@@@@@@@@@@@A@@@@ 150-PRINT-UZW )@@G@@TILIZATION-RECAP. @B@@@@ PERFORM 205-FINAL-CALCULATIONS @F@@@@ZX )@@G@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATER 12. @C@@@@ZY )@@G@@ PERFORM 210-PRINT-HEADING-PAGE-1. @C@@@@ PERFORMZZ )@@G@@ 215-PRINT-DETAILS-PAGE-1. @C@@@@ PERFORM 220-PRINT-HEADINGAA )@@G@@-PAGE-2. @B@@@@ IF PROCESSING-MM IS LESS THAN 9@C@@@@ AB )@@G@@ PERFORM 225-PROCESS-DETAIL-PAGE-2@H@@@@ VARYIAC )@@G@@NG MONTH FROM 9 BY 1 UNTIL MONTH GREATER THAN 12. @C@@@@ AD )@@G@@ PERFORM 225-PROCESS-DETAIL-PAGE-2@G@@@@ VARYING MONAE )@@G@@TH FROM 1 BY 1 UNTIL MONTH GREATER THAN @B@@@@ AF )@@G@@ PROCESSING-MM @#@@@@ ELSE @C@@@@ PERFORM 2AG )@@G@@25-PROCESS-DETAIL-PAGE-2@G@@@@ VARYING MONTH FROM 9 BYAH )@@G@@ 1 UNTIL MONTH GREATER THAN @B@@@@ PROCESSINAI )@@G@@G-MM. @@@@@@@@@@@@@^@@@@ 190-CLOSING. @#@@@@ CLOSE AJ )@@G@@@ @@@@ PRINT-FILE @E@@@@ DISPLAY 'PRAK )@@G@@INT-FILE' UPON PRINT-DEVICE. @#@@@@ CLOSE @A@@@@ AL )@@G@@ COST-BY-CATAGORY-FILE@G@@@@ DISPLAY 'COST-BY-CATAGOAM )@@G@@RY-FILE' UPON PRINT-DEVICE. @E@@@@ CALL 'LOG-RCNT' USING EXTAN )@@G@@-INFOREX, RREC-INFOREX. @#@@@@ CLOSE @ @@@@ INFAO )@@G@@OREX-FILE @E@@@@ DISPLAY 'INFOREX-FILE' UPON PRINT-DAP )@@G@@EVICE @F@@@@ CALL 'LOG-RCNT' USING EXT-KEYPUNCH, RREC-KEYPUNCHAQ )@@G@@. @#@@@@ CLOSE @ @@@@ KEYPUNCH-FILE. @F@@@@AR )@@G@@ DISPLAY 'KEYPUNCH-FILE' UPON PRINT-DEVICE. @F@@@@AS )@@G@@ CALL 'LOG-RCNT' USING EXT-MTH-ACCT, RREC-MTH-ACCT-LOG. @#@@@@AT )@@G@@ CLOSE @A@@@@ MONTHLY-BY-ACCOUNT @F@@@@ AU )@@G@@ DISPLAY 'MONTHLY-BY-ACCOUNT' UPON PRINT-DEVICE @F@@@@ AV )@@G@@ CALL 'LOG-RCNT' USING EXT-Y-T-D-OLD, RREC-Y-T-D-OLD. @#@@@@ AW )@@G@@ CLOSE @ @@@@ OLD-Y-T-D-FILE @F@@@@ AX )@@G@@ DISPLAY 'OLD-Y-T-D-FILE' UPON PRINT-DEVICE. @G@@@@ CALL 'LAY )@@G@@OG-WCNT' USING EXT-YTD-MTH-ACCT, WREC-NEW-YEARLY. @#@@@@ CAZ )@@G@@LOSE @ @@@@ NEW-Y-T-D-FILE @F@@@@ DISPLBA )@@G@@AY 'NEW-Y-T-D-FILE' UPON PRINT-DEVICE. @F@@@@ CALL 'LOG-WCNBB )@@G@@T' USING EXT-COST-SUM, WREC-COST-SUM. @#@@@@ CLOSE @A@@@@BC )@@G@@ COST-BY-ACCOUNT-FILE @G@@@@ DISPLAY 'COBD )@@G@@ST-BY-ACCOUNT-FILE' UPON PRINT-DEVICE @D@@@@ CALL 'LOG-RCNBE )@@G@@T' USING EXT-SCS, RREC-SCS. @#@@@@ CLOSE @A@@@@ BF )@@G@@ SCS-BY-ACCOUNT-FILE @G@@@@ DISPLAY 'SCS-BY-ACCOUNTBG )@@G@@-FILE' UPON PRINT-DEVICE. @@@@@@@@@@@@@@@@@@@A@@@@ 200-DETERMIBH )@@G@@NE-LOW-ACCOUNT. @C@@@@ MOVE ACCOUNT-NUM TO LOW-ACCOUNT. BI )@@G@@@D@@@@ IF SCS-SUMM-KEY IS LESS THAN LOW-ACCOUNT @C@@@@ BJ )@@G@@ MOVE SCS-SUMM-KEY TO LOW-ACCOUNT.@D@@@@ IF JOB-ACCOUNBK )@@G@@T-NUM IS LESS THAN LOW-ACCOUNT@D@@@@ MOVE JOB-ACCOUNT-NUM BL )@@G@@TO LOW-ACCOUNT. @D@@@@ IF DE-JOBACNT IS LESS THAN LOW-ACCOUNBM )@@G@@T @C@@@@ MOVE DE-JOBACNT TO LOW-ACCOUNT. @B@@@@ BN )@@G@@ IF HOLD-ACCT < LOW-ACCOUNT @C@@@@ MOVE LOW-ACCOUNBO )@@G@@T TO HOLD-ACCT @#@@@@ ELSE @A@@@@ IF HOLD-ACBP )@@G@@CT > SPACES @F@@@@ DISPLAY 'HOLD-ACCT ' HOLD-ACCT UPON PRIBQ )@@G@@NT-DEVICE @F@@@@ DISPLAY 'SCS-KEY ' SCS-SUMM-KEY UPON PRBR )@@G@@INT-DEVICE @G@@@@ DISPLAY 'JOB-ACCT-NUM ' JOB-ACCOUNT-NUMBS )@@G@@ UPON PRINT-DEVICE@F@@@@ DISPLAY 'DE-JOB-ACNT ' DE-JOBACNTBT )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @@@@@@@@@@@@BU )@@G@@@ @@@@ 205-FINAL-CALCULATIONS.@D@@@@ IF TOTAL-SUP-CALC (BV )@@G@@MONTH) NOT EQUAL TO 0 @E@@@@ DIVIDE TOTAL-SUP-CALC (MONTBW )@@G@@H) BY 18000000 @E@@@@ GIVING TOTAL-SUP-HOURS (MONTHBX )@@G@@) ROUNDED @E@@@@ DIVIDE BATCH-SUP-CALC (MONTH) BY 180000BY )@@G@@00 @E@@@@ GIVING BATCH-SUP-HOURS (MONTH) ROUNDED BZ )@@G@@@E@@@@ DIVIDE DEMAND-SUP-CALC (MONTH) BY 18000000 @E@@@@CA )@@G@@ GIVING DEMAND-SUP-HOURS (MONTH) ROUNDED @C@@@@ CB )@@G@@ PERFORM 305-FINAL-CALCULATIONS @G@@@@ VARYICC )@@G@@NG PROD-TEST FROM 1 BY 1 UNTIL PROD-TEST > 2 @F@@@@ CD )@@G@@ AFTER SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER 4. @@@@@@@A@@@@ 210-PCE )@@G@@RINT-HEADING-PAGE-1. @B@@@@ MOVE 'H15515' TO DEPT-RUN-ID. CF )@@G@@@C@@@@ MOVE 'H1551060' TO DEPT-PROGRAM-NUM. @A@@@@ MCG )@@G@@OVE 1 TO DEPT-PAGE-NUM. @E@@@@ WRITE PRINT-LINE FROM DEPT-HEADCH )@@G@@ER-1 AFTER PAGE. @E@@@@ WRITE PRINT-LINE FROM DEPT-HEADER-2 ACI )@@G@@FTER 1 LINE.@E@@@@ WRITE PRINT-LINE FROM HEADER-3 AFTER 1 LINCJ )@@G@@E. @F@@@@ MOVE MONTHS-12 (PROCESSING-MM) TO HEADING-MONTH-2CK )@@G@@. @C@@@@ MOVE PROCESSING-YY TO HEADING-YEAR-2.@C@@@@ CL )@@G@@ IF PROCESSING-MM IS LESS THAN '09' @D@@@@ MOVE PROCCM )@@G@@ESSING-YY TO CALC-YEAR-TMP @C@@@@ SUBTRACT 1 FROM CALC-CN )@@G@@YEAR-TMP @D@@@@ MOVE CALC-YEAR-TMP TO HEADING-YEAR-1 CO )@@G@@@D@@@@ ELSE MOVE PROCESSING-YY TO HEADING-YEAR-1. @E@@@@ CP )@@G@@ WRITE PRINT-LINE FROM HEADER-4 AFTER 1 LINES. @F@@@@ WCQ )@@G@@RITE PRINT-LINE FROM DETAIL-HEAD-MONTHS AFTER 3 LINES.@B@@@@ MCR )@@G@@OVE SPACES TO PRINT-LINE. @B@@@@ WRITE PRINT-LINE AFTER 1 CS )@@G@@LINE. @@@@@@@A@@@@ 215-PRINT-DETAILS-PAGE-1. @C@@@@ PCT )@@G@@ERFORM 312-ROUNDING-PRINT-TOTALS @E@@@@ VARYING MONTH FCU )@@G@@ROM 1 BY 1 UNTIL MONTH > 12. @A@@@@ MOVE 1 TO PROD-TEST. CV )@@G@@@B@@@@ MOVE SPACES TO DETAIL-PAGE-1. @C@@@@ MOVE TOCW )@@G@@TAL-T TO TOTAL-LINE-TITLE. @C@@@@ PERFORM 313-MOVE-TOTALS-TCX )@@G@@O-PRINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GCY )@@G@@REATER THAN 12. @F@@@@ WRITE PRINT-LINE FROM DETAIL-PAGE-1 ACZ )@@G@@FTER 2 LINES. @B@@@@ MOVE SPACES TO DETAIL-PAGE-1. @B@@@@DA )@@G@@ MOVE BATCH-T TO BATCH-TITLE. @B@@@@ PERFORM 314-MDB )@@G@@OVE-BATCH-TO-PRINT@G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MDC )@@G@@ONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. DD )@@G@@@B@@@@ MOVE DEMAND-T TO BATCH-TITLE. @C@@@@ PERFORMDE )@@G@@ 315-MOVE-DEMAND-TO-PRINT @G@@@@ VARYING MONTH FROM 1 DF )@@G@@BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LDG )@@G@@INE-PAGE-1. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ DH )@@G@@ MOVE PROD-T TO BATCH-TITLE. @C@@@@ PERFORM 316-MOVE-PRDI )@@G@@ODUCTION-TO-PRINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MDJ )@@G@@ONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. DK )@@G@@@B@@@@ MOVE BATCH-T TO DETAIL-TITLE. @C@@@@ PERFORMDL )@@G@@ 317-MOVE-PROD-BATCH-TO-PRINT @G@@@@ VARYING MONTH FROM 1 DM )@@G@@BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LDN )@@G@@INE-PAGE-1. @B@@@@ PERFORM 318-BATCH-SHIFT-TOTALS @G@@@@ DO )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @B@@@@DP )@@G@@ MOVE DEMAND-T TO DETAIL-TITLE. @C@@@@ PERFORM 319-MDQ )@@G@@OVE-PROD-DEMAND-TO-PRINT@G@@@@ VARYING MONTH FROM 1 BY 1 UDR )@@G@@NTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PADS )@@G@@GE-1. @B@@@@ PERFORM 321-DEMAND-SHIFT-TOTALS@G@@@@ DT )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @B@@@@ DU )@@G@@ PERFORM 612-WRITE-LINE-PAGE-1. @A@@@@ MOVE 2 TO PROD-TESTDV )@@G@@. @B@@@@ MOVE TEST-T TO BATCH-TITLE. @C@@@@ PDW )@@G@@ERFORM 316-MOVE-PRODUCTION-TO-PRINT @G@@@@ VARYING MONTH FDX )@@G@@ROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WDY )@@G@@RITE-LINE-PAGE-1. @B@@@@ MOVE BATCH-T TO DETAIL-TITLE. @C@@@@DZ )@@G@@ PERFORM 317-MOVE-PROD-BATCH-TO-PRINT @G@@@@ VAREA )@@G@@YING MONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PEB )@@G@@ERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ PERFORM 318-BATCH-SHIFT-TEC )@@G@@OTALS @G@@@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATERED )@@G@@ THAN 4. @B@@@@ MOVE DEMAND-T TO DETAIL-TITLE. @C@@@@ EE )@@G@@ PERFORM 319-MOVE-PROD-DEMAND-TO-PRINT@G@@@@ VARYING MEF )@@G@@ONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORMEG )@@G@@ 612-WRITE-LINE-PAGE-1. @B@@@@ PERFORM 321-DEMAND-SHIFT-TOTALSEH )@@G@@@G@@@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN EI )@@G@@4. @C@@@@ MOVE SUP-TOT-T TO TOTAL-LINE-TITLE. @C@@@@ EJ )@@G@@ PERFORM 322-MOVE-SUP-TOTAL-TO-PRINT @G@@@@ VARYING MEK )@@G@@ONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ MOVE SPEL )@@G@@ACES TO PRINT-LINE. @B@@@@ WRITE PRINT-LINE AFTER 2 LINES.EM )@@G@@@B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ MOVE BAEN )@@G@@TCH-T TO BATCH-TITLE. @C@@@@ PERFORM 323-MOVE-SUP-BATCH-TO-PEO )@@G@@RINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATEREP )@@G@@ THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ EQ )@@G@@ MOVE DEMAND-T TO BATCH-TITLE. @C@@@@ PERFORM 324-MOVE-SUER )@@G@@P-DEMAND-TO-PRINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MES )@@G@@ONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. ET )@@G@@@C@@@@ PERFORM 308-SUP-HOURS-PRINT-BREAKDOWN@G@@@@ EU )@@G@@ VARYING PROD-TEST FROM 1 BY 1 UNTIL PROD-TEST GREATER 2. @@@@@@@A@@@@EV )@@G@@ 220-PRINT-HEADING-PAGE-2. @E@@@@ WRITE PRINT-LINE FREW )@@G@@OM DEPT-HEADER-1 AFTER PAGE. @E@@@@ WRITE PRINT-LINE FROM DEPEX )@@G@@T-HEADER-2 AFTER 1 LINE.@E@@@@ WRITE PRINT-LINE FROM HEADER-3 EY )@@G@@AFTER 1 LINE. @E@@@@ WRITE PRINT-LINE FROM HEADER-4 AFTER EZ )@@G@@1 LINE. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-RUN-1 AFTFA )@@G@@ER 2 LINES. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-RUN-2 AFTFB )@@G@@ER 1 LINE. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-RUN-3 AFTFC )@@G@@ER 1 LINE. @B@@@@ MOVE SPACES TO PRINT-LINE. @B@@@@ FD )@@G@@ WRITE PRINT-LINE AFTER 1 LINE. @@@@@@@A@@@@ 225-PROCESS-DETAIFE )@@G@@L-PAGE-2. @D@@@@ MOVE MONTHS-12 (MONTH) TO MONTH-PRINT. FF )@@G@@@F@@@@ IF PROCESSING-MM IS LESS THAN 9 AND MONTH > 8 FG )@@G@@@C@@@@ MOVE CALC-YEAR-TMP TO YEAR-PRINT @#@@@@ EFH )@@G@@LSE @C@@@@ MOVE PROCESSING-YY TO YEAR-PRINT.@D@@@@ FI )@@G@@ IF TOTAL-RUNS (MONTH) IS NOT EQUAL TO 0 @E@@@@ MOVFJ )@@G@@E TOTAL-RUNS (MONTH) TO TOT-RUN-PRINT @F@@@@ MOVE TOTAFK )@@G@@L-BATCH-RUNS (MONTH) TO BATCH-RUN-PRINT @F@@@@ MOVE TOTAFL )@@G@@L-DEMAND-RUNS (MONTH) TO DEMAND-RUN-PRINT @F@@@@ DIVIDE TOFM )@@G@@TAL-RUNS (MONTH) BY 100 GIVING TEMP-CALC @G@@@@ DIVIDE TFN )@@G@@OTAL-BATCH-RUNS (MONTH) BY TEMP-CALC GIVING @C@@@@ FO )@@G@@ BATCH-PCT-PRINT ROUNDED @G@@@@ DIVIDE TOTAL-DEMAND-FP )@@G@@RUNS (MONTH) BY TEMP-CALC GIVING @C@@@@ DEMAND-FQ )@@G@@PCT-PRINT ROUNDED @D@@@@ PERFORM 326-ZERO-TEMPORARY-ACCUM-FR )@@G@@PRINT @D@@@@ PERFORM 325-CALCULATE-PROD-TEST-FIG @G@@@@FS )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4 FT )@@G@@@E@@@@ MOVE PROD-RUNS-CALC TO PROD-RUN-PRINT @E@@@@FU )@@G@@ MOVE TEST-RUNS-CALC TO TEST-RUN-PRINT @D@@@@ FV )@@G@@ ADD POINT-05 TO PROD-SUP-HOURS-CALC @E@@@@ MOVFW )@@G@@E PROD-SUP-HOURS-CALC TO P-HOURS-PRINT @D@@@@ ADD POINTFX )@@G@@-05 TO TEST-SUP-HOURS-CALC @E@@@@ MOVE TEST-SUP-HOURS-CFY )@@G@@ALC TO T-HOURS-PRINT. @D@@@@ IF TOTAL-RUNS (MONTH) IS NOT EQFZ )@@G@@UAL TO 0 @E@@@@ DIVIDE PROD-RUNS-CALC BY TEMP-CALC GIGA )@@G@@VING @C@@@@ PROD-PCT-PRINT ROUNDED @E@@@@ GB )@@G@@ DIVIDE TEST-RUNS-CALC BY TEMP-CALC GIVING @C@@@@ GC )@@G@@ TEST-PCT-PRINT ROUNDED @F@@@@ MOVE TOTAL-SUP-GD )@@G@@HOURS (MONTH) TO TOT-HOURS-PRINT @E@@@@ MOVE BATCH-SUP-GE )@@G@@HOURS (MONTH) TO B-HOURS-PRINT@F@@@@ MOVE DEMAND-SUP-HOURSGF )@@G@@ (MONTH) TO D-HOURS-PRINT @G@@@@ DIVIDE TOTAL-SUP-HOURGG )@@G@@S (MONTH) BY 100 GIVING TEMP-CALC @G@@@@ DIVIDE BATCH-SGH )@@G@@UP-HOURS (MONTH) BY TEMP-CALC GIVING @C@@@@ BGI )@@G@@-HOURS-PCT-PRINT ROUNDED@G@@@@ DIVIDE DEMAND-SUP-HOURS (MGJ )@@G@@ONTH) BY TEMP-CALC GIVING @C@@@@ D-HOURS-PCT-PGK )@@G@@RINT ROUNDED@F@@@@ DIVIDE PROD-SUP-HOURS-CALC BY TEMP-CALGL )@@G@@C GIVING @C@@@@ P-HOURS-PCT-PRINT ROUNDED@F@@@@GM )@@G@@ DIVIDE TEST-SUP-HOURS-CALC BY TEMP-CALC GIVING @D@@@@GN )@@G@@ T-HOURS-PCT-PRINT ROUNDED. @D@@@@ WGO )@@G@@RITE PRINT-LINE FROM DETAIL-2ND-PAGE. @@@@@@@@@@@@@^@@@@ 230-PGP )@@G@@ROCESS-SCS. @G@@@@ ADD ACCT-HOURS (PROCESSING-MM), RUN-HOURS (GQ )@@G@@PROCESSING-MM) TO@^@@@@ AP-HOURS.@A@@@@ PERFORMGR )@@G@@ 330-READ-SCS. @A@@@@ PERFORM 330-READ-SCS @D@@@@ GS )@@G@@ UNTIL NOT INACTIVE-SUMMARY-RECORD OR@D@@@@ GT )@@G@@ SCS-ACCT-NUM EQUAL TO HIGH-VALUES.@@@@@@@ @@@@ 240-PROCESS-INFORGU )@@G@@EX. @A@@@@ PERFORM 345-INFOREX-ADD. @A@@@@ PERFORMGV )@@G@@ 340-READ-INFOREX.@@@@@@@ @@@@ 250-PROCESS-KEYPUNCH. @^@@@@ GW )@@G@@ IF VERIFY @E@@@@ ADD NUM-RECORDS-PUNCHED TO DE-RECGX )@@G@@-VERIFIED @E@@@@ KP-REC-VERIFGY )@@G@@IED @#@@@@ ELSE @ @@@@ IF KEYPUNCH @E@@@@GZ )@@G@@ ADD NUM-RECORDS-PUNCHED TO DE-REC-ENTERED@E@@@@ HA )@@G@@ KP-REC-ENTERED@^@@@@ HB )@@G@@ ELSE @ @@@@ IF KP-TIME @F@@@@ HC )@@G@@ ADD TIME-TO-PUNCH TO TOTAL-TIME-TO-PUNCH @^@@@@ HD )@@G@@ ELSE @ @@@@ DISPLAY@G@@@@ HE )@@G@@ '** THIS IS NEITHER KEYPUNCH OR VERIFY **' @C@@@@ HF )@@G@@ UPON PRINT-DEVICE @F@@@@ DISPLAY KEYPUHG )@@G@@NCH-CARD UPON PRINT-DEVICE. @B@@@@ PERFORM 350-READ-KEYPUNCHHH )@@G@@. @E@@@@ IF JOB-ACCOUNT-NUM IS NOT EQUAL TO LOW-ACCOUNT HI )@@G@@@G@@@@ ADD KP-REC-ENTERED KP-REC-VERIFIED GIVING REC-ENTHJ )@@G@@ERED @B@@@@ IF REC-ENTERED EQUALS 0 @E@@@@ HK )@@G@@ ADD TOTAL-TIME-TO-PUNCH TO DE-HOUR-ENTER @F@@@@ HL )@@G@@ MOVE ZERO TO KP-REC-ENTERED KP-REC-VERIFIED @C@@@@ HM )@@G@@ TOTAL-TIME-TO-PUNCH @^@@@@ ELSE @G@@@@ HN )@@G@@ DIVIDE TOTAL-TIME-TO-PUNCH BY REC-ENTERED GIVING @C@@@@HO )@@G@@ TIME-RATIO ROUNDED @F@@@@ HP )@@G@@ MULTIPLY TIME-RATIO BY KP-REC-VERIFIED GIVING @B@@@@ HQ )@@G@@ KP-HOUR-VERIFY @G@@@@ SUBTRACT KP-HOUR-VERIFYHR )@@G@@ FROM TOTAL-TIME-TO-PUNCH @C@@@@ GIVING KP-HOUHS )@@G@@R-ENTER @D@@@@ ADD KP-HOUR-ENTER TO DE-HOUR-ENTER HT )@@G@@@E@@@@ ADD KP-HOUR-VERIFY TO DE-HOUR-VERIFY @F@@@@HU )@@G@@ MOVE ZERO TO KP-REC-ENTERED KP-REC-VERIFIED @C@@@@HV )@@G@@ TOTAL-TIME-TO-PUNCH.@@@@@@@A@@@@ 260-PHW )@@G@@ROCESS-MONTHLY-ACCT-LOG.@F@@@@ * NEXT THREE UPDATE YEARLY-ACCT-LOG HX )@@G@@AND UTILIZATION REPORT @C@@@@ MOVE ACCOUNT TO NEW-ACCOUNT-YEAHY )@@G@@RLY. @C@@@@ PERFORM 310-ACCUMULATE-UTIL-TOTALS. @B@@@@ HZ )@@G@@ PERFORM 320-WRITE-NEW-Y-T-D. @C@@@@ PERFORM 365-ADD-MONIA )@@G@@THLY-ACCT-LOG. @B@@@@ PERFORM 360-READ-MTH-ACCT-LOG. @@@@@@IB )@@G@@@B@@@@ 270-FINAL-SUMMARY-CALCULATIONS. @C@@@@ MOVE LOIC )@@G@@W-ACCOUNT TO ACCOUNT-CODE. @C@@@@ MOVE PROCESSING-YY TO PERID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]LIPROC$ @@]@@@@@@G%^IP )@@G@@LIPROCS @@]@@@@@@G%^10 :@@@@]@^@@@>@SYM PRINT$.,2,MCOONL :@@@@#IQ )@@G@@@B@@@>@HDG,P MCO RUN IPRUDL - PROCESS M405A :@@@@^@D@@@>@MSG,W MCO IR )@@G@@IPRUDL READY TO RUN IF REST OF PRU IS DONE:@@@@ @ @&@>@ASG,TF IPRUDEL.,1IS )@@G@@6N,004328 @ @$@&@ASG,TF IPRUDEL.,16N,004281 @ @*@$@ASG,TF IPRUDEL.,1IT )@@G@@6N,004946 @ @(@*@ASG,TF IPRUDEL.,16N,005766 @ @@@(@ASG,TF IPRUDEL.,1IU )@@G@@6N,004701 @ @@@>@GCOPY,T MCOPRU*CT.,IPRUDEL :@@@@A@ @@@>@GCOPY,T IROIV )@@G@@S-POR.,IPRUDEL. :@@@@B@ @@@>@GCOPY,T IPRODAY.,IPRUDEL. :@@@@C@ @@@>IW )@@G@@@GCOPY,T IPROERR.,IPRUDEL. :@@@@D@ @@@>@GCOPY,T IPROTCM.,IPRUDEL. IX )@@G@@:@@@@E@A@@@>@GCOPY,T MCO*IPR1-P4951.,IPRUDEL. :@@@@F@ @@@>@GCOPY,T IERIY )@@G@@ROR-LIST.,IPRUDEL.:@@@@G@ @@@>@GCOPY,T IROS-ERR.,IPRUDEL. :@@@@H@ @@@>IZ )@@G@@@GCOPY,T IAPSRPT.,IPRUDEL. :@@@@I@ @@@>@GCOPY,T IPRCEDT.,IPRUDEL. JA )@@G@@:@@@@J@ @@@>@GCOPY,T IPR1-P4951.,IPRUDEL. :@@@@K@ @@@>@GCOPY,T IPRCRM-RPJB )@@G@@TS.,IPRUDEL.:@@@@L@ @@@>@GCOPY,T IP4920R01.,IPRUDEL. :@@@@M@ @@@>@GCOPYJC )@@G@@,T IP4920R03.,IPRUDEL. :@@@@N@ @@@>@GCOPY,T IPRCERR.,IPRUDEL. @ @@@>JD )@@G@@@GCOPY,T IRPCF-ERR.,IPRUDEL. :@@@@O@ @@@>@GCOPY,T MS-IPRCMST.,IPRUDEL. JE )@@G@@:@@@@P@ @@@>@GCOPY,T IPRNTPO.,IPRUDEL. :@@@@Q@ @@@>@GCOPY,T IAPSTRN.,JF )@@G@@IPRUDEL. :@@@@R@ @@@>@GCOPY,T IP4411-RVL.,IPRUDEL. :@@@@S@ @@@>@GCOPYJG )@@G@@,T ITEMP-RPT.,IPRUDEL. :@@@@T@ @@@>@GCOPY,T IRPT-OUT.,IPRUDEL. @ @@@>JH )@@G@@@GCOPY,T IP5056R01.,IPRUDEL. @ @@@>@GCOPY,T IP5056R02.,IPRUDEL. @C@@@>JI )@@G@@@MSG,W MCOPRU FILES BACKED UP...READY TO DELETE :@@@@U@^@@@>@DELETE,C IEJJ )@@G@@RROR-LIST. :@@@@V@#@@@>@DELETE,C IPRNTPO.:@@@@W@#@@@>@DELETE,C IPRODAY.JK )@@G@@:@@@@X@#@@@>@DELETE,C IPROERR.:@@@@Y@ @@@>@DELETE,C MCO*IPR1-P4951. JL )@@G@@:@@@@Z@#@@@>@DELETE,C IPRCEDT.:@@@@)@#@@@>@DELETE,C IPROTCM.:@@@@-@^@@@>JM )@@G@@@DELETE,C IO-ITEMP. :@@@@+@^@@@>@DELETE,C IP4920R01. :@@@@<@^@@@>JN )@@G@@@DELETE,C IP4920R03. :@@@@=@^@@@>@DELETE,C IROS-ERR. :@@@@>@^@@@>JO )@@G@@@DELETE,C IROS-POR. :@@@@&@^@@@>@DELETE,C MS-IPRCMST. :@@@@$@#@@@>JP )@@G@@@DELETE,C IPRCERR.:@@@@*@^@@@>@DELETE,C IRPCF-ERR. :@@@@(@#@@@>@DELETJQ )@@G@@E,C IAPSTRN.:@@@@%@^@@@>@DELETE,C IP4411-RVL. :@@@@:@^@@@>@DELETE,C IPJR )@@G@@R1-P4951. :@@@@?@^@@@>:DELETE,C ITEMP-RPT. :@@@@!@^@@@>@DELETE,C IRJS )@@G@@PT-OUT. :@@@@,@#@@@>@DELETE,C IAPSRPT.:@@@@\@^@@@>@DELETE,C IP4411-RJT )@@G@@VC. :@@@@0@^@@@>@DELETE,C IPRCRM-RPTS. :@@@@1@#@@@>@DELETE,C IPROCUR.JU )@@G@@@^@@@>@DELETE,C IP5056R01. @^@@@>@DELETE,C IP5056R02. @^@@@>@DELETJV )@@G@@E,C MCOPRU*CT. :@@@@2@#@@@>@SYM,D PRINT$ :@@@@3@B@@@>@MSG DAILY PJW )@@G@@ROCESSING OF MCO PRU IS DONE :@@@@4@[@@@>@FIN _@@@@@. :@@@@,@#@@@=JX )@@G@@@DELETE,C IAPSRPT.:@@@@\@^@@@=@DELETE,C IP4411-R*[S@@@*SDFF*@ @@@-@RUN,AJY )@@G@@ ICTTSA,M404H,MCO,5 @^@@@-@SYM PRINT$.,2,MCOONL @B@@@-@HDG,P MCO JZ )@@G@@PROCESS M404H - RUN ICTTSA @A@@@-@MSG,W MCO ICTTSA READY TO RUN KA )@@G@@@^@@@-@ASG,A MCO*CLASP/IN. @[@@@-@ERS @ @@@-@COPY,A MCO*CLASP.CTTSA,KB )@@G@@CTTSA @#@@@-@FREE MCO*CLASP.@ @@@-@ASG,TF MCOPRUCT.,T,004343 @ @+@-KC )@@G@@@ASG,TF IPROCAD.,16N,004051 @ @<@+@ASG,TF IPROCAD.,16N,004637 @ @=@@=@ASG,TF IPROCAD.,16N,004574 @ @@@>KE )@@G@@@ASG,TF IPROCAD.,16N,004676 @^@@@-@USE A.,IPROCAD. @^@@@-@DELETKF )@@G@@E,C MCOPRU*CT. @^@@@-@ASG,CPG MCOPRU*CT. @ @@@-@GCOPY MCOPRUCT.,KG )@@G@@MCOPRU*CT. @#@@@-@FREE MCOPRUCT. @#@@@-@FREE MCOPRU*CT.@#@@@-@ASG,AKH )@@G@@ MCOPRU*CT.@#@@@-@EDM MCOPRU*CT. @[@@@-@EOF @]@@@-@XQT CTTSA @#@+@-KI )@@G@@IPROCAD00410$ @#@<@+IPROCAD00411$ @#@=@@=KJ )@@G@@IPROCAD00415$ @#@@@>IPROCAD00416$ @#@@@-@ADD,P MCOPRU*CT. _@@@@@KK )@@G@@@]@@@)@XQT CTTSA @#@-@)IPROCAD00409$ @#@+@-IPROCAD00410$ @#@<@+KL )@@G@@IPROCAD00411$ @#@=@@G@@@YC[PET ^@)^@)^[#D9IE1OCDKC*?DDKEL#D[NE-ND([ETC^@)^@) 0)NT )@@G@@^[DD1KE(O^[ADDGC*):@@@@&@G@@@YC[[ETB -O^@)^[^CLOCDK -AAK\A*\E[JES\AC0^@)NU )@@G@@^@)^@)^@,^[JE(OE[PE))C1DD- ^@):@@@@$@#@@@YC[SEDO^@,D(NE(NEL[:@@@@*@O@@@YNV )@@G@@ETHCDND@!^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@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 @[@@@@(]@@[[^[RDDGETJD0)@]@[[[CT[EL^DD[CS)@@@[[[@@@[[[FD )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[[^[RDDGETJD0)^@)@]@[[[CT[EL^FE )@@G@@DD[CS)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C1MC(^C(MDDLE( ^[^^[RD9GFF )@@G@@C0)^@)@]@[[[CT[EL^DD[CS)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELFFG )@@G@@^[K^[RD9JC-ME(AC0)@]@[[[CT[EL^DD[CS)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[FH )@@G@@@^@[[[D([ELOD[[^[G^[RD9ME-CC(I@]@[[[CT[EL^DD[CS)@@@[[[@@@[[[@@@[[[@[__[[FI )@@G@@^@)^@)@@@@[[@^@[[[ETPET[D0)D*)FLPC9 EK)^@)@]@[[[CT[EL^DD[CS)@@@[[[@@@[[[FJ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C- E1 D1^EL[^[F^[[C9MCDRCDG^@)@^@[[[E[PD-HFK )@@G@@D9ICDMFC)D-[CK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E1DE-J^[[^[[FL )@@G@@D1BC(GDDGD-J@^@[[[E[PD-HD9ICDMFC)D-[CK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)FM )@@G@@@@@@[[@^@[[[CTGCDMC(ICT ^[R^[]C(GD))@^@[[[E[PD-HD9ICDMFC)D-[CK)^@)@@@[[[FN )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[DK)CTGCDTE-JD0)CT[D(KCL D-G^[HC))^@)FO )@@G@@@^@[[[E[PD-HD9ICDMFC)D-[CK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[FP )@@G@@D1[EL ETC^[[^[^C(RCDI^@)@^@[[[E[PD-HD9ICDMFC)D-[CK)^@)@@@[[[@@@[[[@@@[[[FQ )@@G@@@[__[[^@)^@)@@@@[[@ @[[[C(GCDDD1 ^[H^[KC(OC(MET D0)^@)@^@[[[E[PD-HD9ICDMFR )@@G@@FC)D-[CK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCCDMD9I^[PC-JC1DFS )@@G@@CC)^@)@^@[[[E[PD-HD9ICDMFC)D-[CK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[FT )@@G@@@^@[[[D(DCTCCD D))CC)CL ETO^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[FU )@@G@@@[__[[^@)^@)@@@@[[@#@[[[C- CLMCC)D))CTJD9F@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[FV )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELDCC)DK)C(MDD#DTND9I@#@[[[EL[C-DFW )@@G@@D9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([E-CDDN^[K^[AELDFX )@@G@@CTF^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[FY )@@G@@ETPFL[D1IC*)D@)C9MCDIC9 EK)^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[FZ )@@G@@@[__[[^@)^@)@@@@[[@#@[[[D1[EL ETC^[BE(KE-[@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[GA )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D1 DDG^[K^[FC(ID1 FC)^@)@#@[[[EL[C-DGB )@@G@@D9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-[E1DC))D- C1FD9RGC )@@G@@DDOFK)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[GD )@@G@@DL[D( ES)C*)D(#C9DD-G^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[GE )@@G@@^@)^@)@@@@[[@ @[[[DLPD-DC*)CC)E[MC(GD-RDDOFK)^@)@#@[[[EL[C-DD9GD9BFC)^@)GF )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJET E[C^[[^[MFDNCDQFC)@#@[[[GG )@@G@@EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C-[E9IC(OE- GH )@@G@@^[G^[NCTCD(DC-O^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)GI )@@G@@@@@@[[@ @[[[DLPC-DE-C^[N^[NCTCEL DDHCDI^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[GJ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTCFDIC8)FC)ETCDDPC*)^@)@#@[[[EL[C-DGK )@@G@@D9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9MCD#C*)C8)ETCDDPGL )@@G@@C*)^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[GM )@@G@@DL CDIC(OE- ^[H^[ND(DE-C@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[GN )@@G@@^@)^@)@@@@[[@#@[[[DLJD[I^[^^[OC(MELT@[@[[[EL[C-D(]@@[[D9GD9BFC)^@)@@@[[[GO )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[ ^[OD[JELKC*)^@)@#@[[[GP )@@G@@EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CTCC(MFDG^[[GQ )@@G@@^[RDDGD-DCDHES)^@)@#@[[[EL[C-DD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)GR )@@G@@@@@@[[@ @[[[ETCCDCELJDTC^[]CD^CDFD[ND@)^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[GS )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTCD[[D1^CC)CL E9OEL[^@)@#@[[[E[[E-CGT )@@G@@D9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[EL D0)DS)CLJE1[GU )@@G@@EL^^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[GV )@@G@@ELJCL ELO^[N^[#D9S^[EEK,@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[GW )@@G@@^@)^@)@@@@[[@^@[[[D([ELDD-TD0)D*)CTMCDIC*)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[GX )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[A^[ C-GCDIC))^@)@#@[[[E[[E-CGY )@@G@@D9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJC9 EK)E8)C9 DDNGZ )@@G@@ES)^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[HA )@@G@@D- C([D1[^[CCDPET EK)^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[HB )@@G@@^@)^@)@@@@[[@^@[[[E[[E(GDDIC*)C0)DL[C-DCTF@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[HC )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[C-[E1DC))CC)DT[E-U@#@[[[E[[E-CD9GD9BHD )@@G@@FC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJET E[C^[I^[HCDMCTPES)HE )@@G@@@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C9 D9MHF )@@G@@C9 ^[[^[HCT#D- D-GCDI^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[HG )@@G@@^@)^@)@@@@[[@[@[[[D[ D1M(#@@[[FC)CS)D1DE[KC(M^@)@#@[[[E[[E-CD9GD9BFC)^@)HH )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[CL[EL]CDMCC)D8$DT[D1 ^[HE(ME[CHI )@@G@@FC)^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[HJ )@@G@@D[ EL]C(ME))DK)EDPDDBD- FC)^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[HK )@@G@@@[__[[^@)^@)@@@@[[@^@[[[E-CD9HCDN^[#^[ND(TELF^@)@#@[[[E[[E-CD9GD9BFC)^@)HL )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-GD9TC))CS)ETJC(OD( D-F@#@[[[HM )@@G@@E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELJD))CC)HN )@@G@@E9[D-ND@)^@)@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[HO )@@G@@@^@[[[D([ELT^[G^[RCDOC(MCLPELT@#@[[[E[[E-CD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[HP )@@G@@@[__[[^@)^@)@@@@[[@#@[[[C(GD- D0)CL ELMFC)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[HQ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CLMDDBDDOE- ^[F^[]ELJE9I@#@[[[E[ C-DHR )@@G@@CDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[ ^[]E(NET HS )@@G@@FC)^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[HT )@@G@@ETOC(KD[ D0)CC)CTCCDME-MCDIC))@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[HU )@@G@@@[__[[^@)^@)@@@@[[@ @[[[C-DCDIC*)D))CTCELDETOC(IET D0)@#@[[[E[ C-DCDOELDHV )@@G@@CTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D1[D1#FC)DK)CTJE(BD[GDDIHW )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[ET[D1^HX )@@G@@EL[^[H^[#D9S@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[HY )@@G@@@#@[[[D[ D- D0)ES)C-[D1B@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@@__[[HZ )@@G@@([@@[[^@)^@)@@@@[[@^@[[[DL[D1DCT ^[[^[^C(BCDI^@)@#@[[[E[ C-DCDOELDCTN^@)IA )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D[ D- D1 ^[[^[^FLDC(^FLDCS)^@)IB )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C1MCDIIC )@@G@@CTDES)C1DE-UD([E(MDD#C*)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[ID )@@G@@^@)^@)@@@@[[@^@[[[DL[FDICC)CC)C1JD-FC(ME-N@#@[[[E[ C-DCDOELDCTN^@)@@@[[[IE )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[D1DCT ^[ ^[AEL[D1FD-DD0)^@)@#@[[[IF )@@G@@E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E(G^[^^[BIG )@@G@@D9JC-MDD#D@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[IH )@@G@@@ @[[[ELJET[D-DD1^^[[^[BD9MC-JD0)^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[II )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E1 D-HCC)DK)C9JFDIC(N^@)@#@[[[E[ C-DCDOELDIJ )@@G@@CTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D(DCTCCD D))D@)D[[ELO^@)IK )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-DET[IL )@@G@@^[E^[CC(ME9 C8)^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)IM )@@G@@@@@@[[@^@[[[ELPETNC(GD))DK)D[JE[K^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[IN )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLPD-DC*)CC)D[ME(]CDI^@)@#@[[[E[ C-DCDOELDIO )@@G@@CTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-MCD#DD ^[G^[ECD#DTND9IIP )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETOE([IQ )@@G@@ELO^[N^[FCDPC1HCDI@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)IR )@@G@@@@@@[[@^@[[[DT[E-DC*)DT D1IC(^FC)^@)@[@[[[E[ C-D(]@@[[CDOELDCTN^@)@@@[[[IS )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCC(MELT^[[^[FD9 D[GC(M@#@[[[E[ C-DIT )@@G@@CDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-[D(D^[N^[GC( E[ IU )@@G@@EK)^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[IV )@@G@@C-DCDIC*)D*)D- ETC@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)IW )@@G@@@@@@[[@#@[[[D([ELT^[[^[GC(RDDN@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[IX )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C- CLMCC)CC)D([ELDD9I^@)@#@[[[E[ C-DCDOELDCTN^@)IY )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCCDMD9I^[H^[HCDOFD[^@)@#@[[[IZ )@@G@@E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C-[ELGC(IC*)JA )@@G@@CC)D(#^[#D9MC))^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JB )@@G@@@@@@[[@^@[[[D([E-DD-^CC)D(#DDIE-DEL @#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[JC )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJCDID1 ^[HD-JE- DS)^@)@#@[[[E[ C-DCDOELDJD )@@G@@CTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELJD- ^[F^[J^9IC(DD))JE )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-[D1DJF )@@G@@CT ^[C^[JE9 D1N^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JG )@@G@@@@@@[[@#@[[[DLPD1B^[C^[KCDMDS)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[JH )@@G@@@[__[[^@)^@)@@@@[[@^@[[[ET[D1^EL[^[E^[KCDTD1 ^@)@#@[[[E[ C-DCDOELDCTN^@)JI )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- CLMCC)D))EL[D1^D9GE[C@#@[[[JJ )@@G@@E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E- EL ET[^[NJK )@@G@@CTCE9DC(OFK)@[@[[[E[ C-D(]@@[[CDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JL )@@G@@@@@@[[@ @[[[ETJD1^EL[^[E^[NE[[E(GC-DD1B^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[JM )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CDIC-MC([^[E^[NE- C(IETJD0)^@)@#@[[[JN )@@G@@E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-DCDIC*)D*)JO )@@G@@ETOC(DD( EK)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[JP )@@G@@@ @[[[C-DCDIC*)D*)ETOD9MD(]C(MC8)^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[JQ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D( D-[D1DC*)ETPD1^ET]D8)@#@[[[E[ C-DCDOELDJR )@@G@@CTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL C1A^[#^[QCDI^[BE(IC-TJS )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD0)JT )@@G@@CC)E1[D1^C(MD[JD9A@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JU )@@G@@@@@@[[@^@[[[D-[E(MDD ^[G^[RFDHCDI^@)@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[JV )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTMFDNE-[D))DK)FDJE(IC8)@#@[[[E[ C-DCDOELDJW )@@G@@CTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E- EL D1#C*)D))FL[CTC^@)JX )@@G@@@#@[[[E[ C-DCDOELDCTN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CD9HJY )@@G@@CDN^[ ^[[C-MDD[D0)@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JZ )@@G@@@@@@[[@ @[[[ELDCTCCDMC))E0)CDIC-MC(RES)^@)@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[KA )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D[ D1MFC)ES)CL[C- C(M^@)@#@[[[E[CFDNKB )@@G@@DDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-[D- ^[M^[]C(MC9MKC )@@G@@C(I^@)@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@@@[[[KD )@@G@@(#@@[[ELJCL ELO^[#EL C(F@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[KE )@@G@@^@)^@)@@@@[[@#@[[[D[ D1MFC)D@)C9[D- @#@[[[E[CFDNDDJD-JC9T^@)@@@[[[@@@[[[KF )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D( ES)E8)D[DCTFES)^@)@#@[[[E[CFDNDDJD-JKG )@@G@@C9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL E-OFC)CK)D[JC1AD([D0)KH )@@G@@@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-JD1[KI )@@G@@D))C0)D([C9 C*)^@)@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)KJ )@@G@@@@@@[[@ @[[[ELJCL ELO^[Q^[RDDGD-DCDHES)^@)@#@[[[E[CFDNDDJD-JC9T^@)@@@[[[KK )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[[^[RDDGETJD0)^@)@#@[[[E[CFDNKL )@@G@@DDJD-JC9T^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[E[ E- EK)E8)CD]C(GKM )@@G@@@#@[[[E[CCDMD([CTJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C1MCDIKN )@@G@@DS)DK)C-JE9^^[EEK)@#@[[[E[CCDMD([CTJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)KO )@@G@@@@@@[[@#@[[[DLJD[I^[ D-^C(M^@)@#@[[[E[CCDMD([CTJD-JC9T@@@[[[@@@[[[@@@[[[KP )@@G@@@[__[[^@)^@)@@@@[[@ @[[[CT[E-CC(MD0)D*)C1JELRCDMC))^@)@#@[[[E[CCDMD([CTJKQ )@@G@@D-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[FDPC(I (NE(H^[GCDP@#@[[[KR )@@G@@E[CCDMD([CTJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[GDDIDDJ^[KKS )@@G@@ELDD9MC(NCTCDC)^@)@#@[[[E[CCDMD([CTJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)KT )@@G@@@@@@[[@^@[[[DT[EL D0)D))E-MD9]D9PC9C@#@[[[E[CCDMD([CTJD-JC9T@@@[[[@@@[[[KU )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[E9[D1TE(I^[UC(IC8)@#@[[[E[CCDMD([CTJD-JC9TKV )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@[@[[[DTMDDN(#@@[[E-DD0)D))CDIC9PES)KW )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9[ELT^[E^[[KX )@@G@@D1OD[JD1 ^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[KY )@@G@@C9[D- ^[G^[]CD#D[OC(GD))@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)KZ )@@G@@@@@@[[@ @[[[ELJCL ELO^[O^[]CDDD- FC)DLM^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[LA )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJ^[[D1I^[F^[]CDPC(M^@)@]@[[[ETPELBC(MFC)LB )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD1[E-CCDI^[#^[]C([D0)@]@[[[LC )@@G@@ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DL[D1 ^[A^[]C([EL^LD )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJC(G^[I^[]LE )@@G@@D- DD#D[ EK)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[LF )@@G@@D(DCTCC(GD- ^[G^[]ELJE9I@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)LG )@@G@@@@@@[[@B@[[[ETPFL[D1IC*)D))CLME(IC(OC([E*!EL[D(DEL FK)@]@[[[ETPELBC(MFC)LH )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELJET D-TD0)DS)CT[E[KDD D-GD8)LI )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D([ELT^[#^[#LJ )@@G@@CDNC(T@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCC(DLK )@@G@@D-[^[H^[#D[ ELIC(T@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[LL )@@G@@@ @[[[D([ELF^[[^[#D[MDDNE- D1NC(I^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[LM )@@G@@@[__[[^@)^@)@@@@[[@^@[[[EL[D(JD1[^[C^[#D9]E(MD0)@]@[[[ETPELBC(MFC)@@@[[[LN )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[#D9ID1JD-GFC)^@)@]@[[[ETPELBLO )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL E1 ELGFC)C8)CTJFDGC*)LP )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-TD1I^[[^[#LQ )@@G@@ELJET]FC)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[LR )@@G@@E-JD*)EK)C- ^[HC( ETOC(M@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)LS )@@G@@@@@@[[@^@[[[C(PCTGDD^^[^C(ND9PFL[^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[LT )@@G@@@[__[[^@)^@)@@@@[[@^@[[[DLJCDID1 ^[O^[^DD]D-[ETD@]@[[[ETPELBC(MFC)@@@[[[LU )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-JELJE-CFC)D))C-JELNE- @]@[[[ETPELBLV )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C9[ELT^[G^[^E(ID1DD1BE-JLW )@@G@@D0)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9GCD^LX )@@G@@FDN^[ D1BD- EK)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[LY )@@G@@@ @[[[DT[E-CC(MDDIC*)CC)C(NE- ES)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[LZ )@@G@@@[__[[^@)^@)@@@@[[@ @[[[E-CD9HCDN^[M^[ ETOC(N^[EEK)^@)@]@[[[ETPELBC(MFC)MA )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[CTLE( D-DD1 ^[^^[ E1[D1N^@)MB )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-DD1^CC)D))MC )@@G@@C1DET#E(N^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[MD )@@G@@ELJCL ELO^[E^[ADDOFLBDD]CLJD1N^[EEK,@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[ME )@@G@@@[__[[^@)^@)@@@@[[@A@[[[ELJCL ELO^[E^[ADDOFLBDD]CLJD1N^[NEK,@]@[[[ETPELBMF )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[EL[FC)C))C9[DDIC(N@]@[[[MG )@@G@@ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DDMC(IC*)DK)C9DCDIMH )@@G@@(]@@[[C-DD1JE-J^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[MI )@@G@@@#@[[[CT[ELJD))C9JELDE-T@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)MJ )@@G@@@@@@[[@^@[[[ETOC(QC(I^[M^[CCDHDD D))@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[MK )@@G@@@[__[[^@)^@)@@@@[[@^@[[[CL E-C^[[^[CC(IC- ELND9I@]@[[[ETPELBC(MFC)@@@[[[ML )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJD1[D-^^[[^[CDDIC- EK)@]@[[[ETPELBMM )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- D1DE-NE*)D[DEL[DC)^@)MN )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CDHFC)D*)DL[MO )@@G@@ETND8)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCCDMMP )@@G@@D9I^[A^[ED9IC(N^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[MQ )@@G@@@^@[[[DT[EL D0)DT[CTUD([EL DS)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[MR )@@G@@^@)^@)@@@@[[@^@[[[ELJET ^[U^[FC(IC-[D-G^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[MS )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C(GD- D0)EK)DT ETND- EK)@]@[[[ETPELBC(MFC)MT )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E- ELMDC)D))DTDD-BCDMDDI@]@[[[MU )@@G@@ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[D([D-[^[E^[FD- MV )@@G@@CL EK)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C-[E1DMW )@@G@@C))D@)DTMC(OCTCD([EK)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)MX )@@G@@@@@@[[@ @[[[D1[D1#FC)EK)DTPF[CCDPET D0)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[MY )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CL E-C^[[^[GD-JFD^@]@[[[ETPELBC(MFC)@@@[[[MZ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@]@[[[DT[E-CELTD0)([@@[[D-PE-U@]@[[[ETPELBNA )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DL[D1 ^[ ^[HCD#C*)@]@[[[NB )@@G@@ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[EL D0)D([ELOC(INC )@@G@@ES)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCC(GND )@@G@@D-T^[HCDOC(EDT[^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[NE )@@G@@@ @[[[E[[E(GCC)D*)D(#^[^D9ICDGC))^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[NF )@@G@@@[__[[^@)^@)@@@@[[@ @[[[D(DCTCCD D))D@)D(#C9PDDMC*)^@)@]@[[[ETPELBC(MFC)NG )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL CDIC(OE- ^[H^[ICD^D9GD1T^@)NH )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D-JELD^[G^[INI )@@G@@DDGC(N@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGE1DNJ )@@G@@D0)D1DETNC(I^[EEK,@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[NK )@@G@@@^@[[[DL ELUFC)EK)D1JE1[DS)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[NL )@@G@@^@)^@)@@@@[[@^@[[[ETPET[D0)DS)D1JE9[DS)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[NM )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTJD1IDD ^[G^[J^9]D9TD- @]@[[[ETPELBC(MFC)NN )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETCDDMD- FC)D*)D9NE-]D-JD*)^@)NO )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-JELICC)D))NP )@@G@@E[[CTFC(OE))@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[NQ )@@G@@E-[D(HFC)DS)E[[D-HC(M^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)NR )@@G@@@@@@[[@^@[[[DL[D1DCT ^[F^[KD9ME- EK)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[NS )@@G@@@[__[[^@)^@)@@@@[[@@@[[[(^@@[[D1[D1#FC)D*)E[JE9 ELN^@)@]@[[[ETPELBC(MFC)NT )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[E-CD- C(I^[ ^[MC( C))@]@[[[NU )@@G@@ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[E^[MC( E1 NV )@@G@@ES)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-DD1^NW )@@G@@CC)ES)EL C9DC(M^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[NX )@@G@@@ @[[[D([ELODDI^[G^[MD9OD[]C(MC8)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[NY )@@G@@@[__[[^@)^@)@@@@[[@ @[[[CT[ELJD))DK)ET#D[DD(JD1DE-U^@)@]@[[[ETPELBC(MFC)NZ )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETCCDMD9I^[Q^[NCTCD9 D1DD1B^@)OA )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-DD(JE-CFC)OB )@@G@@DK)ETCE(#DS)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[OC )@@G@@DLJC- C*)D))ETDC(HC(F^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)OD )@@G@@@@@@[[@^@[[[ETCDDMD- FC)CC)ETKCDDD0)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[OE )@@G@@@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[G^[NE- C(GC*)^@)@]@[[[ETPELBC(MFC)OF )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL[ETDD))ES)ETOEL[E- ES)@]@[[[OG )@@G@@ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CLMC(IE))E0)ETOELJOH )@@G@@D(]C(MC8)^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[OI )@@G@@DL C1AEL FC)E))ETPC9DD(JE-J^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[OJ )@@G@@^@)^@)@@@@[[@^@[[[CTCELDETODDIC*)D*)E-[E- @]@[[[ETPELBC(MFC)@@@[[[@@@[[[OK )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTCCDMD- ES)E-[FDGD9I^@)@]@[[[ETPELBC(MFC)OL )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL D1IDDAC(M^[G^[OD[JD(KETJD0)OM )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGCDI^[B^[OON )@@G@@D[JELND9I^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[OO )@@G@@ELJET ^[OET D- D1ODDN^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)OP )@@G@@@@@@[[@^@[[[D(DCTCCD D))EK)E9[D-FC(M@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[OQ )@@G@@@[__[[^@)^@)@@@@[[@^@[[[D-PCT D-DCC)CC)E9 CDM^@)@]@[[[ETPELBC(MFC)@@@[[[OR )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D-TD1I^[ ^[RD9JC))@]@[[[ETPELBC(MFC)OS )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D-DD1^CC)ES)FDJELF@]@[[[ETPELBOT )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- ^[[D1IC*)C*)FDJE(IC8)OU )@@G@@@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CT CTDD- ^[HOV )@@G@@^[UDD D-DD1NDTD^@)@]@[[[ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[OW )@@G@@@^@[[[CTTD1OD[DCC)D*)C9JC(FC(I@^@[[[D9KD[OD[[D-HD9GD9BFC)^@)@@@[[[@@@[[[OX )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[FLDE-[^[O^[ID9JD1 D0)^@)@^@[[[D9KD[OD[[D-HOY )@@G@@D9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ET[D1^FC)DS)EL C(QOZ )@@G@@C(N^@)@^@[[[D9KD[OD[[D-HD9GD9BFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[PA )@@G@@@^@[[[E(HC(ND@)CL[D1[DT[EK)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)PB )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D))DS)CL D1 C-DCTO@A@[[[E[CCDMPC )@@G@@D([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[PD )@@G@@DL[D( ES)CC)CLJFD^@^@[[[E[CCDMD([CTT^@!^[^C([D0$(]@@[[ES)D9AC0,^@)@@@[[[PE )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D( D-QCC)D))CLPE-GC(M^@)@A@[[[E[CCDMPF )@@G@@D([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[PG )@@G@@DL[D( ES)D*)CTMCDHE[OD9I@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[PH )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLJCDID1 ^[F^[^CDT@A@[[[E[CCDMD([CTTPI )@@G@@^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C(^E9[PJ )@@G@@EL^^[H^[^C(NDDHD9IC*)DDD@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[PK )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[CTCELDETOD9KD[ EK)DK)C- ETOCD#D[ ^@)PL )@@G@@@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)PM )@@G@@@@@@[[@^@[[[C9[ELT^[I^[ D-NCDNET EK)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9APN )@@G@@C0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E9[D-OC(M^[O^[BD-JD9M^[EPO )@@G@@EK)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[PP )@@G@@^@)^@)@@@@[[@ @[[[ET[D-QCDOD9MC*)DK)C9MC(#D8)^@)@A@[[[E[CCDMD([CTT^@!^[^PQ )@@G@@C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CDHFC)D*)D[[PR )@@G@@C-^CD^@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[PS )@@G@@^@)^@)@@@@[[@ @[[[ELJD1[D-^^[E^[CD9NE[JC-FCC)^@)@A@[[[E[CCDMD([CTT^@!^[^PT )@@G@@C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DT[E-CD- C(IPU )@@G@@^[[^[FCDMD1DDS)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[PV )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E9DD-GDD[D*)EK)DTDEL#D[[DDI^@)@ @[[[E[CCDMPW )@@G@@D([CTT^@!^[^C([D0$ES)D9A([@@[[C0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[PX )@@G@@@^@[[[D(DCTCCD D))CS)D([DTJDD^@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)PY )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D-DD1^CC)DS)D9CELD@A@[[[E[CCDMPZ )@@G@@D([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[QA )@@G@@CDID1 ^[JE[DE-U^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[QB )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C9 D9MC9 ^[ ^[JE[DE-U^[NEK,^@)@A@[[[E[CCDMQC )@@G@@D([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[QD )@@G@@D-JELD^[G^[KC(OC(MES)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[QE )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-DCDICC)DS)E[GCDOE))^@)@A@[[[E[CCDMQF )@@G@@D([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[QG )@@G@@E1DCTOD9MDD[^[A^[MD9#D[ @A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[QH )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[EL[FDGC(IC*)D*)ELJETKD9IC))^@)@A@[[[QI )@@G@@E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[QJ )@@G@@@^@[[[DLPD-DC*)CC)ETCDD D-^ES)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)QK )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDID1 E-[^[G^[NDDGE1DE(N@A@[[[QL )@@G@@E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[QM )@@G@@@ @[[[DDIC9MDD^^[G^[ND9IC9NE- EK)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AQN )@@G@@C0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[ETDC-IC(T^[NE-JD[N@A@[[[QO )@@G@@E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[QP )@@G@@@^@[[[DT[EL D0)CC)E-CC( ET D0)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)QQ )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[CDGDD#DD[^[#^[QCDIC- D0)CLJET#QR )@@G@@D@)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[QS )@@G@@^@)^@)@@@@[[@^@[[[ELPE-C^[K^[RCDGE- EK)^@)@A@[[[E[CCDMD([CTT^@!^[^C([D0$QT )@@G@@ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9DD-GDD[D*)E8)FDJQU )@@G@@E(IC8)@A@[[[E[CCDMD([CTT^@!^[^C([D0$ES)D9AC0,^@)@@@[[[@@@[[[@@@[[[@[__[[QV )@@G@@^@)^@)@@@@[[@ @[[[E9[FDIC*)E8)CL[ELFD( DD EK)^@)@A@[[[C- D1ODDNE-MFC) *)QW )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[EL D0)DS)QX )@@G@@CL[ELMFC)^@)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[QY )@@G@@@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[]C([C-GC(ND9I^@)@A@[[[C- D1ODDNE-MFC) *)QZ )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CLJCL]DC)DK)RA )@@G@@CLJFL @A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[RB )@@G@@^@)^@)@@@@[[@^@[[[C9 EL[D-^^[#^[]ELPD1^D8)@A@[[[C- D1ODDNE-MFC) *)C- CDIRC )@@G@@^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-ODC)DK)CTCE(MRD )@@G@@CTCDDGD))^@)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RE )@@G@@@[__[[^@)^@)@@@@[[@^@[[[DL[CTLE( D-DD1 ^[#E(MELT@A@[[[C- D1ODDNE-MFC) *)RF )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C1[CLDCDI^[CRG )@@G@@CDTC- D0)^@)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RH )@@G@@@[__[[^@)^@)@@@@[[@^@[[[DT D-GFC)DK)D[ D1MFC)^@)@A@[[[C- D1ODDNE-MFC) *)RI )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ET[D1^EL[^[FRJ )@@G@@^[CDDGD-[D*)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RK )@@G@@@[__[[^@)^@)@@@@[[@^@[[[ETCDDMD- FC)DK)DTJC(IDDB@A@[[[C- D1ODDNE-MFC) *)RL )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL E-C^[[^[HRM )@@G@@CDOD[DETJD0)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RN )@@G@@@[__[[^@)^@)@@@@[[@ @[[[D([ELGC(OE-[^[E^[HCTFC(MCTCC(M@A@[[[C- D1ODDNE-MRO )@@G@@FC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D([ELTRP )@@G@@^[N^[JELM^@)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RQ )@@G@@@[__[[^@)^@)@@@@[[@^@[[[D(DCTCCD D))CC)EL D1NCTC@A@[[[C- D1ODDNE-MFC) *)RR )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGD-[D0)D*)RS )@@G@@ETHDDOD@)^@)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RT )@@G@@@[__[[^@)^@)@@@@[[@^@[[[E[[E(GCC)DK)ETJELODDID8)@A@[[[C- D1ODDNE-MFC) *)RU )@@G@@C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E(G^[ ^[ORV )@@G@@CDHDDNDD CC)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[RW )@@G@@@[__[[^@)^@)@@@@[[@ @[[[D([ELBE( ELDE- ^[H^[RDDND(JD1O@A@[[[C- D1ODDNE-MRX )@@G@@FC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- CLMRY )@@G@@CC)CC)FD[D1#FC)^@)@A@[[[C- D1ODDNE-MFC) *)C- CDI^9N^[JC1A 0)@@@[[[@@@[[[RZ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELDCTCCDMC))DK)CLGCDIDT D1[E*)@ @[[[D9KC(MSA )@@G@@CDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[E-CC(JSB )@@G@@C-JEL ^[ ^[]D9GCDHE[ ELODC)^@)@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[SC )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CD9HCDN^[ ^[]D9TD- ^@)@ @[[[D9KC(MSD )@@G@@CDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E9DD-GSE )@@G@@DD[D*)D))CT[ELGDDND- ^@)@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[SF )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9DD-GDD[D*)E))CT[E1 D))@ @[[[D9KC(MCDODDQSG )@@G@@C*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETOC(QC(I^[MSH )@@G@@^[ C9BC(MES)@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[SI )@@G@@^@)^@)@@@@[[@^@[[[ELJC9 EK)CK)C9 ELNE-IC(M@ @[[[D9KC(MCDODDQC*)C- D1ODDNSJ )@@G@@E-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E- ELMFC)D*)C9PFL[D-GDDNSK )@@G@@@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[SL )@@G@@@ @[[[E9DD-GDD[D*)E@)DT D-NC(T^[DDDD@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)SM )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[A^[FEL[C9 EK)^@)@ @[[[SN )@@G@@D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[SO )@@G@@CTTD1OD[DCC)ELPETNC(GD))@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[SP )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[EL[FDHD9IC))ES)ETCCD^C-T@ @[[[D9KC(MCDODDQSQ )@@G@@C*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C(PC9 D1 ^[ASR )@@G@@^[NE-JELHCL ELB^@)@ @[[[D9KC(MCDODDQC*)C- D1ODDNE-MFC)@@@[[[@@@[[[@@@[[[SS )@@G@@@[__[[^@)^@)@@@@[[@^@[[[CTCCDMD- ES)C0)CL[DT EK)@#@[[[EL D(JE1[CLGC*)E[MST )@@G@@(#@@[[D9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL ELISU )@@G@@CDMC))D*)CLJC9[E-U@A@[[[EL D(JE1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[SV )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJD1[D-^^[M^[#D9[E-N^@)@A@[[[EL D(JE1[CLGSW )@@G@@C*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELDCTCSX )@@G@@CDMC))E8)C9JETIC(T@A@[[[EL D(JE1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[SY )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E- ELMC(ICT ^[G^[CCDAE-DD1BES)@A@[[[EL D(JSZ )@@G@@E1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[TA )@@G@@C1MCDICTDES)DK)D[[D- ^@)@A@[[[EL D(JE1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[TB )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CTCCD^^[G^[FD-PFL[@A@[[[EL D(JE1[CLGTC )@@G@@C*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9 ETGTD )@@G@@C(T^[R^[JD-ND9I^@)@A@[[[EL D(JE1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[TE )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELDCTCCDMC))DK)ELJD1F^[EEK)^@)@A@[[[EL D(JTF )@@G@@E1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[TG )@@G@@DL[EL C))D@)ETHDDOD@)^@)@A@[[[EL D(JE1[CLGC*)E[MD9NE-CD9^D9IE-DCTN@@@[[[TH )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT D-GFC)EK)CTJD1RCDT^@)@ @[[[C1DF[ TI )@@G@@C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[CTLTJ )@@G@@E( D-DD1 ^[H^[#E(GDDB^@)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[TK )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJET E[C^[AEL[D1#D8)DLM@ @[[[C1DF[ C))E[MTL )@@G@@D9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D[[ELJD-^^[RTM )@@G@@^[BC( @ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)TN )@@G@@@@@@[[@^@[[[DL[D( ES)C8)C9 ELIC(M^@)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTNTO )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL ELJD( ^[A^[BEL[C-JE1DD-GC*)TP )@@G@@@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[TQ )@@G@@@^@[[[D-PDT ^[A^[HCDOEL[D1BCC)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[TR )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CD9HCDN^[G^[HC(ME-U^@)@ @[[[C1DF[ TS )@@G@@C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJFD[TT )@@G@@D))D))D1JELHCDI^@)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[TU )@@G@@@[__[[^@)^@)@@@@[[@^@[[[EL[D1^FC)C*)ETOD9PE))^@)@ @[[[C1DF[ C))E[MD9NE-CTV )@@G@@D9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E-MDD#DS)DK)E-CTW )@@G@@DD D*)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)TX )@@G@@@@@@[[@A@[[[CTCELDETOD9KD[ EK)C))E1[E(BD[[D0)^@)@ @[[[C1DF[ C))E[MD9NE-CTY )@@G@@D9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E- ELMFC)D*)E9DD-RTZ )@@G@@C(MC-DD1B^@)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[UA )@@G@@^@)^@)@@@@[[@^@[[[C-[E1DC))E8)E9DD( EK)^@)@ @[[[C1DF[ C))E[MD9NE-CD9^D9IUB )@@G@@E-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D[ D- D0)C(GET]C(MELT^@)UC )@@G@@@B@[[[D9MCDG^@&^[HCDSDDGD-JC1[CTDCDG^[NE(MC9 ELT@@@[[[@@@[[[@@@[[[@[__[[UD )@@G@@^@)^@)@@@@[[@^@[[[C9 D1 ^[M^[CE( CLIC(M^@)@B@[[[D9MCDG^@&^[HCDSDDGD-JC1[UE )@@G@@CTDCDG^[NE(MC9 ELT@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL[EL]CDMCC)UF )@@G@@D@)D-PC(^C(M@B@[[[D9MCDG^@&^[HCDSDDGD-JC1[CTDCDG^[NE(MC9 ELT@@@[[[@@@[[[UG )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DS)DK)D(PD-GDDBCDI^@)@B@[[[D9MCDGUH )@@G@@^@&^[HCDSDDGD-JC1[CTDCDG^[NE(MC9 ELT@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[UI )@@G@@@^@[[[E9DD-GDD[D*)D*)E9TCDOE))@B@[[[D9MCDG^@&^[HCDSDDGD-JC1[CTDCDG^[NE(MUJ )@@G@@C9 ELT@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CT[ELJD- ^[Q^[]EL D1IC(DUK )@@G@@ET ^@)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[UL )@@G@@@^@[[[C9 EL[D-^^[G^[]FDMC))^@)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[UM )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[E^[CCDHD- EK)^@)@^@[[[D9MCDG^[^DD[UN )@@G@@C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[A^[HCDMD- UO )@@G@@FC)^@)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[UP )@@G@@@ @[[[C9 D9MC9 D1 ^[N^[HCT#CDME-T^@)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[UQ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E-CC(JC-JEL ^[#^[HCTFC(MCTCC(M@^@[[[UR )@@G@@D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELTUS )@@G@@^[]^[HC(DCTCC(N^@)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[UT )@@G@@^@)^@)@@@@[[@ @[[[D1[D1#FC)CC)ELJET D1OD[[D))^@)@^@[[[D9MCDG^[^DD[C9ID9NUU )@@G@@DDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CLME(#C*)ET[DDGC(N@^@[[[UV )@@G@@D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLJD[IUW )@@G@@^[M^[NDTJE8)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)UX )@@G@@@@@@[[@^@[[[ET[EL[^[F^[NE(ND([D0)^@)@^@[[[D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[UY )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CTCCDMD- ES)DK)E1[CT[D1ODC)^@)@^@[[[UZ )@@G@@D9MCDG^[^DD[C9ID9NDDN^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELJVA )@@G@@D))DK)CLMD9RD0)^@)@#@[[[E[ ELDD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)VB )@@G@@@@@@[[@^@[[[E- ELMFC)CC)C(#DTGC(N^@)@#@[[[E[ ELDD9^D9IE-DCTN@@@[[[@@@[[[VC )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT D-GFC)CC)C9JE(GC))^@)@#@[[[E[ ELDD9^D9IVD )@@G@@E-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([D1ND9JEK)D@)DL[CLMD8)VE )@@G@@@#@[[[E[ ELDD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- CLMVF )@@G@@CC)D))DLJD[IETJD0)@#@[[[E[ ELDD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)VG )@@G@@@@@@[[@^@[[[D-[D1IFC)D))D(#D- FC)^@)@#@[[[E[ ELDD9^D9IE-DCTN@@@[[[@@@[[[VH )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E-DD(JE-CFC)E@)D(#E1[D1 FC)^@)@#@[[[E[ ELDVI )@@G@@D9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E(G^[M^[NE9[FDIVJ )@@G@@C*)^@)@#@[[[E[ ELDD9^D9IE-DCTN@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[VK )@@G@@ETCC(MFDG^[E^[[C-FDDIES)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#VL )@@G@@ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDID1 ^[N^[[DD D-GD8)^@)VM )@@G@@@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[VN )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C1MCDIDS)DK)CDTC(MES)^@)@C@[[[E[ C-DCDOELDCS)C- VO )@@G@@D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[VP )@@G@@D([E-ODD ^[H^[#ELJETND- FC)^@)@]@[[[E[ C-DCDOELD(A@@[[CS)C- D1O^@&^[JELOVQ )@@G@@D[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[[^[GVR )@@G@@CDMD(JD0)^@)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[VS )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGC1MC(^^[O^[GD9IC9J^@)@C@[[[E[ C-DVT )@@G@@CDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)VU )@@G@@@@@@[[@^@[[[C-[ELMC(GD))DK)D-JE9 EK)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOVV )@@G@@D[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[CTLE( D-DVW )@@G@@D1 ^[N^[HCT#D9T^@)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)VX )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[FLJC1DDL[^[HD9ODD DL[DDODDN^@)VY )@@G@@@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[VZ )@@G@@@[__[[^@)^@)@@@@[[@#@[[[DL[D0)C*)D9RC(IES)@C@[[[E[ C-DCDOELDCS)C- D1O^@&WA )@@G@@^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9 D9MWB )@@G@@C9 ^[H^[MCDFC(N^@)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)WC )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[ELPE-C^[I^[MDDGC(T@C@[[[E[ C-DWD )@@G@@CDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)WE )@@G@@@@@@[[@^@[[[C9MC(B^[N^[NCDHE( D-ND9I@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOWF )@@G@@D[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D(JD-GFC)EK)WG )@@G@@ETOCD#C(T^@)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[WH )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C-JD1[D-^^[C^[NE-JELHCL ELB^@)@^@[[[WI )@@G@@E[ C-DCDOELDCS)C- D1O^@&(^@@[[^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[WJ )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C- D1 ET ^[B^[QD9NES)^@)@C@[[[E[ C-DCDOELDCS)C- WK )@@G@@D1O^@&^[JELOD[JC-JD1ODD#ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[WL )@@G@@ETPET[D0)DK)E9 CL EK)^@)@C@[[[E[ C-DCDOELDCS)C- D1O^@&^[JELOD[JC-JD1ODD#WM )@@G@@ES)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C1MCDIDS)DK)D[PC(]D1 EK)WN )@@G@@@B@[[[CTJD(HE(IDDOFC)^0)E[MC(Q^[^C(IE-DETOELT^@)@@@[[[@@@[[[@@@[[[@[__[[WO )@@G@@^@)^@)@@@@[[@^@[[[C9[ELT^[C^[RC(NE- ELHCDI@B@[[[CTJD(HE(IDDOFC)^0)E[MC(QWP )@@G@@^[^C(IE-DETOELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CD9HCDN^[EWQ )@@G@@^[]D9GE))^@)@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[WR )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E9DD-GDD[D*)DK)CLMCDTD( D0)^@)@B@[[[CTJD(KWS )@@G@@EL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[WT )@@G@@@^@[[[CDGC1MC(^^[ ^[#D9GC(HCDI@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMWU )@@G@@C*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJC9 EK)DS)CTPELMFC)^@)WV )@@G@@@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[WW )@@G@@^@)^@)@@@@[[@^@[[[ETOC(QC(I^[AEL[D1#D8)^@)@B@[[[CTJD(KEL D[ D1NDDQC*)C- WX )@@G@@D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[EL[D-KD@)EK)WY )@@G@@D[ ELMD([D0)@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[WZ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@A@[[[C- D1IDDN^[M^[CDDBC9DD1]D9OD[[D*)^@)@B@[[[XA )@@G@@CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)XB )@@G@@@@@@[[@^@[[[DLJD[I^[N^[HCDOE-ND9I^@)@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDGXC )@@G@@^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CLME(#C*)D(JE9[E))XD )@@G@@@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[XE )@@G@@^@)^@)@@@@[[@#@[[[C9[ELT^[E^[ND(DE-C@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDGXF )@@G@@^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[O^[NE(GD-DXG )@@G@@E1[D0)@B@[[[CTJD(KEL D[ D1NDDQC*)C- D1OCDG^[#CDMC*)^@)@@@[[[@@@[[[@@@[[[XH )@@G@@@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[H^[]CDME-JD0)^@)@#@[[[D9MCDG^[]DDJD-JC9TXI )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D([ELQDDI^[CDDGD))@#@[[[D9MCDGXJ )@@G@@^[]DDJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D@)CTGCDDEL ^[HE(MXK )@@G@@E[CFC)@#@[[[D9MCDG^[]DDJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[XL )@@G@@E-CC(JC-JEL ^[E^[PEL]CDI@#@[[[D9MCDG^[]DDJD-JC9T@@@[[[@@@[[[@@@[[[@[__[[XM )@@G@@^@)^@)@@@@[[@^@[[[EL[FDHD9IC))D))FL^CDI^@)@#@[[[D9MCDG^[]DDJD-JC9T@@@[[[XN )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJET E[C^[M^[]D9CCD#C(F@#@[[[C(IC-JXO )@@G@@C-JD1ODD#ES)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DT D1IC(OD@)E@)D[ XP )@@G@@ELHET D0)^@)@#@[[[C(IC-JC-JD1ODD#ES)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[XQ )@@G@@@^@[[[D([ELQDDI^[J^[GE(^D-JE8)@#@[[[C(IC-JC-JD1ODD#ES)@@@[[[@@@[[[@@@[[[XR )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C1MCDIDS)ES)ETGC(^C(M^@)@#@[[[C(IC-JC-JD1ODD#ES)XS )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETOC(KD[ D0)E@)E9[CTCE- EK)^@)XT )@@G@@@#@[[[C(IC-JC-JD1ODD#ES)@@@[[[@@@[[[@@@[[[@@__[[([@@[[^@)^@)@@@@[[@^@[[[XU )@@G@@D([ELGCC)C-DE-OD([D0)^@)@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[XV )@@G@@@[__[[^@)^@)@@@@[[@#@[[[D([ELT^[ ^[ C-^FC)@^@[[[CDGD-DC(^^[CC([D-OD@)^@)XW )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[M^[AEL[D1FD-DD0)@^@[[[XX )@@G@@CDGD-DC(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-DD1^XY )@@G@@CC)ES)C9[CLMDD D))@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[XZ )@@G@@^@)^@)@@@@[[@ @[[[E1DELBDDIDD[^[B^[BC(NET ELO^@)@^@[[[CDGD-DC(^^[CC([D-OYA )@@G@@D@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D[ D- D1 ^[G^[BD9GC-NE- YB )@@G@@DDI^@)@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[YC )@@G@@@ @[[[E[[E-MDD#DD[^[[^[BELJD([DS)^@)@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[YD )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E-MDD#DD[^[^^[GFDJD1N@^@[[[CDGD-DYE )@@G@@C(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL CDIC(OE- YF )@@G@@^[[^[JCL[D))@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)YG )@@G@@@@@@[[@^@[[[CTGCDPC-DCC)E@)ELPD1TD9I@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[YH )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9[FDIC*)CC)ETOE(]C(MC8)@^@[[[CDGD-DYI )@@G@@C(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-DD1^CC)DK)YJ )@@G@@ETQCDOD9MCC)@^@[[[CDGD-DC(^^[CC([D-OD@)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)YK )@@G@@@@@@[[@^@[[[CTTD1OD[DCC)D))CD^CDHES)@A@[[[D1PELNDDIC8) *)C- CDI^9N^[JC1AYL )@@G@@ 0)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL[EL]CDMCC)CC)CD^DTDD1NYM )@@G@@@#@[[[D1PELNDDIC8) *)C- (#@@[[CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[@@@[[[@[__[[YN )@@G@@^@)^@)@@@@[[@ @[[[ETCC(DD-[^[H^[#DD#DDPD-GCC)^@)@A@[[[D1PELNDDIC8) *)C- YO )@@G@@CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETCDDMD- FC)YP )@@G@@D))C-JD9GDDIC8)^@)@A@[[[D1PELNDDIC8) *)C- CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[YQ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[EDPC( D0)C*)D[JE[FDDIES)@A@[[[D1PELNDDIC8)YR )@@G@@ *)C- CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-DD1^YS )@@G@@CC)D*)DLJD[IETJD0)@A@[[[D1PELNDDIC8) *)C- CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[YT )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTJD1IDD ^[H^[NCDPE- EK)@A@[[[D1PELNDDIC8)YU )@@G@@ *)C- CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D-DET[YV )@@G@@^[NE(OE-JD0)@A@[[[D1PELNDDIC8) *)C- CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[@@@[[[YW )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C- CLMCC)DS)E9[ELIC(FC*)@A@[[[D1PELNDDIC8) *)C- YX )@@G@@CDI^9N^[JC1A 0)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLJCDI^[H^[GYY )@@G@@CDKE[ @C@[[[D1PELNDDIC8)ETJE[CD(JEL ^[HC(^ 0)ETPELBC(MFC)^@)@@@[[[@@@[[[YZ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL CDID1 E-OC*)C0)D- E1T@C@[[[D1PELNDDIC8)ZA )@@G@@ETJE[CD(JEL ^[HC(^ 0)ETPELBC(MFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[ZB )@@G@@@^@[[[C-DCDIC*)D*)D(#^[#CD]C*)@C@[[[D1PELNDDIC8)ETJE[CD(JEL ^[HC(^ 0)ETPZC )@@G@@ELBC(MFC)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[E^[IZD )@@G@@DDGETND9I^@)@C@[[[D1PELNDDIC8)ETJE[CD(JEL ^[HC(^ 0)ETPELBC(MFC)^@)@@@[[[ZE )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[ ^[KCDMETJD1N^@)@[@[[[D1PELNZF )@@G@@(B@@[[DDIC8)ETJE[CD(JEL ^[HC(^ 0)ETPELBC(MFC)^@)@@@[[[@@@[[[@@@[[[@[__[[ZG )@@G@@^@)^@)@@@@[[@^@[[[E[ C9BFC)CC)CLMD9RD0)^@)@ @[[[D1PELNDDIC8\E[[EL D1O^[#ZH )@@G@@D[DD-^@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDHFC)D))C- D-JCD#D@)^@)ZI )@@G@@@ @[[[D1PELNDDIC8\E[[EL D1O^[#D[DD-^@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[ZJ )@@G@@@^@[[[DL[D1 E))DS)C9MCDQC(N^@)@ @[[[D1PELNDDIC8\E[[EL D1O^[#D[DD-^@@@[[[ZK )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[D( D-[^[[^[CC(MELJD0)@ @[[[D1PELNZL )@@G@@DDIC8\E[[EL D1O^[#D[DD-^@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJCDIZM )@@G@@^[A^[ID9MELDES)^@)@ @[[[D1PELNDDIC8) *)C9MCD^E([E- ^@)@@@[[[@@@[[[@@@[[[ZN )@@G@@@[__[[^@)^@)@@@@[[@^@[[[E9DD1DC1MC(^^[E^[KDDICTC@ @[[[D1PELNDDIC8) *)C9MZO )@@G@@CD^E([E- ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELJD))ETCCDMDT ZP )@@G@@FC)^@)@ @[[[D1PELNDDIC8) *)C9MCD^E([E- ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)ZQ )@@G@@@@@@[[@^@[[[D9^C(NETDC*)C8)E-[FDGD9M@ @[[[D1PELNDDIC8) *)C9MCD^E([E- ^@)ZR )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D1 E))C*)CTPC-^DDBCDI@B@[[[ZS )@@G@@D1PELNDDIC8)ET D1DD9M^[HC(^ 0)ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)ZT )@@G@@@@@@[[@ @[[[C(GDDUCD]C(OD@)CC)C-DF[JD0)^@)@B@[[[D1PELNDDIC8)ET D1DD9M^[HZU )@@G@@C(^ 0)ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D( ELMFC)C1JZV )@@G@@FDO^@)@B@[[[D1PELNDDIC8)ET D1DD9M^[HC(^ 0)ETPELBC(MFC)@@@[[[@@@[[[@@@[[[ZW )@@G@@@[__[[^@)^@)@@@@[[@ @[[[ETCCDMDDGFDI^[H^[CDDIC- ELN^@)@B@[[[D1PELNDDIC8)ZX )@@G@@ET D1DD9M^[HC(^ 0)ETPELBC(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[ZY )@@G@@D-DD1^CC)D-[FLPEL @B@[[[D1PELNDDIC8)ET D1DD9M^[HC(^ 0)ETPELBC(MFC)@@@[[[ZZ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[H^[ D[MD[[ELO^@)@ @[[[AA )@@G@@D1PELNDDIC8!E[NFD#D[DCDOELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[AB )@@G@@D([ELT^[FE(IC(N (#D9ID1 D-G^@)@ @[[[D1PELNDDIC8!E[NFD#D[DCDOELT^@)@@@[[[AC )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CDIE-JDDIC(OE- ^[H^[GCDBE(UFL[@A@[[[AD )@@G@@D1PELNDDIC8)CD^DLPD1#E))E[MD9BEL[D*)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[AE )@@G@@@^@[[[CL E-OFC)DK)ETOE(MC9 D9I@A@[[[D1PELNDDIC8)CD^DLPD1#E))E[MD9BEL[D*)AF )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C(GDDUCD]C(OD@)C1PELGD9IC8)^@)AG )@@G@@@ @[[[D1PELNDDIC8)CD#CT D- EL[E- C))@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[AH )@@G@@@^@[[[CL[EL]CDMCC)DK)CLMCD^C(I@B@[[[D1PELNDDIC8\DLPD1DD9M^[HC(^ 0)ETPELBAI )@@G@@C(MFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDMDDN^[E^[[D1^EL E9N^@)AJ )@@G@@@A@[[[D1PELNDDIC8\D[[ETODDIC9N^[#CDHE[PES)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)AK )@@G@@@@@@[[@^@[[[D([ELT^[^DD#DT ELND9I^@)@A@[[[D1PELNDDIC8\D[[ETODDIC9N^[#CDHAL )@@G@@E[PES)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETM 0)C-JELJE-CFC)D[JD9QAM )@@G@@C(M^@)@A@[[[D1PELNDDIC8\D[[ETODDIC9N^[#CDHE[PES)@@@[[[@@@[[[@@@[[[@[__[[AN )@@G@@^@)^@)@@@@[[@^@[[[DL[D1 FC)D*)D([EL#D9OE- @A@[[[D1PELNDDIC8\D[[ETODDIC9NAO )@@G@@^[#CDHE[PES)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-DCDID1 ^[G^[HE(GAP )@@G@@D-DD1N@A@[[[D1PELNDDIC8\D[[ETODDIC9N^[#CDHE[PES)@@@[[[@@@[[[@@@[[[@[__[[AQ )@@G@@^@)^@)@@@@[[@[@[[[DLJ^[[(#@@[[^[]ELJE9IDDIC8)^@)@^@[[[CDGE(HD1D^[GDD]EL[AR )@@G@@ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9 EL[D-^DDIC*)CTCCDNC*)AS )@@G@@@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[AT )@@G@@E- ELMDC)CC)CTGCDMDS)^@)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[AU )@@G@@@[__[[^@)^@)@@@@[[@ @[[[DT[E-CD- C(I^[[^[^^9[C9JETOCC)@^@[[[CDGE(HD1D^[GAV )@@G@@DD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[D1DES)D*)C-PELCAW )@@G@@CDH^[HCD#C*)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)AX )@@G@@@@@@[[@^@[[[CL E-OFC)CC)C(QCDIES)^@)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[AY )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETDD1JEL[^[E^[BCDMEL E-O@^@[[[CDGE(HAZ )@@G@@D1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCDDMD- FC)BA )@@G@@CC)C9JD-^C(I@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)BB )@@G@@@@@@[[@^@[[[D-[E(MCDGC( ^[A^[BEL[CL @^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[BC )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[ELDCTCCDMC))CS)D[[ELMDDIC9OD9I^[NDK)BD )@@G@@@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[BE )@@G@@DL CDIC(OE- ^[G^[CDDGE-JD0)^@)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[BF )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CTCELDETOD9KD[ EK)D- CL CDP^@)@^@[[[CDGE(HBG )@@G@@D1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[EL[FDHD9IC))BH )@@G@@CK)D( CDIES)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)BI )@@G@@@@@@[[@#@[[[D([ELT^[^^[ICDND@)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[BJ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-JELDES)C*)D8$D1 DDGD))@^@[[[CDGE(HD1D^[GBK )@@G@@DD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDMD1 E-OC*)E[[FDIBL )@@G@@C*)^@)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[BM )@@G@@@^@[[[D(DCTCCD D))CC)E[JD([^@)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[BN )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D-TD1I^[[^[NCTCD1 DD^C(MD([D0)@^@[[[CDGE(HBO )@@G@@D1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D-[E1DD1[^[HBP )@@G@@^[NE9[D1 DS)@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)BQ )@@G@@@@@@[[@^@[[[DLPD-DCC)EC)E9[C9BD9IC(M@^@[[[CDGE(HD1D^[GDD]EL[ELT^@)@@@[[[BR )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELPETNC(GD))D@)E9[ELUFDI@^@[[[CDGE(HBS )@@G@@D1D^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CE(MD([D0)BT )@@G@@CLPE-GC(M^@)@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[BU )@@G@@@ @[[[C(GDDUCD]C(OD@)CC)C1GCDCC(ME-T@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[BV )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C(QC(GFDI^[H^[BCDMC-IC(M@#@[[[D-[E8)D-DCLMBW )@@G@@CDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[E[[E(G^[A^[CDDGD))@#@[[[BX )@@G@@D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C(GDDUCD]C(OBY )@@G@@D@)CS)DT D-GFC)^@)@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)BZ )@@G@@@@@@[[@^@[[[ELJCL ELO^[L^[FC(GD-T^@)@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[CA )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETPET[D0)D-JET#E(OD9AC0)@#@[[[D-[E8)D-DCLMCB )@@G@@CDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@@@[[[( @@[[C-JE(BD-[ES)E8)D(PCC )@@G@@EL^D9#DS)^@)@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[CD )@@G@@@^@[[[E1 ELNDD ^[E^[MDDGC(T^@)@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[@@@[[[CE )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C9MCD#C*)D*)ETHDDOD@)^@)@#@[[[D-[E8)D-DCLMCDMFC)CF )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C-[ELGC(IC*)C*)E1 ELBCDHDDIDC)CG )@@G@@@#@[[[D-[E8)D-DCLMCDMFC)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL[EL]CH )@@G@@CDMCC)D@)CDIC9PES)@ @[[[E(IDDQC(METDE-T^[#D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[CI )@@G@@@[__[[^@)^@)@@@@[[@ @[[[D([ELT^[ ^[]C(NE- D1GC(CD1 EK)@ @[[[E(IDDQC(METDCJ )@@G@@E-T^[#D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[CK )@@G@@^[M^[#CDGD-JD1 ^@)@ @[[[E(IDDQC(METDE-T^[#D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[CL )@@G@@@[__[[^@)^@)@@@@[[@#@[[[D([E1DES)DK)D[DD-G@ @[[[E(IDDQC(METDE-T^[#D9GD- CM )@@G@@C9 ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CDIDDOCC)D))D[JELI@ @[[[CN )@@G@@E(IDDQC(METDE-T^[#D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CO )@@G@@DT D-GFC)EK)D1[FL CTF^@)@ @[[[E(IDDQC(METDE-T^[#D9GD- C9 ^@)@@@[[[@@@[[[CP )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[EL D1 C*)D))D8$CLMDD D0)@ @[[[E(IDDQC(METDCQ )@@G@@E-T^[#D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DT[E-CFDGC( CR )@@G@@D0)E[CDDGD-DE[N^@)@ @[[[E(IDDQC(METDE-T^[#D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[CS )@@G@@@[__[[^@)^@)@@@@[[@^@[[[E9 ETGC(T^[B^[RD9GC1 ^@)@ @[[[E(IDDQC(METDE-T^[#CT )@@G@@D9GD- C9 ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTTD1OD[DCC)D))CD]CU )@@G@@C(G^@)@]@[[[D[ CDGE-C^[N(^@@[[CTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[CV )@@G@@@[__[[^@)^@)@@@@[[@^@[[[ETCCDRD0)E8)CDHD(JD0)^@)@A@[[[D[ CDGE-C^[NCTDC(ICW )@@G@@CT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D1[D1IC(OE- CX )@@G@@^[F^[]C(^ELJETFFC)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[CY )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJCL ELO^[C^[^CDRETJD0)@A@[[[D[ CDGE-C^[NCZ )@@G@@CTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9 EL[DA )@@G@@D-^DDIC*)DK)C- D-G@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[DB )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D1 ^[K^[ADDND[FDDI^@)@A@[[[D[ CDGE-C^[NDC )@@G@@CTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL CDIDD )@@G@@^[#^[BCDME-IC(M^@)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[DE )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C(NE-CC(M^[M^[BD9^CL FC)@A@[[[D[ CDGE-C^[NDF )@@G@@CTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D( DG )@@G@@ES)D*)C9MDDAC1DD0)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[DH )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLJD[I^[^^[CDDGD))@A@[[[D[ CDGE-C^[NCTDC(IDI )@@G@@CT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CL[EL]CDMCC)DJ )@@G@@C8)D[JD-GDDNE- EK)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[DK )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[ELPE-C^[G^[CFD^C*)@A@[[[D[ CDGE-C^[NCTDC(IDL )@@G@@CT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELDCTCCDMC))DM )@@G@@DLDFL]CC)^@)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[DN )@@G@@@[__[[^@)^@)@@@@[[@ @[[[D([C-JD1ICC)ES)DTIE(^ETJD0)^@)@A@[[[D[ CDGE-C^[NDO )@@G@@CTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ET[D1^DP )@@G@@EL[^[E^[FELPC(BC(M@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[DQ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[H^[HC( E1 ES)^@)@A@[[[D[ CDGDR )@@G@@E-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DS )@@G@@DL[D1 ^[ ^[NE- D[GDDF^@)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[DT )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[ELG^[[^[OD[JD(KETJD0)@A@[[[D[ CDGDU )@@G@@E-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DV )@@G@@D([ELED9MDD ^[RCDID1[ELFCC)^@)@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)DW )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C(GD-[^[M^[RDD^C-DCTJD(]C*)^@)DX )@@G@@@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)DY )@@G@@@@@@[[@^@[[[ELPE-C^[[^[RDDODTJE1NDTD@A@[[[D[ CDGE-C^[NCTDC(ICT ^[GDD]EL[DZ )@@G@@ELT^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTJD1IDD ^[ ^[[D-DCDID8)EA )@@G@@@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)EB )@@G@@@@@@[[@^@[[[D([ELT^[N^[]CDGDTJE1 CS)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OEC )@@G@@C(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E- ELMFC)C))CL[ELMDDJ^@)ED )@@G@@@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)EE )@@G@@@@@@[[@ @[[[D- D9I^[B^[]C(IET#D[JE- EK)^@)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)EF )@@G@@CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLPC-T^[G^[]E(IDT EG )@@G@@ELN^@)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[EH )@@G@@^@)^@)@@@@[[@#@[[[DLJD[I^[M^[]E(NET @A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OEI )@@G@@C(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E-MDD#C*)CC)C9[D-[ES)EJ )@@G@@@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)EK )@@G@@@@@@[[@ @[[[C- CLJEL[D@)D))D[[D-NE-MD9H^@)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)EL )@@G@@CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[EL D0)CC)D[[D(DEM )@@G@@D-OD9I@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[EN )@@G@@^@)^@)@@@@[[@^@[[[E-CD9HCDN^[H^[CC(MCL ELO@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)EO )@@G@@CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C1JEL^^[F^[ECD#D9]EP )@@G@@ET D0)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[EQ )@@G@@^@)^@)@@@@[[@^@[[[EL[D1^CDG^[ ^[FDDIC9MFC)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)ER )@@G@@CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-[D1DC(G^[H^[FD9#ES )@@G@@D[DES)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[ET )@@G@@^@)^@)@@@@[[@^@[[[ETOCD#C( ^[[^[FD9 ETOC(M@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)EU )@@G@@CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CTCCDMD- ES)CC)D- EV )@@G@@D1JETFFC)^@)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[EW )@@G@@@[__[[^@)^@)@@@@[[@^@[[[DLJD0)C0)D9GC(MDD#D@)^@)@A@[[[CLDD9HC(^DD#CDG^[#EX )@@G@@D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[D([ELT^[ ^[KEY )@@G@@ELJD[[ETFCC!D(#D1 DDGD))@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[EZ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D( ES)D@)E[ME(#D[[^@)@A@[[[CLDD9HFA )@@G@@C(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[FB )@@G@@CL[EL]CDMCC)CC)ELDCTFCDMC))^@)@A@[[[CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)FC )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D( D-JC-DC*)CK)E-JD-GC*)@A@[[[FD )@@G@@CLDD9HC(^DD#CDG^[#D9HD*)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[FE )@@G@@@#@[[[C9[ELT^[E^[]CD]C(M@ @[[[E[GCDIE))CD^D(DD1DETOEL[E-DD9I@@@[[[@@@[[[FF )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C1MCDIDS)E))DL D-DD1 DS)@ @[[[E[GCDIE))CD^FG )@@G@@D(DD1DETOEL[E-DD9I@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELJET D([ELTFH )@@G@@^[ ^[ND9MD-DC*)^@)@ @[[[E[GCDIE))CD^D(DD1DETOEL[E-DD9I@@@[[[@@@[[[@@@[[[FI )@@G@@@[__[[^@)^@)@@@@[[@^@[[[CL E-OFC)D))CDGCTJELI^@)@A@[[[C(IE1DELJD1HC(IE-[FJ )@@G@@D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DLPCDIDDOCC)FK )@@G@@D*)CDIC- ELND9I^@)@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[FL )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELJET D([ELDC*)CDIC- ELND9I^@)@A@[[[C(IE1DFM )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[FN )@@G@@C-[ELTD))E0)CL[DT EK)^@)@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[FO )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CD9HCDN^[E^[]C(GETFFC)@A@[[[C(IE1DFP )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[FQ )@@G@@E-JD(HDD ^[G^[]C(ID1 E-O@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[FR )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CDID1 E-OC*)CLPELMD9PC9CES)^@)@A@[[[FS )@@G@@C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[FT )@@G@@@^@[[[CLMCD^D- FC)C))C(#DT D))@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)FU )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D-PE-CC(M^[ D1IDDN@A@[[[C(IE1DFV )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[FW )@@G@@CDMCC)D*)C(QCDIES)@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[FX )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D( ES)E8)D[PELNE))^@)@A@[[[C(IE1DELJD1HFY )@@G@@C(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL E1 FZ )@@G@@ELGFC)DK)D-[D1^D9I@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[GA )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D-JE(DES)D*)D([EL#E(#CTDD8)^@)@A@[[[C(IE1DGB )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[GC )@@G@@D(DCTCCDGC(IC*)D(DD-GC(M@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[GD )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELG^[G^[HD9MC(GD-J^@)@A@[[[C(IE1DGE )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[GF )@@G@@D- ELJFC)E[[C9 ^@)@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[GG )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CL ETNDD ^[^^[NCTCD(DC(GCDP^@)@A@[[[C(IE1DGH )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[GI )@@G@@C- D-GCC)D))ETGCDOE- D0)@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[GJ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@]@[[[D-DD1^CC)D))(]@@[[ETHDDOD@)^@)@A@[[[GK )@@G@@C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[GL )@@G@@@^@[[[C9 EL[D-^^[A^[NE- E1 D1N@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)GM )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CT[ELMDD ^[NE9DC1O@A@[[[C(IE1DGN )@@G@@ELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[GO )@@G@@ETOC(QC(I^[R^[RCDMC))^@)@A@[[[C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[GP )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CDMD-JD0)C))E9CDDOE-DD1BE-JD0)@A@[[[GQ )@@G@@C(IE1DELJD1HC(IE-[D))ET ELQDD#C(N^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[GR )@@G@@@ @[[[D(DCTCCD D))D))CT ELDD( D- ^@)@ @[[[CT[D(KE(N^[HCDDD1OC(ICDICT ^@)GS )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[ELJFC)D))D[[ELMDDN@ @[[[CT[D(KGT )@@G@@E(N^[HCDDD1OC(ICDICT ^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGC1MGU )@@G@@C(^^[C^[MCDBD9GC*)@ @[[[CT[D(KE(N^[HCDDD1OC(ICDICT ^@)@@@[[[@@@[[[@@@[[[GV )@@G@@@[__[[^@)^@)@@@@[[@#@[[[ET[D1^EL[^[#DDCCDG@^@[[[DL ETPDDO^[FDDOCTCC(I^@)GW )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D[ ELHCDI^[[^[^ELTE1 EK)@^@[[[GX )@@G@@DL ETPDDO^[FDDOCTCC(I^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D(DCTCGY )@@G@@CD D))DK)C1GCDICDBCDI^@)@^@[[[DL ETPDDO^[FDDOCTCC(I^@)@@@[[[@@@[[[@@@[[[GZ )@@G@@@[__[[^@)^@)@@@@[[@^@[[[CL CDOELDCT ^[AE(GE-JD0)@^@[[[DL ETPDDO^[FDDOCTCHA )@@G@@C(I^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJET E[C^[E^[GC(NCTC^@)HB )@@G@@@^@[[[DL ETPDDO^[FDDOCTCC(I^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[HC )@@G@@DT E1DD0)D))D(#CT[ELOD[T@^@[[[DL ETPDDO^[FDDOCTCC(I^@)@@@[[[@@@[[[@@@[[[HD )@@G@@@[__[[^@)^@)@@@@[[@^@[[[ET[D1^EL[^[G^[KCDMETJD1N@^@[[[DL ETPDDO^[FDDOCTCHE )@@G@@C(I^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLJD[I^[RD[DE- ELN@^@[[[HF )@@G@@DL ETPDDO^[FDDOCTCC(I^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[E-CD9HHG )@@G@@CDN^[E^[GE(FCDNFL E9DCTU^[NDK)@^@[[[DL ETPDDO^[#D9HD(PD1DE-T@@@[[[@@@[[[HH )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C(MD1 ETO^[[D1^C(METJD0)@^@[[[CT[ELKC(IE- HI )@@G@@EK)ETCD9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E-CD9HCDN^[ ^[ED9NHJ )@@G@@D9AC0)@^@[[[CT[ELKC(IE- EK)ETCD9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[HK )@@G@@@^@[[[D([ELF^[ ^[NDDHCDIC(F^@)@^@[[[CT[ELKC(IE- EK)ETCD9K^@)@@@[[[@@@[[[HL )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D[ ELHCDI^[E^[NE-JCTF^[EEK)^@)@^@[[[CT[ELKHM )@@G@@C(IE- EK)ETCD9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9DD-GDD[D*)HN )@@G@@ETPE-FD8)^@)@^@[[[CT[ELKC(IE- EK)ETCD9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)HO )@@G@@@@@@[[@^@[[[DLJD[I^[E^[QCDHE[JD-[^@)@^@[[[CT[ELKC(IE- EK)ETCD9K^@)@@@[[[HP )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLPC-^^[H^[[D-GC(I@#@[[[E[[DDIE))ETCHQ )@@G@@D9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELF^[[^[ED9CD1ND9I^@)HR )@@G@@@#@[[[E[[DDIE))ETCD9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGC1MHS )@@G@@C(^^[^^[IC(GETJD0)@#@[[[E[[DDIE))ETCD9K^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)HT )@@G@@@@@@[[@ @[[[DTCCDHE[CC(O^[QD9MCDNCDIC*)^@)@#@[[[E[[DDIE))ETCD9K^@)@@@[[[HU )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJD1[D-^^[G^[[C-MDD[D0)@[@[[[D( CTCHV )@@G@@(#@@[[CDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[CTCELDHW )@@G@@ETOD9KD[ EK)D))CL[EL]CDMFC)^@)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[HX )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E[[E-MDD#DS)C8)CT[E1 ^@)@^@[[[D( CTCCDIDD#HY )@@G@@CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[C(^E9[EL^^[ D-^C(MHZ )@@G@@@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[IA )@@G@@DL[D( ES)C*)D[ DD^ELDCTF^[NDK)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[IB )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C(PC9 D1 ^[H^[ED9CD1ND9I@^@[[[D( CTCCDIDD#IC )@@G@@CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJCL ELO^[#^[GE(IID )@@G@@C))^@)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[IE )@@G@@@^@[[[DL[CTF^[[^[HCDIFL EK)^@)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[IF )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-[E1DC))D@)D(#CDOC( ^@)@^@[[[D( CTCCDIDD#IG )@@G@@CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9DD-GDD[D*)E))E[[IH )@@G@@D1#D9 @^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[II )@@G@@@ @[[[C-JD1[D-^^[E^[KD[DD-GDDKES)^@)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[IJ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E1DCTOD9M^[KELJETJD-JE8)@^@[[[D( CTCIK )@@G@@CDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[NCDRIL )@@G@@CDMFDIETFDC)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)IM )@@G@@@@@@[[@^@[[[ELJCL ELO^[M^[NDDHCDIC(F@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[IN )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@]@[[[ELJC9 EK)E@)(]@@[[ETJELGDD ^@)@^@[[[IO )@@G@@D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C9 D9MIP )@@G@@C9 ^[E^[OCDIC9 D([D0)^@)@^@[[[D( CTCCDIDD#CDG^[ND[JE@)@@@[[[@@@[[[@@@[[[IQ )@@G@@@[__[[^@)^@)@@@@[[@^@[[[D(DCTCCD D))CS)DLJETJC1A@ @[[[E[GCDIE))D([DDIE- IR )@@G@@D1[D1#C*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E1[D1 ETNCC)EK)CDGIS )@@G@@D- D0)@#@[[[ETRDDOCTCCLJCDMC))@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[IT )@@G@@E[[E-ODC)ES)DLJD[IETJD0)@#@[[[ETRDDOCTCCLJCDMC))@@@[[[@@@[[[@@@[[[@[__[[IU )@@G@@^@)^@)@@@@[[@^@[[[ELJCL ELO^[K^[CC([D1 FC)@B@[[[E(IDDQC(METDE-T^[#D[[DDMIV )@@G@@ (E 1#EL DDBD[OD9I@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJFD#C*)D*)IW )@@G@@E[ DTPD-[^@)@B@[[[E(IDDQC(METDE-T^[#D[[DDM (E 1#EL DDBD[OD9I@@@[[[@@@[[[IX )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D(DCTCCD D))DS)CLPCTFD- FC)^@)@A@[[[C(IC9GIY )@@G@@DDND@)D-[D1BE([C9 ^[KELJC9MCDH@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[IZ )@@G@@C1MCDIDS)D))ET[EL[C9JET[@A@[[[C(IC9GDDND@)D-[D1BE([C9 ^[KELJC9MCDH@@@[[[JA )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DTDD(]C(MD-T^[H^[[CTFCDME))^@)@A@[[[JB )@@G@@D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[JC )@@G@@@ @[[[DT[E-CD- C(I^[H^[[D-]C(ME))^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[JD )@@G@@D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E1DCTFDD ^[G^[[D-ND([D0)JE )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JF )@@G@@@@@@[[@^@[[[DL[D1 E))CC)CDOE9[E- EK)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[JG )@@G@@D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLPC-DE-C^[F^[]CDDD1 ES)JH )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)JI )@@G@@@@@@[[@^@[[[CL[EL]CDMCC)DK)CL[DDM^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[JJ )@@G@@D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CT[EL[D-TD0)C))CL[ELMDD JK )@@G@@EK)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[JL )@@G@@^@)^@)@@@@[[@ @[[[DTDD(]C(MD-T^[F^[]C([ETGC(T^@)@A@[[[D[KCS)CDID1 F@)AS0JM )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- D-JEL ES)JN )@@G@@DK)CL D-G^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[JO )@@G@@@[__[[^@)^@)@@@@[[@^@[[[D([ELBDD ^[G^[]C(GD))^@)@A@[[[D[KCS)CDID1 F@)AS0JP )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C-DCDIC*)DS)JQ )@@G@@CLJD1ADDBD-DD8)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[JR )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DL[D1 ^[[^[]D9N^@)@A@[[[D[KCS)CDID1 F@)AS0JS )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETPET[D0)E@)JT )@@G@@CLMCDID1JD0)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[JU )@@G@@@[__[[^@)^@)@@@@[[@^@[[[E1DCTFDC)C))CLMD9RD0)^@)@A@[[[D[KCS)CDID1 F@)AS0JV )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D- D9ICC)D*)JW )@@G@@CTMDDOCTCC1DC(GC))@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[JX )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETCDDMD- FC)C*)C-[D[GC9MC(I^@)@A@[[[D[KCS)JY )@@G@@CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@@@[[[JZ )@@G@@(^@@[[C9[DDG^[ ^[ DDNCTCC(DC))@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)KA )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D1 E))DS)C1[ELGC(T^@)@A@[[[KB )@@G@@D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[KC )@@G@@@^@[[[CL E1 ELGFC)CC)C1JD9OC*)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)KD )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CLMC(IC-[^[E^[AEL[D1FES)@A@[[[KE )@@G@@D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[KF )@@G@@@^@[[[D-JELD^[F^[BCDNCTJDDBD1 @A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)KG )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([EL#C(IC*)C0)C9 ETFC*)@A@[[[KH )@@G@@D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[KI )@@G@@@^@[[[ELPE-C^[[^[BDDIE- EK)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)KJ )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[E-[D(HFC)C9DD1OC(M@A@[[[D[KCS)KK )@@G@@CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[KL )@@G@@E[[E-MDD#DD[^[[^[BD9 E-U@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[KM )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDID0)D*)C9MCDAC1 D8)^@)@A@[[[D[KCS)KN )@@G@@CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[KO )@@G@@ETCC(GD-D^[[^[BEL[E1 ES)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[KP )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJD1^CC)C))C9MC(DD1 EK)@A@[[[D[KCS)KQ )@@G@@CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[KR )@@G@@E-MCD#DD ^[^^[CCDMELDES)@#@[[[D[KCS)CDID1 F@)AS0(#@@[[A@0^[ACDMD1[D*)^@)KS )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E1DCTOD9MDD[^[F^[CCDRDTDD1N^@)KT )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)KU )@@G@@@@@@[[@^@[[[C-JD1ICC)D))D[ ELUD9B^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[KV )@@G@@D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD- D1 ^[H^[CC(NE- EK)KW )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)KX )@@G@@@@@@[[@ @[[[C- CLJEL[D@)CC)D[PE-AD- ETN^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[AKY )@@G@@CDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLDD(HFC)D))DDID1 KZ )@@G@@ETN^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[LA )@@G@@^@)^@)@@@@[[@^@[[[DLJD-TD1I^[A^[ED9IC(N^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ALB )@@G@@CDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[E-CELTD0)DS)DLJLC )@@G@@ETGDDI@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[LD )@@G@@^@)^@)@@@@[[@ @[[[D([EL#D[ E-[^[E^[FCDIE-JEK)^@)@A@[[[D[KCS)CDID1 F@)AS0LE )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELHC(I^[ LF )@@G@@^[FDDGC9JEL @A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[LG )@@G@@@[__[[^@)^@)@@@@[[@ @[[[CL[EL]CDMCC)DK)DTDD1NC(GD-[^@)@A@[[[D[KCS)CDID1 LH )@@G@@F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CL E-OLI )@@G@@FC)D))DTME(BC(M^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[LJ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLPD-DC*)CC)D- E*)@A@[[[D[KCS)CDID1 F@)AS0LK )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[LL )@@G@@^[[^[HCDIC- D))^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[LM )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CT[E-CC(MDDIC*)D*)D([ELQDDI^@)@A@[[[D[KCS)LN )@@G@@CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[LO )@@G@@ETCCDMD9I^[G^[HCTBE(DEL @A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[LP )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLPD-DC*)D*)D(DD-GC(M^@)@A@[[[D[KCS)LQ )@@G@@CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[LR )@@G@@CTGCDTE-JD0)D@)D(JD9MC*)DDDDC)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)LS )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DTDD(]C(MD-D^[H^[HE(ME[CFC)^@)LT )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)LU )@@G@@@@@@[[@ @[[[E1 ELJD1DCT[^[[^[KCDRD-JETFDC)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ALV )@@G@@CDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDMD- D1 ^[H^[KC(MLW )@@G@@ELT^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[LX )@@G@@^@)^@)@@@@[[@^@[[[DLJFD#C*)E8)E[ ELMFC)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ALY )@@G@@CDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDID0)E[ ELMFC!C1PLZ )@@G@@ELGC(M@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[MA )@@G@@^@)^@)@@@@[[@^@[[[D-DET[^[H^[KC(OC(METJD0)@A@[[[D[KCS)CDID1 F@)AS0A@0^[AMB )@@G@@CDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[CFDGD-DES)D*)E[AMC )@@G@@C(DC1 EK)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[MD )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C-DCDIC*)D*)EL[C-AD9MC))@A@[[[D[KCS)CDID1 F@)AS0ME )@@G@@A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@B@[[[ETCC(MFDG^[GMF )@@G@@^[MCDND(PETNC(I (GCDUDT[D1D^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)MG )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D1DCT ^[ ^[MD9NES)^@)@A@[[[MH )@@G@@D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[MI )@@G@@@^@[[[D-PCDID0)D*)ET#D[RC(MFC)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)MJ )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETPET[D0)CC)ETCC([EL EK)@A@[[[MK )@@G@@D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[ML )@@G@@@ @[[[CT[ELJD))D*)ETGCDODDIETFFC)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[MM )@@G@@D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETOC(QC(I^[[^[ND9MC(IET MN )@@G@@D0)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[MO )@@G@@^@)^@)@@@@[[@^@[[[DT[EL D0)CC)ETODDIETJD0)@A@[[[D[KCS)CDID1 F@)AS0A@0^[AMP )@@G@@CDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D- ETGDD ^[E^[NE-PMQ )@@G@@E-UD([D0)^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[MR )@@G@@@[__[[^@)^@)@@@@[[@ @[[[DT[E-CD- C(I^[^^[OCDTD-JEK)^@)@A@[[[D[KCS)CDID1 MS )@@G@@F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[D(DCTCMT )@@G@@C(GC*)D))E-CD9METOC(DD1ND9I^@)@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)MU )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CL[EL]CDMCC)D))E1JD9MD[ C(N^@)MV )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)MW )@@G@@@@@@[[@#@[[[CTJEL[^[M^[RCDMC))@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)MX )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C- CLMCC)D*)FL[ELHCLDD1NDTD^@)MY )@@G@@@A@[[[D[KCS)CDID1 F@)AS0A@0^[ACDMD1[D*)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)MZ )@@G@@@@@@[[@^@[[[DDGC( D0)D*)CL CTFD([D0)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[NA )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELBCDMC(O^[]D-JCTF^@)@^@[[[CT[D1#NB )@@G@@C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CLME(#C*)D*)NC )@@G@@CLJD([D0)^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)ND )@@G@@@@@@[[@^@[[[D[JD1B^[R^[#D[DD0)D(^^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[NE )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D([ELDCC)CC)CTCELDETOC(IET D0)@^@[[[NF )@@G@@CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D( D-[NG )@@G@@D1DC*)CC)CTCE(I^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[NH )@@G@@^@)^@)@@@@[[@ @[[[D([ELT^[ ^[#FL[E[GC(RETFDC)^@)@^@[[[CT[D1#C(M^[MC(NC([NI )@@G@@EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[E^[ADD^D- NJ )@@G@@EK)^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[NK )@@G@@@^@[[[CDGCL ELO^[M^[AEL[D1F^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[NL )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D(JD[[D0)D))C9JE[ @^@[[[CT[D1#C(M^[MC(NC([NM )@@G@@EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[EL[DL[D-[DTND[HDC)C9JE[ NN )@@G@@@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[NO )@@G@@ETOCDID- FC)ES)DL[C(BC(M@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[NP )@@G@@@[__[[^@)^@)@@@@[[@#@[[[E[[E(G^[ED9CD1ND9I@^@[[[CT[D1#C(M^[MC(NC([EL#D@)NQ )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D([ELT^[E^[FDDIC8)@^@[[[CT[D1#NR )@@G@@C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[ELJCL ELO^[HNS )@@G@@^[GCD#D[JE9DC(U -EEK)^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[NT )@@G@@@[__[[^@)^@)@@@@[[@ @[[[CL[EL]CDMCC)DS)D-JELDD(JEK)^@)@^@[[[CT[D1#C(M^[MNU )@@G@@C(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[D( ES)CC)D([DDGNV )@@G@@D-DCDMC))^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)NW )@@G@@@@@@[[@ @[[[E[[E-MDD#DS)DK)D(#DT D1ICC)^@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)NX )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-DCDICC)D))D( E-OC( EK)@^@[[[NY )@@G@@CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTCELDNZ )@@G@@ETODDIC*)CC)EL C(^@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[OA )@@G@@^@)^@)@@@@[[@^@[[[DT[EL D0)CC)ET D(DET#D@)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)OB )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C1GD9MC(ICT ^[N^[ND[ ELHCDI^@)OC )@@G@@@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[OD )@@G@@DL[D1 E))ES)ETJD9MDDTCD[EL[CTCCTCDC)@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[OE )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJFD#C*)CC)E-MD9]D9PC9C@^@[[[CT[D1#OF )@@G@@C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D([ELT^[]C(OOG )@@G@@D@)E9DD-RC(MC-DD1B@^@[[[CT[D1#C(M^[MC(NC([EL#D@)@@@[[[@@@[[[@@@[[[@@__[[OH )@@G@@([@@[[^@)^@)@@@@[[@^@[[[ELJD1[D-^^[[^[[CL D-N^@)@ @[[[E[[E-CD9GD9BFC)EL OI )@@G@@C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[DL[D( ES)E))CD^C-DOJ )@@G@@ETJD0)DLM^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[OK )@@G@@^@)^@)@@@@[[@^@[[[C- D-JELDES)DC)CDID1DES)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GOL )@@G@@CD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@A@[[[DLJET E[C^[H^[]D9NDDGC(QOM )@@G@@CD#^[DDDD^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[ON )@@G@@^@)^@)@@@@[[@^@[[[ETCCDIC*)D*)CLPELMC(NES)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GOO )@@G@@CD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C9[C(GC*)D))C(^D-[D1^^@)OP )@@G@@@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[OQ )@@G@@@#@[[[C-DCDICC)D))C1JEL^@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[OR )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C- CLMCC)CC)C9 ELBC(I^@)@ @[[[E[[E-CD9GD9BOS )@@G@@FC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C-DC(OC*)D@)OT )@@G@@C9MCDIE))^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[OU )@@G@@^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[G^[BE(MC(OFLFFC)@ @[[[E[[E-CD9GD9BFC)EL OV )@@G@@C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CTJD- D1 ^[E^[CDDIOW )@@G@@CTCC(T@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)OX )@@G@@@@@@[[@^@[[[D(DCTCCD D))DK)D[JELI^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)OY )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CTJD-GC( D0)D*)DT ETNC(GELDD1BOZ )@@G@@@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[PA )@@G@@@^@[[[C(GD- D0)D*)DTGD9QC(M^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[PB )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLPC-T^[[^[FELJC(FC(M^@)@ @[[[E[[E-CPC )@@G@@D9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D[[D))PD )@@G@@C8)D-[D1FC1JEL^^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[PE )@@G@@@[__[[^@)^@)@@@@[[@^@[[[C-JD1IDD ^[E^[GFDICTC^@)@ @[[[E[[E-CD9GD9BFC)EL PF )@@G@@C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[CDID0)D*)D(#CT[D1IPG )@@G@@@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[PH )@@G@@@#@[[[EL[D1^DC)D1 D-ND9I@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[PI )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CT[E-CC(MDDIC*)D*)E[[DTDFK)^@)@ @[[[E[[E-CPJ )@@G@@D9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CT[E-CPK )@@G@@CDMDDIC*)D))EL FLIDD#C(F@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[PL )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ET[D1^EL[^[H^[NCDPD1^C(MES)^@)@ @[[[E[[E-CPM )@@G@@D9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[E-CPN )@@G@@ELTD0)E@)ET#D[HDD^@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[PO )@@G@@@[__[[^@)^@)@@@@[[@^@[[[DL ELD^[E^[NDDHD(JD1N^@)@ @[[[E[[E-CD9GD9BFC)EL PP )@@G@@C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D1[D1#FC)D))ETHDDOPQ )@@G@@D@)^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)PR )@@G@@@@@@[[@^@[[[E[ C9BFC)ES)ETHDDOD@)^@)@ @[[[E[[E-CD9GD9BFC)EL C0,^[GCD] 0)PS )@@G@@@@@[[[@@@[[[@@@[[[@@__[[([@@[[^@)^@)@@@@[[@^@[[[C- CLMCC)CS)CDIC- ELND9IPT )@@G@@@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[PU )@@G@@C9 EL[D-^DDIC*)CC)CDIE-CD9IFC)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[PV )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D([ELDD-TD0)DK)CL[ELMDD EK)^@)@^@[[[C- D1OPW )@@G@@CDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETOCD#C(T^[GPX )@@G@@^[]ELDE-J^@)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)PY )@@G@@@@@@[[@^@[[[C-[E9I^[M^[#D9ID1 EK)^@)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[PZ )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ETCCDMD9I^[G^[#E(GD-PD*)@^@[[[C- D1OQA )@@G@@CDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E8,^[EC([D0)QB )@@G@@C-JD1JE1[D0)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)QC )@@G@@@@@@[[@^@[[[D-DD1^CC)D))C-JE(NDT FC)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[QD )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[E[[E-MDD#DD[^[E^[^E9JEL[DS)^@)@^@[[[QE )@@G@@C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELTQF )@@G@@^[G^[ADDND[ EK)^@)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[QG )@@G@@^@)^@)@@@@[[@^@[[[D-JE(DET ^[A^[AEL[D1#D8)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)QH )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[C(OD[ D))D*)C9 C*)@^@[[[C- D1OQI )@@G@@CDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D1 D-GC*)QJ )@@G@@D[[D-NE-MD9H@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)QK )@@G@@@@@@[[@^@[[[CDIC-MC([^[H^[CD9^C9 ES)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[QL )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDGDD#C*)DK)DT[D-DD1[^@)@^@[[[C- D1OQM )@@G@@CDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CT[ELJD))C))QN )@@G@@E[CC(BD- FC)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)QO )@@G@@@@@@[[@#@[[[C-JELDES)EDPDD#DS)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[QP )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D1DCT ^[F^[NCDHETJD0)@^@[[[C- D1OCDG^[#QQ )@@G@@D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELF^[C^[OCDTD-JQR )@@G@@EK)^@)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[QS )@@G@@@ @[[[C(GDDUCD]C(OD@)C0)FLPD- C9 EK)@^@[[[C- D1OCDG^[#D-DD1DCS)^@)@@@[[[QT )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELDCDI^[[^[]ELJE9I^@)@^@[[[ETOE(^QU )@@G@@C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDID0)D*)CTCQV )@@G@@CDMD- ES)^@)@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)QW )@@G@@@@@@[[@^@[[[C- D1DET ^[M^[#EL[C-DCTF@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[QX )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D[[ELJD-^^[ ^[CC(IETGC(T@^@[[[ETOE(^QY )@@G@@C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[ELJE9GCDIC))QZ )@@G@@E8)D[PC9CC(N@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)RA )@@G@@@@@@[[@ @[[[C1MCDIDS)EK)D([D1#E(ND8)DLM 0)@^@[[[ETOE(^C(IE))CT D1OC(M^@)RB )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[[^[HCTHDDGD- D0)@^@[[[RC )@@G@@ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E1DCTORD )@@G@@D9M^[C^[ME(#DTHCDI@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[RE )@@G@@^@)^@)@@@@[[@#@[[[E),^[C^[NCDIC- ELN@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[RF )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELJET D([ELT^[NDDIC- D-[EK)^@)@^@[[[RG )@@G@@ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELJD1[RH )@@G@@D-^^[F^[RCDGD-LE(DETO^@)@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[RI )@@G@@@[__[[^@)^@)@@@@[[@^@[[[D(DCTCCD D-GCC)E9 DDHC(M@^@[[[ETOE(^C(IE))CT D1ORJ )@@G@@C(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLPC-T^[[^[RDDGD-DCDHES)RK )@@G@@@^@[[[ETOE(^C(IE))CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[RL )@@G@@CL[EL]CDMCC)CC)CT[D(KCL D-G^@)@ @[[[CTCDDGC))CT[EL ^[#C(IE- EK)^@)@@@[[[RM )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJCDI^[ ^[BDDQC(IES)^@)@ @[[[CTCDDGRN )@@G@@C))CT[EL ^[#C(IE- EK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[DLPC-TRO )@@G@@^[G^[ED9IC(N@ @[[[CTCDDGC))CT[EL ^[#C(IE- EK)^@)@@@[[[@@@[[[@@@[[[@[__[[RP )@@G@@^@)^@)@@@@[[@^@[[[D1[D1#FC)D*)D([D[GC(M^@)@ @[[[CTCDDGC))CT[EL ^[#C(IE- RQ )@@G@@EK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[C- D-JDDN^[IC([D))@ @[[[RR )@@G@@CTCDDGC))CT[EL ^[#C(IE- EK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[RS )@@G@@E[[E-MDD#DD[^[H^[KE(GETDC1 EK)@ @[[[CTCDDGC))CT[EL ^[#C(IE- EK)^@)@@@[[[RT )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[D([ELT^[A^[MCD^DT @ @[[[CTCDDGC))CT[RU )@@G@@EL ^[#C(IE- EK)^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DT[E-CD- C(IRV )@@G@@^[[^[MC( C))@ @[[[CTCDDGC))CT[EL ^[#C(IE- EK)^@)@@@[[[@@@[[[@@@[[[@[__[[RW )@@G@@^@)^@)@@@@[[@[@[[[D(DCTC(^@@[[CD D))CC)CL[EL]CDOD8)^@)@A@[[[CDOD[GC(ODD#RX )@@G@@^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[CDIE-CRY )@@G@@D9IFC)CL[ELJD1 ^@)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[RZ )@@G@@@@@[[[@[__[[^@)^@)@@@@[[@^@[[[C(MDD#^[]^[#CDHE[]C(GD))@A@[[[CDOD[GC(ODD#SA )@@G@@^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[C9 D1 SB )@@G@@E1DC(QC*)DK)CTMCDIC1JEL^@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[SC )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ELDCTCCDMC))E8)C1DCTF^[EEK)^@)@A@[[[SD )@@G@@CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[SE )@@G@@@#@[[[D([ELT^[#^[AD9S^@)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[SF )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[D[JE9[EL^^[F^[CCDOC1DC(GC))^@)@A@[[[SG )@@G@@CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[SH )@@G@@@^@[[[DL[D( ES)DK)D[ D1^ELT^@)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)SI )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[F^[CDDBC9DD1N^@)@A@[[[SJ )@@G@@CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[SK )@@G@@@^@[[[C(^E9[EL^^[B^[CE(]CLN^@)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)SL )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[A^[ECD#DTND9I^@)@A@[[[SM )@@G@@CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[SN )@@G@@@^@[[[CT[ELJD))DT E-#D[[D*)^@)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)SO )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@#@[[[C-JD0)D- CDCFC)^@)@[@[[[CDOD[GSP )@@G@@( @@[[C(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[SQ )@@G@@@^@[[[EL[FDHD9IC))C0)D- D9IC*)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)SR )@@G@@@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[CLME(#C*)C))EL[ETHE(NET D0)^@)SS )@@G@@@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)ST )@@G@@@@@@[[@^@[[[DT E1DD0)CC)ET[ELQC(M^@)@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDOSU )@@G@@DDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[E9[FDIC*)C0)E9[C9IC(M^@)SV )@@G@@@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)SW )@@G@@@@@@[[@^@[[[ELJCL ELO^[ ^[RCDMD(DD1B@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDOSX )@@G@@DDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[D([ELT^[B^[RC(KC1 EK)^@)SY )@@G@@@A@[[[CDOD[GC(ODD#^[[C-HDDIDDNE-MCDODDJD0)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)SZ )@@G@@@@@@[[@^@[[[D- ETGDD ^[BE(GD- FC)^@)@C@[[[DTDC(RDDO^[KD[TETDCT[D))C1DE-ITA )@@G@@C(NES)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DL[D( ES)CK)TB )@@G@@D- E9DES)^@)@C@[[[DTDC(RDDO^[KD[TETDCT[D))C1DE-IC(NES)CT D1OC(M^@)@@@[[[TC )@@G@@@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@ @[[[ETPFL[D1IC*)FK)ETGC(KDDOFL[^@)@C@[[[TD )@@G@@DTDC(RDDO^[KD[TETDCT[D))C1DE-IC(NES)CT D1OC(M^@)@@@[[[@@@[[[@@@[[[@[__[[TE )@@G@@^@)^@)@@@@[[@^@[[[ELDCTF^[G^[ED9CD1ND9I^@)@ @[[[CLGE( DL[FC)CL[ETFC(OCL[TF )@@G@@D-G^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[@^@[[[DLJD[I^[E^[KDDBCDOE-D^@)TG )@@G@@@ @[[[CLGE( DL[FC)CL[ETFC(OCL[D-G^@)@@@[[[@@@[[[@@@[[[@[__[[^@)^@)@@@@[[TH )@@G@@@^@[[[E-JC-^^[M^[RC(ICL ELB^@)@]@[[[CLGE( DL[FC)@A@@@] PERFORMTI )@@G@@ 572-WRITE-SUM. @C@@@] MOVE 4 TO Q1 MOVE 0 TO Q2 W-CTR3. TJ )@@G@@@B@@@] PERFORM 573-MOVE-SHIFT 3 TIMES.@ @@@] MOVE 2 TK )@@G@@TO TYMES. @^@@@] MOVE 0 TO Q2.@^@@@] MOVE 7 TO Q1.TL )@@G@@@B@@@] PERFORM 574-MOVE-NBRS 11 TIMES.@A@@@] MOVE PLTM )@@G@@19 TO P-POS2A. @A@@@] MOVE W-CTR3 TO P-EDIT5. @A@@@] TN )@@G@@ MOVE P-EDIT5 TO PT-2D. @A@@@] MOVE P-T-02 TO P-POS2B. TO )@@G@@@A@@@] PERFORM 572-WRITE-SUM. @A@@@] PERFORM 566-STP )@@G@@UM-HDG-2. @ @@@] PERFORM 571-TITLE. @A@@@] MOVE PLTQ )@@G@@20 TO P-POS2A. @A@@@] PERFORM 572-WRITE-SUM. @ @@@] TR )@@G@@ MOVE 20 TO Q1. @ @@@] MOVE 11 TO Q2. @ @@@] TS )@@G@@ MOVE 2 TO TYMES. @B@@@] PERFORM 575-DATA-ENTRY 2 TIMES.TT )@@G@@@ @@@] MOVE 2 TO TYMES. @B@@@] PERFORM 575-DATA-ENTU )@@G@@TRY 2 TIMES.@ @@@] MOVE 2 TO TYMES. @ @@@] MOVE 11TV )@@G@@ TO Q3. @B@@@] PERFORM 576-DE-HRS 2 TIMES. @ @@@] TW )@@G@@ MOVE 2 TO TYMES. @ @@@] PERFORM 576-DE-HRS.@A@@@] TX )@@G@@ MOVE PL28 TO P-POS2A. @C@@@] MOVE TT-NBRS (Q, 19) TO PTY )@@G@@-EDIT2A. @A@@@] MOVE P-EDIT2A TO PT-2A. @C@@@] MTZ )@@G@@OVE TT-COST (Q, 19) TO P-EDIT5. @A@@@] MOVE P-EDIT5 TO PT-UA )@@G@@2D. @A@@@] IF TT-NBRS (Q, 19) > 0 @A@@@] IF TTUB )@@G@@-COST (Q, 19) > 0 @E@@@] DIVIDE TT-COST (Q, 19) BY TT-NBRSUC )@@G@@ (Q, 19) @A@@@] GIVING W-CTR4 @B@@@] UD )@@G@@ MOVE W-CTR4 TO P-EDIT3 @B@@@] MOVE P-EDIT3 TO PT-4UE )@@G@@B. @A@@@] MOVE P-T-02 TO P-POS2B. @A@@@] PERFORMUF )@@G@@ 572-WRITE-SUM. @ @@@] MOVE 1 TO TYMES. @C@@@] MUG )@@G@@OVE TT-COST (Q, 20) TO P-EDIT5. @A@@@] MOVE P-EDIT5 TO PT-UH )@@G@@2D. @A@@@] MOVE PL29 TO P-POS2A. @A@@@] MOVE P-UI )@@G@@T-02 TO P-POS2B. @A@@@] PERFORM 572-WRITE-SUM. @ @@@] UJ )@@G@@ MOVE 3 TO TYMES. @A@@@] MOVE 0 TO Q1 W-CTR4. @B@@@]UK )@@G@@ MOVE 'OTHER - ' TO P-POS3A. @ @@@] IF ADJ-HOLD >UL )@@G@@ 0 @C@@@] PERFORM 577-OTHERS ADJ-HOLD TIMES. @^@@@] UM )@@G@@ IF Q > 2 @ @@@] IF W-CTR4 NOT = 0@B@@@] UN )@@G@@ MOVE ' COSTS ' TO P-POS3B @B@@@] MOVE W-CTR4 TO P-EDIUO )@@G@@T5N @B@@@] MOVE P-EDIT5N TO PT-2N @B@@@] UP )@@G@@ MOVE P-T-02 TO P-POS2B @B@@@] PERFORM 572-WRITE-SUUQ )@@G@@M. @A@@@] MOVE SPACES TO P-T-01. @G@@@] ADD W-CUR )@@G@@TR3 TT-COST (Q, 16) TT-COST (Q, 17) TT-COST (Q, 18) @E@@@] US )@@G@@ TT-COST (Q, 19) TT-COST (Q, 20) TO W-CTR4. @A@@@] MOVE W-UT )@@G@@CTR4 TO P-EDIT5N. @A@@@] MOVE P-EDIT5N TO PT-2N. @A@@@] UU )@@G@@ MOVE PL30 TO P-POS2A. @ @@@] MOVE 2 TO TYMES. @A@@@]UV )@@G@@ MOVE P-T-02 TO P-POS2B. @A@@@] PERFORM 572-WRITE-SUW )@@G@@UM. @B@@@] ADD TT-COST (Q, 28) TO W-CTR4. @A@@@] MUX )@@G@@OVE PL31 TO P-POS2A. @^@@@] IF Q = 1 OR 2@ @@@] UY )@@G@@ IF H-BUD-AMT > 0 @D@@@] MOVE '(BUDGETED AMOUNT = ' TO PT-UZ )@@G@@3A @A@@@] MOVE ')' TO PT-3C @B@@@] MOVVA )@@G@@E H-BUD-AMT TO P-EDIT5 @B@@@] MOVE P-EDIT5 TO PT-3B. VB )@@G@@@A@@@] MOVE P-T-02 TO P-POS2B. @A@@@] PERFORM 572-WVC )@@G@@RITE-SUM @ @@@] MOVE 1 TO TYMES @A@@@] MOVE TRVD )@@G@@LR3 TO P-POS2A. @A@@@] MOVE W-CTR4 TO P-EDIT5N. @A@@@] VE )@@G@@ MOVE P-EDIT5N TO PT-2N. @A@@@] MOVE P-T-02 TO P-POS2B. VF )@@G@@@A@@@] PERFORM 572-WRITE-SUM. @ @@@] MOVE 4 TO TYMVG )@@G@@ES. @^@@@] IF Q = 1 @B@@@] IF H-ACCT1 NOT = NVH )@@G@@P-ACCT (Q5) @B@@@] PERFORM 579-ADD-OVRHD. @A@@@] VI )@@G@@ PERFORM 580-MOVE-OVRHD. @@@@@]@^@@@] 570A-OUT. EXIT. @@@@@]VJ )@@G@@@^@@@] 570B-CK-ZERO. @C@@@] IF TT-TOT-RUNS (Q) > 0 ADVK )@@G@@D 1 TO LCTR.@D@@@] IF TT-SHIFT-NO (Q, 1) > 0 ADD 1 TO LCTR. VL )@@G@@@D@@@] IF TT-SHIFT-NO (Q, 2) > 0 ADD 1 TO LCTR. @D@@@] VM )@@G@@ IF TT-SHIFT-NO (Q, 3) > 0 ADD 1 TO LCTR. @C@@@] IF TT-CVN )@@G@@OST (Q, 14) > 0 ADD 1 TO LCTR.@C@@@] IF TT-COST (Q, 12) > 0 ADVO )@@G@@D 1 TO LCTR.@C@@@] IF TT-COST (Q, 13) > 0 ADD 1 TO LCTR.@B@@@]VP )@@G@@ IF LCTR > 0 GO TO 570C-Z-OUT. @^@@@] MOVE 0 TO Q1.VQ )@@G@@@B@@@] PERFORM 570D-LOOP 20 TIMES. @A@@@ IF TT-CVR )@@G@@OST (Q, 28) > 0 @ @@@ ADD 1 TO LCTR. @@@@@]@ @@@] VS )@@G@@ 570C-Z-OUT. EXIT. @@@@@]@#@@@] 570D-LOOP. @^@@@] AVT )@@G@@DD 1 TO Q1. @C@@@] IF TT-NBRS (Q, Q1) > 0 ADD 1 TO LCTR.@@@@@]VU )@@G@@@^@@@] 570E-CK-TITLE. @^@@@] IF Q = 1 OR 2@E@@@] VV )@@G@@ IF H-ACCT-DISCRIPT = SPACE MOVE 1 TO LCTR. @^@@@] IVW )@@G@@F Q = 3 @D@@@] IF H-BUD-DISCRIPT = SPACE MOVE 1 TO LCTR.VX )@@G@@@^@@@] IF Q = 4 @D@@@] IF H-BUR-DISCRIPT = SPAVY )@@G@@CE MOVE 1 TO LCTR.@^@@@] IF Q = 5 @D@@@] IF H-VZ )@@G@@DEP-DISCRIPT = SPACE MOVE 1 TO LCTR.@@@@@]@#@@@] 571-TITLE. @^@@@]WA )@@G@@ IF Q = 1 @A@@@] MOVE H-ACCT TO P-ACCT@D@@@]WB )@@G@@ MOVE H-ACCT-DISCRIPT TO P-T-ACCT-DISC @B@@@] WC )@@G@@ MOVE PRT-TITLE2 TO P-POS5. @^@@@] IF Q = 2 @B@@@] WD )@@G@@ MOVE H-ACCT1 TO PRT-A1 @B@@@] MOVE ' TOTAL WE )@@G@@' TO PRT-A2@D@@@] MOVE H-ACCT-DISCRIPT TO P-T-ACCT-DISC WF )@@G@@@B@@@] MOVE PRT-TITLE2 TO P-POS5. @^@@@] IF Q = WG )@@G@@3 @C@@@] MOVE H-BUD-DISCRIPT TO P-T-BUD @B@@@] WH )@@G@@ MOVE H-BUDGET TO PRT-3A @B@@@] MOVE PRT-TITLE3 TWI )@@G@@O P-POS5. @^@@@] IF Q = 4 @C@@@] MOVE H-BUWJ )@@G@@R-DISCRIPT TO P-T-BUR @B@@@] MOVE PRT-TITLE4 TO P-POS5. WK )@@G@@@^@@@] IF Q = 5 @C@@@] MOVE H-DEP-DISCRIPT TWL )@@G@@O P-T-DEP @B@@@] MOVE PRT-TITLE5 TO P-POS5. @^@@@] WM )@@G@@ IF Q = 6 @G@@@] MOVE 'D E P A R T M E N T A L TWN )@@G@@ O T A L S ' TO P-POS2A.@ @@@] MOVE 2 TO TYMES. @A@@@] WO )@@G@@ PERFORM 572-WRITE-SUM. @@@@@]@^@@@] 572-WRITE-SUM. @F@@@]WP )@@G@@ WRITE PRINT FROM PRINT-LINE AFTER ADVANCING TYMES. @B@@@]WQ )@@G@@ MOVE SPACES TO P-LINE1 P-T-01.@@@@@]@^@@@] 573-MOVE-SHWR )@@G@@IFT. @^@@@] ADD 1 TO Q1 @^@@@] ADD 1 TO Q2 @B@@@]WS )@@G@@ MOVE PRT-LN (Q1) TO P-POS2A @C@@@] MOVE TT-SHIFTWT )@@G@@-NO (Q, Q2) TO P-EDIT1 @A@@@] MOVE P-EDIT1 TO PT-2A @A@@@]WU )@@G@@ MOVE 'I' TO PT-2C @C@@@] ADD TT-SHIFT-COST (WV )@@G@@Q, Q2) TO W-CTR3. @C@@@] MOVE CMPUTR-RATES (Q2) TO P-EDIT3. WW )@@G@@@A@@@] MOVE P-EDIT3 TO PT-4B@C@@@] MOVE TT-SHIFTWX )@@G@@-COST (Q, Q2) TO P-EDIT5@A@@@] MOVE P-EDIT5 TO PT-2D. @A@@@]WY )@@G@@ MOVE P-T-02 TO P-POS2B @A@@@] PERFORM 572-WRITE-SWZ )@@G@@UM. @@@@@]@^@@@] 574-MOVE-NBRS. @^@@@] ADD 1 TO Q1. XA )@@G@@@^@@@] ADD 1 TO Q2. @B@@@] MOVE PRT-LN (Q1) TO P-POSXB )@@G@@7A. @C@@@] MOVE TT-NBRS (Q, Q2) TO P-EDIT2. @A@@@] XC )@@G@@ MOVE P-EDIT2 TO PT-7A @B@@@] MOVE TP-COSTS (Q2) TO P-XD )@@G@@EDIT6.@A@@@] MOVE P-EDIT6 TO PT-7B @C@@@] MOVE TPXE )@@G@@-UNIT-TYPE (Q2) TO PT-7C. @C@@@] MOVE TT-COST (Q, Q2) TO PXF )@@G@@-EDIT5. @B@@@] ADD TT-COST (Q, Q2) TO W-CTR3. @A@@@] XG )@@G@@ MOVE P-EDIT5 TO PT-7D. @A@@@] PERFORM 572-WRITE-SUM. XH )@@G@@@@@@@]@^@@@] 575-DATA-ENTRY. @^@@@] ADD 1 TO Q1. @^@@@]XI )@@G@@ ADD 1 TO Q2. @B@@@] MOVE PRT-LN (Q1) TO P-POS2A. XJ )@@G@@@C@@@] MOVE TT-NBRS (Q, Q2) TO P-EDIT2A. @A@@@] MXK )@@G@@OVE P-EDIT2A TO PT-2A. @A@@@] MOVE P-T-02 TO P-POS2B. @A@@@]XL )@@G@@ PERFORM 572-WRITE-SUM. @ @@@] MOVE 1 TO TYMES. XM )@@G@@@@@@@]@#@@@] 576-DE-HRS.@A@@@] ADD 1 TO Q1. ADD 1 TO Q3 XN )@@G@@@^@@@] ADD 1 TO Q2. @B@@@] MOVE PRT-LN (Q1) TO P-POSXO )@@G@@2A. @B@@@] MOVE TT-COST (Q, Q3) TO P-EDIT8@A@@@] MXP )@@G@@OVE P-EDIT8 TO PT-2A @C@@@] MOVE TT-COST (Q, Q2) TO P-EDIT5XQ )@@G@@. @A@@@] MOVE P-EDIT5 TO PT-2D @ @@@] MOVE 'IXR )@@G@@' TO PT-2C. @^@@@] IF Q3 = 14 @C@@@] MOVE AP INXS )@@G@@ HOURLY-RATES TO P-EDIT3@#@@@] ELSE @D@@@] MOVEXT )@@G@@ D-E IN HOURLY-RATES TO P-EDIT3. @A@@@] MOVE P-EDIT3 TO PT-XU )@@G@@4B. @A@@@] MOVE P-T-02 TO P-POS2B @A@@@] PERFORMXV )@@G@@ 572-WRITE-SUM. @ @@@] MOVE 1 TO TYMES. @@@@@]@#@@@] XW )@@G@@ 577-OTHERS.@^@@@] ADD 1 TO Q1. @^@@@] IF Q = 1 XX )@@G@@@C@@@] IF ADJ-BUDGET (Q1) = H-BUDGET @C@@@] XY )@@G@@ IF ADJ-ACCOUNT (Q1) = H-ACCT @B@@@] PERFORM 578XZ )@@G@@-MOVE-OTHER.@^@@@] IF Q = 2 @C@@@] IF ADJ-BUYA )@@G@@DGET (Q1) = H-BUDGET @C@@@] IF ADJ-ACCT1 (Q1) = H-ACCYB )@@G@@T1 @B@@@] PERFORM 578-MOVE-OTHER.@^@@@] IYC )@@G@@F Q = 3 @C@@@] IF ADJ-BUDGET (Q1) = H-BUDGET @C@@@]YD )@@G@@ ADD ADJ-AMOUNT (Q1) TO W-CTR4.@^@@@] IF Q = YE )@@G@@4 @B@@@] IF ADJ-DEPT (Q1) = H-DEPT @B@@@] YF )@@G@@ IF ADJ-BUR (Q1) = H-BUR @D@@@] ADD ADJ-AMOUNT (QYG )@@G@@1) TO W-CTR4. @^@@@] IF Q = 5 @B@@@] IF YH )@@G@@ADJ-DEPT (Q1) = H-DEPT @D@@@] ADD ADJ-AMOUNT (Q1) TO YI )@@G@@W-CTR4. @^@@@] IF Q = 6 @D@@@] ADD AYJ )@@G@@DJ-AMOUNT (Q1) TO W-CTR4. @@@@@]@^@@@] 578-MOVE-OTHER. @C@@@]YK )@@G@@ MOVE ADJ-DISCRIPT (Q1) TO P-POS3B. @C@@@] MOVE ADYL )@@G@@J-AMOUNT (Q1) TO P-EDIT5N. @A@@@] MOVE P-EDIT5N TO PT-2N. YM )@@G@@@A@@@] MOVE P-T-02 TO P-POS2B @B@@@] ADD ADJ-AMOUYN )@@G@@NT (Q1) TO W-CTR4.@A@@@] PERFORM 572-WRITE-SUM. @ @@@] YO )@@G@@ MOVE 1 TO TYMES. @@@@@]@^@@@] 579-ADD-OVRHD. @G@@@] YP )@@G@@ MULTIPLY M-OVRHD-CMPR BY W-CTR3 GIVING TT-COST (1, 22). @F@@@]YQ )@@G@@ MULTIPLY M-BENFT-CMPR BY W-CTR3 GIVING TT-COST (1, 25).@F@@@]YR )@@G@@ MULTIPLY M-BENFT-AN-PROG BY TT-COST (1, 18) GIVING @E@@@]YS )@@G@@ TT-COST (1, 27). @F@@@] YT )@@G@@ MULTIPLY M-OVRHD-AN-PROG BY TT-COST (1, 18) GIVING @E@@@] YU )@@G@@ TT-COST (1, 24). @F@@@] AYV )@@G@@DD TT-COST (1, 16) TT-COST (1, 17) GIVING W-CTR3. @F@@@] MYW )@@G@@ULTIPLY M-OVRHD-DE BY W-CTR3 GIVING TT-COST (1, 23). @F@@@] MYX )@@G@@ULTIPLY M-BENFT-DE BY W-CTR3 GIVING TT-COST (1, 26). @@@@@]@^@@@] YY )@@G@@ 580-MOVE-OVRHD. @B@@@] MOVE TD2-OVRHD TO TRLR-PCT. @C@@@]YZ )@@G@@ MOVE TT-COST (Q, 22) TO TRLR-CPR. @C@@@] MOVE TTZA )@@G@@-COST (Q, 23) TO TRLR-DATA. @C@@@] MOVE TT-COST (Q, 24) TO TZB )@@G@@RLR-A-P. @A@@@] MOVE OVRHD TO P-POS4A1 @A@@@] MZC )@@G@@OVE TRLR1 TO P-POS4A2 @A@@@] PERFORM 572-WRITE-SUM @ @@@]ZD )@@G@@ MOVE 1 TO TYMES @A@@@] MOVE TRLR2 TO P-POS4A ZE )@@G@@@A@@@] PERFORM 572-WRITE-SUM @ @@@] MOVE 3 TO TYMZF )@@G@@ES @A@@@] MOVE EMPL-BEN TO P-POS4B1@B@@@] MOVE TDZG )@@G@@2-E-BEN TO TRLR-PCT @C@@@] MOVE TT-COST (Q, 25) TO TRLR-CPZH )@@G@@R. @C@@@] MOVE TT-COST (Q, 26) TO TRLR-DATA. @C@@@] ZI )@@G@@ MOVE TT-COST (Q, 27) TO TRLR-A-P. @A@@@] MOVE TRLR1 TOZJ )@@G@@ P-POS4B2 @A@@@] PERFORM 572-WRITE-SUM @ @@@] MZK )@@G@@OVE 1 TO TYMES @A@@@] MOVE TRLR2 TO P-POS4A. @A@@@] ZL )@@G@@ PERFORM 572-WRITE-SUM. @@@@@]@^@@@] 581-ADD-BILL. @^@@@]ZM )@@G@@ MOVE 0 TO Q2 @B@@@] PERFORM 582-ADD-SHIFT 3 TIMES. ZN )@@G@@@^@@@] MOVE 0 TO Q2.@B@@@] PERFORM 584-ADD-NBRS 11 TZO )@@G@@IMES. @D@@@] ADD TT-NBRS (1, 19) TO PAY-NBRS (Q4, 12).@D@@@]ZP )@@G@@ ADD TT-COST (1, 19) TO PAY-COST (Q4, 12).@D@@@] AZQ )@@G@@DD TT-COST (1, 14) TO PAY-AP-HRS (Q4). @D@@@] ADD TT-COST (ZR )@@G@@1, 18) TO PAY-AP-COST (Q4). @F@@@] ADD TT-COST (1, 12) TT-COZS )@@G@@ST (1, 13) TO PAY-DE-HRS (Q4).@G@@@] ADD TT-COST (1, 16) TT-COZT )@@G@@ST (1, 17) TO PAY-DE-COST (Q4). @C@@@] ADD TT-COST (1, 20)ZU )@@G@@ TO PAY-HWR (Q4).@@@@@]@^@@@] 582-ADD-SHIFT. @^@@@] AZV )@@G@@DD 1 TO Q2. @F@@@] ADD TT-SHIFT-NO (1, Q2) TO PAY-SHIFT-NO (QZW )@@G@@4, Q2). @F@@@] ADD TT-SHIFT-COST (1, Q2) TO PAY-SHIFT-COSZX )@@G@@T (Q4, Q2). @@@@@]@^@@@] 584-ADD-NBRS. @^@@@] ADD 1 TZY )@@G@@O Q2. @D@@@] ADD TT-NBRS (1, Q2) TO PAY-NBRS (Q4, Q2). @D@@@]ZZ )@@G@@ ADD TT-COST (1, Q2) TO PAY-COST (Q4, Q2). @@@@@]@^@@@] AA )@@G@@ 585-ADD-LEACH. @A@@@] IF L-PAY-PCT (Q3, 1) > 0 @E@@@] AB )@@G@@ MULTIPLY L-PAY-PCT (Q3, 1) BY .01 GIVING LPCT@F@@@] AC )@@G@@ COMPUTE LCTR = (TT-COST (1, 16) + TT-COST (1, 17)) @ @@@] AD )@@G@@ * LPCT @C@@@] ADD LCTR TO PAY-DE-COST (Q4) AE )@@G@@@F@@@] COMPUTE LCTR = (TT-COST (1, 12) + TT-COST (1, 13)) AF )@@G@@@ @@@] * LPCT @C@@@] ADD LCTR TO PAAG )@@G@@Y-DE-HRS (Q4). @A@@@] IF L-PAY-PCT (Q3, 2) > 0 @E@@@] AH )@@G@@ MULTIPLY L-PAY-PCT (Q3, 2) BY .01 GIVING LPCT@D@@@] AI )@@G@@ COMPUTE LCTR = TT-COST (1, 18) * LPCT @C@@@] ADD LCTR AJ )@@G@@TO PAY-AP-COST (Q4) @D@@@] COMPUTE LCTR = TT-COST (1, AK )@@G@@14) * LPCT @C@@@] ADD LCTR TO PAY-AP-HRS (Q4). @A@@@]AL )@@G@@ IF L-PAY-PCT (Q3, 3) > 0 @E@@@] MULTIPLY L-PAY-AM )@@G@@PCT (Q3, 3) BY .01 GIVING LPCT@ @@@] MOVE 0 TO Q2 @B@@@]AN )@@G@@ PERFORM 587A-CMPTR 3 TIMES @ @@@] MOVE 0 TOAO )@@G@@ Q2 @C@@@] PERFORM 587-COMPUTE 11 TIMES. @A@@@] AP )@@G@@ IF L-PAY-PCT (Q3, 4) > 0 @E@@@] MULTIPLY L-PAY-PCT (QAQ )@@G@@3, 4) BY .01 GIVING LPCT@D@@@] COMPUTE LCTR = TT-COST (1, AR )@@G@@19) * LPCT @C@@@] ADD LCTR TO PAY-COST (Q4, 12). @A@@@]AS )@@G@@ IF L-PAY-PCT (Q3, 5) > 0 @E@@@] MULTIPLY L-PAY-AT )@@G@@PCT (Q3, 5) BY .01 GIVING LPCT@D@@@] COMPUTE LCTR = TT-COSAU )@@G@@T (1, 20) * LPCT @B@@@] ADD LCTR TO PAY-HWR (Q4). @@@@@]AV )@@G@@@^@@@] 586-FIND-PAYEE. @^@@@] ADD 1 TO Q4. @B@@@] AW )@@G@@ IF PAY-ACCT-CD (Q4) > SPACES @D@@@] IF PAY-ACCT-CD (QAX )@@G@@4) = L-PAY-ACCT (Q3) @B@@@] PERFORM 585-ADD-LEACH AY )@@G@@@#@@@] ELSE @B@@@] GO TO 586-FIND-PAYEE. AZ )@@G@@@@@@@]@^@@@] 587-COMPUTE. @^@@@] ADD 1 TO Q2. @D@@@]BA )@@G@@ COMPUTE LCTR = TT-COST (1, Q2) * LPCT. @C@@@] BB )@@G@@ ADD LCTR TO PAY-COST (Q4, Q2). @E@@@] MULTIPLY TT-NBRS (1BC )@@G@@, Q2) BY LPCT GIVING NBRS @C@@@] ADD NBRS TO PAY-NBRSBD )@@G@@ (Q4, Q2). @@@@@]@#@@@] 587A-CMPTR.@^@@@] ADD 1 TO Q2.BE )@@G@@@D@@@] COMPUTE LCTR = TT-SHIFT-NO (1, Q2) * LPCT.@C@@@] BF )@@G@@ ADD LCTR TO PAY-SHIFT-NO (Q4, Q2). @E@@@] COMPUTE LCTRBG )@@G@@ = TT-SHIFT-COST (1, Q2) * LPCT. @C@@@] ADD LCTR TO PAY-SHBH )@@G@@IFT-COST (Q4, Q2).@@@@@]@^@@@] 588-SET-DATE. @B@@@] MBI )@@G@@OVE SPACES TO SWAP-1 SWAP-2. @B@@@] MOVE MONTHS (H-MO) TO SWABJ )@@G@@P-1. @^@@@] MOVE 0 TO Q1 @^@@@] MOVE 1 TO Q2 @ @@@]BK )@@G@@ PERFORM 589-SWAP. @^@@@] ADD 1 TO Q2 @A@@@] BL )@@G@@ MOVE ',' TO S2 (Q2). @^@@@] ADD 1 TO Q2 @A@@@] BM )@@G@@ MOVE ' ' TO S2 (Q2). @^@@@] ADD 1 TO Q2 @A@@@] BN )@@G@@ MOVE '1' TO S2 (Q2). @^@@@] ADD 1 TO Q2 @A@@@] BO )@@G@@ MOVE '9' TO S2 (Q2). @A@@@] MOVE SPACES TO SWAP-1. BP )@@G@@@A@@@] MOVE H-YR TO SWAP-1. @^@@@] ADD 1 TO Q2. BQ )@@G@@@A@@@] MOVE S1 (1) TO S2 (Q2). @^@@@] ADD 1 TO Q2. BR )@@G@@@A@@@] MOVE S1 (2) TO S2 (Q2). @A@@@] MOVE SWAP-2 TBS )@@G@@O BILL-3A. @@@@@]@#@@@] 589-SWAP. @^@@@] ADD 1 TO Q1. BT )@@G@@@ @@@] IF S1 (Q1) > SPACES@ @@@] ADD 1 TO Q2 BU )@@G@@@B@@@] MOVE S1 (Q1) TO S2 (Q2) @ @@@] GO BV )@@G@@TO 589-SWAP.@@@@@]@#@@@] 590-EOF. @B@@@] IF YN-SRT-SEQBW )@@G@@ < HIGH-VALUES @A@@@] IF YN-PERIOD = H-PERIOD@B@@@] BX )@@G@@ PERFORM 510-READ-YTD-IN @ @@@] GO TO 590-EOF BY )@@G@@@#@@@] ELSE @B@@@] WRITE YO-COST FROM YN-COSTBZ )@@G@@@B@@@] PERFORM 510-READ-YTD-IN @ @@@] GOCA )@@G@@ TO 590-EOF.@B@A@] CLOSE YTD-IN YTD-OUT MTHLY. @A@@@A CB )@@G@@ CLOSE YTD-IN YTD-OUT. @A@@@] MOVE 0 TO Q Q1 Q2 Q3 Q4. CC )@@G@@@A@@@] PERFORM 588-SET-DATE. @^@@@] CLOSE PRINTR.CD )@@G@@@ @@@] OPEN OUTPUT PRINT2.@@@@@]@^@@@] 600-BILLING. CE )@@G@@@^@@@] ADD 1 TO Q. @D@@@] MOVE SPACES TO BILL-5C CF )@@G@@BILL-6C BILL-12A @ @@@] MOVE 0 TO MAX. @B@@@] ICG )@@G@@F PAY-ACCT-CD (Q) = SPACES @A@@@] GO TO 690-FINISHED. CH )@@G@@@ @@@] MOVE 0 TO LCTR. @C@@@] * PERFORM 605-CHECK-ZCI )@@G@@ERO THRU 606-OUT. @B@@@] * IF LCTR = 0 GO TO 600-BILLING. @A@@@]CJ )@@G@@ PERFORM 620-JA-INFO. @E@@@] WRITE PRINTB FROM CCK )@@G@@UT-LINE AFTER ADVANCING PAGE. @F@@@] WRITE PRINTB FROM DEPT-HECL )@@G@@ADER-2M AFTER ADVANCING 1. @D@@@] MOVE 'INTER-OFFICE CM )@@G@@ ' TO P-POS1B. @ @@@] MOVE 1 TO TYMES. @A@@@] PCN )@@G@@ERFORM 617-WRITE-BILL. @F@@@] MOVE BILL-LINE1 TO P-POS5 CO )@@G@@ PERFORM 617-WRITE-BILL.@ @@@] MOVE 1 TO TYMES. @F@@@] CP )@@G@@ MOVE BILL-LINE2 TO P-POS5 PERFORM 617-WRITE-BILL.@ @@@] CQ )@@G@@ MOVE 2 TO TYMES. @F@@@] MOVE BILL-LINE3 TO P-POS5 CR )@@G@@ PERFORM 617-WRITE-BILL.@ @@@] MOVE 1 TO TYMES. @F@@@] CS )@@G@@ MOVE BILL-LINE4 TO P-POS5 PERFORM 617-WRITE-BILL.@ @@@] CT )@@G@@ MOVE 3 TO TYMES. @C@@@] MOVE D-E IN HOURLY-RATES TO LCTCU )@@G@@R. @A@@@] IF TD-4-MAX-FEES > SPACES@A@@@] IF TDCV )@@G@@-4-FEES (1) > 0 @B@@@] IF TD-4-FEES (1) < LCTR @C@@@]CW )@@G@@ MOVE TD-4-FEES (1) TO LCTR @B@@@] IFCX )@@G@@ PAY-DE-COST (Q) > 0 @F@@@] MULTIPLY LCTR BY PAY-DE-HCY )@@G@@RS (Q) GIVING W-CTR3 @C@@@] MOVE W-CTR3 TO PAY-DE-COSCZ )@@G@@T (Q) @ @@@] MOVE 1 TO MAX@C@@@] MOVE ' DA )@@G@@NOTE-1' TO BILL-5C. @C@@@] ADD .05 PAY-DE-HRS (Q) GIVING DB )@@G@@W-CTR3@A@@@] MOVE W-CTR3 TO BILL-5A.@D@@@] ADD .0DC )@@G@@05 PAY-DE-COST (Q) GIVING W-CTR3 @A@@@] MOVE W-CTR3 TO P-DD )@@G@@EDIT7 @A@@@] MOVE LCTR TO BILL-5B @A@@@] MOVE DE )@@G@@P-EDIT7 TO P-POS6B@G@@@] MOVE BILL-LINE5 TO P-POS6A PERFODF )@@G@@RM 617-WRITE-BILL. @ @@@] MOVE 2 TO TYMES. @C@@@] DG )@@G@@ MOVE AP IN HOURLY-RATES TO LCTR. @A@@@] IF TD-4-MAX-FDH )@@G@@EES > SPACES@A@@@] IF TD-4-FEES (2) > 0 @B@@@] DI )@@G@@ IF TD-4-FEES (2) < LCTR @C@@@] MOVE TD-4-FEES (2) DJ )@@G@@ TO LCTR @B@@@] IF PAY-AP-COST (Q) > 0 @F@@@] DK )@@G@@ MULTIPLY LCTR BY PAY-AP-HRS (Q) GIVING W-CTR3 @C@@@] DL )@@G@@ MOVE W-CTR3 TO PAY-AP-COST (Q)@ @@@] MOVE 1 DM )@@G@@TO MAX@C@@@] MOVE ' NOTE-1' TO BILL-6C. @C@@@] DN )@@G@@ ADD .05 PAY-AP-HRS (Q) GIVING W-CTR3@A@@@] MOVE W-CTR3DO )@@G@@ TO BILL-6A.@D@@@] ADD .005 PAY-AP-COST (Q) GIVING W-CTR3 DP )@@G@@@A@@@] MOVE W-CTR3 TO P-EDIT7.@A@@@] MOVE LCTR TDQ )@@G@@O BILL-6B. @A@@@] MOVE P-EDIT7 TO P-POS6B@G@@@] MDR )@@G@@OVE BILL-LINE6 TO P-POS6A PERFORM 617-WRITE-BILL. @G@@@] DS )@@G@@ MOVE BILL-LINE7 TO P-POS6A PERFORM 617-WRITE-BILL. @A@@@]DT )@@G@@ MOVE 0 TO Q1 Q2 W-CTR1. @D@@@] ADD PAY-SHIFT-NO (QDU )@@G@@, 1) PAY-SHIFT-NO (Q, 2)@C@@@] PAY-SHIFT-NO (Q, 3) TO W-CTDV )@@G@@R1. @A@@@] MOVE W-CTR1 TO BILL-8A. @F@@@] MOVE BIDW )@@G@@LL-LINE8 TO P-POS6A PERFORM 617-WRITE-BILL.@ @@@] MOVE 1 DX )@@G@@TO TYMES. @B@@@] PERFORM 610-SHIFTS 3 TIMES. @^@@@] DY )@@G@@ MOVE 0 TO Q1.@D@@@] PERFORM 611-NBRS THRU 612-EXIT 11 TDZ )@@G@@IMES. @ @@@] MOVE 2 TO TYMES. @C@@@] ADD .005 PAYEA )@@G@@-S-TOT (Q) GIVING W-CTR3@A@@@] MOVE W-CTR3 TO P-EDIT7. @A@@@]EB )@@G@@ MOVE P-EDIT7 TO P-POS6B @F@@@] MOVE BILL-LINE12 TEC )@@G@@O P-POS6A. PERFORM 617-WRITE-BILL.@A@@@] IF PAY-COST (Q, 12)ED )@@G@@ > 0 @B@@@] MOVE BILL-LINE11 TO P-POS6A @C@@@] EE )@@G@@ MOVE PAY-COST (Q, 12) TO P-EDIT7 @A@@@] MOVE P-EDIT7 TO PEF )@@G@@-POS6B@A@@@] PERFORM 617-WRITE-BILL.@^@@@] IF MAX EG )@@G@@= 1 @G@@@] MOVE ' ** NOTE-1 - ' TO P-POS5 PERFORM 617-EH )@@G@@WRITE-BILL @ @@@] MOVE 1 TO TYMES@F@@@] MOVEI )@@G@@E BILL-MAX TO P-POS5 PERFORM 617-WRITE-BILL. @ @@@] MOVE 2 EJ )@@G@@TO TYMES. @ @@@] IF PAY-HWR (Q) > 0 @B@@@] MOVE PAEK )@@G@@Y-HWR (Q) TO P-EDIT7 @A@@@] MOVE P-EDIT7 TO P-POS6B @F@@@]EL )@@G@@ MOVE BILL-LINE13 TO P-POS6A PERFORM 617-WRITE-BILL. @B@@@]EM )@@G@@ MOVE 'OTHER - ' TO BILL-14A. @A@@@] MOVE 0 TO Q1 EN )@@G@@ W-CTR4 @C@@@] PERFORM 614-OTHERS ADJ-HOLD TIMES. @E@@@]EO )@@G@@ ADD PAY-DE-COST (Q) PAY-AP-COST (Q) PAY-S-TOT (Q)@E@@@] EP )@@G@@ .005 PAY-HWR (Q) PAY-COST (Q, 12) TO W-CTR4. @A@@@] MEQ )@@G@@OVE W-CTR4 TO P-EDIT7N. @C@@@] MOVE '*** TOTAL *** ' TO P-POS6ER )@@G@@A @A@@@] MOVE P-EDIT7N TO P-POS6N @ @@@] MOVE 2 ES )@@G@@TO TYMES @A@@@] PERFORM 617-WRITE-BILL. @E@@@] CET )@@G@@OMPUTE LCTR = PAY-OV-DE * PAY-DE-COST (Q). @A@@@] MOVE LCEU )@@G@@TR TO W-CTR3. @E@@@]*[S@@@*SDFF*@C@@@@IDBUFF* 'SLEEPER 3R1 EV )@@G@@ '@H@@@@. **********************************************EW )@@G@@**************************** @H@@@@. ******* EX )@@G@@ ******* @H@@@@. ******* EY )@@G@@S L E E P E R ******* @H@@@@. ******* EZ )@@G@@ ******* @H@@@@FA )@@G@@. ******* WRITTEN BY LOU INFELD, 03/07/77 (1R1) ***FB )@@G@@**** @H@@@@. ******* UPDATED BY LOU INFELD, 08/16/77 (2R1) FC )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 10/22/78 (2R2) FD )@@G@@ ******* @H@@@@. ******* UPDATED BY LOU INFELD, 11/FE )@@G@@13/78 (2R3) ******* @H@@@@. ******* UPDATED BY LOUFF )@@G@@ INFELD, 11/21/78 (2R4) ******* @H@@@@. ******* UPFG )@@G@@DATED BY LOU INFELD, 02/14/79 (2R5) ******* @H@@@@FH )@@G@@. ******* UPDATED BY LOU INFELD, 08/09/79 (2R6) ***FI )@@G@@**** @H@@@@. ******* UPDATED BY LOU INFELD, 02/27/80 (3R1) FJ )@@G@@ ******* @H@@@@. ******* FK )@@G@@ ******* @H@@@@. ******* THIS PROGRAM WILL SCHEDULEFL )@@G@@ EXECUTION OF GIVEN RUN-STREAMS ******* @H@@@@. ******* AND WHEN THEIRFM )@@G@@ TIME OF EXECUTION ARRIVES, IT WILL START ******* @H@@@@. ******* THFN )@@G@@EM. AT OTHER TIMES IT WILL SLEEP (HENCE THE NAME ******* @H@@@@FO )@@G@@. ******* 'SLEEPER'). ***FP )@@G@@**** @H@@@@. ******* FQ )@@G@@ ******* @H@@@@. ******* WHEN FIRST EXECUTED, SLEEPER WILL READFR )@@G@@ DATA CARDS WHICH ******* @H@@@@. ******* SPECIFY WHAT RUN-STREAMS TFS )@@G@@O PERFORM AND AT WHAT INTERVALS. ******* @H@@@@. ******* THE INITIAL CAFT )@@G@@LLING SEQUENCE IS: ******* @H@@@@. ******* FU )@@G@@ ******* @H@@@@FV )@@G@@. ******* @SLEEPER ***FW )@@G@@**** @H@@@@. ******* SMIN-1 DMIN-1 ELT-NAME-1 FX )@@G@@ ******* @H@@@@. ******* SMIN-2 DMIN-2 ELT-NAME-2 FY )@@G@@ ******* @H@@@@. ******* ....................FZ )@@G@@.... ******* @H@@@@. ******* SMIN-N DGA )@@G@@MIN-N ELT-NAME-N ******* @H@@@@. ******* GB )@@G@@ ******* @H@@@@GC )@@G@@. ******* WHERE 'SMIN-I' IS STARTING MINUTE WITHIN THE HOUR, 'DMIN-I'***GD )@@G@@**** @H@@@@. ******* IS INCREMENT IN MINUTES AND 'ELT-NAME-I' IS WHERE GE )@@G@@THE ******* @H@@@@. ******* RUN-STREAM IS. FOR EXAMPLE: 15 60 GF )@@G@@ OP*U/UKEY.HOURLY ******* @H@@@@. ******* INDICATES THAT ELEMENT 'OPGG )@@G@@*U/UKEY.HOURLY' WILL BE STARTED ******* @H@@@@. ******* EVERY HOUR (60GH )@@G@@) AT 15 MINUTES AFTER THE HOUR. ******* @H@@@@. ******* GI )@@G@@ ******* @H@@@@GJ )@@G@@. ******* 'SMIN-I' CAN ALSO BE THE WORD 'NOW' INDICATING PRESENT ***GK )@@G@@**** @H@@@@. ******* TIME OR HAVE THE FORMAT 'HH:MM:SS' FOR A SPECIFIC GL )@@G@@TIME. ******* @H@@@@. ******* GM )@@G@@ ******* @H@@@@. ******* 'DMIN-I' CAN HAVE THE ALTEGN )@@G@@RNATE FORMAT 'HXXX' WHERE ******* @H@@@@. ******* 'XXX' WILL BE GO )@@G@@INTERPRETED AS HOURS INSTEAD OF MINUTES. ******* @H@@@@. ******* GP )@@G@@ ******* @H@@@@GQ )@@G@@. ******* SLEEPER WILL CATALOG A FILE (SLEEP$DATA) AND INSERT ***GR )@@G@@**** @H@@@@. ******* THIS INFORMATION AND WHEN THE NEXT SCHEDULED EXECUGS )@@G@@TION ******* @H@@@@. ******* WILL OCCUR FOR EACH RUN-STREAM. THE FGT )@@G@@ORMAT OF EACH SECTOR ******* @H@@@@. ******* IN THE FILE (ONE SECTOR PEGU )@@G@@R RUN-STREAM) IS: ******* @H@@@@. ******* GV )@@G@@ ******* @H@@@@. ******* GW )@@G@@ WORD 0 - NEXT SCHEDULED EXECUTION (IN TDATE$ FORMAT)******* @H@@@@GX )@@G@@. ******* WORD 1 - INCREMENTAL TIME (IN MINUTES) ***GY )@@G@@**** @H@@@@. ******* WORD 2 - # OF CHARS IN ELT-NAME GZ )@@G@@ ****** @H@@@@. ******* WORDS 3-27 - ELT-NAME HA )@@G@@ ******* @H@@@@. ******* HB )@@G@@ ******* @H@@@@. ******* EXCEPT SECTOR HC )@@G@@0 WHICH IS THE REAL-TIME KEY AND HAS THE ******* @H@@@@. ******* VAHD )@@G@@LUES 'REAL' OR 'UNREAL'. ******* @H@@@@HE )@@G@@. ******* AFTER SLEEPER IS INITIALIZED, IT WILL CALCULATE THE TIME ***HF )@@G@@**** @H@@@@. ******* OF THE NEXT START AND SLEEP (TWAIT$) UNTIL THEN. HG )@@G@@ ******* @H@@@@. ******* WHEN SLEEPER AWAKENS, IT WILL START THHH )@@G@@E NEXT RUN-STREAM ******* @H@@@@. ******* AND UPDATE THE FILE. HI )@@G@@ ******* @H@@@@. ******* HJ )@@G@@ ******* @H@@@@. ******* USHK )@@G@@E IS MADE OF BYTESUB ROUTINES FOR INPUT FORMATTING, ******* @H@@@@HL )@@G@@. ******* AND SUBROUTINE DTDATE TO PERFORM TDATE$ CALCULATIONS. ***HM )@@G@@**** @H@@@@. ******* HN )@@G@@ ******* @H@@@@. ******* THE FOLLOWING 'II' KEYINS ARE RECOGNIZHO )@@G@@ED: ******* @H@@@@. ******* HP )@@G@@ ******* @H@@@@. ******* TERM - TERHQ )@@G@@MINATE SLEEPER ******* @H@@@@. ******* HR )@@G@@ RT - GO REAL TIME ******* @H@@@@HS )@@G@@. ******* NRT - RELEASE REAL TIME ***HT )@@G@@**** @H@@@@. ******* STAT - PRINT STATUS HU )@@G@@ ******* @H@@@@. ******* ADD - ADD NEW RUN-STREAMS TO SLEEHV )@@G@@PER ******* @H@@@@. ******* REM - REMOVE RUN-STREHW )@@G@@AMS FROM SLEEPER ******* @H@@@@. ******* HX )@@G@@ ******* @H@@@@. ******* AVHY )@@G@@AILABLE OPTIONS: ******* @H@@@@HZ )@@G@@. ******* ----------------- ***IA )@@G@@**** @H@@@@. ******* IB )@@G@@ ******* @H@@@@. ******* S - PERFORM STATUS ONLY (READ 'SLEEP$DIC )@@G@@ATA') ******* @H@@@@. ******* ID )@@G@@ ******* @H@@@@. ******* REVISION SUMMAIE )@@G@@RY: ******* @H@@@@. ******* --IF )@@G@@-------------- ******* @H@@@@IG )@@G@@. ******* ***IH )@@G@@**** @H@@@@. ******* 1R1 -- FIRST RELEASE II )@@G@@ ******* @H@@@@. ******* 2R1 -- TEST FACILITY ADDED IJ )@@G@@ ******* @H@@@@. ******* -- IDONLY$ SIGN-ON IK )@@G@@ ******* @H@@@@. ******* -- PRINT EIL )@@G@@RRORS WITH 'ERRPR$' ******* @H@@@@. ******* IM )@@G@@ -- REENTRY EXECUTION FROM SAME FILE AS FIRST ******* @H@@@@IN )@@G@@. ******* -- USE I/O FOR INTERNAL FILE ***IO )@@G@@**** @H@@@@. ******* 2R2 -- CONVERT TO TDATE$ FORMAT IP )@@G@@ ******* @H@@@@. ******* -- ALLOW NO INPUT CASE IQ )@@G@@ ******* @H@@@@. ******* -- USE @START INSTEAD IR )@@G@@OF @ADD ******* @H@@@@. ******* -- FIX BUGIS )@@G@@S IN 'ADD' AND 'REM' LOGIC ******* @H@@@@. ******* IT )@@G@@ -- MOVE REAL TIME KEY TO SEPARATE SECTOR 0 ******* @H@@@@IU )@@G@@. ******* 2R3 -- RESTART PROG WHENEVER ENVIRONMENT CHANGES ***IV )@@G@@**** @H@@@@. ******* -- ALLOW START PARAMETERS ON ELT-NAME FIELD IW )@@G@@ ******* @H@@@@. ******* -- EXPAND # OF WORDS FOR ELT-NAME IX )@@G@@FIELD ******* @H@@@@. ******* -- USE CATALOGUED FILEIY )@@G@@ FOR RECOVERY PURPOSES ******* @H@@@@. ******* 2R4 -- ALLOW 'IZ )@@G@@NOW' AND 'HHMM' WITHOUT ' ' FOR SMIN ******* @H@@@@. ******* 2RJA )@@G@@5 -- ADD 'S' OPTION ******* @H@@@@JB )@@G@@. ******* -- ALLOW HOURS FORMAT FOR 'DMIN-I' ***JC )@@G@@**** @H@@@@. ******* -- USE BYTESUB PACKAGE INSTEAD OF TIDE$ JD )@@G@@ ******* @H@@@@. ******* -- DO DUMMY READ INSTEAD OF RINF$ JE )@@G@@ ******* @H@@@@. ******* -- PRINT HRS OR MINS FJF )@@G@@OR DMIN ******* @H@@@@. ******* -- CONVERTJG )@@G@@ TO MASM ******* @H@@@@. ******* 2RJH )@@G@@6 -- CHANGE TEST MODE TO @MASM,T ******* @H@@@@JI )@@G@@. ******* -- DON'T ALLOW II UNTIL INITIALIZED ***JJ )@@G@@**** @H@@@@. ******* -- START IN NON-REAL TIME MODE JK )@@G@@ ******* @H@@@@. ******* -- DON'T USE WHOLE LINE FOR CONSOLJL )@@G@@E PRINT-OUTS ******* @H@@@@. ******* -- BUG IN 'ADD' LOGIC JM )@@G@@(NWDS NOT CALCULATED) ******* @H@@@@. ******* 3R1 -- UPDATE JN )@@G@@TO USE 'BYTESUB 2R1' FORMATS ******* @H@@@@. ******* JO )@@G@@ -- CHANGE FORMAT OF SMIN INPUT ******* @H@@@@JP )@@G@@. ******* -- UPDATE TEST FACILITY ***JQ )@@G@@**** @H@@@@. ******* JR )@@G@@ ******* @H@@@@. **********************************************JS )@@G@@**************************** _@@@@@. ******* 1R*[S@@@*SDFF*@H@@@Q. ****JT )@@G@@********************************************************************** JU )@@G@@@H@@@Q. ******** THIS PDP ELEMENT CONTAINS USEFUL PROCS NOT DEFINED BY TJV )@@G@@HE ******* @H@@@Q. ******** EXEC 8. THESE PROCS ARE MADE AVAILABLE TO JW )@@G@@THE USER BY ******* @H@@@Q. ******** INVOKING THE PROC 'LIPROCS'. IJX )@@G@@F THIS ELEMENT HAS NOT BEEN******* @H@@@Q. ******** INCORPORATED INTO TJY )@@G@@HE OPERATING SYSTEM, IT FIRST MUST BE ******* @H@@@Q. ******** PDP'ED JZ )@@G@@INTO THE FILE FROM WHICH THE CALLING PROGRAM IS ******* @H@@@Q. ****KA )@@G@@**** BEING ASSEMBLED. ******* KB )@@G@@@H@@@Q. ******** KC )@@G@@ ******* @H@@@Q. ****************************************************KD )@@G@@********************** @D@@@QLIPROC$* $PROC 0 . MAKE )@@G@@STER PROC @D@@@QLIPROCS* $NAME . ALTERNATE NAMEKF )@@G@@@H@T@Q AXR$ . STANDARD ASSEMBLER REGISTEKG )@@G@@R NAMES @H@@@T $INCLUDE 'MAXR$/' . STANDARD ASSEMKH )@@G@@BLER REGISTER NAMES @H@@@Q. ****************************************KI )@@G@@********************************** @H@@@Q. ******** CHECK XQT OPTION $PKJ )@@G@@ROC- ISOLATES BIT CORR. TO INPUT LETTER******* @H@@@Q. ******** KK )@@G@@ ******* @H@@@Q. ****KL )@@G@@**** E.G. TOPT 'U' = AND A0,(000000000040) ******* KM )@@G@@@H@@@Q. ******** TOPT A2,'U' = AND A2,(000000000040) KN )@@G@@ ******* @H@@@Q. ******** AOPT 'U' = AND A0,(000000000040) KO )@@G@@ ******* @H@@@Q. ******** AOPT A2,'U' = AND A2,(000KP )@@G@@000000040) ******* @H@@@Q. ******** SOPT 'U' =KQ )@@G@@ TOP A0,(000000000040) ******* @H@@@Q. ******** SKR )@@G@@OPT A2,'U' = TOP A2,(000000000040) ******* @H@@@Q. ****KS )@@G@@**** GOPT 'U' = ER OPT$ ******* KT )@@G@@@H@@@Q. ******** AND A0,(000000000040) KU )@@G@@ ******* @H@@@Q. ****************************************************KV )@@G@@********************** @#@@@QP $PROC @^@@@QTOPT** $NAME KW )@@G@@ 0 @^@@@QAOPT** $NAME 0 @^@@@QGOPT** $NAME 1 @^@@@QKX )@@G@@SOPT** $NAME 2 @A@@@Q $DO P(0,0)=1 , ER OPT$ @F@@@QKY )@@G@@ $DO (P(0,0)<2)**(P(1)=1) , AND A0,(1*/('Z'-P(1,1))) @F@@@QKZ )@@G@@ $DO (P(0,0)=0)**(P(1)>1) , AND P(1,1),(1*/('Z'-P(1,2))) @F@@@QLA )@@G@@ $DO (P(0,0)=2)**(P(1)=1) , TOP A0,(1*/('Z'-P(1,1))) @F@@@QLB )@@G@@ $DO (P(0,0)=2)**(P(1)>1) , TOP P(1,1),(1*/('Z'-P(1,2))) @#@@@QLC )@@G@@ $END @[@@@Q. @H@@@Q. **********************************LD )@@G@@**************************************** @H@@@Q. ******** FORTRAN CALL LE )@@G@@$PROC ******* @H@@@Q. ******** LF )@@G@@ ******* @H@@@QLG )@@G@@. ******** CALL SUBR A,B,C,D = LMJ X11,SUBR ***LH )@@G@@**** @H@@@Q. ******** + A LI )@@G@@ ******* @H@@@Q. ******** + B LJ )@@G@@ ******* @H@@@Q. ******** + C LK )@@G@@ ******* @H@@@Q. ******** LL )@@G@@ + D ******* @H@@@Q. ******** LM )@@G@@ + 0 ******* @H@@@QLN )@@G@@. **********************************************************************LO )@@G@@**** @#@@@QCALL** $PROC @A@@@Q LMJ X11,CALL(1,1) LP )@@G@@@A@@@QI $DO CALL(2) , + CALL(2,I) @^@@@Q + 0 LQ )@@G@@@#@@@Q $END @[@@@Q. @H@@@Q. ****************************LR )@@G@@********************************************** @H@@@Q. ******** INFOR TLS )@@G@@ABLE INTERFACE PROCS - AIDS IN USING RINF$, SELT$ ******* @H@@@Q. ****LT )@@G@@**** AND DUSE$ SUBROUTINES ******* LU )@@G@@@H@@@Q. ******** LV )@@G@@ ******* @H@@@Q. ******** R$INF - CALLS 'RINF$' AND INVOKES 'ELT$' LW )@@G@@ ******* @H@@@Q. ******** S$ELT - CALLS 'SELT$' WITH PARALX )@@G@@METER # ******* @H@@@Q. ******** D$USE - CALLS 'DUSELY )@@G@@$' WITH FILE$NAME(MAY BE R.J.) ******* @H@@@Q. ****************LZ )@@G@@********************************************************** @H@@@QP MA )@@G@@ $PROC 1 . A PARAMETER SPECIFIES # OF XQT PARAMETERS EXPECTED,MB )@@G@@@D@@@QR$INF** $NAME . OTHERWISE 3 ASSUMED @F@@@Q MC )@@G@@ $LEVEL 0,1,0 . MAKE ELT$ LABELS GLOBAL @E@@@Q MD )@@G@@ ELT$ . INVOKE 'ELT$' PROC @F@@@Q $LME )@@G@@EVEL 0,0,0 . RETURN TO NORMAL LEVELING @B@@@QNN $EMF )@@G@@QU 28*(3*(P=1)+P(1,1)) @A@@@Q L A0,(NN,INF) MG )@@G@@@ @@@Q LMJ X11,RINF$ @^@@@Q J ERR @^@@@QMH )@@G@@ J CONT@^@@@QINF RES NN @ @@@QERR ERMI )@@G@@ PRINT$ @ @@@Q ER EXIT$ @]@@@QCONT . MJ )@@G@@@#@@@Q $END @^@@@QP $PROC 1 @#@@@QS$ELT** $NMK )@@G@@AME @A@@@Q $DO P(1)>0 , L,U A0,P(1,1)@^@@@Q LMJ X11,ML )@@G@@SELT$ @#@@@Q $END @^@@@QP $PROC 1 @#@@@QD$USE*MM )@@G@@* $NAME @C@@@Q $DO P(1)>0 , DL A0,($CFS(P(1,1)DL)) @ @@@QMN )@@G@@ LMJ X11,DUSE$ @#@@@Q $END @[@@@Q. @H@@@QMO )@@G@@. **********************************************************************MP )@@G@@**** @H@@@Q. ******** SOURCE OUTPUT PROCS - AIDS IN USING SSOR, SOR, ANMQ )@@G@@D ESOR ******* @H@@@Q. ******** SUBROUTINES MR )@@G@@ ******* @H@@@Q. ******** MS )@@G@@ ******* @H@@@Q. ******** S$SOR - SETS MT )@@G@@UP 'PARTBL', ASSIGNS FILE AND CALLS 'SSOR' ******* @H@@@Q. ******** MU )@@G@@ P(1,1) = FILE $NAME(MAY BE R.J.) ******* @H@@@QMV )@@G@@. ******** P(1,2) = ELEMENT $NAME(MAY BE R.J.) ***MW )@@G@@**** @H@@@Q. ******** P(1,3) = VERSION $NAME(MAY BE R.J.) MX )@@G@@ ******* @H@@@Q. ******** P(0,1) = 1, IF NOT FIRST TIMEMY )@@G@@ CALLED ******* @H@@@Q. ******** S$OR - CALLS 'SOR' MZ )@@G@@ ******* @H@@@Q. ******** P(1,1NA )@@G@@) = (NWDS,ADDR) ******* @H@@@Q. ******** NB )@@G@@ P(1,1),P(1,2) = ADDR,NWDS ******* @H@@@QNC )@@G@@. ******** E$SOR - CALLS 'ESOR' ***ND )@@G@@**** @H@@@Q. **********************************************************NE )@@G@@**************** @^@@@QP $PROC 1 @#@@@QS$SOR** $NAME NF )@@G@@@A@@@Q $DO P(0,1)=0 , GO CONT1 @B@@@Q DL A0,(NG )@@G@@$CFS(P(1,1)DL)) @A@@@Q DS A0,PARTBL+27 @B@@@Q NH )@@G@@ DL A0,($CFS(P(1,2)DL)) @A@@@Q DS A0,PARTBL+NI )@@G@@29 @C@@@Q $DO P(1)>2 , DL A0,($CFS(P(1,3)DL)) @B@@@Q NJ )@@G@@ $DO P(1)>2 , DS A0,PARTBL+33 @#@@@QCONT1 $NAME @A@@@Q NK )@@G@@ L A0,(3,PARTBL+26)@^@@@Q ER CSF$@ @@@Q NL )@@G@@ LMJ X11,SSOR$ @^@@@Q ER ERR$@ @@@Q $DNM )@@G@@O P(0,1) , $END @^@@@Q J CONT@^@@@QPARTBL** RES NN )@@G@@ 26 @#@@@Q '@ASG' @^@@@Q $CFS(P(1,1)DL)@^@@@Q NO )@@G@@ $CFS(P(1,2)DL)@^@@@Q RES 2 @^@@@Q $CFS(P(1NP )@@G@@,3)DL)@^@@@Q RES 8 @]@@@QCONT . @#@@@Q $ENQ )@@G@@ND @^@@@QP $PROC 1 @#@@@QS$OR** $NAME @A@@@Q NR )@@G@@ $DO P(1)=1 , L A0,P(1,1) @C@@@Q $DO P(1)=2 , L A0,(P(1,2),NS )@@G@@P(1,1)) @ @@@Q LMJ X11,SOR$ @^@@@Q ER NT )@@G@@ ERR$@#@@@Q $END @^@@@QE$SOR** $PROC 0 @ @@@Q NU )@@G@@ LMJ X11,ESOR$ @^@@@Q ER ERR$@#@@@Q $ENV )@@G@@ND @H@@@Q. **********************************************************NW )@@G@@**************** @H@@@Q. ******* TEST FACILITY FOR MASM ELEMENTS NX )@@G@@ ******* @H@@@Q. ******* NY )@@G@@ ******* @H@@@Q. ******* IF @MASM,T USENZ )@@G@@D, FACILITY IS PROCED ON AND IF T2 OF ******* @H@@@Q. ******* RUOA )@@G@@N CONDITION WORD IS = 2 (@SETC 2), SNOOPY IS TURNED ON ******* @H@@@QOB )@@G@@. ******* ***OC )@@G@@**** @H@@@Q. **********************************************************OD )@@G@@**************** @#@@@QTEST** $PROC @G@@@QMASMT* $EQU $PAROE )@@G@@(0)**(1*/('Z'-'T')) . TEST MODE IF @MASM,T USED @C@@@RLCN $EQU OF )@@G@@ $LCN . SAVE LC @ @@@Q $IF MASMT @G@@@QOG )@@G@@ J CONT1 . JUMP TO ANOTHER LOCATION COUNTEROH )@@G@@@B@@@R$(0) '*TEST*' . FOR IDONLY$ USE @]@R@Q$($LCN+2) @]@@@ROI )@@G@@$(LCN+2) @^@@@QSAVE $RES 2 @D@@@QCONT1 DS A0,SOJ )@@G@@AVE . SAVE A0,A1 @E@@@Q COND$ OK )@@G@@ . GET CONDITION WORD @D@@@Q AND A0,(0770000) . ISOL )@@G@@OLATE T2 @F@@@Q TNE A1,(020000) . IF = 2, TURN OOM )@@G@@N SNOOPY @^@@@Q SLJ TON$@D@@@Q DL A0,SON )@@G@@AVE . RESTORE A0,A1 @H@@@Q J CONT2 OO )@@G@@ . JUMP BACK TO ORIGINAL LOCATION COUNTER@#@R@Q$($LCN-2),CONT2 @#@T@ROP )@@G@@$(LCN-2),CONT2 @]@@@T$(LCN),CONT2@#@@@R $ELSE @#@@@R$(0) OQ )@@G@@ ' '@[@@@R$(LCN)@#@@@Q $ENDF @#@@@Q $END OR )@@G@@@#@@@Q $END _@@@@@(1,1)DL)) @A@@@Q DS A0,POS )@@G@@ARTBL+27 @B@@@Q DL A0,($CFS(P(1,2)DL)) @A@@@Q OT )@@G@@ DS A0,PARTBL+*[S@@@*SDFF*@#@@@DIDBUFF '1R2' @H@@@C. ****OU )@@G@@*********************************************************************** OV )@@G@@@H@@@C. ******* OW )@@G@@ ******* @H@@@C. ******* TDATE TIME DIFFERENCE SUBROUTINE OX )@@G@@ ******* @H@@@C. ******* OY )@@G@@ ******* @H@D@C. ******* WRITTEN BY LOU INFELOZ )@@G@@D, 10/07/77 ******* @H@@@D. ******* WRITTEN PA )@@G@@BY LOU INFELD, 10/07/77 (1R1) ******* @H@@@D. ****PB )@@G@@*** UPDATED BY LOU INFELD, 11/01/78 (1R2) ******* PC )@@G@@@H@@@C. ******* PD )@@G@@ ******* @H@@@C. ******* THIS SUBROUTINE WILL CALCULATE THE TIME DIFFPE )@@G@@ERENCE ******* @H@@@C. ******* IN SECONDS BETWEEN TWO TIMES EXPPF )@@G@@RESSED IN 'TDATE$' FORMAT. ******* @H@@@C. ******* PG )@@G@@ ******* @H@@@C. ******* INPUTS APH )@@G@@RE IN A0 & A1 AND OUTPUT IS IN A2. A2=A1-A0. ******* @H@@@C. ****PI )@@G@@*** ******* PJ )@@G@@@H@@@D. ******* IF ENTRY 'ATDATE' IS USED, THE MINUTES IN A0 ARE ADDED PK )@@G@@ ******* @H@@@D. ******* TO THE TIME/DATE (IN TDATE$ FORMAT) IN A1 REPL )@@G@@SULTING IN ******* @H@@@D. ******* A NEW TIME/DATE (IN TDATE$ FORMAPM )@@G@@T) IN A0. ******* @H@@@D. ******* PN )@@G@@ ******* @H@@@D. ******* REVISIONPO )@@G@@ SUMMARY: ******* @H@@@D. ****PP )@@G@@*** ---------------- ******* PQ )@@G@@@H@@@D. ******* PR )@@G@@ ******* @H@@@D. ******* 1R1 -- ORIGINAL RELEASE PS )@@G@@ ******* @H@@@D. ******* 1R2 -- ADD ATDATE ENTRY PT )@@G@@ ******* @H@@@D. ******* PU )@@G@@ ******* @H@@@C. ****************PV )@@G@@************************************************************@#@@@C$(1) PW )@@G@@ AXR$ @E@@@CDTDATE* + 0 . 'SLJ DTDATE' CPX )@@G@@ALL @D@@@C DS A0,DTDIN . SAVE INPUT @H@@@CPY )@@G@@ L,H1 A2,DTDIN . CHECK IF MMDDYY SAME FOR BOTH TIPZ )@@G@@MES @ @@@C TE,H1 A2,DTDIN+1@D@@@C J DTDCQA )@@G@@ON1 . NO, TOO BAD @F@@@C L A2,A1 QB )@@G@@ . YES, EASY CALCULATION @ @@@C AN A2,A0 @C@@@CQC )@@G@@ J *DTDATE . ALL DONE@G@@@CDTDCON1 SLJ QD )@@G@@ DTDSUB . CONVERT TO SECS SINCE 1964, D.P.@E@@@C S QE )@@G@@ A0,DTDTEMP . SAVE CONVERTED TIME @ @@@C L QF )@@G@@ A0,DTDIN+1@G@@@C SLJ DTDSUB . CONVERT TO SECQG )@@G@@S SINCE 1964, D.P.@E@@@C AN A0,DTDTEMP . CALCULATQH )@@G@@E DIFFERENCE@E@@@C L A2,A0 . GET OUTPUT REAQI )@@G@@DY @D@@@C DL A0,DTDIN . RESTORE INPUT @C@@@CQJ )@@G@@ J *DTDATE . DONE @H@@@C. ****************QK )@@G@@********************************************************** @H@@@C. ****QL )@@G@@***** CONVERT TDATE$ TO SECONDS SINCE 1964 ******* QM )@@G@@@H@@@C. ****************************************************************QN )@@G@@********** @^@@@CDTDSUB + 0 @D@@@C S A0,DQO )@@G@@TDTEMP+1 . SAVE INPUT @^@@@C SZ A2 @C@@@C QP )@@G@@ L,S3 A3,DTDTEMP+1 . YEAR @ @@@C JZ A3,DQQ )@@G@@TDSC1 @^@@@C AN,U A3,1@ @@@C L A0,A3 QR )@@G@@@E@@@C DI,U A2,4 . CHECK FOR LEAP YEARS@^@@@CQS )@@G@@ A,U A2,1@A@@@C MSI,U A2,60*60*24 @B@@@CQT )@@G@@ MSI A0,(60*60*24*365) @ @@@C A A0,AQU )@@G@@2 @C@@@CDTDSC1 L,S1 A2,DTDTEMP+1 . MONTH @^@@@C QV )@@G@@ AN,U A2,1@A@@@CDTDSC2 A A0,DTDTAB,A2 @ @@@C QW )@@G@@ JGD A2,DTDSC2 @C@@@C L,S2 A2,DTDTEMP+1 . DAQX )@@G@@Y @^@@@C AN,U A2,1@E@@@C MSI,U A2,60*60*2QY )@@G@@4 . CONVERT TO SECS @D@@@C A A0,A2 QZ )@@G@@ . ADD TO TOTAL @G@@@C L,S3 A3,DTDTEMP+1 . IF LEAPRA )@@G@@ YEAR AND MONTH>FEB, @H@@@C AND,U A3,3 . RB )@@G@@ ADD AN EXTRA DAY TO CALCULATION @ @@@C JNZ A4,DTDSC3 RC )@@G@@@A@@@C L,S1 A3,DTDTEMP+1 @^@@@C TLE,U A3,3RD )@@G@@@ @@@C J DTDSC3 @A@@@C A,U A0,60*60*2RE )@@G@@4 @C@@@CDTDSC3 L,H2 A2,DTDTEMP+1 . SECS @D@@@C RF )@@G@@ A A0,A2 . ADD TO TOTAL @C@@@C J RG )@@G@@ *DTDSUB . RETURN @E@@@DATDATE* + 0 RH )@@G@@ . 'SLJ ATDATE' ENTRY @G@@@D TG,U A0,60*24*30 . CHRI )@@G@@ECK FOR MAX MINUTES (1 MONTH) @C@@@D J ATDATERR RJ )@@G@@ . ERROR @E@@@D S A1,DTDTEMP . SAVE TDATE INPRK )@@G@@UT @G@@@D MSI,U A0,60 . CONVERT MINUTES INPURL )@@G@@T TO SECONDS@D@@@D A,H2 A0,DTDTEMP . ADD TDATE SECSRM )@@G@@@D@@@D TLE,U A0,60*60*24 . IS > 24 HRS? @B@@@D RN )@@G@@ J ATDATE2 . NO@F@@@D DSL A0,36 RO )@@G@@ . CONVERT TO DAYS & SECS @A@@@D DI,U A0,60*60*2RP )@@G@@4 @ @@@D DSC A0,36 @C@@@D A,S2 A1,DRQ )@@G@@TDTEMP . DAY @C@@@D L,S1 A2,DTDTEMP . MORR )@@G@@NTH @C@@@D L,S3 A3,DTDTEMP . YEAR @^@@@D RS )@@G@@ SZ A4 @E@@@D L A5,DTDTAB,A2 . GET DAYSRT )@@G@@ IN MONTH @A@@@D DI,U A4,60*60*24 @G@@@D TLRU )@@G@@E A1,A4 . IS DAYS > # OF DAYS IN MONTH @B@@@D RV )@@G@@ J ATDATE1 . NO@G@@@D AN A1,A4 RW )@@G@@ . YES, SUBTRACT # OF DAYS IN MONTH@F@@@D A,U A2,1RX )@@G@@ . INCREMENT MONTHS BY 1 @D@E@D TLE,U A2,1RY )@@G@@2 . IS MONTH > 12?@D@@@E TLE,U A2,13 RZ )@@G@@ . IS MONTH > 12?@B@@@D J ATDATE1 . NO@E@G@DSA )@@G@@ AN,U A2,1 . YES, SUBTRACT 12 @E@@@G SB )@@G@@ AN,U A2,12 . YES, SUBTRACT 12 @E@@@D A,SC )@@G@@U A3,1 . INCREMENT YEAR BY 1 @D@@@DATDATE1 S,S2 SD )@@G@@ A1,DTDTEMP . STORE DAYS @D@@@D S,S1 A2,DTDTEMPSE )@@G@@ . STORE MONTHS @D@@@D S,S3 A3,DTDTEMP . STSF )@@G@@ORE YEAR @D@@@DATDATE2 LXI,H1 A0,DTDTEMP . PREPARE OUTPUTSG )@@G@@@E@@@D J *ATDATE . RETURN TO CALLER @B@@@DSH )@@G@@ATDATERR PRINT$ ATDATEMSG,NATDATEMSG,2@#@@@D ERR$ @[@@@DSI )@@G@@$(0) @F@@@DATDATEMSG 'INPUT MINUTES TOO LARGE FOR ATDATE (MAX = 1 MONTHSJ )@@G@@)' @D@@@DNATDATEMSG EQU $-ATDATEMSG @C@@@CSK )@@G@@DTDIN RES 2 . INPUT @^@@@CDTDTEMP RES SL )@@G@@ 2 @^@D@CDTDTAB + 0 @^@F@DDTDTAB + 0 @E@@@FSM )@@G@@DTDTAB + 0 . SECS IN MONTH TABLE @A@F@C SN )@@G@@ + 60*60*24*31 @C@@@F + 60*60*24*31 SO )@@G@@ . JANUARY @A@F@C + 60*60*24*28 @C@@@F + SP )@@G@@ 60*60*24*28 . FEBRUARY@A@F@C + 60*60*24*3SQ )@@G@@1 @C@@@F + 60*60*24*31 . MARCH @A@F@C SR )@@G@@ + 60*60*24*30 @C@@@F + 60*60*24*30 SS )@@G@@ . APRIL @A@F@C + 60*60*24*31 @C@@@F + ST )@@G@@ 60*60*24*31 . MAY @A@F@C + 60*60*24*3SU )@@G@@0 @C@@@F + 60*60*24*30 . JUNE @A@F@C SV )@@G@@ + 60*60*24*31 @C@@@F + 60*60*24*31 SW )@@G@@ . JULY @A@F@C + 60*60*24*31 @C@@@F + SX )@@G@@ 60*60*24*31 . AUGUST @A@F@C + 60*60*24*3SY )@@G@@0 @D@@@F + 60*60*24*30 . SEPTEMBER @A@F@CSZ )@@G@@ + 60*60*24*31 @C@@@F + 60*60*24*3TA )@@G@@1 . OCTOBER @A@F@C + 60*60*24*30 @C@@@F TB )@@G@@ + 60*60*24*30 . NOVEMBER@C@@@F + 60*6TC )@@G@@0*24*31 . DECEMBER@#@@@C END ___INCE 1964, D.P.@E@@@CTD )@@G@@ AN A0,DTDTEMP . CALCULAT)@@@C@)@@[]K0@K0@K0@K@K@TE )@@G@@/K@K@@P#)@@GR#)@@H/K@@@C%C)@@FRF)@@E9*@@@E@@@@@@1R2 AA@@@@)@C[F@K0@K0@TF )@@G@@K^G@[#@[@@@@@@@@@@/K@K@@9?@@@ER#)@@GP#@@@G'^@@@KR#@@@FA#@@@G'^@@@KAB@@@@TG )@@G@@)@L[N#@@K0@K@@K0@@T@@@@VT8)PA@O;)@@[W8)@@^R#@@@JP;0@@[/@0@@WR\0@@H @@@@ITH )@@G@@A#@@@HAC@@@@)@V[EK0@^G@^[#@@@@@@@@@@O#@@@IT8)PA@P;)@@[R3)@@H8#)@@YO#I@@ITI )@@G@@P;)@@[R7)@@HO#@@@IAD@@@@)@=[F#@@K^G@[@^G@@@@@@@@O#@@@IRB)@@HO;@PA@/K@@@:TJ )@@G@@?80@@#R70@@H/ @@@:+80@@#R\0@@HAE@@@@)@![N@[@K0@^G@[@@@;G@@@=/K@@[E?8@PA@TK )@@G@@OB@@@GT8@@@/A#K@@G/K@@[G!8@E<@@@@@@@/K@K@KAF@@@@)@7[E^G@^G@^G@[#@@@@@@@@TL )@@G@@?@K@@KW9@PA@C[Y@@I @@@@KR\0@@GR7)@@GO3K@@G;^@@@=W8@PA@AG@@@@)[@[F@@K@K0@TM )@@G@@K0@@@@@@@@@@A7)@@GA3K@@GO;0@@[P;)@@G/K@@[B?8)@@HO;)@@[P#K@@K/K@@[BAH@@@@TN )@@G@@)[D@3#@[#@[@K0@K)@K)[@@@)@[@K@MINUTEINPUT '=@@@@'=@@@@C@@@@W/K@K@,&F@@@GTO )@@G@@A\0@@GAI@@@@)@#@8@@@@@@@)@I@S@@@DI*@@@EH'@@@@@@@H) 1 MONTMAX = DATE (TP )@@G@@FOR ATLARGE S TOO AJ@@@@)@L[S@@@@@@@@[8NI@@@EH'@@@D84@@@EH'@@@D84@@@EH'@TQ )@@G@@@@EH'@@@D84@@@EH'@@@D84@@@EH'@AK@@@@)@W@C*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]D@@[AL@@@@@@^@@]@@A@@]@@E@@]@@M@@@TS )@@G@@@@@@@X@@@@[JPRINT$ ERR$ DTDATE @@[@@@@@@@@@ATDATE TT )@@G@@@@[@@@@@@@@,>0) , LA 12,(F P(1,3)+(P(1)<3),(22+11*P(0,0))*(P(1)<2)+P(1,2TU )@@G@@*[S@@@*SDFF*@H@@@C. ****************************************************TV )@@G@@********************** @H@@@C. ******* BYTE MANIPULATION SUBRTW )@@G@@OUTINES ******* @H@D@C. ******* (BYTETX )@@G@@SUB 2R2) ******* @H@@@D. ******* TY )@@G@@ (BYTESUB 2R3) ******* @H@@@C. ****TZ )@@G@@*** ******* UA )@@G@@@H@@@C. ******* WRITTEN BY LOU INFELD, 12/16/77 (1R1) UB )@@G@@ ******* @H@@@C. ******* UPDATED BY LOU INFELD, 02/22/79 (1R2) UC )@@G@@ ******* @H@@@C. ******* UPDATED BY LOU INFELD, 06/07/79 UD )@@G@@ (1R3) ******* @H@@@C. ******* UPDATED BY LOU INFELUE )@@G@@D, 01/21/80 (1R4) ******* @H@@@C. ******* UPDATED UF )@@G@@BY LOU INFELD, 02/01/80 (1R5) ******* @H@@@C. ****UG )@@G@@*** UPDATED BY LOU INFELD, 02/06/80 (1R6) ******* UH )@@G@@@H@@@C. ******* UPDATED BY LOU INFELD, 02/20/80 (2R1) UI )@@G@@ ******* @H@@@C. ******* UPDATED BY LOU INFELD, 02/27/80 (2R2) UJ )@@G@@ ******* @H@@@D. ******* UPDATED BY LOU INFELD, 03/14/80 UK )@@G@@ (2R3) ******* @H@@@C. ******* UL )@@G@@ ******* @H@F@C. ******* 1) THESEUM )@@G@@ SUBROUTINES ARE DESIGNED FOR USE ON A 1110 ******* @H@@@F. ****UN )@@G@@*** 1) THESE SUBROUTINES ARE DESIGNED FOR USE ON A 1100/80 ******* UO )@@G@@@H@F@C. ******* TYPE COMPUTER HAVING BYTE MANIPULATION HARDWARE. UP )@@G@@ ******* @H@@@F. ******* TYPE COMPUTER TO SIMPLIFY BYTE MANIPULATIUQ )@@G@@ON. ******* @H@@@C. ******* 2) THE GLOBAL TAG 'BASCII' DETERUR )@@G@@MINES WHETHER INPUT ******* @H@@@C. ******* STRINGS ARE ASCIIUS )@@G@@ (=1) OR FIELDATA (=0). IN THE ******* @H@@@C. ******* CASE UT )@@G@@WHERE 2 INPUT STRINGS ARE SPECIFIED, H1 OF ******* @H@@@C. ****UU )@@G@@*** 'BASCII' REFLECTS THE 1ST STRING (ADDRESS IN X1) ******* UV )@@G@@@H@@@C. ******* AND H2 OF 'BASCII' REFLECTS THE 2ND STRING (ADDRESS UW )@@G@@ ******* @H@@@C. ******* IN X2). IF H1 AND H2 ARE DIFFERENT, CONVUX )@@G@@ERSION ******* @H@@@C. ******* IS AUTOMATICALLY PERFORMED. NUY )@@G@@OTE VALUES OTHER THAN ******* @H@E@C. ******* '0' OR '1' IN BASUZ )@@G@@CII WILL CAUSE UNDETERMINED RESULSTS. ******* @H@@@E. ******* '0' OVA )@@G@@R '1' IN BASCII WILL CAUSE UNDETERMINED RESULTS. ******* @H@@@C. ****VB )@@G@@*** 3) BYTE NUMBERS START AT 0. ******* VC )@@G@@@H@@@C. ******* VD )@@G@@ ******* @H@@@C. ******* REVISION SUMMARY VE )@@G@@ ******* @H@@@C. ******* ---------------- VF )@@G@@ ******* @H@@@C. ******* VG )@@G@@ ******* @H@@@C. ******* 1R1 -- VH )@@G@@ORIGINAL RELEASE ******* @H@@@C. ****VI )@@G@@*** 1R2 -- SAVE R1 IN BSEARCH ******* VJ )@@G@@@H@@@C. ******* -- ADD SEARCH NOT EQUAL FACILITY TO BSEARCH VK )@@G@@ ******* @H@@@C. ******* -- OUTPUT BYTE # OF START OF FIELD IN GVL )@@G@@ETFIELD ******* @H@@@C. ******* -- ALLOW ASCII BYTES IN ALLVM )@@G@@ SUBROUTINES ******* @H@@@C. ******* -- COMBINE BASEVN )@@G@@ ADDRESS AND BYTE # IN ONE INPUT ******* @H@@@C. ******* VO )@@G@@REGISTER ******* @H@@@C. ****VP )@@G@@*** -- BYTE COMPARE SUBROUTINE ADDED ******* VQ )@@G@@@H@@@C. ******* 1R3 -- FINDFIELD SUBROUTINE ADDED VR )@@G@@ ******* @H@@@C. ******* -- BGET SUBROUTINE ADDED VS )@@G@@ ******* @H@@@C. ******* -- BYTE COMPARE SUBROUTINE VT )@@G@@INPUTS CHANGED ******* @H@@@C. ******* -- BSEARCH AND VU )@@G@@STUFF SUBROUTINES STREAMLINED ******* @H@@@C. ******* -- VV )@@G@@CONVERTED TO MASM FORMAT ******* @H@@@C. ****VW )@@G@@*** 1R4 -- SAVE A1 IN FINDFIELD ******* VX )@@G@@@H@@@C. ******* -- DON'T SAVE A2 IN BMOVE VY )@@G@@ ******* @H@@@C. ******* -- EXPAND SUBROUTINES TO PERFORM AUTO CVZ )@@G@@ONVERSION ******* @H@@@C. ******* -- BYTE BLANK SUBROUTINE ADWA )@@G@@DED ******* @H@@@C. ******* -- CHANGE DEFINWB )@@G@@ITION OF R1 FOR 'BSEARCH' & 'GETFIELD' ******* @H@@@C. ******* -- WC )@@G@@STREAMLINE 'FINDFIELD' ******* @H@@@C. ****WD )@@G@@*** -- CHANGE OUTPUT OF 'FINDFIELD' ******* WE )@@G@@@H@@@C. ******* 1R5 -- UPGRADE 'BINT' TO HANDLE OCTAL AND NEGATIVE WF )@@G@@ ******* @H@@@C. ******* INTEGERS WG )@@G@@ ******* @H@@@C. ******* -- UPGRADE 'GETFIELD' TO HAWH )@@G@@NDLE SUBFIELDS AS WELL ******* @H@@@C. ******* AS FIELDS (DWI )@@G@@ELINEATED BY ','S) ******* @H@@@C. ******* -- WJ )@@G@@CHANGE 'BINT' TO HAVE ERROR EXIT ******* @H@@@C. ****WK )@@G@@*** -- BYTE TDATE SUBROUTINE ADDED ******* WL )@@G@@@H@@@C. ******* -- CHANGE OUTPUT OF 'GETFIELD' WM )@@G@@ ******* @H@@@C. ******* 1R6 -- BYTE FILE-NAME SUBROUTINE ADDED WN )@@G@@ ******* @H@@@C. ******* -- ALLOW 'BTDATE' TO HANDLEWO )@@G@@ ASCII ******* @H@@@C. ******* 2R1 -- FIX BUG IN 'WP )@@G@@BFILE' ******* @H@@@C. ******* 2R2 -- WQ )@@G@@GET SUBFIELD SUBROUTINE ADDED ******* @H@@@D. ****WR )@@G@@*** 2R3 -- ASCII BUG IN GETFIELD & GETSFIELD FIXED ******* WS )@@G@@@H@@@C. ******* WT )@@G@@ ******* @H@@@C. ****************************************************WU )@@G@@********************** @#@@@C$(1) AXR$ @H@C@B. ****************WV )@@G@@********************************************************** @H@C@B. ****WW )@@G@@*** BYTE MOVE SUBROUTINE (FIELDATA) ******* WX )@@G@@@H@C@B. ******* WY )@@G@@ ******* @H@C@B. ******* INPUT: X1 - INPUT BASE ADDRESS WZ )@@G@@ ******* @H@C@B. ******* X2 - OUTPUT BAXA )@@G@@SE ADDRESS ******* @H@C@B. ******* A0XB )@@G@@ - # OF BYTES TO MOVE ******* @H@C@B. ******* XC )@@G@@ A1 - BYTE # OF INPUT (0-FIRST) ******* @H@C@B. ****XD )@@G@@*** A2 - BYTE # OF OUTPUT ******* XE )@@G@@@H@C@B. ******* XF )@@G@@ ******* @H@C@B. ****************************************************XG )@@G@@********************** @^@C@BBMOVE* + 0 @E@C@B DSXH )@@G@@ A3,SAVE . SAVE REGISTERS USED @ @C@B L XI )@@G@@ A4,A1 @^@C@B SZ A3 @G@C@B DI,U A3,6XJ )@@G@@ . CALC WD # AND BYTE # OF INPUT @ @C@B LSSL XK )@@G@@ A4,33 @^@C@B LDSL A3,3@ @C@B LXI,U A3,0XL )@@G@@600001@ @C@B L J0,A3 @ @C@B L A4,AXM )@@G@@2 @^@C@B SZ A3 @G@C@B DI,U A3,6 XN )@@G@@ . CALC WD # AND BYTE # OF OUTPUT @ @C@B LSSL A4,3XO )@@G@@3 @^@C@B LDSL A3,3@ @C@B LXI,U A3,0600001XP )@@G@@@ @C@B L J1,A3 @ @C@B L,U SR1,0 XQ )@@G@@@ @C@B L,U SR2,0 @ @C@B L A3,A0 XR )@@G@@@^@C@B LSSL A3,9@ @C@B A A3,A0 @ @C@BXS )@@G@@ LSSL A3,18 @ @C@B L SR3,A3 @^@C@BXT )@@G@@ BM 0,X1@F@C@B DL A3,SAVE . REXU )@@G@@STORE REGISTERS USED @C@C@B J *BMOVE . REXV )@@G@@TURN @[@@@C. @H@@@C. **********************************************XW )@@G@@**************************** @H@@@C. ******* BYTE MOVE SUBROUTINE XX )@@G@@ ******* @H@@@C. ******* XY )@@G@@ ******* @H@@@C. ******* INXZ )@@G@@PUT: X1 - (BYTE #,INPUT BASE ADDRESS) ******* @H@@@CYA )@@G@@. ******* X2 - (BYTE #,OUTPUT BASE ADDRESS) ***YB )@@G@@**** @H@@@C. ******* A0 - # OF BYTES TO MOVE YC )@@G@@ ******* @H@@@C. ******* YD )@@G@@ ******* @H@@@C. ******* CALLING SEQUENCE: LMJ X11,YE )@@G@@BMOVE ******* @H@@@C. ******* YF )@@G@@ ******* @H@@@C. **********YG )@@G@@**************************************************************** @[@@@CYH )@@G@@BMOVE*@E@@@C DS A1,SBMOVE . SAVE REGISTERS USED YI )@@G@@@A@@@C S X3,SBMOVE+2 @ @@@C L,H1 A2,BYJ )@@G@@ASCII @ @@@C L A1,X1 @D@@@C SLJ STUFYK )@@G@@F . GENERATE J0 @ @@@C L J0,A1 @ @@@CYL )@@G@@ L,H2 A2,BASCII @ @@@C L A1,X2 @D@@@CYM )@@G@@ SLJ STUFF . GENERATE J1 @ @@@C L YN )@@G@@ J1,A1 @ @@@C L J2,(1*/35)@ @@@C L,YO )@@G@@U SR1,0 @ @@@C L,U SR2,0 @ @@@C L YP )@@G@@ A1,A0 @^@@@C LSSL A1,9@ @@@C A YQ )@@G@@ A1,A0 @ @@@C LSSL A1,18 @ @@@C L YR )@@G@@ SR3,A1 @E@@@C L,H1 A1,BASCII . GET INPUT ASCIYS )@@G@@I KEY @H@@@C L,U X3,*CONVT,A1 . GET CORRESPONDING TRYT )@@G@@ANSLATE TABLE @G@@@C XOR,H2 A1,BASCII . COMPARE YU )@@G@@TO OUTPUT ASCII KEY @H@@@C EX BMOVET,A2 . DOYV )@@G@@ 'BM' IF KEYS =, OTHERWISE DO 'BMT' @F@@@C DL A1,SBMOVE YW )@@G@@ . RESTORE REGISTERS USED @A@@@C L X3,SBMOVE+YX )@@G@@2 @C@@@C J 0,X11 . RETURN @[@@@C. YY )@@G@@@H@@@B. ****************************************************************YZ )@@G@@********** @H@@@C. ******* BYTE GET SUBROUTINE ZA )@@G@@ ******* @H@@@C. ******* ZB )@@G@@ ******* @H@@@C. ******* INPUT: X1 - (BYTE #ZC )@@G@@,INPUT BASE ADDRESS) ******* @H@@@C. ******* OUTPUT: ZD )@@G@@A0 - BYTE ******* @H@@@C. ****ZE )@@G@@*** ******* ZF )@@G@@@H@@@C. ******* CALLING SEQUENCE: LMJ X11,BGET ZG )@@G@@ ******* @H@@@C. ******* ZH )@@G@@ ******* @H@@@C. ****************************************ZI )@@G@@********************************** @[@@@CBGET* @E@@@C DS ZJ )@@G@@ A1,SBGET . SAVE REGISTER USED @F@@@C SPD A0 ZK )@@G@@ . TURN ON CHARACTER MODE @^@@@C OR,U A0,1ZL )@@G@@@^@@@C LPD 0,A1@ @@@C L A2,BASCII @ @@@CZM )@@G@@ L A1,X1 @D@@@C SLJ STUFF ZN )@@G@@ . GENERATE J0 @ @@@C S A1,J0 @C@@@C L,ZO )@@G@@4 A0,0,*X1 . GET BYTE@F@@@C SPD A1 ZP )@@G@@ . TURN OFF CHARACTER MODE @^@@@C AN,U A1,1@^@@@CZQ )@@G@@ LPD 0,A1@F@@@C DL A1,SBGET . REZR )@@G@@STORE REGISTER USED @ @@@C J 0,X11 @[@@@C. ZS )@@G@@@H@@@C. ****************************************************************ZT )@@G@@********** @H@C@B. ******* ZU )@@G@@ ******* @H@C@B. ******* BYTE TO INTEGER SUBROUTINE (ZV )@@G@@FIELDATA) ******* @H@@@C. ******* BYTE TO INTEGER SUBRZW )@@G@@OUTINE ******* @H@@@B. ******* ZX )@@G@@ ******* @H@@@C. ****ZY )@@G@@*** INPUT: X1 - (BYTE #,INPUT BASE ADDRESS) ******* ZZ )@@G@@@H@C@B. ******* INPUT: X1 - INPUT BASE ADDRESS AA )@@G@@ ******* @H@C@B. ******* A1 - BYTE # OF INPUT STRING AB )@@G@@ ******* @H@C@B. ******* A0 - # OF INPUT BYTEAC )@@G@@S ******* @H@@@C. ******* A0 - # OF INAD )@@G@@PUT BYTES ******* @^@C@B. ******* OUTPAE )@@G@@UT: A2@H@@@C. ******* OUTPUT: A2 AF )@@G@@ ******* @H@@@C. ******* AG )@@G@@ ******* @H@@@C. ******* CALLING SEQUENCE: LMJ X11,AH )@@G@@BINT ******* @H@@@C. ******* AI )@@G@@ J ILLEGAL-INTEGER ******* @H@@@C. ******* AJ )@@G@@ J NORMAL ******* @H@@@BAK )@@G@@. ******* ***AL )@@G@@**** @H@@@B. **********************************************************AM )@@G@@**************** @^@C@BBINT* + 0 @[@@@CBINT* @E@C@B AN )@@G@@ S A3,SAVE . SAVE REGISTERS USED @E@@@C DSAO )@@G@@ A0,SBINT . SAVE REGISTERS USED@ @@@C S AP )@@G@@ X1,SBINT+2@A@@@C S X10,SBINT+3 @G@@@C L,AQ )@@G@@U X10,1,X11 . SETUP X10 FOR NORMAL RETURN @E@@@C AR )@@G@@ SZ NEGKEY . CLEAR NEGATIVE KEY @ @@@C L AS )@@G@@ A2,BASCII @D@@@C LMJ X11,BGET . GET NEXTAT )@@G@@ CHAR @D@@@C TE A0,NEG,A2 . IS IT '-'? @B@@@CAU )@@G@@ J $+4 . NO@F@@@C SP1 NEGKAV )@@G@@EY . YES, SET NEGATIVE KEY @D@@@C A X1,(AW )@@G@@1,0) . BUMP CHAR PTR @D@@@C LMJ X11,BGET AX )@@G@@ . GET NEXT CHAR @D@@@C TNE A0,ZERO,A2 . IS IT '0AY )@@G@@'? @G@@@C J BINTC1 . YES, GO TO OCTAL INTAZ )@@G@@EGER LOGIC @E@@@C L A0,SBINT . NO, RESTORE INBA )@@G@@PUT A0@E@@@C TZ NEGKEY . IS NEGATIVE KEY SET?BB )@@G@@@H@@@C AN,U A0,1 . YES, REDUCE # OF CHARS INPBC )@@G@@UT BY 1 @G@@@C J BINTC3 . GO TO DECIMAL BD )@@G@@INTEGER LOGIC @G@@@CBINTC1 . OCTAL INBE )@@G@@TEGER LOGIC FOLLOWS @E@@@C DS A3,SBINT+4 . SABF )@@G@@VE MORE REGISTERS @ @@@C S A5,SBINT+6@G@@@C L BG )@@G@@ A3,ZERO,A2 . SET UP LIMITS TO TEST CHARS @G@@@C BH )@@G@@ AN,U A3,1 . CHARS MUST BE BETWEEN 0 AND 7 @A@@@CBI )@@G@@ L A4,SEVEN,A2 @F@@@C SZ A5 BJ )@@G@@ . BUILD BINARY VALUE IN A5 @F@@@C L A1,SBINT BK )@@G@@ . INITIALIZE LOOP COUNTER @^@@@C AN,U A1,1@ @@@CBL )@@G@@ TZ NEGKEY @^@@@C AN,U A1,1@E@@@CBINTL BM )@@G@@ LMJ X11,BGET . GET CHARS 1 BY 1 @G@@@C TWBN )@@G@@ A3,A0 . IS CHAR BETWEEN '0' AND '7'? @G@@@C BO )@@G@@ J BINTC1A . NO, NOT LEGAL OCTAL INTEGER @G@@@CBP )@@G@@ AN A0,ZERO,A2 . CONVERT CHARACTER TO BINARY BQ )@@G@@@G@@@C MSI,U A5,8 . MULTIPLY PREVIOUS RESULT BBR )@@G@@Y 8 @D@@@C A A5,A0 . ADD NEW VALUE @D@@@CBS )@@G@@ A X1,(1,0) . BUMP CHAR PTR @F@@@C JGBT )@@G@@D A1,BINTL . IS SCAN OF FIELD COMPLETE?@H@@@C L BU )@@G@@ A2,A5 . YES, A5 HAS CONVERTED OCTAL INTEGER @ @@@CBV )@@G@@ J BINTC2 @G@@@CBINTC1A AN,U X10,1 BW )@@G@@ . BAD FORMAT, SETUP FOR BAD RETURN@F@@@CBINTC2 DL A3,SBINT+4BX )@@G@@ . RESTORE REGISTERS USED @ @@@C L A5,SBINT+6BY )@@G@@@F@@@C J BINTE . GO TO NORMAL EXIT LOGIC BZ )@@G@@@ @C@B L A3,A1 @F@@@CBINTC3 L A1,X1 CA )@@G@@ . DECIMAL INTEGER LOGIC @^@C@B SZ A2 @G@C@BCB )@@G@@ DI,U A2,6 . CALC WORD # AND BYTE # OF INPUT CC )@@G@@@ @C@B LSSL A3,33 @^@C@B LDSL A2,3@ @C@BCD )@@G@@ LXI,U A2,0600001@D@@@C SLJ STUFF CE )@@G@@ . GENERATE J0 @ @C@B L J0,A2 @ @@@C L CF )@@G@@ J0,A1 @ @@@B L,U SR1,0 @ @@@B L,CG )@@G@@U SR2,0 @ @@@B L A2,A0 @ @@@B LSCH )@@G@@SL A2,27 @ @@@B L SR3,A2 @ @C@B BICI )@@G@@ A2,0,X1 @ @@@C BI A2,0,*X1 @G@C@B TZCJ )@@G@@,H2 SR3 . IF ANY ERROR OCCURRED, A2=0 @F@@@C CK )@@G@@ TZ,H2 SR3 . IF ANY ERROR OCCURRED, @^@C@B CL )@@G@@ L,U A2,0@E@@@C AN,U X10,1 . TAKE BCM )@@G@@AD RETURN @F@C@B L A3,SAVE . RESTORE REGISTCN )@@G@@ERS USED @E@@@CBINTE L A1,A2 . IF NEGATIVE KECO )@@G@@Y SET,@E@@@C TZ NEGKEY . SET COMPLEMENT A2 CP )@@G@@@ @@@C SN A1,A2 @F@@@C DL A0,SBINT CQ )@@G@@ . RESTORE REGISTERS USED @ @@@C L X1,SBINT+2CR )@@G@@@ @@@C L X11,X10 @A@@@C L X10,SBINT+CS )@@G@@3 @C@C@B J *BINT . RETURN @C@@@C CT )@@G@@ J 0,X11 . RETURN @[@@@C. @H@@@C. **********CU )@@G@@**************************************************************** @H@@@CCV )@@G@@. ******* BYTE BLANK SUBROUTINE ***CW )@@G@@**** @H@@@C. ******* CX )@@G@@ ******* @H@@@C. ******* INPUT: X1 - (BYTE #,INPUT BASE ADDRESCY )@@G@@S) ******* @H@@@C. ******* A0 - # OF BLANKS TCZ )@@G@@O STORE ******* @H@@@C. ******* DA )@@G@@ ******* @H@@@C. ******* CADB )@@G@@LLING SEQUENCE: LMJ X11,BBLANK ******* @H@@@CDC )@@G@@. ******* ***DD )@@G@@**** @H@@@C. **********************************************************DE )@@G@@**************** @]@@@CBBLANK* @E@@@C DS A0,SAVE DF )@@G@@ . SAVE REGISTERS USED @ @@@C S A2,SAVE+2 @F@@@CDG )@@G@@ SPD A1 . TURN ON CHARACTER MODE @^@@@CDH )@@G@@ OR,U A1,1@^@@@C LPD 0,A2@ @@@C L DI )@@G@@ A2,BASCII @ @@@C L A1,X1 @D@@@C SLDJ )@@G@@J STUFF . GENERATE J0 @ @@@C L J0,ADK )@@G@@1 @^@@@C AN,U A0,1@A@@@C L A1,BLANKS,DL )@@G@@A2 @D@@@C S,4 A1,0,*X1 . STORE BLANKS @ @@@CDM )@@G@@ JGD A0,$-1 @F@@@C SPD A1 DN )@@G@@ . TURN OFF CHARACTER MODE @^@@@C AN,U A1,1@^@@@C DO )@@G@@ LPD 0,A1@F@@@C DL A0,SAVE . RESTORE DP )@@G@@REGISTERS USED @ @@@C L A2,SAVE+2 @ @@@C J DQ )@@G@@ 0,X11 @[@@@C. @H@@@C. **********************************DR )@@G@@**************************************** @H@@@C. ******* BYTE SEARCH SUDS )@@G@@BROUTINE ******* @H@@@C. ******* DT )@@G@@ ******* @H@@@CDU )@@G@@. ******* INPUT: X1 - (BYTE #,INPUT BASE ADDRESS) ***DV )@@G@@**** @H@@@C. ******* A0 - SEARCH BYTE (IF=-BYTE SEARCH NOT EQUADW )@@G@@L USED) ******* @H@@@C. ******* R1 - # OF BYTES IN INPUT STRINDX )@@G@@G ******* @H@@@C. ******* OUTPUT: A2 - BYTE # OF FOUDY )@@G@@ND BYTE ******* @H@@@C. ******* DZ )@@G@@ ******* @H@@@C. ******* CAEA )@@G@@LLING SEQUENCE: LMJ X11,BSEARCH ******* @H@@@CEB )@@G@@. ******* J NOFIND ***EC )@@G@@**** @H@@@C. ******* J FIND ED )@@G@@ ******* @H@@@C. ******* EE )@@G@@ ******* @H@@@C. **********************************EF )@@G@@**************************************** @]@@@CBSEARCH* @E@@@C EG )@@G@@ DS A0,SAVE . SAVE REGISTERS USED @ @@@C S EH )@@G@@ R1,SAVE+2 @F@@@C SPD A1 . TURN ON EI )@@G@@CHARACTER MODE @^@@@C OR,U A1,1@^@@@C LPD EJ )@@G@@ 0,A2@ @@@C L A2,BASCII @ @@@C L A1,XEK )@@G@@1 @D@@@C SLJ STUFF . GENERATE J0 @ @@@CEL )@@G@@ L J0,A1 @F@@@C L A1,X1 EM )@@G@@ . CALC # OF BYTES TO SEARCH @ @@@C SSL A1,18 @ @@@CEN )@@G@@ AN A1,R1 @F@@@C JP A1,BSNO EO )@@G@@ . SKIP SEARCH IF COUNT <=0 @ @@@C SN A1,R1 @E@@@CEP )@@G@@ TN A0 . IF A0<0, USE SNE @E@@@C EQ )@@G@@ J BSC1 . OTHERWISE USE SE @ @@@C LNER )@@G@@ A1,A0 @ @@@C SNE,4 A1,0,*X1 @^@@@C J ES )@@G@@ BSNO@^@@@C J BSC2@E@@@CBSC1 SE,4 A0,0ET )@@G@@,*X1 . SEARCH FOR BYTE @C@@@C J BSNO EU )@@G@@ . NO FIND @F@@@CBSC2 L A1,J0 . CALC BYTEV )@@G@@E # OF FOUND BYTE @^@@@C LXI,U A1,0@^@@@C DSL EW )@@G@@ A1,3@ @@@C L A0,BASCII @ @@@C MSI A1,NEX )@@G@@BIT,A0@A@@@C SSL A2,*NSHIFT,A0 @ @@@C A EY )@@G@@ A2,A1 @^@@@C AN,U A2,1@ @@@C A,U X11,EZ )@@G@@1 @E@@@CBSNO SPD A1 . CLEAR CHARACTER MODEFA )@@G@@@^@@@C AN,U A1,1@^@@@C LPD 0,A1@ @@@C FB )@@G@@ DL A0,SAVE @ @@@C L R1,SAVE+2 @C@@@C FC )@@G@@ J 0,X11 . RETURN @[@@@C. @H@@@C. **********FD )@@G@@**************************************************************** @H@@@CFE )@@G@@. ******* BYTE COMPARE SUBROUTINE ***FF )@@G@@**** @H@@@C. ******* FG )@@G@@ ******* @H@@@C. ******* INPUT: X1 - (BYTE #,INPUT BASE ADDRESFH )@@G@@S 1) ******* @H@@@C. ******* X2 - (BYTE #,INPUTFI )@@G@@ BASE ADDRESS 2) ******* @H@@@C. ******* A0 - #FJ )@@G@@ OF BYTES TO COMPARE ******* @H@@@C. ******* OUFK )@@G@@TPUT: A0 - 0 IF 2 STRINGS COMPARE ******* @H@@@CFL )@@G@@. ******* ***FM )@@G@@**** @H@@@C. ******* CALLING SEQUENCE: LMJ X11,BCOMP FN )@@G@@ ******* @H@@@C. ******* FO )@@G@@ ******* @H@@@C. **********************************FP )@@G@@**************************************** @[@@@CBCOMP*@E@@@C DSFQ )@@G@@ A1,SBCOMP . SAVE REGISTERS USED @A@@@C S FR )@@G@@ X2,SBCOMP+2 @A@@@C S X1,SBCOMP+3 @A@@@C FS )@@G@@ S X11,SBCOMP+4 @ @@@C L,H1 A2,BASCII @F@@@CFT )@@G@@ TNE,H2 A2,BASCII . IS CONVERSION IMPLIED? @B@@@CFU )@@G@@ J BCOMPC . NO@G@@@C L,U X2,BFV )@@G@@UFF . CONVERT 1ST STRING INTO BUFF @ @@@C LMJ FW )@@G@@ X11,BMOVE @F@@@C L X11,SBCOMP+4 . RESTORE RETURNFX )@@G@@ ADDRESS @F@@@C L X1,X2 . USE BUFF FOR CFY )@@G@@OMPARISON @A@@@C L X2,SBCOMP+2 @ @@@C L,FZ )@@G@@H2 A2,BASCII @ @@@CBCOMPC L A1,X1 @C@@@C SLGA )@@G@@J STUFF . SETUP J0@ @@@C L J0,A1 GB )@@G@@@ @@@C L A1,X2 @C@@@C SLJ STUFF GC )@@G@@ . SETUP J1@ @@@C L J1,A1 @ @@@C L,GD )@@G@@U SR1,0 @ @@@C L,U SR2,0 @ @@@C S GE )@@G@@ A0,A1 @^@@@C LSSL A0,9@ @@@C A GF )@@G@@ A0,A1 @ @@@C LSSL A0,18 @D@@@C L GG )@@G@@ SR3,A0 . SETUP SR3 @D@@@C BC A0,,*X1 GH )@@G@@ . BYTE COMPARE @F@@@C DL A1,SBCOMP . REGI )@@G@@STORE REGISTERS USED @A@@@C L X1,SBCOMP+3 @C@@@CGJ )@@G@@ J 0,X11 . RETURN @[@@@C. @H@@@C. ****GK )@@G@@********************************************************************** GL )@@G@@@C@@@C. ******* GET NEXT FIELD SUBROUTINE ******* @H@@@C. ******* (FGM )@@G@@IELDS ARE DELINEATED BY SPACES) ******* @H@@@CGN )@@G@@. ******* ***GO )@@G@@**** @H@@@C. ******* INPUT: X1 - (BYTE #,INPUT BASE ADDRESS) GP )@@G@@ ******* @H@@@C. ******* X2 - (BYTE #,OUTPUT BASE ADDREGQ )@@G@@SS) ******* @H@@@C. ******* R1 - # OF BYTES INGR )@@G@@ INPUT STRING ******* @H@@@C. ******* R2 - MGS )@@G@@AX # OF BYTES TO MOVE ******* @H@@@C. ******* OUGT )@@G@@TPUT: A0 - # OF BYTES IN FIELD ******* @H@@@CGU )@@G@@. ******* A1 - BYTE # OF START OF FIELD ***GV )@@G@@**** @H@@@C. ******* GW )@@G@@ ******* @H@@@C. ******* CALLING SEQUENCE: LMJ X11,GETFIELD GX )@@G@@ ******* @H@@@C. ******* J NOFIGY )@@G@@ND ******* @H@@@C. ******* GZ )@@G@@ J FIND ******* @H@@@C. ******* HA )@@G@@ ******* @H@@@CHB )@@G@@. **********************************************************************HC )@@G@@**** @]@@@CGETFIELD* @E@@@C SZ SFIELDKEY . CLHD )@@G@@EAR SUBFIELD KEY @E@@@C J GETSFIELD+1 . USE GETSHE )@@G@@FIELD LOGIC @[@@@C. @H@@@C. ****************************************HF )@@G@@********************************** @H@@@C. ******* GET NEXT SUBFIELD SUHG )@@G@@BROUTINE ******* @H@@@C. ******* (SUBFIELHH )@@G@@DS ARE DELINEATED BY SPACES OR COMMAS) ******* @H@@@C. ****HI )@@G@@*** ******* HJ )@@G@@@H@@@C. ******* INPUT: X1 - (BYTE #,INPUT BASE ADDRESS) HK )@@G@@ ******* @H@@@C. ******* X2 - (BYTE #,OUTPUT BASE ADDRESS) HL )@@G@@ ******* @H@@@C. ******* R1 - # OF BYTES IN INPUTHM )@@G@@ STRING ******* @H@@@C. ******* R2 - MAX # OHN )@@G@@F BYTES TO MOVE ******* @H@@@C. ******* OUTPUT: HO )@@G@@A0 - # OF BYTES IN FIELD ******* @H@@@C. ****HP )@@G@@*** A1 - BYTE # OF START OF FIELD ******* HQ )@@G@@@H@@@C. ******* HR )@@G@@ ******* @H@@@C. ******* CALLING SEQUENCE: LMJ X11,GETSFIELD HS )@@G@@ ******* @H@@@C. ******* J NOFIND HT )@@G@@ ******* @H@@@C. ******* HU )@@G@@J FIND ******* @H@@@C. ******* HV )@@G@@ ******* @H@@@C. ****HW )@@G@@********************************************************************** HX )@@G@@@]@@@CGETSFIELD* @E@@@C SP1 SFIELDKEY . SET SUBFHY )@@G@@IELD KEY @E@@@C S X11,SAVE+5 . SAVE REGISTERSHZ )@@G@@ USED @ @@@C S A2,SAVE+3 @ @@@C S X1,SIA )@@G@@AVE+4 @ @@@C S X3,SAVE+6 @G@@@D L A0,BIB )@@G@@ASCII . REVERSE ASCII KEYS IN BASCII @ @@@D SSC IC )@@G@@ A0,18 @ @@@D S A0,BASCII @E@@@D S ID )@@G@@ A0,X3 . SAVE IN X3 ALSO @D@D@C L,H1 X3,BIE )@@G@@ASCII . ASCII KEY @A@@@C LN A0,SPACE,X3 IF )@@G@@@F@@@C LMJ X11,BSEARCH . SEARCH FOR START OF FIELD IG )@@G@@@C@@@C J GETFE . NO-FIND @G@@@C S IH )@@G@@ A2,TEMP . SAVE BYTE # OF START OF FIELD @E@@@C II )@@G@@ LXI X1,A2 . FIND NEXT BLANK @A@@@C L IJ )@@G@@ A0,SPACE,X3 @A@@@C LMJ X11,BSEARCH @F@@@CIK )@@G@@ L A2,R1 . NO-FIND, SET TO LAST CHAR @F@@@CIL )@@G@@ L A1,A2 . SAVE BYTE # OF NEXT BLANK @E@@@CIM )@@G@@ L A0,COMMA,X3 . FIND NEXT COMMA @H@@@C IN )@@G@@ TZ SFIELDKEY . IF SUBFIELD KEY SET, SKIP COMMA SEARCHIO )@@G@@@A@@@C LMJ X11,BSEARCH @F@@@C L A2,RIP )@@G@@1 . NO-FIND, SET TO LAST CHAR @F@@@C TG A2,AIQ )@@G@@1 . SET A2 TO MIN CHAR POS @ @@@C L A2,AIR )@@G@@1 @E@@@C L A0,A2 . BYTE # OF ' ' OR ','IS )@@G@@@F@@@C AN A0,TEMP . CALC # OF BYTES TO MOVE IT )@@G@@@E@@@C TG A0,R2 . CHECK FOR MAX SIZE @ @@@CIU )@@G@@ L A0,R2 @E@@@D L A1,BASCII IV )@@G@@ . RESTORE ASCII KEYS @ @@@D SSC A1,18 @ @@@D IW )@@G@@ S A1,BASCII @E@@@C LMJ X11,BMOVE . MOIX )@@G@@VE FIELD TO OUTPUT@D@@@C L X11,SAVE+5 . RESTORE IY )@@G@@X11 @F@@@C A,U X11,1 . POINT TO NORMAL RETUIZ )@@G@@RN @ @@@C L A1,TEMP @ @@@C AN A2,AJA )@@G@@1 @ @@@C L A0,A2 @D@@@C J $+2 JB )@@G@@ . NORMAL RETURN @D@@@CGETFE L X11,SAVE+5 JC )@@G@@ . RESTORE X11 @ @@@C L A2,SAVE+3 @ @@@C L JD )@@G@@ X1,SAVE+4 @ @@@C L X3,SAVE+6 @C@@@C J JE )@@G@@ 0,X11 . RETURN @[@@@C. @H@@@C. ****************JF )@@G@@********************************************************** @H@@@C. ****JG )@@G@@*** FIND GIVEN FIELD SUBROUTINE ******* JH )@@G@@@H@@@C. ******* JI )@@G@@ ******* @H@@@C. ******* INPUT: X1 - (BYTE #,BASE ADDRESS OF BLOCK) JJ )@@G@@ ******* @H@@@C. ******* X2 - (BYTE #,BASE ADDRESJK )@@G@@S OF FIELD) ******* @H@@@C. ******* A1 - NUMBER JL )@@G@@OF BYTES IN BLOCK ******* @H@@@C. ******* JM )@@G@@A2 - NUMBER OF BYTES IN FIELD ******* @H@@@C. ****JN )@@G@@*** OUTPUT: A0 - BYTE # IN BLOCK WHERE FIELD FOUND ******* JO )@@G@@@H@@@C. ******* JP )@@G@@ ******* @H@@@C. ******* CALLING SEQUENCE: LMJ X11,FINDFIELD JQ )@@G@@ ******* @H@@@C. ******* J NOFIND JR )@@G@@ ******* @H@@@C. ******* JS )@@G@@J FIND ******* @H@@@C. ******* JT )@@G@@ ******* @H@@@C. ****JU )@@G@@********************************************************************** JV )@@G@@@]@@@CFINDFIELD* @E@@@C S X11,SAVE+2 . SAVE REGJW )@@G@@ISTERS USED @ @@@C DS A1,SAVE+3 @ @@@C S JX )@@G@@ X1,SAVE+5 @H@@@C AN A1,A2 . CALC # OF TIMEJY )@@G@@S TO COMPARE FIELDS @ @@@C S A1,R1 @ @@@C JZ )@@G@@ L A0,A2 @E@@@C LMJ X11,BCOMP . COKA )@@G@@MPARE 2 FIELDS @D@@@C JZ A0,FINDF . FIELD FOKB )@@G@@UND @E@@@C A X1,(1,0) . BUMP BYTE # OF BLOCKKC )@@G@@@F@@@C JGD R1,$-4 . CHECK FOR END OF BLOCK KD )@@G@@@G@@@C J FINDN . END OF BLOCK, FIELD NOT FOKE )@@G@@UND @G@@@CFINDF L A0,X1 . GET BYTE # WHERE FIEKF )@@G@@LD FOUND @ @@@C SSL A0,18 @D@@@C L KG )@@G@@ X11,SAVE+2 . RESTORE X11 @F@@@C A,U X11,1 KH )@@G@@ . POINT TO NORMAL RETURN @D@@@C J $+2 KI )@@G@@ . NORMAL RETURN @D@@@CFINDN L X11,SAVE+2 . REKJ )@@G@@STORE X11 @ @@@C DL A1,SAVE+3 @ @@@C L KK )@@G@@ X1,SAVE+5 @C@@@C J 0,X11 . RETURN @[@@@CKL )@@G@@. @H@@@C. **********************************************************KM )@@G@@**************** @H@@@C. ******* CONVERT TIME/DATE STRING TO TDATE$ FORKN )@@G@@MAT SUBROUTINE ******* @H@@@C. ******* (STRINGS CAN BE OF FORM: 'KO )@@G@@HH:MM:SS' OR 'MM/DD/YY') ******* @H@@@C. ******* KP )@@G@@ ******* @H@@@C. ******* INKQ )@@G@@PUT: X1 - (BYTE #,INPUT BASE ADDRESS) ******* @H@@@CKR )@@G@@. ******* R1 - # OF BYTES IN INPUT STRING ***KS )@@G@@**** @H@@@C. ******* OUTPUT: A0 - TDATE$ WORD KT )@@G@@ ******* @H@@@C. ******* A1 - BYTE # AFTER FIELD KU )@@G@@ ******* @H@@@C. ******* KV )@@G@@ ******* @H@@@C. ******* CALLING SEQUENKW )@@G@@CE: LMJ X11,BTDATE ******* @H@@@C. ******* KX )@@G@@ J ERROR ******* @H@@@CKY )@@G@@. ******* J NORMAL ***KZ )@@G@@**** @H@@@C. ******* LA )@@G@@ ******* @H@@@C. **********************************************LB )@@G@@**************************** @]@@@CBTDATE* @E@@@C S LC )@@G@@ X11,10 . SAVE REGISTERS USED @ @@@C S X1,SLD )@@G@@BTDATE@A@@@C DS A1,SBTDATE+1 @A@@@C S LE )@@G@@ X2,SBTDATE+3 @A@@@C S A3,SBTDATE+4 @D@@@C LF )@@G@@ L A0,BASCII . ASCII KEY @G@@@C LSSL LG )@@G@@ A0,18 . SHIFT H1 TO H2 FOR GETFIELD @ @@@C S LH )@@G@@ A0,BASCII @D@@@C SZ TDATEA . CLEAR OULI )@@G@@TPUT @E@@@C L,U X2,BUFF . EXTRACT NEXT FIELD LJ )@@G@@@^@@@C L,U R2,8@A@@@C LMJ X11,GETFIELD LK )@@G@@@D@@@C J BTDATEE+1 . NO MORE FIELDS@F@@@C LL )@@G@@ A A0,A1 . CALC BYTE # AFTER FIELD @C@@@C LM )@@G@@ S A0,SBTDATE+1 . SAVE @F@@@C L,U A0,'LN )@@G@@/' . IS FIELD DATE OR TIME? @ @@@C TE,S3 A0,BLO )@@G@@UFF @C@@@C J TDATET . TIME @D@@@C LP )@@G@@ TE,S6 A0,BUFF . CHECK FORMAT @D@@@C J LQ )@@G@@ BTDATEE+1 . FORMAT ERROR @^@@@C L,U A2,0@ @@@CLR )@@G@@ L,U A3,12 @D@@@C L,S1 A0,BUFF LS )@@G@@ . CONVERT 'MM' @ @@@C AN,U A0,'0' @ @@@C MSLT )@@G@@I,U A0,10 @ @@@C L,S2 A1,BUFF @ @@@C ANLU )@@G@@,U A1,'0' @ @@@C A A0,A1 @F@@@C TWLV )@@G@@ A2,A0 . CHECK IF WITHIN LIMITS @D@@@C J LW )@@G@@ BTDATEE+1 . NO, ERROR @E@@@C S,S1 A0,TLX )@@G@@DATEA . STORE FOR OUTPUT @ @@@C L,U A3,31 LY )@@G@@@D@@@C L,S4 A0,BUFF . CONVERT 'DD' @ @@@C LZ )@@G@@ AN,U A0,'0' @ @@@C MSI,U A0,10 @ @@@C MA )@@G@@ L,S5 A1,BUFF @ @@@C AN,U A1,'0' @ @@@C MB )@@G@@ A A0,A1 @F@@@C TW A2,A0 . CHMC )@@G@@ECK IF WITHIN LIMITS @D@@@C J BTDATEE+1 . NOMD )@@G@@, ERROR @E@@@C S,S2 A0,TDATEA . STORE FOR OUTPME )@@G@@UT @ @@@C L,U A2,64 @ @@@C L,U A3,9MF )@@G@@9 @D@@@C L,S1 A0,BUFF+1 . CONVERT 'YY' @ @@@CMG )@@G@@ AN,U A0,'0' @ @@@C MSI,U A0,10 @ @@@CMH )@@G@@ L,S2 A1,BUFF+1 @ @@@C AN,U A1,'0' @ @@@CMI )@@G@@ A A0,A1 @F@@@C TW A2,A0 MJ )@@G@@ . CHECK IF WITHIN LIMITS @D@@@C J BTDATEE+1 MK )@@G@@ . NO, ERROR @D@@@C AN,U A0,64 . MODULO 6ML )@@G@@4 @E@@@C S,S3 A0,TDATEA . STORE FOR OUTPUT MM )@@G@@@D@@@C L A0,TDATEA . GET OUTPUT @C@@@C MN )@@G@@ J BTDATEE . RETURN @F@@@CTDATET L,U A0,'MO )@@G@@:' . CHECK FOR FORMAT ERROR @ @@@C TE,S3 A0,BMP )@@G@@UFF @D@@@C J BTDATEE+1 . FORMAT ERROR @ @@@CMQ )@@G@@ TE,S6 A0,BUFF @D@@@C J BTDATEE+1 MR )@@G@@ . FORMAT ERROR @^@@@C LN,U A2,1@ @@@C L,U MS )@@G@@ A3,23 @D@@@C L,S1 A0,BUFF . CONVERT 'HH' MT )@@G@@@ @@@C AN,U A0,'0' @ @@@C MSI,U A0,10 MU )@@G@@@ @@@C L,S2 A1,BUFF @ @@@C AN,U A1,'0' MV )@@G@@@ @@@C A A0,A1 @F@@@C TW A2,A0 MW )@@G@@ . CHECK IF WITHIN LIMITS @D@@@C J BTDATEE+1 MX )@@G@@ . NO, ERROR @E@@@C S,S1 A0,TDATEA . STMY )@@G@@ORE FOR OUTPUT @ @@@C L,U A3,59 @D@@@C L,MZ )@@G@@S4 A0,BUFF . CONVERT 'MM' @ @@@C AN,U A0,'NA )@@G@@0' @ @@@C MSI,U A0,10 @ @@@C L,S5 A1,BNB )@@G@@UFF @ @@@C AN,U A1,'0' @ @@@C A A0,ANC )@@G@@1 @F@@@C TW A2,A0 . CHECK IF WITHIN LIMIND )@@G@@TS @D@@@C J BTDATEE+1 . NO, ERROR @E@@@CNE )@@G@@ S,S2 A0,TDATEA . STORE FOR OUTPUT @D@@@C NF )@@G@@ L,S1 A0,BUFF+1 . CONVERT 'SS' @ @@@C AN,U NG )@@G@@ A0,'0' @ @@@C MSI,U A0,10 @ @@@C L,S2 NH )@@G@@ A1,BUFF+1 @ @@@C AN,U A1,'0' @ @@@C A NI )@@G@@ A0,A1 @F@@@C TW A2,A0 . CHECK IF WITHINJ )@@G@@N LIMITS @D@@@C J BTDATEE+1 . NO, ERROR NK )@@G@@@ @@@C S,S3 A0,TDATEA @H@@@C L,S1 A0,TDATEA NL )@@G@@ . CONVERT HH,MM,SS TO SECS PAST MIDNIGHT@ @@@C MSI,U NM )@@G@@ A0,60 @ @@@C A,S2 A0,TDATEA @ @@@C MSI,U NN )@@G@@ A0,60 @ @@@C A,S3 A0,TDATEA @F@@@CBTDATEE A,U NO )@@G@@ X10,1 . POINT TO NORMAL RETURN @G@@@C L NP )@@G@@ A1,BASCII . RESTORE BASCII TO ORIGINAL VALUE@ @@@C SSNQ )@@G@@L A1,18 @ @@@C S A1,BASCII @ @@@C L NR )@@G@@ X1,SBTDATE@A@@@C DL A1,SBTDATE+1 @A@@@C NS )@@G@@ L X2,SBTDATE+3 @A@@@C L A3,SBTDATE+4 NT )@@G@@@C@@@C J 0,X10 . RETURN @[@@@C. @H@@@CNU )@@G@@. **********************************************************************NV )@@G@@**** @H@@@C. ******* EXTRACT FILE NAME STRING SUBROUTINE NW )@@G@@ ******* @H@@@C. ******* NX )@@G@@ ******* @H@@@C. ******* INPUT: X1 - (BYTE #,INPUTNY )@@G@@ BASE ADDRESS) ******* @H@@@C. ******* R1 - #NZ )@@G@@ OF BYTES IN INPUT STRING ******* @H@@@C. ******* OA )@@G@@ X2 - OUTPUT BUFFER ******* @H@@@COB )@@G@@. ******* OUTPUT: OUT,+1 - QUALIFIER ***OC )@@G@@**** @H@@@C. ******* OUT+2,3 - FILE-NAME OD )@@G@@ ******* @H@@@C. ******* OUT+4 - CYCLE (OCTAL) OE )@@G@@ ******* @H@@@C. ******* A0 = # OF BYTES INOF )@@G@@ FIELD ******* @H@@@C. ******* A1 = BOG )@@G@@YTE # OF START OF FIELD ******* @H@@@C. ******* OH )@@G@@ ******* @H@@@COI )@@G@@. ******* CALLING SEQUENCE: LMJ X11,BFILE ***OJ )@@G@@**** @H@@@C. ******* J ERROR OK )@@G@@ ******* @H@@@C. ******* J NORMAL OL )@@G@@ ******* @H@@@C. ******* OM )@@G@@ ******* @H@@@C. **********************ON )@@G@@**************************************************** @[@@@CBFILE*@E@@@COO )@@G@@ S X11,X10 . SAVE REGISTERS USED @ @@@C OP )@@G@@ S X1,SBFILE @A@@@C S X2,SBFILE+1 @A@@@COQ )@@G@@ S X3,SBFILE+2 @A@@@C DS A2,SBFILE+OR )@@G@@6 @E@@@C L,U X2,BUFF . FIND LIMITS OF FIELDOS )@@G@@@ @@@C L,U R2,46 @A@@@C LMJ X11,GETFIEOT )@@G@@LD @F@@@C J BFILEE+1 . NO FIELD FOUND, ERROOU )@@G@@R @F@@@C DS A0,SBFILE+4 . SAVE GETFIELD OUTPUTOV )@@G@@S @E@@@C A A0,A1 . CALC END BYTE # OW )@@G@@@C@@@C S A0,SBFILE+3 . SAVE @ @@@C LXOX )@@G@@I X1,A1 @F@@@C L A3,A1 . A3 = CUROY )@@G@@RENT BYTE POINTER @D@@@C L X2,SBFILE+1 . RESTORE OZ )@@G@@X2 @D@@@C L,H1 X3,BASCII . ASCII KEY @E@@@CPA )@@G@@ L A0,BLANKS,X3 . INITIALIZE OUTPUT @ @@@C PB )@@G@@ L A1,A0 @ @@@C DS A0,0,X2 @ @@@C PC )@@G@@ DS A0,2,X2 @^@@@C SZ 4,X2@D@@@C L PD )@@G@@ A0,ASTER,X3 . SEARCH FOR '*'@A@@@C LMJ X11,PE )@@G@@BSEARCH @D@@@C SZ A2 . NONE FOUND PF )@@G@@@E@@@C S A2,QUALKEY . SAVE BYTE # OF '*' @D@@@CPG )@@G@@ L A0,LPAREN,X3 . SEARCH FOR '('@A@@@C LMPH )@@G@@J X11,BSEARCH @D@@@C SZ A2 . NOPI )@@G@@NE FOUND @E@@@C S A2,CYCLEKEY . SAVE BYTE # OFPJ )@@G@@ '(' @F@@@C L A0,QUALKEY . IS THERE A QUALIFIERPK )@@G@@? @B@@@C JZ A0,BFILEC . NO@G@@@C ANPL )@@G@@ A0,A3 . CALC SIZE OF QUALIFIER SUBFIELD @F@@@C PM )@@G@@ LXI,U X2,0 . MOVE QUALIFIER TO OUTPUT @ @@@C PN )@@G@@ LMJ X11,BMOVE @E@@@C L A3,QUALKEY . BUPO )@@G@@MP A3 PAST '*' @^@@@C A,U A3,1@ @@@C LXI PP )@@G@@ X1,A3 @E@@@CBFILEC L A0,CYCLEKEY . IS THERE A CYCPQ )@@G@@LE? @^@@@C TNZ A0 @E@@@C L A0,SBFILE+PR )@@G@@3 . NO, USE END BYTE # @H@@@C AN A0,A3 PS )@@G@@ . TO CALCULATE SIZE OF FILE FIELD @ @@@C LXI,U X2,1PT )@@G@@2 @F@@@C LMJ X11,BMOVE . MOVE FILE-NAME TO OUPU )@@G@@TPUT @F@@@C A,U A3,1,A0 . BUMP A3 PAST FILE-NAPV )@@G@@ME @E@@@C TNZ CYCLEKEY . IS THERE A CYCLE? PW )@@G@@@D@@@C J BFILEE . NO, FINISHED @F@@@C PX )@@G@@ LXI X1,A3 . PREPARE TO EXTRACT CYCLE @A@@@C PY )@@G@@ AN A3,SBFILE+3 @ @@@C LN,XU A0,1,A3 @F@@@CPZ )@@G@@ LMJ X11,BINT . CONVERT CYCLE TO BINARY @D@@@CQA )@@G@@ J BFILEE+1 . FORMAT ERROR @F@@@C S QB )@@G@@ A2,4,X2 . STORE CYCLE IN OUTPUT @G@@@CBFILEE A,QC )@@G@@U X10,1 . GENERATE NORMAL RETURN ADDRESS @ @@@C QD )@@G@@ L X1,SBFILE @A@@@C L X2,SBFILE+1 @A@@@CQE )@@G@@ L X3,SBFILE+2 @A@@@C DL A0,SBFILE+QF )@@G@@4 @A@@@C DL A2,SBFILE+6 @C@@@C J QG )@@G@@ 0,X10 . RETURN @[@@@C. @H@@@C. **********************QH )@@G@@**************************************************** @H@@@C. ******* J-QI )@@G@@REG STUFF LOCAL SUBROUTINE ******* @H@@@CQJ )@@G@@. ******* ***QK )@@G@@**** @H@@@C. ******* INPUT: A1 = (BYTE #,X) QL )@@G@@ ******* @H@@@C. ******* A2 = ASCII KEY QM )@@G@@ ******* @H@@@C. ******* OUTPUT: A1 = CORRESPONDINGQN )@@G@@ J-REG ******* @H@@@C. ******* QO )@@G@@ ******* @H@@@C. **********QP )@@G@@**************************************************************** @^@@@CQQ )@@G@@STUFF + 0 @D@@@C DS A2,STUFFD . SAQR )@@G@@VE A2,A3 @ @@@C L A3,A2 @ @@@C DSL QS )@@G@@ A1,54 @ @@@C JZ A2,STUFFC @ @@@C DI QT )@@G@@ A1,NBIT,A3@A@@@C LSSL A2,*NSHIFT,A3 @^@@@C LDQU )@@G@@SL A1,3@D@@@CSTUFFC LXI A1,UJ0,A3 . SET UPPER JO QV )@@G@@@D@@@C DL A2,STUFFD . RESTORE A2,A3 @ @@@C QW )@@G@@ J *STUFF @H@@@C. ****************************************QX )@@G@@********************************** @^@C@BSAVE RES 2 @[@@@CQY )@@G@@$(0) @H@@@CBASCII* + 0 . ASCII KEY (INITIALLYQZ )@@G@@ OFF FOR FIELDATA)@^@@@CSTUFFD $RES 2 @^@@@CNBIT + RA )@@G@@ 6 @^@@@C + 4 @^@@@CNSHIFT + 33 @^@@@CRB )@@G@@ + 34 @ @@@CUJ0 + 0600001 @ @@@C RC )@@G@@ + 0400002 @ @@@CCONVT + FDASCT @ @@@C RD )@@G@@ + ASCFDT @ @@@CBMOVET BM 0,*X1 @ @@@C RE )@@G@@ BMT 0,*X1 @#@@@CBLANKS ' '@^@@@C $CAS(' RF )@@G@@ ') @^@@@CSPACE + ' ' @ @@@C + $CAS(' ') RG )@@G@@@^@@@CCOMMA + ',' @ @@@C + $CAS(',') @^@@@CRH )@@G@@NEG + '-' @ @@@C + $CAS('-') @^@@@CZERO RI )@@G@@ + '0' @ @@@C + $CAS('0') @^@@@CSEVEN + RJ )@@G@@ '7' @ @@@C + $CAS('7') @^@@@CSLASH + RK )@@G@@ '/' @ @@@C + $CAS('/') @^@@@CCOLON + ':' RL )@@G@@@ @@@C + $CAS(':') @^@@@CASTER + '*' @ @@@CRM )@@G@@ + $CAS('*') @^@@@CLPAREN + '(' @ @@@C RN )@@G@@ + $CAS('(') @^@@@CRPAREN + ')' @ @@@C + RO )@@G@@ $CAS(')') @^@@@CSAVE $RES 7 @^@@@CSBCOMP $RES RP )@@G@@ 5 @^@@@CSBMOVE $RES 3 @^@@@CSBGET $RES 2 @^@@@CRQ )@@G@@SBTDATE $RES 6 @^@@@CSBFILE $RES 7 @^@@@CSBINT $RRR )@@G@@ES 7 @^@@@CNEGKEY $RES 1 @^@@@CQUALKEY $RES 1 RS )@@G@@@^@@@CCYCLEKEY $RES 1 @^@@@CSFIELDKEY $RES 1 @^@@@CTEMP RT )@@G@@ $RES 1 @^@@@CTDATEA $RES 1 @#@@@CFDASCT $ASCII RU )@@G@@@H@@@C '@[]# ABCDEFGHIJKLMNOPQRSTUVWXYZ)-+<=>&$*(%:?!,\0123456RV )@@G@@789'';/." ' @#@@@CASCFDT $FDATA @ @@@C $DO 8 , ' ',' ',' ',' ' RW )@@G@@@ @@@C ' ','!','"','#' @ @@@C '$','%','&','''' RX )@@G@@@ @@@C '(',')','*','+' @ @@@C ',','_','.','/' RY )@@G@@@ @@@C '0','1','2','3' @ @@@C '4','5','6','7' RZ )@@G@@@ @@@C '8','9',':',';' @ @@@C '<','=','>','?' SA )@@G@@@ @@@C '@','A','B','C' @ @@@C 'D','E','F','G' SB )@@G@@@ @@@C 'H','I','J','K' @ @@@C 'L','M','N','O' SC )@@G@@@ @@@C 'P','Q','R','S' @ @@@C 'T','U','V','W' SD )@@G@@@ @@@C 'X','Y','Z','[' @ @@@C '\',']','^','_' SE )@@G@@@ @@@C ' ','A','B','C' @ @@@C 'D','E','F','G' SF )@@G@@@ @@@C 'H','I','J','K' @ @@@C 'L','M','N','O' SG )@@G@@@ @@@C 'P','Q','R','S' @ @@@C 'T','U','V','W' SH )@@G@@@ @@@C 'X','Y','Z',' ' @ @@@C ' ',' ',' ',' ' SI )@@G@@@^@@@CBUFF $RES 50 @#@@@C $END ___ X2,0 SJ )@@G@@ . MOVE QUALIFIER)@@[F#@[#@[#@@K[#@@K@@@@'^@@AYC@K@@]C^)@@@N[)@@HSK )@@G@@'^@@AYC@K@@[CC)@@@A@0@@19*K@@\AA@@@@)@D[MK0@@@^G@@@@@@CCK@@@N[K@@H;*K@@MSL )@@G@@G@K@@G;*K@@DC@K@@GN9@@@@N80@@@N]@@]0N[0@@HAB@@@@)@N[F#@[#@[#@[#@[#@@K0@@SM )@@G@@)8@@@[B4@@@G9*K@@2/KF@@@R@0@@19?K@@\')I@@F-^K@@@R8.K@DAC@@@@)@W[MK0@^@@^SN )@@G@@G@@@@@9?K@@2B0H@@@H8K@@[B4@@@HCK[)@@[@K@[A'^@@AYC@K@@[C@)@@@B0H@@@AD@@@@SO )@@G@@)@&[]K0@K0@K0@^G@^G@^@@@@@@@@@/,0@@TC@)@@@ @@@[CR':@@[A])@[^A@K@[#9*@@[[SP )@@G@@/KF@@@AE@@@@)@,[##@[@K0@K0@K^G@^[#@@@@@@@@C@@@[[/K@@@9:@I@@P/,0@@TO@K@]1SQ )@@G@@ @)@[C/K@@@3%@I@@NAF@@@@)@6[F#@@K^G@^G@^G@[#@@@@ @@@@LC[I@@RH80@@[C@"@@PSR )@@G@@[[K@[B9*0@[ /K@@[LH8@@@[*@@@[CAG@@@@)@_[F#@@K0@^@K^G@@@@@@@@T9K@@CH@I@@PSS )@@G@@/K@@[H,@0@@G/,0@@TH8K@@[*@@@[CH8K@@[C@K@[[AH@@@@)[C[EK0@K[@^G@^G@^@@@@@@ST )@@G@@/K@@[WC[K@[B9?0@[ P')@@[/K@@[IC@)@@L8#K@[#O@K@]1G[K@@GAI@@@@)[L[UK@@@@@@SU )@@G@@P')@@[*^@@[ V)-)@@N[K@@I;*)@@VC@)@@GN9@@@@N80@@@N[)@@H'^@@AYC@K@@[AJ@@@@SV )@@G@@)[W[EK0@^G@^G@[#@@K0@@@@9*@@@[N#@@[#@@K@K0@@C@Y@@HH8@@@[N[)@@H'^@@AYC@K@@[C@)@@@B0I@@@SX )@@G@@)8K@@[B4@@@H[@)@@>AL@@@@)[\[EK@^G@^G@[#@@@@@@@@@9*@@@9?@@@AN@@@@)]][MK@K@K^@@@@@@@2K[)@@TA )@@G@@/K@@]H/K@@]Q3KL)@@D@K@@G/K@@]F1@@@@G]@K@[[/CK@]QH@K@[[AO@@@@)]G[N@@K0@K0TB )@@G@@@K0@@@O'0@@[H8)@@[G@)@@H;C?K@ T@W@@#C@@@@@;GK@@#&;K@@@C@K@[A/K@@]QAP@@@@TC )@@G@@)]Q[E[#@[#@@K0@K0@K0@@@@A@K@@!A@)@@?9*K@@%/KF@@@N@K@@>9?@@@/KF@@@R@0@@(R@K@@$TM )@@G@@C@)@@&R]0@@*/K@@#/K@@#8O'0@@[R]0@@>;C@@@MC@@@@[/K@@#7BA@@@@)#'[E^G@^G@^TP )@@G@@G@^G@^G@[#@@[@@@@@;*@@@MC@@@@@[@0@@8A@)@@79*K@@5A@K@@4A]0@@E/KF@@@BB@@@@TQ )@@G@@)^#[F#@@()@C]@CS@]A@@@@@%?@@["C8@@@/[@@@@5G@@@@H/K@@ V/,0@]'N8)@@CR8)@["TR )@@G@@ @@@[HBC@@@@)^G[F@K0@K@K0@[#@@@@@@@@C0K@["T8@@@EH8@@@0C4@@["C80@@GC8)@@@TS )@@G@@/K@@ V%)@@["/K@@^2BD@@@@)^P[M[@K0@^G@@K0@@C=K@["T8@@@EH8@@@0C*@@["C80@@ZTT )@@G@@[4@@[H/K@@ V,@)@@GG@@@@HH8K@@0BE@@@@)^Z[M[@K0@[#@@@@@@T8@@@EH8@@@0C4@@[_TU )@@G@@C80@[D@@@/,0@DEQ;)@@@[-D)@@/KF@@@SLIB 74R1 @@@@@@9*@^@ERF)^@E%C)^@F/K@@DRVN )@@G@@R#)@@HP#)@@G/K@KDJ'^@@DZA#@^@GR#@^@F'^@@DZP#@^@GR#)@@G9?@^@E/K@KDJ@@@@@@VO )@@G@@A#@^@H @@@@IR\0^@H/@0@D:P;0@@[R#@@@JW8)@@^O;)@@[T8)PA@T@@^@VO#@@@IR7)^@HVP )@@G@@P;)@@[O#I^@I8#)@D!R3)^@HP;)@@[T8)PA@O#@@@IR\0^@H+80@@#/ @@D'R70^@H?80@@#VQ )@@G@@/K@@D'O;@PA@RB)^@HO#@@@I/K@KDZ@@@@@@!8@E<@/K@@EVA#K^@GT8@@@/OB@^@G?8@PA@VR )@@G@@/K@@ET;G@@@=W8@PA@;^@@@=O3K^@GR7)^@GR\0^@G @@@@KC[Y^@IW9@PA@?@K@@K/K@@EQVS )@@G@@P#K@@KO;)@@[?8)@@H/K@@EQP;)@@GO;0@@[A3K^@GA7)^@GA\0^@G&F@^@G/K@KD.C@@^@WVT )@@G@@'=@@@I'=@@@)C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@E\C8)@@:')])HE;G@@@=W8@@@/VU )@@G@@C8?@@@C8H@@@/\K@E\C8)@@:')])HEC8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')])HEC8\@@0VV )@@G@@')])HE/KH@@@;C@@@M+8@_@@;GK@@0/\K@E\C8)@@/')])HE+8@@_@;GK@@%/\K@E\C8)@@/VW )@@G@@')])HE+8@@@_C8!@[@/\K@E\/KF@@@;C@@@M+8@@_@;GK@@%/\K@E\+8@_@@;CK@@FC@!@G[VX )@@G@@C80@@^;@)@@Y')])HE8#0@FH+8@@@_C8!@[@/\K@E\/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@VY )@@G@@;CK@@F9?H@G[/,0@IAC8)@@ ')])HEC@K@[[+8K@_@;G)@@%W8)@@E/@)@F=G8)@@0')])HEVZ )@@G@@C8\@@0')])HEC8)@@,')])HE+8K@@_C8I@Y?C8K@@ RE1@@#/K@@JX;C@@@M+8@@@_C8!@Y?WA )@@G@@;G)@@=W8)@[=N@K@@J/\K@E\C@)@[[/\K@E\+8@_@@;GK@@0/\K@E\+8@@_@;GK@@%/\K@E\WB )@@G@@/KF@@@;C@@@M+8@@@_C8!@[@!8)@[=H8)@[=/K@@F5 JAN UARY FEB RUARY MAR CWC )@@G@@H APR IL MAY JUN E JUL Y AUG UST SEP TWD )@@G@@EMBER OCT OBER NOV EMBER DEC EMBER A^W@@#A@?@@^A@/@@ Q8W@@@ ?[@@]WE )@@G@@R@)@KOQ^1@@@&80@@]C?-@@@+8)@@B;C)@@#9?@@KP/K@@G?9*#)@@9*#)@@9*#)@@9*#)@@WF )@@G@@8#)@G*C8)@@G&80@@[N@K@@JM@")@@Q^1@@@/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[WG )@@G@@Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@C0L@@[C8+@@@/@)@HAWH )@@G@@%8)@@AG8K@@[Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@[)<)@@WI )@@G@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@HQ[)<)@@A^-@@]Q8)@@@/K[K@]C4!@@@C0!@@@WJ )@@G@@C?!@@@C*!@@@C=!@@@C)!)@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@H&C)!)@@[^[@@]WK )@@G@@Q;@@@@/K[K@]C8?@@@')])HE/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@C8M@@@WL )@@G@@!8K@@AH8K@@AG@@@@HC8N@@@H^L@@@T8K@@AG8H@@@/K@@H!C8M@@@!8K@@AH8K@@AC8#@@@WM )@@G@@H^[@@@T8@@@AG@@@@H/KF@@@C80@@ /K@@IBC80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@IHWN )@@G@@')])HE8#0@IB/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@IR')G)HU')])HE8#0@IPWO )@@G@@/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@I+')G)HU*@@@@I')])HE8#0@IZ/KF@@@WP )@@G@@C?[@@[C^L@@[/K@@I(;G@@@M;CK@@M&;@@@[&;K@@[')G)HU:0-@@@/K@@I0')])HE/K@@I:WQ )@@G@@[?[@@[[^L@@[/KF@@@C80@@@;G@@@#/@@@I;G80@@[;G@@@#/^@@I6C8)@@0')])HEC8)@@@WR )@@G@@;=K@@#G8)@@0')])HE8#0@I;/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@I;N8X@@@C80@@@WS )@@G@@/C@@JHC8)@@-')])HED@@@@G8KK@JH;O@@@=W8@@@E;?)@@AG8.@@08KK@JM/^@@JH9?@@@IWT )@@G@@C8)@@0/K@@JR')])HE8KK@JQ+8K@@_')])HE;G@@@A/^K@JS/KF@@@N8X@@@&'0@@@C80@@@WU )@@G@@/C@@J=&'0@@-D@@@@G8KK@J=;O@@@=W8@@@E;?)@@AG8.@@08KK@J(/^@@J=9?@@@IC8)@@ WV )@@G@@/K@@J,')])HE8KK@J!C@)@@F;C)@@M*@@@@I')])HE+8K@@_')])HE;G@@@A/^K@J3/KF@@@WW )@@G@@C80@@@/C@@J.C8)@@-')])HED@@@@G;O@@@=W8@@@E;?)@@AG8.@@0/^@@J.9?@@@I+8K@@_WX )@@G@@')])HE;G@@@A/^K@K#/KF@@@;*@@@AC8N@@@H^L@@@C8+@@@/@)@KJ%8)@@AG8K@@[G@@@@HWY )@@G@@;*@@@MQB[@@@'=@@@I/K@@G.@@[@@@ C@@^^A'=@@@H+[K^^B[[)^^ /,0@C]WZ )@@G@@C@@^^C'=@@@IC@@^^D'=@@@I(@@^^ /K@@K*C8@^]^'=@@@J/C@@RTC@@^^E'=@@@I'=@@@DXA )@@G@@C@@^^F'=@@[['=@@@2 @@^["C@@^^G'=@@@F'^@@P=C8@^]^'=@@@J/C@@L(C8@^]C'=@@@JXB )@@G@@C8@^]^'=@@@J @@@@VC@@^]@[@@^[Y'^@@P?C@@^^H'=@@@H[^@^#;'^@@M8/^@@L]'^@@OBXC )@@G@@'^@@O&/K@@K'&#@^#;Q;@^@2G@@^^I'=@@@IC@@^^J'=@@@I/K@@K'C@@^^D'=@@@I'^@@P0XD )@@G@@C@@^['C@K^[;'^@@DJ/@)@LY/G)@LY[@)^]]C@@^^D'=@@@I'^@@PEC@K^]]T8K@J*C8@@@C8@^@<'=@@[Q(@@^["/K@@M5'=@@@QC@@^[/'=@@[&[@@^[/C@@^^U'=@@[[YH )@@G@@C@@^^V'=@@[['=@@@R(@@^[_/K@@Q"C@@^^W'=@@@IC8@^@&'=@@@C/K@@Q6[@@^["[@@^[.YI )@@G@@C/@^]M/,0@GV'=@@@?/,0@EYC8@^^XC8K@@^/,0@IJC8@^[.C8K@@A/,0@IJ/,0@G.C@@^^YYJ )@@G@@'=@@@IC@@^^Z'=@@@JC@@^[.%@@^^)/K@@RRC8@^]G'=@@@JC@@^^-'=@@@I'=@@@Q%@@^^+YK )@@G@@/K@@R\'^@@P=C@@^^D'=@@@I @@@@V'^@@P*C@@^[Y[@@^]@'^@@P*/G@@R&'^@@OB(@@^^ YL )@@G@@'^@@O&/K@@R)C@@^^D'=@@@I'^@@PE'^@@Q]*@@^^ '=@@@D*@@^#.'=@@@E/K@@S8%@@^^[@@^]@[@@^[Y @@@@V'^@@P?[#0^#.YN )@@G@@'=@@@E%@@^^&/K@@SYC;0@@['^@@P*/G@@S#/K@@S@R8K@@PC@@^^$[@[^@28@K@S C8@^]2YO )@@G@@'=@@@CC^@^]2[C@^]6;G@@@=W8@@@A*@@@@HG8@@@[[@@^#;C@K^@2:@K^^*/K@@SV'^@@M8YP )@@G@@/^@@SQ/K@@S#C8@^]5'=@@@CC8@^@('=@@@C/K@@S#'^@@P0[@@^#./K@@RT%@@^^(/K@@S4YQ )@@G@@C')@@[C'0@@[C#0@@Q'^@@P*/G@@S0C])@@V'^@@O&C8@^@?'=@@@CC@@^@2:@@^^%/K@@S+YR )@@G@@C#0@@R'^@@P?C]0@@V/K@@S+C#0@@R'^@@P0[@@^#./K@@RTC8@^@\'=@@@CC@@^^?'=@@@IYS )@@G@@ @@^["/K@@Q6@@@@@@@@@@@@'=@@@D9*K^ WA@0^ YCC)^^!C@K@@['^@@ZPN[)@@HC^)^^!YT )@@G@@C@K@@]'^@@ZPN[0@@HN]@^BXN80@@@N9@@@@C@K@@G;*K@@DG@K@@G;*K@@MN[K@@HCCK^^!YU )@@G@@R8.O^6-^K^^!')I^^89?K^ WR@0^ Y/KF@@@9*K^ ZB4@@@G)8@@@[B0H@@@C@)^^!C@K@@[YV )@@G@@'^@@ZP[@K@[ACK[)@@B4@@@HH8K@@[B0H@@@9?K^ Z/KF@@@9*@^ ,A@K^ 0A])^ 1R':@@[YW )@@G@@ @@^ 5C@)^^!/,0@TQ%@I^ @/K@@T0 @)^ 5O@K^BY/,0@TQ:@I^ ]/K@@T6C@@^ ,*@@^ 5YX )@@G@@H8@@@[/K@@UI9*0^ 2[[K^ 4C@"^ ]H80@@[C[I^ ^ @@@@LC@K^ ,H8K@@[*@@^ 5H8K@@[YY )@@G@@/,0@TQ,@0@@G/K@@UEH@I^ ]T9K@@CG[K@@GO@K^BY8#K@U@C@)@@L/K@@UFP')@@[9?0^ 2YZ )@@G@@C[K^ 4/K@@UTC@K@@['^@@ZPN[)@@HN80@@@N9@@@@C@)@@G;*)@@VN[K@@IV)-)@@*^@@[ ZA )@@G@@P')@@[C@K@@I*@@^ 5]@K@@I9?@^ ,R@K^ 0R]0@@ER])^ 1/KF@@@9*@^ K[@)^ MB4@@@HZB )@@G@@)8K@@[B0I@@@C@)^^!C@K@@['^@@ZPN[)@@HH8@@@[C@Y^^'[KL)@@8#@@U?B4@@@HH8K@@[ZC )@@G@@B0H@@@9?@^ KC@)^ M/KF@@@9*@^ K^@K^ MB4@@@H)8K@@[B0I@@@C@)^^!C@K@@['^@@ZPZD )@@G@@N[)@@HC@K@@[;CK@@MH@K@[[/CK@VN]@K@[[1@@@@G/K@@VCD@K@@G3KL)@@/K@@VN/K@@VEZE )@@G@@2K[)@@/K@@VNC@K@[A&;K@@@;GK@@#C@@^^!T@W^^0;C?O^2G@)@@HH8)@@[O'0@@[B4@@@HZF )@@G@@H8K@@[B0H@@@9?@^ KN@K^ M/KF@@@9*K^ RA@)^ TA@K^ UA]0^ VCC)^^!:^)^^!/K@@V&ZG )@@G@@R8)^A:/,0@S.R]0^ VR@K@@]R@)^ TC^)^^!C@K@@['^@@ZPN[)@@HC@K@@]'^@@ZPN[0@@HZH )@@G@@N80@@@N9@@@@[@@@@H;*@@@DG@@@@H;*@@@MN[K@@GVK[)@@9?K^ RR@K^ U/KF@@@ @@^ 8ZI )@@G@@/K@@V' @)^ 8A]0^ P[@)^ NA@K^ OA@0^ QRC0^^!D@#^^//,0@U4/K@@WT[@)^ 9&@K@@IZJ )@@G@@C@#^^//,0@U4C@)@[[C@K@@IC@#^^"*@@^ 8/,0@U4C@)@[[!@)@@HC@)@@HC@@@@IH@@^ 9ZK )@@G@@!@@@[]C@@@[]/,0@S.R]0^ PO'0@@[C@K^ 9H@)@@HC@@@@I/K@@WUR]0^ PC@)^ NR@K^ OZL )@@G@@R@0^ Q/KF@@@A]0^ M9*K^ NA@K^ PH@K@@I[@K@[[C@@@@I/,0@VT/@@@W(O@K^BY8KK@WC@@^^!;*@@@M[@@^^! @@^ 'R8)^A:N8)@@C/,0@V7/K@@YMG@@@@HZO )@@G@@[@@^ +C8@@@/%?@^A:/K@@X(%)@^A:/K@@YMC8)@@@C80@@GC4@^A:H8@@@0T8@@@EC0K^A:ZP )@@G@@H8K@@0G@@@@H,@)@@G/K@@YM[4@^ 'C80@@ZC*@^A:H8@@@0T8@@@EC=K^A:H8K@@0G@@@@HZQ )@@G@@,@)@@G/K@@YM[0@^ 'C8)@[@C80@[/KE@@@A]0@@EA@K^ $A@)^ *A@0^ (9*)^ !R8)^A:ZW )@@G@@N8)@@,/,0@V7/K@@ZJ9*@^ :G@@@@H[@@^ %&@K@@HC@0@@HR@)^ *RC0^^!C@#^^'C@K@@GZX )@@G@@9*]@@@9*]@@] @]@@^C@#^ E/,0@U4 @@@@I[@)^ 6C@#^ G/,0@U4 @@@@I[@)^ 7C@@^ 6ZY )@@G@@/@@@Y_H@@@@J&8)@@@/,0@S.C@0^ 6G80@@[&@K@@JC@@^ 7(@@@@GC@@^ %H@@@@J&8)@@GZZ )@@G@@/,0@S.G8/@@[(@@^ 7/K@@ZI&@K@@JH@0^ %D/J@@[/,0@T=/K@@ZJ[@+@@^O')@@[R@K^ $AA )@@G@@R@)^ *R@0^ (9?@^ :9?)^ !/KE@@@@@@@@@9*)^^,C@0@@I;GK@@6/@)@ZXW@Z^^0;*\O^2AB )@@G@@;?K@@#&#Z^^49?)^^,/K@KZP1R2 INPUT MINUTES TOO LARGE FOR ATDATE (MAX = AC )@@G@@1 MONTH) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH'@@@DI*@@@EH'@@@D84@@@EH'@AD )@@G@@@@D84@@@EH'@@@EH'@@@D84@@@EH'@@@D84@@@EH'@@[8NI@@]D^@[SLEEPER 3R1 AE )@@G@@ ERROR 8@@@@@@@@@@@@@@@@@@@=^#:@@@@@@@@@@@@@@Y^]8@@@@@@AF )@@G@@@@@@@@@@%^#=@@2^@2@@@@@@@@A^^:@@@@@@Z_____@@@@II@@@@@@@@@@@@@@@@@[UNREALAG )@@G@@@@@@@@@@@@@@@@@@@@@ASG,A *SLEEP$DATA . @CAT,P SLEEP$DATA . @FREE,AH )@@G@@D SLEEP$DATA . @START & . &@&Q^]T@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@@LOG AI )@@G@@@@@@@@@@2^]T@@@@@@@@@@@@@@=^#S@@2^@2@@@@@@@@@^@2@@@@@@ABOVE INPUT CARD IAJ )@@G@@N ERROR NO INPUT RUN-STREAM DATA SPECIFIED& WILL CYCLE EVERY & STARAK )@@G@@TING AT & SIESTA TIME UNTIL & ABOUT TO START& SLEEPER TERMINATEDAL )@@G@@ BY OPERATORNO RUNS SCHEDULED KEY IN 'STIM DMIN ELTNAME' OR 'END' SLEEPAM )@@G@@ER IS IN &REAL TIME MODE& DO YOU WANT ABOVE RUN-STREAM REMOVED? Y,N AN )@@G@@SLEEPER BUSY RIGHT NOW. TRY LATER COULDN'T START & . ERROR & ENCOUNTEAO )@@G@@RED.& @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SLEEP$DATA @@@@@@@@@@@@@@W^[XAP )@@G@@@@@@@@@@@@@@@@@@@@@KT^@2@@@@]@@[A^@X@[@@@@@]#^#PI_@@Q)@@[@Q\@LD^@2@]@@@@AQ )@@G@@@[ ^]8REAL Z_____@@@___ HRS MINS ST= ,DT= _____"@@[@@RNON- K@[@S'AR )@@G@@[@[@QT@]A^#: II @]^^]T@@Q^]STERM @] ^#KSTAT RT NRT UNREALADD AS )@@G@@ END REM Y WHAT??@[[^^:@@@@@@@@@@@@@@@@@@@@@@@A@@@@@^@@@@@-AT )@@G@@@@@@@+@@@0@[@@@)@]@@@^ ;@@@^AFV@[)@@V^[)@@ ^@)^@)@@@@@ @@@@@)@@@@@,AU )@@G@@@@@@@?@@@@@-@@@@@!@@@@@0@@@@@0@@@@@7@@@@@7@@@@@/@@@@@\@@@@@:@@@@@'@@@@@*AV )@@G@@@@@@@%@@@@@(@@@@@*@@@@@)@@@@@(C[VF*<^@)CD]CT^C(AC9CDDEDTGD(ID9KEDMETOE(QAW )@@G@@E9SFDU C! S/B*"^0= K*^*'B8- -WA@1AK3A)5A07B@9^8; 8,^K)@* @* @* @* @* @* AX )@@G@@@* @* @* @* @* @* @* @* @* @* @*!B0#^8%^0' C) @+ 0_B*/A@1AK3A)5A07B@9 S;AY )@@G@@^S=^*?@@A@8C[CE[SG[*I[8K]CM]SO]*Q]8S#CU#SW#*Y#8[ 8]@)_@*A@8C[CE[SG[*I[8KAZ )@@G@@]CM]SO]*Q]8S#CU#SW#*Y#8 @* @* )@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]BC )@@G@@@@@#@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@BYTESUB I- ]VKDTDATE GB]]QJEDIT$ B"UCBIEDIT$T LMWCCFBF )@@G@@ERU$ JTKGOIIDONLY$ B_*CBISLEEPER D6*]WKSYSLIB$ID JN7GOIBG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@A$DBANK @@M@@#@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@M)/@@^ULZ@@@MF\@@@@@@@@@@@@@@@@@@]FKI0A@@@@@@MINHA )@@#YEBI )@@G@@0]FI0C2INHA ^S @@@ELT ]FKI0C@@@@@JK@@[@^@[J@C@@@@@@#BJ )@@G@@K@@[@^@[J@DJ@@@@@DK@@[@^@[.@EY@@@@@AK@@[@^@#/@GV@@@@@M@@@[@^@C&@KR@@@@@@BK )@@G@@@@@[@^@A<@S.@@@@@#0@@@@ @@X^@@@@@@@M)@@@@ @^K^@X@@@@@@)@@@@ @]2^^!@@@@@@BL )@@G@@ATDATE @@#@@,BINT @@J@@$BMOVE @@J@@@BTDATE @@J@#5BM )@@G@@DTDATE @@#@@@ECOLN$ @@D@[-ECOPY$ @@D@[4EDECF$ @@D@#]BN )@@G@@EDECV$ @@D@#XEDITX$ @@D@@+EDIT$ @@D@@@EDIT$T @@D@@\BO )@@G@@EFD1$ @@D@[(EFD2$ @@D@[:EMSGR$ @@D@]DEMSG$ @@D@]GBP )@@G@@EOCTF$ @@D@]&EPRINT$ @@D@#!ESKIP$ @@D@[SETIME$ @@A@@@BQ )@@G@@GETFIELD @@J@]'IDBUFF @@P@@@IDONLY$ @@@@@]@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@SYSLIB$ID 74R1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@F@E@DTEST EQU 0 BV )@@G@@ . IF TEST = 1, TEST MODE ON @D@E@DIDBUFF* 'SLEEPER 2R3 BW )@@G@@ ' @C@@@EIDBUFF* 'SLEEPER 3R1 BX )@@G@@ '@H@@@D. **********************************************************BY )@@G@@**************** @H@@@D. ******* BZ )@@G@@ ******* @H@@@D. ******* S L E E P E CA )@@G@@R ******* @H@@@D. ******* CB )@@G@@ ******* @H@@@D. ******* WRCC )@@G@@ITTEN BY LOU INFELD, 03/07/77 (1R1) ******* @H@@@DCD )@@G@@. ******* UPDATED BY LOU INFELD, 08/16/77 (2R1) ***CE )@@G@@**** @H@@@D. ******* UPDATED BY LOU INFELD, 10/22/78 (2R2) CF )@@G@@ ******* @H@@@D. ******* UPDATED BY LOU INFELD, 11/13/78 (2R3) CG )@@G@@ ******* @H@@@E. ******* UPDATED BY LOU INFELD, 11/CH )@@G@@21/78 (2R4) ******* @H@@@E. ******* UPDATED BY LOUCI )@@G@@ INFELD, 02/14/79 (2R5) ******* @H@@@E. ******* UPCJ )@@G@@DATED BY LOU INFELD, 08/09/79 (2R6) ******* @H@@@ECK )@@G@@. ******* UPDATED BY LOU INFELD, 02/27/80 (3R1) ***CL )@@G@@**** @H@@@D. ******* CM )@@G@@ ******* @H@@@D. ******* THIS PROGRAM WILL SCHEDULE EXECUTION OCN )@@G@@F GIVEN RUN-STREAMS ******* @H@@@D. ******* AND WHEN THEIR TIME OF EXECO )@@G@@CUTION ARRIVES, IT WILL START ******* @H@@@D. ******* THEM. AT OTHECP )@@G@@R TIMES IT WILL SLEEP (HENCE THE NAME ******* @H@@@D. ******* 'SCQ )@@G@@LEEPER'). ******* @H@@@DCR )@@G@@. ******* ***CS )@@G@@**** @H@@@D. ******* WHEN FIRST EXECUTED, SLEEPER WILL READ DATA CARDS CT )@@G@@WHICH ******* @H@@@D. ******* SPECIFY WHAT RUN-STREAMS TO PERFORM ANCU )@@G@@D AT WHAT INTERVALS. ******* @H@@@D. ******* THE INITIAL CALLING SEQUENCV )@@G@@CE IS: ******* @H@@@D. ******* CW )@@G@@ ******* @H@@@D. ******* CX )@@G@@ @SLEEPER ******* @H@@@DCY )@@G@@. ******* SMIN-1 DMIN-1 ELT-NAME-1 ***CZ )@@G@@**** @H@@@D. ******* SMIN-2 DMIN-2 ELT-NAME-2 DA )@@G@@ ******* @H@@@D. ******* ........................ DB )@@G@@ ******* @H@@@D. ******* SMIN-N DMIN-N ELT-NADC )@@G@@ME-N ******* @H@@@D. ******* DD )@@G@@ ******* @H@@@D. ******* WHDE )@@G@@ERE 'SMIN-I' IS STARTING MINUTE WITHIN THE HOUR, 'DMIN-I'******* @H@@@DDF )@@G@@. ******* IS INCREMENT IN MINUTES AND 'ELT-NAME-I' IS WHERE THE ***DG )@@G@@**** @H@@@D. ******* RUN-STREAM IS. FOR EXAMPLE: 15 60 OP*U/UKEY.HDH )@@G@@OURLY ******* @H@@@D. ******* INDICATES THAT ELEMENT 'OP*U/UKEY.HOURDI )@@G@@LY' WILL BE STARTED ******* @H@E@D. ******* EVERY HOUR (60) AT 15 MINUDJ )@@G@@TES AFTER THE HOUR. 'SMIN-I' ******* @H@@@E. ******* EVERY HOUR (60DK )@@G@@) AT 15 MINUTES AFTER THE HOUR. ******* @H@@@E. ******* DL )@@G@@ ******* @H@@@EDM )@@G@@. ******* 'SMIN-I' CAN ALSO BE THE WORD 'NOW' INDICATING PRESENT ***DN )@@G@@**** @H@@@E. ******* TIME OR HAVE THE FORMAT 'HH:MM:SS' FOR A SPECIFIC DO )@@G@@TIME. ******* @H@@@E. ******* DP )@@G@@ ******* @H@@@E. ******* 'DMIN-I' CAN HAVE THE ALTEDQ )@@G@@RNATE FORMAT 'HXXX' WHERE ******* @H@@@E. ******* 'XXX' WILL BE DR )@@G@@INTERPRETED AS HOURS INSTEAD OF MINUTES. ******* @H@E@D. ******* CADS )@@G@@N BE = 'NOW' (INCLUDING '-S). ******* @H@@@DDT )@@G@@. ******* ***DU )@@G@@**** @H@E@D. ******* SLEEPER WILL CREATE A TEMPORARY FILE (SLEEP$DATA) DV )@@G@@WITH ******* @H@@@E. ******* SLEEPER WILL CATALOG A FILE (SLEEP$DATDW )@@G@@A) AND INSERT ******* @H@@@D. ******* THIS INFORMATION AND WHEN DX )@@G@@THE NEXT SCHEDULED EXECUTION ******* @H@@@D. ******* WILL OCCUR FORDY )@@G@@ EACH RUN-STREAM. THE FORMAT OF EACH SECTOR ******* @H@@@D. ******* INDZ )@@G@@ THE FILE (ONE SECTOR PER RUN-STREAM) IS: ******* @H@@@DEA )@@G@@. ******* ***EB )@@G@@**** @H@@@D. ******* WORD 0 - NEXT SCHEDULED EXECUTION (IN TDATEEC )@@G@@$ FORMAT)******* @H@@@D. ******* WORD 1 - INCREMENTAL TIME (IN MED )@@G@@INUTES) ******* @H@E@D. ******* WORDS 2-20 - ELT-NAME EE )@@G@@ ******* @H@E@D. ******* WORD 21 EF )@@G@@- # OF CHARS IN ELT-NAME ****** @H@@@E. ******* EG )@@G@@ WORD 2 - # OF CHARS IN ELT-NAME ****** @H@@@EEH )@@G@@. ******* WORDS 3-27 - ELT-NAME ***EI )@@G@@**** @H@@@D. ******* EJ )@@G@@ ******* @H@@@D. ******* EXCEPT SECTOR 0 WHICH IS THE REAL-TIMEEK )@@G@@ KEY AND HAS THE ******* @H@@@D. ******* VALUES 'REAL' OR 'UNREAL'.EL )@@G@@ ******* @H@@@D. ******* AFTER SLEEPER EM )@@G@@IS INITIALIZED, IT WILL CALCULATE THE TIME ******* @H@@@D. ******* OFEN )@@G@@ THE NEXT START AND SLEEP (TWAIT$) UNTIL THEN. ******* @H@@@DEO )@@G@@. ******* WHEN SLEEPER AWAKENS, IT WILL START THE NEXT RUN-STREAM ***EP )@@G@@**** @H@@@D. ******* AND UPDATE THE FILE. EQ )@@G@@ ******* @H@@@D. ******* ER )@@G@@ ******* @H@E@D. ******* USE IS MADE OF UOM TIDE$ RES )@@G@@OUTINES FOR INPUT FORMATTING, ******* @H@@@E. ******* USE IS MADE OFET )@@G@@ BYTESUB ROUTINES FOR INPUT FORMATTING, ******* @H@@@D. ******* ANEU )@@G@@D SUBROUTINE DTDATE TO PERFORM TDATE$ CALCULATIONS. ******* @H@@@DEV )@@G@@. ******* ***EW )@@G@@**** @H@@@D. ******* THE FOLLOWING 'II' KEYINS ARE RECOGNIZED: EX )@@G@@ ******* @H@@@D. ******* EY )@@G@@ ******* @H@@@D. ******* TERM - TERMINATE SLEEPEZ )@@G@@ER ******* @H@@@D. ******* RT - GO FA )@@G@@REAL TIME ******* @H@@@D. ******* FB )@@G@@ NRT - RELEASE REAL TIME ******* @H@@@DFC )@@G@@. ******* STAT - PRINT STATUS ***FD )@@G@@**** @H@@@D. ******* ADD - ADD NEW RUN-STREAMS TO SLEEPER FE )@@G@@ ******* @H@@@D. ******* REM - REMOVE RUN-STREAMS FROM SLEFF )@@G@@EPER ******* @H@@@D. ******* FG )@@G@@ ******* @H@@@E. ******* AVAILABLE OPTIFH )@@G@@ONS: ******* @H@@@E. ******* --FI )@@G@@--------------- ******* @H@@@EFJ )@@G@@. ******* ***FK )@@G@@**** @H@@@E. ******* S - PERFORM STATUS ONLY (READ 'SLEEP$DATA') FL )@@G@@ ******* @H@@@E. ******* FM )@@G@@ ******* @H@@@D. ******* REVISION SUMMARY: FN )@@G@@ ******* @H@@@D. ******* --------------FO )@@G@@-- ******* @H@@@D. ******* FP )@@G@@ ******* @H@@@DFQ )@@G@@. ******* 1R1 -- FIRST RELEASE ***FR )@@G@@**** @H@@@D. ******* 2R1 -- TEST FACILITY ADDED FS )@@G@@ ******* @H@@@D. ******* -- IDONLY$ SIGN-ON FT )@@G@@ ******* @H@@@D. ******* -- PRINT ERRORS WITH 'FU )@@G@@ERRPR$' ******* @H@@@D. ******* -- REENTRYFV )@@G@@ EXECUTION FROM SAME FILE AS FIRST ******* @H@@@D. ******* FW )@@G@@ -- USE I/O FOR INTERNAL FILE ******* @H@@@DFX )@@G@@. ******* 2R2 -- CONVERT TO TDATE$ FORMAT ***FY )@@G@@**** @H@@@D. ******* -- ALLOW NO INPUT CASE FZ )@@G@@ ******* @H@@@D. ******* -- USE @START INSTEAD OF @ADD GA )@@G@@ ******* @H@@@D. ******* -- FIX BUGS IN 'ADD' AGB )@@G@@ND 'REM' LOGIC ******* @H@@@D. ******* -- MOVE REGC )@@G@@AL TIME KEY TO SEPARATE SECTOR 0 ******* @H@@@D. ******* 2RGD )@@G@@3 -- RESTART PROG WHENEVER ENVIRONMENT CHANGES ******* @H@@@DGE )@@G@@. ******* -- ALLOW START PARAMETERS ON ELT-NAME FIELD ***GF )@@G@@**** @H@@@E. ******* -- EXPAND # OF WORDS FOR ELT-NAME FIELD GG )@@G@@ ******* @H@@@E. ******* -- USE CATALOGUED FILE FOR RECOVERGH )@@G@@Y PURPOSES ******* @H@@@E. ******* 2R4 -- ALLOW 'NOW' AND 'HHGI )@@G@@MM' WITHOUT ' ' FOR SMIN ******* @H@@@E. ******* 2R5 -- ADD 'S'GJ )@@G@@ OPTION ******* @H@@@E. ******* GK )@@G@@ -- ALLOW HOURS FORMAT FOR 'DMIN-I' ******* @H@@@EGL )@@G@@. ******* -- USE BYTESUB PACKAGE INSTEAD OF TIDE$ ***GM )@@G@@**** @H@@@E. ******* -- DO DUMMY READ INSTEAD OF RINF$ GN )@@G@@ ******* @H@@@E. ******* -- PRINT HRS OR MINS FOR DMIN GO )@@G@@ ******* @H@@@E. ******* -- CONVERT TO MASM GP )@@G@@ ******* @H@@@E. ******* 2R6 -- CHANGE GQ )@@G@@TEST MODE TO @MASM,T ******* @H@@@E. ******* GR )@@G@@ -- DON'T ALLOW II UNTIL INITIALIZED ******* @H@@@EGS )@@G@@. ******* -- START IN NON-REAL TIME MODE ***GT )@@G@@**** @H@@@E. ******* -- DON'T USE WHOLE LINE FOR CONSOLE PRINT-OUTSGU )@@G@@ ******* @H@@@E. ******* -- BUG IN 'ADD' LOGIC (NWDS NOT CAGV )@@G@@LCULATED) ******* @H@@@E. ******* 3R1 -- UPDATE TO USE 'BYTEGW )@@G@@SUB 2R1' FORMATS ******* @H@@@E. ******* -- CHANGE GX )@@G@@FORMAT OF SMIN INPUT ******* @H@@@E. ******* GY )@@G@@ -- UPDATE TEST FACILITY ******* @H@@@DGZ )@@G@@. ******* ***HA )@@G@@**** @H@@@D. **********************************************************HB )@@G@@**************** @E@E@D$(1),ST LIPROC$ . INVOKE 'HC )@@G@@LI' PROCS @E@@@E$(1),ST LIPROC$ . INVOKE 'LI' PRHD )@@G@@OCS @E@@@E READ$ CARD . DUMMY READ OF INFOR HE )@@G@@@F@E@D S R2,TDATE . STORE PRESENT TIME AND DAYHF )@@G@@@E@E@D R$INF . READ INFOR TABLE @^@E@DHG )@@G@@ ON TEST@E@E@D COND$ . GEHH )@@G@@T CONDITION WORD @D@E@D AND A0,(0770000) . ISOLATE HI )@@G@@T2 @F@E@D TNE A1,(020000) . IF = 2, TURN ON SNOOHJ )@@G@@PY @^@E@D SLJ TON$@#@E@D OFF @G@@@E HK )@@G@@ TEST . INVOKE TEST MODE IF @MASM,T @E@@@EHL )@@G@@ AND A5,(1*/('Z'-'S')) . ISOLATE 'S' OPTION @F@@@E HM )@@G@@ S A6,SOPT . STORE AS S-OPTION FLAG @E@@@D HN )@@G@@ LMJ X11,IDONLY$ . GENERATE SIGN-ON @D@@@D PRHO )@@G@@INT$ IDBUFF,6 . PRINT SIGN-ON @D@@@D PRINT$ 0,0,HP )@@G@@1 . SKIP A LINE @E@@@E TNZ SOPT HQ )@@G@@ . IS 'S' OPTION SET? @E@@@E J RESTART . NOHR )@@G@@, NORMAL MODE @E@@@E CSF$ ASG . '@ASG,A HS )@@G@@*SLEEP$DATA'@E@@@E JP A0,IISTAT . DATA FILE THERHT )@@G@@E? @E@@@E PRINT$ MESS7,NMESS7,2 . NO, PRINT DIAGNOSTICHU )@@G@@@#@@@E EXIT$ @H@@@DRESTART IALL$ ERRR,01677,0 . REHV )@@G@@GISTER ABNORMAL ERROR CONTINGENCY @H@@@E NRT$ HW )@@G@@ . RELEASE REAL TIME (IN CASE OF RESTART)@G@@@D SZ HX )@@G@@ IIBUSY . CLEAR II ACTIVITY BUSY FLAG @E@@@D FOHY )@@G@@RK$ II,1,0,0 . START 'II' ACTIVITY @^@E@D ON HZ )@@G@@ TEST@ @E@D SLJ CPTIM @F@@@E SLJ CPTIIA )@@G@@M . GET PRESENT TIME AND DAY @#@E@D OFF @E@E@DIB )@@G@@ CSF$ ASG6 . '@ASG,A SLEEP$DATA' @E@@@E IC )@@G@@ CSF$ ASG . '@ASG,A *SLEEP$DATA'@H@E@D JPID )@@G@@ A0,CONT8 . FILE EXISTS, NOT FIRST TIME THROUGH @H@@@EIE )@@G@@ JP A0,CONT7 . FILE EXISTS, RECOVERY OR RESTARTIF )@@G@@ MODE @E@@@E CSF$ CAT . '@CAT,P SLEEP$DATA' IG )@@G@@@E@E@D CSF$ ASG5 . '@ASG,T SLEEP$DATA' @E@@@EIH )@@G@@ CSF$ ASG . '@ASG,A SLEEP$DATA' @E@@@D II )@@G@@ SZ A15 . INIT. SECTOR ADDRESS@G@@@D L IJ )@@G@@ A0,RTKEY . STORE INITIAL VALUE OF REAL @F@@@D IK )@@G@@ S A0,STIM . TIME KEY IN SECTOR 0 @ @@@D IL )@@G@@ SLJ WRITE @F@E@DLOOP1 L,U X1,21 . INIM )@@G@@ITIALIZE INPUT BUFFER @A@E@D L A0,(' ') @ @E@DIN )@@G@@ S A0,CARD,X1@ @E@D JGD X1,$-1 @E@E@DIO )@@G@@ READ$ CARD,CONT2 . READ NEXT DATA CARD @E@@@ELOOP1 IP )@@G@@ READ$ CARD,CONT2 . READ NEXT DATA CARD @D@E@D S,IQ )@@G@@H2 A0,AO . SAVE # OF WDS @D@@@E S,H2 A0,NIR )@@G@@WDS . SAVE # OF WDS @G@@@D SLJ INPUT IS )@@G@@ . PROCESS INPUT AND ADD TO FILE @D@@@D JNZ A0,CONT1 IT )@@G@@ . INPUT ERROR @G@@@D SLJ PINFO . PRIU )@@G@@INT INFO ABOUT EACH RUN-STREAM@F@@@D SLJ CINFO IV )@@G@@ . SEND SAME INFO TO CONSOLE @D@@@D J LOOP1 IW )@@G@@ . GET NEXT INPUT@ @E@DCONT1 LXI A0,AO @ @@@ECONT1 LXIX )@@G@@I A0,NWDS @ @@@D LXM,U A0,CARD @A@@@D A IY )@@G@@ A0,(0200,0) @E@@@D PRINT$ . PRIZ )@@G@@INT BAD INPUT CARD@G@@@D PRINT$ MESS1,NMESS1 . 'ABOVE IJA )@@G@@NPUT CARD IN ERROR' @C@@@D J LOOP1 . IGJB )@@G@@NORE @D@@@DCONT2 PRINT$ 0,0,1 . SKIP A LINE @E@@@DJC )@@G@@ SLJ EOF . CLOSE DATA FILE @H@@@DCONT3 JD )@@G@@ L A0,TDATE . IF NEXT START TIME < PRESENT TIME, JE )@@G@@@D@@@D L A1,FIRSTTIM . SKIP SIESTA @ @@@D JF )@@G@@ SLJ DTDATE @ @@@D JZ A2,CONT6 @ @@@D JG )@@G@@ JN A2,CONT6 @ @@@D S A2,TEMP @C@@@D JH )@@G@@ PRINT$ 0,0,1 . SPACE @E@@@D SLJ PSIEJI )@@G@@STA . PRINT SIESTA MESSAGE@F@@@D L A1,TEMP JJ )@@G@@ . CALCULATE TWAIT$ TIME @F@@@DCONT4 MSI,U A1,1000 JK )@@G@@ . CONVERT TO MILLISECONDS @ @@@DCONT5 L,U A0,35 JL )@@G@@@ @@@D L A2,RTKEY @E@@@D TNE A2,('REAL JM )@@G@@ ') . IF R/T KEY IS SET, @ @E@D ON 1-TEST @ @@@EJN )@@G@@ $IF MASMT=0 @D@@@D RT$ JO )@@G@@ . GO REAL TIME @#@E@D OFF @#@@@E $ENDF @#@@@DJP )@@G@@ NOP @E@@@D SZ MBUSY . CLEAR MAJQ )@@G@@IN BUSY FLAG@D@@@D TWAIT$ . LONG WAIT JR )@@G@@@[@@@D. @C@@@D. SLEEP UNTIL NEXT START TIME ARRIVES @[@@@DJS )@@G@@. @E@@@DCONT6 NRT$ . RELEASE REAL TIME JT )@@G@@@ @@@D L,U A1,30000 @H@@@D TZ IIBUSY JU )@@G@@ . IF AN 'II' IN PROGRESS, GO TO SLEEP @F@@@D J JV )@@G@@ CONT5 . FOR ANOTHER 30 SECONDS @E@@@D S JW )@@G@@ A1,MBUSY . SET MAIN BUSY FLAG @F@E@D L A0,RJX )@@G@@TKEY . IF PRESENTLY IN NON-REAL @F@E@D TE A0,(JY )@@G@@'UNREAL') . MODE, REFRESH REAL TIME @E@E@D J CONTJZ )@@G@@7 . KEY FROM FILE @^@E@D SZ A15 @^@E@DKA )@@G@@ SLJ READ@ @E@D L A0,STIM @ @E@D KB )@@G@@ S A0,RTKEY @F@E@DCONT7 SLJ CPTIM . GEKC )@@G@@T PRESENT TIME/DATE @F@@@E SLJ CPTIM . GEKD )@@G@@T PRESENT TIME/DATE @F@@@D L A1,FIRSTTIM . ISKE )@@G@@ IT TOO EARLY TO ARISE? @ @@@D L A0,TDATE @ @@@D KF )@@G@@ SLJ DTDATE @G@@@D JZ A2,$+2 . NOKG )@@G@@, THE TIME IS EXACTLY RIGHT @F@@@D JP A2,CONT4 KH )@@G@@ . YES, GO BACK TO SLEEP @F@E@DCONT8 . KI )@@G@@ . NOT FIRST TIME THROUGH @F@E@D L A0,(LARGE) KJ )@@G@@ . INITIALIZE NEXT START TIME@F@@@ECONT7 L A0,(LARGE) KK )@@G@@ . INITIALIZE NEXT START TIME@A@@@D S A0,FIRSTTIM KL )@@G@@@F@@@D SZ A15 . INITIALIZE SECTOR ADDRESS KM )@@G@@@E@@@D SLJ READ . READ REAL TIME KEY @ @@@DKN )@@G@@ L A0,STIM @C@@@D S A0,RTKEY KO )@@G@@ . STORE @E@@@DLOOP2 SLJ READ . GET NEXT DATA KP )@@G@@IMAGE @F@@@D JN A0,CONT3 . NO MORE DATA, GO TO KQ )@@G@@SLEEP @D@@@D L A1,STIM . GET START TIME@ @@@DKR )@@G@@ L A0,TDATE @E@@@D SLJ DTDATE KS )@@G@@ . CALC STIME - PRESENT@F@@@D JZ A2,$+2 . ISKT )@@G@@ START TIME IN PAST? @ @E@D JP A2,CONT10 @ @@@E KU )@@G@@ JP A2,CONT9 @G@@@D L A0,DMIN . YEKV )@@G@@S, CALCULATE NEW START TIME @ @@@D SLJ ATDATE @ @@@DKW )@@G@@ L A1,A0 @G@@@D TLE A1,FIRSTTIM KX )@@G@@ . FIRSTTIM = MIN (FIRSTTIM,STIM) @A@@@D S A1,FIRSTTIKY )@@G@@M @ @@@D L A2,DMIN @D@@@D DS A1,CKZ )@@G@@ARD . SAVE STIM,DMIN@F@@@D E$DIT EPKT LA )@@G@@ . EDIT STARTING MESSAGE @ @@@D E$TIME TDATE @^@@@DLB )@@G@@ E$SKIP 1 @ @@@D L,U A0,ELTNAME@A@@@D LC )@@G@@ L A1,NELTNAME @#@@@D E$COPY @ @@@D E$LD )@@G@@MSG MESS5 @#@@@D E$COLN @A@@@D S,H1 A0,CLE )@@G@@OMPKT+1 @#@E@D E$DITX @F@E@D PRINT$ OUT,22,2 LF )@@G@@ . PRINT STARTING MESSAGE @F@@@E E$PRINT 2 LG )@@G@@ . PRINT STARTING MESSAGE @ @E@D ON 1-TEST LH )@@G@@@ @@@E $IF MASMT=0 @G@@@D COM$P COMPKT LI )@@G@@ . SEND STARTING MESSAGE TO CONSOLE@#@E@D OFF @#@@@ELJ )@@G@@ $ENDF @E@@@D E$DIT EPKT . GENERATELK )@@G@@ START CARD @ @@@D E$MSG START @ @@@D L,U LL )@@G@@ A0,ELTNAME@A@@@D L A1,NELTNAME @#@@@D E$LM )@@G@@COPY @#@@@D E$MSGR @E@E@D PRINT$ OUT LN )@@G@@ . PRINT START CARD @E@@@E E$PRINT . PRLO )@@G@@INT START CARD @ @@@E $IF MASMT=0 @ @E@D ONLP )@@G@@ 1-TEST @E@@@D CSF$ OUT . SUBMIT SLQ )@@G@@TART CARD @C@E@D JP A0,CONT9 . ERROR? @#@@@ELR )@@G@@ $ENDF @C@@@E JP A0,CONT8 . ERROR? LS )@@G@@@E@@@D S A0,AO . YES, SAVE STATUS @D@@@DLT )@@G@@ E$DIT EPKT . TURN ON EDITOR@G@@@D E$LU )@@G@@MSG MESS12 . GENERATE START ERROR MESSAGE @ @@@D LV )@@G@@ L,U A0,ELTNAME@A@@@D L A1,NELTNAME @#@@@DLW )@@G@@ E$COPY @#@@@D E$MSGR @^@@@D E$OCTF 1,AOLX )@@G@@@#@@@D E$COLN @A@@@D S,H1 A0,COMPKT+1 @E@E@DLY )@@G@@ PRINT$ OUT . PRINT DIAGNOSTIC @E@@@E LZ )@@G@@ E$PRINT . PRINT DIAGNOSTIC @ @@@E $IMA )@@G@@F MASMT=0 @F@@@D COM$P COMPKT . SEND DIAMB )@@G@@GNOSTIC TO CONSOLE@#@E@D OFF @#@@@E $ENDF @H@E@DMC )@@G@@CONT9 DL A1,CARD . RESTORE START AND INCREMENT TIMEMD )@@G@@S @H@@@ECONT8 DL A1,CARD . RESTORE START AND INME )@@G@@CREMENT TIMES @ @@@D DS A1,STIM @ @E@D J MF )@@G@@ CONT11 @ @@@E J CONT10 @G@E@DCONT10 TLMG )@@G@@E A1,FIRSTTIM . FIRSTTIM = MIN (FIRSTTIM,STIM) @G@@@ECONT9 MH )@@G@@ TLE A1,FIRSTTIM . FIRSTTIM = MIN (FIRSTTIM,STIM) @A@@@DMI )@@G@@ S A1,FIRSTTIM @F@E@DCONT11 AN,U A15,1 MJ )@@G@@ . BACKUP SECTOR ADDRESS @F@@@ECONT10 AN,U A15,1 MK )@@G@@ . BACKUP SECTOR ADDRESS @E@@@D SLJ WRITE ML )@@G@@ . SEND TO OUTPUT FILE @ @@@D J LOOP2 @ @@@DMM )@@G@@EXIT L A0,IINAME @F@@@D ER INT$ MN )@@G@@ . INTERRUPT II ACTIVITY @C@@@D EXIT$ MO )@@G@@ . EXIT @H@@@D. ****************************************************MP )@@G@@********************** @H@E@D. ******* PROCESS INPUT AND TO FILE SUBROUMQ )@@G@@TINE ******* @H@@@E. ******* PROCESS INPUT AND ADMR )@@G@@D TO FILE SUBROUTINE **** @H@@@D. ****************MS )@@G@@********************************************************** @^@@@DINPUT MT )@@G@@ + 0 @F@E@D T$IDE TPKT 1,A0 . INITIATEMU )@@G@@ INPUT SCANNING @D@E@D T$GENV STIM . GET STIMMV )@@G@@-I @ @@@E L,U X1,CARD @ @@@E L,U X2,SMW )@@G@@TIM @E@@@E L A0,NWDS . # OF WORDS INPUT MX )@@G@@@E@@@E MSI,U A0,6 . CONVERT TO BYTES @E@@@EMY )@@G@@ S A0,NCHARS . SAVE # OF CHARS @ @@@E MZ )@@G@@ S A0,R1 @^@@@E L,U R2,4@E@@@E LMNA )@@G@@J X11,GETFIELD . GET STIM FROM INPUT @D@@@E J NB )@@G@@ INPUTE . INPUT ERROR @F@@@E LXI X1,A1 NC )@@G@@ . BUMP PTR TO START OF FIELD@ @@@E A A1,A0 ND )@@G@@@F@@@E DS A0,TEMP . SAVE # OF CHARS & END PTR NE )@@G@@@H@@@E L,U A2,'NOW' . IF STIM='NOW', REPLACE WITNF )@@G@@H TDATE @ @@@E TE,H1 A2,STIM @^@@@E J NG )@@G@@ $+3 @ @@@E L A0,TDATE @ @@@E J INPUNH )@@G@@TC3 @G@@@E LMJ X11,BTDATE . GET STIME IN HH:MM:SNI )@@G@@S FORMAT @E@@@E J INPUTC0 . NOT HH:MM:SS FNJ )@@G@@ORMAT @F@@@E LXI,H1 A0,TDATE . MERGE IN PRESENT DATNK )@@G@@E @F@@@E L,U A1,24*60 . SET TIME FACTOR TO 1NL )@@G@@ DAY @ @@@E S A1,TFACT @ @@@E J INPUNM )@@G@@TC2 @ @@@EINPUTC0 L A0,TEMP @F@@@E LMJ X11,NN )@@G@@BINT . GET STIME IN 'MM' FORMAT @D@@@E J INPUNO )@@G@@TE . FORMAT ERROR @ @@@E S A2,STIM @F@@@ENP )@@G@@INPUTC1 L,U A0,60 . SET TIME FACTOR TO 1 HOUR @ @@@ENQ )@@G@@ S A0,TFACT @F@@@E L A0,TDATE NR )@@G@@ . GET PRESENT TIME AND DAY @F@@@E AND A0,(0777777) NS )@@G@@ . CALCULATE STARTING TIME @E@@@E SZ A0 NT )@@G@@ . IN TDATE$ FORMAT @H@@@E DI,U A0,60*60 . STNU )@@G@@RIP OFF MINUTES AND SECONDS FROM @E@@@E MSI,U A0,60*60 NV )@@G@@ . PRESENT TIME/DATE@ @@@E LXI,H1 A0,TDATE @ @@@ENW )@@G@@ L A1,A0 @ @@@E L A0,STIM @F@@@ENX )@@G@@ SLJ ATDATE . ADD INPUT STARTING MINUTES@ @@@ENY )@@G@@INPUTC2 S A0,STIM @G@@@E L A1,TDATE NZ )@@G@@ . CHECK IF STARTING TIME IN FUTURE@ @@@E SLJ DTDATE OA )@@G@@@A@@@E JN A2,INPUTC3A @G@@@E L A1,SOB )@@G@@TIM . NO, ADD TIME FACTOR TO STIM @ @@@E L OC )@@G@@ A0,TFACT @ @@@E SLJ ATDATE @ @@@EINPUTC3 S OD )@@G@@ A0,STIM @E@@@EINPUTC3A LXI X1,TEMP+1 . PT TO NEXT FIEOE )@@G@@LD @ @@@E L,U X2,DMIN @D@@@E LMJ X11,OF )@@G@@GETFIELD . EXTRACT DMIN @D@@@E J INPUTE OG )@@G@@ . FORMAT ERROR @E@@@E LXI X1,A1 . PT TO STOH )@@G@@ART OF FIELD@ @@@E AU,U A1,1,A0 @F@@@E S OI )@@G@@ A2,TEMP . SAVE BYTE # OF NEXT FIELD @E@@@E L,S1 OJ )@@G@@ A2,DMIN . GET 1ST BYTE OF DMIN@D@@@E TE,U A2,'OK )@@G@@H' . IS IT 'H' ? @E@@@E J INPUTC4 OL )@@G@@ . NO, ASSUME MINUTES @ @@@E LXI,U X1,1,A1 @^@@@E OM )@@G@@ AN,U A0,1@F@@@E LMJ X11,BINT . GET HOURON )@@G@@S PART OF DMIN @D@@@E J INPUTE . FORMAT EOO )@@G@@RROR @E@@@E MSI,U A2,60 . CONVERT TO MINUTES OP )@@G@@@ @@@E S A2,DMIN @D@E@D T$GENV DMIN OQ )@@G@@ . GET DMIN-I @ @@@E J INPUTC5 @E@E@D OR )@@G@@ T$NBRKV 0 (T$MASKR ' ') . GET NEXT NON-BLANK @D@E@D T$OS )@@G@@SKIP -1 . MOVE BACK 1 @E@E@D T$SCANV ELTNOT )@@G@@AME (T$MASKR ' ') . GET ELT-NAME @H@@@EINPUTC4 LMJ X11,BINT OU )@@G@@ . EXTRACT DMIN AND CONVERT TO BINARY @D@@@E J OV )@@G@@ INPUTE . FORMAT ERROR @ @@@E S A2,DMIN OW )@@G@@@ @H@EINPUTC5 L,U X1,CARD @ @H@E LXI X1,TEMP OX )@@G@@@ @@@HINPUTC5 LXI X1,TEMP @ @@@E L,U X2,ELTNAMEOY )@@G@@@ @@@E L A0,R1 @ @@@E AN A0,TEMP OZ )@@G@@@E@@@E LMJ X11,BMOVE . EXTRACT START IMAGE @E@E@DPA )@@G@@ S A4,NELTNAME . SAVE CHARACTER COUNT@E@@@E PB )@@G@@ S A0,NELTNAME . SAVE CHARACTER COUNT@H@E@D L PC )@@G@@ A0,TDATE . IF STIM='NOW', REPLACE WITH TDATE @ @E@DPD )@@G@@ L,U A1,'NOW' @ @E@D TNE,H1 A1,STIM @ @E@DPE )@@G@@ J INPUTC @H@E@D AND A0,(0777777) PF )@@G@@ . OTHERWISE, CALCULATE STARTING TIME @E@E@D SZ A0 PG )@@G@@ . IN TDATE$ FORMAT @H@E@D DI,U A0,60*60 PH )@@G@@ . STRIP OFF MINUTES AND SECONDS FROM @E@E@D MSI,U PI )@@G@@ A0,60*60 . PRESENT TIME/DATE@ @E@D LXI,H1 A0,TPJ )@@G@@DATE @ @E@D L A1,A0 @ @E@D L A0,SPK )@@G@@TIM @F@E@D SLJ ATDATE . ADD INPUT STARTING MPL )@@G@@INUTES@ @E@D S A0,STIM @G@E@D L A1,TPM )@@G@@DATE . CHECK IF STARTING TIME IN FUTURE@ @E@D SLJ PN )@@G@@ DTDATE @ @E@D JN A2,INPUTC2@F@E@D L PO )@@G@@ A1,STIM . YES, ADD 1 HR TO STIM @ @E@D L,U PP )@@G@@ A0,60 @ @E@D SLJ ATDATE @ @E@DINPUTC S PQ )@@G@@ A0,STIM @E@E@DINPUTC2 SLJ WRITE . SEND TO OUTPUTPR )@@G@@ FILE @E@@@E SLJ WRITE . SEND TO OUTPUT FILE PS )@@G@@@F@@@D SZ A0 . SET KEY FOR NORMAL RETURN PT )@@G@@@C@@@D J *INPUT . RETURN @G@E@DINPUTE LNPU )@@G@@,U A0,1 . TIDE$ ERROR, ABNORMAL RETURN @G@@@EINPUTEPV )@@G@@ LN,U A0,1 . INPUT ERROR, ABNORMAL RETURN @ @@@DPW )@@G@@ J *INPUT @H@@@D. **********************************PX )@@G@@**************************************** @H@@@D. ******* PRINT INFORMATPY )@@G@@ION SUBROUTINE ******* @H@@@D. **********PZ )@@G@@**************************************************************** @^@@@DQA )@@G@@PINFO + 0 @F@@@D E$DIT EPKT . EDQB )@@G@@IT INFORMATION MESSAGE @ @@@D L,U A0,ELTNAME@A@@@D QC )@@G@@ L A1,NELTNAME @#@@@D E$COPY @ @@@D E$QD )@@G@@MSG MESS3 @G@@@E SZ A0 . IF DMIN QE )@@G@@> 60 AND DIVISIBLE BY 60@F@@@E L A1,DMIN . QF )@@G@@ PRINT DMIN IN HOURS @ @@@E DI,U A0,60 @ @@@E QG )@@G@@ JZ A0,PINFOC1@ @@@E JNZ A1,PINFOC1@#@@@E QH )@@G@@ E$DECV @A@@@E E$COPY 4,(' HRS ') @ @@@E J QI )@@G@@ PINFOC2 @^@@@EPINFOC1 E$DECV DMIN@A@@@E E$COPY QJ )@@G@@ 5,(' MINS ') @^@E@D E$DECV DMIN@#@E@D E$MSGR QK )@@G@@@#@@@EPINFOC2 E$MSGR @ @@@D L A0,STIM @G@@@D QL )@@G@@ TLE A0,FIRSTTIM . FIRSTTIM = MIN (FIRSTTIM,STIM) @A@@@DQM )@@G@@ S A0,FIRSTTIM @#@@@D E$TIME @#@E@D QN )@@G@@ E$DITX @E@E@D PRINT$ OUT . PRINT INFORMATQO )@@G@@ION @E@@@E E$PRINT . PRINT INFORMATION QP )@@G@@@C@@@D J *PINFO . RETURN @H@@@D. **********QQ )@@G@@**************************************************************** @H@@@DQR )@@G@@. ******* SEND INFORMATION TO CONSOLE SUBROUTINE ***QS )@@G@@**** @H@@@D. **********************************************************QT )@@G@@**************** @^@@@DCINFO + 0 @ @E@D ON QU )@@G@@ 1-TEST @G@@@D E$DIT EPKT . EDIT CONSOLE VQV )@@G@@ERSION OF MESSAGE @ @@@D L,U A0,ELTNAME@A@@@D L QW )@@G@@ A1,NELTNAME @#@@@D E$COPY @A@@@D E$COPY QX )@@G@@ 4,(' ST= ') @ @@@D L A0,STIM @#@@@D E$QY )@@G@@TIME @^@@@D E$SKIP -3 @A@@@D E$COPY 4,(',DT= QZ )@@G@@') @G@@@E SZ A0 . IF DMIN > 60 AND DIVRA )@@G@@ISIBLE BY 60@F@@@E L A1,DMIN . PRINT DMIN RB )@@G@@IN HOURS @ @@@E DI,U A0,60 @ @@@E JZ RC )@@G@@ A0,CINFOC1@ @@@E JNZ A1,CINFOC1@#@@@E E$DECV RD )@@G@@@A@@@E E$COPY 4,(' HRS ') @ @@@E J CINFRE )@@G@@OC2 @^@E@D E$DECV DMIN@^@@@ECINFOC1 E$DECV DMIN@A@@@DRF )@@G@@ E$COPY 5,(' MINS ') @D@E@D E$COLN RG )@@G@@ . GET COL. # @F@E@D S,H1 A0,COMPKT+1 . STRH )@@G@@ORE AS OUTPUT CHAR COUNT@#@E@D E$DITX @D@@@ECINFOC2 E$COLN RI )@@G@@ . GET COL. # @F@@@E S,H1 A0,COMPKT+RJ )@@G@@1 . STORE AS OUTPUT CHAR COUNT@ @@@E $IF MASMT=0 RK )@@G@@@F@@@D COM$P COMPKT . PRINT MESSAGE ON CONSOLE RL )@@G@@@#@E@D OFF @#@@@E $ENDF @C@@@D J RM )@@G@@ *CINFO . RETURN @H@@@D. **********************************RN )@@G@@**************************************** @H@@@D. ******* PRINT SIESTA MRO )@@G@@ESSAGE ******* @H@@@D. **********RP )@@G@@**************************************************************** @^@@@DRQ )@@G@@PSIESTA + 0 @^@@@D E$DIT EPKT@ @@@D E$RR )@@G@@TIME TDATE @^@@@D E$SKIP 1 @F@@@D L RS )@@G@@ A0,(LARGE) . CHECK FOR NO ELEMENTS @D@@@D TE RT )@@G@@ A0,FIRSTTIM . TO START @^@@@D J $+4 @H@@@DRU )@@G@@ E$MSG MESS2 . 'NO INPUT RUN-STREAM DATA SPECIFRV )@@G@@IED' @ @@@D J PSIESTAC @ @@@D E$MSG MESSRW )@@G@@4 @A@@@D L A0,FIRSTTIM @#@@@D E$TIME RX )@@G@@@D@@@DPSIESTAC E$COLN . GET COL. # @F@@@D RY )@@G@@ S,H1 A0,COMPKT+1 . SAVE AS OUTPUT CHAR COUNT @#@E@D RZ )@@G@@ E$DITX @E@E@D PRINT$ OUT . PRINT SIESTA MSA )@@G@@ESSAGE@E@@@E E$PRINT . PRINT SIESTA MESSAGESB )@@G@@@G@@@E TZ SOPT . IF 'S' OPTION, SKIP CONSOLSC )@@G@@E P/O @ @@@E J *PSIESTA @ @E@D ON 1-TESD )@@G@@ST @ @@@E $IF MASMT=0 @ @@@D COM$P COMPSE )@@G@@KT @#@E@D OFF @#@@@E $ENDF @C@@@D J SF )@@G@@ *PSIESTA . RETURN @H@@@D. ****************************SG )@@G@@********************************************** @H@@@D. ******* GET PRESSH )@@G@@ENT TIME/DATE IN TDATE$ FORMAT ******* @H@@@D. ****SI )@@G@@********************************************************************** SJ )@@G@@@^@@@DCPTIM + 0 @ @E@D ON 1-TEST @H@@@DSK )@@G@@ TDATE$ . REFRESH 'TDATE' WITH PRESENT TIMSL )@@G@@E @F@@@D S A0,TDATE . SAVE FULL TIME AND DSM )@@G@@AY @#@E@D OFF @^@E@D ON TEST@ @@@E SN )@@G@@ $IF MASMT @F@E@D TREAD$ TMESS1,NTMESS1 CARD,EXSO )@@G@@IT . GET PRESENT TIME @F@@@ECPTIM1 TREAD$ TMESS1,NTMESS1 CARD,EXSP )@@G@@IT . GET PRESENT TIME @D@@@E L,U A2,0,A0 . WOSQ )@@G@@RD COUNT @F@@@E TNZ A2 . IF 0, USE PRESSR )@@G@@ENT TIME @ @@@E J *CPTIM @H@@@E MSI,U SS )@@G@@ A2,6 . CONVERT INPUT WORD COUNT TO BYTES @ @@@E ST )@@G@@ L R1,A2 @ @@@E L,U X1,CARD @I@F@E SU )@@G@@ LMJ X11,BTDATE . GET INPUT IN 'MM/DD/YY' OR 'HH:MM:SS' SV )@@G@@FO @H@@@F LMJ X11,BTDATE . GET INPUT IN 'MM/DD/SW )@@G@@YY' OR 'HH:MM:SS' @G@@@E J CPTIM1 . FORMAT ESX )@@G@@RROR, ASK FOR TIME AGAIN@F@@@F TE,U A0,0,A0 . WASY )@@G@@S INPUT 'MM/DD/YY'? @C@@@F J $+3 . YESZ )@@G@@S @H@@@F S,H2 A0,TDATE . NO, ONLY 'HH:MM:SS' TA )@@G@@SPECIFIED, STORE @ @G@F J*CPTIM . RETURN @C@@@G J TB )@@G@@ *CPTIM . RETURN @D@F@E S A0,TDATE TC )@@G@@ . STORE IN TDATE@G@@@F S A0,TDATE . OVTD )@@G@@ERSTORE TDATE WITH 'MM/DD/YY' @F@F@E TNZ,H1 TDATE TE )@@G@@ . WAS INPUT 'MM/DD/YY'? @H@F@E J *CPTIM TF )@@G@@ . NO, ONLY 'HH:MM:SS' SPECIFIED, OK @F@@@E A A1,ATG )@@G@@0 . BUMP PTR TO NEXT FIELD @ @@@E LXI X1,ATH )@@G@@1 @F@@@E LMJ X11,BTDATE . GET 'HH:MM:SS' PORTITI )@@G@@ON @F@@@E J CPTIM1 . NOT THERE, FORMAT ERTJ )@@G@@ROR @E@@@E S,H2 A0,TDATE . STORE INTO TDATE TK )@@G@@@E@E@D TEP A0,(1*/31) . CHECK FOR INFOR READ@F@E@DTL )@@G@@ J $-3 . INFOR READ, READ AGAIN @F@E@DTM )@@G@@ T$IDE TPKT 1,A0 . FORMAT = [MMDDYY] HHMMSS @ @E@DTN )@@G@@ L A0,BUFEND @F@E@D TE,U A0,CARD TO )@@G@@ . IF NO WD INPUT, USE TDATE$@^@E@D J $+4 @#@E@D TP )@@G@@ TDATE$ @ @E@D S A0,TDATE @ @E@D J TQ )@@G@@ *CPTIM @G@E@D TNE,U A0,CARD+1 . IF 1 WD, ASSUMTR )@@G@@E TIME INPUT ONLY @ @E@D J CPTIM1 @C@E@D T$TS )@@G@@DECF HH 2 . MONTH @C@E@D T$DECF MM 2 TT )@@G@@ . DAY @C@E@D T$DECF SS 2 . YEAR TU )@@G@@@F@E@D L A0,HH . STORE COMPONENTS IN TDATE TV )@@G@@@ @E@D S,S1 A0,TDATE @ @E@D L A0,MM TW )@@G@@@ @E@D S,S2 A0,TDATE @ @E@D L A0,SS TX )@@G@@@ @E@D AN,U A0,64 @ @E@D S,S3 A0,TDATE TY )@@G@@@^@E@D T$SKIP 1 @C@E@DCPTIM1 T$DECF HH 2 TZ )@@G@@ . HOURS @C@E@D T$DECF MM 2 . MINUTES @C@E@DUA )@@G@@ T$DECF SS 2 . SECONDS @#@E@D T$IDEX UB )@@G@@@G@E@D L A0,HH . CONVERT TO SECS PAST MIDNIUC )@@G@@GHT @ @E@D MSI,U A0,60 @ @E@D A A0,MUD )@@G@@M @ @E@D MSI,U A0,60 @ @E@D A A0,SUE )@@G@@S @F@E@D S,H2 A0,TDATE . USE TEST TIME FOR TIUF )@@G@@ME @#@E@D OFF @C@E@D J *CPTIM UG )@@G@@ . RETURN @#@@@E $ENDF @C@@@E J *CPTIM UH )@@G@@ . RETURN @H@@@D. **********************************************UI )@@G@@**************************** @H@@@D. ******* I/O SUBROUTINES UJ )@@G@@ ******* @H@@@D. ******* UK )@@G@@ ******* @H@@@D. ******* INUL )@@G@@PUT: A15 = DRUM ADDRESS ******* @H@@@DUM )@@G@@. ******* OUTPUTS: A0 = 0 (OKAY), -1 (EOF) ***UN )@@G@@**** @H@@@D. ******* A15 = DRUM ADDRESS UO )@@G@@ ******* @H@@@D. ******* UP )@@G@@ ******* @H@@@D. **********************************UQ )@@G@@**************************************** @^@@@DREAD + 0 UR )@@G@@@ @@@D L,U A0,R$ @ @@@D SLJ COMSUB US )@@G@@@C@@@D J *READ . RETURN @^@@@DWRITE + UT )@@G@@ 0 @ @@@D L,U A0,W$ @ @@@D SLJ UU )@@G@@ COMSUB @ @@@D J *WRITE @^@@@DEOF + UV )@@G@@ 0 @E@@@D LN,U A0,1 . STORE EOF SENTINEL UW )@@G@@@ @@@D S A0,STIM @ @@@D L,U A0,W$ UX )@@G@@@ @@@D SLJ COMSUB @G@@@D SZ A15 UY )@@G@@ . REINITIALIZE SECTOR ADDRESS @^@@@D J *EOFUZ )@@G@@@E@@@DCOMSUB + 0 . COMMON IO SUBROUTINE@D@@@DVA )@@G@@ S,S2 A0,IOPKT+3 . STORE FUNCTION@E@@@D S VB )@@G@@ A15,IOPKT+5 . STORE SECTOR ADDRESS@D@@@D IOW$ VC )@@G@@ IOPKT . PERFORM I/O @E@@@D L A0,STIM VD )@@G@@ . CHECK FOR EOF SENTINEL@ @@@D TNE A0,(-1) @D@@@DVE )@@G@@ J *COMSUB . YES, FINISHED @^@@@D SZVF )@@G@@ A0 @E@@@D A,U A15,1 . INCR. SECTOR AVG )@@G@@DDRESS@ @@@D J *COMSUB @H@@@D. **********************VH )@@G@@**************************************************** @H@@@E. ******* VI )@@G@@ PRINT REAL TIME STATUS SUBROUTINE ******* @H@@@EVJ )@@G@@. **********************************************************************VK )@@G@@**** @^@@@EPREAL + 0 @D@@@E PCT$,027 PCT27 VL )@@G@@ . GET R/T COUNT @E@@@E E$DIT EPKT . EDVM )@@G@@IT R/T STATUS MSG @#@@@E E$TD @ @@@E E$MSG MESSVN )@@G@@9 @A@@@E L A0,('NON- ') @ @@@E TNZ,H1 VO )@@G@@ PCT27 @#@@@E E$FD1 @#@@@E E$MSGR @G@@@E VP )@@G@@ TZ SOPT . IF 'S' OPTION, SKIP CONSOLE P/O @ @@@EVQ )@@G@@ J PREALC @#@@@E E$COLN @A@@@E S,VR )@@G@@H1 A0,COMPKT+1 @ @@@E $IF MASMT=0 @F@@@E VS )@@G@@ COM$P COMPKT . SEND MESSAGE TO CONSOLE @#@@@E VT )@@G@@ $ENDF @D@@@EPREALC E$PRINT 2 . PRINT MESSAGE VU )@@G@@@ @@@E J *PREAL @H@@@E. ****************************VV )@@G@@********************************************** @H@@@D. ******* ABORT COVW )@@G@@NTINGENCY HANDLER ******* @H@@@D. ****VX )@@G@@*** ******* VY )@@G@@@H@@@D. ******* USED EITHER TO TERMINATE PROGRAM (BY 'II TERM') VZ )@@G@@ ******* @H@@@D. ******* OR TO RESTART PROGRAM AFTER AN II KEYIN HAS WA )@@G@@CHANGED ******* @H@@@D. ******* ENVIRONMENT. WB )@@G@@ ******* @H@@@D. ******* WC )@@G@@ ******* @H@@@D. ****************WD )@@G@@********************************************************** @^@E@DABORT WE )@@G@@ RES 2 @^@@@EABORT $RES 2 @E@@@D CEND$ WF )@@G@@ . END CONTINGENCY MODE@E@@@D TNZ NOEXWG )@@G@@IT . IS NO EXIT KEY SET? @E@@@D EXIT$ WH )@@G@@ . NO, NORMAL EXIT @D@@@D SZ NOEXIT WI )@@G@@ . YES, CLEAR KEY@E@@@D J RESTART . RESTART WJ )@@G@@PROGRAM @H@@@D. ****************************************************WK )@@G@@********************** @H@@@D. ******* ABNORMAL ERROR CONTINGENCY HANDLWL )@@G@@ER ******* @H@@@D. ****************************WM )@@G@@********************************************** @^@E@DERRR RES WN )@@G@@ 2 @^@@@EERRR $RES 2 @F@@@D CEND$ WO )@@G@@ . TERMINATE CONTINGENCY MODE@C@@@D S A0,AO WP )@@G@@ . SAVE A0 @F@@@D DL A0,ERRR . MOVE CONWQ )@@G@@TINGENCY PACKET @E@@@D DS A0,ERRPKT . TO ERWR )@@G@@ROR PACKET @ @@@D L,U A0,ERRPKT @D@@@D ER WS )@@G@@ ERRPR$ . PRINT ERROR @ @@@D L A0,AO WT )@@G@@@A@@@D SNAP$,'XAR' 0,0,'ERROR ' @F@@@D TNZ IIBUWU )@@G@@SY . WHICH ACTIVITY ERRORED? @D@@@D J EXITWV )@@G@@ . MAIN, EXIT @H@@@D EABT$ WW )@@G@@ . II, ABORT IN ORDER TO WAKE UP MAIN @H@@@D. **********************WX )@@G@@**************************************************** @H@@@D. ******* IIWY )@@G@@ HANDLER ******* @H@@@DWZ )@@G@@. **********************************************************************XA )@@G@@**** @F@@@DII L A0,IINAME . REGISTER ACTIVITY NAXB )@@G@@ME @#@@@D NAME$ @ @@@D S A0,IINAME @G@@@DXC )@@G@@ IALL$ IICONTIN,02000,1 . REGISTER INTERRUPT CONTINGENCY XD )@@G@@@I@@@D IALL$ ABORT,0100,1 . REGISTER ABORT$ CONTINGENCXE )@@G@@Y-NORMAL EXIT @D@@@DIILOOP II$ . II ACTIVXF )@@G@@ITY @E@@@D TNZ MBUSY . MAIN ACTIVITY BUSY? XG )@@G@@@B@E@D J II0 . NO@B@@@E J XH )@@G@@ II1 . NO@E@@@D PRINT$ MESS11,NMESS11,2 . PRXI )@@G@@INT BUSY MESSAGE @ @E@D ON 1-TEST @ @@@E $IXJ )@@G@@F MASMT=0 @A@@@D COM$ MESS11,NMESS11*6@#@E@D XK )@@G@@ OFF @#@@@E $ENDF @E@@@D J IILOOP XL )@@G@@ . SKIP II REQUEST @^@E@DII0 ON TEST@ @@@EII1 XM )@@G@@ $IF MASMT @B@@@D TREAD$ TMESS2,NTMESS2 CARD XN )@@G@@@ @@@D L A0,CARD @#@E@D OFF @#@@@E XO )@@G@@ $ENDF @E@@@D S A0,IIBUSY . SET II BUSY FLXP )@@G@@AG @D@@@D S A0,IISAVE . SAVE II WORD @D@@@DXQ )@@G@@ E$DIT EPKT . EDIT ECHO @#@@@D E$XR )@@G@@TD @A@@@D E$COPY 4,(' II ') @ @@@D E$COPY XS )@@G@@ 6,IISAVE @#@@@D E$DITX @D@@@D PRINT$ OUT,4,2 XT )@@G@@ . PRINT II ECHO @D@@@D CSF$ LOG,22 . LOXU )@@G@@G II REQUEST@ @@@D L A0,IISAVE @A@@@D TE XV )@@G@@ A0,('TERM ') @^@E@D J II1 @^@@@E J XW )@@G@@ II2 @E@@@E CSF$ FREE . '@FREE,D SLEEP$DATA'XX )@@G@@@G@@@D PRINT$ MESS6,NMESS6,2 . 'SLEEPER TERMINATED BY OPEXY )@@G@@RATOR'@#@@@D EABT$ @A@E@DII1 TE A0,('STAT ') XZ )@@G@@@A@@@EII2 TE A0,('STAT ') @^@E@D J II2 YA )@@G@@@^@@@E J II3 @F@@@DIISTAT SLJ CPTIM YB )@@G@@ . GET PRESENT TIME/DATE @ @@@D PRINT$ 0,0,1 @F@@@DYC )@@G@@ SZ A15 . INITIALIZE SECTOR ADDRESS @E@@@DYD )@@G@@ SLJ READ . READ REAL TIME KEY @ @@@D YE )@@G@@ L A0,STIM @C@@@D S A0,RTKEY . STYF )@@G@@ORE @E@@@DIISTATL SLJ READ . READ NEXT ENTRY YG )@@G@@@ @@@D JN A0,IISTATC@E@@@D SLJ PINFO YH )@@G@@ . PRINT INFORMATION @G@@@E TNZ SOPT YI )@@G@@ . IF 'S' OPTION, SKIP CONSOLE P/O @F@@@D SLJ CINFO YJ )@@G@@ . SEND SAME INFO TO CONSOLE @D@@@D J IISTATL YK )@@G@@ . GET NEXT ENTRY@ @@@DIISTATC PRINT$ 0,0,1 @E@@@D YL )@@G@@ SLJ PSIESTA . PRINT SIESTA MESSAGE@D@E@D PCYM )@@G@@T$,027 PCT27 . GET R/T COUNT @E@E@D E$DIT EPKTYN )@@G@@ . EDIT R/T STATUS MSG @#@E@D E$TD @ @E@D YO )@@G@@ E$MSG MESS9 @A@E@D L A0,('NON- ') @ @E@DYP )@@G@@ TNZ,H1 PCT27 @#@E@D E$FD1 @#@E@D E$YQ )@@G@@MSGR @#@E@D E$COLN @A@E@D S,H1 A0,COMPKT+1 YR )@@G@@@ @E@D ON 1-TEST @F@E@D COM$P COMPKT YS )@@G@@ . SEND MESSAGE TO CONSOLE @#@E@D OFF @#@E@D YT )@@G@@ E$DITX @D@E@D PRINT$ OUT,22,2 . PRINT MESSAGE YU )@@G@@@F@@@E SLJ PREAL . PRINT REAL-TIME STATUS YV )@@G@@@E@@@E TZ SOPT . IF 'S' OPTION, EXIT @#@@@EYW )@@G@@ EXIT$ @G@@@D TZ NOEXIT . IF NO EXYX )@@G@@IT KEY SET, RESTART @H@@@D ABORT$ . YY )@@G@@PROG BY ABORTING BOTH ACTIVITIES @ @@@D J IIELOOP YZ )@@G@@@A@E@DII2 TE A0,('RT ') @A@@@EII3 TE A0,(ZA )@@G@@'RT ') @^@E@D J II3 @^@@@E J II4 ZB )@@G@@@A@@@D L A0,('REAL ') @ @@@D S A0,RZC )@@G@@TKEY @E@E@D NRT$ . REMOVE REAL TIME ZD )@@G@@@^@E@D J II3C@^@@@E J II5 @A@E@DII3 ZE )@@G@@ TE A0,('NRT ') @A@@@EII4 TE A0,('NRT ') ZF )@@G@@@^@E@D J II4 @^@@@E J II6 @A@@@D ZG )@@G@@ L A0,('UNREAL') @G@E@DII3C S A0,RTKEY ZH )@@G@@ . STORE REAL TIME KEY IN MEMORY @G@@@EII5 S A0,RTKEY ZI )@@G@@ . STORE REAL TIME KEY IN MEMORY @E@@@D S A0,SZJ )@@G@@TIM . WRITE IT TO FILE @^@@@D SZ A15 @ @@@DZK )@@G@@ SLJ WRITE @E@@@D S A15,NOEXIT ZL )@@G@@ . SET NO EXIT KEY @H@@@D ABORT$ . ABZM )@@G@@ORT PROGRAM IN ORDER TO RESTART IT @A@E@DII4 TE A0,('ADD ZN )@@G@@ ') @A@@@EII6 TE A0,('ADD ') @^@E@D J ZO )@@G@@ II5 @^@@@E J II7 @ @@@D L,U A15,1 ZP )@@G@@@F@@@DIIADDL1 SLJ READ . READ ALL ENTRIES IN FILE ZQ )@@G@@@G@@@D JN A0,IIADDL2 . TO POSITION AT END OF DAZR )@@G@@TA @ @@@D J IIADDL1 @F@@@DIIADDL2 L,U X1,2ZS )@@G@@1 . INITIALIZE INPUT BUFFER @A@@@D L A0,(ZT )@@G@@' ') @ @@@D S A0,CARD,X1@ @@@D JGD ZU )@@G@@ X1,$-1 @ @E@D ON 1-TEST @ @@@E $IF ZV )@@G@@ MASMT @D@E@D COM$P ADDPKT . GET NEXT DATA ZW )@@G@@@F@E@D L,H2 A0,ADDPKT . MOVE # OF CHARS INPUT ZX )@@G@@@F@E@D S,H1 A0,BADINPKT+1 . INTO BAD INPUT PACKET ZY )@@G@@@#@E@D OFF @^@E@D ON TEST@B@@@D TRZZ )@@G@@EAD$ MESS8,NMESS8 CARD @E@E@D S,H2 A0,AO AA )@@G@@ . SAVE # OF WDS INPUT @E@@@E S,H2 A0,NWDS . SAAB )@@G@@VE # OF WDS INPUT @#@@@E $ELSE @D@@@E COM$P ADDPAC )@@G@@KT . GET NEXT DATA @F@@@E L,H2 A0,ADDPKT AD )@@G@@ . MOVE # OF CHARS INPUT @F@@@E S,H1 A0,BADINPKT+1 AE )@@G@@ . INTO BAD INPUT PACKET @E@@@E DSL A0,36 AF )@@G@@ . CONVERT TO WORDS @^@@@E DI,U A0,6@^@@@E TZAG )@@G@@ A1 @^@@@E A,U A0,1@F@@@E S A0,NAH )@@G@@WDS . STORE FOR INPUT SUBROUTINE@#@E@D OFF @#@@@EAI )@@G@@ $ENDF @G@@@D L A1,CARD . IF OPERAAJ )@@G@@TOR KEYED IN 'END', @E@@@D TNE A1,('END ') . AK )@@G@@NO MORE INPUT @^@E@D J II4A@ @@@E J AL )@@G@@ IIADDC @G@@@D SLJ INPUT . PROCESS INPUT AM )@@G@@AND ADD TO FILE @D@@@D JNZ A0,$+2 . INPUT ERAN )@@G@@ROR @D@@@D J IIADDL2 . GET NEXT INPUT@ @E@DAO )@@G@@ ON 1-TEST @ @@@E $IF MASMT @F@E@DAP )@@G@@ COM$P BADINPKT . SEND BAD INPUT TO CONSOLE @F@E@DAQ )@@G@@ COM$ MESS1,NMESS1*6 . 'ABOVE CARD IN ERROR' @#@E@DAR )@@G@@ OFF @^@E@D ON TEST@ @E@D LXI AS )@@G@@ A0,AO @ @@@E LXI A0,NWDS @ @@@D LXM,U AT )@@G@@ A0,CARD @A@@@D A A0,(0200,0) @E@@@D PRAU )@@G@@INT$ . PRINT BAD INPUT CARD@G@@@D PRINT$ AV )@@G@@ MESS1,NMESS1 . 'ABOVE INPUT CARD IN ERROR' @#@@@E $EAW )@@G@@LSE @F@@@E COM$P BADINPKT . SEND BAD INPUT TO COAX )@@G@@NSOLE @F@@@E COM$ MESS1,NMESS1*6 . 'ABOVE CARD IN ERRORAY )@@G@@' @#@E@D OFF @#@@@E $ENDF @ @@@D J AZ )@@G@@ IIADDL2 @E@E@DII4A SLJ EOF . WRITE EOBA )@@G@@F ENTRY @E@@@EIIADDC SLJ EOF . WRITE EOF ENTRBB )@@G@@Y @E@@@D S A0,NOEXIT . SET NO EXIT FLAG BC )@@G@@@ @@@D J IISTAT @A@E@DII5 TE A0,('REM BD )@@G@@ ') @A@@@EII7 TE A0,('REM ') @^@E@D J BE )@@G@@ II6 @^@@@E J II8 @F@@@D L,U A10,1 BF )@@G@@ . INITIALIZE READ SECTOR # @F@@@D L,U A11,1 BG )@@G@@ . INITIALIZE WRITE SECTOR # @ @@@DIIREML L A15,A10 BH )@@G@@@E@@@D SLJ READ . NEXT ENTRY IN FILE @F@@@DBI )@@G@@ JN A0,IIREMC . CHECK FOR END OF DATA @ @@@DBJ )@@G@@ L A10,A15 @^@E@D ON TEST@ @@@E BK )@@G@@ $IF MASMT @D@@@D SLJ PINFO . PRBL )@@G@@INT DATA @#@E@D OFF @#@@@E $ENDF @E@@@D BM )@@G@@ SLJ CINFO . SEND INFO TO CONSOLE@ @E@D ONBN )@@G@@ 1-TEST @ @@@E $IF MASMT @G@E@D COBO )@@G@@M$ MESS10,NMESS10*6 CARD,50 . SHOULD IT BE REMOVED? @#@E@D BP )@@G@@ OFF @^@E@D ON TEST@B@@@D TREAD$ MESSBQ )@@G@@10,NMESS10 CARD @#@@@E $ELSE @G@@@E COM$ MESSBR )@@G@@10,NMESS10*6 CARD,50 . SHOULD IT BE REMOVED? @#@E@D OFF BS )@@G@@@#@@@E $ENDF @ @@@D L A0,CARD @F@@@D BT )@@G@@ TNE A0,('Y ') . DID OPERATOR ANSWER 'Y'? @G@@@D BU )@@G@@ J IIREML . YES, DON'T WRITE THIS ENTRY @ @@@DBV )@@G@@ L A15,A11 @F@@@D SLJ WRITE BW )@@G@@ . NO, LEAVE THIS ENTRY ALONE@ @@@D L A11,A15 @ @@@DBX )@@G@@ J IIREML @ @@@DIIREMC L A15,A11 @E@@@DBY )@@G@@ SLJ EOF . CLOSE DATA FILE @E@@@D BZ )@@G@@ S A0,NOEXIT . SET NO EXIT FLAG @D@@@D J CA )@@G@@ IISTAT . PERFORM 'STAT'@ @E@DII6 ON 1-TECB )@@G@@ST @ @@@EII8 $IF MASMT=0 @A@@@D COM$ ('WHCC )@@G@@AT??'),6 @#@E@D OFF @#@@@E $ENDF @A@@@D CD )@@G@@ PRINT$ ('WHAT??'),1 @E@@@DIIELOOP SZ IIBUSY CE )@@G@@ . CLEAR II BUSY FLAG @ @@@D J IILOOP @H@E@DIICONTCF )@@G@@IN RES 2 . II CONTINGENCY ROUTINE FOR INTERRUPT CG )@@G@@@H@@@EIICONTIN $RES 2 . II CONTINGENCY ROUTINE FORCH )@@G@@ INTERRUPT @C@@@D EXIT$ . EXIT @H@@@DCI )@@G@@. **********************************************************************CJ )@@G@@**** @H@@@D. ******* D A T A CK )@@G@@ ******* @H@@@D. **********************************************CL )@@G@@**************************** @[@@@D$(0) @^@E@DCARD RES 44 CM )@@G@@@^@@@ECARD $RES 44 @^@E@DSTIM RES 22 @^@@@ESTIM CN )@@G@@ $RES 28 @ @E@DDMIN EQU STIM+1 @ @@@EDMIN $ECO )@@G@@QU STIM+1 @ @@@ENELTNAME $EQU STIM+2 @ @E@DELTNAME EQCP )@@G@@U STIM+2 @ @@@EELTNAME $EQU STIM+3 @ @E@DNELTNAME EQCQ )@@G@@U STIM+21 @^@E@DTDATE RES 1 @^@@@ETDATE $RES CR )@@G@@ 1 @ @@@DFIRSTTIM + LARGE @#@@@DIINAME '@@@@II'@^@E@DCS )@@G@@IISAVE RES 1 @^@@@EIISAVE $RES 1 @^@E@DIIBUSY RECT )@@G@@S 1 @^@@@EIIBUSY $RES 1 @^@E@DMBUSY RES 1 CU )@@G@@@^@@@EMBUSY + 1 @#@E@DRTKEY 'REAL' @#@@@ERTKEY 'UCV )@@G@@NREAL'@^@E@DPCT27 RES 1 @^@@@EPCT27 $RES 1 @^@E@DCW )@@G@@TEMP RES 1 @^@@@ETEMP $RES 2 @A@E@DASG5 '@CX )@@G@@ASG,T SLEEP$DATA . ' @A@@@EASG '@ASG,A *SLEEP$DATA . ' @A@@@ECY )@@G@@CAT '@CAT,P SLEEP$DATA . ' @A@@@EFREE '@FREE,D SLEEP$DATA CZ )@@G@@. ' @A@E@DASG6 '@ASG,A SLEEP$DATA . ' @^@@@DSTART '@START DA )@@G@@& . &'@F@E@DTPKT T$PKTG 22,CARD 'END',INPUTE 'ERR',INPUTE 'BLK',DB )@@G@@0 @ @E@DBUFEND EQUF TPKT+3,,H2@ @@@DEPKT E$PKT 22,ODC )@@G@@UT @#@@@DLOG '@LOG' @^@E@DOUT RES 22 @^@@@EOUT DD )@@G@@ $RES 22 @ @@@DCOMPKT COM$PKT OUT,50 @B@@@DADDPKT CODE )@@G@@M$PKT MESS8,NMESS8*6 CARD,50@ @@@DBADINPKT COM$PKT CARD,$-$ @B@@@DDF )@@G@@MESS1 'ABOVE INPUT CARD IN ERROR' @ @E@DNMESS1 EQU $-MEDG )@@G@@SS1 @ @@@ENMESS1 $EQU $-MESS1 @C@@@DMESS2 'NO INPUT RUN-DH )@@G@@STREAM DATA SPECIFIED&' @D@E@DMESS3 ' WILL CYCLE EVERY & MIN STARTINDI )@@G@@G AT &' @C@@@EMESS3 ' WILL CYCLE EVERY & STARTING AT &' @A@@@DDJ )@@G@@MESS4 'SIESTA TIME UNTIL &' @ @@@DMESS5 ' ABOUT TO START&' DK )@@G@@@B@@@DMESS6 'SLEEPER TERMINATED BY OPERATOR'@ @E@DNMESS6 EQU DL )@@G@@ $-MESS6 @ @@@ENMESS6 $EQU $-MESS6 @ @@@ENMESS7 $EQU DM )@@G@@ $-MESS7 @ @@@EMESS7 'NO RUNS SCHEDULED' @ @@@ENMESS7 $EQU DN )@@G@@ $-MESS7 @D@@@DMESS8 'KEY IN ''STIM DMIN ELTNAME'' OR ''END''' DO )@@G@@@ @E@DNMESS8 EQU $-MESS8 @ @@@ENMESS8 $EQU $-MESS8 DP )@@G@@@C@@@DMESS9 ' SLEEPER IS IN &REAL TIME MODE&' @D@@@DMESS10 'DDQ )@@G@@O YOU WANT ABOVE RUN-STREAM REMOVED? Y,N' @ @E@DNMESS10 EQU $-MEDR )@@G@@SS10 @ @@@ENMESS10 $EQU $-MESS10 @C@@@DMESS11 'SLEEPER BUSY DS )@@G@@RIGHT NOW. TRY LATER' @ @E@DNMESS11 EQU $-MESS11 @ @@@ENMESS1DT )@@G@@1 $EQU $-MESS11 @ @E@D ON 1-TEST @D@@@DMESS12DU )@@G@@ 'COULDN''T START & . ERROR & ENCOUNTERED.&'@#@E@D OFF DV )@@G@@@A@E@DLARGE EQU 0377777777777 @A@@@ELARGE $EQU 0377DW )@@G@@777777777 @^@E@DERRPKT RES 2 @^@@@EERRPKT $RES 2 DX )@@G@@@^@E@DAO RES 1 @^@@@EAO $RES 1 @^@@@ENWDS DY )@@G@@ $RES 1 @^@@@ENCHARS $RES 1 @^@E@DNOEXIT RES DZ )@@G@@ 1 @^@@@ENOEXIT $RES 1 @C@E@DIOPKT I$OD 'SLEEP$DATEA )@@G@@A',0 23,STIM-1 @C@@@EIOPKT I$OD 'SLEEP$DATA',0 28,STIM-1 EB )@@G@@@^@@@ETFACT $RES 1 @^@E@D ON TEST@ @@@E EC )@@G@@ $IF MASMT @D@E@DTMESS1 'KEY IN PRESENT TIME ([MMDDYY] HED )@@G@@HMMSS) ' @D@@@ETMESS1 'KEY IN PRESENT TIME ([MM/DD/YY] HH:MM:SS) 'EE )@@G@@@ @E@DNTMESS1 EQU $-TMESS1 @ @@@ENTMESS1 $EQU $-TMESS1 EF )@@G@@@ @@@DTMESS2 'KEY IN II WORD' @ @E@DNTMESS2 EQU $-TMESS2 EG )@@G@@@ @@@ENTMESS2 $EQU $-TMESS2 @^@E@DHH RES 1 @^@E@DEH )@@G@@MM RES 1 @^@E@DSS RES 1 @#@E@D OFEI )@@G@@F @#@@@E $ENDF @^@@@ESOPT $RES 1 @^@E@D EJ )@@G@@ END ST @^@@@E $END ST ___ 1-TEST @ @@@EEK )@@G@@ $IF MASMT @G@E@D CO*[S@@@*SDFF*@A@@@@@RUN,AEL )@@G@@ SLEEPR,RT-SLEEPER,OP,999,999 @G@@@@@ . THIS RUN WILL INVOKE THE SLEEPEREM )@@G@@ PROGRAM TO AUTOMATICALLY SCHEDULE @E@@@@@ . RUN-STREAMS AT SPECIFIED IEN )@@G@@NTERVALS AND STARTING TIMES. @[@@@@@ . @ @@@@@BLOCK RETURN,TO,SOFTWAREO )@@G@@E @]@@@@@SLEEPER @A@@@@08:00:00 H24 U.QUOTA-BU,,,,,15/10 @A@@@@EP )@@G@@12:00:00 H24 U.QUOTA-BU,,,,,15/10 @A@@@@16:00:00 H24 U.QUOTA-BU,,,,,15EQ )@@G@@/10 @^@@@@06:30:00 H24 U.PRTTST @^@@@@12:00:00 H24 U.PRTTST @^@@@@ER )@@G@@20:00:00 H24 U.PRTTST @]@@@@0 60 U.MFD @[@@@@@PMD,L_@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@F ERR-FLAG NOT = B0 GO TO ALTOPN-EX.@ @@@@ MOVE B3 TO TRK-SW. EV )@@G@@@A@@@@ MOVE B1 TO FILE-OPN-SW. @#@@@@ ALTOPN-EX. @#@@@@EW )@@G@@ EXIT. @[@@@@ END @ @@@@SORT-PARAMETER-TABLE PROC @A@@@@EX )@@G@@ 01 SORT-PARAMETER-TABLE. @#@@@@ 02 NOC@ @@@@ EY )@@G@@ PICTURE IS 9(6)@B@@@@ USAGE IS COMPUTATIONAL-1 EZ )@@G@@@A@@@@ SYNCHRONIZED RIGHT. @^@@@@ 02 A-Z-UNIT FA )@@G@@@ @@@@ PICTURE IS X @ @@@@ OCCURS 8 TIMES FB )@@G@@@B@@@@ SYNCHRONIZED RIGHT. @^@@@@ 02 SORFC )@@G@@T-KEYS@A@@@@ OCCURS 10 TIMES. @^@@@@ 03 FD )@@G@@ NOCIK@A@@@@ PICTURE IS 9(6) @C@@@@ FE )@@G@@ USAGE IS COMPUTATIONAL-1 @B@@@@ SYNCHRONIZED RIGHFF )@@G@@T. @^@@@@ 03 LCIK @A@@@@ PICTURE IS FG )@@G@@9(6) @C@@@@ USAGE IS COMPUTATIONAL-1 @B@@@@ FH )@@G@@ SYNCHRONIZED RIGHT. @^@@@@ 03 TOF @A@@@@FI )@@G@@ PICTURE IS X @B@@@@ SYNCHRONIZEFJ )@@G@@D RIGHT. @^@@@@ 03 OAOD @A@@@@ PICTUFK )@@G@@RE IS X @B@@@@ SYNCHRONIZED RIGHT. @[@@@@ END FL )@@G@@@H@@@@VNDMST PROC FM )@@G@@ I00040@E@@@@ * VNDMST MASTER FILE IS A SMASH FILE CONSISTIFN )@@G@@NG @B@@@@ * OF ONE AREA WITH ONE SECTION. @^@@@@ 01 VFO )@@G@@NDMST-RECS. @ @@@@ 02 VNDMST-VMLBL. @F@@@@ 03 FP )@@G@@ LBLKEY-VMLBL PIC X(12) VALUE ALL '['. @D@@@@ 03 FQ )@@G@@ LBLID-VMLBL PIC X(6). @D@@@@ 03 LBLDTE-VMLBFR )@@G@@L PIC X(6). @D@@@@ 03 LBLTME-VMLBL PIFS )@@G@@C X(4). @C@@@@ 03 LBLFLID-VMLBL PIC X. @C@@@@FT )@@G@@ 03 LBLID1-VMLBL PIC X. @C@@@@ 03 FU )@@G@@ LBLID2-VMLBL PIC X. @C@@@@ 03 LBLID3-VMLBL FV )@@G@@ PIC X. @C@@@@ 03 LBLID4-VMLBL PIC X. @C@@@@FW )@@G@@ 03 LBLID5-VMLBL PIC X. @D@@@@ 03 FX )@@G@@ LBLRN1-VMLBL PIC X(10). @D@@@@ 03 LBLRN2-VMLBFY )@@G@@L PIC X(10). @D@@@@ 03 LBLRN3-VMLBL PIFZ )@@G@@C X(10). @D@@@@ 03 LBLRN4-VMLBL PIC X(10). GA )@@G@@@D@@@@ 03 LBLRN5-VMLBL PIC X(10). @D@@@@ GB )@@G@@ 03 FILLER PIC X(54). @A@@@@ * SECTIONGC )@@G@@ A - VENDOR RECORD@B@@@@ * 1 RECORD PER MAJOR KEY@C@@@@GD )@@G@@ 02 VENDR-VMA REDEFINES VNDMST-VMLBL.@D@@@@ 03 GE )@@G@@ MAJKEY-VMA PIC X(12). @C@@@@ 04 ID-VMA GF )@@G@@ PIC X. @D@@@@ 04 VNDCD-VMA PIC X(5)GG )@@G@@. @D@@@@ 04 FIL-VMA PIC X(6). @D@@@@GH )@@G@@ 03 VNDNM-VMA PIC X(25). @D@@@@ GI )@@G@@ 03 VNDNM2-VMA PIC X(23). @D@@@@ 03 VNDSTGJ )@@G@@R-VMA PIC X(25). @D@@@@ 03 VNDCTY-VMA GK )@@G@@ PIC X(19). @C@@@@ 03 VNDSTA-VMA PIC XX. GL )@@G@@@F@@@@ 03 VNDZIP-VMA PIC X(6) JUST RIGHT. GM )@@G@@@C@@@@ 03 VNDTRM-VMA PIC XX. @C@@@@ GN )@@G@@ 03 VNDFOB-VMA PIC X. @C@@@@ 03 VNDPPC-VMA GO )@@G@@ PIC X. @C@@@@ 03 VNDSHP-VMA PIC 9. GP )@@G@@@C@@@@ 03 VNDCID-VMA PIC X. @C@@@@ GQ )@@G@@ 03 FILLER PIC XX. @D@@@@ 03 VNDSVC-VMA GR )@@G@@ PIC X(6). @C@@@@ 03 VNDBUS-VMA PIGS )@@G@@C XX. @C@@@@ 03 VNDIFV-VMA PIC X. @D@@@@ GT )@@G@@ 03 FILLER PIC X(5). @D@@@@ 03 GU )@@G@@ VNDUPD-VMA PIC H9(6). @C@@@@ * SECTION B - COMMODIGV )@@G@@TY CODE RECORD @D@@@@ * MULTIPLE RECORDS PER MAJOR KGW )@@G@@EY @C@@@@ 02 VENDR-VMB REDEFINES VENDR-VMA. @D@@@@ GX )@@G@@ 03 FILLER PIC X(12). @C@@@@ 03 GY )@@G@@ VNDLOC-VMB PIC X. @D@@@@ 03 VNDCMC-VMB GZ )@@G@@ PIC X(7). @D@@@@ 03 VNDUPD-VMB PIC H9(6HA )@@G@@). @D@@@@ 03 VNDCTOT-VMB PIC SH9(8)V99.@D@@@@HB )@@G@@ 03 FILLER PIC X(108). @D@@@@ * AHC )@@G@@REA B SECTION N - INDEX BY VENDOR NAME @D@@@@ * MULTHD )@@G@@IPLE RECORDS PER MAJOR KEY @C@@@@ 02 VENDR-VIN REDEFINES VHE )@@G@@ENDR-VMB. @ @@@@ 03 MAJKEY-VIN.@C@@@@ HF @EOF @COPY,IO TEMP.1034-001-001,1034-001-001. @FREE TEMP.