@CAT,P 1046-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1046-001-001,,,130503053241,000 )@@G@@**PF**@@@@/D@@@@@@@@@@@[@D^@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@K@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LAH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@J@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@ @@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@M@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@E@@?AN )@@G@@ADDALL @@@@@@@@[@@@ @ @E@ [@@@@#@@@@W@C4E]RLAD$REGS AO )@@G@@@@@@@@@@[@@= @ @ @ [@@@@=@@@@W#FKY]RLAD$RESET @@@@@@@@[@@%AP )@@G@@ @ @^@ [@@@@E@@@@W$FN"]RLAD$TABLES @@@@@@@@[@@- AQ )@@G@@@ @]@#[@@@@I@@@@W1FR+]RLAD$CS$ASCII @@@@@@@@[@@Y @ @]@#[@@@@EAR )@@G@@@@@@W_F4[]RLAD$CS$OCTAL @@@@@@@@[@@Z @ @G@ [@@@@F@@@@XDF4)]RLAS )@@G@@AD$CS$FLDTA @@@@@@@@[@@) @ @]@#[@@@@E@@@@XOF4.]RLAD$DUMP AT )@@G@@@@@@@@@@[@@< @ @Q@ [@@@@-@@@@XYG#7]RLAD$FILE @@@@@@@@[@@+AU )@@G@@ @ @P@ [@@@@:@@@@X_H[3]RLAD$INDEX @@@@@@@@[@@* AV )@@G@@@ @ @ [@@@@J@@@@Y%H 7]RLACDP @@@@@@@@[@@@BATCH @ @^@ [@@@@]AW )@@G@@@@@@Y9H;6]RLAD$WS$ASCII @@@@@@@@[@@X @ @C@ [@@@@O@@@@Y;C_H]ULAX )@@G@@AD$WS$OCTAL @@@@@@@@[@@W @ @R@ [@@@@N@@@@ZJD2-]ULAD$WS$FLDTA AY )@@G@@@@@@@@@@[@@( @ @A@ [@@@@O@@@@Z+D23]ULAD$HELP @@@@@@@@[@@&AZ )@@G@@ @ @K@ [@@@]L@@@@Z6E#J]ULAD$FIND$STOP@@P@@@@@[@@VCORR BA )@@G@@@ @@@[[@@@@]@@@@+BB:T^KLAD$INIT @@Q@@@@@[@@$CORR @ @@@[[@@@@]BB )@@G@@@@@@+DC7K^KLAD$SUMMARY @@N@@@@@[@@?CORR @ @[@][@@@@ @@@@+FGV1^OLBC )@@G@@AD$SUMMARY @@:@@@@@[@@@ORIG @ @-@ [@@@[$@@@@+KGTM^OLAD$F$SUBRTN BD )@@G@@@@R@@@@@[@@>ORIG @ @9@ [@@@]W@@@@<7GM;#ZLAD$FIND$STOP@@T@@@@@[@@@BE )@@G@@ORIG @ @^@ [@@@@G@@@@&NF^6]RLAD$INIT @@U@@@@@[@@@ORIG BF )@@G@@@ @-@ [@@@@_@@@@&ZC"U]ULAD$F$SUBRTN @@S@@@@@[@@@CORR @ @#@^[@@@@FBG )@@G@@@@@@$YG*Z^OLAD$F$SUBRTN @@@@@@@@[@@@ @ @'@ [@@@]>@@@@$(G*1^OLBH )@@G@@AD$FIND$STOP@@@@@@@@[@@@ @ @A@ [@@@@H@@@@%IC=.BCLAD$INIT BI )@@G@@@@@@@@@@[@@@ @ @<@ [@@@@7@@@@%VD5TBCLAD$FIND$STOP@@@@@@@@B@@@BJ )@@G@@ @SF]@DK@@@@J@@@@:MD6HBCLAD$WS$OCTAL @@@@@@@@B@@@ BK )@@G@@@_@@@WK@@@@T@@@@:-D6LBCLAD$WS$ASCII @@@@@@@@B@@@ @_@@@WK@@@@TBL )@@G@@@@@@:'D6MBCLAD$CS$ASCII @@@@@@@@B@@@ @-C@@DK@@@@G@@@@?ND6NBCLBM )@@G@@AD$CS$OCTAL @@@@@@@@B@@@ @-C@@DK@@@@G@@@@?ZD6NBCLAD$CS$FLDTA BN )@@G@@@@@@@@@@B@@@ @-C@@DK@@@@G@@@@?:D6OBCLAD$TABLES @@@@@@@@B@@@BO )@@G@@ @\^@@BK@@@@P@@@@?7D6PBCLAD$FILE @@@@@@@@B@@@ BP )@@G@@[II]@-K@@@@+@@@@!GD6RBCLAD$DUMP @@@@@@@@B@@@ [JL^@ZK@@@@0BQ )@@G@@@@@@!,D6VBCLAD$REGS @@@@@@@@B@@@ @*F@@#K@@@[A@@@@,YD6YBCLBR )@@G@@AD$F$SUBRTN @@@@@@@@B@@@ ANL[[-K@@@#)@@@@\=D6&BCLAD$HELP BS )@@G@@@@@@@@@@B@@@ C^J[@FK@@@]_@@@@3^D6:BCLAD$INIT @@@@@@@@B@@@BT )@@G@@ ]][]@&K@@@[#@@@@6#D6!BCLAD$INDEX @@@@@@@@B@@@ BU )@@G@@@QT#@TK@@@@H@@@@7AD6,BCLAD$WS$FLDTA @@@@@@@@B@@@ @_[@@WK@@@@UBV )@@G@@@@@@7ND6\BCLAD$RESET @@@@@@@@B@@@ @LP[@^K@@@@A@@@@7!D60BCLBW )@@G@@AD$SUMMARY @@@@@@@@[@@@ @ @(@ [@@@[?@@@@73G $BCLAD$SUMMARY BX )@@G@@@@@@@@@@B@@@ #8P@[YK@@@]%@@@@9ZGL>BCLAD$SUMMARY @@@@@@@@[@@@BY )@@G@@ @ @(@ [@@@[?@@@@/ G $BCLAD$SUMMARY @@\@@@)@B@@@ BZ )@@G@@#8P@[YK@@@]%@@@@.1GB*BCLAD$SUMMARY @@@@@@@@B@@@ #8P@[YK@@@]%CA )@@G@@@@@[@VGL>BCLAD$SUMMARY @@@@@@@@B@@@ #2R@[VK@@@]*@@@@"8D6KBCLCB )@@G@@AD$WS$OCTAL @@@@@@@@B@@@ @_@@@WK@@@@T@@@[[)D6LBCLAD$WS$ASCII CC )@@G@@@@@@@@@@B@@@ @_@@@WK@@@@T@@@[[9D6MBCLAD$CS$ASCII @@@@@@@@B@@@CD )@@G@@ @-C@@DK@@@@G@@@[]MD6NBCLAD$CS$OCTAL @@@@@@@@B@@@ CE )@@G@@@-C@@DK@@@@G@@@[]YD6NBCLAD$CS$FLDTA @@@@@@@@B@@@ @-C@@DK@@@@GCF )@@G@@@@@[]%D6OBCLAD$TABLES @@@@@@@@B@@@ @\^@@BK@@@@P@@@[]6D6PBCLCG )@@G@@AD$FILE @@@@@@@@B@@@ [II]@-K@@@@+@@@[#FD6RBCLAD$DUMP CH )@@G@@@@@@@@@@B@@@ [JL^@ZK@@@@0@@@[#!D6VBCLAD$REGS @@@@@@@@B@@@CI )@@G@@ @*F@@#K@@@[A@@@[^XD6YBCLAD$F$SUBRTN @@@@@@@@B@@@ CJ )@@G@@ANL[[-K@@@#)@@@[ COUNT \ LOOP :@@@R&CX )@@G@@@F@@@@ (TFLAG = 0) ** (TYPE <> 0) \ ('TYPE ' , TYPE[,,U!D] , ; CY )@@G@@:@@@R0@D@@@@ ' TABLE DOES NOT EXIST IN THE SDD'):@@@R'CZ )@@G@@@ @@@@ FNTQWM := QWMSAV :@@@S^@#@@@@ GO DONE :@@@SIDA )@@G@@@]@@@@WRONGTYPE: :@@@SS@E@@@@ 'TYPE MAY NOT BE LESS THAN 0 AND DB )@@G@@BIGGER THAN 6' :@@@S+@[@@@@DONE: :@@@S?@[@@@@END :@@@S6@[@@@@. DC )@@G@@:@@@T@@[@@@@. :@@@TE@[@@@@. :@@@TO@[@@@@. :@@@TY@A@@@@FUNCT DD )@@G@@SDDPROCTAB(SDDADDR,PRINDEX) :@@@T*@]@@@@GO ENDDOC :@@@T2@F@@@@' THDE )@@G@@IS FUNCTION DISPLAYS THE CONTENTS OF THE PROCEDURE TABLE' :@@@T/@A@@@@DF )@@G@@'ENTRY(S) IN THE SDD SPECIFIED. ' :@@@UA@B@@@@'FORMAT : SDDPROCTAB(SDDDG )@@G@@ADDR,PRINDEX)' :@@@UK@D@@@@' WHERE SDDADDR - START ADDRESS DH )@@G@@OF SDD' :@@@UU@G@@@@' PRINDEX - PROCEDURE INDEX, OPTDI )@@G@@IONAL, IF NOT GIVEN,' :@@@U=@E@@@@' ALL ENTRDJ )@@G@@IES WILL BE DISPLAYED ' :@@@U,@F@@@@'NOTE : THIS FUNCTION DEFINES THE FODK )@@G@@LLOWING GLOBAL VARIABLES' :@@@U8@D@@@@' PROCTAB - PROCEDURE TDL )@@G@@ABLE START ADDRESS' :@@@V]@F@@@@' REGSAVTAB - REGISTER SAVE TDM )@@G@@ABLE ADDRESS IF IT EXISTS ' :@@@VG@]@@@@ENDDOC: :@@@VQ@G@@@@ DN )@@G@@ LOCAL QWMSAV, PTRTABADDR, PTRENTNUM, PTRCOUNT, PROCTABADDR,; :@@@V)DO )@@G@@@A@@@@ PROCTABENTS, COUNT, TFLAG :@@@V%@^@@@@ QWMSAV := FDP )@@G@@NTQWM :@@@V4@#@@@@ FNTQWM := 1:@@@V"@D@@@@ GO SDDADDR[] <> 0DQ )@@G@@111116106117 \ BADSDDADDR :@@@WC@D@@@@ PTRTABADDR := SDDADDR +DR )@@G@@ SDDADDR[2,,Q4] + 2 :@@@WM@A@@@@ PTRENTNUM := PTRTABADDR[,,Q3]DS )@@G@@:@@@WW@A@@@@ PTRTABADDR := PTRTABADDR + 1 :@@@W&@^@@@@ PTRCODT )@@G@@UNT := 0 :@@@W0@]@@@@PTRLOOP: :@@@W'@A@@@@ PTRCOUNT := PTRCODU )@@G@@UNT + 1 :@@@X^@B@@@@ GO PTRTABADDR[,,S3] = 1 \ FOUND :@@@XIDV )@@G@@@D@@@@ PTRTABADDR := PTRTABADDR + PTRTABADDR[,,Q4] :@@@XS@B@@@@DW )@@G@@ GO PTRENTNUM > PTRCOUNT \ PTRLOOP :@@@X+@C@@@@ 'PROCEDURE DX )@@G@@TABLE NOT FOUND IN THE SDD' :@@@X?@#@@@@ GO DONE :@@@X6@[@@@@DY )@@G@@FOUND::@@@Y@@D@@@@ PROCTABADDR := PTRTABADDR[2,,H2] + SDDADDR DZ )@@G@@:@@@YE@D@@@@ PROCTAB := PROCTABADDR . GLOBAL VARIABLE :@@@YOEA )@@G@@@B@@@@ PROCTABENTS := PTRTABADDR[3,,H2] :@@@YY@#@@@@ COUNTEB )@@G@@ := 0 :@@@Y*@#@@@@ TFLAG := 0 :@@@Y2@]@@@@MAINLOOP: :@@@Y/@ @@@@EC )@@G@@ COUNT := COUNT + 1 :@@@ZA@G@@@@ GO (PRINDEX <> 0) ** (PED )@@G@@RINDEX <> PROCTABADDR[,,Q1]) \ SKIPDISP :@@@ZK@D@@@@ '*** PROCEDEE )@@G@@URE ', PROCTABADDR[4,,S2] <> 0 \ ; :@@@ZU@G@@@@ PROCTABADDR[EF )@@G@@PROCTABADDR[1,,Q2]:(PROCTABADDR[4,,S2]//4)!A],; :@@@Z=@D@@@@ EG )@@G@@ '(INDEX ', PROCTABADDR[,,Q1!D], ') ***':@@@Z,@D@@@@ ' PROCEEH )@@G@@DURE ENTRY ADDRESS : ' , PROCTABADDR:@@@Z8@F@@@@ ' PROCEDURE BEI )@@G@@LOCK NUMBER : ' , PROCTABADDR[,,Q3!D] :@@@)]@G@@@@ PROCTABADDREJ )@@G@@[1,,Q1]<>0\(' LC COUNT : ', PROCTABADDR[1,,Q1!D]) :@@@)G@C@@@@ EK )@@G@@ LCTAB := PROCTABADDR[1,,Q1] <> 0 \ ; :@@@)Q@C@@@@ (PREL )@@G@@OCTABADDR + PROCTABADDR[,,Q2]):@@@))@G@@@@ PROCTABADDR[1,,Q1]<>0\(EM )@@G@@' LC TABLE ADDR : LCTAB(GLOBAL VAR)') :@@@)%@G@@@@ PROCTABADDREN )@@G@@[1,,H2] <>0 \ (' PARENT PROCEDURE INDEX : ', ; :@@@)4@D@@@@ EO )@@G@@ PROCTAB[PROCTABADDR[1,,H2],,Q1!D] ) :@@@)"@F@@@@ PROCTEP )@@G@@ABADDR[2,,Q1] <>0 \ (' PARAMETER COUNT : ', ; :@@@-C@A@@@@ EQ )@@G@@ PROCTABADDR[2,,Q1!D]):@@@-M@E@@@@ PARMTAB := PROCTABADDRER )@@G@@[2,,Q1] <>0 \ (PROCTABADDR + ;:@@@-W@A@@@@ PROCTABADDR[2,,ES )@@G@@Q2]) :@@@-&@G@@@@ PROCTABADDR[2,,Q1] <>0 \ (' PARM TABLE ADDRET )@@G@@ : PARMTAB', ; :@@@-0@A@@@@ '(GLOBAL VAR)' ) :@@@-'EU )@@G@@@F@@@@ PROCTABADDR[2,,Q4] <>0 \ (' REGISTER SAVE COUNT : ', ; EV )@@G@@:@@@+^@A@@@@ PROCTABADDR[2,,Q4!D]):@@@+I@F@@@@ REGSAEW )@@G@@VTAB := PROCTABADDR[2,,Q4] <>0 \ (PROCTABADDR + ; :@@@+S@A@@@@ EX )@@G@@ PROCTABADDR[2,,Q3]) :@@@++@G@@@@ PROCTABADDR[2,,Q4]<>0\(EY )@@G@@' REG SAVE TABLE ADDR : REGSAVTAB',; :@@@+?@A@@@@ '(GEZ )@@G@@LOBAL VAR)' ) :@@@+6@D@@@@ ' LINK REGISTER : ', PROCTABADDFA )@@G@@R[3,,Q1!D] :@@@<@@D@@@@ ' PROCEDURE TYPE : ', PROCTABADDR[4,,FB )@@G@@S1!D] :@@@ 0 \ (; :@@@<*@G@@@@ FE )@@G@@ ' WORD OFFSET IN THE ABOVE LC OF ENTRY POINT : ', ; :@@@<2FF )@@G@@@A@@@@ PROCTABADDR[3,,H2!D]):@@@ 0 \ ( ;:@@@=A@G@@@@ ' WORD OFFSET IN THE ABOVE LC OFH )@@G@@F THE FIRST INSTRUCTION : ', ;:@@@=K@A@@@@ PROCTABADDR[4,,FI )@@G@@H2!D]):@@@=U@#@@@@ TFLAG := 1 :@@@==@]@@@@SKIPDISP: :@@@=,@D@@@@FJ )@@G@@ PROCTABADDR := PROCTABADDR + PROCTABADDR[,,Q4] :@@@=8@B@@@@ FK )@@G@@ GO PROCTABENTS > COUNT \ MAINLOOP :@@@>]@F@@@@ (TFLAG = 0) ** (PFL )@@G@@RINDEX <> 0) \ ('INDEX ',PRINDEX[,,U!D], ;:@@@>G@B@@@@ 'PRFM )@@G@@OCEDURE NOT FOUND' ) :@@@>Q@^@@@@ FNTQWM := QWMSAV :@@@>)@#@@@@FN )@@G@@ GO DONE :@@@>%@]@@@@BADSDDADDR: :@@@>4@^@@@@ 'BAD SDD ADFO )@@G@@DRESS':@@@>"@[@@@@DONE: :@@@&C@[@@@@END :@@@&M@[@@@@. :@@@&W@[@@@@FP )@@G@@. :@@@&&@[@@@@. :@@@&0@[@@@@. :@@@&'@[@@@@. :@@@$^@C@@@@FQ )@@G@@FUNCT LOC(SDDADDR,NAME1,NAME2,NAME3,NAME4,NAME5):@@@$I@]@@@@GO ENDDOC FR )@@G@@:@@@$S@F@@@@'THIS FUNCTION RETURNS THE VARIABLE ENTRY ADDRESS IN SDD VARFS )@@G@@IABLE':@@@$+@A@@@@'TABLE^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)FU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^O["+@@@GC )@@G@@C-GC)6A*1AS0A@2A*1B@0AC6A89A*8CT^D01A))^@)CD?H->H->^@2^@)^@3^@)^@)^@)^@)GD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GE )@@G@@EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^P]A@@@@ETCC)6A*1AS0A@2A*1BC0ELKGN )@@G@@BC3BC5A)3BC6A@4AS0A)8AK1AC0A*0E9DD- FC)^@)^@)^@)D9ND[DCC)^@)^@HU )@@G@@H->^@1^@)^@2A))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)HW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ID )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^T["+@@@IE )@@G@@C-GC)6A*1AS0A@2A*1BC0AC6A04BC3CT^D1[AC)^@)CD?H->H->^@2^@)^@2A))^@)^@)^@)IF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IG )@@G@@EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)II )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^U["+@@@ELNC)6A*1AS0A@2A*1BC0AC6IP )@@G@@A89A@6C-ICC9^@)AC7A02BC7E@)^@)A88A9MD1IFDIBC3A01B@4BC6A@5AC6^@)^@)^@)^@)IQ )@@G@@^@)^@)^@)E[[D1ID1[D(DCT#D8)AC6A89AK5^[K^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IR )@@G@@^@7A*8AK4F@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IZ )@@G@@^@)^@)^@)^@):@@^^V["+@@@C-GC)6A*1AS0A@2A*1BC0AC6A89A@6CT^D1[BC)^@)CD?H->JA )@@G@@H->^@1^@)^@6^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)JC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^W["+@@@JK )@@G@@C-GC)6A*1AS0A@2A*1BC0AC6A89A@6CT^D1[BC)^@)CD?H->H->^@2^@)^@7^@)^@)^@)^@)JL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JM )@@G@@EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^X["+@@@ELNC)6A*1AS0A@2A*1BC0AC6JV )@@G@@A89AK5C-IAC1^@)AC7A02BC7E@)^@)A88A9MD1IFDIBC3A01B@4BC6A@5AC6^@)^@)^@)^@)JW )@@G@@^@)^@)^@)E[[D1ID1[D(DCT#D8)AC6A89AS3^[K^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JX )@@G@@^@7A*8AK4F@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KF )@@G@@^@)^@)^@)^@):@@^^Y["+@@@C-GC)6A*1AS0A@2A*1BC0AC6A89AK5CT^D01AC)^@)CD?H->KG )@@G@@H->^@1^@)^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)KI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^Z["+@@@KQ )@@G@@C-GC)6A*1AS0A@2A*1BC0AC6A89AK5CT^D01AC)^@)CD?H->H->^@2^@)^@4^@)^@)^@)^@)KR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KS )@@G@@EK)^@)^@)^@)^@)^@)^@)^@)^@)^[S^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@):@@^^)["+@@@ELNC)6A*1AS0A@2A*1BC0AC6LB )@@G@@A89AS3C-IAC2^@)AC7A02BC7E@)^@)A88A9MD1IFDIBC3A01B@4BC6A@5AC6^@)^@)^@)^@)LC )@@G@@^@)^@)^@)E[[D1ID1[D(DCT#D8)AC6A89A)1^[K^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LD )@@G@@^@7A*8AK4F@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LL )@@G@@^@)^@)^@)^@):@@^^-["+@@@C-GC)6A*1AS0A@2A*1BC0AC6@@@@@@@@]2H@@N3@V5^[JC0)LM )@@G@@CTJELMC(#E-DD9IES3A81AC3BC6A(KD[DD-[C- D-KD[DCC)^@)^@)@@K@@=%[MDDN(9IE[[LN )@@G@@CD^C(GCDRCDMC*)CTJE(IE-T^[KELDETJD0)^@)^@)^@)^@3A81AC3AC0A(OD[JELIE-JD0)LO )@@G@@^@)^@)^@)^@)@@K@@=%[MDDN(9IE[[CDKD[DD-[C- D-KD[DCC)C- E- D1ODDJD0)CT D1OLP )@@G@@C(M^@3A81AC3BC7A[KD[DD-[C- D-KD[DCC)^@)^@)@@K@@=%[MDDN(9IE[[CDKD[DD-[^[CLQ )@@G@@D9PET ^[JC0)CTJELMC(#E-DD9IES)^@)^@3A81AC3BC8A[KD[DD-[C- D-KD[DCC)^@)^@)LR )@@G@@@@K@@=%[MDDN(9IE[[CD^C(O 0)CTIE-M 0)DDIC1DELHCDMFC)^@)^@)^@)^@)^@3A81AC3LS )@@G@@BC9A(KD[DD-[C- D-KD[DCC)^@)^@)@@K@@=%[MDDN(9IE[[CD^C(OC(IE-DD9I^[#C(IE- LT )@@G@@EK)D@)DC)E@)ES)^@)^@)^@3A81AC3BC9A[KD[DD-[C- D-KD[DCC)^@)^@)@@K@@=%[MDDNLU )@@G@@(9IET#CDHCT#D9MD(DCTF^[#D9MEL CTODDJD1[D))DDIETO^@)^@3BC2A@0A*6A[HCT#D9MLV )@@G@@D(DCTF^@)^@)^@)^@)@@K@@=%[MDDN(9IE-ICDMDDQC(MCL D1^^[HCDSDDHE(H^[NC(#E(MLW )@@G@@DDOFC)DDIES4AC3A@4A@3A[ICDND[QDDGD- ^@)^@)^@)^@)@@K@@=%[MDDN(9IE-ICDOC(ILX )@@G@@D1 ETNC( ^[KELDETJD0)C1JEK)E9JD( D0)^@)^@4AC3A@4A@6A(ICDND[QDDGD- ^@)^@)LY )@@G@@^@)^@)@@K@@=%[MDDN(9IE-SCD#D9GC*)ETOCDOC*)DL[DDG^@)^@)^@)^@)^@)^@)^@)^@4LZ )@@G@@AK7AK0AS1A[]D9ID[[D*)^@)^@)^@)^@)^@)@@K@@=%[MDDN(9IE-SCDRCD#DT D1CE(O^[#MA )@@G@@D9MEL CTODDJD1N ))DDICS)^@)^@4AK7A@8A)7A(AD9ME))E9JELOD@)^@)^@)^@)@@K@@=MB )@@G@@%[MDDN(9IE1[C-CC(IELDCTJ^[#D9PD1OFC)C9JE1 ELID( D1O^@)^@)^@4A*8AC0AS3A[MMC )@@G@@DD#D[HD9IC))^@)^@)^@)^@)@@K@@=%[MDDN(9IE1[CDCC(IELDCTJ^[#D9PD1OFC)DL[DDGMD )@@G@@^@)^@)^@)^@)^@)^@4A*8A)5A08A[MDD#D[HD9IC))^@)^@)^@)^@)@@K@@=%[MDDN(9IE9QME )@@G@@CD[D-^C(METJD0)C1 C- EL[D))E[MDDND9I^@)^@)^@)^@4A88A@4A@0A([D-^C(METJD0)MF )@@G@@^@)^@)^@)^@)@@K@@=%[MDDO*TCCDGCDMD9]C(ME))D*)E[MDDOCTCC(OE))D(^^@)^@)^@)MG )@@G@@^@)^@0AC8A@2A*0A[]DDMD(DD1BD[[D*)^@)^@)^@)@@K@@=%[MDDO*TCCDMC-E 0)D),^[KMH )@@G@@ELDE-#D[[EL^^[#D-DD1DCS?^[K 0)CC,^@0AS2A@0A*4A[NE-PE-OC9[ELO^@)^@)^@)^@)MI )@@G@@@@K@@=%[MDDQ*DOCDGCD#DDIC-T^[F 0)E9DD-GDD[D(N^@)^@)^@)^@)^@)^@)^@0AC4A@0MJ )@@G@@AC4A(#D9OE-JD1^CDGC*)^@)^@)^@)@@K@@=%[MDDQ*DOCDGC-NC(OD9I^[KELDE1[E- ^[^MK )@@G@@E(OFC!E-PET#CDGD9JET[^@0AC7A@5B@4A(OE(NCT[D-JD9NCC)^@)^@)^@)@@K@@=%[MDDQML )@@G@@*DOCDGCDPD1DE-T^[CC([D-OD@)D(BD(O^[NC(ME1DCT ES)^@)^@0AC8AC1AC7A[]DDMD(DMM )@@G@@D1BD[[D*)^@)^@)^@)@@K@@=%[MDDQ*DOCDMCDRDDGD-DCDHES?^[HC(^D-JCTF^@&^[GC(QMN )@@G@@CDM^@)^@)^@0AS8A@0AC3A([ELFCD^C(GE[CDD[^@)^@)^@)@@K@@=%[MDDQ*DOCDMCDNCTJMO )@@G@@E-O^[O 0)ELJCLDD1ND9I^@)^@)^@)^@)^@)^@)^@0AS7A@0AK6A[I 0)D-DE-GC*)ELJCTFMP )@@G@@^@)^@)@@K@@=%[MDDQ*DOCTOCDHCDMDD[^[NCT[ELKCC)^@)^@)^@)^@)^@)^@)^@)^@)^@0MQ )@@G@@A05A@0AS0A(CCDHC- D0)^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOCTOCDND[ ELTD))ETCCDPMR )@@G@@C9CD1 ETNC(T^@)^@)^@)^@)^@)^@0A05A@0AS2A(ND9PE-CE[JELO^@)^@)^@)^@)@@K@@=MS )@@G@@%[MDDQ*DOC-OCDKELDE1[E- ^[EC(O^[ F[KC(^DDODDJD0) *)C-JE))^@1A@7AC7AC6A(^MT )@@G@@E(IE9JD9^FC)^@)^@)^@)^@)@@K@@=%[MDDQ*DOC1GC-ICDQCDG^[MC(NC(ME1 ^@)^@)^@)MU )@@G@@^@)^@)^@)^@)^@)^@0BC7A@5AK6A(HDD[D(D^@)^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOC1GMV )@@G@@CDHCDS^[IC(BD- EK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0BC7A@7A*1A(^C(GEL[FC)CL MW )@@G@@CD#D@)^@)^@)@@K@@=%[MDDQ*DOC1GCDMD9ICDGC))E@,^[#D-JE(ODD EK)^@)^@)^@)^@)MX )@@G@@^@)^@0AC5AC0A@2A[GFDID1CCDQC(I^@)^@)^@)^@)@@K@@=%[MDDQ*DOC1GCDEC(MD9GC))MY )@@G@@D@)EL DD#D[GC(M -[E-OD9MD1 FC)^@)^@0BC7A81A@0A(ID9ME-C^[HDD[D(D^[]C([CS)MZ )@@G@@@@K@@=%[MDDQ*DOC9[CDEDDH^[FD9BCC)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1A@1A@0NA )@@G@@AK2A([E-GCDIE-[^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOC9[CDKELDE1[E- ^[EC(O^[ F[KNB )@@G@@C(^DDODDJD0) *)C-JE))^@1A@7AC7AC6A(^E(IE9JD9^FC)^@)^@)^@)^@)@@K@@=%[MDDQNC )@@G@@*DODD[CD^CDQDD^^[GC( ^[]CDNE-HCDI^@)^@)^@)^@)^@)^@)^@1A)6A@0A@3A[GCDFC*)ND )@@G@@E[[ELF^@)^@)^@)^@)@@K@@=%[MDDQ*DODD[CD^CDQDD^^[]CDNE-HCDI^@)^@)^@)^@)^@)NE )@@G@@^@)^@)^@)^@1A)6A@0A@4A(GCDFC*)E[[ELF^@)^@)^@)^@)@@K@@=%[MDDQ*DODD[CDDETHNF )@@G@@CD D))CT[EL^C(ICDN^@)^@)^@)^@)^@)^@)^@)^@1A)6A@0A@4A[NDDJE(S^[#DDOFC)^@)NG )@@G@@^@)^@)@@K@@=%[MDDQ*DODDGCDMDD#D[[EL^^[CD9GD-[D1^^@)^@)^@)^@)^@)^@)^@)^@1NH )@@G@@AK2A@3AK0A(#D[DCT[C9J^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DODDGCDAD9MD([D0)^0)E9[NI )@@G@@D1B^[GCDR^[JC1ADD#C(N^@)^@)^@1AK6A@0AC0A[#CDCD9FDD[^@)^@)^@)^@)^@)@@K@@=NJ )@@G@@%[MDDQ*DODDGCDGCDR^[JC1ADD#C(N^[JC0)ETPET[D0)E@,^[RDDGETJD01AK6A@0AC1A(]NK )@@G@@C(GD- E1DD-GC*)^@)^@)^@)@@K@@=%[MDDQ*DODDGCDGDDNCC)C8,^@*E9JEL^ C)DTJCTCNL )@@G@@^@)^@)^@)^@)^@)^@1AK1A@0AC7A[MD9PD1^^[GCDFC*)CL CD#D@)@@K@@=%[MDDQ*DODDINM )@@G@@CD^CDQDD^^[[^[CC(IC-MDD#DTN^@)^@)^@)^@)^@)^@)^@1AS2A@2A@4A(AE))E9[FDIC*)NN )@@G@@^@)^@)^@)^@)@@K@@=%[MDDQ*DODDICDECDHC(N^[E^[HCTHCDCD9I^@)^@)^@)^@)^@)^@)NO )@@G@@^@)^@1AS2A@2A@6A[AD9ME))E9[FDIC*)^@)^@)^@)@@K@@=%[MDDQ*DODTTCDED9 D))EK,NP )@@G@@^[ND(DE-C ))CDOE-JELIC(T^@)^@)^@)^@1A02A@0AC7A[ECDHC(NE-JE9I^@)^@)^@)^@)NQ )@@G@@@@K@@=%[MDDQ*DODTTCDOD[JD([ES)C(PC9 D1 ^[^C(GDS)^@)^@)^@)^@)^@)^@1A02A@0NR )@@G@@AC9A(HDD^C-GC(]E(MC8)^@)^@)^@)@@K@@=%[MDDQ*DOD-[CDGC(GCL[FC)C1JD1OC(ID9ONS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@1A84A@0AC3A[GCDFC*)CTCCDMD- ES)^@)^@)@@K@@=%[MDDQNT )@@G@@*DOD(DCDOD[JD([ES)CC,^[RD[DE- ))CDOE-JELIC(T^@)^@)^@2AC1A@0A)3A[]C(GD- NU )@@G@@E1DD-GC*)^@)^@)^@)@@K@@=%[MDDQ*DOD(ICDOD9^C))CC,^[FC(GD*?^[FC(GD*)D-[E8)NV )@@G@@D9AC1DCT ES2AK2A@0A@7A[NCDPDS)EL[E[DC-N^@)^@)^@)@@K@@=%[MDDQ*DOD(ICDNCDMNW )@@G@@CC)CS)C1MDD FK)^@)^@)^@)^@)^@)^@)^@)^@)^@2AK2A*0AC9A(^CDGCLJ^@)^@)^@)^@)NX )@@G@@^@)^@)@@K@@=%[MDDQ*DOD(JCD^C(MELDCTF^[ 0)DL[CTFETJD0)^@)^@)^@)^@)^@)^@2NY )@@G@@A)4A@0A*2A(NE),^[GD9PDDN^@)^@)^@)^@)@@K@@=%[MDDQ*DOD(JCDMDD#D[[EL^^[AEL[NZ )@@G@@D1#DDN^[FE( D[G ))DLM 0)^@)^@2A)4A@0A*2A[HCDICTCC(NE- EK)^@)^@)^@)@@K@@=OA )@@G@@%[MDDQ*DOD(JCD#CDMD))C))DTMCDAE))D-[E8)D9AC1DCT ^@)^@)^@)^@2A)4A@0A*4A[#OB )@@G@@D-[FDOD9I^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD(NCDFC(DE-C^[[D- F[[D1^C(M^@)^@)OC )@@G@@^@)^@)^@)^@)^@)^@2AS3A@1A@4A[JD-DE1 ^[]EL[D1#D@)^@)^@)@@K@@=%[MDDQ*DOD(NOD )@@G@@CD[D-OD9I^[G^[CDDGE-JD0)DLM^@)^@)^@)^@)^@)^@)^@2AS8A@0AC0A(]DDGD9SDC)^@)OE )@@G@@^@)^@)^@)^@)@@K@@=%[MDDQ*DOD(NCDRC(IC-T^[LE(DD1OD9I^@)^@)^@)^@)^@)^@)^@)OF )@@G@@^@)^@2AS3A@0AC5A[JD-DE1 ^[]EL[D1#D@)^@)^@)@@K@@=%[MDDQ*DOD1#CDFDDHCL ELGOG )@@G@@FC)CLMC(RC(M^@)^@)^@)^@)^@)^@)^@)^@3AK7A@2AS5A[GCDFC(QDD E8)^@)^@)^@)^@)OH )@@G@@@@K@@=%[MDDQ*DOD1#CDOD[JD([ES)CC,^[RDDGD)?^[EEK,^@)^@)^@)^@)^@)^@3AK8A*0OI )@@G@@A@2A(BCDNE-JD1DCC)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1#CDHC(BC(MDD[D0)^0)E9 D-GOJ )@@G@@ES)CDOE-JELIC(T^@)^@)^@3AK3A@2AK8A[[ETCC(]D9MD8)^@)^@)^@)^@)@@K@@=%[MDDQOK )@@G@@*DOD1#CDOD[ ^[MD9NC(I^[GCDR^[ADDMD*)^@)^@)^@)^@)^@)^@3AK4A@5A@3A(MCDGC(DOL )@@G@@C9C^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1#CDGCDPEL[^[]EL D1ICDI ))CDOE-T^@)^@)OM )@@G@@^@)^@)^@)^@3AK4A@0AS8A(MCDGC(DC9C^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1#CDED9CON )@@G@@D0)E9 D-]FC)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@3AK4A@0AS9A[#CDMFC)^@)^@)^@)^@)OO )@@G@@^@)^@)@@K@@=%[MDDQ*DOD1#CDFC(DE-C^[OD[JD([ES)^@)^@)^@)^@)^@)^@)^@)^@)^@3OP )@@G@@AK3A@3A06A(BEL C(IET]D9MD8)^@)^@)^@)@@K@@=%[MDDQ*DOD1ECDHC(MFDN^[KC(ICC)OQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@2BC1AC1A@1A(CCDGC-JD0)^@)^@)^@)^@)^@)@@K@@=OR )@@G@@%[MDDQ*DOD1ECDOELD (#DDOFC)E9JD( D0$ES)^0)CTCDDGC-MC(I^9N^@2BC3AK3AC7A[IOS )@@G@@C(RCDMDS)^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1ECDECDHC(N^[] 0)D8$D1 DDGD))^@)OT )@@G@@^@)^@)^@)^@)^@)^@1A@7A@0A07A[HCDICDNEDPCDI^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1QOU )@@G@@CDED9CD0)E1JELKCDCD))^@)^@)^@)^@)^@)^@)^@)^@)^@2A84A@0AC2A(GCDN^[QC(BCDNOV )@@G@@^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1QCD^CDIDD D))D[JE(ND([D0)^@)^@)^@)^@)^@)^@)OW )@@G@@^@)^@2A84A@0AC3A[GCDN^[QC(BCDN^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1TC-IC(R^[TD9MOX )@@G@@DS)CLGD9JC))CT D1OC(M^@)^@)^@)^@)^@3AC7A@5A@6A[IC(R^[TD9MDS)^@)^@)^@)^@)OY )@@G@@@@K@@=%[MDDQ*DOD1TCDMDD#D[[EL^^[BELDET[D1ODC)^@)^@)^@)^@)^@)^@)^@3AC1A@1OZ )@@G@@AS4A[]E(AC1[D-J^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1TCDMD9]C(ME))EL DDAC(IETOPA )@@G@@C(DD0)D(^^@)^@)^@)^@)^@3AC3A@2A*3A(NFDMCD#E(NC*)^@)^@)^@)^@)@@K@@=%[MDDQPB )@@G@@*DOD1TCDGD9IC8)DDND-[D1^^[RD9HC(IES)D[ CDGE-C^[#CDMC*3AC8A)0A@3A(HC(MELDPC )@@G@@CTF^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD1TCDGD9IC8)DDND-[D1^^[RD9HC(IES)D[ CDGPD )@@G@@E-C^[#CDMC*3AC8A)0A@3A[#C(^CDMD[PELNE))^@)^@)^@)@@K@@=%[MDDQ*DOD1TCDFCDMPE )@@G@@D))D9GET D0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@3AC2AC1AK4A[MD9#D[ ETOC(M^@)^@)PF )@@G@@^@)^@)@@K@@=%[MDDQ*DOD1TCD#D[[ELGC(N^[#CDMCTJD1 ^@)^@)^@)^@)^@)^@)^@)^@3PG )@@G@@AC8A@0A80A[RD9JC-]E(MFC)^@)^@)^@)^@)@@K@@=%[MDDQ*DOD9CCDEDDI^[#D[[C*?D*,PH )@@G@@C),^@)^@)^@)^@)^@)^@)^@)^@)^@3A)1A@2A09A( CDNE))CT[D1OD9I^@)^@)^@)@@K@@=PI )@@G@@%[MDDQ*DOD9MCDMFD[D0)D0)D-DE-OD- ^@)^@)^@)^@)^@)^@)^@)^@)^@3A08A@0A*0A(KPJ )@@G@@ELDD1 E1DD-GC*)^@)^@)^@)@@K@@=%[MDDQ*DOE[MC), 0, 0, 0, 1KELDE1[E- ^[DD1NPK )@@G@@E(MCDICT ^[JD1GFC5AK9A@8AK8A(HCDICDODC)^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOET#PL )@@G@@CD^CDME1DD0)C-RCDTD1 ^[CDD#DTN^@)^@)^@)^@)^@)^@3BC1A*0AK0A[NE[[ELOCDICLPPM )@@G@@ELB^@)^@)^@)@@K@@=%[MDDQ*DOE-ICDID9ME-JD0)^0)ETHDDOD@)^@)^@)^@)^@)^@)^@)PN )@@G@@^@)^@4AC3A@0AK8A(ND[ D-]FDQDDGD- ^@)^@)^@)@@K@@=%[MDDQ*DOE-ICDNCDHE( D))PO )@@G@@ETKDDQC(T^@)^@)^@)^@)^@)^@)^@)^@)^@4AC5A@5AK5A[FDDIC9NE-JD0)ETKELDD1BES)PP )@@G@@@@K@@=%[MDDQ*DOE-SCD]D9]CLT^[MC( C)?^[[E-OD9MD1 FC)^@)^@)^@)^@)^@4AK8A@0PQ )@@G@@A)0A(BELJC(NCL CTF^@)^@)^@)^@)@@K@@=%[MDDQ*DOE-SCDEC(ID1DC1 EK)DK,^[#D9TPR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@4AK8A@0A)1A(]C(GE-JD0)^@)^@)^@)^@)^@)@@K@@=%[MDDQPS )@@G@@*DOE-SCD^CDQDD^^[B 0)CT[D-^E9 D-G ))CDOE-JELIC(T^@)^@4AK8A@0A)1A[[E(NE-DPT )@@G@@D0)^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOE(OCDBC(JELBC*)CLMD9RD0)^@)^@)^@)^@)^@)PU )@@G@@^@)^@)^@)^@4AS7A@0AK5A[NCDIC-T^@)^@)^@)^@)^@)^@)@@K@@=%[MDDQ*DOE1[CDHCTQPV )@@G@@ (KELDE1[E- ^[JCK!C9TD0)ELH^@6A@5^@)^@)^@4A*8AC5B@8A[MDD#D[HD9IC))^@)^@)PW )@@G@@^@)^@)@@K@@=%[MDDQ*DOE9DCDFD9MC(T^[OC(IE[[ES)^@)^@)^@)^@)^@)^@)^@)^@)^@4PX )@@G@@B@7A@0A@4A(RDDNCTJD1NDDI^[MCDKDD^ES)@@K@@=%[MDDQ*DOE9DCDHC(OCT[D-A^@&^[LPY )@@G@@E(DD1I^[N 1# 0)^@)^@)^@)^@)^@4B@7A@0A@5A[RDDNCTJD1NDDI^[MCDKDD^ES)@@K@@=PZ )@@G@@%[MDDQ*DOE9DCDHDD#D[[C(G^[HC(TC(MES?^[FD-[E(N^@&^[HC(TC(MES4B@2A@0A@6A(CQA )@@G@@CDGC(N^[#D9MD1 EK)^@)^@)@@K@@=%[MDDQ*(OD1#CDMC(BDDJD1[D))CT[EL^DDJD-JC9TQB )@@G@@^@)^@)^@)^@)^@)^@3AK5AS0A@2A(BEL C(IE1DD-GC*)^@)^@)^@)@@K@@=%[MDDU*DOE[[QC )@@G@@CDGCDREL D1#C*)ETOELJDT EK)D*,C),^@)^@)^@)^@)^@3A88A*2AC2A[HCTFC( ETKD9MQD )@@G@@E))^@)^@)^@)@@K@@=%[MDDU**)C-OCDRC(GD-IC(NES)CTOEK)CDO^[FDDIC9NE-JD0)D[JQE )@@G@@ETK 03AC5AK6A)1A[NCTJE-DCC)^@)^@)^@)^@)^@)@@K@@=%[MDDU**)D1TCDRC(GD-IC(NQF )@@G@@ES)CTOEK)CDO^[FDDIC9NE-JD0)D[JETK 03AC5AK6A)1A[NCTJE-DCC)^@)^@)^@)^@)^@)QG )@@G@@@@K@@=%[MDDU(*)C-OCD#D-DC(IE)'F9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9Z^@2BC6A88QH )@@G@@A)5A(HE),D-[E(MC(G^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCD#D-DC(IE)'F9ZF9ZF9ZF9ZQI )@@G@@F9ZF9ZF9ZF9ZF9ZF9ZF9Z^@2BC6A88A)7A[HE),D-[E(MC(G^@)^@)^@)^@)@@K@@=%[MDDUQJ )@@G@@(*)C-OCD#D-DC(IE)'F9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9Z^@2BC6A88A)7A(HE),D-[QK )@@G@@E(MC(G^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCD#D-DC(IE)'F9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZQL )@@G@@F9ZF9ZF9Z^@2BC6A88A)8A[HE),D-[E(MC(G^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCD#D-DQM )@@G@@C(IE)'F9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9Z^@2BC6A88A)9A[HE),D-[E(MC(G^@)^@)QN )@@G@@^@)^@)@@K@@=%[MDDU(*)C-OCD#D-DC(IE)'F9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9ZF9Z^@2QO )@@G@@BC6A88A)9A(HE),D-[E(MC(G^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDKELDFLH^@)^@)^@)QP )@@G@@^@*C-JE)(^@)^@)^@)^@)^@)^@)^@2BC1AK5AC0A(KCDNET[DD#^@)^@)^@)^@)^@)@@K@@=QQ )@@G@@%[MDDU(*)C-OCDKELDFLH^@)^@)^@)^@*C-JE)(^@)^@)^@)^@)^@)^@)^@2BC1AK5AC0A[KQR )@@G@@CDNET[DD#^@)^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDKELDFLH^@)^@)^@)^@*C-JE)(^@)QS )@@G@@^@)^@)^@)^@)^@)^@2BC1AK5AC1A[KCDNET[DD#^@)^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OQT )@@G@@CDKELDFLH^@)^@)^@)^@*C-JE)(^@)^@)^@)^@)^@)^@)^@2BC1AK5AC1A(KCDNET[DD#^@)QU )@@G@@^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDBCDMCDACDGC))CLMD9OD[ ELN ))DDICS) [^D9OQV )@@G@@ C)^@2BC1AK5AC2A[KCDNET[DD#^@)^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDKELDFLH^@)QW )@@G@@^@)^@)^@*C-JE)(^@)^@)^@)^@)^@)^@)^@2BC1AK5AC2A(KCDNET[DD#^@)^@)^@)^@)^@)QX )@@G@@@@K@@=%[MDDU(*)C-OCDGE(#C*?^[NCTCE9[CK)^0)DT[ET ))DDICS) [^D9O C2BC1AK5QY )@@G@@AC3A(KCDNET[DD#^@)^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDKELDFLH^@)^@)^@)^@*C-JQZ )@@G@@E)(^@)^@)^@)^@)^@)^@)^@2BC1AK5AC4A[KCDNET[DD#^@)^@)^@)^@)^@)@@K@@=%[MDDURA )@@G@@(*)C-OCDKELDFLH^@)^@)^@)^@*C-JE)(^@)^@)^@)^@)^@)^@)^@2BC1AK5AC4A(KCDNET[RB )@@G@@DD#^@)^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDKELDFLH^@)^@)^@)^@*C-JE)(^@)^@)^@)RC )@@G@@^@)^@)^@)^@2BC1AK5AC5A(KCDNET[DD#^@)^@)^@)^@)^@)@@K@@=%[MDDU(*)C-OCDKELDRD )@@G@@FLH^@) [^D9O C)^@)^@)^@)^@)^@)^@)^@)^@)^@2BC3AK1A00A( D-DFL[CL E-C^@)^@)RE )@@G@@^@)^@)@@K@@=%[MDDU(*)C-OCDKELDFLH^@) [^D9O C)^@)^@)^@)^@)^@)^@)^@)^@)^@2RF )@@G@@@@@@@@@@#OJ@@R>@V9C-QCDG^[E 0)CLMD9RD0?^[EEK, ))D*,C),^@)^@)^@)^@1A*4A@3RG )@@G@@AC2A(RDD#D[DE-[^@)^@)^@)^@)^@)@@K@@=%1[D))=@)E[[C-^C(GCDRCDMC*)E1[D))D( RH )@@G@@C))CTOEK\D9CES*C-JE)(^@3A81AK1AC9A(GCDIC9CD9MD1 ^@)^@)^@)^@)@@K@@=%1[D))RI )@@G@@=@)E-SCDQCDG^[QCDMD- FC)D-[E8)D9AC1DCT ^@)^@)^@)^@)^@4AK6AC1A@5A(GE(]CLJRJ )@@G@@CTF^@)^@)^@)^@)^@)@@K@@=%1[D-#([ C-OCDIC-NDC!C1MCDIDS)C))E1[D-#D[ CTF^[DRK )@@G@@D1# 9^D9O^@2BC8AC0A)1A[]C(GE1DC- EL ^@)^@)^@)^@)@@K@@=%1[D-#([ D1ECDIC-NRL )@@G@@DC!C1MCDIDS)C))E1[D-#D[ CTF^[DD1# 9^D9O^@2BC8AC0A)1A[]C(GE1DC- EL ^@)^@)RM )@@G@@^@)^@)@@K@@=%1[D-^*C)D1ECDQDD#E-JEK)E1[D-^CC?^[HC))^@)^@)^@)^@)^@)^@)^@2RN )@@G@@BC2A@6AC9A[EC(MET FC)CTDE-T^@)^@)^@)@@K@@=%1[D-^*(NC- CDJE-JD-[ELTD1BD9GRO )@@G@@D9BFC)CDNETJCTDCDOC(N^@)^@)^@0A81AC1A08A(RDDGD(DD1BE-JD0)^@)^@)^@)@@K@@=RP )@@G@@%1[D-^*(NC-OCD^EK)E[[E(G^[[^[]EL FLDCTFDC) [^D9O C)^@)^@)^@3AK2A@2AS5A[QRQ )@@G@@CDGC- ET ^@)^@)^@)^@)^@)@@K@@=%1[D-^*(NC1GCD^EK)D([ELDCC)E),E1[D-^C(N^[HRR )@@G@@C))^@)^@)^@)^@)^@0BC4A@6A)9A(ECD#DTND9IE1DD-GC*)^@)^@)@@K@@=%1[D-^*(ND1#RS )@@G@@CD^EK)E[[E(G^[[^[]EL FLDCTFDC) [^D9O C)^@)^@)^@3AK2A@2AS5A[QCDGC- ET ^@)RT )@@G@@^@)^@)^@)^@)@@K@@=%1[D-^*(UCDUCDKE-[^[]C(FDDIES)^S4A)5^@)C-JE))^@)^@)^@)RU )@@G@@^@)^@0AK5A@6A01A(TE(HCC)^@)^@)^@)^@)^@)^@)@@K@@=%1[D-^*(UCT[CC0B@0A@4^[^RV )@@G@@EK)CDIE-CD9IFC)E1[D-^C(U^@)^@)^@)^@0A)6A@0B@3A[]CDFC(METADD D-^^@)^@)^@)RW )@@G@@@@K@@=%1[D-^(DQE[[CD^E(DD-DD8)E1[D-^DDQDD[^[HC))^@)^@)^@)^@)^@)^@3A85A@0RX )@@G@@A@8A(GC(RDDNE-JE9I^@)^@)^@)^@)@@K@@=%1[D-^(DQE1[CDODD^C(RCDOC(M^[ FD ^[NRY )@@G@@E(MC9 D9IES)^0)CDNETJCS4A*4AS6AC1A(KD9ME-ND(JE(OD@)^@)^@)^@)@@K@@=%1[D-^RZ )@@G@@(9NC-OCDND9PE-CC([ETOC(MD0)C1MC9O^[GDDIC(N^[N *1AS)^@1A@4A@3A08A[QCDGC-JSA )@@G@@ETOCC)^@)^@)^@)^@)@@K@@=%1[D-^(9NC9[CDND9PE-CC([ETOC(MD0)C1MC9O^[GDDIC(NSB )@@G@@^[N *1AS)^@1A@4A@3A08A[QCDGC-JETOCC)^@)^@)^@)^@)@@K@@=%1[D-^(9NC9[CDADDMSC )@@G@@ETO^[[D( ELDCT[D0)D[JD( ^[#CDMC*) [#D9# C1A@4A*1A)1A(QCDGC-JETOCC)^@)^@)SD )@@G@@^@)^@)@@K@@=%1[D-^(9NC9[CDADDMETO^[[D( ELDCT[D0)D[JD( ^[#CDMC*) [#D9# C1SE )@@G@@A@4A*1A)2A(QCDGC-JETOCC)^@)^@)^@)^@)@@K@@=%1[D- (1#CT[CDICD]DDNCTJ^@)DDISF )@@G@@CS)^@*C-JE)(^@)^@)^@)^@)^@)^@0A)5A@3AS1A[QCDGC(ICTDCC)^@)^@)^@)^@)@@K@@=SG )@@G@@%1[D- (1#C-OCDICD]DDNCTJ^@)DDICS)^@*C-JE)(^@)^@)^@)^@)^@)^@0A)5A@3AS1A[QSH )@@G@@CDGC(ICTDCC)^@)^@)^@)^@)@@K@@=%1[D- (1#DDGCD^ELB 9OD9RC(M^@)^@)^@)^@)^@)SI )@@G@@^@)^@)^@)^@)^@)^@1AK1A@7AC5A[HE(IC- D- DDI^@)^@)^@)^@)@@K@@=%1[D- (1#D1HSJ )@@G@@CDADDMETO^[[D( ELDCT[D0)D[JD( ^[#CDMC*)^@)^@)^@3A@6AS6AC0A[]C(GC(I^@)^@)SK )@@G@@^@)^@)^@)^@)@@K@@=%1[D- (1OCTOCDRCDGD-DD1BC1JEL^^[ACDHDDGFC)E[MCD#E-DCT SL )@@G@@^@)^@0A04A@0A)4A[RCDGD-DD1BC1JEL^^@)^@)^@)@@K@@=%1[D- (1OC-OCDRD[ CDO^[ASM )@@G@@DDMETO (] 1N 0) [BA*0AK(^@)^@)^@)^@4A*8A)5A04A[#D9GD9IDD[D))D[BE-N^@)^@)SN )@@G@@@@K@@=%1[D- (1OC9[CD^EK)C9MCD#C*)E1[D- D1OC*)^@)^@)^@)^@)^@)^@)^@1A@5AC1SO )@@G@@AK1A[HCD#D9I^@)^@)^@)^@)^@)^@)@@K@@=%1[D- (1OD(^CD[D1OD9IDDJ^[]^[QCDGC(ISP )@@G@@E-DD0?^[HC))^@)^@)^@)^@1BC4A@5A@7A(BEL C(ICL D-O^@)^@)^@)^@)@@K@@=%1[D- SQ )@@G@@(1OD(^CDRC(GD-IC(NES)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@1BC2AC0A@5A[ CDNE-JSR )@@G@@D0)^@)^@)^@)^@)^@)@@K@@=%1[D- (1OE1[CD^D9#E-JELN^[OE(MD1 EK)E1[D- D1ODDISS )@@G@@C*)^0)^@)^@4A*4AC1AC5A(QDDMC9DD1DCC)CL CD#D@)^@)@@K@@=%1[D- (1OE1[C-[D( ST )@@G@@ELDCT[D0)D(JCLDD- ^@)^@)^@)^@)^@)^@)^@)^@4A*2A@5BC3A(]E(MDT ^@)^@)^@)^@)SU )@@G@@^@)^@)@@K@@=%1[D- (1OE1[CDRD[ CDO^[ADDMETO (] 1N 0) [BA*0AK(^@)^@)^@)^@4SV )@@G@@A*8A)5A04A[#D9GD9IDD[D))D[BE-N^@)^@)@@K@@=%1[D- (1OE1[CD]EL[D1FD8)E1[D- SW )@@G@@D1ODC)D(^^@)^@)^@)^@)^@)^@)^@4A*2A@7A)7A[[D1ICDIC-[D- ^@)^@)^@)^@)@@K@@=SX )@@G@@%1[D- (1UCT[C-ED9MC9 ^[QCDGC(IFLPC(GCC?D(^ 80A*3A1MCDIA)5A*0A)5A@1A@5A[GSY )@@G@@D9N^[[D1BC(GC(N^@)^@)^@)@@K@@=%1[D- %LBE-SCDQDD#E-JELDCC)E1[D- ELBCC)^@)SZ )@@G@@CDOFC)CDO^[GCDR^@4AK4AK0AC8A[NCDI^[[D1OD9IDDJ^@)^@)^@)@@K@@=%1[D- %LDD1ETA )@@G@@CDED9CD0)C8)E1[D- ELD^[HC))^@)^@)^@)^@)^@)^@)^@2BC7A@2B@7A(]CDNDTDD1B^[MTB )@@G@@DD^C9 ^@)^@)@@K@@=%1[D- %LDD1TCDQCDGC(MDD ^[#D9NE-DD0)D(^^@)^@)^@)^@)^@)TC )@@G@@^@)^@3AC7A05A)3A[[ETOD9MDD[^@)^@)^@)^@)^@)@@K@@=%1[D-C*DFE-SCDQDD#E-JEK)TD )@@G@@E1[D-CCDFD9N -H 1^ 0)^@)^@)^@)^@)^@4AK3AK9A*9A[CD9PETOD9I^@)^@)^@)^@)^@)TE )@@G@@@@K@@=%1[D-C*DGC-OCDIFC)D( C))CTJD-GC(BC*\C- E[O^[#D9HD*)^0)E[ME03AC6A@9TF )@@G@@A86A(QCDGD[[D-GCC)^@)^@)^@)^@)@@K@@=%1[D-C*DGD1TCDNE- E1 D0)FL D-DD9#D9ATG )@@G@@^[^E[H^@)^@)^@)^@)^@)^@3AC6AC0A87A[QCDGD[[D-GCC)^@)^@)^@)^@)@@K@@=%1[D-CTH )@@G@@*DGD1TCD^DDQ^[JC0)DDIC1 CTODDJE(N^[^DDNC([ET ES)^@)^@3AC6A@8AS2A[QCDGD[[TI )@@G@@D-GCC)^@)^@)^@)^@)@@K@@=%1[D-C*DGD1TCDMD9]C(ME))DLJET E[CCL ELB^[HC))^@)TJ )@@G@@^@)^@)^@)^@3AC6AC4A*6A[QCDGD[[D-GCC)^@)^@)^@)^@)@@K@@=%1[D-C*DGD1TCDKC(OTK )@@G@@C(M^[HCTBD9QC(MD0)^[HC))^@)^@)^@)^@)^@)^@3AC6AS0AK4A(QCDGD[[D-GCC)^@)^@)TL )@@G@@^@)^@)@@K@@=%1[D-C*DGD1TCDHCDEDD^^[ ETCC9CDC\CTCD9PC-CE(MFC)D(^ES)^@)^@3TM )@@G@@AC6AS0AK5A[QCDGD[[D-GCC)^@)^@)^@)^@)@@K@@=%1[D-C*DGD1TCDED9CD0)CT[E[KCC)TN )@@G@@C-KD*)^@)^@)^@)^@)^@)^@)^@)^@3AC6AC4A*9A[QCDGD[[D-GCC)^@)^@)^@)^@)@@K@@=TO )@@G@@%1[D-C*DGD1TCD^EK)ELJCL ELO^[RC(DETN^@)^@)^@)^@)^@)^@)^@)^@3AC6AC6B@2A[QTP )@@G@@CDGD[[D-GCC)^@)^@)^@)^@)@@K@@=%1[D-C*DGD1TCDIFC)D( C))CTJD-GC(BC*\C- E[OTQ )@@G@@^[#D9HD*)^0)E[ME03AC6A@9A86A(QCDGD[[D-GCC)^@)^@)^@)^@)@@K@@=%1[D-D%TID1TTR )@@G@@CD[D( D-DE-[^[QCDGDDND1J^[HC))^@)^@)^@)^@)^@)^@3AC7A@0AS8A[]ELJD9FD-TD0)TS )@@G@@^@)^@)^@)^@)@@K@@=%1[D-G**)C1GCDBCD]ELDC(G^[[^[QCDGD- ^[HC))^@)^@)^@)^@)TT )@@G@@^@)^@0BC7A)9BC1A(AE),^[GCDPC- EL^CDGC*)^@)@@K@@=%1[D-G*(IE-SCDHCT#CDME-TTU )@@G@@^[#D-DD1DCS)^@)^@)^@)^@)^@)^@)^@)^@4AK3AC5A)4A[CD9PETOD9I^@)^@)^@)^@)^@)TV )@@G@@@@K@@=%1[D-G*(TCDGCDQCDGD- FC)C1DEL E[GCD#C*)^@)^@)^@)^@)^@)^@)^@0AC8B@1TW )@@G@@A@8A[KC(GD[[D*)^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TCDGD-QCDGD- FC)E1 E))CTGDDITX )@@G@@DD#^@)^@)^@)^@)^@)^@)^@0AC2A@5A@6A[[D- F[[D1^ELDCC)^@)^@)^@)@@K@@=%1[D-GTY )@@G@@*(TCDUCDQCDGD- FC)D( C-DCT[D))CT D1OC(M^@)^@)^@)^@)^@0AK6A@6AK0A(#D9OE-JTZ )@@G@@D1RD9JC))^@)^@)^@)@@K@@=%1[D-G*(TCT[CDNE(I^[QCDGD- FC)D9#CTPE[[E-DD9ICDGUA )@@G@@^@)^@)^@)^@0A)8AK1A@0A(#D9ICTJEL^^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TCT[CD[D-GUB )@@G@@DD C))E1[D0)D-DD1 ES\A@3BC0 *1^@)^[^D9O^@0A)4A@0A*7A(TE(#CT[^[QCDGD- FC)UC )@@G@@^@)^@)@@K@@=%1[D-G*(TCT[CDND9PE-CC(MD0)E[[CTDC1DCS\D@)C*)D[TC- EK)D(^^@0UD )@@G@@A)6A@1A84A(]CDFC(METADD D-^^@)^@)^@)@@K@@=%1[D-G*(TCT[CDND9PE-CC(MD0)E[[UE )@@G@@CTDC1DCS\D@)C*)D[TC- EK)D(^^@0A)5A@9A84A[QCDI^[IE(TES)^@)^@)^@)^@)@@K@@=UF )@@G@@%1[D-G*(TCT[CDGCDDC-GCDR^[OEL[D1NDDO^@)^S3A@4^@)^@)^@)^@)^@0A)8A@2AC5A(GUG )@@G@@DDQC(MD(JEL ^@)^@)^@)^@)@@K@@=%1[D-G*(TCT[C-RC(NE))E1[D-GC(T^[#CD]D- E1DUH )@@G@@ETDD9I^[DD1^^[#D80A)5A@4AK9A(#CDID9BCC)E[[ELF^@)^@)^@)@@K@@=%1[D-G*(TCT[UI )@@G@@CDNEDPCDR^[QCDGD- FC)D( C-DCT[D))CTGDDIDD#^@)^@0A)6AC0AS9A[NEDPCDR^[QCDGUJ )@@G@@D- FC)^@)^@)@@K@@=%1[D-G*(TCT[C-QCDGD- FC)EL CTGCDH 80A*1AC3A02 9#D9ICTJUK )@@G@@EL^C*0A)5A@1B@0A[NE(I^[QCDGD- FC)^@)^@)^@)@@K@@=%1[D-G*(TCT[C-QCDGD- FC)UL )@@G@@EL CTGCDH 80A*1AC3A02 9#D9ICTJEL^C*0A)5A@1B@0A(NE(I^[QCDGD- FC)^@)^@)^@)UM )@@G@@@@K@@=%1[D-G*(TCT[CDND9PE-CC(MD0)E[[CTDC1DCS\D@)C*)D[TC- EK)D(^^@0A)4A@9UN )@@G@@A@8A[ D))CT D1OELJ^@)^@)^@)^@)@@K@@=%1[D-G*(TCTJCC8A@1^[QCDGD- FC)E1DC(RUO )@@G@@^[CD9NE[DE-[D))^@)^@)^@0A*6A@0A*8A[BD- D1RD9JC))ETKELDD1BES)@@K@@=%1[D-GUP )@@G@@*(TCTOCD^CTA (QCDGD- FC)D( D1OCDG^[CC([D-OD@)CTOEK)^@0A04A@1AS8A([D1ND9IUQ )@@G@@DD[^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TC-OCDQCDGD- FC)C(LE(DE[HC(IE))^@*C-JE)(UR )@@G@@^@)^@)^@)^@4AC1A@6B@9A(HC(HE[CDDN^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TC-OCDCE(^US )@@G@@ETJD0)E1[D-GC(T^[ACDH^[KEL[CTO^[[ETND9#^@3AC5AC5A*2A(CE(^ETJD0)^@)^@)^@)UT )@@G@@^@)^@)@@K@@=%1[D-G*(TC-OCD[D-GDD C))E1[D0)D-DD1 ES\A@3BC0 *1^@)^[^D9O^@0UU )@@G@@A)4A@0A*7A(TE(#CT[^[QCDGD- FC)^@)^@)@@K@@=%1[D-G*(TC-OCD[D( ELDCT[D0)E-MUV )@@G@@CDIES!C1MC(DC9CE)\D1^DC)^@)^@3AC1A@1AS3A(GDDOE-GC*)E1[D-GC(T^@)^@)@@K@@=UW )@@G@@%1[D-G*(TC-OCDQCDGD- FC)E[MD9OC(DD1N ))DDICS,^@)^@)^@)^@)^@3AK7A@1A)7A[RUX )@@G@@CD^C(NCLJELJ^@)^@)^@)^@)@@K@@=%1[D-G*(TC-OC-ID-N 9KDD ^@*C-JE)(^@)^@)^@)UY )@@G@@^@)^@)^@)^@)^@)^@3A82A@1AK2A[ F[ E- EK)^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TC-OUZ )@@G@@CDICD]DDNCTJ (GD9TC))E1[D0)CLGCDMDD#D9I (^D9O^@2AK3A@1AS0A(BD9GC- D0)E1[VA )@@G@@D-GC(T^@)^@)@@K@@=%1[D-G*(TC-OCDICD]DDNCTJ (HCDMDD[^[ED9DD1 EK) [^D9O C)VB )@@G@@^@)^@2AK3A@1AS1A[BD9GC- D0)E1[D-GC(T^@)^@)@@K@@=%1[D-G*(TC-OCDQCDGD- FC)VC )@@G@@D1[E-DD9ICDG^[]CDIDS)^@) [^D9O C)^@2BC8A@3AS2A(IC(RE-JD0)^@)^@)^@)^@)^@)VD )@@G@@@@K@@=%1[D-G*(TC-OCD CDNE- ELI^[ EDPDDODD ES)^@)^@)^@)^@*C-JE)(^@3A82AC7VE )@@G@@A00A(QCDGD- FC)E1DC(R^@)^@)^@)@@K@@=%1[D-G*(TC-OCDQCDGD- FC)C1 C(^^[#D9HVF )@@G@@E[[D1T^@) [^D9O C)^@)^@4A*7A@8B@0A(NE-[E(IE-JD0)^@)^@)^@)^@)@@K@@=%1[D-GVG )@@G@@*(TDD[CDQCDGD- FC)E1DC(R^[QDDGD-[C9 ^@)^@)^@)^@)^@)^@1A)4A@0A*6A[^C(N^[HVH )@@G@@D9DD1 ES)^@)^@)^@)@@K@@=%1[D-G*(TDTNCDIC(JETCD8)E1[D-GC(T^[QC(OC(MDDICDMVI )@@G@@FC)D[JETK 01A*3A@6A)0A( ELDC*)^@)^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TD(DCD#CDMVJ )@@G@@EDPC(NE)\C- E-MD9DE))ETO^[[E(OD8)E[[ELOES2AC5A@4A04A[AD-DD1O^@)^@)^@)^@)VK )@@G@@^@)^@)@@K@@=%1[D-G*(TD(DC-NCDBDDICDR^[QCDGD- FC)CLGD9JC))E[MD9BEL[D*)^@2VL )@@G@@AC6A@5AC5A(NCDBDDICDR^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TD(DC-NCDBDDICDR^[QCDGVM )@@G@@D- FC)CLGD9JC))E[MD9BEL[D*)^@2AC6A00A@1A(NCDBDDICDR^@)^@)^@)^@)^@)@@K@@=VN )@@G@@%1[D-G*(TD(ICDICD]DDNCTJ (GD9TC))E1[D0)CLGCDMDD#D9I (^D9O^@2AK3A@1AS0A(BVO )@@G@@D9GC- D0)E1[D-GC(T^@)^@)@@K@@=%1[D-G*(TD(ICDICD]DDNCTJ (HCDMDD[^[ED9DD1 VP )@@G@@EK) [^D9O C)^@)^@2AK3A@1AS1A[BD9GC- D0)E1[D-GC(T^@)^@)@@K@@=%1[D-G*(TD(JVQ )@@G@@CDHDDNETJE(MDC)E1[D-GC(T^[KD[TETDCTDCDIES)^@)^@2A)2AC1AC6A[HCDMETCCDGD))VR )@@G@@^@)^@)^@)^@)@@K@@=%1[D-G*(TD(JC-CC([ELO^[JC0)CDHC(MDD#CC)^@)^@)^@)^@)^@)VS )@@G@@^@)^@0A)6A@0A@3A(FCDIET[ES)CTDE-T^@)^@)^@)@@K@@=%1[D-G*(TD(OCC*AS1AS0 C)VT )@@G@@^[[D-GC(T^[HD9OD9M^[NE(KE[GFC)^@)^@2A*7A@2A82A[ND[ D-]FC)^@)^@)^@)^@)^@)VU )@@G@@@@K@@=%1[D-G*(TD(OCC*AS1AS9 C)E1[D-GC(T^[HD9OD9M^[NE(KE[GFC)^@)^@2A*4AC8VV )@@G@@AC4A(RC(NE))FD D-GD9RETOD9IC*)@@K@@=%1[D-G*(TD(OCC*AS1AC6 C)E1[D-GC(T^[HVW )@@G@@D9OD9M^[NE(KE[GFC)^@)^@2A*7A@9A80A(CCDQEL ^@)^@)^@)^@)^@)^@)@@K@@=%1[D-GVX )@@G@@*(TD1#CDHCDMDD[^[E 0)CS,^[JELDC8?^[HC))^@)^@)^@)^@)^@3AK5A@5A84A(MD9[D1JVY )@@G@@DT ^[MCDKDD^ES)^@)@@K@@=%1[D-G*(TD1#CDQCDGD- FC)E[MD9OC(DD1N ))DDICS,^@)VZ )@@G@@^@)^@)^@)^@3AK7A@1A)7A[RCD^C(NCLJELJ^@)^@)^@)^@)@@K@@=%1[D-G*(TD1ECDRCDTWA )@@G@@D1 ^[QCDGD- FC)D[DC9C^[NCTCD9JD))^@)^@)^@2BC1A@4A88A[RCDTD1 ^@)^@)^@)^@)WB )@@G@@^@)^@)@@K@@=%1[D-G*(TD1ECDGC(ICDKC*)E1[D-GC(T^[CDDBD@)ET#D[JD9G^@)^@)^@2WC )@@G@@BC8A@6A*1A(NE-[D1CD9KC*)^@)^@)^@)^@)@@K@@=%1[D-G*(TD1ECDQCDGD- FC)E[ C-DWD )@@G@@CDOELDCS)CDNETJCTDCDODDJD0)^@2BC1AC0AC5A[CD9CD9FE(N^@)^@)^@)^@)^@)@@K@@=WE )@@G@@%1[D-G*(TD1EC-QCDGD- FC)D1PELNDDIC8)D[JD( ^@)^@)^@)^@)^@)^@2BC1A@8A*5A(RWF )@@G@@C(NE-RD9JC))^@)^@)^@)^@)@@K@@=%1[D-G*(TD1ECDRCDTD1 ^[QCDGD- FC)C1[D(DD-TWG )@@G@@^[HC(^DD#DDIC*)^@2BC1A@3A@9A(RCDTD1 ^@)^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TD1EWH )@@G@@CDQCDGD- FC)D1[E-DD9ICDG^[]CDIDS)^@) [^D9O C)^@2BC8A@3AS2A(IC(RE-JD0)^@)WI )@@G@@^@)^@)^@)^@)@@K@@=%1[D-G*(TD1ECDQCDGD- FC)D1[E-DD9ICDG^[]CDIDS)^@) [BA*0WJ )@@G@@AK(^@2BC8A@3AS2A[IC(RE-JD0)^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TD1TCDCE(^ETJD0)WK )@@G@@E1[D-GC(T^[ACDH^[KEL[CTO^[[ETND9#^@3AC5AC5A*2A(CE(^ETJD0)^@)^@)^@)^@)^@)WL )@@G@@@@K@@=%1[D-G*(TD1TCD[D( ELDCT[D0)E-MCDIES!C1MC(DC9CE)\D1^DC)^@)^@3AC1A@1WM )@@G@@AS3A(GDDOE-GC*)E1[D-GC(T^@)^@)@@K@@=%1[D-G*(TD1TD-ACDHDDGFC)E[MCD#^[[ETNWN )@@G@@D9#^[JC0)ELJCTFD-[D1^^@3AC6AK1A03A[QCDGD- FC)CTJE-OCDBC*)^@)@@K@@=%1[D-GWO )@@G@@*(TD1TCD^C(GCDRCDMC*)E1[D-GC(T^[CD9NE[DE-[D)!D(DCTMD83AC3A@9A*1A[RCDGE-JWP )@@G@@D0)^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TD9CCDQCDGD- FC)C-DCDBD1JETODD#^[GCD]^[DWQ )@@G@@D1#^@)^@)^@3A)2A@1A00A(BCDGD-DE[JD-DES)^@)^@)^@)@@K@@=%1[D-G*(TD9CCDJD[DWR )@@G@@D8)E1[D-GC(T^[ACDHDDGFC)E[HC(^DD#DDIC*)^@3A)2A@3AC0A[NE- E(]C(IE1DD-GC*)WS )@@G@@^@)^@)@@K@@=%1[D-G*(TD9CCDQCDGD- FC)C9MCDDD0)^@)^@)^@)^@)^[#D9#^@)^@)^@3WT )@@G@@A)3AC4A84A[FDDIC9NE-JD0)^@)^@)^@)^@)@@K@@=%1[D-G*(TD9CCDMDD#DS)E9[E-ND9IWU )@@G@@^[HC))^@)^@)^@)^@)^@)^@)^@)^@3A)6A@0A@1ALADDIC-GCDT^@)^@)^@)^@)^@)@@K@@=WV )@@G@@%1[D-G*(TD9CCT]D-[D1#D[[EL^^[QCDGD- FC)D( C-DCT[D))CDNETJCS3A)6A@0A@1A9AWW )@@G@@DDIC-GCDT^@)^@)^@)^@)^@)@@K@@=%1[D-G*(TE[[CDOELD (NE-[E- ^[HC(^DD#CDG^[BWX )@@G@@ELJE(K^[DD1# 0)^@3A86B@6AK2AT]C([E1 EK)C1[D-GES)^@)^@)@@K@@=%1[D-G*(TE[[WY )@@G@@C-^C(GCDRCDMC*)E1[D-GC(T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@^@@]XK )@@G@@COM @@B@@@@@@G1,COUNT @@B@@@@@@G2< XL )@@G@@ XM )@@G@@ @S@EMDGC[YELLOW@@@GS]SLT CLOUDY@@@@@G0@][[H@[1.0XN )@@G@@26@@@@HC@-@@HS@-@@H*@-@@H8@-@@IC@-@@I)@-@@LC@+-@LS@+-@N@[/JHN/SB@@@@@@@@XO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M-K#8/7ZY=\^@S@EMDGC[YELLOW@@@GS]SLTXP )@@G@@ CLOUDY@@@@@G0@][KH@[1.021@@@@HC@-@@HS@-@@H*@4+@I)@-@@LC[3-4@@@@@@LS@-@@XQ )@@G@@L*@+-@N@^SLT MUCOUS THREADS/JHN/SB@@@@@@@@@@@@@@@@@@@@@@@@@@M-K[0(YVI5RRXR )@@G@@@S@EMDGC[YELLOW@@@GS[CLOUDY@@@G0@][FH@[1.020@@@@HC@-@@HS[Z\ IPP@@@H*@-@@XS )@@G@@I)@-@@LC[2-4@@@@@@LS[0-1@@@@@@L*@2+@MS]1+ AMOR PHOS@@@N@[/JHN/SB@@@@@@@@XT )@@G@@@@@@@@@@@@@@M)K[68Q(F5LC@S@EMDGC[YELLOW@@@GS]SLT CLOUDY@@@@@G0@][KH@[1.0XU )@@G@@18@@@@HC@-@@HS@-@@H*@-@@I)@-@@LC[0-1@@@@@@LS@-@@L*@+-@N@[/ST/SB@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M)0[E9UUJ[M;@S@EMDGC[STRAW@@@@GS[CLEXW )@@G@@AR@@@@G0@][AH@[1.007@@@@HC@-@@HS@-@@H*@-@@I)@-@@LC[3-4@@@@@@LS@-@@L*@+-@XX )@@G@@N@[/ST/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M)0^=R#^.>^7XY )@@G@@@S@EMDGC[YELLOW@@@GS[CLEAR@@@@G0@[/@H@[1.023@@@@HC@-@@HS@-@@H*@-@@I)@-@@XZ )@@G@@LC@-@@LS@-@@N@[/ST/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@M-K[0BB8#RKB@S@EMDGC[YELLOW@@@GS]SLT CLOUDY@@@@@G0@][FH@[1.0YB )@@G@@24@@@@HC@-@@HS@-@@H*@-@@I)@-@@LC[1-2@@@@@@LS@-@@L*@+-@N@[/ST/SB@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M)K[^:TY\@TH@S@EMDGC[STRAW@@@@GS[CLEYD )@@G@@AR@@@@G0@[2@H@[1.019@@@@HC@-@@HS@-@@H*@-@@I)@-@@LC@-@@LS@-@@L*@+-@N@[/STYE )@@G@@/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M-K@*0]]Y;1SYF )@@G@@@S@EMDGC[STRAW@@@@GS[CLEAR@@@@G0@[/@H@[1.017@@@@HC@-@@HS@-@@H*@-@@I)@-@@YG )@@G@@LC@-@@LS@-@@N@[/ST/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@M-K[B#N?ZX% @S@EMDGC]MILKY YELLOW@@@GS[TURBID@@@G0@[/@H@[1.0YI )@@G@@32@@@@HC@-@@HS@-@@H*@-@@I)@-@@LC[2-3@@@@@@LS@-@@L*@+-@MS]3+ AMOR URATES@YJ )@@G@@M0@2+@N@[/GR/SB@@@@@@@@@@@@@@@@@@@@@M-K[99-V@8Q>@S@EMDGC[YELLOW@@@GS[CLEYK )@@G@@AR@@@@G0@[/@H@[1.015@@@@HC@-@@HS@-@@H*@-@@I)[TRACE@@@@LC[6-8@@@@@@LS]15-YL )@@G@@20 CRENATED@L*@+-@N@[/JHN/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M-K]X5L(I;;;YM )@@G@@@K@EMDK0@][$L@@[Z@L0@[-@P8@+-@QC@+-@QS[ADEQ@@@@@Q0@[W@S*[/JHN/SB@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YO )@@G@@@@@@@@@@@@@@M)0^V9Y]3WT/@K@EMDKC[#]OW@@@@@KS[4.42@@@@@K0@]]DL@@[%@LK@][YYP )@@G@@L0@[-@M@@][@MK@[[@M)@[)@NK@[[@OK@[]@P8@+-@QC@+-@QS[353,000@@Q0@[K@SS@5@@YQ )@@G@@S*[/JHN/SB@@@@@@@@@@@@@@@@@@@@@@@@@@M-K#CPI9YEU:@K@EMDKC[#[60@@@@@KS[5.1YR )@@G@@5@@@@@K0@]][L@@[*@LK@][KL0@[)@M@@[:@MK@[[@M)@[3@OK@[ @P8@+-@QC@+-@QS[ADEYS )@@G@@Q@@@@@SS@10@S* OCC OVALO, OCC MICRO/JHN/SB@@@@@@@@@@@@@@@@@@M-K#FK91S9(8YT )@@G@@@K@EMDKS[4.60@@@@@K0@][?L@@[=@LK@][IL0@[Y@P8@+-@QC@+-@Q0@[6@S*B+- HYPO; YU )@@G@@SLT MICRO; OCC POLYCHRO/JHN/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YV )@@G@@@@@@@@@@@@@@M)0[&A(EVKR;@K@EMDKC[#[R)@@@@@KS[4.59@@@@@K0@]['L@@[>@LK@][KYW )@@G@@L0@[-@M@@[(@MK@[[@M)@[4@OK@[A@QS[ADEQ@@@@@Q0@[E@S*[/ST/SB@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M)0# 6F7]%K[@K@EMDKC[#[$C@@@@@KS[5.0YY )@@G@@4@@@@@K0@][8L@@[=@LK@][WL0@[-@M@@[*@M)@[3@NK@[[@OK@[C@P8@+-@QC@+-@QS[ADEYZ )@@G@@Q@@@@@RC@-@@S*#OCC HYPO/JHN/SB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M-K^K\)B^D[[P(J1BK@#+NTMS1-S8@^[\OO@@21G)C/@@@@@@@@@@@@@@@C@@@@@@@@/0JP/#CT )@@G@@6@@NVGG8N-G?9LVG?/N(H31F@M0#+^))%4$8<*@[1D?(GS0:/@]@7("C@[OMNCL0@@@@@@@@CU )@@G@@@@@@@@@K@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0D @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#DL )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKDM )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+DN )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#F])P5;O+8*'&U 'LCACAZV4P2[#)?\0&ZOT"T"@@[T[2[1D"+KG[8=]W]KU@^OK30-/1XD@2PKDP )@@G@@^D;WZUM^[B)@K([X*^=0N20AC)@ G=RA]^#BP[]!L@@@[*@KBO-G)@@@IK@[2@ = 8@@KTL@DQ )@@G@@@KUK*N/K*C@@[]-SD])^O[@&PKD>KM(E/)2NE=MKL5/%M>D?(MJ^)/>YKTD>MDADOG&MFE4+DR )@@G@@2T^)ID[=IPC=S'>&KT#>MDAGGY=IPDN=ADAI:9=IPDN>ADAI:L=IPDN+L<^3L3CW%LC1-J4%DS )@@G@@MND?+1C2]?Z>L1CG%MF^-&N+KTO=QDA^-MND4G?)@=QQDD>ML>DX )@@G@@D]@D >EO(AP)@^(23D?(2FC8@^(M$DG(2FC8@^:M#D=)?SNC@MND/G+^@=UKTG=1<][)]L(M=QNAGCA@DA>EO9 =H)@#+O(#S1-U*[DZ )@@G@@EO$2TD/%2*@@8=ANDJ= 0K*@ID[>IMQGD]@B^)2NCW(I@@DA=&N(]=QL39)]L(D='LTA>G(CEA )@@G@@@=UMTI=AP(GEM@DA=&N(DW?I"@DA=&N(]=UMM @]L(D=UO( =O\@@=UMTC="NB[])@9=T21-V-EI )@@G@@U8@^%2X[YNK\D=F2>#!5@LH[?H@[A1#1A/]M%@^VD\LN(I@@OWPKP&"*^@EUC=N$2@1M[<23EJ )@@G@@+8^_/]^BPG)[/LQC 70NW*^<^> \$$D#'PQT-@&I=R^HKL.W]RK]O$]>$0B']P8";5. SDPTEK )@@G@@ 1I9%G[;KR]Y]@@@@@[DG$,S!PKM67POBB(P-(-_)@@@@@@@^=2Y9+5RS@@@@@@@@@@@@MNDEL )@@G@@;&FP,D49<[$9$9+EN )@@G@@9FML]N"X?MK@@@@@@@@@@@@@MBE:-S2TAVD#>P0*@@@@@@@@@@@@@@@@@@@@@@MBE?W1(CFDEO )@@G@@]TCW%13A-'1S[S#(6"'9CS@^)W>^.OQPC6= =-G=IPTO)KLC.J4@@@$O)4\^1/@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@[1B]%1-6[#)^ =<=Q^/=Q&EB^>*^8^I=H=P=Q=T@@D8-2[^9!)IC8P61+LYKC[@)^F=ES )@@G@@F P 0BW^2@@DX2L"NMX/#+I ]=E 2&D C>@= ^Q^J=E^:@@C_GTCTGC[1B]1*1->([*^EU )@@G@@^@KKLKK=W^RQL=LIJ+]-][]M)@^0^&K=C,SB^WE/S1GJBK^] .^B^E G&E(J[Q1][P0@CQS@EV )@@G@@@[:1M99KIC8QH&GN>2UKFTN 2*=/)+09!FCC&I- GD\-]D1LU(]2RULEX )@@G@@,N*I2#] K@#1MF]-+$)WL0?W?SYAK%[^C#0&@=)0=2W>C>8)))*+S&/+O@@.0%@(01/B^WI5EY )@@G@@S0@@@@@@@@@@@@@@@@B^WI7VA@@@@@@@@@@@@@@@@@8<+G*4S0@@@@@@@@@@@@@@@@B^WL=/EZ )@@G@@S0@@@@@@@@@@@@@@@@B^WL>A3A@@@@@@@@@@@@@@@@@8<+G*7S0@@@@@@@@@@@@@@@@B#+IPFA )@@G@@P-Y9YSD -E'UI=!^1$2^D^&( -]LYUUINANC@@[A^@#-1BE1=1EBG;[I9NM4.+@_9DTJSHSB+X2U0T*$W=?=.@@D'DG9>8@FC )@@G@@8WL2?T?L0TK]V+&LD\O[54M?=7&H=UD,D(D-BLFD )@@G@@C*#*@DVDF@@NKM-M')[08<>R<#I+0)M^M*##4&K+)6S+*-(CLC%F]GJC*D=@@L"L&S)@IB^WFE )@@G@@:A3#W@@@@]S<_+H2I@C7@]U[@@^;*&83=@WIC9QH6B\=#@K2NC[#8+M/NK[#DH[@)]]@@DNKFF )@@G@@A;)#-1BF!Q@@@@@@@@@@@@@@@@@8WL2;X?@@@@@@@@@@@@@@@@[08<>7AN@@@@@@@@@@@@@@FG )@@G@@@@@WIC9X1&0@@@@@@@@@@@@@@@@B#+IRWUG@@@@@@@@@@@@@@@@[08<>6/S@@@@@@@@@@@@@FH )@@G@@@@@#-1BF,H&DL0@@@@)B&)[9*@C@@]J0F[@B#+IRWV?@@@@@@@@@@@@@@@@]PB]?S0-)@@@@FI )@@G@@K[4KK@'@[[@@@@-S@>L0;S1- [[S^]@KOKCK2@'D7C^BK@[#C@@ .^N@^%IC2S1-.)@@@[_8FJ )@@G@@#*:*[4@B_)@@L1AVAGDTGM@\@^'K\O&^[]2]/[@@]SK@@I^DS@DA=AM84S0@@@@@FK )@@G@@@@@@@@@@@@@DA=AM7_+AJ,!;EGC(@@L"=N^?)^]=H@FO )@@G@@GD=CDB([K^^=B<]]K@]])@@CWD/@BG(I6GS=# Q)$@@]W^@]@$@]@@@@@@C"@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=A^/K-J^J__/@@?))U@"FFS )@@G@@E1@@L"[K*@[CL-K L L@@@@KT)@@@@KG@@Y"SOKULEOESO@@[;9]-ZKA&\,U)M_8I%2#T")2FT )@@G@@X@-BECL1'^V?@CL2+^WY-A.)][\RM&=5K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@DJ>MMD >EFTO>EKTI>IF=!42G)GGD*G[4)M/M!C_SFV )@@G@@K ?231I=7J^?[F@ICM]]:MZ+I)@B^&2=1<]T@@C#6LCW@@FCM\]E@FZ )@@G@@@@@@@@@@@@@@@@]@@@@@@@@@@M0#+^))%4$8<*@[1D?(GS0:/@]@7("C@[OMNCL0@@@@@@@@GA )@@G@@@@@@@@@K@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0E @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#GR )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKGS )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+GT )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#F])U]Z^@\4@@!O+^?8#NK-Y)0@@@4@C#%K&K@@W<=W)[Y@9@]*]2@@CG54GW )@@G@@@CHCOBD]))^E@[]-*1])^O[@&+0D**M(E/)2NE=MKNA=%M>D?(MJ^)/>YKTD>MDA^EMTC?:MGX )@@G@@FD=M@8=AK9O+L+YVCG-2(^MLS=SLXDG$MHD/MGCA=ILTIWLC0DD="DAGS'$L1D?MMNDGZ )@@G@@/:0*MND/:1C1=E0LDG$2#DF+D@>AMS=='MTO]OTD+MK9J=8D[>P1DG%LC#+NTN>IDA[E==,SHA )@@G@@=> )MVEGEMTI>KYM$D?$2EMTI>MD]CTN>&NT]+L-E4MDB^=2&JBG-LDCW$2W^&2BD/(MF^=]R9D=-2ZHC )@@G@@EO+1D@>'2 CG$MR^<#1TD="DAGS#+NS==&N9R]MTJ=AMR^M[EW?2NCO(M&T=@MFF^=2(C2=YHD )@@G@@@^+2>EOEO9D>ILTB@@>UKTG= <]T@]MTJ=UK9D>GY@^=2ZE?G)S@=UKTG=1<][)]L(M=QNAGC*@DA>EO9 =H)@#+O(#S1->)[EHF )@@G@@O$2TD/%2*@@8=ANDJ= 0L8@ID[>IMQGD8@B^)2NCW(I@@DA=&N(]=QL7O0@^61-Q)[CW(2NANA G)^-2$C3AGMW)]HI )@@G@@L9#=ILTM= F8@DM="ND]=AM0@B^)2VCW$2>[5W)^QPDD=0!HJ )@@G@@O@>MO(A>QN(#D]@DN=IO9 =X-SC[EW&2$EW(?@@=IL9T=IN7@@^(MVCW$2XES@@@@@@@@@@@HK )@@G@@@@[@4K5=]ZE"68)S).ILETN\] ^;0)TI/[B8C_[B9[MJ0L"]J0L"]J0L"]J0L"]J0L"]J4Z*HL )@@G@@_L"<.B'J0C^=+P(O=>20@@@@@@@@@@@@@@@@@@/TB9)(6(Z9Z9)D\9395T5THM )@@G@@60@ZUR9@>;&) 8 ))@M1P4 9H]/&K\FOHN^[^?A3A@^V^M#2[H[@]D414>C(^@DUD/F[ZM%@HN )@@G@@ Q=G(59@TG9@1.L2W]Z/[]<%90@30$)]WCD_=#)]0O;)\?\?\48@'G'8'8;0@JGGN)V,3Q]KHO )@@G@@+0K@DN-I]/&-YNCR>AAVX@Y0V0)@L*LIE"(O@C?N 2LM$0@(C>8?P.])@QSK8$#^[>K^]C"IHP )@@G@@N)N5KCOXS,@A0^7@ON[J,)MIMQR@Y)<^%03E[G1DDCH)&#C^\O^%Y FJ)J4O:1.7<'EKM%+FHQ )@@G@@+X3PS#6)!8/C@@@@@]MTJW1U%)<^$)405)!K2@@@@@@@@]MTJW1U:?@@@@@@@@@@@@DD=.3 HR )@@G@@%1=]GN@)@@MB^\8)K)K@@@@@=&N7GQ:ASC1G]@@[CWM_+[][@@@@@]MTJW1U?U@<^0C@@^-1HS )@@G@@F"C^C^@@@@@DD=.3 %\@L+S^@@]K8>_^]^]@@@@@^-2%8P61QMBE:-NF+!2CO-.EBGSG_G_EHT )@@G@@AD[MSMSNL] @@@@@@@@@@@@@]K9PWFANC3TCW%, @@@@@@@@@@@@@@@@@@@@@@]K9P<&HD[THU )@@G@@CND#>QIS4I!EOEOXO3@54(#@@X%MQYOE'(@@@@CE@@@@@@@@@@=IPS9HY )@@G@@A 0 R&^=N<*)8=O*8&C@[B'L^M"PU#+I GMEL@)*@CODQ@@L"S2K2SK#+I '<*][+I0@#=]PM-#R)WLIB )@@G@@0?VGSVCL][](J[]DI1[13T=- DETH[#-[-[-#C@]U)IL(R)IC8QH6GHJDH@$4)-G*G#G?I[EIC )@@G@@!HGF.CCC2I1F6IN@@M+O*S%C%OB^WFB#AAJ&M@WOQ^PO&<=CB G^FDWL^LK1B-[-]S@[9L ID )@@G@@TK9I0IC8QIQGI:CM@SNYK2MULKSMR*LIMKK2KCKWM8K%@@Q/MWP,Q6#+IBU?S@@@@@@@@@@@IE )@@G@@@@@@@#+IBV!<@@@@@@@@@@@@@@@@@WL1AOUGS@@@@@@@@@@@@@@@@#+IC2YGS@@@@@@@@@@@IF )@@G@@@@@@@#+IC22(<[GTG)@]J2=];0[08<>RV#])@@@]S^$CX^))I)@&@&K@[H:E]GC@B#+IH )@@G@@IP^D/W[9EM'Y0TGL,$HANARD9(F-K8@]Y,NQTU@IB^W:AV#7N]0NDO(9G$XR6II )@@G@@M?=7>R=T(=(P9-UTIM?MQ@@IJ )@@G@@)1G@WIC9P80./,@^!XDFJ$XJ]J8)=K1K)=*W)WKK@[JMBLT@@8IL )@@G@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@S@@D@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@A@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@ @@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@L@@]@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@@@@@@@@@@@@@@@@I@@@@@@IU )@@G@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@G@@@@@@@@@@@@@@@@@F@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@SCLOSE$ @@T@@@@@@@@@IX )@@G@@END @@V@@@@@@@@@MARGIN @@T@@@@@@@@@NFTCH$ @@T@@@@@@@@@IY )@@G@@SUBA @@E@@@@@@@@@CFORM @@C@@@@@@@@@TITLE @@F@@@@@@@@@IZ )@@G@@DEMAND @@T@@@@@@@@@MI2GET @@K@@@@@@@@@FORMAIN$ @@R@@@@@@@@@JA )@@G@@DSPLA2 @@O@@@@@@@@@NFTCB$ @@T@@@@@@@@@ECLOS$ @@T@@@@@@@@@JB )@@G@@SKETCH @@Q@@@@@@@@@DSPLAY @@Z@@@@@@@@@SETUP @@I@@@@@@@@@JC )@@G@@MI2SET @@K@@@@@@@@@BS1BL$ @@T@@@@@@@@@MINUS2 @@K@@@@@@@@@JD )@@G@@TTY @@G@@@@@@@@@SKECH2 @@D@@@@@@@@@HOLS @@P@@@@@@@@@JE )@@G@@WRBLK$ @@T@@@@@@@@@DRAIN$ @@T@@@@@@@@@LGUAFT @@)@@U@@@@@@JF )@@G@@BSTATP @@E@@@@@@@@@LGDUMP @@)@@@@@@@@@PERVADE @@,@@@@@@@@@JG )@@G@@LGDEL @@)@@@@@@@@@INITPVQ @@6@@@@@@@@@BBEOF$ @[Z@@@@@[!JBJH )@@G@@MSCON$ @[Z@@@@@[!JBBBEOF$P @[Z@#&@@[!JBMSCON$P @[Z@@@@@[!JBJI )@@G@@DGET$PKT @[Z@#5@@[!K=DGETP$PKT @[Z@@@@@[!K=DREAD$PKT @[Z@@@@@[!L9JJ )@@G@@DBITS$PKT @[Z@@@@@[!NDDUNLD$PKT @[Z@#;@@[!NDDCYC$PKT @[Z@^A@@[!NDJK )@@G@@DBACK$PKT @[Z@@@@@[!P0DLAPS$PKT @[Z@@@@@[!RJDKEY$PKT @[Z@@@@@[!SEJL )@@G@@DBB$PKT @[Z@@@@@[!T]DREG$PKT @[Z@#2@@[!UDMSALL$PKT @[Z@@@@@[!VIJM )@@G@@LABEL$PGEN @[Z@@@@@[!WDLABEL$PKT @[Z@@@@@[!W!LABEL$ @[Z@@@@@[!X]JN )@@G@@LABEL$P @[Z@@@@@[!X6PFS$ @[Z@@@@@[!Y4PFD$ @[Z@#<@@[!Y4JO )@@G@@PFWL$ @[Z@@@@@[!Y4PFS$P @[Z@@@@@[!Y4PFD$P @[Z@@@@@[!Y4JP )@@G@@PFWL$P @[Z@@@@@[!Y4PFUWL$ @[Z@@@@@[!)6PFI$ @[Z@#7@@[!)6JQ )@@G@@PFUWL$P @[Z@#"@@[!)6PFI$P @[Z@@@@@[!)6CMS$ @[Z@@@@@[!++JR )@@G@@CMS$P @[Z@@@@@[!++CMD$ @[Z@@@@@[!='CMI$ @[Z@@@@@[!='JS )@@G@@CMO$ @[Z@@@@@[!='CMSA$ @[Z@^]@@[!='CMH$ @[Z@@@@@[!='JT )@@G@@CMT$ @[Z@@@@@[!='CMD$P @[Z@@@@@[!='CMI$P @[Z@@@@@[!='JU )@@G@@CMO$P @[Z@@@@@[!='CMSA$P @[Z@@@@@[!='CMH$P @[Z@@@@@[!='JV )@@G@@CMT$P @[Z@@@@@[!='CPOOL$ @[Z@@@@@[!$LCPOOL$P @[Z@@@@@[!$LJW )@@G@@CGET$ @[Z@@@@@[!*&CGET$P @[Z@@@@@[!*&CADD$ @[Z@@@@@[!($JX )@@G@@CJOIN$ @[Z@@@@@[!($CADD$P @[Z@@@@@[!($CJOIN$P @[Z@@@@@[!($JY )@@G@@ADACT$ @[Z@@@@@[!%5ADACT$P @[Z@@@@@[!%5CREL$ @[Z@@@@@[!:5JZ )@@G@@CREL$P @[Z@@@@@[!:5ROUTE$ @[Z@@@@@[!?;ROUTE$P @[Z@^L@@[!?;KA )@@G@@LOAD$ @[Z@@@@@[!,IRLIST$PGEN @[Z@@@@@[!\9RLIST$PKT @[Z@@@@@[!0TKB )@@G@@RLIST$ @[Z@@@@@[!0,RLIST$P @[Z@@@@@[!1>LINK$ @[Z@@@@@[!2XKC )@@G@@RLINK$ @[Z@@@@@[!2XLINK$P @[Z@@@@@[!2XRLINK$P @[Z@@@@@[!2XKD )@@G@@EXLNK$ @[Z@@@@@[!38UNLNK$ @[Z@@@@@[!38ASCHAR @[I@@@@@[SNYKE )@@G@@+@@E5E/^K "IA#@E5DR;@[[]'^@E5BS4BK)^@)HD,G1\^@)@MB@[=@@@@J< L3GD6G*)A))KH )@@G@@G(2@))^@)^@^C*!@D^@@@@#Y@@@@@@IT>J[9@S^@FJGT,[K@@;HM%PM(>IK)@K#@FJG-]@8BKI )@@G@@GT\H13]93IS@[VH[K#@@KT*)@@D@VJ@*QI[0I[-IL-H(>I->@M!@[G@@@@@@@@@@^;@@@@KEKJ )@@G@@@M!@[C@@@@@^HD,G1\@KH@@#@@@@@[@@@@@[@KH@@G__8]?#__8]?#__8]?#__8]%'__'@2:KK )@@G@@@@@__/__8]B<@@@@J8@@@@M[@KH@@]@@@@@@@M!@@#@@@@@[@@ @@@@M!@@3@@@@@[@@@@@[KL )@@G@@@M!@@0@@@@NY@@@@@[@KT@@#@@@@FJ@@[@@[@M!@@#@@@@@[H02AK2@M!@@$@L]A@0@@@@NYKM )@@G@@E2PM%PM%PHC)@S#@FJF%PM%PM%PIT4GD4I(3@SC@NJ@@@@@@9*@E]9 @@E];R;@#'@R;K@@@KN )@@G@@9*@E]/R;@@")9*@E]"R;@@@@9*@E#@9*@E#]R;@@")A#@E#^9!@D\[9(@D0W9!@EJY9(@D0YKO )@@G@@9(@D\BR#@EI_'=@@@J/@@E?_-@@E4=/@KE?_/K@E,7R;@D\B'=@@[G(4@D\H/K@E!IC1@D\HKP )@@G@@@K[@@#@L@E\OIL(GL>@@@@@C@L#@:.@^"@LE@-=G-=G->IT@SC@NR@@@@MQ@@@@@QKQ )@@G@@@@@@[=@@@@L-@@@@#C@@@@L3@@@@^?@@@@L_@@@@AK@@@@MCZ_____@C@@MHIT4]8QG(2@CRKR )@@G@@G15H1IT>H14CKRI-*G*RHD,I->@@@@@@@@@@@M@@[@L2@[\[0^KS )@@G@@I-*HD3]97ISRGT\H14GD(H13]9-H0RHD,I->IL&GD]9>J[>GSRG(2]9&GDI--HD?G(=]9(H1&KU )@@G@@H92H(-I-(H9,E*@^FH@@@@@C@@@@MA@[G@@^D@QH3GB)1AC1@@[@VYC*!@D^@@@@#Y@MH@@[KV )@@G@@@@@@@ @@@@MG@@^@C^HD,G1\@@^@FJ@M!@@D@@@@@@@C^@S^G*)^@)@@[@FTFL>J@)@@#@FJKW )@@G@@HD,G1\@@^T*)@@@@@#@@^@@@]97@LF@K[@@^@#S@@CG->IT@@@@@H@@@@M(@[G@@^KX )@@G@@D@0A@0@@@@VYDLID8"UKEE-#D)Q@C@@3HDT0I[-IL-H(>I->IK)^@)@CD@VJ@@@@@#@@D@@@KY )@@G@@@@@@&K@&7@DS@@@@@@[S/AD *[C->@)@@@@IL,^@)@NP@@#@@@@@[@@E@@@@NP@@W@@@@@@KZ )@@G@@@@@@^;@@@@@@@@@@^2@@@@NP@@@@^\@@@@@@@@@@^?@@@@NY@@@@^(@@@@OV@@@@^&@@@@O)LA )@@G@@@@@@@@@@@@NM@@@@^)@@@@M3@@@@^X@@@@O$@@@@^U@@@@O%@@@@^R@@@@O!@@@@^O@@@@O4LB )@@G@@@@@@^C@@@@O7@&7@@#@@@@@@@@@@@@@&7@C0@@@@@@@@@@@@@N(@@A@@@@@[@@@@@^@N(@@#LC )@@G@@@@@@@[F*@@@@@O'@@F@@@@@W@@B@@^@@[@@BGDI->IK)^@)@O'@@ @@@@@FG-]F(XGT\H13]93IT+@O'@@^@@@@@BGD0IL4GT,[K@LI )@@G@@@O'@@#@@@GD!GT,^@)@O'@@#@@@@@[@@L@@@@O'@@#@@@@@[@@S@@@@O'@@#@@@@@[@@U@@@LJ )@@G@@@O'@@^@@@@@@HD,G(2IL\IK)@O'@@#@@@@@[@@Z@@@@&7@@#@@@@@[@@=@@@@&7@BF@@=@@@LK )@@G@@@&7@BD@@@@@@@@@@@@@&7@[=@@@@@@D8"C)F[LOCTG]0[[TFI[-IL-H(>I->IM=@@@H(>I->LL )@@G@@IK)^@)@P*@@ @@@@@GF(-IT$CL-]9&GD2I)#@P*@@^@@@@@ GDI->IK)^@)@QM@@D@@@@@U@&7@AKCL0]8RJL(I@;LP )@@G@@BS;C@1C@#CL^C-^AS0A@0@@#@QM@@#@@@@@#GT,^@)@QM@@#@@@@@[@@L@@@@QM@@#@@@@@[LQ )@@G@@@@S@@@@QM@@#@@@@@[@@U@@@@QM@@^@@@IK)HD,G(2IL\IK)@QM@@#@@@@@[@@Z@@@@(K@@#LR )@@G@@@@@@@[@@=@@@@(K@ 3D-GD-GD-GD-GZ8'IL>ID5G(3I).]8R]8R]8RI-*G*RGT*GD2GDLS )@@G@@IKRI1>GT4H92]8FGT\H1=[KFZ8'I[-IL-H(>I->IK.@&7@ +GD,JCRGD0H)RH9+HL>GT4@SRLT )@@G@@]9(I-3]9H14]9(ISRHD$H1\IL>G)RGD,G)RHD3Z8R]8R]8R]8R]8R]8R]8R]8RI[2LU )@@G@@G(3G(,I)RH9,H-9]94H8RH(-HT>]'PG(2]9=JD-G-(GS#Z8'IT4GD4I(3B*R]8R]8R]8RGCRLV )@@G@@H15H(>IL(GSRI1>GT4H92]9\G0RH->H1$I-*]83]9I-<[N_]8R]8RD-GD-GD-GD-GD<_BL2G(1LZ )@@G@@I(>IT4B*R]8R]8R]94H[>]9]92GD,G9>]8 A[]MB )@@G@@B[OA)[CN_]8R]8R]8R]8R]8R]8R]8R]9IL(GSRHD,I->MC )@@G@@IL0IL>I--I-(H9,]9\G0RI-*G*RIL5H0FIV_]8R]8R]8R]8R]8R]8R]8R]90H92I-(H9,]9\MD )@@G@@G0RI-*G*RGT\H1=HD4HD\H0RI9\IL=]9-ISRHD4]93H[\I(?G)RGL>]93G(4]9+JF_]8R]8RME )@@G@@]8R]8R]8R]8R]8R]94H[>]9>J[>GS#Z9>J[-H(0H->ISAZ8/B)/B)/B)/B)/Z8FGD]9\G0RI-*G*RG1(H->]8FMH )@@G@@GD+GT=[SRI9(I-*Z8R]8R]8R]8R]8R]8R]8R]8RHT>JD3CKRG(4GS#Z8FGD0IL4GT,[KF]'PMI )@@G@@G(2]8FH-]ACFZ8R]8R]8R]8R]8R]8R]8R]8RI-\]9]9-]9,G(7]90GD$G*RHD,]94MJ )@@G@@H[>]90IL(H14[KRG1(H->@SR]9,H94G:_]8R]8R]8R]8R]8R]8R]8R]94H[>]9&I(,GT4HD\MK )@@G@@H0R[T,G(7I[-G9>[SRHD,]94H[(ISRI93]9=H9>ISRG(8GDG)RG1\IKRGT\H16G(,HD>H1J[>GSRI[-IL4CKRH0 MN )@@G@@AK]]94H[>]92I(,[T3]90GD2I-]]9-H1=Z8R]8R]8R]8R]8R]8R]8R]8RH0 AS]]94H[>]90MO )@@G@@IL\G92GD![T3]90GD2I)RH9&]94H[>]9H14]93G(4I-(H1$]9\G3_]8R]8R]8R]8RMP )@@G@@]8R]8R]8R]94H[>]9IL2H92]9*GD,G-?HD,G;_B)/B)/B)/MQ )@@G@@B)/B)/B)/B)/Z9(H0RI-*G*RGT-IT>]9\G0RGD,]9(H-?G($GD?]8'IL>ID5G(3I).]9\IKRMR )@@G@@BL0GD2GD!G(4G(2B(]]94H[>]9&I(,GT4HD\H3_M(>IKRHD3IT5G(3]9-]9!G(3IT-G9>]9-MS )@@G@@H1=]9=H9>ISRH1\I)RGD3IT(G9,]9-H0RG(8I[?HD]9-]9!G(3IT-G9>]9(I-3G(?MU )@@G@@G3_]1(H0RI-*G*RGT-IT>]9\G0RI-*G*RGD0IL4GT,[KRG(2@C#]8RIT5GT*]9!G(3IT-G9>MV )@@G@@ISRGD2G(]]95H1&H92I-5H1-I->H-9CN_IL5GL+HD3H@RH9,]9-H0RGD0H)RI->IL!HD,GD?MW )@@G@@@T-I(3@@@@@U@Q4@@@@^F@WY@-2IL2IL>I-5IL,^@)@SA@NSIL>ID5G(3I))@@B@NPM(>IK)MX )@@G@@@@#@FRI[-IL-H(>I->IK)^@)@@D@VQI--GL?G*)^@)@@ @NOI-8I))@@#@FOIL>I))@@#@FOMY )@@G@@ID1^@)@@]@FO@)Y@WZ@@@@@A@@>@@@]8R@W>H(0@W;]9,@XLG(2@X$@@@@@Q@@@@[=@@@@X.MZ )@@G@@@@@@#C@@@@YI@@@@^?@@@@YU@@@@AK@@@@Y%@@@@B4@@@@Z^@@@@DS@@@@ZH@@@@E/@@@@ZYNA )@@G@@@@@@G)@@@@Z2@@@@I^@@@@Z6@@@@J*@C@@Z;___@W;@@@@@Q@@@@LG@@@@)G@@@@M0@@@@)ZNB )@@G@@@@@@OO@@@@)&@@@@P8@@@@)2@@@@RW@@@@)_@@@@T@@@@@-C@@@@U=@K@@-H@@@@WC@@@@-ZNC )@@G@@@@@@X?@@@@(A@@@@ZK@@@@-2___@XL@@@@@Q@@@@)4@@@@-"@@@@+S@@@@+F@@@@)@C@@+T@@@@$^@@@@+>@@@@**@C@@+%@@@@%G@@@@+;@@@@:0@@@@NF )@@G@@@@@@6?@@@@=!@@@@8K@C@@=2@@@@94@@@@=.G(2]9-A@RG1\H-?H97HD,G8RI-*G*RG(2]8QNG )@@G@@@@@@@@@@@@@L@@@@YH@@<@@^I--GL?G*)^@)@@ @NJF*4A)4@@^@@B@S@@NDE1-GT3G0E]8RNH )@@G@@GD0IL4GT,[LI-<[KR]8@#ID5G(3I))@CB@NJ@D^G(>G(2IK1@K^@FJ@@@@@K@@@@Y(@@@@0^D@QA@0@@@@NYB)0A@0NJ )@@G@@@@@@VYC80A@0@@@@VYE12IL2IL>ID5G(3I))@SB@NJ@D^G(>G(2IK1@K^@FJ@@@@@U@@@@Z#NK )@@G@@@@@[)^D@QI-4I--GL?G*)^@)@K @NJB;LB)7@@B@FCC(2IL2IL>ID5G(3I))@SB@NJ@D^GD-NL )@@G@@GDI-<@S^@FJNM )@@G@@@@@@@D@@[@ZG@[<@0^H1\H1I->IK)^@)NO )@@G@@@SD@VJ@DQ[VG@@@@@O@@@@Z1@@@[S^[VGCL2IL>ID5G(3I))@CB@NJCKFM(>IKR@@ T(]ID1NP )@@G@@ID1^@)@K]@FJCKQ#D]I[-IL-H(>I->IK)^@)@@D@VJ@D]ID1ID1^@)@K]@FJ@@@@@^@@]@Z5NQ )@@G@@@@@@C^HFG^@)@@@@@ @@@@Z'@@@@C^D@0A@0@@@@VY@@@@@L@@@@)F@C<@@^GDI->IK)^@)@CD@VJ@D^G-=G-\H(-HD,G(2IL\IK)@KF@VJNS )@@G@@@@@@@N@@@@)Y@[>[@^D@QA@0@@@@NYB)0A@0@@@@VYC80A@0@@@@VYE10I[0I[-IL-H(>I->NT )@@G@@IK)^@)@SD@VJ@D^G-=G-\H(-HD,G(2IL\IK)@KF@VJ@@@@@B@@@@)>@[-@S^G1(J[(GL>GD!NU )@@G@@AC1^@)@@E@VJ@@@@@G@@@@)1@[>@*^IL>I))@@#@FJF(0I[0I[-IL-H(>I->IK)^@)@SD@VJNV )@@G@@^C1AC1@@F@VC@@@@@H@@@@)"@[>@0^D@QFTV__"@NYB-2IL2IL>I))@S#@FJ@D^G-=G-\H(-NW )@@G@@HD,G(2IL\IK)@KF@VJ@@@@@D@@@@-B@@@@S^IL>I-5IL,^@)@@A@NJF(2IL2IL>I))@S#@FJNX )@@G@@@@@@@ @@@@-G@@@@C^D@0A@0@@@@VY@@@@@M@@@@-Y@K<@@^GD0IL4GT,^@)@@A@NTD@QAC1NY )@@G@@@@[@NYC[QE10I[-IL-H(>I->IK)^@)@CD@VJ@D^G-=G-\H(-HD,G(2IL\IK)@KF@VJ@@@@@NNZ )@@G@@@@@@-1@[2[@^D@QA@0@@@@NYB)0A@0@@@@VYC80A@0@@@@VYE10I[0I[-IL-H(>I->IK)^@)OA )@@G@@@SD@VJ@D^G-=G-\H(-HD,G(2IL\IK)@KF@VJ@@@@@G@@@@-.@[=@*^IL>I))@@#@FJF(0I[0OB )@@G@@I[-IL-H(>I->IK)^@)@SD@VJ^C1AC1@@G@VC@@@@@H@@@@+E@[>@0^D@QFTV__"@NYB-2IL2OC )@@G@@IL>I))@S#@FJ@D^G-=G-\H(-HD,G(2IL\IK)@KF@VJ@@@@@D@@@@+N@@@@S^IL>I-5IL,^@)OD )@@G@@@@A@NJF(2IL2IL>I))@S#@FJ@@@@@ @@@@+S@@@@C^D@0A@0@@@@VY@@@@@G@@@@+=@C<@@^OE )@@G@@GT\H1=@@^@FTIL>I-5IL,^@)@@@@^=2Y9+5R)B3DSC@@B3DSC@@@@@@MBE:-RV TCW%, J4HOF )@@G@@\E>MV=301)3/3/70+1D]C;HXC3@@@@@@@@@@@@@D#>P0?TGQIS4= =-G=IPS9MH+P1[^&.CR@@@&8K,S3*@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@[1B]%1-39 )^B^Y^X V^M&D&">> Q^F^P=W^M=T@@D'D31^L?8ICOK )@@G@@8P61-&[[0^A@LKLSIM8]6+%]F[]]+AMM]R0@^?*44>S!=B^WFANA ><*[@B0"C"F-EUF=B0)OL )@@G@@'B1DT#C@]J3.[6O2#+I D@S0&O (I(,C(IVMM]D=-S9?W=4=M=Q)@C.DFF[E![1OO )@@G@@B]1,1-8L]8#4]5]UN[<)NE3H2TM#2#MVM'3E)@^YDF(M9<)IC8QIAGI,GA@4/7@%15HL]L1LOP )@@G@@>1#MTEN8N2L&KSK0@@YUL&O@P=#+I <><#/L0[HLYLO1%(C(-D%09GCD0CWD&D$C!@@IVEWEOQ )@@G@@VF&[1B#!QG@@@@@@@@@@@@@@@@[1B#!61)@@@@@@@@@@@@@@@@IC8PSSORK]L?NI&K(HLGT/-]1D]L?K?RI&J=1=2@@D/TL(Y)@8WL2:!-=-]0^Z)MSHDOT )@@G@@=MW+@2JMJ2@2^MJ]T]T@@^0K$)2^@WIC9QG&B= U)=[$,$8D$-D1;[P);M@2:]?<9MN+X)@^OU )@@G@@.W&@10@WIC9QG6D 9&0D4ET%$B0BS(E+NYSAL=$K&[&VD19E-DS@]J2SS4SUWKO[OV )@@G@@^C^R^K>#(GC'DDC-BL[L 1K9DS@]J2+3N@[08<>R<^:S18^9 H]M?8#/^=O6S7S+XILH6GXMOW )@@G@@?MLMT@@^"K=?4@@WIC9QH&AN+@KA[@-@TG-_0'C.C#BK-@-G))@]J2-NDK[08<>S7ST@KS[^OX )@@G@@)@LCC=\#*]D[4KK@))@]O4[<0@8WL2;P)@@@@@@@@@@@@@@@@IB^W,7V@@@@@@@@@@@@@@@@OY )@@G@@@WIC9X1=0@@@@@@@@@@@@@@@@B#+IRWT?@@@@@@@@@@@@@@@@[08<>7A<@@@@@@@@@@@@@@@OZ )@@G@@@@WIC9X\A@@@@@@@@@@@@@@@@@8WL2;7A;@@@@@@@PA )@@G@@@@@@@@@@@@>L0:AGCS@@@@^@X^^@I)@KK@@@CQ@DOWI6GSLOC@@C[#C#*$C[4@@K2@@@^O@^PB )@@G@@%IC2S1-.)@@@[_8#*:*[4@B_)@@L1AVAGDTG3@00BOJ&C=1@CQOSSC@@N^@@[1DFPC )@@G@@@[C4)2RAC@DM@PD )@@G@@@CT@@@][@]PB^W?S1H?@@@@GU@X^W)I)@1*@@^Z=8D!K[E<-6:A^^@@@@@@'@[4@@>A)@C_@PE )@@G@@)S@>L0;X?SM?T4[-KI?7GJD'@K0C0*K3(5&9JL C@]J3.MPK]L([=!7AN@@@@@@@@@@@@@@@PF )@@G@@@@=UKTFX1&0@@@@@@@@@@@@@@@@B^-,S8QMSD,O+8BO1*_][E1@C^5?BO10D:T 0@@@]J0)NPG )@@G@@+)[1CV&I =/$*+K]E+M+]]F][0B1[L K"@@CB@@@-G$O@W2=;S1-"-Q0D1*@$B)@)D1*)@@@PH )@@G@@@@["S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ HK$+PK )@@G@@^D8-___)@AQ^#KD[[-K@]X^[T@@[G-2@A@A@@@@@KV[*@@@@@[/[CLF*9D]NC@@@J)C/F'@4PL )@@G@@55&/]V5[5QKVJOAN*^C9L]IJKH#=)GX,?YM\D\$MUD>$EFT=&QWD-$EXC#_PN )@@G@@O9,@"O)%MM(]WU\1L;X^[5Z[B3NVGG8N-G?9LVI=73(GG6KB"(3W[/([O=>M^85Z+<6'C#%"PO )@@G@@]J&&6ST0$]TT2+6TT8$MV$TGTIT 8I!H)J<]N^<+],&):3(!&AWD0&QW*!&QYD4&'G)] -LPP )@@G@@SL8& ,5N1*F?2^W^-=&6ST0$]TT2+6TT8$MV*3XP]KMKCK2WS^WO8^[6O^63#I^8NFIOQ3FJPQ )@@G@@^'NXA=#2N@/=&@A@I:3XR3@.)KJS@[H?03-I^23> ?231I=7J^?HF I[M]]X)D]@@WMVENAGPR )@@G@@E&@@)UZ=-0@@?-E/D%@@@@@@@@@@@@@@@C@@@@@@@@0(U*/@@@@@@@@@@@@@@@C@@@@@@@@@PS )@@G@@@@@@@@@R]=A=X@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0H @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#QJ )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKQK )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+QL )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#F])QN )@@G@@A-]?>(M+O@]L?[ 1#O 3SM;[J^@VK@@W?LKT=['L[?K9AK4@@[2@KBO-G)@]Q)U@R)@#=W)[QO )@@G@@/[!@@^K7I@^K=-A<^Y#*K)S-K]K=W^==# A[@>7KDX0M(E/)2NE=MKN+^%M>D?(MJ^-HO:2#QP )@@G@@DG%LC0\6ND >ULTG+KB^)2BE=MGXS5CG-2(^IOS=T@WGMBE=(1CQQ )@@G@@1+S=9=IPC=S08EPDD=6LS=T[HD/&MZE?%@@ID[=2N9[W^_@#+KTN=><#[@[1CG=2BEN)@]L(QY )@@G@@D='K( =Y["'@DA=&N( =UO7Q*@^ELT MQ@]L(D=+N9GW^8)#&L$FAGBC[EW&2ZEG%2E@[CW(2]1<]K)[1CG=2TEN]A)]K9N=RA )@@G@@>61+O@@MBEW=1=1+N2@MBEWQMQGMYK]N( =HIO9NSJ@RC )@@G@@]K9B>&K9JW@@M>D?-2ZD4()@@@@@@@@@@@@@^HL.@SD/W^N8K*C20@@@@@@@@@@@@@@@@@@.LBRE )@@G@@9G^G^GDJLJ"L'<5C=@]U =^,>=)@M96? 9H]/&K\D=G0?[#4CO^@^V^!#2[/$@]RH )@@G@@E4_O=1BK@LML^P_@Z(@[7LF:%B]@34+#=3K_A[JY@Q[CT@#!3+KCI)Y_@DBDFF)JQME4:)3+RI )@@G@@[FHEGDX)+1S^+4^\E FJ)M,4:1.53'FKM!2E2X3MS#60,0/)@@@@@]MTJW1U%)>+(C9,L(-%RJ )@@G@@TZS@@@@@@@^=2Y9+5RS@@@@@@@@@@@@MND;&FPP0RL )@@G@@:!+?=IPR]$C&T=2(S%O8S0T/T/SGLW=^=:$>^H)@@@@@@@@@@@@^-2%8QG&L&2K9PWE@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@^-2:BGUM]2K&MBE?W1*Y)P=P=$'J! MA@[CZDOJ#C4N6@@@@)*@@@@@RN )@@G@@@@@@]K9P<&HB#D#TCW%13A)@@@@@@@@@@@@@@@@@@@@@@MBE?%L!CFD]TCW%2(A1F0)--[YSRO )@@G@@@@ A@SYOKI)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[1B]%1+MKM/[ (/(E+LMK2S&=G^0AZ>;=%=$=H^B)RQ )@@G@@@D1[RK(=CIC8P61-M^==E=G=<=*=T@@D\-(LE1Q@IC8QG&GHTCE@)RR )@@G@@K] 2C+K28NE].+C-]]M +L+AK@^8LC_BT=8IC8QG6GG'@@@X#*&K,O0S5)X#*[4NCM?@@@^URS )@@G@@A]@8<-S4S00K+8] 2M] MX2#N)+4+F+V2^2E] ]#-4@@&2=!=T Z)8<-RL^H^D^D=E)@D#RU )@@G@@(B-I-V*IC8QH6GHDDM@>OO"G1@%)8^,^2^\*-*+0\W(/:C@[CSMI]U]10WL0?WGSV)R6[-1%RV )@@G@@[LMW'KYWKSCK4>Y^?>A^T= ^F@@D (ATH-PSIC8QIQGI$D%@&)0^!=/^FKD+FL[1B#!QG@@@@@@@@@@@@@@@@[1B#!61)@@@@@@@@@@@@@@@@IC8PSR=Q=["[]UQ&Z'NAZCKGMQZ)KGQ+>*^1=2@@D/TMDX)@8WL2:!-2RZ )@@G@@(]C#08@XD2D)C2B-G[[D#-F[E0@]K+N^T%@IB^W:AN#XM=)I:HVI.MCMP36[2J#%12OSA )@@G@@MW*M*OI@@$P^4AM)#-1BE1&1D,G;[IGNR^.&@":DTMV3N+H480483!JTDTDF@@L"NST@@IB^SB )@@G@@W:A<#L+])CXF'C\C+D_MSLMOMBLM]]E]=]M0@^2@%C1S@WIC9P81CNGO[H(N@^(L5708H&FRSC )@@G@@C&NUM53^O*)W^2@@D;(DT$)@8WL2?VGG/C#@)*]EM]HBHAX@#-SD )@@G@@1BE1,01=S[E(B(@-FT@+M/K&I+PM^2BM[][[@@^8*)K0S@WIC9X%0@@@@@@@@@@@@@@@@B#+SE )@@G@@IRV!)@@@@@@@@@@@@@@@@IB^W,82S@@@@@@@@@@@@@@@@#-1BF,G6@@@@@@@@@@@@@@@@@8WSF )@@G@@L2;)^%IC2S1-.)@@@[_8#*:*[4@B_)@@L1AVAGDVD'SI )@@G@@@&4#=MV2R)^E/D!^@@DY@@@6/>*@=UKTFSK )@@G@@L0;P<]]@@@@@@X@@'@@M,82S@@@@@@@@@@@@@@@@^D61<#_+\)N2)[JG@@[JE@@@@@@@_8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@]4*N1]^/K___0@#?M#S#/=0C@[H*D]H,@@C-JMC-G F4@@@@)2SR )@@G@@8K@@@)G@@.^=C$0]-O'O@@&@.^ ?%M>CG$M$ 3:Y^&ST )@@G@@/)G<>.S(5=73(H^23> ?2NFI^03>I)@@ M[P"EJV*)I:8C"UVT-$]WD>$EFT4&"XD-&0@@](SU )@@G@@@%_ B!4KBP/^ZHH?03-I^23> ?231I=7I2S2W2F0XUV@ZA^&DB^ XH[R$NVGG8N-G?9LVG?/SV )@@G@@N(H4T@^EF]+0<1GFX%$ ?231I=7L&'%^)=)K-=80C8(0C#?*D!&ASW )@@G@@WD0&QW*!&QYD4&'HCB=&[9DG@G@XR&'\&[;@)Y0@]VT-$]WD>$EFT>$+XD,YDSUQEW]=^^;@SX )@@G@@M^@@8=6O&GSQK@[@58$.@@ =DF[K*@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@C@@@@@@@@@SY )@@G@@@@@@@@@R]=A=X@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0I @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#TP )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKTQ )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+TR )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#I3F]ZNGNF^:)?W7,@8JG\TS )@@G@@C'XT-B$B0R]?D'0KGU#F*EL)%YKH3@@NW+U<-2[<<)-A!@@@@88C#%K&K@[5FN%"MN2N2TU )@@G@@N2$2N0[H:L/@[]"Q@[CLI]NYNAK&KUKU@^;,*2D7@,)C^&Q[D>]PDR=AMTO+M](9>MO(H>ELTV )@@G@@8=E?>YKTD>MDA W2TC?:MFD=M@8=AK9O+L<%ST[=IPC=S0?6K9O>IKS=T@X:2BE=(2<^IDAGM;RG-2(^L1CG%MF^+J$^)2(C?MGE>=&N(A="DA^A2BC?$TX )@@G@@IC=S^=2Z^AMS=='MTO]OTD+MK9J=8DTY )@@G@@[>P1DG%LC#+NTN>IDA[E==,S=> )MVEGEMTI>K&IO9H="OTP=OBTZ )@@G@@G(MND4%LCX9EW?2VCOMGDC=UK8=>IO9IG1WMV^=1^)M$FG=2 EO(><)^+21DG%MG(WC[C?(M>C2?CH@DN>&NTN=QL3"@]O(N=&O9 =WUKTUC )@@G@@G= <]W@]MTJ=UK9D>G$W@=&N9P=UNDOCA@DD="O9D=5-]S[DG$2HE==2&@[C4)2TDC?&GSM8OC^EW+2A0-G@WM>CVAG)J:@]O(J=2N9P>K@[1CG&MZCF)*?@WM#EW=?SWW@IUE )@@G@@D[=&K9MW@@MHDG$M C?<0V6*[C4=2XC?1)^IL>[^]@^<2BCW+2>CF%"K]O(J=2K([UH )@@G@@=?@[1CG&2BD/(KV7S[C4-2:DFAB:)^$MFCVAGCH@DN>IPTO=&N]N0]PDM=UPTI=G!K@>IK9NUI )@@G@@=QL6 <)^(2VEW(2&0+W@=IL9T=IN7[]S[EO&2BD/$M&LI@@@@@@@@@@@@@#2RDJCHN9SH$@-UJ )@@G@@G^Z=HC_CAL"KC20@@@@@@@@@@@@@@@@@@.5B90)@.BTUG[1M@DGL O[0)KM&F=CUM )@@G@@,:MMMC^9@]V$7$)[3DYC^C0HW0DA1QMX8R+R+R2=VDGEN2=/(JC@LIW([J\>/=$>T@@M\P^ UN )@@G@@9H]/&K\X=F_?[]/D'=@^U E^T0T#*@LG'&S&0!*@CXCKFG)IE0[EKC%)IXM[=1=-L5=UIS^6UO )@@G@@?]N*A&K@I2F!@)M[%Q@=)=8,C.TC%M:NH8^+*?W:&['R)JA+[$P10$1?]M,>YJ,.ZLQ]PQLQUP )@@G@@N4UX@Y8>6BM^#@@@@@^=2Y9+5P[FLJ.IOG[G.F/@@@@@@@@=&N7GQ%;@@@@@@@@@@@@]MTJWUQ )@@G@@1U?T@U8Y=@@[:-'K@@@@@@MND;&FPQIS4HKDUT )@@G@@GDGNJC^$ CS@#BMM3(]G42C@@@CE@@@@@@@@@@=IPS9H@]U8SCM8R2#+I GAHS@X@[G-E0@@@L*SC#+I @@JFG6ESFI[1B]1?1-7-C0^=A]=WAX=FBHVA )@@G@@&:^O 3^/^Q^K=E=G=")]N*MUNGQ/#+I <#72V)E^HDVC )@@G@@G>M^2N#]#T2WNW]=+L26]P2I^;8@M-M7MY]5KWL0;P<@@@@@@@@@@@@@@@@@WL0;X?S@@@@@VD )@@G@@@@@@@@@@@@@#+IC2T)W4KQ=5BL=1$2#8=49*Z T(HLVF )@@G@@GTG+J0[B9M1W)@8WL2:!-P(@S^#@KUKGNC=9^[=4=#^[+^#^2^2@@A&>? P@#-1BE1=08*??VG )@@G@@^-=.TC2NCMN36])-8=G>[ )B/=>>H$'@]X+NKSK@IB^W:AV#$+8)M-^)!F?N:]R=&/*C)&P)#-1VI )@@G@@BE\AAL>V)Y6NSP"=E=JA3^J=EB!=J>U>Y^I=>,*L@^.4+)0K@WIC9QH&AA=^)K4[[D#L#L_0VJ )@@G@@'CMCUBL[D[D#))@]J2C<]0[08<>S7SSSK+[ *@LWC=\#*K+4X^ )CC@@>#)SO@IB^W,5S@@@VK )@@G@@@@@@@@@@@@@@@#-1BF!60@@@@@@@@@@@@@@@@B#+IRWTG@@@@@@@@@@@@@@@@[08<>7AV@@@VL )@@G@@@@@@@@@@@@@@@@WIC9X1*0@@@@@@@@@@@@@@@@B#+IRV1)@@@@@@@@@@@@@@@@IB^W,86S>BVM )@@G@@@@@@]@YU@B&)@)@@C_@?^@WIC9X1,0@@@@@@@@@@@@@@@@DOWE1<]A@@@@[@BL[@#*@^^@@@VN )@@G@@] )]PB#!)^%IC2S1-.)@@@[_8#*:*[4@B_)@@VO )@@G@@L1AVAGDV@@@@DY@K:0[@@]R)@@H\DU@DA=AM84S0@@@@@@@@@@@@@@@@DA=AM70@]CO58#A$EFT>$+XD,+$@([[I0^-@@IDH>D)@I!?HWD )@@G@@,@@FCJ4D]@@@@@@@@@@@@@@@C@@@@@@@@@@@@5V([S@[T]OON,@@@@@@@@@@@@@@@K@@@@@@WE )@@G@@@@@@@@@K@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0J @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#WV )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKWW )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+WX )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#J#F]Y3GT#L1N'\16[#L^O2YKZOT/T/@@[T[2[1D"+I)M[8#3O)*@]](5)+LO)*Z,:WZ )@@G@@X] :=N@=&))TERCAE C/)6Q],8F3?#S)@^3^>49^^=SCO4/-*@@^)GC#%K&K@[5Q::[N=L2IXA )@@G@@N=L2@DAML=@[#O?)[CLG+R*NQI-]CMA)D:M3]U0FJ][IN)N=0>MP9[=&PC=)%L(O>ENTM=YDXB )@@G@@]=9R=AMTO+L-O^&MFE4+2T^)ID[=IPC=S'(MKT#>MDAGH(=IPDN=ADAKB =-2(EW*1C2@8>=XC )@@G@@IPDN+L<#_BG-2(^L1CG%MF^-/N+KTO=QDA $2ND41^)MMMRGMM+0DH>AL*=S0?+O(N=&DAGXQ;CF&O(D='P]&(N=6N9L>QLKW2XF )@@G@@>DG$M(^-94(23D?-LC0=&L(#+MO9N=81.1D?MMHCG-=EM E=MMFD4)=/M E=MIDD>G$-3COMXG )@@G@@MBD/$^#MVCW$2>C?MKDK/&MBD/(MF^=]KXCO)2XDWMG)I>9D="DAGS#+NS==&N9R]MTJ=AMRXH )@@G@@^M[EW?2NCO(M&S"@MFF^=2(C2>:@^+2>EOIQTH>ILTBM8@]O(N=&O9 =W&K@>UKTGXI )@@G@@= <]T@]MTJ=UK9D>G:K@=&N9P=UNDO@@=&N9N=&NQ^K)^=2ZC4%MNET@0[C4)2TDC?&GSLK@MHEO(2FCV] @[1EO-?S2@.)@DM="NDJ>QP@@B^)2TD/),]&)[1CG(2M1-3@@8=AXK )@@G@@MT#>D0@[C4=2XCO+2J[Q@=-[C4=2XC?[_U)^IPTO=&N#^)]PDM=UPTI=G*O@>IK9N=QL6 XO )@@G@@=@^(2VEW(2&0Y@^-2JFG-2Y8CA@DM=6K9J='O18@@@@@@@@@@@@@^HM$4-@2ZD[>!^E^MD=[XP )@@G@@CMWCKU$]^#D0)C_[B8C_CEL"]J0L"]J0L"]J0L"]J0L"]J0L"<.B'J4Z*_L"L8KVD^:M(DF>XQ )@@G@@)@@@@@@@@@@@@@@@@@[9UJ3A38SJ;I#_VJ'F#N1]_M_N[N"=+PC8MI^O?'@.:@#?MI$O/=]D+(]EYIXS )@@G@@=AKD/S#&[IK@#?+0@CZ)ZO)J4F^N1+_]_#[N.^-!C?MF^^@B:%J2P+00@>G=*?,@_[@#5]E7P+=#(I9]EX&<'[JV@>6[HXU )@@G@@Q@#Z2%KC")Z20DBDJFP0:!+?=IPR]$(&">JD$UQIS0T/T/V2L6<)$1DSBS@@@@@@@@@@XY )@@G@@@@[CW%, O,K+C8C\C=8:8Y^V^(=P<*@[G#YF )@@G@@ERDJE.[1B]\AGI]CX@+^+4U="=Q=C^ ^C@@DU(A09FK[1B]1,1-$1F0^?^BB%AQ BB@>0AC&N^#^R 6>C>YH )@@G@@ )@B4(]TF1VKIC8QIAGMLM")FEM!3X$RS^P$^B'^\(+D--Q1$S;CS@@M6],MOM'@WL0?W?S=YI )@@G@@W=4@OIW4S*=(=&A^BV=4B] +=Z X^%=Z@@DE-T-KLYKIC8X%1)@@@@@@@@@@@@@@@@IC8X,6YJ )@@G@@G@@@@@@@@@@@@@@@@[1B^TL*1)@@@@@@@@@@@@@@@@IC826@MMYM )@@G@@O)!D(NWMO<6]+]H===*)?!C\DJE#@@N%2UN#0[08<>S3SZ^R2]RK=_DZ:%!]Q^&/:)YDX[R[YN )@@G@@Y'R0M0MQ@@$\=3AP@#-1BE1*008)*]B@C/CWE+MSL4NUK8I+]+I+%]M0@^Z>:AA@#-1BE\AAYO )@@G@@*>9@=9&0&@D&L#1?1D1]%N&MWR=S@K/MQ@@L1ANAGJ?@@@@J_@X X@I)@_/@@^Z&5$5@^YU )@@G@@%IC3S1-FS@@@[F0] Y@C@@M/@@[!9FK[C4)2RAC@DM@@CT@@@][@]PB^W?S1H?@@@@GU@X^W)I)@1*@@^Z=8DYW )@@G@@!K[E<-6:A^^@@@@@@'@[4@@>A)@C_@)S@>L0;X?SKI@@@@@]@@)@[ C@]J0CA@DA=AM7WTG@YX )@@G@@@@@@@@@@@@@@@@@]L([=!7AV@@@@@@@@@@@@@@@@@WMA9<-TD)\\L)D.+J2@8#/*)GB7=)$6YY )@@G@@J\DA^[=[)@@^C8.]H;@^]W4=?D%)@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZE==MFEOQ2(EO)2XEWRKB%TH)-D2Y?Z(H/'ZF )@@G@@NLG?9LVG=23-GG9N*@@[O)PZ+<6'C#%"]J&&6ST0$]TT2+6XD\$MST?@@@%KE\1L;X^[5Z[BZG )@@G@@3NVGG8N-G?9LVG?/N(H3?&G$G+/BQ&0B1-D+L1[RNKP9463#I^8NFIOQ3FJ^'NXAK[]+0*?CZH )@@G@@/N]7U(84 6T]I]K2NVGG8N-G?9LVG?/N(H4T,%-CDC^CTIG]IEW]@;E]VT-$]WD>$EFT>$+XZI )@@G@@D,+$@([[I0^-@@IDH>D F*$,F*#FHC#HRCQHUM#AB )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKAC )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+AD )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#C+Y#GNBN4+"31*#*=.@AE )@@G@@>H52/X"#@5D0:"-@1SO]ZIL2[#8.>+N3'CAH,]^/7@@@^+=C#%K&K@@(.5[9D9D8^$=AG )@@G@@$)]LY=R)@K<>*@K&K4VWK4M%L"KGK&[^EROL][BSKDBO]L4^%M\CG=2(^=^51E=(MVEO<1COAH )@@G@@>E/)2NE=MGC$=2LTQ=QNC=[1CG-2(^MDAGH,=IPDN=ADAI\\=IPDN>ADAI\(=IPAI )@@G@@DN+L<^?>3CW%LC1-1G%MND?+1C2]:+>L1CG%MF^-\V+KTO=QDA NMND4TD="P8=S2]_;=&N9[=>1^)MMMRGMM+0DH>AL*=S0?YO(N=&DAGMDG$M*M;EW&2ZEG%2E#&O(DAL )@@G@@='PC=DQ>IQTH=EDA 42HCWMM$EW$ <,DH+ML([=G<,K(O+MLTI=^(EK(O+L1DG(>DIT]+MK9AM )@@G@@J=8DH=IN9M=QDC#''ND#="O( +M@"A=EKTI=,DAD2/=2Z^IAN )@@G@@QTD=EO(NG9@D >+MTO=TM-K]LTM>EL>S@[EW?2VEW+2INA@M>EW=2$C?<&[)^:M#D=)?SNA@AO )@@G@@MND/G@]L([=2NAGCU@DA>ELTGS0Y@^AP )@@G@@EW+2A0@[1EO-?S1IR@DM="NDJ>QP@@B^)2TD/),]X0[1CG(2M1-Y0@8=AMT#>D0@[C4=2AQ )@@G@@XCO+2I"Y@^=]T/@MHDG$M C4=>))^IO9P>MMTGF+@DO>EL(P='K2()]O9#>ILTBSQI@M$D?(2$EV@@D#=YQT#AU )@@G@@=.0@[EO&2BD/$M&UG@@@@@@@@@@@@@^#L\M[@2ZH[ZP=##9B9GUJ2COZ=[*_[B8C_[B9[MJ0AV )@@G@@L"]J0L"]J0L"]J0L"]J0L"]J4Z*_L"<.B'J0CH=+P(O=>20@@@@@@@@@@@@@@@@@@.[B9AY )@@G@@T(6LY[Y[Y189"MKW=BD]C@OEVL@_^>3=5 T)@M5FO 9H]/&G5&A\#@-,^VN@]J]R2E*D2K@CAZ )@@G@@%N"]TN#K@+)W>10B>K@Y?K6',W)S3C- H-J))NUKC9)MD@@;K1@[=^MW[C9D9WT'+LG>UAU0BA )@@G@@DD1MLHO#;P@ZK)'%E CW)LO:1.:F'E@M?+I]Y#L8#7^,*/?@@@@@]MTJW1U%)>UI:KH.M,QIS4I3EMH+L-[][1/@@BG )@@G@@[B0 K)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8<-PS0_S>S[2UASMX&M0S*W2PMT%O+MEO]J]')@^2C4?BI )@@G@@>40)B^WE;S08*-W]BMPMP+R]U+8#]+>[2LYK+MON8L?@@>1&O @ !)8<-S2S0%/)8][0C+CTBJ )@@G@@B[WDJ1Y9#C-[-#08D]@@NQN9L6N'#+I 2>U&A#8X#*)S=G>S@[B'M0LUBK )@@G@@P&#+I D%I]GLE"F C4C3FWD;CP@@NL#X]T]7KWL0:1<#2+D@DMDUF9E*BL )@@G@@F#GOF*EUEZCSCKC!DIG>@@I/G\F+FK[1B]1?1+OIK0@.F3CKEZCMIVJ7CRD-F'CFC^CFCT@@BM )@@G@@JEC!EKF.[1B]1,1-,[F*^_@>4&! 2B@>4&R&:^]^T$@>? 9@@D^+MYOIRE#+I <-<^Y&P@RGBN )@@G@@&&(]W[3CL&WKY?N?&S&D \$>^X^I@@DX-W1D(S)IC8QIQGJPC2@==!C,G,8*^0)4O%@?C>O+BO )@@G@@^:0%C=^@[EOG6EKF0[1B#!QG@@@@@@@@@@@@@@@@[1B#!61)@@@@@@@@@@@@@@@@IC8PSSEQY["(G]QW=J=1$2^E^=$'=E $(T-GTG)@]J2<2/K[08<>RBR )@@G@@V#^] KC;@=0S2SXSQQ]K?Z4=JD!LD-;[O1A+KBS )@@G@@?PGP0ZCMQM?@@$ ^2&#@#-1BE1&0'0,0^%=.1FGN.MP4&/*0H^^&1@#-1BBV )@@G@@E1,01?)4]D0@+WLDYBK^N<*)W[[@@^-*#AK[08<>6:@@@@@@@@@@@@@@@@@WIC9X,6@@@@@@BW )@@G@@@@@@@@@@@@@8WL2;7A3^*8@@@@K#3K@/4@^@@[B8 ))#-1BFBY )@@G@@,H6@@@@@@@@@@@@@@@@[E<-QGSK0@@@@C@'CC@X@@))@@@K?@M*8X?S0=S)W[/[[8"C"@K%^BZ )@@G@@Z]@@^Z@@@TSME@M*8?@@@@>8[]\@^@@DCA )@@G@@Y@@@6/>*@=UKTFL0;P<]]@@@@@@X@@'@@CC )@@G@@MD61<#"]0@N2K[JF@[@N2L@@@@@@#.0@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK-J^CN1#___@@JMCCI )@@G@@S)JD2!@@^8K#<0@]K=(*]&+&)@@@CD)0@@)*][)@#&+-KC>D]M&)@@IU@>G#:BP;0D*/BPT[CJ )@@G@@!NKTI)K<>^C8.]H6@^C9L]IJK ?%M>CG$M$ 4['O'>0X^Q,(6J4&"XD*&QW*!&MTT0&AW(4@@@%KE\1L;X^CL )@@G@@[5Z[B3NVGG8N-G?9LVI=73(GG6@@@PC R8*.,+@'\)<9(!&AWD0&QW*!&QYD4&96NAN&LY#:CM )@@G@@NS#80=1C8):(*E/'VT-$]WD>$EFT>$+XD,[H?03-I^23> ?231I=7L(@/=0JDD)[)#%/7P/0JS^#6@@NCO )@@G@@VGG8N-G?9LVG?/N(H31F#M1N)O))$S]K)@B^&2=1<#E0@C#*C_K@@21E/D=@@@@@@@@@@@@@CP )@@G@@@@C@@@@@@@@@0JDD)[)#%;BP/0JQW#6@@NVGG8N-G?9LVG?/N(H31F@M0N-=))(/>8<0@[1DCQ )@@G@@?(GS0?W@]@;"J4@@E;MX1*@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@]@@@@@@@@@@@]@@@@@CR )@@G@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0L @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#DH )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKDI )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+DJ )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#C+Y#GNC+(+4<<8#:K/?DK )@@G@@=556^VT)'_] I'CHE%)UIMS)C:C%=''#'#^8)R'@^A0PJ8/)%A0G2@@G9C,E'CAF6CA-I:)@@@5*C#%K&K@@@@@@W)[ [O@@^AUDM )@@G@@+@^#^#^H^#^6=6)@^A<=)4] @)N%S^'=DO>YKTD>MDCC"MPDM=6O(B+K=EP9[=&PC=SKVD=+DN )@@G@@2!C?&LC#+KT#>MDAC_=AK9O+L<#UD#>MO9[+L<%Y(#>MO9L+L<%Y(#>MO8=S0953CW%LC1-JDO )@@G@@^%MND?+1C2]U!>L1CG%MF^-$F+KTO=QDA#&MTI=UN8=SKHCW+2W8+L)MND/MGS2@8LWMV^==DP )@@G@@2ZE/DQ(DG$2\^KDL=&DD#="N)=APR^=2(^)IDH>IO8=S^%MDQ )@@G@@M9+MOQ[D?*2H^EW=1C1-%=),TM=&N(OCA>INTJ>APT [3EO=2XE=M[EW?2VCOMGE'=DR )@@G@@UK8=>IO9IDXWMV^=C?MKD1/&MDS )@@G@@BD/(MF^=]W#CO)2XDWMGGE=&N8=S1)IDH+MMTJ>WDD="KTDWLC^(23DG-M>ETCK[C??MNE=
&NTN=QL2[)]O(N=&O9 =W\@@>UKTG= <]T@]MTJ=UK9D>G-K@=&N9P=DU )@@G@@UNDO@@=&N9N=&NQ@@MND/K@[1CG&MZCF))4@WM#EW=?SLK@ID[=&K9MW@@MHDG$M C?<,%+@DA=&N( =UO4DW )@@G@@)8@=UMTI=AP(GH5@DA=&N(DW?XQ+M^^CEK%@M>D/&M CG>)@ID[=6K9J>E#,1@DA=IPTDS0&*@='LT#S1)@^(2$E?%MNDZ )@@G@@D-U*[E=(MHE?$MALW@M$CW(2FC;]3)]O9H>IO9NS@[CW<23CW$,@@DM=6K9J='O3SK@@@@@@EA )@@G@@@@@@@@@)UD/*[B/^1I[*'O4K*>H@>H^[(NKDNKDNKC_CEL"]J0L"]J0L"]J0L"]J0L"]J0L"EB )@@G@@<.B'J4Z*_L"KGKXD^:M(DF>)@@@@@@@@@@@@@@@@@[9UJ3A38R6U\!CH E4N&25]5]5V7SF2U 9G-Z]8X(0]C*F.?@C9C!C2)M=0@+XG=D*E^@]B]BM"ED )@@G@@8^(@@E C=M0@FTCGM]#SC^=?]A$O*)[*[LK^^KP0*A- Y(4[T9T9UD*L?T!(!(!0@V%SGYMOEE )@@G@@CR^P'@[E?#0R=4F2T].#0;=S#6];N@]I]F2H8#_O@C!M3+V]R0@+O+K\'[E-@]++ 41/)G(CEF )@@G@@-[AA!KD]8^HI(*@#LMT0CH):;)DCDIF-JKMB4%03A[I5I*4I+MZ#M#,@@@@@@@@DD=.3 %,0@@@@@@@@@@@EH )@@G@@@=&N7GQ:AKBJ(H8@@BJ(H8@@@@@@MND;&FP.=!^^=X^9=W=J)@D3["-^9H@IC8QGEP )@@G@@6GF C/@+S]*+X2NM9M-+62X][+A]O2SMJ0@#=#%+J2)@WL0?UGSR"KW[@0]^M=[$[ *^A^M+EQ )@@G@@^A]^[+@@D:D][ 9T8IC8P81--L]*^B)K,L0K"S+Q^MUL,J+[[4KSLC@@P/O2MKP'#+I FAR&ES )@@G@@E=^^LB#&> 7@@A'(D(ODL0IC8QIAGIPI+@4 HPSRKR0]LSK'&:(CLEW )@@G@@GL/-[[D'LSKKR0&%=1^2@@C_ETF)@B#+IPX?F3C^@)?]#]]2N^$C)G<=)?)GX^#=$==@@B'^EX )@@G@@6>8@#-1BE1=0'K%/#4#/<54,^=4.)(?GD@B#+IP5=,^Z@@D'9I9-S@8WL2?UGF+^@X@KCKANC=0=[<=X^[+^]^2^>)@CEZ )@@G@@_FCFZ@B#+IPYGM\3D)N$44?/Q[CUC?H&I^CTN$3-#D<1MF]P0@^Z+&X)#-1BE1?06K@@@@)/FA )@@G@@_8X^^@I)@-GK@[EUCDH+@B#+IP7AN@@@@@@@@@@@@@@@@@WIC9X1&0@@@FC )@@G@@@@@@@@@@@@@@@B#+IRWUG@@@@@@@@@@@@@@@@[08<>6/S@@@@@@@@@@@@@@@@#-1BF,H&DL0FD )@@G@@@@@@)B&)[9*@C@@]J0F[@B#+IRWV?@@@@@@@@@@@@@@@@]PB]?S0-)@@@@K[4KK@'@[[@@@@FE )@@G@@-S@>L0;S1-U9[K^E)M%K%R?@-T1]*)@[Y0@@BE :@^%IC2S1-.)@@@[_8#*:*[4@B_)@@L1AVAGDV@@@@DY@K:0[@@]R)@@H\DU@DA=AM84S0@@@@@@@@@@@@@@@@DA=AM7,83S@@@@@@@@@@@@@@@@#+K7GWFDG 5QL]]ZGMMD >EFTO>EKTI>IF$EFT>$+XD,[H?03-I^23> ?231I=7L(@/=FT )@@G@@0JDD)[)#%/7P/0JS^#6@@NVGG8N-G?9LVG?/N(H31F#M1N)O))$S]K)@B^&2=1<]T@@C#70;FU )@@G@@)@@&K_K+)@@@@@@@@@@@@@@@)@@@@@]K)@B^&2=1<#E0@C#*C_K@@21E/D=@@@@@@@@@@@@@FV )@@G@@@@C@@@@@@@@@0JDD)[)#%;BP/0JQW#6@@NVGG8N-G?9LVG?/N(H31F@M0N-=))(/>8<0@[1DFW )@@G@@?(GS0?W@]@;"J4@@E;MX1*@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@]@@@@@@@@@@@]@@@@@FX )@@G@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0M @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#GN )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKGO )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+GP )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#C+Y#HJ<0)KK-*@B-,*/@>4C^,Y[F$]PDR=AMTO+M]WX>MO(H>EL8=D">YKTD>MDGT )@@G@@AD*/&MFE4+2T^)ID[=IPC=S')&KT#>MDAGHA=IPDN=ADAI\I=IPDN>ADAI\[=IPDN+L<^>93GU )@@G@@CW%LC1+DE==2VC?MG)&?(OWM#E=+1C=O,D[>MLS=SOFDG$MHD/MGD%=ILTIWLC0DD="DAGS"GV )@@G@@:H1D?MMND/:0(;/=2ZE/MGT[G"2ND/)2M8+KDL=&DDI=&P@>AMS==IN9I]KTPWMNE=M@8=6OGW )@@G@@9N+L)M(DF&DDLS^&2EMTI>LDR>INTJ>APT [3EO=2XE=MD+O(2GX )@@G@@3D?-LC0+'L(#+MO9N=8(.1D?MMHCG-=RM E=MMFD4)=;2 E=MIDD>G$X3COMMBD/$[D?-2ZEGY )@@G@@O+1D@=72TCW$2>C?MKDCG-M#D4>1C14'=&N8=S1)IDH+MMTJ>WDD="KTDWLC^(23DG-M>ET1GZ )@@G@@8[C??MNE=&NTN=QL3!0]O(N=&O9 =W-*@>UKTG= <]S0]MTJ=UK9D>HA )@@G@@G$^@=&N9P=UNDO@@=&N9N=&NQ^#@^=2ZC4%MNES@^22[!V@DA=&N(]=UMM;0]L(D=UO( =P5ZHD )@@G@@9CKMHDG=MZD<)!?@W2G9S1-D8[EW&2ZEG%2E@[CW(2]1<]RK[1CG=2TEN]U)]K9N=>61+RO@HE )@@G@@MBEW=1=1+RO@MBEWD/&M CG>)@ID[=6K9J>E#?<@DA=IPTDS0HF )@@G@@\S@='LT#S1)@^(2$E?%MND-XC[E=(MHE?$MAM?@M$CW(2FC;]5K]O9H>IO9NSK&@MBC/?2BDHG )@@G@@;))S@>ENT#="N(NC-@@@@@@@@@@@@@][*"6G^Z0LD*#9IHDDL"KG)@@@@@@@@@@@@@@@@@[']J3A38SHI )@@G@@F-2]8DI-E8N*M;M;M/N*N1N9#9["@^_A!0H!TW9DDR@@^(V.[YNK\D=J/Z#A&@G)'80@=^=^HJ )@@G@@^Q[![@]E^/W(@\?HL )@@G@@@CVC9FW)M K@\)+LHCC^L4KS>=$R0D+S^T0BJC@WIVO[[/^YO[C1DLV(9+K6>O&Q0DQLF(BWHM )@@G@@^RH@=$@>5K$=G[/W>YJ!QZLK]PQLIN4U5@Y8>2$>)@@@@@MND;&FPO^?XDHH5HLHMF/@@@@@HN )@@G@@@@@=&N7GQ%;@@@@@@@@@@@@]MTJW1U?T@ZO>N@@@ZO>N@@@@@@[DG$,S!QG0J%M()@@J%M()HO )@@G@@@@@@@@=&N7GQ:A)B5DO0@@B5DO0@@@@@@MND;&FPY@ZO>N@@@ZO>N@@@@@@[CW%, X?P=-2%HP )@@G@@8O'/4S&.FBM;NA#J\!NMA@@.8==;8X,*9@@@]])@@@@@@@@@D#>HR )@@G@@QIS4WG=H=-2:BGU@@@@@@@@@@@@@@@@@@@@@@[CW%2(A4)?=D=-2:E=V#4X#*K@@@CL@>4@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@B^WE:ABV^>)K8S0L8UUK?S*W+NUS^NAMIL,K?L]@@$T :^M&R@82># !)KG@^0=Z)@BCBP^Z>@@8<-S4S0\/+HW )@@G@@O] +^MA2R2 N)+02J2RM[]BM]2]-*@]SYN4L8P"#+I YGSU,N][LLA1KT%[^1+DTK;G2CYC3HX )@@G@@C$CQC9@@M#MR+=W=G@@DATN(J1-IA )@@G@@*IC8X%1)@@@@@@@@@@@@@@@@IC8X,6G@@@@@@@@@@@@@@@@[1B^TL*1)@@@@@@@@@@@@@@@@IB )@@G@@IC8O2.D5D@>=]Z+Q+SOID )@@G@@$CX^=^?<*-/&?&C>*@[H EHF0@B#+IP D\DD1;[I-A2N^N*RO='^&>H@@D'IE )@@G@@9HL)@@8WL2?T?I^G#[F!KNVO_C& D\D=C/M;MT#@46*&^&K@[B9I(=@@8WL2?UGGA@[@^^DFIF )@@G@@MSM[]H[][@^DFDF@@@&K0C@WIC9P80/@3S^4XFNG"XV+K'VGP=K&&<>TAU&X=I=2@@D/-^(-IG )@@G@@0@8WL2?VGF=B0^A)I+#M##_-4KMKUI-/I+#L@@^Z=B>1@#-1BE1,0\?)=] 2K)CT^MR+#-] IH )@@G@@2#-/@))@]LQ[X*@8WL2;P)@@@@@@@@@@@@@@@@IB^W,7V@@@@@@@@@@@@@@@@@WIC9X1=0@@II )@@G@@@@@@@@@@@@@@@@B#+IRWT?@@@@@@@@@@@@@@@@[08<>7A<@@@@@@@@@@@@@@@@@WIC9X\A@@IJ )@@G@@@@@@@@@@@@@@@@@8WL2;7A;@@@@@@@@@@@@@@@@@>IK )@@G@@L0:AGCU@@@@^@X^#)I)@KK@@@CS@DOWI6GSLKC@@C[#C#*$)[4@@K2@@@^N@^%IC2S1-.)@@IL )@@G@@@[_8#*:*[4@B_)@@L1AVAGDV@@@@DY@K:0[@@]R)@@H\DU@DA=AM84S0@@@@@@@@IM )@@G@@@@@@@@@@DA=AM7,83S@@@@@@@@@@@@@@@@#+K7GWFDIP )@@G@@G M"LE]ZAY)$<)]YM@]@$<+@@@@@@B_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH]YCK$+B__"@@VWK(@Z#^_@@D0) <)@ NBB)NCNIU )@@G@@C@@@[[W[)@@[@S@[6-CL[* ](E8@@BU^DBK@S)":"[F5)':CH%2#D4]^W*-BB*L,0@-BECL1IV )@@G@@'^V6@CA?!C-NP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@="PDC=QO*!>MO([='OIW )@@G@@8,XPYM4KAL,'?[EU&"XD*&QW*!&MTT0&AW(4@@@%KE\1L;X^[5Z[B3NVGG8N-G?9LVI=73(GIX )@@G@@G6@@@PC R8*.,+@'\)<9(!&AWD0&QW*!&QYD4&96NAN&LY#:NS#80=1C8):(*E/'VT-$]WD>IY )@@G@@$EFT>$+XD,[H?03-I^23> ?231I=7L(@/=0JDD)[)#%/7P/0JS^#6@@NVGG8N-G?9LVG?/N(H31F#M1NJA )@@G@@)O))$S]K)@B^&2=1<]10@^Z$W@@^2B'^O@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@^@@@@@@@@@3XR3@.)KJS@[H?03-I^23> ?231I=7J^?HF I[M]]X)D]@@WMVENAGG[@@)MJC )@@G@@0N1K@]2^?@@@@@@@@@@@@@@@)@@@@@@@@@@@C@@@@@@@@@@@@@@@C@@@@@@@@@@@@^O)@JD )@@G@@@@@@@^@@@@@@@^@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0N @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#JT )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKJU )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+JV )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#C+Y#HA,T#>MDAGH5>MMTH=QDAKPCO%ID[>MLS=IKDL=&DD#="N)=APR^=2KC )@@G@@(^)IDH>IO8=S^%MM9+MOQ[D?*2H^EW=1C1+K7CF&O(D='PCN%MO9H="OTP=OBG(MNDKD )@@G@@4%LCLJEW?2VCOMGMF9A=IDDN>IN+8$^&1DC4)2ALXCO%LDC?$M]N\CO%LC8=&O2X7G-LDCW$KE )@@G@@2W^&2BD/(MF^=]O[2 CG$MR^<^1&MTJ+L1^)M$FKF )@@G@@G=2 EO(\,"@D >+MTO=TMU)]LTM>EL>S@[EW?2VEW+2IN/@M>EW=2$C?<& @^:M#D=)?SNA@KG )@@G@@MND/G@]L([=2NAGDJ@DA>ELTGS0+8@KH )@@G@@=UO(N=QK6^#@#+O(#S1+T4@M>D/&MZE?%@@ID[=2N9[W^5@#+KTN=><]8)[1CG=2BEN)@]L(KI )@@G@@D='K( =Y[:"@DA=&N( =UO4"8@=UMTI=AP(GXKY@MHDG$MM9S",C@=UMTI=EL(DF\@DA=&L(KJ )@@G@@M=QLO1C@=UMTC="NB]KI@ITAW?S0=/=CDN=6N9L>QLK@D#>IKQGSLI@ID[=&NDMSL6@MBEW=KK )@@G@@,6GMK0]K9N=&G&GMF0]K9N=TQMQGJZ@DI=QK6GS@[EW(2:E==2SQ6@M(EO )^(2BEW+2I0?W@>INTN>IO6@@MBKM )@@G@@C/?2BD;)@]O(H=IN9I>G94@@@@@@@@@@@@@CH=EV+[="U]\SCAC'N&2P=9?-(IVCNN&0N&0NKN )@@G@@&0L"KOUPDDW?@@@@@@@@@@@@@@@@@KO )@@G@@@JAL"S6Z#[P)KPR-7[S2X?R8R8S^X0Y"Z'Z'=B)[E1%MN]R)NAQG@[FI?KR=4F2T];&A!?@TKP )@@G@@[.#)@8DSC8)U(0@+-JEEFFO@]$2W2?C^5?@H=C\N*-/YMK+>$B$0D;8^YKB+8@WQTK[Q/^OCKQ )@@G@@[6(TEX8SISISSX%Y'Z0Z0= @[DD*^[-)[U(TC@^?2$[YNK\D=F23#QS)K;]H9)[BDFT ^^K6KR )@@G@@@^OD.TH(Y8@N&O2PV@$Y)[%- +U*KCXWK+>@$=\(B@SAKS )@@G@@TKDY(ID 4^U.@>[)'>2^/-)J$=:1.>V'EKM!+I2YKV )@@G@@P0:!+?=IPR](H[_[T%T&$G&GAZ&Z&0]$3^&$*=0@@@@@@@@@@@@@^-2%8QG&L&2K9PWE@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@^-2:BGUM]2K&MBE?W1*WYOCOC'+T.+2K0@B5^=$+#!5]@@@@KO@@@@KX )@@G@@@@@@@[CW%13A<-=-?=IPS9QPC6= =-G=IPTO=%0,@4O,^>O-O-^&4:O&G@[H"I"EEG0[1B]1=1->1#S^D@MMLB )@@G@@M*MQR]RQQMM=KGKSK"MIMW@@X8W%MARE#+I ^+89^B^WE/S0'S-G]#MK--E- 1+LD )@@G@@L?TJ-D1#(]D#D LC*@]V/R?MAUG#+I =B&=C^A^F^A*.@LE )@@G@@]U2AM1#AKWL0?V?SW&M/[HSDL-\(S10D=D$D\@"D#ISE?GB@@M2^&^$C10B^WFB#AB8>:@QSLF )@@G@@U%O]'+?-^9^9CS>- O @=X^A^GC_@^>*/,*B^WFBFAD>-KS OB' >I*\C?GCM:]JO$*4?LG )@@G@@=G*4]^&=.&2)]X0NMSK@IB^W:AV#*M"@M7O+PG$XKUM'=7=.^WDV(JLY'TEM'NCS4SS'KQ@0]G--J'N]I-2GBL[TALJ9DS@]J2$#A0[08<>R<#3=-4+C))8+)KY=O^#)CC@@=H@SO@IB^W,5S@@@@@@@@@@@@@@@LO )@@G@@@#-1BF!60@@@@@@@@@@@@@@@@B#+IRWTG@@@@@@@@@@@@@@@@[08<>7AV@@@@@@@@@@@@@@@LP )@@G@@@@WIC9X1*0@@@@@@@@@@@@@@@@B#+IRV1)@@@@@@@@@@@@@@@@IB^W,86S>B@@@@]@YU@B&)LQ )@@G@@@)@@C_@?^@WIC9X1,0@@@@@@@@@@@@@@@@DOWE1<]A)@@@[@BL@8#*@^^@@@]A@]PB#!8@@#V2Q)]L([=,HAG@@@@@@@@@@@@@@@@]L([=!81)@@@@@@@@@@@@@@@@M*8,82S@@@@@@@@@@@@@@LV )@@G@@@@^,)@@W)KMB )@@G@@&@B'KBI=]X5[5QKVP4AN*^C9L]IJK$EFT>$+XD,+$@([[I0^-@@IDH>D ?231I=7J^?HF I[M]]X)D]@@WMVENAGG[@@)MMI )@@G@@0N1K@]2^?@@@@@@@@@@@@@@@)@@@@@@@@@@@C@@@@@@@@@@@@@@@C@@@@@@@@@@@@^O)@MJ )@@G@@@@@@@^@@@@@@@^@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0O @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#MZ )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKNA )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+NB )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#I3C+Y#GNA#VNKP0KA()@D)(DDY1@120K>5([*@@B>-@XM^2@@KBL/]SNE )@@G@@YT"[D9$9D8@WYX,@[]2@[^DDD%TD9O*8CU@]RO+=&G]:K)M+*^**DO>YKTD>MDCE=EPDM=6ONF )@@G@@(B+K$YP9[=&PC=SQ:D=+2!C?&LC#+KT#>MDAI?-=AK9O+L<#E9#>MO9[+L=[3:CW%M$EGMG)NG )@@G@@IV(#>MO8=S1ILW2BE=MGS&]2(DG&2F^2PB^)2(C?MB.ID[>MLS=SO3DG$MHD/MGCU=ILNH )@@G@@TIWLC0DD="DAGT@YH,DH+MMTJ>Y^W$=&N9R+LIMS=S0."KRG(MND4%I(M>INTJ>APTNJ )@@G@@ [3EO=2XE=M Q2$FG&2 ^<]S9A=IDDN>IN+8$^&1DC4)2ALJCO%LDC?$M]N\CO%LC8=&O2X7NK )@@G@@G-LDCW$2W^&2BD/(MF^=["ND=-2ZEO+1D@ZK2 CG$MR^1^)M$FG=2 EO(( C[C??MNE=EO9D>ILTBCU@DQ=NM )@@G@@AND[S0$^@=&N9A=IMTNFB@DD="PTA=2P]^0]MTJ>IMTHSK&@MND/EK6GT@=")^(MZD=$2:E)@#+KTG="KR[D8@8=AO9DS00G@NO )@@G@@WM#DG-2=8@@=UMTI=ELTB)1K]L(D='LTA>I@; @DA=&N([>UNC#7C@=UMTI=>22]W]@DA=&NNP )@@G@@(]=UMN6K]L(D=UO( =Q@'J@DA=&MDJ=10V]@ITAW?S0==@>INTJ>APT @@=IO9[S1-P*@8=ANQ )@@G@@MTG>D-GS[CW(2M;S1HP@D#>IMS2S1HP@D#>IL>@7'@^<2BCW+2>CEQ?@M>D/&M CG>)@IDNR )@@G@@[=6K9J>E#!^@DA=IPTDS1C\@DI=QK6GS@[EW(2:E==2SQ%@M(EOINTN>IO6^N)^-2JFG-2Y8CA@DM=6K9J='O2A)@@@@@@@@@@@@@)6O:GCHN9SE90)4)LB9HNT )@@G@@MJ2A=Z=CC_[B8C_[B9[MJ0L"]J0L"]J0L"]J0L"]J0L"]J4Z*_L"<.B'J2#M^(C>UPDDW?@@NU )@@G@@@@@@@@@@@@@@@@@@JAL"S6Z#[_R0Z51.-TMX)R8R8SEZS=HDA+L*MNV )@@G@@2SF2U 9G-YO*S;)]A8L.4@C_EKC,)$-)@+>5EDIDW0@M8O]Q<@X,)[\( N%Q[/>/=AD22KN@NW )@@G@@$?)M9@& )[8())^;0JGKB'>>(6D)D)D-D"%K"=XDBMMI@^=&;\:OGMGYFF@@>V2*F2U 9G-YNX )@@G@@NCS1)]BSL&?@C/D.C3)<\0@Y,%?EBF @]Q]>21*#2G@I2C-XN0J=!W)9IOM^$4C@MT@&W@[4NY )@@G@@T-S #KJ^0^<=$>0$:D EP?T\@=!>G=,0J6W[.W#%O8N!6[FVM\B5'J*:[E'C'D;G_)JWM.31NZ )@@G@@@@@@@@DD=.3 %%]T?=XB+AP0%L2Z@RE&V(V-<[$9$9'[^2LEMW=K=W)@OC )@@G@@@@@@@@@@@@@^-2%8QG&L&2K9PWE@@@@@@@@@@@@@@@@@@@@@@^-2:BGUM]2K&MBE?W1*W*OIOD )@@G@@OI$R0D.%K0@BY=>$V=TD40@@@KO@@@@@@@@@[CW%13A<-=-?=IPS9QPC6= =-G=IPTO8KK*W$8@@[4K&J+-][@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[1B]%1-"OG )@@G@@TP)^?$/=&(:1[-+-79 +K%P/O&M^KSKSK?@D%1E1A-)CIC8P61-([#K^H@LQM,LWR@RAM=M*OH )@@G@@KQK&K'LML'@@>! M=2>?@8<-S2S068)*][@CSC$D]F-H]GFC&B1[D#[C(#C@]WC=?^QAY)8 P^9>8@8<-S6SOK )@@G@@1DJD:@$*;)<](!L49KDED]L^EJ0[ DXDOM )@@G@@WGZ[1B]121-'DF8^/ . =$Z^YA^A%^:A*^9^V>F^&=MDJ)@=- N=">1@8<-6:A@@@@@@@@@@ON )@@G@@@@@@@@@8<-6;S0@@@@@@@@@@@@@@@@B^WL>AA;A@@@@@@@@@@@@@@@@@8WL2%?F6FK@"^<.FOP )@@G@@IL]S39]#2N#8M#24^?8&G&LJW@^Z>E>3)#-1BE,6 :^C)LC[B-^(G+N=I+P]D[4KWL=NCNC@OQ )@@G@@@&V>N %@#-1BE1=0'@?O^-K_PC=NI]N36]=18=E D>-([[D->+R2@D;(G9-*@8WL2?T?HRFKOR )@@G@@[D]H(M,=??&[D\D[C"MK+KM4^:*&@&LB8@[HUN 3&S#*S+)6S1K--HUGOG>ITC*DFNX)[B9 9=)@8WLOT )@@G@@2?VGG1^@)K][][]T#_-4L6KCI-][]T]AK@^Z=2AR)#-1BE1,02*)0]DK@+OLDYC#@+O)G))[OU )@@G@@[@@^(*#D0[08<>6:@@@@@@@@@@@@@@@@@WIC9X,6@@@@@@@@@@@@@@@@@8WL2;7A3^*8@@@@K#3K@/4@^@@[B8 ))#-1BF,H6@@@@@@@@@@@@@@@@[E<-QGSOX )@@G@@K4@@@@C@'CB@X@@))@@@K0@M*8X?S0&4)G]@0CGC#D,@K:))GK@@&8@@#=]V@]PB^TGS0"0@OY )@@G@@@@@_/[4P4@'@#_0@@L"VQZO@M*8L1B#AGDQ@@@@@]O)@>C@@-=@@@C^@DOWL21<^PA )@@G@@60@@@@1*[4L2@'@#A)@@L"N)&5@^%IBU?SKK@@@@@#*@BK@]OU@@G(*@[I^@PH )@@G@@0*@@=DCPC-E[D5@@@@)%$@@@@)G@@7K=C-)-?=DCP@@CVH4CVD.@6,[I!ZL3[5QKVP?AN*^CPI )@@G@@9L]IJKPJ )@@G@@MMD >EFTO>EKTI>IF$Q;,%*BLC'XO= 3ZI=4NFIOQ3DG?8N#IO'@@@PC R8*.,+@'\)<9(!&PK )@@G@@AWD0&QW*!$MV94&AV@@@E=]:/OY7L@XR0L/463#I^8NFIOQ3FJ^'NW;D ?231I=7L=@K*?EF]J^0!6%YH[X&K<)=G=63#I^8NFIOQ3FJ^'NXAV%PM )@@G@@*M]M[]AN<@<+$@)I2)&6ST0$]TT2+6TT8$MV*4)YMSB==0@0[5YV%"SB?][;@@D!&AWD0&QWPN )@@G@@*!&QYD4&98>-(S(0EKKN?[CK@#+NTMS1-XC@]QMX+@@QK=?^K)@@@@@@@@@@@@@@^@@@@@@@PO )@@G@@@@@@@@@R]=A=X@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0P @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#QF )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKQG )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+QH )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#C+Y#K#A#]YKTD>MDCD3APDM=6O(B+K=&P9[=&PC=QL )@@G@@S&"2TC?:MFD=M@8=AK9O+L+L!CG-2(^P1DG%LC#+NTN>QO )@@G@@IDA[E==,S=> )MVEGQLKW2>DG$M(^- 4(23DQP )@@G@@?-LC0<2L(#+MO9N=8&(1D?MMHCG--CO%LDC?$M]M CO%LC8=&O2K$G-LDCW$2WKHD?-2ZEO+QQ )@@G@@1D@>!MTCW$2>C?MKDS^-M#D4>1C1J-=&N8=S1)IDH+MMTJ>WDD="KTDWLC^(23DG-M>ES9@DQR )@@G@@ >+MTO=TL2@MFEO(MG:@@DN>&NTN=QL2,)]O(N=&O9 =W>4@>UKTG= <]T@]MTJ=UK9D>G\SQS )@@G@@@=&N9P=UNDO@@=&N9N=&NQ^#@^=2ZC4%MNES@^D/&MZE?%@@ID[=2N9[W#0@WM#EW=?SOS@ID[=&K9MW@@MHDG$M C?<0N4KQU )@@G@@[C4=2XC?QMQGMIO9NSK*@MBC/?2BD;)@QY )@@G@@]O(H=IN9I>G&*@@@@@@@@@@@@@CA=QA)N9*C<=)S^Z=EC_CAL"KI20@@@@@@@@@@@@@@@@@@/TB9,D5(-L-L-99(.T"L"MKK@^OAUD6TT- [V)@^&X1[YNK\D=F2$#A>)L#["(@[B1E1A=#RB )@@G@@0O@#5HVDIDR@]WM0+:*^6W@F6C(NZ[4>Y^^DS(.F'U@C6)JS0@3KW@Q;[^5@YYQ"$N&B&B&ERC )@@G@@B$$7B9$9([*@J#B$RK 6=R \)@MTAO 9H]/&K\D=GS,[#/CVU@^Y<=+'["Y@]C=70=0=O@D2RD )@@G@@F)E()NW0@\C+5J[C^MQ2#^:@"..NK#,@.H@#G2H@G@)+[)DADJF+JNMC=:^3M[GXDQDD)<\CRE )@@G@@^!*BP[K$,O["=>YJ:0ZM4]P&L'N4U\@Y8>6B-)@@@@@MND;&FPO^\TC^I^F(H2GV@@@@@@@@RF )@@G@@=&N7GQ%;@@@@@@@@@@@@]MTJW1U?T@ZM>I@@@ZI>I#*@@@@@]MTJW1U?T)ZM>I@@@ZI>I#*@RG )@@G@@@@@@]MTJW1U?U@ZM>I@@@ZI>I#*@@@@@]MTJW1U:0#'O(0@@#94(0X@@@@@@MBE:-RV TCW%RH )@@G@@, MV<_]_4\TH)GSH@H@M 2D<_2I3\18@@@@@@@@@@@@@MBE:-S2TAVD#>P0*@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@MBE?W1(CFD]TCW%13A-4TN(N:%F$5'(#@@Z/MOYIL='+)@@@CE@@@@@@@@@@=IRJ )@@G@@PS9OD )@@@I)MRK )@@G@@()@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@B^WE:AB)^9@L6T*L8<*)/1K84YA.^;^1#0)/)4@[HVD>C3GR[RM )@@G@@1B],6GI5A@LSN'M'OQM&R@TKNON/LMK+K/L=N4@@=D>(>A>_)8<-S2S0;*K@@)GZ^< 0$B&MRN )@@G@@#8X]^[=<^G)@C_@+?84B^WFAVA 3=H@K+[ELB-FLW(O-YLBT@T[- LF9E0@[9(/LCTOCIC8QRO )@@G@@HAGH\BC^+>A<02S-G8G1=+W\)<)0-@1G%K-RP )@@G@@?>*Z^D^#= ^F)@D]DA-H-N8IC8QH&GMS++@GHN^M3^4C+?9?94+W/O1S=S&O+=+0@[BLDTS(RQ )@@G@@K8IC8QH6GL0LW[ EKMRYSQO%W]ZMTIPOQ=K/O%OYP^@@>ADC1FT+8IC8QIAGN1M8@F,N*2WSRR )@@G@@^$=)89[HVCSN24-O$@+O)=-G@@_K+/&*4SB^WFBFAD#-B0^: \>]&(^Y&^BD<=1C&SSNGM4KRS )@@G@@'@@=] H ^&Q)8<-6:A@@@@@@@@@@@@@@@@@8<-6;S0@@@@@@@@@@@@@@@@B^WL>AA;A@@@@@RU )@@G@@@@@@@@@@@@@@8WL2%?F+F)@_@ZD)1_TGT/-@)9J0C^F)N[+S2T@@^Z>I \@#-1BE,6 :@@@@RV )@@G@@^2DIK'DO@X@[G-G)@]T,PGQ*@IB^W:AN^)/2C^\1F)M"BR"=>$?A^^T(Z--[=MR0MQTS@@7)>J$*(>%VQN]=7=%=ZDN9E(X'TUN]NC@@6:@@@@@@@@@@@@@@@@@WIC9X,6@@@@@@@@@@@@@@@@@8WLSA )@@G@@2;7A3^*8@@@@K#3K@/4@^@@[B8 ))#-1BF,H6@@@@@@@@@@@SC )@@G@@@@@@@[E<-QGSK4@@@@C@'CB@X@@))@@@K0@M*8X?S0+CX@@]@K+@'DY@X@@^C)@@@0@>L1ANSD )@@G@@AGJ?@@@@J_@X X@I)@_/@@^Z&5$5@^%IC3S1-FS@@@[F0] Y@C@@M/@@[!9FK[C4)2RAC@DM@@CT@@@][@]PBSF )@@G@@^W?S1H?@@@@GU@X^W)I)@1*@@^Z=8D!K[E<-6:A^^@@@@@@'@[4@@>A)@C_@)S@>L0;X?SM&SG )@@G@@>N@=P)C=W@@)D S+PGC[ C@]J0DM@DA=AM7WTG@@@@@@@@@@@@@@@@]L([=!7AV@@@@@@@@@SH )@@G@@@@@@@@@@WMA9<-TD-Q\+^KN94Z-@Y4@^ J@N98EY^C)@@@C_]]'D@B^-,S8QN2)M])CG@)K)SI )@@G@@0)?[]^]#[@@]]0@@C-E@@BG(I6GS+ U)$K@]X^@]@$K]@@@@@@C@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF]YCK$+B__"@@SOKH@ZC#=@[JED]ESM )@@G@@ @@D=HH@=/=/@@@]]\R@@@]@0@#0+K)C:D]E @@CKJ]@7W]"*E$][H%)':CH%"#D4]^W*-BBSN )@@G@@*L,0@-BECL1'^V6@CG7 D1NP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@="PDC=QSO )@@G@@O*!>MO([='O8,NC]K)C;N#4=YV94&+TT2+6TD>$]ST2$L5"]VI"96]W"ECE!>RORWZKBQV;ASP )@@G@@(!&AWD0&QW*!$MV94&AVBR8D?;;$SD38*)%6PXLX1.@XT\?U&6ST0$]TT2+6TT8$MV$TGTITSQ )@@G@@ 8I!H)J<]N^<+],&):3(!&AWD0&QW*!&QYD4&'G)] -LSL8& ,5N1*F?2^W^-=&6ST0$]TTSR )@@G@@2+6TT8$MV*3XP]KMKCK2WS^WO8^[6O^63#I^8NFIOQ3FJ^'NXA=#2N@/=&@A@I:3XR3@.)KJSS )@@G@@S@[H?03-I^23> ?231I=7J^?HF I[M]]X)D]@@WMVENAGFC@@NBN;K@]T^>)-*@@@@@@@@@@ST )@@G@@@@@@@)@@@@@@(S(0EKKN?[CK@#+NTMS1-XC@]QMX+@@QK=?^K)@@@@@@@@@@@@@@^@@@@@@@SU )@@G@@@@@@@@@R]=A=X@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@AC0AC9B@9@0Q @]@[@C2A)N=KMN> F*$,F*#FHC#HRCQHUM#TL )@@G@@3W]@3Z1'W^JN(K@@@@@-C/)#6*A)?.*^-2]COMBC')9E/CJXJ2D$N/C#)8C#)8C#)8C#)8ZKTM )@@G@@B[0")I#*AZKB[0")IF[.@WQ#'@8?B4[1SJ*#+0),@8?M[*#+2[8C)IG+]C#&*)+@9%CC)IU+TN )@@G@@]C#&*)+@9%M^8#&*C#$4)+@9.$__8#$4@@@@@@@@@@@@@@@@@@#K#C+Y#H?@)S!-.U-]S^N^J3TU(.L*[*@@@ =BCB^$'B")Z!@$K#8@E)-VT*#'/==]2TP )@@G@@@-F+#XNL)MB@@-%]\$DQ)$;@I]@@IQC*FPCAH5[;S)@@@X+^[5CNC@@$)I*K@@@W)[<[7@@^TQ )@@G@@LKY@@@@N6L'@@[<0@@KDLW]O+^%M\CG=2(^=^79E=(MVEO<1CNPE/)2NE=MGL1D=+2!C?&LCTR )@@G@@#+KT#>MDAD&=)2BE=MGSSPCW%M$CGMGXM>CW%M$EGMGXMTCW%M$^MDAGI]>MMTH=TS )@@G@@QDAKL-/%ID[>MLS=I8WM#E=+1C0*QMTI=UN8=SK5CW+2W8+L)MND/MGS2@_8WMV^==2ZE/EXTT )@@G@@TDG$2\^KDL=&DD#="N)=APR^=2(^)IDH>IO8=S^%MM9+MOQTU )@@G@@[D?*2H^EW=1C1-T^),TM=&N(OCO>INTJ>APT [3EO=2XE=M^A2$FG&2 ^<]EDA=IDDTV )@@G@@N>IN+U$^&1DC4)2AJD]>MDD ='KMU(]>MDB^=2&NO9=EDD#="N)=6K9J>ELS=)MS9G=IN9M=TW )@@G@@QDC^&&K([='M8=S&KMND/MGS0B^&1DDG$2,^=2ZCG=,C=]O9T=&K(M>G&K@=QQDD>ML>BC[CTX )@@G@@?(M>C2?@@>IQTH>ILTB@@>EO9D>ILTB@@>UKTG= <]T@]MTJ=UK9D>G$)@=&N9P=UNDO@@=&TY )@@G@@N9N=&NQ@@MND/ELTGS0>S@=UO(N=QK6^R@#+O(#S1<%N@]O(J=TZ )@@G@@2N9P>K@[1CG&MZCF)+)@WM#EW=?SM'@ID[=&K9MW@@MHDG$M C?<0H2C[C4=2XC?*^=>&@@M<*O 9H]/&K\F^F78[#/B"S@^X^Y=R0H 0@LG&T^LD-@@NOP)P(@&&)[T-UH )@@G@@#+SOKCY=KO=-BZ\*Q@Y,\P@#H3#)E')+3KIWFGN>N@N@N[N$#,36N6N'K@+80"@/ FOGEFG@UI )@@G@@@W/N[YNK\D=F2T].&@L [6A)[B-DLA3'8K@+LH%DXG9@[2QKP:@&W)[R*/NJL4XAKQ==$)\*UJ )@@G@@E@+15/C@T/TC[OG^P4[C9D9WT'UJO:G3M[ELC*C*)+8C^&GBPD0$\=[_&>YJ!RZLK]P=L4N4UK )@@G@@U-@Y8>2$(@@@@@@MND;&FPO^&@3K2):S3)$8@@@@@@@]MTJW1U:?@@@@@@@@@@@@DD=.3 %1UL )@@G@@=["UPI@@["MPIC@@@@@[DG$,S!QG0J3M(0@@J2M(1@@@@@@DD=.3 %1*["UPI@@["MPIC@@@UM )@@G@@@@[DG$,S!P8["UPI@@["MPIC@@@@@[CW%, X?P=-2%8PE_L2U?=0DO1<[*[*]M&K8ZILUVIKUN )@@G@@&@@@@@@@@@@@@@MBE:-S2TAVD#>P0*@@@@@@@@@@@@@@@@@@@@@@MBE?W1(CFD]TCW%13A-/UO )@@G@@1T-T<%I$75D#@@=E=&B&],**@@@]])@@@@@@@@@D#>QIS4WG=H=-2:BGU@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@[CW%2(A4)?=D=-2:E=V^(+]DV+M?@@@]@>!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC8PQGI6UR )@@G@@D<@C+0)/)*@[G/DWC8G6[1B],6GIACZ@+K%*>=$*>C,@1C$8&SM 9@KA@^\=:@@B&$1^->K)8<-S4S000+8]D]IMB+Y2^<)2\+E2X+]1-[-[T^0@]P,M&MUU )@@G@@WP&#+I YGSTCL^[^)^I=1=GAD>W^O=1]^D= =C=L@@D 09D?E7[1B]1?1<% 2SKE_NA+<4_0UV )@@G@@+*9!HNC&IAM--MLME]E0@#;+M+1]3KWL0?V?SU0KI[[)^*=G&)B@>QA$^G+^]^P&BBF@@DBUUW )@@G@@PAPSPQ#+I <-<^680S#@4;/*M[F"CIIKN]2A=.@_**?+=))-O@[CMC2DH=NA^A%=O=.=4=^=H=%=D@@AQ^( N 6@8<-6:A@@@@@@@@@@@@@@@@@8<-6;S0@@@@UY )@@G@@@@@@@@@@@@@@B^WL>AA;A@@@@@@@@@@@@@@@@@8WL2%?GQF*[DJD;ND^*W&G"K-)=TDJCSF$VA )@@G@@NB2S2T@@^"G*)\8@WIC9P607CS[GT*1HLJDF%N=M]L?NAM]K?MQM"M2@@>R=5&S)#-1BE1=1VB )@@G@@D4G;[H-NDO3%@""DFJSH+BUV]V^T0&R=>=;@@D;1F9+K@8WL2?T?H5FI[D:HEM140C&HD\DDVC )@@G@@C;MU2MM3=?W&G&K@[B9IL>)@8WL2?UGD)@@@K]M4&^X B@I)^DFDF@@@]R)[08<>R<^>W1*^VD )@@G@@4 F.IW)I&2E6:@@@@@@@@@@@@@@@@@VF )@@G@@WIC9X,6@@@@@@@@@@@@@@@@@8WL2;7A3^*8@@@@K#3K@/4@^VH )@@G@@@@[B8 ))#-1BF,H6@@@@@@@@@@@@@@@@[E<-QGSK0@@@@C@'CC@X@@))@@@K?@M*8X?S0<)@VI )@@G@@@[@C2@X N)I)@]G)@@@L1ANAGJ?@@@@J_@X X@I)@_/@@^Z&5$5@^%IC3S1-FS@@@[F0VJ )@@G@@] Y@C@@M/@@[!9FK[C4)2RAC@DM@@CT@@@][@]PB^W?S1H?@@@@GU@X^W)I)@1*@@^Z=8D!K[E<-6:A^^@@@@VL )@@G@@@@'@[4@@>A)@C_@)S@>L0;X?SM&>!@=%)C=1@@)DE*+Q4C[ C@]J0DM@DA=AM7WTG@@@@@@@VM )@@G@@@@@@@@@@@]L([=!7AV@@@@@@@@@@@@@@@@@WMA9<-TD)7MMB@N,4Z-@ZM@^#Z%]X7@7'=I@@VN )@@G@@@@C_][!O@B^-,S8QN2)+^)COFQB1#[@8^E^A^E^E@@^#)@@K2NW@ITMX?S0_?:)^'K@N()@KVO )@@G@@^'KK@@@@@@_*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@]KSN1]^/K___0@#NM#S#58$^@[B8 4)@^2A&=K=0=?@@@@KR=K@@@@@]K?M^@^-A&)@@=FVS )@@G@@@Q?[:3;PS^."#%?)6:CG$KCL2+^WY-A;@]^W*-BB*L\S@)ZF3.^5K@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@DJ>MMD >EFTO>EKTI>IF$PS^!<*+>5#'NBH/'NLG?9LVG=23-GGVU )@@G@@9N*@@[L@M:%F,J*#:H.$EFT>$+XD,+$@([[I0^-@@IDH>D$EFT>$+XD,+$@([[I0^-@@IDH>DK@@2+[@@@M @@@@M(@@@@JC.)@@[W/)@AK;O)@@=AE@@@F)@2[N[^[@^ [EP )@@G@@KO[@@@/C@@#T/@@@#TH@@@@_C@@@@S[@@@@_C/@@@Y/K@@@8/@@@# G/@__+C@@@@SAF@@@FEQ )@@G@@)@/[N[K0)*SK0C]@))G/@__"C@@@@T/@@@[B/C@@[BG/@__/C@@@@@[@)@@[C@)@@T[@@@@@ER )@@G@@C@@@@RAG@@@F)[A[F#]A[#]A[#]A@@@@@@@@;L@@@ S[@@[]C[@@@[;K)@@#S@)@[[C@)@@[ES )@@G@@;K@@@]C@@@@[[@@@@[AH@@@F)[J[F#]A^GCS^[@^^@@@@@@@G@@@@RC/@@@G/@@@[T/C@@[TET )@@G@@G/@__/C@@@@@[[@@[E[@)@[D[@@@[CAI@@@F)[S[N#]]CS^G]A@@@@G.@@@#T.@@@#C[@@@@EU )@@G@@;@)@@C@)@@T[@@@@^FA )@@G@@C@[@@ZR@K@@S@[!@[A/K@@#=N@0@]GAO@@@F)]N[F@K^ [K^[@KO^@@@@@@@H@)@X=C@)@@SFB )@@G@@/K@@]7/G)@](/@)@]UH@)@X[EK^[#]]-FD )@@G@@-]LN]A@@@@@@@[/@[A@[@@@&/,0@@@R@)@@^R@K@@Q@[;@[A/K@@#=N@0@]*C8)@@[AR@@@FFE )@@G@@)],[F[EDLYOD+@)CS@@@@@@@@]]@[A/K@@#=N@0@]6C8)@@['^@@@@@@MJ_"@@K@@T@@K@@SFF )@@G@@@@L@@AAS@@@F)]7[F[K0-C(-#]]OM+/)@@@@@@MJ_"@@K@@T@@K@@S@@L@@A@]#@[A@[@@@YFG )@@G@@/,0@@@R@)@@^R@K@@QAT@@@F)#@[F]S)C]A^D GCSEC@@@@@@@K@@T@]E@[A@[@@@,/,0@@@FH )@@G@@@]D@[A/K@@#=N@0@#^C8)@@['^@@@@AU@@@F)#D[F]S)C]A^D GCSEC@@@@@@@K@@Q@]I@[AFI )@@G@@@[@@@ /,0@@@@]H@[A/K@@#=N@0@#HC8)@@['^@@@@AV@@@F)#M[E*> ]S)C]A^ ]K@@@@@@FJ )@@G@@/,0@@@R@K@@Q@]N@[A/K@@#=N@0@#SC8)@@['^@@@@@@K@@T@@K@@SAW@@@F)#V[E(-#]]OOFK )@@G@@D+@)CS@@@@@@@]S@[A/K@@#=N@0@#@@@@#=@@@@#<@@@@#+@@@@["N_0@@AJ@@@F) G@K@)]K[@@@@@@@@\ GL )@@G@@ \ - / X @@@@ A@@@@ BAK@@@F)]S@K@)]Z@K@GM )@@G@@)]U@*@@@@@@@A1,A4) X,A4, (1H , ** ** / - AL@@@FGN )@@G@@)@#[F][N]A^GCKESK0@@@@@@W/@@@D;O@@@=@[P@ U@@@@ I/,0@@@[@@@]+@[O@ U@@@@ IGO )@@G@@/,0@@@AM@@@F)@G[EK0--##6^G]@-C@@@@@@'^@@@@/C,@@O?8)@@FC@)@]<[@+J_"C@<@]JGP )@@G@@R@0@]<[@K@]/K@@@2/K@@@)/K@@@2GQ )@@G@@/K@@@>/K@@@)/K@@@?/K@@@)/K@@@)AO@@@F)@Y[F@K0.-#]A^GC]A^G@@@@[@[@@-C@@@ JGR )@@G@@/K@@@7[@[@@<[@[@@+[@[@@-C@]J_"@[R@ U/K@@@?AP@@@F)@$[F;]A^GCSK^GCSK0-)@@@GS )@@G@@C@)@ L[@[@@+[@[@@-C@@@ K/K@@@7[[[@@AT@@@F)[F@;#@C]^2&^G@@@@)].@K@5X,001(1H1,6@[4@ U@[@@].GX )@@G@@/,0@@@/D@@]G*@@@@KG.@__'C[@@][E()(-#[N] ^D>GCSES@@@@K@]Z@]]@ U@[@@]U/,0@@@'^@@@@@@K@]&@[_@ U@@@@]XHC )@@G@@@[@@#OAY@@@F)[,[F#[N] O@(-]% [@@@@@@8N0@[RG_)@@]'^@@@@'^K@@@C/@@])8N)@[\HD )@@G@@'^K@@@C/@@@@N#)@ WAZ@@@F)[7[MK0CS^G]A[#@@@[[)@]?C.)@@B[[@@]:C.@@@[[@)@]%HE )@@G@@C/)@@A[@@@](C/@@@][@@@]*C/@@@]BA@@@F)][[F#@--#@--#]A^G@@@@@@C#@@]<[[@@]2HF )@@G@@[[@@]1[])@]0C")@@G[[)@]\[]@@],C"@__"[@@@]!BB@@@F)]E[F@K^GCSK&O0-)ES@@@@@HG )@@G@@C/@@]3N_0@#V@]U@ U@[@@#E/,0@@@[@@@]3C@@@ P/K@@]?/#@@^+BC@@@F)]N@N]%@@@@@HH )@@G@@)#E@8@@@@@@@,1H T107A1,/ T14,11,/,1H3,109A,1H T1(1H1,/8N0@]M'^K@@@BD@@@FHI )@@G@@)#L@S@)]P@3])-)K0@@@@@@@C.@@@G[@)@]*C/)@[Q[@@@]+C/@@@H'^@@@@A1) T118,2HJ )@@G@@5,2A1,BE@@@F)]V[N#@--#@-)K0-)@C_@@@A[]@@],[])@]!C")__.[]@@]?C"@@@[[[)@]:HK )@@G@@[[)@]%C.)@@B[[@@](BF@@@F)]>[N#@-)K0CS[#@@@H@)@]G G G GCO@@II )@@G@@'^@@@@@@K@]7@#0@ U@@@@]X@[@@#O/,0@@@'^@@@@@@K@]+@#!@ UCA@@@F) &[F]TN]A]&IJ )@@G@@^G]A^GCS@@@@C/#@#-[[)@ G GCSESK*@@'^@@@@@@K@]7@^Q@ U@@@@]X@[@@#O/,0@@@'^@@@@@@K@]+@^N@ UCH@@@FIR )@@G@@)A&[F#]A^D>GCSESK0@@@@@@[[)@[JG.)__"C[)@]7@@K@]Z@^U@ U@[@@]U/,0@@@[@@@]3IS )@@G@@C@@@ QCI@@@F)A\[E(-]%@O0-P]+A^GCS@@@C@)@ P[@@@]ZC@@@ R'^@@@@'^K@@@C/@@])IT )@@G@@8N0@A\'^K@@@C/@@]3CJ@@@F)A8[F#@-)K0CSK0-^@@@@@@@/,0@@@[@)@]7G@)@]7C/)@@]IU )@@G@@[@@@]+G/@__"C@@@]+N_0@@[[@)@]3CK@@@F)B[[E()(-#]A[#[N] OE@@@@'^@@@@'^K@@@IV )@@G@@C/@@]+[@@@ WG/@__"C@@@]7@^(@ U@@@@]V@[@@#OCL@@@F)BE[F]DN[N]A]&^ECNESK0@@IW )@@G@@@^\@ U@[@@]U/,0@@@'^@@@@@@K@]7@^?@ U@@@@]X@[@@#O/,0@@@CM@@@F)BN[E(-#[N] IX )@@G@@O@(-]% ^@@@@8N0@A''^@@@@'^K@@@C/@@]Z8N)@BP'^K@@@C/@@]3N#)@ W@@K@]ZCN@@@FIY )@@G@@)BW[N@K^G@--#@-)@@C/@@@[[@@@ WG/@__"C@@@]&[#)@]&N_0@@#C_)@@B@^8@ U/K@@CCIZ )@@G@@N@0@BYCO@@@F)B&[F#]A^C>G GCSESK*-^@@/,0@@@'^@@@@@@K@]+@^.@ U@@@@]V@[@@#OJA )@@G@@/,0@@@[@@@]+G@@@]+CP@@@F)B\[E()()()(-]+^2&^G G@@@@K@]Z@ #@ U@[@@]U/,0@@@JB )@@G@@'^@@@@@@K@]&@ @@ U@@@@]X@[@@#OCQ@@@F)B8[F#[N] O@(-]% [@@@@@@8N0@B-G_)__.JC )@@G@@'^@@@@'^K@@@C/@@])8N)@B9'^K@@@C/@@@@N#)@ WCR@@@F)C[@V]TN]A@@)#P@0@@@@@@@JD )@@G@@,005H*H ,63X**,/,1H** 2X,007(1H ,6@ G@ U@[@@#P/,0@@@CS@@@F)#V@8@@@@@@@JE )@@G@@)C^@N]+@@@@@N@0@CB'^@@@@H*) 5X,001,1H ,6H***,/4X,003,1H ,6* **,/CT@@@FJF )@@G@@)CA[F@K0--#]A^GCSK0-)@@@R@K@ ,9\)@ ?9\@@ %9,)@ *9,@@ &9!)@ =R]0@ V@ J@ UJG )@@G@@/K@@CCCU@@@F)CJ@;#]A^GCSK0--#@) S@K@@@@@@@@@F@@[*4@K SN#@@ 4N#K@ 3N#)@ 2JH )@@G@@N#0@ 1R@0@ 0R@)@ \CV@@@F) U@K@)CQ@;#] =GCSK0--#@9:@@ %9%)@ *9%@@ &9()@ =JI )@@G@@AA0@ V/K@@@@/K@K S@ J E:SKECH2CW@@@F)CX[F#]A^GCSK0--#]A^@@@@/K@@@@^#@@ 4JJ )@@G@@^#K@ 3^#)@ 2^#0@ 1A@0@ 0A@)@ \A@K@ ,9:)@ ?CX@@@F) I[K@@@@@@@@@@@@@**** JK )@@G@@ * ** B:-L;@@[@@[- \ / _____"CY@@@F@@@@@@@-)K0)JL )@@G@@CSK0@@C.@@@ C/)@@[[@@@]*C@@@]1/K@@[9[[@@]*C.@@[Q[@)@]+C/)@@& @@@]^()()**NKL#@@@@@@T@@@@GG/@__"C@@@X='^@@@@@@K@X:@@K@@#@@K@@]@@K@X>JU )@@G@@@@K@X=AC@@@F)@W[N[^G]A@K0@@@@@G@@@@IT/@@@/C@@@@#G@)@@GT/)@8KC@)@@]G@@@@IJV )@@G@@T@)@@HG/)__"C@)@XGCSK=@@@@/,0@@@@[S@@L@@@@@@/,0@@@JW )@@G@@[@)@@[T@)@X+C@)@X-[@@@@@G@@@X:AE@@@F)@\[E(-#]]CE]-K(-#@@@@@@@[V@@L@[@@@^JX )@@G@@/,0@@@[@)@X>G@)@X>C/)@X?[@@@X:@[T@@L@@@@@IAF@@@F)@8[F](L^D*]@--#]A@@@@@@JY )@@G@@*4@K@JR]0@@M@[Y@@L/K@@@_N@0@@"'^@@@@@@[@@]@^K@X*'^@@@@AG@@@F)@J@)@@@@@@@JZ )@@G@@)[[@V#] =G@@)@^@C@(014H AA0@@M/K@@@@/K@K@J@[Y E:SUBA @@@@@@@@F@@[AH@@@FKA )@@G@@)@ @8@@@@@@@)[^@F@@@@@@@@@@@@@/K@@@@(2I6) (6I2) ,A6) 04H AT ,A6,0L 5.8 KB )@@G@@ISD CAAI@@@F)@G@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@_____"@@D84@@@@PA@AJ@@@F@@^@@#@@B@@B@@P@@[@@T@@[@@#@@N@C@@[ @@@@X?NDCOD$KD )@@G@@ MI2SET MINUS2 NIO2$ NPRT$ NIO3$ NERR3$KE )@@G@@ SUBA @@[@@@@@@@[#@@@@@@ ^@@@C@@]@@@@K@[@@@Q@[@@@&@[@@@KF )@@G@@@@@@@@@@@@@@@K[@@@KK[@@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@KG )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@)@@[S@@@@@@@ WEIRD IN A FLATAT THE MISSSIMPLE PAPER COLDUNIVAC MISTYKI )@@G@@PRETTYAA@@@F)@F[S@@@@@@@SPRING LOST CHEAPINDIAN EARLY ONLY NEW MYKJ )@@G@@ DARKRUSTIC WILDAB@@@F)@Q[S@@@@@@@SQUARE YOUR SUPER SWIFTMOSTLY TRUEKK )@@G@@BROKENIT'S A USUALJUST A GOODAC@@@F)@-[S@@@@@@@TURKEYWINDOWDESIGNSUBWAYKL )@@G@@FAMOUSFUTURERUBBERORANGE FREESELDOM GLASSAD@@@F)@?[S@@@@@@@(?) CHILD KM )@@G@@SHADOWLIGHTSIDEA IMAGE FORESTFOOT BALL SCENE WIRE AE@@@F)@7[S@@@@@@@KN )@@G@@CENTERBRANCHPLANETBARRELHOME PLACE FACE MOVIE LIFE BIRD MONTH AF@@@FKO )@@G@@)[][S@@@@@@@CAGE PROTONJUNGLESCREENTIME DESERTSOUL DEVICEMATRIXT.V. KP )@@G@@ROBOT AG@@@F)[H@S@)@@@3][N]A^GCKES@@@@@@[:/,0@@@[@@@[L@[D@[,@@@@[:/,0@@@KQ )@@G@@CIRCUSFISH SYSTEMAH@@@F)@A[N#]A^G@CS@@@@@G/K@@[W/@@@$;O@@@=[@0@[LG/0@@[KR )@@G@@W/)@@$;O)@@=C@)@[L[@@@[M@[E@[,AI@@@F)@K[##]A^GCLESK0.-#@@@@@@@@@@@@@M@@$KS )@@G@@@@LJ_"@[H@[,@[@@[N/,0@@@R@)@[MR@K@[L[@K@[MAJ@@@F)[N[S@@@@@@@H ,58XH.,/,1KT )@@G@@3X,00101H.,1,58X,0,/,1H ............15H...,58X,0(/,1H0AK@@@F)[Y[S@@@@@@@KU )@@G@@......X,015H,1H 5801H.,/,13X,0,001H.1H 58X1H.,/,,A6,00,A6,1X,001H.AL@@@FKV )@@G@@)[(@K@)@S@;]M@)CSK0--#@@R@)@[1R@K@[0R]0@[\@[M@[,/K@@@WN@0@@V'^@@@@...) KW )@@G@@......AM@@@F)@Z@F#@@@@@@)[?@)@@@@@@@)@)@N#]^0@@@/K@@@@/K@K[?@[M E:TITLE KX )@@G@@@@@@@@@@F@@[*4@K[?AN@@@F)@+@<#]A^GC@)[:@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@_____"/K@@@@A@)@[1A@K@[0AA0@[\AO@@@F@@@@@@C'@@@@]]@@@G;+@@@C;MG@]G/@__" @@@@.[@@@@/G/@__"C@@@@)/@@@@1G/@__"C@@@@)'^@@@@AF@@@FLJ )@@G@@)@N[M^GCSK0.-@^G@@H/@__"]@@@@/H/@@@B8N0@@O[@-\_"C@)@@&[@@@@.G@@@@.C/@@@[LK )@@G@@[@@@[JAG@@@F)@X[F#@CSK0--##6^@@@@@@@8N0@@Z[@+J_"C@-)@AR@)@@.[@@@@.G@@@@.LL )@@G@@C/@@@[]@@@[JR@K@[>AH@@@F)@&[F][N]A^D>G]^-#@@@@@@G@@@@/C/@@@['^@@@@@@[@@BLM )@@G@@@^K@@@'^@@@@@[+@[:@[@@[G/,0@@@AI@@@F)@\[N#]@CS^GCSK0@@W/@@@B;O@@@=H@@@@/LN )@@G@@[@@@@.G@@@@/C/@@@W[@@@@/C/@@@[/K@@@3[@@@@/AJ@@@F)@9[F#@-)^GCSK0-)@@@@@@@LO )@@G@@[@@@[@G@@@@"C@@@@_A@)@@_N_)@@AR/)@@@[#)@@"[@@@[JC#)@@/AK@@@F)[][F#]A^ @KLP )@@G@@[#]A^G@@@@@@C@[@@AR@K@[[[@@@[[C/@@@)/^@@[D/C@@[BH@@@@_C@@@[@[@@@[[AL@@@FLQ )@@G@@)[F[F#@)CKESK0-G()@@@@@@@@[@@B@^K@@@'^@@@@@[5@[:@[@@[G/,0@@@8N)@@"O/)@@[LR )@@G@@[@]@@@AM@@@F)[G@S@)[O@3]MA^ @K@@@@@@G_)@@B/@@@#1/C@@#1H@@@@_C@@@[@'^@@@@LS )@@G@@)) (A2,1X(1H ,7AN@@@F)[U[F@K[#UA4H*EA4^@@@@@@C[@@@_[@-@@@C@)@@RR@K@@@LT )@@G@@[@@@@@G@@@@@C/@@@[/K@@#18N0@@;AO@@@F)[<[N#S--#@CEA4[#SC@@@@@8N0@[([@[)@@LU )@@G@@C@])@ZN_0@@YQ@K@@GR@K@[&R@)@[>G/@@@#[[[@[)AP@@@F)[![MK^@KO #S)C@@@/@@@[;LV )@@G@@/C@@[;G/@__/C@@@@@[@@@@RG@@@@RC/@@@[/@@@[3/C@@[3G/@__/AQ@@@F)[7[EK^[#]A4LW )@@G@@H*SK0-?@@@@@C@)@@]R@K@@"[@@@@"C@@@@[ @@@@@@]D@[:/K@@#9N@0@['C8)@@]AR@@@FLX )@@G@@)]@[F#]A^H*SK0-@(-#]]@@@@@L@@A@]I@[:@[@@[J/,0@@@R@0@[@[[@@[@C[@@@#R@)@@_LY )@@G@@[@)@@_AS@@@F)]D[]**DLKM+-C@@@@)[J@C@(///,1N_0@@]R/K@@['^@@@@@@K@@T@@N@@ALZ )@@G@@@@K@@T@@M@@A@@K@@TAT@@@F)[K[S@@@@@@@19HS 2(6X,0 F S, W T M T 1H S MA )@@G@@,//,02A6,I4)2(15X,A6,I4,H ,5X,AU@@@F)[V@S@)]L@3#]A@K0-)@@@@@ @@@@.[@@@[!MB )@@G@@G/@@@[T/@@@BC@@@[]A@K@[]F S))W T M T AV@@@F)]R[N#S)CV^G]A^G@@[@@@[IMC )@@G@@Q@)@[!R@)@[$G/@__"[@@@@/G/@__"C@[@@#/@@@]$G/@__"C@[@@#AW@@@F)]-[EK0--#]AMD )@@G@@^@K0-)@@@@@@[@@@@/H@@@@.C/@@@B8N)@]-[@+)@ZC@)@@&[@@@@.G@@@@.C/@@@[AX@@@FME )@@G@@)]%[N#@CS^G]A^GCS@R@)@@.[@@@@.G@@@@.C/@@@[[@)@[,[@@@[IR@0@[>G/@__"T/)@@BMF )@@G@@C@)@[]AY@@@F)]4[F#]A^GC]A^H+@-@@@@@@/,0@@@8N0@]LO/K@@[[[[@@@C[@@@/8N)@]0MG )@@G@@[@+@@ZC@<)@AO@)@[,AZ@@@F)].[E(-#]^2&[]K--#@@@@@@R@0@[*R@)@[>N_0@@^'^@@@@MH )@@G@@@@[@@P@^K@@$'^@@@@@]!@[:@[@@[YBA@@@F)#A[M@K0-!#]A^GCS@C@@@[@[@@@[[[@@@[@MI )@@G@@G@@@@_C@[@@@[#)@@_N_K@@AC_)@@[N_)@@]R/K@@[BB@@@F)#K[F#U@)]A^GCSK0@@@@@@@MJ )@@G@@G_)@@[[@#)@ZC@^@@AR[@@[[[@@@[[C/@@@)/^@@#P/C@@#NH@[@[)BC@@@F)#T[F@K6CV^[MK )@@G@@][N]A@@@@@@@@#[@[:@[@@[Y/,0@@@8N)@#CO/K@@[[@+)@@G/)@@BC@+@@@8NK@#EBD@@@FML )@@G@@)#+@<]TN@-C@)[Y@*@@@@@@@A2,1X)(5X,6(),A2,2(A2,1X(1H ,6'^@@@@@@[@@P@^K@@$MM )@@G@@'^@@@@BE@@@F)[<@C@)#&[#@^ @^ [@@@@@@C8)@@][@@@@RG@@@@RC/@@@[/@@@#1H@@@@RMN )@@G@@C/@@@G8N0@#^,A2)) BF@@@F)#,@3@K^GCKESK0@@@)[=@C@@@@@@@@@@@@@(1H0) @#F@[:MO )@@G@@@[@@[=/,0@@@@#E@[:/K@@#9N@0@#0BG@@@F)#4[F]K)C]A^GCO^G@@@@@@@[^)@[(H8)@@[MP )@@G@@/K@@@@!^)@[(@#I@[:/K@@#9N@0@#8C8)@@['^@@@@BH@@@F)#.[F#]A^GCSK0--#]A^G@@@MQ )@@G@@N#K@[7N#)@[6N#0@[5R[@@[4R@0@[3R@)@[2R@K@[19\)@[\R]0@[?BI@@@F)^A@F#@@@@@@MR )@@G@@)[(@)@@@@@@@)^B@N#] K@@@/K@@@@/K@K[(@#I E:TTY @@@@@@@@F@@@*4@K[(BJ@@@FMS )@@G@@)^D[EK0--#]A^GCSK0-)@@@@^#0@[5A[@@[4A@0@[3A@)@[2A@K@[19:)@[\[^@@[(AA0@[?MT )@@G@@C8@@@#BK@@@F)^M@V#]A^@@@)[>@)@@@@@@@@@@@@@@@@@@@@@[@@C@@[@@@@@#@@@@@[@@[MU )@@G@@/K@@@@^#K@[7^#)@[6BL@@@F@@^@@^@@C@@A@@O@@[@@S@@]@@#@[8@C@@^P@@@@X?@@@@[=MV )@@G@@NPRT$ NIO1$ NIO2$ NIO3$ NERR4$ NERR3$ MW )@@G@@TTY @@[@@@@@@@^D@@@@@@ ^@@@C@@]@@@@CTY ]@@@C@@#@@@@MX )@@G@@@@@@@@@@@@@@@K[@@@KK[@@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@MY )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@*[S@@@*SDFF*@ @@@@ SUBROUTINE SETUP ($,$,$)@#@@@@ INCLUDE COM NA )@@G@@@E@@@@ 17 READ (5,104,END=999) MON,ID,LY1,LY2,LY3,LY4,T,SM,P @]@@@@NB )@@G@@ TT = 0@]@@@@ WW = 0@E@@@@ LY = (1000 * LY1) + (100 * LY2NC )@@G@@) + (10 * LY3) + LY4 @G@@@@ IF ((MON .GT. 12) .OR. (MON .LT. 0) ND )@@G@@.OR. (ID .LT. 0)) GO TO 500 @ @@@@ IF (LY .EQ. 0) RETURN 2 @ @@@@NE )@@G@@ IF (T .EQ. 1HT) TT = 1 @ @@@@ IF (T .EQ. 1HN) TT = 2 @ @@@@NF )@@G@@ IF (T .EQ. 1HB) MODE = 1@ @@@@ IF (T .EQ. 1HD) MODE = 2@A@[@@NG )@@G@@ IF (SM .EQ. 4HUHMC) WW = 1 @A@@@[ IF (SM .EQ. 3HISD) WW = NH )@@G@@1 @A@[@@ IF (SM .EQ. 4HDUFF) GO TO 1135@A@@@[ IF (SM .EQ. NI )@@G@@3HMSG) GO TO 1135 @#@@@@ GO TO 1004 @#@@@@ 1136 PRINT 1137 @#@@@@NJ )@@G@@ RETURN 3 @]@@@@ 1135 WW = 2@^@@@@ DECODE (1138,P) PP@D@@@@NK )@@G@@ IF ((PP .LT. 1) .OR. (PP .GT. 5)) GO TO 1136 @^@@@@ DO 114NL )@@G@@0 P = 1,PP @A@@@@ 1140 READ 196, (MSG(P,T),T=1,5) @G@@@@ 1004 IF((MONM )@@G@@N .NE. 0) .AND. (ID .NE. 0) .AND. (LY .NE. 0))FIRST=FIRST+1 @A@@@@ NN )@@G@@IF (FIRST .EQ. 1) PRINT 181 @E@@@@ IF ((LY .LT. 1753) .OR. (LY .GNO )@@G@@T. 9999)) GO TO 770 @ @@@@ IF (LY1 .EQ. 0) LY1 = 10@ @@@@ NP )@@G@@IF (LY2 .EQ. 0) LY2 = 10@ @@@@ IF (LY3 .EQ. 0) LY3 = 10@ @@@@ NQ )@@G@@IF (LY4 .EQ. 0) LY4 = 10@A@@@@ MO = 1 - (MON + 15) / 16 + MON@#@@@@NR )@@G@@ RETURN 1 @ @@@@ 500 PRINT 106, MON, ID, LY @#@@@@ GO TO NS )@@G@@17 @ @@@@ 770 PRINT 179, MON, ID, LY @#@@@@ GO TO 17 @#@@@@NT )@@G@@ 999 RETURN 3 @B@[@@ 104 FORMAT (I2,1X,I2,1X,4I1,A1,A4,A1) @B@@@[NU )@@G@@ 104 FORMAT (I2,1X,I2,1X,4I1,A1,A3,A1) @G@@@@ 106 FORMAT (1H0I2,I3,INV )@@G@@5,'? GO TO JAIL - DO NOT PASS GO, DO NOT COLLECT@#@@@@ * $200') NW )@@G@@@E@@@@ 179 FORMAT (1H0I2,I3,I5,'? CALENDAR COVERS 1753-9999') @#@@@@NX )@@G@@ 181 FORMAT (1H1)@#@@@@ 196 FORMAT (5A6)@D@@@@ 1137 FORMAT ('0SORRY, ONY )@@G@@NLY 1-5 LINES FOR MESSAGE') @#@@@@ 1138 FORMAT (I1) @]@@@@ END NZ )@@G@@___.210 .079 .021 @J@[@@ 2 179 180 15 2500.0 2500.0 25000.OA )@@G@@0 24000.0 11.040 .460 2.100 .754 -2.979 @J@[@@ 3 150 151 OB )@@G@@)@@[F]^()O0K0K]+OM+OK@@@@@K@@V@@K@@U@@K@@S@@K@@Q@@]@#H@[A@@0@@@@@#@]@@@&OC )@@G@@/,0@@@AA@@@F)@D[E*>^()O0ESCLCE]))@@@C@@@@V @@@@Y @@@X&'^@@@@@@K@@]@@K@@[OD )@@G@@@@K@@@@@K@@X@@K@@WAB@@@F)@M[MKKKKKO^@@@@@@C/@@@[[@)@@TG@)@@XG@)@@GT/)@@EOE )@@G@@C@)@@WG@@@@IT/)@J*C@)@@UT/@@[=AC@@@F)@W[V[@[[@@@)@@@@K @@@@K1@@@@M*@@@@MOF )@@G@@H[)@@QC.)@@GC.@@@[ @@@@G0@@@@K*@@@@KD[@@@QAD@@@F)@$[MKK[@KO@@@@@@@C8)@@]OG )@@G@@/K@@@4*@@@@T/>K@].)[@@@H @@@@K0@@@@M*@@@@MD[)@@SC.@@@[AE@@@F)@1[F@K^G^G^OH )@@G@@G^@KOG@@@@@@C@@@@@[@@@X&C/@@@[/^@@@9H@@@@$C@@@@@@[R@@0/K@@#LN@0@@3AF@@@FOI )@@G@@)@'[F#[@^ #[#[@^^@@@@@@@[@@@@OC/@@@[/^@@[#H@@@@(C@@@@@[@@@X&C/@@@]/^@@@"OJ )@@G@@H@@@@*AG@@@F)[#[F#[#[@^ #[#[@@@@@@@@C/@@@[/^@@[HH@@@@:C@@@@[[@@@@OC/@@@]OK )@@G@@/^@@[CH@@@@%C@@@@@AH@@@F)[G[F[K0K0K^[]G()-)-^@@@'^@@@@@[>@@0@[@@@Y/,0@@@OL )@@G@@/K@@[_/@@@[TH@@@@?C@@@@[[@@@@YAI@@@F)[P[EK^[#@KOC]&[N@@@@@@@@@@@@]@[@@@>OM )@@G@@/,0@@@[@@@@YC/@@@]@[$@@0/K@@#LN@0@[SC8)@@#AJ@@@F)[Y[N#@**L@))@@@@@C/)@@[ON )@@G@@ @@@@G1@@@@I*@@@@IH@)@@ZC/)@@ C/@@@['^@@@@@@K@@Z@[(@@0AK@@@F)[*[N[@[@KL#OO )@@G@@@@@@@@R@K@@!G/@__"C@@@@Z/=K@[L)@@@@I @@@@I1@@@@K*@@@@KG.@__"C[@@@ZAL@@@FOP )@@G@@)[2[EK=ESCS]]-E)CL@@@@@@'^@@@@8N)@[7'^K@@@C/[)@'N_)@@^@[1@@0@[@@@X/,0@@@OQ )@@G@@[@@@[JAM@@@F)[;[U[@^^^^@+@@@@I @@@@I(@@@@QC/)@@[ @@@@G(@@@@SC/@@@[8N0@[3OR )@@G@@]@@@@['O@@@[C/@@@SAN@@@F)]A[MKKK[[KL[@@@@@H@@@@NC/@@@[[@@@@NG@@@@NC/@@@[OS )@@G@@/)0@]I+@)@@H @@@@I(@@@@TC/)@@[AO@@@F)]K[N@K ]D@K@@@@X?NDCOD$ NRDU$ NIO2$ PL )@@G@@ NPRT$ NRDC$ NIO1$ NERR4$ NERR3$ SETUP PM )@@G@@ @@[@@@@@@@#X@@@@@@ ^@@@C@@]@@@@+OK@@@@@K@@V@@K@@U@@K@@S@@K@@QPN )@@G@@@@]@#H@[A@@0@@@@@#@]@@@&/,0@@@AA@@@F)@D[E*>^()O0ESCLCE]))@@@C@@@@V @@@@YPO )@@G@@ @@@X&'^@@@@@@K@@]@@K@@[@@K@@@@@K@@X@@K@@WAB@@@F*[S@@@*SDFF*@[@@@#. PP )@@G@@@B@@@#. MINUS2 - RANDOM NUMBER GENERATOR@[@@@^. @F@@@^. PQ )@@G@@ I THINK THIS WAS WRITTEN BY J. ARTHUR GREENWOOD AT NYU. @[@@@#. PR )@@G@@@#@@@[ AXR$ @[@@@[$(0). @D@^@[RESULT + 0 PS )@@G@@ . 043740 ??? @E@@@^RESULT + 0 . PT )@@G@@RANDOM INTEGER @C@]@[ + 0 . 741PU )@@G@@@C@^@]SEED1 + 0 . 741@B@@@^SEED1 + PV )@@G@@ 0 . @C@]@[ + 0 PW )@@G@@ . 742@C@^@]SEED2 + 0 . 742@B@@@^PX )@@G@@SEED2 + 0 . @C@#@[ + 0377PY )@@G@@777777777 . 743@C@^@#MASK + 0377777777777 . PZ )@@G@@ 743@B@@@^MASK + 0377777777777 . @C@#@[ + QA )@@G@@ 0537441 . 744@C@^@#MULT1 + 0537441 QB )@@G@@ . 744@B@@@^MULT1 + 0537441 . @C@#@[QC )@@G@@ + 0537445 . 745@C@^@#MULT2 + QD )@@G@@ 0537445 . 745@B@@@^MULT2 + 0537445 QE )@@G@@ . @F@^@[RETURN + X11,0 . 746 RETURN ADDRQF )@@G@@ESS @F@@@^RETURN + X11,0 . RETURN OFFSET IN HQG )@@G@@2 @C@^@[ + 0 . 747@C@]@[ QH )@@G@@ 'MINUS2' . 750@G@^@]SUBNAME 'MINUS2' QI )@@G@@ . 750 SUBROUTINE NAME FOR WB @F@@@^SUBNAME 'MINUS2'QJ )@@G@@ . SUBROUTINE NAME FOR WB @C@^@[CALLADDR + QK )@@G@@ 0125,022151 . 751@F@@@^CALLADDR + 0125,0 QL )@@G@@ . CALL ADDRESS SAVED HERE @C@^@[ + 0 QM )@@G@@ . 752@F@^@[ARGADDR + 0 . 753 ARGUMQN )@@G@@ENT ADDRESS @E@@@^ARGADDR + 0 . ARUGMENT ADDQO )@@G@@RESS @C@^@[X1SAVE + 0 . 754@D@@@^X1SAVEQP )@@G@@ + 0 HOLDER FOR X1 @[@@@[$(1). @[@@@[. QQ )@@G@@@A@@@[. RETURN RANDOM INTEGER @[@@@[. @ @]@[M1 LAQR )@@G@@ A0,043741 @F@@@]M1 LA A0,SEED1 . LOAD WQS )@@G@@ORD 1 OF SEED @ @]@[ MSI A0,043744 @C@#@] MSQT )@@G@@I A0,043744 . FARBLE@C@@@# MSI A0,MULT1 QU )@@G@@ . FARBLE@ @]@[ AND A0,043743 @B@#@] ANQV )@@G@@D A0,043743 . @B@@@# AND A0,MASK QW )@@G@@ . @^@]@[ AA,XU A1,1@B@@@] AA,XU A1,1 QX )@@G@@ . @ @]@[ DSC A0,36 @B@@@] DSC QY )@@G@@ A0,36 . @ @]@[ AND A0,043743 @B@#@] QZ )@@G@@ AND A0,043743 . @B@@@# AND A0,MASK RA )@@G@@ . @ @]@[ SA A1,043741 @F@@@] SA RB )@@G@@ A1,SEED1 . UPDATE WORD 1 OF SEED @ @]@[ LA RC )@@G@@ A0,043742 @F@@@]M1A LA A0,SEED2 . LOAD WORD 2 RD )@@G@@OF SEED @ @]@[ MSI A0,043745 @C@#@] MSI RE )@@G@@ A0,043745 . FARBLE@C@@@# MSI A0,MULT2 RF )@@G@@ . FARBLE@ @]@[ AND A0,043743 @B@#@] AND RG )@@G@@ A0,043743 . @B@@@# AND A0,MASK . RH )@@G@@@^@]@[ AA,XU A1,5@B@@@] AA,XU A1,5 RI )@@G@@ . @ @]@[ DSC A0,36 @B@@@] DSC A0,3RJ )@@G@@6 . @ @]@[ AND A0,043743 @B@#@] ANRK )@@G@@D A0,043743 . @B@@@# AND A0,MASK RL )@@G@@ . @ @]@[ SA A1,043742 @F@@@] SA A1,SRM )@@G@@EED2 . UPDATE WORD 2 OF SEED @ @]@[ TNZ 0437RN )@@G@@42 @F@@@] TNZ SEED2 . WORD 2 OF SEED ZERRO )@@G@@O? @ @]@[ J 010747 @F@@@] J M1A RP )@@G@@ . YES, GO FARBLE SOME MORE@[@@@#. @A@@@#. NORQ )@@G@@W FORM RANDOM INTEGER @[@@@#. @ @]@[ LA A2,043741 RR )@@G@@@F@@@] LA A2,SEED1 . LOAD WORD 1 OF SEED RS )@@G@@@ @#@[ SSC A2,16 @C@@@# SSC A2,16 RT )@@G@@ . FARBLE@ @#@[ AND A2,043743 @B@@@# ANRU )@@G@@D A2,MASK . @ @]@[ ANA A3,043742 @ @#@]RV )@@G@@ ANA A3,SEED2 @F@@@# ANA A3,SEED2 RW )@@G@@ . SUBTRACT WORD 2 OF SEED @ @#@[ LNA A2,A3 @E@@@#RX )@@G@@ LNA A2,A3 . GET COMPLEMENT @ @#@[ RY )@@G@@ AND A2,043743 @C@@@# AND A2,MASK . RZ )@@G@@FARBLE@ @#@[ SA A3,RESULT @D@@@# SA A3,RSA )@@G@@ESULT . SAVE RESULT @ @#@[ LR R3,D1 @D@@@#SB )@@G@@ LR R3,D1 . GET WB INFO @^@#@[ J SC )@@G@@ DONE@D@@@# J DONE . ALL DONE SD )@@G@@@B@]@[D1 I$ 0,0,4,X11,0,043750 @D@@@]D1 + SE )@@G@@ 0113,SUBNAME . WB INFO @[@@@[. @ @@@[. GET CURRSF )@@G@@ENT SEED @[@@@[. @ @]@[M2 LX X1,ARGADDR@F@@@]M2 SG )@@G@@ LX X1,ARGADDR . GET ARGUMENT ADDRESS @ @]@[ SH )@@G@@ LA A0,043741 @F@@@] LA A0,SEED1 . SI )@@G@@LOAD WORD 1 OF SEED @ @]@[ SA A0,0,X1 @C@@@] SJ )@@G@@ SA A0,0,X1 . STORE @ @]@[ LA A2,0SK )@@G@@43742 @F@@@] LA A2,SEED2 . LOAD WORD 2 OF SEESL )@@G@@D @ @]@[ SA A2,1,X1 @C@@@] SA A2,1SM )@@G@@,X1 . STORE @ @]@[ LR R3,D2 @D@@@] SN )@@G@@ LR R3,D2 . GET WB INFO @^@]@[ J SO )@@G@@ DONE@D@@@] J DONE . ALL DONE @A@]@[SP )@@G@@D2 I$ 0,0,5,0,0,043750@D@@@]D2 + 0120,SUBNASQ )@@G@@ME . WB INFO @[@@@[. @#@@@[. SET SEED@[@@@[. SR )@@G@@@F@@@[M3 LX X1,ARGADDR . GET ARGUMENT ADDRESS SS )@@G@@@F@@@[ LA A0,0,X1 . LOAD WORD 1 OF VALUE ST )@@G@@@E@]@[ SA A0,043741 . STORE IN SEED @C@@@]SU )@@G@@ SA A0,SEED1 . STORE @ @]@[ LA SV )@@G@@ A2,1,X1 @F@@@] LA A2,1,X1 . GET WORD 2 OSW )@@G@@F VALUE @ @]@[ SA A2,043742 @C@@@] SA SX )@@G@@ A2,SEED2 . STORE @ @]@[ LR R3,D3 @D@@@]SY )@@G@@ LR R3,D3 . GET WB INFO @^@]@[ J SZ )@@G@@ DONE@D@@@] J DONE . ALL DONE TA )@@G@@@B@]@[D3 I$ 0,0,5,X5,0,043750 @D@@@]D3 + TB )@@G@@ 0125,SUBNAME . WB INFO @F@@@[DONE LX X11,CALLADTC )@@G@@DR . RETRIEVE CALLING ADDRESS@D@@@[ LX X1,X1SAVE TD )@@G@@ . RESTORE X1 @D@@@[ LA A0,RESULT . TE )@@G@@GET RESULT @G@@@[ TZ,S1 *RETURN . INSTRUCTION TF )@@G@@AT RETURN ADDR? @E@@@[ J *RETURN . YES, RTG )@@G@@ETURN TO IT @C@@@[ J NERR3$ . NO @[@@@^TH )@@G@@. @F@@@[SETUP SX,H2 X11,CALLADDR . SAVE CALLING ADDRETI )@@G@@SS @E@@@[ SA,H2 A0,RETURN . SET RETURN OFFSET TJ )@@G@@@D@@@[ SX X1,X1SAVE . SAVE X1 @E@@@[ TK )@@G@@ J 0,A1 . RETURN TO CALLER @[@@@^. @A@ @^TL )@@G@@. OBTAIN RANDOM INTEGER @F@@@ . OBTAIN RANDOM INTEGETM )@@G@@R (POSITIVE, FROM 0 TO (2**35)-1 ). @[@@@^. @B@@@^. FORTRAN:TN )@@G@@ I = MINUS2(DUMMY) @[@@@ . @D@@@ . TO OBTAINS RANDOM NUTO )@@G@@MBER BETWEEN 1 AND 100: @[@@@ . @A@@@ . I = MINUS2TP )@@G@@(-1) @B@@@ . I = MOD(I,100) + 1 @[@@@^. @]@@@[TQ )@@G@@MINUS2* . @F@@@[ LA,U A0,2 . INDICATE 1 ATR )@@G@@RGUMENT @B@@@[ LMJ A1,SETUP . @^@#@[ TS )@@G@@ J M1 @G@@@# J M1 . ENTER TT )@@G@@RANDOM NUMBER ROUTINE @[@@@^. @G@@@^. OBTAIN CURRENT RANDOTU )@@G@@M NUMBER GENERATOR SEED FOR LATER RESET. @[@@@^. @A@@@^. FOTV )@@G@@RTRAN: INTEGER SEED(2) @B@@@^. CALL MI2GET(SEED) TW )@@G@@@[@@@^. @]@@@[MI2GET* . @F@@@[ LA,U A0,2 TX )@@G@@ . INDICATE 1 ARGUMENT @B@@@[ LMJ A1,SETUP TY )@@G@@ . @F@@@[ LA,U A0,*0,X11 . GET ARGUMENT ADDRETZ )@@G@@SS @D@@@[ SA A0,ARGADDR . SAVE IT @^@#@[UA )@@G@@ J M2 @F@@@# J M2 . UB )@@G@@ENTER GET-SEED ROUTINE @[@@@^. @B@@@^. RESET GENERATOR TO PUC )@@G@@REVIOUS SEED@[@@@^. @A@@@^. FORTRAN: INTEGER SEED(2) @B@@@^UD )@@G@@. CALL MI2SET(SEED) @[@@@^. @]@@@[MI2SET* . UE )@@G@@@F@@@[ LA,U A0,2 . INDICATE 1 ARGUMENT UF )@@G@@@B@@@[ LMJ A1,SETUP . @E@@@[ LA,U UG )@@G@@ A0,*0,X11 . GET ARGUMENT ADDR @D@@@[ SA A0,AUH )@@G@@RGADDR . SAVE IT @^@#@[ J M3 @F@@@# UI )@@G@@ J M3 . ENTER SET-SEED ROUTINE @[@@@^. UJ )@@G@@@#@@@[ END ___ TNZ 043742 @F@@@] TNUK )@@G@@Z SEED2 . WORD 2 OF SEED ZER)@@[S@@@@@@@@@@@@@@@@@@@UL )@@G@@@[P@@@MINUS2@@F@@@@@@:/>@@@:/-Z_____@@@@@@@@@@@@@@@@@@AA@@[=)@@[##@[#@[#UM )@@G@@@@^G@^G@^G@@@@@@@@C@@@@][@K@@[+@@@@#;^@@@=G/K@@[+@@@@#T@@@@^C@@@@[AB@@[=UN )@@G@@)@C[##@[#@@^G@^G@^G@^@@@@@@@@@/K@@@B(@@@@][@K@@]+@@@@#;^@@@=G/K@@ +@@@@#UO )@@G@@T@@@@ AC@@[=)@K[F#@@K0@K0@^G@^G@^[@@/K@@@%N@0@@T[@0@@@+@)@@#D@)@@JH@0@@]UP )@@G@@+@)@@#;@)@@KC@)@@[AD@@[=)@T[E()@-)@-)@CS@]@) G@@@[K@@B/K@@@%N@0@@-[@-@@[UQ )@@G@@C@)@@][@[@@@C@@@@[R@K@@D@[F@@BAE@@[=)@+[F#@@K0@^G@^[@ES@CS@@R]0@@C@[P@@BUR )@@G@@/K@@@%N@0@@([@)@@]C@-@@[[@@@@[C@[@@@R@K@@DAF@@[=)@:[##@[#@[#@[#@[]@[#@[#US )@@G@@@[#@@@A@K@@E[^@@@AAA0@@C/K@@@@/K@K@A*4@K@AC@@@@@R@K@@EAG@@[=)@3[M^[@^@K0UT )@@G@@@K@@@@C8@@@]/K@@@U[@@@@DC8FK@@/\K@@0C8@@@]/K@@@@/\K@@0C8@@@]/KH@@@AH@@[=UU )@@G@@)@.@<@^G@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@+[@@@@DC8FK@@UV )@@G@@/\K@@0AI@@[=@@@@@@ LA A2,SEED2 . LOAD WORD 2 OF SEEUW )@@G@@D @ @]@[ SA@@^@@]@@A@@[@@C@@#@@O@@@@@@@@F@@@@[[NERR3$ UX )@@G@@MINUS2 @@[@@@@@@@@4MI2GET @@[@@@@@@@@7MI2SET @@[@@@@@@@@/UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@ @@@@C UZ )@@G@@CALENDAR DISPLAY, PART 2@@@@@@@^@@@[ COMPILER (FLD=ABS)@ @@@@ VA )@@G@@SUBROUTINE DSPLA2 ($,$) @ @@@@ DIMENSION M(14), NU(11) @#@@@@ VB )@@G@@INCLUDE COM @E@@@@ DATA NU/O043020410216,O350411442076,O35041140613VC )@@G@@4, @F@@@@ *O043124574204,O770207406134,O042107506134,O76041042102VD )@@G@@0, @D@@@@ *O350613506134,O350613610420,O350614306134,O0/ @A@@@@VE )@@G@@ DATA BLANKS/O050505050505/ @#@@@@ P = KD(1) @ @@@@ VF )@@G@@IF (P .NE. 1) GO TO 402 @]@@@@ TM = 1@#@@@@ GO TO 450 @#@@@@VG )@@G@@ 402 P = P - 2 @#@@@@ PRINT 162 @^@@@@ DO 312 G = 1,7 VH )@@G@@@^@@@@ DO 412 QQ = 0,P @ @@@@ M(2*QQ + 1) = BLANKS @ @@@@VI )@@G@@ 412 M(2*QQ + 2) = BLANKS @ @@@@ IF (G .EQ. 1) P = P + 1 @]@@@@VJ )@@G@@ SM = 0@^@@@@ DO 311 QQ = P,6 @#@@@@ SM = SM + 1 @]@@@@VK )@@G@@ S = 11@]@@@@ T = SM@B@@@@ IF (HOLDAY(MO,SM) .EQ. 0) GO TVL )@@G@@O 313 @A@@@@ S = 2 * HOLDAY(MO,SM) + 3 @ @@@@ M(2*QQ + 1) VM )@@G@@= C(S,G) @ @@@@ M(2*QQ + 2) = C(S+1,G) @#@@@@ GO TO 311 VN )@@G@@@^@@@@ 313 R = G * 5 - 5 @ @@@@ M(2*QQ + 1) = BLANKS @ @@@@VO )@@G@@ M(2*QQ + 2) = BLANKS @^@@@@ DO 10 Y = 0,24,6 @E@@@@ VP )@@G@@IF (FLD(R,1,NU(S)) .EQ. 1) FLD(Y,6,M(2*QQ+1)) = 40 @E@@@@ IF (FLVQ )@@G@@D(R,1,NU(T)) .EQ. 1) FLD(Y,6,M(2*QQ+2)) = 40 @#@@@@ 10 R = R + 1 VR )@@G@@@#@@@@ 311 CONTINUE @#@@@@ PRINT 160, M@#@@@@ 312 CONTINUE VS )@@G@@@#@@@@ TM = SM + 1 @@@@@@@A@@@@C SECTION 9 - REST OF CALENDAR VT )@@G@@@@@@@@@#@@@@ 450 SM = TM + 28@ @@@@ IF (TM .EQ. 1) GO TO 451@#@@@@VU )@@G@@ PRINT 161 @#@@@@ GO TO 452 @#@@@@ 451 PRINT 162 @^@@@@VV )@@G@@ 452 DO 90 R = TM,SM,7@^@@@@ DO 85 G = 1,7 @^@@@@ DO 80 VW )@@G@@ QQ = 0,6 @#@@@@ P = R + QQ @ @@@@ IF (P - NEWMON) ,13,13 VX )@@G@@@ @@@@ S = 2 * HOLDAY(MO,P) + 3@^@@@@ IF (S-3) 314,,314 @#@@@@VY )@@G@@ S = P/10 @ @@@@ IF (S .EQ. 0) S = 11 @^@@@@ T = MOVZ )@@G@@D(P,10) @ @@@@ IF (T .EQ. 0) T = 10 @E@@@@ 314 IF((KD(31) .WA )@@G@@EQ. 2) .AND. (NEWMON .GT. 31)) GO TO 243 @E@@@@ IF((KD(30) .EQ. 1)WB )@@G@@ .AND. (NEWMON .GT. 30)) GO TO 241 @E@@@@ IF((KD(31) .EQ. 1) .AND.WC )@@G@@ (NEWMON .GT. 31)) GO TO 242 @^@@@@ Y = NEWMON - 1 @A@@@@ 11 WD )@@G@@IF (HOLDAY(MO,P)) 245,,245 @^@@@@ I = 5 * G - 5 @ @@@@ WE )@@G@@M(2*QQ + 1) = BLANKS @ @@@@ M(2*QQ + 2) = BLANKS @^@@@@ WF )@@G@@DO 12 J = 0,4 @E@@@@ IF (FLD(I+J,1,NU(S)) .EQ. 1) FLD(J*6,6,M(2WG )@@G@@*QQ+1)) = 40@E@@@@ 12 IF (FLD(I+J,1,NU(T)) .EQ. 1) FLD(J*6,6,M(2*QQ+2)WH )@@G@@) = 40@#@@@@ GO TO 80 @ @@@@ 13 M(2*QQ + 1) = BLANKS @ @@@@WI )@@G@@ M(2*QQ + 2) = BLANKS @#@@@@ GO TO 80 @ @@@@ 241 IF (P WJ )@@G@@.NE. 23) GO TO 11 @]@@@@ S = 1 @]@@@@ Y = 29@#@@@@ GO TO WK )@@G@@245 @ @@@@ 242 IF (P .NE. 24) GO TO 11 @]@@@@ S = 3 @]@@@@ WL )@@G@@Y = 30@#@@@@ GO TO 245 @D@@@@ 243 IF ((P .NE. 23) .AND. (P .NE. WM )@@G@@24)) GO TO 11 @]@@@@ S = 1 @ @@@@ IF (P .EQ. 24) S = 3 WN )@@G@@@]@@@@ Y = 29@ @@@@ 245 M(2*QQ + 1) = C(S,G) @ @@@@ M(2*QQWO )@@G@@ + 2) = C(S+1,G) @#@@@@ 80 CONTINUE @#@@@@ 85 PRINT 160, M@ @@@@WP )@@G@@ IF (P .GE. Y) GO TO 751 @#@@@@ 90 PRINT 161 @A@@@@ 751 IF (MOWQ )@@G@@ .EQ. 12) GO TO 752 @#@@@@ MO = MO + 1 @^@@@@ IF (MON) 17,WR )@@G@@18,17 @#@@@@ 752 PRINT 162 @#@@@@ 17 RETURN 1 @#@@@@ 18 RETURNWS )@@G@@ 2 @B@@@@ 160 FORMAT (1H ,5(2A6,8X),2A6,7X,2A6) @^@@@@ 161 FORMATWT )@@G@@ (/,1H0) @#@@@@ 162 FORMAT (1H0)@]@@@@ END ___G,T ED$$RECOVERWU )@@G@@Y,///1000 . ED$$RECOVERY@CAT 411044456200*ED$$A.,F4/2//4000 . @USE WV )@@G@@ED$$A,411044456200*ED$$A . @FREE,D ED$$A . *[S@@@*SDFF*@ @@@@C WW )@@G@@SECTION 4 - HOLIDAYS @@@@@@@^@@@[ COMPILER (FLD=ABS)@ @@@@ WX )@@G@@SUBROUTINE HOLS ($,$) @F@@@@ DIMENSION LIN(8,12), WORD(8,12), ENDWY )@@G@@(7), LETTER(92), Q(7,12)@#@@@@ INCLUDE COM @ @@@@ EQUIVALENCE WZ )@@G@@(WORD, Q) @^@@@@ DATA BLANK/1H / @^@@@@ DO 1 Y = 71,74 XA )@@G@@@^@@@@ 1 LETTER(Y) = BLANK @C@@@@ READ (0,191) G, HDAY, (LETTER(XB )@@G@@Y), Y=1,70) @F@@@@ IF (LETTER(70) .EQ. 1H+) READ 196, (LETTER(Y), YXC )@@G@@=70,92) @^@@@@ NUM = NUM + 2 @^@@@@ IRIS = IRIS + 1 XD )@@G@@@A@@@@ IF (IRIS .GT. 100) GO TO 598 @A@@@@ JOY = HDAY(1) * 10XE )@@G@@ + HDAY(2) @G@@@@ IF((JOY.LT.1).OR.(JOY.GT.31).OR.(G.LT.1).OR.(G.GXF )@@G@@T.12)) GO TO 500 @ @@@@ HOLDAY(G,JOY) = IRIS @^@@@@ DO 87 XG )@@G@@SM = 1,8 @^@@@@ DO 87 TM = 1,12 @^@@@@ LIN(SM,TM) = BLANKXH )@@G@@@ @@@@ 87 WORD(SM,TM) = BLANK @B@@@@ HDAY(1) = (HDAY(1) + 48)XI )@@G@@ * (2 ** 30)@B@@@@ HDAY(2) = (HDAY(2) + 48) * (2 ** 30)@A@@@@ XJ )@@G@@IF (JOY .LT. 10) GO TO 92 @#@@@@ GO TO 94 @^@@@@ 92 HDAY(1XK )@@G@@) = HDAY(2) @^@@@@ HDAY(2) = BLANK @#@@@@ 94 JOY = 1 @^@@@@XL )@@G@@ DO 42 Y = 1,91 @B@@@@ IF (LETTER(Y) .NE. BLANK) GO TO 42 XM )@@G@@@#@@@@ 49 END(JOY) = Y@B@@@@ IF (LETTER(Y+1).EQ.BLANK) GO TO 43 XN )@@G@@@^@@@@ JOY = JOY + 1 @ @@@@ IF (JOY.GT.7) GO TO 800 @C@@@@XO )@@G@@ 42 IF (LETTER(Y) .EQ. 1H@) LETTER(Y) = BLANK @]@@@@ 43 GO = 1@^@@@@XP )@@G@@ DO 44 SM = 1,JOY @ @@@@ HOWBIG = END(SM) - GO @A@@@@ XQ )@@G@@IF (HOWBIG .GT. 12) GO TO 801 @^@@@@ LAST = END(SM) - 1@#@@@@ XR )@@G@@IRK = 1 @ @@@@ DO 45 Y = GO, LAST @ @@@@ WORD(SM,IRK)XS )@@G@@ = LETTER(Y)@^@@@@ 45 IRK = IRK + 1 @A@@@@ SHIFT = (12 - HOWBXT )@@G@@IG) / 2 @ @@@@ DO 48 Y = 1,HOWBIG @A@@@@ 48 LIN(SM,Y+SHIXU )@@G@@FT) = WORD(SM,Y) @^@@@@ 44 GO = END(SM) + 1 @^@@@@ DO 84 QY = 1XV )@@G@@,7 @^@@@@ DO 84 QX = 1,12 @^@@@@ 84 Q(QY,QX) = BLANK @^@@@@XW )@@G@@ DO 46 QY = 1,7 @^@@@@ DO 46 QX = 1,12 @B@@@@ GO TO XX )@@G@@(51,54,54,54,55,56,57), JOY @ @@@@ 57 Q(QY,QX) = LIN(QY,QX) @#@@@@XY )@@G@@ GO TO 46 @^@@@@ 56 Q(1,6) = HDAY(1) @^@@@@ Q(1,7) = HDAXZ )@@G@@Y(2) @ @@@@ Q(QY+1,QX) = LIN(QY,QX) @#@@@@ GO TO 46 @^@@@@YA )@@G@@ 55 Q(1,6) = HDAY(1) @^@@@@ Q(1,7) = HDAY(2) @ @@@@ Q(QY+2YB )@@G@@,QX) = LIN(QY,QX) @#@@@@ GO TO 46 @^@@@@ 54 Q(2,6) = HDAY(1) YC )@@G@@@^@@@@ Q(2,7) = HDAY(2) @ @@@@ Q(QY+3,QX) = LIN(QY,QX) @#@@@@YD )@@G@@ GO TO 46 @^@@@@ 51 Q(3,6) = HDAY(1) @^@@@@ Q(3,7) = HDAYE )@@G@@Y(2) @ @@@@ Q(QY+4,QX) = LIN(QY,QX) @#@@@@ 46 CONTINUE @^@@@@YF )@@G@@ DO 62 Y = 1,7 @^@@@@ DO 62 S = 0,5 @C@@@@ FLD(S*YG )@@G@@6,6,C(NUM,Y)) = FLD(0,6,Q(Y,S+1)) @C@@@@ 62 FLD(S*6,6,C(NUM+1,Y)) = YH )@@G@@FLD(0,6,Q(Y,S+7)) @#@@@@ RETURN 1 @ @@@@ 500 PRINT 106, MON, IDYI )@@G@@, LY @#@@@@ RETURN 1 @#@@@@ 598 PRINT 105 @#@@@@ RETURNYJ )@@G@@ 2 @^@@@@ 800 PRINT 195, G, HDAY@#@@@@ RETURN 1 @^@@@@ 801 YK )@@G@@PRINT 193, G, HDAY@#@@@@ RETURN 1 @C@@@@ 105 FORMAT ('0TOO MANYYL )@@G@@ HOLIDAYS -- I QUIT!') @G@@@@ 106 FORMAT (1H0I2,I3,I5,'? GO TO JAIL - YM )@@G@@DO NOT PASS GO, DO NOT COLLECT@#@@@@ * $200') @G@@@@ 193 FORMATYN )@@G@@(1H0I2,1H/2A1,' HOLIDAY CONTAINS WORD EXCEEDING MAX LENGTH')@A@@@@ 191 YO )@@G@@FORMAT (I2,1X,2I1,5X,70A1) @G@@@@ 195 FORMAT (1H0,I2,'/',2A1,' HOLIDYP )@@G@@AY CONTAINS MORE THAN 7 WORDS') @^@@@@ 196 FORMAT (1X,23A1) @]@@@@YQ )@@G@@ END ___^?;:8)@@@*[S@@@*SDFF*@A@@@@C RANDOM DESIGNS (RECTANGUYR )@@G@@LAR) @@@@@@@^@@@[ COMPILER (FLD=ABS)@^@@@@ SUBROUTINE SKETCH YS )@@G@@@D@@@@ DIMENSION MARK(10), PICTUR(13,20), LINE(20) @#@@@@ YT )@@G@@INCLUDE COM @G@@@@ DATA (MARK(I),I=1,10)/3H ,3H ,3H ,3H ,3HYU )@@G@@\\\,3H ,3H///,3H@^@@@@ * ,3H***,3H / @ @@@@ IF (TT .NE. YV )@@G@@1) PRINT 172@ @@@@ IF (TT .EQ. 1) PRINT 173@^@@@@ DO 780 M = YW )@@G@@1,13 @^@@@@ DO 780 L = 1,10 @ @@@@ DO 780 J = 0,18,18 YX )@@G@@@^@@@@ TY = MINUS2(-1) @^@@@@ TY = MOD(TY,9) + 1@C@@@@ 780 YY )@@G@@FLD(J,18,PICTUR(M,L)) = FLD(0,18,MARK(TY))@^@@@@ DO 782 M = 1,13 YZ )@@G@@@^@@@@ DO 782 L = 11,20 @ @@@@ DO 782 J = 0,18,18 @#@@@@ZA )@@G@@ I = 21 - L @^@@@@ K = 0 - (J - 18) @A@@@@ TY = FLD(J,1ZB )@@G@@8,PICTUR(M,I)) @B@@@@ IF (TY .EQ. 6H@@@///) TY = 6H +++ @B@@@@ZC )@@G@@ IF (TY .EQ. 6H@@@\\\) TY = 6H /// @B@@@@ IF (TY .EQ. 6H +ZD )@@G@@++) TY = 6H \\\ @C@@@@ 782 FLD(K,18,PICTUR(M,L)) = FLD(18,18,TY) ZE )@@G@@@^@@@@ DO 1 L = 1,20 @ @@@@ PICTUR(1,L) = 6H****** @^@@@@ZF )@@G@@ 1 PICTUR(2,L) = 6H @^@@@@ DO 2 I = 2,13 @B@@@@ FLD(0,ZG )@@G@@18,PICTUR(I,1)) = 6H ** @B@@@@ 2 FLD(18,18,PICTUR(I,20)) = 6H ZH )@@G@@ ** @G@@@@ PRINT 174, ((PICTUR(L,M),M=1,20),(PICTUR(L,N),N=1,20),ZI )@@G@@L=1,13) @^@@@@ DO 4 I = 13,1 @^@@@@ DO 3 J = 1,20 ZJ )@@G@@@^@@@@ DO 3 K = 0,18,18 @A@@@@ TY = FLD(K,18,PICTUR(I,J)) ZK )@@G@@@B@@@@ IF (TY .EQ. 6H@@@///) TY = 6H +++ @B@@@@ IF (TY .EQ. ZL )@@G@@6H@@@\\\) TY = 6H /// @B@@@@ IF (TY .EQ. 6H +++) TY = 6H \\\ ZM )@@G@@@B@@@@ 3 FLD(K,18,LINE(J)) = FLD(18,18,TY) @D@@@@ 4 PRINT 174, (ZN )@@G@@LINE(J),J=1,20), (LINE(K),K=1,20) @]@@@@ RETURN@ @@@@ 172 FORMATZO )@@G@@ (1H1,//////) @^@@@@ 173 FORMAT (1H1,//) @ @@@@ 174 FORMAT (1H ,ZP )@@G@@5X,20A6) @]@@@@ END ___ DO 84 QY = 1,7 @^@@@@ DO 84 ZQ )@@G@@)@I[S@@@@@@@@@@@@@XAGS1WXAF1^KXAF*1W"^C+CK^LB*1W_]B)1W^TO\+^X^D)1WX^D=K"ZR )@@G@@^SK-]IAA@@@F)@T@C@)@@[#[K0C@--@K0@@@C@@@@U/K@@][[@@@@VC/@@@[/^@@@BG/@__"ZS )@@G@@[@@@@UC@@@@) AB@@@F)@C[EK0-@(-#]^KK0@@@@@@@[#0@@WN_0@@AC_0@@['^@@@@ZT )@@G@@@[N@@0@[@@@:/,0@@@[@@@@UG/@__.AC@@@F)@L[F#@-)^GCSK0-)@@@@@@@N#)@@UR@K@@?ZU )@@G@@[@)@@3[@@@@2G/)__'T/)@@ C@)@@WT/@@#GC@@@@WAD@@@F)@U[F#]A^GC@--@^G@@@@@@@ZV )@@G@@G@@@@UC/@@@[/^@@@=H@@@@WC/@@@[8N)@@U[@[)@[[@[@@@C@@@@TAE@@@F)@<[N#]A[#]AZW )@@G@@@@@@@@C/@@@[[@@@[IR@)@@IR@K@@I;@)@@^K-ES@@@@^K@[$'^@@@@BY )@@G@@@@[@@]@^K@X*'^@@@@@@K@#^@[L@ *@@@@#!@[@@ YAB@@@F)@J[EK+K0K0K^C2&]A]^C@@@BZ )@@G@@'^@@@@@[R@ *@[@@#;/,0@@@/^@@@VH@@@ ZC@@@]?'^@@@@@@[@[AAC@@@F)@S[M()CL]])CA )@@G@@+]))@@G/)_"V[@)@X$G@)@X$C/)@@[[@@@X%G@@@X%C/@@@]'^@@@@@@[@@R@^K@]?AD@@@FCB )@@G@@)@+[N@K^^KOG@@@@@@0@@@@I*@@@@IG/)__)C.@@@[[@)@# G@)@X(T/)@@EC@)@X*/^)@^2CC )@@G@@/G)@@=AE@@@F)@?[U^G@@^G@G.)__"C[)@#^C/)@@[)[@@@I @@@@I1@@@@M*@@@@MG.)__"CD )@@G@@C[)@# C/)@@[ @@@@KAF@@@F)@7[U@@K0@@@ @@@@I1@@@@M*@@@@MH[)@#^C.)@@GC/)@@[CE )@@G@@)[@@@I; @@@= @@@@I1@@@@M*@@@@MAG@@@F)[][M^[#@K0KO #@@@N_0@@BR@K@ )[[I@[GCF )@@G@@C[@@X$G@)@#^T/)@@GC@)@# />K@^$)[@@@I; @@@=AH@@@F)[G[MK0Y0K0K@^[[@@C@)@X*CG )@@G@@8N0@[G]@)@@['O)@@[C/)@[Z8N)@[H[@[)#4[@[J_6C@@@##N_)@@FAI@@@F)[Q[M^ [[[K0CH )@@G@@^@@@@@/C)@[-G/)__5C@)@# [[@@X(;[@@@AG.@@@0C[@@X([@)@X*;@)@@AG/)@@0AJ@@@FCI )@@G@@)[)[N@K^ [K0KL#@@@N_0@[UR/K@@[[@@@# C/@@@[[@)@X(C@)@##[@@@X*C@@@X(/K@@[&CJ )@@G@@/^)@[+AK@@@F)[%[F[K0K0K0K0K^ #[#@@@@[@]@[ZR@)@ %C@@@X:/^@@[/H@@@##C@[@[&CK )@@G@@A@)@ %R@)@# A@K@X:AL@@@F)[3[F#[#[@^G^G[@K@@@@@@@/^)@^'/G)@[/G/)__8[@)@# CL )@@G@@G@)@# C/)@@[/@)@]#H@)@##C@-@[$AM@@@F)[/[F#[#[@K0K0^@K0@@@@@@[@@@#CC/@@@[CM )@@G@@8N0@[%O/K@@[[@[@[&C@@@##/^@@][H@@@ -C@[@[&AN@@@F)] [N#@^^^G^G[#@@@G@@@#ACN )@@G@@C/@@@CA@)@#A[[@@ %[@)@[JR/)@@[G[@@X%C.@@#GG/)__"C@)@# AO@@@F)]J[F#[#[#[#CO )@@G@@@K^[#@@@@@@@G/@__"C@]@[Z/^@@ A/G@@]QG/@__3[@@@#DH@@@#CC@]@[Z[@@@ :AP@@@FCP )@@G@@)]S[F#@K0K0^G^G^G@@@@@@@[@@@[IQ@K@#CR@K@ +H@@@#CG.@__"C[@@#D[@)@#FC/)@@[CQ )@@G@@[@@@#EAQ@@@F)]-[F#[#@K0K0K0^G^G@@@@@[@@@#FG@@@#FC/@@@[[@?@#4C@-)[&G@@@#ACR )@@G@@;@@@@-C@@@#F[[@@ ?AR@@@F)]%[N@^G[#@^G[#@@@R@K@ DB )@@G@@8N0@#HP/)@[NP/0@[Z8N)@#IO/)@@BO/0@@C[@]@#9C@#J_6[@)@^(BA@@@F)#_[N#@[#[#@DC )@@G@@K0@@@@G/@@@AE@@@@G[@@@ %T/@@@AC@@@#J[#)@#JN_)@@ C_)@@@N_0@@AR@)@ %BB@@@FDD )@@G@@)^D[N#@^G^G^^^G^G@;[0K :[[@@ :;H)@@A;-/@@@C[2@^@C5-@#/E[@@ %E@@@@GG/)@@ADE )@@G@@E@)@ %BC@@@F)^N[N[^G^G^^[[@@@@G_)@@[[[M@^[;[W@@@;H@@@A;-Y@@@C[M@^[C5[)^&DF )@@G@@E@@@ %E@)@@I[[2@^@BD@@@F)^X[N@@^@K^[#@@@@@@#B@ */K@@ MN@0@^&C8)@@[8N0@^[DG )@@G@@O/)@#G]@@@@['O@@@[C/@@@(8N)@^#BE@@@F)^$[F]O()-)OM+OOC-@@@@@@N@0@^1C8)@@[DH )@@G@@'^@@@@@@K@@T@@K@@S@@K@@Q@#C@ *@[@@#Q/,0@@@BF@@@F)^0[F@K0K>ESCSCL]@)@@@@@DI )@@G@@/K@@ MN@0@^9C8)@@]'^@@@@@#I@ *@[@@#K/,0@@@@#H@ */K@@ MBG@@@F)^9[E()-EO0KDJ )@@G@@0ESCK>^K+@@@'^@@@@@@[@@]@^K@X*'^@@@@@@K@#^@#L@ *@[@@#1/,0@@@@#K@ *BH@@@FDK )@@G@@) ][EK^[#[]O()-)O0K-@@@@'^@@@@@@K@#^@#Q@ *@[@@#+/,0@@@@#P@ */K@@ MN@0@ DL )@@G@@C8)@@[BI@@@F) F[M*+^K)C]A]A]^0H8)@@[/K@@@@!^)@ &@#U@ */K@@ MN@0@ LC8)@@[DM )@@G@@'^@@@@@@[@@]@^K@X*BJ@@@F) P[F#[#[#[#[#[#[#[#[#@@N#)@ 5N#0@ 4R@0@ 3R@)@ 2DN )@@G@@R@K@ 19\)@ \9!)@ !R]0@ ([^)@ &BK@@@F) Y@F#@@@@@@) &@)@@@@@@@) Z@N#[]W@@@DO )@@G@@/K@@@@/K@K &@#U E:HOLS @@@@@@@@F@@@*4@K &BL@@@F) -[EK0K0K0K0K0K0K0K0@@@DP )@@G@@^#0@ 4A@0@ 3A@)@ 2A@K@ 19:)@ \9()@ ![^@@ &AA0@ (C8@@@#BM@@@F) %@F#@@@@@@DQ )@@G@@)#K[@@@@@@@@,I3,I5(1H0I2UIT!) -- I QIDAYS NY HOLTOO MA(029H0^#)@ 5BN@@@FDR )@@G@@)#S[S@@@@@@@(1H0I20) CT $20 COLLEDO NOTS GO, OT PAS- DO N JAIL GO TODS )@@G@@,050H?BO@@@F)#<[S@@@@@@@(I2,1XH) LENGTNG MAXXCEEDIWORD ETAINS AY CONDT )@@G@@ HOLID1,043H,1H/2ABP@@@F)#,[S@@@@@@@RE THAINS MO CONTAOLIDAY035H H/,2A1,DU )@@G@@2,001H(1H0,I) X,70A1,2I1,5BQ@@@F)#9@)@@@@@@@) :@F@@@@@@@) X@S@+ DV )@@G@@@@@@@@@@[@[B/K@@@@A1) (1X,23RDS) N 7 WOBR@@@F) )@0@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@B@@[@@B@@C@@C@@@@@[@@@@ @@C@@DBS@@@F@@@@@@[#[@K0DX )@@G@@K0^@K0@@@@@@[@@@#CC/@@@[8N0@[%O/K@@[[@[@[&C@@@##/^@@][H@@@ -C@[@[&AN@@@FDY )@@G@@@@^@@#@@B@@C@@R@@[@@V@@[@@^@ 6@C@@ ?@@@@X?NRDU$ NIO3$ NIO2$ DZ )@@G@@ NRDC$ NERR2$ NPRT$ NERR4$ NERR3$ HOLS EA )@@G@@ @@[@@@@@@@ -@@@@@@ ^@@@C@@]@@@@&@[@@@@@@@@@@@@@@@@K[@@@KK[@@@EB )@@G@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@EC )@@G@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[K@@@@@@@@@@@@@ ED )@@G@@*** /// \\\ AA@@@F)@@[EKO[]DN]EE )@@G@@A^D]]@@@@@@@H@@@X&C/@@@['^@@@@@[G@^_@[@@^(/,0@@@/@@@@BH@@@X&C/@@@[AB@@@FEF )@@G@@)@D[N@K+O0--]K@@@@N_K@@[C_)@@@N_)@@DN_0@@GR/K@@I'^@@@@@[J@^_@[@@^:/,0@@@EG )@@G@@/^@@@IAC@@@F)@N[F#]A[#]^]&^GCS@@@@@@;O@@@=[@@@^&@[U@^_@@@@^0/,0@@@[@@@ [EH )@@G@@G/@@@ME@@@^>[#)@^>AD@@@F)@W[M^GCSK0--;#6@@;H)@@M;-"@@@C[1J_;CD+J_"E[@@^>EI )@@G@@E@)@ [R@)@^&[@K@^&G/K@@[W/@@@DAE@@@F)@&[N#]AB?]@C@)@@@C_@@@[8N0@@KP/K@][EJ )@@G@@8N)@@LO/K@@H8NK@@NG_)@@M[[1J_;;[0K [[[@@ [AF@@@F)@0[M^G@-)K0-)@@@@C_)@@@EK )@@G@@[@@@ [H@@@^=C/@@@P[#0@^=N_)@@DC_0@@F[#@@^G@@@^N_K@@[AH@@@FEM )@@G@@)[^[EK0.-#]A[#]A^G@@@@@@C@@@^&[@)@ ][[)@^&;D)@@M;-)K ][[@@ ]C[?J_;E[@@^>EN )@@G@@G/)@@MAI@@@F)[H[F#]@--#]A^GC]A^G@@@@[@@@^&C@@@^4/^@@[QH@@@^3C@@@^&[@@@^&EO )@@G@@C@@@^2/^@@[LH@@@^1AJ@@@F)[Q[F#]A^[#]A^GCSK0.)@@@C[MJ_;C @@^&E@)@^$E@@@ ]EP )@@G@@[@@@^&C@@@^5/^@@[VH@@@^2C@@@^&AK@@@F)[Z[U[;@)@)@G_@@@[P/)@][8N)@@5G_0@@[EQ )@@G@@O/)@@H8NK@@;G_)@@M[[MJ_;;[Y@@@;H@@@M;-W@@@AL@@@F)[%[F@K0CSY0--;]@-)@@@@@ER )@@G@@R@)@^98N0@[![@-\_.C@)@^8[@[J_/C@@@^7N_0@@NR@K@^68N0@@2AM@@@F)[3[EK0--#]AES )@@G@@^[]DN]A@@@@@@]]@^_@[@@^!/,0@@@8N0@[4[^+)^@C@)@^;[C]@@DC@@@^'N_0@@FAN@@@FET )@@G@@)[/[F#]A@Y0-H@B?@@@@@@@@C/[\_;N_)@@N8N)@]@'^K@@@C/]\_;N_)@@NN_0@@GR@)@^/EU )@@G@@R@K@^/AO@@@F)] [N]U@@@)CM@@@@@'^@@@@8N0@[_][)@@]'P)@@]C.)@^#][)@@['P)@@[EV )@@G@@C.)@^#8N)@]^'^K@@@AP@@@F)]J[M@[#]A[#@@@@@@E@)@^$G/@@@ME@@@^$[#)@^$N_K@@[EW )@@G@@C_)@@@N_)@@NR/)@@[N_0@@GR/K@@UAQ@@@F)]T[F;@CSK0--#]@-)@@@@@@C@@@^2/^@@][W@@@@@@@HY )@@G@@ CD@@@FHZ )@@G@@)K0[W@@@@@@@ IA )@@G@@ CE@@@F)K;[W@@@@@@@ IB )@@G@@ CF@@@F)LA[W@@@@@@@ IC )@@G@@ CG@@@F)LL[W@@@@@@@ ID )@@G@@ CH@@@F)LW[W@@@@@@@ IE )@@G@@ CI@@@F)L$[W@@@@@@@IF )@@G@@ CJ@@@FIG )@@G@@)L2[W@@@@@@@ IH )@@G@@ CK@@@F)L.[W@@@@@@@ II )@@G@@ CL@@@F)MC[W@@@@@@@ IJ )@@G@@ CM@@@F)MN[W@@@@@@@ IK )@@G@@ CN@@@F)MY[W@@@@@@@ IL )@@G@@ CO@@@F)M([W@@@@@@@IM )@@G@@ CP@@@FIN )@@G@@)M4[W@@@@@@@ IO )@@G@@ CQ@@@F)M_[W@@@@@@@ IP )@@G@@ CR@@@F)NE[W@@@@@@@ IQ )@@G@@ CS@@@F)NP[W@@@@@@@ IR )@@G@@ CT@@@F)N)[W@@@@@@@ IS )@@G@@ CU@@@F)N:[W@@@@@@@IT )@@G@@ CV@@@FIU )@@G@@)N6[W@@@@@@@ IV )@@G@@ CW@@@F)O[[W@@@@@@@ IW )@@G@@ CX@@@F)OG[W@@@@@@@ IX )@@G@@ CY@@@F)OR[W@@@@@@@ IY )@@G@@ CZ@@@F)O+[W@@@@@@@ IZ )@@G@@ DA@@@F)O![W@@@@@@@JA )@@G@@ DB@@@FJB )@@G@@)O8[W@@@@@@@ JC )@@G@@ DC@@@F)P#[W@@@@@@@ JD )@@G@@ DD@@@F)PI[W@@@@@@@ JE )@@G@@ DE@@@F)PT[W@@@@@@@ JF )@@G@@ DF@@@F)P=[W@@@@@@@ JG )@@G@@ DG@@@F)P\[W@@@@@@@JH )@@G@@ DH@@@FJI )@@G@@)P'[W@@@@@@@ JJ )@@G@@ DI@@@F)Q [W@@@@@@@ JK )@@G@@ DJ@@@F)QK[W@@@@@@@ JL )@@G@@ DK@@@F)QV[W@@@@@@@ JM )@@G@@ DL@@@F)Q&[W@@@@@@@ JN )@@G@@ DM@@@F)Q1[W@@@@@@@JO )@@G@@ DN@@@FJP )@@G@@)Q/[W@@@@@@@ JQ )@@G@@ DO@@@F)RB[W@@@@@@@ JR )@@G@@ DP@@@F)RM[W@@@@@@@ JS )@@G@@ DQ@@@F)RX[W@@@@@@@ JT )@@G@@ DR@@@F)R*[W@@@@@@@ JU )@@G@@ DS@@@F)R3[W@@@@@@@JV )@@G@@ DT@@@FJW )@@G@@)R"[W@@@@@@@ JX )@@G@@ DU@@@F)SD[W@@@@@@@ JY )@@G@@ DV@@@F)SO[W@@@@@@@ JZ )@@G@@ DW@@@F)SZ[W@@@@@@@ KA )@@G@@ DX@@@F)S%[W@@@@@@@ KB )@@G@@ DY@@@F)S5[W@@@@@@@KC )@@G@@ DZ@@@FKD )@@G@@)T@[W@@@@@@@ KE )@@G@@ EA@@@F)TF[W@@@@@@@ KF )@@G@@ EB@@@F)TQ[W@@@@@@@ KG )@@G@@ EC@@@F)T-[W@@@@@@@ KH )@@G@@ ED@@@F)T?[W@@@@@@@ KI )@@G@@ EE@@@F)T7[W@@@@@@@KJ )@@G@@ EF@@@FKK )@@G@@)U][W@@@@@@@ KL )@@G@@ EG@@@F)UH[W@@@@@@@ KM )@@G@@ EH@@@F)US[W@@@@@@@ KN )@@G@@ EI@@@F)U<[W@@@@@@@ KO )@@G@@ EJ@@@F)U,[W@@@@@@@ KP )@@G@@ EK@@@F)U9[W@@@@@@@KQ )@@G@@ EL@@@FKR )@@G@@)V^[W@@@@@@@ KS )@@G@@ EM@@@F)VJ[W@@@@@@@ KT )@@G@@ EN@@@F)VU[W@@@@@@@ KU )@@G@@ EO@@@F)V>[W@@@@@@@ KV )@@G@@ EP@@@F)V0[W@@@@@@@ KW )@@G@@ EQ@@@F)V;[W@@@@@@@KX )@@G@@ ER@@@FKY )@@G@@)WA[W@@@@@@@ KZ )@@G@@ ES@@@F)WL[W@@@@@@@ LA )@@G@@ ET@@@F)WW[W@@@@@@@ LB )@@G@@ EU@@@F)W$[W@@@@@@@ LC )@@G@@ EV@@@F)W2[W@@@@@@@ LD )@@G@@ EW@@@F)W.[W@@@@@@@LE )@@G@@ EX@@@FLF )@@G@@)XC[W@@@@@@@ LG )@@G@@ EY@@@F)XN[W@@@@@@@ LH )@@G@@ EZ@@@F)XY@W@)X%@G@)X$@G@)@N@G@)@@@O@ MON SUN@@@@@@LI )@@G@@@@@@@@@@@@@# FA@@@F)@][W@@@@@@@ JUNE MAY APRIL MARCH LJ )@@G@@ FEB JAN SATUR FRI THURSWEDNES TUESFB@@@F)@H@4@@@@@@@)[T@W@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@ DEC NOV OCT SEP AUG JULY FC@@@F)[W[W@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD@@@FLM )@@G@@)[$[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@FE@@@F)[2[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@FF@@@F)[.[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG@@@F)]C[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH@@@F)]N[W@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI@@@F)]Y[W@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ@@@FLT )@@G@@)]([W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@FK@@@F)]4[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@FL@@@F)]_[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM@@@F)#E[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN@@@F)#P[W@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO@@@F)#)[W@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP@@@FMA )@@G@@)#:[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@FQ@@@F)#6[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@FR@@@F)^[[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS@@@F)^G[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT@@@F)^R[W@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU@@@F)^+[W@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV@@@FMH )@@G@@)^![W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@FW@@@F)^8[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@FX@@@F) #[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY@@@F) I[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ@@@F) T[W@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA@@@F) =[W@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB@@@FMO )@@G@@) \[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@GC@@@F) '[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@GD@@@F)A [W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE@@@F)AK[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF@@@F)AV[W@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG@@@F)A&[W@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH@@@FMV )@@G@@)A1[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@GI@@@F)A/[W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@GJ@@@F)BB@/@@@@@@@)ET@G@)H>@G@ 23 @@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK@@@F)K1@G@)N.@G@)RD@G@)UP@G@)BI@G@)EU@G@MZ )@@G@@@@@@@@ * * * * * *GL@@@F)H&@G@)K2@G@)N"@G@)RE@G@NA )@@G@@)UQ@G@)BJ@G@@@@@@@ 30 * GM@@@F)EV@G@)H$@G@NB )@@G@@)K3@G@)N_@G@)RF@G@)UR@G@@@@@@@ * * * * 24 GN@@@FNC )@@G@@)BK@G@)EW@G@)H*@G@)K4@G@)O@@G@)RG@G@@@@@@@ 31 * * ND )@@G@@ * GO@@@F)US@G@)@@@K@)@[@%K)EDLEC@@@@@@@@@@X(@@@@X*@@@@X:/,0@@@@@@@@@NE )@@G@@______1,0. GP@@@F)@A[M()CK+^M@)C@-A/,0@@@@[/@@@/K@@[ /K@@@O/K@@@JNF )@@G@@/,0@@@@[;@@@/,0@@@@['@@@@@@@@@GQ@@@F)@K[N@K^@K=K^@K>K@/K@@@E/,0@@@@["@@@NG )@@G@@/K@@[ /K@@@E/,0@@@@[.@@@/K@@@S/K@@@W/K@@@EGR@@@F)@U[V@[[@@KKH[@@X&C.@@@]NH )@@G@@C/)@@[ @@@@G1@@@@I*@@@@IG/)__;C@)@@PC/@@@[@[_@@@/K@@@JGS@@@F)@>[M[@K&[[^NI )@@G@@@@@@@@/C)@@1G/)__;C@)@@PC/@@@[@][@@@/,0@@@/)K@@:+@@@@I @@@@I(@@@@KGT@@@FNJ )@@G@@)@\[M@KK^[]W@@@@@@/,0@@@/)K@@'+@@@@I @@@@I(@@@@KH[@@X&C.@@@]C/)@@[ @@@@GNK )@@G@@*@@@@IGU@@@F)@9[M^ @K*^EL](@@@/K@@@E/,0@@@@]A@@@/,0@@@@] @@@/,0@@@/^@@@_NL )@@G@@H@@@X&C/@@@[@]#@@@GV@@@F)[#@V@^E0@@@)@]@K@)[A@UK?ES@@@@@@@@]/,0@@@@]C@@@NM )@@G@@______6,3. /,0@@@@]B@@@/K@@@JGW@@@F)[D@UK,ES@@@)@^@C@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@ @@@@@^/,0@@@@]D@@@GX@@@F0@@@]@,ES@@@)@^@C@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@^/,0@@@@]D@@@GY@@@F@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT@@@FNQ )@@G@@@@^@@^@@C@@J@@&@@[@@%@@]@@^@@ @C@@[G@@@@X?@@@@[=DEMAND SUBA NR )@@G@@SETUP CFORM HOLS TTY SKETCH SKECH2 NS )@@G@@TITLE DSPLAY DSPLA2 END MARGIN NINTR$ NT )@@G@@NSTOP$ FORMAIN$ @@[@@@@@@@@@@@@@@@ ^@@@C@@]@@@@CTY NU )@@G@@]@@@C@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@[@@@[. NV )@@G@@@F@@@[. ASSEMBLY LANGUAGE SUPPORT ROUTINES FOR @CAL PROCESSOR NW )@@G@@@[@@@[. @[@@@]. @H@@@]. CERTAIN OF THE FORTRAN-V LIBRARYNX )@@G@@ ROUTINES, ALTHOUGH REFERENCED BY @G@@@]. OTHER LIBRARY ROUTINNY )@@G@@ES, ARE NOT NEEDED BY THE @CAL PROCESSOR, @H@@@]. AND MAY BE ELINZ )@@G@@MINATED FROM THE COLLECTION BY SETTING TAG 'FUDGE' @#@@@]. NOOA )@@G@@NZERO.@[@@@]. @H@@@]FUDGE EQU 1 . IF WE OB )@@G@@DON'T NEED 'EM, DON'T GET 'EM @[@@@]. @#@@@[ AXR$ @#@@@[OC )@@G@@HDGIMG 'M,66, '@^@@@[BUFF RES 28 @]@@@[$(1) . @]@@@[OD )@@G@@DEMAND* . @D@@@[ TE,U A4,4 . DEMAND RUN? OE )@@G@@@C@@@[ J NOTDMD . NO @F@@@[ TEOF )@@G@@P A5,(1*/34) . YES, IS IT BREAKPOINTED?@F@@@[ L,OG )@@G@@U A4,6 . YES, ASSUME BATCH MODE @]@@@[NOTDMD . OH )@@G@@@E@@@[ TEP A5,(1*/('Z'-'B')) . B-OPTION SET? @E@@@[OI )@@G@@ L,U A4,6 . YES, ASSUME BATCH @E@@@[ OJ )@@G@@ TEP A5,(1*/('Z'-'D')) . D-OPTION SET? @E@@@[ L,OK )@@G@@U A4,4 . YES, ASSUME DEMAND@E@@@[ S OL )@@G@@ A4,*0,X11 . 4 IF BY DEMAND @E@@@[ OM )@@G@@ . 6 IF BY BATCH @]@@@[GLITCH . @F@@@[ L ON )@@G@@ A0,(EXIT,HDGIMG+1) . MAKE IT A PROCESSOR @F@@@[ EROO )@@G@@ READ$ . GET RID OF INFOR STUFF @D@@@[ TEOP )@@G@@P A0,(1*/30) . MORE INFOR? @E@@@[ J GLITOQ )@@G@@CH . YES, SNARF IT UP @]@@@[TIME . @E@@@[ EROR )@@G@@ DATE$ . TIME AND DATE @D@@@[ SA OS )@@G@@ A0,*1,X11 . STORE DATE @D@@@[ SA A1,*2,X11 OT )@@G@@ . STORE TIME @]@@@[MARJ . @F@@@[ L A0,*OU )@@G@@3,X11 . GET DESIRED MARGINS @F@@@[ S A0,HOV )@@G@@DGIMG+1 . SET IN PRTCN$ IMAGE @G@@@[ L A0,(OW )@@G@@2,HDGIMG) . GET IMAGE LENGTH & ADDRESS @D@@@[ ER OX )@@G@@ PRTCN$ . SET MARGINS @E@@@[ J 5,X11 OY )@@G@@ . RETURN TO FORTRAN @]@@@[MARGIN* . @F@@@[ L OZ )@@G@@ A0,*0,X11 . GET DESIRED MARGINS @F@@@[ S PA )@@G@@ A0,HDGIMG+1 . SET IN PRTCN$ IMAGE @G@@@[ L PB )@@G@@ A0,(2,HDGIMG) . GET IMAGE LENGTH & ADDRESS @D@@@[ ERPC )@@G@@ PRTCN$ . SET MARGINS @D@@@[ ER EXITPD )@@G@@$ . ALL DONE @[@@@[. @F@@@[. THE FOLLOWING PE )@@G@@ENTRY POINTS ARE HEREBY DEFINED TO AVOID @E@@@[. CALLING IN UNEPF )@@G@@CESSARY FORTRAN LIBRARY ELEMENTS. @[@@@[. @ @@@] ON PG )@@G@@ FUDGE @F@]@[NFTCB$* EQU 0 . REFERENCED BPH )@@G@@Y NININ$ @F@#@]NFTCB$* EQU 'NFTCB$' . REFERENCED BPI )@@G@@Y NININ$ @F@^@#. NFTCB$* EQU 'NFTCB$' . REFERENCEDPJ )@@G@@ BY NININ$ @F@ @^NFTCB$* EQU 'NFTCB$' . REFERENCED BPK )@@G@@Y NININ$ @F@@@ NFTCB$* EQU 0 . REFERENCED BPL )@@G@@Y NININ$ @F@]@[NFTCH$* EQU 0 . REFERENCED BPM )@@G@@Y NININ$ @F@#@]NFTCH$* EQU 'NFTCH$' . REFERENCED BPN )@@G@@Y NININ$ @F@^@#. NFTCH$* EQU 'NFTCH$' . REFERENCEDPO )@@G@@ BY NININ$ @F@ @^NFTCH$* EQU 'NFTCH$' . REFERENCED BPP )@@G@@Y NININ$ @F@@@ NFTCH$* EQU 0 . REFERENCED BPQ )@@G@@Y NININ$ @F@]@[BS1BL$* EQU 0 . REFERENCED BPR )@@G@@Y NFCHK$ @F@ @]BS1BL$* EQU 'BS1BL$' . REFERENCED BPS )@@G@@Y NFCHK$ @F@@@ BS1BL$* EQU 0 . REFERENCED BPT )@@G@@Y NFCHK$ @F@]@[DRAIN$* EQU 0 . REFERENCED BPU )@@G@@Y NFCHK$ @F@ @]DRAIN$* EQU 'DRAIN$' . REFERENCED BPV )@@G@@Y NFCHK$ @F@@@ DRAIN$* EQU 0 . REFERENCED BPW )@@G@@Y NFCHK$ @F@]@[WRBLK$* EQU 0 . REFERENCED BPX )@@G@@Y NFCHK$ @F@ @]WRBLK$* EQU 'WRBLK$' . REFERENCED BPY )@@G@@Y NFCHK$ @F@@@ WRBLK$* EQU 0 . REFERENCED BPZ )@@G@@Y NFCHK$ @F@]@[CLOSE$* EQU 0 . REFERENCED BQA )@@G@@Y NFCHK$ @F@ @]CLOSE$* EQU 'CLOSE$' . REFERENCED BQB )@@G@@Y NFCHK$ @F@@@ CLOSE$* EQU 0 . REFERENCED BQC )@@G@@Y NFCHK$ @F@]@[ECLOS$* EQU 0 . REFERENCED BQD )@@G@@Y NFCHK$ @F@ @]ECLOS$* EQU 'ECLOS$' . REFERENCED BQE )@@G@@Y NFCHK$ @F@@@ ECLOS$* EQU 0 . REFERENCED BQF )@@G@@Y NFCHK$ @ @@@] OFF FUDGE @[@@@[. @#@@@[ QG )@@G@@ END ___^K,R#@^KN'=@@@4 @@@@HR#@^=N9)@^==R;)@@ ()@^=$A<)^=$9)@^=&QH )@@G@@O#@@@H*8@@@@9?@^=&9*@^XM/KF@@@DUFF DUFF @@@XTW@L8UG@T@@OV-@#5@@@@@@@@@QI )@@G@@)@@@C@)@@[]K^G@[#@@K0@@@C9@@@^=[K@@ZC9@@@A=[K@@YC9@@@A=[K@@X/K@@@^%9@@@^QJ )@@G@@M,66, AA@A.J)@C[EK0@K)[K0@K^C@)@@@@@R#FK@#[@VK@][@FK@['=@@@@/K@@@D=@@@@-QK )@@G@@'=@@@@R#@@@)[[FK@@AB@A.J)@L[##@[#@[]@G^G@^G@^C@0@@@@@@'=@@@@R#@@@+A#@@@[QL )@@G@@R#FK@@/KF@@ '=@@@@R#@@@+A#@@@[AC@A.J)@T@F]@K@@@@)@X@0@1@[E@O@@@@@@@@@@@@QM )@@G@@@@]@@@[@@@@@@@@@@[@@K@@@@[@@@@K@@@@@'=@@@@AD@A.J@@^@@]@@A@@ @@K@@D@@4@@@QN )@@G@@@@@@@<@@@@@UEXIT READ$ DATE$ PRTCN$ EXIT$ QO )@@G@@DEMAND @@[@@@@@@@@@MARGIN @@[@@@@@@@@PNFTCB$ @C@@@@@@@@@@QP )@@G@@NFTCH$ @C@@@@@@@@@@BS1BL$ @C@@@@@@@@@@DRAIN$ @C@@@@@@@@@@QQ )@@G@@WRBLK$ @C@@@@@@@@@@CLOSE$ @C@@@@@@@@@@ECLOS$ @C@@@@@@@@@@QR )@@G@@C@@^A0/,0@W7R#@[^*'=@@@I*[S@@@*SDFF*@#@@@@C CAL EXIT @@@@@@@^@@@@QS )@@G@@ SUBROUTINE END @#@@@@ PRINT 1 @D@[@@ 1 FORMAT (1H0,QT )@@G@@///,' END ISD CAL 5.8 OF 1/11/79') @D@@@[ 1 FORMAT (1H0,///,' END ISQU )@@G@@D CAL 5.8 OF 1/26/79') @]@@@@ RETURN@]@@@@ END ___@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@)@@@V]]&CS@@)@@@0@@@@@@@OF 1/2L 5.8 ISD CAH END //,027(1H0,/@[#@@D@[@@@@QX )@@G@@/,0@@@AA@@@F)@A@C@)@#@3]O[@K1#^G@@@@)@B@C@@@F@@[*4@K@BR]0@@E@[A@@D/K@@@BQY )@@G@@N@0@@A'^@@@@6/79) AB@@@F)@C@S@)@D@<#^EK1@@@@@@@@@@@@@@@@@@@@/K@@@@AA0@@EQZ )@@G@@/K@@@@/K@K@B@[A E:END @@@@@@AC@@@F@@@@@@H END ISD CAL 5.8 OF 1/11/79) RA )@@G@@@@F@@[@@@@@@END @[A E:@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@#@@H@@[@@L@@[RB )@@G@@@@]@@F@C@@@H@@@@@@NPRT$ NIO2$ NERR3$ END @@[@@@RC )@@G@@@@@@@F@@@@@@ ^@@@C@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@*[S@@@*SDFF*@B@@@@C PERPETUAL CALENDAR FOR 1753 - 9999 @@@@@@@G@@@[RE )@@G@@C WRITTEN IN APRIL, 1970 B.C. (BEFORE COMMENTS) BY R. DUFF KURLAND, RF )@@G@@@G@[@@C WRITTEN IN APRIL, 1970 BY R. DUFF KURLAND, USING THE UNIVAC RG )@@G@@1108 @F@@@[C USING THE UNIVAC 1108 FACILITIES OF THE UHMC COMPUTER RH )@@G@@CENTER@G@[@@C FACILITIES OF THE UHMC COMPUTER CENTER AT NEW YORK UNIRI )@@G@@VERSITY'S @F@@@[C AT NEW YORK UNIVERSITY'S SCHOOL OF ENGINEERING ARJ )@@G@@ND SCIENCE @G@[@@C SCHOOL OF ENGINEERING AND SCIENCE (ON THE NOW-DERK )@@G@@FUNCT UNIVERSITY @F@@@[C (ON THE NOW-DEFUNCT UNIVERSITY HEIGHTS (BRRL )@@G@@ONX) CAMPUS). @ @[@@C HEIGHTS (BRONX) CAMPUS).@@@@@@@D@@@@C RM )@@G@@LAST KNOWN BUG FIXED IN LEVEL 5.7 (3/3/72). @@@@@@@H@@@@C AS OF RN )@@G@@LEVEL 5.8, 'B' AND 'D' OPTIONS ARE HONORED ON @CAL CALL CARD, @F@@@@RO )@@G@@C AND DEMAND BREAKPOINT BIT CAUSES BATCH MODE TO BE ASSUMED. @I@]@@RP )@@G@@C THIS WORK WAS DONE AT INFORMATION SYSTEMS DESIGN, INC. (SANTA CLARRQ )@@G@@A, CA). @H@@@]C THIS WORK WAS DONE AT INFORMATION SYSTEMS DESIGNRR )@@G@@ (SANTA CLARA, CA). @@@@@@@^@@@@ INCLUDE COM, LIST @B@@@@ RS )@@G@@COMMON /CTY/NN,U(3),DK(3,31),ZZ(3) @#@@@@ DATA NN/0/ @^@@@@ RT )@@G@@INCLUDE COUNT @C@@@@ CALL DEMAND (Y,HDAY(1),HDAY(2),'1,0. ') RU )@@G@@@#@@@@ CALL SUBA @A@@@@ 17 CALL SETUP ($8,$1108,$999) @A@@@@RV )@@G@@ 8 CALL CFORM ($17,$749,$748) @ @@@@ 1108 CALL HOLS ($17,$999) RW )@@G@@@^@@@@ 748 CALL TTY ($17,$8) @E@@@@ 749 IF ((TT .NE. 2) .AND. (UNIQUE RX )@@G@@.LT. 4)) CALL SKETCH @E@@@@ IF ((TT .NE. 2) .AND. (UNIQUE .GE. 4RY )@@G@@)) CALL SKECH2 @A@@@@ IF (TT .EQ. 1) CALL TITLE @#@@@@ RZ )@@G@@CALL DSPLAY @ @@@@ CALL DSPLA2 ($17,$8) @#@@@@ 999 CALL END SA )@@G@@@ @@@@ CALL MARGIN ('6,3. ') @]@@@@ END ___@@A^[2G(3I[>GT4SB )@@G@@HD6G(?JC,^@)@@@@@A@J@@@A^[]GD4GT*^[!H9=G*)HD3^[4H[>^[!H9=G*)HD,^[7H[(GT*SC )@@G@@^[&I(?H)!I[-G9>^[IL0G(4I(-UT )@@G@@H))GT-H->H1=GD2^[0IL\GT>IT3H92@D@@@A^[#CDG^@!^[KG(2I[>I-5GD?^[^[\H0)@#@@@ H90I-(H9,^[&^[\H0)@#@@@ UV )@@G@@H90I-(H9,^[2^[\H0)@^@@@ AC)DD,I-2H9=I(UW )@@G@@IL3GD4HD?G*)I[>IL0G(4I(-H))GT-H->H1=GD2^[0IL\GT>IT3H92 ))GT\I1>IL(H1$^[4UX )@@G@@H[>^@)@K@@@ ^[#CDG^[(IS)GC)I1>IL3GD4HD?G*)I[>IL0G(4I(-H))GT-H->H1=GD2^[0UY )@@G@@IL\GT>IT3H92 ))GT\I1>IL(H1$^[4H[>^@)@K@ @^^[9G(-IL3^@1A85AS)I-\^@9BC9BC,UZ )@@G@@^@)C->I--HD?IS)HD,^[4H[>^[?H9,G8)I1>IL3HD\H0)H9&^[4H[(IS)HD4G(! 0)@ @@@ VA )@@G@@^[9G(-IL3^@1A85AS)I-\^@9BC9BC,@]@ @^^@% K% K% K)@]@ @^ETKCD#C*)^@)@L@ @^VB )@@G@@^[#GD?^[(IS)GT-I[-GL?G*)H9&^[1I((GT:H-9^[=G(4G(2H((H1(H1$^[4H[>^[=GD9^[\VC )@@G@@G0)I9>G(:^[&H92^[-H19^[=GD4G*)@L@@@ ^[#CDG^[(IS)GT-I[-GL?G*)H9&^[1I((GT:VD )@@G@@H-9^[=G(4G(2H((H1(H1$^[4H[>^[=GD9^[\G0)I9>G(:^[&H92^[-H19^[=GD4G*)@L@ @^VE )@@G@@^[7HD4H[(H0)HD4IS)IL-H1$G*) @1A85AS!BC9BC9 C?^[-H1=^[\G0)I[2HD,I-(H1$^[&VF )@@G@@I(?H)!I[-G9>^[=HD3I[?GD9IS)^@)@I@@@ ^[7HD4H[(H0)HD4IS)IL-H1$G*?^[-H1=^[\VG )@@G@@G0)I[2HD,I-(H1$^[&I(?H)!I[-G9>^[=HD3I[?GD9IS)^@)@L@ @^^@*I9(I-*^[0HDIS?^[>I1>H0- C)C1\IK)GD,JC)H(\H14H@?^[\IK)G1\IK)G(-GT*^[!H9,I-*^[\G0)VI )@@G@@GC)G9(I1>H0)@L@@@ ^@*I9(I-*^[0HDIS?^[>I1>H0- C)G1\IK)GD,JC)H(\H14VJ )@@G@@H@?^[\IK)G1\IK)G(-GT*^[!H9,I-*^[\G0)GC)G9(I1>H0)@]@@@^^[9G(-IK,^@)@]@ @^VK )@@G@@ETKCD#C*)^@)@ @@@ AC)E[2GT\G(3IT\IK)I(3GD$G*)^@)@B@ @^^[OH[>^[^[^[ITG))GL>VO )@@G@@H-\I8(@I@@@ ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@/G--I--^[VP )@@G@@ITG))GL>H-\I8"^@)@@@@@A@K@@@A^[OH[>^[\H1?JC)IL>GT\G9,HD'G(=^[\I[4VQ )@@G@@HD\H13^[-IL>^@$CK$^[-H1=^@$C)$ 0)^[OH[>JC)H(-JC)GL>^[5IT>G))@M@@@A^[4H8)VR )@@G@@G1\IL^[\G0)H90G(2GD4HD\H0?@^@@@A^[2G(3I[>GT4HD6G(?JC,^@)@@@@@A@J@@@AVT )@@G@@^[]GD4GT*^[!H9=G*)HD3^[4H[>^[!H9=G*)HD,^[7H[(GT*^[&I(?H)!I[-G9>^[G),^@)CD3^[=G(3GT2HD+G(=^[+G(?H97 ))VV )@@G@@G--I--^[G(,^[+GD4VW )@@G@@GT*^[-H1=^[=G(!GD,G))H(\G->^[7H[(H->^[#CDG^[(IS)G(8G(HD2@ @@@A^[0IL(H14H95I))I-\^[-^[&HD?G*,VZ )@@G@@@]@ @^ETKCD#C*)^@)@^@A@ AK)ET0G(^[=GD9^[\G0)I9>G(:^[&H92^[-^[3I[>GT(G1(GS)WB )@@G@@G--I-> ))G(,I->IK)I-*G*)H(\H14H@?^[=GD9 ))@L@@@ ^[OH8)G1(H1=^[4H[>^[=GD9WC )@@G@@^[\G0)I9>G(:^[&H92^[-^[3I[>GT(G1(GS)G--I-> ))G(,I->IK)I-*G*)H(\H14H@?^[=WD )@@G@@GD9 ))@B@@@^^[-H1=^[9G(-IK)HD,^[BK)^@)^@)A@6 81A0\AC9A*0^@)@@@@@ @L@@@ ^[OH[(WF )@@G@@IS)I9\I(?G))IL>IT5H-4^[(H0)I-*G*)I[2HD,I-\I(4BK)^[EE(IC*)AC6 ))AC9A*0^[RWG )@@G@@CDN^[[^@)^[AELDC-[FC,^@)@K@@@A^[OH[(IS)G1>GD4I(2G*)H9&^[#CDG^[!GD9^[+G*)WH )@@G@@I(3G(=^[(H0)GL\I-*^[+GD4GT*^[-H1=^[=G(!GD,G))H(\G->IS,@]@ @^ETKCD#C*)^@)WI )@@G@@@ @@@ AK)D(\H14H[?JC)GT-H->H1=GD2^@)@L@@@^^[OH8)I[2HD,I))I-*G*)GT-H->H1=WJ )@@G@@GD2^[&H92^[-^[3I[>GT(G1(GS)H(\H14H@?^[>H14G(2^[\H1?JC)I-*G*)H(\H14H@)^@)WK )@@G@@@G@@@^^[-H1=^[4H[>^[9G(-IK?^[?G(-I1(H1$^[4H[>^[=GD9^[+H--H1:^[\IK)JL>IL\WL )@@G@@ 0)^@)@]@ @^ETKCD#C*)^@)@@@@@ @B@A@^^@)^[ J[-H(0H->BK)^@)^@)AC0 80A@\AC8WM )@@G@@A*2^@)@B@B@A^@)^[ J[-H(0H->BK)^@)^@)A@1 80A@\AC9A89^@)@B@@@B^@)^[ J[-H(0WN )@@G@@H->BK)^@)^@)A@1 80A@\AC9A89^@)@@@@@A@N@@@A^[DH0)GL-I- ))GC)G15WO )@@G@@H-? (0GD$G*)GT-H->H1=GD2^[&H92^[4H[>^[$HD6G(,^[!H9,I-*^[7HD?H))GL>^[0IL\WP )@@G@@G-5GT>G),^@)@M@@@A^[]JC)I(3HD,G8)GD=G-(I-(H9,GD?^[&G(-I-5IL>IS)G->ITG))GL>H-\I8?^[*H9?HD=GD9IS)H(-JC)GL>^[(H1=HDH1>IL-I-(H9,^[\G0)GC)IL-H1=H9!^[=G(3HD$H0)H92^@+I[(GT4WS )@@G@@I(2G*+^[!GD9^[+G*)@I@C@A^[G)?^[-H1=^[0G(2IT\H1-H-(H1'G(=^[!WT )@@G@@G(3IT-G9>IS)H(-JC)GL>^[(H1G),@I@@@C^[G)?^[-H1=^[0G(2WU )@@G@@IT\H1-H-(JL>G))H(>IT3GD$G(3^[!GD9^[+G*)HD,GT?I(=G(= 0)@@@@@A@L@@@A^[DH0)WV )@@G@@G->H(-H1=^[!H9=G*?^[-^[3H[\IL4 (&H92H*)GT-H->H1=GD2^[&H92^[4H[>^[$HD6G(,WW )@@G@@^[!H9,I-*^[7HD?H))GL>^@)@I@@@A^[0IL(H14G(= 0)^[AH92^[4H[>^[>J[-H(0H->^[-WX )@@G@@GL\I1> ))I-*G*)I[2HD,I-\I(4^[7H95H-=^[+G*'@@@@@A@]@@@AIL>H(-HD,^@8@A@B@AWY )@@G@@^@)^@)^@)^@)^@)^@)^@)^[ECDI^@1BC7BC)@A@@@B^@)^@)^@)^@)^@)^@)^@)^[ECDI^@1WZ )@@G@@BC7BC)@@@@@A@B@@@A^@)^@)^@)^@)^[N^@)D*)^[O^@)E8)^[O^@)C0)^[N@B@@@A^@)^@)XA )@@G@@^@)^@)^@)^@)AC)^@2^@)AS)^@4^@)A*)^@6@B@@@A^@)^@)^@)^@)^@7^@)B@)^@9^@1A@)XB )@@G@@AC1^@1AK)AC3@B@@@A^@)^@)^@)^@)AC4^@1A*)AC6^@1A8)AC8^@1BC)AK0@B@@@A^@)^@)XC )@@G@@^@)^@)AK1^@2AK)AK3^@2A))AK5^@2A0)AK7@ @@@A^@)^@)^@)^@)AK8^@2BC)AS0^@3AC)XD )@@G@@@]@ @^ETKCD#C*)^@)@ @@@ AK)FD>GD2H-9^[GD2^93^[GD6G*)I-*G*)H(\H14H@?^[-IS)I9>XF )@@G@@H-?^[-IS)I-*G*)^@)@#@@@^^[=GD9 ))GL?GD,HS,@]@ @^ETKCD#C*)^@)@@@@@ @B@@@^XG )@@G@@^@)^[ J[-H(0H->BK)^@)^@)A@0 80A@\AC9B@4^@)@@@@@A@M@@@A^[OH[(IS)I9(H-?^[0XH )@@G@@IL\G-5GT>^[-^[&I(?H))JD>GD2^[\G0)H(\H14H[?JC)GT-H->H1=GD2IS?^[-IS)G->ITG))GD+H96G*,@]@ @^ETKCD#C*)^@)@#@@@ AK)D[\H-(G--JD3^@)@J@@@^^[CH9?XJ )@@G@@HD=GD9IS)H(-JC)GL>^[-G-=G(=^[4H8)H(\H14H[?JC)GD,G))JD>GD2H-9^[GT(G19HD,G8)I-*G*)H(\H14H@)GD,G))G--JC)H9&^[4H[>XL )@@G@@^[=G(3HD2G(=^[*H9?HD=GD9 ))H->GD6HD,G8)I-*G*)^@)@L@@@^^[9G(-IK)GL?GD,HS,XM )@@G@@^@)E-*G*)H1-H(>^[\G0)I-*G*)H[\H-(G--JC?^[7H[(GT*^[!GD9^[,H94^[>J[G))XN )@@G@@A8)I9\IL=IS)@J@@@^^[-H1= 9\IK)AC2^[IK)I9\IL= ))G1\H-?XO )@@G@@H97IS)HD,^[IS'^@)^@)A@1 80AC)^@)^@)D1>I8)JD>GD2^93^[=GD9@E@@@ ^@)^[ J[-H(0XQ )@@G@@H->IS'^@)^@)A@1 80AC)^@)^@)D1 E8)FD CDM^9N^[^CDT@F@ @^^@)^@)^@)^@)^@)^@)XR )@@G@@^@)^@)AC1 82A8)^@)^@)I-*GD,HT3G9(I1(H1$^[=GD9^@)@F@@@ ^@)^@)^@)^@)^@)^@)XS )@@G@@^@)^@)AC1 82A8)^@)^@)E-CCDIDTNC9DE1DD1B^[^CDT^@)@@@@@ @K@@@ ^[DG0)GC)H(\XT )@@G@@H14H[?JC)H92^[9G(-IL?JC)GT-H->H1=GD2^[IS)XU )@@G@@HD3^[4H[>H0)@J@@@ ^[2G(1I(>IT4G(= ))HD4IS)H95I-0I(4^[7H95H-=^[(H1XV )@@G@@^[=HD3I[?GD9IS)H9&^[4H[>^[&H92H*'^@)@@@@@ @]@@@ IL>H(-HD,^@7@G@@@ ^@)^@)XW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) K% K)^@)^@)^@)^@)^@)^@)^@) K% K)^@)^@) K)@J@@@ XX )@@G@@^@)^@)^@)^@)AC)^@)^@)^@)^@)^@%^@)^@%^@)^@)^@)^@)^@)^@)^@%^@)^@%^@)^@%^@)XY )@@G@@^@)^@)^@)^@2A8)^@)@G@@@ ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@%^@)^@)^@)^@)XZ )@@G@@^@)^@)^@)^@)^@%^@) K)^@)@K@@@ ^@)^@)^@)^[IC(R^@)^@)^@)^@)^@)^@% K)^@)^@)YA )@@G@@GD,G))^@)^@)^@)^@% K)^@% K% K)^@)E-CCDIDTNC9DE1DD1B^@)@J@@@ ^@)^@)^@)FD YB )@@G@@CDM^9N^@)^@)^@)^@) K)^@)^@)^@)^@)^@)^@)^@)^@) K)^@)^@%^@)^@%^@)^@)^@)C-[YC )@@G@@FC)^@)@G@@@ ^@)^@)^@)^[^CDT^@)^@)^@)^@)^@%^@)^@)^@)^@)^@)^@)^@)^@)^@%^@)YD )@@G@@^@)^@%^@)^@%@G@@@ ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@% K% K%^@)^@)^@)^@)^@)^@)YE )@@G@@^@% K% K%^@) K% K)@]@ @^ETKCD#C*)^@)@@@@@ @J@ @^^[5I@)I-\^@1A@0^[*H9?HD=YF )@@G@@GD9IS)H(-JC)GL>^[5IT>G))HD,^[\H1>^[2I(, 0)^[OH[>JC)IT*H95H-=^[+G*)@N@A@ YG )@@G@@^[PI@)I-\^@1A@0^[3I(J[>GT5I-(H9, 0)^[OH[>JC)IT*H95H-=^[+G*)@N@@@A^[PI@)I-\^@1A@0^[3I(^@)@K@@@^^[(H13G(2I->G)) (+G(&H92G*!^[4H[>^[!H9,I-*^[\IK)YK )@@G@@JD>GD2^[4H8)GL>^[0IL(H14G(= ))GD,G))I9(H-?^[+G*)@K@ @^^[*H9,H92G(=^[&H92YL )@@G@@^[-H-?^[3I(+IT>ID5G(,I))GT-H->H1=GD2IS)G9>H1>IL-I->G))GL9^[4H[(IS)GT-H-?YM )@@G@@^[\H0)@M@A@ ^[*H9,H92G(=^[&H92^[-H-?^[3I(+IT>ID5G(,I))GT-H->H1=GD2IS)G9>YN )@@G@@H1>IL-I->G))GL9^[4H[(IS)GT-H-?^[\H0)C[#CDG 0)^@)@L@@@A^[*H9,H92G(=^[&H92YO )@@G@@^[-H-?^[3I(+IT>ID5G(,I))GT-H->H1=GD2IS)G9>H1>IL-I->G))GL9^[4H[(IS)GT-H-?YP )@@G@@^[\H0)CT[D),@L@ @^^[@GT-H),^@)E-*G*)GT*GD2GDIK)^9@^8)I9(I-*HD,^[-^[*YQ )@@G@@H9?HD=GD9^[,GD!G*)I9(H-?^[+G*)GT\I(,I->G))GD3^@)@@@@@ @J@@@ ^[OH[>^[^[7HD?H))GL>^[YV )@@G@@@K@A@ ^[4H[-H0)H9,G*)I9\IL=^[0G(2^[?HD,G*)G10IK)I-*G*)H[\H-(G--JC) [,H92YW )@@G@@H(-H-?JC?^[@CT[D))I[5I-3^[\H1>@K@@@A^[4H[-H0)H9,G*)I9\IL=^[0G(2^[?HD,G*)YX )@@G@@G10IK)I-*G*)H[\H-(G--JC) [,H92H(-H-?JC?^[#CDG^[0I(4IS)H9,G*)@L@ @^^[7H92YY )@@G@@G))H9,^[>GD ))GD,G))GT>H14G(2IS)I-*G(! C,^@)DD&^[-YZ )@@G@@^[*H9?HD=GD9^[,GD!G*)^@)@G@@@ ^[7H92G))H9,^[>GD ))ZA )@@G@@GD,G))GT>H14G(2IS)I-*G(! C,^@)@^@@@ ^[AH92^[>J[-H(0H->BK)^@)@@@@@ @C@@@ ZB )@@G@@^@)^@)^@)^@0AC\A@1^@)^@)^[IC(RC[TC([EK$ES)C-[FC)@@@@@ @^@@@ ^[7H95H-=^[0ZC )@@G@@IL\G-5GT>BK)@@@@@ @]@@@ IL>H(-HD,^@7@A@@@ ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZD )@@G@@ K% K)@A@@@ ^@)^@)^@)^@)AC)^@)^@)^@)^@)^@%^@)^@%@A@@@ ^@)^@)^@)^@)^@)^@)ZE )@@G@@^@)^@)^@)^@)^@)^@%@A@@@ ^@)^@)D1 E8)FD CDM^9N^@)^@)^@)^@% K)@A@@@ ^@)^@)ZF )@@G@@^@)^[^CDT^@)^@)^@)^@)^@) K)^@)@ @@@ ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@%@A@@@ ZG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@% K% K%@@@@@ @ @@@ ^[DG0)GC)H[\H-(G--JC)H1-ZH )@@G@@H(>^@)@K@@@^^[(IS)I-\H8)H-\H1$^[4H8)G1(I))H9,^[\H1>^[^[\H0)I-*G*)H1>J[4^[^[4H[-I))HD!GL>G-=G(=^[+H--H1:IS)IT(G9,HD&ZL )@@G@@JC)I-*G*)G(,G-3^[\G0)I9\IL=IS?@L@@@^^[-H1=^[4H[-I))I-7H8)H92^[!H92G*)GL?ZM )@@G@@GD,HT3^[(H0)GC)IL\I8)IT(G9,HD&JC)I-*G*)G(,G))H9&^[4H[>^[(H(-G9> 0)@A@@@ ZN )@@G@@AK)E[(GT4I(2G(3^[-H1=^[4HD4H->IS)^@)@L@ @^^@\E9*G(,^[0IL\G-5GT(H1$^[-^[!ZO )@@G@@H9,I-*H-9^[\IK)JD>GD2H-9^[^[!GD9^[>H->GT4^[4H8)I(3G*)ZP )@@G@@@L@A@ ^[RH[>H0)I[2H9=I(H1=GD2ZQ )@@G@@ ))H9,G*)H(-JC)G(?G(^@)@F@@@A^[RH[>H0)I[2H9=I(H1=GD2@D@@@A^[(H0)GL-I- ))H9,G*)ZS )@@G@@H(-JC)G(?G(@K@@@^^[4H[>^[+I((H-4 ((H0)IL-H1=H9!^[3JD!H(>I-2ZT )@@G@@HDIS)G1\IK)I-*G*)G->IT(G9,IS,^@)E-*HD3^[(IS)GD (?G(4I->IK)H90I-(H9,IS)G1\H-?H97HD,G8)I-*G*)JD>ZW )@@G@@GD2^[\H0)I-*G*)G--I--^[I-4G(2^[$ZX )@@G@@H9>IS)HD,^[^[?G(4I->IK)^9,^8)HD3^[5IT>G))HD&^[,H8)ZY )@@G@@@K@@@ ^[\I[4HD\H0)H->I-4G(2^[$H9>IS)HD,^[^[?G(4I->ZZ )@@G@@IK)^9I^8)HD3^[5IT>G))HD&^[,H8)@K@@@^^[=G(3HD$H13^[\IK)I-(I-?G(3^[-IL>^[=AA )@@G@@G(3HD2G(= ))I9*HD?G*)GC)GL?GD,HS)HD,^[IT(G9,^[(IS)I9-H14G(= ))GL5I))H1\^[4HD4H->IS)GD2G*)I-\^[+G*)I[2AC )@@G@@HD,I->G),^@)E-*G*)@I@ @^^[?G(4I->IK)^94^8)G(,GD+H->IS)GL\I-*^[4H[>^[=G(3AD )@@G@@HD$H0)GD,G))I-(I-?G*)IL\I(4HD,G(3 0)@I@@@ ^[?G(4I->IK)^9O^8)G(,GD+H->IS)AE )@@G@@GL\I-*^[4H[>^[=G(3HD$H0)GD,G))I-(I-?G*)IL\I(4HD,G(3 0)@]@ @^ETKCD#C*)^@)AF )@@G@@@@@@@ @B@ @^^@)^[ J[-H(0H->BK)^@)^@)A@0 80A@\AC9A82E))@B@@@ ^@)^[ J[-H(0AG )@@G@@H->BK)^@)^@)A@0 80A@\AC9B@0E))@]@ @^ETKCD#C*)^@)@@@@@ @L@ @^^[4H[(IS)I9\AH )@@G@@I(?G))I[2H9=I(H1=GD2IS)G1\IK)I-*G*)JD>GD2^@1BC7AK?AI )@@G@@^[AJ )@@G@@H1=GD2IS)G1\IK)I-*G*)JD>GD2^@1BC8A@?^[IS)GD,G))I-(I-?G(3 0)^@)@]@ @^ETKCD#C*)^@)@@@@@ @#@@@ AL )@@G@@GT\H-5H(,^@1AC)^@)@K@ @^^@)^[IH94G*) *)I-*G*)IT?GD3H[>IS)IT*H97H0)HD,^[4AM )@@G@@H[>^[>J[-H(0H->IS)GD+H96G*)GD2G*)H90I-(H9,GD? 0)@L@@@ ^@)^[IH94G*) *)I-*AN )@@G@@G*)IT?GD3H[>IS)IT*H97H0)HD,^[4H[>^[>J[-H(0H->IS)GD+H96G*)GD2G*)H90I-(H9,AO )@@G@@GD? 0)^[[H19@[@ @^^[[H19@K@@@^^@)^@)^@)^@)^@)GT*GD2GDIK?^[(H1^[+H--H1: ))H(-JC)GL>^[3I(+IT4HD4I(4G(= 0)^@)@]@@@ GT\H-5H(,^@2AQ )@@G@@@]@ @^ETKCD#C*)^@)@A@@@ AK)E[>IL3H9,GD?HD'G(=^[!G(3IT-G9>IS)@L@@@^^[[IS)AR )@@G@@GD,^[-G-=HD4HD\H1-H))G1>GD4I(2G*?^[0G(2IT\H1-H-(JL>G))H(>IT3GD$G(3^[!GD9AS )@@G@@^[+G*)G-(IT0H--JD>G))^@)@L@@@^^[\H0)H(\H14H[?JC)H92^[9G(-IL?JC)GT-H->H1=AT )@@G@@GD2IS)GL9^[-G-=HD,G8)GD,H94H[>IK)G1(G(?G))I-\^[4H[>^[=GD4GC)@L@ @^^[^@$H(3G8$^[(H0)GT\H-5H(,IS)AC2 *1A)?^[-H1=^[4H[>H0)I-*G*)H15AV )@@G@@H(+G(2^[\G0)H-(H1>IS)^@)@L@@@ ^[^@$D(NC8$^[(H0)GT\H-5H(,AW )@@G@@IS)AC2 *1A)?^[-H1=^[4H[>H0)I-*G*)H15H(+G(2^[\G0)H-(H1>IS)^@)@L@@@^^[(H0)AX )@@G@@JD\I(2^[!G(3IT-G9>^@*I(0^[4H8)A*(^[(H0)GT\H-5H(,^@1A*,^@)C(-GT*^[?HD,G*)AY )@@G@@H9&^[4H[>^[!G(3IT-G9>^@)@J@@@^^[!GD9^[+G*)I(0^[4H8)AS0^[G))H9,^[3G(0GD2GD4G*)GT-IL=IS)^@)@K@@@^^[(H(!G(=HD-I->H-9BA )@@G@@^[&H9?H-\I9(H1$^[4H[>^[H14G(2HD,G8)H9&BB )@@G@@^[4H[>@F@@@^^[!G(3IT-G9>^[7HD4H[(H0)I-*G*)AS0^[3I[-GT>IS)HD3^[3I($G9>IT4BC )@@G@@G(= 0)@]@ @^ETKCD#C*)^@)@@@@@ @A@ @^^@)^[ J[-H(0H->BK)^@)^@)AC)^[@CT-H))BD )@@G@@@A@@@ ^@)^[ J[-H(0H->BK)^@)^@)AC)^[@CT[D))@D@ @^^@)^@)^@)^@)^@)^@)^@)^@)BE )@@G@@AK)^@0AC\A@0 81BC7A(,H(3G82^@)@D@B@ ^@)^@)^@)^@)^@)^@)^@)^@)AK)^@0AC\A@0BF )@@G@@ 81BC7BDID(NC82^@)@D@@@B^@)^@)^@)^@)^@)^@)^@)^@)AK)^@0AC\A@0 81BC8A[ID(NBG )@@G@@C82^@)@E@ @^^@)^@)^@)^@)^@)^@)^@)^@)AS)^@)^@)^@)GT\H(0H-(H(>H14IS)H9&^@)BH )@@G@@@E@B@ ^@)^@)^@)^@)^@)^@)^@)^@)AS)^@)^@)^@)CTJD(KD-DD( D1OES)D9A^@)@F@@@BBI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)AS)^@)^@)^@)^@)^[#D9HE[GDDHC(IE-N^[JC0)^@)@F@ @^BJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)A))^@)^[5H[!GS)GT\H(0I(4G(2^[IK)^@)@F@B@ BK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)A))^@)^[PD[HCS)CTJD(KE(OC(M^[#C(IE- EK)^@)@G@@@BBL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)A))^@)^[DD1AD9MD([E-DD9I^[NFDNE- D(N^[^C(NDDBD0)BM )@@G@@@]@ @^ETKCD#C*)^@)@^@A@ AK)C->H(-H1=^[!H9=G*)^@)@C@@@AAK)ET7HD4GT*HD,G8)BN )@@G@@H(\G->IS'^[=G(!GD,G)\GL-I-H(-H1=^[4G(2H((H1-H-3 ))BO )@@G@@H[\H-(G--JD3 ))H(>IT3GD$G*?^[0HDIS?^[-H1=^[4HD4H->IS)@K@@@ ^[AIL\BP )@@G@@H*)G->H(-H1=^[4G(2H((H1-H-3 ))H[\H-(G--JD3 ))H(>IT3GD$G(3 ))I[(GT4I(2G(3BQ )@@G@@ ))GD,G))I-(I-?G(3@K@A@^^[7HD?H))GL>^[(G9,H92G(= ))GD,G))GC)IT!GD?H->IK)BR )@@G@@GT-H->H1=GD2^[7HD?H))GL>^[0IL(H14G(= 0)^[OH[(IS)@J@@@A^[7HD?H))GL>^[(G9,BS )@@G@@H92G(= ))GD,G))GC)IT!GD?H->IK)GT-H->H1=GD2^[7HD?H))GL>^[0IL(H14G(= 0)^@)BT )@@G@@@L@A@^^[-I(4H9!GD4HD<^[&G(-I-5IL>^[!GD9^[+G*)H96G(2IL(G-=G(,^[+JC)I-7H8)BU )@@G@@H(\IL>^[\I[4HD\H0)H->I-4G(2IS)I[5I))@M@@@A^[OH[(IS)GD5I-\H(-I-(GS)G1>GD4BV )@@G@@I(2G*)H(-JC)GL>^[\I1>IL2HD=G->H0)GL9^[4I9\^[!H92G*)H90I-(H9,^[?G(4I->IL3BW )@@G@@^[0I(4@J@@@^^[(H0)GT\H-5H(,^@1AC)H9&^[-H19^[=GD4GC)GT-IL=^[>J[IS,^@)E-*G*)H->I-4G(2^@$BY )@@G@@G)$^[3I9(I-IS)I-*G*)I[2H9$IL-H*)I-\^@$G->H(-H1=^8)H(\G-> ))^@)@L@A@ BZ )@@G@@^[!G(3IT-G9>IS,^@)E-*G*)H->I-4G(2^@$C)$^[3I9(I-IS)I-*G*)I[2H9$IL-H*)CA )@@G@@I-\^@$G->H(-H1=^8)H(\G-> ))^@)@K@@@A^[!G(3IT-G9>IS,^@)E-*G*)H->I-4G(2^@$CB )@@G@@C)$^[3I9(I-IS)I-*G*)I[2H9$IL-H*)I-\^[=G(!GD,G))H(\G-> ))@J@ @^^[7H[(CC )@@G@@H->^@$GK$^[3I9(I-IS)HD4^[4H8)^9+GD4GT*^8)H(\G-> 0)^[RH[>H0)I(3HD,G8)CD )@@G@@I-*G*)C[^@$CK$^[3I9(I-IS)HD4^[4H8)^9+GD4GT*^8)H(\CE )@@G@@G-> 0)@H@@@A^[7H[(H->^@$CK$^[3I9(I-IS)HD4^[4H8)GL-I- 0)^[ACF )@@G@@H92^[>J[-H(0H->BK)@@@@@A@^@@@A^@)^@)A@0 80A@\AK0A@1CK)@@@@@A@L@@@A^[7H95CG )@@G@@H-=^[0IL\G-5GT>^[-^[+GD4GT* (!H9=G*)G15H-? (0GD$G*)GT-H->H1=GD2^[&H92^[4CH )@@G@@H[>^[9G(-IK)AK0A@1 ))^@)@]@@@A^[7H[(H->BK)@@@@@A@^@@@A^@)^@)A@0 80A@\AK0CI )@@G@@A@1C))@@@@@A@L@@@A^[7H95H-=^[0IL\G-5GT>^[4H[>^[=G(!GD,G)!G1\IL!GD4^[9G(-CJ )@@G@@IL?JC)GT-H->H1=GD2 ))G(6G(,^[(G0)CT[D))I9-IS)^@)@B@@@A^[G))G12H9!CK )@@G@@^[-^[+GD4GT*^[2I(, 0)^@)@L@ @^^[0IL\GT>IT3H92^[&IL\H*)GC)I->H->I-9I[> ))CL )@@G@@I-*G*)^9+^8)H90I-(H9,^[3H[\I(?G))H9,H-9^[+G*)I(3G(=^[(G0)^@)@J@ @^^[9H95CM )@@G@@^[-IL>^[+IL>GD:I[\HD,I-(H1$^[4H[>^[0IL(H14H95I))I-\^[-^[&HD?G*)G1\IK)IT5CN )@@G@@GL3G(1I(>H14@A@ @^^[3JD!H((H1$^[4H8)GC)I[2HD,I->IK,^@)@]@ @^ETKCD#C*)^@)CO )@@G@@@@@A@ @K@ @^^[[IS)H9&^[?G(6G(?^@5 08 ))E-*G*)^9+^8) [+GD4GT* C)GD,G))^9=CP )@@G@@^8) [=G(!GD,G)(^[\I[4HD\H13^[-IL>^@)@K@A@ ^[[IS)H9&^[?G(6G(?^@5 08 ))E-*CQ )@@G@@G*)^9]^8) [+GD4GT* C)GD,G))^9^^8) [=G(!GD,G)(^[\I[4HD\H13^[-IL>^@)@G@ @^CR )@@G@@^[*H9,H92G(=^[\H0)I-*G*)C[IT3H92^[H-? 0)^@)CS )@@G@@@G@A@ ^[*H9,H92G(=^[\H0)I-*G*)C[#CDG^[0IL\GT>IT3H92^[H-?CT )@@G@@ 0)^@)@L@A@ ^[]GD4GT*^[!H9=G*)HD3^[-IT3I(!G(=^[&H92^[=G(!GD,G))IL5H13^[7CU )@@G@@H[(GT*^[*GD6G*)GL2G(-HT0H9(H14G(=^[4H[>HD2@ @A@ ^[0IL(H14H95I))I-\^[-^[&CV )@@G@@HD?G*,@]@ @^ETKCD#C*)^@)___AC1 0)^[OH[>^[?G(4I->IK)^9I^8)HD3^[5IT>G))HD&CW )@@G@@^[,H8)@K@@@^^[=G(3HD$H13^[\IK)I-(I-?G(3^[-IL>^[=)@@@V[@@@@@@)#1@0@@@@@@@CX )@@G@@^LB*1W_]B)1W^TO\+^X^D)1WX^D=K"^SK-]IG/@@@[T/@@@DC@@@@RAA@@@F)#7@*@@@@@@@CY )@@G@@)]F@)@@@@@@@.AGS1/XA^CLW.AJ*1/C%J81+@@@@@@XAGS1WXAF1^KXAF*1W"^C+CKAB@@@FCZ )@@G@@)]J[S@@@@@@@.AJ*K)XAGS1W@C@)#%@C@)#\@C@)#W@C@DY )@@G@@@@@@@@@@@@@[@@@@@A@@@@@^@@@@@#@@@@@]@@@@@[AX@@@F)#-@C@)#&@C@)#:@C@)#0@C@DZ )@@G@@)@#@V#]]))@@C@@@@U @@@@N[@@@^4@@@@@ @@@@@^@@@@@#@@@@@]AY@@@F)@A[F#]]--[KEA )@@G@@0)*SK)O0@@@@@[@@^%/,0@@@[[)@^#C[)@@X[[@@^]C[@@@W[@)@^[C@)@@V[@@@^@AZ@@@FEB )@@G@@)@J[F#]^O #]A@K0-)@@@@@@[@[)]PC@@@^?N_)@@^N_0@@^R@K@^:[@@@^BC@@@@Z'^@@@@EC )@@G@@@[>@^2BA@@@F)@S[N@@K[[K0-)@@@@?8)@@^C@)@^C[@)@^CG@)@@YC/)@@[8N0@@P]@)@@[ED )@@G@@'O)@@[C/)@@68N)@@QBB@@@F)@+[F@K=)C]@--#@-)@@@@@@R@K@^!G/@__"C@@@^B@[2@^2EE )@@G@@/K@@@*/K@@@9/K@@[K'^@@@@/C,@@[N#]A@^[#]A[#@@C[L@][C.@@@*E@)@^AEM )@@G@@E@@@^6/^)@[3G/)__";C)@@<;)?@@@C@=@]EE@@@^EBJ@@@F)[\[M[#@--#@)@@@@@O/)@@[EN )@@G@@8N)@[-G_)@@A[@@@^EG@@@^EC/@@@[[[L@][;[Y@@@;H@@@A;-W@@@BK@@@F)[9[M^[#@--#EO )@@G@@]@@@@@R/)@@[R/K@@[8N0@["[@^)#;C@@@^?N_0@@#R[@@^\8N0@[TO/0@@[O/K@@[BL@@@FEP )@@G@@)]#[MK0--#@CSK0CS@[@@@^6T/@@@AC@@@^ [#)@^ N_)@@^C_)@@@R@0@^A[@@@^AC@]@#_EQ )@@G@@N_0@@#BM@@@F)]H[M^GCSK0@)CS@@@E@@@^7/^)@]YG/)__";C)@@<;)?@@@C@<@#0E@@@^ ER )@@G@@[@@@^7G/@@@AE@@@@GBN@@@F)]R[N#@-)[#@)@@@@@O/K@@[8N)@]DG_)@@[[[L@#;;[Y@@@ES )@@G@@;H@@@A;-W@@@C[L@#;C.@@@*E@)@^6BO@@@F)]-[EK^C GCSK&O0CN@@@@@@'^@@@@@@[@@DET )@@G@@@^K@]]'^@@@@@]*@^2@[@@^I/,0@@@8N0@]^O/)@@[BP@@@F)]%[M()K&O0CL^G]A@[#0@^FEU )@@G@@N_0@@^R[@@^5C_0@@]'^@@@@@@[@@^@^K@#/'^@@@@@@F@@ @^K@]&BQ@@@F)]4[N#@CSK0-EV )@@G@@)[#@@@R@)@^4R/K@@[R/0@@[G/@@@F[@@@^GC@^@#H[@@@^5G/@__'T/@@@ C@@@^FBR@@@FEW )@@G@@)]"[EK0--##6^GCSK0-)@@@@R[K@^C[[#@][C[@@^?[@)@^CC@+J_5[@@@^EC@@@^5[@@@^6EX )@@G@@N_)@@CBS@@@F)#B[M^GCS^G@--#@@@C@@@^E[@@@^8G/@@@AE@@@@G[@@@^7T/@@@AC@@@^AEY )@@G@@[#)@^AN_K@@^C_)@@@BT@@@F)#L[N#@-)[@K0-)@@@C.@@@*E@)@^7E@@@^8/^)@#)G/)__"EZ )@@G@@;C)@@<;)?@@@C@>@]EE@@@@GG@@@^ABU@@@F)#V[N#@]A[@@@@@@@@O/)@@[O/K@@[O/0@@[FA )@@G@@8NK@#DG_)@@[[[L@][;[Y@@@;H@@@A;-W@@@C[L@][BV@@@F)#>[N@K0CSK0)CS[#@[@)@^EFB )@@G@@G/)__'T/)@@ C@)@^F8N)@#*[@ )#;C@@@^?N_)@@#R[K@^\8N)@#@BW@@@F)#\[M[#]A^G@FC )@@G@@--#@@@C@@@^A[#)@^AN_K@@^C_)@@@R@0@^C[@@@^CC@]@#_N_)@@#R/)@@[R/K@@[BX@@@FFD )@@G@@)#9[MK0]A^GCS^G@@@;)?@@@C@<@#0E@@@@GG@@@^AC@@@^E[@@@^8G/@@@AE@@@@G[@@@^7FE )@@G@@T/@@@ABY@@@F)^#[M^[#]A[#@@@@@@;[Y@@@;H@@@A;-W@@@C[L@#;C.@@@*E@)@^7E@@@^8FF )@@G@@/^)@^IG/)__";C)@@@]EE@@@^E[@@@^5G/@@@AE@@@^AFL )@@G@@[#)@^ACE@@@F)^.[N#]A[#@]A[#@@@G@@@^EC/@@@[[[N@][;[Y@@@;H@@@A;-W@@@C[N@][FM )@@G@@C.@@@*E@)@^AE@@@^5CF@@@F) B[N#@)@C]A[#@@@@C@@@^?N_0@@#R[@@^\8N0@^%O/)@@[FN )@@G@@O/K@@[O/0@@[8N)@^3G_)@@A[@@@^ECG@@@F) L[N#]@CS@K0--#@@R@)@^C[@@@^CC@[@#_FO )@@G@@N_0@@#R/K@@[R.K@@[[@)@^EC/)@@Y8N0@ K[@^)#;CH@@@F) V[M^GCS^G@--#@@@C@@@^EFP )@@G@@[@@@^6G/@@@AE@@@@G[@@@^5T/@@@AC@@@^A[#)@^AN_)@@^C_)@@@CI@@@F) >[N#@-)[@KFQ )@@G@@0-)@@@C.@@@*E@)@^5E@@@^6/^)@ 4G/)__";C)@@<;)?@@@C@+@#0E@@@@GG@@@^ACJ@@@FFR )@@G@@) \[N#@]A[@[@@@@@@8N0@ SO/K@@[O.K@@[8N)@ XG_)@@[[[P@#;;[Y@@@;H@@@A;-W@@@FS )@@G@@C[P@#;CK@@@F) 9[F][N]A^D>G]^2&@@@@@@@@F@@ @^K@]&'^@@@@@@[@@D@^K@]]'^@@@@FT )@@G@@@#7@^2@[@@^I/,0@@@CL@@@F)A][F]TN@- ][N]A^D>G@@@@@^K@[?'^@@@@@#/@^2@[@@^OFU )@@G@@/,0@@@'^@@@@@@[@@^@^K@#/'^@@@@CM@@@F)AF[EK&O0CLK^@(-#@@@@@@@R]0@^3@^@@^2FV )@@G@@/K@@ANN@0@AM'^@@@@@@[@@Q@^K@[?'^@@@@@@[@@QCN@@@F)AO[F#]A^GCSK0--#]A^G@@@FW )@@G@@N#)@ #N#0@ ]R[K@ [R[@@ @R@0@^_R@)@^"R@K@^.9\)@^;9!)@^9CO@@@F)AX@N#]A@@@@FX )@@G@@)^0@)@@@@@@@)AZ@F#@@@@@@/K@K^0@^@ E:DSPLAY@@@@@@@@F@@[*4@K^0N#K@ ^CP@@@FFY )@@G@@)A)[F]%A^GCSK0--#]A^G@@@A[K@ [A[@@ @A@0@^_A@)@^"A@K@^.9:)@^;9()@^9AA0@^3FZ )@@G@@/K@@@@CQ@@@F)A(@V#]A^G@@)^I@0@@@@@@@X),A6)3(A6,1A6,5X,),5X,5(A5,2X(1H ,9GA )@@G@@^#K@ ^^#)@ #^#0@ ]CR@@@F)^O[S@@@@@@@009HWEY,12X,TUESDAX,007HDAY,1306HMONGB )@@G@@,14X,0SUNDAY09H /,1H00(22A6,CS@@@F)^Z[S@@@@@@@2A6) AY,/,2SATURDX,008HGC )@@G@@DAY,1206HFRI,14X,0URSDAY008HTHY,12X,DNESDACT@@@F)^%@C@)A?@F@@@@@@@)^:@*@GD )@@G@@@@@@@@@@@@@@@@[@@[@@F@@@@@ @@A @@F@@G/K@@@@(1H1) CU@@@F@@@@@@^C GCSGE )@@G@@K&O0CN@@@@@@'^@@@@@@[@@D@^K@]]'^@@@@@]*@^2@[@@^I/,0@@@8N0@]^O/)@@[BP@@@FGF )@@G@@@@^@@#@@B@@A@@N@@[@@R@@[@@#@ @C@@A!@@@@X?NPRT$ NIO2$ NERR2$GG )@@G@@ NIO3$ NIO1$ NERR3$ DSPLAY @@[@@@@@@@A-@@@@@@GH )@@G@@ ^@@@C@@]@@@@@@@@@@======@@^@@ @@@@@@@@@@@@@@ [C-@@@@]Y@@H@@4@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU"GAM74R1-2@@@@@@@@@@AO@@@^@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@H^@4@^]@@A@[I@[;@C4@@@@@3@@^@@@##C@@@@@@@^@@]Y@^@E@[@ @@]YK^@D@)GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$$#@@@-$#@@@@$#@@@@@@@@@@@@@@@@@@@@@$-#@@@--#@@@GL )@@G@@@-#@@@@@@@@@@@@@@@@@@@@@$@#@@@-@#@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@H[D!@@@___@@F^_@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GO )@@G@@@@@___@@@___@@@___@@@___/,0@QF@[@^_@@[#^_D'^@[ /N@0[D3/K@[D4@[A^_DR]0^_EGP )@@G@@*4@O_B/K@O_B/K@@U#AA0^_E/K@[D!(1H0,///,027H END ISD CAL 5.8 OF 1/26/79) GQ )@@G@@@@F@@[@@@@@@END @[A E:@@@@@@@@@@@@@@@@@@@@@@@@@@&[D!@@@___@[2^_@@@@___GR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GS )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GT )@@G@@/,0[CO@@@ @:@[D @,[@@ @L/,0[CO@@@ @:@[E @,[@@ @MC@) @L;O)@@=W/)@@$G/0@@[GU )@@G@@[@0 @L;O@@@=W/@@@$G/K@@[[@K @MR@K @LR@) @M/,0@QF@[@ @N@[H @,@@L^"_@@M^_$GV )@@G@@'^@[ /N@0[EC/K@[ED@[M @,R]0 @\R@K @0R@) @1*4@P@?/K@P@?/K@@U#AA0 @\A@K @0GW )@@G@@A@) @1/K@[D!PRETTY MISTYUNIVAC COLD PAPERSIMPLE MISSAT THE FLAT IN AGX )@@G@@ WEIRD WILDRUSTIC DARK MY NEW ONLY EARLYINDIAN CHEAP LOSTSPRINGGY )@@G@@ GOODJUST A USUALIT'S ABROKEN TRUEMOSTLY SWIFT SUPER YOURSQUARE GLASSGZ )@@G@@SELDOM FREEORANGERUBBERFUTUREFAMOUSSUBWAYDESIGNWINDOWTURKEYWIRE SCENE HA )@@G@@BALL FOOT FORESTIMAGE IDEA LIGHTSSHADOWCHILD (?) MONTH BIRD LIFE HB )@@G@@MOVIE FACE PLACE HOME BARRELPLANETBRANCHCENTERROBOT T.V. MATRIXDEVICEHC )@@G@@SOUL DESERTTIME SCREENJUNGLEPROTONCAGE SYSTEMFISH CIRCUS@@@@@@@@@@@@HD )@@G@@@@@@@@(/,1H0,58X,015H...............,/,1H ,58X,001H.,13X,001H.,/,1H ,58XHE )@@G@@,001H.,A6,1X,A6,001H.,/,1H 58X,001H.,13X,001H.,/,1H 58X,015H............HF )@@G@@...) _____"@@F@@[@@@@@@TITLE @[M E:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@C&[D!@@@___@@L [K@]Z [.)]K^_@)@W [-)@T ^W@@@___@@@___@@@___@@@___@@@___HI )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HJ )@@G@@@@@___@@@___@@@___@@@___R/K@@#R/)@@[N_0@@T/@@@#HP )@@G@@H@@ [=]@@@@[C@-^_)[@<>]-8N0[E(C@@ ^O[@@ [ZC[@ [O/K@@]IP )@@G@@8NK[J)C/@ [)'^K[ 9'^@[ /G#) [!8N)[I8D@@ [4[@@ [/C@@ ^W/)@[J8C@@ [&G/@__"IQ )@@G@@;@@@@@@@@#&@@@@#$@@@@#*@@@@#(@@@@#%@@@@#:@@@@#?@@@@ K@@@@]@@@@@[_@@@@[5JJ )@@G@@@@@@#T@@@@#U@@@@#V@@@@#W@@@@#X@@@@#Y@@@@#Z@@@@#)@@@@#-@@@@ @@@@ J@@@@ IJK )@@G@@@@@@]]@@@@][@@@@[7@@@@[6@@@@[,@@@@#M@@@@#N@@@@#O@@@@#P@@@@#Q@@@@#R@@@@#SJL )@@G@@@@@@^/@@@@ ^@@@@ #@@@@ H@@@@ G@@@@]^@@@@]#@@@@[9@@@@[8@@@@[0@@@@[\@@@@[(JM )@@G@@@@@@#H@@@@#I@@@@#J@@@@#K@@@@#L@@@@^5@@@@^;@@@@^'@@@@ ]@@@@ [@@@@ F@@@@ EJN )@@G@@@@@@]A@@@@] @@@@[;@@@@['@@@@[2@@@@[1@@@@[:@@@@[%@@@@[&@@@@#E@@@@#F@@@@#GJO )@@G@@@@@@^0@@@@^4@@@@^3@@@@^9@@@@^8@@@@ @@@@@^_@@@@ D@@@@ C@@@@]C@@@@]B@@@@[.JP )@@G@@@@@@[/@@@@[4@@@@[3@@@@[!@@@@[?@@@@[*@@@@[$@@@@[>@@@@#D@@@@^!@@@@^\@@@@^,JQ )@@G@@@@@@^2@@@@^1@@@@^7@@@@^6@@@@^"@@@@^.@@@@ B@@@@ A_____"/ \ - JR )@@G@@@@[@@[ B:-L;** * **** @@F@@[@@@@@@SKECH2@ J E:@@@@@@@@@@@@JS )@@G@@@#Z[D!@@@___@@E^_@@@S #()^Z^_E)@H ^[@@@___@@@___@@@___@@@___@@@___@@@___JT )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___JU )@@G@@@@@___@@@___@@@___@@@___C/@@@[H@@^"5/@@[D4/,0@QF@[@ #(@[G #_'^@[ /C/@@@[JV )@@G@@H@@^"5/^@[D;/,0@QF@[@ #:@[J #_'^@[ /R/K@@IN_0@@GN_)@@DC_)@@@N_K@@[[#) #>JW )@@G@@E@@ #>G/@@@M[@@ ^[/,0[CO@@@ #0@[U #_[@@ #&;O@@@=W/@@@DG/K@@[[@K #&R@) #&JX )@@G@@E@) ^[E[@ #>CD+^"_C[1^"/;-"@@@;H)@@M[[@ ^[;[0P^[[[1^"/G_)@@M8NK[E@O/K@@HJY )@@G@@8N)[D"P/K@][8N0[D.C_@@@[R/)@]KN_0@@G[#@ #C@@ ^[[@@ #+T/@@@HG@@ #G/)__!]@) #$E@)@@IKA )@@G@@G/)@@ME[@ #>C[?^"/[[@ ^];-)P^];D)@@M[[) #&[@) ^]C@@ #&H@@ #1/^@[E"C@@ #2KB )@@G@@[@@ #&C@@ #&H@@ #3/^@[F#C@@ #4[@@ #&C@@ #&H@@ #2/^@[FCC@@ #5[@@ #&E@@ ^]KC )@@G@@E@) #$C @ #&C[M^"/;-W@@@;H@@@M;[Y@@@[[M^"/G_)@@M8NK[E*O/)@@HG_0@@[8N)[E+KD )@@G@@P/)@][G_@@@[8N0[EZR@K #6N_0@@NC@@ #7[@[^".C@) #8[@-=""8N0[FUR@) #9N_0@@FKE )@@G@@C@@ #'[C]^_DC@) #;[^+>#@8N0[F-/,0@QF@[@ #!@]] #_R@K #/R@) #/N_0@@GN_)@@NKF )@@G@@C/]="/'^K[ 98N)[F!N_)@@NC/[="/'^K[ 98N)[F1C.)@^#'P)@@[][)@@[C.)@^#'P)@@]KG )@@G@@][)@@]8N0[F?'^@[ /R/K@@UN_0@@GR/)@@[N_)@@NC_)@@@N_K@@[[#) #$E@@ #$G/@@@MKH )@@G@@E@) #$C[[^"/;-I@@@;D@@@M[[@ #&[@@ ^[C@@ #&H@@ #1/^@[GKC@@ #2[@@ #&C@@ #&KI )@@G@@H@@ #3/^@[GPC@@ #4[@@ #&C@@ #&H@@ #2/^@[GUC@@ #5[@@ #&E@@ ^[E@) #$C @ #&KJ )@@G@@C[M #H;-W@@@;H@@@M;[Y@@@[[M #HG_)@@M8NK[G]O/)@@[O/K@@H8N)[G@/,0@QF@[@ #!KK )@@G@@@]+ #_'^@[ "@^K #I@@[@@O'^@[ "@^K #I@@[@@O'^@[ /P/K@^ 8N0[F"N@0[G5/K@[G6KL )@@G@@@]$ #_R]0 ^@9!) ^#9\@ ^ 9\) ^BR@K ^DR@) ^EN#0 ^FN#) ^GN#K ^H*4@P#./K@P#.KM )@@G@@/K@@U#AA0 ^@9() ^#9:@ ^ 9:) ^BA@K ^DA@) ^E^#0 ^F^#) ^G^#K ^H/K@[D! KN )@@G@@ \\\ /// *** (1H1,//////)(1H1,/KO )@@G@@/) (1H ,5X,20A6) _____"@@@/// +++@@@\\\ /// \\\@@H@@H******KP )@@G@@ @@[@@] ** **@@H@@I@@F@@[@@@@@@SKETCH@]$ E:@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^P[D!@@@___@@$^_@@@% @#KS )@@G@@)@W^_$)@F @!@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KT )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KU )@@G@@(@@^->/K@[FD/,0@QF@[@ @#@[G @:R@K^-&C/[^-P'^K[ 9@@K^-*'^@[ /C@@^-\G/@__"KV )@@G@@/@@[EYC@@^-\G/@__"[@@^_/ @@^_.G/@__"R@K @>[@@@[JC/@@@[G@@^_.[@@^_.C@)^_&KW )@@G@@[@-="_8N0[E[H/@@@B]@@^_/H/@__"R@K @>]@@@[JC/@@@[G@@^_.[@@^_.R@)^_.C@-=_AKX )@@G@@[@+^"_8N0[EG/,0@QF@[@ @G@[+ @:'^@[ "@^K^_@@@[@@B'^@[ /C/@@@[G@@^_/[@@^_/KY )@@G@@/K@[E)C/@@@[[@@^_/C/@@@WG@@^_/[@@^_.H@@^_/;O@@@=W/@@@BC#)^_/[@@@[J[#)^_"KZ )@@G@@R/)@@@N_)@@AA@)^__C@@^__G@@^_"[@@ @@[@@ @[C@@ @@H@@^+I/C@[E4/^@[E6C/@@@)LA )@@G@@[@@ @[R@K @[C@[^_A[@]^_@O/)@@[8N)[E:/,0@QF@[@ @G@[5 @:'^@[ "@^K^_@@@[@@BLB )@@G@@'^@[ /C@@ @@H@@^+I/C@[HY/@@[HYG_)@@B8N0[E*/K@[HYC/@@@[G@@^Z:[@@^Z:R@K^Z:LC )@@G@@C@)^-&[@-^Z:C[@^+I[[[^-FG/@@@#R@) @>R@K @&Q@K@@GN_0@@YC@]=-,[@[=Z:8N0[FQLD )@@G@@C@@^Z:G/@__//C@[F)/@@[F)C/@@@[G@@^-&[@@^-&C@@^Z:G/@__//C@[F*/@@[F*C8)@@]LE )@@G@@N@0[F$/K@[H&@]D @: @@^Z:C@@^Z?[@@^_"R@K^_"C@)^Z![@)^__R@)^__C[@^Z,[[@ @@LF )@@G@@R@0 @@/,0@QF@[@ @J@]I @:@@L^-P@@K^-*@@M^-P@@K^-*@@N^-P@@K^-*'^@[ /R/K@@[LG )@@G@@N_0@@]A@K @]C@@ @]T/@@@BG/@@@[[@@ @! @@^_.C@[^Z,G/@__"/@@[GOC@[^Z,G/@__"LH )@@G@@[@@^_/G/@__"R@) @$Q@) @![@@@[IC/@@@[G@@^_.[@@^_.C@)^_&[@+=_Z8N)[GIC/@@@BLI )@@G@@H@@^_.[@@^_/C@) @]T/)@@BG/@__"R@0 @>[@@@[I[@) @,C/@@@[G@@^_.[@@^_.R@)^_.LJ )@@G@@O@) @,C@<=_A[@+^_Z8N)[GXC[@^_/[[[^Z:O/K@@[8N0[F"/,0@QF@[@ @Y@]! @:'^@[ "LK )@@G@@@^K^_$@@[@@P'^@[ /N_0@@^R@) @>R@0 @*R/K@@[N_)@@]C_)@@[N_K@@A[#)^__C@[^Z:LL )@@G@@G@@^__[@@ @@[@@ @[C@@ @@H@[^-F/C@[H@/^@[H]C/@@@)[@@ @[R[@ @[C@^^_A[@#=_ZLM )@@G@@G_)@@[8NK[G7C@+^Z:G/)@@B[@+=Z:O/K@@[8N)[G5/,0@QF@[@ @Y@#[ @:'^@[ "@^K^_$LN )@@G@@@@[@@P'^@[ /8N0[G1C/@@@GH@@^-&/@@[HYC/@@@[G@@^-&[@@^-&C8)@@]N@0[HX/K@[H&LO )@@G@@@#E @:/,0@QF@[@ @=@#F @:'^@[ /C8)@@[N@0[H>/K@[H&@#I @:!^) @(/K@@UEH8)@@[LP )@@G@@[^) @(R]0 @?9\) @\R@K @1R@) @2R@0 @3R[@ @4N#0 @5N#) @6N#K @7*4@P@(/K@P@(LQ )@@G@@/K@@U#C8@@@#AA0 @?[^@ @(9:) @\A@K @1A@) @2A@0 @3A[@ @4^#0 @5^#) @6^#K @7LR )@@G@@/K@[D!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 1 2 3 4 LS )@@G@@ 5 6 7 8 9 10 11 12 13 14 15 16 LT )@@G@@17 18 19 20 21 22 23 24 25 26 27 28 LU )@@G@@29 30 31 (///,1H ,5X,A6,I4,//,1H ,020H S M T W T F LV )@@G@@S) (1H ,7(A2,1X)) (///,1H ,5X,A6,I4,2(15X,A6,I4),//,021H S M T LW )@@G@@ W T F S,2(6X,019HS M T W T F S))(1H ,6(A2,1X),A2,2(5X,6(A2,1X)LX )@@G@@,A2)) (1H0) @@[@@[@@#@@@@@[@@@@@[@@C@@F@@@@@@@@@TTY @#I E:@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@#8[D!@@@___@[C^_@)@E @C@@@___@@@___@@@___@@@___LZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___MA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___/,0[CO@@@ @@@[A @A[@@^_@MB )@@G@@;O@@@=W/@@@C[@K^-=C@)^-&?8)@@H/C,[D7'^@@T?/K@[E /K@[EF/K@[E /K@[EC/K@[E MC )@@G@@/K@[EC/K@[E /K@[E /K@[EC/K@[E /K@[EC/K@[E @[C @AC/@@@)[@@^+I/K@[E>C/@@@ZMD )@@G@@[@@^+I/K@[E>C/@@@X[@@^+IC@)^-*;O)@@=W/)@[=C.@@@[*@@@@J @@@@KC@)^-*;O)@@=ME )@@G@@W/)@AKC.)@@[(@@@@J @@@@M+[@@@M/>K[EZC@)^-*;O)@@=W/)@@^/@0[EC/@@@Y[@@^+IC@@^-$H@@^+I/@@[HA/C@[HAC@@^-&[@@^_@C@)^-*[@)^_[MG )@@G@@C@@^_@G/@__//C@[E4/@@[E4C@@^-*G/@__"[@@^_[C@@^_[;K@@@]C@)^_[S@) @[;K)@@#MH )@@G@@C[@^_[S[@ @];L@@@ [@@ @C[@) @D[[@ @EC@@^_@G/@__//C@[FA/@@[FAC/@@@GG@@^-&MI )@@G@@[@@^_@C@@^+IG/@__"[@@^_]G/@__"C@)^_@;@)@@ @@@@IC.@@@[ML )@@G@@(@@^-$ @@@@K+@)@@K/=0[F'*@@^-$/K@[G;C/@@@[H@@^-H@)^"2/@)[GB/G)[GQ/K@[G=C@)^-$H@)^"3R@K^_^/@)[GH/G)[GQ/K@[G=MO )@@G@@/,0@QF@[@^_L@[8 @A@@L^-I'^@[ /C8)@@[N@0[GP/K@[HL@[; @AR@K^->R@)^_^/,0@QFMP )@@G@@@[@^_&@[/ @A@@L^-P@@K^-$@@K^-*@@M^-I'^@[ /C8)@@[N@0[GMQ )@@G@@R@)^_^/,0@QF@[@^_Y@]# @A@@L^-P@@K^-$@@K^-*@@M^-I'^@[ /C8)@@[N@0[G1/K@[HLMR )@@G@@@]D @A/,0@QF@[@^_,@]E @A@@K^-*'^@[ /C8)@@[N@0[G'/K@[HL@]H @A/,0@QF@[@^_ MS )@@G@@@]I @A@@K^->@@K^-$@@K^-*'^@[ /C8)@@[N@0[H /K@[HL@]N @AR@K^->/,0@QF@[@^_8MT )@@G@@@]O @A@@L^-P@@K^-$'^@[ /C8)@@[N@0[HK/K@[HL@]S @A!^) @^/K@@UEH8)@@[[^) @^MU )@@G@@R]0 @B9!) @HR@K @JR@) @KN#0 @L*4@P@^/K@P@^/K@@U#C8@@@^AA0 @B[^@ @^9() @HMV )@@G@@A@K @JA@) @K^#0 @L/K@[D!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(1H0I2,I3,I5,018H?MW )@@G@@ GO TO JAIL - DO 032HNOT PASS GO, DO NOT COLLECT $200)(1H0056HCOME ON, NMX )@@G@@OW. YOU KNOW JUST AS WELL AS I THAT TODAY IS ,A6,004HDAY.) (1H0,A6,I2,0MY )@@G@@01H,,I5,011H WILL BE A ,A6,004HDAY.)(1H0,A6,I2,001H,,I5,007H WAS A ,A6,0MZ )@@G@@04HDAY.) (1H0I4,046H IS NOT A LEAP YEAR - - THERE IS NO FEB. 29TH.) NA )@@G@@(1H0026HTHERE IS NO SUCH THING AS ,A6,I3,001H.) _____" B:-L; B:-L;T&T&T$NB )@@G@@@@F@@@@@@@@@CFORM @]S E:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#>[D!@@@___@@7^_@@@@___ND )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___NE )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___NF )@@G@@/,0@M6@]@^_&@@@^_#@[A^_0@@][G'@@K^->@@K^-$@@K^-(@@K^-%@@K^-:@@K^-?@@K^_@NG )@@G@@@@K^_[@@K^_]'^@[ / @@^"5 @@^-!C@@^-%T/@@[=C@)^-(T/)@J*G@@@@IC@)^-:T/)@@ENH )@@G@@G@)@@GG@)^-?[@)^-*C/@@@[D[@^->*@@@@K0@@@@K @@@@GC.@@@[C.)@@GH[)^->*@@@@MNI )@@G@@1@@@@M @@@@K)@@@@KC.@@@[D[)^-$*@@@@M0@@@@M @@@@K)[@@@H/>K[G%*@@^-*/K@[E-NJ )@@G@@C8)@@]N@0[E)/K@[G"@[R^_0C@@^_@H@@^_$/^@[E&C/@@@[[@@^"5C@@^_@H@@^_*/^@[E:NK )@@G@@C/@@@][@@^"5C@@^_@H@@^_(/^@[E0C/@@@[[@@^-^_0NM )@@G@@'^@[ /C8)@@#N@0[F /K@[G"@[$^_0C/@@@][@@^-!/,0[#&@[@^_>@@@^_]@[(^_0@@K^-,NN )@@G@@'^@[ /C/@@@[C/)@@ H@)^-,*@@@@I1@@@@I @@@@GC/)@@[C[@^-,G.@__"*@@@@K1@@@@KNO )@@G@@ @@@@I)@@@@I/=K[E"C@@^-,G/@__"R@K^_![@@@[J/,0[^K@[@^_X@[1^_0N_)@@^C/[=+DNP )@@G@@'^K[ 98N)[F='^@[ /C/@@@S'O@@@[]@@@@[8N0[F)C/@@@[(@@^-$ @@@@GC/)@@[(@@^->NQ )@@G@@ @@@@I+@@@@IC/)@@[(@@^-* @@@@I+@)@@H/)0[F;C/@@@[G@@^-+[@@^-+C/@@@[H@@^-+NR )@@G@@/^@[G]/,0@QF@[@^_W@[;^_0'^@[ /C/@@@[C/)]WJH@)^-**@@@@I1@@@@I @@@@GC/)@@[NS )@@G@@C[@^-*G.@_=&*@@@@K1@@@@K @@@@I)@@@@I/=K[G2*@@^-(/K@[GOC/@@@E[@@^-(*@@^-%NT )@@G@@/K@[GSC/@@@E[@@^-%*@@^-:/K@[GWC/@@@E[@@^-:*@@^-?/K@[G)C/@@@E[@@^-?C/@@@JNU )@@G@@G@@^->;K@@@^H/@@@[H@@^->]@@^-&C8)@@[N@0[G(/K@[G"@]C^_0/,0@QF@[@^_C@]D^_0NV )@@G@@@@K^->@@K^-$@@K^-*'^@[ //K@[D!/,0@QF@[@^_O@]J^_0@@K^->@@K^-$@@K^-*'^@[ /NW )@@G@@/K@[D!C8)@@#N@0[G./K@[G"@]P^_0!^)^_,/K@@UEH8)@@[[^)^_,R]0^_19!)^_2R@K^_4NX )@@G@@N#0^_5N#)^_6*4@O_,/K@O_,/K@@U#C8@@@^AA0^_1[^@^_,9()^_2A@K^_4^#0^_5^#)^_6NY )@@G@@/K@[D!@@@@@@@@@@@@@@@@@@(I2,1X,I2,1X,4I1,A1,A3,A1) (1H0I2,I3,I5,050H?NZ )@@G@@ GO TO JAIL - DO NOT PASS GO, DO NOT COLLECT $200) (1H0I2,I3,I5,027H?OA )@@G@@ CALENDAR COVERS 1753-9999) (1H1) (5A6) (034H0SORRY, ONLY 1-5 LINES FOOB )@@G@@R MESSAGE) (I1) @@@@@ T N B D ISD MSG @@ @@A@@F@@@OC )@@G@@@@@@@@SETUP @]P E:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@V[D!@@@___@@E^_@@@A^_XOF )@@G@@)@N^_E@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___OG )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___OH )@@G@@/K@^A(%9@@@^/K@[D2=[K^_XC9@@@A=[K^_YC9@@@A=[K^_ZC9@@@^[[FK@@R#@^_)'=@@@HOI )@@G@@=@@^_-/K@[D7'=@@@M[@FK@[[@VK@]R#FK@#A#@^_[R#@^_+'=@@[Z/KF@@ R#FK@@A#@^_[OJ )@@G@@R#@^_+'=@@[Z'=@@@DM,66, @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@K@@@@@@[@@@@@@K@@@[D!^_[[@@@@@@@]^_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A*[D!@@@___@@G^_I@@I^_=OM )@@G@@)@I^_@)@E^_U)@O^_2@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___ON )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___OO )@@G@@C@@^-\[@@^_UG/@__"/^@[D4C/@@@[[@@^_V/K@[F,C@@^_UG/@__.[@@^_U/,0@QF@[@^_:OP )@@G@@@[N^_0'^@[ /C_0@@[N_0@@A[#0^_WC@@^_WT/@@#GC@)^_WT/)@@ G/)__'[@@^_2[@)^_3OQ )@@G@@R@K^_?N#)^_UC@@^_T[@[^_@[@[=_[8N)[EBC/@@@[H@@^_W/^@[ELC/@@@[G@@^_U[@@^_UOR )@@G@@ @@^_YC/@@@AH@@^_UC@)^_U;@)@@J[@]^_@C[<^>K[[+^_[/K@[FZC@@^_3[@@^_-R@0^_ZR[@^_)C@)^_T[@+^_@[@+^_[OU )@@G@@C_)@@@N_K@@^[#)^"'E@@^"'G/@@@AE@)^"'G/)@@A[@@^_4[@)^_5E@@^_-C@<^_H;)?@@@OV )@@G@@;C)@@J[@^^_@C@-^>K[@=^_[O/0@@]O.@@@]PR )@@G@@G_0@@[8NK[GS/,0@QF@[@^_=@#H^_0'^@[ "@^K^_@@@[@@I'^@[ /G_@@@[8N)[GGC@@^_UPS )@@G@@H@@^"'/C@[JY/@@[JY/,0@QF@[@^_(@#N^_0'^@[ /G_K@@B8N0[GDC/@@@GH@@^-&/@@[J$PT )@@G@@C/@@@[G@@^-&[@@^-&C@)^->/@)[J\/K@[J:/,0@QF@[@^_:@#W^_0'^@[ /C8)@@[N@0[J,PU )@@G@@/K@[J3@#Y^_0C8)@@]N@0[J2/K@[J3@#Z^_0!^)^_,/K@@UEH8)@@[[^)^_,R]0^_19!)^_8PV )@@G@@9\@^_'9\)^_/R@K^_"R@)^__R@0 @@R[@ @[N#0 @]N#) @#N#K @^N#@ @ *4@O_,/K@O_,PW )@@G@@/K@@U#C8@@@#AA0^_1[^@^_,9()^_89:@^_'9:)^_/A@K^_"A@)^__A@0 @@A[@ @[^#0 @]PX )@@G@@^#) @#^#K @^^#@ @ /K@[D!^SK-]IX^D=K"X^D)1W^TO\+^_]B)1W^LB*1W"^C+CKXAF*1WPY )@@G@@XAF1^KXAGS1W@@@@@@ (1H ,5(2A6,8X),2A6,7X,2A6) (/,1H0) (1H0) PZ )@@G@@@@]@@@T&T&T$@@F@@@@@@@@@DSPLA2@#Z E:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A![D!@@@___@#/^_@@@& #IQC )@@G@@)@M ]/)@L #4@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___QD )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___QE )@@G@@C@@^-&T/@@@DG/@@@[[@@ #4 @@^-+C@@^-([@@ #@C@)^-%[@) #[C[@^-:[[@ #]C[)^-?QF )@@G@@[[) ##/,0@QF@[@ #%@[> #2'^@[ /C@@^-,[@@ #BR@K #:N_0@@^N_)@@^C@@ #?[@[>[PQG )@@G@@8N)[E#C/)@@6'O)@@[]@)@@[8N0[E]C/)@@[G@)^-![@) #CC@) #C?8)@@^/C,[EK'^@@T?QH )@@G@@/K@[E./K@[E&/K@[EP@[2 #2C@@ #BG/@__"R@K #!R@) #:[@@@[JN_)@@^C@[=+D[@]>[PQI )@@G@@8N)[EVC/)@@S'O)@@[]@)@@[C/)@@6'O)@@]]@)@@]8N0[EU/K@[E_C/@@@ [@@ #BG/@__"QJ )@@G@@C_)@@[R@K #:[@@@[J[#) # C/@@@AG@@ # [@@ #DG/@@@FR@) #,Q@)@@GN_)@@^C@]>[PQK )@@G@@[@[>[P8N)[E4C/)@@6'O)@@[]@)@@[G_)@@[8N0[E?/K@[E_C/@@@ [@@ #BC/@@@EG@@ #BQL )@@G@@R/)@@[R/K@@[R@0 #4N_0@@C[@@ #5 @@ #EC@#^"6[@@ #CC@) #?[@+ [[R[@ #CC_)@@@QM )@@G@@N_)@@^[#) #AE@@ #AG/@@@A[@@ #6E@@ #EC@= [E;)?@@@;C)@@];8N0[F:R/K@@[R/)@@[N_0@@#QP )@@G@@C@] ]_[@@ #AR@0 #AC_)@@@N_)@@^[#) # C@@ # T/@@@A[@@ #6E@@@@GG/@@@A[@@ #7QQ )@@G@@E@@ # C@< ]0;)?@@@;C)@@ [E;)?@@@;C)@@];8N)[HPC@) #FT/)@@ G/)__'[@) #ER/K@@[QY )@@G@@R/)@@[N_)@@#C@] ]_[@@ #CR@0 #CC_)@@@N_K@@^[#) #AC@@ #AT/@@@A[@@ #7E@@@@GQZ )@@G@@G/@@@A[@@ #8C@@ #EG@@ #AE@@@@GC@< ]0;)?@@@;C)@@[P'^K[ 98N)[ID'^@[ "RC )@@G@@@^K ]/@@[@@^'^@[ /O.@@@ G_0@@[8N0[G)R/0@@[R/K@@[R@) #4N_0@@CC/@@@Y[@@ #ERD )@@G@@C@+^"6[@) #CR[K #CC[@ #?[[[ [[C_)@@@N_)@@^[#) #AE@@ #AG/@@@A[@@ #5E@@ #ERE )@@G@@C@> [E;)?@@@;C)@@];8N0[I.C/)@@Y[@) #ER.K@@[R/K@@[N_0@@#C@[ ]_[@@ #CR@) #CC_)@@@RH )@@G@@N_)@@^[#) #AC@@ #AT/@@@A[@@ #5E@@@@GG/@@@A[@@ #6C@@ #EG@@ #AE@@@@GC@+ ]0RI )@@G@@;)?@@@;C)@@@&8N0[D\/,0@M6@[@ ^Y@@@ ]!@[L ^*@@K ]^'^@[ "@^K^"7SQ )@@G@@@@[@@]'^@[ "@^K @$@@[@[A'^@[ /C@@ [?H@@ ^Z/^@[EC/,0[^K@[@ ];@[R ^*'^@[ "SR )@@G@@@^K [?@@[@@R'^@[ /C/@@@]G@@^"9[@@^"9C/)@@[G@)^"6[@)^"6G/)_"V/G)[EL/^)[IZSS )@@G@@C@)^"7T/)@@EG@)^"8[@) ] C.@@@[G/)__)*@@@@I0@@@@I @@@@KC/)@@[C[) ] G.)__"ST )@@G@@*@@@@M1@@@@M @@@@I)[@@@IC/)@@[C[) ]^G.)__"*@@@@M1@@@@M @@@@I; @@@=)[@@@ISU )@@G@@C/)@@[C.)@@GH[) ]^*@@@@M1@@@@M @@@@I; @@@=)[@@@I/>K[IOC@) ] T/)@@GG@) ]^SV )@@G@@C[@^"6[[I^+VR@K ^)N_0@@BN_)@@FC@@ ]#[@[^"7[@[>]48N)[E'C/)@[Z'O)@@[]@)@@[SW )@@G@@8N0[E9C@)^"7G/)@@0;@)@@A[@)^"7C[@^"8G.@@@0;[@@@A[[@^"8C@) ] G/)__5/C)[FISX )@@G@@/^)[FJ/K@[FNC@@^"8[@@^"7C@) ]#[@)^"8C/@@@[[@@ ] R/K@@[N_0@[UA@K^"'R@) ] SY )@@G@@A@) ^%C@[ @&H@@ ]#/^@[F(C@@^"'R@) ^%[@] @ZC@- @$H@) ]#/@)[F0C/)@@[G@) ] SZ )@@G@@[@) ] G/)__8/G)[F(/^)[I$C@[ @&H@@ ^-/^@[F,C@@ ]#[@[ @&O/K@@[8N0[FRC/@@@[TA )@@G@@[@@ ]CC@) ] G/)__"C.@@#GG[@^"9R/)@@[[@)@[J[[@ ^%A@) ]AC/@@@CG@@ ]A[@@ ^:TB )@@G@@C@] @ZH@@ ]C[@@ ]DG/@__3/G@[G#/^@[I3C@] @ZG/@__"[@@ ]EC/)@@[[@) ]FC[@ ]DTC )@@G@@G.@__"H@@ ]CR@K ^+Q@K ]C[@@@[I[[@ ^?C@@ ]F;@@@@-G@@ ]AC@->@&[@? ]4C/@@@[TD )@@G@@G@@ ]F[@@ ]F8N)[GJC.@@@GH[@ ]D;L@@@[[[@ ]G;[@@@-C.)@@CG[) ]AG[@@@MR@K ^]4[@#="78N)[G>C@+ @ZG/)@@[[@) ]CO/)@@[8N0[F9TF )@@G@@R@K ^=N_0@@AN_)@@FC@@ ]#[@[>]58N)[G0C/)@[N'O)@@[]@)@@[8N0[G\R/0@@DR/)@@CTG )@@G@@N_0@@AN_)@@FC@) ] ?8)@@C/C,[G"'^@@T?/K@[HZ/K@[HS/K@[HS/K@[HS/K@[HL/K@[HETH )@@G@@/K@[HB@]* ^*C@#^"7[@] ]5/K@[H>C@@^"7[@@ #)C@)^"8[@) #$C@#^"7[@] ]6/K@[H>TI )@@G@@C@@^"7[@@ #)C@)^"8[@) #$C@#^"7[@] ]7/K@[H>C@@^"7[@@ #-C@)^"8[@) #*C@#^"7TJ )@@G@@[@] ]8/K@[H>C@@^"7[@@ #+C@)^"8[@) #(C@#^"7[@] ]9O/0@@CO/)@@B8N)[G;P/0@[ZTK )@@G@@P/)@[N8N0[G'R@K ^>R@) ^%N_0@@AC_)@@@N_)@@ [#) ]JC@@ ]JT/@@@A[@@ ^%E@@@@GTL )@@G@@G/@@@AE@) ^%G/)@@AE@@@@GE[@ ^%C5- ]/C[2^>J;-/@@@;H)@@A[[@ ^:;[0P^:[[2^>JTM )@@G@@E@)@@IE@@ ^%C5[>#&C[M^>K;-Y@@@;H@@@A;[W@@@[[M^>KG_)@@[8N)[H0C/@@@('O@@@[TN )@@G@@]@@@@[O/)@#G8N0[H,C8)@@[N@0[IN/K@[I_@#B ^*/,0@QF@[@ ]Q@#C ^*@@K^->@@K^-$TO )@@G@@@@K^-*'^@[ /C8)@@[N@0[IY/K@[I_@#H ^*/,0@QF@[@ ]K@#I ^*'^@[ /C8)@@]N@0[I&TP )@@G@@/K@[I_@#K ^*/,0@QF@[@ ]1@#L ^*@@K ]^'^@[ "@^K^"7@@[@@]'^@[ /C8)@@[N@0[I2TQ )@@G@@/K@[I_@#P ^*/,0@QF@[@ ]+@#Q ^*@@K ]^'^@[ "@^K^"7@@[@@]'^@[ /C8)@@[N@0[I"TR )@@G@@/K@[I_@#U ^*!^) ^&/K@@UEH8)@@[[^) ^&R]0 ^(9!) ^!9\) ^\R@K ^1R@) ^2R@0 ^3TS )@@G@@N#0 ^4N#) ^5*4@P^&/K@P^&/K@@U#C8@@@#AA0 ^([^@ ^&9() ^!9:) ^\A@K ^1A@) ^2TT )@@G@@A@0 ^3^#0 ^4^#) ^5/K@[D! @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(029H0TOO MANY HOLIDAYS -- I QUIT!) (1H0I2TV )@@G@@,I3,I5,050H? GO TO JAIL - DO NOT PASS GO, DO NOT COLLECT $200) (1H0I2TW )@@G@@,1H/2A1,043H HOLIDAY CONTAINS WORD EXCEEDING MAX LENGTH) (I2,1X,2I1,5TX )@@G@@X,70A1) (1H0,I2,001H/,2A1,035H HOLIDAY CONTAINS MORE THAN 7 WORDS) TY )@@G@@(1X,23A1) @@[@[B@@@@@@+ @@C@@D@ @@[@@@@@C@@@@@B@@C@@B@@[@@F@@@TZ )@@G@@@@@@@@HOLS @#U E:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@[ [D!@@@___@@N^_@@@@___@@@___@@@___@@@___@@@___UB )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___UC )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___C/@@@[[@@^-UV )@@G@@[[G@@ER2H@@@RAW@@CO'K@@[R')^Y)**G@@A/K@@D)C(W@@E?9K@@]/K@@=V+9@_@@%9K)@@UW )@@G@@/K@@D)O]K@@CAAW@@C/K@@CY(@@@@C/K@@D,C[K@@D!DW@@D/K@@EGC^W@@DG@K@@DC[H@@@UX )@@G@@[[E@@@O'K@@[O')@@[P'@@@[*@@@@C/K@@D+AAW@@C(*G@@A/K@@D_C G@@C?DG@@D/K@@D_UY )@@G@@'^@@@@RBW@@DC[H@@@C5X@@@%9K@@(/K@@D_[[G@@ER2H@@@RAW@@CO'K@@[/K@@D>/\)[#XUZ )@@G@@C9@^Y5?[@@@E/K@@ECH[@@@E&')@@[C[K^ZX[[U)@@8^@@EAR]@^ZIR]K^ZJR])^ZK/K@KCUVA )@@G@@'^@@@@RAW@@C/K@@D+/K@@@@/\)[#RC@@^YJC[@^[V[[G@@@'=@@@+/\)[#X/K@KEJ[[G@@EVB )@@G@@C^W@@CO;K@@[ABW@@C *G@@AC1J^[W?9@@@@/K@@C[/K@@=>/K@@@@C1J^[W?9@@@K/K@KE)VC )@@G@@CCW@@^+8KB__/@)KE)0@G@@#'=@@@A?9@@@S/K@@E, @@@@HW8K@@W;GK@@=C0W@@#:8K@@(VD )@@G@@D@)@@IG@?@@ [@?@@ CG@@^/C)KE) @G@@ !9@@@ST8)@@WOB?@@#AB?@@#AB?@@C/K@KE)VE )@@G@@[@@^[//G0@=]!80@@)/K@@=][@0^YXC@Z^[W+@K^#-/^)@I@R;!@@@/^)@IC'^@@W#[@0^#BVF )@@G@@C@@^#+'=@@@UR#0^YXR;@@@[A7J^[WR7@^#H*0J^[W/@@@H'*^@^#Z/K@@FQ/K@^#(R;K@@&VG )@@G@@ @H^#(8#K@FOR#0^YXR7@^#HR3Z^[W;C@@@#:8@@@]/^K@IUCD@^#&R;)@@J*@@@@HR;)@@#VH )@@G@@K[@@@IC8@^#&R;K@@ET8K@@JO;K^B[^)^#&C@K^#ZG8)@@[[^!=#*[@K^#ZWC )@@G@@P;K@@[C[@^YY[DH^#*N^X^#*C@0^YXC^J^[W(@@^#)/K@KI//K@KI_C@0^YX(@@^#)/K@KI/WD )@@G@@ @@^#L @@^#M @@^#N @@^#P @@@@JC^J^[W/@@@LE(?G@@]0@J^[W/K@@LE(0G@@A/K@@J7WE )@@G@@(^G@@^/K@@LE/K@@J'*@G@@D*?G@@C/K@@LEN^W@@^'^@@MFCC!^#**0G@@A/K@@KD!8)@@ WF )@@G@@/K@@MN/KI@K]/K@@JX/K@@KY/K@@K\/K@@K2[C0^#L[^K^#L/K@@LE%8)@@P/K@@KI[C0^#PWG )@@G@@[^K^#P/K@@LE0@G@@#'=@@@A*4G@@#'^@@C8@@VN[^@^Y[C8@@U:[^@^Y]R;@[ OXB )@@G@@[^@^A(C@@^^([@@^A&/KF@@[ @@@@JC8FK@@C@G@@@[^@@OS/KF@@]C8@@@@[^@@OS @@@@GXC )@@G@@'=@@[[/KF@@[/K@@@@*^@@OS/,0@@@/S@@@@/K@@OQ @@@@JC8FK@@C@G@@@;*@@@SQ;@@O&XD )@@G@@'=@@[[/KF@@]'^@@OQ @@@@G'=@@[['=@@@Q@@@@@@@@@@@@9*@^^=C?@@O&:8@@@#/K@@O2XE )@@G@@:8@@@ /K@@O2'^@@OQC@@^^*'=@@[['=@@@Q9?@@O&9*@@NQ9?@^^=/K@@NS@@@@@@9*@@PTXF )@@G@@RBK@O6RFH@@[AB@@P#RBH@@[;*@@@]1@G^@@/K@@P]RBH@@[R;K@P]'=@@[D9?@@PT/K@@@@XG )@@G@@@@@@@@9*@@PTA#)@PVRB@KP^;*@@@]1@G^@@/K@@PIRB@KP^R;K@PI'=@@[DRB@@P^P;@@@]XH )@@G@@RBW@@@R#)@PWA#?@@@RFG@@]ABW@@@O;@@@[AB@@P#R#)@PV/K@@P]@@@@@@@@@@@@@@@@@@XI )@@G@@'^@@O6C9K@@G/K@@QGC9K@@H&'0@@#C^:@@@/K@@P7C9K@@H&'0@@[C@@@@F(0G)@[/K@@P&XJ )@@G@@H@@@@F&'/@@[C8K^ZN[^K^ZM/\)[BJ%8@@@]/K@@P.N@)@@HC8:K@[CCV@@@:8K@[[/K@@P6XK )@@G@@>8K@@)/K@@P8^@)@@IN8:K@[C8K@] [^K@Q%[^)^XH @@^XG/K@@QJN8:K@[^@)^YNC@X@@@XL )@@G@@C8:K@][@K^XG[^)^XHG8K@@[[^K@Q%%8@@@^/K@@QJC8VK@# @@^ZL[^K^ZM/K@@QJC9K@@FXM )@@G@@/\)[BNN@)@@H&'0@@][[K^YY/\)[A. @@^YJC9K@++[ K[ .^^)^BQ/\)@(XN8K@@EC@K^XAXN )@@G@@C@)^XBM#!)@@C[@^^%[ @^T:[[@^Y6[[@^YPAA0[ 9C[@^YY:9@@@F/K@@Q6:9@@@H/K@@Q(XO )@@G@@%9@@@G/K@@=]C9K@7QN8K@[L/K@@Q8C9K@Q;N8K@] [ K[ 3C8K@@ C^0^XH[CK^XH[^0^YPXP )@@G@@[^0^T:C@K^XH[@K^Y6[@K^XF/\@@RZ/K@@Q9C9K@7 N8K@] [ K[ 3^^K^B-/K@@W$/K@@@@XQ )@@G@@*@@^XG/K@@RBCD@^XF:9@@@ /K@@ROC@)^XF[@)^Y6C8)@@ '^@@%L8^@@R^/K@@ROC^K^XIXR )@@G@@?^K^XF/K@@RO%^K^XF/K@@RJCCK^XI!CK^XF/K@@ROC@)^XF[@)^Y6C8)@@ '^@@%L/K@@RBXS )@@G@@C@K^XF*@@^XGC@K^XI[@K^Y6[@K^XHC^K^XH[^K^T:[^K^YP/\@@RZC^K@Q;/KH@@@*@@^XGXT )@@G@@/K@@R>C K^XFG9K@@Q[ K^XI/KG@@@C[K^XGCCK^XHC^0^XH:8K@@ /K@@R1H9K@@[H[K@@HXU )@@G@@/DK@R1G9K@@[*@@@@LD[K@@L/K@@R. @@@@KW9@@@A*@@@@KG@0@@K%8K@@ G80@@[(@@@@LXV )@@G@@D9K@@ %[K^^:H9K@@ *@@@@LD[K@@L[DK^XI[^0^XI/KG@@@'^@@V?R;F@@@L8@@@[RB!@@@XW )@@G@@?8)K@@/K@@SCH8)K@@RB,@@@P;)@@[RB,@@@N@"@@@R#K@@GRF!@@@/^)@SKO;K@@[/K@@SGXX )@@G@@:8)/K@/K@@SIP#K@@GABK@S@/K@@S-'^@@V?C@@^AM/K@@SX'^@@V?C@@^AN/K@@SX'^@@V?XY )@@G@@C@@^AO'=@@@I/K@@S[/K@@S@'^@@V?R;V@@@OBKKSZA#K^^,^@0^ [^@0^ ^RFX@@@R#@^APXZ )@@G@@'=@@@IR#@@@HN80@#C'^@@V=A#@^ ERBK^^,9!@^^\0@H@@@/K@@TS(^H@@@/K@@TWRBH@@@YA )@@G@@RF/@@[?80@[@9!@^^19(@^ BR#G@@@A#@^ GR#@^AQ'=@@@IR#@^ G[@@^ ^RBK^^,RBX@@@YB )@@G@@CCH@@[?8@@[@/K@@THR#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0@TQYC )@@G@@/K@[ 08#@@TBO;K@@[R#X@@@RFH@@@/@@@TO%8@/K@/K@@TEO;K@@[/K@@TK[@K^^,/K@@S:YD )@@G@@9!@^^19(@^ BC@@^AR/K@@T<9(@^ BC^K^^,C@X@@@[@K^^,R#@^ASA#@^ GR#@^AT'=@@@IYE )@@G@@*@@^^!/K@@V-'^@@U=(^@^^,/K@[ 0C@@^AU'=@@@I'=@@@Q/K@@@@'^@@V?C^@@T?'K@^AVYF )@@G@@*4G)@[/K@@T0[^@@T?RF@KT?'^@@V=A#@^ UR#@^AWRBKKT?/@K@U['=@@@IL8K@@]N@.@@@YG )@@G@@RA.@@[RB,@@@P;)@@[AB)@S@/K@@S-&;@@]K/K@@T<'^@@V?/\0@V#A#@^ =A#@^^?R#@^AXYH )@@G@@'=@@@I/K@@UQ'^@@V?/\0@V#A#@^ ?9?)^ !/K@@UN'^@@V?/\0@V#A#@^ ?9?)^ \9*)^ >YI )@@G@@R#@^AY'=@@@I(^@^^,/K@@UT(^H@@[/K@@T)R#@^AZ'=@@@I'^@@U=R#@^ GA#@^ ^N80@#CYJ )@@G@@*@@^^?/K@@U8RBK^^,/K@@T@/K@@@@RB@@U:/@@KU=AB@@U= ^@@U:'^@@V'/K@KU=/S@@@@YK )@@G@@'^@@V?RB@^YCP;@@@[R#K^A)N@/@@@/\0@V^/K@@UQ/K@@U5N@0KU3'^@@V?R#K^A-/K@@U1YL )@@G@@R]0^A: @@^^?*CF@@@*4F@@@/K@@V[R;V@@@RFF@@@A#K^^,/K@@S:O'0@@[/K@@U'R#K^A+YM )@@G@@A#K^ ^R#@^A<(^@@U:'=@@@I^@0^^,RF@^^,'^@@V=A#@^ ER#@^ASRBK^^,/@K@VL*^H@@[YN )@@G@@R#H@@@A#@^ G/KJ@@@A]0^^!C8V@@@[@K^^,C^.@@@N@_@@@^@0^^/CCH@@@'^@@V=[@@^^'YO )@@G@@C@@^A='=@@@IN80@#CC@@^^//K@@S.R]0^^! @@^^!/KF@@[/K@@@@;G@@@MC8)@@ Q;K@@AYP )@@G@@;@K@@#;?@@@A8#)@V$/K@@V=/K@@@@*@@^A5/K@@V?A]0^A:9*@^A?9*)^A,9(@^A0^@K^A2YQ )@@G@@^@)^A3^@0^A4N^K@V?^@K^A5N@K^A2/K@@V?/K@@@@R]0^A:9?@^A?9?)^A,9!@^A0N@K^A2YR )@@G@@N@)^A3N@0^A4/K@@V'@@@@@@ @@@@HC@)@@JN8K@@^W8K@@EK8)@@0;G0@@A;GK@@=*@@@@IYS )@@G@@8KK@WBC8K@@ H@K@[[T8K@@AC@0^A6;?.@@@;@.@@@/K@KW#/KI@WO 4@^YK @@^ZS 0@^YKYT )@@G@@ @@^YL @@^BT @@^ZZC9K@ZT[ K@$7C[K^BP[DK^YOC9K@+T[ K[ ;C9K[A[[ K[A@C9K[APYU )@@G@@[ K[AJC[K^BQ[[K^BS/,0@+^:8)@@(/K@@W_%8)@@ /K@@=/K@@Z$/K@@W)/K@@X[ZH )@@G@@/K@@Z>/K@@Z$/K@@W>/K@@)Q/K@@)P/K@@)S/K@@W&'^@@V?C8Y@[@;*K@@SG^K^BUA#K^YBZI )@@G@@[@@@@JD@@^A7*0@^YO/\K@=\ 0@^YOC@@@@J/K@@XB/,0@-9/K@@X['^@@-./K@@X[R;0@@ ZJ )@@G@@/K@@Z\R;0@@B/K@@Z\;G)@@#;C0@@-A70^BT'^@@$=[DK^BZR;@@@[/K@@X R;0@@ /K@@Z'ZK )@@G@@R;0@@B/K@@Z';G)@@#;C0@@-A30^BT/,0@-9R30^BTA70^BTC9K@@[/K@@Z1R;0@@ /K@@)AZL )@@G@@R;0@@B/K@@)A;G)@@#;C0@@-A30^BT'^@@-./K@@Z//,0@$J/K@@XB'^@@$=/,0@'^@@-./K@@)('^@@$=R$)^BT!8)@@]R;)@@[R#0^BSZP )@@G@@H9K@@[A#"^BW[ Y^BYO;)@@[A$)^BT!8)@@]/K@@X[ 4@^BTA<)^BTA#0^BV[DK^BY/K@@X[ZQ )@@G@@/,0@-9C9K@@[/K@@),'^@@-./K@@)_/,0@-9R$)^BT/@)@-FC Y^BXP;)@@[8^K@-*A$)^BTZR )@@G@@/K@@X[C4)^BT/@)@WY'^@[A5C@)^YK[@)^YLC[K^BV[[K^BSR<)^BTA$)^BT/@)@-RCDK^BYZS )@@G@@[ K^BY'^@[ 2C @^B-%9@@][/K@@X[C9@@@@C[K^BS/,0@+^%8)@@//K@@-+G9@@@[/K@@-WZT )@@G@@[[K^BS/[@@X[[1@^B+C@@^B+'=@@@I/K@@X[[ Y^BYC[Y^BW[[K^BS/K@@X['^@@-./K@@-^ZU )@@G@@R;)@@[A:)^BT/K@@X /,0@-9/K@@-R'^@@-./K@@-R'^@@$=[ K^BUR;@@@]/K@@X AA0@-.ZV )@@G@@'^@@$=[ K^BU/K@@+[/K@@@@9!@^W9'^@@$,[DK^BUC-K^BOR7)^BT/K@@WORFK^BSRB0^BSZW )@@G@@')H@+H8#K@+FR;K@@ O;0@@[AB0^BSAFK^BS/KF@@@R<\@@@R$\@@@R:\@@@R\\@@@R3\@@@ZX )@@G@@R7\@@@A<\@@@A$\@@@A:\@@@A\\@@@A3\@@@A7\@@@AB@^YKP;)@@[RFI@@@;@@@@C;C@@@)ZY )@@G@@A3@^YK:8@@@^A7@^YK/K@LA5'^@[ 2/K@L //K@J__CC)^BZ/@)K-.P;)@@[[C)^BZC@)^YLZZ )@@G@@/@)@+,[@)^YK @@^YL/K@@+\'^@[A5R3)^YKP;)@@[AB)^BRR#)^YY%8)@@H/K@@+;RB)^ZMAA )@@G@@AB)@+'RB)^BUO#)^ZLA#)^ZLA#)@@@RF)^ZZOB)^BU?@)^B-/K@@:G9@@@]:DF@@@/K@@>:AL )@@G@@H9@@@]O'0@@[8#)@=5:9K@@]/K@@>*/C)@>WC[K@@GE@@@@GC[@@@H+@@^VH%@K^VH/K@@>CAM )@@G@@)@@^VIR#@@@HR#K@@K'=@@@I/DK@>LR#@^VJ'=@@@IR#@^T:'=@@@ID8)@@]]^)^T(CG@^YJAN )@@G@@/@@@>T0@@^YJR;G@@[RFG@@@AB@^U(R#@^VK'=@@@I(^@^T(/G)@>>/G)@U: ^@^T( @@^YSAO )@@G@@ @@^A5(@@^ZQ/KI@@@R@K^ZON[@^ZP @@^ZQ/KI@@@ @@^A5'^@@U:/KH@@@/C)@>X'=@@@IAP )@@G@@/K@@U:C@:@@@CDF@@@!9@@@^R#,@@@+9@@@[/[K@>X/K@@>WC@@^ZT;GK@@=W8K@@E[@?=V=AQ )@@G@@/^K@>3[@@^V-C @^V-/KJ@@@ ^@^V'98;@@@>@0^V;/K@@&A"0@@@JH8@@K@/@F@@@S@@^V)AR )@@G@@AA0@&X/^@@&DE@@@@G/K@@&HR#@^V/'=@@@I/K@@>"AB@^V'D@K@@G/,0@*GRJ@^V'9?K^VLAS )@@G@@9=K@@J98K@&V/GK@&O"*0^V.H8@@@[/K@@&H9?K^VN9=K@@J98K@&S/CK@&WG8@@@["?0^V.AT )@@G@@/K@@&HG9@@@[[^@^V'/K@@@@980@$B"0K@@JP;K@J5;?!@@@[ K^V9?9K@@B @@@@J!9K@@OAU )@@G@@C9K@@NC@@^ZT ^@^V-C@K@@IU8K@@E/@0@&2;C0@@[U80@@E;*0@@[[@0^V<9)K^V+C@0@@KAV )@@G@@[@W=V=;C)@@[8^K@&( @@^V2[ @^V8H @^BU/[@@,SD[@@@K/H@@,&C^)^YK(@I@@@/K@@,+0@I@@@/[@@,&C)0^BOCK )@@G@@:80@@J'^@@4_'^@@3H/K@@,^*@@^W.'^@@5X/K@@,X/K@@,^'^@@57/K@@,^'^@@+=C K^BUCL )@@G@@?9K@@H/K@@,7H9K@@HR;)@@ R#K^YY:8K@@H/K@@,4'^@@% 8^K@,1/K@@,6'^@@%L8^K@,4CM )@@G@@C9K@@GR;K@@#T@K@@LC^)^YKC[I@@@;[H@@@H9K@@[R#K^YY:8K@@H/K@@\CR#)@@K;[@@@-CN )@@G@@;G)@@=R;)@@A;^)@[ '^@@% 8^K@\@/K@@,*R#)@@K;[@@@-;G)@@=R;)@@A;^)@[ '^@@%LCO )@@G@@8^K@\C/K@@,*'^@@+=R3K^YK:8K@@[/K@@,C:8K@@ /K@@:K/K@@\S'^@@+=DHK^ZZ] K^V8CP )@@G@@/HK@\WC9K@@@HDK^BUH9K@@^ @@@@IR7K^BT:8K@@]/K@@\>R3K^YK:8K@@#R;)@@[H[K@@ICQ )@@G@@G K^BU/HK@0WC^K^YK(@H@@@/K@@\!0@H@@@/[K@0W[DK^XDCDK^BUGHK^ZZ/HK@0WR3@^YKCR )@@G@@:8@@@#/K@@\6C4@^BT%8@@@^/[K@0W[ K^XD'^@@09CD@^XD*@@^W"'^@@5<'^@@2_(G@^V9CS )@@G@@/K@@02 @G=V= @G=V=C9@@@]C4@^BT:8@@@]/K@@0UCU )@@G@@R3@^YK%8@@@#/K@@0UC9@@@#'^@@4@/K@@0X'^@@57R7K^BT%8K@@^/K@@\R/K@@\KR;)@@-CV )@@G@@/K@@0 R;)@@ C9K@@]R3K^YK%8K@@#/K@@0?R7K^BT:8K@@]/K@@0?C9K@@#R#K^YY:8K@@HCW )@@G@@/K@@06C@@^W"/@@@03(G@^V9/K@@0X'^@@% 8^K@03/K@@0X'^@@%L8^K@06/K@@0X/K@@@@CX )@@G@@RB)^YKR7K^BT:8K@@[/K@@1?%8K@@^/K@@1#R3K^YK:8K@@#/K@@1\R3K^YK%8K@@#/K@@1MCY )@@G@@94"@@@980@2[!@0^XU/K@@1I!@0^XV/K@@1P;G0@[C/K@@1PR7K^BT%8K@@#/K@@0W/K@@55CZ )@@G@@E@"@@@/@0@2["80@@J/,0@>'9*0^XNR7@^BT/KG@1S/K@@17/K@@16/K@@1'DH@^V'/[@@1ZDA )@@G@@/D@@13GD@^BU/H@@13DH@^V'GD@^BUR#0^BUA#0^XCP;0@@#[D@^BUAB0^BUC9@@2D[ @@09DB )@@G@@RJ0^V'/K@@1/R3K^YK%8K@@#/K@@1M94"@@@980@2[/,0@>'/K@@17CDK^BUGHK^ZZ/[K@0WDC )@@G@@9?0^XNC K^XD/,0@&Y/K@K09RJ0^ZZOJ0^V'AB0^V'OF0^BUAB0^XD @@^V@K^XW/K@@34/K@@33DM )@@G@@(@@@@H/K@@34/K@@33>@K^XX/K@@34C8)@@-R#K^YY:8K@@H/K@@39'^@@% /K@@3''^@@%LDN )@@G@@CH@^V8/H@@4!(^@@3K/K@@4]'^@@4R/K@K3K/K@@@@ ^@@3HR#@@@KR#K^YY:8K@@H/K@@4PDO )@@G@@/K@@4GR#?^V=!@@^XYR;)@@@O;)@@0'^@@% 8#@@4B*^@@3H/K@K3H/K@K4@R#?^V=!@@^XYDP )@@G@@R;)@@@O;)@@0'^@@%L8#@@4K/K@@4H/K@@@@R#@^V-R#K^YY:8K@@H/K@@4%/K@@4+R#?=V=DQ )@@G@@!@@^XZR;)@@@O;)@@0'^@@% 8^@@4XAB@^V-/K@K4RR#?=V=!@@^XZR;)@@@O;)@@0'^@@%LDR )@@G@@8^@@4>AB@^V-/K@K4RD@@@@KGD@^BUR;)@@.R#K^YY:8K@@H/K@@49'^@@% R;)@@0/K@@47DS )@@G@@'^@@% 8#@@46/K@K3K'^@@%LR;)@@0/K@@4.'^@@%L8#@@4//K@K3K/K@@@@R#K^YY:8K@@HDT )@@G@@/K@@5KC^K^YKC@X@@@/CK@5E/@K@5EC8)@@-'^@@% H9@@@[C8)@@08^@@5I @@@@K/K@K4_DU )@@G@@'^@@% /K@@5FC^K^YKC@X@@@/CK@5R/@K@5RC8)@@-'^@@%LH9@@@[C8)@@08^@@5V @@@@KDV )@@G@@/K@K4_'^@@%L/K@@5S/K@@@@*@I@@@/K@K5XC^K@5X[^K@5/K@@"PRF@^YZRB0^YZ')G@+H8#@@74O;0@@[R;@@@ AB0^YZAF@^YZ/KF@@@EI )@@G@@RF@^YZRB0^YZ')G@+H8#@@7.O;0@@[R;@@@ AB0^YZAF@^YZC^0^YZ?^0^X%/KF@@@%^0^X%EJ )@@G@@/K@@8ACC0^YZHC0^X%/C;@@@C@0^YZ[@0^X%/KF@@@[[K^X(%9K@@T/K@@8XC K^BU*@@@@LEK )@@G@@H9K@@[[DK^ZZC[@^YY:9@@@H/K@@;K @@@@KW9@@@A;[@@@MD[K@@LG9K@@ ; @@@MG @^YQEL )@@G@@[[@^YZ C@^BZ'^@@+='^@@+=C K^BUC[@^X(:9@@@L/K@@'XR3)^YKN@)@@L;CK@@=R#0^YYEM )@@G@@:80@@H/K@@9-:8)@@#/K@@9]?9K@@B/K@@80H9K@@BN8)@@A/,0@7!8^K@8,;H@@[C8K)@9BEN )@@G@@R3)^YKC@0^X(C^@^YK:8)@@#/K@@9I%80@@R/K@@8;[[W@@@/K@@8"C[@^XQ; H@@@[[G@@@EO )@@G@@R7K^BT:8K@@^/K@@.[/K@@8X?9K@@H/K@@80H9K@@HN8)@@G/K@@8,/,0@7!;^)@@A;=0@@AEP )@@G@@;[@@@A;>@@@AG8K@@A/K@@81N@)@@H:80@@R/K@@9Z!8K@@>/K@@9Q;!@@@=G8K@@=C[K^XQEQ )@@G@@!8K@[C/K@@9ZC80@@ ;@0@@A;=0@@A;[@@@A;>@@@AG8K@@A/K@@9Q9(G@@@/K@@8":8)@@#ER )@@G@@/K@@9;?9K@@B/K@@9(H9K@@BN8)@@A/,0@768^K@9$;H@@[C8K)@'@R3)^YKC@0^X(C^@^YKES )@@G@@:8)@@#/K@@'B%80@@R/K@@94[[W@@@/K@@97C[@^XQ; H@@@[[G@@@R7K^BT:8K@@^/K@@.[ET )@@G@@/K@@8X?9K@@H/K@@9(H9K@@HN8)@@G/K@@9$/,0@76;^)@@A;=0@@A;[@@@A;>@@@AG8K@@AEU )@@G@@/K@@9%N@)@@H:80@@R/K@@'S*[S@@@*SDFF*@#@@@A@ADD F.AD$DUMP @#@@@A@ADD FEV )@@G@@.AD$RESET @#@@@A@ADD F.AD$WS$OCTAL@#@@@A@ADD F.AD$WS$FLDTA@#@@@A@ADD FEW )@@G@@.AD$WS$ASCII@#@@@E@ADD F.AD$HELP @#@@@C@ADD F.AD$REGS @#@@@C@ADD FEX )@@G@@.AD$INDEX @#@@@A@ADD F.AD$CS$ASCII@#@@@A@ADD F.AD$CS$OCTAL@#@@@A@ADD FEY )@@G@@.AD$CS$FLDTA@#@@@A@ADD F.AD$INIT @#@@@A@ADD F.AD$SUMMARY @#@@@A@ADD FEZ )@@G@@.AD$TABLES @^@@@A@ADD F.AD$FIND$STOP @#@@@A@ADD F.AD$FILE @#@B@AFA )@@G@@@ADD F/AD$F$SUBRTN@#@@@B@ADD F.AD$F$SUBRTN_@@@@@.AD$WS$ASCII@#@@@C@ADD FFB )@@G@@.AD$REGS @#@@@C@ADD F*[S@@@*SDFF*@#@]@[FUNCT REGS$DUMP @#@@@]FUNCT FC )@@G@@AD$REGS @ @]@[ GO MENU$DOC=0\ENDDOC @^@ @[ GO ENDDOFD )@@G@@C @E@@@ GO ENDDOC . BYPASS DOCUMENTATIONFE )@@G@@@]@ @[ . @]@ @[ . @F@@@[ 'THE REGS$DUMP FUNCTFF )@@G@@ION PRINTS THE USER REGISTER SET..' @]@ @[ . @]@ @[ . FG )@@G@@@]@ @[ENDDOC: @E@@@ ENDDOC: . END OF DFH )@@G@@OCUMENTATION@B@]@[ '*****USER REGISTER SET*****' @C@^@] FI )@@G@@ TAB(25),'*****USER REGISTER SET*****' @#@@@[ ' ' @#@@@#FJ )@@G@@ ' ' @#@@@# ' ' @#@@@# ' ' @#@@@#FK )@@G@@ ' ' @#@@@# ' ' @#@@@# ' ' @#@@@#FL )@@G@@ ' ' @#@@@# ' ' @#@@@# ' ' @C@@@^FM )@@G@@ TAB(25),'*****USER REGISTER SET*****' @#@@@# ' ' FN )@@G@@@A@@@# GO SCREEN$SIZE>0\DEMAND @C@@@[ 'X ',X0[0,,HFO )@@G@@1!O6],X0[0,,H2!O6],' ',;@B@@@[ X1[0,,H1!O6],X1[0,,H2!O6],' ',; FP )@@G@@@B@@@[ X2[0,,H1!O6],X2[0,,H2!O6],' ',; @B@@@[ X3[0,,H1FQ )@@G@@!O6],X3[0,,H2!O6],' ',; @B@@@[ X4[0,,H1!O6],X4[0,,H2!O6],' ',; FR )@@G@@@B@@@[ X5[0,,H1!O6],X5[0,,H2!O6],' ',; @B@@@[ X6[0,,H1FS )@@G@@!O6],X6[0,,H2!O6],' ',; @A@@@[ X7[0,,H1!O6],X7[0,,H2!O6] @C@@@[FT )@@G@@ ' ',X8[0,,H1!O6],X8[0,,H2!O6],' ',;@B@@@[ X9[0,,H1FU )@@G@@!O6],X9[0,,H2!O6],' ',; @C@@@[ X10[0,,H1!O6],X10[0,,H2!O6],' ',FV )@@G@@; @C@@@[ X11[0,,H1!O6],X11[0,,H2!O6],' ',; @C@@@[ FW )@@G@@ X11[1,,H1!O6],X11[1,,H2!O6],' ',; @C@@@[ X11[2,,H1!O6],FX )@@G@@X11[2,,H2!O6],' ',; @C@@@[ X11[3,,H1!O6],X11[3,,H2!O6],' ',FY )@@G@@; @B@@@[ X11[4,,H1!O6],X11[4,,H2!O6] @#@@@[ ' FZ )@@G@@' @C@@@[ 'A ',A0[0,,H1!O6],A0[0,,H2!O6],' ',;@B@@@[ GA )@@G@@ A1[0,,H1!O6],A1[0,,H2!O6],' ',; @B@@@[ A2[0,,H1!O6],A2[0,,HGB )@@G@@2!O6],' ',; @B@@@[ A3[0,,H1!O6],A3[0,,H2!O6],' ',; @B@@@[ GC )@@G@@ A4[0,,H1!O6],A4[0,,H2!O6],' ',; @B@@@[ A5[0,,H1!O6],A5[0,,HGD )@@G@@2!O6],' ',; @B@@@[ A6[0,,H1!O6],A6[0,,H2!O6],' ',; @A@@@[ GE )@@G@@ A7[0,,H1!O6],A7[0,,H2!O6] @C@@@[ ' ',A8[0,,H1!O6],A8[0,,GF )@@G@@H2!O6],' ',;@B@@@[ A9[0,,H1!O6],A9[0,,H2!O6],' ',; @C@@@[ GG )@@G@@ A10[0,,H1!O6],A10[0,,H2!O6],' ',; @C@@@[ A11[0,,H1!O6],GH )@@G@@A11[0,,H2!O6],' ',; @C@@@[ A12[0,,H1!O6],A12[0,,H2!O6],' ',GI )@@G@@; @C@@@[ A13[0,,H1!O6],A13[0,,H2!O6],' ',; @C@@@[ GJ )@@G@@ A14[0,,H1!O6],A14[0,,H2!O6],' ',; @B@@@[ A15[0,,H1!O6],GK )@@G@@A15[0,,H2!O6] @#@@@[ ' ' @C@@@[ 'R ',R0[0,,HGL )@@G@@1!O6],R0[0,,H2!O6],' ',;@B@@@[ R1[0,,H1!O6],R1[0,,H2!O6],' ',; GM )@@G@@@B@@@[ R2[0,,H1!O6],R2[0,,H2!O6],' ',; @B@@@[ R3[0,,H1GN )@@G@@!O6],R3[0,,H2!O6],' ',; @B@@@[ R4[0,,H1!O6],R4[0,,H2!O6],' ',; GO )@@G@@@B@@@[ R5[0,,H1!O6],R5[0,,H2!O6],' ',; @B@@@[ R6[0,,H1GP )@@G@@!O6],R6[0,,H2!O6],' ',; @A@@@[ R7[0,,H1!O6],R7[0,,H2!O6] @C@@@[GQ )@@G@@ ' ',R8[0,,H1!O6],R8[0,,H2!O6],' ',;@B@@@[ R9[0,,H1GR )@@G@@!O6],R9[0,,H2!O6],' ',; @C@@@[ R10[0,,H1!O6],R10[0,,H2!O6],' ',GS )@@G@@; @C@@@[ R11[0,,H1!O6],R11[0,,H2!O6],' ',; @C@@@[ GT )@@G@@ R12[0,,H1!O6],R12[0,,H2!O6],' ',; @C@@@[ R13[0,,H1!O6],GU )@@G@@R13[0,,H2!O6],' ',; @C@@@[ R14[0,,H1!O6],R14[0,,H2!O6],' ',GV )@@G@@; @B@@@[ R15[0,,H1!O6],R15[0,,H2!O6] @^@@@# GOGW )@@G@@ FINISH @]@@@#DEMAND: @C@@@# 'X ',X0[0,,H1!O6],X0[0,,GX )@@G@@H2!O6],' ',;@B@@@# X1[0,,H1!O6],X1[0,,H2!O6],' ',; @B@@@# GY )@@G@@ X2[0,,H1!O6],X2[0,,H2!O6],' ',; @A@@@# X3[0,,H1!O6],X3[0,,HGZ )@@G@@2!O6] @C@@@# ' ',X4[0,,H1!O6],X4[0,,H2!O6],' ',;@B@@@# HA )@@G@@ X5[0,,H1!O6],X5[0,,H2!O6],' ',; @B@@@# X6[0,,H1!O6],X6[0,,HHB )@@G@@2!O6],' ',; @A@@@# X7[0,,H1!O6],X7[0,,H2!O6] @C@@@# ' HC )@@G@@ ',X8[0,,H1!O6],X8[0,,H2!O6],' ',;@B@@@# X9[0,,H1!O6],X9[0,,HHD )@@G@@2!O6],' ',; @C@@@# X10[0,,H1!O6],X10[0,,H2!O6],' ',; @B@@@#HE )@@G@@ X11[0,,H1!O6],X11[0,,H2!O6] @D@@@# ' ',X11[1,,HF )@@G@@H1!O6],X11[1,,H2!O6],' ',; @C@@@# X11[2,,H1!O6],X11[2,,H2!O6HG )@@G@@],' ',; @C@@@# X11[3,,H1!O6],X11[3,,H2!O6],' ',; @B@@@#HH )@@G@@ X11[4,,H1!O6],X11[4,,H2!O6] @#@@@# ' ' @C@@@#HI )@@G@@ 'A ',A0[0,,H1!O6],A0[0,,H2!O6],' ',;@B@@@# A1[0,,H1HJ )@@G@@!O6],A1[0,,H2!O6],' ',; @B@@@# A2[0,,H1!O6],A2[0,,H2!O6],' ',; HK )@@G@@@A@@@# A3[0,,H1!O6],A3[0,,H2!O6] @C@@@# ' ',A4[0,,HHL )@@G@@1!O6],A4[0,,H2!O6],' ',;@B@@@# A5[0,,H1!O6],A5[0,,H2!O6],' ',; HM )@@G@@@B@@@# A6[0,,H1!O6],A6[0,,H2!O6],' ',; @A@@@# A7[0,,H1HN )@@G@@!O6],A7[0,,H2!O6] @C@@@# ' ',A8[0,,H1!O6],A8[0,,H2!O6],' ',;HO )@@G@@@B@@@# A9[0,,H1!O6],A9[0,,H2!O6],' ',; @C@@@# A10[0,,HHP )@@G@@1!O6],A10[0,,H2!O6],' ',; @B@@@# A11[0,,H1!O6],A11[0,,H2!O6HQ )@@G@@] @D@@@# ' ',A12[0,,H1!O6],A12[0,,H2!O6],' ',; @C@@@#HR )@@G@@ A13[0,,H1!O6],A13[0,,H2!O6],' ',; @C@@@# A14[0,,HHS )@@G@@1!O6],A14[0,,H2!O6],' ',; @B@@@# A15[0,,H1!O6],A15[0,,H2!O6HT )@@G@@] @#@@@# ' ' @C@@@# 'R ',R0[0,,H1!O6],R0[0,,HU )@@G@@H2!O6],' ',;@B@@@# R1[0,,H1!O6],R1[0,,H2!O6],' ',; @B@@@# HV )@@G@@ R2[0,,H1!O6],R2[0,,H2!O6],' ',; @A@@@# R3[0,,H1!O6],R3[0,,HHW )@@G@@2!O6] @C@@@# ' ',R4[0,,H1!O6],R4[0,,H2!O6],' ',;@B@@@# HX )@@G@@ R5[0,,H1!O6],R5[0,,H2!O6],' ',; @B@@@# R6[0,,H1!O6],R6[0,,HHY )@@G@@2!O6],' ',; @A@@@# R7[0,,H1!O6],R7[0,,H2!O6] @C@@@# ' HZ )@@G@@ ',R8[0,,H1!O6],R8[0,,H2!O6],' ',;@B@@@# R9[0,,H1!O6],R9[0,,HIA )@@G@@2!O6],' ',; @C@@@# R10[0,,H1!O6],R10[0,,H2!O6],' ',; @B@@@#IB )@@G@@ R11[0,,H1!O6],R11[0,,H2!O6] @D@@@# ' ',R12[0,,IC )@@G@@H1!O6],R12[0,,H2!O6],' ',; @C@@@# R13[0,,H1!O6],R13[0,,H2!O6ID )@@G@@],' ',; @C@@@# R14[0,,H1!O6],R14[0,,H2!O6],' ',; @B@@@#IE )@@G@@ R15[0,,H1!O6],R15[0,,H2!O6] @]@@@#FINISH: @#@#@[ IF )@@G@@ ' ' @#@#@[ ' ' @[@@@[END _@@@@@ 0)^@)@A@[@@^TKELOIG )@@G@@ -OD))CDME)%C1GDDO^-GDD] 0)^@)_@@@@@C1JD-GD9RDDIC8)C1JELHCDOBK$^@)@D@[@@IH )@@G@@^@)^@)^@$^@)^@)^[ADDGC*=*[S@@@*SDFF*@ @[@@FUNCT AD$RESET(SWITCH,LINES) II )@@G@@@^@@@[FUNCT AD$RESET(SWITCH) @^@^@@ GO ENDDOC @E@@@^ IJ )@@G@@ GO ENDDOC . BYPASS DOCUMENTATION@]@#@@ . IK )@@G@@@]@#@@ . @F@[@@ 'ACDP FUNCTION FOR RESETING DEMAND SCRIL )@@G@@EEN VARIABLES' @E@@@[ 'ACDP FUNCTION FOR RESETING DEMAND SCRIM )@@G@@EEN SWITCH' @G@[@@ 'THIS FUNCTION RESETS LOCAL VARIABLES USED BIN )@@G@@Y OTHER ACDP' @F@@@[ 'THIS FUNCTION RESETS THE SWITCH USED IO )@@G@@BY OTHER ACDP' @E@@@@ 'FUNCTIONS FOR CONTROLLING DEMAND SCREIP )@@G@@EN OUTPUT.' @F@@@@ 'IF AN ACDP FUNCTION NEEDS TO ACCESS THESE VIQ )@@G@@ARIABLES,' @D@@@@ 'IT''S FIRST LOCAL DEFINITION MUST BE:' IR )@@G@@@#@@@@ ' ' @C@[@@ ' LOCAL INIT$SW(1),LINE$COUNT(IS )@@G@@1) @A@@@[ ' LOCAL INIT$SW(1)' @#@@@@ ' ' IT )@@G@@@ @@@@ 'FUNCTION CALL:' @#@@@@ ' ' @B@[@@ IU )@@G@@ ' RESET(INIT-SW,NBR-OF-LINES)'@ @@@[ ' RESET(INIT-SW)' IV )@@G@@@#@@@@ ' ' @G@[@@ 'RESET CALLED WITHOUT PARAMETERSIW )@@G@@ WILL SET BOTH VARIABLES' @E@@@[ 'RESET CALLED WITHOUT PARAIX )@@G@@METERS WILL SET SWITCH' @^@#@@ 'TO ZERO.' @E@@@#ENDDOC: IY )@@G@@ . END OF DOCUMENTATION@]@#@@ . @]@#@@IZ )@@G@@ . @]@^@@ENDDOC: @B@[@@ LOCAL INIT$SW(1),LINE$COUNJA )@@G@@T(1) @A@]@[ ' LOCAL INIT$SW(1)' @ @@@] LOCAL INJB )@@G@@IT$SW(1) @ @@@@ INIT$SW[]:=SWITCH @ @[@@ LINE$COUJC )@@G@@NT[]:=LINES @[@@@@END _@@@@@@J@@@[^@)^@)^@)^@)^@)^9MC(NC(O^[#CDGD- C))JD )@@G@@E9DE-CD9PE))E[[EL[D( E- ELN^[RDDGD))ET E))ETRDDOCTC^8)@A@#@@^@)^@)^@)^@)JE )@@G@@^@)^9OD8)FL ELJ 0$^@)^@)@J@@@#C(IC-^D9#BK)^@)^@)*[S@@@*SDFF*@#@@@@FUNCT JF )@@G@@AD$TABLES @^@]@@ GO ENDDOC @E@@@] GO ENDDOC JG )@@G@@ . BYPASS DOCUMENTATION@]@]@@ . @]@]@@ . JH )@@G@@@G@[@@ 'THE AD$TABLES FUNCTION DUMPS THE LCT, BNT, ENT, AND EPTJI )@@G@@.' @H@@@[ 'THE AD$TABLES FUNCTION DUMPS THE LCT, BNT, ENT, EJJ )@@G@@PT, AND AVT.' @]@]@@ . @]@]@@ . @]@]@@ENDDOC: JK )@@G@@@E@@@]ENDDOC: . END OF DOCUMENTATION@^@@@@JL )@@G@@ DEBUG$WORD:=0 @A@@@@ DEBUG$SIZE:=HDR[026,,H1] @A@@@@JM )@@G@@ 'LOCATION COUNTER TABLE:' @#@@@@ ' ' @]@@@@LCT$DUJN )@@G@@MP: @H@@@@ LCT[DEBUG$WORD!O12],LCT[DEBUG$WORD+1!O12],LCT[DEBUJO )@@G@@G$WORD+2!O12] @A@@@@ DEBUG$WORD:=DEBUG$WORD+3 @C@@@@ JP )@@G@@ GO DEBUG$WORD1\INIT$1@ @@@M WDS$PER$LINE[]:=04 OE )@@G@@@#@@@M GO MAIN$@]@@@MINIT$1: @ @@@M WDS$PER$LINE[]OF )@@G@@:=010 @#@@@M GO MAIN$@]@@@MINIT$2: @ @@@M GO DATA$OG )@@G@@TYP>1\INIT$3@ @@@M WDS$PER$LINE[]:=010 @#@@@M GO MAIN$OH )@@G@@@]@@@MINIT$3: @ @@@M WDS$PER$LINE[]:=020 @[@@@MMAIN$:@A@@@OOI )@@G@@ LINE$SIZE:=WDS$PER$LINE[] @]@@@OMAIN$1: @A@@@M. **LOOP TO OJ )@@G@@PRINT 1 LINE OF OUTPUT**@F@@@M WDS$PER$LINE[]:=NBR$OF$WDS0177\$+1,$+2 @B@@@M PRINPD )@@G@@T$BUF[A$IX,,Q1]:=0176 @C@@@M GO PRINT$BUF[A$IX,,Q2]<040\$+1,$PE )@@G@@+2 @B@@@M PRINT$BUF[A$IX,,Q2]:=0176 @C@@@M GOPF )@@G@@ PRINT$BUF[A$IX,,Q2]>0177\$+1,$+2 @B@@@M PRINT$BUF[A$IX,,PG )@@G@@Q2]:=0176 @C@@@M GO PRINT$BUF[A$IX,,Q3]<040\$+1,$+2 @B@@@MPH )@@G@@ PRINT$BUF[A$IX,,Q3]:=0176 @C@@@M GO PRINT$BUF[API )@@G@@$IX,,Q3]>0177\$+1,$+2 @B@@@M PRINT$BUF[A$IX,,Q3]:=0176 PJ )@@G@@@C@@@M GO PRINT$BUF[A$IX,,Q4]<040\$+1,$+2 @B@@@M PK )@@G@@ PRINT$BUF[A$IX,,Q4]:=0176 @C@@@M GO PRINT$BUF[A$IX,,Q4]>017PL )@@G@@7\$+1,$+2 @B@@@M PRINT$BUF[A$IX,,Q4]:=0176 @^@@@M PM )@@G@@ A$IX:=A$IX+1 @A@@@M GO A$IX>020\$+1,MAIN$42 @D@@@M PN )@@G@@ REL$ADR[!O6],ABS$ADR[!O6],SKIP$MARK[!F2],; @B@@@M PRINT$BUPO )@@G@@F[:WDS$PER$LINE[]!A4] @]@@@MMAIN$50: @A@@@M GO DATA$TYP=/3PP )@@G@@\MAIN$60 @D@@@M REL$ADR[!O6],ABS$ADR[!O6],SKIP$MARK[!F2],; PQ )@@G@@@B@@@M ABS$ADR[][:WDS$PER$LINE[]!F6] @]@@@MMAIN$60: @A@@@MPR )@@G@@ SKIP$MARK[]:=' ' @]@@@MMAIN$70: @C@@@M. DECREMENT PS )@@G@@WORDS$LEFT[] AND TEST TO SEE IF DONE@C@@@M REL$ADR[]:=REL$ADR[]PT )@@G@@+WDS$PER$LINE[] @C@@@M ABS$ADR[]:=ABS$ADR[]+WDS$PER$LINE[] PU )@@G@@@D@@@M WORDS$LEFT[]:=WORDS$LEFT[]-WDS$PER$LINE[] @A@@@M PV )@@G@@ GO WORDS$LEFT[]<=0\DONE @C@@@M GO WORDS$LEFT[]>WDS$PER$LIPW )@@G@@NE[]\MAIN$80@B@@@M WDS$PER$LINE[]:=WORDS$LEFT[] @]@@@MMAIN$8PX )@@G@@0: @B@@@M. IF DEMAND CHECK TO SEE IF SCREEN IS FULL@A@O@M GOPY )@@G@@ SCREEN$SIZE=0\MAIN$ @A@@@O GO SCREEN$SIZE=0\MAIN$1 @B@N@MPZ )@@G@@ GO LINES$OUTMAX$FILE$IX\MAIN$5 @B@@@M GO INDX1>MAX$FILE$IX\MAIN$TD )@@G@@8 @E@@@L GO (F$NAME1=FILE$NAME$[INDX1*2])**((F$NAME2=0)++ ;TE )@@G@@@D@M@L (F$NAME2=FILE$NAME$[INDX1*2+1]))\$+1,MAIN$4 @D@@@M TF )@@G@@ (F$NAME2=FILE$NAME$[INDX1*2+1]))\$+1,MAIN$7 @]@@@MMAIN$3: @#@@@MTG )@@G@@ AD$RESET@^@@@M GO MAIN$5 @]@@@MMAIN$4: @^@@@MTH )@@G@@ AD$RESET(1) @]@@@MMAIN$5: @]@M@LMAIN$3: @ @@@L TI )@@G@@ AD$F$SUBRTN(INDX1) @A@@@L GO SCREEN$SIZE=0\DONE @B@N@LTJ )@@G@@ GO LINE$COUNTMAX$FILE$IX\DONE @A@@@L GOTW )@@G@@ SCREEN$SIZE=0\MAIN$10 @ @@@L GO JUMP$$SW=/0\EXIT @#@@@L TX )@@G@@ ' ' @H@@@L 'IF YOU WANT YOUR NEXT FILE LISTED, PRESS TRTY )@@G@@ANSMIT TO CONTINUE.' @E@@@L 'IF YOU WISH TO STOP, USE THE ADTZ )@@G@@$RESET FUNCTION.' @#@@@L AD$RESET@#@@@L GO EXIT @[@@@LUA )@@G@@DONE: @^@@@L INIT$SW[]:=0 @[@@@LEXIT: @[@@@LEND _@@@@@^[HCDDUB )@@G@@*[S@@@*SDFF*@B@]@[FUNCT AD$INDEX(INDEX$ADDR,INDEX$SIZE) @D@@@]FUNCT UC )@@G@@AD$INDEX(INDEX$ADDR,INDEX$SIZE,CTA$ADDRESS) @^@^@[ GO ENDDOUD )@@G@@C @E@@@^ GO ENDDOC . BYPASS DOCUMENTATIONUE )@@G@@@]@^@[ . @]@^@[ . @H@]@[ 'THE INDX$DUMP FUNCTUF )@@G@@ION IS USED TO CALCULATE THE DECIMAL VALUES OF' @H@^@] 'THE INDUG )@@G@@X$DUMP FUNCTION IS USED TO CALCULATE THE DECIMAL VALUE OF' @G@@@^ UH )@@G@@ 'THIS ACDP FUNCTION IS USED TO CALCULATE THE DECIMAL VALUE OF'@E@]@[UI )@@G@@ 'INDICES DEFINED WITHIN AN ASCII COBOL PROGRAM..' @E@@@] UJ )@@G@@ 'AN INDEX DEFINED WITHIN AN ASCII COBOL PROGRAM.' @A@@@] 'TUK )@@G@@HE FUNCTION CALL IS:' @H@@@] ' AD$INDEX(ADDRESS,SIZE-OF-DIMUL )@@G@@ENSIONED-ITEM,SUBPROGRAM-CTA-ADDR) @K@#@] 'THE SUBPROGRAM CTA UM )@@G@@ADDRESS IS OPTIONAL IF THIS FIELD IS NOT' @G@@@#UN )@@G@@ 'THE SUBPROGRAM CTA ADDRESS IS OPTIONAL. IF THIS FIELD IS NOT'UO )@@G@@@D@@@] 'SUPPLIED, THE MAIN PROGRAM IS ASSUMED.' @]@^@[ UP )@@G@@ . @]@^@[ . @]@^@[ENDDOC: @E@@@^ENDDOC: UQ )@@G@@ . END OF DOCUMENTATION@ @@@[. **DEFINE LOCAL VARIABLES** UR )@@G@@@ @@@[ LOCAL INIT$SW(1) @ @ @[ LOCAL SCR$AREA(07) US )@@G@@@ @@@ LOCAL SCR$AREA(077) @ @@@[ LOCAL AD$INIT$SW(1) UT )@@G@@@A@@@[ LOCAL SUBPROGNAME$(0200) @F@@@[ LOCAL SPT$ADR$UU )@@G@@(0100),CTA$ADR$(0100),FILDIR$ADR$(0100) @H@@@[ LOCAL LC$00$(0UV )@@G@@100),LC$01$(0100),FCB$LIST$(0100),PARAM$LIST$(0100) @ @@@[ LOUW )@@G@@CAL LC$04$(0100) @F@@@[ LOCAL FILE$NAME$(0200),FCB$ADR$(0100),UX )@@G@@REC$ADR$(0100) @ @@@[ LOCAL COND$WORD(1) @ @@@[ LOUY )@@G@@CAL INDEX$VALUE(1)@C@@@] CTA$ADDRESS:=CTA$ADDRESS=0\CTA$ADR UZ )@@G@@@A@]@[ GO ASCII$OFF$SW=0\MAIN$10 @A@@@] GO ASCII$OFF$SVA )@@G@@W=0\MAIN$5 @#@@@[ ' ' @G@@@[ 'WARNING: FIELDATA UVB )@@G@@SAGE ASSUMED IN CALCULATING INDEX VALUES.'@#@@@[ ' ' @]@@@[VC )@@G@@MAIN$5: @B@@@[ H1$:=CTA$ADR[INDEX$ADDR,,H1] @B@@@[ VD )@@G@@ H2$:=CTA$ADR[INDEX$ADDR,,H2] @A@@@[ GO ASCII$OFF$SW=0\MAVE )@@G@@IN$10 @D@@@[ INDEX$VALUE[]:=((H1$/6)+(H2$*6))/INDEX$SIZE @^@@@[VF )@@G@@ GO MAIN$15 @]@@@[MAIN$10: @D@@@[ INDEX$VALUE[]:VG )@@G@@=((H1$/9)+(H2$*4))/INDEX$SIZE @]@@@[MAIN$15: @#@@@[ ' ' VH )@@G@@@G@@@[ 'VALUE OF INDEX AT ADDRESS',INDEX$ADDR,'IS',INDEX$VALUE[VI )@@G@@!D] @[@@@[END _@@@@@ ' ' @G@[@@ 'WARNING: FIELDATA USAGE VJ )@@G@@ASSUMED IN CALCULATING INDEX VALUES.' @G@@@[ 'WARNING: FIELVK )@@G@@*[S@@@*SDFF*@#@@@]@TEST TNE/0/S2 @]@@@]@JUMP NODUMP@#@[@@@TEST TNE/0/VL )@@G@@S2 @]@[@@@JUMP NODUMP@]@^@@@PMD,LP @[@@@^@PMD,L@[@@@@@FLIT @]@@@@VM )@@G@@AD$INIT @]@@@@BUFFER$SW:=1@]@@@#AD$SUMMARY @]@@@@AD$REGS @]@@@@VN )@@G@@AD$CS$OCTAL @]@@@@AD$CS$ASCII @]@@@@AD$WS$OCTAL @]@@@@AD$WS$ASCII @]@@@@VO )@@G@@AD$FILE @]@@@@@NODUMP:EOF _@@@@@_@@@@@/K@[/H*[S@@@*SDFF*@^@@@^FUNCT VP )@@G@@ AD$WS$ASCII @E@@@^ GO ENDDOC . BYPASS DVQ )@@G@@OCUMENTATION@H@ @^ 'THE ACDP FUNCTION AD$WS$ASCII DUMPS WORKINVR )@@G@@G STORAGE IN ASCII.' @F@@@ 'THIS ACDP FUNCTION DUMPS WORKINVS )@@G@@G STORAGE IN ASCII.' @E@@@^ENDDOC: . ENVT )@@G@@D OF DOCUMENTATION@A@@@^. ** DEFINE LOCAL VARIABLES ** @ @@@^ VU )@@G@@ LOCAL INIT$SW(1) @ @B@^ LOCAL SCR$AREA(07) @ @@@B VV )@@G@@ LOCAL SCR$AREA(077) @ @@@^ LOCAL AD$INIT$SW(1) @A@@@^ VW )@@G@@ LOCAL SUBPROGNAME$(0200) @F@@@^ LOCAL SPT$ADR$(0100),CTA$AVX )@@G@@DR$(0100),FILDIR$ADR$(0100) @H@@@^ LOCAL LC$00$(0100),LC$01$(VY )@@G@@0100),FCB$LIST$(0100),PARAM$LIST$(0100) @ @@@^ LOCAL LC$04$(0VZ )@@G@@100) @F@@@^ LOCAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADR$(010WA )@@G@@0) @^@@@^ LINE$COUNT:=3 @ @@@^ GO INIT$SW[]=0\INIT$WB )@@G@@@^@@@^ AD$RESET(1) @#@@@^ GO MAIN$@[@@@^INIT$:@ @@@^WC )@@G@@. ** INITIALIZATION ROUTINE **@#@@@^ AD$RESET@ @@@^ JUWD )@@G@@MP$SW:=MAIN$1 @^@@@^ INIT$SW[]:=1 @[@@@^MAIN$:@^@@@^. ** MWE )@@G@@AIN ROUTINE ** @^@@@^ GO JUMP$SW @]@@@^MAIN$1: @#@@@^WF )@@G@@ ' ' @#@@@^ ' ' @#@@@^ ' ' @#@@@^WG )@@G@@ ' ' @#@@@^ ' ' @#@@@^ ' ' @#@@@^WH )@@G@@ ' ' @#@@@^ ' ' @#@@@^ ' ' @#@@@^WI )@@G@@ ' ' @G@@@^ TAB(11),'***** WORKING STORAGE FOR MAIWJ )@@G@@N PROGRAM (ASCII) *****'@#@@@^ ' ' @B@@@^ AD$DUMP(WK )@@G@@LC$00,LC$04-LC$00,2,1) @A@@@^ GO SCREEN$SIZE=0\MAIN$3 @B@@@^WL )@@G@@ GO LINE$COUNTMAX$PROG$IX\DONE XE )@@G@@@A@@@A GO SCREEN$SIZE=0\MAIN$6 @F@@@^ 'OUTPUT STILL XF )@@G@@AVAILABLE, PRESS TRANSMIT TO CONTINUE,' @A@@@^ 'OR USE RESET XG )@@G@@FUNCTION...'@ @@@^ JUMP$SW:=MAIN$4 @#@@@^ GO EXIT XH )@@G@@@[@@@^DONE: @^@@@^ INIT$SW[]:=0 @[@@@^EXIT: @[@@@^END _@@@@@XI )@@G@@ JUMP$SW:=MAIN$4 @#@@@# GO EXIT @[@@@#DONE: @^@@@#XJ )@@G@@ INIT$SW[]:=0 *[S@@@*SDFF*@^@@@NFUNCT AD$WS$OCTAL @E@@@NXK )@@G@@ GO ENDDOC . BYPASS DOCUMENTATION@F@@@N XL )@@G@@ 'THIS ACDP FUNCTION DUMPS WORKING STORAGE IN OCTAL.' @E@@@NENDDOCXM )@@G@@: . END OF DOCUMENTATION@A@@@N. ** DEFINEXN )@@G@@ LOCAL VARIABLES ** @ @@@N LOCAL INIT$SW(1) @ @P@N XO )@@G@@ LOCAL SCR$AREA(07) @ @@@P LOCAL SCR$AREA(077) @ @@@N XP )@@G@@ LOCAL AD$INIT$SW(1) @A@@@N LOCAL SUBPROGNAME$(0200) @F@@@NXQ )@@G@@ LOCAL SPT$ADR$(0100),CTA$ADR$(0100),FILDIR$ADR$(0100) @H@@@NXR )@@G@@ LOCAL LC$00$(0100),LC$01$(0100),FCB$LIST$(0100),PARAM$LIST$(01XS )@@G@@00) @ @@@N LOCAL LC$04$(0100) @F@@@N LOCAL FILE$NAMXT )@@G@@E$(0200),FCB$ADR$(0100),REC$ADR$(0100) @^@@@N LINE$COUNT:=3 XU )@@G@@@ @@@N GO INIT$SW[]=0\INIT$@^@@@N AD$RESET(1) @#@@@NXV )@@G@@ GO MAIN$@[@@@NINIT$:@ @@@N. ** INITIALIZATION ROUTINE **@#@@@NXW )@@G@@ AD$RESET@ @@@N JUMP$SW:=MAIN$1 @^@@@N INXX )@@G@@IT$SW[]:=1 @[@@@NMAIN$:@^@@@N. ** MAIN ROUTINE ** @^@@@N GOXY )@@G@@ JUMP$SW @]@@@NMAIN$1: @#@@@N ' ' @#@@@N ' XZ )@@G@@' @#@@@N ' ' @#@@@N ' ' @#@@@N ' YA )@@G@@' @#@@@N ' ' @#@@@N ' ' @#@@@N ' YB )@@G@@' @#@@@N ' ' @#@@@N ' ' @G@@@N TAYC )@@G@@B(11),'***** WORKING STORAGE FOR MAIN PROGRAM (OCTAL) *****'@#@@@N YD )@@G@@ ' ' @B@@@N AD$DUMP(LC$00,LC$04-LC$00,1,1) @A@@@N YE )@@G@@ GO SCREEN$SIZE=0\MAIN$3 @B@@@N GO LINE$COUNTMAX$PROG$IX\DONE @A@@@O GO SCREEN$SIZE=0\MAIYY )@@G@@N$6 @F@@@N 'OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINUYZ )@@G@@E,' @A@@@N 'OR USE RESET FUNCTION...'@ @@@N JUMP$SW:ZA )@@G@@=MAIN$4 @#@@@N GO EXIT @[@@@NDONE: @^@@@N INIT$SW[ZB )@@G@@]:=0 @[@@@NEXIT: @[@@@NEND _@@@@@@]@@@MMAIN$7*[S@@@*SDFF*@^@@@]FUNCT ZC )@@G@@ AD$WS$FLDTA @E@@@] GO ENDDOC . BYPASS DZD )@@G@@OCUMENTATION@F@#@] 'THE ACDP FUNCTION DUMPS WORKING STORAGE INZE )@@G@@ FIELDATA.' @F@@@# 'THIS ACDP FUNCTION DUMPS WORKING STORAGE IZF )@@G@@N FIELDATA.'@E@@@]ENDDOC: . END OF DOCUMENZG )@@G@@TATION@A@@@]. ** DEFINE LOCAL VARIABLES ** @ @@@] LOCAL INZH )@@G@@IT$SW(1) @ @ @] LOCAL SCR$AREA(07) @ @@@ LOCAL SCZI )@@G@@R$AREA(077) @ @@@] LOCAL AD$INIT$SW(1) @A@@@] LOCAL SUZJ )@@G@@BPROGNAME$(0200) @F@@@] LOCAL SPT$ADR$(0100),CTA$ADR$(0100),FIZK )@@G@@LDIR$ADR$(0100) @H@@@] LOCAL LC$00$(0100),LC$01$(0100),FCB$LIZL )@@G@@ST$(0100),PARAM$LIST$(0100) @ @@@] LOCAL LC$04$(0100) @F@@@]ZM )@@G@@ LOCAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADR$(0100) @^@@@]ZN )@@G@@ LINE$COUNT:=3 @ @@@] GO INIT$SW[]=0\INIT$@^@@@] ZO )@@G@@ AD$RESET(1) @#@@@] GO MAIN$@[@@@]INIT$:@ @@@]. ** INITIALZP )@@G@@IZATION ROUTINE **@#@@@] AD$RESET@ @@@] JUMP$SW:=MAIN$ZQ )@@G@@1 @^@@@] INIT$SW[]:=1 @[@@@]MAIN$:@^@@@]. ** MAIN ROUTINE ZR )@@G@@** @^@@@] GO JUMP$SW @]@@@]MAIN$1: @#@@@] ' ZS )@@G@@' @#@@@] ' ' @#@@@] ' ' @#@@@] ' ZT )@@G@@' @#@@@] ' ' @#@@@] ' ' @#@@@] ' ZU )@@G@@' @#@@@] ' ' @#@@@] ' ' @#@@@] ' ZV )@@G@@' @H@@@] TAB(9),'***** WORKING STORAGE FOR MAIN PROGRAM (FIZW )@@G@@ELDATA) *****' @#@@@] ' ' @B@@@] AD$DUMP(LC$00,ZX )@@G@@LC$04-LC$00,3,1) @A@@@] GO SCREEN$SIZE=0\MAIN$3 @B@@@] ZY )@@G@@ GO LINE$COUNTMAX$PROG$IX\DONE @A@@@^AR )@@G@@ GO SCREEN$SIZE=0\MAIN$6 @F@@@] 'OUTPUT STILL AVAILAAS )@@G@@BLE, PRESS TRANSMIT TO CONTINUE,' @A@@@] 'OR USE RESET FUNCTIAT )@@G@@ON...'@ @@@] JUMP$SW:=MAIN$4 @#@@@] GO EXIT @[@@@]AU )@@G@@DONE: @^@@@] INIT$SW[]:=0 @[@@@]EXIT: @[@@@]END _@@@@@N$SIZEAV )@@G@@=0\MAIN$7 @B@@@[ GO LINE$COUNT0\MAIN$ @H@@@G 'IF YOU DESIREBH )@@G@@ SCREEN PAGING TYPE IN: AD$HELP(LINES$PER$SCREEN)' @E@@@G 'IBI )@@G@@F YOU DO NOT WANT PAGING, JUST PRESS TRANSMIT.' @#@@@G GO EXIT BJ )@@G@@@[@@@GMAIN$:@A@@@G SCREEN$SIZE:=NBR$OF$LINES @A@@@G GOBK )@@G@@ SCREEN$SIZE=0\TEXT @]@@@GMAIN$1: @A@@@G LINE$COUNT:=LIBL )@@G@@NE$COUNT+1 @C@@@G GO LINE$COUNT>=SCREEN$SIZE\NEWPAGE @A@@@GBM )@@G@@ SAVE$PLACE:=SAVE$PLACE+2 @^@@@G GO SAVE$PLACE @[@@@GBN )@@G@@TEXT: @#@@@G ' ' @#@@@G ' ' @#@@@G ' BO )@@G@@' @#@@@G ' ' @#@@@G ' ' @#@@@G ' BP )@@G@@' @#@@@G ' ' @#@@@G ' ' @#@@@G ' BQ )@@G@@' @E@@@G TAB(20),'*************************************' BR )@@G@@@ @@@G SAVE$PLACE:=$+0 @A@@@G GO SCREEN$SIZE=/0\MABS )@@G@@IN$1 @E@@@G TAB(20),'* ACOB 5R2 DUMPBUSTER VERSION 2R1 *' BT )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @E@@@G TAB(20),'*****BU )@@G@@********************************' @A@@@G GO SCREEN$SIZE=/0\MABV )@@G@@IN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 BW )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@GBX )@@G@@ '1. INTRODUCTION.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 BY )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@GBZ )@@G@@ 'THE ASCII COBOL DUMPBUSTER PACKAGE (ACDP) IS A VERSATILE,' CA )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'EASY TO USE, CB )@@G@@INTERACTIVE DEBUGGING TOOL FOR ANALYZING' @A@@@G GO SCREEN$SIZECC )@@G@@=/0\MAIN$1 @G@@@G 'ASCII COBOL PRGRAM DUMPS. THIS SYSTEM OF ICD )@@G@@NTERDEPENDENT' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G CE )@@G@@ 'FLIT FUNCTIONS HAS BEEN INCLUDED IN THE FLIT LIBRARY' @A@@@G CF )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'FILE, SYS$*FLIT$. ALL OFCG )@@G@@ THE ACDP FLIT FUNCTIONS' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 CH )@@G@@@F@@@G 'HAVE A PREFIX OF ''AD$'' TO DISTINGUISH THEM FROM THE' CI )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @D@@@G 'OTHER FLIT FUCJ )@@G@@NCTIONS FOUND IN SYS$*FLIT$.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 CK )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@GCL )@@G@@ 'THE ACDP FLIT FUNCTION PACKAGE CAN BE USED IN EITHER ' @A@@@GCM )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'DEMAND OR BATCH MODCN )@@G@@E. IN DEMAND MODE ACDP WILL FORMAT'@A@@@G GO SCREEN$SIZE=/0\MACO )@@G@@IN$1 @F@@@G 'ITS OUTPUT FOR A DEMAND SCREEN GIVING THE USER COCP )@@G@@NTROL'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'OF PAGECQ )@@G@@ SCROLLING. IN BATCH MODE ACDP UTILIZES ALL 132'@A@@@G GO SCREECR )@@G@@N$SIZE=/0\MAIN$1 @A@@@G 'CHARACTERS FOR OUTPUT.' @A@@@G CS )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GOCT )@@G@@ SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREECU )@@G@@N$SIZE=/0\MAIN$1 @B@@@G '2. DEMAND MODE OPERATION.' @A@@@GCV )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G CW )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @E@@@G 'THE FIRST ACDP FUNCTION TCX )@@G@@HE USER SHOULD CALL IS:'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@GCY )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @B@@@G CZ )@@G@@ ' AD$INIT(20)' @A@@@G GO SCREEN$SIZE=/0\MADA )@@G@@IN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 DB )@@G@@@G@@@G 'THIS FUNCTION WILL LOAD YOUR DUMP FROM DIAG$, AND PERFODC )@@G@@RM' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'INITIALDD )@@G@@IZATION FOR ALL THE OTHER ACDP FUNCTIONS. THIS'@A@@@G GO SCREEDE )@@G@@N$SIZE=/0\MAIN$1 @G@@@G 'ACDP FUNCTION MUST BE INVOKED FIRST TDF )@@G@@O ANALYZE AN ASCII' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@GDG )@@G@@ 'COBOL PROGRAM DUMP. THE NUMBER 20 REFERENCED IN THE' @A@@@GDH )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'FUNCTION CALL IS THDI )@@G@@E NUMBER OF LINES FOR ACDP TO USE' @A@@@G GO SCREEN$SIZE=/0\MADJ )@@G@@IN$1 @F@@@G 'IN FORMATTING SCREEN OUTPUT FOR A DEMAND TERMINALDK )@@G@@.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'IF THISDL )@@G@@ PARAMETER IS OMITTED ACDP ASSUMES BATCH MODE' @A@@@G GO SCREEDM )@@G@@N$SIZE=/0\MAIN$1 @A@@@G 'OUTPUT. FOR EXAMPLE:' @A@@@G DN )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GODO )@@G@@ SCREEN$SIZE=/0\MAIN$1 @A@@@G ' AD$INIT' @A@@@GDP )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G DQ )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'ANOTHER ACDP FUNCTION USEDR )@@G@@D EXCLUSIVELY IN DEMAND MODE IS' @A@@@G GO SCREEN$SIZE=/0\MADS )@@G@@IN$1 @G@@@G 'AD$RESET. ALMOST ALL OF THE ACDP FUNCTIONS REQUIDT )@@G@@RE MORE' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'TDU )@@G@@HAN ONE SCREEN PAGES OF OUTPUT TO COMPLETE THEIR TASK.' @A@@@G DV )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @E@@@G 'THE AD$RESET FUNCTION MAYDW )@@G@@ BE USED AFTER ANOTHER' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@@@GDX )@@G@@ 'ACDP FUNCTION HAS BEEN INITIATED TO CANCEL ITS OUTPUT, AND REDY )@@G@@SET' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@@@G 'INTERNADZ )@@G@@L SCREEN HANDLING VARIABLES. IF A MISTAKE IS MADE SUCH AS' @A@@@G EA )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'INVOKING A NEW ACDP FUNCTEB )@@G@@ION BEFORE THE CURRENT ONE HAS' @A@@@G GO SCREEN$SIZE=/0\MAEC )@@G@@IN$1 @G@@@G 'COMPLETED, THE AD$RESET FUNCTION SHOULD CLEAR THEED )@@G@@ ERROR.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'IEE )@@G@@F AD$RESET DOES NOT RESOLVE THE ERROR, FLIT SHOULD BE'@A@@@G GOEF )@@G@@ SCREEN$SIZE=/0\MAIN$1 @C@@@G 'ERROR TERMINATED AND RESTARTED.EG )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' EH )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@GEI )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @C@@@G '3. DESCRIPTION OF AEJ )@@G@@CDP FUNCTIONS.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G EK )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G '3EL )@@G@@.1 AD$INIT.'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' EM )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'THE AD$EN )@@G@@INIT FUNCTION LOADS THE DUMP FROM THE DIAG$ FILE,' @A@@@G GOEO )@@G@@ SCREEN$SIZE=/0\MAIN$1 @H@@@G 'INITIALIZES GLOBAL VARIABLES TOEP )@@G@@ LOCATE INFORMATION WITHIN THE' @A@@@G GO SCREEN$SIZE=/0\MAEQ )@@G@@IN$1 @G@@@G 'DUMP, SETS QUARTER WORD MODE ON, AND SETS LINE SIER )@@G@@ZE AT 80' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'OES )@@G@@R 132 CHACACTERS. THE FOLLOWING GLOBAL VARIABLES WILL' @A@@@G ET )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @A@@@G 'BE SET UP FOR YOUR USE:' EU )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@GEV )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'LC$00 - ADDEW )@@G@@RESS OF MAIN PROGRAM WORKING-STORAGE' @A@@@G GO SCREEN$SIZEEX )@@G@@=/0\MAIN$1 @E@@@G 'LC$01 - ADDRESS OF MAIN PROGRAM IBAEY )@@G@@NK' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @D@@@G 'LC$02 EZ )@@G@@ - ADDRESS OF COMMON STORAGE' @A@@@G GO SCREEN$SIZE=/0\MAFA )@@G@@IN$1 @F@@@G 'LC$04 - ADDRESS OF MAIN PROGRAM LITERAL PFB )@@G@@OOL' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'FCB$LISFC )@@G@@T - ADDRESS OF MAIN PROGRAM FCB LIST $(06)'@A@@@G GO SCREEFD )@@G@@N$SIZE=/0\MAIN$1 @H@@@G 'PARAM$LIST - ADDRESS OF MAIN PROGRFE )@@G@@AM OBJECT MODULE PARAMETER' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 FF )@@G@@@B@@@G ' LIST $(08)' @A@@@G GO SCREEFG )@@G@@N$SIZE=/0\MAIN$1 @E@@@G 'SAR$ADR - ADDRESS OF SAVED AREAFH )@@G@@ RECORD' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'CFI )@@G@@TA$ADR - ADDRESS OF MAIN PROGRAM CTA TABLE' @A@@@G GOFJ )@@G@@ SCREEN$SIZE=/0\MAIN$1 @G@@@G 'CURR$CTA - ADDRESS OF CTA FK )@@G@@FOR LAST SUBPROGRAM EXECUTING'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 FL )@@G@@@F@@@G 'FILDIR$ADR - ADDRESS OF MAIN PROGRAM FILDIR TABLE' FM )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@@@G 'CURR$FILDIR FN )@@G@@ - ADDRESS OF FILDIR FOR LAST SUBPROGRAM EXECUTING' @A@@@G GOFO )@@G@@ SCREEN$SIZE=/0\MAIN$1 @G@@@G 'C$S$ADR - ADDRESS OF PROGFP )@@G@@RAM STOP IN USER PROGRAM' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 FQ )@@G@@@D@@@G ' FOR C$S LIBRARY ROUTINES.' @A@@@G FR )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'C$D$ADR - ADDRESS OFS )@@G@@F PROGRAM STOP IN USER PROGRAM' @A@@@G GO SCREEN$SIZE=/0\MAFT )@@G@@IN$1 @D@@@G ' FOR C$D LIBRARY ROUTINES.' @A@@@GFU )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G FV )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GOFW )@@G@@ SCREEN$SIZE=/0\MAIN$1 @ @@@G '3.2 AD$RESET.' @A@@@G FX )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GOFY )@@G@@ SCREEN$SIZE=/0\MAIN$1 @E@@@G 'ACDP FUNCTION FOR RESETING DEMAFZ )@@G@@ND SCREEN SWITCH.'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G GA )@@G@@ 'THIS FUNCTION RESETS THE SWITCH USED BY OTHER ACDP' @A@@@G GB )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @E@@@G 'FUNCTIONS FOR CONTROLLINGGC )@@G@@ DEMAND SCREEN OUTPUT.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@GGD )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G GE )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@G '3GF )@@G@@.3 AD$SUMMARY.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G GG )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@K@G 'TGH )@@G@@HIS ACDP FUNCTION PRINTS A CORNUPOLIA OF INFORMATION CONCERNING' @H@@@KGI )@@G@@ 'THIS ACDP FUNCTION PRINTS A CORNUCOPIA OF INFORMATION CONCERNGJ )@@G@@ING' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'YOUR DEGK )@@G@@AD (WHOOPS, I MEAN STOPPED) ACOB PROGRAM. IT WILL' @A@@@G GOGL )@@G@@ SCREEN$SIZE=/0\MAIN$1 @H@@@G 'IDENTIFY WHERE THE PROGRAM STOPGM )@@G@@PED, LIST ALL ACTIVE SUBPROGRAMS,' @A@@@G GO SCREEN$SIZE=/0\MAGN )@@G@@IN$1 @G@@@G 'LIST A SUMMARY OF ALL FILES, AND SOME OTHER MISCEGO )@@G@@LLANEOUS' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G 'IGP )@@G@@NFORMATION.'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' GQ )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' GR )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G '3.4 AD$REGS.'GS )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@GGT )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'THE AD$REGS FUNCTIOGU )@@G@@N PRINTS OUT THE USER REGISTER SET.'@A@@@G GO SCREEN$SIZE=/0\MAGV )@@G@@IN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 GW )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@GGX )@@G@@ '3.5 AD$WS$XXXXX.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 GY )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@GGZ )@@G@@ 'THERE ARE THREE ACDP FLIT FUNCTIONS FOR PRINTING THE' @A@@@GHA )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'WORKING-STORAGE SECHB )@@G@@TION OF AN ASCII COBOL PROGRAM:' @A@@@G GO SCREEN$SIZE=/0\MAHC )@@G@@IN$1 @D@@@G 'AD$WS$OCTAL, AD$WS$ASCII, AND AD$WS$FLDTA.'@A@@@GHD )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'EACH OF THESE FUNCTHE )@@G@@IONS WILL LIST THE WORKING-STORAGE' @A@@@G GO SCREEN$SIZE=/0\MAHF )@@G@@IN$1 @F@@@G 'SECTION FOR ALL THE PROGRAM UNITS COLLECTED TOGETHG )@@G@@HER' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @B@@@G 'WITHIN HH )@@G@@THE ABSOLUTE ELEMENT.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@GHI )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G HJ )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@G '3HK )@@G@@.6 AD$CS$XXXXX.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G HL )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'THM )@@G@@HERE ARE THREE ACDP FLIT FUNCTIONS FOR PRINTING THE' @A@@@G GOHN )@@G@@ SCREEN$SIZE=/0\MAIN$1 @F@@@G 'COMMON-STORAGE SECTION OF AN ASHO )@@G@@CII COBOL PROGRAM:' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @D@@@GHP )@@G@@ 'AD$CS$OCTAL, AD$CS$ASCII, AND AD$CS$FLDTA.'@A@@@G GOHQ )@@G@@ SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEHR )@@G@@N$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZEHS )@@G@@=/0\MAIN$1 @^@@@G '3.7 AD$FILE.'@A@@@G GO SCREEN$SIZEHT )@@G@@=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAHU )@@G@@IN$1 @G@@@G 'THE AD$FILE FUNCTION WILL PROVIDE THE FOLLOWING IHV )@@G@@NFORMATION' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'FHW )@@G@@OR A PARTICULAR FILE OR ALL FILES WITHIN THE ABSOLUTE'@A@@@G GOHX )@@G@@ SCREEN$SIZE=/0\MAIN$1 @^@@@G 'PROGRAM:' @A@@@G GOHY )@@G@@ SCREEN$SIZE=/0\MAIN$1 @ @@@G ' FILE TYPE'@A@@@G HZ )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @A@@@G ' FILE STATUS' IA )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @A@@@G ' RECOIB )@@G@@RD SIZE' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @D@@@G ' IC )@@G@@ PHYSICAL RECORD SIZE (BLOCK)' @A@@@G GO SCREEN$SIZEID )@@G@@=/0\MAIN$1 @C@@@G ' BUFFERS (IF BUFFER$SW:=1)' @A@@@GIE )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @A@@@G ' CURRENT REIF )@@G@@CORD' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G ' IG )@@G@@ INFORMATION STATISTICS TABLE (MSAM ONLY)' @A@@@G GO SCREEIH )@@G@@N$SIZE=/0\MAIN$1 @E@@@G ' OTHER ASSORTED ADDRESS INFORII )@@G@@MATION' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' IJ )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'IF AD$FIK )@@G@@ILE IS CALLED WITHOUT ANY PARAMETERS IT WILL LIST ALL'@A@@@G GOIL )@@G@@ SCREEN$SIZE=/0\MAIN$1 @H@@@G 'THE FILES DEFINED WITHIN THE ABIM )@@G@@SOLUTE PROGRAM. THREE SWITCHES' @A@@@G GO SCREEN$SIZE=/0\MAIN )@@G@@IN$1 @C@@@G 'ALSO AFFECT THE OUTPUT OF AD$FILE:' @A@@@G IO )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GOIP )@@G@@ SCREEN$SIZE=/0\MAIN$1 @E@@@G ' BUFFER$SW:=0 . BUFIQ )@@G@@FERS ARE PRINTED' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G IR )@@G@@ ' BUFFER$SW:=1 . BUFFERS ARE NOT PRINTED' @A@@@G IS )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G ' FLDTA$ON$SW:=0 IT )@@G@@ . FIELDATA IS NOT PRINTED' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 IU )@@G@@@E@@@G ' FLDTA$ON$SW:=1 . FIELDATA IS PRINTED' @A@@@GIV )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @E@@@G ' ASCII$OFF$IW )@@G@@SW:=0 . ASCII IS PRINTED' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 IX )@@G@@@E@@@G ' ASCII$OFF$SW:=1 . ASCII IS NOT PRINTED'@A@@@GIY )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G IZ )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'THESE SWITCHES ARE ALL SEJA )@@G@@T TO ZERO IN THE AD$INIT FUNCTION.' @A@@@G GO SCREEN$SIZE=/0\MAJB )@@G@@IN$1 @H@@@G 'IF YOU DESIRE TO MODIFY ANY OF THESE SWITCH SETTIJC )@@G@@NGS, IT MUST' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @E@@@G JD )@@G@@ 'BE DONE AFTER CALLING THE AD$INIT FUNCTION.' @A@@@G GOJE )@@G@@ SCREEN$SIZE=/0\MAIN$1 @B@@@G 'HOW ABOUT A FEW EXAMPLES?' JF )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @E@@@G ' 1. TO PJG )@@G@@RINT THE INFORMATION FOR ALL FILES:'@A@@@G GO SCREEN$SIZE=/0\MAJH )@@G@@IN$1 @C@@@G ' AD$FILE' @A@@@G JI )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @F@@@G ' 2. TO PRINT THE INFJJ )@@G@@ORMATION FOR FILE, ADVENTURE:'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 JK )@@G@@@F@@@G ' AD$FILE(''ADVENT'',''URE '')'JL )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G ' 3. TO PJM )@@G@@RINT THE INFORMATION FOR FILE, ZORK:' @A@@@G GO SCREEN$SIZEJN )@@G@@=/0\MAIN$1 @E@@@G ' AD$FILE(''ZORK '')JO )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' JP )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@GJQ )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @^@@@G '3.8 AD$DUMP.'@A@@@GJR )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G JS )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'THE AD$DUMP FUNCTION WILLJT )@@G@@ PRINT ANY PORTION OF MEMORY GIVEN:'@A@@@G GO SCREEN$SIZE=/0\MAJU )@@G@@IN$1 @F@@@G 'PROGRAM RELATIVE ADDRESS, SIZE, AND DISPLAY TYPE.JV )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'THE VALJW )@@G@@ID DISPLAY TYPES ARE: 1=OCTAL, 2=ASCII, 3=FIELDATA.' @A@@@G GOJX )@@G@@ SCREEN$SIZE=/0\MAIN$1 @C@@@G 'THE FORMAT FOR THE FUNCTION CALJY )@@G@@L IS:'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' JZ )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @C@@@G ' AD$DUMKA )@@G@@P(ADDRESS,SIZE,TYPE)' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@GKB )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G KC )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@G '3KD )@@G@@.9 AD$INDEX.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G KE )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@@@G 'TKF )@@G@@HE AD$INDEX FUNCTION IS USED TO CALCULATE THE DECIMAL VALUE OF' @A@@@GKG )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @E@@@G 'AN INDEX DEFINED WIKH )@@G@@THIN AN ASCII COBOL PROGRAM.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 KI )@@G@@@C@@@G 'THE FORMAT FOR THE FUNCTION CALL IS:'@A@@@G GOKJ )@@G@@ SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEKK )@@G@@N$SIZE=/0\MAIN$1 @H@@@G 'AD$INDEX(ADDRESS,SIZE-OF-DIMENSIONED-KL )@@G@@ITEM,SUBPROGRAM-CTA-ADDR)' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 KM )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@GKN )@@G@@ 'THE SUBPROGRAM CTA ADDRESS IS OPTIONAL. IF THIS FIELD IS NOT'KO )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'PRESENT AD$INKP )@@G@@DEX ASSUMES THE INDEX IS IN THE MAIN PROGRAM.' @A@@@G GO SCREEKQ )@@G@@N$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZEKR )@@G@@=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAKS )@@G@@IN$1 @ @@@G '3.10 AD$HELP.' @A@@@G GO SCREEN$SIZEKT )@@G@@=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAKU )@@G@@IN$1 @E@@@G 'THE AD$HELP IS THE ACDP DOCUMENTATION FUNCTION.' KV )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@GKW )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G KX )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @B@@@G '3.11 OTHER ACDP FUNCTIONSKY )@@G@@.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' KZ )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'THE ACDP FLITLA )@@G@@ FUNCTION LIBRARY CONSISTS OF THREE OTHER'@A@@@G GO SCREEN$SIZELB )@@G@@=/0\MAIN$1 @F@@@G 'FUNCTIONS: AD$TABLES, AD$F$SUBRTN, AND AD$FLC )@@G@@IND$STOP.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @F@@@G 'TLD )@@G@@HE AD$TABLES IS AN INTERNAL FUNCTION TO AID IN THE' @A@@@G GOLE )@@G@@ SCREEN$SIZE=/0\MAIN$1 @G@@@G 'DEBUGGING OF ACDP ITSELF. AD$FLF )@@G@@IND$STOP AND AD$F$SUBRTN' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 LG )@@G@@@F@@@G 'ARE REFERENCED BY OTHER ACDP FUNCTIONS, AND SHOULD' LH )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @C@@@G 'NOT BE INVOKELI )@@G@@D DIRECTLY BY THE USER.'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@GLJ )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G LK )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @B@@@G '4LL )@@G@@.0 BATCH MODE OPERATION.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 LM )@@G@@@#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@@@GLN )@@G@@ 'THE FOLLOWING IS AN EXAMPLE OF CANNING A RUNSTREAM FOR RUNNINLO )@@G@@G' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @A@@@G 'ACDP INLP )@@G@@ BATCH MODE:' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G LQ )@@G@@ ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @B@@@G ' LR )@@G@@ @ELT,IL YOUR-PF.ACDP/BATCH'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 LS )@@G@@@ @@@G ' @TEST TNE/0/S2'@A@@@G GO SCREEN$SIZE=/0\MALT )@@G@@IN$1 @ @@@G ' @JUMP NODUMP' @A@@@G GO SCREEN$SIZELU )@@G@@=/0\MAIN$1 @^@I@G ' @PMD,LP' @^@@@I ' @PMD,L' LV )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G ' @FLIT' LW )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G ' AD$INIT' LX )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@G ' BUFFER$SWLY )@@G@@:=1' @A@@@J GO SCREEN$SIZE=/0\MAIN$1 @ @@@J ' AD$LZ )@@G@@SUMMARY' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G ' MA )@@G@@ AD$REGS' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@G ' MB )@@G@@ AD$CS$OCTAL' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@G MC )@@G@@ ' AD$CS$ASCII' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @ @@@GMD )@@G@@ ' AD$WS$OCTAL' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 ME )@@G@@@ @@@G ' AD$WS$ASCII' @A@@@G GO SCREEN$SIZE=/0\MAMF )@@G@@IN$1 @^@@@G ' AD$FILE' @A@@@G GO SCREEN$SIZE=/0\MAMG )@@G@@IN$1 @ @@@G ' @NODUMP:EOF' @A@@@G GO SCREEN$SIZEMH )@@G@@=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAMI )@@G@@IN$1 @G@@@G 'THIS RUNSTEAM ASSUMES ASCII DATA REPRESENTATION, MJ )@@G@@A LONG @PMD'@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'LMK )@@G@@ISTING, AND HAVING ACDP PRINT THE BUFFER CONTENTS FOR ALL' @A@@@G ML )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'FILES. THE FOLLOWING IS AMM )@@G@@N EXAMPLE OF THE EXECUTION OF ACDP' @A@@@G GO SCREEN$SIZE=/0\MAMN )@@G@@IN$1 @ @@@G 'IN BATCH MODE:' @A@@@G GO SCREEN$SIZEMO )@@G@@=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAMP )@@G@@IN$1 @^@@@G ' @SETC,I' @A@@@G GO SCREEN$SIZE=/0\MAMQ )@@G@@IN$1 @D@@@G ' @XQT YOUR-PF.PROGRAM-TO/BE-DEBUGGED' @A@@@GMR )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @B@@@G ' @ADD YOR-PF.ACDMS )@@G@@P/BATCH' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' MT )@@G@@' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' MU )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @^@@@G '5.0 SUMMARY.'MV )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@GMW )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'WHILE A KNOWLEDGE MX )@@G@@OF FLIT IS NOT NECESSARY FOR USING ACDP,' @A@@@G GO SCREEN$SIZEMY )@@G@@=/0\MAIN$1 @G@@@G 'IT COULD BE VERY HELPFUL. WITH THE FLIT FUMZ )@@G@@NCTIONS PROVIDED' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @H@@@G NA )@@G@@ 'BY ACDP AND A SIMPLE KNOWLEDGE OF FLIT, THE REMAINS OF A DEAD' NB )@@G@@@A@@@G GO SCREEN$SIZE=/0\MAIN$1 @E@@@G 'ASCII COBOL PNC )@@G@@ROGRAM CAN BE EXAMINED IN DETAIL.' @A@@@G GO SCREEN$SIZE=/0\MAND )@@G@@IN$1 @#@@@G ' ' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 NE )@@G@@@G@@@G 'ACDP IS A PERSONAL PROJECT AND I AM CONTINUOUSLY FIXINGNF )@@G@@ AND' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @G@@@G 'IMPROVING )@@G@@NG IT. I WOULD APPRECIATE BEING NOTIFIED IF YOU HAVE'@A@@@G GONH )@@G@@ SCREEN$SIZE=/0\MAIN$1 @G@@@G 'PROBLEMS, FIXES, OR ENHANCEMENTNI )@@G@@S THAT WOULD IMPROVE ACDP.' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 NJ )@@G@@@C@@@G 'YOU MAY FORWARD YOUR RESPONSE TO:' @A@@@G GONK )@@G@@ SCREEN$SIZE=/0\MAIN$1 @#@@@G ' ' @A@@@G GO SCREENL )@@G@@N$SIZE=/0\MAIN$1 @A@@@G ' SPERRY*UNIVAC'@A@@@G NM )@@G@@ GO SCREEN$SIZE=/0\MAIN$1 @C@@@G ' 1100 SYSTEMS ENN )@@G@@DUCATION' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @B@@@G ' NO )@@G@@ P.O. BOX 43942' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 NP )@@G@@@C@@@G ' ST. PAUL, MINNESOTA 55164'@A@@@G GONQ )@@G@@ SCREEN$SIZE=/0\MAIN$1 @C@@@G ' ATTN: ARTHUR V. ENGLNR )@@G@@ISH' @A@@@G GO SCREEN$SIZE=/0\MAIN$1 @A@@@G ' NS )@@G@@ MS-4492'@[@@@GDONE: @^@@@G INIT$SW[]:=0 @#@@@G NT )@@G@@ GO EXIT @]@@@GNEWPAGE: @#@@@G ' ' @I@@@G 'ONU )@@G@@UTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINUE OR USE AD$RESET.' NV )@@G@@@[@@@GEXIT: @[@@@GEND _@@@@@ 'OF PAGE SCROLLING. IN BATCH MODNW )@@G@@E ACDP UTILIZES ALL 132'@A@@@G GO SCREE*[S@@@*SDFF*@D@@@@-18,18NX )@@G@@- CORRECT RELOCATABLE END ADDRESS @]@@@@/R /R-1/ @C@@@@NY )@@G@@-20 FOR ADDRESS IN USER BANK @A@@@@ GO STOP$NZ )@@G@@BDI=07777\MAIN$3 @A@@@@-26,26- UNKNOWN LABEL @[@@@@/5/4/ OA )@@G@@_@@@@@@D@@[@ *2A0?AK6 *)^@)^@)^@)^@)^@)^@)E(IDTID9RD0)D-[CL D))^@)@]@@[@OB )@@G@@ 85 84 8)^@)_@@@@@/K@]S0*[S@@@*SDFF*@B@@@@-67,67- ADJUST C$SOC )@@G@@ ADDRESS @]@@@@/0170/0173/ @B@@@@-69,69- ADJUST C$S ADDREOD )@@G@@SS @]@@@@/0170/0173/ @ @@@@-74 FMS8 INFO @ @@@@ OE )@@G@@ FMS$ADR:=HOLD$$X11 @ @@@@ GO FMS$ADR=0\MAIN$1 @A@@@@ OF )@@G@@ FMS$ADR:=HOLD$$X11[0,,H2] _@@@@@H<9@@CG;0@@[/K@ M;C@@@(='=@@@8/K@]S0OG )@@G@@*[S@@@*SDFF*@C@@@@-56,57- CLARIFY REL/ABS ADDRESS @#@@@@OH )@@G@@/RELATIVE/STOP/ @#@@@@/AT/AT RELATIVE/ @B@[@@-188,188 ADJUOI )@@G@@ST C$S ADDRESS @B@@@[-188,188- ADJUST C$S ADDRESS @]@@@@OJ )@@G@@/0170/173/ @C@@@@-189 FOR ADDRESS IN USER BANK @D@@@@OK )@@G@@ USER$STOP[,,H1]:=USER$STOP[,,H1]=0\07777 @C@[@@-198,198 OL )@@G@@ CLARIFY REL/ABS ADDRESS @C@@@[-198,198- CLARIFY REOM )@@G@@L/ABS ADDRESS @#@@@@/AT/AT RELATIVE/ @ @@@@-201 FMS8ON )@@G@@ INFO @ @@@@ GO FMS$ADR=0\MAIN$6A@ @@@@ 'LAST FMS8 CALOO )@@G@@L:' @ @@@@ WHERE(FMS$ADR-1,1) @#@@@@ ' ' @A@@@@OP )@@G@@ LINE$COUNT:=LINE$COUNT+3 @]@@@@MAIN$6A: _@@@@@@A@@@@ OQ )@@G@@ LINE$COUNT:=LINE$COUNT+3 @]@@@@MAIN$6A: _@@@@@/%0 OR9(@ R0/K@ OROR )@@G@@9(@^#3/K@ OR[[@ R6/K@ OR[[@ R2/K@ OR[[@ R4/K@ OR*[S@@@*SDFF*@#@@@XFUNCT OS )@@G@@AD$SUMMARY @E@@@X GO ENDDOC . BYPASS DOCUMENOT )@@G@@TATION@H@@@X 'THIS ACDP FUNCTION PRINTS A CORNUPOLIA OF INFORMAOU )@@G@@TION CONCERNING' @G@@@X 'YOUR DEAD (WHOOPS, I MEAN STOPPED) ACOV )@@G@@OB PROGRAM. IT WILL' @H@@@X 'IDENTIFY WHERE THE PROGRAM STOPOW )@@G@@PED, LIST ALL ACTIVE SUBPROGRAMS,' @G@@@X 'LIST A SUMMARY OF AOX )@@G@@LL FILES, AND SOME OTHER MISCELLANEOUS' @^@@@X 'INFORMATION.'OY )@@G@@@E@@@XENDDOC: . END OF DOCUMENTATION@ @@@XOZ )@@G@@. ** DEFINE LOCAL VARIABLES **@ @@@X LOCAL INIT$SW(1) @ @@@XPA )@@G@@ LOCAL SCR$AREA(077) @ @@@X LOCAL AD$INIT$SW(1) @A@@@XPB )@@G@@ LOCAL SUBPROGNAME$(0200) @F@@@X LOCAL SPT$ADR$(0100)PC )@@G@@,CTA$ADR$(0100),FILDIR$ADR$(0100) @H@@@X LOCAL LC$00$(0100),LPD )@@G@@C$01$(0100),FCB$LIST$(0100),PARAM$LIST$(0100) @ @@@X LOCAL LCPE )@@G@@$04$(0100) @F@@@X LOCAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADPF )@@G@@R$(0100) @ @@@X LOCAL COND$WORD(1) @C@@@X LOCAL FIPG )@@G@@LE$TYPE$(5),FILE$STATUS$(3) @C@@@X LOCAL STOP$ELEMENT(2),USERPH )@@G@@$STOP(1) @ @@@X GO INIT$SW[]=0\INIT$@#@@@X GO MAIN$PI )@@G@@@[@@@XINIT$:@ @@@X. **INITIALIZATION ROUTINE ** @^@@@X INIT$SW[PJ )@@G@@]:=1 @ @@@X JUMP$SW:=MAIN$1 @[@@@XMAIN$:@^@@@X. ** MAIN ROPK )@@G@@UTINE ** @^@@@X LINE$COUNT:=0 @^@@@X GO JUMP$SW PL )@@G@@@]@@@XMAIN$1: @#@@@X ' ' @#@@@X ' ' @#@@@XPM )@@G@@ ' ' @#@@@X ' ' @#@@@X ' ' @#@@@XPN )@@G@@ ' ' @#@@@X ' ' @#@@@X ' ' @#@@@XPO )@@G@@ ' ' @#@@@X ' ' @E@@@X TAB(20),'*****PP )@@G@@********************************' @E@@@X TAB(20),'* ACOB 5R2PQ )@@G@@ DUMPBUSTER VERSION 2R1 *' @E@@@X TAB(20),'*****************PR )@@G@@********************' @#@@@X ' ' @B@@@X. DETERMINE WHERE PS )@@G@@THE PROGRAM STOPPED. @F@@@X. FIRST WE WILL LOOK THRU THE LCT TABLE USPT )@@G@@ING THE AD$FIND$STOP @G@@@X. FUNCTION. IF THAT PROVES FRUITLESS WE WPU )@@G@@ILL CHECK THE BDIS IN GRS @F@@@X. LOCATIONS 046 AND 047 TO SEE IF THPV )@@G@@E STOP OCCURED WITHIN A COMMON@]@@@X. BANK. @D@@@X TAB(22),PW )@@G@@'***** PROGRAM STOP ANALYSIS *****' @#@@@X ' ' @^@@@X PX )@@G@@ LINE$COUNT:=6 @ @@@X AD$FIND$STOP(P-1) @C@@@X GOPY )@@G@@ STOP$ELEMENT[]=' '\MAIN$2 @F@@@X 'PROGRAM RELATIVE ADPZ )@@G@@DRESS:',P-1,SKIP(2),'ELEMENT:',; @F@@@X STOP$ELEMENT[:2!F],'QA )@@G@@AT ADDRESS:',(P-1)-LC$START$ADR @#@@@X ' ' @]@@@XGO MAIQB )@@G@@N$3 @^@@@X GO MAIN$3 @]@@@XMAIN$2: @D@@@X. CHECK TO SQC )@@G@@EE IF PROGRAM STOPPED IN COBOL COMMON BANK@]@@@XBDI$400100: @B@@@X QD )@@G@@ GO (0100=046[,,H1]**07777)++ ; @C@@@X (0100=047[,,H1]**077QE )@@G@@77)\$+1,BDI$400050@G@@@X 'PROGRAM STOP OCCURED IN COMMON BANK CQF )@@G@@$ACS AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XQG )@@G@@BDI$400050: @B@@@X GO (0050=046[,,H1]**07777)++ ; @C@@@X QH )@@G@@ (0050=047[,,H1]**07777)\$+1,BDI$400054@G@@@X 'PROGRAM STOP OQI )@@G@@CCURED IN COMMON BANK C$ANS AT ADDRESS:',P-1 @A@@@X STOP$ELEQJ )@@G@@MENT[]:='C$S ' @]@@@XBDI$400054: @B@@@X GO (0054=046[,,H1]**QK )@@G@@07777)++ ; @C@@@X (0054=047[,,H1]**07777)\$+1,BDI$400102@G@@@XQL )@@G@@ 'PROGRAM STOP OCCURED IN COMMON BANK C$CFH AT ADDRESS:',P-1 QM )@@G@@@A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XBDI$400102: @B@@@X QN )@@G@@ GO (0102=046[,,H1]**07777)++ ; @C@@@X (0102=047[,,H1]**077QO )@@G@@77)\$+1,BDI$400045@G@@@X 'PROGRAM STOP OCCURED IN COMMON BANK C$QP )@@G@@CONV AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XQQ )@@G@@BDI$400045: @B@@@X GO (0045=046[,,H1]**07777)++ ; @C@@@X QR )@@G@@ (0045=047[,,H1]**07777)\$+1,BDI$400106@G@@@X 'PROGRAM STOP OQS )@@G@@CCURED IN COMMON BANK C$DIAG AT ADDRESS:',P-1 @A@@@X STOP$ELEQT )@@G@@MENT[]:='C$S ' @]@@@XBDI$400106: @B@@@X GO (0106=046[,,H1]**QU )@@G@@07777)++ ; @C@Y@X (0106=047[,,H1]**07777)\$+1,BDI$400075@C@@@YQV )@@G@@ (0106=047[,,H1]**07777)\$+1,BDI$400414@G@@@X 'PROGRAM QW )@@G@@STOP OCCURED IN COMMON BANK C$DML AT ADDRESS:',P-1 @A@@@X STQX )@@G@@OP$ELEMENT[]:='C$D ' @]@@@YBDI$400414: @B@@@Y GO (0106=046[,QY )@@G@@,H1]**07777)++ ; @C@@@Y (0106=047[,,H1]**07777)\$+1,BDI$400075QZ )@@G@@@G@@@Y 'PROGRAM STOP OCCURED IN COMMON BANK C$DML8 AT ADDRESS:'RA )@@G@@,P-1 @A@@@Y STOP$ELEMENT[]:='C$D ' @]@@@XBDI$400075: @B@@@XRB )@@G@@ GO (0075=046[,,H1]**07777)++ ; @C@@@X (0075=047[,,H1RC )@@G@@]**07777)\$+1,BDI$400073@G@@@X 'PROGRAM STOP OCCURED IN COMMON BRD )@@G@@ANK C$FORM AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' RE )@@G@@@]@@@XBDI$400073: @B@@@X GO (0073=046[,,H1]**07777)++ ; @C@@@XRF )@@G@@ (0073=047[,,H1]**07777)\$+1,BDI$400103@G@@@X 'PROGRAM RG )@@G@@STOP OCCURED IN COMMON BANK C$IBM AT ADDRESS:',P-1 @A@@@X STRH )@@G@@OP$ELEMENT[]:='C$S ' @]@@@XBDI$400103: @B@@@X GO (0103=046[,RI )@@G@@,H1]**07777)++ ; @C@@@X (0103=047[,,H1]**07777)\$+1,BDI$400076RJ )@@G@@@G@@@X 'PROGRAM STOP OCCURED IN COMMON BANK C$INITIAL AT ADDRESSRK )@@G@@:',P-1@A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XBDI$400076: @B@@@XRL )@@G@@ GO (0076=046[,,H1]**07777)++ ; @C@@@X (0076=047[,,H1RM )@@G@@]**07777)\$+1,BDI$400074@G@@@X 'PROGRAM STOP OCCURED IN COMMON BRN )@@G@@ANK C$LABEL AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' RO )@@G@@@]@@@XBDI$400074: @B@@@X GO (0074=046[,,H1]**07777)++ ; @C@@@XRP )@@G@@ (0074=047[,,H1]**07777)\$+1,BDI$400051@G@@@X 'PROGRAM RQ )@@G@@STOP OCCURED IN COMMON BANK C$LION AT ADDRESS:',P-1 @A@@@X STRR )@@G@@OP$ELEMENT[]:='C$S ' @]@@@XBDI$400051: @B@@@X GO (0051=046[,RS )@@G@@,H1]**07777)++ ; @C@@@X (0051=047[,,H1]**07777)\$+1,BDI$400104RT )@@G@@@G@@@X 'PROGRAM STOP OCCURED IN COMMON BANK C$MASS AT ADDRESS:'RU )@@G@@,P-1 @A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XBDI$400104: @B@@@XRV )@@G@@ GO (0104=046[,,H1]**07777)++ ; @C@@@X (0104=047[,,H1RW )@@G@@]**07777)\$+1,BDI$400077@G@@@X 'PROGRAM STOP OCCURED IN COMMON BRX )@@G@@ANK C$MCS AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' RY )@@G@@@]@@@XBDI$400077: @B@@@X GO (0077=046[,,H1]**07777)++ ; @C@@@XRZ )@@G@@ (0077=047[,,H1]**07777)\$+1,BDI$400053@G@@@X 'PROGRAM SA )@@G@@STOP OCCURED IN COMMON BANK C$RPW AT ADDRESS:',P-1 @A@@@X STSB )@@G@@OP$ELEMENT[]:='C$S ' @]@@@XBDI$400053: @B@@@X GO (0053=046[,SC )@@G@@,H1]**07777)++ ; @C@@@X (0053=047[,,H1]**07777)\$+1,BDI$400047SD )@@G@@@G@@@X 'PROGRAM STOP OCCURED IN COMMON BANK C$SDF AT ADDRESS:'SE )@@G@@,P-1 @A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XBDI$400047: @B@@@XSF )@@G@@ GO (0047=046[,,H1]**07777)++ ; @C@@@X (0047=047[,,H1SG )@@G@@]**07777)\$+1,BDI$400046@G@@@X 'PROGRAM STOP OCCURED IN COMMON BSH )@@G@@ANK C$IIOB AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' SI )@@G@@@]@@@XBDI$400046: @B@@@X GO (0046=046[,,H1]**07777)++ ; @C@@@XSJ )@@G@@ (0046=047[,,H1]**07777)\$+1,BDI$400101@G@@@X 'PROGRAM SK )@@G@@STOP OCCURED IN COMMON BANK C$ISAM AT ADDRESS:',P-1 @A@@@X STSL )@@G@@OP$ELEMENT[]:='C$S ' @]@@@XBDI$400101: @B@@@X GO (0101=046[,SM )@@G@@,H1]**07777)++ ; @C@@@X (0101=047[,,H1]**07777)\$+1,BDI$400105SN )@@G@@@G@@@X 'PROGRAM STOP OCCURED IN COMMON BANK C$STRING AT ADDRESS:SO )@@G@@',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XBDI$400105: @B@@@XSP )@@G@@ GO (0105=046[,,H1]**07777)++ ; @C@@@X (0105=047[,,H1SQ )@@G@@]**07777)\$+1,BDI$400052@H@@@X 'PROGRAM STOP OCCURED IN COMMON BSR )@@G@@ANK C$SYMBIONT AT ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$SSS )@@G@@ ' @]@@@XBDI$400052: @B@@@X GO (0052=046[,,H1]**07777)++ ; ST )@@G@@@C@@@X (0052=047[,,H1]**07777)\$+1,BDI$400061@G@@@X 'PRSU )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$TAPE AT ADDRESS:',P-1 @A@@@X SV )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@XBDI$400061: @B@@@X GO (0061SW )@@G@@=046[,,H1]**07777)++ ; @D@@@X (0061=047[,,H1]**07777)\$+1,END$SX )@@G@@OF$BDIS @G@@@X PROGRAM STOP OCCURED IN COMMON BANK C$SORT ASY )@@G@@T ADDRESS:',P-1 @A@@@X STOP$ELEMENT[]:='C$S ' @]@@@XEND$OFSZ )@@G@@$BDIS:@#@@@X ' ' @]@@@XMAIN$3: @E@@@X. NOW THAT WE (HOPTA )@@G@@EFULLY!!) KNOW WHERE THE PROGRAM STOPPED, @E@@@X. CHECK TO SEE IF IT WASTB )@@G@@ A C$S OR C$D SYSTEM RELOCATABLE @F@@@X. LIBRARY ELEMENT, AND ATTEMPTTC )@@G@@ TO FIND WHERE THE USER PROGRAM @B@@@X. STOPPED USING THE AD$FIND$STTD )@@G@@OP FUNCTION.@A@@@X LINE$COUNT:=LINE$COUNT+2 @C@@@X GOTE )@@G@@ STOP$ELEMENT[]=' '\$+1,MAIN$4 @C@@@X 'CANNOT LOCATE STOP TF )@@G@@ADDRESS:',P-1 @#@@@X ' ' @^@@@X GO MAIN$6 TG )@@G@@@]@@@XMAIN$4: @G@@@Z GO (STOP$ELEMENT[,,H1]='C$D')++(STOP$ETH )@@G@@LEMENT[,,H1]='C$S'); @^@)@Z ;\$+1,MAIN$6 @^@@@) \$TI )@@G@@+1,MAIN$6 @F@@@X USER$STOP[]:=STOP$ELEMENT[,,H1]='C$S'\SAR$ADTJ )@@G@@R[0170] @F@@@X USER$STOP[]:=STOP$ELEMENT[,,H1]='C$D'\SAR$ADTK )@@G@@R[0121] @E@@@X AD$FIND$STOP(USER$STOP[,,H2],USER$STOP[,,H1]TL )@@G@@) @C@@@X GO STOP$ELEMENT[]=' '\$+1,MAIN$5 @E@@@X TM )@@G@@ 'CANNOT LOCATE USER STOP ADDRESS:',USER$STOP[,,H2]@#@@@X ' TN )@@G@@' @A@@@X LINE$COUNT:=LINE$COUNT+2 @^@@@X GO MAIN$TO )@@G@@6 @]@@@XMAIN$5: @F@@@X 'USER PROGRAM STOPPED IN ELEMENTTP )@@G@@:',STOP$ELEMENT[:2!F],; @E@@@X ' AT ADDRESS:',USER$STOP[,,H2]-LTQ )@@G@@C$START$ADR-1 @#@@@X ' ' @A@@@X LINE$COUNT:=LITR )@@G@@NE$COUNT+2 @]@@@XMAIN$6: @A@@@X GO SCREEN$SIZE=0\MAIN$7 TS )@@G@@@C@@@X GO LINE$COUNT+6>SCREEN$SIZE\$+1,MAIN$7@ @@@X JUTT )@@G@@MP$SW:=MAIN$6 @^@@@X GO NEWPAGE @]@@@XMAIN$7: @A@@@XTU )@@G@@. PRINT THE FOLLOWING INFORMATION: @A@@@X. MAIN IBANK STARTING ADDRETV )@@G@@SS @^@@@X. CONDITION WORD @F@@@X. CTA ADDRESSES (LAST SUBPRTW )@@G@@OGRAM EXECUTING AND MAIN PROGRAM) @F@@@X. FILDIR ADDRESSES (LAST SUTX )@@G@@BPROGRAM EXECUTING AND MAIN PROGRAM)@C@@@X 'MAIN IBANK STARTINGTY )@@G@@ ADDRESS:',LC$01,;@D@@@X TAB(38),'CONDITION WORD:',COND$WORD[!OTZ )@@G@@12] @#@@@X ' ' @G@@@X 'CTA TABLE ADDRESS:',CTA$AUA )@@G@@DR,TAB(38),'FILDIR TABLE ADDRESS:',;@^@@@X FILDIR$ADR @#@@@XUB )@@G@@ ' ' @A@@@X LINE$COUNT:=LINE$COUNT+4 @A@@@X UC )@@G@@ GO MAX$PROG$IX=0\MAIN$20 @D@@@X 'CURRENT CTA ADDRESS:',CURUD )@@G@@R$CTA,TAB(38),; @C@@@X 'CURRENT FILDIR ADDRESS:',CURR$FILDIR UE )@@G@@@#@@@X ' ' @A@@@X LINE$COUNT:=LINE$COUNT+2 @]@@@XUF )@@G@@MAIN$10: @A@@@X GO MAX$PROG$IX=0\MAIN$20 @A@@@X GOUG )@@G@@ SCREEN$SIZE=0\MAIN$11 @A@@@X LINE$COUNT:=LINE$COUNT+5 @ @@@XUH )@@G@@ INDX2:=LINE$COUNT+2 @B@@@X GO INDX2MAX$PROG$IX\MAIN$20 @A@@@X GO SCREEN$SIZE=0\MAIN$12 @C@@@XUV )@@G@@ GO LINE$COUNTMAX$FILE$IX\DONE @A@@@X GO SCREEXR )@@G@@N$SIZE=0\MAIN$22 @C@@@X GO LINE$COUNT0\REC$SIZ$WORD[]+1 @^@@@5 GO MAIN$150 @]@@@5MAIN$120: DS )@@G@@@B@@@5 REC$SIZ$WORD[]:=REC$SIZ$CHAR[]/6@B@@@5 REC$SIZ$DT )@@G@@REM:=REC$SIZ$CHAR///6 @E@@@5 REC$SIZ$WORD[]:=REC$SIZ$REM>0\REDU )@@G@@C$SIZ$WORD[]+1 @]@@@5MAIN$150: @#@@@5 ' ' @H@@@5 DV )@@G@@ 'RECORD LENGTH: ',REC$SIZ$WORD[!D],'(WORDS), ',REC$SIZ$CHAR[!D],; DW )@@G@@@E@@@5 '(CHARACTERS), ',REC$SIZ$WORD[],'(WORDS IN OCTAL)'@A@@@5DX )@@G@@ GO SCREEN$SIZE=0\MAIN$160 @C@@@5 GO SCREEN$SIZE>LINE$DY )@@G@@COUNT+4\MAIN$160 @ @@@5 JUMP$$SW:=MAIN$160 @^@@@5 GODZ )@@G@@ NEWPAGE @]@@@5MAIN$160: @F@@@5. USE THE AD$DUMP FUNCTION TO PRINT EA )@@G@@THE CONTENTS OF THE CURRENT @E@@@5. RECORD POINTED TO BY THE FILDIR TAEB )@@G@@BLE IN OCTAL, ASCII, AND@^@@@5. OPTIONALLY IN FIELDATA@#@@@5 ' EC )@@G@@' @A@@@5 'CURRENT RECORD IN OCTAL:'@^@@@5 AD$RESETED )@@G@@(0) @^@@@5 GO MAIN$164 @]@@@5MAIN$162: @A@@@5 LIEE )@@G@@NE$COUNT:=LINE$COUNT+2 @#@@@5 ' ' @C@@@5 'CURRENTEF )@@G@@ RECORD IN OCTAL (CONTINUED):'@^@@@5 AD$RESET(1) @]@@@5MAIN$1EG )@@G@@64: @C@@@5 AD$DUMP(RECORD$ADR,REC$SIZ$WORD[],1,1)@A@@@5 EH )@@G@@ GO SCREEN$SIZE=0\MAIN$170 @C@@@5 GO SCREEN$SIZE>LINE$COUNT\EI )@@G@@MAIN$170 @ @@@5 JUMP$$SW:=MAIN$162 @#@@@5 GO EXIT EJ )@@G@@@]@@@5MAIN$170: @A@@@5 GO SCREEN$SIZE=0\MAIN$172 @A@@@5 EK )@@G@@ LINE$COUNT:=LINE$COUNT+2 @C@@@5 GO SCREEN$SIZE>LINE$COUNT+EL )@@G@@4\MAIN$172 @ @@@5 JUMP$$SW:=MAIN$172 @^@@@5 GO NEWPAEM )@@G@@GE @]@@@5MAIN$172: @A@@@5 GO ASCII$OFF$SW=1\MAIN$180@#@@@5EN )@@G@@ ' ' @A@@@5 'CURRENT RECORD IN ASCII:'@^@@@5 EO )@@G@@ AD$RESET(0) @^@@@5 GO MAIN$176 @]@@@5MAIN$174: @A@@@5EP )@@G@@ LINE$COUNT:=LINE$COUNT+2 @#@@@5 ' ' @C@@@5 EQ )@@G@@ 'CURRENT RECORD IN ASCII (CONTINUED):'@^@@@5 AD$RESET(1) ER )@@G@@@]@@@5MAIN$176: @C@@@5 AD$DUMP(RECORD$ADR,REC$SIZ$WORD[],2,1)ES )@@G@@@A@@@5 GO SCREEN$SIZE=0\MAIN$180 @C@@@5 GO SCREEN$SIZEET )@@G@@>LINE$COUNT\MAIN$180 @ @@@5 JUMP$$SW:=MAIN$174 @#@@@5 EU )@@G@@ GO EXIT @]@@@5MAIN$180: @A@@@5 GO FLDTA$ON$SW=0\MAIN$190 EV )@@G@@@A@@@5 GO SCREEN$SIZE=0\MAIN$182 @A@@@5 LINE$COUNT:=LIEW )@@G@@NE$COUNT+2 @C@@@5 GO SCREEN$SIZE>LINE$COUNT+4\MAIN$182 @ @@@5EX )@@G@@ JUMP$$SW:=MAIN$182 @^@@@5 GO NEWPAGE @]@@@5MAIN$1EY )@@G@@82: @#@@@5 ' ' @B@@@5 'CURRENT RECORD IN FIELDATEZ )@@G@@A:' @^@@@5 AD$RESET(0) @^@@@5 GO MAIN$186 @]@@@5FA )@@G@@MAIN$184: @#@@@5 ' ' @D@@@5 'CURRENT RECORD IN FFB )@@G@@IELDATA (CONTINUED):' @^@@@5 AD$RESET(1) @]@@@5MAIN$186: FC )@@G@@@C@@@5 AD$DUMP(RECORD$ADR,REC$SIZ$WORD[],3,1)@]@@@5MAIN$190: FD )@@G@@@D@@@5. GO TO DONE IF THE FILE BEING EVALUATED IS NOT PCIOS @ @@@5 FE )@@G@@ GO FILE$TYP<020\DONE@A@@@5 GO SCREEN$SIZE=0\MAIN$195 @C@@@5FF )@@G@@ GO SCREEN$SIZE>LINE$COUNT+8\MAIN$195 @ @@@5 JUMP$$SWFG )@@G@@:=MAIN$195 @^@@@5 GO NEWPAGE @]@@@5MAIN$195: @G@@@5. PRINFH )@@G@@T OUT BLOCK (PHYSICAL RECORD) SIZE, PCIOS ADDRESS INFORMATION, @E@@@5FI )@@G@@. AND THE I/O PACKET FOR ALL PCIOS FILE TYPES EXCEPT MSAM. @A@@@5 FJ )@@G@@ LINE$COUNT:=LINE$COUNT+8 @A@@@5 GO FILE$TYP=023\MAIN$400 FK )@@G@@@A@@@5 FCT$ADR:=FCB$ADR[013,,H2] @A@@@5 PFCB$ADR:=FCT$FL )@@G@@ADR[2,,H2] @A@@@5 BCB$ADR:=FCT$ADR[3,,H2] @#@@@5 ' FM )@@G@@' @H@@@5 'PHYSICAL RECORD SIZE IN WORDS: ',BCB$ADR[3,,H2],'FN )@@G@@(OCTAL) ',; @B@@@5 BCB$ADR[3,,H2!D],'(DECIMAL)' @#@@@5FO )@@G@@ ' ' @B@@@5 'PCIOS ADDRESS INFORMATION:' @F@@@5FP )@@G@@ 'FCT ADDRESS:',FCT$ADR,TAB(25),'FCB ADDRESS:',PFCB$ADR,;@B@@@5FQ )@@G@@ TAB(50),'BCB ADDRESS:',BCB$ADR @#@@@5 ' ' @^@@@5FR )@@G@@ 'I/O PACKET:' @B@@@5 BCB$ADR[:2!F6],BCB$ADR[02:4!O12]FS )@@G@@@A@@@5 GO SCREEN$SIZE=0\MAIN$197 @C@@@5 GO SCREEN$SIZEFT )@@G@@>LINE$COUNT+3\MAIN$197 @ @@@5 JUMP$$SW:=MAIN$197 @^@@@5 FU )@@G@@ GO NEWPAGE @]@@@5MAIN$197: @ @@@5. PRINT FILE BUFFER ADDRESSES FV )@@G@@@A@@@5 LINE$COUNT:=LINE$COUNT+3 @A@@@5 GO FILE$TYP=02FW )@@G@@2\MAIN$200 @#@@@5 ' ' @ @@@5 'BUFFER ADDRESSES:' FX )@@G@@@G@@@5 'CURRENT: ',BCB$ADR[04,,H2],TAB(25),'FIRST:',BCB$ADR[06,FY )@@G@@,H2],;@C@@@5 TAB(50),'SECOND:',BCB$ADR[06,,H1] @^@@@5 FZ )@@G@@ GO MAIN$210 @]@@@5MAIN$200: @#@@@5 ' ' @G@@@5 GA )@@G@@ 'RELATIVE FILE BUFFER ADDRESS:',BCB$ADR[04,,H2],TAB(42),; @D@@@5GB )@@G@@ 'RELATIVE RECORD NUMBER: ',BCB$ADR[011!D] @]@@@5MAIN$210: GC )@@G@@@ @@@5 GO BUFFER$SW=0\DONE @D@@@5 GO (FILE$STATUS=0)++GD )@@G@@(FILE$STATUS=5)\DONE @B@@@5 GO BCB$ADR[06,,H2]=0\MAIN$310 GE )@@G@@@A@@@5 GO ASCII$OFF$SW=1\MAIN$260@A@@@5 GO SCREEN$SIZEGF )@@G@@=0\MAIN$215 @C@@@5 GO LINE$COUNT+5=SCREEN$SIZE\MAIN$220 @C@@@5 GR )@@G@@ GO LINE$COUNT=SCREEN$SIZE\MAIN$270 @C@@@5 GO LINE$HC )@@G@@COUNT=SCREEN$SIZE\MAIN$320 @C@@@5 GO LINE$COUNTLINE$COUNT+13\MAIN$651 IU )@@G@@@ @@@5 JUMP$$SW:=MAIN$651 @^@@@5 GO NEWPAGE @]@@@5IV )@@G@@MAIN$651: @B@@@5. PRINT MSAM INFORMATION STATISTICS TABLE @#@@@5 IW )@@G@@ ' ' @D@@@5 TAB(22),'MSAM INFORMATION STATISTICS TABLE' IX )@@G@@@D@@@5 TAB(22),'---------------------------------' @H@@@5 IY )@@G@@ IST$ADR[0!D8],TAB(10),' = TOTAL NUMBER OF RECORDS WRITTEN WHEN',; IZ )@@G@@@^@@@5 'FILE CREATED'@H@@@5 IST$ADR[1!D8],TAB(10),' = JA )@@G@@TOTAL NUMBER OF RECORDS CURRENTLY IN',; @#@@@5 'FILE' @G@@@5JB )@@G@@ IST$ADR[2!D8],TAB(10),' = TOTAL NUMBER OF RECORDS WRITTEN' JC )@@G@@@F@@@5 IST$ADR[3!D8],TAB(10),' = TOTAL NUMBER OF RECORDS READ' JD )@@G@@@G@@@5 IST$ADR[4!D8],TAB(10),' = TOTAL NUMBER OF RECORDS DELETEJE )@@G@@D' @G@@@5 IST$ADR[5!D8],TAB(10),' = TOTAL NUMBER OF RECORDS JF )@@G@@MODIFIED' @A@@@5 GO SCREEN$SIZE=0\MAIN$654 @A@@@5 LIJG )@@G@@NE$COUNT:=LINE$COUNT+8 @C@@@5 GO SCREEN$SIZE>LINE$COUNT\MAIN$6JH )@@G@@54 @ @@@5 JUMP$$SW:=MAIN$653 @^@@@5 GO NEWPAGE JI )@@G@@@]@@@5MAIN$653: @#@@@5 ' ' @]@@@5MAIN$654: @G@@@5 JJ )@@G@@ IST$ADR[6!D8],TAB(10),' = TOTAL NUMBER OF START REQUESTS' @F@@@5JK )@@G@@ IST$ADR[7!D8],TAB(10),' = TOTAL NUMBER OF KEYS MODIFIED'@G@@@5JL )@@G@@ IST$ADR[8!D8],TAB(10),' = TOTAL NUMBER OF INVALID KEY EXITS' JM )@@G@@@G@@@5 IST$ADR[9!D8],TAB(10),' = TOTAL NUMBER OF DATA BLOCKS INJN )@@G@@ FILE'@H@@@5 IST$ADR[10!D8],TAB(10),' = TOTAL NUMBER OF INDEX BJO )@@G@@LOCKS IN FILE' @H@@@5 IST$ADR[11!D8],TAB(10),' = TOTAL NUMBEJP )@@G@@R OF TIMES FILE HAS BEEN',; @#@@@5 'CLOSED'@G@7@5 ISJQ )@@G@@T$ADR[12!D8],TAB(10),' = NUMBER OF RECORDS WRITTEN DURING'; @G@@@7 JR )@@G@@ IST$ADR[12!D8],TAB(10),' = NUMBER OF RECORDS WRITTEN DURING',;@^@@@5JS )@@G@@ 'CURRENT RUN' @G@@@5 IST$ADR[13!D8],TAB(10),' = NUMBEJT )@@G@@R OF RECORDS READ DURING',; @^@@@5 'CURRENT RUN' @A@@@5 JU )@@G@@ GO SCREEN$SIZE=0\MAIN$656 @A@@@5 LINE$COUNT:=LINE$COUNT+8 JV )@@G@@@C@@@5 GO SCREEN$SIZE>LINE$COUNT+3\MAIN$656 @ @@@5 JUJW )@@G@@MP$$SW:=MAIN$655 @^@@@5 GO NEWPAGE @]@@@5MAIN$655: @#@@@5JX )@@G@@ ' ' @]@@@5MAIN$656: @G@@@5 IST$ADR[14!D8],TAB(1JY )@@G@@0),' = NUMBER OF RECORDS DELETED DURING',;@^@@@5 'CURRENT RUN' JZ )@@G@@@H@@@5 IST$ADR[15!D8],TAB(10),' = NUMBER OF RECORDS MODIFIED DUKA )@@G@@RING',; @^@@@5 'CURRENT RUN' @G@@@5 IST$ADR[16!D8]KB )@@G@@,TAB(10),' = NUMBER OF START REQUESTS DURING',; @^@@@5 'CURRENTKC )@@G@@ RUN' @G@@@5 IST$ADR[17!D8],TAB(10),' = NUMBER OF KEYS MODIFIEDKD )@@G@@ DURING',; @^@@@5 'CURRENT RUN' @H@@@5 IST$ADR[18!D8]KE )@@G@@,TAB(10),' = NUMBER OF INVALID KEY EXITS DURING',; @^@@@5 'CKF )@@G@@URRENT RUN' @H@@@5 IST$ADR[19!D8],TAB(10),' = NUMBER OF NEW DATKG )@@G@@A BLOCKS CREATED',; @ @@@5 'DURING CURRENT RUN'@H@@@5 KH )@@G@@ IST$ADR[20!D8],TAB(10),' = NUMBER OF NEW INDEX BLOCKS CREATED',; KI )@@G@@@ @@@5 'DURING CURRENT RUN'@H@@@5 IST$ADR[21!D8],TAB(1KJ )@@G@@0),' = NUMBER OF BLOCKS READ DURING CURRENT',; @#@@@5 'RUN' KK )@@G@@@G@@@5 IST$ADR[22!D8],TAB(10),' = NUMBER OF BLOCKS WRITTEN DURIKL )@@G@@NG',; @^@@@5 'CURRENT RUN' @A@@@5 GO BCB$ADR[0,,S6]=0\KM )@@G@@DONE @A@@@5 GO SCREEN$SIZE=0\MAIN$700 @A@@@5 LINE$COUKN )@@G@@NT:=LINE$COUNT+9 @C@@@5 GO SCREEN$SIZE>LINE$COUNT+13\MAIN$700 KO )@@G@@@ @@@5 JUMP$$SW:=MAIN$700 @^@@@5 GO NEWPAGE @]@@@5KP )@@G@@MAIN$700: @D@@@5. PRINT ALL THE MSAM FILE BUFFERS IF BUFFER$SW = 1 KQ )@@G@@@#@@@5 ' ' @D@@@5 MSAM$BUF$ST:=BCB$ADR[2+((BL$-1)*KR )@@G@@4),,H1] @D@@@5 MSAM$BUF$END:=BCB$ADR[2+((BL$-1)*4),,H2] KS )@@G@@@C@@@5 MSAM$BUF$SIZ:=MSAM$BUF$END-MSAM$BUF$ST@C@@@5 GOKT )@@G@@ MSAM$BUF$ST[,,H1]=0777\MAIN$800 @]@@@5MAIN$750: @A@@@5 LIKU )@@G@@NE$COUNT:=LINE$COUNT+3 @G@@@5 'BUFFER',BL$,' START ADDRESS:',BKV )@@G@@CB$ADR[2+((BL$-1)*4),,H1!O6],;@E@@@5 ' END ADDRESS:',BCB$ADKW )@@G@@R[2+((BL$-1)*4),,H2!O6] @E@@@5 TAB(12),'TYPE: INDEX,',MSAM$BUF$KX )@@G@@ST[,,Q2!O2],; @C@@@5 ' LEVEL:',MSAM$BUF$ST[,,Q1!O2] KY )@@G@@@B@@@5 GO MSAM$BUF$ST[]=0\MAIN$900 @D@@@5 GO (FILEKZ )@@G@@$STATUS=0)++(FILE$STATUS=5)\MAIN$900@A@@@5 GO BUFFER$SW=0\MAIN$LA )@@G@@900 @#@@@5 AD$RESET@^@@@5 GO MAIN$752 @]@@@5MAIN$7LB )@@G@@51: @^@@@5 AD$RESET(1) @]@@@5MAIN$752: @C@@@5 ADLC )@@G@@$DUMP(MSAM$BUF$ST,MSAM$BUF$SIZ,1,1) @ @@@5 JUMP$$SW:=MAIN$751 LD )@@G@@@^@@@5 GO MAIN$900 @]@@@5MAIN$800: @A@@@5 LINE$COULE )@@G@@NT:=LINE$COUNT+3 @G@@@5 'BUFFER',BL$,' START ADDRESS:',BCB$ADRLF )@@G@@[2+((BL$-1)*4),,H1!O6],;@E@@@5 ' END ADDRESS:',BCB$ADR[2+((LG )@@G@@BL$-1)*4),,H2!O6] @ @@@5 TAB(12),'TYPE: DATA'@A@@@5 GOLH )@@G@@ BUFFER$SW=0\MAIN$900 @]@@@5MAIN$820: @ @@@5 JUMP$$SW:=MAINLI )@@G@@$822 @#@@@5 AD$RESET@^@@@5 GO MAIN$824 @]@@@5MAIN$8LJ )@@G@@22: @^@@@5 AD$RESET(1) @]@@@5MAIN$824: @A@@@5 GOLK )@@G@@ ASCII$OFF$SW\MAIN$840 @C@@@5 AD$DUMP(MSAM$BUF$ST,MSAM$BUF$SIZLL )@@G@@,2,1) @]@@@5MAIN$840: @A@@@5 GO FLDTA$ON$SW=0\MAIN$900 @C@@@5LM )@@G@@ AD$DUMP(MSAM$BUF$ST,MSAM$BUF$SIZ,3,1) @]@@@5MAIN$900: @A@@@5LN )@@G@@ GO SCREEN$SIZE=0\MAIN$910 @C@@@5 GO SCREEN$SIZE>LINE$LO )@@G@@COUNT\MAIN$910 @#@@@5 GO EXIT @]@@@5MAIN$910: @^@@@5 LP )@@G@@ BL$:=BL$+1 @A@@@5 GO BL$>BCB$ADR[0,,S6]\DONE@A@@@5 LQ )@@G@@ GO SCREEN$SIZE=0\MAIN$700 @F@@@5 GO (SCREEN$SIZE>LINE$COUNTLR )@@G@@)**(BUFFER$SW=0)\MAIN$700 @ @@@5 JUMP$$SW:=MAIN$700 @^@@@5LS )@@G@@ GO NEWPAGE @[@@@5DONE: @A@@@5. DEMAND MODE SCREEN PAGING ROLT )@@G@@UTINE @^@@@5 JUMP$$SW:=0 @^@@@5 INIT$SW[]:=0 @]@@@5LU )@@G@@NEWPAGE: @ @@@5 GO INIT$SW[]=0\EXIT @#@@@5 ' ' LV )@@G@@@F@@@5 'OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINUE,' LW )@@G@@@B@@@5 'OR USE AD$RESET FUNCTION.' @[@@@5EXIT: @[@@@5END LX )@@G@@_@@@@@$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F]LY )@@G@@*[S@@@*SDFF*@#@[@@FUNCT AD$FIND$STOP@B@@@[FUNCT AD$FIND$STOP(STOP$ADR,STLZ )@@G@@OP$BDI) @^@^@@ GO ENDDOC @E@@@^ GO ENDDOC MA )@@G@@ . BYPASS DOCUMENTATION@]@^@@ . @]@^@@ . MB )@@G@@@H@^@@ 'THIS AD FUNCTION LOCATES WHERE THE PROGRAM STOPPED USINMC )@@G@@G THE LCT.' @I@@@^ 'THIS ACDP FUNCTION LOCATES WHERE THE PROGRAMD )@@G@@M STOPPED USING THE LCT.' @H@@@@ 'AD$FIND$STOP SEARCHES THRME )@@G@@U THE LCT TO FIND THE ELEMENT THE PROGRAM'@G@@@@ 'STOPPED IN, TMF )@@G@@HEN VALIDATES THE BDI PROVIDED OR THE BDIS FROM'@F@@@@ 'GRS LOCMG )@@G@@ATIONS 046 AND 047 TO MAKE SURE THEY MATCH.' @G@@@# 'THIS ISMH )@@G@@ AN INTERNALLY USED AD$ FUNCTION AND SHOULD NOT BE' @B@@@# 'CMI )@@G@@ALLED DIRECTLY BY THE USER.' @]@^@@ . @]@^@@ . @]@^@@MJ )@@G@@ENDDOC: @E@@@^ENDDOC: . END OF DOCUMENMK )@@G@@TATION@A@@@@. *****DEFINE LOCAL VARIABLES***** @^@@@@ LOCAL BDML )@@G@@I @A@@@@ STOP$ELEMENT[:2]:=' '@^@@@@ LCT$IX:=MM )@@G@@0 @]@@@@MAIN$1: @^@@@#. ** MAIN ROUTINE ** @B@@@@ GOMN )@@G@@ LCT$IX>HDR[026,,H1]\EXIT @B@]@@ LC$START$ADR:=LCT[LCT$IX+2MO )@@G@@,,H1] @B@@@] LC$START$ADR:=LCT[LCT$IX+2,,H2] @B@]@@ LCMP )@@G@@$END$ADR:=LCT[LCT$IX+2,,H2] @D@@@] LC$END$ADR:=LCT[LCT$IX+2,,MQ )@@G@@H1]+LC$START$ADR @F@@@@ GO(STOP$ADRLMR )@@G@@C$END$ADR)\MAIN$4 @B@@@@ BDI:=LCT[LCT$IX+1,,H2]**07777 @ @@@@MS )@@G@@ GO STOP$BDI=0\MAIN$2@A@@@@ GO STOP$BDI=BDI\MAIN$3 MT )@@G@@@^@@@@ GO MAIN$4 @]@@@@MAIN$2: @F@@@@ GO (BDI=MU )@@G@@046[,,H1]**07777)++(BDI=046[,,H2]**07777)++ ; @G@@@@ (BDI=047MV )@@G@@[,,H1]**07777)++(BDI=047[,,H2]**07777)\$+1,MAIN$5 @]@@@@MAIN$3: MW )@@G@@@D@@@@ STOP$ELEMENT[:2]:=ENT[(LCT[LCT$IX,,H2]):2] @#@@@@ MX )@@G@@ GO EXIT @]@@@@MAIN$4: @ @@@@ LCT$IX:=LCT$IX+3 @^@@@@MY )@@G@@ GO MAIN$1 @[@@@@EXIT: @[@@@@END _@@@@@D9K^-[C-MB1GCS=C(IMZ )@@G@@C)=CD^EK(F-HCDDD0=A))^@)@E@@@@^@)^@)^@)^@)^@)CL^DC'B(GCTOFTGCTO^-DF@:AC?NA )@@G@@*[S@@@*SDFF*@B@@@XFUNCT AD$INIT(NBR$OF$LINES,LOADPMD$SW) @^@Y@X NB )@@G@@ GO ENDDOC @E@@@Y GO ENDDOC . BYPASS DNC )@@G@@OCUMENTATION@G@@@Z 'THE AD$INIT FUNCTION LOADS THE DUMP FROM THND )@@G@@E DIAG$ FILE,' @H@@@Z 'INITIALIZES GLOBAL VARIABLES TO LOCATNE )@@G@@E INFORMATION WITHIN THE' @G@@@Z 'DUMP, SETS QUARTER WORD MNF )@@G@@ODE ON, AND SETS LINE SIZE AT 80' @G@@@Z 'OR 132 CHACACTERS. NG )@@G@@ THE FOLLOWING GLOBAL VARIABLES WILL' @A@@@Z 'BE SET UP FORNH )@@G@@ YOUR USE:' @#@@@Z ' ' @G@@@Z 'LC$00 - ADDNI )@@G@@RESS OF MAIN PROGRAM WORKING-STORAGE' @E@@@Z 'LC$01 NJ )@@G@@ - ADDRESS OF MAIN PROGRAM IBANK' @D@@@Z 'LC$02 - ADDNK )@@G@@RESS OF COMMON STORAGE' @F@@@Z 'LC$04 - ADDRESS OF MAINNL )@@G@@ PROGRAM LITERAL POOL' @F@@@Z 'FCB$LIST - ADDRESS OF MAINNM )@@G@@ PROGRAM FCB LIST $(06)'@H@@@Z 'PARAM$LIST - ADDRESS OF MAINNN )@@G@@ PROGRAM OBJECT MODULE PARAMETER' @B@@@Z ' LISNO )@@G@@T $(08)' @E@@@Z 'SAR$ADR - ADDRESS OF SAVED AREA RECORNP )@@G@@D' @F@@@Z 'CTA$ADR - ADDRESS OF MAIN PROGRAM CTA TABLENQ )@@G@@' @G@@@Z 'CURR$CTA - ADDRESS OF CTA FOR LAST SUBPROGRANR )@@G@@M EXECUTING'@F@@@Z 'FILDIR$ADR - ADDRESS OF MAIN PROGRAM FILNS )@@G@@DIR TABLE' @H@@@Z 'CURR$FILDIR - ADDRESS OF FILDIR FOR LAST NT )@@G@@SUBPROGRAM EXECUTING' @G@@@Z 'C$S$ADR - ADDRESS OF PROGNU )@@G@@RAM STOP IN USER PROGRAM' @D@@@Z ' FOR C$S LNV )@@G@@IBRARY ROUTINES.' @G@@@Z 'C$D$ADR - ADDRESS OF PROGRAM STNW )@@G@@OP IN USER PROGRAM' @D@@@Z ' FOR C$D LIBRARYNX )@@G@@ ROUTINES.' @#@@@Z ' ' @G@Y@X 'THE AD$INIT FUNCTIONY )@@G@@N LOADS THE DUMP FROM THE DIAG$ FILE,' @H@Y@X 'INITIALIZES GNZ )@@G@@LOBAL VARIABLES TO LOCATE INFORMATION WITHIN THE' @G@Y@X 'DOA )@@G@@UMP, SETS QUARTER WORD MODE ON, AND SETS LINE SIZE AT 80' @G@Y@X OB )@@G@@ 'OR 132 CHACACTERS. THE FOLLOWING GLOBAL VARIABLES WILL' @A@Y@XOC )@@G@@ 'BE SET UP FOR YOUR USE:' @#@Y@X ' ' @G@Y@X OD )@@G@@ 'LC$00 - ADDRESS OF MAIN PROGRAM WORKING-STORAGE' @E@Y@XOE )@@G@@ 'LC$01 - ADDRESS OF MAIN PROGRAM IBANK' @D@Y@X OF )@@G@@ 'LC$02 - ADDRESS OF COMMON STORAGE' @F@Y@X 'LC$04 OG )@@G@@ - ADDRESS OF MAIN PROGRAM LITERAL POOL' @F@Y@X 'FCB$LISOH )@@G@@T - ADDRESS OF MAIN PROGRAM FCB LIST $(06)'@H@Y@X 'PARAM$LOI )@@G@@IST - ADDRESS OF MAIN PROGRAM OBJECT MODULE PARAMETER' @B@Y@X OJ )@@G@@ ' LIST $(08)' @E@Y@X 'SAR$ADR - ADDOK )@@G@@RESS OF SAVED AREA RECORD' @F@Y@X 'CTA$ADR - ADDRESS OOL )@@G@@F MAIN PROGRAM CTA TABLE' @G@Y@X 'CURR$CTA - ADDRESS OOM )@@G@@F CTA FOR LAST SUBPROGRAM EXECUTING'@H@Y@X 'FILDIR$ADR - ADDON )@@G@@RESS OF MAIN PROGRAM MAIN PROGRAM FILDIR TABLE' @H@Y@X 'CURR$FIOO )@@G@@LDIR - ADDRESS OF FILDIR FOR LAST SUBPROGRAM EXECUTING' @I@Y@X OP )@@G@@ 'C$S$ADR - ADDRESS OF MAIN PROGRAM PROGRAM STOP IN USER PROGRAOQ )@@G@@M' @D@Y@X ' FOR C$S LIBRARY ROUTINES.' @I@Y@XOR )@@G@@ 'C$D$ADR - ADDRESS OF MAIN PROGRAM PROGRAM STOP IN USER OS )@@G@@PROGRAM' @D@Y@X ' FOR C$D LIBRARY ROUTINES.' OT )@@G@@@]@Z@XENDDOC: @E@@@ZENDDOC: . END OF DOU )@@G@@OCUMENTATION@ @@@X. **DEFINE LOCAL VARIABLES** @ @@@X LOCAL INOV )@@G@@IT$SW(1) @ @)@X LOCAL SCR$AREA(07) @ @@@) LOCAL SCOW )@@G@@R$AREA(077) @ @@@X LOCAL AD$INIT$SW(1) @A@@@X LOCAL SUOX )@@G@@BPROGNAME$(0200) @F@@@X LOCAL SPT$ADR$(0100),CTA$ADR$(0100),FIOY )@@G@@LDIR$ADR$(0100) @H@@@X LOCAL LC$00$(0100),LC$01$(0100),FCB$LIOZ )@@G@@ST$(0100),PARAM$LIST$(0100) @ @@@X LOCAL LC$04$(0100) @F@@@XPA )@@G@@ LOCAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADR$(0100) @ @@@XPB )@@G@@ LOCAL COND$WORD(1) @A@@@X SUBPROGNAME$[:0100]:=0 PC )@@G@@@A@@@X SUBPROGNAME$[0100:0100]:=0@ @@@X FILE$NAME$[:01PD )@@G@@00]:=0@A@@@X FILE$NAME$[0100:0100]:=0 @^@@@X INIT$SW[PE )@@G@@]:=0 @^@@@X LINE$COUNT:=0 @A@@@X GO LOADPMD$SW>0\INITPF )@@G@@$ @A@@@X GO AD$INIT$SW[]=/1\INIT$ @#@@@X GO MAIN$PG )@@G@@@[@@@XINIT$:@ @@@X. **INITIALIZATION ROUTINE** @ @@@X AD$INIT$PH )@@G@@SW[]:=1 @#@@@X LOADPMD @[@@@XMAIN$:@#@@@X. **MAIN ROUTINE**PI )@@G@@@D@@@X. INITIALIZE FLIT DEFINED VARIABLES AND SCREEN SIZE. @^@@@X PJ )@@G@@ LINSIZ:=132 @^@@@X FNTQWM:=1 @^@@@X BUFFER$SPK )@@G@@W:=0 @^@@@X FLDTA$ON$SW:=0@ @@@X ASCII$OFF$SW:=0 PL )@@G@@@^@@@X LINES$OUT:=0 @A@@@X SCREEN$SIZE:=NBR$OF$LINES PM )@@G@@@E@@@X. GET CONDITION WORD OUTA THE PROGRAM CONTROL TABLE (PCT). @A@@@XPN )@@G@@ PCT$BAS:=BANKBASE(PCT$BDI)@A@@@X PCT$ADR:=PCT$BAS+077PO )@@G@@7000 @A@@@X COND$WORD[]:=PCT$ADR[*020]@D@@@X. INITIALIZE INFORPP )@@G@@MATION FROM SAVED AREA RECORD (SAR).@ @@@X SAR$ADR:=C$S300+034 PQ )@@G@@@A@@@X C$D$ADR:=SAR$ADR[0121,,H2]@A@@@X C$S$ADR:=SAR$APR )@@G@@DR[0170,,H2]@A@@@X C$D$BDI:=SAR$ADR[0121,,H1]@A@@@X C$PS )@@G@@S$BDI:=SAR$ADR[0170,,H1]@A@@@X CTA$ADR:=SAR$ADR[03,,H1] @B@@@XPT )@@G@@ FILDIR$ADR:=SAR$ADR[04,,H1] @ @@@X CURR$CTA:=CTA$PU )@@G@@ADR @A@@@X CURR$FILDIR:=FILDIR$ADR @B@@@X SUBPROG$PV )@@G@@SW:=SAR$ADR[0137,,H2] @]@@@XMAIN$1: @E@@@X. DETERMINE THE CORRECT PW )@@G@@CTA ADDR FOR THE MAIN PROGRAM BY @A@@@X. SNAKE-ING THRU THE CTA TABLEPX )@@G@@S. @A@@@X GO CTA$ADR[0,,H2]=0\MAIN$2@A@@@X CTA$ADR:PY )@@G@@=CTA$ADR[0,,H2] @^@@@X GO MAIN$1 @]@@@XMAIN$2: @E@@@XPZ )@@G@@. DETERMINE THE CORRECT FILDIR ADDR FOR THE MAIN PROGRAM BY @A@@@X. SNAKQA )@@G@@E-ING THRU THE FILDIR TABLES. @B@@@X GO FILDIR$ADR[1,,H2]=0\MAIQB )@@G@@N$3 @B@@@X FILDIR$ADR:=FILDIR$ADR[0,,H2] @^@@@X GOQC )@@G@@ MAIN$2 @]@@@XMAIN$3: @F@@@X. INITIALIZE INFORMATION FROM CTA OFQD )@@G@@ MAIN PROGRAM. THIS CTA ADDR @C@@@X. WAS OBTAINED BY THE PREVIOUS SNAKEQE )@@G@@ ROUTINE. @A@@@X LC$00:=CTA$ADR[05,,H1] @B@@@X LCQF )@@G@@$01$BDI:=CTA$ADR[010,,H1] @A@@@X LC$01:=CTA$ADR[010,,H2] QG )@@G@@@A@@@X LC$02:=CTA$ADR[05,,H2] @A@@@X LC$04:=CTA$ADRQH )@@G@@[06,,H1] @A@@@X FCB$LIST:=CTA$ADR[06,,H2] @B@@@X PAQI )@@G@@RAM$LIST:=CTA$ADR[07,,H1] @#@@@X INDX1:=0@D@@@X. SKIP NEXT QJ )@@G@@ROUTINE IF NO COMMON STORAGE ALLOCATED @ @@@X GO LC$02=0\MAIQK )@@G@@N$6 @]@@@XMAIN$4: @E@@@X. ROUTINE TO TRAVEL THRU THE LOCATION COUNQL )@@G@@TER TABLE (LCT) @E@@@X. TO CALCULATE THE SIZE OF COMMON STORAGE (LC$02QM )@@G@@). ALTHOUGH @E@@@X. COMMON STORAGE IS NOT REALLY LC$02, SINCE IT IS NOT QN )@@G@@IN @F@@@X. THE LCT. BUT WE WILL PRETEND IT IS JUST FOR THE NONSENSE OQO )@@G@@F IT. @^@@@X INDX1:=INDX1+1@B@@@X GO INDX1*3>HDR[026,,QP )@@G@@H1]\MAIN$5 @C@@@X GO LC$02=/LCT[3*INDX1+2,,H2]\MAIN$4 @C@@@XQQ )@@G@@ LC$02$SIZE:=LCT[3*INDX1+5,,H2]-LC$02 @^@@@X GO MAIN$QR )@@G@@6 @]@@@XMAIN$5: @G@@@X 'ERROR IN CALCULATING SIZE OF BLQS )@@G@@ANK$COMMON, SIZE SET TO 64!!!'@ @@@X LC$02$SIZE:=0100 @]@@@XQT )@@G@@MAIN$6: @E@@@X. ROUTINE TO BUILD LOCAL ARRRAYS TO BE REFERENCED BY OQU )@@G@@THER @E@@@X. FUNCTIONS THAT CONTAIN INFORMATION UNIQUE TO A SPECIFIC QV )@@G@@@D@@@X. USER MAIN PROGRAM OR SUBPROGRAM CONTAINED WITHIN THE@^@@@X. ABSOQW )@@G@@LUTE ELEMENT. @E@@@X. INFORMATION FOR UP TO 64 SEPARATELY COMPILED PQX )@@G@@ROGRAMS @A@@@X. WILL BE STORED AWAY FOR LATER USE.@[@@@X. @C@@@XQY )@@G@@. PUT INFORMATION FROM MAIN PROGRAM IN SLOT 0. @ @@@X CTA$ADR$QZ )@@G@@[]:=CTA$ADR @A@@@X FILDIR$ADR$[]:=FILDIR$ADR @ @@@X LCRA )@@G@@$00$[]:=LC$00 @ @@@X LC$04$[]:=LC$04 @F@@@X LCRB )@@G@@$01$[]:=CTA$ADR[010] . LOADS BOTH BDI AND BASE ADDRESS@A@@@X FCRC )@@G@@B$LIST$[]:=FCB$LIST @A@@@X PARAM$LIST$[]:=PARAM$LIST @^@@@XRD )@@G@@ SPT$ADR$[]:=0 @E@@@X. NOW CHECK TO SEE IF THERE ARE ANY SUBPRORE )@@G@@GRAMS. IF THERE @D@@@X. ARE ANY, THIS ROUTINE WILL SNAKE THRU THE SPT RF )@@G@@TABLES@E@@@X. FOR ALL SUBPROGRAMS INITIALIZED, AND FIND A PLACE FOR THE RG )@@G@@@E@@@X. THE SUBPROGRAM INFORMATION TO LIVE IN OUR ARRAY COMPLEX. @#@@@XRH )@@G@@ INDX1:=1@A@-@X GO SUBPROG$SW=0\MAIN$10 @A@@@- RI )@@G@@ GO SUBPROG$SW=0\MAIN$9 @A@@@X SPT$ADR:=SUBPROG$SW[7,,H2]RJ )@@G@@@]@@@XMAIN$7: @A@@@X SPT$ADR$[INDX1]:=SPT$ADR @C@@@X RK )@@G@@ SUBPROGNAME$[INDX1*2:2]:=SPT$ADR[:2] @B@@@X CTA$ADR$[INDX1RL )@@G@@]:=SPT$ADR[2,,H2] @C@@@X FILDIR$ADR$[INDX1]:=SPT$ADR[3,,H2] RM )@@G@@@C@@@X LC$00$[INDX1]:=SPT$ADR[2,,H2][5,,H1] @H@@@X LCRN )@@G@@$01$[INDX1]:=SPT$ADR[2,,H2][010] . LOADS BOTH BDI AND BASE ADDR @C@@@XRO )@@G@@ LC$04$[INDX1]:=SPT$ADR[2,,H2][6,,H1] @D@@@X FCB$LISTRP )@@G@@$[INDX1]:=SPT$ADR[2,,H2][06,,H2] @D@@@X PARAM$LIST$[INDX1]:=RQ )@@G@@SPT$ADR[2,,H2][07,,H1] @#@@@X. DO THE SNAKE @A@@@X SPT$ADR:RR )@@G@@=SPT$ADR[6,,H2] @^@@@X INDX1:=INDX1+1@A@@@X GO INDX1RS )@@G@@>077\$+1,MAIN$8 @C@@@X 'ERROR!!! PROGRAM TABLE OVERFLOW!!!' RT )@@G@@@^@@@X GO MAIN$10 @]@@@XMAIN$8: @ @@@X GO SPT$ARU )@@G@@DR=/0\MAIN$7@E@@@X. THIS ROUTINE WILL UTILIZE THE LOCAL ARRAYS JUST BUILRV )@@G@@T TO @E@@@X. BUILD ANOTHER SET FOR ALL THE FILES DEFINED WITHIN THE RW )@@G@@@F@@@X. ABSOLUTE PROGRAM. THIS IS DONE BY REFERENCING THE FCB$LIST$ RX )@@G@@@D@@@X. ARRAY TO DETERMINE ALL FILES FOR ALL PROGRAM UNITS. @ @@@X. DUPLRY )@@G@@ICATES WILL BE DROPPED. @]@@@-MAIN$9: @ @@@X MAX$PROG$IX:=IRZ )@@G@@NDX1-1@#@@@X INDX1:=0@^@@@X MAX$FILE$IX:=0@]@@@XMAIN$1SA )@@G@@0: @A@@@X GO INDX1>MAX$PROG$IX\EXIT @C@@@X NBR$OF$FSB )@@G@@CBS:=FCB$LIST$[INDX1][0,,S6] @#@@@X INDX2:=1@]@@@XMAIN$11: SC )@@G@@@#@@@X INDX3:=0@B@@@X GO INDX2>NBR$OF$FCBS\MAIN$15 SD )@@G@@@A@@@X GO NBR$OF$FCBS=0\MAIN$15 @D@@@X FCBADDRESS:=FCSE )@@G@@B$LIST$[INDX1][INDX2,,H2] @]@@@XMAIN$12: @E@@@X GO FCBADSF )@@G@@DRESS[:2]=FILE$NAME$[INDX3*2:2]\MAIN$14 @C@@@X GO FILE$NAME$[SG )@@G@@INDX3*2]=0\$+1,MAIN$13 @C@@@X FILE$NAME$[INDX3*2:2]:=FCBADDRESSH )@@G@@S[:2] @B@@@X FCB$ADR$[INDX3]:=FCBADDRESS @E@@@X RESI )@@G@@C$ADR$[INDX3]:=FILDIR$ADR$[INDX1][2*INDX2,,H1] @B@@@X GO INDX3SJ )@@G@@3)\MAIN$190@C@@@@-194,194- FOR FIELDASZ )@@G@@TA (ONLY) FILES @ @@@@/ASCII$OFF$SW/FD$FILE$SW/ @C@@@@-211,211- TA )@@G@@ FOR FIELDATA (ONLY) FILES @ @#@@/ASCII$OFF$SW/FD$FILE$SW/ TB )@@G@@@^@@@#/FLDTA$ON$SW/FD$FILE$SW/@C@@@@-272,272- BYPASS FOR FILESTC )@@G@@ NOT OPEN @]@@@@/=5/>3/ @ @@@@-511 SORT INFO @C@@@@TD )@@G@@ GO FCB$ADR[0,,H1]=/0350605\NO$SORT @A@@@@ GO FILE$TE )@@G@@STATUS=0\NO$SORT @B@@@@ GO SCREEN$SIZE=0\BATCH$SORT @C@@@@TF )@@G@@ GO SCREEN$SIZE>LINECOUNT+5\BATCH$SORT @ @@@@ JUMP$$SWTG )@@G@@:=BATCH$SORT@^@@@@ GO NEWPAGE @]@@@@BATCH$SORT: @#@@@@ TH )@@G@@ ' ' @ @@@@ 'SORT INFORMATION' @E@@@@ ' SORT RTI )@@G@@ECORD SIZE IN WORDS:',C$M30A[0315][0153!D]@G@]@@ ' CORE START ATJ )@@G@@ND END ADDRESSES:',C$M30A[0315][0154,,H1],'/'; @G@@@] ' CORE STK )@@G@@TART AND END ADDRESSES:',C$M30A[0315][0154,,H1],'/',; @A@@@[ C$TL )@@G@@M30A[0315][0154,,H2] @G@]@[ ' INPUT AND OUTPUT ITEM COUNTS:'TM )@@G@@,C$M30A[0315][0176!D,'/'; @G@#@] ' INPUT AND OUTPUT ITEM COTN )@@G@@UNTS:',C$M30A[0315][0176!D,'/',; @G@@@# ' INPUT AND OUTPUT ITO )@@G@@TEM COUNTS:',C$M30A[0315][0176!D],'/',; @ @@@[ C$M30A[0315][0TP )@@G@@216!D]@]@@@[NO$SORT: _@@@@@^@)^8)CTJEL ^[NE-[ELO^[[D1^^[ D1^^[[C-^EL TQ )@@G@@ETNC(NBK$ -#^-HAS0CDVA@3AC5F(VA@1A*4 )?D@1F*?^8\*[S@@@*SDFF*@ @@@6FUNCT TR )@@G@@AD$F$SUBRTN(FILE$IX) @E@@@6 GO ENDDOC . BYTS )@@G@@PASS DOCUMENTATION@H@@@6 'THE AD$F$SUBRTN IS CALLED BY THE AD$FTT )@@G@@ILE FUNCTION AND WILL NOT' @G@@@6 'WORK IF CALLED DIRECTLY. TU )@@G@@ THIS FUNCTION LISTS INFORMATION' @H@@@6 'FOR A PARTICULAR FITV )@@G@@LE. FOR A DESCRIPTION OF THIS INFORMATION' @E@@@6 'USE AD$TW )@@G@@HELP, THE ACDP DOCUMENTATION FUNCTION.' @E@@@6ENDDOC: TX )@@G@@ . END OF DOCUMENTATION@ @@@6. **DEFINE LOCAL VARIABLES** TY )@@G@@@ @@@6 LOCAL INIT$SW(1) @C@@@6 LOCAL REC$SIZ$CHAR(1TZ )@@G@@), REC$SIZ$WORD(1)@A@@@6 LOCAL FILE$STATUS$(2) @ @@@6 UA )@@G@@ GO INIT$SW[]=0\INIT$@#@@@6 GO MAIN$@[@@@6INIT$:@ @@@6. ** IUB )@@G@@NITIALIZATION ROUTINE **@^@@@6 INIT$SW[]:=1 @A@@@6 FCUC )@@G@@B$ADR:=FCB$ADR$[FILE$IX]@B@@@6 RECORD$ADR:=REC$ADR$[FILE$IX] UD )@@G@@@ @@@6 JUMP$$SW:=MAIN$1 @[@@@6MAIN$:@^@@@6. ** MAIN ROUTINE UE )@@G@@** @^@@@6 LINE$COUNT:=9 @A@@@6 GO JUMP$$SW=MAIN$1\MUF )@@G@@AIN$1 @#@@@6 ' ' @#@@@6 ' ' @#@@@6 ' UG )@@G@@' @#@@@6 ' ' @#@@@6 ' ' @#@@@6 ' UH )@@G@@' @#@@@6 ' ' @#@@@6 ' ' @#@@@6 ' UI )@@G@@' @#@@@6 ' ' @H@@@6 TAB(8),'***** FILE ANALYSIUJ )@@G@@S FOR',FCB$ADR[:2!F],'(CONTINUED) *****' @^@@@6 LINE$COUNT:=3 UK )@@G@@@^@@@6 GO JUMP$$SW @]@@@6MAIN$1: @#@@@6 ' ' UL )@@G@@@#@@@6 ' ' @#@@@6 ' ' @#@@@6 ' ' UM )@@G@@@#@@@6 ' ' @#@@@6 ' ' @#@@@6 ' ' UN )@@G@@@#@@@6 ' ' @#@@@6 ' ' @#@@@6 ' ' UO )@@G@@@G@@@6. PRINT OUT SUMMARY INFORMATION FOR FILE: TYPE, STATUS, FCB ADDRESUP )@@G@@S, @^@@@6. AND RECORD ADDRESS. @F@@@6 TAB(15),'***** FILE UQ )@@G@@ANALYSIS FOR',FCB$ADR[:2!F],'*****' @#@@@6 ' ' @G@8@6 UR )@@G@@ 'FILE TYPE',TAB(23),'FILE STATUS',TAB(42),'FCB ADDRESS',; @G@@@8US )@@G@@ 'FILE TYPE',TAB(31),'FILE STATUS',TAB(50),'FCB ADDRESS',; UT )@@G@@@A@8@6 TAB(57),'RECORD ADDRESS' @A@9@8 TAB(65),'RECORUU )@@G@@D ADDRESS' @A@@@9 TAB(63),'RECORD ADDRESS' @G@9@6 '-UV )@@G@@--------',TAB(23),'-----------',TAB(42),'-----------',; @G@@@9 UW )@@G@@ '---------',TAB(31),'-----------',TAB(50),'-----------',; @A@9@6UX )@@G@@ TAB(57),'--------------' @A@@@9 TAB(63),'-----------UY )@@G@@---' @]@@@6MAIN$2: @A@@@6 FILE$TYP:=FCB$ADR[02,,S2] @B@@@6UZ )@@G@@ FILE$STATUS:=FCB$ADR[02,,S3] @A@@@6STAT0: GO FILE$STATUSVA )@@G@@=/0\STAT1 @A@@@6 FILE$STATUS$[]:='00, NE' @A@@@6 FIVB )@@G@@LE$STATUS$[1]:='VER OP' @A@@@6 FILE$STATUS$[2]:='ENED ' @A@@@6VC )@@G@@STAT1: GO FILE$STATUS=/1\STAT2 @A@@@6 FILE$STATUS$[]:='01,VD )@@G@@ OP' @A@@@6 FILE$STATUS$[1]:='EN INP' @A@@@6 FILE$STAVE )@@G@@TUS$[2]:='UT ' @A@@@6STAT2: GO FILE$STATUS=/2\STAT3 @A@@@6 VF )@@G@@ FILE$STATUS$[]:='02, OP' @A@@@6 FILE$STATUS$[1]:='EN OUT' VG )@@G@@@A@@@6 FILE$STATUS$[2]:='PUT ' @A@@@6STAT3: GO FILE$STATUSVH )@@G@@=/3\STAT4 @A@@@6 FILE$STATUS$[]:='03, OP' @A@@@6 FIVI )@@G@@LE$STATUS$[1]:='EN I-O' @A@@@6 FILE$STATUS$[2]:=' ' @A@@@6VJ )@@G@@STAT4: GO FILE$STATUS=/4\STAT5 @A@@@6 FILE$STATUS$[]:='04,VK )@@G@@ CL' @A@@@6 FILE$STATUS$[1]:='OSED W' @A@@@6 FILE$STAVL )@@G@@TUS$[2]:='/LOCK ' @A@@@6STAT5: GO FILE$STATUS=/5\TYP01 @A@@@6 VM )@@G@@ FILE$STATUS$[]:='05, CL' @A@@@6 FILE$STATUS$[1]:='OSED ' VN )@@G@@@A@@@6 FILE$STATUS$[2]:=' ' @A@@@6TYP01: GO FILE$TYP=/0VO )@@G@@1\TYP02 @C@@@6 '01, 1968 STD TAPE ',; @G@8@6VP )@@G@@ TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR VQ )@@G@@@G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORVR )@@G@@D$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66)VS )@@G@@,RECORD$ADR @A@@@6TYP02: GO FILE$TYP=/02\TYP03 @C@8@6 '0VT )@@G@@2, IBM 360 TAPE ',; @C@9@8 '02, IBM 368 TAPE VU )@@G@@ ',; @C@@@9 '02, IBM 368 TAPE ',; VV )@@G@@@G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORVW )@@G@@D$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68)VX )@@G@@,RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TVY )@@G@@AB(66),RECORD$ADR @A@@@6TYP03: GO FILE$TYP=/03\TYP04 @C@@@6 VZ )@@G@@ '03, LION TAPE ',; @G@8@6 TAB(22),FILE$SWA )@@G@@TATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),WB )@@G@@FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAWC )@@G@@B(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP04:WD )@@G@@ GO FILE$TYP=/04\TYP05 @C@@@6 '04, CFH TAPE WE )@@G@@ ',; @G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TWF )@@G@@AB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCBWG )@@G@@$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(5WH )@@G@@2),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP05: GO FILE$TYP=/05\TYP06 WI )@@G@@@C@@@6 '05, SEQ MASS-STORAGE ',; @G@8@6 TAWJ )@@G@@B(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 WK )@@G@@ TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9WL )@@G@@ TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR WM )@@G@@@A@@@6TYP06: GO FILE$TYP=/06\TYP07 @C@@@6 '06, DIRECT FIWN )@@G@@LE ',; @G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(4WO )@@G@@4),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F]WP )@@G@@,TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$WQ )@@G@@[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP07: GO FILE$TYP=/0WR )@@G@@7\TYP10 @C@@@6 '07, ISAM (NOT MSAM) ',; @G@8@6WS )@@G@@ TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR WT )@@G@@@G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORWU )@@G@@D$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66)WV )@@G@@,RECORD$ADR @A@@@6TYP10: GO FILE$TYP=/010\TYP11 @C@@@6 '0WW )@@G@@10, PRINTER ',; @G@8@6 TAB(22),FILE$STATUS$WX )@@G@@[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),FILE$SWY )@@G@@TATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),WZ )@@G@@FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP11: GOXA )@@G@@ FILE$TYP=/011\TYP12 @C@@@6 '011, CARD-PUNCH 'XB )@@G@@,; @G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60)XC )@@G@@,RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TXD )@@G@@AB(68),RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCBXE )@@G@@$ADR,TAB(66),RECORD$ADR @A@@@6TYP12: GO FILE$TYP=/012\TYP13 @C@@@6XF )@@G@@ '012, CARD-READER ',; @G@8@6 TAB(22),XG )@@G@@FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAXH )@@G@@B(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 XI )@@G@@ TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6XJ )@@G@@TYP13: GO FILE$TYP=/013\TYP14 @C@@@6 '013, FORM01, 02, 03XK )@@G@@ TAPE ',; @G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(44),FCBXL )@@G@@$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(5XM )@@G@@2),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F]XN )@@G@@,TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP14: GO FILE$TYP=/014\TYPXO )@@G@@15 @C@@@6 '014, DEVICE INDEPENDENT ',; @G@8@6 XP )@@G@@ TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8XQ )@@G@@ TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR XR )@@G@@@G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORXS )@@G@@D$ADR @A@@@6TYP15: GO FILE$TYP=/015\TYP16 @C@@@6 '015, SEXT )@@G@@Q SDF (NOT PCIOS) ',; @G@8@6 TAB(22),FILE$STATUS$[:3!F]XU )@@G@@,TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$XV )@@G@@[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),FILE$SXW )@@G@@TATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP16: GO FILE$XX )@@G@@TYP=/016\TYP17 @C@@@6 '016, DIRECT SDF (NOT PCIOS) ',; XY )@@G@@@G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORXZ )@@G@@D$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68)YA )@@G@@,RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TYB )@@G@@AB(66),RECORD$ADR @A@@@6TYP17: GO FILE$TYP=/017\TYP20 @C@@@6 YC )@@G@@ '017, INFO INTERCHANGE ',; @G@8@6 TAB(22),FILE$SYD )@@G@@TATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),YE )@@G@@FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAYF )@@G@@B(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP20:YG )@@G@@ GO FILE$TYP=/020\TYP21 @C@@@6 '020, TAPE YH )@@G@@ ',; @G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TYI )@@G@@AB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCBYJ )@@G@@$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(5YK )@@G@@2),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP21: GO FILE$TYP=/021\TYP22 YL )@@G@@@C@@@6 '021, SEQ DISK ',; @G@8@6 TAYM )@@G@@B(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 YN )@@G@@ TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9YO )@@G@@ TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR YP )@@G@@@A@@@6TYP22: GO FILE$TYP=/022\TYP23 @C@@@6 '022, RELATIVEYQ )@@G@@ DISK ',; @G@8@6 TAB(22),FILE$STATUS$[:3!F],TAB(4YR )@@G@@4),FCB$ADR,TAB(60),RECORD$ADR @G@9@8 TAB(30),FILE$STATUS$[:3!F]YS )@@G@@,TAB(52),FCB$ADR,TAB(68),RECORD$ADR @G@@@9 TAB(30),FILE$STATUS$YT )@@G@@[:3!F],TAB(52),FCB$ADR,TAB(66),RECORD$ADR @A@@@6TYP23: GO FILE$TYP=/0YU )@@G@@23\TEND @C@@@6 '023, MSAM FILE ',; @G@8@6YV )@@G@@ TAB(22),FILE$STATUS$[:3!F],TAB(44),FCB$ADR,TAB(60),RECORD$ADR YW )@@G@@@G@9@8 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(68),RECORYX )@@G@@D$ADR @G@@@9 TAB(30),FILE$STATUS$[:3!F],TAB(52),FCB$ADR,TAB(66)YY )@@G@@,RECORD$ADR @[@@@6TEND: @E@@@6. DETERMINE AND PRINT THE LOGICAL RECORD SYZ )@@G@@IZE IN CHARACTERS @]@@@6. AND WORDS.@B@@@6 REC$SIZ$WORD[]:=FCB$ZA )@@G@@ADR[4,,H2] @B@@@6 REC$SIZ$CHAR[]:=FCB$ADR[4,,H2] %C@@@@-144 ZB )@@G@@ FOR FIELDATA (ONLY) FILES @^@@[' FD$FILE$SW:=1 ZC )@@G@@@F@@[' GO (FILE$TYP=03)++(FILE$TYP=04)++(FILE$TYP=013)\MAIN$100ZD )@@G@@@A@@[' FD$FILE$SW:=ASCII$OFF$SW @D@@@6 GO (FILE$TYP=0ZE )@@G@@12)++(FILE$TYP=020)\MAIN$110 @]@@@6MAIN$100: %C@@@@-147,148- ZF )@@G@@ FOR FIELDATA (ONLY) FILES @E@'@6 REC$SIZ$CHAR[]:=ASCII$OFF$ZG )@@G@@SW=0\REC$SIZ$WORD[]*4 @E@@[' REC$SIZ$CHAR[]:=FD$FILE$SW=0\RECZH )@@G@@$SIZ$WORD[]*4 @E@'@6 REC$SIZ$CHAR[]:=ASCII$OFF$SW=1\REC$SIZZI )@@G@@$WORD[]*6 @E@@[' REC$SIZ$CHAR[]:=FD$FILE$SW=1\REC$SIZ$WORD[]*ZJ )@@G@@6 %@@@@]@^[@@6 GO MAIN$150 @]@@@6MAIN$110: %C@@@@-151,1ZK )@@G@@51- FOR FIELDATA (ONLY) FILES @A@'@6 GO ASCII$OFF$SZL )@@G@@W=1\MAIN$120@A@@[' GO FD$FILE$SW=1\MAIN$120 %@@@@[@B[@@6 ZM )@@G@@ REC$SIZ$WORD[]:=REC$SIZ$CHAR[]/4@B@@@6 REC$SIZ$REM:=REC$SIZZN )@@G@@$CHAR///4 @E@@@6 REC$SIZ$WORD[]:=REC$SIZ$REM>0\REC$SIZ$WORD[]ZO )@@G@@+1 @^@@@6 GO MAIN$150 @]@@@6MAIN$120: @B@@@6 REZP )@@G@@C$SIZ$WORD[]:=REC$SIZ$CHAR[]/6@B@@@6 REC$SIZ$REM:=REC$SIZ$CHAR/ZQ )@@G@@//6 @E@@@6 REC$SIZ$WORD[]:=REC$SIZ$REM>0\REC$SIZ$WORD[]+1 ZR )@@G@@@]@@@6MAIN$150: @#@@@6 ' ' @H@@@6 'RECORD LENGTHZS )@@G@@: ',REC$SIZ$WORD[!D],'(WORDS), ',REC$SIZ$CHAR[!D],; @E@@@6 '(ZT )@@G@@CHARACTERS), ',REC$SIZ$WORD[],'(WORDS IN OCTAL)'@A@@@6 GO SCREEZU )@@G@@N$SIZE=0\MAIN$160 @C@@@6 GO SCREEN$SIZE>LINE$COUNT+4\MAIN$160 ZV )@@G@@@ @@@6 JUMP$$SW:=MAIN$160 @^@@@6 GO NEWPAGE @]@@@6ZW )@@G@@MAIN$160: %C@@@@-168 BYPASS FOR FILES NOT OPEN @D@@['ZX )@@G@@ GO (FILE$STATUS=0)++(FILE$STATUS>3)\MAIN$190@F@@@6. USE THE ADZY )@@G@@$DUMP FUNCTION TO PRINT THE CONTENTS OF THE CURRENT @E@@@6. RECORD POIZZ )@@G@@NTED TO BY THE FILDIR TABLE IN OCTAL, ASCII, AND@^@@@6. OPTIONALLY IN FIAA )@@G@@ELDATA@#@@@6 ' ' @A@@@6 'CURRENT RECORD IN OCTAL:'AB )@@G@@@^@@@6 AD$RESET(0) @^@@@6 GO MAIN$164 @]@@@6MAIN$1AC )@@G@@62: @A@@@6 LINE$COUNT:=LINE$COUNT+2 @#@@@6 ' ' AD )@@G@@@C@@@6 'CURRENT RECORD IN OCTAL (CONTINUED):'@^@@@6 ADAE )@@G@@$RESET(1) @]@@@6MAIN$164: @C@@@6 AD$DUMP(RECORD$ADR,REC$SIZAF )@@G@@$WORD[],1,1)@A@@@6 GO SCREEN$SIZE=0\MAIN$170 @C@@@6 GOAG )@@G@@ SCREEN$SIZE>LINE$COUNT\MAIN$170 @ @@@6 JUMP$$SW:=MAIN$162 AH )@@G@@@#@@@6 GO EXIT @]@@@6MAIN$170: @A@@@6 GO SCREEN$SIZEAI )@@G@@=0\MAIN$172 @A@@@6 LINE$COUNT:=LINE$COUNT+2 @C@@@6 GOAJ )@@G@@ SCREEN$SIZE>LINE$COUNT+4\MAIN$172 @ @@@6 JUMP$$SW:=MAIN$172 AK )@@G@@@^@@@6 GO NEWPAGE @]@@@6MAIN$172: %C@@@@-194,194- AL )@@G@@ FOR FIELDATA (ONLY) FILES @A@'@6 GO ASCII$OFF$SW=1\MAIN$180AM )@@G@@@A@@[' GO FD$FILE$SW=1\MAIN$180 %@@@@[@#[@@6 ' ' AN )@@G@@@A@@@6 'CURRENT RECORD IN ASCII:'@^@@@6 AD$RESET(0) AO )@@G@@@^@@@6 GO MAIN$176 @]@@@6MAIN$174: @A@@@6 LINE$COUAP )@@G@@NT:=LINE$COUNT+2 @#@@@6 ' ' @C@@@6 'CURRENT RECORAQ )@@G@@D IN ASCII (CONTINUED):'@^@@@6 AD$RESET(1) @]@@@6MAIN$176: AR )@@G@@@C@@@6 AD$DUMP(RECORD$ADR,REC$SIZ$WORD[],2,1)@A@@@6 GOAS )@@G@@ SCREEN$SIZE=0\MAIN$180 @C@@@6 GO SCREEN$SIZE>LINE$COUNT\MAIN$1AT )@@G@@80 @ @@@6 JUMP$$SW:=MAIN$174 @#@@@6 GO EXIT @]@@@6AU )@@G@@MAIN$180: %C@@@@-211,211- FOR FIELDATA (ONLY) FILES @A@'@6AV )@@G@@ GO FLDTA$ON$SW=0\MAIN$190 @A@@[' GO FD$FILE$SW=0\MAINAW )@@G@@$190 %@@@@[@A[@@6 GO SCREEN$SIZE=0\MAIN$182 @A@@@6 LIAX )@@G@@NE$COUNT:=LINE$COUNT+2 @C@@@6 GO SCREEN$SIZE>LINE$COUNT+4\MAINAY )@@G@@$182 @ @@@6 JUMP$$SW:=MAIN$182 @^@@@6 GO NEWPAGE AZ )@@G@@@]@@@6MAIN$182: @#@@@6 ' ' @B@@@6 'CURRENT RECORBA )@@G@@D IN FIELDATA:' @^@@@6 AD$RESET(0) @^@@@6 GO MAIN$BB )@@G@@186 @]@@@6MAIN$184: @#@@@6 ' ' @D@@@6 'CURRENTBC )@@G@@ RECORD IN FIELDATA (CONTINUED):' @^@@@6 AD$RESET(1) @]@@@6BD )@@G@@MAIN$186: @C@@@6 AD$DUMP(RECORD$ADR,REC$SIZ$WORD[],3,1)@]@@@6BE )@@G@@MAIN$190: @D@@@6. GO TO DONE IF THE FILE BEING EVALUATED IS NOT PCIOS BF )@@G@@@ @@@6 GO FILE$TYP<020\DONE@A@@@6 GO SCREEN$SIZE=0\MAIBG )@@G@@N$195 @C@@@6 GO SCREEN$SIZE>LINE$COUNT+8\MAIN$195 @ @@@6 BH )@@G@@ JUMP$$SW:=MAIN$195 @^@@@6 GO NEWPAGE @]@@@6MAIN$195: BI )@@G@@@G@@@6. PRINT OUT BLOCK (PHYSICAL RECORD) SIZE, PCIOS ADDRESS INFORMATIOBJ )@@G@@N, @E@@@6. AND THE I/O PACKET FOR ALL PCIOS FILE TYPES EXCEPT MSAM. BK )@@G@@@A@@@6 LINE$COUNT:=LINE$COUNT+8 @A@@@6 GO FILE$TYP=02BL )@@G@@3\MAIN$400 @A@@@6 FCT$ADR:=FCB$ADR[013,,H2] @A@@@6 PFBM )@@G@@CB$ADR:=FCT$ADR[2,,H2] @A@@@6 BCB$ADR:=FCT$ADR[3,,H2] @#@@@6BN )@@G@@ ' ' @H@@@6 'PHYSICAL RECORD SIZE IN WORDS: ',BCB$BO )@@G@@ADR[3,,H2],'(OCTAL) ',; @B@@@6 BCB$ADR[3,,H2!D],'(DECIMALBP )@@G@@)' @#@@@6 ' ' @B@@@6 'PCIOS ADDRESS INFORMATIONBQ )@@G@@:' @F@@@6 'FCT ADDRESS:',FCT$ADR,TAB(25),'FCB ADDRESS:',PFCBBR )@@G@@$ADR,;@B@@@6 TAB(50),'BCB ADDRESS:',BCB$ADR @#@@@6 ' BS )@@G@@' @^@@@6 'I/O PACKET:' @B@@@6 BCB$ADR[:2!F6],BCB$ABT )@@G@@DR[02:4!O12]@A@@@6 GO SCREEN$SIZE=0\MAIN$197 @C@@@6 GOBU )@@G@@ SCREEN$SIZE>LINE$COUNT+3\MAIN$197 @ @@@6 JUMP$$SW:=MAIN$197 BV )@@G@@@^@@@6 GO NEWPAGE @]@@@6MAIN$197: @ @@@6. PRINT FILE BUFFEBW )@@G@@R ADDRESSES @A@@@6 LINE$COUNT:=LINE$COUNT+3 @A@@@6 GOBX )@@G@@ FILE$TYP=022\MAIN$200 @#@@@6 ' ' @ @@@6 'BUFFER BY )@@G@@ADDRESSES:' @G@@@6 'CURRENT: ',BCB$ADR[04,,H2],TAB(25),'FIRST:'BZ )@@G@@,BCB$ADR[06,,H2],;@C@@@6 TAB(50),'SECOND:',BCB$ADR[06,,H1] CA )@@G@@@^@@@6 GO MAIN$210 @]@@@6MAIN$200: @#@@@6 ' ' CB )@@G@@@G@@@6 'RELATIVE FILE BUFFER ADDRESS:',BCB$ADR[04,,H2],TAB(42),CC )@@G@@; @D@@@6 'RELATIVE RECORD NUMBER: ',BCB$ADR[011!D] @]@@@6CD )@@G@@MAIN$210: @ @@@6 GO BUFFER$SW=0\DONE %C@@@@-272,272- CE )@@G@@ BYPASS FOR FILES NOT OPEN @D@'@6 GO (FILE$STATUS=0)++(FILE$CF )@@G@@STATUS=5)\DONE @D@@[' GO (FILE$STATUS=0)++(FILE$STATUS>3)\DOCG )@@G@@NE %@@@@[@B[@@6 GO BCB$ADR[06,,H2]=0\MAIN$310 @A@@@6 CH )@@G@@ GO ASCII$OFF$SW=1\MAIN$260@A@@@6 GO SCREEN$SIZE=0\MAIN$215 CI )@@G@@@C@@@6 GO LINE$COUNT+5=SCREEN$SIZE\MAIN$220 @C@@@6 GO LINE$CU )@@G@@COUNT=SCREEN$SIZE\MAIN$270 @C@@@6 GO LINE$COUNT=SCREDQ )@@G@@EN$SIZE\MAIN$320 @C@@@6 GO LINE$COUNTLINE$COUNT+13\MAIN$651 @ @@@6 EX )@@G@@ JUMP$$SW:=MAIN$651 @^@@@6 GO NEWPAGE @]@@@6MAIN$651: EY )@@G@@@B@@@6. PRINT MSAM INFORMATION STATISTICS TABLE @#@@@6 ' ' EZ )@@G@@@D@@@6 TAB(22),'MSAM INFORMATION STATISTICS TABLE' @D@@@6 FA )@@G@@ TAB(22),'---------------------------------' @H@@@6 IST$ADR[FB )@@G@@0!D8],TAB(10),' = TOTAL NUMBER OF RECORDS WRITTEN WHEN',; @^@@@6 FC )@@G@@ 'FILE CREATED'@H@@@6 IST$ADR[1!D8],TAB(10),' = TOTAL NUMBERFD )@@G@@ OF RECORDS CURRENTLY IN',; @#@@@6 'FILE' @G@@@6 ISFE )@@G@@T$ADR[2!D8],TAB(10),' = TOTAL NUMBER OF RECORDS WRITTEN' @F@@@6 FF )@@G@@ IST$ADR[3!D8],TAB(10),' = TOTAL NUMBER OF RECORDS READ' @G@@@6 FG )@@G@@ IST$ADR[4!D8],TAB(10),' = TOTAL NUMBER OF RECORDS DELETED' @G@@@6FH )@@G@@ IST$ADR[5!D8],TAB(10),' = TOTAL NUMBER OF RECORDS MODIFIED' FI )@@G@@@A@@@6 GO SCREEN$SIZE=0\MAIN$654 @A@@@6 LINE$COUNT:=LIFJ )@@G@@NE$COUNT+8 @C@@@6 GO SCREEN$SIZE>LINE$COUNT\MAIN$654 @ @@@6FK )@@G@@ JUMP$$SW:=MAIN$653 @^@@@6 GO NEWPAGE @]@@@6MAIN$6FL )@@G@@53: @#@@@6 ' ' @]@@@6MAIN$654: @G@@@6 IST$ADR[FM )@@G@@6!D8],TAB(10),' = TOTAL NUMBER OF START REQUESTS' @F@@@6 ISFN )@@G@@T$ADR[7!D8],TAB(10),' = TOTAL NUMBER OF KEYS MODIFIED'@G@@@6 ISFO )@@G@@T$ADR[8!D8],TAB(10),' = TOTAL NUMBER OF INVALID KEY EXITS' @G@@@6 FP )@@G@@ IST$ADR[9!D8],TAB(10),' = TOTAL NUMBER OF DATA BLOCKS IN FILE'@H@@@6FQ )@@G@@ IST$ADR[10!D8],TAB(10),' = TOTAL NUMBER OF INDEX BLOCKS IN FILFR )@@G@@E' @H@@@6 IST$ADR[11!D8],TAB(10),' = TOTAL NUMBER OF TIMES FFS )@@G@@ILE HAS BEEN',; @#@@@6 'CLOSED'@G@7@6 IST$ADR[12!D8]FT )@@G@@,TAB(10),' = NUMBER OF RECORDS WRITTEN DURING'; @G@@@7 IST$ADR[FU )@@G@@12!D8],TAB(10),' = NUMBER OF RECORDS WRITTEN DURING',;@^@@@6 'CFV )@@G@@URRENT RUN' @G@@@6 IST$ADR[13!D8],TAB(10),' = NUMBER OF RECORDSFW )@@G@@ READ DURING',; @^@@@6 'CURRENT RUN' @A@@@6 GO SCREEFX )@@G@@N$SIZE=0\MAIN$656 @A@@@6 LINE$COUNT:=LINE$COUNT+8 @C@@@6 FY )@@G@@ GO SCREEN$SIZE>LINE$COUNT+3\MAIN$656 @ @@@6 JUMP$$SW:=MAINFZ )@@G@@$655 @^@@@6 GO NEWPAGE @]@@@6MAIN$655: @#@@@6 ' GA )@@G@@' @]@@@6MAIN$656: @G@@@6 IST$ADR[14!D8],TAB(10),' = NUMBEGB )@@G@@R OF RECORDS DELETED DURING',;@^@@@6 'CURRENT RUN' @H@@@6 GC )@@G@@ IST$ADR[15!D8],TAB(10),' = NUMBER OF RECORDS MODIFIED DURING',; GD )@@G@@@^@@@6 'CURRENT RUN' @G@@@6 IST$ADR[16!D8],TAB(10),' =GE )@@G@@ NUMBER OF START REQUESTS DURING',; @^@@@6 'CURRENT RUN' @G@@@6GF )@@G@@ IST$ADR[17!D8],TAB(10),' = NUMBER OF KEYS MODIFIED DURING',; GG )@@G@@@^@@@6 'CURRENT RUN' @H@@@6 IST$ADR[18!D8],TAB(10),' =GH )@@G@@ NUMBER OF INVALID KEY EXITS DURING',; @^@@@6 'CURRENT RUN' GI )@@G@@@H@@@6 IST$ADR[19!D8],TAB(10),' = NUMBER OF NEW DATA BLOCKS CREGJ )@@G@@ATED',; @ @@@6 'DURING CURRENT RUN'@H@@@6 IST$ADR[GK )@@G@@20!D8],TAB(10),' = NUMBER OF NEW INDEX BLOCKS CREATED',; @ @@@6 GL )@@G@@ 'DURING CURRENT RUN'@H@@@6 IST$ADR[21!D8],TAB(10),' = NUMBEGM )@@G@@R OF BLOCKS READ DURING CURRENT',; @#@@@6 'RUN' @G@@@6 GN )@@G@@ IST$ADR[22!D8],TAB(10),' = NUMBER OF BLOCKS WRITTEN DURING',; @^@@@6GO )@@G@@ 'CURRENT RUN' @A@@@6 GO BCB$ADR[0,,S6]=0\DONE @A@@@6GP )@@G@@ GO SCREEN$SIZE=0\MAIN$700 @A@@@6 LINE$COUNT:=LINE$COUGQ )@@G@@NT+9 @C@@@6 GO SCREEN$SIZE>LINE$COUNT+13\MAIN$700 @ @@@6 GR )@@G@@ JUMP$$SW:=MAIN$700 @^@@@6 GO NEWPAGE @]@@@6MAIN$700: GS )@@G@@@D@@@6. PRINT ALL THE MSAM FILE BUFFERS IF BUFFER$SW = 1 @#@@@6 GT )@@G@@ ' ' @D@@@6 MSAM$BUF$ST:=BCB$ADR[2+((BL$-1)*4),,H1] GU )@@G@@@D@@@6 MSAM$BUF$END:=BCB$ADR[2+((BL$-1)*4),,H2] @C@@@6 GV )@@G@@ MSAM$BUF$SIZ:=MSAM$BUF$END-MSAM$BUF$ST@C@@@6 GO MSAM$BUF$STGW )@@G@@[,,H1]=0777\MAIN$800 @]@@@6MAIN$750: @A@@@6 LINE$COUNT:=LIGX )@@G@@NE$COUNT+3 @G@@@6 'BUFFER',BL$,' START ADDRESS:',BCB$ADR[2+((BGY )@@G@@L$-1)*4),,H1!O6],;@E@@@6 ' END ADDRESS:',BCB$ADR[2+((BL$-1)GZ )@@G@@*4),,H2!O6] @E@@@6 TAB(12),'TYPE: INDEX,',MSAM$BUF$ST[,,Q2!O2],HA )@@G@@; @C@@@6 ' LEVEL:',MSAM$BUF$ST[,,Q1!O2] @B@@@6 HB )@@G@@ GO MSAM$BUF$ST[]=0\MAIN$900 @D@@@6 GO (FILE$STATUS=0)++HC )@@G@@(FILE$STATUS=5)\MAIN$900@A@@@6 GO BUFFER$SW=0\MAIN$900 @#@@@6HD )@@G@@ AD$RESET@^@@@6 GO MAIN$752 @]@@@6MAIN$751: @^@@@6HE )@@G@@ AD$RESET(1) @]@@@6MAIN$752: @C@@@6 AD$DUMP(MSAM$BHF )@@G@@UF$ST,MSAM$BUF$SIZ,1,1) @ @@@6 JUMP$$SW:=MAIN$751 @^@@@6 HG )@@G@@ GO MAIN$900 @]@@@6MAIN$800: @A@@@6 LINE$COUNT:=LINE$COUHH )@@G@@NT+3 @G@@@6 'BUFFER',BL$,' START ADDRESS:',BCB$ADR[2+((BL$-1)*HI )@@G@@4),,H1!O6],;@E@@@6 ' END ADDRESS:',BCB$ADR[2+((BL$-1)*4),,HHJ )@@G@@2!O6] @ @@@6 TAB(12),'TYPE: DATA'@A@@@6 GO BUFFER$SW=0HK )@@G@@\MAIN$900 @]@@@6MAIN$820: @ @@@6 JUMP$$SW:=MAIN$822 @#@@@6HL )@@G@@ AD$RESET@^@@@6 GO MAIN$824 @]@@@6MAIN$822: @^@@@6HM )@@G@@ AD$RESET(1) @]@@@6MAIN$824: @A@@@6 GO ASCII$OFF$SHN )@@G@@W\MAIN$840 @C@@@6 AD$DUMP(MSAM$BUF$ST,MSAM$BUF$SIZ,2,1) @]@@@6HO )@@G@@MAIN$840: @A@@@6 GO FLDTA$ON$SW=0\MAIN$900 @C@@@6 ADHP )@@G@@$DUMP(MSAM$BUF$ST,MSAM$BUF$SIZ,3,1) @]@@@6MAIN$900: @A@@@6 GOHQ )@@G@@ SCREEN$SIZE=0\MAIN$910 @C@@@6 GO SCREEN$SIZE>LINE$COUNT\MAIN$9HR )@@G@@10 @#@@@6 GO EXIT @]@@@6MAIN$910: @^@@@6 BL$:=BL$HS )@@G@@+1 @A@@@6 GO BL$>BCB$ADR[0,,S6]\DONE@A@@@6 GO SCREEHT )@@G@@N$SIZE=0\MAIN$700 @F@@@6 GO (SCREEN$SIZE>LINE$COUNT)**(BUFFER$SHU )@@G@@W=0)\MAIN$700 @ @@@6 JUMP$$SW:=MAIN$700 @^@@@6 GOHV )@@G@@ NEWPAGE @[@@@6DONE: % @@@@-511 SORT INFO @C@@[' HW )@@G@@ GO FCB$ADR[0,,H1]=/0350605\NO$SORT @A@@[' GO FILE$STATUSHX )@@G@@=0\NO$SORT @B@@[' GO SCREEN$SIZE=0\BATCH$SORT @C@@[' HY )@@G@@ GO SCREEN$SIZE>LINECOUNT+5\BATCH$SORT @ @@[' JUMP$$SW:=BATCHZ )@@G@@H$SORT@^@@[' GO NEWPAGE @]@@['BATCH$SORT: @#@@[' ' IA )@@G@@' @ @@[' 'SORT INFORMATION' @E@@[' ' SORT RECORD IB )@@G@@SIZE IN WORDS:',C$M30A[0315][0153!D]@G@@[' ' CORE START AND ENDIC )@@G@@ ADDRESSES:',C$M30A[0315][0154,,H1],'/',; @A@@[' C$M30A[0315][0ID )@@G@@154,,H2] @G@@[' ' INPUT AND OUTPUT ITEM COUNTS:',C$M30A[0315IE )@@G@@][0176!D],'/',; @ @@[' C$M30A[0315][0216!D]@]@@['NO$SORT: IF )@@G@@@A@@@6. DEMAND MODE SCREEN PAGING ROUTINE @^@@@6 JUMP$$SW:=0 IG )@@G@@@^@@@6 INIT$SW[]:=0 @]@@@6NEWPAGE: @ @@@6 GO INIT$IH )@@G@@SW[]=0\EXIT @#@@@6 ' ' @F@@@6 'OUTPUT STILL AVAILAII )@@G@@BLE, PRESS TRANSMIT TO CONTINUE,' @B@@@6 'OR USE AD$RESET FUNIJ )@@G@@CTION.' @[@@@6EXIT: @[@@@6END _@@@@@@E@@@6 ' END ADDRIK )@@G@@ESS:',BCB$ADR[2+((BL$-1)*4),,H2!O6] @E@@@6 TAB(12),'TYPE: INDEXIL )@@G@@,',MSAM$BUF$ST[,,Q2!O2],; @C@@@6 ' *[S@@@*SDFF*@B@@@]FUNCT IM )@@G@@AD$FIND$STOP(STOP$ADR,STOP$BDI) @^@^@] GO ENDDOC @E@@@^IN )@@G@@ GO ENDDOC . BYPASS DOCUMENTATION@]@^@] IO )@@G@@ . @]@^@] . @H@^@] 'THIS AD FUNCTION LOCATES WHERE IP )@@G@@THE PROGRAM STOPPED USING THE LCT.' @I@@@^ 'THIS ACDP FUNCTION IQ )@@G@@LOCATES WHERE THE PROGRAM STOPPED USING THE LCT.' @H@@@] 'AIR )@@G@@D$FIND$STOP SEARCHES THRU THE LCT TO FIND THE ELEMENT THE PROGRAM'@G@@@]IS )@@G@@ 'STOPPED IN, THEN VALIDATES THE BDI PROVIDED OR THE BDIS FROM'IT )@@G@@@F@@@] 'GRS LOCATIONS 046 AND 047 TO MAKE SURE THEY MATCH.' IU )@@G@@@G@@@# 'THIS IS AN INTERNALLY USED AD$ FUNCTION AND SHOULD NOT IV )@@G@@BE' @B@@@# 'CALLED DIRECTLY BY THE USER.' @]@^@] . IW )@@G@@@]@^@] . @]@^@]ENDDOC: @E@@@^ENDDOC: IX )@@G@@ . END OF DOCUMENTATION@A@@@]. *****DEFINE LOCAL VARIABLES***** IY )@@G@@@^@@@] LOCAL BDI @A@@@] STOP$ELEMENT[:2]:=' 'IZ )@@G@@@^@@@] LCT$IX:=0 @]@@@]MAIN$1: @^@@@#. ** MAIN ROUTINE JA )@@G@@** @B@@@] GO LCT$IX>HDR[026,,H1]\EXIT @B@@@] LCJB )@@G@@$START$ADR:=LCT[LCT$IX+2,,H2] %D@@@@-18,18- CORRECT RELOCATAJC )@@G@@BLE END ADDRESS @D@ @] LC$END$ADR:=LCT[LCT$IX+2,,H1]+LC$STARTJD )@@G@@$ADR @D@@@ LC$END$ADR:=LCT[LCT$IX+2,,H1]+LC$START$ADR-1%@@@@[JE )@@G@@@F@@@] GO(STOP$ADRLC$END$ADR)\MAIN$4 JF )@@G@@@B@@@] BDI:=LCT[LCT$IX+1,,H2]**07777 %C@@@@-20 JG )@@G@@ FOR ADDRESS IN USER BANK @A@A@ GO STOP$BDI=07777\MAIN$3 JH )@@G@@@ @@@] GO STOP$BDI=0\MAIN$2@A@@@] GO STOP$BDI=BDI\MAINJI )@@G@@$3 @^@@@] GO MAIN$4 @]@@@]MAIN$2: @F@@@] GOJJ )@@G@@ (BDI=046[,,H1]**07777)++(BDI=046[,,H2]**07777)++ ; %A@@@@-26,26- JK )@@G@@ UNKNOWN LABEL @G@ @] (BDI=047[,,H1]**07777)++(BDI=047JL )@@G@@[,,H2]**07777)\$+1,MAIN$5 @G@@@ (BDI=047[,,H1]**07777)++(BJM )@@G@@DI=047[,,H2]**07777)\$+1,MAIN$4 %@@@@[@]@@@]MAIN$3: @D@@@] JN )@@G@@ STOP$ELEMENT[:2]:=ENT[(LCT[LCT$IX,,H2]):2] @#@@@] GO EXIT JO )@@G@@@]@@@]MAIN$4: @ @@@] LCT$IX:=LCT$IX+3 @^@@@] GOJP )@@G@@ MAIN$1 @[@@@]EXIT: @[@@@]END _@@@@@ -CALX K%A@7A87A8)%C@@@@-20 JQ )@@G@@*[S@@@*SDFF*@B@@@ZFUNCT AD$INIT(NBR$OF$LINES,LOADPMD$SW) @E@@@Z JR )@@G@@ GO ENDDOC . BYPASS DOCUMENTATION@G@@@Z 'TJS )@@G@@HE AD$INIT FUNCTION LOADS THE DUMP FROM THE DIAG$ FILE,' @H@@@Z JT )@@G@@ 'INITIALIZES GLOBAL VARIABLES TO LOCATE INFORMATION WITHIN THE' JU )@@G@@@G@@@Z 'DUMP, SETS QUARTER WORD MODE ON, AND SETS LINE SIZE AT JV )@@G@@80' @G@@@Z 'OR 132 CHACACTERS. THE FOLLOWING GLOBAL VARIABLEJW )@@G@@S WILL' @A@@@Z 'BE SET UP FOR YOUR USE:' @#@@@Z ' JX )@@G@@' @G@@@Z 'LC$00 - ADDRESS OF MAIN PROGRAM WORKING-SJY )@@G@@TORAGE' @E@@@Z 'LC$01 - ADDRESS OF MAIN PROGRAM IBAJZ )@@G@@NK' @D@@@Z 'LC$02 - ADDRESS OF COMMON STORAGE' @F@@@ZKA )@@G@@ 'LC$04 - ADDRESS OF MAIN PROGRAM LITERAL POOL' @F@@@ZKB )@@G@@ 'FCB$LIST - ADDRESS OF MAIN PROGRAM FCB LIST $(06)'@H@@@ZKC )@@G@@ 'PARAM$LIST - ADDRESS OF MAIN PROGRAM OBJECT MODULE PARAMETKD )@@G@@ER' @B@@@Z ' LIST $(08)' @E@@@Z 'SKE )@@G@@AR$ADR - ADDRESS OF SAVED AREA RECORD' @F@@@Z 'CTA$ADRKF )@@G@@ - ADDRESS OF MAIN PROGRAM CTA TABLE' @G@@@Z 'CURR$CTKG )@@G@@A - ADDRESS OF CTA FOR LAST SUBPROGRAM EXECUTING'@F@@@Z 'FKH )@@G@@ILDIR$ADR - ADDRESS OF MAIN PROGRAM FILDIR TABLE' @H@@@Z 'CKI )@@G@@URR$FILDIR - ADDRESS OF FILDIR FOR LAST SUBPROGRAM EXECUTING' @G@@@ZKJ )@@G@@ 'C$S$ADR - ADDRESS OF PROGRAM STOP IN USER PROGRAM' KK )@@G@@@D@@@Z ' FOR C$S LIBRARY ROUTINES.' @G@@@Z KL )@@G@@ 'C$D$ADR - ADDRESS OF PROGRAM STOP IN USER PROGRAM' @D@@@ZKM )@@G@@ ' FOR C$D LIBRARY ROUTINES.' @#@@@Z ' KN )@@G@@' @E@@@ZENDDOC: . END OF DOCUMENTATIONKO )@@G@@@ @@@Z. **DEFINE LOCAL VARIABLES** @ @@@Z LOCAL INIT$SW(1) KP )@@G@@@ @)@Z LOCAL SCR$AREA(07) @ @@@) LOCAL SCR$AREA(077) KQ )@@G@@@ @@@Z LOCAL AD$INIT$SW(1) @A@@@Z LOCAL SUBPROGNAME$(0KR )@@G@@200) @F@@@Z LOCAL SPT$ADR$(0100),CTA$ADR$(0100),FILDIR$ADR$(01KS )@@G@@00) @H@@@Z LOCAL LC$00$(0100),LC$01$(0100),FCB$LIST$(0100),PAKT )@@G@@RAM$LIST$(0100) @ @@@Z LOCAL LC$04$(0100) @F@@@Z LOKU )@@G@@CAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADR$(0100) @ @@@Z LOKV )@@G@@CAL COND$WORD(1) @A@@@Z SUBPROGNAME$[:0100]:=0 @A@@@Z KW )@@G@@ SUBPROGNAME$[0100:0100]:=0@ @@@Z FILE$NAME$[:0100]:=0@A@@@ZKX )@@G@@ FILE$NAME$[0100:0100]:=0 @^@@@Z INIT$SW[]:=0 @^@@@ZKY )@@G@@ LINE$COUNT:=0 @A@@@Z GO LOADPMD$SW>0\INIT$ @A@@@ZKZ )@@G@@ GO AD$INIT$SW[]=/1\INIT$ @#@@@Z GO MAIN$@[@@@ZINIT$:LA )@@G@@@ @@@Z. **INITIALIZATION ROUTINE** @ @@@Z AD$INIT$SW[]:=1 LB )@@G@@@#@@@Z LOADPMD @[@@@ZMAIN$:@#@@@Z. **MAIN ROUTINE**@D@@@Z. INITLC )@@G@@IALIZE FLIT DEFINED VARIABLES AND SCREEN SIZE. @^@@@Z LINSIZ:=LD )@@G@@132 @^@@@Z FNTQWM:=1 @^@@@Z BUFFER$SW:=0 @^@@@ZLE )@@G@@ FLDTA$ON$SW:=0@ @@@Z ASCII$OFF$SW:=0 @^@@@Z LF )@@G@@ LINES$OUT:=0 @A@@@Z SCREEN$SIZE:=NBR$OF$LINES @E@@@Z. GET LG )@@G@@CONDITION WORD OUTA THE PROGRAM CONTROL TABLE (PCT). @A@@@Z PCLH )@@G@@T$BAS:=BANKBASE(PCT$BDI)@A@@@Z PCT$ADR:=PCT$BAS+0777000 @A@@@ZLI )@@G@@ COND$WORD[]:=PCT$ADR[*020]@D@@@Z. INITIALIZE INFORMATION FROM LJ )@@G@@SAVED AREA RECORD (SAR).@ @@@Z SAR$ADR:=C$S300+034 @A@@@Z LK )@@G@@ C$D$ADR:=SAR$ADR[0121,,H2]%B@@@@-67,67- ADJUST C$S ADDRELL )@@G@@SS @A@+@Z C$S$ADR:=SAR$ADR[0170,,H2]@A@@@+ C$S$ADR:LM )@@G@@=SAR$ADR[0173,,H2]%@@@@[@A@@@Z C$D$BDI:=SAR$ADR[0121,,H1]%B@@@@LN )@@G@@-69,69- ADJUST C$S ADDRESS @A@+@Z C$S$BDI:=SAR$ALO )@@G@@DR[0170,,H1]@A@@@+ C$S$BDI:=SAR$ADR[0173,,H1]%@@@@[@A@@@Z LP )@@G@@ CTA$ADR:=SAR$ADR[03,,H1] @B@@@Z FILDIR$ADR:=SAR$ADR[04,,H1LQ )@@G@@] @ @@@Z CURR$CTA:=CTA$ADR @A@@@Z CURR$FILDIR:=FLR )@@G@@ILDIR$ADR @B@@@Z SUBPROG$SW:=SAR$ADR[0137,,H2] % @@@@-74 LS )@@G@@ FMS8 INFO @ @<@+ FMS$ADR:=HOLD$$X11 @ @<@+ LT )@@G@@ GO FMS$ADR=0\MAIN$1 @A@<@+ FMS$ADR:=HOLD$$X11[0,,H2] @]@@@ZLU )@@G@@MAIN$1: @E@@@Z. DETERMINE THE CORRECT CTA ADDR FOR THE MAIN PROGRAM LV )@@G@@BY @A@@@Z. SNAKE-ING THRU THE CTA TABLES. @A@@@Z GO CTA$ALW )@@G@@DR[0,,H2]=0\MAIN$2@A@@@Z CTA$ADR:=CTA$ADR[0,,H2] @^@@@Z LX )@@G@@ GO MAIN$1 @]@@@ZMAIN$2: @E@@@Z. DETERMINE THE CORRECT FILDIRLY )@@G@@ ADDR FOR THE MAIN PROGRAM BY @A@@@Z. SNAKE-ING THRU THE FILDIR TABLES. LZ )@@G@@@B@@@Z GO FILDIR$ADR[1,,H2]=0\MAIN$3 @B@@@Z FILDIR$AMA )@@G@@DR:=FILDIR$ADR[0,,H2] @^@@@Z GO MAIN$2 @]@@@ZMAIN$3: MB )@@G@@@F@@@Z. INITIALIZE INFORMATION FROM CTA OF MAIN PROGRAM. THIS CTA ADDR MC )@@G@@@C@@@Z. WAS OBTAINED BY THE PREVIOUS SNAKE ROUTINE. @A@@@Z LCMD )@@G@@$00:=CTA$ADR[05,,H1] @B@@@Z LC$01$BDI:=CTA$ADR[010,,H1] ME )@@G@@@A@@@Z LC$01:=CTA$ADR[010,,H2] @A@@@Z LC$02:=CTA$ADRMF )@@G@@[05,,H2] @A@@@Z LC$04:=CTA$ADR[06,,H1] @A@@@Z FCMG )@@G@@B$LIST:=CTA$ADR[06,,H2] @B@@@Z PARAM$LIST:=CTA$ADR[07,,H1] MH )@@G@@@#@@@Z INDX1:=0@D@@@Z. SKIP NEXT ROUTINE IF NO COMMON STORAGE AMI )@@G@@LLOCATED @ @@@Z GO LC$02=0\MAIN$6 @]@@@ZMAIN$4: @E@@@ZMJ )@@G@@. ROUTINE TO TRAVEL THRU THE LOCATION COUNTER TABLE (LCT) @E@@@Z. TO CMK )@@G@@ALCULATE THE SIZE OF COMMON STORAGE (LC$02). ALTHOUGH @E@@@Z. COMMON STOML )@@G@@RAGE IS NOT REALLY LC$02, SINCE IT IS NOT IN @F@@@Z. THE LCT. BUT WE MM )@@G@@WILL PRETEND IT IS JUST FOR THE NONSENSE OF IT. @^@@@Z INDX1:=IMN )@@G@@NDX1+1@B@@@Z GO INDX1*3>HDR[026,,H1]\MAIN$5 @C@@@Z GOMO )@@G@@ LC$02=/LCT[3*INDX1+2,,H2]\MAIN$4 @C@@@Z LC$02$SIZE:=LCT[3*INMP )@@G@@DX1+5,,H2]-LC$02 @^@@@Z GO MAIN$6 @]@@@ZMAIN$5: @G@@@ZMQ )@@G@@ 'ERROR IN CALCULATING SIZE OF BLANK$COMMON, SIZE SET TO 64!!!'MR )@@G@@@ @@@Z LC$02$SIZE:=0100 @]@@@ZMAIN$6: @E@@@Z. ROUTINE TOMS )@@G@@ BUILD LOCAL ARRRAYS TO BE REFERENCED BY OTHER @E@@@Z. FUNCTIONS THAT CMT )@@G@@ONTAIN INFORMATION UNIQUE TO A SPECIFIC @D@@@Z. USER MAIN PROGRAM OR SMU )@@G@@UBPROGRAM CONTAINED WITHIN THE@^@@@Z. ABSOLUTE ELEMENT. @E@@@Z. INFOMV )@@G@@RMATION FOR UP TO 64 SEPARATELY COMPILED PROGRAMS @A@@@Z. WILL BE STMW )@@G@@ORED AWAY FOR LATER USE.@[@@@Z. @C@@@Z. PUT INFORMATION FROM MAIN PRMX )@@G@@OGRAM IN SLOT 0. @ @@@Z CTA$ADR$[]:=CTA$ADR @A@@@Z FIMY )@@G@@LDIR$ADR$[]:=FILDIR$ADR @ @@@Z LC$00$[]:=LC$00 @ @@@Z MZ )@@G@@ LC$04$[]:=LC$04 @F@@@Z LC$01$[]:=CTA$ADR[010] . LOADS BNA )@@G@@OTH BDI AND BASE ADDRESS@A@@@Z FCB$LIST$[]:=FCB$LIST @A@@@ZNB )@@G@@ PARAM$LIST$[]:=PARAM$LIST @^@@@Z SPT$ADR$[]:=0 @E@@@ZNC )@@G@@. NOW CHECK TO SEE IF THERE ARE ANY SUBPROGRAMS. IF THERE @D@@@Z. ARE ND )@@G@@ANY, THIS ROUTINE WILL SNAKE THRU THE SPT TABLES@E@@@Z. FOR ALL SUBPROGRNE )@@G@@AMS INITIALIZED, AND FIND A PLACE FOR THE @E@@@Z. THE SUBPROGRAM INFORMANF )@@G@@TION TO LIVE IN OUR ARRAY COMPLEX. @#@@@Z INDX1:=1@A@-@Z NG )@@G@@ GO SUBPROG$SW=0\MAIN$10 @A@@@- GO SUBPROG$SW=0\MAIN$9 NH )@@G@@@A@@@Z SPT$ADR:=SUBPROG$SW[7,,H2]@]@@@ZMAIN$7: @A@@@Z NI )@@G@@ SPT$ADR$[INDX1]:=SPT$ADR @C@@@Z SUBPROGNAME$[INDX1*2:2]:=SNJ )@@G@@PT$ADR[:2] @B@@@Z CTA$ADR$[INDX1]:=SPT$ADR[2,,H2] @C@@@Z NK )@@G@@ FILDIR$ADR$[INDX1]:=SPT$ADR[3,,H2] @C@@@Z LC$00$[INDX1]:NL )@@G@@=SPT$ADR[2,,H2][5,,H1] @H@@@Z LC$01$[INDX1]:=SPT$ADR[2,,H2][01NM )@@G@@0] . LOADS BOTH BDI AND BASE ADDR @C@@@Z LC$04$[INDX1]:=SPT$ANN )@@G@@DR[2,,H2][6,,H1] @D@@@Z FCB$LIST$[INDX1]:=SPT$ADR[2,,H2][06,,HNO )@@G@@2] @D@@@Z PARAM$LIST$[INDX1]:=SPT$ADR[2,,H2][07,,H1] @#@@@ZNP )@@G@@. DO THE SNAKE @A@@@Z SPT$ADR:=SPT$ADR[6,,H2] @^@@@Z NQ )@@G@@ INDX1:=INDX1+1@A@@@Z GO INDX1>077\$+1,MAIN$8 @C@@@Z NR )@@G@@ 'ERROR!!! PROGRAM TABLE OVERFLOW!!!' @^@@@Z GO MAIN$10 NS )@@G@@@]@@@ZMAIN$8: @ @@@Z GO SPT$ADR=/0\MAIN$7@E@@@Z. THIS ROUTINT )@@G@@NE WILL UTILIZE THE LOCAL ARRAYS JUST BUILT TO @E@@@Z. BUILD ANOTHER SENU )@@G@@T FOR ALL THE FILES DEFINED WITHIN THE @F@@@Z. ABSOLUTE PROGRAM. THISNV )@@G@@ IS DONE BY REFERENCING THE FCB$LIST$ @D@@@Z. ARRAY TO DETERMINE ALLNW )@@G@@ FILES FOR ALL PROGRAM UNITS. @ @@@Z. DUPLICATES WILL BE DROPPED. @]@@@-NX )@@G@@MAIN$9: @ @@@Z MAX$PROG$IX:=INDX1-1@#@@@Z INDX1:=0NY )@@G@@@^@@@Z MAX$FILE$IX:=0@]@@@ZMAIN$10: @A@@@Z GO INDX1NZ )@@G@@>MAX$PROG$IX\EXIT @C@@@Z NBR$OF$FCBS:=FCB$LIST$[INDX1][0,,S6] OA )@@G@@@#@@@Z INDX2:=1@]@@@ZMAIN$11: @#@@@Z INDX3:=0@B@@@ZOB )@@G@@ GO INDX2>NBR$OF$FCBS\MAIN$15 @A@@@Z GO NBR$OF$FCBSOC )@@G@@=0\MAIN$15 @D@@@Z FCBADDRESS:=FCB$LIST$[INDX1][INDX2,,H2] OD )@@G@@@]@@@ZMAIN$12: @E@@@Z GO FCBADDRESS[:2]=FILE$NAME$[INDX3*2:2OE )@@G@@]\MAIN$14 @C@@@Z GO FILE$NAME$[INDX3*2]=0\$+1,MAIN$13 @C@@@ZOF )@@G@@ FILE$NAME$[INDX3*2:2]:=FCBADDRESS[:2] @B@@@Z FCB$ADR$OG )@@G@@[INDX3]:=FCBADDRESS @E@@@Z REC$ADR$[INDX3]:=FILDIR$ADR$[INDOH )@@G@@X1][2*INDX2,,H1] @B@@@Z GO INDX3OP )@@G@@@F@@[!@B@@[8@M@@[_@O@@]L@V@@]>@L@@#@@P@@#L@E@@#&@D@@#0@ @@#9@"@@#"@Y@@^/OQ )@@G@@@ @@ U@F@@ Z@#@@ %@]@@ !^-[C-M@D@@@+E-TE@0A*'^@)@@@@@@#[#@@@ENDDOC OR )@@G@@[@X@@@@@@@@@H@]@[#THIS ACDP FUNCTION LOCATES WHERE THE PROGRAM STOPPED UOS )@@G@@SING THE LCT..@@@@[@W@@@@@@@@@G@]@[]AD$FIND$STOP SEARCHES THRU THE LCT TOT )@@G@@O FIND THE ELEMENT THE PROGRAM[@W@@@@@@@@@F@]@@/STOPPED IN, THEN VALIDATOU )@@G@@ES THE BDI PROVIDED OR THE BDIS FROM[@W@@@@@@@@@E@]@@2GRS LOCATIONS 046 OV )@@G@@AND 047 TO MAKE SURE THEY MATCH. BDI[@W@@@@@@@@@F@]@@9THIS IS AN INTERNAOW )@@G@@LLY USED AD$ FUNCTION AND SHOULD NOT BEROM[@W@@@@@@@@@A@]@@WCALLED DIRECOX )@@G@@TLY BY THE USER.D$[@W@@@@@@@@@#[#@@@STOP$ELEMENT^@[CD'[@@@@@_@@@@@@@@CC+OY )@@G@@]@]@@A [@V@@@@@@@@@#[P@@@LCT$IX ]@[@@@@@@@@@[@0@@@@@@@@@#[#@@@OZ )@@G@@LCT$IX #[#@@@HDR ^@[CD'@C@@@Q@/@J__@@@CC>[@Y@@@[@D@@@[@Q@@^PA )@@G@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@LC$START$ADR#[#@@@LCT ^@[CD'PB )@@G@@@^@@@@@/@@@@@@@CC?#[#@@@LCT$IX ]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@[@0@@@PC )@@G@@@@@@@@#[P@@@LC$END$ADR #[#@@@LCT ^@[CD'@C@@@@@/@@@@@@@CC?#[#@@@PD )@@G@@LCT$IX ]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@#[#@@@LC$START$ADR[@^@@@]@[@@@PE )@@G@@@@@@@[[@ @@@[@0@@@@@@@@@[[#__;#[#@@@LC$START$ADR[@E@@@[[#__;#[#@@@LC$ENDPF )@@G@@$ADR [@D@@@[@K@@@[@Q@@^#[#@@@MAIN$4 [@X@@@@@@@@@[[#__\#[#@@@LCT PG )@@G@@ ^@[CD'@^@@@@@/@@@@@@@CC%#[#@@@LCT$IX ]@[@@@@@@@@[[@^@@@[@N@@@PH )@@G@@[@Y@@@]@[@@@@@@@__[@J@@@[@\@@@@@@@@@[[#__7]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@PI )@@G@@MAIN$2 [@X@@@@@@@@@[[#__7[[#__\[@F@@@[@Q@@^#[#@@@MAIN$3 [@X@@@PJ )@@G@@@@@@@@#[#@@@MAIN$4 [@X@@@@@@@@@[[#__\]@[@@@@@@@@&^@[CD'@C@@@@@/@@@@PK )@@G@@@@@CC+[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[[#__\]@[@@@@@@@@&^@[CD'@^@@@@@/@@@@PL )@@G@@@@@CC,[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[[#__\]@[@@@@@@@@$^@[CD'@C@@@@PM )@@G@@@/@@@@@@@CC;[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[[#__\]@[@@@@@@@@$^@[CD'PN )@@G@@@^@@@@@/@@@@@@@CDC[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@PO )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@MAIN$4 [@X@@@@@@@@@#[#@@@STOP$ELEMENT^@[CD'PP )@@G@@[@@@@@_@@@@@@@@CC+#[#@@@ENT ^@[CD'[@@@@@_@@@@@@@@CC6#[#@@@LCT PQ )@@G@@ ^@[CC>@^@@@@@/@@@@@@@CC4#[#@@@LCT$IX [@N@@@[@Y@@@[@N@@@[@Y@@@PR )@@G@@[@V@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@LCT$IX #[#@@@LCT$IXPS )@@G@@ ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@[[#__:[@X@@@@@@@@@[@4@@@@@@@@@^@ @@@PT )@@G@@@@@@@REXIT ^@ @@@@@@@@PMAIN$4 ^@ @@@@@@@@NMAIN$3 ^@ @@@PU )@@G@@@@@@@MMAIN$2 ^@ @@@@@@@@EMAIN$1 ^@ @@@@@@@@@BDI ^@ @@@PV )@@G@@@@@@@CENDDOC ^@ @@@@@@@@BSTOP$BDI ^@ @@@@@@@@#STOP$ADR C G@@@PW )@@G@@[D@E!S @E@@^/,0BW'@@[@N_[@@@@6C@@E!G/,0BW\@@@@N5[@@@@6C@@E!G[@@@@6C@@E!KPX )@@G@@ @E@@^/,0CUD[@@@@6C@@E!G@[@@[O@ @@[P@G@@[U@B@@[&@J@@[!@C@@[/@ @@]^@ @@]DPY )@@G@@@C@@]I@D@@]Q@ @@]Z@^@@]=@^@@]*@^@@]?@^@@]0@^@@]4@^@@]8@^@@]/@^@@#@@^@@#^PZ )@@G@@@^@@#C@M@@#G@^@@#Y@O@@#+@G@@#6@H@@^]@A@@^J@ @@^P@G@@^U@G@@^&@B@@^2@C@@^9QA )@@G@@@ @@ [@B@@ A@G@@ H@ @@ T@ @@ Y@C@@ <@^@@ :@^@@ \@^@@ 3@^@@ 7@^@@ ;@^@@ _QB )@@G@@@^@@A#@^@@AB@^@@AF@-@@AJ@^@@A0@(@@A4@G@@BX@H@@B(@A@@B6@ @@B/@F@@C[@H@@CGQC )@@G@@@E@@CT@G@@C<@B@@C\@A@@C6@ @@C/@D@@D[@]@@DE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#[#@@@ENDDOC [@X@@@@@@@@@E@]@@2THIS AQF )@@G@@CDP FUNCTION DUMPS WORKING STORAGE IN OCTAL.S,LD[@W@@@@@@@@@#[P@@@LINE$CQG )@@G@@OUNT ]@[@@@@@@@@#[@0@@@@@@@@@[[#__7^@[CCW@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@QH )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@QI )@@G@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$ [@X@@@@@@@@@#[#@@@AD$RESET QJ )@@G@@[@W@@@@@@@@@#[P@@@JUMP$SW #[#@@@MAIN$1 [@0@@@@@@@@@[[#__7^@[CCWQK )@@G@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[#@@@JUMP$SW [@X@@@@@@@@@QL )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@QM )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@QN )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@QO )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@F#[1@@@TAB E@]@@4***** QP )@@G@@WORKING STORAGE FOR MAIN PROGRAM (OCTAL) *****LD[@W@@@@@@@@@]@]@@[@@@@@ QQ )@@G@@[@W@@@@@@@@@[@2@@@#[#@@@LC$00 #[#@@@LC$04 #[#@@@LC$00 QR )@@G@@[@ @@@]@[@@@@@@@@[]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREENQS )@@G@@$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$3 [@X@@@@@@@@@#[#@@@LINE$CQT )@@G@@OUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@MAIN$2 [@X@@@@@@@@@#[P@@@QU )@@G@@JUMP$SW [[#_"3[@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[#@@@MAX$PRQV )@@G@@OG$IX ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@E@]@@3OUTPUTQW )@@G@@ STILL AVAILABLE, PRESS TRANSMIT TO CONTINUE,*LD[@W@@@@@@@@@ @]@@SOR USEQX )@@G@@ RESET FUNCTION...[@W@@@@@@@@@#[P@@@JUMP$SW #[#@@@MAIN$3 [@0@@@QY )@@G@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@INDX1 ]@[@@@@@@@@[[@0@@@QZ )@@G@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@RA )@@G@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$6 [@X@@@@@@@@@[@2@@@RB )@@G@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[RC )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[RD )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[RE )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@C#[1@@@TAB RF )@@G@@ C@]@@>***** WORKING STORAGE FOR SUBPROGRAM,T TO [[#__:^@[CCW[@0@@@RG )@@G@@_#_@@@@@@CC5#[#@@@INDX1 ]@[@@@@@@@@][@A@@@[@N@@@[@Y@@@^@]@@H(OCTALRH )@@G@@) ***** [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@[[#__V^@[CCW@@@@@@RI )@@G@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@[[#__F^@[CCW@@@@@@@@@@@@@@@@@@RJ )@@G@@#[#@@@INDX1 [@N@@@[@Y@@@[[#__V^@[CCW@@@@@@@@@@@@@@@@@@#[#@@@INDX1 RK )@@G@@ [@N@@@[@Y@@@[@ @@@]@[@@@@@@@@[]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@RL )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$7 [@X@@@RM )@@G@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@MAIN$7 RN )@@G@@[@X@@@@@@@@@#[P@@@JUMP$SW [[#_"<[@0@@@@@@@@@#[#@@@EXIT [@X@@@RO )@@G@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@RP )@@G@@#[#@@@INDX1 #[#@@@MAX$PROG$IX [@D@@@[@Q@@^#[#@@@DONE [@X@@@RQ )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@][[#_"Z[@X@@@@@@@@@E@]@@3RR )@@G@@OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINUE,*LD[@W@@@@@@@@@ @]@@SRS )@@G@@OR USE RESET FUNCTION...[@W@@@@@@@@@#[P@@@JUMP$SW [[#_"$[@0@@@@@@@@@RT )@@G@@#[#@@@EXIT [@X@@@@@@@@@[[#__7^@[CCW@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@RU )@@G@@[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@J[@0) ET ^@ @@@@@@@@"EXIT RV )@@G@@^@ @@@@@@@@.DONE ^@ @@@@@@@@6MAIN$7 ^@ @@@@@@@@&MAIN$6 RW )@@G@@^@ @@@@@@@@>MAIN$5 ^@ @@@@@@@@+MAIN$4 ^@ @@@@@@@@-MAIN$3 RX )@@G@@^@ @@@@@@@@WMAIN$2 ^@ @@@@@@@@FMAIN$1 ^@ @@@@@@@@EMAIN$ RY )@@G@@^@ @@@@@@@@BINIT$ ^[ @@@@@@@I[REC$ADR$ ^[ @@@@@@@H[FCB$ADR$ RZ )@@G@@^[ @@@@@@@F[FILE$NAME$ ^[ @@@@@@@E[LC$04$ ^[ @@@@@@@D[PARAM$LIST$ SA )@@G@@^[ @@@@@@@C[FCB$LIST$ ^[ @@@@@@@B[LC$01$ ^[ @@@@@@@A[LC$00$ SB )@@G@@^[ @@@@@@@ [FILDIR$ADR$ ^[ @@@@@@@^[CTA$ADR$ ^[ @@@@@@@#[SPT$ADR$ SC )@@G@@^[ @@@@@@@[[SUBPROGNAME$^[ @@@@@@@[@AD$INIT$SW ^[ @@@@@@@@[SCR$AREA SD )@@G@@^[ @@@@@@@@@INIT$SW ^@ @@@@@@@@#ENDDOC @[@@[O@ @@[P@G@@[U@B@@[&SE )@@G@@@J@@[!@C@@[/@ @@]^@ @@]D@C@@]I@D@@]Q@ @@]Z@^@@]=@^@@]*@^@@]?@^@@]0@^@@]4SF )@@G@@@^@@]8@^@@]/@^@@#@@^@@#^@^@@#C@M@@#G@^@@#Y@O@@#+@G@@#6@H@@^]@A@@^J@ @@^PSG )@@G@@@G@@^U@G@@^&@B@@^2@C@@^9@ @@ [@B@@ A@G@@ H@ @@ T@ @@ Y@C@@ <@^@@ :@^@@ \SH )@@G@@@^@@ 3@^@@ 7@^@@ ;@^@@ _@^@@A#@^@@AB@^@@AF@-@@AJ@^@@A0@(@@A4@G@@BX@H@@B(SI )@@G@@@A@@B6@ @@B/@F@@C[@H@@CG@E@@CT@G@@C<@B@@C\@A@@C6@ @@C/@D@@D[@]@@DE@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#[#@@@ENDDOC SL )@@G@@[@X@@@@@@@@@E@]@@2THIS ACDP FUNCTION DUMPS WORKING STORAGE IN ASCII.,***SM )@@G@@[@W@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@#[@0@@@@@@@@@[[#__7^@[CCW@@@@@@SN )@@G@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@SO )@@G@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$ [@X@@@SP )@@G@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[P@@@JUMP$SW #[#@@@MAIN$1 SQ )@@G@@[@0@@@@@@@@@[[#__7^@[CCW@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[#@@@SR )@@G@@JUMP$SW [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@SS )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@ST )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@SU )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@F#[1@@@SV )@@G@@TAB E@]@@4***** WORKING STORAGE FOR MAIN PROGRAM (ASCII) *******SW )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@#[#@@@LC$00 #[#@@@LC$04 SX )@@G@@ #[#@@@LC$00 [@ @@@]@[@@@@@@@@]]@[@@@@@@@@[#[1@@@AD$DUMP SY )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$3 SZ )@@G@@[@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@MAIN$2TA )@@G@@ [@X@@@@@@@@@#[P@@@JUMP$SW [[#_"3[@0@@@@@@@@@#[#@@@EXIT TB )@@G@@[@X@@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE TC )@@G@@[@X@@@@@@@@@E@]@@3OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINUE,***TD )@@G@@[@W@@@@@@@@@ @]@@SOR USE RESET FUNCTION...[@W@@@@@@@@@#[P@@@JUMP$SW TE )@@G@@#[#@@@MAIN$3 [@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@INDX1 TF )@@G@@ ]@[@@@@@@@@[[@0@@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@[@Q@@^TG )@@G@@#[#@@@DONE [@X@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$6TH )@@G@@ [@X@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@]@]@@[TI )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[TJ )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[TK )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@TL )@@G@@]@[@@@@@@@@C#[1@@@TAB C@]@@>***** WORKING STORAGE FOR SUBPROGRAMTM )@@G@@,T TO [[#__:^@[CCW[@0@@@_#_@@@@@@CC5#[#@@@INDX1 ]@[@@@@@@@@][@A@@@TN )@@G@@[@N@@@[@Y@@@^@]@@H(ASCII) ***** [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@TO )@@G@@[@2@@@[[#__V^@[CCW@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@[[#__FTP )@@G@@^@[CCW@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@[[#__V^@[CCW@@@@@@TQ )@@G@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@[@ @@@]@[@@@@@@@@]]@[@@@@@@@@[TR )@@G@@#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^TS )@@G@@#[#@@@MAIN$7 [@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@TT )@@G@@[@Q@@^#[#@@@MAIN$7 [@X@@@@@@@@@#[P@@@JUMP$SW [[#_"<[@0@@@@@@@@@TU )@@G@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@TV )@@G@@@@@@@[[@^@@@[@0@@@@@@@@@#[#@@@INDX1 #[#@@@MAX$PROG$IX [@D@@@[@Q@@^TW )@@G@@#[#@@@DONE [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@]TX )@@G@@[[#_"Z[@X@@@@@@@@@E@]@@3OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINTY )@@G@@UE,***[@W@@@@@@@@@ @]@@SOR USE RESET FUNCTION...[@W@@@@@@@@@#[P@@@JUMP$STZ )@@G@@W [[#_"$[@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@[[#__7^@[CCW@@@@@@UA )@@G@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@J[@AIN$4 UB )@@G@@^@ @@@@@@@@"EXIT ^@ @@@@@@@@.DONE ^@ @@@@@@@@6MAIN$7 UC )@@G@@^@ @@@@@@@@&MAIN$6 ^@ @@@@@@@@>MAIN$5 ^@ @@@@@@@@+MAIN$4 UD )@@G@@^@ @@@@@@@@-MAIN$3 ^@ @@@@@@@@WMAIN$2 ^@ @@@@@@@@FMAIN$1 UE )@@G@@^@ @@@@@@@@EMAIN$ ^@ @@@@@@@@BINIT$ ^[ @@@@@@@I[REC$ADR$ UF )@@G@@^[ @@@@@@@H[FCB$ADR$ ^[ @@@@@@@F[FILE$NAME$ ^[ @@@@@@@E[LC$04$ UG )@@G@@^[ @@@@@@@D[PARAM$LIST$ ^[ @@@@@@@C[FCB$LIST$ ^[ @@@@@@@B[LC$01$ UH )@@G@@^[ @@@@@@@A[LC$00$ ^[ @@@@@@@ [FILDIR$ADR$ ^[ @@@@@@@^[CTA$ADR$ UI )@@G@@^[ @@@@@@@#[SPT$ADR$ ^[ @@@@@@@[[SUBPROGNAME$^[ @@@@@@@[@AD$INIT$SW UJ )@@G@@^[ @@@@@@@@[SCR$AREA ^[ @@@@@@@@@INIT$SW ^@ @@@@@@@@#ENDDOC UK )@@G@@@[@@@8@ @@@9@G@@@"@B@@[E@J@@[L@ @@[)@ @@[>@D@@[%@ @@[3@C@@[8@G@@]@@^@@]GUL )@@G@@@E@@]K@^@@]U@ @@]Y@^@@]<@^@@]$@^@@]:@^@@]\@^@@]3@^@@]7@^@@];@^@@]_@^@@##UM )@@G@@@^@@#B@K@@#F@^@@#V@K@@#Z@G@@#\@H@@#;@ @@^C@D@@^H@]@@^Q@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#[#@@@ENDDOC UP )@@G@@[@X@@@@@@@@@E@]@@1THIS ACDP FUNCTION DUMPS COMMON STORAGE IN ASCII.DEX VUQ )@@G@@[@W@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@#[@0@@@@@@@@@[[#__7^@[CD'@@@@@@UR )@@G@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@US )@@G@@#[#@@@MAIN$ [@X@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@[[#__7^@[CD'UT )@@G@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[#@@@MAIN$1 [@X@@@@@@@@@UU )@@G@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@LC$02 ]@[@@@UV )@@G@@@@@@@@[@I@@@[@Q@@^#[#@@@MAIN$2 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@UW )@@G@@C@]@@>*****NO COMMON STORAGE ALLOCATED*****GE IN[@W@@@@@@@@@]@]@@[@@@@@ UX )@@G@@[@W@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[UY )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[UZ )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[VA )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@VB )@@G@@]@[@@@@@@@@O#[1@@@TAB C@]@@&*****COMMON STORAGE AREA IN ASCII***VC )@@G@@**E IN[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@#[#@@@LC$02 #[#@@@VD )@@G@@LC$02$SIZE ]@[@@@@@@@@]]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@VE )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@VF )@@G@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@VG )@@G@@#[#@@@EXIT [@X@@@@@@@@@[[#__7^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@VH )@@G@@[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@[@PT$ADR$ ^@ @@@@@@@@)EXIT VI )@@G@@^@ @@@@@@@@ZDONE ^@ @@@@@@@@JMAIN$2 ^@ @@@@@@@@EMAIN$1 VJ )@@G@@^@ @@@@@@@@DMAIN$ ^@ @@@@@@@@AINIT$ ^[ @@@@@@@@@INIT$SW VK )@@G@@^@ @@@@@@@@#ENDDOC @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@[@@@8@ @@@9@G@@@"@B@@[E@J@@[L@ @@[)@ @@[>@D@@[%@ @@[3@C@@[8@G@@]@@^@@]GVN )@@G@@@E@@]K@^@@]U@ @@]Y@^@@]<@^@@]$@^@@]:@^@@]\@^@@]3@^@@]7@^@@];@^@@]_@^@@##VO )@@G@@@^@@#B@K@@#F@^@@#V@K@@#Z@G@@#\@H@@#;@ @@^C@D@@^H@]@@^Q@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#[#@@@ENDDOC VR )@@G@@[@X@@@@@@@@@E@]@@1THIS ACDP FUNCTION DUMPS COMMON STORAGE IN OCTAL.DEX VVS )@@G@@[@W@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@#[@0@@@@@@@@@[[#__7^@[CD'@@@@@@VT )@@G@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@VU )@@G@@#[#@@@MAIN$ [@X@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@[[#__7^@[CD'VV )@@G@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[#@@@MAIN$1 [@X@@@@@@@@@VW )@@G@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@LC$02 ]@[@@@VX )@@G@@@@@@@@[@I@@@[@Q@@^#[#@@@MAIN$2 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@VY )@@G@@C@]@@>*****NO COMMON STORAGE ALLOCATED*****GE IN[@W@@@@@@@@@]@]@@[@@@@@ VZ )@@G@@[@W@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[WA )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[WB )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[WC )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@WD )@@G@@]@[@@@@@@@@O#[1@@@TAB C@]@@&*****COMMON STORAGE AREA IN OCTAL***WE )@@G@@**E IN[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@#[#@@@LC$02 #[#@@@WF )@@G@@LC$02$SIZE ]@[@@@@@@@@[]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@WG )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@WH )@@G@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@WI )@@G@@#[#@@@EXIT [@X@@@@@@@@@[[#__7^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@WJ )@@G@@[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@[@@@@@@@@@@@@^@ @@@@@@@@)EXIT WK )@@G@@^@ @@@@@@@@ZDONE ^@ @@@@@@@@JMAIN$2 ^@ @@@@@@@@EMAIN$1 WL )@@G@@^@ @@@@@@@@DMAIN$ ^@ @@@@@@@@AINIT$ ^[ @@@@@@@@@INIT$SW WM )@@G@@^@ @@@@@@@@#ENDDOC @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@[@@@8@ @@@9@G@@@"@B@@[E@J@@[L@ @@[)@ @@[>@D@@[%@ @@[3@C@@[8@G@@]@@^@@]GWP )@@G@@@E@@]K@^@@]U@ @@]Y@^@@]<@^@@]$@^@@]:@^@@]\@^@@]3@^@@]7@^@@];@^@@]_@^@@##WQ )@@G@@@^@@#B@K@@#F@^@@#V@K@@#Z@G@@#\@H@@#;@ @@^C@D@@^H@]@@^Q@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#[#@@@ENDDOC WT )@@G@@[@X@@@@@@@@@E@]@@4THIS ACDP FUNCTION DUMPS COMMON STORAGE IN FIELDATA. VWU )@@G@@[@W@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@#[@0@@@@@@@@@[[#__7^@[CD'@@@@@@WV )@@G@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@WW )@@G@@#[#@@@MAIN$ [@X@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@[[#__7^@[CD'WX )@@G@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[#@@@MAIN$1 [@X@@@@@@@@@WY )@@G@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@LC$02 ]@[@@@WZ )@@G@@@@@@@@[@I@@@[@Q@@^#[#@@@MAIN$2 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@XA )@@G@@C@]@@>*****NO COMMON STORAGE ALLOCATED*****GE IN[@W@@@@@@@@@]@]@@[@@@@@ XB )@@G@@[@W@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[XC )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[XD )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[XE )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@XF )@@G@@]@[@@@@@@@@O#[1@@@TAB C@]@@(*****COMMON STORAGE AREA IN FIELDATAXG )@@G@@*****N[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@#[#@@@LC$02 #[#@@@XH )@@G@@LC$02$SIZE ]@[@@@@@@@@#]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@XI )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@XJ )@@G@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@XK )@@G@@#[#@@@EXIT [@X@@@@@@@@@[[#__7^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@XL )@@G@@[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@[@@ @@@@@@@@#^@ @@@@@@@@)EXIT XM )@@G@@^@ @@@@@@@@ZDONE ^@ @@@@@@@@JMAIN$2 ^@ @@@@@@@@EMAIN$1 XN )@@G@@^@ @@@@@@@@DMAIN$ ^@ @@@@@@@@AINIT$ ^[ @@@@@@@@@INIT$SW XO )@@G@@^@ @@@@@@@@#ENDDOC @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XQ )@@G@@@[@@@8@ @@@9@I@@@"@B@@[G@H@@[N@B@@[)@^@@[$@?@@[:@F@@]R@F@@]+@B@@]!@H@@]4XR )@@G@@@^@@#[@^@@# @B@@#D@^@@#K@X@@#O@F@@#1@F@@#/@B@@^B@H@@^I@^@@^V@^@@^Z@A@@^[@Y@@@[@0@@@@@@@@@XY )@@G@@ @]@@RLOCATION COUNTER TABLE:D[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@XZ )@@G@@LCT ^@[CD'@@W@@@@#_@@@@@@@@@#[#@@@DEBUG$WORD [@N@@@[@Y@@@#[#@@@YA )@@G@@LCT ^@[CD'@@W@@@@#_@@@@@@@@@#[#@@@DEBUG$WORD ]@[@@@@@@@@[[@^@@@YB )@@G@@[@N@@@[@Y@@@#[#@@@LCT ^@[CD'@@W@@@@#_@@@@@@@@@#[#@@@DEBUG$WORD YC )@@G@@]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@[@W@@@@@@@@@#[P@@@DEBUG$WORD #[#@@@DEBUG$YD )@@G@@WORD ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@#[#@@@DEBUG$WORD #[#@@@DEBUG$SIZE YE )@@G@@[@E@@@[@Q@@][[#__7[@X@@@@@@@@@#[P@@@DEBUG$WORD ]@[@@@@@@@@@[@0@@@@@@@@@YF )@@G@@#[P@@@DEBUG$SIZE #[#@@@HDR ^@[CD'@^@@@R@/@J__@@@CC>[@Y@@@[@0@@@YG )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@ @]@@NELEMENT NAMEYH )@@G@@ TABLE:BLE:D[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@ENT ^@[CD'YI )@@G@@[@6@@@_#_@@@@@@CC&#[#@@@DEBUG$WORD [@N@@@[@Y@@@#[#@@@ENT ^@[CD'YJ )@@G@@@@W@@@@#_@@@@@@@@@#[#@@@DEBUG$WORD ]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@[@W@@@YK )@@G@@@@@@@@#[P@@@DEBUG$WORD #[#@@@DEBUG$WORD ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@YL )@@G@@#[#@@@DEBUG$WORD #[#@@@DEBUG$SIZE [@E@@@[@Q@@][[#__3[@X@@@@@@@@@#[P@@@YM )@@G@@DEBUG$WORD ]@[@@@@@@@@@[@0@@@@@@@@@#[P@@@DEBUG$SIZE #[#@@@HDR YN )@@G@@^@[CD'@^@@@Q@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[YO )@@G@@@@@@@ [@W@@@@@@@@@^@]@@KBANK NAME TABLE: [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@YP )@@G@@@@@@@@#[#@@@BNT ^@[CD'[@6@@@_#_@@@@@@CC&#[#@@@DEBUG$WORD [@N@@@YQ )@@G@@[@Y@@@#[#@@@BNT ^@[CD'@@W@@@@#_@@@@@@@@@#[#@@@DEBUG$WORD ]@[@@@YR )@@G@@@@@@@][@^@@@[@N@@@[@Y@@@[@W@@@@@@@@@#[P@@@DEBUG$WORD #[#@@@DEBUG$WORD YS )@@G@@]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@#[#@@@DEBUG$WORD #[#@@@DEBUG$SIZE [@E@@@YT )@@G@@[@Q@@][[#__\[@X@@@@@@@@@#[P@@@DEBUG$WORD ]@[@@@@@@@@@[@0@@@@@@@@@#[P@@@YU )@@G@@DEBUG$SIZE #[#@@@HDR ^@[CD'@C@@@R@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@YV )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@ @]@@RENTRY POINT NAME TYW )@@G@@ABLE:D[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@EPT ^@[CD'[@6@@@YX )@@G@@_#_@@@@@@CC&#[#@@@DEBUG$WORD [@N@@@[@Y@@@#[#@@@EPT ^@[CD'@@W@@@YY )@@G@@@#_@@@@@@@@@#[#@@@DEBUG$WORD ]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@[@W@@@@@@@@@YZ )@@G@@#[P@@@DEBUG$WORD #[#@@@DEBUG$WORD ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@#[#@@@ZA )@@G@@DEBUG$WORD #[#@@@DEBUG$SIZE [@E@@@[@Q@@][[#__:[@X@@@@@@@@@#[P@@@DEBUG$ZB )@@G@@WORD ]@[@@@@@@@@@[@0@@@@@@@@@#[P@@@DEBUG$SIZE #[#@@@HDR ^@[CD'ZC )@@G@@@C@@@T@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ ZD )@@G@@[@W@@@@@@@@@B@]@@)ABSOLUTE VALUE DEFINITION TABLE: LCT[@W@@@@@@@@@]@]@@[ZE )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@AVT ^@[CD'[@6@@@_#_@@@@@@CC&#[#@@@DEBUG$ZF )@@G@@WORD [@N@@@[@Y@@@#[#@@@AVT ^@[CD'@@W@@@@#_@@@@@@@@@#[#@@@DEBUG$ZG )@@G@@WORD ]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@[@W@@@@@@@@@#[P@@@DEBUG$WORD #[#@@@ZH )@@G@@DEBUG$WORD ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@#[#@@@DEBUG$WORD #[#@@@DEBUG$ZI )@@G@@SIZE [@E@@@[@Q@@][[#__$[@X@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@,EXIT ZJ )@@G@@^@ @@@@@@@@:AVT$DUMP ^@ @@@@@@@@+EPT$DUMP ^@ @@@@@@@@TBNT$DUMP ZK )@@G@@^@ @@@@@@@@KENT$DUMP ^@ @@@@@@@@BLCT$DUMP ^@ @@@@@@@@#ENDDOC ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@[@@[O@ @@[P@^@@[U@H@@[Y@G@@[:@ @@[7@A@@[/@B@@]]@B@@]D@E@@]K@D@@]U@B@@]@J@@A(@ @@A8@D@@A.@C@@BA@ @@BI@ @@BN@ @@BS@B@@BX@E@@B=@H@@B,@2@@B;ZR )@@G@@@ @@C!@ @@C2@C@@C7@D@@C_@G@@DC@G@@DO@A@@D)@ @@D&@F@@D:@#@@D6@H@@D9@B@@EAZS )@@G@@@ @@EH@A@@EM@D@@ES@G@@E-@G@@E!@C@@E9@ @@F[@F@@FA@H@@FL@E@@FY@G@@F*@^@@F4ZT )@@G@@@I@@F8@F@@GA@ @@GL@ @@GQ@D@@GV@]@@G=@ @@[-@@@@ ")O@@@@@W=@PL@ @@[<@@@@ %ZU )@@G@@@@@@@@#[#@@@ENDDOC [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@F@]@@;THE ADZV )@@G@@$FILE FUNCTION WILL PROVIDE THE FOLLOWING INFORMATIONM[@W@@@@@@@@@E@]@@6ZW )@@G@@FOR A PARTICULAR FILE OR ALL FILES WITHIN THE ABSOLUTE[@W@@@@@@@@@#@]@@CZX )@@G@@PROGRAM: [@W@@@@@@@@@^@]@@M FILE TYPE[@W@@@@@@@@@ @]@@O ZY )@@G@@ FILE STATUSE OR[@W@@@@@@@@@ @]@@O RECORD SIZEE OR[@W@@@@@@@@@ZZ )@@G@@C@]@@> PHYSICAL RECORD SIZE (BLOCK)THIN [@W@@@@@@@@@B@]@@+ AA )@@G@@ BUFFERS (IF BUFFER$SW:=1)CK[@W@@@@@@@@@ @]@@R CURRENT RECORDFAB )@@G@@[@W@@@@@@@@@E@]@@1 INFORMATION STATISTICS TABLE (MSAM ONLY)OLUTEAC )@@G@@[@W@@@@@@@@@D@]@@: OTHER ASSORTED ADDRESS INFORMATION ONLY[@W@@@AD )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@F@]@@/IF AD$FILE IS CALLED WITHOUT ANY PARAE )@@G@@AMETERS IT WILL LIST ALL[@W@@@@@@@@@G@]@@"THE FILES DEFINED WITHIN THE AAF )@@G@@BSOLUTE PROGRAM. THREE SWITCHESGRAM[@W@@@@@@@@@B@]@@+ALSO AFFECT THE OUAG )@@G@@TPUT OF AD$FILE:UT[@W@@@@@@@@@D@]@@\ BUFFER$SW:=0 . BUFFERS AH )@@G@@ARE PRINTED [@W@@@@@@@@@E@]@@3 BUFFER$SW:=1 . BUFFERS ARE NOAI )@@G@@T PRINTEDEE [@W@@@@@@@@@E@]@@3 FLDTA$ON$SW:=0 . FIELDATA IS NOAJ )@@G@@T PRINTEDEE [@W@@@@@@@@@D@]@@\ FLDTA$ON$SW:=1 . FIELDATA IS PRAK )@@G@@INTEDN[@W@@@@@@@@@D@]@@? ASCII$OFF$SW:=0 . ASCII IS PRINTEDTEDNAL )@@G@@[@W@@@@@@@@@D@]@@0 ASCII$OFF$SW:=1 . ASCII IS NOT PRINTED[@W@@@AM )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@F@]@@;THESE SWITCHES ARE ALL SET TO ZERO IAN )@@G@@N THE AD$INIT FUNCTION.H[@W@@@@@@@@@G@]@@.IF YOU DESIRE TO MODIFY ANY OFAO )@@G@@ THESE SWITCH SETTINGS, IT MUSTSGRAM[@W@@@@@@@@@D@]@@:BE DONE AFTER CALLAP )@@G@@ING THE AD$INIT FUNCTION. SETT[@W@@@@@@@@@A@]@@THOW ABOUT A FEW EXAMPLESAQ )@@G@@? AD$I[@W@@@@@@@@@D@]@@0 1. TO PRINT THE INFORMATION FOR ALL FILES:AR )@@G@@[@W@@@@@@@@@B@]@@Z AD$FILEON FO[@W@@@@@@@@@E@]@@6AS )@@G@@ 2. TO PRINT THE INFORMATION FOR FILE, ADVENTURE:[@W@@@@@@@@@E@]@@2AT )@@G@@ AD$FILE('ADVENT','URE ')URE:[@W@@@@@@@@@E@]@@1AU )@@G@@ 3. TO PRINT THE INFORMATION FOR FILE, ZORK:)URE:[@W@@@@@@@@@C@]@@(AV )@@G@@ AD$FILE('ZORK ')E[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@AW )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@AX )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@#[#@@@MAIN$ [@X@@@AY )@@G@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[P@@@JUMP$SAZ )@@G@@W #[#@@@MAIN$1 [@0@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[#@@@BA )@@G@@MAIN$1 [@X@@@@@@@@@#[#@@@JUMP$SW [@X@@@@@@@@@#[P@@@INDX1 BB )@@G@@]@[@@@@@@@@@[@0@@@@@@@@@[[#__;]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$10 BC )@@G@@[@X@@@@@@@@@#[#@@@INDX1 #[#@@@MAX$FILE$IX [@D@@@[@Q@@^#[#@@@MAIN$8BD )@@G@@ [@X@@@@@@@@@[[#__;[[#_"_^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 BE )@@G@@]@[@@@@@@@@][@A@@@[@N@@@[@Y@@@[@F@@@[[#__7]@[@@@@@@@@@[@F@@@[[#__7[[#_"_BF )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 ]@[@@@@@@@@][@A@@@]@[@@@@@@@@[BG )@@G@@[@^@@@[@N@@@[@Y@@@[@F@@@[@K@@@[@J@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@BH )@@G@@#[#@@@MAIN$7 [@X@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$5BI )@@G@@ [@X@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@[@2@@@BJ )@@G@@#[#@@@INDX1 #[1@@@AD$F$SUBRTN [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@BK )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@JUMP$$SW ]@[@@@BL )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[P@@@JUMP$SW [[#_"VBM )@@G@@[@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 BN )@@G@@ ]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@[[#_"<[@X@@@@@@@@@F@]@@'UNABLE TO FIBO )@@G@@ND FILE NAME, CHECK FILE SUMMARY IN AD$SUMMARYUS[@W@@@@@@@@@ @]@@SFUNCTIBP )@@G@@ON, AND TRY AGAIN.[@W@@@@@@@@@#[#@@@DONE [@X@@@@@@@@@#[P@@@JUMP$SBQ )@@G@@W [[#_"F[@0@@@@@@@@@[@2@@@#[#@@@INDX1 #[1@@@AD$F$SUBRTN [@W@@@BR )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$12 [@X@@@BS )@@G@@@@@@@@#[#@@@JUMP$$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$12 [@X@@@BT )@@G@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@EXIT BU )@@G@@[@X@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@[@0@@@BV )@@G@@@@@@@@#[#@@@INDX1 #[#@@@MAX$FILE$IX [@D@@@[@Q@@^#[#@@@DONE BW )@@G@@[@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@][[#_"F[@X@@@@@@@@@BX )@@G@@#[#@@@JUMP$$SW ]@[@@@@@@@@@[@I@@@[@Q@@^#[#@@@EXIT [@X@@@@@@@@@BY )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@G@]@@"IF YOU WANT YOUR NEXT FILE LISTED, PRESS TBZ )@@G@@RANSMIT TO CONTINUE.GRAM[@W@@@@@@@@@D@]@@\IF YOU WISH TO STOP, USE THE ACA )@@G@@D$RESET FUNCTION.I[@W@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[#@@@EXIT CB )@@G@@ [@X@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@@@@@@@CC )@@G@@[@4@@@@@@@@@^@ @@@@@@@J]@@N@@@[@Y@@@^@ @@@@@@@[HEXIT ^@ @@@@@@@[GCD )@@G@@DONE ^@ @@@@@@@[#MAIN$12 ^@ @@@@@@@@.MAIN$10 ^@ @@@@@@@@'CE )@@G@@MAIN$8 ^@ @@@@@@@@8MAIN$7 ^@ @@@@@@@@3MAIN$5 ^@ @@@@@@@@2CF )@@G@@MAIN$4 ^@ @@@@@@@@0MAIN$3 ^@ @@@@@@@@,MAIN$2 ^@ @@@@@@@@?CG )@@G@@MAIN$1 ^@ @@@@@@@@:MAIN$ ^@ @@@@@@@@$INIT$ ^[ @@@@@@@J[CH )@@G@@COND$WORD ^[ @@@@@@@I[REC$ADR$ ^[ @@@@@@@H[FCB$ADR$ ^[ @@@@@@@F[CI )@@G@@FILE$NAME$ ^[ @@@@@@@E[LC$04$ ^[ @@@@@@@D[PARAM$LIST$ ^[ @@@@@@@C[CJ )@@G@@FCB$LIST$ ^[ @@@@@@@B[LC$01$ ^[ @@@@@@@A[LC$00$ ^[ @@@@@@@ [CK )@@G@@FILDIR$ADR$ ^[ @@@@@@@^[CTA$ADR$ ^[ @@@@@@@#[SPT$ADR$ ^[ @@@@@@@[[CL )@@G@@SUBPROGNAME$^[ @@@@@@@[@AD$INIT$SW ^[ @@@@@@@@[SCR$AREA ^[ @@@@@@@@@CM )@@G@@INIT$SW ^@ @@@@@@@@>ENDDOC ^@ @@@@@@@@BF$NAME2 ^@ @@@@@@@@#CN )@@G@@F$NAME1 FC1A*8A@)^@)^[EE(IAK2B@1^@)^@)DLPD)2AS8AC)^@)CS)AK9A8)@)@[[[CO )@@G@@ LKEL C))A01A9D *! *! *!@[@@[O@ @@[P@H@@[U@G@@[$@H@@[3@D@@]@@^@@]D@D@@]HCP )@@G@@@J@@]Q@ @@]>@D@@]%@D@@]3@C@@]/@C@@#^@D@@#G@G@@#P@E@@#-@D@@#:@ @@#4@D@@#9CQ )@@G@@@ @@^]@E@@^B@D@@^L@ @@^U@D@@^Z@F@@^*@L@@^3@D@@ ^@B@@ H@G@@ O@P@@ )@X@@ 5CR )@@G@@@F@@AM@#@@AX@U@@A)@D@@A'@ @@B#@F@@BC@E@@BN@&@@BX@E@@C#@D@@CH@O@@CQ@B@@C%CS )@@G@@@X@@C1@L@@DI@X@@DZ@L@@D/@X@@EH@L@@E%@X@@E;@L@@FS@X@@F(@L@@GA@X@@GR@L@@G4CT )@@G@@@X@@H @L@@H+@X@@H3@L@@IK@F@@I-@J@@I?@-@@I;@E@@JW@&@@J&@D@@KG@O@@KP@O@@K(CU )@@G@@@O@@K.@J@@LL@N@@L)@H@@L3@E@@M@@F@@ME@G@@MP@C@@M-@ @@M(@D@@M,@]@@M7^[K^@)CV )@@G@@^@8B@)^@1^[EE(GAC5B@0^@)@@@@@@#[#@@@ENDDOC [@X@@@@@@@@@F@]@@/THE ADCW )@@G@@$DUMP FUNCTION WILL PRINT ANY PORTION OF MEMORY GIVEN:[@W@@@@@@@@@E@]@@1CX )@@G@@PROGRAM RELATIVE ADDRESS, SIZE, AND DISPLAY TYPE.MORY [@W@@@@@@@@@F@]@@'CY )@@G@@THE VALID DISPLAY TYPES ARE: 1=OCTAL, 2=ASCII, 3=FIELDATA.N:[@W@@@@@@@@@CZ )@@G@@B@]@@=THE FORMAT FOR THE FUNCTION CALL IS.[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@DA )@@G@@@@@@@@B@]@@- AD$DUMP(ADDRESS,SIZE,TYPE)IS.[@W@@@@@@@@@[[#__$^@[@@@DB )@@G@@@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@DC )@@G@@@@@@@@#[#@@@MAIN$ [@X@@@@@@@@@[[#__$^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@DD )@@G@@@@@@@[[@V@@@@@@@@@[[#__<^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@@@@@@@DE )@@G@@[[#__Z^@[@@@@@@@@@@@@@@@@@@@@@[[#__;[@V@@@@@@@@@[[#__J^@[@@@@@@@@@@@@@@@DF )@@G@@@@@@@@[[#__7[@V@@@@@@@@@[[#__V^@[@@@@@@@@@@@@@@@@@@@@@]@]@@A [@V@@@DG )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$2 [@X@@@DH )@@G@@@@@@@@[[#__3]@[@@@@@@@@[[@D@@@[@Q@@^#[#@@@INIT$1 [@X@@@@@@@@@[[#__NDI )@@G@@^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@^[@V@@@@@@@@@#[#@@@MAIN$ [@X@@@DJ )@@G@@@@@@@@[[#__N^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@C[@V@@@@@@@@@#[#@@@MAIN$ DK )@@G@@ [@X@@@@@@@@@[[#__3]@[@@@@@@@@[[@D@@@[@Q@@^#[#@@@INIT$3 [@X@@@DL )@@G@@@@@@@@[[#__N^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@C[@V@@@@@@@@@#[#@@@MAIN$ DM )@@G@@ [@X@@@@@@@@@[[#__N^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@K[@V@@@@@@@@@DN )@@G@@#[P@@@LINE$SIZE [[#__N^@[@@@@@@@@@@@@@@@@@@@@@[@Y@@@[@0@@@@@@@@@[[#__NDO )@@G@@^@[@@@@@@@@@@@@@@@@@@@@@[[#__7[[#__N^@[@@@@@@@@@@@@@@@@@@@@@[@Y@@@[@E@@@DP )@@G@@[@Q@@][[#__7[@V@@@@@@@@@[[#__R^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@DQ )@@G@@@@@@@@#[P@@@LOOP$COUNT ]@[@@@@@@@@@[@0@@@@@@@@@#[P@@@LINE$COUNT [[#__\DR )@@G@@]@[@@@@@@@@@[@F@@@[@Q@@#]@[@@@@@@@@@[@0@@@@@@@@@#[#@@@LOOP$COUNT [[#__NDS )@@G@@^@[@@@@@@@@@@@@@@@@@@@@@[@Y@@@[@E@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@DT )@@G@@#[#@@@MAIN$20 [@X@@@@@@@@@[[#__R^@[@@@@@@@@@@@@@@@@@@@@@[[#__R^@[@@@DU )@@G@@@@@@@@@@@@@@@@@@@@[@Y@@@[[#__Z^@[@@@@@@@@@@@@@@@@@@@@@[@Y@@@^@[@@@@@@@@@DV )@@G@@@@@@@@@@@@@@#[#@@@LOOP$COUNT [@N@@@[@Y@@@[@^@@@[@V@@@@@@@@@#[P@@@LOOP$CDW )@@G@@OUNT #[#@@@LOOP$COUNT ]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@[[#_"\[@X@@@@@@@@@DX )@@G@@[[#__R^@[CCW@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@I@@@[[#__N^@[CCW@@@@@@DY )@@G@@@@@@@@@@@@@@[@Y@@@#[#@@@LINE$SIZE [@E@@@[@K@@@[@Q@@^#[#@@@MAIN$30 DZ )@@G@@[@X@@@@@@@@@[[#__V^@[CCW@@@@@@@@@@@@@@@@@@]@]@@]@@@@**[@V@@@@@@@@@#[#@@@EA )@@G@@MAIN$70 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@[EB )@@G@@[@^@@@[@0@@@@@@@@@[[#__3]@[@@@@@@@@[[@I@@@[@Q@@^#[#@@@MAIN$40 [@X@@@EC )@@G@@@@@@@@[[#__<^@[CCW@@Q@@@@#_@@@@@@@@@[@Y@@@[[#__Z^@[CCW@@Q@@@@#_@@@@@@@@@ED )@@G@@[@Y@@@[[#__V^@[CCW@@2@@@@#_@@@@@@@@@[@Y@@@[[#__Z^@[CCW@@@@@@@@@@@@@@@@@@EE )@@G@@[@Y@@@^@[CCW@@W@@@@#_@@@@@@CC7[[#__N^@[CC3@@@@@@@@@@@@@@@@@@[@Y@@@[@S@@@EF )@@G@@[@Y@@@[@W@@@@@@@@@[[#__3]@[@@@@@@@@][@I@@@[@Q@@^#[#@@@MAIN$50 [@X@@@EG )@@G@@@@@@@@[[#__F^@[CCWJ@@@@@_@@@@@@@@CC)]@[@@@^@)^@)[@V@@@@@@@@@[[#__F^@[CCWEH )@@G@@J@@@@@_@@@@@@@@CC)[[#__Z^@[CCW@@@@@@@@@@@@@@@@@@[@Y@@@^@[CCW@@@@@@@@@@@@EI )@@G@@@@@CC%[[#__N[@S@@@[@Y@@@[@V@@@@@@@@@#[P@@@A$IX ]@[@@@@@@@@@[@0@@@EJ )@@G@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q1 EK )@@G@@ [@R@@@[@Y@@@]@[@@@@@@@@)[@E@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@EL )@@G@@[@U@@@]@[@@@@@@@@][@^@@@[@X@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@EM )@@G@@A$IX [@N@@@#[#@@@Q1 [@R@@@]@[@@@@@@@["[@V@@@@@@@@@[[#__FEN )@@G@@^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q1 [@R@@@EO )@@G@@[@Y@@@]@[@@@@@@@[_[@D@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@[@U@@@]@[@@@EP )@@G@@@@@@@][@^@@@[@X@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX EQ )@@G@@[@N@@@#[#@@@Q1 [@R@@@]@[@@@@@@@["[@V@@@@@@@@@[[#__F^@[CCW@@@@@@ER )@@G@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q2 [@R@@@[@Y@@@]@[@@@ES )@@G@@@@@@@)[@E@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@[@U@@@]@[@@@@@@@@][@^@@@ET )@@G@@[@X@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@EU )@@G@@Q2 [@R@@@]@[@@@@@@@["[@V@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=EV )@@G@@#[#@@@A$IX [@N@@@#[#@@@Q2 [@R@@@[@Y@@@]@[@@@@@@@[_[@D@@@EW )@@G@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@[@U@@@]@[@@@@@@@@][@^@@@[@X@@@@@@@@@EX )@@G@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q2 EY )@@G@@[@R@@@]@[@@@@@@@["[@V@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX EZ )@@G@@ [@N@@@#[#@@@Q3 [@R@@@[@Y@@@]@[@@@@@@@@)[@E@@@[@Q@@ [@U@@@FA )@@G@@]@[@@@@@@@@[[@^@@@[@X@@@[@U@@@]@[@@@@@@@@][@^@@@[@X@@@@@@@@@[[#__F^@[CCWFB )@@G@@@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q3 [@R@@@]@[@@@FC )@@G@@@@@@["[@V@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@FD )@@G@@#[#@@@Q3 [@R@@@[@Y@@@]@[@@@@@@@[_[@D@@@[@Q@@ [@U@@@]@[@@@@@@@@[FE )@@G@@[@^@@@[@X@@@[@U@@@]@[@@@@@@@@][@^@@@[@X@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@FF )@@G@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q3 [@R@@@]@[@@@@@@@["[@V@@@FG )@@G@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q4 FH )@@G@@ [@R@@@[@Y@@@]@[@@@@@@@@)[@E@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@FI )@@G@@[@U@@@]@[@@@@@@@@][@^@@@[@X@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@FJ )@@G@@A$IX [@N@@@#[#@@@Q4 [@R@@@]@[@@@@@@@["[@V@@@@@@@@@[[#__FFK )@@G@@^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX [@N@@@#[#@@@Q4 [@R@@@FL )@@G@@[@Y@@@]@[@@@@@@@[_[@D@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@[@U@@@]@[@@@FM )@@G@@@@@@@][@^@@@[@X@@@@@@@@@[[#__F^@[CCW@@@@@@@@@@@@@@@CC=#[#@@@A$IX FN )@@G@@[@N@@@#[#@@@Q4 [@R@@@]@[@@@@@@@["[@V@@@@@@@@@#[P@@@A$IX FO )@@G@@#[#@@@A$IX ]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@#[#@@@A$IX ]@[@@@FP )@@G@@@@@@@K[@D@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@[[#_"Z[@X@@@@@@@@@[[#__MAIN$30 ^@ @@@@@@@@+MAIN$20 ^@ @@@@@@@@YMAIN$1GP )@@G@@0 ^@ @@@@@@@@UMAIN$1 ^@ @@@@@@@@TMAIN$ ^@ @@@@@@@@SINIT$3GQ )@@G@@ ^@ @@@@@@@@PINIT$2 ^@ @@@@@@@@NINIT$1 ^@ @@@@@@@@EINIT$ GR )@@G@@ ^[ @@@@@@@@BPRINT$BUF ^[ @@@@@@@@AWORDS$LEFT ^[ @@@@@@@@ WDS$PEGS )@@G@@R$LINE^[ @@@@@@@@^TEST$ZERO ^[ @@@@@@@@#SKIP$MARK ^[ @@@@@@@@]ABS$ADGT )@@G@@R ^[ @@@@@@@@[REL$ADR ^[ @@@@@@@@@INIT$SW ^@ @@@@@@@@CENDDOCGU )@@G@@ ^@ @@@(^@^]GRESET$ON$SW ^@ @@@*=@#_*DATA$TYP ^@ @@@/@@CD0NBR$OFGV )@@G@@$WDS ^@ @@@Q;@@@MSTART$ADR B@2^@)^@)DLPD00AK8AK)^@)^[JCTOAK1B@3^@)^@)GW )@@G@@D9#E)2AC8AS)^@)^@)AS6AC)@[@@@8@ @@@9@G@@@"@^@@[E@^@@[I@^@@[M@^@@[Q@^@@[UGX )@@G@@@^@@[Y@^@@[+@^@@[&@^@@[%@^@@[,@I@@[2@^@@]@@G@@]^]M@@]K]M@@^+@^@@A4]M@@A8GY )@@G@@]M@@DE@^@@FW]M@@F)]M@@H2@ @@K^[E@@KD[E@@LN[E@@MX[E@@N$@^@@O1[E@@O5[E@@P_GZ )@@G@@[E@@RD[E@@SN@^@@TX[E@@T-[E@@U:[E@@V5[E@@W_@]@@YDC(MDDKD[ EL[D))ETFC(G^@)HA )@@G@@^@)^@)^[^C(ND0)FS)F*)FTNE[]F*)^@)^@)^@)^@)^@)^@)^@)^@)^@2A@)^@1^[HCDTA@6HB )@@G@@@@@@@@#[#@@@ENDDOC [@X@@@@@@@@@E@]@@5THE REGS$DUMP FUNCTION PRINTS HC )@@G@@THE USER REGISTER SET.. [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ HD )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ HE )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ HF )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@HG )@@G@@@@@@@T#[1@@@TAB A@]@@V*****USER REGISTER SET*****TS [@W@@@@@@@@@HH )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@D@@@[@Q@@^#[#@@@HI )@@G@@DEMAND [@X@@@@@@@@@]@]@@^@@X #[#@@@X0 ^@[CD'@CQ@@@@__J__HJ )@@G@@@@@CC=[@Y@@@#[#@@@X0 ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ HK )@@G@@#[#@@@X1 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@X1 ^@[CD'HL )@@G@@@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@X2 ^@[CD'@CQ@@@@__J__HM )@@G@@@@@CDC[@Y@@@#[#@@@X2 ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ HN )@@G@@#[#@@@X3 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@X3 ^@[CD'HO )@@G@@@^Q@@@@__J__@@@CD+[@Y@@@]@]@@[@@@@@ #[#@@@X4 ^@[CD'@CQ@@@@__J__HP )@@G@@@@@CD?[@Y@@@#[#@@@X4 ^@[CD'@^Q@@@@__J__@@@CD4[@Y@@@]@]@@[@@@@@ HQ )@@G@@#[#@@@X5 ^@[CD'@CQ@@@@__J__@@@CD"[@Y@@@#[#@@@X5 ^@[CD'HR )@@G@@@^Q@@@@__J__@@@CEA[@Y@@@]@]@@[@@@@@ #[#@@@X6 ^@[CD'@CQ@@@@__J__HS )@@G@@@@@CEK[@Y@@@#[#@@@X6 ^@[CD'@^Q@@@@__J__@@@CES[@Y@@@]@]@@[@@@@@ HT )@@G@@#[#@@@X7 ^@[CD'@CQ@@@@__J__@@@CE+[@Y@@@#[#@@@X7 ^@[CD'HU )@@G@@@^Q@@@@__J__@@@CE%[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@X8 ^@[CD'HV )@@G@@@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@X8 ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@HW )@@G@@]@]@@[@@@@@ #[#@@@X9 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@X9 HX )@@G@@ ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@X10 ^@[CD'HY )@@G@@@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@X10 ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@HZ )@@G@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@X11 IA )@@G@@ ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'IB )@@G@@@CQ@@[@__J__@@@CD?[@Y@@@#[#@@@X11 ^@[CD'@^Q@@[@__J__@@@CD4[@Y@@@IC )@@G@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'@CQ@@]@__J__@@@CD"[@Y@@@#[#@@@X11 ID )@@G@@ ^@[CD'@^Q@@]@__J__@@@CEA[@Y@@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'IE )@@G@@@CQ@@#@__J__@@@CEK[@Y@@@#[#@@@X11 ^@[CD'@^Q@@#@__J__@@@CES[@Y@@@IF )@@G@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'@CQ@@^@__J__@@@CE+[@Y@@@#[#@@@X11 IG )@@G@@ ^@[CD'@^Q@@^@__J__@@@CE%[@Y@@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@IH )@@G@@]@]@@^@@A #[#@@@A0 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@A0 II )@@G@@ ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@A1 ^@[CD'IJ )@@G@@@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@A1 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@IK )@@G@@]@]@@[@@@@@ #[#@@@A2 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@A2 IL )@@G@@ ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@A3 ^@[CD'IM )@@G@@@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@A3 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@IN )@@G@@]@]@@[@@@@@ #[#@@@A4 ^@[CD'@CQ@@@@__J__@@@CD?[@Y@@@#[#@@@A4 IO )@@G@@ ^@[CD'@^Q@@@@__J__@@@CD4[@Y@@@]@]@@[@@@@@ #[#@@@A5 ^@[CD'IP )@@G@@@CQ@@@@__J__@@@CD"[@Y@@@#[#@@@A5 ^@[CD'@^Q@@@@__J__@@@CEA[@Y@@@IQ )@@G@@]@]@@[@@@@@ #[#@@@A6 ^@[CD'@CQ@@@@__J__@@@CEK[@Y@@@#[#@@@A6 IR )@@G@@ ^@[CD'@^Q@@@@__J__@@@CES[@Y@@@]@]@@[@@@@@ #[#@@@A7 ^@[CD'IS )@@G@@@CQ@@@@__J__@@@CE+[@Y@@@#[#@@@A7 ^@[CD'@^Q@@@@__J__@@@CE%[@Y@@@IT )@@G@@[@W@@@@@@@@@]@]@@^@@ #[#@@@A8 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@IU )@@G@@#[#@@@A8 ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@A9 IV )@@G@@ ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@A9 ^@[CD'@^Q@@@@__J__IW )@@G@@@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@A10 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@IX )@@G@@#[#@@@A10 ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@A11 IY )@@G@@ ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@A11 ^@[CD'@^Q@@@@__J__IZ )@@G@@@@@CD+[@Y@@@]@]@@[@@@@@ #[#@@@A12 ^@[CD'@CQ@@@@__J__@@@CD?[@Y@@@JA )@@G@@#[#@@@A12 ^@[CD'@^Q@@@@__J__@@@CD4[@Y@@@]@]@@[@@@@@ #[#@@@A13 JB )@@G@@ ^@[CD'@CQ@@@@__J__@@@CD"[@Y@@@#[#@@@A13 ^@[CD'@^Q@@@@__J__JC )@@G@@@@@CEA[@Y@@@]@]@@[@@@@@ #[#@@@A14 ^@[CD'@CQ@@@@__J__@@@CEK[@Y@@@JD )@@G@@#[#@@@A14 ^@[CD'@^Q@@@@__J__@@@CES[@Y@@@]@]@@[@@@@@ #[#@@@A15 JE )@@G@@ ^@[CD'@CQ@@@@__J__@@@CE+[@Y@@@#[#@@@A15 ^@[CD'@^Q@@@@__J__JF )@@G@@@@@CE%[@Y@@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@^@@R #[#@@@R0 JG )@@G@@ ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@R0 ^@[CD'@^Q@@@@__J__JH )@@G@@@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@R1 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@JI )@@G@@#[#@@@R1 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@R2 JJ )@@G@@ ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@R2 ^@[CD'@^Q@@@@__J__JK )@@G@@@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@R3 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@JL )@@G@@#[#@@@R3 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@]@]@@[@@@@@ #[#@@@R4 JM )@@G@@ ^@[CD'@CQ@@@@__J__@@@CD?[@Y@@@#[#@@@R4 ^@[CD'@^Q@@@@__J__JN )@@G@@@@@CD4[@Y@@@]@]@@[@@@@@ #[#@@@R5 ^@[CD'@CQ@@@@__J__@@@CD"[@Y@@@JO )@@G@@#[#@@@R5 ^@[CD'@^Q@@@@__J__@@@CEA[@Y@@@]@]@@[@@@@@ #[#@@@R6 JP )@@G@@ ^@[CD'@CQ@@@@__J__@@@CEK[@Y@@@#[#@@@R6 ^@[CD'@^Q@@@@__J__JQ )@@G@@@@@CES[@Y@@@]@]@@[@@@@@ #[#@@@R7 ^@[CD'@CQ@@@@__J__@@@CE+[@Y@@@JR )@@G@@#[#@@@R7 ^@[CD'@^Q@@@@__J__@@@CE%[@Y@@@[@W@@@@@@@@@]@]@@^@@ JS )@@G@@#[#@@@R8 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@R8 ^@[CD'JT )@@G@@@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@R9 ^@[CD'@CQ@@@@__J__JU )@@G@@@@@CC6[@Y@@@#[#@@@R9 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ JV )@@G@@#[#@@@R10 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@R10 ^@[CD'JW )@@G@@@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@R11 ^@[CD'@CQ@@@@__J__JX )@@G@@@@@CDU[@Y@@@#[#@@@R11 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@]@]@@[@@@@@ JY )@@G@@#[#@@@R12 ^@[CD'@CQ@@@@__J__@@@CD?[@Y@@@#[#@@@R12 ^@[CD'JZ )@@G@@@^Q@@@@__J__@@@CD4[@Y@@@]@]@@[@@@@@ #[#@@@R13 ^@[CD'@CQ@@@@__J__KA )@@G@@@@@CD"[@Y@@@#[#@@@R13 ^@[CD'@^Q@@@@__J__@@@CEA[@Y@@@]@]@@[@@@@@ KB )@@G@@#[#@@@R14 ^@[CD'@CQ@@@@__J__@@@CEK[@Y@@@#[#@@@R14 ^@[CD'KC )@@G@@@^Q@@@@__J__@@@CES[@Y@@@]@]@@[@@@@@ #[#@@@R15 ^@[CD'@CQ@@@@__J__KD )@@G@@@@@CE+[@Y@@@#[#@@@R15 ^@[CD'@^Q@@@@__J__@@@CE%[@Y@@@[@W@@@@@@@@@KE )@@G@@#[#@@@FINISH [@X@@@@@@@@@]@]@@^@@X #[#@@@X0 ^@[CD'@CQ@@@KF )@@G@@@__J__@@@CC=[@Y@@@#[#@@@X0 ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[KG )@@G@@@@@@@ #[#@@@X1 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@X1 KH )@@G@@^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@X2 ^@[CD'@CQ@@@KI )@@G@@@__J__@@@CDC[@Y@@@#[#@@@X2 ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[KJ )@@G@@@@@@@ #[#@@@X3 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@X3 KK )@@G@@^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@X4 KL )@@G@@^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@X4 ^@[CD'@^Q@@@@__J__@@@CC?KM )@@G@@[@Y@@@]@]@@[@@@@@ #[#@@@X5 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@KN )@@G@@X5 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@X6 KO )@@G@@^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@X6 ^@[CD'@^Q@@@@__J__@@@CDKKP )@@G@@[@Y@@@]@]@@[@@@@@ #[#@@@X7 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@KQ )@@G@@X7 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@KR )@@G@@X8 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@X8 ^@[CD'@^Q@@@KS )@@G@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@X9 ^@[CD'@CQ@@@@__J__@@@CC6KT )@@G@@[@Y@@@#[#@@@X9 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@KU )@@G@@X10 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@X10 ^@[CD'@^Q@@@KV )@@G@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'@CQ@@@@__J__@@@CDUKW )@@G@@[@Y@@@#[#@@@X11 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^KX )@@G@@@@ #[#@@@X11 ^@[CD'@CQ@@[@__J__@@@CC=[@Y@@@#[#@@@X11 KY )@@G@@^@[CD'@^Q@@[@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'@CQ@@]KZ )@@G@@@__J__@@@CC6[@Y@@@#[#@@@X11 ^@[CD'@^Q@@]@__J__@@@CC"[@Y@@@]@]@@[LA )@@G@@@@@@@ #[#@@@X11 ^@[CD'@CQ@@#@__J__@@@CDC[@Y@@@#[#@@@X11 LB )@@G@@^@[CD'@^Q@@#@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@X11 ^@[CD'@CQ@@^LC )@@G@@@__J__@@@CDU[@Y@@@#[#@@@X11 ^@[CD'@^Q@@^@__J__@@@CD+[@Y@@@[@W@@@LD )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@^@@A #[#@@@A0 ^@[CD'@CQ@@@LE )@@G@@@__J__@@@CC=[@Y@@@#[#@@@A0 ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[LF )@@G@@@@@@@ #[#@@@A1 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@A1 LG )@@G@@^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@A2 ^@[CD'@CQ@@@LH )@@G@@@__J__@@@CDC[@Y@@@#[#@@@A2 ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[LI )@@G@@@@@@@ #[#@@@A3 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@A3 LJ )@@G@@^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@A4 LK )@@G@@^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@A4 ^@[CD'@^Q@@@@__J__@@@CC?LL )@@G@@[@Y@@@]@]@@[@@@@@ #[#@@@A5 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@LM )@@G@@A5 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@A6 LN )@@G@@^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@A6 ^@[CD'@^Q@@@@__J__@@@CDKLO )@@G@@[@Y@@@]@]@@[@@@@@ #[#@@@A7 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@LP )@@G@@A7 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@LQ )@@G@@A8 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@A8 ^@[CD'@^Q@@@LR )@@G@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@A9 ^@[CD'@CQ@@@@__J__@@@CC6LS )@@G@@[@Y@@@#[#@@@A9 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@LT )@@G@@A10 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@A10 ^@[CD'@^Q@@@LU )@@G@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@A11 ^@[CD'@CQ@@@@__J__@@@CDULV )@@G@@[@Y@@@#[#@@@A11 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^LW )@@G@@@@ #[#@@@A12 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@A12 LX )@@G@@^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@A13 ^@[CD'@CQ@@@LY )@@G@@@__J__@@@CC6[@Y@@@#[#@@@A13 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[LZ )@@G@@@@@@@ #[#@@@A14 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@A14 MA )@@G@@^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@A15 ^@[CD'@CQ@@@MB )@@G@@@__J__@@@CDU[@Y@@@#[#@@@A15 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@MC )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@^@@R #[#@@@R0 ^@[CD'@CQ@@@MD )@@G@@@__J__@@@CC=[@Y@@@#[#@@@R0 ^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[ME )@@G@@@@@@@ #[#@@@R1 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@R1 MF )@@G@@^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@R2 ^@[CD'@CQ@@@MG )@@G@@@__J__@@@CDC[@Y@@@#[#@@@R2 ^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[MH )@@G@@@@@@@ #[#@@@R3 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@R3 MI )@@G@@^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@R4 MJ )@@G@@^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@R4 ^@[CD'@^Q@@@@__J__@@@CC?MK )@@G@@[@Y@@@]@]@@[@@@@@ #[#@@@R5 ^@[CD'@CQ@@@@__J__@@@CC6[@Y@@@#[#@@@ML )@@G@@R5 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@R6 MM )@@G@@^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@R6 ^@[CD'@^Q@@@@__J__@@@CDKMN )@@G@@[@Y@@@]@]@@[@@@@@ #[#@@@R7 ^@[CD'@CQ@@@@__J__@@@CDU[@Y@@@#[#@@@MO )@@G@@R7 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^@@ #[#@@@MP )@@G@@R8 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@R8 ^@[CD'@^Q@@@MQ )@@G@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@R9 ^@[CD'@CQ@@@@__J__@@@CC6MR )@@G@@[@Y@@@#[#@@@R9 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[@@@@@ #[#@@@MS )@@G@@R10 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@R10 ^@[CD'@^Q@@@MT )@@G@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@R11 ^@[CD'@CQ@@@@__J__@@@CDUMU )@@G@@[@Y@@@#[#@@@R11 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@@@@@@@]@]@@^MV )@@G@@@@ #[#@@@R12 ^@[CD'@CQ@@@@__J__@@@CC=[@Y@@@#[#@@@R12 MW )@@G@@^@[CD'@^Q@@@@__J__@@@CC?[@Y@@@]@]@@[@@@@@ #[#@@@R13 ^@[CD'@CQ@@@MX )@@G@@@__J__@@@CC6[@Y@@@#[#@@@R13 ^@[CD'@^Q@@@@__J__@@@CC"[@Y@@@]@]@@[MY )@@G@@@@@@@ #[#@@@R14 ^@[CD'@CQ@@@@__J__@@@CDC[@Y@@@#[#@@@R14 MZ )@@G@@^@[CD'@^Q@@@@__J__@@@CDK[@Y@@@]@]@@[@@@@@ #[#@@@R15 ^@[CD'@CQ@@@NA )@@G@@@__J__@@@CDU[@Y@@@#[#@@@R15 ^@[CD'@^Q@@@@__J__@@@CD+[@Y@@@[@W@@@NB )@@G@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@$FINISH ^@ @@@@@@@@TDEMAND ^@ @@@NC )@@G@@@@@@@#ENDDOC 0) 0) 0) 0) 0) 0) 0) 0) 0) 0) 0) 0) 0) 0)@-@[[[^@)^@)ND )@@G@@^@)^@)^[[CTODDQDDOFC)^@)^@)^@)^@)^@)^@)^@)CC)CS)@[@@A=@ @@A>@I@@A%@H@@A8NE )@@G@@@I@@B @F@@BN@J@@BY@ @@B!@D@@B2@J@@B;@J@@CE@C@@CT@B@@C-@H@@C*@^@@C5@^@@C9NF )@@G@@@^@@C.@^@@D[@^@@D @^@@DD@^@@DH@^@@DL@^@@DP@^@@DT@T@@DX@B@@D6@ @@D.@^@@E]NG )@@G@@@^@@EA@^@@EE@^@@EI@^@@EM@^@@EQ@^@@EU@^@@EY@^@@E+@^@@E&@R@@E%@^@@F[@-@@F NH )@@G@@@-@@F&@H@@GB@H@@GO@G@@G-@D@@G!@D@@G6@D@@G_@G@@HC@D@@HO@D@@HX@D@@H&@G@@H\NI )@@G@@@D@@H;@D@@I^@D@@IH@G@@IQ@D@@I+@D@@I:@D@@I4@G@@I.@D@@JD@D@@JM@D@@JV@G@@J=NJ )@@G@@@D@@J0@D@@J9@D@@K]@G@@KF@&@@KR@G@@K.@&@@LD@G@@L\@&@@L;@G@@M-@&@@M!@G@@NNNK )@@G@@@&@@NZ@G@@O @&@@OL@G@@O7@&@@P#@G@@P(@&@@P5@G@@QV@&@@Q$@G@@RH@&@@RT@G@@R_NL )@@G@@@&@@SF@G@@S1@&@@S.@G@@T<@&@@T\@G@@UP@&@@U-@G@@VB@&@@VN@G@@V9@&@@W @G@@W:NM )@@G@@@&@@W7@G@@XX@&@@X(@G@@YJ@&@@YV@J@@Z[@J@@ZK@B@@ZZ@U@@Z&@C@@)@@N@@)C@R@@)VNN )@@G@@@R@@)2@ @@-D@G@@-I@K@@-U@D@@-%@R@@-3@ @@+E@K@@+J@D@@+Z@R@@+*@^@@+_@<@@<#NO )@@G@@@G@@<&@K@@<2@C@@=]@ @@=E@N@@=J@^@@=+@B@@=&@C@@=!@ @@=5@F@@='@^@@> @D@@>DNP )@@G@@@C@@>M@N@@>U@G@@>!@H@@>9@A@@&A@ @@&G@G@@&L@F@@&X@K@@&*@C@@&8@ @@$@@G@@$ NQ )@@G@@@^@@$L@B@@$P@C@@$W@ @@$=@F@@$(@^@@$4@D@@$8@C@@*[@N@@*D@G@@*W@H@@**@A@@*5NR )@@G@@@ @@*;@G@@(@@G@@(G@F@@(S@K@@(<@C@@(3@ @@(;@^@@%@@C@@%^@C@@%G@ @@%O@^@@%TNS )@@G@@@E@@%X@C@@%$@N@@%\@G@@:]@G@@:I@K@@:U@C@@:%@ @@:2@F@@:7@G@@?]@H@@?I@H@@?VNT )@@G@@@H@@?*@^@@?5@Z@@?9@^@@!S@C@@!W@)@@!=@^@@,^@ @@,C@M@@,H@G@@,Z@K@@,:@C@@,;NU )@@G@@@ @@\#@F@@\C@G@@\N@^@@\Z@A@@\<@,@@\(@ @@0R@^@@0W@<@@0)@G@@1#@N@@1J@L@@1+NV )@@G@@@G@@13@G@@1_@K@@2F@C@@2V@ @@2<@^@@2*@C@@2?@F@@24@C@@2_@ @@3B@^@@3G@E@@3KNW )@@G@@@F@@3U@C@@3>@U@@3!@G@@4B@O@@4N@K@@4$@I@@47@L@@5 @G@@5Q@^@@5+@D@@5&@F@@5\NX )@@G@@@C@@5'@ @@6]@^@@6B@F@@6F@F@@6Q@C@@6-@U@@6(@G@@7#@O@@7J@K@@7<@I@@73@L@@8[NY )@@G@@@L@@8M@G@@8<@G@@8\@^@@8;@C@@8_@F@@9B@C@@9M@ @@9U@^@@9Z@E@@9<@F@@9!@C@@98NZ )@@G@@@U@@'@@G@@'U@O@@'&@K@@''@I@@;E@L@@;S@G@@;(@^@@;5@D@@;9@F@@/]@C@@/H@ @@/POA )@@G@@@^@@/U@F@@/Y@F@@/(@C@@/4@U@@//@G@@.Q@H@@.+@A@@.\@ @@.5@^@@.'@L@@."@E@@"JOB )@@G@@@L@@"T@D@@"%@L@@"3@D@@_^@L@@_H@D@@_Y@H@@_$@H@@_4@B@[@[@^@[@C@X@[@G@H@[@(OC )@@G@@@^@[@6@U@[@'@^@[[O@!@[[S@L@[] @^@[]Q@E@[]U@G@[]=@K@[]0@C@[#@@ @[#C@^@[#HOD )@@G@@@J@[#L@J@[#)@V@[#\@U@[^E@R@[^=@R@[^;@R@[ M@R@[ (@G@[A@@F@[AG@H@[AR@C@[A=OE )@@G@@@ @[A?@^@[A1@R@[A5@R@[BG@R@[B<@S@[B'@S@[CM@U@[C%@U@[D^@U@[DY@G@[D8@F@[E^OF )@@G@@@K@[EJ@C@[EZ@ @[E$@^@[E?@U@[E0@U@[FE@U@[F=@U@[F"@V@[GS@V@[G3@W@[HI@U@[H%OG )@@G@@@U@[I^@L@[IY@G@[I\@F@[I;@K@[JA@C@[JQ@ @[JY@^@[J<@U@[J$@U@[K[@G@[KV@L@[K$OH )@@G@@@F@[K8@9@[L#@&@[L/@L@[M+@N@[M3@G@[NA@ @[NM@ @[NR@C@[NW@K@[N=@A@[N4@ @[N'OI )@@G@@@F@[N_@9@[OE@F@[P#@G@[PI@C@[PU@ @[P+@ @[P$@C@[P?@D@[P4@K@[P.@G@[QH@K@[QTOJ )@@G@@@G@[Q(@H@[Q5@ @[R]@F@[RB@M@[RM@E@[R=@M@[R,@A@[S@@ @[SA@L@[SF@G@[SW@G@[S*OK )@@G@@@K@[S4@C@[T^@ @[TG@^@[TL@A@[TP@P@[TV@=@[T0@=@[UO@B@[U8@D@[U_@J@[VC@^@[VROL )@@G@@@G@[VV@C@[V$@]@[V\^@)D[R^[OC(NE))FS)F*)FTND-JF*)^@)^@)^@)^@)^@)^@)^@)^@)OM )@@G@@^@1A*)^@1^[EE(GA@1B@2^@)^@)DLPD)2AC8AK)^@)^[NC(K@@@@@@#[#@@@ENDDOC ON )@@G@@[@X@@@@@@@@@G@]@@"THE AD$F$SUBRTN IS CALLED BY THE AD$FILE FUNCTION AND OO )@@G@@WILL NOTGRAM[@W@@@@@@@@@F@]@@9WORK IF CALLED DIRECTLY. THIS FUNCTION LIOP )@@G@@STS INFORMATIONL N[@W@@@@@@@@@G@]@@.FOR A PARTICULAR FILE. FOR A DESCRIOQ )@@G@@PTION OF THIS INFORMATIONTGRAM[@W@@@@@@@@@D@]@@!USE AD$HELP, THE ACDP DOOR )@@G@@CUMENTATION FUNCTION.THI[@W@@@@@@@@@[[#__3^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@OS )@@G@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@#[#@@@MAIN$ OT )@@G@@[@X@@@@@@@@@[[#__3^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[P@@@OU )@@G@@FCB$ADR #[#@@@FCB$ADR$ ^@[CD'@@@@@@@@@@@@@@@@@@[[#__;[@N@@@[@Y@@@OV )@@G@@[@0@@@@@@@@@#[P@@@RECORD$ADR #[#@@@REC$ADR$ ^@[CD'@@@@@@@@@@@@@@@@@@OW )@@G@@[[#__;[@N@@@[@Y@@@[@0@@@@@@@@@#[P@@@JUMP$$SW #[#@@@MAIN$1 [@0@@@OX )@@G@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@D[@0@@@@@@@@@#[#@@@JUMP$$SW #[#@@@OY )@@G@@MAIN$1 [@F@@@[@Q@@^#[#@@@MAIN$1 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@OZ )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@PA )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@PB )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@PC )@@G@@@@@@@@[@2@@@]@[@@@@@@@@C#[1@@@TAB @]@@R***** FILE ANALYSIS FOROPD )@@G@@#[#@@@FCB$ADR ^@[CD'[@0@@@_#_@@@@@@CC![@Y@@@^@]@@L(CONTINUED) ***** PE )@@G@@[@W@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@#[@0@@@@@@@@@#[#@@@JUMP$$SW PF )@@G@@[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ PG )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ PH )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ PI )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@J#[1@@@TAB PJ )@@G@@ @]@@R***** FILE ANALYSIS FORO#[#@@@FCB$ADR ^@[CD'[@0@@@_#_@@@@@@CC!PK )@@G@@[@Y@@@]@]@@ @*****[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#@]@@DFILE TYPE PL )@@G@@[@2@@@]@[@@@@@@@@Z#[1@@@TAB #@]@@FFILE STATUS [@2@@@]@[@@@@@@@@2PM )@@G@@#[1@@@TAB #@]@@FFCB ADDRESS [@2@@@]@[@@@@@@@@_#[1@@@TAB PN )@@G@@^@]@@IRECORD ADDRESS [@W@@@@@@@@@#@]@@D--------- [@2@@@]@[@@@@@@@@ZPO )@@G@@#[1@@@TAB #@]@@F----------- [@2@@@]@[@@@@@@@@2#[1@@@TAB PP )@@G@@#@]@@F----------- [@2@@@]@[@@@@@@@@_#[1@@@TAB ^@]@@I------------PQ )@@G@@-- [@W@@@@@@@@@#[P@@@FILE$TYP #[#@@@FCB$ADR ^@[CD'@0@@@]@/@J__PR )@@G@@@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@FILE$STATUS #[#@@@FCB$ADR ^@[CD'@?@@@]PS )@@G@@@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@@[@I@@@[@Q@@^PT )@@G@@#[#@@@STAT1 [@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@@@@@@@]@]@@A00, NEPU )@@G@@[@V@@@@@@@@@[[#__$^@[CD'@@@@@[@@@J__@@@@@@]@]@@AVER OP[@V@@@@@@@@@[[#__$PV )@@G@@^@[CD'@@@@@]@@@J__@@@@@@]@]@@AENED [@V@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@PW )@@G@@@@@@@[[@I@@@[@Q@@^#[#@@@STAT2 [@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@PX )@@G@@@@@@@@]@]@@A01, OP[@V@@@@@@@@@[[#__$^@[CD'@@@@@[@@@J__@@@@@@]@]@@AEN INPPY )@@G@@[@V@@@@@@@@@[[#__$^@[CD'@@@@@]@@@J__@@@@@@]@]@@AUT [@V@@@@@@@@@#[#@@@PZ )@@G@@FILE$STATUS ]@[@@@@@@@@][@I@@@[@Q@@^#[#@@@STAT3 [@X@@@@@@@@@[[#__$QA )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@]@]@@A02, OP[@V@@@@@@@@@[[#__$^@[CD'@@@@@[@@@J__QB )@@G@@@@@@@@]@]@@AEN OUT[@V@@@@@@@@@[[#__$^@[CD'@@@@@]@@@J__@@@@@@]@]@@APUT QC )@@G@@[@V@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@#[@I@@@[@Q@@^#[#@@@STAT4 QD )@@G@@[@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@@@@@@@]@]@@A03, OP[@V@@@@@@@@@[[#__$QE )@@G@@^@[CD'@@@@@[@@@J__@@@@@@]@]@@AEN I-O[@V@@@@@@@@@[[#__$^@[CD'@@@@@]@@@J__QF )@@G@@@@@@@@]@]@@A [@V@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@^[@I@@@[@Q@@^QG )@@G@@#[#@@@STAT5 [@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@@@@@@@]@]@@A04, CLQH )@@G@@[@V@@@@@@@@@[[#__$^@[CD'@@@@@[@@@J__@@@@@@]@]@@AOSED W[@V@@@@@@@@@[[#__$QI )@@G@@^@[CD'@@@@@]@@@J__@@@@@@]@]@@A/LOCK [@V@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@QJ )@@G@@@@@@@ [@I@@@[@Q@@^#[#@@@TYP01 [@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@QK )@@G@@@@@@@@]@]@@A05, CL[@V@@@@@@@@@[[#__$^@[CD'@@@@@[@@@J__@@@@@@]@]@@AOSED QL )@@G@@[@V@@@@@@@@@[[#__$^@[CD'@@@@@]@@@J__@@@@@@]@]@@A [@V@@@@@@@@@#[#@@@QM )@@G@@FILE$TYP ]@[@@@@@@@@[[@I@@@[@Q@@^#[#@@@TYP02 [@X@@@@@@@@@A@]@@YQN )@@G@@01, 1968 STD TAPE [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$QO )@@G@@^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@QP )@@G@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@QQ )@@G@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@][@I@@@[@Q@@^#[#@@@TYP03 [@X@@@QR )@@G@@@@@@@@A@]@@Y02, IBM 368 TAPE [@2@@@]@[@@@@@@@@Y#[1@@@TAB QS )@@G@@ [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB QT )@@G@@ #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORDQU )@@G@@$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@#[@I@@@[@Q@@^#[#@@@TYP04 QV )@@G@@ [@X@@@@@@@@@A@]@@Y03, LION TAPE [@2@@@]@[@@@@@@@@YQW )@@G@@#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4QX )@@G@@#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB QY )@@G@@#[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@^[@I@@@[@Q@@^QZ )@@G@@#[#@@@TYP05 [@X@@@@@@@@@A@]@@Y04, CFH TAPE [@2@@@RA )@@G@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@RB )@@G@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@RC )@@G@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@ RD )@@G@@[@I@@@[@Q@@^#[#@@@TYP06 [@X@@@@@@@@@A@]@@Y05, SEQ MASS-STORAGE RE )@@G@@ [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?RF )@@G@@[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@RG )@@G@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP RH )@@G@@]@[@@@@@@@@A[@I@@@[@Q@@^#[#@@@TYP07 [@X@@@@@@@@@A@]@@Y06, DIRECT FRI )@@G@@ILE [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@RJ )@@G@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR RK )@@G@@[@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@RL )@@G@@FILE$TYP ]@[@@@@@@@@B[@I@@@[@Q@@^#[#@@@TYP10 [@X@@@@@@@@@A@]@@YRM )@@G@@07, ISAM (NOT MSAM) [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$RN )@@G@@^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@RO )@@G@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@RP )@@G@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@C[@I@@@[@Q@@^#[#@@@TYP11 [@X@@@RQ )@@G@@@@@@@@A@]@@Y010, PRINTER [@2@@@]@[@@@@@@@@Y#[1@@@TAB RR )@@G@@ [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB RS )@@G@@ #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORDRT )@@G@@$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@D[@I@@@[@Q@@^#[#@@@TYP12 RU )@@G@@ [@X@@@@@@@@@A@]@@Y011, CARD-PUNCH [@2@@@]@[@@@@@@@@YRV )@@G@@#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4RW )@@G@@#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB RX )@@G@@#[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@E[@I@@@[@Q@@^RY )@@G@@#[#@@@TYP13 [@X@@@@@@@@@A@]@@Y012, CARD-READER [@2@@@RZ )@@G@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@SA )@@G@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@SB )@@G@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@FSC )@@G@@[@I@@@[@Q@@^#[#@@@TYP14 [@X@@@@@@@@@A@]@@Y013, FORM01, 02, 03 TAPESD )@@G@@ [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?SE )@@G@@[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@SF )@@G@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP SG )@@G@@]@[@@@@@@@@G[@I@@@[@Q@@^#[#@@@TYP15 [@X@@@@@@@@@A@]@@Y014, DEVICE SH )@@G@@INDEPENDENT [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@SI )@@G@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR SJ )@@G@@[@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@SK )@@G@@FILE$TYP ]@[@@@@@@@@H[@I@@@[@Q@@^#[#@@@TYP16 [@X@@@@@@@@@A@]@@YSL )@@G@@015, SEQ SDF (NOT PCIOS) [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$SM )@@G@@^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@SN )@@G@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@SO )@@G@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@I[@I@@@[@Q@@^#[#@@@TYP17 [@X@@@SP )@@G@@@@@@@@A@]@@Y016, DIRECT SDF (NOT PCIOS) [@2@@@]@[@@@@@@@@Y#[1@@@TAB SQ )@@G@@ [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB SR )@@G@@ #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORDSS )@@G@@$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@J[@I@@@[@Q@@^#[#@@@TYP20 ST )@@G@@ [@X@@@@@@@@@A@]@@Y017, INFO INTERCHANGE [@2@@@]@[@@@@@@@@YSU )@@G@@#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4SV )@@G@@#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB SW )@@G@@#[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@K[@I@@@[@Q@@^SX )@@G@@#[#@@@TYP21 [@X@@@@@@@@@A@]@@Y020, TAPE [@2@@@SY )@@G@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@SZ )@@G@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TA )@@G@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@LTB )@@G@@[@I@@@[@Q@@^#[#@@@TYP22 [@X@@@@@@@@@A@]@@Y021, SEQ DISK TC )@@G@@ [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@_#_@@@@@@CC?TD )@@G@@[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR [@2@@@]@[@@@TE )@@G@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@FILE$TYP TF )@@G@@]@[@@@@@@@@M[@I@@@[@Q@@^#[#@@@TYP23 [@X@@@@@@@@@A@]@@Y022, RELATIVTG )@@G@@E DISK [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$^@[CD']@0@@@TH )@@G@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@FCB$ADR TI )@@G@@[@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@@@@@@@#[#@@@TJ )@@G@@FILE$TYP ]@[@@@@@@@@N[@I@@@[@Q@@^#[#@@@TEND [@X@@@@@@@@@A@]@@YTK )@@G@@023, MSAM FILE [@2@@@]@[@@@@@@@@Y#[1@@@TAB [[#__$TL )@@G@@^@[CD']@0@@@_#_@@@@@@CC?[@Y@@@[@2@@@]@[@@@@@@@@4#[1@@@TAB #[#@@@TM )@@G@@FCB$ADR [@2@@@]@[@@@@@@@[]#[1@@@TAB #[#@@@RECORD$ADR [@W@@@TN )@@G@@@@@@@@[[#__:^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@FCB$ADR ^@[CD'@^@@@^@/@J__TO )@@G@@@@@CC$[@Y@@@[@V@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@FCB$ADR TP )@@G@@^@[CD'@^@@@^@/@J__@@@CC$[@Y@@@[@V@@@@@@@@@#[P@@@FD$FILE$SW ]@[@@@@@@@@[TQ )@@G@@[@0@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@#[@F@@@#[#@@@FILE$TYP ]@[@@@TR )@@G@@@@@@@^[@F@@@[@K@@@#[#@@@FILE$TYP ]@[@@@@@@@@F[@F@@@[@K@@@[@Q@@^#[#@@@TS )@@G@@MAIN$100 [@X@@@@@@@@@#[P@@@FD$FILE$SW #[#@@@ASCII$OFF$SW[@0@@@@@@@@@TT )@@G@@#[#@@@FILE$TYP ]@[@@@@@@@@E[@F@@@#[#@@@FILE$TYP ]@[@@@@@@@@K[@F@@@TU )@@G@@[@K@@@[@Q@@^#[#@@@MAIN$110 [@X@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@TV )@@G@@#[#@@@FD$FILE$SW ]@[@@@@@@@@@[@F@@@[@Q@@E[[#__:^@[CD'@@@@@@@@@@@@@@@@@@TW )@@G@@[@Y@@@]@[@@@@@@@@^[@A@@@[@V@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@TX )@@G@@FD$FILE$SW ]@[@@@@@@@@[[@F@@@[@Q@@E[[#__:^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@TY )@@G@@]@[@@@@@@@@A[@A@@@[@V@@@@@@@@@#[#@@@MAIN$150 [@X@@@@@@@@@#[#@@@FD$FILTZ )@@G@@E$SW ]@[@@@@@@@@[[@F@@@[@Q@@^#[#@@@MAIN$120 [@X@@@@@@@@@[[#__:^@[CD'UA )@@G@@@@@@@@@@@@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@^[@B@@@UB )@@G@@[@V@@@@@@@@@#[P@@@REC$SIZ$REM [[#__\]@[@@@@@@@@^[@7@@@[@0@@@@@@@@@[[#__:UC )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@REC$SIZ$REM ]@[@@@@@@@@@[@D@@@[@Q@@E[[#__:UD )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@[[@^@@@[@V@@@@@@@@@#[#@@@MAIN$1UE )@@G@@50 [@X@@@@@@@@@[[#__:^@[CD'@@@@@@@@@@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@UF )@@G@@@@@@@@[@Y@@@]@[@@@@@@@@A[@B@@@[@V@@@@@@@@@#[P@@@REC$SIZ$REM [[#__\]@[@@@UG )@@G@@@@@@@A[@7@@@[@0@@@@@@@@@[[#__:^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@REC$SIZ$REM UH )@@G@@]@[@@@@@@@@@[@D@@@[@Q@@E[[#__:^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@[UI )@@G@@[@^@@@[@V@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@^@]@@JRECORD LENGTH: [[#__:UJ )@@G@@^@[CD'@@)@@@@#_@@@@@@@@@[@Y@@@#@]@@D(WORDS), [[#__\^@[CD'@@)@@@@#_@@@UK )@@G@@@@@@@@[@Y@@@^@]@@I(CHARACTERS), [[#__:^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@UL )@@G@@^@]@@K(WORDS IN OCTAL) [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@UM )@@G@@[@Q@@^#[#@@@MAIN$160 [@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$COUNT UN )@@G@@]@[@@@@@@@@^[@^@@@[@D@@@[@Q@@^#[#@@@MAIN$160 [@X@@@@@@@@@#[P@@@JUMP$$UO )@@G@@SW #[#@@@MAIN$160 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@#[#@@@UP )@@G@@FILE$STATUS ]@[@@@@@@@@@[@F@@@#[#@@@FILE$STATUS ]@[@@@@@@@@#[@D@@@[@K@@@UQ )@@G@@[@Q@@^#[#@@@MAIN$190 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@ @]@@SCURRENUR )@@G@@T RECORD IN OCTAL:[@W@@@@@@@@@[@2@@@]@[@@@@@@@@@#[1@@@AD$RESET [@W@@@US )@@G@@@@@@@@#[#@@@MAIN$164 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT UT )@@G@@]@[@@@@@@@@][@^@@@[@0@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@B@]@@=CURRENT RECOUU )@@G@@RD IN OCTAL (CONTINUED):[@W@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET UV )@@G@@[@W@@@@@@@@@[@2@@@#[#@@@RECORD$ADR [[#__:^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@UW )@@G@@]@[@@@@@@@@[]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREEN$SIZE UX )@@G@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$170 [@X@@@@@@@@@#[#@@@SCREEN$SIZE UY )@@G@@#[#@@@LINE$COUNT [@D@@@[@Q@@^#[#@@@MAIN$170 [@X@@@@@@@@@#[P@@@JUMP$$UZ )@@G@@SW [[#_.R[@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[#@@@SCREEN$SIZE VA )@@G@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$172 [@X@@@@@@@@@#[P@@@LINE$COUNT VB )@@G@@#[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@VC )@@G@@LINE$COUNT ]@[@@@@@@@@^[@^@@@[@D@@@[@Q@@^#[#@@@MAIN$172 [@X@@@@@@@@@VD )@@G@@#[P@@@JUMP$$SW #[#@@@MAIN$172 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@VE )@@G@@@@@@@@#[#@@@FD$FILE$SW ]@[@@@@@@@@[[@F@@@[@Q@@^#[#@@@MAIN$180 [@X@@@VF )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@ @]@@SCURRENT RECORD IN ASCII:[@W@@@@@@@@@VG )@@G@@[@2@@@]@[@@@@@@@@@#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$176 [@X@@@VH )@@G@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@VI )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@B@]@@=CURRENT RECORD IN ASCII (CONTINUED):[@W@@@VJ )@@G@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@[@2@@@#[#@@@RECORDVK )@@G@@$ADR [[#__:^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@]]@[@@@@@@@@[#[1@@@VL )@@G@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@VM )@@G@@MAIN$180 [@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$COUNT [@D@@@[@Q@@^VN )@@G@@#[#@@@MAIN$180 [@X@@@@@@@@@#[P@@@JUMP$$SW [[#_.B[@0@@@@@@@@@#[#@@@VO )@@G@@EXIT [@X@@@@@@@@@#[#@@@FD$FILE$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@VP )@@G@@MAIN$190 [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@VQ )@@G@@MAIN$182 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@]VR )@@G@@[@^@@@[@0@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$COUNT ]@[@@@@@@@@^[@^@@@VS )@@G@@[@D@@@[@Q@@^#[#@@@MAIN$182 [@X@@@@@@@@@#[P@@@JUMP$$SW #[#@@@MAIN$1VT )@@G@@82 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@VU )@@G@@A@]@@VCURRENT RECORD IN FIELDATA:NTI[@W@@@@@@@@@[@2@@@]@[@@@@@@@@@#[1@@@VV )@@G@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$186 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@VW )@@G@@@@@@@@C@]@@$CURRENT RECORD IN FIELDATA (CONTINUED):CTI[@W@@@@@@@@@[@2@@@VX )@@G@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@[@2@@@#[#@@@RECORD$ADR [[#__:VY )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@#]@[@@@@@@@@[#[1@@@AD$DUMP VZ )@@G@@[@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@K[@E@@@[@Q@@^#[#@@@DONE WA )@@G@@[@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$195 WB )@@G@@[@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$COUNT ]@[@@@@@@@@C[@^@@@[@D@@@WC )@@G@@[@Q@@^#[#@@@MAIN$195 [@X@@@@@@@@@#[P@@@JUMP$$SW #[#@@@MAIN$195 WD )@@G@@[@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$CWE )@@G@@OUNT ]@[@@@@@@@@C[@^@@@[@0@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@N[@F@@@WF )@@G@@[@Q@@^#[#@@@MAIN$400 [@X@@@@@@@@@#[P@@@FCT$ADR #[#@@@FCB$ADR WG )@@G@@^@[CD'@^@@@F@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@PFCB$ADR #[#@@@FCT$ADWH )@@G@@R ^@[CD'@^@@@]@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@BCB$ADR #[#@@@WI )@@G@@FCT$ADR ^@[CD'@^@@@#@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@]@]@@[@@@@@ [@W@@@WJ )@@G@@@@@@@@B@]@@ZPHYSICAL RECORD SIZE IN WORDS: TINUE#[#@@@BCB$ADR ^@[CD'WK )@@G@@@^@@@#@/@J__@@@CC([@Y@@@#@]@@E(OCTAL) #[#@@@BCB$ADR ^@[CD'@^)@@#WL )@@G@@@__J__@@@CC4[@Y@@@#@]@@D(DECIMAL) [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@WM )@@G@@A@]@@UPCIOS ADDRESS INFORMATION:RDS:[@W@@@@@@@@@#@]@@GFCT ADDRESS:#[#@@@WN )@@G@@FCT$ADR [@2@@@]@[@@@@@@@@T#[1@@@TAB #@]@@GFCB ADDRESS:#[#@@@WO )@@G@@PFCB$ADR [@2@@@]@[@@@@@@@@2#[1@@@TAB #@]@@GBCB ADDRESS:#[#@@@WP )@@G@@BCB$ADR [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#@]@@FI/O PACKET: [@W@@@WQ )@@G@@@@@@@@#[#@@@BCB$ADR ^@[CD'[@6@@@_#_@@@@@@CC+[@Y@@@#[#@@@BCB$ADR WR )@@G@@^@[CD'#@W@@]_#_J__@@@CC%[@Y@@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@WS )@@G@@[@F@@@[@Q@@^#[#@@@MAIN$197 [@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$CWT )@@G@@OUNT ]@[@@@@@@@@#[@^@@@[@D@@@[@Q@@^#[#@@@MAIN$197 [@X@@@@@@@@@#[P@@@WU )@@G@@JUMP$$SW #[#@@@MAIN$197 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@WV )@@G@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@#[#@@@WW )@@G@@FILE$TYP ]@[@@@@@@@@M[@F@@@[@Q@@^#[#@@@MAIN$200 [@X@@@@@@@@@]@]@@[WX )@@G@@@@@@@ [@W@@@@@@@@@^@]@@LBUFFER ADDRESSES: [@W@@@@@@@@@#@]@@DCURRENT: WY )@@G@@#[#@@@BCB$ADR ^@[CD'@^@@@^@/@J__@@@CC>[@Y@@@[@2@@@]@[@@@@@@@@T#[1@@@WZ )@@G@@TAB ]@]@@AFIRST:#[#@@@BCB$ADR ^@[CD'@^@@@A@/@J__@@@CC5[@Y@@@XA )@@G@@[@2@@@]@[@@@@@@@@2#[1@@@TAB #@]@@BSECOND: #[#@@@BCB$ADR XB )@@G@@^@[CD'@C@@@A@/@J__@@@CDA[@Y@@@[@W@@@@@@@@@#[#@@@MAIN$210 [@X@@@@@@@@@XC )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@A@]@@XRELATIVE FILE BUFFER ADDRESS::#[#@@@BCB$ADXD )@@G@@R ^@[CD'@^@@@^@/@J__@@@CC*[@Y@@@[@2@@@]@[@@@@@@@@%#[1@@@TAB XE )@@G@@ @]@@SRELATIVE RECORD NUMBER: #[#@@@BCB$ADR ^@[CD'@@)@@D@#_J__@@@@@@XF )@@G@@[@Y@@@[@W@@@@@@@@@#[#@@@BUFFER$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE XG )@@G@@ [@X@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@@[@F@@@#[#@@@FILE$STATUS XH )@@G@@]@[@@@@@@@@#[@D@@@[@K@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@BCB$ADXI )@@G@@R ^@[CD'@^@@@A@/@J__@@@CC+[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$3XJ )@@G@@10 [@X@@@@@@@@@#[#@@@ASCII$OFF$SW]@[@@@@@@@@[[@F@@@[@Q@@^#[#@@@MAIN$2XK )@@G@@60 [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$2XL )@@G@@15 [@X@@@@@@@@@#[#@@@LINE$COUNT ]@[@@@@@@@@ [@^@@@#[#@@@SCREEN$SIZE XM )@@G@@[@E@@@[@Q@@^#[#@@@MAIN$215 [@X@@@@@@@@@#[P@@@JUMP$$SW #[#@@@MAIN$2XN )@@G@@15 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@XO )@@G@@A@]@@WDUMP OF 1ST BUFFER IN ASCII:::[@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@XP )@@G@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@@#[1@@@AD$RESXQ )@@G@@ET [@W@@@@@@@@@#[#@@@MAIN$230 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@XR )@@G@@C@]@@*DUMP OF 1ST BUFFER IN ASCII (CONTINUED):TI[@W@@@@@@@@@#[P@@@LINE$CXS )@@G@@OUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@[XT )@@G@@#[1@@@AD$RESET [@W@@@@@@@@@[@2@@@#[#@@@BCB$ADR ^@[CD'@^@@@A@/@J__XU )@@G@@@@@CC&[@Y@@@#[#@@@BCB$ADR ^@[CD'@^@@@#@/@J__@@@CC,[@Y@@@]@[@@@@@@@@]XV )@@G@@]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@XW )@@G@@[@F@@@[@Q@@^#[#@@@MAIN$260 [@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREENXX )@@G@@$SIZE [@E@@@#[#@@@FILE$TYP ]@[@@@@@@@@M[@F@@@[@J@@@[@Q@@^#[#@@@DONE XY )@@G@@ [@X@@@@@@@@@#[P@@@JUMP$$SW #[#@@@LINE$COUNT #[#@@@SCREEN$SIZE XZ )@@G@@[@E@@@[@Q@@^#[#@@@MAIN$260 [@0@@@@@@@@@#[P@@@JUMP$$SW #[#@@@LINE$CYA )@@G@@OUNT #[#@@@SCREEN$SIZE [@H@@@[@Q@@][[#_/R[@0@@@@@@@@@#[#@@@LINE$COUNT YB )@@G@@#[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@NEWPAGE [@X@@@#[#@@@EXIT YC )@@G@@[@X@@@@@@@@@#[#@@@FLDTA$ON$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$310 YD )@@G@@[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@B@]@@ZDUMP OF 1ST BUFFER IN FIELDATAYE )@@G@@:NTINU[@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@YF )@@G@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@@#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$2YG )@@G@@80 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@D@]@@:DUMP OF 1ST BUFFER IN FIYH )@@G@@ELDATA (CONTINUED):N.THI[@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT YI )@@G@@]@[@@@@@@@@][@^@@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@YJ )@@G@@@@@@@@[@2@@@#[#@@@BCB$ADR ^@[CD'@^@@@A@/@J__@@@CC&[@Y@@@#[#@@@BCB$ADYK )@@G@@R ^@[CD'@^@@@#@/@J__@@@CC,[@Y@@@]@[@@@@@@@@#]@[@@@@@@@@[#[1@@@AD$DUMYL )@@G@@P [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$3YM )@@G@@10 [@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@#[#@@@FILE$TYN )@@G@@YP ]@[@@@@@@@@M[@F@@@[@J@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[P@@@YO )@@G@@JUMP$$SW #[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@MAIN$3YP )@@G@@10 [@0@@@@@@@@@#[P@@@JUMP$$SW #[#@@@LINE$COUNT #[#@@@SCREEN$SIZE YQ )@@G@@[@H@@@[@Q@@][[#_/F[@0@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@YR )@@G@@[@Q@@^#[#@@@NEWPAGE [@X@@@#[#@@@EXIT [@X@@@@@@@@@#[#@@@BCB$ADYS )@@G@@R ^@[CD'@C@@@A@/@J__@@@CC+[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE YT )@@G@@ [@X@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@M[@F@@@[@Q@@^#[#@@@DONE YU )@@G@@ [@X@@@@@@@@@#[#@@@ASCII$OFF$SW]@[@@@@@@@@[[@F@@@[@Q@@^#[#@@@MAIN$3YV )@@G@@60 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@A@]@@WDUMP OF 2ND BUFFER IN ASYW )@@G@@CII:TA[@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@YX )@@G@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@@#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$3YY )@@G@@30 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@C@]@@*DUMP OF 2ND BUFFER IN ASYZ )@@G@@CII (CONTINUED):D)[@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@ZA )@@G@@@@@@@][@^@@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@ZB )@@G@@[@2@@@#[#@@@BCB$ADR ^@[CD'@C@@@A@/@J__@@@CC&[@Y@@@#[#@@@BCB$ADR ZC )@@G@@^@[CD'@^@@@#@/@J__@@@CC,[@Y@@@]@[@@@@@@@@]]@[@@@@@@@@[#[1@@@AD$DUMP ZD )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$360 ZE )@@G@@[@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@#[#@@@FLDTA$ON$SW ZF )@@G@@]@[@@@@@@@@@[@F@@@[@J@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[P@@@JUMP$$ZG )@@G@@SW #[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@MAIN$360 ZH )@@G@@[@0@@@@@@@@@#[P@@@JUMP$$SW #[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@H@@@ZI )@@G@@[@Q@@][[#_;_[@0@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^ZJ )@@G@@#[#@@@NEWPAGE [@X@@@#[#@@@EXIT [@X@@@@@@@@@#[#@@@FLDTA$ON$SW ZK )@@G@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@ZL )@@G@@@@@@@@B@]@@ZDUMP OF 2ND BUFFER IN FIELDATA:NTINU[@W@@@@@@@@@#[P@@@LINE$CZM )@@G@@OUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@[@2@@@]@[@@@@@@@@@ZN )@@G@@#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$380 [@X@@@@@@@@@]@]@@[@@@@@ ZO )@@G@@[@W@@@@@@@@@D@]@@:DUMP OF 2ND BUFFER IN FIELDATA (CONTINUED):N.THI[@W@@@ZP )@@G@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@ZQ )@@G@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@[@2@@@#[#@@@BCB$ADR ZR )@@G@@^@[CD'@C@@@A@/@J__@@@CC&[@Y@@@#[#@@@BCB$ADR ^@[CD'@^@@@#@/@J__@@@CC,ZS )@@G@@[@Y@@@]@[@@@@@@@@#]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREENZT )@@G@@$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@LINE$CZU )@@G@@OUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[P@@@ZV )@@G@@JUMP$$SW [[#_;3[@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@]@]@@[@@@@@ ZW )@@G@@[@W@@@@@@@@@#[#@@@FCB$ADR ^@[CD'@0@@@B@/@J__@@@CC+[@Y@@@]@[@@@@@@@@@ZX )@@G@@[@I@@@[@Q@@^#[#@@@MAIN$450 [@X@@@@@@@@@C@]@@*PREVIOUS I/O OPERATION: ZY )@@G@@00, OPEN OR NONED)[@W@@@@@@@@@#[#@@@FCB$ADR ^@[CD'@0@@@B@/@J__@@@CC+ZZ )@@G@@[@Y@@@]@[@@@@@@@@[[@I@@@[@Q@@^#[#@@@MAIN$500 [@X@@@@@@@@@B@]@@-PREVIOAA )@@G@@US I/O OPERATION: 01, WRITEOR [@W@@@@@@@@@#[#@@@FCB$ADR ^@[CD'@0@@@BAB )@@G@@@/@J__@@@CC+[@Y@@@]@[@@@@@@@@^[@I@@@[@Q@@^#[#@@@MAIN$550 [@X@@@@@@@@@AC )@@G@@B@]@@-PREVIOUS I/O OPERATION: 04, STARTOR [@W@@@@@@@@@#[#@@@FCB$ADR AD )@@G@@^@[CD'@0@@@B@/@J__@@@CC+[@Y@@@]@[@@@@@@@@C[@I@@@[@Q@@^#[#@@@MAIN$600 AE )@@G@@[@X@@@@@@@@@B@]@@-PREVIOUS I/O OPERATION: 010, READOR [@W@@@@@@@@@#[P@@@AF )@@G@@BCB$ADR #[#@@@FCB$ADR ^@[CD'@^@@@F@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@AG )@@G@@#[P@@@IKT$ADR #[#@@@FCB$ADR ^@[CD'@^@@@Q@/@J__@@@CC>[@Y@@@[@0@@@AH )@@G@@@@@@@@#[P@@@BL$ ]@[@@@@@@@@[[@0@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@AI )@@G@@^@]@@HBCB ADDRESS: #[#@@@BCB$ADR [@2@@@]@[@@@@@@@@Y#[1@@@TAB AJ )@@G@@ A@]@@XNUMBER OF MSAM FILE BUFFERS: R#[#@@@BCB$ADR ^@[CD'@))@@@AK )@@G@@@__J__@@@CC5[@Y@@@[@W@@@@@@@@@#[P@@@IST$ADR #[#@@@IKT$ADR ^@[CD'AL )@@G@@@^@@@E@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@A@]@@VINDEXEAM )@@G@@D KEY TABLE ADDRESS: : R#[#@@@IKT$ADR [@2@@@]@[@@@@@@@@&#[1@@@TAB AN )@@G@@ A@]@@YINFO STATISTICS TABLE ADDRESS:#[#@@@IST$ADR [@W@@@@@@@@@AO )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@ @]@@PNUMBER OF KEY TYPES: AD#[#@@@IKT$ADR AP )@@G@@^@[CD'@@)@@]@#_J__@@@CC$#[#@@@Q1 [@R@@@[@Y@@@[@2@@@]@[@@@@@@@@YAQ )@@G@@#[1@@@TAB C@]@@%NUMBER OF KEY TYPES WHICH ALLOW DUPLICATES#[#@@@AR )@@G@@IKT$ADR ^@[CD'@@)@@]@#_J__@@@CD[#[#@@@Q2 [@R@@@[@Y@@@[@W@@@AS )@@G@@@@@@@@#[#@@@IKT$ADR ^@[CD'@4@@@F@/@J__@@@CC+[@Y@@@]@[@@@@@@@@@[@F@@@AT )@@G@@[@Q@@^#[#@@@MAIN$650 [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@C@]@@******BAU )@@G@@INGO*FILE*VALIDITY*THREATENED*****ES[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@AV )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$651 [@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@AW )@@G@@LINE$COUNT ]@[@@@@@@@@H[@^@@@[@D@@@[@Q@@^#[#@@@MAIN$651 [@X@@@@@@@@@AX )@@G@@#[P@@@JUMP$$SW #[#@@@MAIN$651 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@AY )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@Q#[1@@@TAB B@]@@-AZ )@@G@@MSAM INFORMATION STATISTICS TABLEED*[@W@@@@@@@@@[@2@@@]@[@@@@@@@@Q#[1@@@BA )@@G@@TAB B@]@@----------------------------------ED*[@W@@@@@@@@@#[#@@@BB )@@G@@IST$ADR ^@[CD'@@*@@@@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB BC )@@G@@ C@]@@$ = TOTAL NUMBER OF RECORDS WRITTEN WHEN*ES#@]@@GFILE CREATEDBD )@@G@@[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@[@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@BE )@@G@@@@@@@E#[1@@@TAB C@]@@$ = TOTAL NUMBER OF RECORDS CURRENTLY IN*ESBF )@@G@@]@]@@^@@FILE[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@]@#_J__@@@@@@[@Y@@@BG )@@G@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@+ = TOTAL NUMBER OF RECORDS WRIBH )@@G@@TTENLY[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@#@#_J__@@@@@@[@Y@@@[@2@@@BI )@@G@@]@[@@@@@@@@E#[1@@@TAB B@]@@Z = TOTAL NUMBER OF RECORDS READTENLYBJ )@@G@@[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@^@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@BK )@@G@@@@@@@E#[1@@@TAB B@]@@+ = TOTAL NUMBER OF RECORDS DELETEDLY[@W@@@BL )@@G@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@ @#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@EBM )@@G@@#[1@@@TAB B@]@@< = TOTAL NUMBER OF RECORDS MODIFIEDY[@W@@@@@@@@@BN )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$654 [@X@@@@@@@@@BO )@@G@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@C[@^@@@[@0@@@@@@@@@#[#@@@BP )@@G@@SCREEN$SIZE #[#@@@LINE$COUNT [@D@@@[@Q@@^#[#@@@MAIN$654 [@X@@@@@@@@@BQ )@@G@@#[P@@@JUMP$$SW #[#@@@MAIN$653 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@BR )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@A@#_J__@@@@@@BS )@@G@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@- = TOTAL NUMBER OF STARTBT )@@G@@ REQUESTSEDY[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@B@#_J__@@@@@@[@Y@@@BU )@@G@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@) = TOTAL NUMBER OF KEYS MODIFIBV )@@G@@EDSEDY[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@C@#_J__@@@@@@[@Y@@@[@2@@@BW )@@G@@]@[@@@@@@@@E#[1@@@TAB B@]@@= = TOTAL NUMBER OF INVALID KEY EXITSBX )@@G@@[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@D@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@BY )@@G@@@@@@@E#[1@@@TAB C@]@@& = TOTAL NUMBER OF DATA BLOCKS IN FILEN*ESBZ )@@G@@[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@E@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@CA )@@G@@@@@@@E#[1@@@TAB C@]@@$ = TOTAL NUMBER OF INDEX BLOCKS IN FILE*ESCB )@@G@@[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@F@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@CC )@@G@@@@@@@E#[1@@@TAB C@]@@& = TOTAL NUMBER OF TIMES FILE HAS BEENE*ESCD )@@G@@]@]@@ACLOSED[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@G@#_J__@@@@@@[@Y@@@CE )@@G@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@< = NUMBER OF RECORDS WRITTEN DCF )@@G@@URINGE#@]@@FCURRENT RUN [@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@H@#_J__CG )@@G@@@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@) = NUMBER OF RECORCH )@@G@@DS READ DURINGINGE#@]@@FCURRENT RUN [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@CI )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$656 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@CJ )@@G@@LINE$COUNT ]@[@@@@@@@@C[@^@@@[@0@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$CCK )@@G@@OUNT ]@[@@@@@@@@#[@^@@@[@D@@@[@Q@@^#[#@@@MAIN$656 [@X@@@@@@@@@#[P@@@CL )@@G@@JUMP$$SW #[#@@@MAIN$655 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@CM )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@I@#_J__@@@@@@[@Y@@@CN )@@G@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@< = NUMBER OF RECORDS DELETED DCO )@@G@@URINGE#@]@@FCURRENT RUN [@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@J@#_J__CP )@@G@@@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@= = NUMBER OF RECORCQ )@@G@@DS MODIFIED DURING#@]@@FCURRENT RUN [@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'CR )@@G@@@@*@@K@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB B@]@@+ = NUMCS )@@G@@BER OF START REQUESTS DURINGNG#@]@@FCURRENT RUN [@W@@@@@@@@@#[#@@@IST$ADCT )@@G@@R ^@[CD'@@*@@L@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB CU )@@G@@B@]@@- = NUMBER OF KEYS MODIFIED DURINGGNG#@]@@FCURRENT RUN [@W@@@@@@@@@CV )@@G@@#[#@@@IST$ADR ^@[CD'@@*@@M@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@CW )@@G@@TAB C@]@@> = NUMBER OF INVALID KEY EXITS DURINGNE*ES#@]@@FCURRENCX )@@G@@T RUN [@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@N@#_J__@@@@@@[@Y@@@[@2@@@CY )@@G@@]@[@@@@@@@@E#[1@@@TAB B@]@@= = NUMBER OF NEW DATA BLOCKS CREATEDCZ )@@G@@^@]@@MDURING CURRENT RUN[@W@@@@@@@@@#[#@@@IST$ADR ^@[CD'@@*@@O@#_J__DA )@@G@@@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB C@]@@> = NUMBER OF NEW IDB )@@G@@NDEX BLOCKS CREATEDNE*ES^@]@@MDURING CURRENT RUN[@W@@@@@@@@@#[#@@@IST$ADDC )@@G@@R ^@[CD'@@*@@P@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@TAB DD )@@G@@C@]@@$ = NUMBER OF BLOCKS READ DURING CURRENT*ES]@]@@#@@@RUN[@W@@@@@@@@@DE )@@G@@#[#@@@IST$ADR ^@[CD'@@*@@Q@#_J__@@@@@@[@Y@@@[@2@@@]@[@@@@@@@@E#[1@@@DF )@@G@@TAB B@]@@+ = NUMBER OF BLOCKS WRITTEN DURINGRR#@]@@FCURRENT RUN DG )@@G@@[@W@@@@@@@@@#[#@@@BCB$ADR ^@[CD'@)@@@@@/@J__@@@CC+[@Y@@@]@[@@@@@@@@@DH )@@G@@[@F@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@DI )@@G@@[@F@@@[@Q@@^#[#@@@MAIN$700 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$CDJ )@@G@@OUNT ]@[@@@@@@@@D[@^@@@[@0@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$COUNT DK )@@G@@]@[@@@@@@@@H[@^@@@[@D@@@[@Q@@^#[#@@@MAIN$700 [@X@@@@@@@@@#[P@@@JUMP$$DL )@@G@@SW #[#@@@MAIN$700 [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@]@]@@[DM )@@G@@@@@@@ [@W@@@@@@@@@#[P@@@MSAM$BUF$ST #[#@@@BCB$ADR ^@[CD'@C@@@@@/@@@@DN )@@G@@@@@CC2]@[@@@@@@@@]#[#@@@BL$ ]@[@@@@@@@@[[@ @@@]@[@@@@@@@@^[@A@@@DO )@@G@@[@^@@@[@N@@@[@Y@@@[@0@@@@@@@@@#[P@@@MSAM$BUF$END#[#@@@BCB$ADR ^@[CD'DP )@@G@@@^@@@@@/@@@@@@@CC2]@[@@@@@@@@]#[#@@@BL$ ]@[@@@@@@@@[[@ @@@]@[@@@DQ )@@G@@@@@@@^[@A@@@[@^@@@[@N@@@[@Y@@@[@0@@@@@@@@@#[P@@@MSAM$BUF$SIZ#[#@@@MSAM$BDR )@@G@@UF$END#[#@@@MSAM$BUF$ST [@ @@@[@0@@@@@@@@@#[#@@@MSAM$BUF$ST ^@[CD'@C@@@@DS )@@G@@@/@@@@@@@CC+[@Y@@@]@[@@@@@@@B_[@F@@@[@Q@@^#[#@@@MAIN$800 [@X@@@@@@@@@DT )@@G@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@]@]@@ADU )@@G@@BUFFER#[#@@@BL$ ^@]@@J START ADDRESS: #[#@@@BCB$ADR ^@[CD'DV )@@G@@@CQ@@@@__@@@@@@CC8]@[@@@@@@@@]#[#@@@BL$ ]@[@@@@@@@@[[@ @@@]@[@@@DW )@@G@@@@@@@^[@A@@@[@^@@@[@N@@@[@Y@@@^@]@@L END ADDRESS: #[#@@@BCB$ADR DX )@@G@@^@[CD'@^Q@@@@__@@@@@@CDL]@[@@@@@@@@]#[#@@@BL$ ]@[@@@@@@@@[[@ @@@DY )@@G@@]@[@@@@@@@@^[@A@@@[@^@@@[@N@@@[@Y@@@[@W@@@@@@@@@[@2@@@]@[@@@@@@@@G#[1@@@DZ )@@G@@TAB #@]@@GTYPE: INDEX,#[#@@@MSAM$BUF$ST ^@[CD'@@M@@@@#_@@@@@@CC:EA )@@G@@#[#@@@Q2 [@R@@@[@Y@@@#@]@@F LEVEL: #[#@@@MSAM$BUF$ST ^@[CD'EB )@@G@@@@M@@@@#_@@@@@@CC'#[#@@@Q1 [@R@@@[@Y@@@[@W@@@@@@@@@#[#@@@MSAM$BEC )@@G@@UF$ST ^@[CD'@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$9ED )@@G@@00 [@X@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@@[@F@@@#[#@@@FILE$STATUS EE )@@G@@]@[@@@@@@@@ [@F@@@[@K@@@[@Q@@^#[#@@@MAIN$900 [@X@@@@@@@@@#[#@@@BUFFEREF )@@G@@$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$900 [@X@@@@@@@@@#[#@@@AD$RESEG )@@G@@ET [@W@@@@@@@@@#[#@@@MAIN$752 [@X@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@EH )@@G@@AD$RESET [@W@@@@@@@@@[@2@@@#[#@@@MSAM$BUF$ST #[#@@@MSAM$BUF$SIZ]@[@@@EI )@@G@@@@@@@[]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[P@@@JUMP$$SW [[#_'3EJ )@@G@@[@0@@@@@@@@@#[#@@@MAIN$900 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$CEK )@@G@@OUNT ]@[@@@@@@@@#[@^@@@[@0@@@@@@@@@]@]@@ABUFFER#[#@@@BL$ ^@]@@JEL )@@G@@ START ADDRESS: #[#@@@BCB$ADR ^@[CD'@CQ@@@@__@@@@@@CC8]@[@@@@@@@@]EM )@@G@@#[#@@@BL$ ]@[@@@@@@@@[[@ @@@]@[@@@@@@@@^[@A@@@[@^@@@[@N@@@[@Y@@@EN )@@G@@^@]@@L END ADDRESS: #[#@@@BCB$ADR ^@[CD'@^Q@@@@__@@@@@@CDL]@[@@@EO )@@G@@@@@@@]#[#@@@BL$ ]@[@@@@@@@@[[@ @@@]@[@@@@@@@@^[@A@@@[@^@@@[@N@@@EP )@@G@@[@Y@@@[@W@@@@@@@@@[@2@@@]@[@@@@@@@@G#[1@@@TAB #@]@@ETYPE: DATA EQ )@@G@@[@W@@@@@@@@@#[#@@@BUFFER$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$900 ER )@@G@@[@X@@@@@@@@@#[P@@@JUMP$$SW #[#@@@MAIN$822 [@0@@@@@@@@@#[#@@@AD$RESES )@@G@@ET [@W@@@@@@@@@#[#@@@MAIN$824 [@X@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@ET )@@G@@AD$RESET [@W@@@@@@@@@#[#@@@ASCII$OFF$SW[@Q@@^#[#@@@MAIN$840 [@X@@@EU )@@G@@@@@@@@[@2@@@#[#@@@MSAM$BUF$ST #[#@@@MSAM$BUF$SIZ]@[@@@@@@@@]]@[@@@@@@@@[EV )@@G@@#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@FLDTA$ON$SW ]@[@@@@@@@@@[@F@@@[@Q@@^EW )@@G@@#[#@@@MAIN$900 [@X@@@@@@@@@[@2@@@#[#@@@MSAM$BUF$ST #[#@@@MSAM$BUF$SIZEX )@@G@@]@[@@@@@@@@#]@[@@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREEN$SIZE EY )@@G@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$910 [@X@@@@@@@@@#[#@@@SCREEN$SIZE EZ )@@G@@#[#@@@LINE$COUNT [@D@@@[@Q@@^#[#@@@MAIN$910 [@X@@@@@@@@@#[#@@@EXIT FA )@@G@@ [@X@@@@@@@@@#[P@@@BL$ #[#@@@BL$ ]@[@@@@@@@@[[@^@@@FB )@@G@@[@0@@@@@@@@@#[#@@@BL$ #[#@@@BCB$ADR ^@[CD'@)@@@@@/@J__@@@CC>FC )@@G@@[@Y@@@[@D@@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@FD )@@G@@@@@@@@[@F@@@[@Q@@][[#_';[@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINE$COUNT FE )@@G@@[@D@@@#[#@@@BUFFER$SW ]@[@@@@@@@@@[@F@@@[@J@@@[@Q@@][[#_';[@X@@@@@@@@@FF )@@G@@#[P@@@JUMP$$SW [[#_';[@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@#[#@@@FG )@@G@@FCB$ADR ^@[CD'@C@@@@@/@J__@@@CC+[@Y@@@]@[@@@@@@XA [@I@@@[@Q@@^#[#@@@FH )@@G@@NO$SORT [@X@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@FI )@@G@@NO$SORT [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@FJ )@@G@@BATCH$SORT [@X@@@@@@@@@#[#@@@SCREEN$SIZE #[#@@@LINECOUNT ]@[@@@@@@@@ FK )@@G@@[@^@@@[@D@@@[@Q@@^#[#@@@BATCH$SORT [@X@@@@@@@@@#[P@@@JUMP$$SW #[#@@@FL )@@G@@BATCH$SORT [@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@FM )@@G@@@@@@@@^@]@@KSORT INFORMATION [@W@@@@@@@@@A@]@@V SORT RECORD SIZE IN WORFN )@@G@@DS: DU#[#@@@C$M30A ^@[CD'@@@@#H@@@J__@@@@@@[@Y@@@^@[CD'@@)@[:@#_J__FO )@@G@@@@@@@@[@Y@@@[@W@@@@@@@@@A@]@@Y CORE START AND END ADDRESSES:#[#@@@C$M30AFP )@@G@@ ^@[CD'@@@@#H@@@J__@@@@@@[@Y@@@^@[CD'@C@@[?@/@J__@@@CC![@Y@@@]@]@@[FQ )@@G@@@@@@@/#[#@@@C$M30A ^@[CD'@@@@#H@@@J__@@@@@@[@Y@@@^@[CD'@^@@[?@/@J__FR )@@G@@@@@CC/[@Y@@@[@W@@@@@@@@@A@]@@Y INPUT AND OUTPUT ITEM COUNTS:#[#@@@C$M30AFS )@@G@@ ^@[CD'@@@@#H@@@J__@@@@@@[@Y@@@^@[CD'@@)@["@#_J__@@@@@@[@Y@@@]@]@@[FT )@@G@@@@@@@/#[#@@@C$M30A ^@[CD'@@@@#H@@@J__@@@@@@[@Y@@@^@[CD'@@)@]I@#_J__FU )@@G@@@@@@@@[@Y@@@[@W@@@@@@@@@#[P@@@JUMP$$SW ]@[@@@@@@@@@[@0@@@@@@@@@[[#__3FV )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@@@@@@@[[#__3^@[CD'@@@@@@@@@@@@FW )@@G@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@EXIT [@X@@@@@@@@@]@]@@[FX )@@G@@@@@@@ [@W@@@@@@@@@E@]@@3OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINFY )@@G@@UE,NFO[@W@@@@@@@@@A@]@@TOR USE AD$RESET FUNCTION.RESS [@W@@@@@@@@@[@4@@@FZ )@@G@@@@@@@@^@ @@@@@@@@ @@]@@Y015, S^@ @@@@@@@AMEXIT ^@ @@@@@@@AINEWPAGGA )@@G@@E ^@ @@@@@@@AGNO$SORT ^@ @@@@@@@ABBATCH$SORT ^@ @@@@@@@A[DONE GB )@@G@@ ^@ @@@@@@@ ;MAIN$910 ^@ @@@@@@@ 8MAIN$900 ^@ @@@@@@@ 6MAIN$8GC )@@G@@40 ^@ @@@@@@@ 4MAIN$824 ^@ @@@@@@@ 3MAIN$822 ^@ @@@@@@@ 0MAIN$8GD )@@G@@20 ^@ @@@@@@@ ?MAIN$800 ^@ @@@@@@@ (MAIN$752 ^@ @@@@@@@ *MAIN$7GE )@@G@@51 ^@ @@@@@@@ )MAIN$750 ^@ @@@@@@@ VMAIN$700 ^@ @@@@@@@ GMAIN$6GF )@@G@@56 ^@ @@@@@@@ FMAIN$655 ^@ @@@@@@@^"MAIN$654 ^@ @@@@@@@^.MAIN$6GG )@@G@@53 ^@ @@@@@@@^\MAIN$651 ^@ @@@@@@@^:MAIN$650 ^@ @@@@@@@^YMAIN$6GH )@@G@@00 ^@ @@@@@@@^WMAIN$550 ^@ @@@@@@@^UMAIN$500 ^@ @@@@@@@^SMAIN$4GI )@@G@@50 ^@ @@@@@@@^QMAIN$410 ^@ @@@@@@@^PMAIN$400 ^@ @@@@@@@^KMAIN$3GJ )@@G@@80 ^@ @@@@@@@^GMAIN$370 ^@ @@@@@@@^AMAIN$360 ^@ @@@@@@@^@MAIN$3GK )@@G@@30 ^@ @@@@@@@#/MAIN$320 ^@ @@@@@@@#4MAIN$310 ^@ @@@@@@@#,MAIN$2GL )@@G@@80 ^@ @@@@@@@#%MAIN$270 ^@ @@@@@@@#=MAIN$260 ^@ @@@@@@@#YMAIN$2GM )@@G@@30 ^@ @@@@@@@#UMAIN$220 ^@ @@@@@@@#PMAIN$215 ^@ @@@@@@@#HMAIN$2GN )@@G@@10 ^@ @@@@@@@#FMAIN$200 ^@ @@@@@@@# MAIN$197 ^@ @@@@@@@]4MAIN$1GO )@@G@@95 ^@ @@@@@@@]\MAIN$190 ^@ @@@@@@@],MAIN$186 ^@ @@@@@@@]:MAIN$1GP )@@G@@84 ^@ @@@@@@@]$MAIN$182 ^@ @@@@@@@]-MAIN$180 ^@ @@@@@@@]WMAIN$1GQ )@@G@@76 ^@ @@@@@@@]SMAIN$174 ^@ @@@@@@@]NMAIN$172 ^@ @@@@@@@]IMAIN$1GR )@@G@@70 ^@ @@@@@@@]DMAIN$164 ^@ @@@@@@@] MAIN$162 ^@ @@@@@@@]@MAIN$1GS )@@G@@60 ^@ @@@@@@@['MAIN$150 ^@ @@@@@@@[7MAIN$120 ^@ @@@@@@@[2MAIN$1GT )@@G@@10 ^@ @@@@@@@[\MAIN$100 ^@ @@@@@@@[(TEND ^@ @@@@@@@[$TYP23 GU )@@G@@ ^@ @@@@@@@[>TYP22 ^@ @@@@@@@[@G@@E:@F@@E7@H@@F]HI )@@G@@@F@@FJ@ @@FU@^@@FZ@^@@F<@^@@F$@^@@F:@^@@F\@^@@F3@^@@F7@^@@F;@^@@F_@K@@G#HJ )@@G@@@D@@GN@E@@GW@K@@G&@E@@G6@K@@H@@E@@HK@^@@HU@E@@HY@^@@H*@E@@H?@A@@H6@E@@H/HK )@@G@@@^@@IA@E@@IE@H@@IO@E@@I-@G@@I:@E@@I7@H@@J[@E@@JI@G@@JS@E@@J=@G@@J,@E@@J'HL )@@G@@@G@@K^@E@@KK@E@@KU@E@@K=@^@@K,@E@@K2@G@@K/@E@@LC@G@@LM@E@@LY@G@@L*@E@@L4HM )@@G@@@G@@L"@E@@ME@B@@MO@E@@MV@^@@M>@E@@M(@^@@M3@E@@M7@C@@N[@E@@ND@^@@NN@E@@NRHN )@@G@@@F@@N-@E@@N?@^@@N6@E@@N'@C@@O^@E@@OG@^@@OQ@E@@OU@H@@O=@E@@O1@G@@O;@E@@PBHO )@@G@@@H@@PL@E@@PY@G@@P*@E@@P4@G@@P"@E@@QE@G@@QO@E@@Q)@G@@Q%@E@@Q6@B@@R@@E@@RBHP )@@G@@@^@@RL@E@@RP@B@@RZ@E@@R&@^@@R0@E@@R4@H@@R"@E@@SF@H@@SP@E@@S+@H@@S?@E@@S9HQ )@@G@@@F@@T#@E@@TI@I@@TS@E@@T&@I@@T0@E@@T"@H@@UC@E@@UP@H@@UZ@E@@U?@G@@U6@E@@V]HR )@@G@@@D@@VG@E@@VP@^@@VZ@E@@V<@^@@V!@E@@V1@D@@V;@E@@W^@^@@WI@E@@WM@ @@WW@E@@W-HS )@@G@@@^@@W:@E@@W\@H@@W9@E@@XA@I@@XK@E@@XY@H@@X*@E@@X5@H@@X_@E@@YG@B@@YQ@E@@YXHT )@@G@@@^@@Y$@E@@Y:@H@@Y5@E@@Z]@F@@ZG@E@@ZR@E@@Z-@E@@Z:@G@@Z5@E@@)[@G@@)F@E@@)RHU )@@G@@@I@@)-@E@@)\@C@@)9@E@@-[@F@@-F@E@@-Q@G@@-)@E@@-?@H@@-6@E@@+#@G@@+H@E@@+THV )@@G@@@I@@+<@E@@+1@H@@+;@E@@[@F@@>F@E@@>Q@G@@>)@E@@>?@F@@>6@E@@&[HX )@@G@@@^@@&F@E@@&J@^@@&T@E@@&X@A@@&$@E@@&!@^@@&7@E@@&;@I@@$ @E@@$N@H@@$X@E@@$%HY )@@G@@@I@@$4@E@@*]@H@@*G@E@@*T@ @@*<@E@@**@^@@*2@E@@*6@^@@(@@E@@(^@ @@(I@E@@(NHZ )@@G@@@^@@(X@E@@(-@G@@(:@E@@(7@^@@%[@E@@% @^@@%J@E@@%N@A@@%X@E@@%<@^@@%!@E@@%1IA )@@G@@@G@@%;@E@@:B@G@@:L@E@@:X@E@@:$@E@@:1@G@@:;@E@@?B@G@@?L@E@@?X@C@@?$@E@@?\IB )@@G@@@^@@?9@E@@?.@^@@!B@E@@!F@A@@!P@E@@!V@^@@!>@E@@!(@G@@!3@E@@!_@G@@,D@E@@,PIC )@@G@@@E@@,Z@E@@,(@^@@,3@E@@,7@^@@\[@E@@\ @ @@\J@E@@\O@^@@\Y@E@@\+@H@@\?@E@@\9ID )@@G@@@G@@0#@E@@0J@ @@0T@E@@0Y@A@@0*@E@@0,@B@@08@E@@0_@B@@1D@E@@1K@E@@1U@E@@1=IE )@@G@@@D@@1,@E@@17@B@@2[@E@@2C@G@@2M@E@@2Y@F@@2*@E@@23@^@@2.@E@@3[@H@@3F@E@@3SIF )@@G@@@I@@3+@E@@30@D@@3'@E@@4#@^@@4H@E@@4L@F@@4V@E@@4&@G@@40@E@@4/@G@@5A@E@@5MIG )@@G@@@F@@5W@E@@5$@F@@51@E@@5/@F@@6A@E@@6L@^@@6V@E@@6Z@H@@6(@E@@66@I@@7@@E@@7IIH )@@G@@@F@@7S@E@@7<@C@@7!@E@@75@F@@7_@E@@8E@D@@8O@E@@8X@G@@8$@E@@83@G@@8.@E@@9DII )@@G@@@G@@9N@E@@9Z@E@@9(@E@@93@^@@9.@E@@'[@^@@'F@E@@'J@ @@'T@E@@'Y@^@@'*@E@@'?IJ )@@G@@@H@@'6@E@@;#@G@@;H@E@@;T@H@@;<@E@@;0@D@@;'@E@@/#@^@@/H@E@@/L@D@@/V@E@@/=IK )@@G@@@^@@/,@E@@/2@^@@//@E@@.@@A@@.E@E@@.K@^@@.U@E@@.Y@I@@.*@E@@.6@F@@"@@E@@"FIL )@@G@@@D@@"P@E@@"Y@^@@"*@E@@"?@I@@"6@E@@_^@^@@_I@E@@_M@H@@_W@E@@_(@H@@_3@E@[@@IM )@@G@@@^@[@E@E@[@I@^@[@S@E@[@W@A@[@&@E@[@?@^@[@6@E@[@'@F@[[^@E@[[J@^@[[T@E@[[XIN )@@G@@@^@[[$@E@[[:@C@[[5@E@[[.@^@[]B@E@[]F@G@[]P@E@[]-@G@[]:@E@[]7@G@[#[@E@[#HIO )@@G@@@H@[#R@E@[#=@G@[#,@E@[#'@D@[^^@E@[^H@^@[^R@E@[^V@^@[^>@E@[^(@C@[^3@E@[^;IP )@@G@@@^@[ @E@[ D@I@[ N@E@[ -@B@[ :@E@[ 2@^@[ /@E@[A@@C@[AE@E@[AM@A@[AW@E@[A+IQ )@@G@@@A@[A?@E@[A2@ @[A/@E@[B[@ @[BF@E@[BK@ @[BU@E@[BZ@A@[B(@E@[B\@A@[B9@E@[B_IR )@@G@@@ @[CD@E@[CI@A@[CS@E@[CY@A@[C*@E@[C,@A@[C8@E@[C"@A@[DC@E@[DI@ @[DS@E@[DXIS )@@G@@@A@[D$@E@[D!@^@[D7@E@[D;@H@[E @E@[EM@H@[EW@E@[E(@H@[E3@E@[F@@A@[FE@E@[FKIT )@@G@@@^@[FU@E@[FY@ @[F*@E@[F!@E@[F7@E@[G[@C@[GF@E@[GN@^@[GX@E@[G-@^@[G:@E@[G\IU )@@G@@@ @[G9@E@[G"@^@[HC@E@[HG@H@[HQ@E@[H<@H@[H!@E@[H'@I@[I^@E@[IM@F@[IW@E@[I$IV )@@G@@@^@[I1@E@[I5@H@[I_@E@[JG@H@[JQ@E@[J<@H@[J!@E@[J'@D@[K^@E@[KH@^@[KR@E@[KVIW )@@G@@@B@[K>@E@[K?@D@[K6@E@[K_@C@[LD@E@[LL@D@[LV@E@[L=@D@[L,@E@[L7@B@[M[@D@[MCIX )@@G@@@ @[ML@^@[MQ@J@[MU@]@[M(C-FF*)^@)^@)^@)C1AC*)A@)^[K^@)^@)AC)^@1^[EE(IA@2IY )@@G@@B@2^@)^@)DLPD00AK8AK)^@)^[ID9QAC9B@2^@)^@)D1JE01@@@@@@#[#@@@ENDDOC IZ )@@G@@[@X@@@@@@@@@F@]@@7THIS AD$ FUNCTION SERVES AS DOCUMENTATION ON HOW TO USJA )@@G@@ETA.N:[@W@@@@@@@@@C@]@@*THE ASCII COBOL DUMPBUSTER PACKAGE ACDP.N [@W@@@JB )@@G@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@@[@0@@@@@@@@@#[#@@@FNTQWM ]@[@@@JC )@@G@@@@@@@@[@I@@@[@Q@@ [@U@@@]@[@@@@@@@@#[@^@@@[@X@@@@@@@@@#[P@@@FNTQWM JD )@@G@@]@[@@@@@@@@[[@0@@@@@@@@@[[#__3^@[CCW@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@JE )@@G@@@@@@@@[[#__3^@[CCW@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@JF )@@G@@INIT$ [@X@@@@@@@@@#[#@@@MAIN$ [@X@@@@@@@@@#[P@@@SAVE$PLACE JG )@@G@@#[#@@@TEXT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@[[#__3^@[CCW@@@@@@@@@@@@JH )@@G@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@[[#__;]@[@@@@@@@@@[@D@@@[@Q@@^#[#@@@MAIN$ JI )@@G@@ [@X@@@@@@@@@G@]@@"IF YOU DESIRE SCREEN PAGING TYPE IN: AD$HELP(LINJJ )@@G@@ES$PER$SCREEN)@@@@[@W@@@@@@@@@D@]@@\IF YOU DO NOT WANT PAGING, JUST PRESJK )@@G@@S TRANSMIT.N[@W@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@SCREEN$SIZE JL )@@G@@[[#__;[@0@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@TEXT JM )@@G@@ [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@[[@^@@@JN )@@G@@[@0@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@H@@@[@Q@@^#[#@@@NEWPAGJO )@@G@@E [@X@@@@@@@@@#[P@@@SAVE$PLACE #[#@@@SAVE$PLACE ]@[@@@@@@@@][@^@@@JP )@@G@@[@0@@@@@@@@@#[#@@@SAVE$PLACE [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[JQ )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[JR )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[JS )@@G@@@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@O#[1@@@TAB JT )@@G@@ C@]@@>************************************* TRAN[@W@@@@@@@@@#[P@@@JU )@@G@@SAVE$PLACE [@U@@@]@[@@@@@@@@@[@^@@@[@0@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@JV )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@[@2@@@]@[@@@@@@@@O#[1@@@TAB JW )@@G@@C@]@@>* ACOB 5R2 DUMPBUSTER VERSION 2R1 * TRAN[@W@@@@@@@@@#[#@@@SCREENJX )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@[@2@@@]@[@@@@@@@@O#[1@@@JY )@@G@@TAB C@]@@>************************************* TRAN[@W@@@@@@@@@JZ )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ KA )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@KB )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$KC )@@G@@[@X@@@@@@@@@^@]@@K1. INTRODUCTION. [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@KD )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREENKE )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@9THE ASCII COBOL DUKF )@@G@@MPBUSTER PACKAGE (ACDP) IS A VERSATILE,REE[@W@@@@@@@@@#[#@@@SCREEN$SIZE KG )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@5EASY TO USE, INTERACTIVEKH )@@G@@ DEBUGGING TOOL FOR ANALYZINGI[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@KI )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@8ASCII COBOL PRGRAM DUMPS. THIS SYSTKJ )@@G@@EM OF INTERDEPENDENT,REE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@KK )@@G@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4FLIT FUNCTIONS HAS BEEN INCLUDED IN THE FLKL )@@G@@IT LIBRARYDE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$KM )@@G@@[@X@@@@@@@@@E@]@@1FILE, SYS$*FLIT$. ALL OF THE ACDP FLIT FUNCTIONSARYDEKN )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@KO )@@G@@E@]@@3HAVE A PREFIX OF 'AD$' TO DISTINGUISH THEM FROM THEYDE[@W@@@@@@@@@KP )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@(OTHER KQ )@@G@@FLIT FUNCTIONS FOUND IN SYS$*FLIT$.M[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@KR )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREENKS )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@5THE ACDP FLIT FUNCKT )@@G@@TION PACKAGE CAN BE USED IN EITHER E[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@KU )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6DEMAND OR BATCH MODE. IN DEMAKV )@@G@@ND MODE ACDP WILL FORMAT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@KW )@@G@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6ITS OUTPUT FOR A DEMAND SCREEN GIVING THE KX )@@G@@USER CONTROL[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$KY )@@G@@[@X@@@@@@@@@E@]@@6OF PAGE SCROLLING. IN BATCH MODE ACDP UTILIZES ALL 132KZ )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@LA )@@G@@ @]@@QCHARACTERS FOR OUTPUT.BA[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@LB )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE LC )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@LD )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@T2. DEMAND MOLE )@@G@@DE OPERATION.CH MO[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]LF )@@G@@[[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@LG )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@0THE FIRST ACDP FUNCTION THE USER SHOLH )@@G@@ULD CALL IS:[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$LI )@@G@@[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@LJ )@@G@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@U AD$INIT(20)E US[@W@@@@@@@@@LK )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ LL )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@LM )@@G@@F@]@@9THIS FUNCTION WILL LOAD YOUR DUMP FROM DIAG$, AND PERFORMREE[@W@@@LN )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6LO )@@G@@INITIALIZATION FOR ALL THE OTHER ACDP FUNCTIONS. THIS[@W@@@@@@@@@#[#@@@LP )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@7ACDP FUNCTIOLQ )@@G@@N MUST BE INVOKED FIRST TO ANALYZE AN ASCIIRMREE[@W@@@@@@@@@#[#@@@SCREENLR )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4COBOL PROGRAM DUMPLS )@@G@@. THE NUMBER 20 REFERENCED IN THECI[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@LT )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4FUNCTION CALL IS THE NUMBER OFLU )@@G@@ LINES FOR ACDP TO USECI[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@LV )@@G@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@2IN FORMATTING SCREEN OUTPUT FOR A DEMAND TLW )@@G@@ERMINAL.SECI[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$LX )@@G@@[@X@@@@@@@@@E@]@@4IF THIS PARAMETER IS OMITTED ACDP ASSUMES BATCH MODECILY )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@LZ )@@G@@ @]@@POUTPUT. FOR EXAMPLE:OMI[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@MA )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE MB )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@ @]@@Q AD$INITMIMC )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@MD )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$ME )@@G@@[@X@@@@@@@@@F@]@@8ANOTHER ACDP FUNCTION USED EXCLUSIVELY IN DEMAND MODE MF )@@G@@ISMREE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@MG )@@G@@@@@@@@F@]@@8AD$RESET. ALMOST ALL OF THE ACDP FUNCTIONS REQUIRE MOREMREEMH )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@MI )@@G@@F@]@@7THAN ONE SCREEN PAGES OF OUTPUT TO COMPLETE THEIR TASK.EMREE[@W@@@MJ )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@\MK )@@G@@THE AD$RESET FUNCTION MAY BE USED AFTER ANOTHERI[@W@@@@@@@@@#[#@@@SCREENML )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@[@ACDP FUNCTION HAS MM )@@G@@BEEN INITIATED TO CANCEL ITS OUTPUT, AND RESET@@[@W@@@@@@@@@#[#@@@SCREENMN )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@[@INTERNAL SCREEN HAMO )@@G@@NDLING VARIABLES. IF A MISTAKE IS MADE SUCH AS@@[@W@@@@@@@@@#[#@@@SCREENMP )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@7INVOKING A NEW ACDMQ )@@G@@P FUNCTION BEFORE THE CURRENT ONE HASE SUC[@W@@@@@@@@@#[#@@@SCREEN$SIZE MR )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@8COMPLETED, THE AD$RESET MS )@@G@@FUNCTION SHOULD CLEAR THE ERROR. SUC[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@MT )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6IF AD$RESET DOES NOT RESOLVE TMU )@@G@@HE ERROR, FLIT SHOULD BE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@MV )@@G@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@ZERROR TERMINATED AND RESTARTED.E ERR[@W@@@MW )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[MX )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@MY )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]MZ )@@G@@[[#__$[@X@@@@@@@@@B@]@@-3. DESCRIPTION OF ACDP FUNCTIONS.ERR[@W@@@@@@@@@NA )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ NB )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@NC )@@G@@#@]@@G3.1 AD$INIT.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]ND )@@G@@[[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@NE )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@8THE AD$INIT FUNCTION LOADS THE DUMP NF )@@G@@FROM THE DIAG$ FILE, SUC[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@NG )@@G@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@.INITIALIZES GLOBAL VARIABLES TO LOCATE INFNH )@@G@@ORMATION WITHIN THE AS@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@NI )@@G@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@9DUMP, SETS QUARTER WORD MODE ON, AND SETS NJ )@@G@@LINE SIZE AT 80 TH[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]NK )@@G@@[[#__$[@X@@@@@@@@@F@]@@7OR 132 CHACACTERS. THE FOLLOWING GLOBAL VARIABLNL )@@G@@ES WILL80 TH[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$NM )@@G@@[@X@@@@@@@@@ @]@@RBE SET UP FOR YOUR USE: [@W@@@@@@@@@#[#@@@SCREEN$SIZE NN )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@NO )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@7LC$00 NP )@@G@@ - ADDRESS OF MAIN PROGRAM WORKING-STORAGE80 TH[@W@@@@@@@@@#[#@@@SCREENNQ )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@!LC$01 - ADNR )@@G@@DRESS OF MAIN PROGRAM IBANKNG-[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@NS )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@(LC$02 - ADDRESS OF COMMON STNT )@@G@@ORAGEB[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@NU )@@G@@@@@@@@E@]@@4LC$04 - ADDRESS OF MAIN PROGRAM LITERAL POOLAG[@W@@@NV )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6NW )@@G@@FCB$LIST - ADDRESS OF MAIN PROGRAM FCB LIST $(06)[@W@@@@@@@@@#[#@@@NX )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@_PARAM$LIST NY )@@G@@ - ADDRESS OF MAIN PROGRAM OBJECT MODULE PARAMETERS@@[@W@@@@@@@@@#[#@@@NZ )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@U OA )@@G@@ LIST $(08) MAI[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]OB )@@G@@[[#__$[@X@@@@@@@@@D@]@@?SAR$ADR - ADDRESS OF SAVED AREA RECORDCT MOC )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@OD )@@G@@E@]@@1CTA$ADR - ADDRESS OF MAIN PROGRAM CTA TABLEDULE [@W@@@@@@@@@OE )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@/CURR$COF )@@G@@TA - ADDRESS OF CTA FOR LAST SUBPROGRAM EXECUTING[@W@@@@@@@@@#[#@@@OG )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4FILDIR$ADR OH )@@G@@ - ADDRESS OF MAIN PROGRAM FILDIR TABLEXE[@W@@@@@@@@@#[#@@@SCREEN$SIZE OI )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@_CURR$FILDIR - ADDRESS OJ )@@G@@OF FILDIR FOR LAST SUBPROGRAM EXECUTINGS@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE OK )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@7C$S$ADR - ADDRESS OL )@@G@@OF PROGRAM STOP IN USER PROGRAMXECUT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@OM )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@( FOR C$S LIBRARON )@@G@@Y ROUTINES.N[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$OO )@@G@@[@X@@@@@@@@@F@]@@7C$D$ADR - ADDRESS OF PROGRAM STOP IN USER PROGRAOP )@@G@@MXECUT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@OQ )@@G@@@@@@@@C@]@@( FOR C$D LIBRARY ROUTINES.N[@W@@@@@@@@@#[#@@@OR )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@OS )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[OT )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@OU )@@G@@@@@@@@^@]@@H3.2 AD$RESET. [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@OV )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE OW )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@0ACDP FUNCTION FOR RESETIOX )@@G@@NG DEMAND SCREEN SWITCH.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@OY )@@G@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@2THIS FUNCTION RESETS THE SWITCH USED BY OTOZ )@@G@@HER ACDPOGRA[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$PA )@@G@@[@X@@@@@@@@@D@]@@\FUNCTIONS FOR CONTROLLING DEMAND SCREEN OUTPUT.C[@W@@@PB )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[PC )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@PD )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]PE )@@G@@[[#__$[@X@@@@@@@@@^@]@@J3.3 AD$SUMMARY. [@W@@@@@@@@@#[#@@@SCREEN$SIZE PF )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@PG )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@[@THIS ACDP FUPH )@@G@@NCTION PRINTS A CORNUCOPIA OF INFORMATION CONCERNING@@[@W@@@@@@@@@#[#@@@PI )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@8YOUR DEAD (WPJ )@@G@@HOOPS, I MEAN STOPPED) ACOB PROGRAM. IT WILLNCER[@W@@@@@@@@@#[#@@@SCREENPK )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@[@IDENTIFY WHERE THEPL )@@G@@ PROGRAM STOPPED, LIST ALL ACTIVE SUBPROGRAMS,@@[@W@@@@@@@@@#[#@@@SCREENPM )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@9LIST A SUMMARY OF PN )@@G@@ALL FILES, AND SOME OTHER MISCELLANEOUSOGR[@W@@@@@@@@@#[#@@@SCREEN$SIZE PO )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@GINFORMATION.[@W@@@@@@@@@PP )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ PQ )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@PR )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$PS )@@G@@[@X@@@@@@@@@#@]@@G3.4 AD$REGS.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@PT )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE PU )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6THE AD$REGS FUNCTION PRIPV )@@G@@NTS OUT THE USER REGISTER SET.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@PW )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE PX )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@PY )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@K3.5 AD$WS$XXPZ )@@G@@XXX. [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@QA )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]QB )@@G@@[[#__$[@X@@@@@@@@@E@]@@4THERE ARE THREE ACDP FLIT FUNCTIONS FOR PRINTINGQC )@@G@@ THET.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@QD )@@G@@@@@@@@E@]@@2WORKING-STORAGE SECTION OF AN ASCII COBOL PROGRAM:HET.[@W@@@QE )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@%QF )@@G@@AD$WS$OCTAL, AD$WS$ASCII, AND AD$WS$FLDTA.[@W@@@@@@@@@#[#@@@SCREEN$SIZE QG )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@5EACH OF THESE FUNCTIONS QH )@@G@@WILL LIST THE WORKING-STORAGE.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@QI )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4SECTION FOR ALL THE PROGRAM UNITS COQJ )@@G@@LLECTED TOGETHERE.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]QK )@@G@@[[#__$[@X@@@@@@@@@A@]@@WWITHIN THE ABSOLUTE ELEMENT.UN[@W@@@@@@@@@#[#@@@QL )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@QM )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[QN )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@QO )@@G@@@@@@@@^@]@@K3.6 AD$CS$XXXXX. [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@QP )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE QQ )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4THERE ARE THREE ACDP FLIQR )@@G@@T FUNCTIONS FOR PRINTING THEE.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@QS )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@1COMMON-STORAGE SECTION OF AN ASCII CQT )@@G@@OBOL PROGRAM:THEE.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]QU )@@G@@[[#__$[@X@@@@@@@@@C@]@@%AD$CS$OCTAL, AD$CS$ASCII, AND AD$CS$FLDTA.[@W@@@QV )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[QW )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@QX )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]QY )@@G@@[[#__$[@X@@@@@@@@@#@]@@G3.7 AD$FILE.[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@QZ )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREENRA )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@;THE AD$FILE FUNCTIRB )@@G@@ON WILL PROVIDE THE FOLLOWING INFORMATIONR[@W@@@@@@@@@#[#@@@SCREEN$SIZE RC )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@6FOR A PARTICULAR FILE ORRD )@@G@@ ALL FILES WITHIN THE ABSOLUTE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@RE )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@CPROGRAM: [@W@@@@@@@@@#[#@@@SCREENRF )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@M FILE TYPERG )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@RH )@@G@@ @]@@O FILE STATUSE OR[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@RI )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@ @]@@O RECORD SIZEE OR[@W@@@@@@@@@RJ )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@> RK )@@G@@ PHYSICAL RECORD SIZE (BLOCK)THIN [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@RL )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@+ BUFFERS (IF BUFFER$SWRM )@@G@@:=1)CK[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@RN )@@G@@@@@@@@ @]@@R CURRENT RECORDF[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@RO )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@1 INFORMATION STATISTICRP )@@G@@S TABLE (MSAM ONLY)OLUTE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@RQ )@@G@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@: OTHER ASSORTED ADDRESS INFORMATIORR )@@G@@N ONLY[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@RS )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]RT )@@G@@[[#__$[@X@@@@@@@@@F@]@@/IF AD$FILE IS CALLED WITHOUT ANY PARAMETERS IT WRU )@@G@@ILL LIST ALL[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$RV )@@G@@[@X@@@@@@@@@G@]@@"THE FILES DEFINED WITHIN THE ABSOLUTE PROGRAM. THREE RW )@@G@@SWITCHESS,@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$RX )@@G@@[@X@@@@@@@@@B@]@@+ALSO AFFECT THE OUTPUT OF AD$FILE:UT[@W@@@@@@@@@#[#@@@RY )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@RZ )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@\SA )@@G@@ BUFFER$SW:=0 . BUFFERS ARE PRINTED [@W@@@@@@@@@#[#@@@SCREENSB )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@3 BUFFER$SWSC )@@G@@:=1 . BUFFERS ARE NOT PRINTEDEE [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@SD )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@3 FLDTA$ON$SW:=0 . FISE )@@G@@ELDATA IS NOT PRINTEDEE [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@SF )@@G@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@\ FLDTA$ON$SW:=1 . FIELDATA IS PRSG )@@G@@INTEDN[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@SH )@@G@@@@@@@@D@]@@? ASCII$OFF$SW:=0 . ASCII IS PRINTEDTEDN[@W@@@@@@@@@SI )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@0 SJ )@@G@@ ASCII$OFF$SW:=1 . ASCII IS NOT PRINTED[@W@@@@@@@@@#[#@@@SCREEN$SIZE SK )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SL )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@;THESE SWITCHSM )@@G@@ES ARE ALL SET TO ZERO IN THE AD$INIT FUNCTION.H[@W@@@@@@@@@#[#@@@SCREENSN )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@.IF YOU DESIRE TO MSO )@@G@@ODIFY ANY OF THESE SWITCH SETTINGS, IT MUSTSS,@@[@W@@@@@@@@@#[#@@@SCREENSP )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@:BE DONE AFTER CALLSQ )@@G@@ING THE AD$INIT FUNCTION. SETT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@SR )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@THOW ABOUT A FEW EXAMPLES? AD$I[@W@@@SS )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@0ST )@@G@@ 1. TO PRINT THE INFORMATION FOR ALL FILES:[@W@@@@@@@@@#[#@@@SCREENSU )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@Z SV )@@G@@ AD$FILEON FO[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]SW )@@G@@[[#__$[@X@@@@@@@@@E@]@@6 2. TO PRINT THE INFORMATION FOR FILE, ADVESX )@@G@@NTURE:[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@SY )@@G@@@@@@@@E@]@@2 AD$FILE('ADVENT','URE ')URE:[@W@@@SZ )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@1TA )@@G@@ 3. TO PRINT THE INFORMATION FOR FILE, ZORK:)URE:[@W@@@@@@@@@#[#@@@TB )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@( TC )@@G@@ AD$FILE('ZORK ')E[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@TD )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE TE )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@TF )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@G3.8 AD$DUMP.TG )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@TH )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$TI )@@G@@[@X@@@@@@@@@F@]@@/THE AD$DUMP FUNCTION WILL PRINT ANY PORTION OF MEMORY TJ )@@G@@GIVEN:[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@TK )@@G@@@@@@@@E@]@@1PROGRAM RELATIVE ADDRESS, SIZE, AND DISPLAY TYPE.MORY [@W@@@TL )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@'TM )@@G@@THE VALID DISPLAY TYPES ARE: 1=OCTAL, 2=ASCII, 3=FIELDATA.N:[@W@@@@@@@@@TN )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@=THE FOTO )@@G@@RMAT FOR THE FUNCTION CALL IS:[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@TP )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE TQ )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@- AD$DUMP(ADDRESS,STR )@@G@@IZE,TYPE)IS:[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$TS )@@G@@[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@TT )@@G@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@TU )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@H3.9 AD$INDEX. [@W@@@@@@@@@TV )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ TW )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@TX )@@G@@G@]@@_THE AD$INDEX FUNCTION IS USED TO CALCULATE THE DECIMAL VALUE OF,@@TY )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@TZ )@@G@@D@]@@\AN INDEX DEFINED WITHIN AN ASCII COBOL PROGRAM.D[@W@@@@@@@@@#[#@@@UA )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@=THE FORMAT FUB )@@G@@OR THE FUNCTION CALL IS:[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@UC )@@G@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@UD )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@"AD$INDEX(ADDRESS,SIZE-OF-DIMENUE )@@G@@SIONED-ITEM,SUBPROGRAM-CTA-ADDR)F,@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@UF )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREENUG )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@/THE SUBPROGRAM CTAUH )@@G@@ ADDRESS IS OPTIONAL. IF THIS FIELD IS NOT[@W@@@@@@@@@#[#@@@SCREEN$SIZE UI )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@'PRESENT AD$INDEX ASSUMESUJ )@@G@@ THE INDEX IS IN THE MAIN PROGRAM.OT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@UK )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREENUL )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@UM )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@H3.10 AUN )@@G@@D$HELP. [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$UO )@@G@@[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@UP )@@G@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@\THE AD$HELP IS THE ACDP DOCUMENTATION FUNCUQ )@@G@@TION.I[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@UR )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]US )@@G@@[[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@UT )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@U3.11 OTHER ACDP FUNCTIONS.CUME[@W@@@UU )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[UV )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@UW )@@G@@@@@@@@E@]@@6THE ACDP FLIT FUNCTION LIBRARY CONSISTS OF THREE OTHER[@W@@@UX )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@4UY )@@G@@FUNCTIONS: AD$TABLES, AD$F$SUBRTN, AND AD$FIND$STOP.ER[@W@@@@@@@@@#[#@@@UZ )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@3THE AD$TABLEVA )@@G@@S IS AN INTERNAL FUNCTION TO AID IN THE.ER[@W@@@@@@@@@#[#@@@SCREEN$SIZE VB )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@7DEBUGGING OF ACDP ITSELFVC )@@G@@. AD$FIND$STOP AND AD$F$SUBRTNAM.OT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@VD )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@E@]@@2ARE REFERENCED BY OTHER ACDP FVE )@@G@@UNCTIONS, AND SHOULDUBRT[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@VF )@@G@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@=NOT BE INVOKED DIRECTLY BY THE USER.[@W@@@VG )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[VH )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@VI )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]VJ )@@G@@[[#__$[@X@@@@@@@@@A@]@@T4.0 BATCH MODE OPERATION.Y THE[@W@@@@@@@@@#[#@@@VK )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@VL )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@"VM )@@G@@THE FOLLOWING IS AN EXAMPLE OF CANNING A RUNSTREAM FOR RUNNINGF,@@[@W@@@VN )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@ @]@@NVO )@@G@@ACDP IN BATCH MODE: EXAM[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@VP )@@G@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@VQ )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@Y @ELT,IL YOUR-PF.ACDP/BATCHVR )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@VS )@@G@@^@]@@M @TEST TNE/0/S2[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@VT )@@G@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@K @JUMP NODUMP [@W@@@@@@@@@#[#@@@SCREENVU )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@E @PMD,L [@W@@@VV )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@DVW )@@G@@ @FLIT [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$VX )@@G@@[@X@@@@@@@@@#@]@@F AD$INIT [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@VY )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@K BUFFER$SW:=1 [@W@@@@@@@@@#[#@@@VZ )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@I AD$SUMMAWA )@@G@@RY [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@WB )@@G@@@@@@@@#@]@@F AD$REGS [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@WC )@@G@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@J AD$CS$OCTAL [@W@@@@@@@@@#[#@@@SCREENWD )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@J AD$CS$ASCII WE )@@G@@[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@WF )@@G@@^@]@@J AD$WS$OCTAL [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@WG )@@G@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@J AD$WS$ASCII [@W@@@@@@@@@#[#@@@SCREENWH )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@F AD$FILE [@W@@@WI )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@^@]@@JWJ )@@G@@ @NODUMP:EOF [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]WK )@@G@@[[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@WL )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@/THIS RUNSTEAM ASSUMES ASCII DATA REPWM )@@G@@RESENTATION, A LONG @PMD[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@WN )@@G@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@'LISTING, AND HAVING ACDP PRINT THE BUFFER WO )@@G@@CONTENTS FOR ALLMD[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]WP )@@G@@[[#__$[@X@@@@@@@@@F@]@@;FILES. THE FOLLOWING IS AN EXAMPLE OF THE EXECUTWQ )@@G@@ION OF ACDPD[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$WR )@@G@@[@X@@@@@@@@@^@]@@IIN BATCH MODE: [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@WS )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREENWT )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@F @SETC,I [@W@@@WU )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@C@]@@$WV )@@G@@ @XQT YOUR-PF.PROGRAM-TO/BE-DEBUGGEDHE [@W@@@@@@@@@#[#@@@SCREEN$SIZE WW )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@A@]@@U @ADD YOR-PF.ACDP/BATWX )@@G@@CHO/BE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@WY )@@G@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@]WZ )@@G@@[[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@XA )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@#@]@@G5.0 SUMMARY.[@W@@@@@@@@@#[#@@@SCREENXB )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@XC )@@G@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@;WHILE XD )@@G@@A KNOWLEDGE OF FLIT IS NOT NECESSARY FOR USING ACDP,D[@W@@@@@@@@@#[#@@@XE )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@;IT COULD BE XF )@@G@@VERY HELPFUL. WITH THE FLIT FUNCTIONS PROVIDEDD[@W@@@@@@@@@#[#@@@SCREENXG )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@G@]@@.BY ACDP AND A SIMPXH )@@G@@LE KNOWLEDGE OF FLIT, THE REMAINS OF A DEADGF,@@[@W@@@@@@@@@#[#@@@SCREENXI )@@G@@$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@D@]@@,ASCII COBOL PROGRAXJ )@@G@@M CAN BE EXAMINED IN DETAIL.MA[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@XK )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE XL )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@;ACDP IS A PERSONAL PROJEXM )@@G@@CT AND I AM CONTINUOUSLY FIXING ANDA[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@XN )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@/IMPROVING IT. I WOULD APPRECIXO )@@G@@ATE BEING NOTIFIED IF YOU HAVE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@XP )@@G@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@F@]@@9PROBLEMS, FIXES, OR ENHANCEMENTS THAXQ )@@G@@T WOULD IMPROVE ACDP.AVE[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@XR )@@G@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@-YOU MAY FORWARD YOUR RESPONSE TO:THA[@W@@@XS )@@G@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@]@]@@[XT )@@G@@@@@@@ [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@XU )@@G@@@@@@@@ @]@@S SPERRY*UNIVAC[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@XV )@@G@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@- 1100 SYSTEMS EDUCATXW )@@G@@IONTHA[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@XX )@@G@@@@@@@@A@]@@T P.O. BOX 43942DUCAT[@W@@@@@@@@@#[#@@@SCREEN$SIZE XY )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@B@]@@= ST. PAUL, MINXZ )@@G@@NESOTA 55164[@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$YA )@@G@@[@X@@@@@@@@@B@]@@+ ATTN: ARTHUR V. ENGLISH64[@W@@@@@@@@@#[#@@@YB )@@G@@SCREEN$SIZE ]@[@@@@@@@@@[@I@@@[@Q@@][[#__$[@X@@@@@@@@@ @]@@S YC )@@G@@ MS-4492[@W@@@@@@@@@[[#__3^@[CCW@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@YD )@@G@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@H@]@[#OUTPUTYE )@@G@@ STILL AVAILABLE, PRESS TRANSMIT TO CONTINUE OR USE AD$RESET.@@@@@[@W@@@YF )@@G@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@[@CB$LIST$ ^@ @@@@@@@C#EXIT ^@ @@@YG )@@G@@@@@@C[NEWPAGE ^@ @@@@@@@B_DONE ^@ @@@@@@@@QTEXT ^@ @@@YH )@@G@@@@@@@MMAIN$1 ^@ @@@@@@@@KMAIN$ ^@ @@@@@@@@EINIT$ ^[ @@@YI )@@G@@@@@@@@INIT$SW ^@ @@@@@@@@^ENDDOC ^@ @@@@@@@@#NBR$OF$LINESE0)DC)YJ )@@G@@E))FC)^@)^@)^@)^@)^@)^@)^@)C- E@)D- CD^^[[CTODDQDDOFC)^[ ^[[^[M^[G^[D^[ YK )@@G@@@[@@]G@ @@]H@H@@]M@I@@]Z@H@@]!@H@@]'@B@@#B@^@@#I@H@@#M@F@@#Z@E@@#%@G@@#4YL )@@G@@@G@@^@@I@@^G@C@@^U@F@@^+@G@@^!@H@@^9@G@@ A@I@@ M@H@@ )@E@@ !@H@@ 7@E@@A^YM )@@G@@@^@@AI@D@@AM@D@@AV@D@@A=@D@@A!@D@@A6@B@@A_@E@@BA@J@@BK@ @@BZ@D@@B=@ @@B!YN )@@G@@@B@@B2@B@@B9@B@@C@@B@@CB@B@@CI@B@@CP@A@@CW@G@@C+@F@@C,@J@@C9@F@@DC@H@@DNYO )@@G@@@H@@D)@H@@D!@H@@D'@H@@EB@H@@EO@C@@E-@C@@E(@H@@E1@L@@E"@H@@FJ@#@@FW@L@@FZYP )@@G@@@H@@F0@#@@F.@H@@G@@H@@GH@H@@GU@H@@G$@H@@G4@H@@H[@H@@HI@B@@HV@G@@H+@F@@H,YQ )@@G@@@P@@H9@U@@II@V@@I*@ @@J#@H@@JC@B@@JP@E@@JW@E@@J&@E@@J0@E@@J'@J@@K^@E@@KNYR )@@G@@@E@@KX@D@@K$@B@@K0@G@@K7@H@@L#@I@@LK@Q@@LY@N@@L4@N@@MB@S@@MU@S@@M2@S@@NEYS )@@G@@@S@@N+@S@@N'@H@@OM@F@@OZ@L@@O%@D@@O;@ @@P^@E@@PD@F@@PN@B@@PY@B@@P>@H@@P?YT )@@G@@@O@@P9@B@@QH@B@@QO@H@@QV@G@@Q*@S@@Q4@W@@RG@V@@R*@Q@@S#@I@@ST@-@@S$@H@@TCYU )@@G@@@C@@TP@ @@TX@F@@T+@E@@T!@G@@T7@F@@U#@#@@UI@F@@UL@#@@UW@]@@UZ^@1^[EE(IA@2YV )@@G@@B@2^@)^@)DLPD00AK8AK)^@)^[ID9QAC9B@2^@)^@)D1JE01@@@@@@#[#@@@ENDDOC YW )@@G@@[@X@@@@@@@@@F@]@@8THE AD$INIT FUNCTION LOADS THE DUMP FROM THE DIAG$ FILYX )@@G@@E,UES.[@W@@@@@@@@@G@]@@.INITIALIZES GLOBAL VARIABLES TO LOCATE INFORMATIYY )@@G@@ON WITHIN THEDDR) [@W@@@@@@@@@F@]@@9DUMP, SETS QUARTER WORD MODE ON, ANDYZ )@@G@@ SETS LINE SIZE AT 80 TH[@W@@@@@@@@@F@]@@7OR 132 CHACACTERS. THE FOLLOWZA )@@G@@ING GLOBAL VARIABLES WILL80 TH[@W@@@@@@@@@ @]@@RBE SET UP FOR YOUR USE: ZB )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@F@]@@7LC$00 - ADDRESS OF MAIZC )@@G@@N PROGRAM WORKING-STORAGE80 TH[@W@@@@@@@@@D@]@@!LC$01 - ADDRESS ZD )@@G@@OF MAIN PROGRAM IBANKNG-[@W@@@@@@@@@C@]@@(LC$02 - ADDRESS OF COMZE )@@G@@MON STORAGEB[@W@@@@@@@@@E@]@@4LC$04 - ADDRESS OF MAIN PROGRAM LIZF )@@G@@TERAL POOLAG[@W@@@@@@@@@E@]@@6FCB$LIST - ADDRESS OF MAIN PROGRAM FCZG )@@G@@B LIST $(06)[@W@@@@@@@@@G@]@@_PARAM$LIST - ADDRESS OF MAIN PROGRAM OBZH )@@G@@JECT MODULE PARAMETERR) [@W@@@@@@@@@A@]@@U LIST $(08) MAIZI )@@G@@[@W@@@@@@@@@D@]@@?SAR$ADR - ADDRESS OF SAVED AREA RECORDCT M[@W@@@ZJ )@@G@@@@@@@@E@]@@1CTA$ADR - ADDRESS OF MAIN PROGRAM CTA TABLEDULE [@W@@@ZK )@@G@@@@@@@@F@]@@/CURR$CTA - ADDRESS OF CTA FOR LAST SUBPROGRAM EXECUTINGZL )@@G@@[@W@@@@@@@@@E@]@@4FILDIR$ADR - ADDRESS OF MAIN PROGRAM FILDIR TABLEXEZM )@@G@@[@W@@@@@@@@@G@]@@_CURR$FILDIR - ADDRESS OF FILDIR FOR LAST SUBPROGRAM ZN )@@G@@EXECUTINGR) [@W@@@@@@@@@F@]@@7C$S$ADR - ADDRESS OF PROGRAM STOP INZO )@@G@@ USER PROGRAMXECUT[@W@@@@@@@@@C@]@@( FOR C$S LIBRARY ROUTZP )@@G@@INES.N[@W@@@@@@@@@F@]@@7C$D$ADR - ADDRESS OF PROGRAM STOP IN USER ZQ )@@G@@PROGRAMXECUT[@W@@@@@@@@@C@]@@( FOR C$D LIBRARY ROUTINES.NZR )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[[#__<^@[CD'_@@@@@_@@@@@@@@CC)]@[@@@ZS )@@G@@@@@@@@[@V@@@@@@@@@[[#__<^@[CD'_@@@[@_@@J__@@@CC)]@[@@@@@@@@@[@V@@@@@@@@@ZT )@@G@@[[#_"_^@[CD'_@@@@@_@@@@@@@@CC)]@[@@@@@@@@@[@V@@@@@@@@@[[#_"_^@[CD'_@@@[@ZU )@@G@@_@@J__@@@CC)]@[@@@@@@@@@[@V@@@@@@@@@[[#__\^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@ZV )@@G@@@@@@@@[@V@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@@[@0@@@@@@@@@[[#__7]@[@@@ZW )@@G@@@@@@@@[@D@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@ZX )@@G@@@@@@@@[@Y@@@]@[@@@@@@@@[[@I@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@#[#@@@ZY )@@G@@MAIN$ [@X@@@@@@@@@[[#__$^@[CD'@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@ZZ )@@G@@@@@@@@#[#@@@LOADPMD [@W@@@@@@@@@#[P@@@LINSIZ ]@[@@@@@@@]^[@0@@@AA )@@G@@@@@@@@#[P@@@FNTQWM ]@[@@@@@@@@[[@0@@@@@@@@@#[P@@@BUFFER$SW ]@[@@@AB )@@G@@@@@@@@[@0@@@@@@@@@#[P@@@FLDTA$ON$SW ]@[@@@@@@@@@[@0@@@@@@@@@#[P@@@ASCII$AC )@@G@@OFF$SW]@[@@@@@@@@@[@0@@@@@@@@@#[P@@@LINES$OUT ]@[@@@@@@@@@[@0@@@@@@@@@AD )@@G@@#[P@@@SCREEN$SIZE [[#__;[@0@@@@@@@@@#[P@@@PCT$BAS [@2@@@#[#@@@PCT$BDAE )@@G@@I #[1@@@BANKBASE [@0@@@@@@@@@#[P@@@PCT$ADR #[#@@@PCT$BAS AF )@@G@@]@[@@@@@@_8@[@^@@@[@0@@@@@@@@@[[#_"3^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@PCT$ADAG )@@G@@R ^@[CD'@@@K@K@@@Z__@@@@@@[@Y@@@[@V@@@@@@@@@#[P@@@SAR$ADR #[#@@@AH )@@G@@C$S300 ]@[@@@@@@@@W[@^@@@[@0@@@@@@@@@#[P@@@C$D$ADR #[#@@@SAR$ADAI )@@G@@R ^@[CD'@^@@[L@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@C$S$ADR #[#@@@AJ )@@G@@SAR$ADR ^@[CD'@^@@[;@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@C$D$BDI AK )@@G@@#[#@@@SAR$ADR ^@[CD'@C@@[L@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@C$S$BDAL )@@G@@I #[#@@@SAR$ADR ^@[CD'@C@@[;@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@AM )@@G@@CTA$ADR #[#@@@SAR$ADR ^@[CD'@C@@@#@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@AN )@@G@@#[P@@@FILDIR$ADR #[#@@@SAR$ADR ^@[CD'@C@@@^@/@J__@@@CC>[@Y@@@[@0@@@AO )@@G@@@@@@@@#[P@@@CURR$CTA #[#@@@CTA$ADR [@0@@@@@@@@@#[P@@@CURR$FILDIR AP )@@G@@#[#@@@FILDIR$ADR [@0@@@@@@@@@#[P@@@SUBPROG$SW #[#@@@SAR$ADR ^@[CD'AQ )@@G@@@^@@[Z@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[#@@@CTA$ADR ^@[CD'@^@@@@@/@J__AR )@@G@@@@@CC+[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$2 [@X@@@@@@@@@#[P@@@AS )@@G@@CTA$ADR #[#@@@CTA$ADR ^@[CD'@^@@@@@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@AT )@@G@@[[#_"$[@X@@@@@@@@@#[#@@@FILDIR$ADR ^@[CD'@^@@@[@/@J__@@@CC+[@Y@@@]@[@@@AU )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$3 [@X@@@@@@@@@#[P@@@FILDIR$ADR #[#@@@AV )@@G@@FILDIR$ADR ^@[CD'@^@@@@@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@[[#_"<[@X@@@@@@@@@AW )@@G@@#[P@@@LC$00 #[#@@@CTA$ADR ^@[CD'@C@@@ @/@J__@@@CC>[@Y@@@[@0@@@AX )@@G@@@@@@@@#[P@@@LC$01$BDI #[#@@@CTA$ADR ^@[CD'@C@@@C@/@J__@@@CC>[@Y@@@AY )@@G@@[@0@@@@@@@@@#[P@@@LC$01 #[#@@@CTA$ADR ^@[CD'@^@@@C@/@J__@@@CC>AZ )@@G@@[@Y@@@[@0@@@@@@@@@#[P@@@LC$02 #[#@@@CTA$ADR ^@[CD'@^@@@ @/@J__BA )@@G@@@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@LC$04 #[#@@@CTA$ADR ^@[CD'@C@@@ABB )@@G@@@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@FCB$LIST #[#@@@CTA$ADR ^@[CD'BC )@@G@@@^@@@A@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@PARAM$LIST #[#@@@CTA$ADR BD )@@G@@^@[CD'@C@@@B@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@#[P@@@INDX1 ]@[@@@@@@@@@BE )@@G@@[@0@@@@@@@@@#[#@@@LC$02 ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$6 BF )@@G@@[@X@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@[@0@@@BG )@@G@@@@@@@@#[#@@@INDX1 ]@[@@@@@@@@#[@A@@@#[#@@@HDR ^@[CD'@C@@@QBH )@@G@@@/@J__@@@CC*[@Y@@@[@D@@@[@Q@@^#[#@@@MAIN$5 [@X@@@@@@@@@#[#@@@LC$02 BI )@@G@@ #[#@@@LCT ^@[CD'@^@@@@@/@@@@@@@CC\]@[@@@@@@@@##[#@@@INDX1 BJ )@@G@@ [@A@@@]@[@@@@@@@@][@^@@@[@N@@@[@Y@@@[@I@@@[@Q@@][[#_"V[@X@@@@@@@@@BK )@@G@@#[P@@@LC$02$SIZE #[#@@@LCT ^@[CD'@^@@@@@/@@@@@@@CC\]@[@@@@@@@@#BL )@@G@@#[#@@@INDX1 [@A@@@]@[@@@@@@@@ [@^@@@[@N@@@[@Y@@@#[#@@@LC$02 BM )@@G@@[@ @@@[@0@@@@@@@@@#[#@@@MAIN$6 [@X@@@@@@@@@F@]@@/ERROR IN CALCULATIBN )@@G@@NG SIZE OF BLANK$COMMON, SIZE SET TO 64!!![@W@@@@@@@@@#[P@@@LC$02$SIZE BO )@@G@@]@[@@@@@@@[@[@0@@@@@@@@@[[#__V^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@CTA$ADR BP )@@G@@[@V@@@@@@@@@[[#__R^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@FILDIR$ADR [@V@@@@@@@@@BQ )@@G@@[[#__N^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@LC$00 [@V@@@@@@@@@[[#__#^@[CD'BR )@@G@@@@@@@@@@@@@@@@@@@@#[#@@@LC$04 [@V@@@@@@@@@[[#__J^@[CD'@@@@@@@@@@@@BS )@@G@@@@@@@@#[#@@@CTA$ADR ^@[CD'@@@@@C@@@J__@@@@@@[@Y@@@[@V@@@@@@@@@[[#__FBT )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@FCB$LIST [@V@@@@@@@@@[[#__B^@[CD'@@@@@@BU )@@G@@@@@@@@@@@@@@#[#@@@PARAM$LIST [@V@@@@@@@@@[[#__Z^@[CD'@@@@@@@@@@@@@@@@@@BV )@@G@@]@[@@@@@@@@@[@V@@@@@@@@@#[P@@@INDX1 ]@[@@@@@@@@[[@0@@@@@@@@@#[#@@@BW )@@G@@SUBPROG$SW ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$9 [@X@@@@@@@@@#[P@@@BX )@@G@@SPT$ADR #[#@@@SUBPROG$SW ^@[CD'@^@@@B@/@J__@@@CC>[@Y@@@[@0@@@@@@@@@BY )@@G@@[[#__Z^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@SPT$ADR BZ )@@G@@[@V@@@@@@@@@[[#__<^@[CD'[@@@@@_@@@@@@@@CC$#[#@@@INDX1 ]@[@@@@@@@@]CA )@@G@@[@A@@@[@N@@@#[#@@@SPT$ADR ^@[CD'[@@@@@_@@@@@@@@CC,[@Y@@@[@V@@@@@@@@@CB )@@G@@[[#__V^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@SPT$ADR CC )@@G@@^@[CD'@^@@@]@/@J__@@@CC:[@Y@@@[@V@@@@@@@@@[[#__R^@[CD'@@@@@@@@@@@@@@@@@@CD )@@G@@#[#@@@INDX1 [@N@@@#[#@@@SPT$ADR ^@[CD'@^@@@#@/@J__@@@CC:[@Y@@@CE )@@G@@[@V@@@@@@@@@[[#__N^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@CF )@@G@@SPT$ADR ^@[CD'@^@@@]@/@J__@@@CC:[@Y@@@^@[CD'@C@@@ @/@J__@@@CC0[@Y@@@CG )@@G@@[@V@@@@@@@@@[[#__J^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@CH )@@G@@SPT$ADR ^@[CD'@^@@@]@/@J__@@@CC:[@Y@@@^@[CD'@@@@@C@@@J__@@@@@@[@Y@@@CI )@@G@@[@V@@@@@@@@@[[#__#^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@CJ )@@G@@SPT$ADR ^@[CD'@^@@@]@/@J__@@@CC:[@Y@@@^@[CD'@C@@@A@/@J__@@@CC0[@Y@@@CK )@@G@@[@V@@@@@@@@@[[#__F^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@CL )@@G@@SPT$ADR ^@[CD'@^@@@]@/@J__@@@CC:[@Y@@@^@[CD'@^@@@A@/@J__@@@CC0[@Y@@@CM )@@G@@[@V@@@@@@@@@[[#__B^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@#[#@@@CN )@@G@@SPT$ADR ^@[CD'@^@@@]@/@J__@@@CC:[@Y@@@^@[CD'@C@@@B@/@J__@@@CC0[@Y@@@CO )@@G@@[@V@@@@@@@@@#[P@@@SPT$ADR #[#@@@SPT$ADR ^@[CD'@^@@@A@/@J__@@@CC>CP )@@G@@[@Y@@@[@0@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@CQ )@@G@@[@0@@@@@@@@@#[#@@@INDX1 ]@[@@@@@@@@_[@D@@@[@Q@@ [@U@@@]@[@@@@@@@@[CR )@@G@@[@^@@@[@X@@@#[#@@@MAIN$8 [@X@@@@@@@@@B@]@@+ERROR!!! PROGRAM TABLE OCS )@@G@@VERFLOW!!!$C[@W@@@@@@@@@#[#@@@MAIN$10 [@X@@@@@@@@@#[#@@@SPT$ADR CT )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@][[#_"J[@X@@@@@@@@@#[P@@@MAX$PROG$IX #[#@@@INDX1 CU )@@G@@ ]@[@@@@@@@@[[@ @@@[@0@@@@@@@@@#[P@@@INDX1 ]@[@@@@@@@@@[@0@@@CV )@@G@@@@@@@@#[P@@@MAX$FILE$IX ]@[@@@@@@@@@[@0@@@@@@@@@#[#@@@INDX1 #[#@@@CW )@@G@@MAX$PROG$IX [@D@@@[@Q@@^#[#@@@EXIT [@X@@@@@@@@@#[P@@@NBR$OF$FCBS CX )@@G@@[[#__F^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@^@[CD'@)@@@@CY )@@G@@@/@J__@@@CC?[@Y@@@[@0@@@@@@@@@#[P@@@INDX2 ]@[@@@@@@@@[[@0@@@@@@@@@CZ )@@G@@#[P@@@INDX3 ]@[@@@@@@@@@[@0@@@@@@@@@#[#@@@INDX2 #[#@@@NBR$OFDA )@@G@@$FCBS [@D@@@[@Q@@^#[#@@@MAIN$15 [@X@@@@@@@@@#[#@@@NBR$OF$FCBS ]@[@@@DB )@@G@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$15 [@X@@@@@@@@@#[P@@@FCBADDRESS [[#__FDC )@@G@@^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@^@[CD'@^@@@@@/@@@@DD )@@G@@@@@CC0#[#@@@INDX2 [@N@@@[@Y@@@[@0@@@@@@@@@#[#@@@FCBADDRESS ^@[CD'DE )@@G@@[@@@@@_@@@@@@@@CC+[@Y@@@[[#_"_^@[CD'[@@@@@_@@@@@@@@CC\#[#@@@INDX3 DF )@@G@@]@[@@@@@@@@][@A@@@[@N@@@[@Y@@@[@F@@@[@Q@@^#[#@@@MAIN$14 [@X@@@@@@@@@DG )@@G@@[[#_"_^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX3 ]@[@@@@@@@@][@A@@@[@N@@@DH )@@G@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@MAIN$1DI )@@G@@3 [@X@@@@@@@@@[[#_"_^@[CD'[@@@@@_@@@@@@@@CC$#[#@@@INDX3 ]@[@@@DJ )@@G@@@@@@@][@A@@@[@N@@@#[#@@@FCBADDRESS ^@[CD'[@@@@@_@@@@@@@@CC,[@Y@@@[@V@@@DK )@@G@@@@@@@@[[#_";^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX3 [@N@@@#[#@@@FCBADDDL )@@G@@RESS [@V@@@@@@@@@[[#_"7^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX3 [@N@@@DM )@@G@@[[#__R^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@^@[CD'@C@@@@DN )@@G@@@/@@@@@@@CC9]@[@@@@@@@@]#[#@@@INDX2 [@A@@@[@N@@@[@Y@@@[@V@@@@@@@@@DO )@@G@@#[#@@@INDX3 #[#@@@MAX$FILE$IX [@E@@@[@Q@@^#[#@@@MAIN$14 [@X@@@DP )@@G@@@@@@@@#[P@@@MAX$FILE$IX #[#@@@INDX3 [@0@@@@@@@@@#[#@@@MAIN$14 DQ )@@G@@[@X@@@@@@@@@#[P@@@INDX3 #[#@@@INDX3 ]@[@@@@@@@@[[@^@@@[@0@@@DR )@@G@@@@@@@@#[#@@@INDX3 ]@[@@@@@@@[@[@E@@@[@Q@@][[#_.;[@X@@@@@@@@@E@]@@2DS )@@G@@TOTAL NUMBER OF FILES EXCEED 64, TABLE OVERFLOW!!!T TO[@W@@@@@@@@@#[P@@@DT )@@G@@INDX2 #[#@@@INDX2 ]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@[[#_._[@X@@@DU )@@G@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@DV )@@G@@[[#_"#[@X@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@J]@SIZE ]@[@@@^@ @@@@@@@][EXIT DW )@@G@@ ^@ @@@@@@@[_MAIN$15 ^@ @@@@@@@[.MAIN$14 ^@ @@@@@@@['MAIN$1DX )@@G@@3 ^@ @@@@@@@[2MAIN$12 ^@ @@@@@@@[,MAIN$11 ^@ @@@@@@@[:MAIN$1DY )@@G@@0 ^@ @@@@@@@[*MAIN$9 ^@ @@@@@@@[$MAIN$8 ^@ @@@@@@@[TMAIN$7DZ )@@G@@ ^@ @@@@@@@[IMAIN$6 ^@ @@@@@@@[GMAIN$5 ^@ @@@@@@@[BMAIN$4EA )@@G@@ ^@ @@@@@@@@"MAIN$3 ^@ @@@@@@@@;MAIN$2 ^@ @@@@@@@@8MAIN$1EB )@@G@@ ^@ @@@@@@@@=MAIN$ ^@ @@@@@@@@+INIT$ ^[ @@@@@@@J[COND$WEC )@@G@@ORD ^[ @@@@@@@I[REC$ADR$ ^[ @@@@@@@H[FCB$ADR$ ^[ @@@@@@@F[FILE$NED )@@G@@AME$ ^[ @@@@@@@E[LC$04$ ^[ @@@@@@@D[PARAM$LIST$ ^[ @@@@@@@C[FCB$LIEE )@@G@@ST$ ^[ @@@@@@@B[LC$01$ ^[ @@@@@@@A[LC$00$ ^[ @@@@@@@ [FILDIREF )@@G@@$ADR$ ^[ @@@@@@@^[CTA$ADR$ ^[ @@@@@@@#[SPT$ADR$ ^[ @@@@@@@[[SUBPROEG )@@G@@GNAME$^[ @@@@@@@[@AD$INIT$SW ^[ @@@@@@@@[SCR$AREA ^[ @@@@@@@@@INIT$SEH )@@G@@W ^@ @@@@@@@@TENDDOC ^@ @@@@@@@@@LOADPMD$SW ^@ @@@@@@@@#NBR$OFEI )@@G@@$LINESETK^[#D9IC1DC8)E-]D))CLGC))^@)^[#D9^C*)FS)F*)FTEC-#F*)^@)^@)^@) K%EJ )@@G@@ K% K% K%^@)^@2A@)^@1^[NC(KA@2B@1^@)^@)ET E@3A@8AC)^@)^[EE(IAC7B@2^@)^@)EK )@@G@@DLPD)1A)8AK)^@)^@)AK0A@)@[@@@W@ @@@X@H@@@+@F@@@\@B@@@'@J@@[[@H@@[K@E@@[XEL )@@G@@@F@@[$@G@@[2@^@@["@H@@]]@^@@]J@J@@]N@J@@]+@G@@]1@Q@@].@ @@#N@Q@@#S@^@@#,EM )@@G@@@L@@#2@]@@^#B@2^@)^@)DL[D02BC8AK)^@)^[EE(GAC5B@2@@@@@@#[#@@@ENDDOC EN )@@G@@[@X@@@@@@@@@F@]@@/THIS ACDP FUNCTION IS USED TO CALCULATE THE DECIMAL VAEO )@@G@@LUE OF[@W@@@@@@@@@D@]@@\AN INDEX DEFINED WITHIN AN ASCII COBOL PROGRAM.IEP )@@G@@[@W@@@@@@@@@ @]@@PTHE FUNCTION CALL IS:IN [@W@@@@@@@@@H@]@[^ AD$INDEX(EQ )@@G@@ADDRESS,SIZE-OF-DIMENSIONED-ITEM,SUBPROGRAM-CTA-ADDR) .@@@@[@W@@@@@@@@@ER )@@G@@F@]@@/THE SUBPROGRAM CTA ADDRESS IS OPTIONAL. IF THIS FIELD IS NOT[@W@@@ES )@@G@@@@@@@@C@]@@&SUPPLIED, THE MAIN PROGRAM IS ASSUMED.. IF[@W@@@@@@@@@[[#__3ET )@@G@@[[#__3]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@CTA$ADR [@\@@@@@@@@@#[#@@@ASCII$EU )@@G@@OFF$SW]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$5 [@X@@@@@@@@@]@]@@[@@@@@ EV )@@G@@[@W@@@@@@@@@F@]@@/WARNING: FIELDATA USAGE ASSUMED IN CALCULATING INDEX VEW )@@G@@ALUES.[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[P@@@H1$ #[#@@@CTA$ADEX )@@G@@R ^@[CD'@C@@@@@/@@@@@@@CC$[[#__;[@N@@@[@Y@@@[@0@@@@@@@@@#[P@@@H2$ EY )@@G@@ #[#@@@CTA$ADR ^@[CD'@^@@@@@/@@@@@@@CC$[[#__;[@N@@@[@Y@@@[@0@@@EZ )@@G@@@@@@@@#[#@@@ASCII$OFF$SW]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$10 [@X@@@FA )@@G@@@@@@@@[[#_":^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@H1$ ]@[@@@@@@@@A[@B@@@FB )@@G@@#[#@@@H2$ ]@[@@@@@@@@A[@A@@@[@^@@@[[#__7[@B@@@[@V@@@@@@@@@#[#@@@FC )@@G@@MAIN$15 [@X@@@@@@@@@[[#_":^@[CD'@@@@@@@@@@@@@@@@@@#[#@@@H1$ FD )@@G@@]@[@@@@@@@@D[@B@@@#[#@@@H2$ ]@[@@@@@@@@^[@A@@@[@^@@@[[#__7[@B@@@FE )@@G@@[@V@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@A@]@@TVALUE OF INDEX AT ADDRESSSSUMEFF )@@G@@[[#__;]@]@@]@@@@IS[[#_":^@[CD'@@)@@@@#_@@@@@@@@@[@Y@@@[@W@@@@@@@@@[@4@@@FG )@@G@@@@@@@@^@ @@@@@@@J#@@X@@@@@@@@@^@ @@@@@@@@NMAIN$15 ^@ @@@@@@@@MMAIN$1FH )@@G@@0 ^@ @@@@@@@@HMAIN$5 ^[ @@@@@@@J]INDEX$VALUE ^[ @@@@@@@J[COND$WFI )@@G@@ORD ^[ @@@@@@@I[REC$ADR$ ^[ @@@@@@@H[FCB$ADR$ ^[ @@@@@@@F[FILE$NFJ )@@G@@AME$ ^[ @@@@@@@E[LC$04$ ^[ @@@@@@@D[PARAM$LIST$ ^[ @@@@@@@C[FCB$LIFK )@@G@@ST$ ^[ @@@@@@@B[LC$01$ ^[ @@@@@@@A[LC$00$ ^[ @@@@@@@ [FILDIRFL )@@G@@$ADR$ ^[ @@@@@@@^[CTA$ADR$ ^[ @@@@@@@#[SPT$ADR$ ^[ @@@@@@@[[SUBPROFM )@@G@@GNAME$^[ @@@@@@@[@AD$INIT$SW ^[ @@@@@@@@[SCR$AREA ^[ @@@@@@@@@INIT$SFN )@@G@@W ^@ @@@@@@@@CENDDOC ^@ @@@@@@@@$CTA$ADDRESS ^@ @@@@@@@@TINDEX$FO )@@G@@SIZE ^@ @@@@@@@@#INDEX$ADDR C8)E-]D))CLGC))^@)@[@@[O@ @@[P@G@@[U@B@@[&FP )@@G@@@J@@[!@C@@[/@ @@]^@ @@]D@C@@]I@D@@]Q@ @@]Z@^@@]=@^@@]*@^@@]?@^@@]0@^@@]4FQ )@@G@@@^@@]8@^@@]/@^@@#@@^@@#^@^@@#C@N@@#G@^@@#Z@O@@#<@G@@#7@H@@^#@A@@^K@ @@^QFR )@@G@@@G@@^V@G@@^$@B@@^3@C@@^'@ @@ ]@B@@ B@G@@ I@ @@ U@ @@ Z@C@@ =@^@@ ?@^@@ 0FS )@@G@@@^@@ 4@^@@ 8@^@@ /@^@@A@@^@@A^@^@@AC@^@@AG@-@@AK@^@@A1@(@@A5@G@@BY@H@@B%FT )@@G@@@A@@B7@ @@B.@F@@C]@H@@CH@E@@CU@G@@C=@B@@C0@A@@C7@ @@C.@D@@D]@]@@DFD9B^[DFU )@@G@@D1#^@)^[ F[ CS)C- E@)FTNF*)FTEC-#F*)^@)^@)^@)C1AC*)A@)^[K^@)A*0A*)^@1^[EFV )@@G@@E(GAC5B@0^@)^@)DLPD)1A)8AK)^@)^[[E(BAK6B@0^@)^@)@@@@@@#[#@@@ENDDOC FW )@@G@@[@X@@@@@@@@@E@]@@5THIS ACDP FUNCTION DUMPS WORKING STORAGE IN FIELDATA.DFX )@@G@@[@W@@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@#[@0@@@@@@@@@[[#__7^@[CCW@@@@@@FY )@@G@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@FZ )@@G@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@#[#@@@MAIN$ [@X@@@GA )@@G@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[P@@@JUMP$SW #[#@@@MAIN$1 GB )@@G@@[@0@@@@@@@@@[[#__7^@[CCW@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[[@V@@@@@@@@@#[#@@@GC )@@G@@JUMP$SW [@X@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@GD )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@GE )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@GF )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@D#[1@@@GG )@@G@@TAB F@]@@7***** WORKING STORAGE FOR MAIN PROGRAM (FIELDATA) ****GH )@@G@@*TA.N:[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@#[#@@@LC$00 #[#@@@GI )@@G@@LC$04 #[#@@@LC$00 [@ @@@]@[@@@@@@@@#]@[@@@@@@@@[#[1@@@AD$DUMGJ )@@G@@P [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$3GK )@@G@@ [@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@^#[#@@@GL )@@G@@MAIN$2 [@X@@@@@@@@@#[P@@@JUMP$SW [[#_"3[@0@@@@@@@@@#[#@@@EXIT GM )@@G@@ [@X@@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE GN )@@G@@ [@X@@@@@@@@@E@]@@3OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINGO )@@G@@UE,***[@W@@@@@@@@@ @]@@SOR USE RESET FUNCTION...[@W@@@@@@@@@#[P@@@JUMP$SGP )@@G@@W #[#@@@MAIN$3 [@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@GQ )@@G@@INDX1 ]@[@@@@@@@@[[@0@@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@GR )@@G@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@AD$RESET [@W@@@@@@@@@#[#@@@GS )@@G@@MAIN$6 [@X@@@@@@@@@[@2@@@]@[@@@@@@@@[#[1@@@AD$RESET [@W@@@@@@@@@GT )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@GU )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@GV )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@GW )@@G@@[@2@@@]@[@@@@@@@@C#[1@@@TAB C@]@@>***** WORKING STORAGE FOR SUBPGX )@@G@@ROGRAM,T TO [[#__:^@[CCW[@0@@@_#_@@@@@@CC5#[#@@@INDX1 ]@[@@@@@@@@]GY )@@G@@[@A@@@[@N@@@[@Y@@@^@]@@K(FIELDATA) ***** [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@GZ )@@G@@@@@@@@[@2@@@[[#__V^@[CCW@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@HA )@@G@@[[#__F^@[CCW@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@[[#__V^@[CCWHB )@@G@@@@@@@@@@@@@@@@@@@@#[#@@@INDX1 [@N@@@[@Y@@@[@ @@@]@[@@@@@@@@#]@[@@@HC )@@G@@@@@@@[#[1@@@AD$DUMP [@W@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@HD )@@G@@[@Q@@^#[#@@@MAIN$7 [@X@@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE HE )@@G@@[@E@@@[@Q@@^#[#@@@MAIN$7 [@X@@@@@@@@@#[P@@@JUMP$SW [[#_"<[@0@@@HF )@@G@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 HG )@@G@@]@[@@@@@@@@[[@^@@@[@0@@@@@@@@@#[#@@@INDX1 #[#@@@MAX$PROG$IX [@D@@@HH )@@G@@[@Q@@^#[#@@@DONE [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@HI )@@G@@[@Q@@][[#_"Z[@X@@@@@@@@@E@]@@3OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO HJ )@@G@@CONTINUE,***[@W@@@@@@@@@ @]@@SOR USE RESET FUNCTION...[@W@@@@@@@@@#[P@@@HK )@@G@@JUMP$SW [[#_"$[@0@@@@@@@@@#[#@@@EXIT [@X@@@@@@@@@[[#__7^@[CCWHL )@@G@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@J[@AIN$4HM )@@G@@ ^@ @@@@@@@@"EXIT ^@ @@@@@@@@.DONE ^@ @@@@@@@@6MAIN$7HN )@@G@@ ^@ @@@@@@@@&MAIN$6 ^@ @@@@@@@@>MAIN$5 ^@ @@@@@@@@+MAIN$4HO )@@G@@ ^@ @@@@@@@@-MAIN$3 ^@ @@@@@@@@WMAIN$2 ^@ @@@@@@@@FMAIN$1HP )@@G@@ ^@ @@@@@@@@EMAIN$ ^@ @@@@@@@@BINIT$ ^[ @@@@@@@I[REC$ADHQ )@@G@@R$ ^[ @@@@@@@H[FCB$ADR$ ^[ @@@@@@@F[FILE$NAME$ ^[ @@@@@@@E[LC$04$HR )@@G@@ ^[ @@@@@@@D[PARAM$LIST$ ^[ @@@@@@@C[FCB$LIST$ ^[ @@@@@@@B[LC$01$HS )@@G@@ ^[ @@@@@@@A[LC$00$ ^[ @@@@@@@ [FILDIR$ADR$ ^[ @@@@@@@^[CTA$ADHT )@@G@@R$ ^[ @@@@@@@#[SPT$ADR$ ^[ @@@@@@@[[SUBPROGNAME$^[ @@@@@@@[@AD$INIHU )@@G@@T$SW ^[ @@@@@@@@[SCR$AREA ^[ @@@@@@@@@INIT$SW ^@ @@@@@@@@#ENDDOCHV )@@G@@ ^@)FS)F*)FTEC-#F*)^@)^@)^@) K% K% K% K%^@)^@2A@)^@1^[AC(]A@1B@2^@)HW )@@G@@^@)C1 CK2A08AK)^@)^[EE(GAK9B@2^@)^@)CDPC82A*8AK)^@)^@)AC2B@)@)@[[[ LNE(#HX )@@G@@CS)A@5AC! (NETK *! *)^[N@[@@@W@ @@@X@F@@@+@G@@@!@F@@@9@G@@[^@D@@[K@^@@[THY )@@G@@@B@@[X@^@@[=@A@@[*@^@@[,@A@@[2@^@@[8@F@@[/@C@@]B@]@@]J^@)ET E@0B@8AK)^@)HZ )@@G@@^[[E(BAK6B@2^@)^@)D9#E)2A@8AK)^@)^@)^@3A@)@)@[[[@@@@@@#[#@@@ENDDOC IA )@@G@@[@X@@@@@@@@@D@]@@\ACDP FUNCTION FOR RESETING DEMAND SCREEN SWITCHN[@W@@@IB )@@G@@@@@@@@E@]@@2THIS FUNCTION RESETS THE SWITCH USED BY OTHER ACDP,ELD[@W@@@IC )@@G@@@@@@@@D@]@@\FUNCTIONS FOR CONTROLLING DEMAND SCREEN OUTPUT.C[@W@@@@@@@@@ID )@@G@@E@]@@4IF AN ACDP FUNCTION NEEDS TO ACCESS THESE VARIABLES,LD[@W@@@@@@@@@IE )@@G@@B@]@@=IT'S FIRST LOCAL DEFINITION MUST BE:[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@IF )@@G@@@@@@@@ @]@@N LOCAL INIT$SW(1)FINIT[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@IG )@@G@@^@]@@IFUNCTION CALL:SW(1[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@^@]@@L RESIH )@@G@@ET(INIT-SW)1[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@D@]@@\RESET CALLED WITHOII )@@G@@UT PARAMETERS WILL SET SWITCHB[@W@@@@@@@@@[[#__3^@[CCW@@@@@@@@@@@@@@@@@@IJ )@@G@@[[#__;[@V@@@@@@@@@[@4@@@@@@@@@^@ @@@@@@@@[@AIN$80 ^[ @@@@@@@@@INIT$SIK )@@G@@W ^@ @@@@@@@@JENDDOC ^@ @@@@@@@@_SWITCH @)@[[[^@)^@)^@)A00IL )@@G@@A-T *! *! *!D@%^[NETK^[D*[S@@@*SDFF*@#@@@>FUNCT AD$SUMMARY @E@@@> IM )@@G@@ GO ENDDOC . BYPASS DOCUMENTATION@H@@@> 'TIN )@@G@@HIS ACDP FUNCTION PRINTS A CORNUPOLIA OF INFORMATION CONCERNING' @G@@@>IO )@@G@@ 'YOUR DEAD (WHOOPS, I MEAN STOPPED) ACOB PROGRAM. IT WILL' IP )@@G@@@H@@@> 'IDENTIFY WHERE THE PROGRAM STOPPED, LIST ALL ACTIVE SUBIQ )@@G@@PROGRAMS,' @G@@@> 'LIST A SUMMARY OF ALL FILES, AND SOME OTHERIR )@@G@@ MISCELLANEOUS' @^@@@> 'INFORMATION.'@E@@@>ENDDOC: IS )@@G@@ . END OF DOCUMENTATION@ @@@>. ** DEFINE LOCAL VARIABIT )@@G@@LES **@ @@@> LOCAL INIT$SW(1) @ @@@> LOCAL SCR$AREAIU )@@G@@(077) @ @@@> LOCAL AD$INIT$SW(1) @A@@@> LOCAL SUBPROGNIV )@@G@@AME$(0200) @F@@@> LOCAL SPT$ADR$(0100),CTA$ADR$(0100),FILDIR$AIW )@@G@@DR$(0100) @H@@@> LOCAL LC$00$(0100),LC$01$(0100),FCB$LIST$(01IX )@@G@@00),PARAM$LIST$(0100) @ @@@> LOCAL LC$04$(0100) @F@@@> IY )@@G@@ LOCAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADR$(0100) @ @@@> IZ )@@G@@ LOCAL COND$WORD(1) @C@@@> LOCAL FILE$TYPE$(5),FILE$STATUS$JA )@@G@@(3) @C@@@> LOCAL STOP$ELEMENT(2),USER$STOP(1) @ @@@> JB )@@G@@ GO INIT$SW[]=0\INIT$@#@@@> GO MAIN$@[@@@>INIT$:@ @@@>. **INJC )@@G@@ITIALIZATION ROUTINE ** @^@@@> INIT$SW[]:=1 @ @@@> JUJD )@@G@@MP$SW:=MAIN$1 @[@@@>MAIN$:@^@@@>. ** MAIN ROUTINE ** @^@@@> JE )@@G@@ LINE$COUNT:=0 @^@@@> GO JUMP$SW @]@@@>MAIN$1: @#@@@>JF )@@G@@ ' ' @#@@@> ' ' @#@@@> ' ' @#@@@>JG )@@G@@ ' ' @#@@@> ' ' @#@@@> ' ' @#@@@>JH )@@G@@ ' ' @#@@@> ' ' @#@@@> ' ' @#@@@>JI )@@G@@ ' ' @E@@@> TAB(20),'*****************************JJ )@@G@@********' @E@@@> TAB(20),'* ACOB 5R2 DUMPBUSTER VERSION 2R1 JK )@@G@@ *' @E@@@> TAB(20),'*************************************' JL )@@G@@@#@@@> ' ' @B@@@>. DETERMINE WHERE THE PROGRAM STOPPED. JM )@@G@@@F@@@>. FIRST WE WILL LOOK THRU THE LCT TABLE USING THE AD$FIND$STOP JN )@@G@@@G@@@>. FUNCTION. IF THAT PROVES FRUITLESS WE WILL CHECK THE BDIS IN GRJO )@@G@@S @F@@@>. LOCATIONS 046 AND 047 TO SEE IF THE STOP OCCURED WITHIN A JP )@@G@@COMMON@]@@@>. BANK. @D@@@> TAB(22),'***** PROGRAM STOP ANALJQ )@@G@@YSIS *****' @#@@@> ' ' @^@@@> LINE$COUNT:=6 @ @@@>JR )@@G@@ AD$FIND$STOP(P-1) @C@@@> GO STOP$ELEMENT[]=' 'JS )@@G@@\MAIN$2 %C@@@@-56,57- CLARIFY REL/ABS ADDRESS @E@@@>JT )@@G@@ 'PROGRAM STOP ADDRESS:',P-1,SKIP(2),'ELEMENT:',; @G@@@> JU )@@G@@ STOP$ELEMENT[:2!F],'AT RELATIVE ADDRESS:',(P-1)-LC$START$ADR %@@@@]JV )@@G@@@#@@@> ' ' @]@@@>GO MAIN$3 @^@@@> GO MAIN$3 JW )@@G@@@]@@@>MAIN$2: @D@@@>. CHECK TO SEE IF PROGRAM STOPPED IN COBOL COMMOJX )@@G@@N BANK@]@@@>BDI$400100: @B@@@> GO (0100=046[,,H1]**07777)++ ; JY )@@G@@@C@@@> (0100=047[,,H1]**07777)\$+1,BDI$400050@G@@@> 'PJZ )@@G@@ROGRAM STOP OCCURED IN COMMON BANK C$ACS AT ADDRESS:',P-1 @A@@@> KA )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400050: @B@@@> GO (0050KB )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0050=047[,,H1]**07777)\$+1,BDI$KC )@@G@@400054@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$ANS AT ADDRKD )@@G@@ESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400054: KE )@@G@@@B@@@> GO (0054=046[,,H1]**07777)++ ; @C@@@> (0054=04KF )@@G@@7[,,H1]**07777)\$+1,BDI$400102@G@@@> 'PROGRAM STOP OCCURED IN COKG )@@G@@MMON BANK C$CFH AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SKH )@@G@@ ' @]@@@>BDI$400102: @B@@@> GO (0102=046[,,H1]**07777)++ ; KI )@@G@@@C@@@> (0102=047[,,H1]**07777)\$+1,BDI$400045@G@@@> 'PRKJ )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$CONV AT ADDRESS:',P-1 @A@@@> KK )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400045: @B@@@> GO (0045KL )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0045=047[,,H1]**07777)\$+1,BDI$KM )@@G@@400106@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$DIAG AT ADDRKN )@@G@@ESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400106: KO )@@G@@@B@@@> GO (0106=046[,,H1]**07777)++ ; @C@@@> (0106=04KP )@@G@@7[,,H1]**07777)\$+1,BDI$400414@G@@@> 'PROGRAM STOP OCCURED IN COKQ )@@G@@MMON BANK C$DML AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$DKR )@@G@@ ' @]@@@>BDI$400414: @B@@@> GO (0106=046[,,H1]**07777)++ ; KS )@@G@@@C@@@> (0106=047[,,H1]**07777)\$+1,BDI$400075@G@@@> 'PRKT )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$DML8 AT ADDRESS:',P-1 @A@@@> KU )@@G@@ STOP$ELEMENT[]:='C$D ' @]@@@>BDI$400075: @B@@@> GO (0075KV )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0075=047[,,H1]**07777)\$+1,BDI$KW )@@G@@400073@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$FORM AT ADDRKX )@@G@@ESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400073: KY )@@G@@@B@@@> GO (0073=046[,,H1]**07777)++ ; @C@@@> (0073=04KZ )@@G@@7[,,H1]**07777)\$+1,BDI$400103@G@@@> 'PROGRAM STOP OCCURED IN COLA )@@G@@MMON BANK C$IBM AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SLB )@@G@@ ' @]@@@>BDI$400103: @B@@@> GO (0103=046[,,H1]**07777)++ ; LC )@@G@@@C@@@> (0103=047[,,H1]**07777)\$+1,BDI$400076@G@@@> 'PRLD )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$INITIAL AT ADDRESS:',P-1@A@@@> LE )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400076: @B@@@> GO (0076LF )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0076=047[,,H1]**07777)\$+1,BDI$LG )@@G@@400074@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$LABEL AT ADDLH )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400074: LI )@@G@@@B@@@> GO (0074=046[,,H1]**07777)++ ; @C@@@> (0074=04LJ )@@G@@7[,,H1]**07777)\$+1,BDI$400051@G@@@> 'PROGRAM STOP OCCURED IN COLK )@@G@@MMON BANK C$LION AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SLL )@@G@@ ' @]@@@>BDI$400051: @B@@@> GO (0051=046[,,H1]**07777)++ ; LM )@@G@@@C@@@> (0051=047[,,H1]**07777)\$+1,BDI$400104@G@@@> 'PRLN )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$MASS AT ADDRESS:',P-1 @A@@@> LO )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400104: @B@@@> GO (0104LP )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0104=047[,,H1]**07777)\$+1,BDI$LQ )@@G@@400077@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$MCS AT ADDLR )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400077: LS )@@G@@@B@@@> GO (0077=046[,,H1]**07777)++ ; @C@@@> (0077=04LT )@@G@@7[,,H1]**07777)\$+1,BDI$400053@G@@@> 'PROGRAM STOP OCCURED IN COLU )@@G@@MMON BANK C$RPW AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SLV )@@G@@ ' @]@@@>BDI$400053: @B@@@> GO (0053=046[,,H1]**07777)++ ; LW )@@G@@@C@@@> (0053=047[,,H1]**07777)\$+1,BDI$400047@G@@@> 'PRLX )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$SDF AT ADDRESS:',P-1 @A@@@> LY )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400047: @B@@@> GO (0047LZ )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0047=047[,,H1]**07777)\$+1,BDI$MA )@@G@@400046@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$IIOB AT ADDMB )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400046: MC )@@G@@@B@@@> GO (0046=046[,,H1]**07777)++ ; @C@@@> (0046=04MD )@@G@@7[,,H1]**07777)\$+1,BDI$400101@G@@@> 'PROGRAM STOP OCCURED IN COME )@@G@@MMON BANK C$ISAM AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SMF )@@G@@ ' @]@@@>BDI$400101: @B@@@> GO (0101=046[,,H1]**07777)++ ; MG )@@G@@@C@@@> (0101=047[,,H1]**07777)\$+1,BDI$400105@G@@@> 'PRMH )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$STRING AT ADDRESS:',P-1 @A@@@> MI )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400105: @B@@@> GO (0105MJ )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0105=047[,,H1]**07777)\$+1,BDI$MK )@@G@@400052@H@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$SYMBIONT AT ML )@@G@@ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$40MM )@@G@@0052: @B@@@> GO (0052=046[,,H1]**07777)++ ; @C@@@> (0MN )@@G@@052=047[,,H1]**07777)\$+1,BDI$400061@G@@@> 'PROGRAM STOP OCCUREDMO )@@G@@ IN COMMON BANK C$TAPE AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]MP )@@G@@:='C$S ' @]@@@>BDI$400061: @B@@@> GO (0061=046[,,H1]**07777)MQ )@@G@@++ ; @D@@@> (0061=047[,,H1]**07777)\$+1,END$OF$BDIS @G@@@>MR )@@G@@ PROGRAM STOP OCCURED IN COMMON BANK C$SORT AT ADDRESS:',P-1 MS )@@G@@@A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>END$OF$BDIS:@#@@@> MT )@@G@@ ' ' @]@@@>MAIN$3: @E@@@>. NOW THAT WE (HOPEFULLY!!) KNOW WHEMU )@@G@@RE THE PROGRAM STOPPED, @E@@@>. CHECK TO SEE IF IT WAS A C$S OR C$D SYSTMV )@@G@@EM RELOCATABLE @F@@@>. LIBRARY ELEMENT, AND ATTEMPT TO FIND WHERE THEMW )@@G@@ USER PROGRAM @B@@@>. STOPPED USING THE AD$FIND$STOP FUNCTION.@A@@@>MX )@@G@@ LINE$COUNT:=LINE$COUNT+2 @C@@@> GO STOP$ELEMENT[]=' MY )@@G@@ '\$+1,MAIN$4 @C@@@> 'CANNOT LOCATE STOP ADDRESS:',P-1 MZ )@@G@@@#@@@> ' ' @^@@@> GO MAIN$6 @]@@@>MAIN$4: NA )@@G@@@G@@@> GO (STOP$ELEMENT[,,H1]='C$D')++(STOP$ELEMENT[,,H1]='C$S'NB )@@G@@); @^@@@> \$+1,MAIN$6 @C@@@( GO STOP$ELEMENT[,,H1NC )@@G@@]='C$S'\MAIN$4A @A@@@( USER$STOP[]:=SAR$ADR[0121]@^@@@( ND )@@G@@ GO MAIN$4D @]@@@(MAIN$4A: @A@@@( LOCAL$WS:=SAR$ADR+01NE )@@G@@67 @]@@@(MAIN$4B: @B@@@( GO LOCAL$WS[3,,H1]=/3\MAIN$4C NF )@@G@@@ @@@( LOCAL$WS:=LOCAL$WS+3@^@@@( GO MAIN$4B @]@@@(NG )@@G@@MAIN$4C: @A@@@( USER$STOP[]:=LOCAL$WS[1] @]@@@(MAIN$4D: NH )@@G@@%B@@@@-188,188- ADJUST C$S ADDRESS @E@&@> USER$STONI )@@G@@P[]:=STOP$ELEMENT[,,H1]='C$S'\SAR$ADR[173]@F@(@& USER$STOP[]:=SNJ )@@G@@TOP$ELEMENT[,,H1]='C$S'\SAR$ADR[0173] %@@@@[@F@(@> USER$STONK )@@G@@P[]:=STOP$ELEMENT[,,H1]='C$D'\SAR$ADR[0121] %C@@@@-189 NL )@@G@@ FOR ADDRESS IN USER BANK @E@@@> AD$FIND$STOP(USER$STOP[,,HNM )@@G@@2],USER$STOP[,,H1]) @C@@@> GO STOP$ELEMENT[]=' '\$+1,MNN )@@G@@AIN$5 @E@@@> 'CANNOT LOCATE USER STOP ADDRESS:',USER$STOP[,,H2]NO )@@G@@@ @&@> XX:=USER$STOP[] @#@@@> ' ' @A@@@> NP )@@G@@ LINE$COUNT:=LINE$COUNT+2 @^@@@> GO MAIN$6 @]@@@>MAIN$5NQ )@@G@@: @F@@@> 'USER PROGRAM STOPPED IN ELEMENT:',STOP$ELEMENT[:2NR )@@G@@!F],; %C@@@@-198,198- CLARIFY REL/ABS ADDRESS @F@@@> NS )@@G@@ ' AT RELATIVE ADDRESS:',USER$STOP[,,H2]-LC$START$ADR-1 %@@@@[@#@@@>NT )@@G@@ ' ' @A@@@> LINE$COUNT:=LINE$COUNT+2 @]@@@>MAIN$6NU )@@G@@: % @@@@-201 FMS8 INFO @ @$@> GO FMS$ADR=0\MNV )@@G@@AIN$6A@ @$@> 'LAST FMS8 CALL:' @ @$@> WHERE(FMS$ADR-NW )@@G@@1,1) @#@$@> ' ' @A@$@> LINE$COUNT:=LINE$COUNT+3 NX )@@G@@@]@*@>MAIN$6A: @A@@@> GO SCREEN$SIZE=0\MAIN$7 @C@@@> NY )@@G@@ GO LINE$COUNT+6>SCREEN$SIZE\$+1,MAIN$7@ @@@> JUMP$SW:=MAIN$NZ )@@G@@6 @^@@@> GO NEWPAGE @]@@@>MAIN$7: @A@@@>. PRINT THE OA )@@G@@FOLLOWING INFORMATION: @A@@@>. MAIN IBANK STARTING ADDRESS @^@@@>OB )@@G@@. CONDITION WORD @F@@@>. CTA ADDRESSES (LAST SUBPROGRAM EXECUTOC )@@G@@ING AND MAIN PROGRAM) @F@@@>. FILDIR ADDRESSES (LAST SUBPROGRAM EXEOD )@@G@@CUTING AND MAIN PROGRAM)@C@@@> 'MAIN IBANK STARTING ADDRESS:',LOE )@@G@@C$01,;@D@@@> TAB(38),'CONDITION WORD:',COND$WORD[!O12] @#@@@>OF )@@G@@ ' ' @G@@@> 'CTA TABLE ADDRESS:',CTA$ADR,TAB(38),'OG )@@G@@FILDIR TABLE ADDRESS:',;@^@@@> FILDIR$ADR @#@@@> ' OH )@@G@@' @A@@@> LINE$COUNT:=LINE$COUNT+4 @A@@@> GO MAX$POI )@@G@@ROG$IX=0\MAIN$20 @D@@@> 'CURRENT CTA ADDRESS:',CURR$CTA,TAB(38OJ )@@G@@),; @C@@@> 'CURRENT FILDIR ADDRESS:',CURR$FILDIR @#@@@> OK )@@G@@ ' ' @A@@@> LINE$COUNT:=LINE$COUNT+2 @]@@@>MAIN$10: OL )@@G@@@A@@@> GO MAX$PROG$IX=0\MAIN$20 @A@@@> GO SCREEN$SIZEOM )@@G@@=0\MAIN$11 @A@@@> LINE$COUNT:=LINE$COUNT+5 @ @@@> INON )@@G@@DX2:=LINE$COUNT+2 @B@@@> GO INDX2OO )@@G@@ JUMP$SW:=MAIN$10 @^@@@> GO NEWPAGE @]@@@>MAIN$1OP )@@G@@1: @C@@@>. PRINT SUMMARY INFORMATION FOR ALL SUBPROGRAMS @#@@@> OQ )@@G@@ INDX1:=1@#@@@> ' ' @E@@@> TAB(20),'***** LIST OR )@@G@@OF ACTIVE SUBPROGRAMS *****' @F@@@> 'SUBPROGRAM NAME',TAB(18),OS )@@G@@'FILDIR ADDRESS',TAB(33),; @F@@@> 'CTA ADDRESS',TAB(48),'BDIOT )@@G@@',TAB(58),'IBANK BASE ADDRESS'@F@@@> '---------------',TAB(18),OU )@@G@@'--------------',TAB(33),; @F@@@> '-----------',TAB(48),'---OV )@@G@@',TAB(58),'------------------'@]@@@>MAIN$12: @G@@@> SUBPROGNOW )@@G@@AME$[INDX1*2:2!F],TAB(21),FILDIR$ADR$[INDX1,,H2!O6],; @B@@@> TAOX )@@G@@B(36),CTA$ADR$[INDX1,,H2!O6],;@G@@@> TAB(47),LC$01$[INDX1,,H1!OOY )@@G@@6],TAB(64),LC$01$[INDX1,,H2!O6] @A@@@> LINE$COUNT:=LINE$COUOZ )@@G@@NT+1 @^@@@> INDX1:=INDX1+1@B@@@> GO INDX1>MAX$PROG$IXPA )@@G@@\MAIN$20 @A@@@> GO SCREEN$SIZE=0\MAIN$12 @C@@@> GOPB )@@G@@ LINE$COUNT JUMP$SW:=MAIN$12 PC )@@G@@@^@@@> GO NEWPAGE @]@@@>MAIN$20: @A@@@> GO FILE$PD )@@G@@NAME$[]=0\DONE @A@@@> GO SCREEN$SIZE=0\MAIN$21 @A@@@> PE )@@G@@ LINE$COUNT:=LINE$COUNT+5 @C@@@> GO LINE$COUNT+2 JUMP$SW:=MAIN$20 @^@@@> GO NEWPAPG )@@G@@GE @]@@@>MAIN$21: @B@@@>. PRINT SUMMARY INFORMATION FOR ALL FILES PH )@@G@@@#@@@> INDX1:=0@#@@@> ' ' @C@@@> TAB(26),PI )@@G@@'***** FILE SUMMARY *****' @H@@@> 'FILE NAME',TAB(16),'TYPE'PJ )@@G@@,TAB(49),'STATUS',TAB(66),'FCB ADDRESS' @H@@@> '---------',TAPK )@@G@@B(16),'----',TAB(49),'------',TAB(66),'-----------' @]@@@>MAIN$22: PL )@@G@@@A@@@> FCB$ADR:=FCB$ADR$[INDX1] @A@@@> FILE$TYP:=FCB$PM )@@G@@ADR[02,,S2] @B@@@> FILE$STATUS:=FCB$ADR[02,,S3] @A@@@>STAT0:PN )@@G@@ GO FILE$STATUS=/0\STAT1 @A@@@> FILE$STATUS$[]:='00, NE' PO )@@G@@@A@@@> FILE$STATUS$[1]:='VER OP' @A@@@> FILE$STATUS$[2PP )@@G@@]:='ENED ' @A@@@>STAT1: GO FILE$STATUS=/1\STAT2 @A@@@> FIPQ )@@G@@LE$STATUS$[]:='01, OP' @A@@@> FILE$STATUS$[1]:='EN INP' @A@@@>PR )@@G@@ FILE$STATUS$[2]:='UT ' @A@@@>STAT2: GO FILE$STATUS=/2\STPS )@@G@@AT3 @A@@@> FILE$STATUS$[]:='02, OP' @A@@@> FILE$STAPT )@@G@@TUS$[1]:='EN OUT' @A@@@> FILE$STATUS$[2]:='PUT ' @A@@@>STAT3:PU )@@G@@ GO FILE$STATUS=/3\STAT4 @A@@@> FILE$STATUS$[]:='03, OP' PV )@@G@@@A@@@> FILE$STATUS$[1]:='EN I-O' @A@@@> FILE$STATUS$[2PW )@@G@@]:=' ' @A@@@>STAT4: GO FILE$STATUS=/4\STAT5 @A@@@> FIPX )@@G@@LE$STATUS$[]:='04, CL' @A@@@> FILE$STATUS$[1]:='OSED W' @A@@@>PY )@@G@@ FILE$STATUS$[2]:='/LOCK ' @A@@@>STAT5: GO FILE$STATUS=/5\TYPZ )@@G@@P01 @A@@@> FILE$STATUS$[]:='05, CL' @A@@@> FILE$STAQA )@@G@@TUS$[1]:='OSED ' @A@@@> FILE$STATUS$[2]:=' ' @A@@@>TYP01:QB )@@G@@ GO FILE$TYP=/01\TYP02 @F@@@> FCB$ADR[:2!F],TAB(16),'01,QC )@@G@@ 1968 STD TAPE ',;@D@@@> TAB(46),FILE$STATUS$[:3!F]QD )@@G@@,TAB(68),FCB$ADR @A@@@>TYP02: GO FILE$TYP=/02\TYP03 @F@@@> QE )@@G@@ FCB$ADR[:2!F],TAB(16),'02, IBM 360 TAPE ',;@D@@@> QF )@@G@@ TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP03: GO FILE$QG )@@G@@TYP=/03\TYP04 @F@@@> FCB$ADR[:2!F],TAB(16),'03, LION TAPE QH )@@G@@ ',;@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(68),FCBQI )@@G@@$ADR @A@@@>TYP04: GO FILE$TYP=/04\TYP05 @F@@@> FCB$ADR[QJ )@@G@@:2!F],TAB(16),'04, CFH TAPE ',;@D@@@> TAB(46),QK )@@G@@FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP05: GO FILE$TYP=/05\TYP0QL )@@G@@6 @F@@@> FCB$ADR[:2!F],TAB(16),'05, SEQ MASS-STORAGE QM )@@G@@ ',;@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>QN )@@G@@TYP06: GO FILE$TYP=/06\TYP07 @F@@@> FCB$ADR[:2!F],TAB(16QO )@@G@@),'06, DIRECT FILE ',;@D@@@> TAB(46),FILE$STATUS$QP )@@G@@[:3!F],TAB(68),FCB$ADR @A@@@>TYP07: GO FILE$TYP=/07\TYP10 @F@@@>QQ )@@G@@ FCB$ADR[:2!F],TAB(16),'07, ISAM (NOT MSAM) ',;@D@@@>QR )@@G@@ TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP10: GOQS )@@G@@ FILE$TYP=/010\TYP11 @F@@@> FCB$ADR[:2!F],TAB(16),'010, PRINQT )@@G@@TER ',;@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(6QU )@@G@@8),FCB$ADR @A@@@>TYP11: GO FILE$TYP=/011\TYP12 @F@@@> FCQV )@@G@@B$ADR[:2!F],TAB(16),'011, CARD-PUNCH ',;@D@@@> TAQW )@@G@@B(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP12: GO FILE$TYP=/0QX )@@G@@12\TYP13 @F@@@> FCB$ADR[:2!F],TAB(16),'012, CARD-READER QY )@@G@@ ',;@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR QZ )@@G@@@A@@@>TYP13: GO FILE$TYP=/013\TYP14 @F@@@> FCB$ADR[:2!F],RA )@@G@@TAB(16),'013, FORM01, 02, 03 TAPE ',;@D@@@> TAB(46),FILE$SRB )@@G@@TATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP14: GO FILE$TYP=/014\TYP15 RC )@@G@@@F@@@> FCB$ADR[:2!F],TAB(16),'014, DEVICE INDEPENDENT ',;RD )@@G@@@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP15:RE )@@G@@ GO FILE$TYP=/015\TYP16 @F@@@> FCB$ADR[:2!F],TAB(16),'015RF )@@G@@, SEQ SDF (NOT PCIOS) ',;@D@@@> TAB(46),FILE$STATUS$[:3!F]RG )@@G@@,TAB(68),FCB$ADR @A@@@>TYP16: GO FILE$TYP=/016\TYP17 @F@@@> RH )@@G@@ FCB$ADR[:2!F],TAB(16),'016, DIRECT SDF (NOT PCIOS) ',;@D@@@> RI )@@G@@ TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP17: GO FILE$RJ )@@G@@TYP=/017\TYP20 @F@@@> FCB$ADR[:2!F],TAB(16),'017, INFO INTERRK )@@G@@CHANGE ',;@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(68),FCBRL )@@G@@$ADR @A@@@>TYP20: GO FILE$TYP=/020\TYP21 @F@@@> FCB$ADR[RM )@@G@@:2!F],TAB(16),'020, TAPE ',;@D@@@> TAB(46),RN )@@G@@FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>TYP21: GO FILE$TYP=/021\TYPRO )@@G@@22 @F@@@> FCB$ADR[:2!F],TAB(16),'021, SEQ DISK RP )@@G@@ ',;@D@@@> TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @A@@@>RQ )@@G@@TYP22: GO FILE$TYP=/022\TYP23 @F@@@> FCB$ADR[:2!F],TAB(16RR )@@G@@),'022, RELATIVE DISK ',;@D@@@> TAB(46),FILE$STATUS$RS )@@G@@[:3!F],TAB(68),FCB$ADR @A@@@>TYP23: GO FILE$TYP=/023\TEND @F@@@>RT )@@G@@ FCB$ADR[:2!F],TAB(16),'023, MSAM FILE ',;@D@@@>RU )@@G@@ TAB(46),FILE$STATUS$[:3!F],TAB(68),FCB$ADR @[@@@>TEND: @A@@@>RV )@@G@@ LINE$COUNT:=LINE$COUNT+1 @^@@@> INDX1:=INDX1+1@A@@@>RW )@@G@@ GO INDX1>MAX$FILE$IX\DONE @A@@@> GO SCREEN$SIZE=0\MAIRX )@@G@@N$22 @C@@@> GO LINE$COUNT RY )@@G@@ JUMP$SW:=MAIN$22 @^@@@> GO NEWPAGE @[@@@>DONE: @B@@@>RZ )@@G@@. DEMAND MODE END OF SCREEN PAGE ROUTINE @^@@@> INIT$SW[]:=0 SA )@@G@@@]@@@>NEWPAGE: @ @@@> GO INIT$SW[]=0\EXIT @#@@@> ' SB )@@G@@' @F@@@> 'OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINUSC )@@G@@E,' @B@@@> 'OR USE AD$RESET FUNCTION..' @[@@@>EXIT: @[@@@>SD )@@G@@END _@@@@@77)\$+1,BDI$@[@@#/@ @@#.@I@@^]@H@@^K@I@@^X@H@@^:@ @@^8@J@@^.SE )@@G@@@ @@ G@D@@ L@C@@ U@B@@ +@ @@ (@^@@ ,@^@@ 2@^@@ 6@^@@ '@^@@ "@^@@A]@^@@AASF )@@G@@@^@@AE@^@@AI@^@@AM@K@@AQ@K@@A&@K@@A6@^@@BA@J@@BE@^@@BT@B@@BX@G@@B=@J@@B0SG )@@G@@@:@@B_@^@@C%@ @@C,@ @@C3@&@@C8@M@@DY@D@@D0@&@@D9@M@@EZ@D@@E1@&@@E'@M@@F)SH )@@G@@@D@@F2@&@@F;@M@@G-@D@@G3@&@@G/@M@@H+@D@@H4@&@@H.@M@@I<@D@@I5@&@@I"@N@@J=SI )@@G@@@D@@J7@&@@K@@M@@K&@D@@K8@&@@L[@M@@L$@D@@L9@&@@M]@N@@M*@D@@M;@&@@N^@N@@N%SJ )@@G@@@D@@N.@&@@OA@N@@O?@D@@O_@&@@PC@N@@P,@D@@Q[@&@@QE@N@@Q0@D@@R#@&@@RG@N@@R2SK )@@G@@@D@@S @&@@SI@N@@S4@D@@TB@&@@TK@N@@T6@D@@UD@&@@UM@N@@U8@D@@VF@&@@VO@N@@V'SL )@@G@@@D@@WH@&@@WQ@N@@W/@D@@XJ@&@@XS@M@@X"@D@@YK@&@@YT@ @@Y_@D@@Z^@^@@ZH@F@@ZLSM )@@G@@@O@@ZW@I@@Z0@^@@Z"@ @@)]@Y@@)B@J@@)>@J@@)4@ @@-#@F@@-C@L@@-N@F@@-=@#@@-\SN )@@G@@@J@@-2@M@@+[@O@@+N@J@@+$@^@@+6@F@@+'@ @@< @-@@[@R@@> @^@@>W@F@@>)@G@@>:@S@@>7@^@@&J@F@@&N@G@@&YSP )@@G@@@G@@&%@F@@&6@F@@$[@H@@$G@A@@$T@ @@$Z@B@@$=@^@@$:@K@@$\@:@@$_@:@@*%[J@@(PSQ )@@G@@@F@@%=@F@@%\@H@@%'@E@@:B@F@@:L@A@@:W@ @@:+@J@@:$@G@@:6@F@@?]@K@@?H@A@@?XSR )@@G@@@ @@?<@B@@?*@^@@?\@H@@?3@Y@@!@@Y@@!Y@J@@!/@H@@,F@H@@,S@G@@,>@D@@,1@D@@,'SS )@@G@@@D@@\#@G@@\G@D@@\S@D@@\-@D@@\%@G@@\3@D@@\_@D@@0C@D@@0L@G@@0U@D@@0&@D@@0\ST )@@G@@@D@@08@G@@1[@D@@1H@D@@1Q@D@@1Z@G@@1*@D@@14@D@@1.@D@@2A@G@@2J@:@@2V@G@@3ASU )@@G@@@:@@3M@G@@3.@:@@4D@G@@44@:@@5@@G@@5:@:@@57@G@@6+@:@@6,@G@@7T@:@@7>@G@@8KSV )@@G@@@:@@8W@G@@9B@:@@9N@G@@9"@:@@'E@G@@'5@:@@;[@G@@;?@:@@;8@G@@/<@:@@/\@G@@.USW )@@G@@@:@@.&@G@@"L@:@@"X@G@@_C@:@@_O@G@@__@:@[@F@G@[@6@:@[[]@G@[[!@:@[[9@F@[]=SX )@@G@@@F@[]\@H@[]'@E@[#B@F@[#L@A@[#W@ @[#+@D@[#$@J@[#0@^@[#_@G@[^#@C@[^J@]@[^RSY )@@G@@@@@[K@@@@@@@@@@[)@@@@@@@@@@@@@#[#@@@ENDDOC [@X@@@@@@@@@G@]@[@THIS ASZ )@@G@@CDP FUNCTION PRINTS A CORNUPOLIA OF INFORMATION CONCERNING@@[@W@@@@@@@@@TA )@@G@@F@]@@8YOUR DEAD (WHOOPS, I MEAN STOPPED) ACOB PROGRAM. IT WILLNCER[@W@@@TB )@@G@@@@@@@@G@]@[@IDENTIFY WHERE THE PROGRAM STOPPED, LIST ALL ACTIVE SUBPROGRTC )@@G@@AMS,@@[@W@@@@@@@@@F@]@@9LIST A SUMMARY OF ALL FILES, AND SOME OTHER MISCTD )@@G@@ELLANEOUSOGR[@W@@@@@@@@@#@]@@GINFORMATION.[@W@@@@@@@@@[[#__7^@[@@@@@@@@@TE )@@G@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@INIT$ [@X@@@@@@@@@TF )@@G@@#[#@@@MAIN$ [@X@@@@@@@@@[[#__7^@[@@@@@@@@@@@@@@@@@@@@@]@[@@@@@@@@[TG )@@G@@[@V@@@@@@@@@#[P@@@JUMP$SW #[#@@@MAIN$1 [@0@@@@@@@@@#[P@@@LINE$CTH )@@G@@OUNT ]@[@@@@@@@@@[@0@@@@@@@@@#[#@@@JUMP$SW [@X@@@@@@@@@]@]@@[@@@@@ TI )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ TJ )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ TK )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@]@]@@[@@@@@ TL )@@G@@[@W@@@@@@@@@[@2@@@]@[@@@@@@@@O#[1@@@TAB C@]@@>******************TM )@@G@@******************* OTHE[@W@@@@@@@@@[@2@@@]@[@@@@@@@@O#[1@@@TAB TN )@@G@@C@]@@>* ACOB 5R2 DUMPBUSTER VERSION 2R1 * OTHE[@W@@@@@@@@@[@2@@@]@[@@@TO )@@G@@@@@@@O#[1@@@TAB C@]@@>************************************* OTHETP )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@Q#[1@@@TAB TQ )@@G@@B@]@@-***** PROGRAM STOP ANALYSIS ********[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@TR )@@G@@@@@@@@#[P@@@LINE$COUNT ]@[@@@@@@@@A[@0@@@@@@@@@[@2@@@#[#@@@P TS )@@G@@]@[@@@@@@@@[[@ @@@#[1@@@AD$FIND$STOP[@W@@@@@@@@@[[#_"\^@[@@@@@@@@@@@@@@@TT )@@G@@@@@@@@[@Y@@@]@]@@A [@F@@@[@Q@@^#[#@@@MAIN$2 [@X@@@@@@@@@ @]@@PTU )@@G@@PROGRAM STOP ADDRESS:ALY#[#@@@P ]@[@@@@@@@@[[@ @@@[@2@@@]@[@@@TV )@@G@@@@@@@]#[1@@@SKIP #@]@@CELEMENT: [[#_"\^@[@@@[@0@@@_#_@@@@@@CC4TW )@@G@@[@Y@@@ @]@@OAT RELATIVE ADDRESS::ALY#[#@@@P ]@[@@@@@@@@[[@ @@@TX )@@G@@#[#@@@LC$START$ADR[@ @@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[#@@@MAIN$3TY )@@G@@ [@X@@@@@@@@@#[#@@@MAIN$3 [@X@@@@@@@@@]@[@@@@@@@[@]@[@@@@@@@@&TZ )@@G@@^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@[@]@[@@@UA )@@G@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ UB )@@G@@[@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400050 [@X@@@@@@@@@E@]@@6PROGRAUC )@@G@@M STOP OCCURED IN COMMON BANK C$ACS AT ADDRESS:#[#@@@P ]@[@@@UD )@@G@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@UE )@@G@@@@@@@@]@[@@@@@@@@*]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__UF )@@G@@[@J@@@[@F@@@]@[@@@@@@@@*]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@UG )@@G@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$40UH )@@G@@0054 [@X@@@@@@@@@E@]@@6PROGRAM STOP OCCURED IN COMMON BANK C$ANS AT ADUI )@@G@@DRESS:#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@UJ )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@@?]@[@@@@@@@@&^@[CCZ@C@@@@UK )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@@?]@[@@@@@@@@$^@[CCZUL )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@UM )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400102 [@X@@@@@@@@@E@]@@6PROGRAM STOP OCCURUN )@@G@@ED IN COMMON BANK C$CFH AT ADDRESS:#[#@@@P ]@[@@@@@@@@[[@ @@@UO )@@G@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@UP )@@G@@@@@@[]]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@UQ )@@G@@]@[@@@@@@@[]]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@UR )@@G@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400045 [@X@@@US )@@G@@@@@@@@E@]@@6PROGRAM STOP OCCURED IN COMMON BANK C$CONV AT ADDRESS:#[#@@@UT )@@G@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@UU )@@G@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@@>]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@UW )@@G@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@UX )@@G@@[@X@@@#[#@@@BDI$400106 [@X@@@@@@@@@E@]@@6PROGRAM STOP OCCURED IN COMMONUY )@@G@@ BANK C$DIAG AT ADDRESS:#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@UZ )@@G@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@[A]@[@@@VA )@@G@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@[AVB )@@G@@]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@VC )@@G@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400414 [@X@@@@@@@@@E@]@@6VD )@@G@@PROGRAM STOP OCCURED IN COMMON BANK C$DML AT ADDRESS:#[#@@@P VE )@@G@@]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$D VF )@@G@@[@V@@@@@@@@@]@[@@@@@@@[A]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@VG )@@G@@@@@@__[@J@@@[@F@@@]@[@@@@@@@[A]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@VH )@@G@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@VI )@@G@@BDI$400075 [@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURED IN COMMON BANK C$DML8VJ )@@G@@ AT ADDRESS:USOGR#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\VK )@@G@@^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$D [@V@@@@@@@@@]@[@@@@@@@@.]@[@@@@@@@@&VL )@@G@@^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@@.]@[@@@VM )@@G@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ VN )@@G@@[@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400073 [@X@@@@@@@@@E@]@@6PROGRAVO )@@G@@M STOP OCCURED IN COMMON BANK C$FORM AT ADDRESS:#[#@@@P ]@[@@@VP )@@G@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@VQ )@@G@@@@@@@@]@[@@@@@@@@;]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__VR )@@G@@[@J@@@[@F@@@]@[@@@@@@@@;]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@VS )@@G@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$40VT )@@G@@0103 [@X@@@@@@@@@E@]@@6PROGRAM STOP OCCURED IN COMMON BANK C$IBM AT ADVU )@@G@@DRESS:#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@VV )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@[#]@[@@@@@@@@&^@[CCZ@C@@@@VW )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@[#]@[@@@@@@@@$^@[CCZVX )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@VY )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400076 [@X@@@@@@@@@F@]@@9PROGRAM STOP OCCURVZ )@@G@@ED IN COMMON BANK C$INITIAL AT ADDRESS:OGR#[#@@@P ]@[@@@@@@@@[WA )@@G@@[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@WB )@@G@@]@[@@@@@@@@"]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@WC )@@G@@[@F@@@]@[@@@@@@@@"]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__WD )@@G@@[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400074 WE )@@G@@[@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURED IN COMMON BANK C$LABEL AT ADDRESSWF )@@G@@:S:OGR#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@WG )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@@/]@[@@@@@@@@&^@[CCZ@C@@@@WH )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@@/]@[@@@@@@@@$^@[CCZWI )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@WJ )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400051 [@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURWK )@@G@@ED IN COMMON BANK C$LION AT ADDRESS:S:OGR#[#@@@P ]@[@@@@@@@@[WL )@@G@@[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@WM )@@G@@]@[@@@@@@@@(]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@WN )@@G@@[@F@@@]@[@@@@@@@@(]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__WO )@@G@@[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400104 WP )@@G@@[@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURED IN COMMON BANK C$MASS AT ADDRESSWQ )@@G@@:S:OGR#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@WR )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@[^]@[@@@@@@@@&^@[CCZ@C@@@@WS )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@[^]@[@@@@@@@@$^@[CCZWT )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@WU )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400077 [@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURWV )@@G@@ED IN COMMON BANK C$MCS AT ADDRESS:S:OGR#[#@@@P ]@[@@@@@@@@[WW )@@G@@[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@WX )@@G@@]@[@@@@@@@@_]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@WY )@@G@@[@F@@@]@[@@@@@@@@_]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__WZ )@@G@@[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400053 XA )@@G@@[@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURED IN COMMON BANK C$RPW AT ADDRESSXB )@@G@@:S:OGR#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@XC )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@@:]@[@@@@@@@@&^@[CCZ@C@@@@XD )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@@:]@[@@@@@@@@$^@[CCZXE )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@XF )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400047 [@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURXG )@@G@@ED IN COMMON BANK C$SDF AT ADDRESS:S:OGR#[#@@@P ]@[@@@@@@@@[XH )@@G@@[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@XI )@@G@@]@[@@@@@@@@$]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@XJ )@@G@@[@F@@@]@[@@@@@@@@$]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__XK )@@G@@[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400046 XL )@@G@@[@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURED IN COMMON BANK C$IIOB AT ADDRESSXM )@@G@@:S:OGR#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@XN )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@@&]@[@@@@@@@@&^@[CCZ@C@@@@XO )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@@&]@[@@@@@@@@$^@[CCZXP )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@XQ )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400101 [@X@@@@@@@@@F@]@@7PROGRAM STOP OCCURXR )@@G@@ED IN COMMON BANK C$ISAM AT ADDRESS:S:OGR#[#@@@P ]@[@@@@@@@@[XS )@@G@@[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@XT )@@G@@]@[@@@@@@@[[]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@XU )@@G@@[@F@@@]@[@@@@@@@[[]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__XV )@@G@@[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400105 XW )@@G@@[@X@@@@@@@@@F@]@@8PROGRAM STOP OCCURED IN COMMON BANK C$STRING AT ADDRESXX )@@G@@S::OGR#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@XY )@@G@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@[ ]@[@@@@@@@@&^@[CCZ@C@@@@XZ )@@G@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@[ ]@[@@@@@@@@$^@[CCZYA )@@G@@@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@YB )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400052 [@X@@@@@@@@@F@]@@'PROGRAM STOP OCCURYC )@@G@@ED IN COMMON BANK C$SYMBIONT AT ADDRESS:GR#[#@@@P ]@[@@@@@@@@[YD )@@G@@[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@YE )@@G@@]@[@@@@@@@@%]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@YF )@@G@@[@F@@@]@[@@@@@@@@%]@[@@@@@@@@$^@[CCZ@C@@@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__YG )@@G@@[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@BDI$400061 YH )@@G@@[@X@@@@@@@@@E@]@@6PROGRAM STOP OCCURED IN COMMON BANK C$TAPE AT ADDRESS:YI )@@G@@#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@YJ )@@G@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@[@@@@@@@@1]@[@@@@@@@@&^@[CCZ@C@@@@@/@@@@YK )@@G@@@@@CC<[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@]@[@@@@@@@@1]@[@@@@@@@@$^@[CCZ@C@@@@YL )@@G@@@/@@@@@@@CC0[@Y@@@]@[@@@@@@@__[@J@@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[YM )@@G@@[@^@@@[@X@@@#[#@@@END$OF$BDIS [@X@@@@@@@@@#@]@@C,P-1 . [@W@@@@@@@@@YN )@@G@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@]@]@@AC$S [@V@@@@@@@@@]@]@@[@@@@@ [@W@@@YO )@@G@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@YP )@@G@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@[@Y@@@]@]@@A [@F@@@[@Q@@ [@U@@@]@[@@@YQ )@@G@@@@@@@[[@^@@@[@X@@@#[#@@@MAIN$4 [@X@@@@@@@@@A@]@@VCANNOT LOCATE STOPYR )@@G@@ ADDRESS:MON#[#@@@P ]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@]@]@@[@@@@@ YS )@@G@@[@W@@@@@@@@@#[#@@@MAIN$6 [@X@@@@@@@@@[[#_"\^@[CCZ@C@@@@@/@@@@@@@CC)YT )@@G@@[@Y@@@]@]@@#@@@C$D[@F@@@[[#_"\^@[CCZ@C@@@@@/@@@@@@@CC([@Y@@@]@]@@#@@@C$SYU )@@G@@[@F@@@[@K@@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@MAIN$6 [@X@@@YV )@@G@@@@@@@@[[#_"\^@[CCZ@C@@@@@/@@@@@@@CC)[@Y@@@]@]@@#@@@C$S[@F@@@[@Q@@^#[#@@@YW )@@G@@MAIN$4A [@X@@@@@@@@@[[#_":^@[CCZ@@@@@@@@@@@@@@@@@@#[#@@@SAR$ADR YX )@@G@@^@[CCZ@@@@[L@@@J__@@@@@@[@Y@@@[@V@@@@@@@@@#[#@@@MAIN$4D [@X@@@@@@@@@YY )@@G@@#[P@@@LOCAL$WS #[#@@@SAR$ADR ]@[@@@@@@@[7[@^@@@[@0@@@@@@@@@#[#@@@YZ )@@G@@LOCAL$WS ^@[CCZ@C@@@#@/@J__@@@CC+[@Y@@@]@[@@@@@@@@#[@I@@@[@Q@@^#[#@@@ZA )@@G@@MAIN$4C [@X@@@@@@@@@#[P@@@LOCAL$WS #[#@@@LOCAL$WS ]@[@@@@@@@@#ZB )@@G@@[@^@@@[@0@@@@@@@@@[[#_/:[@X@@@@@@@@@[[#_":^@[CCZ@@@@@@@@@@@@@@@@@@#[#@@@ZC )@@G@@LOCAL$WS ^@[CCZ@@@@@[@@@J__@@@@@@[@Y@@@[@V@@@@@@@@@[@2@@@[[#_":^@[CCZZD )@@G@@@^@@@@@/@@@@@@@CC=[@Y@@@[[#_":^@[CCZ@C@@@@@/@@@@@@@CC%[@Y@@@#[1@@@AD$FINZE )@@G@@D$STOP[@W@@@@@@@@@[[#_"\^@[CCZ@@@@@@@@@@@@@@@@@@[@Y@@@]@]@@A [@F@@@ZF )@@G@@[@Q@@ [@U@@@]@[@@@@@@@@[[@^@@@[@X@@@#[#@@@MAIN$5 [@X@@@@@@@@@B@]@@)ZG )@@G@@CANNOT LOCATE USER STOP ADDRESS:ANK [[#_":^@[CCZ@^@@@@@/@@@@@@@CC$[@Y@@@ZH )@@G@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ZI )@@G@@]@[@@@@@@@@][@^@@@[@0@@@@@@@@@#[#@@@MAIN$6 [@X@@@@@@@@@B@]@@)USER PZJ )@@G@@ROGRAM STOPPED IN ELEMENT:ANK [[#_"\^@[CCZ[@0@@@_#_@@@@@@CC$[@Y@@@ @]@@PZK )@@G@@ AT RELATIVE ADDRESS:IN [[#_":^@[CCZ@^@@@@@/@@@@@@@CC2[@Y@@@#[#@@@LC$STAZL )@@G@@RT$ADR[@ @@@]@[@@@@@@@@[[@ @@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[P@@@ZM )@@G@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@#[#@@@SCREENZN )@@G@@$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$7 [@X@@@@@@@@@#[#@@@LINE$CZO )@@G@@OUNT ]@[@@@@@@@@A[@^@@@#[#@@@SCREEN$SIZE [@D@@@[@Q@@ [@U@@@]@[@@@@@@@@[ZP )@@G@@[@^@@@[@X@@@#[#@@@MAIN$7 [@X@@@@@@@@@#[P@@@JUMP$SW [[#_/V[@0@@@ZQ )@@G@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@A@]@@WMAIN IBANK STARTING ADDRESS:ENZR )@@G@@#[#@@@LC$01 [@2@@@]@[@@@@@@@@&#[1@@@TAB ^@]@@JCONDITION WOZS )@@G@@RD: [[#_";^@[CCZ@@W@@@@#_@@@@@@@@@[@Y@@@[@W@@@@@@@@@]@]@@[@@@@@ [@W@@@ZT )@@G@@@@@@@@^@]@@MCTA TABLE ADDRESS:#[#@@@CTA$ADR [@2@@@]@[@@@@@@@@&#[1@@@ZU )@@G@@TAB @]@@PFILDIR TABLE ADDRESS:DDR#[#@@@FILDIR$ADR [@W@@@@@@@@@ZV )@@G@@]@]@@[@@@@@ [@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@^ZW )@@G@@[@^@@@[@0@@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$2ZX )@@G@@0 [@X@@@@@@@@@ @]@@OCURRENT CTA ADDRESS::DDR#[#@@@CURR$CTA [@2@@@ZY )@@G@@]@[@@@@@@@@&#[1@@@TAB @]@@RCURRENT FILDIR ADDRESS:R#[#@@@CURR$FZZ )@@G@@ILDIR [@W@@@@@@@@@]@]@@[@@@@@ [@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$CAA )@@G@@OUNT ]@[@@@@@@@@][@^@@@[@0@@@@@@@@@#[#@@@MAX$PROG$IX ]@[@@@@@@@@@[@F@@@AB )@@G@@[@Q@@^#[#@@@MAIN$20 [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@AC )@@G@@[@Q@@^#[#@@@MAIN$11 [@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT AD )@@G@@]@[@@@@@@@@ [@^@@@[@0@@@@@@@@@#[P@@@INDX2 #[#@@@LINE$COUNT ]@[@@@AE )@@G@@@@@@@][@^@@@[@0@@@@@@@@@#[#@@@INDX2 #[#@@@SCREEN$SIZE [@E@@@[@Q@@^AF )@@G@@#[#@@@MAIN$11 [@X@@@@@@@@@#[P@@@JUMP$SW [[#_/N[@0@@@@@@@@@#[#@@@AG )@@G@@NEWPAGE [@X@@@@@@@@@#[P@@@INDX1 ]@[@@@@@@@@[[@0@@@@@@@@@]@]@@[AH )@@G@@@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@O#[1@@@TAB C@]@@&***** LIST OAI )@@G@@F ACTIVE SUBPROGRAMS *****TAPE[@W@@@@@@@@@^@]@@JSUBPROGRAM NAMECTI[@2@@@AJ )@@G@@]@[@@@@@@@@M#[1@@@TAB ^@]@@IFILDIR ADDRESS [@2@@@]@[@@@@@@@@-AK )@@G@@#[1@@@TAB #@]@@FCTA ADDRESS [@2@@@]@[@@@@@@@@0#[1@@@TAB AL )@@G@@]@]@@#@@@BDI[@2@@@]@[@@@@@@@@'#[1@@@TAB ^@]@@MIBANK BASE ADDRESSAM )@@G@@[@W@@@@@@@@@^@]@@J---------------ESS[@2@@@]@[@@@@@@@@M#[1@@@TAB AN )@@G@@^@]@@I-------------- [@2@@@]@[@@@@@@@@-#[1@@@TAB #@]@@F------AO )@@G@@----- [@2@@@]@[@@@@@@@@0#[1@@@TAB ]@]@@#@@@---[@2@@@]@[@@@@@@@@'AP )@@G@@#[1@@@TAB ^@]@@M------------------[@W@@@@@@@@@[[#__:^@[CC_[@0@@@AQ )@@G@@_#_@@@@@@CJF#[#@@@INDX1 ]@[@@@@@@@@][@A@@@[@N@@@[@Y@@@[@2@@@]@[@@@AR )@@G@@@@@@@P#[1@@@TAB [[#__Z^@[CC_@^Q@@@@__@@@@@@CJV#[#@@@INDX1 AS )@@G@@[@N@@@[@Y@@@[@2@@@]@[@@@@@@@@=#[1@@@TAB [[#__<^@[CC_@^Q@@@@__@@@AT )@@G@@@@@CJ:#[#@@@INDX1 [@N@@@[@Y@@@[@2@@@]@[@@@@@@@@\#[1@@@TAB AU )@@G@@[[#__R^@[CC_@CQ@@@@__@@@@@@CJ;#[#@@@INDX1 [@N@@@[@Y@@@[@2@@@]@[@@@AV )@@G@@@@@@[@#[1@@@TAB [[#__R^@[CC_@^Q@@@@__@@@@@@CKF#[#@@@INDX1 AW )@@G@@[@N@@@[@Y@@@[@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@[AX )@@G@@[@^@@@[@0@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@AY )@@G@@[@0@@@@@@@@@#[#@@@INDX1 #[#@@@MAX$PROG$IX [@D@@@[@Q@@^#[#@@@MAIN$2AZ )@@G@@0 [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@][[#_/F[@X@@@BA )@@G@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@][[#_/F[@X@@@@@@@@@BB )@@G@@#[P@@@JUMP$SW [[#_/F[@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@[[#__BBC )@@G@@^@[CC_@@@@@@@@@@@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@DONE BD )@@G@@[@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@MAIN$21 BE )@@G@@[@X@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@ [@^@@@[@0@@@BF )@@G@@@@@@@@#[#@@@LINE$COUNT ]@[@@@@@@@@][@^@@@#[#@@@SCREEN$SIZE [@E@@@[@Q@@^BG )@@G@@#[#@@@MAIN$21 [@X@@@@@@@@@#[P@@@JUMP$SW [[#_/B[@0@@@@@@@@@#[#@@@BH )@@G@@NEWPAGE [@X@@@@@@@@@#[P@@@INDX1 ]@[@@@@@@@@@[@0@@@@@@@@@]@]@@[BI )@@G@@@@@@@ [@W@@@@@@@@@[@2@@@]@[@@@@@@@@U#[1@@@TAB @]@@S***** FILE SBJ )@@G@@UMMARY *****[@W@@@@@@@@@#@]@@DFILE NAME [@2@@@]@[@@@@@@@@K#[1@@@TAB BK )@@G@@ ]@]@@^@@TYPE[@2@@@]@[@@@@@@@@1#[1@@@TAB ]@]@@ASTATUS[@2@@@BL )@@G@@]@[@@@@@@@[]#[1@@@TAB #@]@@FFCB ADDRESS [@W@@@@@@@@@#@]@@D------BM )@@G@@--- [@2@@@]@[@@@@@@@@K#[1@@@TAB ]@]@@^@@----[@2@@@]@[@@@@@@@@1BN )@@G@@#[1@@@TAB ]@]@@A------[@2@@@]@[@@@@@@@[]#[1@@@TAB #@]@@FBO )@@G@@----------- [@W@@@@@@@@@#[P@@@FCB$ADR [[#__#^@[CC_@@@@@@@@@@@@@@@@@@BP )@@G@@#[#@@@INDX1 [@N@@@[@Y@@@[@0@@@@@@@@@#[P@@@FILE$TYP #[#@@@FCB$ADBQ )@@G@@R ^@[CC_@0@@@]@/@J__@@@CJD[@Y@@@[@0@@@@@@@@@#[P@@@FILE$STATUS #[#@@@BR )@@G@@FCB$ADR ^@[CC_@?@@@]@/@J__@@@CJD[@Y@@@[@0@@@@@@@@@#[#@@@FILE$STATUS BS )@@G@@]@[@@@@@@@@@[@I@@@[@Q@@^#[#@@@STAT1 [@X@@@@@@@@@[[#_"3^@[CC_@@@@@@BT )@@G@@@@@@@@@@@@@@]@]@@A00, NE[@V@@@@@@@@@[[#_"3^@[CC_@@@@@[@@@J__@@@@@@]@]@@ABU )@@G@@VER OP[@V@@@@@@@@@[[#_"3^@[CC_@@@@@]@@@J__@@@@@@]@]@@AENED [@V@@@@@@@@@BV )@@G@@#[#@@@FILE$STATUS ]@[@@@@@@@@[[@I@@@[@Q@@^#[#@@@STAT2 [@X@@@@@@@@@BW )@@G@@[[#_"3^@[CC_@@@@@@@@@@@@@@@@@@]@]@@A01, OP[@V@@@@@@@@@[[#_"3^@[CC_@@@@@[BX )@@G@@@@@J__@@@@@@]@]@@AEN INP[@V@@@@@@@@@[[#_"3^@[CC_@@@@@]@@@J__@@@@@@]@]@@ABY )@@G@@UT [@V@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@][@I@@@[@Q@@^#[#@@@STAT3 BZ )@@G@@ [@X@@@@@@@@@[[#_"3^@[CC_@@@@@@@@@@@@@@@@@@]@]@@A02, OP[@V@@@@@@@@@CA )@@G@@[[#_"3^@[CC_@@@@@[@@@J__@@@@@@]@]@@AEN OUT[@V@@@@@@@@@[[#_"3^@[CC_@@@@@]CB )@@G@@@@@J__@@@@@@]@]@@APUT [@V@@@@@@@@@#[#@@@FILE$STATUS ]@[@@@@@@@@#[@I@@@CC )@@G@@[@Q@@^#[#@@@STAT4 [@X@@@@@@@@@[[#_"3^@[CC_@@@@@@@@@@@@@@@@@@]@]@@ACD )@@G@@03, OP[@V@@@@@@@@@[[#_"3^@[CC_@@@@@[@@@J__@@@@@@]@]@@AEN I-O[@V@@@@@@@@@CE )@@G@@[[#_"3^@[CC_@@@@@]@@@J__@@@@@@]@]@@A [@V@@@@@@@@@#[#@@@FILE$STATUS CF )@@G@@]@[@@@@@@@@^[@I@@@[@Q@@^#[#@@@STAT5 [@X@@@@@@@@@[[#_"3^@[CC_@@@@@@CG )@@G@@@@@@@@@@@@@@]@]@@A04, CL[@V@@@@@@@@@[[#_"3^@[CC_@@@@@[@@@J__@@@@@@]@]@@ACH )@@G@@OSED W[@V@@@@@@@@@[[#_"3^@[CC_@@@@@]@@@J__@@@@@@]@]@@A/LOCK [@V@@@@@@@@@CI )@@G@@#[#@@@FILE$STATUS ]@[@@@@@@@@ [@I@@@[@Q@@^#[#@@@TYP01 [@X@@@@@@@@@CJ )@@G@@[[#_"3^@[CC_@@@@@@@@@@@@@@@@@@]@]@@A05, CL[@V@@@@@@@@@[[#_"3^@[CC_@@@@@[CK )@@G@@@@@J__@@@@@@]@]@@AOSED [@V@@@@@@@@@[[#_"3^@[CC_@@@@@]@@@J__@@@@@@]@]@@ACL )@@G@@ [@V@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@[[@I@@@[@Q@@^#[#@@@TYP02 CM )@@G@@ [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@CN )@@G@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y01, 1968 STD TAPE [@2@@@CO )@@G@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@CP )@@G@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TCQ )@@G@@YP ]@[@@@@@@@@][@I@@@[@Q@@^#[#@@@TYP03 [@X@@@@@@@@@#[#@@@FCB$ADCR )@@G@@R ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB CS )@@G@@A@]@@Y02, IBM 360 TAPE [@2@@@]@[@@@@@@@@,#[1@@@TAB CT )@@G@@[[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB CU )@@G@@#[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@#[@I@@@[@Q@@^CV )@@G@@#[#@@@TYP04 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJACW )@@G@@[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y03, LION TAPE CX )@@G@@ [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJYCY )@@G@@[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@CZ )@@G@@#[#@@@FILE$TYP ]@[@@@@@@@@^[@I@@@[@Q@@^#[#@@@TYP05 [@X@@@@@@@@@DA )@@G@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@DB )@@G@@TAB A@]@@Y04, CFH TAPE [@2@@@]@[@@@@@@@@,#[1@@@DC )@@G@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@DD )@@G@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@ DE )@@G@@[@I@@@[@Q@@^#[#@@@TYP06 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@DF )@@G@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y05, SEQ MASSDG )@@G@@-STORAGE [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@DH )@@G@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR DI )@@G@@[@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@A[@I@@@[@Q@@^#[#@@@TYP07 DJ )@@G@@[@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@DK )@@G@@@@@@@K#[1@@@TAB A@]@@Y06, DIRECT FILE [@2@@@]@[@@@DL )@@G@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@DM )@@G@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP DN )@@G@@]@[@@@@@@@@B[@I@@@[@Q@@^#[#@@@TYP10 [@X@@@@@@@@@#[#@@@FCB$ADR DO )@@G@@^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@YDP )@@G@@07, ISAM (NOT MSAM) [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3DQ )@@G@@^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@DR )@@G@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@C[@I@@@[@Q@@^#[#@@@DS )@@G@@TYP11 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@DT )@@G@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y010, PRINTER DU )@@G@@[@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@DV )@@G@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@DW )@@G@@FILE$TYP ]@[@@@@@@@@D[@I@@@[@Q@@^#[#@@@TYP12 [@X@@@@@@@@@#[#@@@DX )@@G@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB DY )@@G@@ A@]@@Y011, CARD-PUNCH [@2@@@]@[@@@@@@@@,#[1@@@TAB DZ )@@G@@ [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB EA )@@G@@ #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@E[@I@@@EB )@@G@@[@Q@@^#[#@@@TYP13 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@EC )@@G@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y012, CARD-READER ED )@@G@@ [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@EE )@@G@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@EF )@@G@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@F[@I@@@[@Q@@^#[#@@@TYP14 [@X@@@EG )@@G@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@KEH )@@G@@#[1@@@TAB A@]@@Y013, FORM01, 02, 03 TAPE [@2@@@]@[@@@@@@@@,EI )@@G@@#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^EJ )@@G@@#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@EK )@@G@@@@@@@G[@I@@@[@Q@@^#[#@@@TYP15 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_EL )@@G@@[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y014, DEM )@@G@@EVICE INDEPENDENT [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_EN )@@G@@]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADEO )@@G@@R [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@H[@I@@@[@Q@@^#[#@@@TYP16 EP )@@G@@ [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@EQ )@@G@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y015, SEQ SDF (NOT PCIOS) [@2@@@ER )@@G@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@ES )@@G@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TET )@@G@@YP ]@[@@@@@@@@I[@I@@@[@Q@@^#[#@@@TYP17 [@X@@@@@@@@@#[#@@@FCB$ADEU )@@G@@R ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB EV )@@G@@A@]@@Y016, DIRECT SDF (NOT PCIOS) [@2@@@]@[@@@@@@@@,#[1@@@TAB EW )@@G@@[[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB EX )@@G@@#[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@J[@I@@@[@Q@@^EY )@@G@@#[#@@@TYP20 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJAEZ )@@G@@[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y017, INFO INTERCHANGE FA )@@G@@ [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJYFB )@@G@@[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@FC )@@G@@#[#@@@FILE$TYP ]@[@@@@@@@@K[@I@@@[@Q@@^#[#@@@TYP21 [@X@@@@@@@@@FD )@@G@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@FE )@@G@@TAB A@]@@Y020, TAPE [@2@@@]@[@@@@@@@@,#[1@@@FF )@@G@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@FG )@@G@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@LFH )@@G@@[@I@@@[@Q@@^#[#@@@TYP22 [@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@FI )@@G@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@Y021, SEQ DISFJ )@@G@@K [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@FK )@@G@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR FL )@@G@@[@W@@@@@@@@@#[#@@@FILE$TYP ]@[@@@@@@@@M[@I@@@[@Q@@^#[#@@@TYP23 FM )@@G@@[@X@@@@@@@@@#[#@@@FCB$ADR ^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@FN )@@G@@@@@@@K#[1@@@TAB A@]@@Y022, RELATIVE DISK [@2@@@]@[@@@FO )@@G@@@@@@@,#[1@@@TAB [[#_"3^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@FP )@@G@@@@@@[^#[1@@@TAB #[#@@@FCB$ADR [@W@@@@@@@@@#[#@@@FILE$TYP FQ )@@G@@]@[@@@@@@@@N[@I@@@[@Q@@^#[#@@@TEND [@X@@@@@@@@@#[#@@@FCB$ADR FR )@@G@@^@[CC_[@0@@@_#_@@@@@@CJA[@Y@@@[@2@@@]@[@@@@@@@@K#[1@@@TAB A@]@@YFS )@@G@@023, MSAM FILE [@2@@@]@[@@@@@@@@,#[1@@@TAB [[#_"3FT )@@G@@^@[CC_]@0@@@_#_@@@@@@CJY[@Y@@@[@2@@@]@[@@@@@@@[^#[1@@@TAB #[#@@@FU )@@G@@FCB$ADR [@W@@@@@@@@@#[P@@@LINE$COUNT #[#@@@LINE$COUNT ]@[@@@@@@@@[FV )@@G@@[@^@@@[@0@@@@@@@@@#[P@@@INDX1 #[#@@@INDX1 ]@[@@@@@@@@[[@^@@@FW )@@G@@[@0@@@@@@@@@#[#@@@INDX1 #[#@@@MAX$FILE$IX [@D@@@[@Q@@^#[#@@@DONE FX )@@G@@ [@X@@@@@@@@@#[#@@@SCREEN$SIZE ]@[@@@@@@@@@[@F@@@[@Q@@][[#_;_[@X@@@FY )@@G@@@@@@@@#[#@@@LINE$COUNT #[#@@@SCREEN$SIZE [@E@@@[@Q@@][[#_;_[@X@@@@@@@@@FZ )@@G@@#[P@@@JUMP$SW [[#_;_[@0@@@@@@@@@#[#@@@NEWPAGE [@X@@@@@@@@@[[#__7GA )@@G@@^@[CC_@@@@@@@@@@@@@@@@@@]@[@@@@@@@@@[@V@@@@@@@@@[[#__7^@[CC_@@@@@@@@@@@@GB )@@G@@@@@@@@[@Y@@@]@[@@@@@@@@@[@F@@@[@Q@@^#[#@@@EXIT [@X@@@@@@@@@]@]@@[GC )@@G@@@@@@@ [@W@@@@@@@@@E@]@@3OUTPUT STILL AVAILABLE, PRESS TRANSMIT TO CONTINGD )@@G@@UE,SS:[@W@@@@@@@@@A@]@@UOR USE AD$RESET FUNCTION..ESS [@W@@@@@@@@@[@4@@@GE )@@G@@@@@@@@^@ @@@@@@@JH@@@B12[@/@@[^@ @@@@@@@#7EXIT ^@ @@@@@@@#3NEWPAGGF )@@G@@E ^@ @@@@@@@#2DONE ^@ @@@@@@@#:TEND ^@ @@@@@@@#(TYP23 GG )@@G@@ ^@ @@@@@@@#$TYP22 ^@ @@@@@@@#>TYP21 ^@ @@@@@@@#MAIN$21 ^@ @@@@@@@]ZMAIN$2GP )@@G@@0 ^@ @@@@@@@]RMAIN$12 ^@ @@@@@@@]MMAIN$11 ^@ @@@@@@@]FMAIN$1GQ )@@G@@0 ^@ @@@@@@@]]MAIN$7 ^@ @@@@@@@["MAIN$6 ^@ @@@@@@@[;MAIN$5GR )@@G@@ ^@ @@@@@@@[5MAIN$4D ^@ @@@@@@@[4MAIN$4C ^@ @@@@@@@[1MAIN$4GS )@@G@@B ^@ @@@@@@@[0MAIN$4A ^@ @@@@@@@[?MAIN$4 ^@ @@@@@@@[$MAIN$3GT )@@G@@ ^@ @@@@@@@[&END$OF$BDIS ^@ @@@@@@@[=PROGRAMSTOPO^@ @@@@@@@[ LOCAL SPT$ADR$(0100)HL )@@G@@,CTA$ADR$(0100),FILDIR$ADR$(0100) @H@@@> LOCAL LC$00$(0100),LHM )@@G@@C$01$(0100),FCB$LIST$(0100),PARAM$LIST$(0100) @ @@@> LOCAL LCHN )@@G@@$04$(0100) @F@@@> LOCAL FILE$NAME$(0200),FCB$ADR$(0100),REC$ADHO )@@G@@R$(0100) @ @@@> LOCAL COND$WORD(1) @C@@@> LOCAL FIHP )@@G@@LE$TYPE$(5),FILE$STATUS$(3) @C@@@> LOCAL STOP$ELEMENT(2),USERHQ )@@G@@$STOP(1) @ @@@> GO INIT$SW[]=0\INIT$@#@@@> GO MAIN$HR )@@G@@@[@@@>INIT$:@ @@@>. **INITIALIZATION ROUTINE ** @^@@@> INIT$SW[HS )@@G@@]:=1 @ @@@> JUMP$SW:=MAIN$1 @[@@@>MAIN$:@^@@@>. ** MAIN ROHT )@@G@@UTINE ** @^@@@> LINE$COUNT:=0 @^@@@> GO JUMP$SW HU )@@G@@@]@@@>MAIN$1: @#@@@> ' ' @#@@@> ' ' @#@@@>HV )@@G@@ ' ' @#@@@> ' ' @#@@@> ' ' @#@@@>HW )@@G@@ ' ' @#@@@> ' ' @#@@@> ' ' @#@@@>HX )@@G@@ ' ' @#@@@> ' ' @E@@@> TAB(20),'*****HY )@@G@@********************************' @E@@@> TAB(20),'* ACOB 5R2HZ )@@G@@ DUMPBUSTER VERSION 2R1 *' @E@@@> TAB(20),'*****************IA )@@G@@********************' @#@@@> ' ' @B@@@>. DETERMINE WHERE IB )@@G@@THE PROGRAM STOPPED. @F@@@>. FIRST WE WILL LOOK THRU THE LCT TABLE USIC )@@G@@ING THE AD$FIND$STOP @G@@@>. FUNCTION. IF THAT PROVES FRUITLESS WE WID )@@G@@ILL CHECK THE BDIS IN GRS @F@@@>. LOCATIONS 046 AND 047 TO SEE IF THIE )@@G@@E STOP OCCURED WITHIN A COMMON@]@@@>. BANK. @D@@@> TAB(22),IF )@@G@@'***** PROGRAM STOP ANALYSIS *****' @#@@@> ' ' @^@@@> IG )@@G@@ LINE$COUNT:=6 @ @@@> AD$FIND$STOP(P-1) @C@@@> GOIH )@@G@@ STOP$ELEMENT[]=' '\MAIN$2 %C@@@@-56,57- CLARIFY REII )@@G@@L/ABS ADDRESS @E@@@> 'PROGRAM STOP ADDRESS:',P-1,SKIP(2),'EIJ )@@G@@LEMENT:',; @G@@@> STOP$ELEMENT[:2!F],'AT RELATIVE ADDRESS:',(PIK )@@G@@-1)-LC$START$ADR %@@@@]@#@@@> ' ' @]@@@>GO MAIN$3 @^@@@>IL )@@G@@ GO MAIN$3 @]@@@>MAIN$2: @D@@@>. CHECK TO SEE IF PROGRAIM )@@G@@M STOPPED IN COBOL COMMON BANK@]@@@>BDI$400100: @B@@@> GO (0100IN )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0100=047[,,H1]**07777)\$+1,BDI$IO )@@G@@400050@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$ACS AT ADDIP )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400050: IQ )@@G@@@B@@@> GO (0050=046[,,H1]**07777)++ ; @C@@@> (0050=04IR )@@G@@7[,,H1]**07777)\$+1,BDI$400054@G@@@> 'PROGRAM STOP OCCURED IN COIS )@@G@@MMON BANK C$ANS AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SIT )@@G@@ ' @]@@@>BDI$400054: @B@@@> GO (0054=046[,,H1]**07777)++ ; IU )@@G@@@C@@@> (0054=047[,,H1]**07777)\$+1,BDI$400102@G@@@> 'PRIV )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$CFH AT ADDRESS:',P-1 @A@@@> IW )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400102: @B@@@> GO (0102IX )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0102=047[,,H1]**07777)\$+1,BDI$IY )@@G@@400045@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$CONV AT ADDRIZ )@@G@@ESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400045: JA )@@G@@@B@@@> GO (0045=046[,,H1]**07777)++ ; @C@@@> (0045=04JB )@@G@@7[,,H1]**07777)\$+1,BDI$400106@G@@@> 'PROGRAM STOP OCCURED IN COJC )@@G@@MMON BANK C$DIAG AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SJD )@@G@@ ' @]@@@>BDI$400106: @B@@@> GO (0106=046[,,H1]**07777)++ ; JE )@@G@@@C@@@> (0106=047[,,H1]**07777)\$+1,BDI$400414@G@@@> 'PRJF )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$DML AT ADDRESS:',P-1 @A@@@> JG )@@G@@ STOP$ELEMENT[]:='C$D ' @]@@@>BDI$400414: @B@@@> GO (0106JH )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0106=047[,,H1]**07777)\$+1,BDI$JI )@@G@@400075@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$DML8 AT ADDJJ )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$D ' @]@@@>BDI$400075: JK )@@G@@@B@@@> GO (0075=046[,,H1]**07777)++ ; @C@@@> (0075=04JL )@@G@@7[,,H1]**07777)\$+1,BDI$400073@G@@@> 'PROGRAM STOP OCCURED IN COJM )@@G@@MMON BANK C$FORM AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SJN )@@G@@ ' @]@@@>BDI$400073: @B@@@> GO (0073=046[,,H1]**07777)++ ; JO )@@G@@@C@@@> (0073=047[,,H1]**07777)\$+1,BDI$400103@G@@@> 'PRJP )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$IBM AT ADDRESS:',P-1 @A@@@> JQ )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400103: @B@@@> GO (0103JR )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0103=047[,,H1]**07777)\$+1,BDI$JS )@@G@@400076@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$INITIAL AT AJT )@@G@@DDRESS:',P-1@A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400076: JU )@@G@@@B@@@> GO (0076=046[,,H1]**07777)++ ; @C@@@> (0076=04JV )@@G@@7[,,H1]**07777)\$+1,BDI$400074@G@@@> 'PROGRAM STOP OCCURED IN COJW )@@G@@MMON BANK C$LABEL AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SJX )@@G@@ ' @]@@@>BDI$400074: @B@@@> GO (0074=046[,,H1]**07777)++ ; JY )@@G@@@C@@@> (0074=047[,,H1]**07777)\$+1,BDI$400051@G@@@> 'PRJZ )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$LION AT ADDRESS:',P-1 @A@@@> KA )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400051: @B@@@> GO (0051KB )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0051=047[,,H1]**07777)\$+1,BDI$KC )@@G@@400104@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$MASS AT ADDKD )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400104: KE )@@G@@@B@@@> GO (0104=046[,,H1]**07777)++ ; @C@@@> (0104=04KF )@@G@@7[,,H1]**07777)\$+1,BDI$400077@G@@@> 'PROGRAM STOP OCCURED IN COKG )@@G@@MMON BANK C$MCS AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SKH )@@G@@ ' @]@@@>BDI$400077: @B@@@> GO (0077=046[,,H1]**07777)++ ; KI )@@G@@@C@@@> (0077=047[,,H1]**07777)\$+1,BDI$400053@G@@@> 'PRKJ )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$RPW AT ADDRESS:',P-1 @A@@@> KK )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400053: @B@@@> GO (0053KL )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0053=047[,,H1]**07777)\$+1,BDI$KM )@@G@@400047@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$SDF AT ADDKN )@@G@@RESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400047: KO )@@G@@@B@@@> GO (0047=046[,,H1]**07777)++ ; @C@@@> (0047=04KP )@@G@@7[,,H1]**07777)\$+1,BDI$400046@G@@@> 'PROGRAM STOP OCCURED IN COKQ )@@G@@MMON BANK C$IIOB AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$SKR )@@G@@ ' @]@@@>BDI$400046: @B@@@> GO (0046=046[,,H1]**07777)++ ; KS )@@G@@@C@@@> (0046=047[,,H1]**07777)\$+1,BDI$400101@G@@@> 'PRKT )@@G@@OGRAM STOP OCCURED IN COMMON BANK C$ISAM AT ADDRESS:',P-1 @A@@@> KU )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400101: @B@@@> GO (0101KV )@@G@@=046[,,H1]**07777)++ ; @C@@@> (0101=047[,,H1]**07777)\$+1,BDI$KW )@@G@@400105@G@@@> 'PROGRAM STOP OCCURED IN COMMON BANK C$STRING AT ADKX )@@G@@DRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400105: KY )@@G@@@B@@@> GO (0105=046[,,H1]**07777)++ ; @C@@@> (0105=04KZ )@@G@@7[,,H1]**07777)\$+1,BDI$400052@H@@@> 'PROGRAM STOP OCCURED IN COLA )@@G@@MMON BANK C$SYMBIONT AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]LB )@@G@@:='C$S ' @]@@@>BDI$400052: @B@@@> GO (0052=046[,,H1]**07777)LC )@@G@@++ ; @C@@@> (0052=047[,,H1]**07777)\$+1,BDI$400061@G@@@> LD )@@G@@ 'PROGRAM STOP OCCURED IN COMMON BANK C$TAPE AT ADDRESS:',P-1 @A@@@>LE )@@G@@ STOP$ELEMENT[]:='C$S ' @]@@@>BDI$400061: @B@@@> GOLF )@@G@@ (0061=046[,,H1]**07777)++ ; @D@@@> (0061=047[,,H1]**07777)\$+LG )@@G@@1,END$OF$BDIS @G@@@> PROGRAM STOP OCCURED IN COMMON BANK C$LH )@@G@@SORT AT ADDRESS:',P-1 @A@@@> STOP$ELEMENT[]:='C$S ' @]@@@>LI )@@G@@END$OF$BDIS:@#@@@> ' ' @]@@@>MAIN$3: @E@@@>. NOW THAT WLJ )@@G@@E (HOPEFULLY!!) KNOW WHERE THE PROGRAM STOPPED, @E@@@>. CHECK TO SEE IF LK )@@G@@IT WAS A C$S OR C$D SYSTEM RELOCATABLE @F@@@>. LIBRARY ELEMENT, AND ALL )@@G@@TTEMPT TO FIND WHERE THE USER PROGRAM @B@@@>. STOPPED USING THE AD$FLM )@@G@@IND$STOP FUNCTION.@A@@@> LINE$COUNT:=LINE$COUNT+2 @C@@@> LN )@@G@@ GO STOP$ELEMENT[]=' '\$+1,MAIN$4 @C@@@> 'CANNOT LOCATELO )@@G@@ STOP ADDRESS:',P-1 @#@@@> ' ' @^@@@> GO MAIN$LP )@@G@@6 @]@@@>MAIN$4: @G@@@> GO (STOP$ELEMENT[,,H1]='C$D')++(LQ )@@G@@STOP$ELEMENT[,,H1]='C$S'); @^@@@> \$+1,MAIN$6 @C@@@( LR )@@G@@ GO STOP$ELEMENT[,,H1]='C$S'\MAIN$4A @A@@@( USER$STOP[]:=SLS )@@G@@AR$ADR[0121]@^@@@( GO MAIN$4D @]@@@(MAIN$4A: @A@@@( LT )@@G@@ LOCAL$WS:=SAR$ADR+0167 @]@@@(MAIN$4B: @B@@@( GO LOCALLU )@@G@@$WS[3,,H1]=/3\MAIN$4C @ @@@( LOCAL$WS:=LOCAL$WS+3@^@@@( LV )@@G@@ GO MAIN$4B @]@@@(MAIN$4C: @A@@@( USER$STOP[]:=LOCAL$WLW )@@G@@S[1] @]@@@(MAIN$4D: %B@@@@-188,188- ADJUST C$S ADDRESS LX )@@G@@@E@&@> USER$STOP[]:=STOP$ELEMENT[,,H1]='C$S'\SAR$ADR[173]@F@(@&LY )@@G@@ USER$STOP[]:=STOP$ELEMENT[,,H1]='C$S'\SAR$ADR[0173] %@@@@[LZ )@@G@@@F@(@> USER$STOP[]:=STOP$ELEMENT[,,H1]='C$D'\SAR$ADR[0121] MA )@@G@@%C@@@@-189 FOR ADDRESS IN USER BANK @E@@@> ADMB )@@G@@$FIND$STOP(USER$STOP[,,H2],USER$STOP[,,H1]) @C@@@> GO STOP$MC )@@G@@ELEMENT[]=' '\$+1,MAIN$5 @E@@@> 'CANNOT LOCATE USER STOP AMD )@@G@@DDRESS:',USER$STOP[,,H2]@ @&@> XX:=USER$STOP[] @#@@@> ME )@@G@@ ' ' @A@@@> LINE$COUNT:=LINE$COUNT+2 @^@@@> GOMF )@@G@@ MAIN$6 @]@@@>MAIN$5: @F@@@> 'USER PROGRAM STOPPED IN EMG )@@G@@LEMENT:',STOP$ELEMENT[:2!F],; %C@@@@-198,198- CLARIFY REL/ABS MH )@@G@@ADDRESS @F@@@> ' AT RELATIVE ADDRESS:',USER$STOP[,,H2]-LC$SMI )@@^@@TART$ADR-1 %@@@@[@#@@@> MJ @EOF @COPY,IO TEMP.1046-001-001,1046-001-001. @FREE TEMP.