@CAT,P 1028-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1028-001-001,,,130300053241,000 )@@G@@**PF**@@@[V'@@@@@@@@@@@[@F8@@@]FE^U1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@P@@B)@@@]F^ 34@@@@@@@@@@@8@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@#N,OW@@@@@@@@@@@@@@@@@ @@@@@@@@U@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@9@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@AE )@@G@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@V@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@]@@@@@@@@@@@K@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@I@@@@@@@@@@@M@@@AJ )@@G@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@S@@@@@@@@@@@G@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@@@@F@@@@@@@@@@@@@@R@@@@@@@@@@@@@@@@@@@@#@@@AM )@@G@@@@@@@@@@5@@@@@@@@@@@@@@7@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@"AN )@@G@@FINDER @@@@@@@@[@@- @ @@@[]@@@@!@@@@W@BP=[JEHEAD1 AO )@@G@@@@@@@@@@[@@+ @ @@@[^@@@@Y@@@@W!F,>GNDHEAD2 @@@@@@@@[@@ @ @@@[]@@@@ BB )@@G@@@@@@=\A3FDNFCTCDIT @@@@@@@@[@@Y @ @@@[^@@@[W@@@@=4G%LDNFBC )@@G@@TBL8 @@@@@@@@[@@2 @ @@@[^@@@]/@@@@&KG,/DNFCHKCC BD )@@G@@@@@@@@@@[@@X @ @@@[^@@@[[@@@@(GC;ADSFDCT @@@@@@@@A@@@BE )@@G@@ )@@]@@@@@@A^@@@@%HD]GDSFMAPDCT @@@@@@@@[@@4 BF )@@G@@@ @@@[A@@@@#@@@@0LC]>EDFDCTNRY @@8@@@)@A@@@ )@@]@@@@@@ $BG )@@G@@@@@@0OC#KEDFDCT8 @@@@@@@@[@@Z @ @@@[^@@@D"@@@@5;I;]]UGBH )@@G@@PROCRD @@@@@@@@[@@, @ @@@[^@@@@/@@@@_9J^0]UGISDFIO BI )@@G@@@@@@@@@@[@@& @ @@@[] @@D@@@[@5F1R]VGHEAD3 @@@@@@@@[@@=BJ )@@G@@ @ @@@[^@@@@*@@@[@"HB$]VGASMDCT8 @@@@@@@@ @@@ BK )@@G@@@@@[[\@@#@@D@@@[[&NGQ]VGCHKCC @@@@@@@@ @@@ @@@[] @@]@@NBL )@@G@@@@@[[2NG;]VGCTCDIT @@@@@@@@ @@@ @@@[]>@@#@@Y@@@[]BNTF]VGBM )@@G@@DCT8 @@@@@@@@ @@@ @@@[ #@@^@]V@@@[]*NT)]VGE8TCTD BN )@@G@@@@@@@@@@ @@@ @@@[ I@@]@@B@@@[ BNT:]VGFINDER @@@@@@@@ @@@BO )@@G@@ @@@[ Q@@[@@A@@@[ KNT0]VGHEAD1 @@@@@@@@ @@@ BP )@@G@@@@@[ $@@[@@K@@@[ RNU6]VGHEAD2 @@@@@@@@ @@@ @@@[ 3@@[@@FBQ )@@G@@@@@[ *NU/]VGHEAD3 @@@@@@@@ @@@ @@@[AB@@[@@N@@@[ 4NV#]VGBR )@@G@@IDLIN @@@@@@@@ @@@ @@@[AD@@[@@[@@@[ACNVB]VGISDFIO BS )@@G@@@@@@@@@@ @@@ @@@[AG@@[@@]@@@[AENVE]VGITF @@@@@@@@ @@@BT )@@G@@ @@@[AI@@[@@[@@@[AHNVF]VGLIBS @@@@@@@@ @@@ BU )@@G@@@@@[AK@@]@@[@@@[AJNVH]VGMAIN @@@@@@@@ @@@ @@@[AO@@]@@]BV )@@G@@@@@[AMNV&]VGMRGHD @@@@@@@@ @@@ @@@[A&@@[@@K@@@[AQNV?]VGBW )@@G@@MRG8 @@@@@@@@ @@@ @@@[BF@@]@@=@@@[A$NV2]VGOP BX )@@G@@@@@@@@@@ @@@ @@@[BS@@^@@F@@@[BHNV8]VGPRINT @@@@@@@@ @@@BY )@@G@@ @@@[BX@@[@@[@@@[BWNV9]VGPROCRD @@@@@@@@ @@@ BZ )@@G@@@@@[B4@@#@@Q@@@[BYNV_]VGPRTERR @@@@@@@@ @@@ @@@[C[@@]@@ECA )@@G@@@@@[B7NW ]VGRDS @@@@@@@@ @@@ @@@[CD@@[@@A@@@[C#NWF]VGCB )@@G@@SQUASH @@@@@@@@ @@@ @@@[CR@@[@@H@@@[CENWN]VGTBL8 CC )@@G@@@@@@@@@@ @@@ @@@[D=@@^@[G@@@[CSNWT]VGTPROC @@@@@@@@ @@@CD )@@G@@ @@@[D?@@[@@^@@@[D*NWW]VGMAPDCT @@@@@@@[A@@@ CE )@@G@@)@@]@@@@@@AA@@@[D!NW%]VGIRFTI @@@@@@@@[@@6 @ @@@[] @@ECF )@@G@@@@@[J3HW4#]GIRFTI @@@@@@@@ @@@ @@@[J_@@[@@]@@@[J.HX@#]GCG )@@G@@ALLOCATION @@@@@@@@[@@@ @[@@@[@@@@]:@@@[K@HY1#]GDCTNRY CH )@@G@@@@@@@@@@A@@@ )@@]@@@@@@AB@@@[M:HY(#]GUSERDOC @@'@@@)K[@@@CI )@@G@@ @ @@@[A@@@@L@@@[S2HE; SGUSERDOC @@;@@@)K[@@@ CJ )@@G@@@ @@@[A@@@@Y@@@[T#HOJ SGUSERDOC @@/@@@)K[@@@ @ @@@[A@@@@>CK )@@G@@@@@[T-HUT SGUSERDOC @@.@@@)K[@@@ @ @@@[A@@@@*@@@[UAHX< SGCL )@@G@@USERDOC @@@@@@@K[@@@ @ @@@[[@@@@*@@@[U,HRLINELEN THEN KA )@@G@@@E@@@[ ERROR READLEN . ERROR(READLEN); @E@@@[KB )@@G@@ A,U A1,WBUF-1 . EWP := IMLEN @C@@@[ KC )@@G@@ S A1,EWP . END @B@@@[ J 0,A3KD )@@G@@ . @[@@@[. @H@@@[READERR ERROR IOERROR KE )@@G@@ . ELSE IF ERR THEN ERROR(IOERROR) @B@@@[ KF )@@G@@ . @F@@@[READEOF RESTORE . ELSE BKG )@@G@@EGIN RESTORE; @E@@@[ SONE EOFI . EOFIKH )@@G@@ := TRUE END@C@@@[ J 0,A3 . END @D@@@[KI )@@G@@ . END (*READ*); @[@@@[. @[@@@[KJ )@@G@@. @G@@@[WRITE1 SAVE . PROCEDURE ENTRY WRITKK )@@G@@E(A0:^FCT); @G@@@[ . BEGIN WITH A0KL )@@G@@^ DO BEGIN SAVE; @B@@@[ L A1,WPM . @G@@@[KM )@@G@@ L A2,(' ') . REPEAT IF WBUF[WP] = ' ' KN )@@G@@@E@@@[WRREP1 TLE,U A1,WBUF . THEN WP := WP-1 @G@@@[KO )@@G@@ J WRREPE1 . UNTIL (WBUF[WP]<> ' ') KP )@@G@@@E@@@[ TE A2,0,A1 . OR (WP = 0); @ @@@[KQ )@@G@@ J WRREPE1 @^@@@[ AN,U A1,1@ @@@[ KR )@@G@@ J WRREP1 @ @@@[WRREPE1 AN,U A1,WBUF-1 @ @@@[ KS )@@G@@ LSSL A1,24 @D@@@[ S A1,IMLEN . KT )@@G@@IMLEN := WP;@ @@@[ L,U A0,IFCT @E@@@[ LMJ KU )@@G@@ X11,SDFO . SDFO(IFCT,ERR); @G@@@[ ERROR IOERKV )@@G@@ROR . IF ERR THEN ERROR(IOERROR); @D@@@[ RESTORE KW )@@G@@ . RESTORE @C@@@[ J 0,A3 KX )@@G@@ . END @D@@@[. . END (*WRKY )@@G@@ITE*);@[@@@[. @[@@@[. @G@]@[RESET1 SAVE KZ )@@G@@ . PROCEDURE ENTRY RESET(A0:^FCT); @[@@@]RESET1@G@@@] SAVE LA )@@G@@ . PROCEDURE ENTRY RESET(A0:^FCT); @F@@@[ LB )@@G@@ . BEGIN WITH A0^ DO BEGIN @C@@@[ TNLC )@@G@@Z WRITTEN . SAVE; @F@@@[ ERROR RESETNOTOKLD )@@G@@ . IF NOT WRITTEN THEN @F@@@[ LE )@@G@@ . ERROR(RESETNOTOK); @D@]@[ SZ MSADD LF )@@G@@ . MSADD := 0;@E@ @] S A2,MSADD . MLG )@@G@@SADD := INITIAL @E@@@ S A1,MSADD . MSADD :LH )@@G@@= INITIAL @B@@@[ L,U A1,RLINELEN . @F@@@[ LI )@@G@@ S A1,IMAGELEN . IMAGELEN := RLINELEN; @ @@@[ LJ )@@G@@ L,U A1,CBLENW @E@@@[ S A1,BUFLEN . LK )@@G@@BUFLEN := CBLENW; @E@@@[ TNZ WHERE . IF WHELL )@@G@@RE THEN @H@@@[ J RSELSE1 . BEGIN (* MULM )@@G@@ST DO ACTUAL REWIND *) @ @@@[ L,U A1,REW$ @E@@@[ LN )@@G@@ S A1,FUNC . FUNC := REW$; @ @@@[ L,LO )@@G@@U A0,IFCT @D@@@[ ER IOW$ . IOW$(LP )@@G@@IFCT);@C@@@[RSELSE1 L,U A1,R$ . END; @F@@@[ LQ )@@G@@ S A1,FUNC . FUNC := R$(*READ*); @#@@@^ LR )@@G@@ SAVE @ @@@[ L,U A0,IFCT @E@@@[ LMJ LS )@@G@@ X11,SDFIO . SDFIO(IFCT,ERR); @G@@@[ ERROR IOERLT )@@G@@ROR . IF ERR THEN ERROR(IOERROR); @D@@@[ RESTORE LU )@@G@@ . RESTORE; @E@@@[ SZ EOFI LV )@@G@@ . EOFI := FALSE; @E@@@[ SONE EOLI LW )@@G@@ . EOLI := TRUE; @E@@@[ SONE OPENR . OLX )@@G@@PENR := TRUE; @B@@@[ L,U A1,CBUF . @D@@@[LY )@@G@@ S A1,CPM . CPM := 0; @D@@@[ S LZ )@@G@@ A1,ECP . ECP := 0; @B@@@[ L,U A1,WMA )@@G@@BUF . @D@@@[ S A1,WPM . WPM :=MB )@@G@@ 1; @D@@@[ S A1,EWP . EWP := 1; @C@@@[MC )@@G@@ . END @D@@@[ J MD )@@G@@ 0,A3 . END (*RESET*)@[@@@[. @[@@@[. @]@@@]REWRITME )@@G@@E1 @H@]@[REWRITE1 SAVE . PROCEDURE ENTRY REWRMF )@@G@@ITE(A0:^FCT); @H@@@] SAVE . PROCEDURMG )@@G@@E ENTRY REWRITE(A0:^FCT); @F@@@[ MH )@@G@@ . BEGIN WITH A0^ DO BEGIN @E@]@[ SZ MSADD MI )@@G@@ . SAVE; MSADD := 0;@F@ @] S A2,MSADD . MJ )@@G@@SAVE; MSADD := INITIAL; @F@@@ S A1,MSADD . MK )@@G@@SAVE; MSADD := INITIAL; @E@@@[ TNZ WHERE . ML )@@G@@IF WHERE THEN @H@@@[ J RWELSE1 . BEGINMM )@@G@@ (* MUST DO ACTUAL REWIND *) @ @@@[ L,U A1,REW$ @E@@@[MN )@@G@@ S A1,FUNC . FUNC := REW$; @ @@@[ MO )@@G@@ L,U A0,IFCT @D@@@[ ER IOW$ . MP )@@G@@ IOW$(IFCT);@C@@@[RWELSE1 L,U A1,W$ . END; @F@@@[MQ )@@G@@ S A1,FUNC . FUNC := W$(*WRITE*); @ @@@[MR )@@G@@ L,U A0,IFCT @D@@@[ LMJ X11,SDFOO MS )@@G@@ . SDFOO(IFCT);@D@@@[ RESTORE . RESTORMT )@@G@@E @B@@@[ L A1,(050,01,0,0,0,1). @F@@@[ S MU )@@G@@ A1,CONT . CONT := (*LABEL,ASCII*) @#@@@[ FIMV )@@G@@ELDATA@B@@@[ L A1,('*SDFF*') . @#@@@[ ASMW )@@G@@CII @F@@@[ S A1,WBUF . WBUF[1] := '*SDFF*MX )@@G@@'; @#@@@^ SAVE @ @@@[ L,U A0,IFCT @E@@@[MY )@@G@@ LMJ X11,SDFO . SDFO(IFCT,ERR); @G@@@[ MZ )@@G@@ ERROR IOERROR . IF ERR THEN ERROR(IOERROR); @D@@@[NA )@@G@@ RESTORE . RESTORE; @E@@@[ SONB )@@G@@NE WRITTEN . WRITTEN := TRUE; @E@@@[ SONE NC )@@G@@ OPENW . OPENW := TRUE; @E@@@[ SONE EOFIND )@@G@@ . EOFI := TRUE; @ @@@[ L,U A1,WBUF-1 NE )@@G@@@D@@@[ S A1,WPM . WPM := 0; @B@@@[ NF )@@G@@ A,U A1,WLINELEN . @E@@@[ S A1,EWP NG )@@G@@ . EWP := WLINELEN; @ @@@[ L,U A1,CBUF+1 @D@@@[NH )@@G@@ S A1,CPM . CPM := 1; @^@@@[ A,NI )@@G@@U A1,3@D@@@[ S A1,ECP . ECP := 4; NJ )@@G@@@C@@@[ . END @E@@@[ J NK )@@G@@ 0,A3 . END (*REWRITE*); @[@@@[. @[@@@[. NL )@@G@@@G@@@[CLOSER1 . PROCEDURE ENTRY CLOSER(A0:NM )@@G@@^FCT);@F@]@[ . BEGIN WITH A0^ DO BNN )@@G@@EGIN @F@@@] . BEGIN WITH A0^ DO BNO )@@G@@EGIN @C@@@[ SAVE . SAVE; @ @@@[ NP )@@G@@ L,U A0,IFCT @D@@@[ LMJ X11,SDFIC . NQ )@@G@@SDFIC(IFCT);@D@@@[ RESTORE . RESTORE; NR )@@G@@@E@@@[ SZ OPENR . OPENR := FALSE; @C@@@[NS )@@G@@ J 0,A3 . END @E@@@[ NT )@@G@@ . END (* CLOSER *); @[@@@[. @[@@@[. @G@@@[NU )@@G@@CLOSEW1 . PROCEDURE ENTRY CLOSEW(A0:^FCT);NV )@@G@@@C@]@[$(2) . VAR @D@]@[SAVEX10 RENW )@@G@@S 1 . SAVEX10, @E@]@[SAVEA3 RES 1 NX )@@G@@ . SAVEA3: INTEGER; @F@]@[$(1) NY )@@G@@ . BEGIN WITH A0^ DO BEGIN @ @@@[ L A1,WPM NZ )@@G@@@D@@@[ TLE,U A1,WBUF . IF (WP > 0) @ @@@[ OA )@@G@@ J CLELSE1 @ @@@[ L A1,CPM @E@@@[ OB )@@G@@ TNE,U CBUF+1 . OR (CP <> 1) THEN@C@@@[ J OC )@@G@@ CLELSE1 . BEGIN@E@]@[ S X10,SAVEX1OD )@@G@@0 . SAVEX10 := X10; @E@@@] S X10,FILEX10 OE )@@G@@ . FILEX10 := X10; @E@]@[ S A3,SAVEA3 . OF )@@G@@ SAVEA3 := A3; @E@@@] S A3,FILEA3 . FILEAOG )@@G@@3 := A3; @E@@@[ LMJ X10,P$WLN . WRITELN(A0)OH )@@G@@; @E@]@[ L X10,SAVEX10 . X10 := SAVEX10; OI )@@G@@@E@@@] L X10,FILEX10 . X10 := FILEX10; @E@]@[OJ )@@G@@ L A3,SAVEA3 . A3 := SAVEA3 @E@@@] OK )@@G@@ L A3,FILEA3 . A3 := FILEA3 @C@@@[CLELSE1 OL )@@G@@ . END @C@@@[ SAVE OM )@@G@@ . SAVE; @B@@@[ L,U A0,IFCT . @E@@@[ON )@@G@@ LMJ X11,SDFOC . SDFOC(IFCT,ERR); @G@@@[ OO )@@G@@ ERROR IOERROR . IF ERR THEN ERROR(IOERROR); @D@@@[OP )@@G@@ RESTORE . RESTORE; @E@@@[ SZOQ )@@G@@ OPENW . OPENW := FALSE; @E@@@[ SZ OR )@@G@@ EOFI . EOF$ := FALSE; @C@@@[ J 0,A3OS )@@G@@ . END @E@@@[ . EOT )@@G@@ND (*CLOSEW*); @[@@@[. @[@@@[. @H@@@[OPEN1 OU )@@G@@ . PROCEDURE ENTRY OPEN(A0:^FCT; FILEN; @D@@@[ OV )@@G@@ . STRING); @F@@@[ OW )@@G@@ . BEGIN WITH A0^ DO BEGIN @C@@@[ SAVE OX )@@G@@ . SAVE;@^@@@[ SZ 1,A0@ @@@[ L,OY )@@G@@U A1,IFCT @E@@@[ LMJ X11,P$ASG . ASG(FOZ )@@G@@ILEN,IFCT); @D@@@[ RESTORE . RESTORE PA )@@G@@@D@@@[ SONE CPI . CPI := 1; @D@@@[ PB )@@G@@ SONE WPI . WPI := 1; @ @@@] L,U PC )@@G@@ A1,CBUF+1 @D@@@] S A1,CPM . CPM := 1; PD )@@G@@@E@@@[ SZ 5,A0 . (* CLEAR MISC *) @ @@@[PE )@@G@@ L,U A1,' ' @E@@@[ S A1,CBUF PF )@@G@@ . CBUF[0] := ' '; @ @@@[ SZ IFCT+2 @E@@@[ PG )@@G@@ SZ IFCT+3 . (* ZERO FCT *) @ @@@[ SZPH )@@G@@ IFCT+4 @E@@@[ SZ MSADD . MSADDPI )@@G@@ := 0; @ @@@[ LXI,U A1,BUF1 @F@@@[ LXM,U PJ )@@G@@ A1,BUF2 . B1ADDR := ADDR(BUF1); @F@@@[ S PK )@@G@@ A1,IFCT+6 . B2ADDR := ADDR(BUF2); @ @@@[ L,U PL )@@G@@ A1,CBLENS @F@@@[ S A1,SECTSIZE . SECTSIZE :=PM )@@G@@ CBLENS @ @@@[ L,U A1,WBUF @E@@@[ S PN )@@G@@ A1,IMAGE . IMAGE := WBUF; @E@@@[ SONE IMAGPO )@@G@@EINC . IMAGEINC := 1; @E@@@[ SONE BILINC PP )@@G@@ . BILINC := 1; @C@@@[ PQ )@@G@@ . END @D@@@[ J 0,A3 . END (*OPEN*);PR )@@G@@@[@@@[. @[@@@[. @G@]@[CLOSE1 L,U A1,IFCT . PRPS )@@G@@OCEDURE ENTRY CLOSE(A0:^FCT); @G@@@]CLOSE1 L,U A1,IFCT PT )@@G@@ . PROCEDURE ENTRY CLOSE(A0:^FCT, @H@@@] PU )@@G@@ . VAR LENGTH: INTEGER);@F@]@[ LMJ PV )@@G@@ X11,P$FREE . BEGIN FREE(A0^.IFCT) END;@F@@@] LMJ PW )@@G@@ X11,P$FREE . BEGIN FREE(A0^.IFCT); @F@@@] L PX )@@G@@ A1,MSADD . LENGTH := MSADD END; @^@@@[ J PY )@@G@@ 0,A3@[@@@[. @[@@@[. @G@@@[PAGE1 J 0,A3 PZ )@@G@@ . PROCEDURE ENTRY PAGE(A0:^FCT); @D@@@[ QA )@@G@@ . BEGIN END; @#@@@[ END ___@@[ S QB )@@G@@ A1,WPM . WPM := 0; @B@@@[ A,U A1,WLINELEQC )@@G@@N . @E@@@[ S A1,EWP . EWP := WLINEQD )@@G@@*[S@@@*SDFF*@A@@@@. PASCAL BINARY FILE HANDLER@[@@@@. @D@@@@QE )@@G@@. WRITTEN AS A CLASS, AND ACCESSED THROUGH THE@^@@@@. INQF )@@G@@PUT VECTOR @[@@@@. @ @@@@. CALLED L,U A0,FCT @A@@@@. QG )@@G@@ LMJ A3,P$BINF+OP @[@@@@. @#@@@@$(1) AXR$ @#@@@@QH )@@G@@ P$DEFS @D@@@@ BFCT A0 . BINF = CQI )@@G@@LASS @ @@@] ON 1-CBLIB @#@@@@$(2) LIT @[@@@@QJ )@@G@@$(1) @#@@@] OFF @ @@@@P$BINF* J READ1 @ @@@@QK )@@G@@ J WRITE1 @ @@@@ J RESET1 @ @@@@QL )@@G@@ J REWRITE1 @ @@@@ J CLOSER1 @ @@@@QM )@@G@@ J CLOSEW1 @ @@@@ J OPEN1 @ @@@@QN )@@G@@ J CLOSE1 @ @@@@ J PAGE1 @[@@@@QO )@@G@@. @[@@@@. @G@@@@READ1 . PROCEDURQP )@@G@@E ENTRY READ( A0:^FCT); @F@@@@ . BQQ )@@G@@EGIN WITH A0^ DO BEGIN @B@@@@ TP FCT+3 . QR )@@G@@@D@@@@ ER WAIT$ . WAIT$(FCT); @ @@@@ QS )@@G@@ L A1,FSTAT @E@@@@ JZ A1,RDELSE1 . QT )@@G@@IF FSTAT <> 0 THEN@G@@@@ TE,U A1,1 . BEGINQU )@@G@@ IF FSTAT <> 1 THEN @F@@@@ ERROR IOERROR . QV )@@G@@ ERROR( IOERROR ); @F@@@@ SONE EOFI . QW )@@G@@ ELSE EOFI := TRUE @C@@@@ J 0,A3 . QX )@@G@@ END @D@@@@RDELSE1 L A1,BUFAD . ELSE BEGIN @F@@@@QY )@@G@@ TN 0,A1 . IF ELLENGTH < 0 THEN @E@@@@QZ )@@G@@ J RDELSE2 . EOFI := TRUE @^@@@@ RA )@@G@@ SONE EOFI@^@@@@ J 0,A3@D@@@@RDELSE2 S RB )@@G@@ A1,BUFPM . ELSE BEGIN @E@@@@ L A1,BSWAPS RC )@@G@@ . BUFP := BUFAD @E@@@@ SSC A1,18 RD )@@G@@ . B1ADD :=: B2ADD;@B@@@@ S A1,BSWAPS . RE )@@G@@@E@@@@ S A1,BUFAD . BUFAD := B2ADD; @ @@@@RF )@@G@@ L A1,MSADD @ @@@@ A A1,SECTSIZ@G@@@@RG )@@G@@ S A1,MSADD . MSADD := MSADD+SECTSIZE; RH )@@G@@@ @@@@ L A1,A0 @ @@@@ L,U A0,FCT RI )@@G@@@D@@@@ ER IO$ . IO$(FCT); @C@@@@ RJ )@@G@@ L A0,A1 . END @C@@@@ J 0,A3RK )@@G@@ . END @C@@@@ . ERL )@@G@@ND @D@@@@ . END (*READ*); @[@@@@RM )@@G@@. @[@@@@. @G@@@@WRITE1 . PROCEDURRN )@@G@@E ENTRY WRITE(A0:^FCT); @F@@@@ TP FCT+3 . BRO )@@G@@EGIN WITH A0^ DO BEGIN @D@@@@ ER WAIT$ . RP )@@G@@ WAIT$(FCT);@F@@@@ TZ FSTAT . IF FSTAT <>RQ )@@G@@ 0 THEN @E@@@@ ERROR IOERROR . ERROR(IOERRR )@@G@@ROR); @ @@@@ L A1,BSWAPS @E@@@@ S A1,BRS )@@G@@UFAD . BUFAD := B1ADD; @ @@@# L A2,ELSIZ RT )@@G@@@ @#@@ L A2,NELTS @ @@@# LXI A2,NELTS RU )@@G@@@ @#@@ LXI A2,ELSIZ @G@@@@ S A2,0,A1 RV )@@G@@ . BUFAD^[1] := (* SIZE DATA *);@E@@@@ SSC A1,1RW )@@G@@8 . B1ADD :=: B2ADD; @ @@@@ S A1,BSWAPS RX )@@G@@@ @@@@ S A1,BUFPM @ @@@@ L A1,MSADD RY )@@G@@@ @@@@ A A1,SECTSIZ@G@@@@ S A1,MSADD RZ )@@G@@ . MSADD := MSADD + SECTSIZE; @ @@@@ L A1,ASA )@@G@@0 @ @@@@ L,U A0,FCT @D@@@@ ER IO$ SB )@@G@@ . IO$(FCT); @C@@@@ L A0,A1 SC )@@G@@ . END @C@@@@ J 0,A3 . END @E@@@@SD )@@G@@ . END (*WRITE*); @[@@@@. SE )@@G@@@[@@@@. @G@@@@RESET1 . PROCEDURE ENTRSF )@@G@@Y RESET(A0:^FCT); @F@@@@ . BEGIN WSG )@@G@@ITH A0^ DO BEGIN @ @@@@ TNZ WHERE @E@@@@ J SH )@@G@@ RSELSE1 . IF WHERE THEN @E@^@@ L,U SI )@@G@@ A1,REW$ . BEGIN (*TAPE*) @E@@@^ L,U A2,RSJ )@@G@@EW$ . BEGIN (*TAPE*) @E@^@@ S A1,FUNC SK )@@G@@ . FUNC := REW$; @E@@@^ S A2,FUNC SL )@@G@@ . FUNC := REW$; @ @^@@ L A1,A0 @ @@@^ SM )@@G@@ L A2,A0 @ @@@@ L,U A0,FCT @D@@@@ SN )@@G@@ ER IOW$ . IOW$(FCT);@F@^@@ L SO )@@G@@ A0,A1 . IF FSTAT <> 0 THEN @F@@@^ L SP )@@G@@ A0,A2 . IF FSTAT <> 0 THEN @F@@@@ TZ SQ )@@G@@ FSTAT . ERROR (IOERROR); @F@@@@ ERROR SR )@@G@@ IOERROR . END (*IF WHERE*); @D@]@@RSELSE1 SZ SS )@@G@@ MSADD . MSADD := 0;@E@^@]RSELSE1 S A2,MSADD ST )@@G@@ . MSADD := INITIAL;@E@@@^RSELSE1 S A1,MSADD SU )@@G@@ . MSADD := INITIAL;@E@@@@ SZ EOFI . SV )@@G@@ EOFI := FALSE; @ @@@@ L,U A1,R$ @D@@@@ S SW )@@G@@ A1,FUNC . FUNC := R$;@E@@@@ SONE OPENSX )@@G@@R . OPENR := TRUE; @ @@@@ L A1,B2ADD SY )@@G@@@E@@@@ S A1,BUFAD . BUFAD := B2ADD; @E@@@@SZ )@@G@@ S A1,BUFPM . BUFP := B2ADD; @E@@@@ TA )@@G@@ S A1,EBUFP . EBUFP := B2ADD; @ @@@@ L TB )@@G@@ A1,A0 @ @@@@ L,U A0,FCT @D@@@@ ERTC )@@G@@ IO$ . IO$(FCT); @C@@@@ L A0,ATD )@@G@@1 . END @E@@@@ J 0,A3 . ETE )@@G@@ND (*RESET*); @[@@@@. @[@@@@. @H@@@@REWRITE1 TF )@@G@@ . PROCEDURE ENTRY REWRITE(A0:^FCT); @F@@@@ TG )@@G@@ . BEGIN WITH A0^ DO BEGIN @B@@@@ TNTH )@@G@@Z WHERE . @E@@@@ J RWELSE1 TI )@@G@@ . IF WHERE THEN @E@^@@ L,U A1,REW$ . TJ )@@G@@ BEGIN (*TAPE*) @E@@@^ L,U A2,REW$ . BEGITK )@@G@@N (*TAPE*) @E@^@@ S A1,FUNC . 1FUNC := RTL )@@G@@EW$; @E@@@^ S A2,FUNC . 1FUNC := REW$; TM )@@G@@@ @^@@ L A1,A0 @ @@@^ L A2,A0 TN )@@G@@@ @@@@ L,U A0,FCT @E@@@@ ER IOW$ TO )@@G@@ . IOW$(FCT); @ @^@@ L A0,A1 @ @@@^TP )@@G@@ L A0,A2 @F@@@@ TZ FSTAT TQ )@@G@@ . IF FSTAT <> 0 THEN @F@@@@ ERROR IOERROR TR )@@G@@ . ERROR(IOERROR); @C@@@@ TS )@@G@@ . END;@F@]@@RWELSE1 LN A1,SECTSIZ . MSADD := -STT )@@G@@ECTSIZE; @]@@@]RWELSE1 @G@#@] AN A2,SECTSIZE TU )@@G@@ . MSADD := INITIAL - SECTSIZE; @G@^@# AN A2,SECTSIZTV )@@G@@ . MSADD := INITIAL - SECTSIZE; @G@@@^ AN A1,STW )@@G@@ECTSIZ . MSADD := INITIAL - SECTSIZE; @I@]@@ S TX )@@G@@ A1,MSADD . (*COMPENSATE FOR NON-EXISTANT WRITE*) @I@^@]TY )@@G@@ S A2,MSADD . (*COMPENSATE FOR NON-EXISTANTTZ )@@G@@ WRITE*) @I@@@^ S A1,MSADD . (*COMPENSATUA )@@G@@E FOR NON-EXISTANT WRITE*) @D@@@@ SZ FSTAT UB )@@G@@ . FSTAT := 0;@E@@@@ SONE EOFI . EOFI UC )@@G@@:= TRUE; @E@@@@ SONE OPENW . OPENW := TRUD )@@G@@UE; @E@@@@ SONE WRITTEN . WRITTEN := TRUE; UE )@@G@@@B@@@@ L,U A1,W$ . @D@@@@ S UF )@@G@@ A1,FUNC . FUNC := W$;@B@@@@ L A1,B2ADD UG )@@G@@ . @^@@@@ A,U A1,1@E@@@@ S A1,BUH )@@G@@UFPM . BUFPM := B2ADD+1;@B@@@@ A A1,USEDBL UI )@@G@@ . @F@@@@ S A1,EBUFP . EBUFP := BUUJ )@@G@@FPM+USEDBL; @D@@@@ SZ NELTS . NELTS := 0;UK )@@G@@@C@@@@ J 0,A3 . END @E@@@@ UL )@@G@@ . END (* REWRITE *); @[@@@@. @[@@@@. UM )@@G@@@G@@@@CLOSER1 . PROCEDURE ENTRY CLOSER(A0:UN )@@G@@^FCT);@F@@@@ . BEGIN WITH A0^ DO BUO )@@G@@EGIN @ @@@@ TP FCT+3 @D@@@@ ER WAITUP )@@G@@$ . WAIT$(FCT);@ @@@] LA A1,MSADD @ @@@]UQ )@@G@@ A A1,SECTSIZ@G@@@] S A1,MSADD UR )@@G@@ . MSADD := MSADD + SECTSIZ @E@@@@ SZ OPENR US )@@G@@ . OPENR := FALSE @C@@@@ J 0,A3 UT )@@G@@ . END @E@@@@ . END (*CLOSER UU )@@G@@*) @[@@@@. @[@@@@. @G@@@@CLOSEW1 UV )@@G@@ . PROCEDURE ENTRY CLOSEW(A0:^FCT);@F@@@@ UW )@@G@@ . BEGIN WITH A0^ DO BEGIN @B@@@@ TP FCT+3 UX )@@G@@ . @D@@@@ ER WAIT$ . WAIT$(FCT);UY )@@G@@@F@@@@ TZ FSTAT . IF FSTAT <> 0 THEN UZ )@@G@@@E@@@@ ERROR IOERROR . ERROR(IOERROR); @F@@@@VA )@@G@@ TNZ NELTS . IF NELTS <> 0 THEN @D@@@@VB )@@G@@ J CWELSE1 . BEGIN @ @@@@ L VC )@@G@@ A1,BSWAPS @E@@@@ S A1,BUFAD . BUFVD )@@G@@AD := B2ADD;@ @#@@ L A2,NELTS @ @@@# L VE )@@G@@ A2,ELSIZ @ @#@@ LXI A2,ELSIZ @ @@@# LXI VF )@@G@@ A2,NELTS @G@@@@ S A2,0,A1 . BUFAD^[0]VG )@@G@@ := (*SIZE DATA*);@ @@@@ SSC A1,18 @F@@@@ S VH )@@G@@ A1,BSWAPS . B1ADD :=: B2ADD; @ @@@@ L VI )@@G@@ A1,MSADD @ @@@@ A A1,SECTSIZ@G@@@@ S VJ )@@G@@ A1,MSADD . MSADD := MSADD + SECTSIZ; @ @@@@ VK )@@G@@ L A1,A0 @ @@@@ L,U A0,FCT @E@@@@ VL )@@G@@ ER IOW$ . IOW$(FCT); @ @@@@ L VM )@@G@@ A0,A1 @F@@@@ TZ FSTAT . IF VN )@@G@@FSTAT <> 0 THEN @F@@@@ ERROR IOERROR . ERVO )@@G@@ROR(IOERROR); @C@@@@ . END;VP )@@G@@@ @@@@CWELSE1 L A1,BSWAPS @ @@@@ S A1,BUFAD VQ )@@G@@@^@@@@ LN,U A2,1@G@@@@ S A2,0,A1 VR )@@G@@ . BUFAD^[0] := -1 (*EOF*); @ @@@@ L A1,MSADD VS )@@G@@@ @@@@ A A1,SECTSIZ@G@@@@ S A1,MSADD VT )@@G@@ . MSADD := MSADD + SECTSIZ; @ @@@@ L A1,AVU )@@G@@0 @ @@@@ L,U A0,FCT @D@@@@ ER IOW$VV )@@G@@ . IOW$(FCT); @ @@@@ L A0,A1 @F@@@@VW )@@G@@ TZ FSTAT . IF FSTAT <> 0 THEN @E@@@@VX )@@G@@ ERROR IOERROR . ERROR (IOERROR);@ @@@] VY )@@G@@ LA A1,MSADD @ @@@] A A1,SECTSIZ@G@@@] VZ )@@G@@ S A1,MSADD . MSADD := MSADD + SECTSIZ @E@@@@WA )@@G@@ SZ OPENW . OPENW := FALSE; @E@@@@ WB )@@G@@ TNZ WHERE . IF WHERE THEN @F@@@@ J WC )@@G@@ 0,A3 . BEGIN (* TAPE *); @ @@@@ L,WD )@@G@@U A1,WEF$ @E@@@@ S A1,FUNC . FUNWE )@@G@@C := WEF$; @ @@@@ L A1,A0 @ @@@@ L,U WF )@@G@@ A0,FCT @E@@@@ ER IOW$ . IOW$(FCT)WG )@@G@@; @ @@@@ L A0,A1 @F@@@@ TZ FSTAWH )@@G@@T . IF FSTAT <> 0 THEN @F@@@@ ERROR IOERWI )@@G@@ROR . ERROR( IOERROR ); @C@@@@ J 0,A3WJ )@@G@@ . END;@C@@@@ . WK )@@G@@ END @E@@@@ . END (* CLOSEW *); WL )@@G@@@[@@@@. @[@@@@. @G@@@@OPEN1 . PRWM )@@G@@OCEDURE ENTRY OPEN(A0:^FCT; @H@@@@ WN )@@G@@ . FNAME:STRING;BSIZE,ELSIZE:INTEGER); @F@@@@ WO )@@G@@ . BEGIN WITH A0^ DO BEGIN @E@@@@ DS A1,IWP )@@G@@FILEN . IFILEN := FNAME; @E@@@@ SZ 1,A0 WQ )@@G@@ . (*CLEAR FLAGS*) @ @@@@ L,U A1,FCT @D@@@@WR )@@G@@ LMJ X11,P$ASG . ASG(A0,FCT);@E@@@@ S WS )@@G@@ A5,ELSIZ . ELSIZ := ELSIZE @E@@@@ SZ WT )@@G@@ FCT+2 . (* ZERO FCT); @ @@@@ SZ FCT+WU )@@G@@3 @E@@@@ S A4,BUFLEN . BUFLEN := BSIZE; WV )@@G@@@ @@@@ L A1,A4 @ @@@@ DSA A1,36 WW )@@G@@@ @@@@ DI,U A1,28 @G@@@@ S A1,SECTSIZWX )@@G@@ . SECTSIZ := BSIZE DIV 28; @D@@@@ SZ MSADWY )@@G@@D . MSADD := 0;@ @@@@ L,U A1,BST @E@@@@WZ )@@G@@ S A1,B1ADD . B1ADD := BST; @B@@@@ XA )@@G@@ A A1,A4 . @F@@@@ S A1,B2ADD XB )@@G@@ . B2ADD := B1ADD + BSIZE;@^@@@[ A,U A1,1@F@@@[XC )@@G@@ S A1,BUFPM . BUFP := B2ADD + 1; @ @@@@XD )@@G@@ L A1,A4 @^@@@@ AN,U A1,1@ @@@@ XE )@@G@@ DSA A1,36 @ @@@@ DI A1,A5 @^@@@@ XF )@@G@@ AN,U A1,1@G@@@@ MSI A1,A5 . USEDBXG )@@G@@L := ELSIZE*((BSIZE-1) @G@@@@ S A1,USEDBL . XH )@@G@@ DIV ELSIZE - 1); @C@@@@ J 0,A3 XI )@@G@@ . END @E@@@@ . END (* OPEN *XJ )@@G@@); @[@@@@. @[@@@@. @H@]@@CLOSE1 L,U A1,FCT XK )@@G@@ . PROCEDURE ENTRY CLOSE(A0:^BINFCT); @H@@@]CLOSE1 L,U A1,FXL )@@G@@CT . PROCEDURE ENTRY CLOSE(A0:^BINFCT, @H@@@] XM )@@G@@ . LAST: INTEGER); @F@]@@XN )@@G@@ LMJ X11,P$FREE . BEGIN FREE(A0^.FCT) END; @E@@@]XO )@@G@@ LMJ X11,P$FREE . BEGIN FREE(A0^.FCT)@E@@@] XP )@@G@@ L A1,MSADD . LAST := MSADD END; @^@@@@ J XQ )@@G@@ 0,A3@[@@@@. @[@@@@. @H@@@@PAGE1 ERROR INTERNAL XR )@@G@@ . PROCEDURE ENTRY PAGE(A0:^BINFCT); @G@@@@ XS )@@G@@ . BEGIN ERROR(INTERNAL) END; @#@@@@ ENXT )@@G@@D ___N @B@@@@ *[S@@@*SDFF*@A@@@B. PASCAL EXTERNAL SDF XU )@@G@@FILES @[@@@B. @E@@@B. PROVIDES THE EXTRA CODE TO READ A WIDEXV )@@G@@ VARIETY @D@@@B. OF SDFF FORMATS, AND CONVERT TO ASCII IF XW )@@G@@@^@@@B. NECESSARY @[@@@B. @D@@@B. THE FIRST 'REWXX )@@G@@RITE' WILL SWITCH TO ISDF FOR @D@@@B. FURTHER WORK, AS THE FORMAXY )@@G@@T IS THEN STANDARD@[@@@B. @[@@@B. @ @@@B. USES SDFI AND XZ )@@G@@SDFO @[@@@B. @ @@@B. CALLED L,U A0,FCT @A@@@B. LMYA )@@G@@J A3,P$ESDF+OP @[@@@B. @#@C@B$(1) AXR$ @#@@@C YB )@@G@@ AXR$ @#@@@B P$DEFS @^@@@B CHARFCT A0 @[@@@CYC )@@G@@. @ @@@C ON 1-CBLIB @B@@@C$(2) LIT YD )@@G@@ . @[@@@C$(1) @#@@@C OFF @ @@@C ONYE )@@G@@ CBLIB @#@@@C$(1) LIT @#@@@C OFF @[@@@BYF )@@G@@. @D@@@BP$ESDF* J READ1 . ESDF = CLASS @C@@@BYG )@@G@@ J WRITE1 . BEGIN @ @@@B J YH )@@G@@ RESET1 @ @@@B J REWRITE1 @ @@@B J YI )@@G@@ CLOSER1 @ @@@B J CLOSEW1 @ @@@B J YJ )@@G@@ OPEN1 @ @@@B J CLOSE1 @ @@@B J YK )@@G@@ PAGE1 @[@C@B. @C@C@B$(2) LIT . VYL )@@G@@AR @H@C@BSAVEAS RES 4 . SAVEAS: ARRAY[0..3YM )@@G@@] OF INTEGER; @H@C@BTLINE RES RLINELEN . TLINE:YN )@@G@@ ARRAYT1..RLINELEN3 OF WORD; @[@C@B$(1) @[@@@B. @[@@@B. @E@C@BYO )@@G@@SAVE* PROC 0,3. . PROCEDURE SAVE; @E@@@CSAVE* YP )@@G@@ PROC 0,4. . PROCEDURE SAVE; @F@C@B S YQ )@@G@@ A0,SAVEAS . BEGIN SAVEAS[0] := A0; @F@@@C S YR )@@G@@ A6,FILESAVE . BEGIN FILESAVE[0] := A6; @E@C@B S YS )@@G@@ A3,SAVEAS+1 . SAVEAS[1] := A3; @E@@@C S YT )@@G@@ A3,FILESAVE+1 . FILESAVE[1] := A3;@H@C@B DS A4,SYU )@@G@@AVEAS+2 . SAVEAS[2] := A4; SAVEAS[3] := A5; @H@@@C DSYV )@@G@@ A4,FILESAVE+2 . FILESAVE[2] := A4; FILESAVE[3] := A5@H@@@CYW )@@G@@ L A6,A0 . A6 := A0; (: SAVE IN NON-VOLATILYX )@@G@@E*) @E@@@B END . END (* SAVE *); YY )@@G@@@[@@@B. @E@C@BRESTORE* PROC 0,3. . PROCEDURE RESTYZ )@@G@@ORE; @E@@@CRESTORE* PROC 0,4. . PROCEDURE RESTORE; ZA )@@G@@@F@C@B L A0,SAVEAS . BEGIN A0 := SAVEAS[0]; ZB )@@G@@@E@@@C L A0,A6 . BEGIN A0 := A6; @E@@@CZC )@@G@@ L A6,FILESAVE . A6 := FILESAVE[0];@E@C@B ZD )@@G@@ L A3,SAVEAS+1 . A3 := SAVEAS[1]; @E@@@C L ZE )@@G@@ A3,FILESAVE+1 . A3 := FILESAVE[1];@H@C@B DL ZF )@@G@@ A4,SAVEAS+2 . A4 := SAVEAS[2]; A5 := SAVEAS[3] @H@@@C ZG )@@G@@ DL A4,FILESAVE+2 . A4 := FILESAVE[2]; A5 := FILESAVE[3]ZH )@@G@@@E@@@B END . END (* RESTORE *); @[@@@BZI )@@G@@. @G@C@B. PROCEDURE ENTRY READZJ )@@G@@(A0:^FLT) @G@@@CREAD1 . PROCEDURE ENTRZK )@@G@@Y READ(A0:^FCT); @A@@@D L X9,P$GLOBAL @[@@@DLAB1 ZL )@@G@@@G@C@BREAD1 SAVE . BEGIN WITH A0^ DO BEGIN SAZM )@@G@@VE @G@@@C SAVE . BEGIN WITH A0^ DO BEZN )@@G@@GIN SAVE @A@D@C L X9,P$GLOBAL @E@D@BLAB1 L,ZO )@@G@@U A1,WBUF . 1: IF SYMBF OR @E@@@D L,U ZP )@@G@@ A1,WBUF . 1: IF SYMBF OR @H@@@B TNZ SYMBZQ )@@G@@F . NOT ASCIIF THEN IMAGE := WBUF @F@@@B TNZR )@@G@@Z ASCIIF . ELSE IMAGE := TLINE; @ @C@B L,ZS )@@G@@U A1,TLINE @A@@@C L,U A1,TLINE,X9 @ @@@B ZT )@@G@@ S A1,IMAGE @C@@@B L,U A0,IFCT . 1ZU )@@G@@: @F@@@B LMJ X11,SDFI . SDFI(IFCT,ERR,EOFZV )@@G@@); @B@@@B J READERR . @G@@@B J ZW )@@G@@ READEOF . IF NOT (ERR OR EOF) THEN @E@@@B ZX )@@G@@ RESTORE . BEGIN RESTORE; @D@@@B TNZY )@@G@@ CONT . IF CONT THEN@C@@@B J RDELZZ )@@G@@SE1 . BEGIN@ @@@B L A1,CKEY @G@@@B AA )@@G@@ TE,U A1,041 . IF CKEY=41B(*READ LABEL*) @D@@@BAB )@@G@@ J RDELSE2 . THEN BEGIN@E@@@B SOAC )@@G@@NE SYMBF . SYMBF:=TRUE; @B@@@B J AD )@@G@@ LAB1 . @G@@@BRDELSE2 TE,U A1,042 . AE )@@G@@ END ELSE IF CKEY=42B THEN @G@@@B J RDELSE3 AF )@@G@@ . BEGIN (ASCII/FD SWITCH) @ @@@B L A1,ASCFLG AG )@@G@@@F@@@B S A1,ASCIIF . ASCIIF := ASCFLG; AH )@@G@@@^@@@B J LAB1@G@@@BRDELSE3 TE,U A1,050 AI )@@G@@ . END ELSE IF CKEY=50B THEN @F@@@B J LAB1 AJ )@@G@@ BEGIN (* LABEL *) @ @@@B L A1,CTYPE AK )@@G@@@^@@@B L,U A2,1@G@@@B JZ A1,$+3 AL )@@G@@ . SYMBF = NOT((CTYPE=0(*MED*)@G@@@B TE,U A1,013 AM )@@G@@ . OR (CTYPE=13B(*FORTRAN*))@G@@@B TNE,U A1,0AN )@@G@@30 . OR (CTYPE=30B(*SIR*)) ); @^@@@B SZ AO )@@G@@ A2 @ @@@B S A2,SYMBF @ @@@B L A1,AAP )@@G@@SCFLG @F@@@B S A1,ASCIIF ASCIIF := ASCFLAQ )@@G@@G @D@@@B J LAB1 . END; @D@@@BAR )@@G@@ . GO TO 1; @E@@@BRDELSE1 AS )@@G@@ . END (*CONT*); @E@@@B TNZ AT )@@G@@ SYMBF . IF SYMBF THEN @C@@@B J RDELAU )@@G@@SE4 . BEGIN@ @@@B L A1,ASCFLG @E@@@B AV )@@G@@ S A1,ASCIIF . ASCIIF := ASCFLG @E@@@B JZAW )@@G@@ A1,RDIFEND4 IF ASCIIF THEN @ @@@B L AX )@@G@@ A1,IMLEN @ @@@B SSL A1,24 @F@@@B TG,U AY )@@G@@ A1,RLINELEN+1 . IF IMLEN>RLINELEN THEN @E@@@B ERROR AZ )@@G@@ READLEN . ERROR(READLEN) @C@@@B L R1,ABA )@@G@@1 . ELSE @A@C@B L A1,(1,TLINE) @^@@@CBB )@@G@@ LXI,U A1,1@A@@@C LXM,U A1,TLINE,X9 @ @@@BBC )@@G@@ L,U A2,WBUF @^@@@B LXI,U A2,1@E@@@B BD )@@G@@ BT A2,0,*A1 . WBUF := TLINE; @C@@@B J BE )@@G@@ RDIFEND4 . END @F@@@BRDELSE4 TZ DELFLG BF )@@G@@ . END ELSE IF DELFLG THEN @D@@@B J LAB1 BG )@@G@@ . GOTO 1; @F@@@BRDIFEND4 TZ ASCIIF . BH )@@G@@IF NOT ASCIIF THEN BEGIN@ @@@B J RDELSE5 @#@@@D BI )@@G@@ SAVE @ @C@B L,U A1,TLINE @A@@@C L,U BJ )@@G@@ A1,TLINE,X9 @ @@@B L,U A2,WBUF @ @@@B L BK )@@G@@ A0,IMLEN @ @@@B SSL A0,24 @G@@@B LMBL )@@G@@J X11,FDASC$ . FDASC$(IMLEN,TLINE,WBUF); @G@@@B BM )@@G@@ LSSL A0,24 . (*UPDATED IMAGE LENGTH*) @ @@@BBN )@@G@@ L A1,A0 @D@@@B RESTORE BO )@@G@@ . RESTORE @ @@@B S A1,IMLEN @C@@@BRDELSE5 L BP )@@G@@ A1,IMLEN . END; @ @@@B SSL A1,24 BQ )@@G@@@G@@@B TG,U A1,RLINELEN+1 . ELSE IF IMLEN>RLINELEN BR )@@G@@THEN @E@@@B ERROR READLEN . ERROR(READLEN); BS )@@G@@@E@@@B A,U A1,WBUF-1 . EWP := IMLEN @C@@@BBT )@@G@@ S A1,EWP . END @B@@@B J BU )@@G@@ 0,A3 . @[@@@B. @H@@@BREADERR ERROR IOERROR BV )@@G@@ . ELSE IF ERR THEN ERROR(IOERROR) @B@@@B BW )@@G@@ . @F@@@BREADEOF RESTORE . BX )@@G@@ELSE BEGIN RESTORE; @E@@@B SONE EOFI . BY )@@G@@ EOFI := TRUE END@C@@@B J 0,A3 . END BZ )@@G@@@D@@@B . END (*READ*); @[@@@B. CA )@@G@@@[@@@B. @G@@@BWRITE1 ERROR INTERNAL . PROCEDURE ENTRCB )@@G@@Y WRITE(A0:^FCT); @F@@@B . BEGIN ECC )@@G@@RROR(INTERNAL)END;@[@@@B. @[@@@B. @G@C@BRESET1 SAVE CD )@@G@@ . PROCEDURE ENTRY RESET(A0:^FCT); @G@@@CRESET1 CE )@@G@@ . PROCEDURE ENTRY RESET(A0:^FCT); @F@@@C CF )@@G@@ . BEGIN WITH A0^ DO BEGIN @#@@@C SACG )@@G@@VE @F@@@B . BEGIN WITH A0^ DO BCH )@@G@@EGIN @C@@@B . SAVE; @D@C@B CI )@@G@@ SZ MSADD . MSADD := 0;@E@E@C S CJ )@@G@@ A2,MSADD . MSADD := INITIAL; @E@@@E S A1,MCK )@@G@@SADD . MSADD := INITIAL; @B@@@B L,U A1,RLINELECL )@@G@@N . @F@@@B S A1,IMAGELEN . IMAGELEN := CM )@@G@@RLINELEN; @ @@@B L,U A1,CBLENW @E@@@B S CN )@@G@@ A1,BUFLEN . BUFLEN := CBLENW; @E@@@B TNZ WHERCO )@@G@@E . IF WHERE THEN @H@@@B J RSELSE1 CP )@@G@@ . BEGIN (* MUST DO ACTUAL REWIND *) @ @@@B L,U CQ )@@G@@ A1,REW$ @E@@@B S A1,FUNC . FUNC := REWCR )@@G@@$; @ @@@B L,U A0,IFCT @D@@@B ER IOW$CS )@@G@@ . IOW$(IFCT);@C@@@BRSELSE1 L,U A1,R$ CT )@@G@@ . END; @F@@@B S A1,FUNC . FUNC := R$(*CU )@@G@@READ*); @ @@@B L,U A0,IFCT @E@@@B LMJ CV )@@G@@ X11,SDFIO . SDFIO(IFCT,ERR); @G@@@B ERROR IOERCW )@@G@@ROR . IF ERR THEN ERROR(IOERROR); @D@@@B RESTORE CX )@@G@@ . RESTORE; @E@@@B SZ EOFI CY )@@G@@ . EOFI := FALSE; @E@@@B SONE EOLI CZ )@@G@@ . EOLI := TRUE; @E@@@B SONE OPENR . ODA )@@G@@PENR := TRUE; @B@@@B L,U A1,CBUF . @D@@@BDB )@@G@@ S A1,CPM . CPM := 0; @D@@@B S DC )@@G@@ A1,ECP . ECP := 0; @B@@@B L,U A1,WDD )@@G@@BUF . @D@@@B S A1,WPM . WPM :=DE )@@G@@ 1; @D@@@B S A1,EWP . EWP := 1; @C@@@BDF )@@G@@ . END @D@@@B J DG )@@G@@ 0,A3 . END (*RESET*)@[@@@B. @[@@@B. @H@C@BREWRITDH )@@G@@E1 L,U A2,WBUF . PROCEDURE ENTRY REWRITE(A0:^FCT); DI )@@G@@@H@F@CREWRITE1 L,U A1,WBUF . PROCEDURE ENTRY REWRITE(A0DJ )@@G@@:^FCT); @H@@@FREWRITE1 L,U A2,WBUF . PROCEDURE ENTRDK )@@G@@Y REWRITE(A0:^FCT); @F@C@B S A2,IMAGE . BDL )@@G@@EGIN A0^.IMAGE := WBUF; @F@F@C S A1,IMAGE . BDM )@@G@@EGIN A0^.IMAGE := WBUF; @F@@@F S A2,IMAGE . BDN )@@G@@EGIN A0^.IMAGE := WBUF; @ @C@B L,U A2,P$ISDF @ @F@C DO )@@G@@ L,U A1,P$ISDF @ @@@F L,U A2,P$ISDF @E@C@B DP )@@G@@ S A2,FFORM . A0^.FORM = ISDF; @E@F@C S DQ )@@G@@ A1,FFORM . A0^.FORM = ISDF; @E@@@F S DR )@@G@@ A2,FFORM . A0^.FORM = ISDF; @F@C@B J REWRDS )@@G@@ITE,A2 . A0^.FFORM.REWRITE(A0) @F@F@C J REWRDT )@@G@@ITE,A1 . A0^.FFORM.REWRITE(A0) @F@@@F J REWRDU )@@G@@ITE,A2 . A0^.FFORM.REWRITE(A0) @E@@@B DV )@@G@@ . END(*REWRITE*); @[@@@B. @[@@@B. @G@@@BCLOSERDW )@@G@@1 . PROCEDURE ENTRY CLOSER(A0:^FCT);@F@C@BDX )@@G@@ . BEGIN WITH A0^ DO BEGIN @C@@@BDY )@@G@@ SAVE . SAVE; @ @@@B L,U DZ )@@G@@ A0,IFCT @D@@@B LMJ X11,SDFIC . SDFIC(IFCT);EA )@@G@@@D@@@B RESTORE . RESTORE; @E@@@B EB )@@G@@ SZ OPENR . OPENR := FALSE; @C@@@B J EC )@@G@@ 0,A3 . END @E@@@B ED )@@G@@ . END (* CLOSER *); @[@@@B. @[@@@B. @G@@@BCLOSEW1 EREE )@@G@@ROR INTERNAL . PROCEDURE ENTRY CLOSEW(A0:^FCT);@G@@@B EF )@@G@@ . BEGIN ERROR(INTERNAL) END; @[@@@BEG )@@G@@. @[@@@B. @H@@@BOPEN1 . PROCEDUREH )@@G@@E ENTRY OPEN(A0:^FCT; FILEN; @D@@@B EI )@@G@@ . STRING); @F@C@B . BEGIN EJ )@@G@@WITH A0^ DO BEGIN @F@@@C . BEGIN EK )@@G@@WITH A0^ DO BEGIN @C@@@B SAVE . SAVE;EL )@@G@@@^@@@B SZ 1,A0@ @@@B DS A1,IFCT @ @@@BEM )@@G@@ L,U A1,IFCT @E@@@B LMJ X11,P$ASG EN )@@G@@ . ASG(FILEN,IFCT); @D@@@B RESTORE . EO )@@G@@ RESTORE @D@@@B SONE CPI . CPI := 1; EP )@@G@@@D@@@B SONE WPI . WPI := 1; @ @@@B EQ )@@G@@ L,U A1,CBUF+1 @D@@@B S A1,CPM . ER )@@G@@ CPM := 1; @E@@@B SZ 5,A0 . (* CLEAR MIES )@@G@@SC *) @ @@@B L,U A1,' ' @E@@@B S A1,CET )@@G@@BUF . CBUF[0] := ' '; @ @@@B SZ IFCT+2 EU )@@G@@@E@@@B SZ IFCT+3 . (* ZERO FCT *) @ @@@BEV )@@G@@ SZ IFCT+4 @E@@@B SZ MSADD EW )@@G@@ . MSADD := 0; @ @@@B LXI,U A1,BUF1 @F@@@B EX )@@G@@ LXM,U A1,BUF2 . B1ADDR := ADDR(BUF1); @F@@@B EY )@@G@@ S A1,IFCT+6 . B2ADDR := ADDR(BUF2); @ @@@B EZ )@@G@@ L,U A1,CBLENS @F@@@B S A1,SECTSIZE . FA )@@G@@ SECTSIZE := CBLENS @ @@@B L,U A1,WBUF @E@@@B FB )@@G@@ S A1,IMAGE . IMAGE := WBUF; @E@@@B SOFC )@@G@@NE IMAGEINC . IMAGEINC := 1; @E@@@B SONE FD )@@G@@ BILINC . BILINC := 1; @C@@@B FE )@@G@@ . END @D@@@B J 0,A3 . EFF )@@G@@ND (*OPEN*);@[@@@B. @[@@@B. @G@C@BCLOSE1 L,U A1,IFCT FG )@@G@@ . PROCEDURE ENTRY CLOSE(A0:^FCT); @G@@@CCLOSE1 L,U A1,IFH )@@G@@FCT . PROCEDURE ENTRY CLOSE(A0:^FCT, @H@@@C FI )@@G@@ . VAR LAST: INTEGER); @F@C@B FJ )@@G@@ LMJ X11,P$FREE . BEGIN FREE(A0^.IFCT) END;@F@@@C FK )@@G@@ LMJ X11,P$FREE . BEGIN FREE(A0^.IFCT) @E@@@C FL )@@G@@ L A1,MSADD . LAST := MSADD END; @^@@@B J FM )@@G@@ 0,A3@[@@@B. @[@@@B. @H@@@BPAGE1 ERROR INTERNAL FN )@@G@@ . PROCEDURE ENTRY PAGE(A0:^BINFCT); @G@@@B FO )@@G@@ . BEGIN ERROR(INTERNAL) END; @#@@@B ENFP )@@G@@D ___@@BRSELSE1 L,U A1,R$ . END; @F@@@B FQ )@@G@@ S A1,FUNC . FUNC := R$(**[S@@@*SDFF*@ @@@A. FR )@@G@@ GET FOR BINARY FILES@[@@@A. @ @@@A. CALLED L,U A0,FLT FS )@@G@@@B@@@A. LMJ X10,P$GETB (P$GETBN) @[@@@A. @#@@@A FT )@@G@@ AXR$ @#@@@A$(1) P$DEFS @H@@@DOLDFILES EQU 1 FU )@@G@@ . SET FOR COMPATABILITY WITH OLD FILES @F@@@A BFCT FV )@@G@@ A0 . PROCEDURE GETB(A0;^BFCT); @F@@@A ON FW )@@G@@ TESTS . BEGIN WITH A0^ DO BEGIN @]@@@BP$GETB* @A@@@BFX )@@G@@ S X10,P$LIBCAL @E@B@AP$GETB* TNZ OPENR FY )@@G@@ . IF NOT OPENR THEN @E@@@B TNZ OPENR FZ )@@G@@ . IF NOT OPENR THEN @E@@@A ERROR READNOTOK . GA )@@G@@ ERROR(READNOTOK);@#@@@A OFF @ @@@A ON 1-TEGB )@@G@@STS @]@@@AP$GETBN* @A@@@C S X10,P$LIBCAL @#@@@AGC )@@G@@ OFF @F@@@A L A1,BUFP . IF BUFGD )@@G@@P < EBUFP THEN @F@B@A TLEM A1,EBUFP . BUFP GE )@@G@@:= BUFP+ELTSIZE @F@@@B TLEM A1,EBUFP . BUFP GF )@@G@@:= BUFP+ELSIZ @^@@@B J $+2 @E@@@A J GG )@@G@@ GETBUF . ELSE GETBUF(A0); @C@@@A S A1,BGH )@@G@@UFP . END @ @@@B SZ P$LIBCAL @D@@@A GI )@@G@@ J 0,X10 . END (*GETB*); @[@@@A. @G@@@A. GJ )@@G@@ . PROCEDURE GETBUF(A0:^BFCT); @F@@@AGK )@@G@@GETBUF L A3,FFORM . BEGIN WITH A0^ DO BEGIN @D@@@AGL )@@G@@ LMJ A3,READ,A3 . FFORM.READ; @D@@@A TNGM )@@G@@Z EOFI . IF EOFI THEN@B@@@A J EOFIGN )@@G@@ELSE . @B@@@A L A3,FFORM . @E@@@AGO )@@G@@ LMJ A3,CLOSER,A3 . FFORM.CLOSER @ @@@B GP )@@G@@ SZ P$LIBCAL @D@@@A J 0,X10 . GQ )@@G@@ELSE BEGIN @[@@@A. @ @@@AEOFIELSE L A1,BUFPM @ @@@A GR )@@G@@ ON TESTS @G@B@A L,H2 A2,0,A1 . GS )@@G@@IF ELTSIZE<> BUFP^.ELTSIZE @F@@@B L,XH2 A2,0,A1 GT )@@G@@ . IF ELSIZ <> BUFP^.ELSIZ@F@B@A TE A2,ELTSIZE GU )@@G@@ . THEN ERROR(READFORM); @F@@@B TE A2,ELSIZ GV )@@G@@ . THEN ERROR(READFORM); @I@@@D ON OLDFILES GW )@@G@@ . THIS SHOULD BE ELIMINATED AS PRACTICAL @^@@@D J GX )@@G@@ $+2 @ @@@D J OLDEX+1 @F@@@D L A2,0GY )@@G@@,A1 . IF NO GO, TRY REVERSING IT@ @@@D SSC A2,1GZ )@@G@@8 @ @@@D S A2,0,A1 @ @@@D L,XH2 A2,0HA )@@G@@,A1 @ @E@D TE A2,ELSIZE @ @@@E TE A2,EHB )@@G@@LSIZ @[@@@DOLDEX @#@@@D OFF @ @@@A ERROR READHC )@@G@@FORM @#@@@A OFF @B@B@A L,H1 A2,0,A1 HD )@@G@@ . @B@D@B L,H2 A2,0,A1 . @B@@@D L,HE )@@G@@H1 A2,0,A1 . @^@@@B AN,U A2,1@ @B@A HF )@@G@@ MSI A2,ELTSIZE@ @@@B MSI A2,ELSIZ @ @B@A HG )@@G@@ A A2,A1 @G@B@A S A2,EBUFP . HH )@@G@@ EBUFP := BUFP+ ELTSIZE*ELTLEN@E@B@A A,U A1,1 HI )@@G@@ . EBUFP := EBUFP+1;@E@@@B A,U A1,1 . HJ )@@G@@ BUFP := BUFP+1; @C@B@A S A1,BUFPM . END HK )@@G@@@B@@@B S A1,BUFPM . @ @@@B A HL )@@G@@ A1,A2 @H@@@B S A1,EBUFP . EBUFP := BUHM )@@G@@FP+ELSIZ*(ELTLEN-1) @C@@@B . HN )@@G@@END @ @@@B SZ P$LIBCAL @E@@@A J 0,X1HO )@@G@@0 . END (* GETBUF *) @#@@@A END. ___@@[^\0^[VHP )@@G@@R;@@@]/K@^)L:8K@@[^\0^[VR;@@@[/K@^)LA$@^[X%8K@@[/K@^)QA\@^?-/\)^VZ/KE@@[HQ )@@G@@*[S@@@*SDFF*@B@@@D. PASCAL FILE INTERFACE ROUTINES @[@@@D. HR )@@G@@@D@@@D. PROVIDES THE INTERFACE TO THE SYSTEM FOR @B@@@D. HS )@@G@@ ASSIGNING AND FREEING FILES @[@@@D. @D@@@D. IF THE FHT )@@G@@ILNAME = 0, A UNIQUE FILE NAME WILL @^@@@D. BE GENERATED @[@@@DHU )@@G@@. @ @@@D. CALLED L,U A0,FCT @E@@@D. L,U A1,IHV )@@G@@FCT . FILNAME IS IN HERE @ @@@D. LMJ X11,P$ASG HW )@@G@@@[@@@D. @^@@@D. USES A1,A2,X11@[@@@D. @#@E@D$(1) AXHX )@@G@@R$ @#@@@E AXR$ @#@@@D P$DEFS @G@@@D FIHY )@@G@@ELDATA . ALL FILE INTERFACE IS FIELDATA @E@@@D HZ )@@G@@ CHARFCT A0 . ANY FCT WILL DO @B@@@D. IA )@@G@@ . @]@F@E\ON\1-CBLIB @ @@@F ON IB )@@G@@ 1-CBLIB @G@@@D$(2) LIT . PROCEDURE ASG(IC )@@G@@A0:^FCT;A1:^IFCT);@[@F@E\OFF @#@@@F OFF @]@F@E\ON\CBLIB ID )@@G@@@ @@@F ON CBLIB @]@F@E$(1)\LIT @#@@@F$(1) LIIE )@@G@@T @[@F@E\OFF @#@@@F OFF @E@@@DASGMSG '@ASG,T' IF )@@G@@ . VAR ASGMSG: STRING;@F@@@D ' ' IG )@@G@@ . (* INITIAL VALUE *) @#@E@DAFNAME 'PAS$FI'@#@@@E IH )@@G@@ 'PAS$FI'@#@@@D 'LE0000'@#@E@D ',F1115'@#@@@E II )@@G@@ ',F///5'@#@@@D '00 . '@G@G@EAFNAME EQU LINBUF+2 IJ )@@G@@ . FILE NAME WITHIN THE ASG IMAGE @G@@@GAFNAME EQU LINEIK )@@G@@BUF+2 . FILE NAME WITHIN THE ASG IMAGE @ @@@DASGMSGL EQU IL )@@G@@ $-ASGMSG @E@@@DFNAME 'PAS$FI' . FNAME: STRINGIM )@@G@@; @D@@@D 'LE0000' . (*INITIAL*) @G@E@DIN )@@G@@FCOUNT + 0 . FCOUNT: INTEGER; (*INIT 0*) IO )@@G@@@^@E@DFPACKTL EQU 9 @G@E@DFPACKT RES FPACKTL IP )@@G@@ . FPACKT: ARRAY[0..8] OF INTEGER;@[@@@D. @E@@@DERMSG 'FILE ''IQ )@@G@@' . ERMSG: STRING; @E@@@D 'FILENA' IR )@@G@@ . (* INITIAL *) @#@@@D 'MEHERE'@^@@@D IS )@@G@@ ''' IS N' @#@@@D 'OT ASS'@#@@@D 'IGNED '@#@@@DIT )@@G@@ 'TO THE'@#@E@D 'RUN '@#@@@E ' RUN '@ @@@DIU )@@G@@ERMSGL EQU $-ERMSG @B@E@DSAVEAS RES IV )@@G@@ . @F@@@D$(1) . BEGIN WITH A0^ DO BIW )@@G@@EGIN @[@@@EP$ASG*@E@E@DP$ASG* TNZ 0,A1 . IF A1^IX )@@G@@[0]<> 0 THEN@A@@@E L X9,P$GLOBAL @E@@@E TNIY )@@G@@Z 0,A1 . IF A1^[0]<> 0 THEN@F@@@D J IZ )@@G@@ ASGELSE1 . BEGIN (*EXTERNAL FILE*)@ @@@D DL JA )@@G@@ A1,0,A1 @G@E@D DS A1,FPACKT . FPACKT := JB )@@G@@A1^; (*FILE NAME*)@G@@@E DS A1,FACPKT,X9 . FACPJC )@@G@@KT := A1^; (*FILE NAME*)@ @E@D S A0,SAVEAS @A@@@E JD )@@G@@ S A0,CSFA0,X9 @B@E@D L A0,(FPACKTL,FPACJE )@@G@@KT) @ @@@E LXI,U A0,FACPKTL@A@G@E LXM,U A0,PJF )@@G@@PACKT,X9 @A@@@G LXM,U A0,FACPKT,X9 @E@E@D ERJG )@@G@@ FITEM$ . FITEM$(FPACKT); @E@@@E ER JH )@@G@@ FITEM$ . FITEM$(FACPKT); @F@E@D L,S1 A1,FJI )@@G@@PACKT+6 (*EQUIPMENT CODE*) @F@@@E L,S1 A1,FJJ )@@G@@ACPKT+6,X9 (*EQUIPMENT CODE*) @F@@@D JNZ A1,AJK )@@G@@SGELSE2 . IF EQUIP = 0 THEN @H@@@E COPYLINE ERMSJL )@@G@@G ERMSGL . COPY THE ERROR MESSAGE TO THE BUFFER @G@E@D DLJM )@@G@@ A1,FPACKT ERROR(USERMSG,ERMSG,ERMSGC)@G@@@E JN )@@G@@ DL A1,FACPKT,X9 ERROR(USERMSG,ERMSG,ERMSGC)@ @E@DJO )@@G@@ DS A1,ERMSG+1@A@@@E DS A1,LINEBUF+1,X9 JP )@@G@@@ @@@EEF FORM 1,17,18 @B@E@D L A0,(ERMSGLJQ )@@G@@,ERMSG) @B@@@E L A0,(EF 1,ERMSGL,0) @ @G@E JR )@@G@@ LXM,U LINEBUF,X9@A@@@G LXM,U A0,LINEBUF,X9 @ @@@DJS )@@G@@ ERROR USERMSG @[@@@D. @ @E@DASGELSE2 L A0,SJT )@@G@@AVEAS @A@@@EASGELSE2 L A0,CSFA0,X9 @^@@@D SZ JU )@@G@@ A2 @ @@@D TLE,U A1,020 @^@@@D L,U A2,1JV )@@G@@@H@@@D S A2,WHERE . WHERE := EQUIP < 20B (JW )@@G@@*TAPE*) @C@@@D J 0,X11 . END @F@@@DJX )@@G@@ASGELSE1 . ELSE BEGIN (*INTERNAL*) @E@@@DJY )@@G@@ SZ WHERE . WHERE := FALSE; @ @H@E JZ )@@G@@ S A3,CSFA0 @A@@@H S A3,CSFA0,X9 @E@@@EKA )@@G@@ COPYLINE ASGMSG ASGMSGL,A2,A3 . BUILD ASG MESSAGE@ @@@D KB )@@G@@ L A2,FNAME @ @@@D S A2,0,A1 @E@E@D KC )@@G@@ S A2,AFNAME . A1^[0] := FNAME; @E@@@E S KD )@@G@@ A2,AFNAME,X9 . A1^[0] := FNAME; @ @E@D S KE )@@G@@ A3,SAVEAS @ @E@D L A3,FCOUNT @A@@@E L KF )@@G@@ A3,FCOUNT,X9 @^@@@D A,U A3,1@E@E@D S KG )@@G@@ A3,FCOUNT . FCOUNT := FCOUNT+1@E@@@E S A3,FKH )@@G@@COUNT,X9 . FCOUNT := FCOUNT+1@G@@@D L A2,FNAME+1KI )@@G@@ . (*SPECIAL EDIT PROCEDURE*) @G@@@D LSSC A3,2KJ )@@G@@4 . (*EDIT INTO FORM *) @G@@@D SSC KK )@@G@@ A2,21 . (* PAS$FILENNNN OCTAL *) @^@@@D LDKL )@@G@@SL A2,3@ @@@D SSC A2,33 @^@@@D LDSL KM )@@G@@ A2,3@ @@@D SSC A2,33 @^@@@D LDSL A2,3KN )@@G@@@ @@@D SSC A2,33 @^@@@D LDSL A2,3@A@E@DKO )@@G@@ S A2,AFNAME+1 @A@@@E S A2,AFNAME+KP )@@G@@1,X9 @G@@@D S A2,1,A1 . (* A1^[1]:= EDITEDKQ )@@G@@ NAME *) @ @E@D L A3,SAVEAS @A@@@E L KR )@@G@@ A3,CSFA0,X9 @ @E@D S A1,SAVEAS @A@@@E S KS )@@G@@ A0,CSFA0,X9 @B@E@D L A0,(ASGMSGL,ASGMSG) KT )@@G@@@ @@@E LXI,U A0,ASGMSGL@A@@@E LXM,U A0,LINEBUFKU )@@G@@,X9 @E@@@D ER CSF$ . CSF$(ASGMSG,STAT);KV )@@G@@@E@@@D JP A0,$+2 . IF STAT < 0 THEN @E@@@DKW )@@G@@ ERROR INTERNAL . ERROR(INTERNAL); @C@E@D KX )@@G@@ L A0,SAVEAS . END @C@@@E L A0,CKY )@@G@@SFA0,X9 . END @C@@@D J 0,X11 . KZ )@@G@@END @D@@@D . END (*ASG); @[@@@DLA )@@G@@. @[@@@D. @[@@@D. @F@@@D$(2) LB )@@G@@ . PROCEDURE FREE(A1:^IFCT); @F@@@DFREEMSG '@FREE ' LC )@@G@@ . VAR FREEMSG : STRING; @E@@@D 'PAS$FI' LD )@@G@@ . (* INITIL VALUE *)@#@@@D 'LE0000'@#@@@D ' . 'LE )@@G@@@ @@@DFREEMSGL EQU $-FREEMSG @C@@@D$(1) LF )@@G@@ . BEGIN @]@@@EP$FREE* @F@E@DP$FREE* L A2,FNAME LG )@@G@@ . IF A1^[0] = FNAME THEN @A@@@E L X9,P$GLOBALH )@@G@@L @F@@@E L A2,FNAME . IF A1^[0] = FNAME LI )@@G@@THEN @G@@@D TE A2,0,A1 . BEGIN (* GENERATELJ )@@G@@D NAME *) @B@@@D J 0,X11 . @A@@@E LK )@@G@@ S A0,CSFA0,X9 @D@@@E COPYLINE FREEMSG LL )@@G@@ FREEMSGL,A0,A2 @B@@@D DL A1,0,A1 . @F@E@DLM )@@G@@ DS A1,FREEMSG+1 . FREEMSG[1] := A1^[0]; @F@@@ELN )@@G@@ DS A1,LINEBUF+1,X9 . FREEMSG[1] := A1^[0]; @F@E@DLO )@@G@@ S A0,SAVEAS . FREEMSG[2] := A1^[1]; @B@E@DLP )@@G@@ L A0,(FREEMSGL,FREEMSG) @A@@@E LXI,U A0,FLQ )@@G@@REEMSGL @A@@@E LXM,U A0,LINEBUF,X9 @F@@@D ERLR )@@G@@ CSF$ . CSF$(FREEMSG,STAT) @B@E@D L LS )@@G@@ A0,SAVEAS . @B@@@E L A0,CSFA0,X9 LT )@@G@@ . @D@@@D J 0,X11 . END (*FREE*);@#@@@DLU )@@G@@ END ___OBAL @E@@@E TNZ 0,A1 LV )@@G@@ . IF A1^[0]<> 0 THEN@F@@@D J *[S@@@*SDFF*@B@@@@. LW )@@G@@ PASCAL RESET AND REWRITE ROUTINE@[@@@@. @F@@@@. THESE ROLX )@@G@@UTINES HAVE BEEN EXTENDED TO ALLOW THE OPTIONAL @E@@@@. SPECIFICLY )@@G@@ATION OF A STARTING ADDRESS AND FILE NAME @[@@@@. @ @@@@. CALLED L,LZ )@@G@@U A0,FCT @F@@@@. L A1,ADDRESS WILL BE ZEMA )@@G@@RO IF UNSPECIFIED @F@@@@. L,U A2,FILENAME WILL BE ZEMB )@@G@@RO IF UNSPECIFIED @G@@@@. L,U A3,FTYPE . SPECIFIEMC )@@G@@D ONLY IF FILENAME GIVEN@A@@@@. LMJ X10,P$RES(P$REW)@[@@@@MD )@@G@@. @#@@@@ AXR$ @#@@@@ P$DEFS @[@@@@$(1) @^@[@@ME )@@G@@ BINFCT A0 @^@@@[ BFCT A0 @G@@@@P$RES* MF )@@G@@ . PROCEDURE RESET(A0: FCTPTR, @F@@@@ MG )@@G@@ L,U A4,RESET . ADDR: INTEGER;@G@@@@ MH )@@G@@ J P$REW+1 . NAME: IDENTIFIER); @[@@@@MI )@@G@@P$REW*@ @@@@ L,U A4,REWRITE@A@@@@ L X9,PMJ )@@G@@$GLOBAL @A@@@@ S X10,P$LIBCAL @E@@@@ S MK )@@G@@ X10,REWX10,X9 . BEGIN WITH A0^ DO @A@[@@ S ML )@@G@@ A4,REWTYPE,X9 @A@@@[ S A4,REWTYP,X9 @F@[@@ MM )@@G@@ DS A0,REWSAVE,X9 . (* SAVE REGISTERS *) @F@@@[ MN )@@G@@ DS A0,REWSAV,X9 . (* SAVE REGISTERS *) @A@]@@ MO )@@G@@ DS A2,REWSAVE+2,X9 @A@@@] DS A2,REWSAV+2,X9 MP )@@G@@@E@@@@ TNZ OPENR . IF OPENR THEN @ @@@@MQ )@@G@@ J ELSE1 @E@@@@ L A3,FFORM MR )@@G@@ . FFORM.CLOSER(A0);@A@@@@ LMJ A3,CLOSER,A3 @[@@@@MS )@@G@@ELSE1 @E@@@@ TNZ OPENW . IF OPENW THEN MT )@@G@@@ @@@@ J ELSE2 @ @@@@ L A3,FFORM MU )@@G@@@E@@@@ LMJ A3,CLOSEW,A3 . FFORM.CLOSEW(A0);@[@@@@MV )@@G@@ELSE2 @E@[@@ TNZ RWSAVE+2,X9 . IF NAME <> 0 THEN MW )@@G@@@E@@@[ TNZ REWSAV+2,X9 . IF NAME <> 0 THEN @ @@@@MX )@@G@@ J ELSE3 @C@@@@ L A3,FFORM MY )@@G@@ . BEGIN@E@@@@ LMJ A3,CLOSE,A3 . FFORM.CLOSEMZ )@@G@@(A0); @G@[@@ L,U A1,RWSAVE+2,X9 . (* CONVERT TO FIENA )@@G@@LDATA *) @G@#@[ L,U A1,REWSAV+2,X9 . (* CONVERT NB )@@G@@TO FIELDATA *) @G@@@# L A1,REWSAV+2,X9 . (* CONC )@@G@@NVERT TO FIELDATA *) @A@@@@ L,U A2,LINEBUF,X9 @^@@@@ND )@@G@@ L,U A0,3@F@@@@ LMJ X11,ASCFD$ . NE )@@G@@ ASCFD(NAME,LINEBUF); @G@[@@ L A0,REWSAVE,X9 . NF )@@G@@ (* SET UP TO CALL OPEN *) @G@@@[ L A0,REWSAV,X9 NG )@@G@@ . (* SET UP TO CALL OPEN *) @A@@@@ DL A1,LINEBUFNH )@@G@@,X9 @D@[@@ L A3,REWSAVE+3,X9 . FILE TYPE @D@@@[NI )@@G@@ L A3,REWSAV+3,X9 . FILE TYPE @H@@@@ L NJ )@@G@@ A4,BUFLEN . (* THIS IS USELESS BUT HARMLESS @H@[@@NK )@@G@@ L A5,ELSIZE . FOR CHARACTER FILES NL )@@G@@ *) @H@@@[ L A5,ELSIZ . FOR CHARACTER NM )@@G@@FILES *) @ @@@@ S A3,FFORM @H@@@@ LMNN )@@G@@J A3,OPEN,A3 . FORM.OPEN(FCT,NAME,BUFLEN,ELSIZE) @C@@@@NO )@@G@@ELSE3 . END; @G@@@@ L NP )@@G@@ A1,REWSAV+1,X9 . NOW RESET OR REWRITE THE FILE @ @@@@ L NQ )@@G@@ A3,FFORM @A@[@@ A A3,REWTYPE,X9 @A@@@[ NR )@@G@@ A A3,REWTYP,X9 @E@@@@ LMJ A3,0,A3 NS )@@G@@ . FFORM.REWRITE @A@@@@ L X10,REWX10,X9 @ @@@@NT )@@G@@ SZ P$LIBCAL @C@@@@ J 0,X10 NU )@@G@@ . END; @#@@@@ END ___^[X%8K@@[/K@^)QA\@^?-/\)^VZ/KE@@[NV )@@G@@*[S@@@*SDFF*@B@@@@. PASCAL FORMAT DEFINITION PROCS @[@@@@. NW )@@G@@@A@@@@. USED FOR TYPE DECLARATIONS@[@@@@. @C@@@@. SINX )@@G@@MPLE STRUCTURE DEFINITION PROCS @[@@@@. @E@@@@. STRUC NY )@@G@@ INITIALIZES A PSEUDO LOCATION COUNTER @[@@@@. @H@@@@. SRNZ )@@G@@ES RESERVES DATA SPACE UNDER THE PSEUDO LOCATION COUNTER @[@@@@OA )@@G@@. @F@@@@. SRESL RESERVES DATA AND SETS A LABEL EQUAL TO OB )@@G@@PLC. @[@@@@. @C@@@@. THE PSEUDO LOCATION COUNTER IS S$(0) OC )@@G@@@[@@@@. @^@@@@STRUC* PROC *0. @^@@@@S$*(0) EQU 0. OD )@@G@@@#@@@@ END. @[@@@@. @^@@@@SRES* PROC *1. @A@@@@OE )@@G@@S$*(0) EQU S$(0)+SRES(1,1).@#@@@@ END. @[@@@@. OF )@@G@@@^@@@@SRESL* PROC *1. @ @@@@* EQU S$(0). @B@@@@OG )@@G@@S$*(0) EQU S$(0)+SRESL(1,1). @#@@@@ END. @[@@@@OH )@@G@@. @^@@@@SEQUF* PROC *1. @C@@@@* EQUF S$(0),SEQUOI )@@G@@F(1,1),SEQUF(1,2).@B@@@@S$*(0) EQU S$(0)+SEQUF(1,3). @#@@@@OJ )@@G@@ END. @ @@@@ENDS* PROC *0,0. @#@@@@ ENOK )@@G@@D. @[@@@@/. @G@@@@P PROC *1. TYPE CHAOL )@@G@@RFCT = PACKED RECORD @^@@@@CHARFCT* NAME 0. @ @@@@R EQOM )@@G@@U P(1,1). @^@@@@RLINELEN* EQU 33. @^@@@@WLINELEN* EQU ON )@@G@@ 33. @^@@@@PUNLEN* EQU 20 @F@@@@CBLENS* EQU 8. OO )@@G@@ CHAR BUF LENGTH IN SECTORS@F@@@@CBLENW* EQU CBLENS*28.OP )@@G@@ CHAR BUF LENGTH IN WORDS @#@@@@ STRUC @F@@@@CP* OQ )@@G@@ SEQUF R. (* CHARACTER POINTER *) @D@@@@CPI* OR )@@G@@ SEQUF R,H1. CPI,CPM: 0..4;@ @@@@CPM* SEQUF OS )@@G@@ R,H2,1. @C@@@@EOFI* SEQUF R,S1. EOFI, @C@@@@OT )@@G@@EOLI* SEQUF R,S2. EOLI, @C@@@@OPENR* SEQUF OU )@@G@@ R,S3. OPENR, @C@@@@OPENW* SEQUF R,S4. OV )@@G@@ OPENW, @E@@@@WHERE* SEQUF R,S5. WHERE: BOOLEANOW )@@G@@; @E@@@@WRITTEN* SEQUF R,S6,1. WRITTEN: BOOLEAN; OX )@@G@@@D@@@@FLINK* SEQUF R,H1. FLINK: ^FCT; @E@@@@FFORM*OY )@@G@@ SEQUF R,H2,1. FFORM: FILEFORM; @E@@@@WP* SEOZ )@@G@@QUF R. (* WORD POINTER *) @E@@@@WPI* SEQUF PA )@@G@@ R,H1. WPI,WPM: 0..BUFLEN; @ @@@@WPM* SEQUF R,H2PB )@@G@@,1. @G@@@@ECP* SEQUF R,H1. ECP: 0..4 (* END VALPC )@@G@@UE OF CP *) @E@@@@EWP* SEQUF R,H2,1. EWP: 0..BUFLENPD )@@G@@; @C@@@@SYMBF* SEQUF R,S1. SYMBF, @E@@@@ASCIIFPE )@@G@@* SEQUF R,S2,1. ASCIIF: BOOLEAN; @D@@@@ SRPF )@@G@@ES 1. SPARE SPACE @F@@@@CBUF* SEQUF R,,5PG )@@G@@. CBUF: ARRAY[0..4] OF CHAR;@G@@@@WBUF* SEQUF R,,RPH )@@G@@LINELEN. WBUF: ARRAY[1..33] OF WORD; @H@@@@LEV1X10* SEQUF PI )@@G@@ R,,1. LEV1X10, (* REG SAVE FOR LEV 1 ROUT*) @H@@@@LEV2X1PJ )@@G@@0* SEQUF R,,1. LEV2X10: INTEGER; (* SAME FOR LEV 2*) PK )@@G@@@H@@@@FILESAVE* SEQUF R,,4. FILESAVE: ARRAY[1..4] OF IPL )@@G@@NTEGER; @H@@@@FILEX10* SEQUF R,,1. FILEX10, (* FIPM )@@G@@LE ROUTINE SAVES *) @E@@@@FILEA3* SEQUF R,,1. FIPN )@@G@@LEA3: INTEGER; @F@@@@IFCT* SEQUF R. IFCT: SPPO )@@G@@FCT; (* SDF FCT *)@G@@@@IFILEN* SEQUF R,,2. IFILEN: PP )@@G@@ARRAY[0..1] OF FDWORD; @D@@@@ SRES 1. EXPQ )@@G@@EC USE AREA @C@@@@FSTAT* SEQUF R,S1. FSTAT, @C@@@@PR )@@G@@FUNC* SEQUF R,S2. FUNC, @D@@@@AFC* SEQUF PS )@@G@@ R,S3. AFC: SIXTH; @E@@@@WORDCNT* SEQUF R,H2,1. PT )@@G@@ WORDCNT: SHORTINT; @E@@@@BUFLEN* SEQUF R,H1. PU )@@G@@ BUFLEN: SHORTINT; @E@@@@BUFAD* SEQUF R,H2,1. BUPV )@@G@@FAD: ^BUFFER; @I@@@@MSADD* SEQUF R,,1. MSADD: IPW )@@G@@NTEGER; (* MASS STORAGE ADDR *) @C@@@@B1ADDR* SEQUF R,H1. PX )@@G@@ B1ADDR; @E@@@@B2ADDR* SEQUF R,H2,1. B2ADDR: PY )@@G@@^BUFFER; @E@@@@SECTSIZE* SEQUF R,H1. SECTSIZE: SHORPZ )@@G@@TINT; @E@@@@IMAGELEN* SEQUF R,H2,1. IMAGELEN: SHORTINT; QA )@@G@@@ @@@@IMAGEINC* SEQUF R,H1. @E@@@@IMAGE* SEQUF R,H2,1. QB )@@G@@ IMAGE: SHORTINT; @ @@@@BILINC* SEQUF R,H1. @G@@@@QC )@@G@@BIL* SEQUF R,H2,1. BIL: SHORTINT (BUF IMAGE LOC) QD )@@G@@@C@@@@CKEY* SEQUF R,S1. CKEY, @C@@@@CTYPE* SEQE )@@G@@QUF R,S3. CTYPE, @D@@@@ASCFLG* SEQUF R,S6. QF )@@G@@ ASCFLG: SIXTH;@H@@@@CONT* SEQUF R. COQG )@@G@@NT: BOOLEAN (* SDFF CONT WORD *) @D@@@@DELFLG* SEQUF R,S3. QH )@@G@@ DELFLG: SIXTH;@F@@@@IMLEN* SEQUF R,,1. IMQI )@@G@@AGELENGTH: INTEGER; @C@@@@BUF1* SEQUF R,,CBLENW. BUQJ )@@G@@F1, @G@@@@BUF2* SEQUF R,,CBLENW. BUF2: ARRAY[0..223] QK )@@G@@OF WORD; @#@@@@ ENDS @C@@@@ END. QL )@@G@@ END; @[@@@@/. @F@@@@P PROC *1. QM )@@G@@ TYPE BFCT = PACKED RECORD@E@@@@BFCT* NAME 0. QN )@@G@@ (* BINARY FCT *); @ @@@@R EQU P(1,1). @#@@@@ QO )@@G@@ STRUC @C@@@@ELSIZ* SEQUF R,H1. ELSIZE, @E@@@@QP )@@G@@BUFPM* SEQUF R,H2. BUFPM: SHORTINT; @ @@@@BUFP* QQ )@@G@@ SEQUF R,,1. @C@@@@EOFI* SEQUF R,S1. EOQR )@@G@@FI, @C@@@@OPENR* SEQUF R,S3. OPENR, @C@@@@OPENW*QS )@@G@@ SEQUF R,S4. OPENW @E@@@@WHERE* SEQUF R,S5QT )@@G@@. WHERE: BOOLEAN; @E@@@@WRITTEN* SEQUF R,S6,1. QU )@@G@@ WRITTEN: BOOLEAN; @D@@@@FLINK* SEQUF R,H1. QV )@@G@@ FLINK: ^FCT; @E@@@@FFORM* SEQUF R,H2,1. FFORM:FIQW )@@G@@LEFORM; @D@@@@FCT* SEQUF R. FCT:BINFCT; QX )@@G@@@G@@@@IFILEN* SEQUF R,,2. IFILEN: ARRAY[0..1] OF FDWQY )@@G@@ORD; @D@@@@ SRES 1. EXEC USE SPACE@C@@@@QZ )@@G@@FSTAT* SEQUF R,S1. FSTAT, @C@@@@FUNC* SEQUF RA )@@G@@ R,S2. FUNC, @D@@@@AFC* SEQUF R,S3. RB )@@G@@ AFC: SIXTH; @E@@@@WORDCNT* SEQUF R,H2,1. WORDCNT:RC )@@G@@ SHORTINT; @E@@@@BUFLEN* SEQUF R,H1 . BUFLEN: SHORTIRD )@@G@@NT; @E@@@@BUFAD* SEQUF R,H2,1. BUFAD: ^BUFFER; RE )@@G@@@H@@@@MSADD* SEQUF R,,1. MSADD*INTEGER; (* MASS STORF )@@G@@RE ADDR*) @C@@@@B1ADD* SEQUF R,H1. B1ADDR; @E@@@@RG )@@G@@B2ADD* SEQUF R,H2. B2ADDR: ^BUFFER; @ @@@@BSWAPSRH )@@G@@* SEQUF R,,1. @E@@@@SECTSIZ* SEQUF R,H1. SERI )@@G@@CTSIZE: SHORTINT; @E@@@@NELTS* SEQUF R,H2,1. NELTS: SRJ )@@G@@HORTINT; @C@@@@USEDBL* SEQUF R,H1. USEDBL, @E@@@@RK )@@G@@EBUFP* SEQUF R,H2,1. EBUFP: SHORTINT; @D@@@@ RL )@@G@@ SRES 1. SPARE SPACE @D@@@@BST* SEQUF RM )@@G@@ R. BST: BUFFER; @C@@@@ END. RN )@@G@@ END; @[@@@@/. @B@@@@. NOT ACTUALLY USED AT THE MRO )@@G@@OMENT @[@@@@. @F@@@@P PROC *1. TYPE PBFRP )@@G@@CT = PACKED RECORD@F@@@@PBFCT* NAME 0. (* PACKERQ )@@G@@D BINARY FCT*) @ @@@@R EQU P(1,1). @^@@@@BUFP* EQRR )@@G@@UF 0,R.@C@@@@ELSIZ* EQUF 0,R,H1. ELSIZE, @E@@@@RS )@@G@@BUFPM* EQUF 0,R,H2. BUFPM: SHORTINT; @C@@@@EOFI* RT )@@G@@ EQUF 1,R,S1. EOFI, @C@@@@OPENR* EQUF 1,R,RU )@@G@@S3. OPENR, @C@@@@OPENW* EQUF 1,R,S4. OPRV )@@G@@ENW @E@@@@WHERE* EQUF 1,R,S5. WHERE: BOOLEAN; RW )@@G@@@E@@@@WRITTEN* EQUF 1,R,S6. WRITTEN: BOOLEAN; @D@@@@RX )@@G@@FLINK* EQUF 2,R,H1. FLINK: ^FCT; @E@@@@FFORM* EQRY )@@G@@UF 2,R,H2. FFORM:FILEFORM; @D@@@@FCT* EQUF RZ )@@G@@ 3,R. FCT:BINFCT; @G@@@@IFILEN* EQUF 3,R. SA )@@G@@ IFILEN: ARRAY[0..1] OF FDWORD; @C@@@@FSTAT* EQUF 6,R,SB )@@G@@S1. FSTAT, @C@@@@FUNC* EQUF 6,R,S2. FUSC )@@G@@NC, @D@@@@AFC* EQUF 6,R,S3. AFC: SIXTH; @E@@@@SD )@@G@@WORDCNT* EQUF 6,R,H2. WORDCNT: SHORTINT; @E@@@@BUFLENSE )@@G@@* EQUF 7,R,H1. BUFLEN: SHORTINT; @E@@@@BUFAD* EQSF )@@G@@UF 7,R,H2. BUFAD: ^BUFFER; @H@@@@MSADD* EQUF SG )@@G@@ 8,R. MSADD*INTEGER; (* MASS STORE ADDR*) @^@@@@BSWAPSSH )@@G@@* EQUF 9,R.@C@@@@B1ADD* EQUF 9,R,H1. B1ADDR; SI )@@G@@@E@@@@B2ADD* EQUF 9,R,H2. B2ADDR: ^BUFFER; @E@@@@SJ )@@G@@SECTSIZ* EQUF 10,R,H1. SECTSIZE: SHORTINT; @E@@@@NELTS*SK )@@G@@ EQUF 10,R,H2. NELTS: SHORTINT; @C@@@@USEDBL* EQSL )@@G@@UF 11,R,H1. USEDBL, @E@@@@EBUFP* EQUF 11,R,H2. SM )@@G@@ EBUFP: SHORTINT; @D@@@@BST* EQUF 13,R. SN )@@G@@ BST: ^BUFFER; @G@@@@PFORM* EQUF 14,R,H2. PFORM:0.SO )@@G@@.72; (* PACK FORM *) @F@@@@. (*SP )@@G@@ = 2 * EPW + SIGNED *) @D@@@@EWP* EQUF 11,R,H1. EWSQ )@@G@@P: SHORTINT;@ @@@@WP* EQUF 12,R. @C@@@@WPI* EQUF SR )@@G@@ 12,R,H1. WPI, @D@@@@WPM* EQUF 12,R,H2. SS )@@G@@ WPM: SHORTINT;@D@@@@EPW* EQUF 13,R,H1. EPW: 0..ST )@@G@@36; @E@@@@ELCNT* EQUF 13,R,H2. ELCNT: SHORTINT; SU )@@G@@@G@@@@PBUF* EQUF 15,R. PBUF: ARRAY[1..EPW] OF WORSV )@@G@@D; @C@@@@ END. END; @E@@@@/. SW )@@G@@ PROCS TO USE THE PASCAL FILE SYSTEM FROM ASSEMBLER@[@@@@. @[@@@@SX )@@G@@. @D@@@@. OPENF FCT,NAME,TYPE,BUFSIZE,ELTSIZE @[@@@@SY )@@G@@. @C@@@@. OPEN THE FILE SPECIFIED USING FCT @[@@@@. SZ )@@G@@@^@@@@P PROC 1. @#@@@@OPENF* NAME. @ @@@@ DO 1-P(1,*1TA )@@G@@) , L,U A0,P(1,1).@A@@@@ DL A1,(P(1,2)). @ @@@@ TB )@@G@@ L,U A3,P(1,3).@ @@@@ DO P(1)>3 , L,U A4,P(1,4).@ @@@@ DO P(TC )@@G@@1)>4 , L,U A5,P(1,5).@ @@@@ LMJ X10,P$OPFL@#@@@@ TD )@@G@@ END. @[@@@@. @#@@@@. REWRITE @[@@@@. @^@@@@REWRITTE )@@G@@E* PROC 1,1.@ @@@@ LMJ X10,P$REW.@#@@@@ ENTF )@@G@@D. @[@@@@. @#@@@@. RESET @[@@@@. @^@@@@RESET* PRTG )@@G@@OC 1,1.@ @@@@ LMJ X10,P$RES.@#@@@@ END. TH )@@G@@@[@@@@. @^@@@@. CLOSE FCT @[@@@@. @^@@@@P PRTI )@@G@@OC 1. @#@@@@CLOSE* NAME. @A@@@@ DO 1-(P(1)=0) , L,U A0,P(1,1)TJ )@@G@@. @ @@@@ LMJ X10,P$CLFL@#@@@@ END. @^@@@@TK )@@G@@P PROC 1. @#@@@@PAGE* NAME. @A@@@@ DO 1-(P(1)=0) , LTL )@@G@@,U A0,P(1,1). @A@@@@ LMJ X10,P$PAGE. @#@@@@ TM )@@G@@ END. @[@@@@. @#@@@@. WRITELN @[@@@@. @^@@@@WRITELTN )@@G@@N* PROC 1,1.@ @@@@ LMJ X10,P$WLN.@#@@@@ ENTO )@@G@@D. @[@@@@. @B@@@@. WRITES STRING,STRINGL,FIELDL @[@@@@TP )@@G@@. @^@@@@P PROC 1. @#@@@@WRITES* NAME. @ @@@@ DO 1-TQ )@@G@@P(1,*1) , L,U A1,P(1,1).@ @@@@ L,U A2,P(1,2) @ @@@@ DO P(TR )@@G@@1)<3 , L A3,A2 @ @@@@ DO P(1)>2 , L,U A3,P(1,3).@ @@@@ TS )@@G@@ LMJ X10,P$WRS.@#@@@@ END. @[@@@@. @ @@@@. TT )@@G@@ WRITEI INT,LEN @[@@@@. @^@@@@P PROC 1. @#@@@@TU )@@G@@WRITEI* NAME. @ @@@@ DO 1-P(1,*1) , L A1,P(1,1).@ @@@@ L,TV )@@G@@U A2,P(1,2).@ @@@@ LMJ X10,P$WRI.@#@@@@ ENTW )@@G@@D. @[@@@@. @ @@@@. WRITEO INT,LEN @[@@@@. @^@@@@TX )@@G@@P PROC 1. @#@@@@WRITEO* NAME. @ @@@@ DO 1-P(1,*1) , L TY )@@G@@ A1,P(1,1).@ @@@@ L,U A2,P(1,2).@ @@@@ LMJ TZ )@@G@@ X10,P$WRO.@#@@@@ END. @^@@@@P PROC 1. @#@@@@UA )@@G@@WRITEC* NAME. @ @@@@ DO P(1)>0 , L,U A1,P(1,1).@ @@@@ DO P(1)>1 ,UB )@@G@@ L,U A2,P(1,2).@A@@@@ DO P(1)<2 , LMJ X10,P$WRC1. @ @@@@ DO P(UC )@@G@@1)>1 , LMJ X10,P$WRC.@#@@@@ END. @[@@@@. @ @@@@. UD )@@G@@ MAKECFCT STAND @[@@@@. @G@@@@. MAKES A CHARACTER FCUE )@@G@@T. IF STAND <> 0 THEN IT ALLOCATES BUFFER@[@@@@. @^@@@@P PRUF )@@G@@OC 1. @#@@@@MAKECFCT* NAME. @^@@@@ DO P(1,1)=0 , RES 53. @ @@@@UG )@@G@@ DO 1-(P(1,1)=0) , RES 512. @#@@@@ END. @[@@@@. @C@@@@UH )@@G@@. PROCS TO GENERATE LC ALPHANUMERICS @^@@@@P PROC UI )@@G@@ 1. @A@@@@LOWER* NAME 040040040040. @ @@@@LOWER234* NAME UJ )@@G@@ 040040040.@A@@@@LOWER134* NAME 040000040040. @A@@@@LOWER124* NAUK )@@G@@ME 040040000040. @A@@@@LOWER123* NAME 040040040000. @ @@@@UL )@@G@@LOWER34* NAME 040040. @A@@@@LOWER14* NAME 040000000040. UM )@@G@@@A@@@@LOWER12* NAME 040040000000. @A@@@@LOWER13* NAME 0400UN )@@G@@00040000. @ @@@@LOWER24* NAME 040000040.@A@@@@LOWER1* NAME UO )@@G@@ 040000000000. @ @@@@LOWER2* NAME 040000000.@ @@@@LOWER3* NAUP )@@G@@ME 040000. @^@@@@LOWER4* NAME 040.@[@@@@. @ @@@@I UQ )@@G@@ DO P(1) , ; @A@@@@ + P(1,I)++P(0,0). @#@@@@UR )@@G@@ END. @[@@@@. @ @@@@. LOWERCASE SENTENCE @[@@@@US )@@G@@. @^@@@@P PROC 1. @#@@@@LOWERS* NAME. @ @@@@ UT )@@G@@ LOWER234 P(1,1). @ @@@@I DO P(1)-1 , ;@ @@@@ UU )@@G@@ LOWER P(1,I+1). @#@@@@ END. @ @@@@/. GENERAL UV )@@G@@DEFINITIONS @[@@@@. @ @@@@. SONE STORE 1 @[@@@@. UW )@@G@@@ @@@@P PROC *1,1. @^@@@@SONE* NAME 0. @C@@@@UX )@@G@@ SR,P(0,1) R15,P(1,1),P(1,2),P(1,3). @#@@@@ END. UY )@@G@@@[@@@@. @E@@@@. BASIC RANDOM NUMBER GENERATOR, STOLEN FROM SIUZ )@@G@@MULA @[@@@@. @#@@@@P PROC. @#@@@@BASIC* NAME. @A@@@@VA )@@G@@ L P(1,1),0,P(1,2). @B@@@@ MI P(1,1),(+12207VB )@@G@@03125). @ @@@@ JN P(1,1),$+4. @B@@@@ AND P(VC )@@G@@1,1)+1,(+0377777777777).@A@@@@ S P(1,1)+2,0,P(1,2). @^@@@@VD )@@G@@ J $+4. @A@@@@ OR P(1,1)+1,(+1*/35). @A@@@@VE )@@G@@ S P(1,1)+2,0,P(1,2). @B@@@@ AND P(1,1)+1,(+037VF )@@G@@7777777777).@]@@@@ END.@[@@@@. @B@@@@. REVERSE THE BIVG )@@G@@TS IN A REGISTER @[@@@@. @F@@@@. REVERSE A1,A2 VH )@@G@@ SETS A1 TO REVERSE OF A2 @[@@@@. @C@@@@. USED TO CONVERVI )@@G@@T CSF STATUS INTO A SET @[@@@@. @A@@@@. USES THE REGISTER ABVJ )@@G@@OVE A2@[@@@@. @^@@@@P PROC 1,7.@#@@@@REVERSE* NAME. VK )@@G@@@E@@@@ SZ P(1,1). FIRST ZERO THE RESULT@ @@@@VL )@@G@@ L,U R1,35. @E@@@@LOOP AND,U P(1,2),1. VM )@@G@@ GET THE BOTTOM BIT @F@@@@ LSSL P(1,1),1. RESUVN )@@G@@LT := RESULT*2 + BIT @A@@@@ A P(1,1),P(1,2)+1.@E@@@@VO )@@G@@ SSL P(1,2),1. INPUT := INPUT DIV 2 @ @@@@ VP )@@G@@ JGD R1,LOOP. @#@@@@ END. @[@@@@. @D@@@@. VQ )@@G@@ COPY TO THE LINE BUFFER FOR MANIPULATION @[@@@@. @D@@@@. VR )@@G@@ COPYLINE FROM,FROMX LENGTH,REG1,REG2 @[@@@@. @F@@@@. VS )@@G@@ COPYS FROM THE LOCATION SPECIFIED INTO THE LINE BUFFER @F@@@@. VT )@@G@@ REG1 AND REG2 ARE USED IF SPECIFIED, OTHERWISE A0 AND A1@[@@@@. VU )@@G@@@^@@@@. R1 IS USED @[@@@@. @^@@@@P PROC 2,6.VV )@@G@@@#@@@@COPYLINE* NAME. @ @@@@ ON P(2,2)=0. @^@@@@REG1 VW )@@G@@ EQU A0. @#@@@@ OFF @A@@@@ ON 1-(PVX )@@G@@(2,2)=0) @ @@@@REG1 EQU P(2,2). @#@@@@ OFF VY )@@G@@@ @@@@ ON P(2,3)=0. @^@@@@REG2 EQU A1. @#@@@@VZ )@@G@@ OFF @A@@@@ ON 1-(P(2,3)=0). @ @@@@REG2 WA )@@G@@ EQU P(2,3). @#@@@@ OFF. @B@@@@ L,U WB )@@G@@ REG1,P(1,1),P(1,2). @ @@@@ LXI,U REG1,1. @A@@@@ WC )@@G@@ L,U REG2,LINEBUF,X9.@ @@@@ LXI,U REG2,1. @ @@@@WD )@@G@@ L,U R1,P(2,1).@A@@@@ BT REG2,0,*REG1. WE )@@G@@@#@@@@ END. @A@@@@/. ERROR COMMUNICATION AREA @[@@@@WF )@@G@@. @F@@@@. THIS IS ALLOCATED IN P$ERR, AND IS ACCESSED INDIREWG )@@G@@CTLY @A@@@@. BY THE ERROR PRINT ROUTINE@[@@@@. @F@@@@. WH )@@G@@ IT SHOULD ALWAYS BE THE FIRST THING IN THE ELEMENT P$ERR@[@@@@. WI )@@G@@@^@@@@PERRDEFS* PROC *0. @#@@@@ STRUC @F@@@@REGLEN* EQWJ )@@G@@U 48. NUMBER OF REGISTERS TO SAVE @E@@@@REGS* SRWK )@@G@@ESL REGLEN. REGISTER SAVE AREA @E@@@@CMSAVE* SRESL WL )@@G@@ 1. CURRENT MARK SAVE @E@@@@GLSAVE* SRESL 1. WM )@@G@@ GLOBAL LINK SAVE (X1) @E@@@@DLSAVE* SRESL 1. WN )@@G@@ DYNAMIC LINK SAVE (X2)@E@@@@LNSAVE* SRESL 1. WO )@@G@@ LINE NUMBER SAVE (R10)@E@@@@HPSAVE* SRESL 1. HEAPWP )@@G@@ TOP SAVE (R14) @E@@@@STSAVE* SRESL 1. STACK TOP WQ )@@G@@SAVE (R13) @G@@@@GPSAVE* SRESL 1. GLOBAL WORK AREAWR )@@G@@ POINTER (R12) @G@@@@LASAVE* SRESL 1. LIBRARY ENWS )@@G@@TRY ADDRESS SAVE (R11) @H@@@@FTNFLG* SRESL 1. FORTWT )@@G@@RAN FLAG (1 IF WITHIN FTN CALL) @[@@@@. @F@@@@. THE FOLLWU )@@G@@OWING IS USED INTERNALLY IN THE ERROR ROUTINE @[@@@@. @D@@@@ERNUM*WV )@@G@@ SRESL 1. ERROR NUMBER @D@@@@ERADD* SRESL WW )@@G@@ 1. ERROR ADDRESS @C@@@@ERBDI* SRESL 1. WX )@@G@@ ERROR BDI @F@@@@ERLAD* SRESL 1. LIBRARY ROWY )@@G@@UTINE CALL ADDRESS@F@@@@ERCAD* SRESL 1. CONTINGENCWZ )@@G@@Y CALL ADDRESS @F@@@@CONTPKT* SRESL 3. CONT PKT FXA )@@G@@OR ERROR PRINTING @G@@@@UCONT* SRESL 1. USER PRINTXB )@@G@@ CONTROL IF ERRNUM=0 @G@@@@UMSG* SRESL 33. USERXC )@@G@@ ERROR MESSAGE IF ERRNUM=0 @E@@@@GETPN* SRESL 1. XD )@@G@@ SET TO 'J PGETPN' @F@@@@PADDR* SRESL 1. ADDRXE )@@G@@ESS OF CURRENT PROCEDURE@G@@@@PNAME* SRESL 3. PROCXF )@@G@@EDURE PRINT NAME (TEMPORARY) @G@@@@ERFCT* SRESL 53. XG )@@G@@ CHARACTER FCT FOR OUTPUT MESSAGES @E@@@@ERCOML* SRESL 0. XH )@@G@@ LENGTH OF ERROR COMMON@#@@@@ ENDS @ @@@@ ENXI )@@G@@D. PERRDEFS @[@@@@. @^@@@@. ERROR CALL @[@@@@. XJ )@@G@@@G@@@@P PROC *1,1. PROCEDURE ERROR(ERN:INTEGEXK )@@G@@R); @^@@@@ERROR* NAME 0. @A@@@@ EX P$ERR+P(1,XL )@@G@@1). @#@@@@ END. @[@@@@. @[@@@@. @G@@@@. THXM )@@G@@E FOLLOWING IS FROM THE ASCII FORTRAN LIB, AND GENERATES A @E@@@@. XN )@@G@@ FREE CORE AREA FOR THE USE OF THE RUNTIME ROUTINES@[@@@@. @G@@@@XO )@@G@@. IT IS NEEDED TO ALLOW THE CALLING OF ASCII FORTRAN ROUTINES XP )@@G@@@[@@@@. @B@@@@P PROC . @E@@@@F$FCA*XQ )@@G@@ NAME . FREE CORE AREA PROC @E@@@@F2FCA$** + XR )@@G@@ $+4,$+4 . GENERATE FREE CORE @E@@@@ + XS )@@G@@ 0,0 . AREA POINTER TABLE @C@@@@ + BDI$XT )@@G@@,P(1,1) . @D@@@@ + 0 . XXU )@@G@@11 SAVE @B@@@@ + 0,P(1,1) . @B@@@@ XV )@@G@@ RES P(1,1)-1 . @B@@@@ END XW )@@G@@ . @[@@@@. @[@@@@. @C@@@@. CONST DEFS FOR ALL PXX )@@G@@ASCAL ROUTINES @[@@@@. @#@@@@ DEF @[@@@@. @A@@@@XY )@@G@@. ERROR TYPE DEFINITIONS @[@@@@. @E@@@@USERMSG EQU XZ )@@G@@ 0. ERROR DEFINITIONS @^@@@@READNOTOK EQU 1. YA )@@G@@@^@@@@WRITENOTOK EQU 2. @^@@@@READFORM EQU 3. @^@@@@READLEYB )@@G@@N EQU 5. @^@@@@IOERROR EQU 6. @^@@@@RESETNOTOK EQU YC )@@G@@ 7. @^@@@@REWRITENOTOK EQU 8. @^@@@@INTERNAL EQU 9. @^@@@@YD )@@G@@CASEERROR EQU 10. @^@@@@SUBERROR EQU 11. @^@@@@ASSERROR EQYE )@@G@@U 12. @^@@@@MEMERROR EQU 13. @^@@@@DIVOVERFL EQU 14. YF )@@G@@@^@@@@FPOVERFL EQU 16. @^@@@@MAXPAGES EQU 17. @^@@@@MAXCARYG )@@G@@DS EQU 18. @^@@@@ARGNORM EQU 19. @^@@@@ARGRANGE EQU YH )@@G@@ 20. @^@@@@VALRANGE EQU 21. @^@@@@EXECERROR EQU 22. @^@@@@YI )@@G@@TRUNCERR EQU 23. @^@@@@SETERROR EQU 24. @^@@@@SOURCERR EQYJ )@@G@@U 25. @^@@@@USERCONT EQU 26. @^@@@@PTRERROR EQU 27. YK )@@G@@@^@@@@CALLERROR EQU 28. @[@@@@. @E@@@@ERMAX EQU 28. YL )@@G@@ MAXIMUM ERROR NUMBER@C@@@@. YM )@@G@@ END; @[@@@@. @[@@@@. @C@@@@. GLOBAL VARIABLYN )@@G@@ES FOR RUNTIME SYSTEM @[@@@@. @B@@@@. SUBJECT TO CHANGE ASYO )@@G@@ NECESSARY @[@@@@. @E@@@@P$STLIM EQU R14. STACYP )@@G@@K LIMIT CHECK @E@@@@P$CSTLIM EQU R13. CURRENT STYQ )@@G@@ACK LIMIT @F@@@@P$HPLIM EQU R13. HEAP LIMIT CHECKYR )@@G@@ (TEMPORARY)@E@@@@P$CHPLIM EQU R14. CURRENT HEAP LIMYS )@@G@@IT @F@@@@P$GLOBAL EQU R12. ADDRESS OF GLOBAL ARYT )@@G@@EA @F@@@@P$LIBCAL EQU R11. LIBRARY CALL ADDRESSYU )@@G@@ SAVE @E@@@@P$CMARK EQU R9. CURRENT MARK STACK YV )@@G@@@E@@@@P$LNUM EQU R10. CURRENT LINE NUMBER @[@@@@YW )@@G@@. @[@@@@. @A@@@@. ASSEMBLY TIME CONSTANTS @[@@@@. YX )@@G@@@F@@@@TESTS EQU 1. ENABLES RUNTIME TESTS YY )@@G@@@G@@@@CBLIB EQU 0. GENERATE COMMON BANKED LIBYZ )@@G@@RARY @[@@@@. @A@@@@. FILE FUNCTION DEFINITIONS @[@@@@. ZA )@@G@@@^@@@@READ EQU 0. @^@@@@WRITE EQU 1. @^@@@@RESET ZB )@@G@@ EQU 2. @^@@@@REWRITE EQU 3. @^@@@@CLOSER EQU ZC )@@G@@ 4. @^@@@@CLOSEW EQU 5. @^@@@@OPEN EQU 6. @^@@@@ZD )@@G@@CLOSE EQU 7. @^@@@@PAGE EQU 8. @^@@@@P$DEFS* PRZE )@@G@@OC 0. @[@@@@. @G@@@@. WORKSPACE DEFINITIONS, RELATIVE ZF )@@G@@ADDRESSING FOR COMMON SPACE @ @@@@. IN THE GLOBAL AREA @G@@@@ZG )@@G@@. THE ADDRESS OF THIS AREA IS NORMALLY CARRIED IN REGISTER R12 ZH )@@G@@@[@@@@. @#@@@@ STRUC @G@@@@DIGBUF* SRESL 12. ZI )@@G@@ DIGIT BUFFER FOR WRITE INTEGER @G@@@@TLINE* SRESL 33. ZJ )@@G@@ TEMPORARY LINE FOR ESDF FILES @G@@@@LINEBUF* SRESL ZK )@@G@@ 33. LINE BUFFER USED FOR CSF, ETC @G@@@@CSFA0* SRZL )@@G@@ESL 1. STORAGE FOR A0 ON SYSTEM CALLS @E@@@@FACPKTZM )@@G@@L* EQU 9. FITEM$ PACKET LENGTH@D@@@@FACPKT* SRZN )@@G@@ESL FACPKTL. FITEM$ PACKET @G@@@@FCOUNT* SRESL 1. ZO )@@G@@ FILE COUNT, FOR GENERATING NAMES@G@@@@REWSAV* SRESL ZP )@@G@@ 4. SAVE AREA FOR RESER/REWRITE @E@@@@REWX10* SRZQ )@@G@@ESL 1. SAVE X10 FOR ABOVE @H@@@@REWTYP* SRESL ZR )@@G@@ 1. TYPE OF OPERATION (RESET OR REWRITE) @#@@@@ ZS )@@G@@ ENDS @[@@@@. @[@@@@. @ @@@@. MARK STACK FIELDS ZT )@@G@@@[@@@@. @F@@@@. TYPE MARKBLK = PZU )@@G@@ACKED RECORD@#@@@@ STRUC @G@@@@FV* SEQUF X2,,1. ZV )@@G@@ FV: INTEGER; 'FUNCTION VALUE' @F@@@@DL* SEQUF X2,HZW )@@G@@1. DL, 'DYNAMIC LINK' @E@@@@SL* SEQUF X2,HZX )@@G@@2,1. SL, 'STATIC LINK'@C@@@@GL* SEQUF X2,H1. ZY )@@G@@ GL: ^X2;@G@@@@LNUM* SEQUF X2,H2,1. LNUM: INZZ )@@G@@TEGER; 'LINE NUMBER' @F@@@@AD* SEQUF X2,H1. ADAA )@@G@@: 'ALLOCATION DATA' @D@@@@FL* SEQUF X2,H2. FLAB )@@G@@: ^FCT; @ @@@@FLWORD* SEQUF X2,,1. @G@@@@RBDI* SEQUF AC )@@G@@ X2,H1. RBDI: HALFWORD; 'RETURN BDI' @G@@@@RA* SEAD )@@G@@QUF X2,H2. RA: HALFWORD; 'RETURN ADDRESS' @H@@@@RL* AE )@@G@@ SEQUF X2,,1. RL: HALFWORD; 'ENTIRE RETURN LINK' AF )@@G@@@G@@@@PBDI* SEQUF X2,H1. PBDI: HALFWORD; 'PROCEDUREAG )@@G@@ BDI' @G@@@@PL* SEQUF X2,H2. PL: ADDRRANGE; 'PROCAH )@@G@@EDURE START'@I@@@@PLINK* SEQUF X2,,1. PLINK: INTEGERAI )@@G@@; 'ENTIRE PROCEDURE LINK' @E@@@@LCAFTER* SRESL 0. AJ )@@G@@ LC AFTER MARK STACK @#@@@@ ENDS. @#@@@@ ASCII. AK )@@G@@@#@@@@ END. ___Y @[@@@@. @A@@@@. FILE FUNCTION AL )@@G@@DEFINITIONS @[@@@@. @^@@@@READ EQU 0. @^@@@@WRITE EQAM )@@G@@*[S@@@*SDFF*@B@@@#. PASCAL START AND STOP ROUTINES @[@@@#. AN )@@G@@@D@@@#. SET UP REGISTERS FOR A NORMAL EXECUTION @[@@@#. AO )@@G@@@#@@@#. START @[@@@#. @ @@@#. CALLED LMJ X10,P$STRTAP )@@G@@@A@@@#. + STLEN,STSTART @ @@@A. + 0,GLAQ )@@G@@OBLEN @[@@@#. @#@@@#$(2) LIT @E@@@^P$STKSTRT* RES 1 AR )@@G@@ . ORIGINAL STACK START@E@@@^P$HPSTRT* RES 1 AS )@@G@@ . ORIGINAL HEAP START @#@@@#$(1) AXR$ @#@@@# P$AT )@@G@@DEFS @[@@@#. @E@@@#P$STRT* SPD A0 . PROCEDURAU )@@G@@E STRT; @C@@@# . BEGIN @E@ @#AV )@@G@@ OR,U A0,0150 . QUARTER WORD, AFCM @E@@@ AW )@@G@@ OR,U A0,0110 . QUARTER WORD, AFCM @^@@@# LPAX )@@G@@D 0,A1@G@@@# L,H2 X1,0,X10 . X1 := GLOBAL AY )@@G@@STORAGE START @D@@@A S X1,P$GLOBAL . GLOBAL AZ )@@G@@:= X1;@E@@@A A,H2 X1,1,X10 . X1 := X1 + GLOBLEN;BA )@@G@@@D@@@# L X2,X1 . X2 := X1; @F@@@A BB )@@G@@ L A0,P$GLOBAL . SET GLOBAL AREA TO ZERO @^@@@A BC )@@G@@ LXI,U A0,1@ @@@A L,U A1,(0) @ @@@A L,BD )@@G@@H2 R1,1,X10 @ @@@A BT A0,0,*A1 @F@@@A LXBE )@@G@@M,U A0,P$ERRCOM . SET ERROR COMMON TO ZERO@A@@@A LRBF )@@G@@,U R1,P$ERCOML @ @@@A BT A0,0,*A1 @A@@@^ BG )@@G@@ S X1,P$STKSTRT @ @B@# L A0,X1 @A@@@BBH )@@G@@ L A0,P$GLOBAL @ @@@# A,H1 A0,0,X10 BI )@@G@@@A@@@^ S A0,P$HPSTRT @F@@@# S A0,PBJ )@@G@@$CHPLIM . CHPLIM := X1 + LENGTH @E@@@# S A0,PBK )@@G@@$STLIM . STLIM := CHPLIM; @D@@@# S X2,P$CSTLIBL )@@G@@M . CSTLIM := X2;@E@@@# S X2,P$HPLIM . HBM )@@G@@PLIM := CSTLIM; @ @@@A SZ P$LIBCAL @ @@@A SZBN )@@G@@ P$CMARK @H@@@# ER OPT$ . GET OPTBO )@@G@@IONS FOR INITIAL SET VALUE @^@@@# SZ A1 @F@@@# BP )@@G@@ DSL A0,19 . JUSTIFY FOR ASCII CHAR SET@ @@@# BQ )@@G@@ SZ LCAFTER,X1@A@@@# DS A0,LCAFTER+1,X1 @E@@@#BR )@@G@@ SZ LCAFTER+3,X1 . SET INTO OPTION SET@ @@@# BS )@@G@@ L,U R15,1 @^@A@# SZ R10 @ @@@A SZBT )@@G@@ P$LNUM @G@@@# L A0,P$CONTIN . (* REGBU )@@G@@ISTER CONTINGENCIES *) @ @@@# ER IALL$ @ @@@^ BV )@@G@@ L,U A0,BDI$ @ @@@^ S A0,P$IBDI @E@A@# BW )@@G@@ J 1,X10 . END (* START *); @E@@@A J BX )@@G@@ 2,X10 . END (* START *); @[@@@#. @[@@@#. BY )@@G@@@#@@@#. STOP @[@@@#. @ @@@#. CALLED LMJ X10,P$STOPBZ )@@G@@@[@@@#. @[@@@#. @[@@@#$(1). @E@@@#P$STOP* CA )@@G@@ . PROCEDURE STOP; @C@@@# CB )@@G@@ . BEGIN @E@@@# ER EXIT$ . END (* STOP *CC )@@G@@) @#@@@# END ___^DL'=@@@JR;@A AFB@@]R;)@@ (@@^WU*4@^[WCD )@@G@@A7)^DIC@@[QK'=@@@JR;)@@X(@@^WUA7)^DI/G@^)4;C@@@M=8@@)@*CB@@]/K@^ZCA#@^)ZCE )@@G@@9!B@@@[[@^DMR;)@@,A<)^DM*[S@@@*SDFF*___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@A@@@@. CH )@@G@@ PASCAL FILE ERROR ROUTINE @[@@@@. @E@@@@. CALLED WHEN ANCI )@@G@@ UNOPENED FILE IS ACCESSED WITH THE @^@@@@. SYNTAX FILE^ @[@@@@CJ )@@G@@. @F@@@@. THIS CAN DO ONLY RUDIMENTARY DIAGNOSIS AT THE MOMECK )@@G@@NT @[@@@@. @ @@@@. CALLED L,U A0,FCT @F@@@@. TNCL )@@G@@Z,H2 0,A0 . CHECK FOR UN-OPENED FILE @A@@@@. LMCM )@@G@@J X10,P$FILERROR @[@@@@. @#@@@@$(1) AXR$ @#@@@@ CN )@@G@@ P$DEFS @^@@@@ CHARFCT A0 @[@@@@. @]@@@@P$FILERROR* CO )@@G@@@A@@@@ S X10,P$LIBCAL @D@@@@ TZ EOFICP )@@G@@ . IF EOF THEN @F@@@@ ERROR REOFERR CQ )@@G@@ . ERROR(READ_END_OF_FILE) @F@@@@ ERROR UNOPENED CR )@@G@@ . ELSE ERROR(UNOPENED); @#@@@@ END ___@@@OR(UNOPENED)CS )@@G@@; @#@@@@ EN*[S@@@*SDFF*@ @@@@BASE P$PROCS PDP,L PROCELT CT )@@G@@@#@@@@BASE BASE ELT,L @ @#@@@@BASE PCF ELT,L @ @^@@@@BASE P$BINF ASM,S CU )@@G@@@ @#@@@@BASE P$ERR ASM,S @@^@@@@BASE P$ERRMSG ASM,S @ @^@@@@BASE PCV )@@G@@$ESDF ASM,S @ @^@@@@BASE P$FILERROR ASM,S @ @^@@@@BASE P$FILES ASM,SCW )@@G@@ @ @^@@@@BASE P$FTNCALL ASM,S @ @^@@@@BASE P$GETB ASM,S @ @^@@@@CX )@@G@@BASE P$GETC ASM,S @ @^@@@@BASE P$GETPB ASM,S @ @^@@@@BASE P$GOTOICY )@@G@@ ASM,S @ @^@@@@BASE P$HALT ASM,S @ @^@@@@BASE P$INPF ASM,S @ CZ )@@G@@@^@@@@BASE P$ISDF ASM,S @ @#@@@@BASE P$NEW ASM,S @@^@@@@BASE P$OPCL DA )@@G@@ASM,S @ @^@@@@BASE P$OUTF ASM,S @ @^@@@@BASE P$PAGE ASM,S @ DB )@@G@@@^@@@@BASE P$PENTRY ASM,S @ @^@@@@BASE P$PUTB ASM,S @ @^@@@@BASE PDC )@@G@@$PUTC ASM,S @ @^@@@@BASE P$PUTPB ASM,S @ @#@@@@BASE P$RDC ASM,S @DD )@@G@@@#@@@@BASE P$RDI ASM,S @@#@@@@BASE P$RDR ASM,S @@#@@@@BASE P$REW ASM,S @DE )@@G@@@#@@@@BASE P$RLN ASM,S @@^@@@@BASE P$SETS ASM,S @ @^@@@@BASE P$SIRF DF )@@G@@ASM,S @ @^@@@@BASE P$SORF ASM,S @ @^@@@@BASE P$STPROC ASM,S @ DG )@@G@@@^@@@@BASE P$STPSIR ASM,S @ @^@@@@BASE P$STRT ASM,S @ @^@@@@BASE PDH )@@G@@$TRNC ASM,S @ @#@@@@BASE P$WRB ASM,S @@#@@@@BASE P$WRC ASM,S @@#@@@@DI )@@G@@BASE P$WRE ASM,S @@#@@@@BASE P$WRF ASM,S @@#@@@@BASE P$WRI ASM,S @@#@@@@DJ )@@G@@BASE P$WRO ASM,S @@#@@@@BASE P$WRS ASM,S @@^@@@@BASE P$WRUTIL ASM,S @ DK )@@G@@@#@@@@BASE TCF ELT,L @ @^@@@@BASE TCFBAS ELT,L @ @G@@@@GROUP PROCELDL )@@G@@T P$BINF P$ERR P$ERRMSG P$ESDF P$FILES P$FTNCALL P$GETB ; @G@@@@ DM )@@G@@ P$GETC P$GETPB P$GOTOI P$HALT P$INPF P$ISDF P$NEW P$OPCL ;@G@@@@DN )@@G@@ P$OUTF P$PAGE P$PENTRY P$PROCS P$PUTB P$PUTC P$PUTPB ; DO )@@G@@@H@@@@ P$RDC P$RDI P$RDR P$REW P$RLN P$SETS P$SIRF P$SORF PDP )@@G@@$STPROC ; @G@@@@ P$STPSIR P$STRT P$TRNC P$WRB P$WRC P$WREDQ )@@G@@ P$WRF P$WRI ; @C@@@@ P$WRO P$WRS P$WRUTIL P$FILERROR DR )@@G@@___@@@AGE P$PENTRY P$PROCS P$PUTB P$PUTC P$PUTPB ; @H@#@@ DS )@@G@@*[S@@@*SDFF*___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^[@@[@[]@@@@^@@@@@@@U,9@@@@@@DU )@@G@@@$O@+EBALL-MS @@@@B-*[S@@@*SDFF*@E@@@[. PASCAL START AND STODV )@@G@@P FOR PROCESSOR CALL USING SIR@[@@@[. @F@@@[. USES PREPRO ANDW )@@G@@D POSTPR TO OPEN AND CLOSE FILES, THEN @E@@@[. TRANSFERS TO TDX )@@G@@HE NORMAL START AND STOP ROUTINES @[@@@[. @E@@@[. IF THEREDY )@@G@@ IS NO SOURCE OUTPUT FILE SPECIFIED, ONE @ @@@[. WILL BE PROVIDDZ )@@G@@ED @[@@@[. @#@@@[$(1) AXR$ @#@@@[ P$DEFS @#@@@[EA )@@G@@ FIELDATA@E@@@[ . PROCEDUREB )@@G@@E STPSIR; @C@@@[$(2) LIT . VAR @H@@@[EC )@@G@@PARTBL* . PARTBL: ARRAY[0..39] OF INTEGEED )@@G@@R; @^@@@[ DO 40 , + 0 @G@@@[FNAME 'SO$ ' EE )@@G@@ . FNAME: STRING INIT 'SO$'; @E@@@[ASGMSG '@ASG,T PAS$FIEF )@@G@@LE0000 . ' . ASGMSG: STRING; @ @@@[ASGMSGL EQU $-ASGMSG EG )@@G@@@E@@@[USEMSG '@USE SO$.,PAS$FILE0000. . ' . USEMSG: STRING; @ @@@[EH )@@G@@USEMSGL EQU $-USEMSG @C@@@[$(1) EI )@@G@@ . BEGIN @[@@@[. @D@ @[P$STPSIR* LMJ X11,PREPRO . EJ )@@G@@PREPRO(ERR);@E@@@ P$STPSIR* LMJ X11,PREPRO$ . PREPRO$(ERR)EK )@@G@@; @F@@@[ J IOERR . IF ERR THEN GO TO EL )@@G@@IOERR;@G@@@[ TZ PARTBL+14 . IF PARTBL[14] NEQEM )@@G@@ 0 THEN @D@]@[ J P$STRT . STRT EN )@@G@@@D@#@] J 0,X10 . STRT @D@@@# EO )@@G@@ J STPELSE . STRT @H@@@[ DL EP )@@G@@ A0,FNAME . ELSE BEGIN PARTBL[14] := FNAME; @A@@@[ EQ )@@G@@ DS A0,PARTBL+14 @^@@@[ L,U A0,3@G@@@[ ER )@@G@@ S,S2 A0,PARTBL+13 . (* SIGN TO FREE FILE *) @B@@@[ES )@@G@@ L A0,(ASGMSGL,ASGMSG) @F@@@[ ER CSF$ET )@@G@@ . CSF(ASGMSG,ASGMSGL); @B@@@[ L A0,(EU )@@G@@USEMSGL,USEMSG) @F@@@[ ER CSF$ . CSF(UEV )@@G@@SEMSG,USEMSGL); @F@#@[ L A0,PARTBL . SET THEW )@@G@@E Q OPTION FOR SIR@F@^@#SEPELSE L A0,PARTBL . SET THEX )@@G@@E Q OPTION FOR SIR@F@@@^STPELSE L A0,PARTBL . SET THEY )@@G@@E Q OPTION FOR SIR@B@@@[ OR A0,(1*/(25-('Q'-'A')))@ @@@[EZ )@@G@@ S A1,PARTBL @C@]@[ J P$STRT FA )@@G@@ . END; @C@@@] J 0,X10 . END; @E@@@[FB )@@G@@ . END(* STPSIR *); @[@@@[. FC )@@G@@@[@@@[. @D@@@[. STOP ROUTINE FOR PROCESSORS WHICH USE SIR FD )@@G@@@[@@@[. @G@@@[. IT CLOSES FILES WITH POSTPR BEFORE DOING THEFE )@@G@@ NORMAL CLOSE @[@@@[. @E@@@[. FF )@@G@@ . PROCEDURE P$STOSIR; @E@@@[P$STOSIR* LMJ X11,POSTPR$ . BFG )@@G@@EGIN POSTOR$(ERR);@F@@@[ J IOERR . IF ERRFH )@@G@@ THEN GO TO IOERR;@C@]@[ J P$STOP . P$STOPFI )@@G@@@C@@@] J 0,X10 . END; @[@@@[. @[@@@[FJ )@@G@@. @G@@@[IOERR ER EABT$ . PREPRO WILL HANDLEFK )@@G@@ THE MESSAGE@[@@@[. @E@@@[ END . EFL )@@G@@ND(*P$STOSIR*); ___^[WA7)^DIC@@[QK'=@@@JR;)@@X(@@^WUA7)^DI/G@^)4;C@@@MFM )@@G@@=8@@)@*CB@@]/K@^ZCA#@^)Z9!B@@@[[@^DMR;)@@,A<)^DM*[S@@@*SDFF*@]@[@@*P$BINFN )@@G@@F @^@[@@-150,150 P$BINF @E@[@@ SZ OPENR FO )@@G@@ . OPENR := FALSE; @G@[@@ SZ BUFPM FP )@@G@@ . BUFP := NIL; (* FOR DIAG *) @^@[@@-206 P$BINF @G@[@@FQ )@@G@@ SZ BUFPM . BUFP := NIL (* FOR DIAG *) FR )@@G@@@^@[@@-232,233 P$BINF @E@[@@ SZ BUFPM FS )@@G@@ . BUFP := NIL; @]@[@@*P$ERRMSG @^@[@@-229,229 P$ERRMSG FT )@@G@@@G@[@@ LOWERS 'ATTE','MPT ','TO D','IVID','E BY',' ZER','O. FU )@@G@@ ' @^@[@@-245,246 P$ERRMSG @F@[@@ LOWERS 'UNNO','RMFV )@@G@@AL','IZED',' MAT','H FU','NCTI'; @B@[@@ ,'ON A','RFW )@@G@@GUM','ENT.' @^@[@@-290 P$ERRMSG @]@[@@BEG(REOFERR)@D@[@@ FX )@@G@@ LOWERS 'ATTE','MPT ','TO R','EAD ','PAST'@ @[@@ FY )@@G@@ ' EOF.' @]@[@@EN(REOFERR) @ @[@@ IM REOFERR @]@[@@FZ )@@G@@BEG(NOTTEXT)@B@[@@ LOWERS 'FILE',' IS ','NOT ' @ @[@@ GA )@@G@@ '''SDF''.'@]@[@@EN(NOTTEXT) @ @[@@ IM NOTTGB )@@G@@EXT @#@[@@BEG(UNOPENED) @G@[@@ LOWERS 'ATTE','MPT ','TGC )@@G@@O A','CCES','S UN','OPEN','ED F',; @ @[@@ 'ILE.' GD )@@G@@@]@[@@EN(UNOPENED)@ @[@@ IM UNOPENED @]@[@@*P$ESDF GE )@@G@@@^@[@@-63,63 P$ESDF @F@[@@ LMJ X11,SDFI$ GF )@@G@@ . SDFI$(IFCT,ERR,EOF); @^@[@@-80 P$ESDF @G@[@@ GG )@@G@@ L A1,CONT . (*CHECK FOR OTHER FILE*) @C@[@@GH )@@G@@ AND A1,(077,077,0,0,077,077) @F@[@@ TNE GI )@@G@@ A2,(050,050,0,0,050,050) . LOOK FOR '**??**' @E@[@@ ERROR GJ )@@G@@ NOTTEXT . IF SO, NOT SDF FILE@^@[@@-83,83 P$ESDF GK )@@G@@@G@[@@ JZ A1,$+5 . SYMBF = NOT((CTYPE=0(GL )@@G@@*MED*)@G@[@@ TNE,U A1,035 . OR (CTYPE=35BGM )@@G@@(*PCIOS*)) @^@[@@ J $+3 @^@[@@-162,162 P$ESDF GN )@@G@@@E@[@@ LMJ X11,SDFIO$ . SDFIO$(IFCT,ERR); @^@[@@GO )@@G@@-189,189 P$ESDF @E@[@@ LMJ X11,SDFIC$ . GP )@@G@@SDFIC$(IFCT); @^@[@@-191 P$ESDF @F@[@@ SZ GQ )@@G@@ CPM . CP := NIL; (* FOR DIAG *)@^@[@@-211,212 P$ESDGR )@@G@@F @F@[@@ SZ CPM . CP := NIL (* FOR DIGS )@@G@@AG *) @]@[@@*P$FTNCALL @^@[@@-21,21 P$FTNCALL @^@[@@-36,36 GT )@@G@@ P$FTNCALL @^@[@@-46 P$FTNCALL @H@[@@ SPD A0 GU )@@G@@ . THE STUPID FORTRAN SYSTEM IGNORES @H@[@@ ORGV )@@G@@,U A0,0110 . OVERFLOW, SO WE MUST RE-ESTABLISH @F@[@@GW )@@G@@ LPD 0,A1 . THE REIGN OF RATIONALITY @]@[@@GX )@@G@@*P$GETB @^@[@@-14,14 P$GETB @F@[@@ J P$RDGY )@@G@@BERROR . READ_BIN_ERROR(A0); @^@[@@-63 P$GETB GZ )@@G@@@[@[@@. @C@[@@. DIAGNOSE THE CAUSE OF A READ ERROR @[@[@@HA )@@G@@. @]@[@@P$RDBERROR* @F@[@@ TNZ OPENW . IHB )@@G@@F OPENW OR NOT EOF THEN @^@[@@ TNZ EOFI@E@[@@ ERHC )@@G@@ROR READNOTOK . ERROR(READNOTOK) @F@[@@ ERROR HD )@@G@@ REOFERR . ELSE ERROR(READ_EOF); @]@[@@*P$GETC @^@[@@HE )@@G@@-14,14 P$GETC @F@[@@ J P$RDCERROR . HF )@@G@@ READ_CHAR_ERROR(A0); @^@[@@-26,26 P$GETC @ @[@@ S HG )@@G@@ A1,CPM @^@[@@-44 P$GETC @^@[@@ SZ HH )@@G@@ A1 @^@[@@-69 P$GETC @[@[@@. @B@[@@. DIAGNOSEHI )@@G@@ A READ CHARACTER ERROR @[@[@@. @H@[@@P$RDCERROR* HJ )@@G@@ . PROCEDURE READ_CHAR_ERROR(A0: ^FCT); @F@[@@ TNZ HK )@@G@@ OPENW . IF OPENW OR NOT EOF THEN @^@[@@ TNZ HL )@@G@@ EOFI@E@[@@ ERROR READNOTOK . ERROR(READNOTOK) HM )@@G@@@F@[@@ ERROR REOFERR . ELSE ERROR(READ_EOF); HN )@@G@@@]@[@@*P$INPF @^@[@@-49,49 P$INPF @F@[@@CLOSER1 SZ HO )@@G@@ OPENR . BEGIN A0^.OPENR := FALSE@G@[@@ SZ HP )@@G@@ CPM . CPM := NIL; (* FOR DIAG *) @]@[@@*P$ISDF HQ )@@G@@@^@[@@-49,49 P$ISDF @F@[@@ LMJ X11,SDFI$ HR )@@G@@ . SDFI$(IFCT,ERR,EOF); @^@[@@-84,84 P$ISDF @E@[@@ HS )@@G@@ LMJ X11,SDFO$ . SDFO$(IFCT,ERR); @^@[@@-112,112 HT )@@G@@ P$ISDF @E@[@@ LMJ X11,SDFIO$ . SDFIO$(IFCT,HU )@@G@@ERR); @^@[@@-141,141 P$ISDF @E@[@@ LMJ X11,SDFOO$HV )@@G@@ . SDFOO$(IFCT); @^@[@@-143,143 P$ISDF @B@[@@ HW )@@G@@ L A1,(050,01,030,0,0,1).@^@[@@-151,151 P$ISDF @E@[@@HX )@@G@@ LMJ X11,SDFO$ . SDFO$(IFCT,ERR); @^@[@@-173,1HY )@@G@@73 P$ISDF @E@[@@ LMJ X11,SDFIC$ . SDFIC$HZ )@@G@@(IFCT); @^@[@@-175 P$ISDF @F@[@@ SZ CPM IA )@@G@@ . CP := NIL; (* FOR DIAG *)@^@[@@-182,183 P$ISDF IB )@@G@@@D@[@@ TG,U A1,WBUF . IF (WP > 0) @ @[@@ IC )@@G@@ J CLTHEN1 @^@[@@-185,185 P$ISDF @E@[@@ TNID )@@G@@E,U A1,CBUF+1 . OR (CP <> 1) THEN@^@[@@-187,187 P$ISDIE )@@G@@F @E@[@@CLTHEN1 S X10,FILEX10 . FILEX10 := X10; IF )@@G@@@^@[@@-195,195 P$ISDF @E@[@@ LMJ X11,SDFOC$ IG )@@G@@ . SDFOC$(IFCT,ERR); @^@[@@-199,199 P$ISDF @E@[@@ SZIH )@@G@@ EOFI . EOFI := FALSE; @F@[@@ SZ II )@@G@@ CPM . CP:= NIL; (* FOR DIAG *) @^@[@@-208 P$ISDIJ )@@G@@F @G@[@@ SZ IFCT . NAME := 0; (*INTERNAIK )@@G@@L FILE*) @^@[@@-214,215 P$ISDF @G@[@@ SZ CPM IL )@@G@@ . CPM := NIL; (* FOR DIAG *) @E@[@@ SZ IM )@@G@@ EOFI . EOFI := FALSE; @[@[@@*P$NEW@#@[@@-21,22 IN )@@G@@ P$NEW@F@[@@ ANU A0,P$HPLIM . IF CHPLIM <= HPLIMIO )@@G@@ THEN @C@[@@ TLE,U A1,1 . MOVFL@F@[@@ IP )@@G@@ J P$MOFLO . 'MEMORY OVERFLOW' @A@[@@ IQ )@@G@@ S A0,P$CHPLIM @F@[@@ SZ 0,A0 IR )@@G@@ . (* SET UP THE KEY *) @#@[@@-24,26 P$NEW@]@[@@*P$OUTF IS )@@G@@@^@[@@-88,90 P$OUTF @D@[@@ TG,U A1,WBUF IT )@@G@@ . IF (WP > 0) @ @[@@ J CLTHEN1 @ @[@@ L IU )@@G@@ A1,CPM @^@[@@-93,93 P$OUTF @E@[@@CLTHEN1 S IV )@@G@@ X10,FILEX10 . FILEX10 := X10; @^@[@@-99 P$OUTF IW )@@G@@@F@[@@ SZ CPM . CP := NIL; (* FOR DIAG *)IX )@@G@@@]@[@@*P$PROCS @^@[@@-92,92 P$PROCS @D@[@@DELFLG* SEQUF IY )@@G@@ R,S4. DELFLG: SIXTH;@^@[@@-371 P$PROCS @[@[@@IZ )@@G@@. @G@[@@. PROC TO GENERATE THE EXTERNAL PROCEDURE CHECK USEDJA )@@G@@ BY PASCAL @ @[@@. EXTERNAL PROCEDURES @[@[@@. @F@[@@. JB )@@G@@ TCALL
,, ,... @[@[@@. JC )@@G@@@A@[@@. ::= 'PROC' ! 'FUNC'@D@[@@. ::= @D@[@@. ::= ! @H@[@@. ::= 'REAL'!'SCALAR'!'POINTER'!'JF )@@G@@POWER'!'ARRAY'!'RECORD'!'FILE'@ @[@@. !'PROC' @ @[@@JG )@@G@@. ::= * @[@[@@. @B@[@@. FOR EXAMPLE, IJH )@@G@@F THE PROCEDURE IS@D@[@@. PROCEDURE PROC(J: INTEGER; VAR R: REALJI )@@G@@); @[@[@@. @#@[@@. CODE: @C@[@@. TCALL 'PROJJ )@@G@@C',2 'SCALAR',*'REAL' @[@[@@. @^@[@@TCALL* PROC 2. @[@[@@JK )@@G@@. @#@[@@T* FUNC. @A@[@@TEMP(0) EQU 0377777777777. JL )@@G@@@A@[@@ DO T(1)='REAL' ,TEMP(0) EQU 0. @A@[@@ DO T(1)='SCALAR' ,TEMJM )@@G@@P(0) EQU 1. @A@[@@ DO T(1)='POINTER' ,TEMP(0) EQU 2. @A@[@@ DO T(1)='POJN )@@G@@WER' ,TEMP(0) EQU 3. @A@[@@ DO T(1)='ARRAY' ,TEMP(0) EQU 4. @A@[@@JO )@@G@@ DO T(1)='RECORD' ,TEMP(0) EQU 5. @A@[@@ DO T(1)='FILE' ,TEMP(0) EJP )@@G@@QU 6. @A@[@@ DO T(1)='PROC' ,TEMP(0) EQU 7. @ @[@@ END JQ )@@G@@ TEMP(0). @[@[@@. @#@[@@TYPCOD* FUNC. @C@[@@TEMP EQU JR )@@G@@ TYPCOD(2)+T(TYPCOD(1))*/1. @B@[@@TEMP1 EQU TEMP*/(4+4*TYPCOJS )@@G@@D(3)).@ @[@@ END TEMP1. @[@[@@. @B@[@@PC EQJT )@@G@@U TCALL(1,1)='PROC'. @C@[@@CHKWD(0) EQU PC+((TCALL(1,2)*JU )@@G@@*017)*/4). @ @[@@ DO 1-PC ,; @C@[@@CHKWD(0) EQU JV )@@G@@ CHKWD(0)+(T(TCALL(1,3))*/1).@A@[@@N(0) EQU TCALL(1,2). JW )@@G@@@ @[@@ DO N(0)>7 ,; @^@[@@N(0) EQU 7. @ @[@@JX )@@G@@I DO N(0) ,; @F@[@@CHKWD(0) EQU CHKWD(0)+TYPCOD(JY )@@G@@TCALL(2,I),TCALL(2,*I),I). @C@[@@SHORT EQU (CHKWD(0)**07777JZ )@@G@@77000000)=0.@ @[@@ L,U R10,1. @ @[@@ DO KA )@@G@@ SHORT , ; @A@[@@ TE,U A0,CHKWD(0). @A@[@@ DOKB )@@G@@ 1-SHORT , ; @A@[@@ TE A0,(CHKWD(0)). @ @[@@KC )@@G@@ ERROR CALLERROR.@#@[@@ END. @^@[@@-467 KD )@@G@@ P$PROCS @^@[@@REOFERR EQU 29. @^@[@@NOTTEXT EQU 30. KE )@@G@@@^@[@@UNOPENED EQU 31. @^@[@@-469,469 P$PROCS @E@[@@ERMAX KF )@@G@@ EQU 31. MAXIMUM ERROR NUMBER@]@[@@*P$PUTC KG )@@G@@@^@[@@-25,25 P$PUTC @A@[@@ L X10,LEV1X10 KH )@@G@@@[@[@@*P$RDC@#@[@@-17,17 P$RDC@F@[@@ J P$RDCERRORKI )@@G@@ . READ_CHAR__ERROR(A0);@[@[@@*P$RDI@#@[@@-26,26 P$RDIKJ )@@G@@@I@[@@ J P$RDCERROR . IF NOT OPENR THEN READ_CKK )@@G@@HAR_ERROR(A0); @[@[@@*P$RDR@#@[@@-4 P$RDR@F@[@@. NOKL )@@G@@TE: THIS HAS BEEN MODIFIED FROM THE PASCAL DEFINITION @C@[@@. TOKM )@@G@@ ACCEPT A LEADING DECIMAL POINT @[@[@@. @[@[@@. @#@[@@-27,27KN )@@G@@ P$RDR@B@[@@ J P$RDCERROR . DO @#@[@@-48,50KO )@@G@@ P$RDR@[@[@@IFEND1@#@[@@-52 P$RDR@G@[@@ TNE,U KP )@@G@@ A2,'.' . IF CBUF[CP] <> '.' THEN BEGIN @ @[@@ J KQ )@@G@@ IFEND11 @F@[@@ TG,U A2,'0' . IF (CBKR )@@G@@UF[CP] < '0') OR @F@[@@ TG,U A2,'9'+1 . (CBUF[KS )@@G@@CP] > '9') THEN @E@[@@ ERROR READFORM . ERROR KT )@@G@@(READFORM) @#@[@@-68,68 P$RDR@[@[@@REPEX1@C@[@@IFEND11 KU )@@G@@ . END; @F@[@@ TE,U A2,'.' KV )@@G@@ . IF CBUF[CP] = '.' THEN @[@[@@*P$RLN@#@[@@-16,16 P$RLN@F@[@@KW )@@G@@ J P$RDCERROR . BEGIN WITH A0^ DO BEGIN @]@[@@KX )@@G@@*P$SIRF @^@[@@-102,105 P$SIRF @ @[@@ L,U A1,WKY )@@G@@BUF @A@[@@ LXI,U A1,RLINELEN @E@[@@ S KZ )@@G@@ A1,FILEX10 . SAVEAD := WBUF;@[@[@@CRL1 @H@[@@ L LA )@@G@@ A0,A6 . (*RECOVER A0 FROM WHENCE IT WENT*) @G@[@@LB )@@G@@ L A0,FILEX10 . WHILE NOT EOF DO BEGIN LC )@@G@@@^@[@@-113 P$SIRF @F@[@@ SZ CPM LD )@@G@@ . CP := NIL; (* FOR DIAG *)@^@[@@-128 P$SIRF @F@[@@ LE )@@G@@ SZ CPM . CP := NIL; (* FOR DIAG *)@]@[@@*P$SORLF )@@G@@F @^@[@@-65,65 P$SORF @F@[@@ LMJ X11,SORASCLG )@@G@@$ . SORASC$(WBUF,WP,ERR); @^@[@@-80,80 P$SORF @G@[@@LH )@@G@@ LMJ X11,SSOR$ . SSOR$(ERR); (* START SOR *) LI )@@G@@@^@[@@-99,100 P$SORF @D@[@@ TG,U A1,WBUF LJ )@@G@@ . IF (WP > 0) @ @[@@ J CLTHEN1 @^@[@@-104,104 LK )@@G@@ P$SORF @E@[@@CLTHEN1 S X10,FILEX10 . FILEX10 := XLL )@@G@@10; @^@[@@-111,111 P$SORF @D@[@@ LMJ X11,ESOR$ LM )@@G@@ . ESOR$(ERR) @^@[@@-115 P$SORF @F@[@@ SZLN )@@G@@ CPM . CP := NIL; (* FOR DIAG *)@^@[@@-121,124 LO )@@G@@ P$SORF @F@[@@ SZ CPM . BEGIN WITH A0LP )@@G@@^ DO BEGIN @G@[@@ SONE CPI . CP := NIL; (LQ )@@G@@* FOR DIAG *) @ @[@@ L,U A1,CBUF+4 @]@[@@*P$STPSIR LR )@@G@@@^@[@@-37,37 P$STPSIR @C@[@@ AND A1,(-(1*/(25-('PLS )@@G@@'-'A')))) @ @[@@ S A2,PARTBL @]@[@@*P$TRNC @^@[@@LT )@@G@@-36 P$TRNC @C@[@@ A,U A0,0 . FLU )@@G@@IX -0 @]@[@@*TCFBAS @^@[@@-1,265 TCFBAS @]@@@[*P$INPF LV )@@G@@@^@@@[-49,49 P$INPF @F@@@[CLOSER1 SZ OPENR LW )@@G@@ . BEGIN A0^.OPENR := FALSE@G@@@[ SZ CPM LX )@@G@@ . CPM := NIL; (* FOR DIAG *) @]@@@[*P$OUTF @^@@@[-88,90 LY )@@G@@ P$OUTF @D@@@[ TG,U A1,WBUF . IF (WP > 0) LZ )@@G@@@ @@@[ J CLTHEN1 @ @@@[ L A1,CPM MA )@@G@@@^@@@[-93,93 P$OUTF @E@@@[CLTHEN1 S X10,FILEX10 MB )@@G@@ . FILEX10 := X10; @^@@@[-99 P$OUTF @F@@@[ SZMC )@@G@@ CPM . CP := NIL; (* FOR DIAG *)@]@@@[*P$SORF MD )@@G@@@^@@@[-65,65 P$SORF @F@@@[ LMJ X11,SORASC$ ME )@@G@@ . SORASC$(WBUF,WP,ERR); @^@@@[-80,80 P$SORF @G@@@[ MF )@@G@@ LMJ X11,SSOR$ . SSOR$(ERR); (* START SOR *) @^@@@[MG )@@G@@-99,100 P$SORF @D@@@[ TG,U A1,WBUF . IMH )@@G@@F (WP > 0) @ @@@[ J CLTHEN1 @^@@@[-104,104 P$SORMI )@@G@@F @E@@@[CLTHEN1 S X10,FILEX10 . FILEX10 := X10; MJ )@@G@@@^@@@[-111,111 P$SORF @D@@@[ LMJ X11,ESOR$ MK )@@G@@ . ESOR$(ERR) @^@@@[-115 P$SORF @F@@@[ SZ ML )@@G@@ CPM . CP := NIL; (* FOR DIAG *)@^@@@[-121,124 P$SORMM )@@G@@F @F@@@[ SZ CPM . BEGIN WITH A0^ DO BMN )@@G@@EGIN @G@@@[ SONE CPI . CP := NIL; (* FOR MO )@@G@@DIAG *) @ @@@[ L,U A1,CBUF+4 @[@@@[*P$RDI@#@@@[-26,26MP )@@G@@ P$RDI@I@@@[ J P$RDCERROR . IF NOT OPENRMQ )@@G@@ THEN READ_CHAR_ERROR(A0); @[@@@[*P$RDR@#@@@[-4 P$RDR@F@@@[MR )@@G@@. NOTE: THIS HAS BEEN MODIFIED FROM THE PASCAL DEFINITION @C@@@[MS )@@G@@. TO ACCEPT A LEADING DECIMAL POINT @[@@@[. @[@@@[. MT )@@G@@@#@@@[-27,27 P$RDR@B@@@[ J P$RDCERROR . DO MU )@@G@@@#@@@[-48,50 P$RDR@[@@@[IFEND1@#@@@[-52 P$RDR@G@@@[ MV )@@G@@ TNE,U A2,'.' . IF CBUF[CP] <> '.' THEN BEGIN @ @@@[MW )@@G@@ J IFEND11 @F@@@[ TG,U A2,'0' MX )@@G@@ . IF (CBUF[CP] < '0') OR @F@@@[ TG,U A2,'9'+1 MY )@@G@@ . (CBUF[CP] > '9') THEN @E@@@[ ERROR READFORM MZ )@@G@@ . ERROR (READFORM) @#@@@[-68,68 P$RDR@[@@@[REPEX1@C@@@[IFEND1NA )@@G@@1 . END; @F@@@[ TE,U A2,'NB )@@G@@.' . IF CBUF[CP] = '.' THEN @]@@@[*P$TRNC @^@@@[-36 NC )@@G@@ P$TRNC @C@@@[ A,U A0,0 . FIX -0 ND )@@G@@@]@@@[*P$GETC @^@@@[-14,14 P$GETC @F@@@[ J NE )@@G@@ P$RDCERROR . READ_CHAR_ERROR(A0); @^@@@[-26,26 P$GETNF )@@G@@C @ @@@[ S A1,CPM @^@@@[-44 P$GETC NG )@@G@@@^@@@[ SZ A1 @^@@@[-69 P$GETC @[@@@[. NH )@@G@@@B@@@[. DIAGNOSE A READ CHARACTER ERROR @[@@@[. @H@@@[P$RDCENI )@@G@@RROR* . PROCEDURE READ_CHAR_ERROR(A0: ^FCT); NJ )@@G@@@F@@@[ TNZ OPENW . IF OPENW OR NOT EOF THEN NK )@@G@@@^@@@[ TNZ EOFI@E@@@[ ERROR READNOTOK NL )@@G@@ . ERROR(READNOTOK) @F@@@[ ERROR REOFERR . ENM )@@G@@LSE ERROR(READ_EOF); @[@@@[*P$NEW@#@@@[-21,22 P$NEW@F@@@[ NN )@@G@@ ANU A0,P$HPLIM . IF CHPLIM <= HPLIM THEN @C@@@[ NO )@@G@@ TLE,U A1,1 . MOVFL@F@@@[ J P$MONP )@@G@@FLO . 'MEMORY OVERFLOW' @A@@@[ S A0,PNQ )@@G@@$CHPLIM @F@@@[ SZ 0,A0 . (* SET UP THNR )@@G@@E KEY *) @#@@@[-24,26 P$NEW@]@@@[*P$PUTC @^@@@[-25,25 NS )@@G@@ P$PUTC @A@@@[ L X10,LEV1X10 @[@@@[*P$RLN@#@@@[NT )@@G@@-16,16 P$RLN@F@@@[ J P$RDCERROR . BEGIN WNU )@@G@@ITH A0^ DO BEGIN @]@@@[*P$FTNCALL @^@@@[-21,21 P$FTNCALL @^@@@[NV )@@G@@-36,36 P$FTNCALL @^@@@[-46 P$FTNCALL @H@@@[ SPNW )@@G@@D A0 . THE STUPID FORTRAN SYSTEM IGNORES @H@@@[NX )@@G@@ OR,U A0,0110 . OVERFLOW, SO WE MUST RE-ESTABLISNY )@@G@@H @F@@@[ LPD 0,A1 . THE REIGN OF RATIONANZ )@@G@@LITY @]@@@[*P$ERRMSG @^@@@[-229,229 P$ERRMSG @G@@@[ LOOA )@@G@@WERS 'ATTE','MPT ','TO D','IVID','E BY',' ZER','O. ' @^@@@[-245,2OB )@@G@@46 P$ERRMSG @F@@@[ LOWERS 'UNNO','RMAL','IZED',' MAT',OC )@@G@@'H FU','NCTI'; @B@@@[ ,'ON A','RGUM','ENT.' @^@@@[OD )@@G@@-290 P$ERRMSG @]@@@[BEG(REOFERR)@D@@@[ LOWERS 'ATTOE )@@G@@E','MPT ','TO R','EAD ','PAST'@ @@@[ ' EOF.' @]@@@[OF )@@G@@EN(REOFERR) @ @@@[ IM REOFERR @]@@@[BEG(NOTTEXT)@B@@@[OG )@@G@@ LOWERS 'FILE',' IS ','NOT ' @ @@@[ '''SOH )@@G@@DF''.'@]@@@[EN(NOTTEXT) @ @@@[ IM NOTTEXT @#@@@[BEG(UNOI )@@G@@OPENED) @G@@@[ LOWERS 'ATTE','MPT ','TO A','CCES','S UN'OJ )@@G@@,'OPEN','ED F',; @ @@@[ 'ILE.' @]@@@[EN(UNOPENED)OK )@@G@@@ @@@[ IM UNOPENED @[@@@[*P$RDC@#@@@[-17,17 P$RDCOL )@@G@@@F@@@[ J P$RDCERROR . READ_CHAR__ERROR(A0);OM )@@G@@@]@@@[*P$SIRF @^@@@[-102,105 P$SIRF @ @@@[ L,U ON )@@G@@ A1,WBUF @A@@@[ LXI,U A1,RLINELEN @E@@@[ S OO )@@G@@ A1,FILEX10 . SAVEAD := WBUF;@[@@@[CRL1 @H@@@[ OP )@@G@@ L A0,A6 . (*RECOVER A0 FROM WHENCE IT WENT*) OQ )@@G@@@G@@@[ L A0,FILEX10 . WHILE NOT EOF DO BEGIOR )@@G@@N @^@@@[-113 P$SIRF @F@@@[ SZ CPM OS )@@G@@ . CP := NIL; (* FOR DIAG *)@^@@@[-128 P$SIRF @F@@@[OT )@@G@@ SZ CPM . CP := NIL; (* FOR DIAG *)@]@@@[OU )@@G@@*P$ISDF @^@@@[-49,49 P$ISDF @F@@@[ LMJ X11,OV )@@G@@SDFI$ . SDFI$(IFCT,ERR,EOF); @^@@@[-84,84 P$ISDF OW )@@G@@@E@@@[ LMJ X11,SDFO$ . SDFO$(IFCT,ERR); @^@@@[OX )@@G@@-112,112 P$ISDF @E@@@[ LMJ X11,SDFIO$ . OY )@@G@@SDFIO$(IFCT,ERR); @^@@@[-141,141 P$ISDF @E@@@[ LMJ OZ )@@G@@ X11,SDFOO$ . SDFOO$(IFCT); @^@@@[-143,143 P$ISDF PA )@@G@@@B@@@[ L A1,(050,01,030,0,0,1).@^@@@[-151,151 P$ISDPB )@@G@@F @E@@@[ LMJ X11,SDFO$ . SDFO$(IFCT,ERR); PC )@@G@@@^@@@[-173,173 P$ISDF @E@@@[ LMJ X11,SDFIC$ PD )@@G@@ . SDFIC$(IFCT); @^@@@[-175 P$ISDF @F@@@[ SZPE )@@G@@ CPM . CP := NIL; (* FOR DIAG *)@^@@@[-182,183 PF )@@G@@ P$ISDF @D@@@[ TG,U A1,WBUF . IF (WP > 0) PG )@@G@@@ @@@[ J CLTHEN1 @^@@@[-185,185 P$ISDF @E@@@[PH )@@G@@ TNE,U A1,CBUF+1 . OR (CP <> 1) THEN@^@@@[-187,1PI )@@G@@87 P$ISDF @E@@@[CLTHEN1 S X10,FILEX10 . FILEXPJ )@@G@@10 := X10; @^@@@[-195,195 P$ISDF @E@@@[ LMJ X11,PK )@@G@@SDFOC$ . SDFOC$(IFCT,ERR); @^@@@[-199,199 P$ISDF @E@@@[PL )@@G@@ SZ EOFI . EOFI := FALSE; @F@@@[ PM )@@G@@ SZ CPM . CP:= NIL; (* FOR DIAG *) @^@@@[-208 PN )@@G@@ P$ISDF @G@@@[ SZ IFCT . NAME := PO )@@G@@0; (*INTERNAL FILE*) @^@@@[-214,215 P$ISDF @G@@@[ SZPP )@@G@@ CPM . CPM := NIL; (* FOR DIAG *) @E@@@[ PQ )@@G@@ SZ EOFI . EOFI := FALSE; @]@@@[*P$BINF PR )@@G@@@^@@@[-150,150 P$BINF @E@@@[ SZ OPENR PS )@@G@@ . OPENR := FALSE; @G@@@[ SZ BUFPM . PT )@@G@@ BUFP := NIL; (* FOR DIAG *) @^@@@[-206 P$BINF @G@@@[ PU )@@G@@ SZ BUFPM . BUFP := NIL (* FOR DIAG *) @^@@@[PV )@@G@@-232,233 P$BINF @E@@@[ SZ BUFPM . PW )@@G@@ BUFP := NIL; @]@@@[*P$ESDF @^@@@[-63,63 P$ESDF @F@@@[PX )@@G@@ LMJ X11,SDFI$ . SDFI$(IFCT,ERR,EOF); @^@@@[PY )@@G@@-80 P$ESDF @G@@@[ L A1,CONT . PZ )@@G@@ (*CHECK FOR OTHER FILE*) @C@@@[ AND A1,(077,077,0,0,QA )@@G@@077,077) @F@@@[ TNE A2,(050,050,0,0,050,050) . LOOK FQB )@@G@@OR '**??**' @E@@@[ ERROR NOTTEXT . IF SO, NOT SDQC )@@G@@F FILE@^@@@[-83,83 P$ESDF @G@@@[ JZ A1,$+5 QD )@@G@@ . SYMBF = NOT((CTYPE=0(*MED*)@G@@@[ TNE,U A1,0QE )@@G@@35 . OR (CTYPE=35B(*PCIOS*)) @^@@@[ J QF )@@G@@ $+3 @^@@@[-162,162 P$ESDF @E@@@[ LMJ X11,SDFIO$QG )@@G@@ . SDFIO$(IFCT,ERR); @^@@@[-189,189 P$ESDF @E@@@[ QH )@@G@@ LMJ X11,SDFIC$ . SDFIC$(IFCT); @^@@@[-191 QI )@@G@@ P$ESDF @F@@@[ SZ CPM . CP := NIL; (*QJ )@@G@@ FOR DIAG *)@^@@@[-211,212 P$ESDF @F@@@[ SZ CPM QK )@@G@@ . CP := NIL (* FOR DIAG *) @]@@@[*P$GETB @^@@@[-14,14QL )@@G@@ P$GETB @F@@@[ J P$RDBERROR . READ_BQM )@@G@@IN_ERROR(A0); @^@@@[-63 P$GETB @[@@@[. @C@@@[. QN )@@G@@ DIAGNOSE THE CAUSE OF A READ ERROR @[@@@[. @]@@@[P$RDBERROR* QO )@@G@@@F@@@[ TNZ OPENW . IF OPENW OR NOT EOF THEN QP )@@G@@@^@@@[ TNZ EOFI@E@@@[ ERROR READNOTOK QQ )@@G@@ . ERROR(READNOTOK) @F@@@[ ERROR REOFERR . EQR )@@G@@LSE ERROR(READ_EOF); @]@@@[*P$PROCS @^@@@[-92,92 P$PROCS QS )@@G@@@D@@@[DELFLG* SEQUF R,S4. DELFLG: SIXTH;@^@@@[-371 QT )@@G@@ P$PROCS @[@@@[. @G@@@[. PROC TO GENERATE THE EXTERQU )@@G@@NAL PROCEDURE CHECK USED BY PASCAL @ @@@[. EXTERNAL PROCEDURES QV )@@G@@@[@@@[. @F@@@[. TCALL ,, ,... @[@@@[. @A@@@[. ::= 'PROC' ! 'FUNC'@D@@@[QX )@@G@@. ::= @D@@@[. ::= ! @H@@@[. ::= 'REQZ )@@G@@AL'!'SCALAR'!'POINTER'!'POWER'!'ARRAY'!'RECORD'!'FILE'@ @@@[. RA )@@G@@ !'PROC' @ @@@[. ::= * @[@@@[. @B@@@[RB )@@G@@. FOR EXAMPLE, IF THE PROCEDURE IS@D@@@[. PROCEDURE PROCRC )@@G@@(J: INTEGER; VAR R: REAL); @[@@@[. @#@@@[. CODE: @C@@@[RD )@@G@@. TCALL 'PROC',2 'SCALAR',*'REAL' @[@@@[. @^@@@[TCALL*RE )@@G@@ PROC 2. @[@@@[. @#@@@[T* FUNC. @A@@@[TEMP(0) EQRF )@@G@@U 0377777777777. @A@@@[ DO T(1)='REAL' ,TEMP(0) EQU 0. @A@@@[RG )@@G@@ DO T(1)='SCALAR' ,TEMP(0) EQU 1. @A@@@[ DO T(1)='POINTER' ,TEMP(0) ERH )@@G@@QU 2. @A@@@[ DO T(1)='POWER' ,TEMP(0) EQU 3. @A@@@[ DO T(1)='ARRAY' RI )@@G@@ ,TEMP(0) EQU 4. @A@@@[ DO T(1)='RECORD' ,TEMP(0) EQU 5. @A@@@[ DO T(RJ )@@G@@1)='FILE' ,TEMP(0) EQU 6. @A@@@[ DO T(1)='PROC' ,TEMP(0) EQU 7. RK )@@G@@@ @@@[ END TEMP(0). @[@@@[. @#@@@[TYPCOD* FUNC. RL )@@G@@@C@@@[TEMP EQU TYPCOD(2)+T(TYPCOD(1))*/1. @B@@@[TEMP1 EQRM )@@G@@U TEMP*/(4+4*TYPCOD(3)).@ @@@[ END TEMP1. @[@@@[RN )@@G@@. @B@@@[PC EQU TCALL(1,1)='PROC'. @C@@@[CHKWD(0) EQRO )@@G@@U PC+((TCALL(1,2)**017)*/4). @ @@@[ DO 1-PC ,; RP )@@G@@@C@@@[CHKWD(0) EQU CHKWD(0)+(T(TCALL(1,3))*/1).@A@@@[N(0) EQRQ )@@G@@U TCALL(1,2). @ @@@[ DO N(0)>7 ,; @^@@@[N(0) RR )@@G@@ EQU 7. @ @@@[I DO N(0) ,; @F@@@[CHKWD(0) EQRS )@@G@@U CHKWD(0)+TYPCOD(TCALL(2,I),TCALL(2,*I),I). @C@@@[SHORT EQRT )@@G@@U (CHKWD(0)**0777777000000)=0.@ @@@[ L,U R10,1. RU )@@G@@@ @@@[ DO SHORT , ; @A@@@[ TE,U A0,CHKWD(0RV )@@G@@). @A@@@[ DO 1-SHORT , ; @A@@@[ TE RW )@@G@@ A0,(CHKWD(0)). @ @@@[ ERROR CALLERROR.@#@@@[ ENRX )@@G@@D. @^@@@[-467 P$PROCS @^@@@[REOFERR EQU 29. @^@@@[RY )@@G@@NOTTEXT EQU 30. @^@@@[UNOPENED EQU 31. @^@@@[-469,469 RZ )@@G@@ P$PROCS @E@@@[ERMAX EQU 31. MAXIMUM ERROR SA )@@G@@NUMBER@]@@@[*P$STPSIR @^@@@[-37,37 P$STPSIR @C@@@[ ANSB )@@G@@D A1,(-(1*/(25-('P'-'A')))) @ @@@[ S A2,PARTBL SC )@@G@@___ TG,U A1,WBUF . IF (WP > 0) @ @@@[ J SD )@@G@@ CLTHEN1 @^@@@[-185,185 P$ISDF @E@@@[)@@[N@K^[@K^[@K^@@0@G@@ASE )@@G@@/K@@#[/K@@]./K@@]'^@@#^]K@@=^]@@@N]K@@=UF )@@G@@N]@@@UG )@@G@@9?W@@@P;@@@^R#@@[='=@@@@N#0@@%AW@@@@) 7@G@) '[^^ [KL]@[[@@@@R\@@ ''=@@@@UH )@@G@@R;@@@@A#@@@.RB@@ '9*@@ 8@@@@@@@@@@@@@@@@@@AX@@@@)A][OKL[^^KL[@@@@@/K@@A5UI )@@G@@:8@@@]/K@@AO:8@@@E/K@@A3:8@@@C/K@@AM:8@@@ /K@@AK:8@@@#AY@@@@)AG[P[KO [KOUJ )@@G@@ [KO^@:8@@@^R7@@ '')@@]:9?@@ 8')@@]!9?@@ 8')@@]39?@@ 89*@@@"9?@@ 'AZ@@@@UK )@@G@@)AQ[P[^ [KL[[[@@@@/K@@A+%8@@@]R#@@[#/K@@AG%8@@@[R3@@ '/K@@AG/K@@A%:8@@@]UL )@@G@@/K@@AUBA@@@@)A)[P[KL[KO^KO [@@')@@]29?@@ 8/K@@AG%8@@@A')@@]19?@@ 8/K@@A&UM )@@G@@%8@@@^')@@]09?@@ 8BB@@@@)A%[P[^ [KL[KO [@@9?@@ 8')@@],9?@@ 8/K@@AG%8@@@-UN )@@G@@')@@]\9?@@ 8/K@@A\%8@@@+R3@@ 'BC@@@@)A4[P[KKKO [KK@@@@R#G@@@P;@@@[RB@@ 'UO )@@G@@/K@@B[:@K@B +@@@B^R#G@@@P;@@@]RB@@ '')@@]7BD@@@@)A"[ [KO [KO^@@@@@@@@@@@UP )@@G@@@@@@@@%C@@@@_/@___/K@@ \')@@]89?@@ 8/K@@AG%@K@B +@@@B^BE@@@@@@@@@@ONTS UQ )@@G@@@ @@@@ ERROR PTRERROR @#@@@@ END ___ J UR )@@G@@@@^@@#@@B@@^@@J@@J@[F@@@@@@@@@@@@@@@@@@@BAIALL$ P$CLFILES P$ERRMUS )@@G@@SG EABT$ P$ERRCOM @@]@@@@@@@@@P$REGS @@]@@@@@@@@@P$CMSAUT )@@G@@VE @@]@@@@@@@@0P$GLSAVE @@]@@@@@@@@1P$DLSAVE @@]@@@@@@@@2P$LNSAUU )@@G@@VE @@]@@@@@@@@3P$HPSAVE @@]@@@@@@@@4P$STSAVE @@]@@@@@@@@5P$GPSAUV )@@G@@VE @@]@@@@@@@@6P$LASAVE @@]@@@@@@@@7P$FTNFLG @@]@@@@@@@@8P$ERCOUW )@@G@@ML @C@@@@@@@@]XP$ERR @@]@@@@@@@]XP$CONTIN @@]@@@@@@@ 6P$IBDIUX )@@G@@ @@]@@@@@@@ 7@@@@@@'^@@#.@@@@@@'^@@#.@@@@@@'^@@#.@@@@@@'^@@#.AF@@@@UY )@@G@@)@@[M[@^@^C@O@@@@@/K@@@^/,)@@@ABM@@#RFW@@]/@@@@ERB]@@#/K@@@G(@@@@]R@*@@0UZ )@@G@@C[@@@EAA@@@@)@E[UK@@K@@@R#C@@9'=@@]]R;C@@"/K@@@P%8@@@QR#C@@9C])@@E/KE@@@VA )@@G@@R])@@K/K@@@]RC+@@[AB@@@@)@P[MK@K^ [K^C@=@@/K@@@+'=@@@@/G@@@ZO#@@^#R#G@@IVB )@@G@@/K@@@VQ;C@[]R#C@[[/K@@@U%8@@@@AC@@@@)@Z[M^C@1@^@@@@@@@R@*@@0R]K@@GR#C@@'VC )@@G@@/^@@@$R#C@@./^@@@$R#C@@/'=@@@@;C@@@[;*@@@[AD@@@@)@([M[[EK@CK]@OK@@R;)@@LVD )@@G@@R;K@@@ABM@@#RFW@@]/,)@@@R;0@@@9?K@^^R;C@[*N]*@@3R@S@@1AE@@@@)@3[MK) @K]+VE )@@G@@]^@*@@/,)@@@R#0@@IR;)@@ R;K@@ /K@@[H(@@@[E @@@[E(@@@@]/,)@@@R#0@@IAF@@@@VF )@@G@@)@.[M^C[++]^@*@@@@/,*@[R;C@[*AH@@@@)[L[M[]@WK@@@@@@@@RC+@@[RCM@@]NA+@@]RAM@@^/K@@[=VI )@@G@@(@@@@]/,)@@@R;)@@AP;K@@[R#K@@DAI@@@@)[V[MK[]@)*)-@E)@@R;C@[*/K@@@7/,)@@@VJ )@@G@@R#0@@IR;)@@GR;K@@F/,)@@@R;C@[*/K@@[=(@@@@]AJ@@@@)[>@<]@-]@)@)@@@?@@@@@@@VK )@@G@@^@)^@)G))GD4GT5IL>IK)H9AL@@@@VM )@@G@@)@J@/02+STLGG*&AON#ED->^02+@@@@@@@@@@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&VN )@@G@@@[+@[&AM@@@@)@Q@/02+STLGG*&AON#ED->^02+@@@@@@@@@@[+@[&@[+@[&@[+@[&@[+@[&VO )@@G@@@[+@[&@[+@[&@[+@[&AN@@@@)@X@/02+STLGG*&AON#ED->^02+@@@@@@@@@@[+@[&@[+@[&VP )@@G@@@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&AO@@@@)@=@/02+STLGG*&AON#ED->^02+@@@@@@@@@VQ )@@G@@@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&AP@@@@)@:[O02+STLGG*)@@@IK)IL>VR )@@G@@H0)G1\^[\I[>^[,H94G1(H->^[\H0)EL>GD=@[+@[&@[+@[&@[+@[&AQ@@@@)@5@G@)@J@G*VS )@@G@@)@@@@@)@6@4@@@@@@@G(,^[&I))H90G*)H1\^[&HD?G*)H9,E92HD4@@C@@,GD= 0)AR@@@@VT )@@G@@)@/@W@)@K@G*)@@@@@)@_@=@@@@@@@H(-I))^[&H92H90G(2DD!I[2@@D@@6 0)^@)IL(I->VU )@@G@@H92^[7AS@@@@)[#@W@)@L@G*)@@@@@)[A@=@@@@@@@H9,G8)H9\^[?IL=^[4EL>GT\@@B@@_VV )@@G@@ 0)^@)IL>GD=G1\IK)AT@@@@)[E@W@)@N@G*)@@@@@)[H@=@@@@@@@G*)HC\IL-GL?GT\I1>VW )@@G@@E(,IL>@@B@[A 0)^@)IL>GD=G1\IK)AU@@@@)[L@O@)@O@G*)@@@@@)[N@?@@@@@@@GL5I))VX )@@G@@I->G))I->H(0I))GD4EL>IT>@@A@[HIL\IK,H8)G(2AV@@@@)[S@O@)@P@G*)@@@@@)[U@?@VY )@@G@@@@@@@@G))GL5H(0I->GD4I->HD4G*)EL>I92@@B@[NH9: 0)H1\I))AW@@@@)[Z@W@)@Q@G*VZ )@@G@@)@@@@@)[+@=@@@@@@@H92 0)^[>IL2IL,GD?DD,I->@@C@[U 0)^@)I))H9:I))H1\AX@@@@WA )@@G@@)@R@G*)@@@@@)[&[^@@@@@@@H-5G*,IS)I1-^[4H[(^[&H92HD=G(=I[2H96GD3G*)D1\^[ 0)^[2GD,I))H9&I))H95WC )@@G@@GT2HD0ET5GL3@@C@[&AZ@@@@)@T@G*)@@@@@)[4@/@@@@@@@@@@@@@H1$G*,G0)IL-I(4^[\WD )@@G@@I(>^[\^[6GD?G9,G(=CD3IT(@@A@[,BA@@@@)@U@G*)@@@@@)[;@/@@@@@@@@@@@@@ 0)^@)WE )@@G@@G(=G(=G(8GT>HD4JC)GD0GDH(\@@B@[4BB@@@@)@V@G*)@@@@@)]]@/@@@@@@@WF )@@G@@@@@@@@H8,^@)^['G(2G*)GL9HD6HD=I-\^[=H(0I))CD4I->@@B@[;BC@@@@)@W@G*)@@@@@WG )@@G@@)]D@4@@@@@@@@@@@@@@@@@@@G*,^@)H--IL$I-\H8)GL>IK)^[,I(!EL>GD?@@B@]]BD@@@@WH )@@G@@)@Y@G*)@@@@@)]J@4@@@@@@@@@@@@@@@@@@@G(= 0)GT>G(=IS)G(8I[-G9>H(5H*)D(-J[(WI )@@G@@@@A@]DBE@@@@)@Z@G*)@@@@@)]P@4@@@@@@@@@@@@@@@@@@@G(= 0)GT>G(=IS)G(8GT-IL=WJ )@@G@@H(5H*)D(-J[(@@A@]JBF@@@@)@)@G*)@@@@@)]V[^@@@@@@@IL$I(!H9,^[-H1H0)GD2GT4HD\^[&I(,D(-I-*@@D@]VG(,I),BH@@@@)]%@W@)@+@G*)@@@@@)]!@=@WM )@@G@@@@@@@@H0)I1-GT4HD\^[&I(,D(-I-*@@D@]=H1$G*,G0)IL-I(4^[\BI@@@@)]1@=@@@@@@@WN )@@G@@)@<@G*)@@@@@)]5@W@G))H(>H-5GT(E-*G*)@@C@]!G*,^@)H--IL$I-\H8)H-5G*)BJ@@@@WO )@@G@@)]8[G@@@@@@@@@@@@@@@@@@@DC,^@)^[QDDDC(SC(#^[\G0)I->IT9GT\I(2H96G*)G*)GD+WP )@@G@@IT3GD$BK@@@@)@=@G*)@@@@@)#[[^@@@@@@@I->G9>IK)HD,G*)G1\H--IL$I-\H8)GL>IK)WQ )@@G@@^[,I(!EL>GD?@@G@]5BL@@@@)#D@=@@@@@@@)@>@G*)@@@@@)#H@W@G(8I[2G(,I))C(?G(!WR )@@G@@@@G@#[ 0)^@)IT(H9,H16G(2IK)GT\BM@@@@)#K@?@@@@@@@)@&@G*)@@@@@)#P@O@GT>^[?WS )@@G@@ET\I(2@@C@#HH1$G*,G0)IL-I(4^[\H9,^[\G(3IT(BN@@@@)#R@=@@@@@@@)@$@G*)@@@@@WT )@@G@@)#V@W@I-(GD4^[(H1(E(3G(2@@A@#PIK,^@)G(2IL\GD$G*)GD,G95BO@@@@)#Y@=@@@@@@@WU )@@G@@)@*@G*)@@@@@)#+@W@I[\HD,H-(G))DD,I1-@@B@#V 0)^@)IL5I[4H14G(2G(=^[(BP@@@@WV )@@G@@)#>@=@@@@@@@)@(@G*)@@@@@)#(@W@^[0IL\H90G(2DD!I[2@@B@#+G*,^@)IL>H1G1>WW )@@G@@I->IK)BQ@@@@)#?@W@)@%@G*)@@@@@)#\@=@@@@@@@G(-G))I-\^[2H(0I))CD4I->@@A@#(WX )@@G@@GD?H),IL>^[G-5BR@@@@)#3@W@)@:@G*)@@@@@)#6@=@@@@@@@^9NC-AH1\I))^[(IS)WY )@@G@@C1(H->@@B@#\ 0)^@)^[ D9AI[-IT4BS@@@@)#'@G@)@?@G*)@@@@@)#;@4@@@@@@@H90G(,WZ )@@G@@IS)I(,GT@@ @#6^8,^@)BT@@@@)^[@O@)@!@G*)@@@@@)^#@W@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@C@#;HD?G*,G(=^[&BU@@@@@@@@@@2+STLGXB )@@G@@G*&AON#ED->^02+@@@@@@@@@@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&@[+@[&AP@@@@XC )@@G@@@@^@@#@@B@@D@@T@@]@@-@@@@@@@@@@@@@[(@@@@^AP$OUTF P$CLFL APRINTXD )@@G@@$ PRINT$ P$OPFL P$WRS P$WRI P$WRO P$WLN XE )@@G@@ P$CLFILES @@[@@@@@@@@@P$ERRMSG @@[@@@@@@@@IH(-I))^[&H92H90G(2XF )@@G@@DD!I[2@@D@@6 0)^@)IL(I->H92^[7AS@@@@)[#@W@)@L@G*)@@@@@)[A@=@@@@@@@H9,G8)XG )@@G@@H9\^[?IL=^[4EL>GT\@@B@@_ 0)^@)IL>GD=G1\IK)AT@@@@)@@[N@K^[@K^[@K^@@R]K@[GXH )@@G@@/K@@# /K@@#[/K@@]-/K@@])/K@@]N/K@@]I/K@@[?/K@@[:/K@@@DAA@@@@)@E[U@@@K)@@XI )@@G@@/,0@@@R;G@@5ABW@@.R;T@@G(0G@@ (4G@@ R;W@@GC[)@@G9(G@@1A#/@@0[[?@@\AB@@@@XJ )@@G@@)@P[N@K@@K@@@@@@@@%8K@@-R7W@@_/K@@@91@G@@_9!G@@1R#/@@0C[?@@\R#@@@M/K@@[>XK )@@G@@/K@@[=AC@@@@)@Z[N@^@K@K[@@@@@@/K@@@E%8K@@*/K@@@EA3W@@ R]@*KZE )@@G@@K@@@@@A#@@@[/KE@@@ @@@@@N#@@@@N#)@@@N#K@@@N])@@@R@)@@@AC@@@@)@T[F[KOC]4CZF )@@G@@#^C#K^^@@@@@R#@@@[B0H@@@)8@@[CB4@@@G'=@@@@R#@@@@/,0@@@A]0@@@A]0@@]AD@@@@ZG )@@G@@)@+@N[K@@@@@)@@@G@)@#@=/S]@@02+AC@K@@@@@J*@@@@@@@@C@@C@@@@@@@@@@@@/K@@@FZH )@@G@@R]0@@]AE@@@@)@B@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@J*@@@@@@AF@@@@@@^@@#@@B@@I@@<@@#@@\@@@@@@@@@@@@@@=@@@@J0F2SCT$ZJ )@@G@@ BDI$ P$LASAVE P$CMSAVE P$GLSAVE P$DLSAVE P$LNSAZK )@@G@@VE P$STSAVE P$HPSAVE P$GPSAVE P$FTNFLG FINIT$ P$CONTZL )@@G@@IN IALL$ P$FTNCALL @@[@@@@@@@@@P$FTNSPACE @@]@@@@@@@@#F2FCA$ZM )@@G@@ @@]@@@@@@@@^K@=8@@O@@@HHS@1S@@K@@@F(^@N@BZW )@@G@@$BW@@^R#W@@#/KE@@@AB@@@@)@Q[U@@^@@@@ABW@@@R;W@@B/K@@@GAFW@@^R;W@@FABW@@#ZX )@@G@@R;W@@F 0G@@[/KE@@@ @@@@H/\_@@^AC@@@@)@-[U@@@@@@@9*?@@ERR.@@@RV!@@@9*?@@CZY )@@G@@RN.@@@RZ!@@@A#W@@#/KE@@@R#W@@@^3/@@[AFW@@^AD@@@@)@?[]@[]@[]@@@@@@@@@@@@@ZZ )@@G@@@@@@@@')@@@X')@@@[(4G@@[(*G@@[/KE@@@R#W@@@ABW@@@R;W@@CAE@@@@@@@@@@T$ AA )@@G@@@ @@@@ F$FCA 1000. @#@@@@ END ___K@L@@HS[UAB )@@G@@@@^@@]@@A@@[@@C@@#@@O@@@@@@@@@@@@@@4P$ERR P$GETC @@[@@@@@@@@@AC )@@G@@P$GETNW @@[@@@@@@@@GP$RDCERROR @@[@@@@@@@@0R])@@@N;0@@[/,;@@@N#0@@#AD )@@G@@/K@@@S(@@@@@^#0@@@AB@@@@)@@[MK)@[@K@@@@@@@$FW@@FR#W@@G/KE@@@A#W@@@/K@@@CAE )@@G@@/K@@@A$BW@@FR#W@@@')@@@[(?G@@[AA@@@@)@E[V@K@K@@@!CW@@HABW@@HPFW@@HRBW@@HAF )@@G@@ABW@@@R;W@@J/KJ@@\RB/@@IA#W@@G/K@@@T/K@@@GAB@@@@)@P[U@@K@@@@/KE@@@/\_@@^AG )@@G@@RB/@@]/K@@@)(4G@@[/\_@@@RB/@@]/KE@@@ABW@@FOBW@@@RFW@@HAC@@@@)@)[M^C@@K)@AH )@@G@@@@@@@@P;)@@[OF?@@HAB?@@HRF!@@@')@@@#%C?@@HEG!@@@')@@@#1GH@@@R#W@@GAD@@@@AI )@@G@@)@%[M@K^[@K^[@@@@@/K@@[U/K@@[M/K@@[F/K@@[A/K@@[]/K@@@GAF?@@FO;!)@@WC?@@HAJ )@@G@@;G)@@=AE@@@@)@4[F@K^[@K^[@K^@@@@@@@@/K@@#>/K@@#F/K@@]7/K@@][U@@@@@@@BQ )@@G@@A#/@@N;C0@@+;G)@@]A#/@@O;C0@@+;G)@@]A#/@@P;C0@@+;G)@@]A#/@@Q;C0@@+BH@@@@BR )@@G@@) 0[U@@[@@@@R#!@@@/K@@@J9*?@@J;C0@@+;G)@@]A#/@@L;C0@@+;G)@@]A#/@@M;C0@@+BS )@@G@@;G)@@]BI@@@@) ;[U@@@@@@@;K0K@+;O)K@]A#/K@Y;K0K@+;O)K@]A#/K@Z;K0K@+;O)K@]BT )@@G@@A#/K@);K0K@+;O)K@]BJ@@@@)AA[U@@@@@@@;O)K@]A#/K@U;K0K@+;O)K@]A#/K@V;K0K@+BU )@@G@@;O)K@]A#/K@W;K0K@+;O)K@]A#/K@XBK@@@@)AL[U@@@@@@@A#/K@Q;K0K@+;O)K@]A#/K@RBV )@@G@@;K0K@+;O)K@]A#/K@S;K0K@+;O)K@]A#/K@T;K0K@+BL@@@@)AW[U@@@@@@@;K0K@+;O)K@]BW )@@G@@A#/K@N;K0K@+;O)K@]A#/K@O;K0K@+;O)K@]A#/K@P;K0K@+;O)K@]BM@@@@)A$[U@@K@@@@BX )@@G@@;C0@@<;G)@@[R#!@@@/K@@@J9*?@@J;K0K@+;O)K@]A#/K@L;K0K@+;O)K@]A#/K@MBN@@@@BY )@@G@@)A2[U@@@@@@@;G)@@[A#/@@\;C0@@<;G)@@[A#/@@0;C0@@<;G)@@[A#/@@1;C0@@<;G)@@[BZ )@@G@@A#/@@2BO@@@@)A.[U@@@@@@@A#/@@:;C0@@<;G)@@[A#/@@?;C0@@<;G)@@[A#/@@!;C0@@;C0@@<;G)@@[A#/@@&;C0@@<;G)@@[A#/@@$BR@@@@)BY[U@@@@@@@A#/@@);C0@@[MK)E@@^C]0@@@@/,0@@@R;G@@5C[)@@G9(G@@1A#/@@0DY )@@G@@[[?@@\R#/@@4R]?@@3/,)@@@A#/@@4AQ@@@@)]\[V]@^@@@@A#/@@0[[?@@\/KJ@@@ ^G@@@DZ )@@G@@ 4G@@[ *G@@[9!G@@1R#/@@0C[?@@\R#@@@M')@@@AAR@@@@)]'[U@^C#@@@^F/@@@9!G@@1EA )@@G@@R#/@@0C[?@@\R#@@@M/,0@@@R;W@@5 @G@@5 @G@@[C[)@@G9(G@@1AS@@@@)# [U@@@@@@@EB )@@G@@&;W@[@ @G@@' @G@@9 @G@@8 @G@@7A#W@@BR;K@@) @G@@ 4G@@[ ^G@@@^F/@@#AT@@@@EC )@@G@@)#K[U@@@K)H@/,0@@@R;W@@5/KJ@@@^F/@@"^F/@@.ABW@@.R;W@@GAFW@@/R;K@@CA#W@@;ED )@@G@@Q;W@^)AU@@@@)#V@U@)@@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*SDFF**[S@@[^@)^@)EE )@@G@@/KJ@@@/KJ@@@R#W@@'AV@@@@@@^@@#@@B@@I@@<@@[@@$@@@@@@@@@@@@@#Y@@@@@#SDFI$ EF )@@G@@ P$ERR SDFO$ REW$ IOW$ R$ SDFIO$EG )@@G@@ W$ SDFOO$ SDFIC$ P$WLN SDFOC$ P$ASG EH )@@G@@ P$FREE P$ISDF @@[@@@@@@@@@ ENDS . . . . . . STRUC . FV*EI )@@G@@ SEQUF X2,,1. DL* SEQUF X2,H1. SL* SEQUF X2,H2,1. GL* SEQUF X2,H1. LNUM*EJ )@@G@@)@@[U@^C@@@@ @@@@H/KE@@@AFG@@@ @G@@@A#@@[I/K@@@@?8K@@[L@@@[HP#@@@HO;K@@[EK )@@G@@R#@@[IAA@@@@)@F[N@@K)[K@@@@@@@&;)@@[N@K@@HL@@@@IR#)@[I/@K@@R')@@@V%CG@@@EL )@@G@@!@@@[IA])@[F/K@@@@AB@@@@)@P@'*)@@@@@)@@@G@@@@@@@@@@@@@@@@@@@/KE@@@ @G@@@EM )@@G@@/KE@@@ @@@[FA#@@[IM#!)@@R;K@@@AC@@@@@@@@@@. @^@@@@. MARK(POIEN )@@G@@NT) @[@@@@. @B@@@@. A0 CONTAINS PO@@^@@#@@B@@]@@F@@^@@V@@@EO )@@G@@@@@@@@@@@@@W@@@@@[P$MOFLO P$ERR P$NEW @@[@@@@@@@@@P$MARKEP )@@G@@ @@[@@@@@@@@EP$REL @@[@@@@@@@@GP$DISP @@[@@@@@@@@U EQ )@@G@@)@@[U@@[@@@@RB/@@]/K@@@G(?G@@[/KE@@@ @@@[F/\_@@AAB]@@#[D?@@]C +@@#AB/@@]ER )@@G@@A])@[FAA@@@@)@F[U^@@@K@@/,)@@CC])@@EA])@[F/KE@@@/\_@@BRB/@@]/\_@@ RB/@@]ES )@@G@@/K@@@K(*G@@[/\_@@^AB@@@@)@Q@U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@/KE@@@ @@@[FR])@@QAC@@@@@@@@@@J X10,P$OPFC@[@@@@. EU )@@G@@@#@@@@ AXR$ @#@@@@$(1) P$DEFS @@^@@]@@A@@@@@A@@#@@M@@@EV )@@G@@@@@@@@@@@@@TP$OPFL @@[@@@@@@@@@P$CLFL @@[@@@@@@@@CP$CLOSE EW )@@G@@@@[@@@@@@@@N . PROCEDURE OPENFL(A0:^FLT; A1:FNAME; @G@@@@ EX )@@G@@)@@[F@K^[@K^[@K^@@@@@@@@/K@@[M/K@@[K/K@@[[/K@@@0/K@@@!/K@@@?/K@@@:/K@@@PEY )@@G@@/K@@@MAA@@@@)@D[F@K^[@K^[@K^@@@@@@@@/K@@[O/K@@[K/K@@@_/K@@@,/K@@@!/K@@@?EZ )@@G@@/K@@@:/K@@@N/K@@@MAB@@@@)@M[N]@@K@KL@^@@@@/K@@@Y%@!@@@/K@@@Y?8W@@GR#)@@@FA )@@G@@RBW@@#N8K@@[/K@@@QN8K@@@')@@@[AC@@@@)@W[MK@@K^ ]@^@@@@'=@@@@O#@@@[/K@@@*FB )@@G@@(@@@[[&#@@@HR;G@@GR#)@@GP;W@@F/K@@@SP;K@@[AD@@@@)@&[E^C@)K)@K)@K)@@@@@@@FC )@@G@@N8K@@@')@@@D')@@@C')@@@B/KJ@@@R#@@@I'=@@@@/KJ@@@R#@@@IAE@@@@)@\[N@@K@K@@FD )@@G@@@@@@@@A#/@@4A]?@@3/K@@@/:8W@@CRBW@@@/K@@@7!8W@@GRBW@@#N8K@@[/K@@@1AF@@@@FE )@@G@@)@9[N]@G@[@@@@@@@@ @G@@[R;)@@-/K@@[]R;)@@O/KJ@@@ ^G@@@ *G@@[R#/@@4R]?@@3FF )@@G@@/,)@@@AG@@@@)[#[U@@@@@@@O#K@@I^F/@@#ABW@@#R;W@@FAFW@@^O;K@@#^F/@@@ABW@@@FG )@@G@@R;W@@C^7/@@[^:/@@[AH@@@@)[I@'@KOC[@@)@@@W@D)?A@)@[@@@@^@)^@)/KJ@@@'=@@@@FH )@@G@@R#@@@#/KJ@@@ @@@@H/KJ@@@ABW@@^AI@@@@)@#@G*)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@]AJ@@@@@@^@@#@@B@@ @@L@@]@@T@@@FJ )@@G@@@@@@@@@@@@[P@@@@@^P$ERR APRINT$ APUNCH$ P$WLN APRTCNFK )@@G@@$ P$OUTF @@[@@@@@@@@@P$PUNF @@[@@@@@@@@D SRESL FACPKTL. FCFL )@@G@@)@@@'^C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@ @@@[F/\_@@CRB/@@]')@@@](*G@@[FM )@@G@@A])@[FAA@@@@@@@@@@ 0,A3 . END; @[@@@@. @[@@@@. FN )@@G@@@G@@@@PAGE1 L @@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@BP$ERR FO )@@G@@P$PAGE @@[@@@@@@@@@ APRTCN$ . BEGIN APRTCN('L,0 'FP )@@G@@); @C@@@@PAGE2 J 0,A3 )@@[U@@@K@@@/K@@@I!@K@[IFQ )@@G@@A#K@[HAFM@@#O#K@@]RBU@@@^A+@@]AA+@@ @]@@#ACM@@]AA2@@^AA@@@@)@F[M@^C@@K@FR )@@G@@@@@@@@RFW@@]/@@@@SRB]@@#A])@[F')@@@HRC+@@[A])@[F/KE@@[A@)@[DN')@@@AB@@@@FS )@@G@@)@P[MK)[K@@@@@@@@@A@)@[DRC+@@[A#@@[HRF]@@#RA2@@^RCM@@]NA+@@]/K@@@M/,)@@@FT )@@G@@ABM@@#AC@@@@)@Z@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@/KF@@@ @@@[FAD@@@@@@^@@#@@B@@]@@F@@#@@R@@@@@@@@@@@@@@-@@@@@@P$ERR FV )@@G@@ P$CLFL P$PENTRY @@[@@@@@@@@@P$MOFLO @@[@@@@@@@@IP$PEXIFW )@@G@@T @@[@@@@@@@@LU 9. FACPKT* SRESL FACPKTL. FC)@@[M^C@@@K^@@@@@@/K@@@HFX )@@G@@/K@@@E$BW@@FR#W@@@ABW@@EO;K@@[RBW@@E')@@@](*G@@[A])@[FAA@@@@)@E[U@@@@@@@FY )@@G@@ ^G@@EABW@@FOFW@@FABW@@@O;K@@[RBW@@@/\_@@[RB/@@]/KE@@@ @@@[FA#W@@@AB@@@@FZ )@@G@@)@P@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@GA )@@G@@ @@@[FAC@@@@@@@@@@CK) @E@@@@. RBDI BDI OF RETURN ADDRESS GB )@@G@@(BANKED ONLY) @D@@@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@RP$ERR GC )@@G@@P$PUTB @@[@@@@@@@@@2. TLINE* SRESL 33. LINEBUF* SRESL 33. CSFA0* SRGD )@@G@@ESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FC)@@[M^C@@K[@@@@@@@A#W@@@GE )@@G@@R]?@@!/,)@@GA]?@@!/K@@@D$FW@@^R#W@@@')@@@](*G@@[A])@[FAA@@@@)@E[U@K@@@@@GF )@@G@@RR?@@CA#W@@#&FW@@#R;W@@G/\_@@[RB/@@]/K@@@N$BW@@^R#W@@#/KE@@@ @@@[FAB@@@@GG )@@G@@)@P[U@@@@@@@/KE@@@R#W@@@ABW@@@R;W@@CA#!@@@OR?@@F;*)@@DOR?@@E;*)@@DOR?@@DGH )@@G@@;*)@@DAC@@@@)@)[M^C@@K@@@@@@@@$FW@@^A#!@@@R#W@@@R;)@@)/K@@@,:8W@@CRBW@@@GI )@@G@@')@@@](*G@@[A])@[FAD@@@@)@%[V@^@@@@@ @@@[FABW@@@R;W@@CABW@@#R;W@@F/\_@@[GJ )@@G@@RB/@@]R]?@@!/,)@@GA]?@@!/K@@@*AE@@@@)@5@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@AF@@@@@@^@@]@@A@@[@@C@@#@@O@@@GL )@@G@@@@@@@@@@@@@6P$ERR P$PUTC @@[@@@@@@@@@P$PUTNW @@[@@@@@@@@GGM )@@G@@P$WLN @@[@@@@@@@@)ESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FCGN )@@G@@)@@[MK)@[@K@^@@@@@/KJ@@ZRB/@@I/KE@@@A#W@@@/K@@@C/K@@@A$BW@@FR#W@@@')@@@]GO )@@G@@(*G@@[AA@@@@)@E[U@@^[@@@A#W@@G/K@@@Q/K@@@O$FW@@FAB?@@@R;?@@JAB?@@HOF?@@HGP )@@G@@RB?@@HA#!@@@R#W@@GAB@@@@)@P[U@@@K@@@/K@@@2/KE@@@ABW@@GO;K@@[AF?@@FKCW@@BGQ )@@G@@RBW@@G ^G@@H/\_@@[RB/@@]/KE@@@AC@@@@)@)[F@K^[@K^[@K^@@@@@@@@/K@@[+/K@@[+GR )@@G@@/K@@[P/K@@[E/K@@[]/K@@[]/K@@@;/K@@@5/K@@@2AD@@@@)@([N@K^[@K^[@K^@@R#?@@KGS )@@G@@/K@@ H/K@@^T/K@@#5/K@@#N/K@@];/K@@]+/K@@]K/K@@[./K@@[,AE@@@@)@3[UK@@K@@@GT )@@G@@;?)@@G;*0@@S9??@@J/K@@@EO#?@@L;*)@@GO#?@@K;*)@@GR#?@@J/K@@@E&#?@@JAF@@@@GU )@@G@@)@"[U[@@@@@@OR?@@M;*)@@DOR?@@L;*)@@DOR?@@K;*)@@DRR?@@J/K@@@E;?)@@G;*0@@SGV )@@G@@R#/@@LAG@@@@)[D[V@@@@@@@;*)@@[O#?@@N;*)@@BO#?@@M;*)@@BO#?@@L;*)@@BO#?@@KGW )@@G@@;*)@@BR#?@@J/K@@@EAH@@@@)[O[V@@@@@@@R#/@@N;?)@@B;*0@@XR#/@@M;?)@@B;*0@@XGX )@@G@@R#/@@L;?)@@B;*0@@X9??@@J/K@@@EAI@@@@)[Z[U^@@@@@@;*)@@AO[U@@@@@@@;*0@@+R#/@@R;?)@@];*0@@+HT )@@G@@R#/@@Q;?)@@];*0@@+R#/@@P;?)@@];*0@@+R#/@@OBB@@@@)^0[U@@@@@@@R#/@@V;?)@@]HU )@@G@@;*0@@+R#/@@U;?)@@];*0@@+R#/@@T;?)@@];*0@@+R#/@@S;?)@@]BC@@@@)^;[U@@@@@@@HV )@@G@@;?)@@];*0@@+R#/@@Y;?)@@];*0@@+R#/@@X;?)@@];*0@@+R#/@@W;?)@@];*0@@+BD@@@@HW )@@G@@) A[U@[@@@@@;*)@@[O#?@@K;*)@@[R#?@@J/K@@@E;?)@@];*0@@+R#/@@);?)@@];*0@@+HX )@@G@@R#/@@ZBE@@@@) L[U@@@@@@@O#?@@Q;*)@@[O#?@@P;*)@@[O#?@@O;*)@@[O#?@@N;*)@@[HY )@@G@@O#?@@M;*)@@[O#?@@LBF@@@@) W[U@@@@@@@;*)@@[O#?@@V;*)@@[O#?@@U;*)@@[O#?@@THZ )@@G@@;*)@@[O#?@@S;*)@@[O#?@@R;*)@@[BG@@@@) $[U@@@@@@@O#?@@-;*)@@[O#?@@);*)@@[IA )@@G@@O#?@@Z;*)@@[O#?@@Y;*)@@[O#?@@X;*)@@[O#?@@WBH@@@@) 2[U@@@@@@@;*)@@[O#?@@&IB )@@G@@;*)@@[O#?@@>;*)@@[O#?@@=;*)@@[O#?@@<;*)@@[O#?@@+;*)@@[BI@@@@) .[U@@@@@@@IC )@@G@@O#?@@?;*)@@[O#?@@:;*)@@[O#?@@%;*)@@[O#?@@(;*)@@[O#?@@*;*)@@[O#?@@$BJ@@@@ID )@@G@@)AC[U@@@@@@@;*)@@[O#?@@1;*)@@[O#?@@0;*)@@[O#?@@\;*)@@[O#?@@,;*)@@[O#?@@!IE )@@G@@;*)@@[BK@@@@)AN@MK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@/K@@@EO#?@@2BL@@@@@@^@@]@@A@@[@@C@@]@@K@@@@@@@@@@@@@APP$ERR IG )@@G@@P$PUTPB @@[@@@@@@@@@P$PKPUT @@[@@@@@@@@CBUF* SRESL 33. CSFA0* SRIH )@@G@@ESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FC)@@[M^C@@^@K)[@@@@R]?@@!II )@@G@@/,)@@@A]?@@!/K@@@E$FW@@^C[H@@@R#W@@@/K@@@@(?G@@[A])@[FAA@@@@)@E@+@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@ @@@[FR#K@@KA#W@@@AB@@@@IK )@@G@@@@^@@]@@A@@]@@E@@[@@I@@@@@@@@@@@@@@IP$RDCERROR P$GETNW P$RDC IL )@@G@@@@[@@@@@@@@@ESL 33. LINEBUF* SRESL 33. CSFA0* SRESL 1. FACPKTL* EQU 9. FIM )@@G@@ACPKT* SRESL FACPKTL. FC)@@@G@)@@[E@^C@@K@/K@@@H%8)@@)R#!@@@/K@@@@(?G@@[IN )@@G@@R#W@@@ @@@@LA]?@@!A])@[F#G3G3HAA@@@@)@D[MK^C@O@^@K@@@@%8)@@:/K@@@OD9)@@[IO )@@G@@/K@@@M%8)@@!C9)@@[/K@@@^/,)@@@/K@@@^$FW@@^AB@@@@)@N[F@^[]@^[]@D[@@@@@@@@IP )@@G@@![K@@@')@@@#!8)@@'!8)@@0R#!@@@/,)@@@/K@@@R$FW@@^/K@@@SAC@@@@)@W[F]@C[@K)IQ )@@G@@]^[]@^@@@@@@/,)@@@/K@@@>$FW@@^')@@@#/4@@@+G[K@@IT9K@@EP;)@@0')@@@#AD@@@@IR )@@G@@)@>[U[@K^@@@ @@@[FR]?@@!R#K@@LA#W@@@D[K@@L/D)@@?/K@@@V/K@@@%!8)@@'!8)@@0IS )@@G@@R#!@@@AE@@@@)@0@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@/KE@@@AF@@@@@@^@@#@@B@@#@@H@@[@@L@@@@@@@@@@@@@@1@@@@@[P$RDCEIU )@@G@@RROR P$GETNW P$ERR P$RDI @@[@@@@@@@@@RESL 33. CSFA0* SRIV )@@G@@ESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FC)@@@W@)@@@'@K)@@@@%8)@@)IW )@@G@@R#!@@@/K@@@@(?G@@[R#W@@@A]?@@!A])@[F@@@@@@M@)@@@@K@@@@AA@@@@)@B[N@^[]@ @IX )@@G@@[@^@@@/K@@@NC9@@@[/K@@@L%8)@@! @@@@K/K@@@#/,)@@@/K@@@#$FW@@^/K@@@GAB@@@@IY )@@G@@)@L[MK[@K)[@^@@@@@/K@@@!:8)@@, @@@@M @@@@LR#!@@@/,)@@@/K@@@Q$FW@@^/K@@@RIZ )@@G@@%8)@@:AC@@@@)@V[M^C@= @@K@@@@@G9)@@[/K@@@>H9K@@0G[K@@IT9K@@E/K@@@=![K@@@JA )@@G@@')@@@#!8)@@'!8)@@0AD@@@@)@>[MK^C@K^[@^@@@@/K@@@3%8)@@,/K@@@Y/K@@@!!8)@@'JB )@@G@@!8)@@0R#!@@@/,)@@@/K@@@*$FW@@^AE@@@@)@\[MK^C@K^[[K@@@@T9K@@E/K@@@/![K@@@JC )@@G@@/K@@[[!8)@@'!8)@@0R#!@@@/,)@@@/K@@@2$FW@@^AF@@@@)@9[M@K^C@L@@@@@@@:8)@[>JD )@@G@@%8)@[ /K@@@3R#!@@@/,)@@@/K@@@_$FW@@^H9)@@[H9K@@0G[K@@IAG@@@@)[#[N@K@^[]@JE )@@G@@^^@@@@/K@@[J%8)@@!R#!@@@/,)@@@/K@@[E$FW@@^ @@@@O @@@@N/K@@[>/K@@[ AH@@@@JF )@@G@@)[H[MK[@^[]@^@@@@@!8)@@'!8)@@0R#!@@@/,)@@@/K@@[O$FW@@^/K@@[P%8)@@:/K@@[LJG )@@G@@C'@@@[AI@@@@)[R[N@^C@)[@K)[@@@R#!@@@/,)@@@/K@@[)$FW@@^H90@@0G[0@@IT90@@EJH )@@G@@')@@@#!90@@1/K@@[+AJ@@@@)[-[N@K@[]@C@@@@@@;HK@@=C[0@@KR#K@@M')@@@#!9)@@1JI )@@G@@A#W@@@G[)@@ND[0@@N/]@@[=/K@@[PAK@@@@)[:[M^C@1[^^^^@@@@9?)@@["-@@@I @@@@JJJ )@@G@@O#)@@^R#)@@J+@)@@#R#)@@K/,)@@@"40@@LR;0@K/AL@@@@)[5[EK^C@-@@@@@@@@@@@@@@JK )@@G@@/KE@@@ @@@[FR]?@@!D@K@@H/[0@[;"/K@@K')@@@#/C)@[8"=)@@KAM@@@@)@#@O@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_WZ_____@@@@AN@@@@JM )@@G@@@@^@@#@@B@@^@@J@@[@@N@@@@@@@@@@@@@["@@@@@ P$RDCERROR P$GETNW P$ERR JN )@@G@@ P$MDP P$RDR @@[@@@@@@@@@T,MSCOPE 78039-735C 027 JO )@@G@@ )@@[UK@@@K@@/K@@@H(?G@@[9*(@[V9*D@[T[[D@[YA](@[XJP )@@G@@A])@[FR]K@[GC9@@@#/K@@@#C9@@@]AA@@@@)@F[U[@@K@@@R#T@[V/\_@@BRB/@@]/K@@@)JQ )@@G@@(@D@[V/\_@@ RB/@@]/K@@@L(*G@@[/\_@@^RB/@@]AB@@@@)@Q[U^C@@@@@R#T@[U/\_@@AJR )@@G@@AB/@@]CDW@@@CDG@@BR#9@[W9?T@@!R#D@[T/,0@@@R;@@@#R;(@@!AC@@@@)@-@2@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@ @@@[FR](@[X/\_@@@O#9@[YRB/@@]AD@@@@JT )@@G@@@@^@@]@@A@@[@@C@@]@@K@@@@@@@@@@@@@@$ASCFD$ P$RES @@[@@@@@@@@@JU )@@G@@P$REW @@[@@@@@@@@]BUF* SRESL 33. CSFA0* SRESL 1. FACPKTL* EQU 9. FJV )@@G@@ACPKT* SRESL FACPKTL. FC)@@[M^C@@[]@^@@@@@/KE@@@R]?@@!/,)@@@^3/@@[ABW@@^JW )@@G@@R#W@@#A]?@@!/K@@@@(?G@@[A])@[FAA@@@@@@@@@@@F@@@@. L A1,AJX )@@G@@DDRESS WILL BE ZERO IF UNSPECIFIED @F@@@@@@^@@]@@A@@]@@E@@[@@I@@@JY )@@G@@@@@@@@@@@@@EP$RDCERROR P$GETNW P$RLN @@[@@@@@@@@@ESL 33. LINEJZ )@@G@@BUF* SRESL 33. CSFA0* SRESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FCKA )@@G@@)@@[U@@@@@@@+@?@@#9?T@@]9*(@@@+@W@@@+@?@@[9?T@@@/KE@@@9*T@@]9?W@@]9*T@@@KB )@@G@@9?W@@@AA@@@@)@F[U@@@@@@@9*(@@])@W@@])@?@@#9?T@@]9*(@@@)@W@@@)@?@@[9?T@@@KC )@@G@@/KE@@@9*(@@]+@W@@]AB@@@@)@Q[U@@@@@@@1@@@@G/KE@@@9*(@@]+@T@@]+@(@@#90W@@]KD )@@G@@9*(@@@+@T@@@+@(@@[90W@@@/KE@@@AC@@@@)@-[UK@@@@@@A])@[F/KE@@@A#/@@@)@?@@@KE )@@G@@;@!@@[R;)@@[O#@@@DW8@@@=;O@@@=/K@@@:!8@@]KAD@@@@)@?[N]@@^@[@KK@@@@R#0@@HKF )@@G@@R#)@@@/K@@@.!8@@@=/KE@@@?@K@@G/K@@@:!8K@]K1@@@@G')@@@SAE@@@@)@6[U@@@@@@@KG )@@G@@!8@@@=/GU@@@P;K@@=P;@@@=A#9@@@)@(@@@;C?@@@;K\@@@R;0@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@____\_@@@@C@@@ @@,@@^@@%'=@@@@AH@@@@ML )@@G@@@@^@@#@@B@@^@@J@@#@@V@@@@@@@@@@@@@@P@@@@@7PREPRO$ CSF$ POSTPRMM )@@G@@$ EABT$ PARTBL @@]@@@@@@@@@P$STPSIR @@[@@@@@@@@@P$STOSMN )@@G@@IR @@[@@@@@@@@LTL. FC)@@[U@@@*)@@N^U@@[R;K@@]&;@@@[R#@@[GR@)@@[O^U@@[MO )@@G@@A@K@[GR^U@@@B0H@@@)8@@[CB4@@@GAA@@@@)@F[MEK@ C@L[[[@@@A#@@[IA#@@[IA#@@@[MP )@@G@@OFE@@@R#@@[GA@K@@@M#H)@@N8K@@@Q;@@@@M#H)@@AB@@@@)@P[U@K)]@@@N;0@@[ @[@@DMQ )@@G@@9*[@@B @[@@A;G@@@N @@@@H'=@@@@ @@@[D @@@[FA@)@[HA@)@[HAC@@@@)@)@'K)#K)^EMR )@@G@@K]*K#]^@8@@@)@]@G@@@@@@@'=@@@@/KE@@]A#@@@@R;@@@@'=@@@@R#@@@@ @@@[EAD@@@@MS )@@G@@@@^@@#@@B@@C@@R@@^@@$@@@@@@@@@@@@@@$@@@@@#P$ERRCOM P$ERCOML OPT$ MT )@@G@@ P$CONTIN IALL$ BDI$ P$IBDI EXIT$ P$STKSMU )@@G@@TRT @@]@@@@@@@@@P$HPSTRT @@]@@@@@@@@[P$STRT @@[@@@@@@@@@P$STOPMV )@@G@@ @@[@@@@@@@@& ENDS . . . . . . STRUC . FV* SEQUF X2,,1. DL* SEQUF MW )@@G@@X2,H1. SL* SEQUF X2,H2,1. GL* SEQUF X2,H1. LNUM*)@@[N@KO[[KO@[@@@@/G@@@JMX )@@G@@"8@@@G/KE@@@ @@@@G/K@@@C=@@@@["^@@@@/K@@@^"@@@@@/G@@@#AA@@@@)@E[N[KO@[[KMY )@@G@@O@@@@@D@@@@H/K@@@Q%@@@@^")@@@]94@@@G/KE@@@R#@@@H/K@@@Q%@@@@^")@@@]AB@@@@MZ )@@G@@)@O@+[]@@@@@)@@@?@@@@@@@K/)@@@@@@@@@K/)@@@)^@@@@K^@@@@')@@@RA])@[F/KE@@@NA )@@G@@O;@@@@AC@@@@@@@@@@T UP REGISTERS FOR A NORMAL EXECUTION @[@@@@. NB )@@G@@@#@@@@. START @@^@@#@@B@@[@@D@@]@@L@@@@@@@@@@@@@@S@@@@@ P$ERR NC )@@G@@ P$ROUND @@[@@@@@@@@@P$TRNC @@[@@@@@@@@^RESL 33. CSFA0* SRND )@@G@@ESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FC)@@@2K]+-@@OOC@@@@)@@@W@NE )@@G@@C1[D-NC*)^@)^[OELP/K@@@@R;K@@]/K@@@@R;K@@@/@K@@^R;0@@ AA@@@@)@#@G@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C*)^@)AB@@@@NG )@@G@@@@^@@#@@B@@[@@D@@[@@H@@@@@@@@@@@@@@A@@@@@^P$WRS P$WRB @@[@@@NH )@@G@@@@@@@@NE* SRESL 33. LINEBUF* SRESL 33. CSFA0* SRESL 1. FACPKTL* EQU 9. FNI )@@G@@ACPKT* SRESL FACPKTL. FC)@@[M^C@@[@^C@K@@@/,)@@@A]?@@!/K@@@F$FW@@^R#K@@INJ )@@G@@A#Y@@@R#?@@@')@@@](*G@@[A])@[FAA@@@@)@E[U@[]@@@@H9K@@[R#W@@@9!@@@HA]?@@!NK )@@G@@')@@@](*G@@[A])@[F/KE@@@ @@@[FA#W@@@R]?@@!AB@@@@)@P[MK^@^[]@^K@@@@[[H@@@NL )@@G@@/K@@@QR;)@@)/,)@@@/K@@@Q$FW@@^A#!@@@/K@@@Y8^K@@SR;)@@)AC@@@@)@Z@'K^C@K@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@ @@@[FR]?@@!A#W@@@/,)@@@/K@@@+$FW@@^AD@@@@NN )@@G@@@@^@@]@@A@@]@@E@@]@@M@@@@@@@@@@@@@@&P$ERR P$PUTNW P$WRC1 NO )@@G@@@@[@@@@@@@@@P$WRC @@[@@@@@@@@I3. CSFA0* SRESL 1. FACPKTL* EQU 9. FNP )@@G@@ACPKT* SRESL FACPKTL. FC)@@[M^C@[[K[]@^K@@/CK@@FC90@@)/K@@@@R;K@@0/K@@@CNQ )@@G@@=@K@@@A]?@@!')@@@](*G@@[A])@[FAA@@@@)@E[U@@@@@@@O;K@@[1@@@@H;KK@@CT8K@[HNR )@@G@@P;K@]@"KK@@HC[)@@I"9@@@HE@K@@H[[0@@SC90@@!AB@@@@)@P[M^C@-[K^^K@@@@?9)@@DNS )@@G@@/K@@@SH'K@@["(@@@#/D0@@Y">0@@[9!0@@K/,)@@@D@K@@HC]K@@HAC@@@@)@Z[M@[[^C@)NT )@@G@@@@@@@@"-@@@N/,)@@@D@K@@Q9!@@@ 9!0@@KC')@@C!')@@DH')@@CC])@@MC9)@@DAD@@@@NU )@@G@@)@([UKO[[@@@C'K@@@C'@@@[C[0@@SH9)@@BH[)@@Q[]K@@RG'K@@["(@@@[/H0@@,">0@@BNV )@@G@@9!0@@KAE@@@@)@4[N]@G[@K)^@K@@@/D@@[@R;)@@:H9@@@[C[@@@R/,)@@@/K@@@'$FW@@^NW )@@G@@A#!@@@R;)@[ /,)@@@AF@@@@)@"[M@K^C[@@@@@@@@[[H@@@G9@@@0W9@@@E;P@@@=/,)@@@NX )@@G@@/K@@[^$FW@@^A#!@@@E[@@@KR;)@@!AG@@@@)[C[MK^C[@^[]@K@@@R]?@@!A#W@@@/,)@@@NY )@@G@@/K@@[K$FW@@^[[X@@@G9K@@0/,)@@@/K@@[F$FW@@^AH@@@@)[M@M@)@@[^@@@@@@@K[)@@@NZ )@@G@@3G3G3GJ/3G3G@@@@@@K^*@@@3G3G3GJ.3G3G)^@@@@/KE@@@ @@@[FAI@@@@)@C@G@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ@@@@OB )@@G@@@@^@@#@@B@@ @@L@@[@@P@@@@@@@@@@@@@[O@@@@@DP$ERR P$WRC P$MDP OC )@@G@@ P$WRD P$PUTNW P$WRE @@[@@@@@@@@@437-55-JSA 027 OD )@@G@@ )@@[M^C@[[K[]@^@@@C90@@)A#)@@R/K@@@@R;K@@0/K@@@COE )@@G@@=@K@@@A]?@@!')@@@](*G@@[A])@[FAA@@@@)@E[V@@@@@@@T8K@[HP;K@]@"KK@@HC])@@JOF )@@G@@ @@@@J0@@@@J"9@@@HE@K@@H[[0@@SC90@@!/CK@@GAB@@@@)@P[M@^C@-[K^^@@@@"(@@@#OG )@@G@@/D0@@-">0@@[9!0@@K/,)@@@D@K@@HC]K@@HO;K@@[1@@@@H;KK@@CAC@@@@)@Z[MK@@KL]@OH )@@G@@C@@@@@/,)@@@D@K@@H9!@@@ 9!0@@KR;K@@D!8K@@EO#K@@PR#K@@Q/K@@@VH'K@@[AD@@@@OI )@@G@@)@([M^ @KKK@@@@@@@H[)@@PC[)@@R/K@@@8?'K@@[G'K@@["(@@@[/H0@@\">0@@B9!0@@KOJ )@@G@@"-@@@NAE@@@@)@3[U@K@@@@@O#K@@QR#K@@P @@@@OH9)@@#H[)@@QC[)@@R/K@@[] @@@@POK )@@G@@C]@@@PH9)@@]H[)@@QAF@@@@)@"[MK@@K)#@@@@@@@ @@@[FR]?@@!/,)@@@C9)@@[?9)@@[OL )@@G@@C[0@@SH])@@PC]K@@Q/CK@[[D]K@@PAG@@@@)[C@E@)@@[G@@@@@@@@@@@@@K[)@@@@@@@@@OM )@@G@@K@)@@@@@@@@@K^*@@@3G3G3GJ.3G3G)^@@@@/KE@@@AH@@@@@@^@@#@@B@@^@@J@@[@@N@@@ON )@@G@@@@@@@@@@@@[D@@@@@DP$ERR P$WRC P$MDP P$WRD P$WRF OO )@@G@@ @@[@@@@@@@@@> > > 054037E00C791106MD - 000/000-69 3911.OP )@@G@@)@@[M^C@@@@@@@@@@@ @@@@JQ'D@@@&'@@@[C[@@@IC[K@@CR]K@[GA]?@@!')@@@](*G@@[OQ )@@G@@A])@[FAA@@@@)@E[V@@@K[@@A#S)@@/@0@@PR;K@@!/^K@@HA#*)@@O;)@@0W8K@@E;OK@@=OR )@@G@@E@K@@HR;0@@[/CK@@GAB@@@@)@P[M@K^@^[]@^@@@@/,)@@@/K@@@T$FW@@^A#!@@@/K@@@-OS )@@G@@8^@@@VR#W@@@R;)@@)H9C@@@G9D@@@AC@@@@)@Z[MK^^K@^[]@^@@@/,)@@@/K@@@+$FW@@^OT )@@G@@A#!@@@R#*@@@/K@@@%$'D@@[&]@@@@/K@@@TR;)@@)AD@@@@)@(@3@@@@@@@)@@@G@@@@@@@OU )@@G@@@@@@@@@@@@@@_____"/KE@@@ @@@[FR]@@@LR]?@@!A#W@@@/K@@@+AE@@@@@@@@@@> 053OV )@@G@@177E00C791023C - 157/001-75 9911.3 TS-891/URN-3 035 OW )@@G@@@@^@@#@@B@@]@@F@@[@@J@@@@@@@@@@@@@@\@@@@@[P$ERR P$PUTNW P$WRI OX )@@G@@ @@[@@@@@@@@@. LINEBUF* SRESL 33. CSFA0* SRESL 1. FACPKTL* EQU 9. FOY )@@G@@ACPKT* SRESL FACPKTL. FC)@@[U^C@@@@@;(I@@@T8)@@#E@)@@I @@@@I!8)@@@P;)@@GOZ )@@G@@9!@@@HA]?@@!')@@@](*G@@[A])@[FAA@@@@)@F[M[@@K^C@K@@@@@R;)@@)/,)@@@/K@@@HPA )@@G@@$FW@@^A#!@@@H9K@@[/K@@@Q?9K@@HR;)@@)R#W@@@AB@@@@)@P[N@K^@@K^C@O@@@/K@@@QPB )@@G@@/,)@@@/K@@@Q$FW@@^A#.@@@;?0@@#R;0@@A/K@@@Z8^K@@S/K@@@HAC@@@@)@Z@+@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KE@@@ @@@[FR]?@@!A#W@@@AD@@@@PD )@@G@@@@^@@]@@A@@]@@E@@[@@I@@@@@@@@@@@@@@@@@I"=)@@@AD@@@@PR )@@G@@)@*[N]@@K^@^[]@@K@/K@@@%R;)@@0/,)@@@/K@@@%$FW@@^A#!@@@/K@@@28 K@@?R;)@@0PS )@@G@@/,)@@@AE@@@@)@2[N@K^^KK^^@@@@@">@@@I"=)@@@P;0@@0A#.@@@O;0@@0"))@@@9?)@@KPT )@@G@@"(@@@,/K@@[@8 )@@4AF@@@@)@/@'K^C@^@@)@@@O@@@@@@@@@@@@@K/)@@@/KE@@@A#W@@@PU )@@G@@R]?@@,/K@@@2/,)@@@/K@@@2$FW@@^AG@@@@)[#[V@@@KO@@/@U@@@D@K@@H/K@@[^"(I@@]PV )@@G@@;*)@@[P#K@@IR;)@@E!8)@@FR#)@@H/@U@@@/GK@[GAH@@@@)[I@'@^ @@@@)@]@W@K^*@@@PW )@@G@@@@@@@@K[)@@@/K@@[H"(I@@S;*)@@[P#K@@IR;)@@E!8)@@FR#)@@HAI@@@@)@ [W@@@@@@@PX )@@G@@@@@@@@KO.]K@@@@@@@KL05@@@@@@@@KI$^@@@@@@@@KE")@@@@@@@@KB2@@@@@@@@@AJ@@@@PY )@@G@@)@K[W@@@@@@@J.3G3G@@@@@@K[)@@@@@@@@@K+>KF9@@@@@@KY;&?*@@@@@@KV\:0)@@@@@@PZ )@@G@@KS&DU@AK@@@@)@V[W@@@@@@@[U.?UVJ!-85J73J7)1D,QA )@@G@@JR]<50J'*.WE3G3G3GAL@@@@)@&[O@@@@@@@@@@@@@@@@@@@K^*@@@3:7!5VJZ6"V"KNU4(TQB )@@G@@J<+R[Z^SL-3\J&%/175YP'K:J(5:"OAM@@@@@@@@@@ 1,X10 @#@@@@ QC )@@G@@ END ___ J 0,X10 @^@@@@/. @@^@@#@@B@@[@@D@@]@@L@@@QD )@@G@@@@@@@@@@@@[P@@@@@0P$PUTNW P$WRD @@[@@@@@@@@@P$MDP @@[@@@QE )@@G@@@@@@[#RESL 33. CSFA0* SRESL 1. FACPKTL* EQU 9. FACPKT* SRESL FACPKTL. FCQF )@@G@@ . IF (WP > 0) @ @@@[ J CLTHEN1 @ @@@[ QG )@@G@@ L A1,CPM @^@@@[-93,93 P$OUTF @E@@@[CLTHEN1 S QH )@@G@@ X10,FILEX10 . FILEX10 := X10; @^@@@[-99 P$OUTQI )@@G@@F @F@@@[ SZ CPM . CP := NIL; (* FOR DQJ )@@G@@IAG *)@]@@@[*P$SORF @^@@@[-65,65 P$SORF @F@@@[ LMQK )@@G@@J X11,SORASC$ . SORASC$(WBUF,WP,ERR); @^@@@[-80,80 QL )@@G@@ P$SORF @G@@@[ LMJ X11,SSOR$ . SSOR$(ERR);QM )@@G@@ (* START SOR *) @^@@@[-99,100 P$SORF @D@@@[ TG,U QN )@@G@@ A1,WBUF . IF (WP > 0) @ @@@[ J CLTHEN1 QO )@@G@@@^@@@[-104,104 P$SORF @E@@@[CLTHEN1 S X10,FILEX10 QP )@@G@@ . FILEX10 := X10; @^@@@[-111,111 P$SORF @D@@@[ LMQQ )@@G@@J X11,ESOR$ . ESOR$(ERR) @^@@@[-115 P$SORF QR )@@G@@@F@@@[ SZ CPM . CP := NIL; (* FOR DIAG *)QS )@@G@@@^@@@[-121,124 P$SORF @F@@@[ SZ CPM QT )@@G@@ . BEGIN WITH A0^ DO BEGIN @G@@@[ SONE CPI QU )@@G@@ . CP := NIL; (* FOR DIAG *) @ @@@[ L,U A1,CBUF+4 QV )@@G@@@[@@@[*P$RDI@#@@@[-26,26 P$RDI@I@@@[ J P$RDCERRORQW )@@G@@ . IF NOT OPENR THEN READ_CHAR_ERROR(A0); @[@@@[*P$RDR@#@@@[QX )@@G@@-4 P$RDR@F@@@[. NOTE: THIS HAS BEEN MODIFIED FROM THE QY )@@G@@PASCAL DEFINITION @C@@@[. TO ACCEPT A LEADING DECIMAL POINT QZ )@@G@@@[@@@[. @[@@@[. @#@@@[-27,27 P$RDR@B@@@[ J RA )@@G@@ P$RDCERROR . DO @#@@@[-48,50 P$RDR@[@@@[IFEND1@#@@@[-52 RB )@@G@@ P$RDR@G@@@[ TNE,U A2,'.' . IF CBUF[CP] '.' THEN BEGIN @ @@@[ J IFEND11 @F@@@[ TGRD )@@G@@,U A2,'0' . IF (CBUF[CP] < '0') OR @F@@@[ TGRE )@@G@@,U A2,'9'+1 . (CBUF[CP] > '9') THEN @E@@@[ ERRF )@@G@@ROR READFORM . ERROR (READFORM) @#@@@[-68,68 P$RDRRG )@@G@@@[@@@[REPEX1@C@@@[IFEND11 . END; @F@@@[RH )@@G@@ TE,U A2,'.' . IF CBUF[CP] = '.' THEN @]@@@[RI )@@G@@*P$TRNC @^@@@[-36 P$TRNC @C@@@[ A,U A0,0RJ )@@G@@ . FIX -0 @]@@@[*P$GETC @^@@@[-14,14 P$GETC RK )@@G@@@F@@@[ J P$RDCERROR . READ_CHAR_ERROR(A0); RL )@@G@@@^@@@[-26,26 P$GETC @ @@@[ S A1,CPM @^@@@[RM )@@G@@-44 P$GETC @^@@@[ SZ A1 @^@@@[-69 RN )@@G@@ P$GETC @[@@@[. @B@@@[. DIAGNOSE A READ CHARACTER ERROR RO )@@G@@@[@@@[. @H@@@[P$RDCERROR* . PROCEDURE REARP )@@G@@D_CHAR_ERROR(A0: ^FCT); @F@@@[ TNZ OPENW . IRQ )@@G@@F OPENW OR NOT EOF THEN @^@@@[ TNZ EOFI@E@@@[ ERRR )@@G@@ROR READNOTOK . ERROR(READNOTOK) @F@@@[ ERROR RS )@@G@@ REOFERR . ELSE ERROR(READ_EOF); @[@@@[*P$NEW@#@@@[-21,22RT )@@G@@ P$NEW@F@@@[ ANU A0,P$HPLIM . IF CHPLIM <=RU )@@G@@ HPLIM THEN @C@@@[ TLE,U A1,1 . MOVFL@F@@@[RV )@@G@@ J P$MOFLO . 'MEMORY OVERFLOW' @A@@@[RW )@@G@@ S A0,P$CHPLIM @F@@@[ SZ 0,A0 RX )@@G@@ . (* SET UP THE KEY *) @#@@@[-24,26 P$NEW@]@@@[*P$PUTRY )@@G@@C @^@@@[-25,25 P$PUTC @A@@@[ L X10,LEV1X1RZ )@@G@@0 @[@@@[*P$RLN@#@@@[-16,16 P$RLN@F@@@[ J P$RDSA )@@G@@CERROR . BEGIN WITH A0^ DO BEGIN @]@@@[*P$FTNCALL @^@@@[-21,21SB )@@G@@ P$FTNCALL @^@@@[-36,36 P$FTNCALL @^@@@[-46 P$FTNSC )@@G@@CALL @H@@@[ SPD A0 . THE STUPID FORTRAN SSD )@@G@@YSTEM IGNORES @H@@@[ OR,U A0,0110 . OVERFLOWSE )@@G@@, SO WE MUST RE-ESTABLISH @F@@@[ LPD 0,A1 SF )@@G@@ . THE REIGN OF RATIONALITY @]@@@[*P$ERRMSG @^@@@[-229,229 P$ERRSG )@@G@@MSG @G@@@[ LOWERS 'ATTE','MPT ','TO D','IVID','E BY',' ZERSH )@@G@@','O. ' @^@@@[-245,246 P$ERRMSG @F@@@[ LOWERS 'UNNSI )@@G@@O','RMAL','IZED',' MAT','H FU','NCTI'; @B@@@[ ,'ONSJ )@@G@@ A','RGUM','ENT.' @^@@@[-290 P$ERRMSG @]@@@[BEG(REOFERR)@D@@@[SK )@@G@@ LOWERS 'ATTE','MPT ','TO R','EAD ','PAST'@ @@@[ SL )@@G@@ ' EOF.' @]@@@[EN(REOFERR) @ @@@[ IM REOFERR SM )@@G@@@]@@@[BEG(NOTTEXT)@B@@@[ LOWERS 'FILE',' IS ','NOT ' @ @@@[SN )@@G@@ '''SDF''.'@]@@@[EN(NOTTEXT) @ @@@[ IM SO )@@G@@ NOTTEXT @#@@@[BEG(UNOPENED) @G@@@[ LOWERS 'ATTE','MPSP )@@G@@T ','TO A','CCES','S UN','OPEN','ED F',; @ @@@[ 'ILESQ )@@G@@.' @]@@@[EN(UNOPENED)@ @@@[ IM UNOPENED @[@@@[*P$RDCSR )@@G@@@#@@@[-17,17 P$RDC@F@@@[ J P$RDCERROR . SS )@@G@@ READ_CHAR__ERROR(A0);@]@@@[*P$SIRF @^@@@[-102,105 P$SIRF ST )@@G@@@ @@@[ L,U A1,WBUF @A@@@[ LXI,U A1,RLINELESU )@@G@@N @E@@@[ S A1,FILEX10 . SAVEAD := WBUF;SV )@@G@@@[@@@[CRL1 @H@@@[ L A0,A6 . (*RECOVER A0 FSW )@@G@@ROM WHENCE IT WENT*) @G@@@[ L A0,FILEX10 . SX )@@G@@ WHILE NOT EOF DO BEGIN @^@@@[-113 P$SIRF @F@@@[ SY )@@G@@ SZ CPM . CP := NIL; (* FOR DIAG *)@^@@@[-128 SZ )@@G@@ P$SIRF @F@@@[ SZ CPM . CP := NTA )@@G@@IL; (* FOR DIAG *)@]@@@[*P$ISDF @^@@@[-49,49 P$ISDF @F@@@[TB )@@G@@ LMJ X11,SDFI$ . SDFI$(IFCT,ERR,EOF); @^@@@[TC )@@G@@-84,84 P$ISDF @E@@@[ LMJ X11,SDFO$ . TD )@@G@@SDFO$(IFCT,ERR); @^@@@[-112,112 P$ISDF @E@@@[ LMJ TE )@@G@@ X11,SDFIO$ . SDFIO$(IFCT,ERR); @^@@@[-141,141 P$ISDF TF )@@G@@@E@@@[ LMJ X11,SDFOO$ . SDFOO$(IFCT); @^@@@[TG )@@G@@-143,143 P$ISDF @B@@@[ L A1,(050,01,030,0,0,1).TH )@@G@@@^@@@[-151,151 P$ISDF @E@@@[ LMJ X11,SDFO$ TI )@@G@@ . SDFO$(IFCT,ERR); @^@@@[-173,173 P$ISDF @E@@@[ LMTJ )@@G@@J X11,SDFIC$ . SDFIC$(IFCT); @^@@@[-175 P$ISDTK )@@G@@F @F@@@[ SZ CPM . CP := NIL; (* FOR DTL )@@G@@IAG *)@^@@@[-182,183 P$ISDF @D@@@[ TG,U A1,WBUF TM )@@G@@ . IF (WP > 0) @ @@@[ J CLTHEN1 @^@@@[-185,1TN )@@G@@85 P$ISDF @E@@@[ TNE,U A1,CBUF+1 . OR (CTO )@@G@@P <> 1) THEN@^@@@[-187,187 P$ISDF @E@@@[CLTHEN1 S X10,TP )@@G@@FILEX10 . FILEX10 := X10; @^@@@[-195,1@I@[[[^@)^@)^@)^@)^@)^@)TQ )@@G@@^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[TR )@@G@@ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HTS )@@G@@DD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]TT )@@G@@C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.TU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.TV )@@G@@B*.B*.B*.B*.B*.B*.@M@][[DL[D( ES)^@)^@)^@) ))C1MCDICT ES)^@)^@)^[KCDODD TW )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)TX )@@G@@^@)A@5A8!BC4A*!A@0AC2 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK4 89A8)^@)@@@[[[TY )@@G@@@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.TZ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[DT D1IUA )@@G@@FC)^@)^@)^@) ))CTCCDMD- ES)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CUB )@@G@@FDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@5A8!BC4A*!A@1A*3 *0^@)ETKUC )@@G@@C(#DDHC(I^[^CDOC*'^@)AK\AK5 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.UD )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.UE )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E-OC(MD([D0)^@) ))D-PCTT^@)^@)^@)UF )@@G@@^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[DUG )@@G@@@G@[[[^@)^@)^@)A@5BC!BC4A*!A@0A@5 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK8 89UH )@@G@@A8)^@)@@@[[[@@@][[@G@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.UI )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.(C@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.UJ )@@G@@B*.B*.@M@][[E9DD-GDD[D(N^@)^@) ))C-JELDES)^@)^@)^@)^[KCDODD D1O^[DC)'^@)UK )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@5BC!BC4UL )@@G@@A*!A@0A@9 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK8 89A8)^@)@@@[[[@@@][[@O__[[UM )@@G@@^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)B@4@I@[[[^@)^@)^@)^@)^@)^@)UO )@@G@@^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[UP )@@G@@ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HUQ )@@G@@DD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]UR )@@G@@C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.US )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.UT )@@G@@B*.B*.B*.B*.B*.B*.@M@][[D-JE1DD1B^@)^@)^@) ))E1DELBDDIDD[^@)^@)^[KCDODD UU )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)UV )@@G@@^@)A@6AK!BC4A*!A@0A@4 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK8 89A8)^@)@@@[[[UW )@@G@@@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.UX )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[CDGE-DUY )@@G@@FL EK)^@)^@) ))CLDD-GDD ^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CUZ )@@G@@FDNDD#DD[D0)DD^BK)D(DELND[[DC)@G@[[[^@)^@)^@)A@6AK!BC4A*!A@0A@5 *0^@)ETKVA )@@G@@C(#DDHC(I^[^CDOC*'^@)AK\AK8 89A8)^@)@@@[[[@@@][[@#@][[B*.B*.B*.B*.B*.B*.VB )@@G@@(L@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.VC )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[DT E-OC(MD([D0)^@) ))D-PCTT^@)VD )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELNVE )@@G@@D[[D[D@G@[[[^@)^@)^@)A@6AS!BC4A*!A@0A@8 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\VF )@@G@@A@4 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.VG )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.VH )@@G@@B*.B*.@M@][[E9[E-FDDIES)^@)^@) ))D[ D1MFC)^@)^@)^@)^[KCDODD D1O^[DC)'^@2VI )@@G@@BC7AC)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6AS!BC4VJ )@@G@@A*!A@0AC4 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@3 89A8)^@)@@@[[[@@@][[@O__[[VK )@@G@@^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)B@5@I@[[[^@)^@)^@)^@)^@)^@)VM )@@G@@^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[VN )@@G@@ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HVO )@@G@@DD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]VP )@@G@@C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.VQ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.VR )@@G@@B*.B*.B*.B*.B*.B*.@M@][[D[JD-GCDIC))^@)^@) ))D[[ELMFC)^@)^@)^@)^[KCDODD VS )@@G@@D1O^[DC)'^@2BC4AK)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)FDJE(IC8)^@)@D@[[[^@)^@)VT )@@G@@^@)A@6AS!BC4A*!A@0AC7 *0^@)ETKC(#DDHC(I^[^CDOC*'(#@@[[^@)AS\A@3 89A8)^@)VU )@@G@@@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.VV )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[VW )@@G@@ELJD([D1#D[JCTF^@) ))E-CC(JC-JEL ^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)VX )@@G@@^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6AS!BC4A*!A@0AC8 *0VY )@@G@@^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@3 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.VZ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WA )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E(IC8)^@)^@)^@) ))D([ELT^@)WB )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@1A@3A*5^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELNWC )@@G@@D[[D[D@G@[[[^@)^@)^@)A@6A)!BC4A*!A@0A@6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\WD )@@G@@A@5 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WE )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WF )@@G@@B*.B*.@K@][[CL ELMFC)^@)^@)^@) ))E1 D1^CC)^@)^@)^@)^[KCDODD D1O^[DC)'^@)WG )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)@G@[[[^@)^@)^@)A@6A)!BC4A*!A@0A@7 *0WH )@@G@@^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@5 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89WI )@@G@@A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WJ )@@G@@^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)B@6@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WK )@@G@@^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@M@][[ [CCTMDDIC0!WL )@@G@@D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GWM )@@G@@D9BFC)CDIC))D[ E[[E-DE-D(]@@[[ES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[WN )@@G@@D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WP )@@G@@B*.B*.B*.B*.@K@][[C-[E1DES)^@)^@)^@) ))D1JEL[^@)^@)^@)^@)^[KCDODD D1O^[DWQ )@@G@@C)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)@G@[[[^@)^@)^@)A@6A)!BC4A*!A@0WR )@@G@@A@8 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@4 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.WS )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WT )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[ET CD]D9MD0)^@)^@) ))C9 WU )@@G@@D9MC9 ^@)^@)^@)^[KCDODD D1O^[DC)'^@1A@1AK3^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)WV )@@G@@D- E1DD0)^@)@G@[[[^@)^@)^@)A@6A)!BC4A*!A@0AC1 *0^@)ETKC(#DDHC(I^[^CDOC*'WW )@@G@@^@)AS\A@4 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WX )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.WY )@@G@@B*.B*.B*.B*.@M@][[ELDC9NCLT^@)^@)^@) ))ELPCLT^@)^@)^@)^@)^[KCDODD D1O^[DWZ )@@G@@C)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)C1 ELBE(ND9I@G@[[[^@)^@)^@)A@6XA )@@G@@A0!BC4A*!A@0AC8 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@6 89A8)^@)@@@[[[@@@][[XB )@@G@@@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.XC )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[DT D1IFC)^@)XD )@@G@@^@)^@) ))CTCCDMD- ES)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#XE )@@G@@DD[D0)DD^BK)D- E1DD0)^@)@B@[[[^@)^@)^@)A@6A0!BC4A*!A@0AS3 *0^@)ETKC(#DDHXF )@@G@@( @@[[C(I^[^CDOC*'^@)AS\A@6 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1XG )@@G@@A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XH )@@G@@^@)^@)^@)^@)^[KCDBC*)^@)^@)B@7@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GXI )@@G@@CD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)XJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)XK )@@G@@CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OXL )@@G@@D[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.XM )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.XN )@@G@@@M@][[D9OC(MD8)^@)^@)^@) ))C(HDDGDDJ^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)XO )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6BC!BC4A*!A@0XP )@@G@@A@3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC0 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.XQ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.XR )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E1DD1B^@)^@)^@) ))D([XS )@@G@@ELT^@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)XT )@@G@@D(DELND[[D[D@G@[[[^@)^@)^@)A@6BC!BC4A*!A@0AC0 *0^@)ETKC(#DDHC(I^[^CDOC*'XU )@@G@@^@)AS\AC0 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.XV )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.XW )@@G@@B*.B*.B*.B*.@L@][[C9GCD^C- D0)^@)^@) ))C(OD[ D))^@)^@)^@)^[KCDODD D1O^[DXX )@@G@@C)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1D([@@[[D0)^@)@G@[[[^@)^@)XY )@@G@@^@)A@6BC!BC4A*!A@0AC6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC0 89A8)^@)@@@[[[XZ )@@G@@@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YA )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D1 D-NYB )@@G@@D9I^@)^@)^@) ))D-[E(MCC)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CYC )@@G@@FDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7AK!BC4A*!A@0A@5 *0^@)ETKYD )@@G@@C(#DDHC(I^[^CDOC*'^@)AS\AC2 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1YE )@@G@@A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YF )@@G@@^@)^@)^@)^@)^[KCDBC*)^@)^@)B@8@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GYG )@@G@@CD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)YH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)YI )@@G@@CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OYJ )@@G@@D[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YK )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YL )@@G@@@M@][[D[JE[FDDIES)^@)^@) ))D[ D1MFC)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)YM )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7AK!BC4A*!A@0YN )@@G@@A@7 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC0 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.YO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YP )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@C@][[ELJD([D1#D[JCTF^@) ))E-CYQ )@@G@@C(JC-JEL ^@)^@)^[KCDODD (E@@[[D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)YR )@@G@@DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7AK!BC4A*!A@0AC4 *0^@)ETKC(#DDHC(I^[^YS )@@G@@CDOC*'^@)AS\AC3 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YT )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YU )@@G@@B*.B*.B*.B*.B*.B*.@L@][[ETOD9IC*)^@)^@)^@) ))D(TELJD0)^@)^@)^@)^[KCDODD YV )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)ELDFLF@G@[[[^@)^@)^@)A@7YW )@@G@@AS!BC4A*!A@0A03 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC4 89A8)^@)@@@[[[@@@][[YX )@@G@@@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.YY )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D-DD1^ET FC)YZ )@@G@@^@)^@) ))CT[ELMDD ^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#ZA )@@G@@DD[D0)DD^BK)D(DETCCDCDC)@G@[[[^@)^@)^@)A@7A*!BC4A*!A@0AC0 *0^@)ETKC(#DDHZB )@@G@@C(I^[^CDOC*'^@)AS\AC4 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C)ZC )@@G@@ *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZD )@@G@@^@)^@)^[KCDBC*)^@)^@)B@9@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MZE )@@G@@CDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)ZF )@@G@@^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))ZG )@@G@@D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- ZH )@@G@@F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ZI )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@@@][[ZJ )@@G@@(M@@[[E-DD(]C(MD-[DT ^@) ))E[CDDGDDK^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)ZK )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7A*!BC4A*!A@0ZL )@@G@@AC2 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC4 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.ZM )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ZN )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[ELJD([CTCE(#D@)^@) ))E-CZO )@@G@@C(JC1JEL ^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)ZP )@@G@@D- E1DD0)^@)@G@[[[^@)^@)^@)A@7A*!BC4A*!A@0AC3 *0^@)ETKC(#DDHC(I^[^CDOC*'ZQ )@@G@@^@)AS\AC4 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ZR )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ZS )@@G@@B*.B*.B*.B*.@M@][[DT E-OC(MD([D0)^@) ))D-PCTT^@)^@)^@)^@)^[KCDODD D1O^[DZT )@@G@@C)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@7ZU )@@G@@A8!BC4A*!A@0A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC7 89A8)^@)@@@[[[@@@][[ZV )@@G@@@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ZW )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[C9JDDJC-HCDIZX )@@G@@^@)^@) ))DLPCDIDDOCC)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#ZY )@@G@@DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@7A8!BC4A*!A@0AS8 *0^@)ETKC(#DDHZZ )@@G@@C(I^[^CDOC*'^@)AS\AC7 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C)AA )@@G@@ *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AB )@@G@@^@)^@)^[KCDBC*)^@)^@)BC0@#@[[[^@)^@)^@)^@)^@)^@)(F@@[[^@)^@)^@)^@)^@)^[GAC )@@G@@CD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)AD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)AE )@@G@@CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OAF )@@G@@D[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.AG )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.AH )@@G@@@M@][[D-DD1^ET FC)^@)^@) ))CT[ELMDD ^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)AI )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@7B@!BC4A*!A@0AJ )@@G@@A@9 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC8 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.AK )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.AL )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@K@][[C9 CD^C- D0)^@)^@) ))C(OAM )@@G@@D[ D))^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)AN )@@G@@@G@[[[^@)^@)^@)A@7B@!BC4A*!A@0AC0 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89AO )@@G@@A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.AP )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.AQ )@@G@@@M@][[D(#D(DD1I^@)^@)^@) ))C(GD-[^[C^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)AR )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)C1 ELBE(ND9I@G@[[[^@)^@)^@)A@7B@!BC4A*!A@0AS )@@G@@AC1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC8 89A8)^@)@@@[[[@@@][[@L@][[B*.B*.AT )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.AU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.(#@@[[B*.B*.B*.B*.B*.B*.@M@][[CDGE-DFL EK)^@)^@)AV )@@G@@ ))CLDD-GC*)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)AW )@@G@@DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@8A)!BC4A*!A@0AC6 *0^@)ETKC(#DDHC(I^[^AX )@@G@@CDOC*'^@)AS\AK5 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5AY )@@G@@BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AZ )@@G@@^[KCDBC*)^@)^@)BC1@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MBA )@@G@@FC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)BB )@@G@@^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[BC )@@G@@E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- F@)^@)BD )@@G@@@@@][[@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%BE )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A82BF )@@G@@AS1^@!^[MC(NE(GE))AC)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.BG )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.BH )@@G@@B*.B*.@M@][[D- E9DES)^@)^@)^@) ))CD^C-GDDIC*)^@)^@)^[KCDODD D1O^[DC)'^@)BI )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7B@!BC4BJ )@@G@@A*!A@3A@3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@[[[BK )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%BL )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A82AS2^@!^[MC(NBM )@@G@@E(GE))AK)^@)@D@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.BN )@@G@@(F@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.BO )@@G@@@M@][[D- E9DES)^@)^@)^@) ))CD^C-GDDIC*)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)BP )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@3BQ )@@G@@A@3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@[[[ K% K%BR )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%BS )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A82AS3^@!^[MC(NE(GE))BT )@@G@@AS)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.BU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E9DBV )@@G@@ES)^@)^@)^@) ))CD^C-GDDIC*)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CBW )@@G@@FDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@3A@3 *0^@)ETKBX )@@G@@C(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@[[[ K% K% K% K% K% K%BY )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%BZ )@@G@@ K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A82AS4^@!^[MC(NE(GE))A))^@)@O@][[CA )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.CB )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E9DES)^@)^@)^@)CC )@@G@@ ))CD^C-GDDIC*)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)CD )@@G@@DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@3A@3 *0^@)ETKC(#DDHC(I^[^CE )@@G@@CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@H@[[[ K% K% K% K% K% K% K% K% K% K%CF )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%(B@@[[ K% K% K% K% K% K%CG )@@G@@ K% K% K% K% K% K% K% K%@#@#[[BC9A82AS5^@!^@,^@)@O@][[B*.B*.B*.B*.B*.B*.CH )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.CI )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E9DES)^@)^@)^@) ))CD^C-GDDIC*)^@)CJ )@@G@@^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)CK )@@G@@@G@[[[^@)^@)^@)A@7B@!BC4A*!A@3A@3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89CL )@@G@@A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)CM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)BC2CN )@@G@@@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJCO )@@G@@D0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OCP )@@G@@D[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELOCQ )@@G@@@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@[[[ K% K%CR )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%CS )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A88A86^@!^[MC(NE(GE))CT )@@G@@AC)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.CU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[ET CD]CV )@@G@@D9MD0)^@)^@) ))C9 D9MC9 ^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CCW )@@G@@FDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6A*!BC4A*!A@5A@4 *0^@)ETKCX )@@G@@C(#DDHC(I^[^CDOC*'^@)AS\A@5 89A8)^@)@@@[[[@@@][[@B@][[B*.B*.B*.B*.B*.B*.CY )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.(H@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.CZ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGD-DDA )@@G@@E@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DDB )@@G@@D0)^@)@G@[[[^@)^@)^@)A@6B@!BC4A*!A@0A*3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\DC )@@G@@A@9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.DD )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.DE )@@G@@B*.B*.@M@][[D- E9DES)^@)^@)^@) ))CTGCDMCC)^@)^@)^@)^[KCDODD D1O^[DC)'^@2DF )@@G@@BC0A@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@7A@!BC4DG )@@G@@A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC1 89A8)^@)@@@[[[@@@][[@O__[[DH )@@G@@^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)BC3@I@[[[^@)^@)^@)^@)^@)^@)DJ )@@G@@^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[DK )@@G@@ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDL )@@G@@DD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]DM )@@G@@C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.DN )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.DO )@@G@@B*.B*.B*.B*.B*.B*.@M@][[DTDD1B^@)^@)^@)^@) ))D([FL[D- CDH^@)^@)^[KCDODD DP )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)FDJE(IC8)^@)@G@[[[^@)^@)DQ )@@G@@^@)A@7B@!BC4A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[DR )@@G@@@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.DS )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@N@][[E9[ETNDT )@@G@@E(H^@)^@)^@) ))C(^DDOD@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CDU )@@G@@FDNDD#DD[D0)DD^BK)C1[DDMCTGD9OD@)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5A@2 *0DV )@@G@@^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.DW )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.DX )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGDDKDY )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DDZ )@@G@@D0)^@)@G@[[[^@)^@)^@)A@7BC!BC4A*!A@5A@0 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\EA )@@G@@AK0 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.EB )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.EC )@@G@@B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KCDODD D1O^[DC)'^@)ED )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@8A)!BC4EE )@@G@@A*!A@5A@8 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AK5 89A8)^@)@@@[[[@@@][[@O__[[EF )@@G@@^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)BC4@I@[[[^@)^@)^@)^@)^@)^@)EH )@@G@@^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[EI )@@G@@ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HEJ )@@G@@DD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]EK )@@G@@C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@[[[ K% K% K% K% K% K% K% K% K% K%EL )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%EM )@@G@@ K% K% K% K% K% K%@ @#[[BC9A88A88^@!^[MC(NE(GE))AK)^@)@O@][[B*.B*.B*.B*.EN )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.EO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[ET CD]D9MD0)^@)^@) ))C9 D9MC9 EP )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DEQ )@@G@@D0)^@)@G@[[[^@)^@)^@)A@6A*!BC4A*!A@5A@4 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\ER )@@G@@A@5 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ES )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.ET )@@G@@B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KCDODD D1O^[DC)'^@)EU )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6B@!BC4EV )@@G@@A*!A@0A*3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@9 89A8)^@)@@@[[[@@@][[@O@][[EW )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.EX )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E9DES)^@)^@)^@)EY )@@G@@ ))CTGCDMCC)^@)^@)^@)^[KCDODD D1O^[DC)'^@2BC0A@)^@)^@)^@)E[CFDNDD#DD[D0)EZ )@@G@@DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@7A@!BC4A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^FA )@@G@@CDOC*'^@)AS\AC1 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5FB )@@G@@BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FC )@@G@@^[KCDBC*)^@)^@)BC5@@@[[[(I@@[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MFD )@@G@@CDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)FE )@@G@@^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))FF )@@G@@D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- FG )@@G@@F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.FH )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[FI )@@G@@DTDD1B^@)^@)^@)^@) ))D([FL[D- CDH^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)FJ )@@G@@^@)E[CFDNDD#DD[D0)DD^BK)FDJE(IC8)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5A@1 *0FK )@@G@@^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.FL )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.FM )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@N@][[E9[ETNE(H^@)^@)^@) ))C(^DDOD@)FN )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)C1[DDMFO )@@G@@CTGD9OD@)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5A@2 *0^@)ETKC(#DDHC(I^[^CDOC*'FP )@@G@@^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.FQ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.FR )@@G@@B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGDDK^@)^@)^@)^[KCDODD D1O^[DFS )@@G@@C)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7FT )@@G@@BC!BC4A*!A@5A@0 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AK0 89A8)^@)@@@[[[@@@][[FU )@@G@@@F@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.FV )@@G@@(D@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]FW )@@G@@C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFX )@@G@@FDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@8A)!BC4A*!A@5A@8 *0^@)ETKFY )@@G@@C(#DDHC(I^[^CDOC*'^@)AS\AK5 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1FZ )@@G@@A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GA )@@G@@^@)^@)^@)^@)^[KCDBC*)^@)^@)BC6@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GGB )@@G@@CD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)GC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)GD )@@G@@CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OGE )@@G@@D[KD- F@)^@)@@@][[@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%GF )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%GG )@@G@@@ @#[[BC9A88B@0^@!^[MC(NE(GE))AS)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.GH )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.GI )@@G@@B*.B*.B*.B*.B*.B*.@M@][[ET CD]D9MD0)^@)^@) ))C9 D9MC9 ^@)^@)^@)^[KCDODD GJ )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)GK )@@G@@^@)A@6A*!BC4A*!A@5A@4 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@5 89A8)^@)@@@[[[GL )@@G@@@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.GM )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@D@][[E-DD(]GN )@@G@@C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KCDODD D1O^[D(D@@[[C)'^@)^@)^@)^@)^@)GO )@@G@@^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6B@!BC4A*!A@0A*3 *0GP )@@G@@^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.GQ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.GR )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E9DES)^@)^@)^@) ))CTGCDMCC)GS )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@2BC0A@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELNGT )@@G@@D[[D[D@G@[[[^@)^@)^@)A@7A@!BC4A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\GU )@@G@@AC1 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)GV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)GW )@@G@@^@)BC7@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MGX )@@G@@CDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)GY )@@G@@D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL GZ )@@G@@E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[HA )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.HB )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[DTDD1B^@)^@)^@)^@)HC )@@G@@ ))D([FL[D- CDH^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)HD )@@G@@DD^BK)FDJE(IC8)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^HE )@@G@@CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.HF )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.HG )@@G@@B*.B*.B*.B*.B*.B*.@@@][[(N@@[[E9[ETNE(H^@)^@)^@) ))C(^DDOD@)^@)^@)^@)^[KHH )@@G@@CDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)C1[DDMCTGD9OD@)^@)HI )@@G@@@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5A@2 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89HJ )@@G@@A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.HK )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.HL )@@G@@@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGDDK^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)HM )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7BC!BC4A*!A@5HN )@@G@@A@0 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AK0 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.HO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.HP )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CHQ )@@G@@DDGD-DE@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)HR )@@G@@D- E1DD0)^@)@G@[[[^@)^@)^@)A@8A)!BC4A*!A@5A@8 *0^@)ETKC(#DDHC(I^[^CDOC*'HS )@@G@@^@)AS\AK5 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)HT )@@G@@E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBHU )@@G@@C*)^@)^@)BC8@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJHV )@@G@@ELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)HW )@@G@@^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DHX )@@G@@ES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[HY )@@G@@@F@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%HZ )@@G@@(D@@[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A88IA )@@G@@B@2^@!^[MC(NE(GE))A))^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IB )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IC )@@G@@B*.B*.@M@][[ET CD]D9MD0)^@)^@) ))C9 D9MC9 ^@)^@)^@)^[KCDODD D1O^[DC)'^@)ID )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6A*!BC4IE )@@G@@A*!A@5A@4 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@5 89A8)^@)@@@[[[@@@][[@O@][[IF )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IG )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@)IH )@@G@@ ))E[CDDGD-DE@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)II )@@G@@DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6B@!BC4A*!A@0A*3 *0^@)ETKC(#DDHC(I^[^IJ )@@G@@CDOC*'^@)AS\A@9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IK )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IL )@@G@@B*.B*.B*.B*.B*.B*.@M@][[D- E9DES)^@)^@)^@) ))CTGCDMCC)^@)^@)^@)^[KCDODD IM )@@G@@D1O^[DC)'^@2BC0A@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)IN )@@G@@^@)A@7A@!BC4A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC1 89A8)^@)@@@[[[IO )@@G@@@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)IP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)BC9@I@[[[^@)^@)IQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( IR )@@G@@ELDCT[@A@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)(I@@[[^@)^@)D(JD1OD[GFC)IS )@@G@@CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[IT )@@G@@A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.IU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IV )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[DTDD1B^@)^@)^@)^@) ))D([FL[D- IW )@@G@@CDH^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)FDJE(IIX )@@G@@C8)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\IY )@@G@@AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.IZ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.JA )@@G@@B*.B*.@N@][[E9[ETNE(H^@)^@)^@) ))C(^DDOD@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)JB )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)C1[DDMCTGD9OD@)^@)@G@[[[^@)^@)^@)A@7JC )@@G@@B@!BC4A*!A@5A@2 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[JD )@@G@@@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.JE )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[JF )@@G@@DT ^@) ))E[CDDGDDK^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#JG )@@G@@DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@7BC!BC4A*!A@5A@0 *0^@)ETKC(#DDHJH )@@G@@C(I^[^CDOC*'^@)AS\AK0 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.JI )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.JJ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.@F@][[E-DD(]C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KJK )@@G@@CDODD D1O^[DC)'^@)^@)^@)(B@@[[^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)JL )@@G@@@G@[[[^@)^@)^@)A@8A)!BC4A*!A@5A@8 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AK5 89JM )@@G@@A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)JN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@1A@0JO )@@G@@@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJJP )@@G@@D0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OJQ )@@G@@D[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELOJR )@@G@@@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OD[KD- F@)^@)@@@][[@O@[[[ K% K%JS )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%JT )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K%@#@#[[BC9A88B@4^@!^@,^@)@O@][[JU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.JV )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[ET CD]D9MD0)^@)^@)JW )@@G@@ ))C9 D9MC9 ^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)JX )@@G@@DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@6A*!BC4A*!A@5A@4 *0^@)ETKC(#DDHC(I^[^JY )@@G@@CDOC*'^@)AS\A@5 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.JZ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.KA )@@G@@B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KCDODD KB )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)KC )@@G@@^@)A@6B@!BC4A*!A@0A*3 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\A@9 89A8)^@)@@@[[[KD )@@G@@@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.KE )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[D- E9DKF )@@G@@ES)^@)^@)^@) ))CTGCDMCC)^@)^@)^@)^[KCDODD D1O^[DC)'^@2BC0A@)^@)^@)^@)E[CKG )@@G@@FDNDD#DD[D0)DD^BK)D(DELND[[D[D@G@[[[^@)^@)^@)A@7A@!BC4A*!A@5A@1 *0^@)ETKKH )@@G@@C(#DDHC(I^[^CDOC*'^@)AS\AC1 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1KI )@@G@@A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KJ )@@G@@^@)^@)^@)^@)^[KCDBC*)^@)^@1A@1@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GKK )@@G@@CD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)KL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)KM )@@G@@CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CC([D-OKN )@@G@@D[KD- F@)^@)@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.KO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.KP )@@G@@@M@][[DTDD1B^@)^@)^@)^@) ))D([FL[D- CDH^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)KQ )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)FDJE(IC8)^@)@G@[[[^@)^@)^@)A@7B@!BC4A*!A@5KR )@@G@@A@1 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.KS )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.KT )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@N@][[E9[ETNE(H^@)^@)^@) ))C(^KU )@@G@@DDOD@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)KV )@@G@@C1[DDMCTGD9OD@)^@)@^@[[[^@)^@)^@)A@7B@!BC4A*!A@5(C@@[[A@2 *0^@)ETKC(#DDHKW )@@G@@C(I^[^CDOC*'^@)AS\AC9 89A8)^@)@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.KX )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.KY )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E-DD(]C(MD-[DT ^@) ))E[CDDGDDK^@)^@)^@)^[KKZ )@@G@@CDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[LA )@@G@@^@)^@)^@)A@7BC!BC4A*!A@5A@0 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AK0 89A8)^@)LB )@@G@@@@@[[[@@@][[@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.LC )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[LD )@@G@@E-DD(]C(MD-[DT ^@) ))E[CDDGD-DE@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)LE )@@G@@^@)E[CFDNDD#DD[D0)DD^BK)D- E1DD0)^@)@G@[[[^@)^@)^@)A@8A)!BC4A*!A@5A@8 *0LF )@@G@@^@)ETKC(#DDHC(I^[^CDOC*'^@)AS\AK5 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89LG )@@G@@A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LH )@@G@@^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@1A@2@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LI )@@G@@^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!LJ )@@G@@D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GLK )@@G@@D9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@C@][[A)5B@1AC6A00^@!^[]C(OD[[D1T^[CLL )@@G@@C([D-OD[KD- F@)^@)@[__[[^@)^@)@I@][[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)D([D1JEK)CT[EL ^@)@M@[[[^@)^@)^@)^@)^@)^@)LN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CDOE-I^[]D9ID1DC*)E-DD-GLO )@@G@@C(M^[^ 1J 1I 0)^@)@@@[[[(K@@[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)AK1AK5^[CDDGD-DCDMC))ELJCD^^@)@M@[[[^@)^@)^@)^@)LQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ELDCTCD(JD1^^@)^@)LR )@@G@@^@)^@) ))E1[^@)AK3AK2B@)@F@H[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LS )@@G@@^@)^@)^@)^@)C(ICTGD9NC(^@O@][[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LT )@@G@@D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL LU )@@G@@E[JELO@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[CC(KCDODDODDN 9HDD#ELJLV )@@G@@CLDD9GD9BFC)EL ETPD-OES)@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)LW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)LX )@@G@@^@)^@1@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MLY )@@G@@CDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)LZ )@@G@@D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL MA )@@G@@E[JELO@L@][[A)5B@1AC6A05^@!^[HCDID9M^[#CDMC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)MB )@@G@@^@)CDOE-I^[]D9ID1DC*)E-DD-GC(M^[^ 1J 1I 0)@N@[[[^@)^@)^@)^@)^@)^@2AC2A*)MC )@@G@@D[DD-GDD[EL^^[MD9[C))^@)^@)^@)^@)^@)^@)^@)^@)^[MDD#D[HD9IC))^@)^@)^@)^@)MD )@@G@@^[QCC)AK3AK2B@!^@)@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%ME )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%MF )@@G@@@C@#[[A@0B@5A*7^@!^[ D1QDDMD9ID( D1OCDG^[#E(GE-PEL ^@)@I@][[B*.B*.B*.B*.MG )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.MH )@@G@@(A@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@K@][[E9CDDMD-KD9JD))^@) ))^@)MI )@@G@@^@)^@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)MJ )@@G@@@G@[[[^@)^@)^@)A@5A*!BC4A*!A@5A@6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK4 89MK )@@G@@A8)^@)@@@[[[@^@][[^@)^@)C1DD1[D))EL E[JELO@@@[[[@F@[[[^@)^@)D1J^[BELJE9OML )@@G@@D@)CDAE- EK)A)8^[CD9PELN^[JC0)DDICTPCL[E-DD9I 0)@@@[[[@O@[[[ K% K% K% K%MM )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%MN )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K%@C@#[[A@0B@8A)7^@!^[PELDD1 ^[#E(GE-PMO )@@G@@EL ))ELJE(ODDIC*)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.MP )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.MQ )@@G@@@M@][[E9CDDOC*)^@)^@)^@) ))DLJD[I^[ C))^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)MR )@@G@@^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)CT[E[KC(GD-J@G@[[[^@)^@)^@)A@5A)!BC4A*!A@0MS )@@G@@A)6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK1 89A8)^@)@@@[[[@^@][[^@)^@)C1DD1[MT )@@G@@D))EL E[JELO@N@[[[^@)^@)FD CDNE))^[DETJD-[E- C),^@)^@)^@)^@)^@)^@)^@)^@)MU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@,^@)@O@[[[^@)^@)MV )@@G@@^@)^@)^@7A@?A@0A@)CTJD-JD1DC(N 9HD))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)@M@[[[^@)^@)^@)^@)^[MC(LE( ETOMX )@@G@@^[AD9M^[AE(ME-CC(M^[DC- D1ODDADD#CDODDJD0)D(PETO^[]C*)D([C- ^[RDDOD[DD0)MY )@@G@@AC)E9 C(F 0)@B@[[[^@)^@)CTJELTD1 CL[CTOC(MDDPD*)ETKC(#DD ES)@D@[[[^@)^@)MZ )@@G@@^@)^@)^@1A@?A@0A@)CTJD-JD1DC(N 9HD))^@)^@)^@)^@)(F@@[[^@)^@)^@)^@)^@)^@)NA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)@L@[[[^@)^@)^@)^@)^[^DDNNB )@@G@@DS)C-DC1AE(NDDJD0)ETPET#C(KE-DCLDD-DE-T^[NE-PC-DC(N^[RC(MC*)D1JE))E[ ELANC )@@G@@D9MD( C))^@)@K@[[[^@)^@)^@)^@)^[JD0)E-CDDN^[JELBCDIDDND*,^@)E-CC(MC*)CDMND )@@G@@C*)D1J^[ICT#D-N^[DD1OC(ME[MC(OCDODDQC*)^@)@E@[[[^@)^@)^@)^@)^[NE-[D1^CDMNE )@@G@@C-N^[AD9M^[OD[DES)D9MC9[D1DETH 0)^@)@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5NF )@@G@@BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NG )@@G@@^[KCDBC*)^@)^@)^@2@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MNH )@@G@@FC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)NI )@@G@@^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[NJ )@@G@@E-DE-DES)EL E[JELO@L@][[A)5B@1AC6A05^@!^[HCDID9M^[#CDMC*)^@)^@)^@)^@)^@)NK )@@G@@^@)^@)^@)^@)^@)CDOE-I^[]D9ID1DC*)E-DD-GC(M^[^ 1J 1I 0)@@@][[@O@[[[ K% K%NL )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%NM )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[A@8A@1A)0^@!^[MC(NE(GE))NN )@@G@@AC)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.NO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@K@][[E9CDDMNP )@@G@@D-KD9JD))^@) ))^@)^@)^@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CNQ )@@G@@FDNDD#DD[D0)DD^BK)@G@[[[^@)^@)^@)A@5A*!BC4A*!A@5A@6 *0^@)ETKC(#DDHC(I^[^NR )@@G@@CDOC*'^@)AK\AK4 89A8)^@)@@@[[[@@@][[@D@[[[ K% K% K% K% K% K% K% K% K% K%NS )@@G@@ K% K% K% K% K% K% K% K%(F@@[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K%NT )@@G@@ K% K% K% K% K% K% K% K%@ @#[[A@8A@1A)1^@!^[MC(NE(GE))AK)^@)@O@][[B*.B*.NU )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.NV )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@K@][[E9CDDMD-KD9JD))^@) ))^@)NW )@@G@@^@)^@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)NX )@@G@@@G@[[[^@)^@)^@)A@5A*!BC4A*!A@5A@6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK4 89NY )@@G@@A8)^@)@@@[[[@@@][[@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%NZ )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%OA )@@G@@@ @#[[A@8A@1A)2^@!^[MC(NE(GE))AS)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.OB )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.OC )@@G@@B*.B*.B*.B*.B*.B*.@K@][[E9CDDMD-KD9JD))^@) ))^@)^@)^@)^@)^@)^@)^[KCDODD OD )@@G@@D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)@G@[[[^@)^@)^@)A@5A*!BC4OE )@@G@@A*!A@5A@6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK4 89A8)^@)@@@[[[@@@][[@O@[[[OF )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%OG )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[A@8A@1A)4^@!^[MC(NOH )@@G@@E(GE))A))^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.OI )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@K@][[OJ )@@G@@E9CDDMD-KD9JD))^@) ))^@)^@)^@)^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)OK )@@G@@^@)E[CFDNDD#DD[D0)DD^BK)@B@[[[^@)^@)^@)A@5A*!BC4A*!A@5A@6 *0^@)ETKC(#DDHOL )@@G@@( @@[[C(I^[^CDOC*'^@)AK\AK4 89A8)^@)@@@[[[@@@][[@O@[[[ K% K% K% K% K% K%OM )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%ON )@@G@@ K% K% K% K% K% K% K% K% K% K%@#@#[[A@8A@1A)5^@!^@,^@)@O@][[B*.B*.B*.B*.OO )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.OP )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@K@][[E9CDDMD-KD9JD))^@) ))^@)^@)^@)OQ )@@G@@^@)^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)@G@[[[OR )@@G@@^@)^@)^@)A@5A*!BC4A*!A@5A@6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK4 89A8)^@)OS )@@G@@@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C) *)^@5BK0BC)E[H^@)^@)^@)^@)^@)OT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KCDBC*)^@)^@)^@3@I@[[[OU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MCDOD9MFC)CTJELKD9MCDODDJD0)D9AOV )@@G@@^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)OW )@@G@@CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))D[ E[[E-DE-DES)EL E[JELO@L@][[OX )@@G@@A)5B@1AC6A05^@!^[HCDID9M^[#CDMC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CDOE-I^[]OY )@@G@@D9ID1DC*)E-DD-GC(M^[^ 1J 1I 0)@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K%OZ )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%PA )@@G@@ K% K% K% K%@ @#[[BC9A81AS1^@!^[MC(NE(GE))AC)^@)@O@][[B*.B*.B*.B*.B*.B*.PB )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.PC )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@I@][[E9CDDOC*)^@)^@)^@) ))DLJD[I^[ C))^@)PD )@@G@@^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#(^@@[[DD[D0)DD^BK)CT[E[KPE )@@G@@C(GD-J@G@[[[^@)^@)^@)A@5A)!BC4A*!A@0A)6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\PF )@@G@@AK1 89A8)^@)@@@[[[@@@][[@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K%PG )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%PH )@@G@@ K% K%@ @#[[BC9A81AS2^@!^[MC(NE(GE))AK)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.PI )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.PJ )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E9CDDOC*)^@)^@)^@) ))DLJD[I^[ C))^@)^@)^[KPK )@@G@@CDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)CT[E[KC(GD-J@G@[[[PL )@@G@@^@)^@)^@)A@5A)!BC4A*!A@0A)6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK1 89A8)^@)PM )@@G@@@@@[[[@@@][[@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%PN )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[PO )@@G@@BC9A81AS3^@!^[MC(NE(GE))AS)^@)@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.PP )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.PQ )@@G@@B*.B*.B*.B*.@M@][[E9CDDOC*)^@)^@)^@) ))DLJD[I^[ C))^@)^@)^[KCDODD D1O^[DPR )@@G@@C)'^@)^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)CT[E[KC(GD-J@G@[[[^@)^@)^@)A@5PS )@@G@@A)!BC4A*!A@0A)6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK1 89A8)^@)@@@[[[@@@][[PT )@@G@@@O@[[[ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%PU )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@ @#[[BC9A81AS4^@!PV )@@G@@^[MC(NE(GE))A))^@)@G@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.PW )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.(C@@[[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.PX )@@G@@B*.B*.@M@][[E9CDDOC*)^@)^@)^@) ))DLJD[I^[ C))^@)^@)^[KCDODD D1O^[DC)'^@)PY )@@G@@^@)^@)^@)^@)^@)E[CFDNDD#DD[D0)DD^BK)CT[E[KC(GD-J@G@[[[^@)^@)^@)A@5A)!BC4PZ )@@G@@A*!A@0A)6 *0^@)ETKC(#DDHC(I^[^CDOC*'^@)AK\AK1 89A8)^@)@@@[[[@@@][[@O@[[[QA )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%QB )@@G@@ K% K% K% K% K% K% K% K% K% K% K% K% K% K% K% K%@#@#[[BC9A81AS5^@!^@,^@)QC )@@G@@@O@][[B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.QD )@@G@@B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.B*.@M@][[E9CDDOC*)^@)QE )@@G@@^@)^@) ))DLJD[I^[ C))^@)^@)^[KCDODD D1O^[DC)'^@)^@)^@)^@)^@)^@)E[CFDNDD#QF )@@G@@DD[D0)DD^BK)CT[E[KC(GD-J@G@[[[^@)^@)^@)A@5A)!BC4A*!A@0A)6 *0^@)ETKC(#DDHQG )@@G@@C(I^[^CDOC*'^@)AK\AK1 89A8)^@)@@@[[[@@@][[@O__[[^@)A)\AC8 89A8) @1A@8 C)QH )@@G@@ *)^@5BK0BC)E[H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QI )@@G@@^@)^@)^[KCDBC*)^@)^@)^@4@I@[[[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[GCD]D9MQJ )@@G@@CDOD9MFC)CTJELKD9MCDODDJD0)D9A^[[D( ELDCT[@O@][[ [CCTMDDIC0!D*(^@)^@)^@)QK )@@G@@^@)^@)^@)^@)^@)^@)D(JD1OD[GFC)CTPD(PD-[E-DE1 ^[HDD#ELJCLDD9GD9BFC)CDIC))QL )@@G@@D[ E[[E-DE-DES)EL E[JELO@L@][[A)5B@1AC6A05^@!^[HCDID9M^[#CDMC*)^@)^@)^@)QM )@@G@@^@)^@)^@)^@)^@)^@)^@)CDOE-I^[]D9ID1DC*)E-DD-GC(M^[^ 1J 1I 0)@[__[[^@)^@)QN )@@G@@@N@][[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QO )@@G@@E9 ETOD(DD1DETOC(M^[#CDIE- EL]E(MFC)D[JE(NC*)^@)@#@[[[^@)^@)^@)^@)^@)^@)QP )@@G@@@@0@@@@@@@@@@@@@@@@@@@@@@@+@[O@@&@@@@@@@@U@@@@@@@@@@@@@@\@@@@@@@@@@@@@@@QQ )@@G@@@@@@@D@@@@@@@@@@@@@@@@@@@@F@@)@@@@@@@@@@@6@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[K@@@@@@@@@@@>@@@@@@@@L@@1@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@!@@@@@@@[I@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@S@@@@@@@@@@@@@@@@@7@@@QT )@@G@@@@@@@:@@@@@@@@@@@@@@"@@@@@@@@A@[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@(@@@QU )@@G@@@@@@@P@@@@@V@@@@@ @@X@@@@@@@@T@[F@@@@@@@[]@@@@@K@@@@@5@@@@@H@@@@@2@@@@@@QV )@@G@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@[#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@[PQW )@@G@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@R@@@@@,@@N@@@@@@@@]@@@@@@@@@@[L@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@G@@[@[ @@@@@@@@8@@@@@@@@@@@@@[A@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@$@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@Y@@J@@@@@<@[N@@I@@@@@/@@'@@ERA )@@G@@@@3@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@[PUPA8 @@W@[M@@@@@@RB )@@G@@UPB8 @@W@@@@@@@@@UPC8 @@W@@@@@@@@@UPD8 @@W@@4@@@@@@RC )@@G@@UPE8 @@W@[B@@@@@@UPF8 @@W@@Z@@@@@@UPG8 @@W@@@@@@@@@RD )@@G@@UPI8 @@W@@@@@@@@@UPJ8 @@W@@@@@@@@@ERROR8 @@W@@=@@@@@@RE )@@G@@ERSET8 @@W@@@@@@@@@ERRST8 @@W@@@@@@@@@OFEXT8 @@W@@@@@@@@@RF )@@G@@OFRTN8 @@W@@@@@@@@@PACK12 @@W@@@@@@@@@CHKNUM @@W@@@@@@@@@RG )@@G@@CHKLET @@W@@@@@@@@@CHKCC @@X@@@@@@@@@CTCDIT @@Y@@@@@@@@@RH )@@G@@DCT8 @@Z@@@@@@@@@READ @@)@@@@@@@@@CSF @@)@@%@@@@@@RI )@@G@@DRMWT8 @@)@@@@@@@@@OBTAN8 @@)@@@@@@@@@GETOUT @@)@@@@@@@@@RJ )@@G@@ASGTCT @@)@@@@@@@@@CHKASG @@)@@@@@@@@@FINDER @@-@@@@@@@@@RK )@@G@@HEAD1 @@+@@@@@@@@@HEAD2 @@<@[D@@@@@@HEAD3 @@=@@@@@@@@@RL )@@G@@IDLIN @@>@@*@@@@@@IDBUFF @@>@@?@@@@@@ISDFIO @@&@@@@@@@@@RM )@@G@@ISDFI @@&@@@@@@@@@ISDFIC @@&@@@@@@@@@ITF @@$@[@@@@@@@RN )@@G@@MEMSQ$ @@*@@@@@@@@@NINTR$ @@*@@@@@@@@@NERR$ @@*@@9@@@@@@RO )@@G@@NERR2$ @@*@@;@@@@@@NERR3$ @@*@@@@@@@@@NERR4$ @@*@[G@@@@@@RP )@@G@@NERR5$ @@*@[H@@@@@@NERR6$ @@*@@@@@@@@@EXIT @@*@@@@@@@@@RQ )@@G@@NSTOP$ @@*@@@@@@@@@FORMAIN$ @@(@@@@@@@@@MRGHD @@%@[^@@@@@@RR )@@G@@MRG8 @@:@@@@@@@@@OPRIME @@?@@@@@@@@@OPRINT @@?@@@@@@@@@RS )@@G@@OPUNCH @@?@@@@@@@@@OPCHAR @@?@@@@@@@@@OPCOL @@?@@@@@@@@@RT )@@G@@OPAF @@?@@@@@@@@@OPAFP @@?@@@@@@@@@OPA @@?@@@@@@@@@RU )@@G@@OPAP @@?@@@@@@@@@OPO @@?@@@@@@@@@OPOP @@?@[[@@@@@@RV )@@G@@OPI @@?@@@@@@@@@OPIP @@?@@@@@@@@@OPK @@?@@@@@@@@@RW )@@G@@OPFLG @@?@@@@@@@@@OPRNT @@?@@@@@@@@@OPBLK @@?@@@@@@@@@RX )@@G@@PRINT @@!@@@@@@@@@PROCIT @@,@[J@@@@@@PROCRD @@,@@@@@@@@@RY )@@G@@PRTERR @@\@[C@@@@@@RDS1 @@0@@@@@@@@@RDS2 @@0@@@@@@@@@RZ )@@G@@RDS3 @@0@@@@@@@@@SQUASH @@1@@@@@@@@@MULTY @@1@@@@@@@@@SA )@@G@@TBL1 @@2@@@@@@@@@TBL2 @@2@@@@@@@@@TBL3 @@2@@@@@@@@@SB )@@G@@TBL4 @@2@@@@@@@@@TBL5 @@2@@@@@@@@@TPROC @@3@@@@@@@@@SC )@@G@@IRFTI @@6@@@@@@@@@IRPFPT @@6@@@@@@@@@IFPTIS @@6@@@@@@@@@SD )@@G@@@@@ J"@@@ J @B) K#R@K L#N8LALB^^K[XZ/,0@H0@@@ JU@@@[XZ@@@ JP@B- K#R@K L#SE )@@G@@N8LAL]^^K[X$/,0@H0@@@ J_@@@[X$@@@ JR@@@ JS@@@ JC@B+ K#/,0@H0@@@ K@@@@ L SF )@@G@@@@@ JN@B< K#/,0@HZ@B= K#C@@ LCG/@__";O@@@=W/@@@ER/K@@[[@@@[^A@K LOR@) K/SG )@@G@@N8M LO^^K[X_/,0@H0@@@ JM@@@[X_@@@ JN@B* K#/,0@H0@@@ JV@@@ AH@@@ JN@B( K#SH )@@G@@C@@ LOH@@ LCG/@__"]@@ LFC/@@@E!@@ LF/K@[YKC/@@@E[@@ LFN8L^6=^^K[YO/,0@H0SI )@@G@@@@@ JW@@@[YO@@@ JN@@@ LF@@@ JB@B! K#/,0@HZ@B, K#O/K@@E8L@[X9N@0[YZ/K@[Y)SJ )@@G@@@B1 K#RA0 K^R@K K%R@) K:N[@ K?/K@PK[AA0 K^A@K K%A@) K:^[@ K?/K@[W_/K@[G(SK )@@G@@C8FK@@[^@[ID[^@[IPC@VK@[[@K KAC8FK@][^@[H7[^@[JV[^@[JH[^@[HT[^@[J2C@VK@#SL )@@G@@[@K KBC@VK@^[@K KEC@VK@ [@K KD/K@[HLC@VK@@[@K KAC8FK@[[^@[H7[^@[JV[^@[JHSM )@@G@@[^@[HT[^@[J2C@VK@][@K KBC@VK@#[@K KD/K@[I\C@VK@@[@K KAC8FK@[[^@[H7[^@[JVSN )@@G@@[^@[JH[^@[HT[^@[J2/K@[J-/K@[K[R;@@[C9?0D.7E@VK@@;GK@@=W8K@@EG9I@@:;^0@@ASO )@@G@@P;@@@A/^K[ZRR#VK@@/CK[Z-/@K[Z-G9@@@W;^/@@@9*;K@[/KF@@#C9K@@@R#@^S/P;@@@ASP )@@G@@/G@[Z'!8@@@T/K@[Z'RB?D"#RFWD"#/K@[Z,O;)@@[8#K[Z0/K@[Z'R7"@@@C[J^S;%1I@@@SQ )@@G@@/K@[Z!R\"@@@/@0[Z9C[J^S;%(I@@@/K@[Z!CPY@@@[[VK@@/KF@@]C/@@@[C@:K@@G/)__"SR )@@G@@*@@@@I1@@@@I @@@@GC/)@@[C.@@@IH[FK@@*@@@@K1@@@@K @@@@I)@@@@I/=K[-L/,0@H6SS )@@G@@@@@D_<@@@^4/@[:D_%C@@D_!T/@@@BG/@@@[[@@D_3R@KD_3O/K__"N8L^4/^^K[)T/,0@H8ST )@@G@@@@@D_=@@@D_>@@@[)T@[!D_%D@@^S9*@@@@G1@@@@G/K@[-LC@@D_&[@@D_4C@)^S9G/)__"SU )@@G@@R/K@@[[@)@[^A@KD_5C@[^S;[4@D_4C@)D_5;O)@@=W/)@]][@0D_6D@@D_6/C@[)0*@@@@GSV )@@G@@/K@[)7/,0@H2@@@D_=@@@D_$@@@D_4@@@D_=@[8D_%/K@[- C@@D_6%/@@@[/K@[-@/,0@H0SW )@@G@@@@@D_<@@@D_4@@@D_=@[/D_%/K@[- /,0@H0@@@D_6@@@D_4@@@D_=@["D_%O/K@@[8L@[)>SX )@@G@@(@@D_6/K@[-LC@@D_6G/@@@[[@@D_,/,0@H8@@@D_=@@@D_,@@@D_-@]#D_%/,0@Y=@] D_%SY )@@G@@N@0[-P/K@[-Q@]AD_%RA0D_:R@KD_\N[@D_0/K@T_*AA0D_:A@KD_\^[@D_0C@VK@@[@KD_!SZ )@@G@@/K@[Z//,0@H8@@@E@J@@@E@K@@@D_7@[FE@Z/,0@H8@@@E@L@@@E@M@@@D_9@[GE@ZR@KE@NTA )@@G@@R@)E@OR@0E@PN.@@@D/,0@H6@@@E@K@@@D__@[KE@ZN8N%@(^^K[-6/,0@H6@@@E@Q@@@[-6TB )@@G@@@[LE@ZN8M%[Z^^K[-//,0@H6@@@E@R@@@[-/@[ME@ZN8L%]U^^K[+#/,0@H8@@@E@L@@@E@STC )@@G@@@@@[+#@[NE@Z8L@[-,/,0@H6@@@E@K@@@E@[@[QE@Z/,0@H6@@@E@T@@@E@^@[RE@Z/,0@H6TD )@@G@@@@@E@U@@@E@A@[SE@Z/,0@H8@@@E@V@@@E@W@@@E@C@[TE@Z/,0@H8@@@E@L@@@E@K@@@E@HTE )@@G@@@[UE@ZN@0[+Y/K@[+Z@[VE@ZRA0E@)R@KE@+R@)E@/K@U@XAA0E@)A@KE@+TF )@@G@@A@)E@/K@[-)/,0@H8@@@E#"@@@E#_@@@E#$@[JE^H/,0@H8@@@E^@@@@E^[TG )@@G@@@@@E#(@[KE^HR@KE^]R@)E^#N.@@@[/,0@H6@@@E#_@@@E#2@[OE^HN8L%^Q^^K[<@/,0@H6TH )@@G@@@@@E^^@@@[<@@[PE^HN8M%^Z^^K[E^HRA0E^IR@KE^KR@)E^LN[@E^M/K@U^FTM )@@G@@AA0E^IA@KE^KA@)E^L^[@E^M/K@[+:/,0@H8@@@E 3@@@E 4@@@E S@#;E //,0@H8@@@E 5TN )@@G@@@@@E 6@@@E U@#/E //,0@H8@@@E 5@@@E 7@@@E )@#.E /C/@@@J[@@EAAD@@E _*@@@@GTO )@@G@@1@@@@G/K@[=RC/@@@<[@@EAAD@@EA@*@@@@G1@@@@G/K@[=XC/@@@7[@@EAAC@@EAAG/@__"TP )@@G@@R/K@@[[@@@[^A@KEABC@@EAB;O@@@=W/@@@ [@KEACC@-EB1[@)EAD/@)[>K/G)[>KR@)EADTQ )@@G@@O/)__"A@)EA[C@@EAC%/@@@[/K@[=6C/@@@A[@@EAE/,0@H6@@@E 4@@@E \@^HE /C@@EACTR )@@G@@%/@@@]/K@[=;C/@@@W[@@EAEC@@EAC%/@@@#/K@[>@C/@@@4[@@EAEC@@EAC%/@@@^/K@[> TS )@@G@@C/@@[F[@@EAE*@@EAC/K@[>DC/@@[+[@@EAER@)EA[N8MEAF^^K[>I/,0@H6@@@EAE@@@[>ITT )@@G@@@^QE /*@@EAC/K@[>P/,0@HV@@@E 5@^SE /O/K@@[8L@[=-/,0@H8@@@E 8@@@E 9@@@E 1TU )@@G@@@^VE /N@0[>Y/K@[>Z@^WE /RA0E .R@KEA]R@)EA#N[@EA^/K@U 'AA0E .A@KEA]A@)EA#TV )@@G@@^[@EA^C@VK@@[@KE _C@VK@[[@KEA@/K@[=@C@@EC3R@KEDA[@[@@@[@[@@[C@)EC4R@KEDBTW )@@G@@[@-@@@[@[@@[R@KEDC[@[@@@[@[@@[R@KEDD[@[@@@[@[@@[ @@@@@C.@@@^[1@@@@C[:K@]TX )@@G@@G.)@@[[[)@@@D@FK@]/C@[& *@@@@G/K@[&)/,0@H6@@@EC5@@@^4/@[NED#/,0@H6@@@EC6TY )@@G@@@@@EC(@[OED#D@@EDF*@@@@G1@@@@G/K@[&Q/,0@H0@@@EC7@@@@@@@@@EC8@[QED#/,0@HVTZ )@@G@@@@@EC9@[RED#/,0@H8@@@EC9@@@EC5@@@EC\@[SED#/,0@Y=@[TED# @@EDM @@EDN @@EDOUA )@@G@@ @@EDPC@@EDFG/@__"C_)@@[R@KEDE[@@@[^[#)EDQC/@@@[H@@EDQ/C@[&\*@@@@G/K@[$CUB )@@G@@/,0@G[@@@EC1@@@EC'@@@EDS@@@EC;@@@EC/@[ED#C@@EDR[*@@@@/K@[(Q/,0@Y'@@@EDS@@@@@@@]*ED#C@@EDR[?@@@@N@0[(SUP )@@G@@/K@[(T@]%ED#RA0ED^C[)EDGC#)EDHR@KEDIR@)EDJN[@EDK/K@UD[AA0ED^[[)EDG[#)EDHUQ )@@G@@A@KEDIA@)EDJ^[@EDKC8FK@@[^@[&NC8FK@[[@@EDEC@VK@][@KEDFC8FK@#[@@EDA[^@[$SUR )@@G@@C8FK@^[^@[$8[@@EDBC8FK@ [@@EDC[^@[*G[^@[(MC8FK@A[^@[(F[@@EDD[^@[**C8FK@BUS )@@G@@[^@[*,[^@[&@C8FK@C[^@[(I[^@[$L[^@[$V[^@[>;[^@[*:[^@[>.[^@[(P[^@[$;[^@[*JUT )@@G@@/K@[>!9?FK@@9*@ED=9*@ED\ @@ED_C4FK@[?8@@@A/K@[%YA]0ED_9?FK@[9*@ED19?FK@]UU )@@G@@9*@ED5C@@ED;[@@ED4C8@ED\'=@@[ [@:K@A*@@@@I/KFK@BC@@ED9[@@ED(/K@[%Z @@ED(UV )@@G@@C@F@@#[C@ED%C@F@@^[^@ED%C@FK@ ;G@@@=W8@@@W[C@ED:T8@@@W[C@ED*A]0ED/C8@ED=UW )@@G@@/,0@U!/K@[%\R]0ED//KF@@DR]0ED/G9K@[@[[VK@A/KFK@BC@F@@@[^@ED?C@VK@[[^KED:UX )@@G@@/@K[%_/GK[%_;CK@@[H8K@@[&;@@@];G)@[C9*?)@@8#K[%.A]0ED.C8@ED=/,0@TV/K@[%\UY )@@G@@/K@[:GR]0ED.C4@ED,/^@[%3(@@ED_/KF@@^**@ED,/K@[%3/KF@@^R]0ED./KFK@]A]0ED.UZ )@@G@@C8@ED=/,0@V@R]0ED./KF@@[ @@ AM @@ AN @@ AO @@ AP @@ AQ @@ AR @@ ASC/@@@[VA )@@G@@[@@ AT @@ AU @@ AV @@^]/ @@ A) @@ A- @@ AL/,0@XN@@@^6>@@@^7]@[YEFK @@EFUVB )@@G@@R/K@@[N.@@[[C@[^7[:/@@@ /K@[:2C@@EFUG/@@@[[@@EFUR@)EFUC@-^7[[@+^7[O/K@@[VC )@@G@@8L@[:(C@@EFU[@@EFWG/@@@[[@@EFXR@)EFXN8M^7[^^K[?[C@)EFUG/)_".]@)EFN/,0@G[VD )@@G@@@@@EE.@@@EE"@@@[?[@@@EE_@@@EFN@[:EFKC@@^7]%/@@@*/K@[?MC@@^7#%/@@@M/K@[?JVE )@@G@@C8)@@]N@0[?I/K@[10@[\EFKN@0[?L/K@[14@[0EFK @@EFY/,0[()@@@^6>@@@^7]@@@EFWVF )@@G@@@@@EF*@@@ AY@@@ AH@@@ AJ@@@EFY@@@EFZ@[2EFK/,0@H6@@@EF@@@@EE@@[3EFKC4@EFZVG )@@G@@[@@EF)C))EFZ[@)EF-C.@@@[[[@EF+D@@EF-*@@@@G1@@@@G/K@[!@D@@EF)*@@@@G1@@@@GVH )@@G@@/K@[?8/,0@H0@@@EE_@@@EF*@@@EF)@[;EFKC@@EF)G@@EF+[@@EF+/,0@H0@@@EF+@@@EE]VI )@@G@@@@@EE_@[.EFKC@@EF+G/@@@[[@@EF+C0@EFZ[@@EF)D@@EF)*@@@@G1@@@@G/K@[!G/,0@H0VJ )@@G@@@@@EF+@@@ AY@@@EF)@]]EFK/K@[!M/,0@H6@@@EF+@@@EE^@]^EFKC/@@@^[@@EF)C@@EF)VK )@@G@@G@@EF+[@@EF+/,0@H6@@@EF+@@@EEA@]BEFKR@KEF[N.@@@^C@[^P?[@[%F:8L@[!V/,0@J+VL )@@G@@@@@EF%@@@EF]@@@EF<@]IEFK @@EF=/K@[!*C@@EFYG/@@@[[@@EFYC@@EFWH@@EFY/C@[!!VM )@@G@@*@@@@G/K@[0ER@)EFYC@]^7[[@@EF>C@@EF>:/@@@,/K@[!>C/@@@[C@)EF>G/)__6*@@@@IVN )@@G@@1@@@@I @@@@GC/)@@[C.@@@XH[@EF>*@@@@K1@@@@K @@@@I)@@@@I/=K[,ZC@@EF>G/@__7VO )@@G@@[@@EF>RA0EF>$'0@@Q/KF[,B/K@[,X/K@[!>/K@[!>/K@[,;/K@[,Z/K@[,"/K@[\[/K@[,ZVP )@@G@@/K@[,Z/K@[0 /K@[\!/K@[0]/K@[,Z/K@[\2/K@[,Z/K@[,Z/K@[\6/K@[\9/K@[\//K@[\_VQ )@@G@@/K@[,Z/K@[0C'^@@K!@]UEFKR@KEFYC@[^7[[4@EF&C@)EF=G/)@@[[@)EF=C/@@@[H@@EF=VR )@@G@@/C@[,%*@@@@G/K@[,2/,0@H6@@@EF@@@@^4/@]ZEFK/,0@H6@@@EF#@@@EEC@])EFKC@@EF=VS )@@G@@G/@@@0[@@EFN/,0@H0@@@EFN@@@EF&@@@EE_@]-EFK/K@[!>C/@@@[[@@ AN/K@[!>C/@@@[VT )@@G@@[@@ AR/K@[!>C_)@@[N.@@@^[#)EFVC@@EFYG/@@@[[@@EFYR@)EFYC@)EF^H@+^7[]@)EF>VU )@@G@@C/@@@[D@)EF>*@@@@I0@@@@I @@@@GC/)@@[C.@@@DH[@EF>*@@@@K1@@@@K @@@@I)@@@@IVV )@@G@@/=K[!*C@@EFWH@@EFY/C@[\X*@@@@G/K@[0EC@@ ALT/@@@EG@@EF>[@@ ALG_)@@[8L@[\#VW )@@G@@/,0@H6@@@EF@@@@^4/@]3EFK/,0@H8@@@EF @@@EE_@@@EEI@]4EFK/K@[1XC/@@@[[@@ AVVX )@@G@@/,0@KF@]7EFK/K@[!>C@@ AUG/@@@[[@@ AU/K@[!>C/@@@[[@@ AP/K@[!>C/@@@[[@@ AQVY )@@G@@/K@[!>C/@@@[[@@ A-/K@[!>C/@@@[[@@ AO/K@[!>C/@@@[[@@^]//K@[!>C/@@@[[@@ A)VZ )@@G@@/K@[!> @@ AT/K@[!>D@@EF=*@@@@G1@@@@G/K@[0L/,0@HV@@@EFA@#EEFK/,0@KY@@@EEOWA )@@G@@/K@[0=@@@EF<@#FEFK/,0[%C@@@EER@@@ AH@@@ AJ@@@^8C@@@^_C@@@EFB@@@EF@@@EFH@#)EFKWH )@@G@@/,0@H8@@@EFA@@@EF@@@@EE;@#-EFKC8)@@#N@0[1\/K@[10@#+EFK!^)EFI/K@@K!H8)@@[WI )@@G@@[^)EFIRA0EFLC#)EFOR@KEFPR@)EFQN[@EFR/K@UFIC8@@@^AA0EFL[^@EFI[#)EFOA@KEFPWJ )@@G@@A@)EFQ^[@EFR/K@[:N/,0@XN@@@@@@@@@EG]@[ EF8C_)@@[R/K@@@N.@@@G[#)EF_C@[EG]WK )@@G@@:@@EF1/K@[2LO/K@@[G_)@@[8L@[2D/K@[22C@@EF_G/@@@[[@@EG@G/@__"D@)EG@G/)@[]WL )@@G@@C#)EG@R@K@@G[@)@[^[#)EG[C@[EG]:@@EF2/K@[2+O/K@@[G_)@@[8L@[2U/K@[22R@KEG[WM )@@G@@C@[EG]%@@EF3/K@[22R@KEG[C@[EG#%@@EF4/K@[22R@KEG[C@[EG^%@@EF5/K@[22C8)@@]WN )@@G@@N@0[21/K@[25@[XEF8N@0[24/K@[29@[YEF8!^)EF6/K@@K!H8)@@[[^)EF6RA0EF9C#)EF;WO )@@G@@R@KEF/N[@EF./K@UF6C8@@@#AA0EF9[^@EF6[#)EF;A@KEF/^[@EF.C8FK@@[^@[2#/K@[2]WP )@@G@@@@[@@@@@@@VK@@@@VW@@@@VW@@@@VW@@@@VW@@@@WM@@@@VW@@@@VW@@@@VW@@@@VW@@@@VWWQ )@@G@@@@@@VW@@@@VW@@@@V$@@@@VW@@@@VW@@@@VW@@@@V$@@@@VW@@@@VW@@@@VW@@@@VW@@@@VWWR )@@G@@@@@@V$@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@V)@@@@V)WS )@@G@@@@@@VW@@@@V)@@@@VW@@@@VW@@@@VW@@@@V)@@@@V)@@@@VW@@@@VW@@@@VW@@@@VW@@@@V)WT )@@G@@@@@@VW@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V1WU )@@G@@@@@@WP@@@@V)@@@@V)@@@@VW@@@@VW@@@@VK@@[@@@@@[@@@@@@@@@@@@@@@__"__"@@@@@HWV )@@G@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@***** ERROR *****&@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@ARRAY OVERFLOW-STATEMENT TOO LONG.& @@@@@@NON-ARITHMETWX )@@G@@IC STATEMENT NOT DEFINED.& VARIABLE ILLEGAL.&@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@DATA LIST LONGER THAN CARD.& @@@@@@@@@@@@STATEMENT NUMBER ILLEGAL.& WZ )@@G@@@@@@@@@@@@@@PARENTHESE COMBINATION ILLEGAL.& @@@@@@IF STATEMENT ILLEGXA )@@G@@AL& @@@@@@@@@@@@@@@@@@ERROR IN NESTING OF FUNCTIONS.& @@@@@@WORD TXB )@@G@@OO LONG.& @@@@@@@@@@@@@@@@@@@@@@@@VARIABLE TOO LONG.& @@@@@@@@@@@@XC )@@G@@@@@@@@NO RIGHT PARENTHESES.& @@@@@@@@@@@@@@@@@@ERROR IN GETTING SUBSCRIXD )@@G@@PT.& @@@@@@@@@@@@EXCEEDED LENGHT OF CARD DATA.&@@@@@@@@@@@@VARIABLE NOTXE )@@G@@ IN TABLE.& @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@**** TOO MANY ERRORS - RXG )@@G@@UN ABORTED '=@@@) @@____/K@@Y:@[A CGPROCEDURE & ______ NOT FOUND IXH )@@G@@N FILE & ______BSP ERROR STATUS=&______FORTRAN PROCEDURE TABLE IS EMPXI )@@G@@TY. FILE=& ______ &______I-O ERROR. STATUS=& ______FILE=&______XJ )@@G@@ELEMENT=& ______ &___________"@@@@@O@@@@@Z@@@@@G@@@@@!@@@@@#@@@@[@XK )@@G@@@@@@@@@@@@@[@@@@@I@@[@@[@@[@@@@@@@@]@@@@@&@@@@@H@@@@@/@#;@@@@#;@@@PROCITXL )@@G@@@]-@@@@@@@@@@@@@@$@@@@@?@@@@@2@@@@[D@#;@@[@#;@@[RNB @]1@@@@@@@@@@#;@@]XM )@@G@@@#;@@]DUMMY @]5@@@@@@@@@@@@@@@@@@@@@@@@^,R@@@@@@@@@^,R@@@@@@@@@@@@@@@@@@XN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ ______@FREE,A I$I$I$. . ______& ______XO )@@G@@ &______I$I$I$ ______@@@@@@@@@@@[@@@@@I@@@@@# @@@@@F_____"XP )@@G@@@@@@@A@@@@@G@@@@@O@@@@@_ END @@@@@]@@@@@L@@@@@S@@@@@S@@@@@(@@@@@J@@@@@BXQ )@@G@@@@@@@/@@[@@@@@@@@^@@@@@ @@@@@,@@@@@U@@@@@K@@@@@)@@@@@I@@@@@F@@@@@T@@@@@PXR )@@G@@@@@@@=@@@@@Q@@@@@*@@@@@R@@@@@V@@@@@A@@@@@B@@@@@J@@@@@N@@@@@E@@@@@R@@@@@UXS )@@G@@@@@@@W@#;@@#@#;@@#DCT8 @HE@@@@@@@@@@#;@@@@#;@@@FCTCK @HS@@@@@@@@@@#;@@]XT )@@G@@@#;@@]GETSN @H?@@@@@@@@@@@[@@[@@@@@;@@@@@$@@@@@D@#;@@@@#;@@@GETVAR@IX@@@XU )@@G@@@@@@@@@@@@@E@#;@@@@#;@@@RJTNOS@I!@@@@@@@@@@@@@@C@@@@@.@@@@@H@@@@@T@@@@@DXV )@@G@@@@@@@-@@@@@+@#;@@^@#;@@^UNPACK@LP@@@@@@@@@@#;@@@@#;@@@UPSN @L+@@@@@@@@@XW )@@G@@@@@@. @#;@@[@#;@@[LPRT @L1@@@NMLT @@@@@[NL@@@@@@@A@@@@@B@@@@@C@@@@@D@@XX )@@G@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@O@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@XY )@@G@@@@@X@@@@@Y@@@@@Z@@DA CM@@@@RL EQ DM AB EX LG CP XZ )@@G@@DP IN PR DMVR FCTN SBRT SWVR FA @@@L@@ LBCM END YA )@@G@@]@@@@@@@@@@F@@@@@U@@@@@N@@@@@C@@@@@T@@@@@I@@@@@O@@@@@N@@@@@@@@@@@@& YB )@@G@@______& ______& ______TABLE OVERFLOW NO.=& ______DATA PROGRAMYC )@@G@@ IS TO LARGE.& ______F & ______@@@@@@@@@@@[@@@@@V@@@@@3@@@@ZK@@@@[IYD )@@G@@@@@#%S@@[@@@@@@@@ LBCM $BLANK_____"@@@@@A@@@@@C@@@@@^@@@@@G@@@@@]@@@@@ YE )@@G@@@@@@@X@@@@@>@@@@@B@@@@@H@@@@@S@@@@@O@#;@@@@#;@@@TBL1 @ V@@@@@@@@@@@@@W@YF )@@G@@@#;@@[@#;@@[DRUM @ '@@@@@@@@@@@@@@E@#;@@#@#;@@#ENTER @A^@@@@@@@@@@#;@@@YG )@@G@@@#;@@@LOCATE@BI@@@@@@@@@@@@@@*@@@@@#@@@@@0@#;@@]@#;@@]OVFL8 @BR@@@@@@@@@YH )@@G@@@@@@@P@@@@@<@@@@@%@@@@@'@#;@@[@#;@@[PNCH @B1@@@@@@@@@@@@@@@ DMVR YI )@@G@@FCTN ** ******@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO IF(L) YJ )@@G@@IF(A) GOTO(UC) GOTO(A) GOTO(C) CALL FCT REF YK )@@G@@RTRN(S) RTRN(NS) ASSIGN TAPES INPUT OUTPUT YL )@@G@@SUB PROG STOP ACCEPT DISPLAY ERPRINT REPEAT YM )@@G@@REPLACE GENERATE REGISTER ARGUMENT ALTPRINT MONITOR YN )@@G@@ASM$INTF ABORT BUFFER FILE IDENTIFY JUMP YO )@@G@@LABELS NAME NEXT READ SCAN UNIQUE YP )@@G@@WRITE C@FK@@[W@D"]C@FK@[[?@D"]C@F@@][^@D"]C@@D"]'=@@@IYQ )@@G@@/KF@@^@@@@@@@@AD"X@@]D"<@@ D">@@CD"%@@CD"2@@]D"9@@]D";@@@D".@@BD".@@@D_^YR )@@G@@@@@D_^@@[D_^@@]D_ @@[D_B@@@D_C@@^D_C@@@D_G@@DD_G@@CD_P@@@D_X@@@D_X@@@D_XYS )@@G@@@@#D_X@@@D_)@@@D_)@@@D_)]S#S@[]R#G@]]B#N@#]C#C@6]L#T@9]S^$@"]L#O@^]A#C@ YT )@@G@@]A#L@A]O^M@B]O#N@C]O L@D]O I@E]O#U@F]O@@@G]I#M@H]A#T@I]E#C@J]E#F@K]E#L@LYU )@@G@@]I#S@7]Q#U@M]X#T@N]N#T@O]N#C@P]N^F@Q]N#D@R]R#P@8]O#R@S]U#N@T]O#T@U]E#N@/YV )@@G@@]N#C@V]N#T@W]M#P@X]F#D@Y]F#A@Z]F#Q@)]F@@@-]O#G@+]O#N@<]A#C[@]A#M@=]A#R@>YW )@@G@@]A#U@&]R#I@$]U#N@*#P^L@;#A^L@?]E#T@!]E#W@,]E^E@']E#G@.]E I@(]E T@%]E^D@:YX )@@G@@]TAE@5]T E@5]TAT@5]T T@5]T#O@\]U#B@0]E#N@1]C#A@_]RAO@2]RAT@3]R#I@4@@@@@@YY )@@G@@ & ___________"@@@@@[@@@@@O @@@@]]@#;@@]@#;@@]PRTERR@]A@@@& YZ )@@G@@______V A R I A B L E T A B L E& ______& ______VARBLE& ______ZA )@@G@@FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& ______& ______@@@@@_ZB )@@G@@_____"@@@@@[@@@@@!@@B@@B@@A@@A@@A@@@@@@@@A@@@@@:@@@@[J@@@@@H@@@@@X@@@@@]ZC )@@G@@@@@@@&@#;@@[@#;@@[HEAD1 @[V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@THE FIRST FLAG INDICATES THE& NATURE OF THE ALPHABETIC ENTITZE )@@G@@Y& = UNDIMENSIONED VARIABLE& DMVR = DIMENSIONED VARIABLE& ZF )@@G@@ FCTN = FUNCTION NAME& LBCM = NAME OF LABELED COMMON&ZG )@@G@@ SBRT = SUBROUTINE NAME& SWVR = SWITCH VARIABLE& ZH )@@G@@ NMLT = NAMELIST NAME& & ZI )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICATE THAT THE ENTITY IS INZJ )@@G@@ THE& CORRESPONDING TYPE OF STATEMENT& AB = ABNORMAL EX = EXTERNAZK )@@G@@L& CM = COMMON FA = FORML AGUMT& CP = COMPLEX IN = INTEGERZL )@@G@@& DA = DATA LG = LOGICAL& DM = DIMENSION PR = PARAMETZM )@@G@@ER& DP = DBL PRECISN RL = REAL& EQ = EQUIVALENCE NL = NAMELISZN )@@G@@T& THE FLAGS FOLLOWING THE LINE NUMBERS& (ON WHICH THE ENTITY WASZO )@@G@@ REFERENCED)& INDICATE THE NATURE OF THE REFERENCE& A = SET EQUAZP )@@G@@L,DEFINED,ASSIGNED& B = REFERENCED,CALLED G = FORMAT& ZQ )@@G@@C = CALLING SEQUENCE H = I-O UNIT& D = SUBSCRIPT I = READZR )@@G@@& E = SPECIFICATION O = WRITE& J = DO PARAMETER ZS )@@G@@ L = LIST& & &ZT )@@G@@______S T A T E M E N T N U M B E R T A B L E& ______ &______ZU )@@G@@ &______OF THE REFERENCE& ______ &______ &______@@@@@______"ZV )@@G@@@@@@@[@@@@@>@@D@@@@@D@@D@@@@@A@@@@@/@@^@@^@@#@@#@@@@[J@@@@[)@@@@@]@#;@@[ZW )@@G@@@#;@@[HEAD2 @[>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@THE FIRST ENZX )@@G@@TRY FOLLOWING THE STATEMENT NUMBER& IS THE NUMBER OF THE LINE ON WZY )@@G@@HICH IT WAS DEFINED& THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH TZZ )@@G@@HE& STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE& D = DEFINED&AA )@@G@@ S = FORMAT NUMBER&T = NONSTNDRD RTN&U = ASSIGNED& V = DO& AB )@@G@@ W = GOTO (CNDTNL)&X = GOTO (UNCNDTNL)& Y = IF (ARITHMETIC)& AC )@@G@@& & ______T R A N S F E R T A B L E& ______AD )@@G@@ONLY THOSE ENTRIES WHICH ARE REFERENCED ARE PRINTED OUT. THE COMPLETE LAE )@@G@@IST FOLLOWS&______ & ______ & ______@@@@@______"@@@@@[@@@@@!@@@@@AAF )@@G@@@@@@@]_____.@#;@@#@#;@@#HEAD3 @^W@@@DO& GO TO (UNCONDITIONAL)& CALL& AG )@@G@@RETURN (NON-STANDARD)& INPUT STOP& IF (LOGICAL)& GO TO (ARITHAH )@@G@@METIC)& FUNCTION REFERENCE& ASSIGN& OUTPUT& IF (ARITHMETAI )@@G@@IC)& GO TO (CONDITIONAL)& RETURN (STANDARD)&TAPES&INTERNAL SUBPROGRAAJ )@@G@@M& NON-STANDARD FORTRAN STATEMENTS.& ACCEPT& DISPLAY& ERPRINAK )@@G@@T& REPEAT& REPLACE& GENERATE& REGISTER& ARGUMENT& ALTERNAL )@@G@@ATE PRINTER&MONITOR& ASM$INTERFACE& MACROS LISTED BELOW. (NO VARIAAM )@@G@@BLES OR STATEMENT NOS. WILL BE GENERATED.)& ABORT&BUFFER& FILE& AN )@@G@@IDENTIFY& JUMP& LABELS& NAME& NEXT& READ& SCAN& UNIQUE& WRITE&AO )@@G@@@@@@@@@@@@@[@@@@@]@@@@@A@@@@@B@@@@@F@@@@@I@@@@@L@@@@@P@@@@@T@@@@@V@@@@@XAP )@@G@@@@@@@)@@@@@=@@@@@$@@@@@*@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@4@@@@@6AQ )@@G@@@@@@@8@@@@@'@@@@@/@@@@@"@@@@[@@@@@[]@@@@[ @@@@[B@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@[R@@@@[S@@@@[U@@@@[V@@@@[X@@@@[Y@@@@[)AS )@@G@@@@@@[-@@@@[+@@@@[<@@@@[=@@@@[&@@@@@@@@@@@@@@@@@@CONTROL CARD ERROR. IMAGAT )@@G@@E=& ______ & ______ ______ TPF$ _____"@@@@@O@@@@@\@@@@[]AU )@@G@@@@@@@]@@@@@@@@@@@[@@@@@G@@@@@.@@@@@*@@@@@/@@@@@,@#;@@E@#;@@ECHKCC @]%@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@AX )@@G@@@@@@@@@@@@@@ @@@@@@& ______******______TPF$& ______. . & ______AY )@@G@@IGNORE INVALID OPTION(S).& ______I OPTION. NO. TOO LARGE.& ______AZ )@@G@@I$I$I$ ______I$I$I$ ______ & ______CANNOT ASSIGN FILE. STATBA )@@G@@US=& ______ & ______CANNOT FIND ELEMENT IN FILE.& ______I/O ERROR. SBB )@@G@@TATUS=& ______PROGRAM NOT DEFINED OR OVERFLOW.& ______CONTROL CARDBC )@@G@@ IMAGE=& ______ & ______@@@@@ @@@@@@@@@@@[_____"@@[@@[@@@@@B@@@@@OBD )@@G@@@@@@@0@@@@@#@@@@@]@@@@B@@@@@@_@@@@@0@@@@@H@@@@@$@@@@@P@@@@[]@#;@@@@#;@@@BE )@@G@@CTCDIT@#+@@@@USE I$I$I$, @@@@@*@@@@@P@@@@@RBF )@@G@@@@@@@O@@@@@C@#;@@@@#;@@@TPROC @[Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F<@K\@@;^R0@@E^TT@#1EAGBH )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BI )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BJ )@@G@@D@@^];/C@@K3*@@@@G/K@@K6N@0@K5/K@@M1@[B^SID@@^]//C@@K'*@@@@G/K@@K"/,0@FIBK )@@G@@@@@^S^@@@^R0@[E^SIC@@^];G/@__"[@@^TND@@^TN*@@@@G1@@@@G/K@@LG/,0@G[@@@^#^BL )@@G@@@@@^S @@@^]_@@@^S @@@^TN@[I^SIC@@^];;@@@@+C@)^]'[@?^];D@@^TN*@@@@G1@@@@GBM )@@G@@/K@@L_C@@^TNG/@__"[@@@[^[@@^S*C_)@@[R/K@@@R/)@@^N[K^S*[#)^TPC@@^TP;@@@@+BN )@@G@@[@@^S(G/@__;C@)^S(G/)@@[[@@^S([@)^S%C@[^].H@]^]./C@@L%*@@@@G/K@@L'C@]^]'BO )@@G@@H@]^]"/C@@L\*@@@@G/K@@L'R@0^SAQ@0^S%R[@^SAQ[@^S(N.)@@#C@^^].[@@^TRC@<^]/BP )@@G@@[@==].[@#=]/8L)@L4O/K@@^O/)@@^G_)@@[8LK@LW8L@@LS/,0@H8@@@^SB@@@^SC@@@^R4BQ )@@G@@@[&^SI/,0@H8@@@^SD@@@^S^@@@^R6@[$^SI/,0@H8@@@^SD@@@^S^@@@^R"@[*^SIC@@^];BR )@@G@@G/@__"R/0@@^R.@@@@[@@@[^C@#^]/H@#^];*@@@@G1@@@@G/K@@M)N8O^].^^K@MX/,0@H2BS )@@G@@@@@^SC@@@^SE@@@@MX@@@^SF@[!^SIO/0@@^O.@@@^8L@@MN/,0@WG@[0^SIC/@@G?;O@@@=BT )@@G@@W@@^];[@@^TS/,0@SZ@@@^T=@@@^TS@@@^];@[2^SIN@0@M0/K@@M1@[3^SIRA0^SJC#)^S:BU )@@G@@R@K^S?R@)^S!R@0^S,R[@^S\N[@^S0N[K^S1N[)^S2/K@OSGAA0^SJ[#)^S:A@K^S?A@)^S!BV )@@G@@A@0^S,A[@^S\^[@^S0^[K^S1^[)^S2/K@@VAC@@^S4G/@__CO )@@G@@C/@@@I[@@^T)N8L)@@^^K@Q%/,0@H2@@@^SC@@@^SU@@@@Q%@@@^SM@@@^T)@@@^SV@]>^SYCP )@@G@@/,0@H6@@@^S^@@@^S@@]&^SYG_)@@I8L@@QTR@K^S/C@[D/2G/@@@[[@[D/2C@@^TV;@@@@C@@^TU[@@^TYC@@^TYG/@__";O@@@=W/@@@IC@)^TXT/)@@WCU )@@G@@C[@^TVT.@@@WG.@__R@K^TDC@[D/2[@@^T+G/@__"T/@@@W[@@^THC@@^THDE )@@G@@H@@^T-*@@@@G1@@@@G/K@@T(C@@^TH[@@^T-D@@^T-/C@@T!*@@@@G/K@@T0N@0@T\/K@@U6DF )@@G@@@#G^S>C@@^T-;O@@@=W/@@@WH@@^T+]@@^TPR@K^TD]@[D/2C@@^TIH@@^T+/C@@T/*@@@@GDG )@@G@@/K@@UXC@@^TIH@@^T+C@)^T+T/)@@WC[@^TIT[@^TFC[)^TIT[)^TFG[)@@IG[)^TER@K^S-DH )@@G@@Q@K@@M[@@@[^[[@^THC@@^TPT/@@@WG@@^THG@@^TEN8W@@@^^K@UPN8L)@@^^K@UN/,0@G[DI )@@G@@@@@@UN@@@^SC@@@@UP@@@^SC@@@^S+@#O^S>C@@^TPG/@@@[[@@^TP8L@@UEC@@^TIG/@@@[DJ )@@G@@C@)^T-;O)@@=W/)@@WH@@@@I[@@^TN@0@U5/K@@U6@#T^S>RA0^S&DL )@@G@@C[)^TJR@K^TKN[@^TL/K@OSRB@KGVR;K@G>'=@@[DRB@@GVP;@@@]RBW@@@R#)@G3A#?@@@RFG@@]ABW@@@FV )@@G@@O;@@@[AB@@GUR#)@G2/K@@GT@@@@@@@@@@@@@@@@@@'^@@GH/,0@K?@@@@@@/,0@HL@@@^P!FW )@@G@@@@@^QB@[^@@@/,0@H8@@@^QC@@@^QD@@@^Q#@[ @@@ @@^];/,0^@S@@@^QF@@@^QG@[B@@@FX )@@G@@D@@^QG*@@@@G1@@@@G/K@@HE/,0^@9@[D@@@C@@^QF/@@@H@/,0@K#@[H@@@/,0@K,@@@^QEFY )@@G@@@[H@@@C@VK@[[?K^QHC^:@@@[^)^QHA]0^QTC8@^QH/,0@C1/,0@DCR]0^QT/KF@@#C@FK@@FZ )@@G@@[@@^QX'^@^QZ/KF@@]R;@@@@A#@^QXR#@^Q.A#@^Q>'^@^QZR#@^Q"A#@^Q>/KF@@[C4FK@@GA )@@G@@[0@^QH/KF@@]C0@^QIS8@@@AG4K^QIG8K@@[[@VK@@/KF@@]C[@^QY/K@@H4C[FK@@O'0@@[GB )@@G@@R;0@@#/K@@IBC[@^QY/K@@H'C[FK@@O'0@@[C80@@]/K@@IBC[@^QY/K@@I@C[FK@@O'0@@[GC )@@G@@C80@@[/K@@IBC[@^QY/K@@IAC[FK@@O'0@@[C80@@@[[@^QX[@0^QUC@VK@@/CK@IOC^)^QHGD )@@G@@[^)@IKC?0^QHH80@@[C@@^Q$[@J@@@8#0@IK W@^QI/K@@IY/@K@IY%8K@@[/K@@IT W@^QIGE )@@G@@/K@@IYC8@@@@H8K@@[W8@@@A[0@^QI[4K^QIA]0^QTC8@^QH/,0@C"R]0^QTC@@^QU%8@@@]GF )@@G@@/K@@I:C^F@@[/,0@EF/,0@DC'^@^QZR]0^QT/KF@@#A[@^QRA[K^QSR F@@[&9@@@[C@FK@]GG )@@G@@[@@^QV(CF@@#/K@@I6R9K@@@ @@^QW/K@@I/R[VK@#P9K@@[C@FK@^[@@^QWO'0@@]A]0^QTGH )@@G@@(@@^QW/K@@J C@K^QW/GK@J#C8@^Q$/,0@D;/K@@J D@@^QW/,0@D@@['^@@GH'^@@GV[Z=@@['^@@GH'^@@GVGU )@@G@@@O#@@['^@@GH'^@@GV[+>@@['^@@GH'^@@GV[<;@@['^@@GH'^@@GV[>=@@['^@@GH'^@@GVGV )@@G@@[ZO@@['^@@GH'^@@GV@WG@@]'^@@GH'^@@GV@M;@@]'^@@GH'^@@GV@W<@@['^@@GH'^@@GVGW )@@G@@@Y6@@['^@@GH'^@@GV@Y7@@['^@@GH'^@@GV@Y'@@['^@@GH'^@@GV@< @@['^@@GH'^@@GVGX )@@G@@@E8DCT C@[@@: Z$AFE@[. AHASMDCTIB )@@G@@8 @@]@@1DXI[EE@@H CE@]P@X[PROCRD @@C@@.B@#[ZE@[O CR@ @@ZQ@@D D:IC )@@G@@@@@@@@@@? D4)@+@@@)@V@@[)@R@@[DCT8 @@E@[F X2AFE@]K E)@*N@=Q@[Y G0ID )@@G@@@@@@@@@@& II)@+@@@)@V@@[)@<@@[)@R@@[)@Z@@[TBL8 @@E@[TB!CAAE@[' I4IE )@@G@@@M:[G(@@$ K,@@@@@@^?+ LP)@+@@@)@R@@[)@Z@@[)@<@@[)@V@@[ITF @@]@[ZIF )@@G@@GYH[LE@@]D.7@@K[ZOPRINT @@[@[=DUN^TC@@ED.9FINDER @@B@[\BP$[JEIG )@@G@@@[YD"#@@S[Z=@@@@@@@@@@@@@@@@@@@@@@@@)@R@@[PRTERR @@C@[;BJVGBD@@LD_-IH )@@G@@@[=[Z/@@ D_2@@@@@@@@@@@@)@+@@@)@V@@[)@R@@[HEAD1 @@A@] F,!GND@@0D_7II )@@G@@@[F[-)@@]E@$@@@@@@@]"E@()@+@@@HEAD2 @@A@]JBKHGBD@@!E#$@[P[+:@@]E^OIJ )@@G@@@@@@@@@[]E^Q)@+@@@HEAD3 @@A@]TH \[JE@@,E S@[![=@@@ EAA@@@@@@@]YEAFIK )@@G@@)@+@@@CHKCC @@B@]=BA$#IE@@(EC(@^V[>!@@AEDM@@@@@@@@GEDS)@+@@@)@V@@[IL )@@G@@RDS @@]@]%GNG[CE@@WED=@[F[%CCTCDIT @@D@]7BM2GGD@[TEE@@A\[:NIM )@@G@@@@JEFT@@@@@@@@DEF*)@+@@@)@<@@[)@Z@@[)@V@@[TPROC @@A@@@EC+]UE@@IEF1IN )@@G@@@[ [2]@@#EF_@@@@@@@[]EG])@+@@@@@@@@@@@@@@@@@@@@@MRG8 @@A@@EG/.[LEIO )@@G@@@[<^R0@ES@K\@@L^TN@@@@@@ ?*^T=)@+@@@MRGHD @@A@@@F\?GND@@1EAG@[F@VBIP )@@G@@@@]EA.@@@@@@@]"EA_)@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@*[@@@@*SDFF*@I@@@@C * THIS IS THE MAIN PROGRAM FOR DCTNRY IR )@@G@@ MAIN0001 @I@@@@ IMPLICIT INTEGER(A-Z) IS )@@G@@ MAIN0002 @I@@@@ COMMON KADDIT )@@G@@,LADD,JF11,N91(4,300),PLINE(22) MAIN0003 @I@@@@IU )@@G@@C IV )@@G@@MAIN0004 @I@@@@ CALL OPRIME ( PLINE,22 ) IW )@@G@@ MAIN0005 @C@@@@ CALL OPAP ( 1,-1,'DCTNRY 06/1IX )@@G@@1/74&' ) @I@@@@ LADD = 0 IY )@@G@@ MAIN0007 @I@@@@C DCT8 PROCESSES FORTRAN ELEMENIZ )@@G@@TS UNTIL WE ENCOUNTER A '*END' CARD MAIN0008 @I@@@@C AN END-OF-FJA )@@G@@ILE. MAIN0009 @I@@@@JB )@@G@@ 10 CALL DCT8 (IEDPG,JFT10) JC )@@G@@MAIN0010 @I@@@@C IF JFT10 IS SET MERGE THE DATA ON DRUM JD )@@G@@ MAIN0011 @I@@@@ IF (JFT10 .GT. 0) CALL MRG8 JE )@@G@@ MAIN0012 @I@@@@C IEDPG IS SEJF )@@G@@T WHEN WE ENCOUNTER A '*END' CARD MAIN0013 @I@@@@JG )@@G@@ IF (IEDPG) 20,10,20 JH )@@G@@MAIN0014 @I@@@@ 20 CALL GETOUT JI )@@G@@ MAIN0015 @I@@@@ END JJ )@@G@@ MAIN0016 ___ JK )@@G@@ MAIN0016 ___^&U>90@@]/K@^&SC@@^2F'=@@@I/K@^&YR#@^@@JL )@@G@@)@@@3]GCKOG%A@@@@@)@@@S@1/74& 06/1DCTNRY@[^@@@@@@@@^@@@@M3/,0@@@@@@@@@JM )@@G@@/,0@@@AA@@@K)@#@C@)@A@;]^-)K0CS[#E-#@@@@@@/,0@@@ @@@@[@[ @@@@@@@@@@@@@@AJN )@@G@@@@@@@ /,0@@@______AB@@@K)@H[N[KL[[@K+]]@@@C@@@@@@[D@@@/,0@@@/K@@@Q1@@@@GJO )@@G@@*@@@@GD@@@@[@[B@@@@@@@@[@@@@@@AC@@@K)@R@3@K++^X#@@@@@@)@^@S@_____"@@@@@[JP )@@G@@@@@@@Q@[H@@@@@@@@B/,0@@@@[H@@@/,0@@@/@@@@GAD@@@K)@B@C@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ENDPRGAE@@@K0@@@]@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ENDPRGAF@@@KJS )@@G@@@@^@@A@@E@@C@@U@@@@@U@@[@@ @@C]@@@@X@@@@@]@@@@@@@@@@@@@@@@NDV65K$ JT )@@G@@OPRIME OPAP DCT8 MRG8 GETOUT NINTR$ JU )@@G@@NSTOP$ N$BLNK ^[@@@@@ @@@@@@@@@@ 6 8HASM$INTFJV )@@G@@ , 8HABORT , 8HBUFFER , @E@@@@ 7 8HFILE , 8HIDENTIFY , 8HJJW )@@G@@UMP , 8HLABELS , @E@@@@ 8 8HNAME *[@@@@*SDFF*@I@@@@ JX )@@G@@SUBROUTINE DCT8 (IEDPG,JFT10) DCT800JY )@@G@@01 @I@@@@C IEDPG IS SET WHEN A '*END' CARD IS ENCOUNTERED JZ )@@G@@ DCT80002 @I@@@@C JFT10 IS SET WHEN ROUTINES ARE PROCKA )@@G@@ESSED WITH A MERGE OPTION DCT80003 @I@@@@C THE CONTROL CARD KB )@@G@@OPTIONS HAVE THE FOLLOWING MEANINGS DCT80004 @I@@@@C D KC )@@G@@ JF1=1 READ FROM PCF ON DRUM DCT800KD )@@G@@05 @I@@@@C F JF2=1 SUPPRESS PRINTING OF FORTRAN STATEMENTS KE )@@G@@ DCT80006 @I@@@@C V JF3=1 SUPPRESS PRINTING OF VARIABLEKF )@@G@@ TABLE DCT80007 @I@@@@C S JF4=1 SUPPRESS PRKG )@@G@@INTING OF STATEMENT NUMBER TABLE DCT80008 @I@@@@C T KH )@@G@@ JF5=1 SUPPRESS PRINTING OF TRANSFER TABLE DCT800KI )@@G@@09 @I@@@@C H JF6=1 SUPPRESS PRINTING OF EXPLANITORY INFORMATION KJ )@@G@@ DCT80010 @I@@@@C RX JF7=1 READ FROM INPUT TAPE LOGICAL KK )@@G@@UNIT X, WHERE X = A-H DCT80011 @I@@@@C X JF8=0 THE PROGRAMKL )@@G@@ WILL CONTINUE IF IT FINDS SYNTACTIC ERRORS DCT80012 @I@@@@C P KM )@@G@@ JF9=1 PUNCH THE VARIABLE TABLE ONTO CARDS DCT800KN )@@G@@13 @I@@@@C PP =2 ALSO PUNCH THE VARIABLE FLAGS KO )@@G@@ DCT80014 @I@@@@C M JF10=1 MERGE THE VARIABLE TABLES FRKP )@@G@@OM ALL OF THE FLAGED DCT80015 @I@@@@C PROGRAMS IKQ )@@G@@NTO ONE TABLE DCT80016 @I@@@@C N KR )@@G@@ JF11=1 DO NOT CALL 'HDG' FOR PROGRAM (ALLOWS USER TO USE OWN HDG DCT800KS )@@G@@17 @I@@@@C CARD) KT )@@G@@ DCT80018 @I@@@@C L JF12=1 LIST COMMENT CARDS WHEN FORTKU )@@G@@RAN STATEMENTS ARE LISTED DCT80019 @I@@@@C U JF13=1 INCREMENTKV )@@G@@ LINE NO. OF INCLUDE STATEMENTS MDCT80020 @I@@@@C KW )@@G@@ JF13=0 DO NOT INCREMENT LINE NO. OF INCLUDE STATEMENTS MGDCT800KX )@@G@@21 @I@@@@ IMPLICIT INTEGER (A-Z) KY )@@G@@ DCT80022 @I@@@@ DIMENSION IAREG(1321),IBREG(14),JPAKZ )@@G@@RN(50),ICCD(11),IVAR(2), DCT80023 @I@@@@ ; ISAVE(14),CBUF(14LA )@@G@@) DCT80024 @I@@@@ LB )@@G@@DIMENSION FLINE(16) DCT800LC )@@G@@25 @I@@@@ EQUIVALENCE ( CBUF,ICCD ) LD )@@G@@ DCT80026 @I@@@@ COMMON /MSG/M(105) LE )@@G@@ DCT80027 @I@@@@ DIMENSION MSG(3) LF )@@G@@ DCT80028 @I@@@@ LG )@@G@@EQUIVALENCE ( MSG,M ) DCT800LH )@@G@@29 @I@@@@ EQUIVALENCE ( IBREG,FLINE(3) ) @ LI )@@G@@ MDCT80030 @I@@@@ COMMON KADD,LADD,JF11,N91(4,300),LILJ )@@G@@NE(22) DCT80031 @I@@@@ COMMON /E8DCT/ INALK )@@G@@ME(2),KVERSN(2),LNSS,JF1,JF2,JF3,JF4,JF5, DCT80032 @I@@@@ 1LL )@@G@@ JF6,JF7,JF8,JF9,JF10,MBUF,INCFL,FILE(2),JF12,JF13,IVTE,KCTSUB, DCT800LM )@@G@@33 @I@@@@ * KOMTAB(100),KCMA,KBLNAM LN )@@G@@ DCT80034 @I@@@@ COMMON /E8ARY/NWAR,MULT,NWAR1,IRDM(1LO )@@G@@792) DCT80035 @I@@@@ COMMON /E8IPT/IPT(LP )@@G@@1000) DCT80036 @I@@@@ LQ )@@G@@EQUIVALENCE (ICCD,IPT),(ISAVE,IPT(15)) DCT800LR )@@G@@37 @I@@@@ EQUIVALENCE (IAREG,IRDM),(JPARN,IRDM(1322)) LS )@@G@@ DCT80038 @I@@@@ DATA KNMLT/4HNMLT/KNTSUB/1/KNL/6HNL@LT )@@G@@@@@/ DCT80039 @I@@@@ DATA KA,KB,KC,KD,KLU )@@G@@E,KF,KG,KH,KI,KJ,KO/O60000,O70000,O100000, DCT80040 @I@@@@ *LV )@@G@@ O110000,O120000,O130000,O140000,O150000,O160000,O170000,O240000/ DCT800LW )@@G@@41 @I@@@@ DATA KS,KT,KU,KV,KW,KX,KY,KZ/O300000,O310000,O320000,OLX )@@G@@330000, DCT80042 @I@@@@ * O340000,O350000,O360000,O370000/ LY )@@G@@ DCT80043 @I@@@@ DATA KDA,KCM,KRL,KLZ )@@G@@EQ,KDM,KAB,KEX,KLG,KCP,KDP,KIN,KPR/2HDA,2HCM, DCT80044 @I@@@@ *MA )@@G@@ 2HRL,2HEQ,2HDM,2HAB,2HEX,2HLG,2HCP,2HDP,2HIN,2HPR/ DCT800MB )@@G@@45 @I@@@@ DATA KDMVR,KFCTN,KSBRT,KSWVR/4HDMVR,4HFCTN,4HSBRT,4HSWMC )@@G@@VR/ DCT80046 @I@@@@ DATA KFA,KL/2HFA,O210000/ IBLK/1H / MD )@@G@@ DCT80047 @I@@@@ DATA KLBCM,KEND/4HME )@@G@@LBCM,3HEND/ DCT80048 @I@@@@ MF )@@G@@DATA KCTSUB / 1 / DCT800MG )@@G@@49 @I@@@@ DATA KCM / 6HCM@@@@ / MH )@@G@@ DCT80050 @A@@@@ DATA INMASK/ O20000000000 / @I@@@@MI )@@G@@C OFRTN8 WORKS WITH OFEXT8 TO CAUSE AN OVRFLW TO WORK LIKE AN END MJ )@@G@@DCT80051 @I@@@@ CALL OFRTN8($720) MK )@@G@@ DCT80052 @I@@@@C GET NEXT AVAILABLE DRUM ADDREML )@@G@@SS AND LAST AVAILABLE DRUM ADDRESS DCT80053 @I@@@@C INITIALIZE MM )@@G@@FLAGS DCT80054 @I@@@@MN )@@G@@C MO )@@G@@DCT80055 @I@@@@ IEDPG=0 MP )@@G@@ DCT80056 @I@@@@ JF1=1 MQ )@@G@@ DCT80057 @I@@@@ JFT10=0 MR )@@G@@ DCT80058 @I@@@@MS )@@G@@ LSNGEN=0 @ GENERATE-STATEMENT NO. FLAG MT )@@G@@DCT80059 @I@@@@ 10 NF1=0 MU )@@G@@ DCT80060 @I@@@@ NF2=0 MV )@@G@@ DCT80061 @I@@@@ NF3=0 MW )@@G@@ DCT80062 @I@@@@MX )@@G@@ IPFG=0 MY )@@G@@DCT80063 @I@@@@ IFLAG=0 MZ )@@G@@ DCT80064 @I@@@@ INCFL=0 NA )@@G@@ DCT80065 @I@@@@ LCT=0 NB )@@G@@ DCT80066 @I@@@@NC )@@G@@ MULT=0 @ 0 MULTIPLE STATEMENT COUNTER MND )@@G@@DCT80067 @I@@@@C INITIALIZE TBL8 NE )@@G@@ DCT80068 @#@@@@ CALL TBL1 @I@@@@C INITINF )@@G@@ALIZE THE ERROR RETURN DCT80070 NG )@@G@@@I@@@@ CALL ERRST8 NH )@@G@@ DCT80071 @I@@@@C READ THE CONTROL CARD NI )@@G@@ DCT80072 @I@@@@ 20 CALL MOVER ( ' ',0,NJ )@@G@@CBUF,1,14 ) @ BLANK CARD BUFFER DCT80073 @I@@@@ CALL CNK )@@G@@SF ( '@FREE,A I$I$I$. . ',3,STAT ) DCT80074 NL )@@G@@@I@@@@ STAT=READ(CBUF,$30) NM )@@G@@ DCT80075 @[@@@@C @E@@@@C CHECK IF PROCESSOR CALL OF DCT - NN )@@G@@IGNORE INFOR BUFFER @B@@@@ IF ( AND(INMASK,STAT).GT.0 )GO TO 20NO )@@G@@@I@@@@C CTCDIT INTE@K[_8@___@@@@@@@@@)@@@@@@@@@@@@@@@@@@K[8W@_____0NP )@@G@@__@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@NQ )@@G@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@*@@@@@SYS$ SYS$MANR )@@G@@P EXEC8$ U[)[@[@@@@@@@K[_88@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@KK[_9OSYS$ SYS$MAP EXEC8$ 4122103000 @@@@@@E^EN_1@K[_8WNU )@@G@@[]@@@@@@@@@@@@@@@@@@@@@[@@@@@@UL@@@[E^EO@ZE^EO@Z@@@@@@@^@@@@@@ @@A@@ @@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@@@@K[_88KK[8@@KK[88@KK[9O@KK[90@KK['G@KK['*@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@642948 DOT5XANY )@@G@@ #@L(R[RS 10574 #@?-HE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@=@@@@@LMP 81 #@^XRP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@679029 ED$TB679029 #@HS>[@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@617624 617624OF )@@G@@ #@!OBI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@K[__@)@@@@@K^[-?@K^[+C@K^[=0@K^[>G@K^[>*@K^[&^@K^[&)@K^[&/@K^[$S@K^[$4@OI )@@G@@K^[*K@K^[*?@K^[(C@K^[(=@K^[%@@K^[%8@K^[?G@K^[?*@K^[!^@K^[!)@K^[!/@K^[,S@OJ )@@G@@K^[,4@K^[\K@K^[\?@K^[0C@=@@@@@658746 MDSAPM #@% 9S@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@618405 F21315OM )@@G@@0843 #@C'?K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@=@@@@@668994 WW #@^'Y9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@NEPSAP ITERATION1 #@^'1T@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@680066 BATCH OT )@@G@@ #@,VVX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@=@@@@@660686 E10H #@AHK.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@674690 ROTSV #@WQV[@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K[__W@K[_;)K^#;)@K^#;/@PA )@@G@@K^#/S@K^#/4@K^#.K@K^#.?@K^#"C@K^#"=@K^[S^@K^[S)@K^[S/@K^[TS@K^[T4@K^[UK@PB )@@G@@K^[U?@K^[VC@K^[V=@K^[X0@K^[YG@K^[Y*@K^[Z^@K^[Z)@K^[Z/@K^[)S@K^[)4@K^[-K@PC )@@G@@@K[8X0@K[__@K^#0C@K^#0=@K^#1@@K^#1W@K^#18@K^#2O@K^#20@K^#3G@K^#3*@K^#4^@PD )@@G@@K^#4)@K^#4/@K^#5S@K^#54@K^#6K@K^#6?@K^#7C@K^#7=@K^#8@@K^#8W@K^#88@K^#9O@PE )@@G@@K^#90@K^#'G@K^#'*@K^#;^@@K[@@@___________J________________________@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@KG@@@@K %]YTKG@@@@K %]YTKG@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@B@@@@@B@@@@@B@@@@@B@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0T.C3\PJ )@@G@@\3TF?!\8Z0;'2(N___HQK@@@2+8___0T?& X\3>2)UKB2#M>HON^@@2:0(__HYR@@@0TU=3APK )@@G@@KG&4N?KBC!6M2'@@@@H )@@@23$___0T?&AZKG3VBN\9H+[CHJ&)@@20J___HWG@@@0VA,U#PL )@@G@@J 8:3C\;G[29K^3"H^\0'M7/0U%\E?PM )@@G@@0'W%Z_0TL?M"K 1I05\'I1I1KG19'(0U9P[%0'HZ#_J&_C$*\978PJKACB%1\1RYZ,\8_".=PN )@@G@@J$/FY^\3>+:V0)\ 50JZK'E60UYU&3KBNFA]0ST0V.4HFJ&:3:*\8?49W0N7]'IKG_,T#J=MGES0V!35>J?*6M'@@@@@@PP )@@G@@@@@@@@@@@@@@J.Z"LZJ_-PI'\81HVP@@@@@@@@@@@@@@@@@@\2CC\HK^'++/K .,>6@@@@@@PQ )@@G@@@@@@@@@@@@@@0]GH:N\'1>_-KB@0@6@@@@@@@@@@@@@@@@@@KH'(U6\;_YX+\36223@@@@@@PR )@@G@@@@@@@@@@@@@@JW-- C0N-II;0U#PC[@@@@@@@@@@@@@@@@@@JW!8_/J=^.&KJ&G/*)@@@@@@PS )@@G@@@@@@@@@@@@@@JXYMYS0N<:AH0TTG(\@@@@@@@@@@@@@@@@@@JXJOEYJZ*)R?J&O,MO@@@@@@PT )@@G@@@@@@@@@@@@@@J"Y]SV\1>8A'\3\3Q;@@@@@@@@@@@@@@@@@@0[KK+=\'E3A.\3=EW3@@@@@@PU )@@G@@@@@@@@@@@@@@0@F#F9KIQ$YMKG,O8D@@@@@@@@@@@@@@@@@@J_Z-8XK XN:2)L\8H/!$HIO)@@210.__2PY )@@G@@0'W%>_J&,N!7K 1I1]\'I1I\\3IA $0U9P]]J OCG@0UBOIM\;G[2$K^3"HNKJ !CJKB@[]RPZ )@@G@@0S#4Z:\3>+:ZJZK'G-0)\ 3B0UYU=.KBNFACK^@-+M\3622)@@@@@@QC )@@G@@@@@@@@@@@@@@J.32OAK IU@/KB@0@4@@@@@@@@@@@@@@@@@@KH77K\\; XX K .,&K@@@@@@QD )@@G@@@@@@@@@@@@@@08A5KGKG*.@@@@@@@@@@@@@@@@@@J_Z-9]K XN:I\3Y&Y4@@@@@@QG )@@G@@@@@@@@@@@@@@0@F#GMKIQ$Y \3L:BX@@@@@@@@@@@@@@@@@@0[KK+T\'E3A3KGV5O-2'IU:DEO0@@@KJONA5GW,_+/0L?@&U2%7-G>HPCY3PG66DB*DW%B?_QJ )@@G@@KO$J!KH^!XG]HO7.A.2:C]8!5*____G>2K[<0L?@=9\0:?9D@@@@@@@@@@@@@@@@@@6U-H7_QK )@@G@@\:S0MSHIDQ=V2(DB:(HQ68O05T____G!_8F>0L?@&1KJONA3HGW:0323+831?@=6G>)+1#KHYSO%\2-$:XJ\NQ>0EA^6R>QM )@@G@@HXPSE223I2@_\2IU:-KH1>O42\2-6Y*2;____@@@@@@@@@@@@@@@@@@JOU"6)0LC*0\KOZG Q@@@@@@QP )@@G@@@@@@@@@@@@@@3#____G"@@@@\1JI@F@@@@@@@@@@@@@@@@@@K %I]%KGZG Q0<>[B_@@@@@@QQ )@@G@@@@@@@@@@@@@@2:____G6*@@@KJ):3B@@@@@@@@@@@@@@@@@@\'P1.Z\3)3'=0<>[DZ@@@@@@QR )@@G@@@@@@@@@@@@@@3LV"'B3EO;\!2(W\=C@@@@@@@@@@@@@@@@@@GZ2?^KG7,AMKHRE^?S@@@@@@QS )@@G@@@@@@@@@@@@@@3@J #;2'Q[-H2<%A:V@@@@@@@@@@@@@@@@@@H^,,M'H %AC%HWMQKXKG:TTPQT )@@G@@3D6P,OKID%L%@@@@@@@@@@@@@@@@@@\3B3K9@@@@@@KH84" @@@@@@@@@@@@@@@@@@\296,DQU )@@G@@G6D%MK\16P!0@@@@@@@@@@@@@@@@@@KG8G\UG/37?M\1>)UM@@@@@@@@@@@@@@@@@@G>S%#JQV )@@G@@KID%L(KG:TTO@@@@@@@@@@@@@@@@@@GZ!%?YKH84"#\3B3K;@@@@@@@@@@@@@@@@@@G=0D/FQW )@@G@@\16P!1\296,E@@@@@@@@@@@@@@@@@@G$_5>A\1>)UOKG8G\T@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@\'P)" \3A%+8\0)UP@@@@@@@@@@@@@@@@@@KHADL.RA )@@G@@G6D%MB\16P!'@@@@@@@@@@@@@@@@@@KG8G\@3#>SLMKH84"K@@@@@@@@@@@@@@@@@@3U$P/2RB )@@G@@KID%L*\3O&&,@@@@@@@@@@@@@@@@@@GZ!%!@\1>)UR\3B3K>@@@@@@@@@@@@@@@@@@3VJ6#,RC )@@G@@\16P!;KHADL/@@@@@@@@@@@@@@@@@@G$_5=VKH84"KKG8G,_@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@K %Z[3KG9PX^\0;-G/UIU'0+2E+5JYE]1 MQQK@@M?20XPKRL&IGKRL&IFM&US'%RG )@@G@@M?20XOK^C&;@MB#&I7MB#&IRM&'2EXM\[DD?KQJWZ-KWD7"-MOO:@5M\9>;-G/UIU'0+2E+5RH )@@G@@JYE]1 MQQK@@M?20XPKRL&IGKRL&IFM&US'%M?20XOK^C&;@MB#&I7MB#&IRM&'2EXM\[DD?RI )@@G@@KQJWZ-KWD7"-MOO:@5M\9>;-G/UIU'0+2E+5JYE]1 MQQK@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@^@@@@@^@@@@@^@@@@@ @@@@@S@@@@@%RW )@@G@@J6, B?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@MXLUR8MG3MOLL$92Y=__________________MG3MOLMX1[-6L$92-E__________________RY )@@G@@L$92Y=L$92-EMH(!R1____________________________________LXY11@L^]&B^KI&"B4RZ )@@G@@__________________L^]&B^LYD\ASKI&"(;__________________KI&"B4KI&"(;L *_46SA )@@G@@@@@@0U@@@@0V@@@@0W@@@@0X@@@@@@@@@@0Y@@@@25@@@@26@@@@27@@@@28@@@@@@@@@@29SB )@@G@@@@@@2:@@@@2?@@@@2!@@@@2,@@@@@@@@@@2\@@@@0K@@@@0L@@@@0M@@@@0N@@@@@@@@@@0OSC )@@G@@@@@@@@@@@@@A@@@@@S@@@@@-@@@@@Y@@@@@A@@@@@G@@@@@S@@@@@=@@@@@-@@@@@G@@@@@MSD )@@G@@@@@@@S@@@@@$@@@@@=@@@@@M@@@@@@@@@@@S@@@@@Y@@@@@$@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@0U;2Y50#"E8S2-]:B021E8TNG"%/">@@@@@@J ";@J03Y@V021:C1&0N>NX2SG )@@G@@0DW.G1HOI[N/03L9%TJ>8+B.3U)Y/*0NUNPT0D\JN32;DAO/0%VN''1M)+9O0CCF9DJ/ZR_CSH )@@G@@0E]\WY@@@@@@1N&_ %IW")S&J/210;IS@B0[R7DD1#FA9FI!%KT[JWL.VD0:4P >SI )@@G@@0;II*#J7=$BP0C[9-/00D)MTJP)MFV0(,A84JOE&BG@@@@@@01,C2FI_B$8T0(NMO]0E[DX4SJ )@@G@@0TE;'PJW*>@K0-AKFOJO#[:=1E@7Y60E[H 0TE,EQ0%!C%H3U9R %GY/0K4J6$#M>0]0!#PSK )@@G@@J!(?+W@@@@@@____________0L+R_3____________J._EE*____________01U,'F______SL )@@G@@______0MFU^"F/",8O4FE2-:00WVQGJH@@<]02C\E5@@@@@@____________JRD-P]______SM )@@G@@______0:RD19____________I4*WR?____________JOAGJ=GZB4093( 2?]0E&H; J\D% 7SN )@@G@@0F3%\E@@@@@@____________J.BD0%____________0DRYE3____________JQ$/YW______SO )@@G@@______J56.)MJ>#K=K0C[#_?2)+'KU21NV!C2'/&!E@@@@@@J?W9R[0D>-=)2:;5HE1]+N',SP )@@G@@0S2RT.HJI[#BJ?=RL'0D+ ^;HA\S6@@@@@@@@@@@@@@@@@@@JP-&(Y1-F*Q+0CC=Z1J/ZW:=SQ )@@G@@J5_MZW@@@@@@JOB[.F0;V#WAJ"G,!;1E?FQH1SS(J)0](7,GJOFG@S0;V9=20CT 7'@@@@@@SR )@@G@@@@@@@@@@@@@@0CAN9,J^72DV0%Z_#*JQL_!2JOG@"R@@@@@@0EB5\7J&+;::JWPUW&JR>_M:SS )@@G@@JHWW^O0*-+ I0E[9M/J&-,VS0%:-6>@@@@@@@@@@@@@@@@@@GYA0Q?3-\IJK0DTGR>J.JS3CST )@@G@@J!,<,U@@@@@@____________J.6K>O____________0F!_2"____________0MD:______SV )@@G@@______JR)I17____________JOB<"$@@@@@@@@@@@@@@@@@@GXR]K,3(:NN/0E&-\8J\EV;?SW )@@G@@J4H%:4@@@@@@____________J5!,WV____________0]*&.B____________0EB [D@@@@@@SX )@@G@@@@@@@@@@@@@@0*S/\]0C[[BHH=J\^%3F6\F229G8^W@@@@@@I5#O4_JGK0 43LJDJ40T-WV7SY )@@G@@0DYH3B29[M)602;/XNJ$D0^%3C/<740TE^;U0D?#+ZG"Z$<9JP([?LI")D:N0#/GEL0DA_;TSZ )@@G@@J7G&B#@@@@@@1-3S,$IP>0*\J&[17&JO+ 0#.6KI0VQVO[0%O%<]0:F*S JP]^&3@@@@@@J^V&1E1C@U\GJ^H0T 0D-DPVTB )@@G@@0M"@-"JPT;]W0+5LF$JP:T80JQBQGP0D-/U*0N]"K_0ATC )@@G@@J!+_E.@@@@@@____________JZ8N( ____________J!%"UL____________J!+5\V______TD )@@G@@______0]N\<YI00"34W1[TV7DJJ'K9+@@@@@@____________I/V"J&______TE )@@G@@______JJ3M]4____________JQ+X^^____________01#OGY3--@0VG>#Z/9J5[GSVJ=,E]0TF )@@G@@0EP_2-@@@@@@____________0-(9]R____________0EU_M7____________0#O2C=______TG )@@G@@______J4."G&JR:G':0C^'>SH==N?*3(HB&QH^;ZC\@@@@@@J&><-Q0D-6?-H GMH-JA9^B;TH )@@G@@0T0N.9GYHO&BJ&5DWP )@@G@@ ENTRY@E@@@@ J NR11 . $T WAS IT FOUND ? WQ )@@G@@@E@@@@ J NR2 . $A YES,NR2 NO,NR11 @A@@@@WR )@@G@@NR10 L A0,(-1) . @G@@@@ S,H1 A0,3,X8 WS )@@G@@. $P SET BAD LN # FLAG IN LENGTH IN PARAM @E@@@@ JNB A4,NR12 WT )@@G@@ . $T IS THIS NEXT-LN FNC @C@@@@ WU )@@G@@. $A YES NO,NR12 @G@@@@NR11 SZ,H1 3,X8 . $P PUT ZERO IN LWV )@@G@@ENGTH OF PARAM @E@@@@ L A0,LNNUM . $P GET LASWW )@@G@@T LINE IN PROC @E@@@@ A A0,LNINC . $P INC TO NEXT LWX )@@G@@INE @A@@@@ TG,U A0,2001 . @A@@@@ L,UWY )@@G@@ A0,2000 . @A@@@@ S,H2 A0,2,X8 . @C@@@@WZ )@@G@@NR12 SZ,H1 2,X8 . $P ZERO LINE-# @C@@@@ J *REXA )@@G@@TURN . $E RETURN @]@@@@ . @A@@@@ . XB )@@G@@ ** PF$AMW ** @]@@@@ . @C@@@@ . ROUTINE TO WRITE A LXC )@@G@@INE TO THE FILE @A@@@@ . FOR A PARTICULAR PROC@]@@@@ . XD )@@G@@ @^@@@@ . CALL IS @A@@@@ . LX,U X10,PXE )@@G@@ARAM @A@@@@ . LMJ X11,PF$AMW @C@@@@ . WHEXF )@@G@@RE PARAM IS FOLLOWING @E@@@@ . PARAM + PRXG )@@G@@OC-NAME (2 WORDS) @G@@@@ . + LINE-#,[XH )@@G@@NEXT-LINE-#] (N-L-# RETURNED)@E@@@@ . + LEXI )@@G@@NGTH,BUF-ADDR @]@@@@ . @G@@@@ . THE ROUTINE CHXJ )@@G@@ECKS TO SEE IF LINE-# HAS BEEN PREVIOUSLY @G@@@@ . ENTXK )@@G@@ERED, AND IF SO REPLACES IT WITH THE NEW LINE @]@@@@ . XL )@@G@@@C@@@@PF$AMW*. . $H PF$AMW @A@@@@ L XM )@@G@@ A4,(-1) . @C@@@@ J RNWS . $J RNWS XN )@@G@@ @]@@@@ . @E@@@@ . THIS PART OF LOGIC HANDLES STOREXO )@@G@@ OF LINE @C@@@@ . WHERE LINE # ALREADY EXISTS XP )@@G@@@]@@@@ . @E@@@@W1 L A2,LNCNT . $P DECREMENT LINXQ )@@G@@E COUNT @A@@@@ AN,U A2,1 . @A@@@@ S XR )@@G@@ A2,LNCNT . @E@@@@ TG,U A1,1900 . $T IS LINEXS )@@G@@ # < 1900 ? @G@@@@ SLJ LNWARN . $W LNWARN - PRINXT )@@G@@T MAX LINE WARNING @A@@@@ AN,U A0,1 . @E@@@@XU )@@G@@ L R3,A0 . $P SAVE INDEX ADDR FOR LINE @E@@@@ XV )@@G@@ L A0,0,A0 . $P GET ADDR OF OLD LINE @A@@@@ LSSXW )@@G@@L A0,12 . @A@@@@ SSL A0,12 . @A@@@@XX )@@G@@ L A5,A0 . @E@@@@ L,H1 A2,3,X8 XY )@@G@@. $P GET NEW LINE LENGTH @E@@@@ A,U A2,5 . $P AXZ )@@G@@DD WORD FOR HEADER @A@@@@ SZ A1 . @G@@@@YA )@@G@@ DI,U A1,6 . $P CONVERT LENGTH TO WORD LENGTH YB )@@G@@@A@@@@ A,U A1,1 . @E@@@@ L,H2 A3,0,A0 YC )@@G@@ . $P GET OLD LINE LENGTH @E@@@@ A,U A3,5 YD )@@G@@. $P ADD WORD FOR HEADER @A@@@@ SZ A2 . YE )@@G@@@G@@@@ DI,U A2,6 . $P CONVERT LENGTH TO WORD LENGTH YF )@@G@@ @A@@@@ A,U A2,1 . @G@@@@ TNE A1,YG )@@G@@A2 . $T ARE OLD & NEW WORD LENGTHS EQUAL ? @C@@@@ J YH )@@G@@ W54 . $A NO YES,W54 @G@@@@ TG A1,A2 YI )@@G@@. $T WILL NEW LINE FIT IN OLD SPACE ? @C@@@@ J W3 YJ )@@G@@ . $A YES NO,W3 @G@@@@ AN A2,A1 . $P CALCULAYK )@@G@@TE EXTRA SPACE SIZE AND LOC @A@@@@ AU A2,A5 . YL )@@G@@@G@@@@ SLJ ADDSTK . $W ADDSTK - PUT EXTRA SPACE ON AVAYM )@@G@@IL STK@C@@@@ J W54 . $J W54 @G@@@@W3 YN )@@G@@ L A3,A5 . $P GET SIZE AND LOC OF OLD LINE @G@@@@YO )@@G@@ SLJ ADDSTK . $W ADDSTK - PUT SPACE ON AVAIL STACK YP )@@G@@@C@@@@ J W50 . $J W50 @]@@@@ . YQ )@@G@@@C@@@@ADDSTK + 0 . $H ADDSTK @A@@@@ SZ YR )@@G@@ A4 . @A@@@@ L R1,AVCNT . @E@@@@YS )@@G@@ L X10,(1,AVSTK) . $P SET PTR TO AVAIL STACK @E@@@@ YT )@@G@@ SE,T1 A4,0,*X10 . $P FIND EMPTY SLOT ON STACK @A@@@@ J YU )@@G@@ ADD2 . @A@@@@ AN,U X10,1 . @A@@@@YV )@@G@@ J ADD3 . @A@@@@ADD2 L A4,AVCNT YW )@@G@@. @A@@@@ TG,U A4,500 . @A@@@@ J *ADYX )@@G@@DSTK . @A@@@@ A,U A4,1 . @A@@@@ YY )@@G@@ S A4,AVCNT . @E@@@@ADD3 S A3,0,X10 . $P PYZ )@@G@@UT ENTRY INTO STACK @A@@@@ S,T1 A2,0,X10 . @C@@@@ZA )@@G@@ J *ADDSTK . $E RETURN @]@@@@ . @E@@@@ZB )@@G@@ . THIS SECTION OF LOGIC HANDLES WRITE FNC @C@@@@ . ZC )@@G@@ FOR THE CASE OF A NEW LINE-# @]@@@@ . @E@@@@W40 ZD )@@G@@ TG,U A1,1900 . $T IS LINE-# < 1900 ? @G@@@@ SLJZE )@@G@@ LNWARN . $W LNWARN - PRINT MAX LN WARNING @E@@@@ ZF )@@G@@ L A0,LNCNT . $P GET # LINES AS INDEX CNT @A@@@@ SZ ZG )@@G@@ A4 . @G@@@@ TG,U A0,PRMXLN . $T HAVE MAZH )@@G@@X # LINES BEEN INPUT @C@@@@ J NR10 . $A NZI )@@G@@O YES,NR10 @A@@@@ L R1,A0 . @E@@@@ L ZJ )@@G@@ A0,INDXAD . $P GET START OF INDEX BLOCK @G@@@@ LXI,U A0,ZK )@@G@@1 . $P SEARCH INDEX BLOCK FOR INSERT POINT @E@@@@ SG,ZL )@@G@@T1 A1,0,*A0 . $T IS IT AT END OF BLOCK ? @C@@@@ J W41ZM )@@G@@ . $A NO YES,W41 @E@@@@ A A0,R1 . $P GZN )@@G@@ET END OF INDEX BLOCK @G@@@@ LXI,U A0,-1 . $P SET INDZO )@@G@@ICES TO SHIFT INDEX BLOCK @A@@@@ L X9,A0 . ZP )@@G@@@A@@@@ AN,U X9,1 . @E@@@@ L A2,R1 ZQ )@@G@@ . $P GET SHIFT COUNT @A@@@@ A,U A2,1 ZR )@@G@@. @A@@@@ L R1,A2 . @G@@@@ BT A0,ZS )@@G@@0,*X9 . $P SHIFT INDEX BLOCK TO ALLOW NEW ENTRY @A@@@@W41 L ZT )@@G@@ R3,A0 . @G@@@@W50 L,H1 A1,3,X8 . $P GET LINZU )@@G@@E LENGTH FROM PARAM @E@@@@ A,U A1,5 . $P AZV )@@G@@LLOW FOR HEADER WORD @A@@@@ SZ A0 . @G@@@@ZW )@@G@@ DI,U A0,6 . $P CONVERT LENGTH TO WORD LENGTH ZX )@@G@@@A@@@@ A,U A0,1 . @G@@@@ TNZ AVCNT ZY )@@G@@ . $T IS THERE VACANT ALLOCATED SPACE ? @C@@@@ J W52ZZ )@@G@@ . $A YES NO,W52 @A@@@@ L R1,AVCNT . AA )@@G@@@G@@@@ L A1,(1,AVSTK) . $P SET PTR TO AVAIL SPACE STACK AB )@@G@@ @G@@@@ SE,T1 A0,0,*A1 . $T IS THERE VACANT SPACE OF AC )@@G@@NEEDED SIZE?@C@@@@ J W51 . $A YES NO,W51 @A@@@@AD )@@G@@ AN,U A1,1 . @G@@@@ L A2,0,A1 AE )@@G@@. $P GET VACANT SPACE ENTRY FROM STACK @E@@@@ SZ 0,A1 AF )@@G@@ . $P CLEAR STACK ENTRY @G@@@@ LSSL A2,12 AG )@@G@@. $P GET RELATIVE WORD ADDR OF SPACE @A@@@@ SSL A2,12 AH )@@G@@ . @C@@@@ J W53 . $J W53 @A@@@@AI )@@G@@W51 L R1,AVCNT . @G@@@@ L A1,(1,AVSTK) AJ )@@G@@. $P SET PTR TO AVAIL SPACE STACK @G@@@@ SG,T1 A0,0,*A1 AK )@@G@@ . $T IS THERE ENTRY WITH ENOUGH SPACE ? @C@@@@ J W52AL )@@G@@ . $A YES NO,W52 @A@@@@ AN,U A1,1 . AM )@@G@@@E@@@@ L,T1 A4,0,A1 . $P GET # WORDS VACANT @A@@@@AN )@@G@@ AN A4,A0 . @G@@@@ L A2,0,A1 AO )@@G@@. $P GET REL WORD ADDR OF VACANT SPACE @A@@@@ LSSL A2,12 AP )@@G@@ . @A@@@@ SSL A2,12 . @A@@@@ AU AQ )@@G@@ A2,A0 . @G@@@@ S A3,0,A1 . $P UPDATE AR )@@G@@AVAIL STK ENTRY TO GIVE LEFT @E@@@@ S,T1 A4,0,A1 . $ OAS )@@G@@VER VACANT SPACE @C@@@@ J W53 . $J W53 AT )@@G@@ @G@@@@W52 L A2,NXTADR . $P GET NEXT UNALLOCATED SPACAU )@@G@@E FOR PROC @G@@@@ TNZ NXTADR . $T HAS NEW SPACE BUFFEAV )@@G@@R BEEN GOTTEN @C@@@@ J W521 . $A YES NO,W521 AW )@@G@@@G@@@@ AU A2,A0 . $P GET END OF NEW LINE IN THIS BUFAX )@@G@@FER @E@@@@ TG A3,LSTADR . $T WILL LINE FIT IN BUFFER AY )@@G@@@C@@@@ J W521 . $A YES NO,W521 @E@@@@ S AZ )@@G@@ A3,NXTADR . $P SAVE NEXT NEW ADDR @C@@@@ J W53BA )@@G@@ . $J W53 @E@@@@W521 L A3,A0 . $P SBB )@@G@@AVE NEW LINE LENGTH @E@@@@ L A0,LAST$D . $P MCORE NBC )@@G@@EW SPACE BUFFER @A@@@@ A,U A0,1 . @A@@@@ BD )@@G@@ L A2,A0 . @A@@@@ A,U A0,512 . BE )@@G@@@G@@@@ S A0,LSTADR . $P SAVE END ADDR OF NEW BUFFER BF )@@G@@ @A@@@@ AN,U A0,1 . @A@@@@ S A0,BG )@@G@@LAST$D . @A@@@@ ER MCORE$ . @E@@@@ BH )@@G@@ L A0,A3 . $P RESTORE NEW LINE LENGTH @G@@@@ AU BI )@@G@@ A2,A0 . $P GET END OF NEW LINE IN THIS BUFFER @E@@@@ BJ )@@G@@ S A3,NXTADR . $P SAVE NEXT NEW ADDR @G@@@@W53 L BK )@@G@@ X9,R3 . $P GET INDEX ENTRY ADDR FOR LINE @E@@@@ BL )@@G@@ S A2,0,X9 . $P SAVE ADDR IN INDEX @E@@@@ L,HBM )@@G@@1 A1,2,X8 . $P GET LINE-# FROM PARAM @E@@@@ S,T1 A1,BN )@@G@@0,X9 . $P SAVE LINE # IN INDEX @A@@@@ L A0,A2 BO )@@G@@ . @A@@@@W54 LXI,U A0,1 . @E@@@@ L,HBP )@@G@@1 A1,2,X8 . $P GET LINE-# FROM PARAM @E@@@@ S,H1 A1,BQ )@@G@@0,A0 . $P SAVE IT IN LINE HEADER @G@@@@ TG A1,LNNUM BR )@@G@@ . $T IS IT LESS THAN LAST-LINE-# ? @E@@@@ S A1,BS )@@G@@LNNUM . $P SAVE IT AS LAST-LINE-# @E@@@@ A A1,LNINC BT )@@G@@ . $P INCREMENT LINE # @E@@@@ TG,U A1,2001 BU )@@G@@. $T IS NEXT # < 2001 @E@@@@ L,U A1,2000 . $P SBV )@@G@@ET NEXT # TO 2000 @G@@@@ S,H2 A1,2,X8 . $P PUT IT BW )@@G@@IN NEXT-LINE-# OF PARAM @E@@@@ L,H1 A2,3,X8 . $P GBX )@@G@@ET LENGTH FROM PARAM @E@@@@ S,H2 A2,0,*A0 . $P SAVE ITBY )@@G@@ IN LINE HEADER @G@@@@ AN,U A2,1 . $P CONVERT CHAR BZ )@@G@@LENGTH TO WORD LENGTH @A@@@@ SZ A1 . @A@@@@CA )@@G@@ DI,U A1,6 . @A@@@@ A,U A1,1 CB )@@G@@. @G@@@@ L R1,A1 . $P SAVE IT FOR TRANSFER COUNCC )@@G@@T @E@@@@ L,H2 X9,3,X8 . $P GET BUF-ADDR FROM PCD )@@G@@ARAM @A@@@@ LXI,U X9,1 . @G@@@@ BT A0,CE )@@G@@0,*X9 . $P TRANSFER LINE TO BLOCK BUFFER @A@@@@ L CF )@@G@@ A1,LNCNT . @E@@@@ A,U A1,1 . $P INCREMECG )@@G@@NT LINE COUNT @A@@@@ S A1,LNCNT . @C@@@@ CH )@@G@@ J *RETURN . $E RETURN @]@@@@ . @A@@@@ . CI )@@G@@ ** PF$AMD ** @]@@@@ . @C@@@@ . ROUTINE CJ )@@G@@TO DELETE A LINE FROM PS$FILE @]@@@@ . @^@@@@ . CALL IS CK )@@G@@ @A@@@@ . LX,U X10,PARAM @C@@@@ . CL )@@G@@ LMJ X11,PF$AMD (PF$AMDN) @C@@@@ . WHERE PARAM IS FOLLOWCM )@@G@@ING - @E@@@@ . PARAM + PROC-NAME (2WORDS) CN )@@G@@ @E@@@@ . + LINE-#,[NEXT-LINE-#] CO )@@G@@@]@@@@ . @C@@@@PF$AMD*. . $H PF$AMD CP )@@G@@@C@@@@ L,U A4,2 . $P SET FLAG @C@@@@ J CQ )@@G@@ RNWS . $J RNWS @C@@@@PF$AMDN*. CR )@@G@@. $H PF$AMDN @C@@@@ L,U A4,3 . $P SET FLAG CS )@@G@@@C@@@@ J RNWS . $J RNWS @E@@@@D1 TE,CT )@@G@@U A4,2 . $T IS THIS DEL NEXT FNC ? @C@@@@ J D2 CU )@@G@@ . $A NO YES,D2 @G@@@@ AN,U A0,1 . $P RCV )@@G@@ESET TO INDEX ENTRY FOR THIS LINE @A@@@@ ANU,U A0,1 CW )@@G@@. @A@@@@ SZ A5 . @A@@@@ TG A1,CX )@@G@@INDXAD . @E@@@@ L,T1 A5,0,A1 . $P GET PRIOR LINCY )@@G@@E # @A@@@@ LSSL A5,18 . @E@@@@ A,HCZ )@@G@@1 A5,2,X8 . $P SAVE THIS LINE # @C@@@@ J D10DA )@@G@@ . $J D10 @E@@@@D2 JGD R1,D10 . $T IDB )@@G@@S THERE ANOTHER INDEX @C@@@@ J NR11 . $A YES NO,DC )@@G@@NR11 @E@@@@D3 L A5,2,X8 . $P SAVE LINE # AND NEXT # DD )@@G@@@E@@@@D10 L A2,LNCNT . $P DECREMENT INDEX KEY CNT @A@@@@DE )@@G@@ AN,U A2,1 . @A@@@@ S A2,LNCNT DF )@@G@@. @E@@@@ L A3,0,A0 . $P SAVE INDEX KEY DG )@@G@@@A@@@@ L A1,R1 . @E@@@@ SZ R2 DH )@@G@@ . $P GET ACTUAL NEXT LINE # @A@@@@ TZ A1 DI )@@G@@. @A@@@@ L,T1 R2,1,A0 . @G@@@@ L X9,DJ )@@G@@A0 . $P SET INDICES FOR KEY TRANSFER @A@@@@ A,UDK )@@G@@ X9,1 . @E@@@@ BT A0,0,*X9 . $P PACK INDL )@@G@@DEX KEY BLOCK @C@@@@ LSSL A3,12 . $P GET WORD ADDRDM )@@G@@@A@@@@ SSL A3,12 . @A@@@@ L A0,A3 DN )@@G@@ . @E@@@@ L,H2 A2,0,A0 . $P GET LINE CHAR LENGTDO )@@G@@H @E@@@@ A,U A2,5 . $P ADD HEADER WORD DP )@@G@@@A@@@@ SZ A1 . @G@@@@ DI,U A1,6 DQ )@@G@@ . $P CONVERT LENGTH TO WORD LENGTH @A@@@@ A,U A1,DR )@@G@@1 . @A@@@@ L A2,A1 . @G@@@@ DS )@@G@@ SLJ ADDSTK . $W ADDSTK - PUT ENTRY ON AVAIL STACK @E@@@@DT )@@G@@ S A5,2,X8 . $P SET LINE #, NEXT # @G@@@@ DU )@@G@@ S,H1 R2,3,X8 . $P STORE ACTUAL NEXT LN # IN PARAM @C@@@@DV )@@G@@ J *RETURN . $E RETURN @]@@@@ . @A@@@@DW )@@G@@ . ** PF$AMQ ** @]@@@@ . @C@@@@ . RODX )@@G@@UTINE TO RESET LINE INCREMENT @]@@@@ . @^@@@@ . CADY )@@G@@LL IS @C@@@@ . L A0,NEW-INCREMENT @A@@@@DZ )@@G@@ . LMJ X11,PF$AMQ @]@@@@ . @C@@@@PF$AMQ*. EA )@@G@@ . $H PF$AMQ @E@@@@ S A0,LNINC EB )@@G@@. $P RESET INCREMENT @C@@@@ J 0,X11 . $E REC )@@G@@ETURN @]@@@@ . @E@@@@ . THE FOLLOWING ROUTINES PROED )@@G@@DUCE MESSAGES ON @C@@@@ . DETECTION OF CERTAIN CONDITEE )@@G@@IONS @]@@@@ . @E@@@@ . 1. PROC NOT INITIALIZED BEFOREEF )@@G@@ R/W ATTEMPTED @]@@@@ . @C@@@@NOPROC. EG )@@G@@. $H NOPROC @E@@@@ E$DIT PREPKT . $P SET UP ERROR EH )@@G@@MESSAGE @A@@@@ E$COPY 5,NPM1 . @A@@@@ DL EI )@@G@@ A0,0,X8 . @A@@@@ LMJ X11,EFD2$ . @A@@@@EJ )@@G@@ E$COPY 42,NPM2 . @A@@@@ E$DITX EK )@@G@@. @E@@@@ P$RINT (PF 1,10,PREBUF) . $P PRINT MESSAGE EL )@@G@@@C@@@@ ER EXIT$ . $E TERMINATE @]@@@@ . EM )@@G@@@E@@@@ . 2. PROC LINE # > 1900 ENCOUNTERED, PRINT WARNING@]@@@@EN )@@G@@ . @C@@@@LNWARN + 0 . $H LNWARN @E@@@@EO )@@G@@ TZ MAXLN . $T IS THIS FIRST VIOLATION ?@E@@@@ EP )@@G@@ J *LNWARN . $E RETURN WITH NO MESSAGE @A@@@@ L EQ )@@G@@ R1,A0 . @E@@@@ L,U A0,1 . $P SET MESER )@@G@@SAGE-PRINTED FLAG @A@@@@ S A0,MAXLN . @E@@@@ ES )@@G@@ P$RINT (PF 1,10,LWM1) . $P PRINT WARNING MESSAGE @A@@@@ L ET )@@G@@ A0,R1 . @C@@@@ J *LNWARN . $E RETURN EU )@@G@@ @]@@@@ . *[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@EV )@@G@@$(1) . @]@@@@FINDER* . @D@@@@ L,U A5,0 EW )@@G@@ . SET VALUE=0 @E@@@@ L A0,IAREG . FIRST CEX )@@G@@HARACTER @B@@@@ AN,U A0,+'A' . @F@@@@ EY )@@G@@ JN A0,OUT . OUT - IF NOT ALPHABETIC @B@@@@ EZ )@@G@@ TG,U A0,+'Z'-'A' . @B@@@@ J OUT FA )@@G@@ . @D@@@@ L,H2 A2,TAB,A0 . L(A-Z TABLE) FB )@@G@@@E@@@@ L,H1 A1,TAB,A0 . NO. OF COMPARES @B@@@@FC )@@G@@ J NEXT2 . @E@@@@NEXT A,U A2,1 FD )@@G@@ . STEP TO NEXT A-Z LOC@B@@@@NEXT2 JGD A1,TEST FE )@@G@@ . @C@@@@ J OUT . NO FIND@E@@@@FF )@@G@@TEST L,S1 A3,0,A2 . WORD NO. TO COMPARE@B@@@@ FG )@@G@@ L A4,IAREG-1,A3 . @B@@@@ TE,S2 A4,0,A2 FH )@@G@@ . @D@@@@ J NEXT . TRY NEXT WORDFI )@@G@@@E@@@@ L,S3 A3,0,A2 . WORD NO. TO COMPARE@E@@@@FJ )@@G@@ JZ A3,OK . OK IF NO WORD NO. @B@@@@ FK )@@G@@ L A4,IAREG-1,A3 . @B@@@@ TE,S4 A4,0,A2 FL )@@G@@ . @D@@@@ J NEXT . TRY NEXT WORDFM )@@G@@@C@@@@OK L,T3 A5,0,A2 . CODE @E@@@@OUT S FN )@@G@@ A5,*0,X11 . STORE CODE VALUE @C@@@@ J FO )@@G@@ 2,X11 . RETURN @]@@@@$(0) . @B@@@@AZ FORM FP )@@G@@ 18,18 . @B@@@@TAB AZ 6,A . FQ )@@G@@@B@@@@ AZ 2,B . @B@@@@ AZ FR )@@G@@ 5,C . @B@@@@ AZ 8,D . FS )@@G@@@B@@@@ AZ 8,E . @B@@@@ AZ FT )@@G@@ 2,F . @B@@@@ AZ 2,G . FU )@@G@@@B@@@@ AZ 0,H . @B@@@@ AZ FV )@@G@@ 7,I . @B@@@@ AZ 0,J . FW )@@G@@@B@@@@ AZ 0,K . @B@@@@ AZ FX )@@G@@ 1,L . @B@@@@ AZ 2,M . FY )@@G@@@B@@@@ AZ 1,N . @B@@@@ AZ FZ )@@G@@ 0,O . @B@@@@ AZ 4,P . GA )@@G@@@B@@@@ AZ 0,Q . @B@@@@ AZ GB )@@G@@ 9,R . @B@@@@ AZ 8,S . GC )@@G@@@B@@@@ AZ 0,T . @B@@@@ AZ GD )@@G@@ 0,UU . @B@@@@ AZ 0,V . GE )@@G@@@B@@@@ AZ 3,WW . @B@@@@ AZ GF )@@G@@ 0,X . @B@@@@ AZ 0,Y . GG )@@G@@@B@@@@ AZ 0,Z . @B@@@@VAL FORM GH )@@G@@ 6,6,6,6,12 . @D@@@@A VAL 2,'S',3,'S',1 . 1GI )@@G@@=ASSIGN @D@@@@ VAL 2,'R',3,'G',2 . 2=ARGUMENT GJ )@@G@@@D@@@@ VAL 2,'B',3,'N',3 . 3=ABNORMAL @D@@@@ GK )@@G@@ VAL 2,'C',3,'C',54 . 54=ACCEPT @E@@@@ VAL GL )@@G@@ 2,'L',3,'T',57 . 57=ALTERNATE PRINTER@E@@@@ VAL 2,'S'GM )@@G@@,4,'$',62 . 62=ASM$INTERFACE @D@@@@B VAL 2,'L',3,'O'GN )@@G@@,4 . 4=BLOCK DATA @D@@@@ VAL 2,'A',3,'C',5 . 5=GO )@@G@@BACK SPACE @C@@@@C VAL 2,'A',3,'L',6 . 6=CALL @C@@@@GP )@@G@@ VAL 2,'O',4,'M',7 . 7=COMMON@D@@@@ VAL GQ )@@G@@ 2,'O',3,'N',8 . 8=CONTINUE @D@@@@ VAL 2,'O',5,'L'GR )@@G@@,9 . 9=COMPLEX @D@@@@ VAL 2,'O',5,'I',10 . 10GS )@@G@@=COMPILER @E@@@@D VAL 2,'O',3,'U',11 . 11=DOUBLE PRECGT )@@G@@ISION @C@@@@ VAL 2,'O',0,0,12 . 12=DO @D@@@@ GU )@@G@@ VAL 2,'I',3,'M',13 . 13=DIMENSION @C@@@@ VAL GV )@@G@@ 2,'A',3,'T',14 . 14=DATA @D@@@@ VAL 2,'E',3,'C',15 GW )@@G@@ . 15=DECODE @D@@@@ VAL 2,'E',3,'F',16 . 16=DEFINGX )@@G@@E @D@@@@ VAL 2,'E',3,'L',17 . 17=DELETE @D@@@@GY )@@G@@ VAL 2,'I',3,'S',55 . 55=DISPLAY @D@@@@E VAGZ )@@G@@L 2,'Q',3,'U',18 . 18=EQUIVALENCE@D@@@@ VAL 2,'X'HA )@@G@@,3,'T',19 . 19=EXTERNAL @C@@@@ VAL 2,'N',3,'T',20 HB )@@G@@ . 20=ENTRY@D@@@@ VAL 2,'N',3,'C',21 . 21=ENCODE HC )@@G@@@D@@@@ VAL 2,'N',4,'F',22 . 22=END FILE @C@@@@ HD )@@G@@ VAL 2,'N',3,'D',23 . 23=END @D@@@@ VAL 2,'R'HE )@@G@@,3,'P',56 . 56=ERPRINT @D@@@@F VAL 2,'O',3,'R',24 HF )@@G@@ . 24=FORMAT @D@@@@ VAL 2,'U',3,'N',25 . 25=FUNCTHG )@@G@@ION @C@@@@G VAL 2,'O',3,'T',26 . 26=GO TO@D@@@@ HH )@@G@@ VAL 2,'E',3,'N',60 . 60=GENERATE @]@@@@H . @D@@@@HI )@@G@@I VAL 2,'N',3,'C',27 . 27=INCLUDE @D@@@@ VAHJ )@@G@@L 2,'N',3,'T',28 . 28=INTEGER @D@@@@ VAL 2,'M'HK )@@G@@,3,'P',29 . 29=IMPLICIT @D@@@@ VAL 2,'F',3,'D',30 HL )@@G@@ . 30=IF DIVIDE @E@@@@ VAL 2,'F',3,'A',31 . 31=IF ACHM )@@G@@CUMULATOR @D@@@@ VAL 2,'F',3,'Q',32 . 32=IF QUOTIENTHN )@@G@@@I@@@@ VAL 2,'F',0,0,33 . 33=IF OR IF(SENSE LIGHT) OHO )@@G@@R IF(SENSE SWI @]@@@@J . @]@@@@K . @D@@@@L VAHP )@@G@@L 2,'O',3,'G',34 . 34=LOGICAL @D@@@@M VAL 2,'O'HQ )@@G@@,3,'N',35 . 35=MONITOR @D@@@@ VAL 2,'A',3,'C',64 HR )@@G@@ . 64=MACROS @D@@@@N VAL 2,'A',3,'M',36 . 36=NAMELHS )@@G@@IST @]@@@@O . @D@@@@P VAL 2,'A',3,'R',37 . 37HT )@@G@@=PARAMETER @C@@@@ VAL 2,'A',3,'U',38 . 38=PAUSE@C@@@@HU )@@G@@ VAL 2,'R',3,'I',39 . 39=PRINT@C@@@@ VAL HV )@@G@@ 2,'U',3,'N',40 . 40=PUNCH@]@@@@Q . @]@@@@R . @D@@@@HW )@@G@@ VAL 3,'P',4,'L',59 . 59=REPLACE @C@@@@ VAHX )@@G@@L 3,'A',4,'L',44 . 44=REAL @D@@@@ VAL 2,'E',3,'T'HY )@@G@@,45 . 45=RETURN @D@@@@ VAL 2,'E',3,'W',46 . 46HZ )@@G@@=REWIND @D@@@@ VAL 2,'E',4,'E',58 . 58=REPEAT IA )@@G@@@D@@@@ VAL 2,'E',3,'G',61 . 61=REGISTER @E@@@@ IB )@@G@@ VAL 2,'E',5,'I',41 . . 41=READ INPUT TAPE@D@@@@ VAIC )@@G@@L 2,'E',5,'T',42 . 42=READ TAPE @C@@@@ VAL 2,'E'ID )@@G@@,4,'D',43 . 43=READ@H@@@@S VAL 2,'T',6,'E',53 . SIE )@@G@@TART/STOP EDIT MGC @H@@@@ VAL 2,'T',5,'E'IF )@@G@@,53 . STOP EDIT MGC @D@@@@ VAL IG )@@G@@ 2,'T',6,'T',53 . START TRACE @H@@@@ VAL 2,'T',5,'T'IH )@@G@@,53 . STOP TRACE MGC @C@@@@ VAL II )@@G@@ 2,'T',3,'O',47 . 47=STOP @D@@@@ VAL 2,'U',3,'B',48 IJ )@@G@@ . 48=SUBROUTINE @D@@@@ VAL 2,'E',3,'N',49 . 49=SENSEIK )@@G@@ LIGHT@C@@@@ VAL 2,'C',3,'A',63 . 63=SCAN @]@@@@T IL )@@G@@ . @]@@@@UU . @]@@@@V . @E@@@@WW VAL 2,'R'IM )@@G@@,6,'O',50 . 50=WRITE OUTPUT TAPE@D@@@@ VAL 2,'R',6,'T'IN )@@G@@,51 . 51=WRITE TAPE @C@@@@ VAL 2,'R',3,'I',52 . 52IO )@@G@@=WRITE@]@@@@X . @]@@@@Y . @]@@@@Z . @ @@@@ IP )@@G@@ VAL 0,0,0,0,0 @E@@@@E8ARY INFO 2 6 . LIQ )@@G@@ABEL COMMON E8ARY @]@@@@$(6) . @B@@@@NWAR RES 1 IR )@@G@@ . @B@@@@MULT RES 1 . @B@@@@NWAR1 IS )@@G@@ RES 1 . @B@@@@IAREG RES 1792 IT )@@G@@ . @]@@@@ END___. @C@@@@ J OUT IU )@@G@@ . NO FIND@E@@@@TEST L,S1 A3,0,A2 . WORD NOIV )@@G@@. TO COMPARE@B@@@@ *[@@@@*SDFF*@I@@@@ SUBROUTINE HEAD1 IW )@@G@@ HED10001 @I@@@@C IX )@@G@@ HED10002 IY )@@G@@@I@@@@C PRINT HEADING FOR MERGED VARIABLES IZ )@@G@@ HED10003 @I@@@@C JA )@@G@@ HED10004 @I@@@@ IMPLICIT INTEGER (A-Z) JB )@@G@@ HED10005 @I@@@@ DIMENSJC )@@G@@ION HD1(6,10),HD2(6,10),HD3(7,10) HED10006 JD )@@G@@@I@@@@ DATA HD1/ JE )@@G@@ HED10007 @I@@@@ 1 'THE FIRST FLAG INDICATES THE& ' , JF )@@G@@ HED10008 @I@@@@ 2 'NATURE OF THE ALPHABETJG )@@G@@IC ENTITY& ' , HED10009 @I@@@@ 3 ' JH )@@G@@ = UNDIMENSIONED VARIABLE& ' , HED10010 JI )@@G@@@I@@@@ 4 'DMVR = DIMENSIONED VARIABLE& ' , JJ )@@G@@ HED10011 @I@@@@ 5 'FCTN = FUNCTION NAME& ', JK )@@G@@ HED10012 @I@@@@ 6 'LBCM = NAME OF LABELEDJL )@@G@@ COMMON& ' , HED10013 @I@@@@ 7 'SBRTJM )@@G@@ = SUBROUTINE NAME& ' , HED10014 JN )@@G@@@I@@@@ 8 'SWVR = SWITCH VARIABLE& ' , JO )@@G@@ HED10015 @I@@@@ 9 'NMLT = NAMELIST NAME& ' , JP )@@G@@ HED10016 @I@@@@ A '& ' , 5*' ' /JQ )@@G@@ HED10017 @I@@@@ DATA HJR )@@G@@D2/ HED10018 JS )@@G@@@I@@@@ 1 'THE FOLLOWING TWO CHARACTER FLAGS& ' , JT )@@G@@ HED10019 @I@@@@ 2 'INDICATE THAT THE ENTITY IS IN THE& ' , JU )@@G@@ HED10020 @I@@@@ 3 'CORRESPONDING TYPE OF JV )@@G@@STATEMENT& ' , HED10021 @I@@@@ 4 'AB =JW )@@G@@ ABNORMAL EX = EXTERNAL& ' , HED10022 JX )@@G@@@I@@@@ 5 'CM = COMMON FA = FORML AGUMT& ' , JY )@@G@@ HED10023 @I@@@@ 6 'CP = COMPLEX IN = INTEGER& ' , JZ )@@G@@ HED10024 @I@@@@ 7 'DA = DATA LG =KA )@@G@@ LOGICAL& ' , HED10025 @I@@@@ 8 'DM =KB )@@G@@ DIMENSION PR = PARAMETER& ' , HED10026 KC )@@G@@@I@@@@ 9 'DP = DBL PRECISN RL = REAL& ' , KD )@@G@@ HED10027 @I@@@@ A 'EQ = EQUIVALENCE NL = NAMELIST& ' / KE )@@G@@ HED10028 @I@@@@ DATA HD3/ KF )@@G@@ HED10029 @I@@@@ 1 'THE KG )@@G@@FLAGS FOLLOWING THE LINE NUMBERS& ' , HED10030 KH )@@G@@@I@@@@ 2 '(ON WHICH THE ENTITY WAS REFERENCED)& ' , KI )@@G@@ HED10031 @I@@@@ 3 'INDICATE THE NATURE OF THE REFERENCE& KJ )@@G@@ ' , HED10032 @I@@@@ 4 'A = SET EQUAL,DEFINED,KK )@@G@@ASSIGNED& ' , HED10033 @I@@@@ 5 'B = KL )@@G@@REFERENCED,CALLED G = FORMAT& ' , HED10034 KM )@@G@@@I@@@@ 6 'C = CALLING SEQUENCE H = I-O UNIT& ' , KN )@@G@@ HED10035 @I@@@@ 7 'D = SUBSCRIPT I = READ& KO )@@G@@ ' , HED10036 @I@@@@ 8 'E = SPECIFICATION KP )@@G@@O = WRITE& ' , HED10037 @I@@@@ 9 'J = KQ )@@G@@DO PARAMETER L = LIST& ' , HED10038 KR )@@G@@@I@@@@ A '& ' , 6*' ' / KS )@@G@@ HED10039 @I@@@@C KT )@@G@@ HED10040 @I@@@@ CALL OPAP ( 63,-1,'& KU )@@G@@ ' ) HED10041 @I@@@@ CALL OKV )@@G@@PAP ( 1,45,'V A R I A B L E T A B L E&' ) HED10042 KW )@@G@@@I@@@@ DO 10 K=1,10 KX )@@G@@ HED10043 @I@@@@ CALL OPA ( -1,'& ' ) KY )@@G@@ HED10044 @I@@@@ CALL OPA ( 6,HD1(1,K) ) KZ )@@G@@ HED10045 @I@@@@ CALL OLA )@@G@@PA ( 43,HD2(1,K) ) HED10046 LB )@@G@@@I@@@@ CALL OPAP ( 1,79,HD3(1,K) ) LC )@@G@@ HED10047 @I@@@@ 10 CONTINUE LD )@@G@@ HED10048 @I@@@@ CALL OPA ( -1,'VARBLE&' LE )@@G@@) HED10049 @I@@@@ CALL OLF )@@G@@PA ( 13,'FLAGS&' ) HED10050 LG )@@G@@@I@@@@ CALL OPA ( 29,'LB CM&' ) LH )@@G@@ HED10051 @I@@@@ CALL OPAP ( 2,38,'LINE NUMBERS AND FLAGS&'LI )@@G@@ ) HED10052 @I@@@@ CALL OPAP ( 1,-1,'& LJ )@@G@@' ) HED10053 @I@@@@ RETURNLK )@@G@@ HED10054 LL )@@G@@@I@@@@ END LM )@@G@@ HED10055 ___@@@ END LN )@@G@@ *[@@@@*SDFF*@I@@@@ SUBROUTINE HEAD2 LO )@@G@@ HED20001 @I@@@@C LP )@@G@@ HED20002 LQ )@@G@@@I@@@@C PRINT STATEMENT NO. HEADING LR )@@G@@ HED20003 @I@@@@C LS )@@G@@ HED20004 @I@@@@ IMPLICIT INTEGER (A-Z) LT )@@G@@ HED20005 @I@@@@ DIMENSLU )@@G@@ION HD1(9,2),HD2(9,2), HED20006 LV )@@G@@@I@@@@ * HD2A(3,3),HD2B(3,3),HD2C(4,3) LW )@@G@@ HED20007 @I@@@@ DATA HD1/ LX )@@G@@ HED20008 @I@@@@ 1 'THE FIRST ENTRY FOLLOWLY )@@G@@ING THE STATEMENT NUMBER& ' , HED20009 @I@@@@ 2 'IS TLZ )@@G@@HE NUMBER OF THE LINE ON WHICH IT WAS DEFINED& ' / HED20010 MA )@@G@@@I@@@@ DATA HD2/ MB )@@G@@ HED20011 @I@@@@ 1 'THE FLAGS FOLLOWING THE LINE NUMBERS (ONMC )@@G@@ WHICH THE&' , HED20012 @I@@@@ 2 'STATEMENT NUMBER WAS RMD )@@G@@EFERENCED) INDICATE THE NATURE&' / HED20013 @I@@@@ DATA HME )@@G@@D2A/ HED20014 MF )@@G@@@I@@@@ 1 'D = DEFINED& ' , MG )@@G@@ HED20015 @I@@@@ 2 'S = FORMAT NUMBER&' , MH )@@G@@ HED20016 @I@@@@ 3 'T = NONSTNDRD RTN&' / MI )@@G@@ HED20017 @I@@@@ DATA HMJ )@@G@@D2B/ HED20018 MK )@@G@@@I@@@@ 1 'U = ASSIGNED& ' , ML )@@G@@ HED20019 @I@@@@ 2 'V = DO& ' , MM )@@G@@ HED20020 @I@@@@ 3 'W = GOTO (CNDTNL)&' / MN )@@G@@ HED20021 @I@@@@ DATA HMO )@@G@@D2C/ HED20022 MP )@@G@@@I@@@@ 1 'X = GOTO (UNCNDTNL)& ' , MQ )@@G@@ HED20023 @I@@@@ 2 'Y = IF (ARITHMETIC)& ' , MR )@@G@@ HED20024 @I@@@@ 3 '& ' , 3*' ' /MS )@@G@@ HED20025 @I@@@@C MT )@@G@@ HED20026 MU )@@G@@@I@@@@ CALL OPAP ( 63,-1,' &' ) MV )@@G@@ HED20027 @I@@@@ CALL OPAP ( 1,37,'S T A T E M E N T N U MW )@@G@@M B E R T A B L E&' ) HED20028 @I@@@@ DO 10 K=1,2 MX )@@G@@ HED20029 @I@@@@ CALL OMY )@@G@@PA ( -1,' &' ) HED20030 MZ )@@G@@@I@@@@ CALL OPA ( 6,HD1(1,K) ) NA )@@G@@ HED20031 @I@@@@ CALL OPAP ( 1,60,HD2(1,K) ) NB )@@G@@ HED20032 @I@@@@ 10 CONTINUE NC )@@G@@ HED20033 @I@@@@ CALL OND )@@G@@PA ( -1,' &' ) HED20034 NE )@@G@@@I@@@@ CALL OPAP ( 1,60,'OF THE REFERENCE&' ) NF )@@G@@ HED20035 @I@@@@ DO 20 K=1,3 NG )@@G@@ HED20036 @I@@@@ CALL OPA ( -1,' &' )NH )@@G@@ HED20037 @I@@@@ CALL ONI )@@G@@PA ( 60,HD2A(1,K) ) HED20038 NJ )@@G@@@I@@@@ CALL OPA ( 79,HD2B(1,K) ) NK )@@G@@ HED20039 @I@@@@ CALL OPAP ( 1,96,HD2C(1,K) ) NL )@@G@@ HED20040 @I@@@@ 20 CONTINUE NM )@@G@@ HED20041 @I@@@@ CALL ONN )@@G@@PAP ( 2,-1,' &' ) HED20042 NO )@@G@@@I@@@@ RETURN NP )@@G@@ HED20043 @I@@@@ END NQ )@@G@@ HED20044 ___ = DEFINED& ' , NR )@@G@@ *[@@@@*SDFF*@^@@@@ AXR$ . @[@@@@NS )@@G@@. @D@@@@. CONVERT NUMBER (INTEGER) TO FIELD DATA S/R. @[@@@@NT )@@G@@. @A@@@@. CALL ITF ( NUM,NUMFD ) @[@@@@. @B@@@@. NU )@@G@@ NUM=NUMBER TO BE CONVERTED. @H@@@@. NUMFD=NO. IN FIELD DNV )@@G@@ATA ( 2 WORDS ) RIGHT JUSTIFIED BLANK FILL. @[@@@@. @]@@@@$(1) NW )@@G@@ . @]@@@@ITF* . @B@@@@ L,U A0,72 . NX )@@G@@@D@@@@ DL A3,SPACES . A3=A4=BLANKS @C@@@@ NY )@@G@@ LM A1,*0,X11 . A1=NUM @]@@@@LOOP . @B@@@@ NZ )@@G@@ DSL A1,36 . @F@@@@ DI,U A1,10 OA )@@G@@ . A1=NUM/10 A2=REMAINDER @B@@@@ A,U A4,'0'-' ',OB )@@G@@A2 . @B@@@@ DSC A3,6 . @B@@@@ OC )@@G@@ ANX,U A0,6 . @B@@@@ JNZ A1,LOOP OD )@@G@@ . @C@@@@ L A1,*0,X11 . A1=NUM @D@@@@OE )@@G@@ JP A1,$+3 . NUM NEGATIVE? @B@@@@ JZOF )@@G@@ A1,$+2 . NO@E@@@@ A,U A4,'-'-' ' OG )@@G@@ . YES - SET SIGN (-) @D@@@@ DSC A3,0,A0 . RIOH )@@G@@GHT JUSTIFY @D@@@@ DS A3,*1,X11 . STORE NUMFD OI )@@G@@@C@@@@ J 3,X11 . RETURN @]@@@@$(0) . OJ )@@G@@@ @@@@SPACES ' ' . @#@@@@ END ___ JNOK )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ . @[@@@@$(1) .@^@@@@MEMSQ$* EQU OL )@@G@@ 1 @ @@@@NINTR$* J 1,X11 . @]@@@@NERR$* . @]@@@@NERR2$OM )@@G@@* . @]@@@@NERR3$* . @]@@@@NERR4$* . @]@@@@NERR5$* . @]@@@@NERR6$ON )@@G@@* . @ @@@@ ER ERR$ . @]@@@@EXIT* . @ @@@@NSTOP$OO )@@G@@* ER EXIT$ . @#@@@@ END ___ END ___@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^<^A]0^@VA#K@[ R;:@@@?@)^<(%0V@@@/KE@@@R#)^1YOR )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE MRGHD OS )@@G@@ MGHD0001 @I@@@@C OT )@@G@@ MGHD0002 @I@@@@C PRINT HEADING FOU )@@G@@OR MERGED VARIABLES MGHD0003 @I@@@@OV )@@G@@C OW )@@G@@MGHD0004 @I@@@@ IMPLICIT INTEGER (A-Z) OX )@@G@@ MGHD0005 @I@@@@ DIMENSION HD1(6,10),HD2(6,10),OY )@@G@@HD3(7,10) MGHD0006 @I@@@@ DATA HD1/ OZ )@@G@@ MGHD0007 @I@@@@PA )@@G@@ 1 'THE FIRST FLAG INDICATES THE& ' , PB )@@G@@MGHD0008 @I@@@@ 2 'NATURE OF THE ALPHABETIC ENTITY& ' , PC )@@G@@ MGHD0009 @I@@@@ 3 ' = UNDIMENSIONED VARIABLPD )@@G@@E& ' , MGHD0010 @I@@@@ 4 'DMVR = DIMPE )@@G@@ENSIONED VARIABLE& ' , MGHD0011 @I@@@@PF )@@G@@ 5 'FCTN = FUNCTION NAME& ', PG )@@G@@MGHD0012 @I@@@@ 6 'LBCM = NAME OF LABELED COMMON& ' , PH )@@G@@ MGHD0013 @I@@@@ 7 'SBRT = SUBROUTINE NAME& PI )@@G@@ ' , MGHD0014 @I@@@@ 8 'SWVR = SWIPJ )@@G@@TCH VARIABLE& ' , MGHD0015 @I@@@@PK )@@G@@ 9 'NMLT = NAMELIST NAME& ' , PL )@@G@@MGHD0016 @I@@@@ A '& ' , 5*' ' / PM )@@G@@ MGHD0017 @I@@@@ DATA HD2/ PN )@@G@@ MGHD0018 @I@@@@ 1 'THE FOLLOWPO )@@G@@ING TWO CHARACTER FLAGS& ' , MGHD0019 @I@@@@PP )@@G@@ 2 'INDICATE THAT THE ENTITY IS IN THE& ' , PQ )@@G@@MGHD0020 @I@@@@ 3 'CORRESPONDING TYPE OF STATEMENT& ' , PR )@@G@@ MGHD0021 @I@@@@ 4 'AB = ABNORMAL EX = EXTERPS )@@G@@NAL& ' , MGHD0022 @I@@@@ 5 'CM = COMMOPT )@@G@@N FA = FORML AGUMT& ' , MGHD0023 @I@@@@PU )@@G@@ 6 'CP = COMPLEX IN = INTEGER& ' , PV )@@G@@MGHD0024 @I@@@@ 7 'DA = DATA LG = LOGICAL& ' , PW )@@G@@ MGHD0025 @I@@@@ 8 'DM = DIMENSION PR = PARAMPX )@@G@@ETER& ' , MGHD0026 @I@@@@ 9 'DP = DBL PPY )@@G@@RECISN RL = REAL& ' , MGHD0027 @I@@@@PZ )@@G@@ A 'EQ = EQUIVALENCE NL = NAMELIST& ' / QA )@@G@@MGHD0028 @I@@@@ DATA HD3/ QB )@@G@@ MGHD0029 @I@@@@ 1 'THE FLAGS FOLLOWING THE LINEQC )@@G@@ NUMBERS& ' , MGHD0030 @I@@@@ 2 '(ON WHICH QD )@@G@@THE ENTITY WAS REFERENCED)& ' , MGHD0031 @I@@@@QE )@@G@@ 3 'INDICATE THE NATURE OF THE REFERENCE& ' , QF )@@G@@MGHD0032 @I@@@@ 4 'A = SET EQUAL,DEFINED,ASSIGNED& ' , QG )@@G@@ MGHD0033 @I@@@@ 5 'B = REFERENCED,CALLED G = FOQH )@@G@@RMAT& ' , MGHD0034 @I@@@@ 6 'C = CALLINQI )@@G@@G SEQUENCE H = I-O UNIT& ' , MGHD0035 @I@@@@QJ )@@G@@ 7 'D = SUBSCRIPT I = READ& ' , QK )@@G@@MGHD0036 @I@@@@ 8 'E = SPECIFICATION O = WRITE& ' , QL )@@G@@ MGHD0037 @I@@@@ 9 'J = DO PARAMETER L = LIQM )@@G@@ST& ' , MGHD0038 @I@@@@ A '& ' , QN )@@G@@6*' ' / MGHD0039 @I@@@@QO )@@G@@C QP )@@G@@MGHD0040 @I@@@@ CALL OPAP ( 63,-1,'& ' ) QQ )@@G@@ MGHD0041 @I@@@@ CALL OPAP ( 1,44,'M E R G E D QR )@@G@@ V A R I A B L E S&' ) MGHD0042 @I@@@@ DO 10 K=1,10QS )@@G@@ MGHD0043 @I@@@@QT )@@G@@ CALL OPA ( -1,'& ' ) QU )@@G@@MGHD0044 @I@@@@ CALL OPA ( 6,HD1(1,K) ) QV )@@G@@ MGHD0045 @I@@@@ CALL OPA ( 43,HD2(1,K) ) QW )@@G@@ MGHD0046 @I@@@@ CALL OPAP ( QX )@@G@@1,79,HD3(1,K) ) MGHD0047 @I@@@@QY )@@G@@ 10 CONTINUE QZ )@@G@@MGHD0048 @I@@@@ CALL OPA ( -1,'VARBLE ROUTINE&' ) RA )@@G@@ MGHD0049 @I@@@@ CALL OPA ( 20,'FLAGS&' ) RB )@@G@@ MGHD0050 @I@@@@ CALL OPA ( 3RC )@@G@@6,'LB CM&' ) MGHD0051 @I@@@@RD )@@G@@ CALL OPAP ( 2,44,'LINE NUMBERS AND FLAGS&' ) RE )@@G@@MGHD0052 @I@@@@ CALL OPAP ( 1,-1,'& ' ) RF )@@G@@ MGHD0053 @I@@@@ RETURN RG )@@G@@ MGHD0054 @I@@@@ END RH )@@G@@ MGHD0055 ___@@@RI )@@G@@ END RJ )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE MRG8 RK )@@G@@ MRG80001 @I@@@@C THIS SUBROUTINE SETS THINGS URL )@@G@@P SO THE DATA ON DRUM CAN BE MERGED MRG80002 @I@@@@C RM )@@G@@ MRG80003 @D@@@@RN )@@G@@C MAXSEC=MAXIMUM NO. OF SECTORS FOR BUFFER IN CORE @B@@@@C MAXSIZ=MARO )@@G@@XIMUM BUFFER SIZE IN CORE @[@@@@C @C@@@@ PARAMETER MAXSEC=8RP )@@G@@12,MAXSIZ=28*MAXSEC @B@@@@ DIMENSION KARY(MAXSIZ),LARY(2,300) RQ )@@G@@@I@@@@ COMMON KADD,NENT,JF11,NAME(4,300),PLINE(22) RR )@@G@@ MRG80005 @I@@@@C NENT = NUMBER OF ROUTINES FOR WHICH DATRS )@@G@@A HAS BEEN WRITTEN ON THMRG80006 @I@@@@C KADD = DRUM ADDRESS ORT )@@G@@F THE LAST DATA WHICH HAS BEEN WRITTEN MRG80007 @I@@@@C RU )@@G@@ MRG80008 RV )@@G@@@I@@@@C SET-UP A NEW PAGE HEADING RW )@@G@@ MRG80009 @I@@@@C RX )@@G@@ MRG80010 @I@@@@ IF ( NENT.LE.0 )RETURN RY )@@G@@ @ NO ELEMENTS MRG80011 @I@@@@ IF (JFRZ )@@G@@11.GT.0) GO TO 10 MRG80012 SA )@@G@@@I@@@@ CALL HDG (-1,15HMERGED ROUTINES) SB )@@G@@ MRG80013 @I@@@@ 10 NENTM1 = NENT-1 SC )@@G@@ MRG80014 @I@@@@ IF (NENTM1.LE.0) GO TO 2SD )@@G@@0 MRG80015 @I@@@@C FIND SE )@@G@@THE ADDRESS OF THE END OF EACH ROUTINE MRG80016 SF )@@G@@@I@@@@ CALL MOVER(NAME(4,2),4,NAME(3,1),4,NENTM1) SG )@@G@@ MRG80017 @I@@@@ 20 NAME(3,NENT)=KADD SH )@@G@@ MRG80018 @I@@@@C SORT ON NAME SI )@@G@@ MRG80019 @I@@@@ IF (NESJ )@@G@@NTM1.LE.0) GO TO 50 MRG80020 SK )@@G@@@I@@@@ DO 40 I=1,NENTM1 SL )@@G@@ MRG80021 @I@@@@ DO 40 J=1,NENTM1 SM )@@G@@ MRG80022 @I@@@@ IF (NAME(1,J).LT.NAME(1,SN )@@G@@J+1)) GO TO 40 MRG80023 @I@@@@ IF (NASO )@@G@@ME(2,J).LT.NAME(2,J+1)) GO TO 40 MRG80024 SP )@@G@@@I@@@@ DO 30 K=1,4 SQ )@@G@@ MRG80025 @I@@@@ ITEMP=NAME(K,J) SR )@@G@@ MRG80026 @I@@@@ NAME(K,J)=NAME(K,J+1) SS )@@G@@ MRG80027 @I@@@@ 30 NAME(KST )@@G@@,J+1)=ITEMP MRG80028 SU )@@G@@@I@@@@ 40 CONTINUE SV )@@G@@ MRG80029 @I@@@@C WRITE OUT THE NAMES OF THE ROUTINES BEINGSW )@@G@@ MERGED MRG80030 @I@@@@ 50 CALL OPAP ( 63,1,'& SX )@@G@@' ) MRG80031 @I@@@@ CALL OSY )@@G@@PAP ( 3,-1,' THE FOLLOWING ROUTINES ARE MERGED&' ) MRG80032 SZ )@@G@@@I@@@@ CALL OPAP ( 3,-1,'& ' ) TA )@@G@@ MRG80033 @I@@@@ DO 60 I=1,NENT TB )@@G@@ MRG80034 @I@@@@C CHECK TO SEE IF THE ROUTC )@@G@@TINE HAS ANY DATA MRG80035 @I@@@@ IF ( NTD )@@G@@AME(3,I).GT.NAME(4,I) )CALL OPAFP ( 1,11,NAME(1,I),12 ) MRG80036 TE )@@G@@@I@@@@ 60 CONTINUE TF )@@G@@ MRG80037 @I@@@@ CALL MRGHD TG )@@G@@ MRG80038 @I@@@@C COMPUTE VARIABLE DIMENSTH )@@G@@IONS OF SUBROUTINE ARRAY MRG80039 @^@@@@ LKARY=TI )@@G@@MAXSEC/NENT @I@@@@C CALL THE ROUTINE TO MERGE THE DATA TJ )@@G@@ MRG80041 @I@@@@ CALL DMMG (KARY,LKARY,NENT) TK )@@G@@ MRG80042 @I@@@@ RETURN TL )@@G@@ MRG80043 @I@@@@TM )@@G@@C***********************************************************************TN )@@G@@MRG80044 @I@@@@ SUBROUTINE DMMG (KARY,KL,NENT) TO )@@G@@ MRG80045 @I@@@@C * THIS SUBROUTINE DOES THE ACTUTP )@@G@@AL MERGING OF THE DATA MRG80046 @I@@@@ DATA KZSS /6TQ )@@G@@HZ///// / MRG80047 @I@@@@TR )@@G@@ DIMENSION KARY(28,KL,NENT) TS )@@G@@MRG80048 @I@@@@C FILL THE BUFFER TT )@@G@@ MRG80049 @I@@@@ JMAX=28*( KL - 1 ) TU )@@G@@ @ MMRG80050 @I@@@@ DO 10 I=1,NETV )@@G@@NT MRG80051 @I@@@@TW )@@G@@ LARY(1,I)=KL+1 TX )@@G@@MRG80052 @I@@@@ LARY(2,I)=0 TY )@@G@@ MRG80053 @I@@@@ 10 CALL BUFIL (I,KARY,KL,NENT) TZ )@@G@@ MRG80054 @I@@@@C FIND THE VAUA )@@G@@RIABLE NAME WHICH IS LOWEST ALPHABETICALLY MRG80055 @I@@@@UB )@@G@@ 20 NLST=0 UC )@@G@@MRG80056 @I@@@@ LST=KZSS UD )@@G@@ MRG80057 @I@@@@ DO 30 I=1,NENT UE )@@G@@ MRG80058 @I@@@@ N=LARY(1,I) UF )@@G@@ MRG80059 @I@@@@UG )@@G@@ IF (LARY(2,I).EQ.1) GO TO 30 UH )@@G@@MRG80060 @I@@@@ IF (LST.LE.KARY(1,N,I)) GO TO 30 UI )@@G@@ MRG80061 @I@@@@ LST=KARY(1,N,I) UJ )@@G@@ MRG80062 @I@@@@ NLST=I UK )@@G@@ MRG80063 @I@@@@UL )@@G@@ 30 CONTINUE UM )@@G@@MRG80064 @I@@@@C IF ALL ELEMENTS ARE PROCESSED WE ARE DONE UN )@@G@@ MRG80065 @I@@@@ IF (NLST .EQ. 0) RETURN UO )@@G@@ MRG80066 @I@@@@C IF THE BUFFUP )@@G@@ER CONTAINS TO LITTLE OR JUST ENOUGH DATA - REFILL IT MRG80067 @I@@@@UQ )@@G@@ N=LARY(1,NLST) UR )@@G@@MRG80068 @I@@@@ JM2=KARY(9,N,NLST) US )@@G@@ MRG80069 @I@@@@ IF ((JM2+27)/28 .GE. KL-N) CALUT )@@G@@L BUFIL (NLST,KARY,KL,NENT) MRG80070 @I@@@@C WRITE THE VUU )@@G@@ARIABLE ENTERY MRG80071 @I@@@@UV )@@G@@ N=LARY(1,NLST) UW )@@G@@MRG80072 @I@@@@ JMT=JM2 @ UX )@@G@@ MMRG80074 @I@@@@ IF ( JM2.GT.JMAX )JM2=JMAX UY )@@G@@ @ MMRG80075 @I@@@@ CALL OPAF ( UZ )@@G@@1,KARY(1,N,NLST),6 ) MRG80076 @I@@@@VA )@@G@@ CALL OPAF ( 8,NAME(1,NLST),6 ) VB )@@G@@MRG80077 @I@@@@ CALL OPAF ( 15,KARY(7,N,NLST),4 ) VC )@@G@@ MRG80078 @I@@@@ CALL OPAF ( 19,KARY(2,N,NLST),VD )@@G@@2,5,1 ) MRG80079 @I@@@@ CALL OPAF ( VE )@@G@@36,KARY(8,N,NLST),6 ) MRG80080 @^@@@@VF )@@G@@ DO 40 J=1,JM2,14 @^@@@@ NR=JM2 - J + 1 @ @@@@ IF ( NVG )@@G@@R.GT.14 )NR=14 @D@@@@ CALL OPAFP ( 1,43,KARY(J,N+1,NLST),6,NR,0 VH )@@G@@) @ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 40 CONTINUE @I@@@@VI )@@G@@ LARY(1,NLST)=LARY(1,NLST)+1 @ MVJ )@@G@@MRG80090 @I@@@@ 50 LARY(1,NLST)=LARY(1,NLST) + (JM2+27)/28 @ VK )@@G@@ MMRG80091 @I@@@@ JMT=JMT -JM2 VL )@@G@@ @ MMRG80092 @I@@@@ IF ( LARY(1,VM )@@G@@NLST).GE.KL )CALL BUFIL ( NLST,KARY,KL,NENT ) @ MMRG80093 @I@@@@VN )@@G@@ IF (JMT.LE.0) GO TO 20 @ MVO )@@G@@MRG80094 @I@@@@ N=LARY(1,NLST) @ VP )@@G@@ MMRG80095 @I@@@@ JM2=JMT VQ )@@G@@ @ MMRG80096 @I@@@@ IF ( JM2.GT.VR )@@G@@JMAX )JM2=JMAX @ MMRG80097 @^@@@@VS )@@G@@ DO 60 J=1,JM2,14 @^@@@@ NR=JM2 - J + 1 @ @@@@ IF ( NVT )@@G@@R.GT.14 )NR=14 @C@@@@ CALL OPAFP ( 1,43,KARY(J,N,NLST),6,NR,0 ) VU )@@G@@@ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 60 CONTINUE @I@@@@ VV )@@G@@GO TO 50 @ MMRG801VW )@@G@@07 @I@@@@C***********************************************************VX )@@G@@************MRG80114 @I@@@@ SUBROUTINE BUFIL (NAR,KARY,KL,NENT) VY )@@G@@ MRG80115 @I@@@@C THIS SUBROUTINE RVZ )@@G@@EFILLS THE BUFFER FROM THE DATA ON DRUM MRG80116 @I@@@@ WA )@@G@@DIMENSION KARY(28,KL,NENT) MRG801WB )@@G@@17 @I@@@@C FIND OUT HOW MUCH IS LEFT ON DRUM FOR THIS ROUTINE WC )@@G@@ MRG80118 @I@@@@ LEFT=NAME(3,NAR)-NAME(4,NAR) WD )@@G@@ MRG80119 @I@@@@C IF THERE IS NO DAWE )@@G@@TA LEFT SET FLAG AND RETURN MRG80120 @I@@@@ WF )@@G@@IF (LEFT.GT.0) GO TO 20 MRG801WG )@@G@@21 @I@@@@ LARY(2,NAR)=1 WH )@@G@@ MRG80122 @I@@@@ RETURN WI )@@G@@ MRG80123 @I@@@@C FIND AMOUNT OF DAWJ )@@G@@TA TO BE READ FROM DRUM MRG80124 @I@@@@ 20 WK )@@G@@N=LARY(1,NAR) MRG801WL )@@G@@25 @I@@@@ IF (LEFT .GT. (N-1)*28) LEFT=(N-1)*28 WM )@@G@@ MRG80126 @I@@@@ IF ( LEFT.LE.0 )RETURN @ WN )@@G@@ MMRG80127 @I@@@@ J=N-LEFT/28 WO )@@G@@ MRG80128 @I@@@@ WP )@@G@@LARY(1,NAR)=J MRG801WQ )@@G@@29 @I@@@@C MOVE THE OLD DATA TO THE FRONT OF THE BUFFER WR )@@G@@ MRG80130 @I@@@@ IF (N.GT.KL) GO TO 40 WS )@@G@@ MRG80131 @I@@@@ DO 30 I=N,KL WT )@@G@@ MRG80132 @I@@@@ WU )@@G@@CALL MOVER(KARY(1,I,NAR),1,KARY(1,J,NAR),1,28) MRG801WV )@@G@@33 @I@@@@ 30 J=J+1 WW )@@G@@ MRG80134 @I@@@@C GET THE DATA FROM DRUM WX )@@G@@ MRG80135 @I@@@@ 40 MADD=KL+1-LEFT/28 WY )@@G@@ MRG80136 @I@@@@ WZ )@@G@@CALL OBTAN8(KARY(1,MADD,NAR),LEFT,NAME(4,NAR)) MRG801XA )@@G@@37 @I@@@@ RETURN XB )@@G@@ MRG80138 @I@@@@ END XC )@@G@@ MRG80139 ___ SUBROUTINE DMMG (KARY,KLXD )@@G@@,NENT) MRG80045 @I@@@@C * THIS XE )@@G@@SUBROUTINE DOES THE ACTUAL MERGING OF THE DATA *[@@@@*SDFF*@^@@@@ XF )@@G@@ AXR$ . @[@@@@$(1) .@]@@@@OPRIME* . @[@@@@ . @^@@@@ . CALXG )@@G@@L OPRIME(BUF,N) @C@@@@ . BUF IS THE AREA TO BUILD IMAGE INTO XH )@@G@@@B@@@@ . N IS THE NUMBER OF WORDS IN BUF @[@@@@ . @B@@@@ XI )@@G@@ LA A1,*1,X11 . @B@@@@ SA,S3 A1,OPK XJ )@@G@@ . @B@@@@ LA,H2 A2,0,X11 . @B@@@@ XK )@@G@@ SA,H2 A2,OPK . @ @@@@ SX X11,X11S . XL )@@G@@@ @@@@ LA,U A0,OPK. @ @@@@ LMJ X11,EDIT$ .XM )@@G@@@B@@@@ LMJ X11,EDITX$ . @B@@@@ LX XN )@@G@@ X11,X11S . @B@@@@ J 3,X11 . XO )@@G@@@]@@@@OPRINT* . @B@@@@ LA A0,*0,X11 . @B@@@@XP )@@G@@ SA A0,OPFLG . @B@@@@ SLJ OPRNTXQ )@@G@@ . @B@@@@ J 2,X11 . @[@@@@XR )@@G@@. @ @@@@. CALL PUNCH - PUNCH IMAGE @[@@@@. @]@@@@OPUNCH* . XS )@@G@@@B@@@@ L,U A0,0 . @B@@@@ S XT )@@G@@ A0,OPFLG . @B@@@@ L A0,( ER PUNCH$) . XU )@@G@@@B@@@@ S A0,OPRNTA . @B@@@@ SLJ XV )@@G@@ OPRNT . @B@@@@ L A0,( ER PRINT$) . XW )@@G@@@B@@@@ S A0,OPRNTA . @B@@@@ J XX )@@G@@ 1,X11 . @[@@@@ . @[@@@@ . @^@@@@ . CALL OPCHAR('X'XY )@@G@@) @F@@@@ . DECLARE THE CHARACTER X TO BE NEW STRING TERM CHARACTEXZ )@@G@@R @[@@@@ . @]@@@@OPCHAR* . @B@@@@ LA,S1 A0,*0,X11 YA )@@G@@ . @B@@@@ SA,S2 A0,OPK . @B@@@@ YB )@@G@@ J 2,X11 . @[@@@@ . @#@@@@ . CALL OPCOL(CP) YC )@@G@@@B@@@@ . OBTAIN CURRENT COLUMN POSITION IN CP@[@@@@ . @B@@@@OPCOL*YD )@@G@@ LA,S2 A0,OPK+1 . @B@@@@ MI,U A0,6 YE )@@G@@ . @B@@@@ AA,S1 A1,OPK+1 . @B@@@@ YF )@@G@@ AA,U A1,1 . @B@@@@ SA A1,*0,X11 YG )@@G@@ . @B@@@@ J 2,X11 . @[@@@@ . YH )@@G@@@[@@@@ . @H@@@@OPAF* L A4,NEG . YI )@@G@@ MGC @H@@@@ J LOC45 . YJ )@@G@@ MGC @H@@@@OPAFP* L A4,*0,X11 YK )@@G@@ . MGC @H@@@@ AX,U YL )@@G@@ X11,1 . MGC @H@@@@LOC45 YM )@@G@@ L,U A3,3 . MGC YN )@@G@@@H@@@@ J LOC1 . YO )@@G@@ MGC @B@@@@OPA* LA A4,NEG . @B@@@@ YP )@@G@@ J LOC50 . @B@@@@OPAP* LA A4,*0,X11 YQ )@@G@@ . @B@@@@ AX,U X11,1 . @B@@@@LOC50 YR )@@G@@ LA,U A3,2 . @B@@@@ J LOC1 YS )@@G@@ . @B@@@@OPO* LA A4,NEG . @B@@@@ YT )@@G@@ J LOC55 . @B@@@@OPOP* LA A4,*0,X11 YU )@@G@@ . @B@@@@ AX,U X11,1 . @B@@@@LOC55 YV )@@G@@ LA,U A3,1 . @B@@@@ J LOC1 YW )@@G@@ . @B@@@@OPI* LA A4,NEG . @B@@@@ YX )@@G@@ J LOC60 . @B@@@@OPIP* LA A4,*0,X11 YY )@@G@@ . @B@@@@ AX,U X11,1 . @B@@@@LOC60 YZ )@@G@@ LA,U A3,0 . @B@@@@LOC1 SA A4,OPFLG ZA )@@G@@ . @ @@@@ SA A3,TYPE @B@@@@ LA ZB )@@G@@ A1,*0,X11 . @B@@@@ JP A1,LOC1B . ZC )@@G@@@B@@@@ LA,H2 A2,OPK . @B@@@@ SA,H2 ZD )@@G@@ A2,LOC1A . @B@@@@ LA,S3 A3,OPK . ZE )@@G@@@B@@@@ ANA,U A3,1 . @B@@@@ LA ZF )@@G@@ A0,OPBLK . @B@@@@LOC1A SA A0,$-$,A3 . ZG )@@G@@@B@@@@ JGD A3,LOC1A . @B@@@@ SZ,T1 ZH )@@G@@ OPK+1 . @B@@@@ J LOC3 . ZI )@@G@@@B@@@@LOC1B JZ A1,LOC3 . @B@@@@ TE,U ZJ )@@G@@ A1,1 . @B@@@@ J LOC2 . ZK )@@G@@@B@@@@ SZ,T1 OPK+1 . @B@@@@ J ZL )@@G@@ LOC3 . @B@@@@LOC2 LA,U A0,0 . ZM )@@G@@@B@@@@ ANA,U A1,1 . @B@@@@ DI,U ZN )@@G@@ A0,6 . @B@@@@ SA,S2 A0,OPK+1 . ZO )@@G@@@B@@@@ SA,S1 A1,OPK+1 . @B@@@@LOC3 SX ZP )@@G@@ X11,X11S . @B@@@@ LA,U A0,OPK . ZQ )@@G@@@B@@@@ LMJ X11,EDITR$ . @B@@@@ LX ZR )@@G@@ X11,X11S . @B@@@@ LA A0,TYPE . ZS )@@G@@@B@@@@ TE,U A0,2 . @B@@@@ J ZT )@@G@@ LOC4 . @B@@@@ LA,H2 A0,1,X11 . ZU )@@G@@@B@@@@ LMJ X11,EMSG$ . @B@@@@ LMJ ZV )@@G@@ X11,EDITX$ . @B@@@@ SLJ OPRNT . ZW )@@G@@@B@@@@ LX X11,X11S . @B@@@@ J ZX )@@G@@ 3,X11 . @B@@@@LOC4 SX X4,X4S . ZY )@@G@@@B@@@@ SX X5,X5S . @B@@@@ LX,H2 ZZ )@@G@@ X4,1,X11 . @B@@@@ LXI,U X4,1 . AA )@@G@@@B@@@@ LA A0,*2,X11 . @B@@@@ SA AB )@@G@@ A0,FW . @B@@@@ TNZ,H1 3,X11 . AC )@@G@@@B@@@@ J LOC5 . @B@@@@ LX,U AD )@@G@@ X5,0 . @B@@@@ SZ SP . AE )@@G@@@B@@@@ J LOC6 . @B@@@@LOC5 LX AF )@@G@@ X5,*3,X11 . @B@@@@ ANX,U X5,1 . AG )@@G@@@B@@@@ LA A0,*4,X11 . @B@@@@ SA AH )@@G@@ A0,SP . @B@@@@ AX,U X11,2 . AI )@@G@@@B@@@@ SX X11,X11S . @B@@@@LOC6 TNZ AJ )@@G@@ SP . @B@@@@ J LOC8 . AK )@@G@@@B@@@@ LA A1,SP . @B@@@@ JN AL )@@G@@ A1,LOC7 . @B@@@@ LA,U A0,OPBLK . AM )@@G@@@B@@@@ LMJ X11,ECOPY$ . @B@@@@ J AN )@@G@@ LOC8 . @B@@@@LOC7 LNA A0,SP . AO )@@G@@@B@@@@ LMJ X11,ESKIP$ . @B@@@@LOC8 LA AP )@@G@@ A1,FW . @H@@@@ L A0,TYPE . 0=AQ )@@G@@I 1=O 3=ALPHA(FIXED) MGC @H@@@@ JZ A0,LOC8A AR )@@G@@ . MGC @H@@@@ TLE,U AS )@@G@@ A0,2 . MGC @H@@@@ AT )@@G@@ J LOC9 . MGC AU )@@G@@@H@@@@ L,U A0,0,*X4 . AV )@@G@@ MGC @H@@@@ LMJ X11,ECOPY$ . AW )@@G@@ MGC @H@@@@ J LOC10 . AX )@@G@@ MGC @H@@@@LOC8A L A0,0,*X4 AY )@@G@@ . MGC @B@@@@ LMJ AZ )@@G@@ X11,EDECF$ . @B@@@@ J LOC10 . BA )@@G@@@B@@@@LOC9 TLE,U A1,13 . @B@@@@ J BB )@@G@@ LOC11 . @B@@@@ LA,U A0,5 . BC )@@G@@@B@@@@ LMJ X11,ECHAR$ . @B@@@@ JGD BD )@@G@@ A1,LOC9 . @B@@@@LOC11 LA A0,0,*X4 . BE )@@G@@@B@@@@ LMJ X11,EOCTF$ . @B@@@@LOC10 JGD BF )@@G@@ X5,LOC6 . @B@@@@ LMJ X11,EDITX$ . BG )@@G@@@B@@@@ LX X4,X4S . @B@@@@ LX BH )@@G@@ X5,X5S . @B@@@@ SLJ OPRNT . BI )@@G@@@B@@@@ LX X11,X11S . @B@@@@ J BJ )@@G@@ 4,X11 . @[@@@@ . @[@@@@ . @[@@@@$(0) .@[@@@@OPK* .BK )@@G@@@B@@@@ E$PKTF 22,0 . @#@@@@X4S +0 . BL )@@G@@@#@@@@X5S +0 . @#@@@@X11S +0 . @#@@@@TYPE +0 . BM )@@G@@@#@@@@FW +0 . @#@@@@SP +0 . @#@@@@OPFLG* +0 . BN )@@G@@@#@@@@NEG -1 . @B@@@@OPRNT* J $-$ . BO )@@G@@@B@@@@ LA A0,OPFLG . @B@@@@ JN BP )@@G@@ A0,OPRNT . @B@@@@ LA A1,OPK . BQ )@@G@@@B@@@@ LSSL A1,12 . @B@@@@ LDSL BR )@@G@@ A0,24 . @B@@@@OPRNTA ER PRINT$ . BS )@@G@@@B@@@@ J OPRNT . @]@@@@OPBLK* . @ @@@@BT )@@G@@ DO 22 , ' ' . @#@@@@ END ___ A1,OPK+1 BU )@@G@@ . @B@@@@ AA,U A1,1 . @B@@@@ BV )@@G@@ SA A1,*0,X11 . @B@@@@ J 2,X11 BW )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ . @A@@@@. CALL PRINT(LINESP,NWORDS,BUFBX )@@G@@FER) @[@@@@. @A@@@@PRINT* LA A0,*0,X11 . @ @@@@ BY )@@G@@ SA,7 A0,STOR . @A@@@@ LA A0,*1,X11 . @ @@@@BZ )@@G@@ SA,11 A0,STOR .@ @@@@ LA A0,2,X11 .@ @@@@CA )@@G@@ SA,1 A0,STOR . @ @@@@ LA A0,STOR . @ @@@@CB )@@G@@ ER PRINT$ . @ @@@@ J 4,X11 . @#@@@@CC )@@G@@STOR +0. @#@@@@ END ___ A0,PKT . @ _@@@ CD )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE PRTERR ( N ) CE )@@G@@ PERR0001 @I@@@@C CF )@@G@@ PERR0002 @I@@@@C PRINT ERROR MESCG )@@G@@SAGE - N=ERROR NO. PERR0003 @I@@@@CH )@@G@@C CI )@@G@@PERR0004 @I@@@@ IMPLICIT INTEGER (A-Z) CJ )@@G@@ PERR0005 @I@@@@ COMMON /MSG/M(105) CK )@@G@@ PERR0006 @I@@@@ COMMON /E8ARCL )@@G@@Y/NWAR,MULT,NWAR1,IRDM(1792) PERR0007 @I@@@@CM )@@G@@ DIMENSION IAREG(1321) CN )@@G@@PERR0008 @I@@@@ EQUIVALENCE (IAREG,IRDM) CO )@@G@@ PERR0009 @I@@@@ PARAMETER MAX=14 CP )@@G@@ @ MAX. ERROR NO. PERR0010 @I@@@@ DIMENSION MSCQ )@@G@@G(3),MSG1(6),MSG2(7),MSG3(3),MSG4(5),MSG5(5), PERR0011 @I@@@@CR )@@G@@ 1 MSG6(6),MSG7(4),MSG8(6),MSG9(3),MSG10(4), CS )@@G@@PERR0012 @I@@@@ 2 MSG11(4),MSG12(5),MSG13(5),MSG14(4) CT )@@G@@ PERR0013 @I@@@@ DATA MSG/ '***** ERROR *****&'CU )@@G@@ / PERR0014 @I@@@@ DATA MSG1/ 'CV )@@G@@ARRAY OVERFLOW-STATEMENT TOO LONG.&' / PERR0015 @I@@@@CW )@@G@@ DATA MSG2/ 'NON-ARITHMETIC STATEMENT NOT DEFINED.&' / CX )@@G@@PERR0016 @I@@@@ DATA MSG3/ 'VARIABLE ILLEGAL.&' / CY )@@G@@ PERR0017 @I@@@@ DATA MSG4/ 'DATA LIST LONGER TCZ )@@G@@HAN CARD.&' / PERR0018 @I@@@@ DATA MSG5/ 'DA )@@G@@STATEMENT NUMBER ILLEGAL.&' / PERR0019 @I@@@@DB )@@G@@ DATA MSG6/ 'PARENTHESE COMBINATION ILLEGAL.&' / DC )@@G@@PERR0020 @I@@@@ DATA MSG7/ 'IF STATEMENT ILLEGAL&' / DD )@@G@@ PERR0021 @I@@@@ DATA MSG8/ 'ERROR IN NESTING ODE )@@G@@F FUNCTIONS.&' / PERR0022 @I@@@@ DATA MSG9/ 'DF )@@G@@WORD TOO LONG.&' / PERR0023 @I@@@@DG )@@G@@ DATA MSG10/'VARIABLE TOO LONG.&' / DH )@@G@@PERR0024 @I@@@@ DATA MSG11/'NO RIGHT PARENTHESES.&' / DI )@@G@@ PERR0025 @I@@@@ DATA MSG12/'ERROR IN GETTING SDJ )@@G@@UBSCRIPT.&' / PERR0026 @I@@@@ DATA MSG13/'DK )@@G@@EXCEEDED LENGHT OF CARD DATA.&' / PERR0027 @I@@@@DL )@@G@@ DATA MSG14/'VARIABLE NOT IN TABLE.&' / DM )@@G@@PERR0028 @I@@@@ EQUIVALENCE (M,MSG) , (M(8),MSG1) , (M(15),MSG2)DN )@@G@@ , (M(22),MSG3) , PERR0029 @I@@@@ * (M(29),MSG4) , (M(36),MSG5) ,DO )@@G@@ (M(43),MSG6) , PERR0030 @I@@@@ * (M(50),MSG7DP )@@G@@) , (M(57),MSG8) , (M(64),MSG9) , PERR0031 @I@@@@DQ )@@G@@ * (M(71),MSG10) , (M(78),MSG11) , (M(85),MSG12) , (M(92),MSG13) , DR )@@G@@PERR0032 @I@@@@ * (M(99),MSG14) DS )@@G@@ PERR0033 @I@@@@C DT )@@G@@ PERR0034 @I@@@@ IF (N.LT.1.ODU )@@G@@R.N.GT.MAX) GO TO 40 @ IGNORE BAD ERROR NO. PERR0035 @I@@@@DV )@@G@@ CALL OPA ( -1,MSG ) @ PUT 'ERROR' IN LINE DW )@@G@@PERR0036 @I@@@@ I=7*N + 1 DX )@@G@@ PERR0037 @I@@@@ CALL OPAP( 1,20,M(I) ) DY )@@G@@ @ ERROR MSG TO LINE PERR0038 @I@@@@ IF (NWAR.LE.DZ )@@G@@0) GO TO 40 PERR0039 @I@@@@EA )@@G@@ NN=' ' EB )@@G@@PERR0040 @I@@@@ DO 30 K=1,NWAR EC )@@G@@ PERR0041 @I@@@@ FLD( 0,6,NN )=IAREG(K) ED )@@G@@ PERR0042 @I@@@@ IX=MOD( K,13EE )@@G@@0 ) PERR0043 @I@@@@EF )@@G@@ IF (IX.GT.0) GO TO 10 EG )@@G@@PERR0044 @I@@@@ CALL OPAFP ( 1,130,NN,1 ) EH )@@G@@ PERR0045 @I@@@@ GO TO 30 EI )@@G@@ PERR0046 @I@@@@ 10 IF (IX.NE.1)EJ )@@G@@ GO TO 20 PERR0047 @I@@@@EK )@@G@@ CALL OPAF ( -1,NN,1 ) EL )@@G@@PERR0048 @I@@@@ GO TO 30 EM )@@G@@ PERR0049 @I@@@@ 20 CALL OPAF ( IX,NN,1 ) EN )@@G@@ PERR0050 @I@@@@ 30 CONTINUE EO )@@G@@ PERR0051 @I@@@@EP )@@G@@ IF (IX.EQ.0) GO TO 40 EQ )@@G@@PERR0052 @I@@@@ CALL OPAP ( 1,IX+1,' & ' ) ER )@@G@@ PERR0053 @I@@@@ 40 CONTINUE ES )@@G@@ PERR0054 @I@@@@ CALL ERROR8 ET )@@G@@ PERR0055 @I@@@@EU )@@G@@ RETURN EV )@@G@@PERR0056 @I@@@@ END EW )@@G@@ PERR0057 ___ DATA MSG14/'VARIABLE NOT IN TABLE.&' /EX )@@G@@ *[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@EY )@@G@@$(1) . @[@@@@ . @B@@@@ . CALL RDS1(FN,EN,VN,B1,B2,NB,ERR,$ERR) EZ )@@G@@@ @@@@ . FN IS FILE NAME (2 WORDS)@A@@@@ . EN IS ELEMENT NAME (2 WORFA )@@G@@DS) @A@@@@ . VN IS VERSION NAME (2 WORDS) @A@@@@ . B1 IS ANY USEFB )@@G@@R SUPPLIED BUFFER @B@@@@ . B2 IS A SECOND USER SUPPLIED BUFFER @D@@@@FC )@@G@@ . NB IS THE NUMBER OF WORDS IN B1 (B1 AND B2 MUST @ @@@@ . FD )@@G@@BE THE SAME SIZE) @D@@@@ . ERR IS AN ERROR CODE IF THE $ERR RETURN IS FE )@@G@@MADE @B@@@@ . 1 = NO FIND ON GIVER ELEMENT @ @@@@ . FF )@@G@@2 = I/O ERROR @B@@@@ . 3 = PROGRAM FILE NOT DEFINED @B@@@@FG )@@G@@ . 4 = PROGRAM FILE OVERFLOW @A@@@@ . BITS 11 - 6 FH )@@G@@= I/O ERROR @D@@@@ . NOTE - IF THE ELEMENT NAME IS EITHER BLANK OR 0 FI )@@G@@@D@@@@ . THEN THE FILE IS ASSUMED TO BE A DATA FILE .@D@@@@ . NOTFJ )@@G@@E - THE BUFFERS B1 AND B2 MUST BE A MULTIPLE OF @D@@@@ . 28 WORDSFK )@@G@@ , AND IT IS BEST TO MAKE THEM A @C@@@@ . MULTIPLE OF 112 (DECFL )@@G@@IMAL) WORDS . @[@@@@ . @]@@@@RDS1* . @D@@@@ DL FM )@@G@@ A0,*0,X11 . GET FILE NAME @E@@@@ DS A0,FCT FN )@@G@@ . PUT INTO FCT TABLE @E@@@@ DS A0,PFP FO )@@G@@ . ALSO STORE FOR PFS$ @D@@@@ SZ ELFLAG . FIFP )@@G@@LE TYPE FLAG@E@@@@ LA,S1 A0,*1,X11 . S1 OF ELEMENT FQ )@@G@@NAME @F@@@@ TLE,U A0,6 . IS THIS ELEMENT OR FFR )@@G@@ILE ? @E@@@@ J DJ1 . THIS IS DATA FILE FS )@@G@@@E@@@@ SX X11,ELFLAG . SET FLAG FOR P.F. @E@@@@FT )@@G@@ DL A0,*1,X11 . GET ELEMENT NAME @E@@@@ FU )@@G@@ DS A0,PFP+2 . PUT INTO PFS$ TABLE @D@@@@ DLFV )@@G@@ A0,*2,X11 . GET VERSION @E@@@@ DS A0,PFFW )@@G@@P+6 . ALSO STORE VERSION @E@@@@ LA A0,WD1 FX )@@G@@ . SET FOR SYMBOLIC @F@@@@ SA A0,PFP+5 FY )@@G@@ . STORE INTO PFS$ TABLE @E@@@@ LA,U A0,PFP FZ )@@G@@ . GET READY FOR PFS$ @D@@@@ ER PFS$ . GOGA )@@G@@ TO PFS$ @F@@@@ SA A2,*6,X11 . THERE MIGHT BEGB )@@G@@ AN ERROR @D@@@@ TZ A2 . IS THERE ? GC )@@G@@@E@@@@ J *7,X11 . YES, TAKE ERROR EXIT@E@@@@GD )@@G@@ LA A0,PFP+10 . GET ELEMENT ADDRESS @F@@@@ GE )@@G@@ SA A0,FCT+5 . PUT DRUM ADDRESS INTO FCT @E@@@@ GF )@@G@@ J DJ2 . GO TO SDFI SECTION @F@@@@DJ1 SZGG )@@G@@ FCT+5 . THIS IS FILE , ADDRESS = 0@D@@@@DJ2 LAGH )@@G@@ A0,3,X11 . ADDRESS OF 1ST BUFFER @D@@@@ SA,H1 A0,FCGI )@@G@@T+6 . PUT INTO FCT @F@@@@ LA A0,4,X11 GJ )@@G@@ . GET ADDRESS OF 2ND BUFFER @D@@@@ SA,H2 A0,FCT+6 GK )@@G@@ . PUT INTO FCT @G@@@@ LA A0,*5,X11 . GET NUMBGL )@@G@@ER OF WORDS IN BUFFER @E@@@@ DSL A0,36 . PRGM )@@G@@EPARE FOR DIVIDE @E@@@@ DI,U A0,28 . CONVERT GN )@@G@@TO SECTORS @E@@@@ SA,H1 A0,FCT+7 . AND PUT INTO FGO )@@G@@CT @E@@@@ MSI,U A0,28 . NOW BACK TO WORDS GP )@@G@@@F@@@@ SA,H1 A0,FCT+4 . MUST BE MULTIPLE OF 28 GQ )@@G@@@C@@@@ SX X11,SAVE . SAVE X11@E@@@@ LAGR )@@G@@,U A0,FCT . PREPARE FOR SDFIO @D@@@@ LMJ GS )@@G@@ X11,SDFIO . JUMP TO SDFIO @F@@@@ J DJ3 GT )@@G@@ . OH,OH , THERE'S AN ERROR @D@@@@ LX X11,SAVE GU )@@G@@ . LOOKS GOOD @D@@@@ J 9,X11 . NOGV )@@G@@RMAL RETURN @D@@@@DJ3 LX X11,SAVE . RESTORE X11 GW )@@G@@@E@@@@ AA,U A5,0100 . PREPARE ERROR WORD @E@@@@GX )@@G@@ SA A5,*6,X11 . STORE ERROR WORD @D@@@@ GY )@@G@@ J *7,X11 . ERROR EXIT @[@@@@ . @[@@@@ . GZ )@@G@@@^@@@@ . CALL RDS2(BUF,N,$EOF)@C@@@@ . BUF IS BUFFER WHERE IMAGE WILLHA )@@G@@ BE STORED @A@@@@ . N IS NUMBER OF WORDS IN BUF @A@@@@ . $EOF IHB )@@G@@S THE END OF FILE RETURN@D@@@@ . NOTE - IF THERE IS AN I/O ERROR , THE EHC )@@G@@RROR EXIT AS@B@@@@ . DEFINED IN RDS1 WILL BE TAKEN . @[@@@@ . HD )@@G@@@]@@@@RDS2* . @F@@@@ LA A0,0,X11 . GET ADDRHE )@@G@@ESS OF BUFFER @D@@@@ SA,H2 A0,FCT+8 . PLACE INHF )@@G@@TO FCT@F@@@@ LA A1,*1,X11 . GET NUMBER OF WORDS HG )@@G@@(MAX) @D@@@@ SA,H2 A1,FCT+7 . PUT INTO FCT @E@@@@HH )@@G@@ JZ A1,DJ4 . SKIP IF NUMBER = 0 @D@@@@ HI )@@G@@ JN A1,DJ4 . OR NEGATIVE @C@@@@ SSL HJ )@@G@@ A1,1 . MAX/2 @G@@@@ ANA,U A1,1 HK )@@G@@ . REDUCE BY 1 FOR LOOP COUNTER @G@@@@ LXI,U A0,2 HL )@@G@@ . A0 STILL HAS BUFFER ADDRESS @F@@@@. LA A3,BLHM )@@G@@ANK . GET READY TO BLANK BUFFER @E@@@@. SA A3,0,HN )@@G@@*A0 . STORE THE BLANK @D@@@@ DSL A2,72 HO )@@G@@ . ZERO BUFFER @B@@@@ DS A2,0,*A0 . HP )@@G@@@E@@@@ JGD A1,$-1 . LOOP UNTIL DONE @C@@@@HQ )@@G@@DJ4 SX X11,SAVE2 . SAVE X11@E@@@@ LA,U HR )@@G@@ A0,FCT . SET A0 FOR SDFI @D@@@@ LMJ X11,SHS )@@G@@DFI . GO TO SDFI @F@@@@ J DJ3 HT )@@G@@ . TAKE ERROR EXIT (IN RDS1) @D@@@@ J DJ5 HU )@@G@@ .EOF RETURN @G@@@@ LX X11,SAVE2 . RESTORE HV )@@G@@X11 , NORMAL RETURN @F@@@@ LA,S1 A0,FCT+10 . GEHW )@@G@@T S1 OF CONTROL WORD @G@@@@ JNZ A0,RDS2 . IGHX )@@G@@NORE THIS IMAGE (NOT REAL) @F@@@@ TNZ ELFLAG HY )@@G@@ . IS THIS D.F. OR P.F. ? @F@@@@ J 4,X11 HZ )@@G@@ . D.F. , TAKE NORMAL RET @F@@@@ TZ,S4 FCT+10 IA )@@G@@ . CHECK CYCLE DELETED (P.F.)@F@@@@ J RDS2 IB )@@G@@ . THIS IMAGE IS DELETED @D@@@@ J 4,X11 IC )@@G@@ . NORMAL RETURN @D@@@@DJ5 LX X11,SAVE2 . RESTORE ID )@@G@@X11 @E@@@@ J *2,X11 . TAKE EOF RETURN IE )@@G@@@[@@@@ . @[@@@@ . @]@@@@ . CALL RDS3@[@@@@ . @C@@@@RDS3* SXIF )@@G@@ X11,SAVE2 . SAVE X11@E@@@@ LA,U A0,FCT IG )@@G@@ . PREPARE FOR SDFIC @D@@@@ LMJ X11,SDFIC IH )@@G@@ . GO TO SDFIC @D@@@@ LX X11,SAVE2 . RESTORE II )@@G@@X11 @E@@@@ J 1,X11 . RETURN TO CALLER IJ )@@G@@@[@@@@$(0) .@#@@@@FCT +0 . @#@@@@ +0 . @#@@@@ IK )@@G@@ +0 . @^@@@@ +02000,0 . @#@@@@ +0 . @#@@@@IL )@@G@@ +0 . @#@@@@ +0 . @#@@@@ +0 . @#@@@@IM )@@G@@ +1,0 . @#@@@@ +1,0 . @#@@@@ +0 . @[@@@@IN )@@G@@PFP . @^@@@@ DO 12 , +0 @#@@@@WD1 +1,0 . @#@@@@SAVE IO )@@G@@ +0 . @#@@@@SAVE2 +0 . @^@@@@BLANK ' ' . @#@@@@IP )@@G@@ELFLAG +0 . @#@@@@ END ___S VERSION NAME (2 WORDS) IQ )@@G@@@A@@@@ . B1 IS ANY USER SUPPLIED BUFFER @B@@@@ . B2 IS A SECOND USERIR )@@G@@ SUPPLIED BUFFER @D@@@@*[@@@@*SDFF*@A@@@@ SUBROUTINE TPROC ( IBREGIS )@@G@@,$ ) @[@@@@C @B@@@@C TEST IF XYZ* PROC CARD - YES=RETURN 2 @ @@@@IT )@@G@@ IMPLICIT INTEGER (A-Z) @A@@@@ DIMENSION IBREG(2),BUF(66) IU )@@G@@@[@@@@C @ @@@@ CALL UPC8 ( IBREG,BUF ) @^@@@@ DO 11 IX=1,1IV )@@G@@3 @B@@@@ IF ( BUF(IX).EQ.'@@@@@*' )GO TO 22 @#@@@@ 11 CONTINIW )@@G@@UE @#@@@@ GO TO 99 @#@@@@ 22 IXS=IX+1 @^@@@@ DO 33 IX )@@G@@JX=IXS,66 @B@@@@ IF ( BUF(JX).EQ.'@@@@@P' )GO TO 44 @#@@@@ 33 IY )@@G@@CONTINUE @#@@@@ GO TO 99 @B@@@@ 44 IF ( BUF(JX+1).NE.'@@@@@IZ )@@G@@R' )GO TO 99@B@@@@ IF ( BUF(JX+2).NE.'@@@@@O' )GO TO 99@B@@@@ JA )@@G@@IF ( BUF(JX+3).NE.'@@@@@C' )GO TO 99@#@@@@ RETURN 2 @]@@@@ 99 JB )@@G@@RETURN@]@@@@ END ___@@@ END ___^=*9(@^[O/K@^=*[[@^*W/K@^=*JC )@@G@@[[@^*S/K@^=*[[@^*U/K@^=*9(G@@]%80@@./K@^=*9!@^!P9(@^!-/K@^=*9(G@@AR#K@[ JD )@@G@@*[@@@@*SDFF*@I@@@@C * THIS IS THE MAIN PROGRAM FOR DCTNRY JE )@@G@@ MAIN0001 @I@@@@ IMPLICIT INTEGER(A-Z) JF )@@G@@ MAIN0002 @I@@@@ COMMON KADDJG )@@G@@,LADD,JF11,N91(4,300),PLINE(22) MAIN0003 @I@@@@JH )@@G@@C JI )@@G@@MAIN0004 @I@@@@ CALL OPRIME ( PLINE,22 ) JJ )@@G@@ MAIN0005 @E@@@@ CALL IDLIN JK )@@G@@ @ PRINT ID SPLASH LINE@I@@@@ LADD = 0 JL )@@G@@ MAIN0007 @I@@@@C DCT8 PROCESSES FOJM )@@G@@RTRAN ELEMENTS UNTIL WE ENCOUNTER A '*END' CARD MAIN0008 @I@@@@C JN )@@G@@ AN END-OF-FILE. MAIN00JO )@@G@@09 @I@@@@ 10 CALL DCT8 (IEDPG,JFT10) JP )@@G@@ MAIN0010 @I@@@@C IF JFT10 IS SET MERGE THE DATA ON DJQ )@@G@@RUM MAIN0011 @I@@@@ IF (JFT10 .GT. 0) JR )@@G@@CALL MRG8 MAIN0012 @I@@@@C JS )@@G@@ IEDPG IS SET WHEN WE ENCOUNTER A '*END' CARD MAIN00JT )@@G@@13 @I@@@@ IF (IEDPG) 20,10,20 JU )@@G@@ MAIN0014 @I@@@@ 20 CALL GETOUT JV )@@G@@ MAIN0015 @I@@@@ END JW )@@G@@ MAIN0016 ___ JX )@@G@@ MAIN0016 ___^&UC@@^2M'=@@@I/K@^&)R#@^@@JY )@@G@@*[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@$(1) . @]@@@@UPA8* JZ )@@G@@ . @E@@@@ L,S6 A0,*0,X11 . GET COMMENT CHAR KA )@@G@@@B@@@@ S A0,*1,X11 . @F@@@@ L,S1 KB )@@G@@ A0,*0,X11 . GET CONTINUATION CHAR @B@@@@ S KC )@@G@@ A0,*2,X11 . @C@@@@ J 4,X11 KD )@@G@@ . @G@@@@UPB8* LA A2,(050505050505) . RIGHT ADJUST SKE )@@G@@TATEMENT @F@@@@ LA A5,*0,X11 . NUMBERS,KF )@@G@@SQUEEZE OUT @F@@@@ LX,U A0,4 . BLANKS ANKG )@@G@@D BLANK FILL@C@@@@ LA A4,(050505050505) . @C@@@@KH )@@G@@ST DSC A4,66 . @C@@@@ TNE KI )@@G@@ A4,(050505050505) . @C@@@@ J ED KJ )@@G@@ . @C@@@@ SSC A4,6 . @C@@@@KK )@@G@@ LA A3,A4 . @C@@@@ DSC KL )@@G@@ A2,66 . @C@@@@ED JGD A0,ST KM )@@G@@ . @C@@@@ SA A2,*1,X11 . @C@@@@KN )@@G@@ J 3,X11 . @]@@@@UPC8* . @F@@@@KO )@@G@@ DL A1,0,X11 . A1=L(PACK) A2=L(UNPACK) @B@@@@KP )@@G@@ LXI,U A1,1 . @B@@@@ LXI,U A2,2 KQ )@@G@@ . @E@@@@ L,U A3,10 . 11 WORDSKR )@@G@@ OR 66 CHAR @]@@@@C8NEXT . @B@@@@ TZ 0,A1 KS )@@G@@ . @B@@@@ J UPC8A . @F@@@@ L,KT )@@G@@U A4,0100 . SET LAST 6 CHARS=0100 @B@@@@ L,KU )@@G@@U A5,0100 . @F@@@@UPC8AA DS A4,0,*A2 KV )@@G@@ . END OF CARD FLAG=0100 @B@@@@ DS A4,0,*A2 KW )@@G@@ . @B@@@@ DS A4,0,*A2 . @I@@@@ JGKX )@@G@@D A3,UPC8AA . MGC-01A KY )@@G@@@E@@@@ J 3,X11 . EXIT ON ALL ZEROS @]@@@@KZ )@@G@@UPC8A . @B@@@@ L,S1 A4,0,A1 . @B@@@@ LA )@@G@@ L,S2 A5,0,A1 . @B@@@@ DS A4,0,*A2 LB )@@G@@ . @B@@@@ L,S3 A4,0,A1 . @B@@@@ LC )@@G@@ L,S4 A5,0,A1 . @B@@@@ DS A4,0,*A2 LD )@@G@@ . @B@@@@ L,S5 A4,0,A1 . @B@@@@ LE )@@G@@ L,S6 A5,0,*A1 . @B@@@@ DS A4,0,*A2 LF )@@G@@ . @B@@@@ JGD A3,C8NEXT . @B@@@@ LG )@@G@@ J 3,X11 . @G@@@@UPD8* . LH )@@G@@ . STORE 1ST ARGUMENT IN THE @G@@@@ LA A0,LI )@@G@@*0,X11 . UPPER HALF OF THE 2ND @C@@@@ SA,H1LJ )@@G@@ A0,*1,X11 . @C@@@@ J 3,X11 LK )@@G@@ . @F@@@@UPE8* . . UNPACKS 1SLL )@@G@@T ARGUMENT @G@@@@ LA,H1 A0,*0,X11 . INTO 2NDLM )@@G@@, 3RD AND 4TH @C@@@@ SA A0,*1,X11 . LN )@@G@@@C@@@@ LA,S4 A0,*0,X11 . @C@@@@ LO )@@G@@ SA,S1 A0,*2,X11 . @C@@@@ LA,T3 A0,*0,X11LP )@@G@@ . @C@@@@ SZ *3,X11 . LQ )@@G@@@C@@@@ SA,T3 A0,*3,X11 . @C@@@@ LR )@@G@@ J 5,X11 . @C@@@@CD* PROC 1 LS )@@G@@ . @C@@@@ LA A1,0,*A0 . LT )@@G@@@C@@@@ SA,CD(1,1) A1,WD . @C@@@@ LU )@@G@@ END . @G@@@@UPF8* . LV )@@G@@ . PACKS SIX CHARACTERS INTO @G@@@@ LA A0,LW )@@G@@0,X11 . ONE WORD OF FIELD DATA @C@@@@ LXI,ULX )@@G@@ A0,1 . @C@@@@M DO 6 , CD 14-MLY )@@G@@ . @C@@@@ LA A2,WD . @C@@@@LZ )@@G@@ SA A2,*1,X11 . @C@@@@ J MA )@@G@@ 3,X11 . @G@@@@UPG8* LA A5,(05050505050MB )@@G@@5) . PACKS CHARACTERS INTO A @G@@@@ SA A5,WD MC )@@G@@ . WORD OF FIELD DATA - RIGHT@G@@@@ LA A0,MD )@@G@@0,X11 . ADJUSTED, BLANK FILLED @G@@@@ LXI,UME )@@G@@ A0,1 . 3RD ARGUMENT = NUMBER OF @G@@@@ MF )@@G@@ LA,U A2,6 . CHARACTERS TO BE ENTERED @C@@@@ MG )@@G@@ ANA A2,*2,X11 . @C@@@@ MI,U A2,MH )@@G@@2 . @C@@@@ J $+1,A3 MI )@@G@@ . @C@@@@P DO 6 , CD 14-P . @C@@@@ MJ )@@G@@ LA A4,WD . @C@@@@ SA A4,MK )@@G@@*1,X11 . @C@@@@ J 4,X11 ML )@@G@@ . @E@@@@UPI8* . . GET BITS 0 - 23 MM )@@G@@@C@@@@ LA A0,*0,X11 . @C@@@@ MN )@@G@@ AND A0,(077777777) . @C@@@@ SA A1,*1,X11MO )@@G@@ . @C@@@@ J 3,X11 . MP )@@G@@@E@@@@UPJ8* . . GET BITS 0 - 17 @C@@@@MQ )@@G@@ LA,H2 A0,*0,X11 . @C@@@@ SA MR )@@G@@ A0,*1,X11 . @C@@@@ J 3,X11 MS )@@G@@ . @F@@@@ERROR8* . . THIS ROUTIMT )@@G@@NE PRINTS AN@C@@@@ ER ERR$ . @ @@@@MU )@@G@@ERSET8* SZ COUNT @ @@@@ LA A0,0,X11 @ @@@@MV )@@G@@ SA,H2 A0,ERS1 @A@@@@ LA A0,(J ERS2) MW )@@G@@@A@@@@ SA A0,ERSET8-1 @ @@@@ J 2,XMX )@@G@@11 @ @@@@ERS2 LA A0,COUNT @ @@@@ AA,U A0,MY )@@G@@1 @ @@@@ SA A0,COUNT @ @@@@ TLE,U A0,MZ )@@G@@50 @^@@@@ERS1 J $-$@A@@@@ L A0,(0106,BETNA )@@G@@A) @^@@@@ ER PRINT$@^@@@@ERROUT ER ERR$ @F@@@@NB )@@G@@ERRST8* . . THIS ROUTINE CAUSES @G@@@@NC )@@G@@ LA A0,CONST . ERROR8 TO JUMP TO MERR$ ND )@@G@@@ @@@@ SA A0,ERSET8-1@C@@@@ J 1,X11 NE )@@G@@ . @G@@@@OFEXT8* J ERROUT . THNF )@@G@@ESE RTNS WORK TOGETHER @G@@@@OFRTN8* . NG )@@G@@. OFRTN8 IS CALLED FIRST AND @G@@@@ LA A0,0,X11 NH )@@G@@ . CAUSES OFEXT8 TO RETURN TO@E@@@@ S,H2 A0,OFEXT8NI )@@G@@ . MAIN PROGRAM @C@@@@ J 2,X11 NJ )@@G@@ . @[@@@@ . @A@@@@ . SUBROUTINE PACK12(I12H,NAME) @E@@@@NK )@@G@@ . FD(I,N)=FLD(IABS(6*I-6),6,N) @ STATEMENT FUNCTION @A@@@@ . NL )@@G@@DIMENSION I12H(12),NAME(2) @#@@@@ . DO 10 L=1,2 @#@@@@ . DO 10 NM )@@G@@K=1,6 @A@@@@ . 10 FD(K,NAME(L))=I12H(6*L-6+K) @]@@@@ . RETURN@H@@@@NN )@@G@@PACK12* DL A1,0,X11 . LOAD THE ADDRESSES OF I12H AND NNO )@@G@@AME @F@@@@ LXI,U A1,01 . LOAD 1 INTO A1(INCRENP )@@G@@MENT) @G@@@@P12L LA A5,0,*A1 . LOAD THE NEXT CHARACTERNQ )@@G@@ INTO A5 @F@@@@ SA,S1 A5,0,A2 . STORE THE NEXT BYNR )@@G@@TE OF NAME @G@@@@ LA A5,0,*A1 . LOAD THE NEXT CHANS )@@G@@RACTER INTO A5 @F@@@@ SA,S2 A5,0,A2 . STORE THE NNT )@@G@@EXT BYTE OF NAME @G@@@@ LA A5,0,*A1 . LOAD THE NENU )@@G@@XT CHARACTER INTO A5 @F@@@@ SA,S3 A5,0,A2 . STORENV )@@G@@ THE NEXT BYTE OF NAME @G@@@@ LA A5,0,*A1 . LOAD NW )@@G@@THE NEXT CHARACTER INTO A5 @F@@@@ SA,S4 A5,0,A2 . NX )@@G@@ STORE THE NEXT BYTE OF NAME @G@@@@ LA A5,0,*A1 . NY )@@G@@ LOAD THE NEXT CHARACTER INTO A5 @F@@@@ SA,S5 A5,0,A2 NZ )@@G@@ . STORE THE NEXT BYTE OF NAME @G@@@@ LA A5,0,*A1 OA )@@G@@ . LOAD THE NEXT CHARACTER INTO A5 @F@@@@ SA,S6 A5,0,OB )@@G@@A2 . STORE THE NEXT BYTE OF NAME @H@@@@ TE A2,01OC )@@G@@,X11 . DID WE FINISH THE SECOND WORD OF NAME? @D@@@@ J OD )@@G@@ 03,X11 . IF SO, RETURN @F@@@@ AX,U A2,01OE )@@G@@ . INCREMENT A2 TO NAME(2) @H@@@@ J P12L OF )@@G@@ . GO BACK AND DO THE SECOND WORD OF NAME @[@@@@. @ @@@@OG )@@G@@. CALL CHKNUM ( N,$YES,$NO ) @B@@@@. CHECK IF N IS NUMERIC ('0' TO '9'OH )@@G@@) @ @@@@. RETURN 2=YES - NUMERIC @ @@@@. RETURN 3=NO - NOT NUOI )@@G@@MERIC @[@@@@. @]@@@@CHKNUM* . @C@@@@ L,U A0,057 OJ )@@G@@ . '0' - 1 @C@@@@ L,U A1,071 . '9' OK )@@G@@@D@@@@ TW A0,*0,X11 . N? NUMERIC @B@@@@ OL )@@G@@ J *2,X11 . NO@C@@@@ J *1,X11 OM )@@G@@ . YES @[@@@@. @ @@@@. CALL CHKLET ( N,$YES,$NO ) @B@@@@ON )@@G@@. CHECK IF N IS A LETTER ('A' TO 'Z') @#@@@@. RETURN 2=YES @#@@@@OO )@@G@@. RETURN 3=NO @[@@@@. @]@@@@CHKLET* . @C@@@@ L,U OP )@@G@@ A0,05 . 'A' - 1 @C@@@@ L,U A1,037 OQ )@@G@@ . 'Z' @D@@@@ TW A0,*0,X11 . N? ALPHABETIC OR )@@G@@@B@@@@ J *2,X11 . NO@C@@@@ J OS )@@G@@ *1,X11 . YES @[@@@@. @C@@@@$(0),WD + 0 OT )@@G@@ . @C@@@@COUNT + 0 OU )@@G@@ . @D@@@@BETA '**** TOO MANY ERRORS - RUN ABORTED' @C@@@@OV )@@G@@CONST ER ERR$ . @C@@@@ END OW )@@G@@ . ___ . STORE 1ST ARGUMENT IN THE @G@@@@OX )@@G@@ LA A0,*0,X11 . UPPER HALF OF THE 2ND OY )@@G@@@C@@@@ SA,H1 A0,*1,X11 *[@@@@*SDFF*@I@@@@PRINTFOZ )@@G@@ FORM 12,6,18 . LINES TO SKIP, WORD COUNT, BUFFER ADDRESPA )@@G@@S @G@@@@XREG FORM 18,18 . INDEX INCREMENT, INDEXPB )@@G@@ MODIFIER @#@@@@ AXR$ @D@@@@X13 EQU 015 PC )@@G@@ . SAME AS A1 @D@@@@X14 EQU 016 . SAMEPD )@@G@@ AS A2 @ @@@@$(1). . INSTRUCTION BANK@[@@@@. @ @@@@. CALPE )@@G@@L READ ( BUF,$EOF ) @[@@@@. @]@@@@READ* . @C@@@@ L PF )@@G@@ A0,0,X11 . L(BUF) @C@@@@ LXI A0,1,X11 PG )@@G@@ . L($EOF) @E@@@@ ER READ$ . READ CARPH )@@G@@D IMAGE @B@@@@ J 3,X11 . @[@@@@. PI )@@G@@@ @@@@. CALL CSF ( BUF,NUM,STAT) @[@@@@. @]@@@@CSF* . @C@@@@PJ )@@G@@ L A0,*1,X11 . NUM @C@@@@ L PK )@@G@@ A1,0,X11 . L(BUF) @B@@@@ LSSL A1,18 PL )@@G@@ . @B@@@@ LDSL A0,18 . @B@@@@ ERPM )@@G@@ CSF$ . @C@@@@ S A0,*2,X11 PN )@@G@@ . STAT @C@@@@ J 4,X11 . RETURN @[@@@@PO )@@G@@ . @I@@@@ . SUBROUTINE DRMWT8(IB,IA,KADD) PP )@@G@@ T.C.T. @I@@@@ . IB = BUFFER ADDRESS IN CORE, IA = PQ )@@G@@LENGTH, KADD = DRUM ADDRESS T.C.T. @I@@@@ . CALL DRMPOS(2,KADDPR )@@G@@,0) T.C.T. @B@@@@ . PS )@@G@@CALL NTRAN(2,1,IA,IB,L,22) @ WRITE @I@@@@ . IF (IA-L) 1,3,1 PT )@@G@@ T.C.T. @I@@@@ . 1 WRITE(PU )@@G@@6,2) L T.C.T. PV )@@G@@@I@@@@ . 2 FORMAT(31H0****** NTRAN WRITE ERROR, TYPE,I5,7H ******) PW )@@G@@ T.C.T. @I@@@@ . CALL MERR PX )@@G@@ T.C.T. @I@@@@ . 3 CALL DRMADR(2,L,L,KADD) PY )@@G@@ T.C.T. @I@@@@ . RETURNPZ )@@G@@ T.C.T. QA )@@G@@@[@@@@ . @ @@@@ . ENTRY OBTAN8(IB,IA,KADD)@ @@@@ . CALL DRMPOS(QB )@@G@@2,KADD,0) @B@@@@ . CALL NTRAN(2,2,IA,IB,L,22) @ READ @I@@@@ . QC )@@G@@IF (L) 4,4,6 T.C.QD )@@G@@T. @I@@@@ . 4 WRITE(6,5) L QE )@@G@@ T.C.T. @I@@@@ . 5 FORMAT(30H0****** NTRAN READ ERROR, QF )@@G@@TYPE,I5,7H ******) T.C.T. @I@@@@ . CALL MERR QG )@@G@@ T.C.T. @I@@@@ . 6 QH )@@G@@CALL DRMADR(2,L,L,KADD) T.C.QI )@@G@@T. @I@@@@ . RETURN QJ )@@G@@ T.C.T. @]@@@@ . END @F@@@@DRMWT8* LA,U A1,01QK )@@G@@0 . IO$ FUNCTION CODE - WRITE @H@@@@ J IOINIQL )@@G@@T . SKIP DOWN TO INITIATE THE I/O REQUEST @F@@@@OBTAN8* LA,QM )@@G@@U A1,020 . IO$ FUNCTION CODE - READ @G@@@@IOINIT SA,QN )@@G@@T1 A1,STATUS . STORE THE IO$ FUNCTION CODE @D@@@@ QO )@@G@@ SZ A3 . ZERO OUT A3 @E@@@@ LA QP )@@G@@ A4,*02,X11 . LOAD (KADD) INTO A4 @G@@@@ DI,U A3,28QQ )@@G@@ . CONVERT IT TO A SECTOR ADDRESS @G@@@@ SA QR )@@G@@ A3,DRMADD . UPDATE THE SECTOR ADDRESS FOR IO$@G@@@@ LA QS )@@G@@ A5,0,X11 . LOAD THE ADDRESS OF IB INTO A5 @F@@@@ QT )@@G@@ SA A5,WCT . STORE THE BUFFER ADDRESS @E@@@@ QU )@@G@@ LA A2,*01,X11 . LOAD (IA) INTO A2 @G@@@@ SA,QV )@@G@@H1 A2,WCT . STORE THE WORD COUNT FOR IO$ @G@@@@ QW )@@G@@ LA,U A0,IO$P . PACKET ADDRESS FOR IO$ TO A0 @H@@@@QX )@@G@@ ER IOW$ . INITIATE I/O AND WAIT FOR COMPLETIQY )@@G@@ON @E@@@@ TNZ,S1 STATUS . WAS THE I/O COMPLETED?QZ )@@G@@@D@@@@ J RTN0 . IF SO, SKIP @H@@@@ RA )@@G@@ SA A0,SNAP$P+2 . SAVE THE CONTENTS OF A0 FOR SNAP$ RB )@@G@@@F@@@@ LA A0,IOERR . PRINT$ CONTROL WORD TO A0 RC )@@G@@@E@@@@ ER PRINT$ . I/O ERROR MESSAGE @F@@@@RD )@@G@@ LA,U A0,SNAP$P . SNAP$ PACKET ADDRESS TO A0@E@@@@RE )@@G@@ ER SNAP$ . X-A-R AND PACKET DUMP@C@@@@ RF )@@G@@ ER ERR$ . ERROR EXIT@F@@@@RTN0 LA,H2 A5,STRG )@@G@@ATUS . LOAD THE WORD COUNT INTO A5@G@@@@ AA A5,*0RH )@@G@@2,X11 . ADD THE PREVIOUS DRUM ADDRESS @F@@@@ SA RI )@@G@@ A5,*02,X11 . UPDATE THE DRUM ADDRESS @C@@@@ J RJ )@@G@@ 04,X11 . RETURN @[@@@@ . @G@@@@GETOUT* SX X11,XRK )@@G@@10 . SAVE THE RETURN ADDRESS IN X10 @F@@@@ LMJ RL )@@G@@ X11,HDG . RE-SET THE PAGE HEADING @F@@@@ + RM )@@G@@ HDGOFF . RE-SET THE PAGE HEADING @F@@@@ + RN )@@G@@ HDGOFF . RE-SET THE PAGE HEADING @A@@@@ + RO )@@G@@ 0001406362112 @H@@@@ LA A0,FREE2 . LOAD THE RP )@@G@@CSF$ CONTROL WORD INTO A0 @F@@@@ ER CSF$ .RQ )@@G@@ RELEASE THE SCRATCH FILE @F@@@@ J 01,X10 .RR )@@G@@ RETURN [VIA X10] @G@@@@. RS )@@G@@ MGC@G@@@@. CALL ASGTCT - ASSIGN TCT$ FRT )@@G@@ILE MGC@G@@@@. RU )@@G@@ MGC@G@@@@ASGTCT* . RV )@@G@@ MGC@H@@@@ DL RW )@@G@@ A0,IO$P . FILE=TCT$ MGC @H@@@@RX )@@G@@ DS A0,FAC . MRY )@@G@@GC @H@@@@ L,U A0,FAC . RZ )@@G@@ MGC @H@@@@ ER FACIL$ . SA )@@G@@ MGC @H@@@@ TZ,S1 FAC+6 SB )@@G@@ . FILE ASSIGNED? MGC @H@@@@ J 1,X11SC )@@G@@ . YES MGC @G@@@@ L SD )@@G@@ A0,TCTASG . MGC@G@@@@ SE )@@G@@ ER CSF$ . MGC@H@@@@SF )@@G@@ JP A0,1,X11 . JUMP IF ASSIGN GOOD MSG )@@G@@GC @H@@@@ L A0,TCTPRT . PRINT ERROR SH )@@G@@ MGC @H@@@@ ER PRINT$ . SI )@@G@@ MGC @H@@@@ L$SNAP 'TCTERR',2 SJ )@@G@@ . MGC @H@@@@ ER ERR$ SK )@@G@@ . MGC @G@@@@. SL )@@G@@ MGC@G@@@@. CALSM )@@G@@L CHKASG ( FILE,$ERR,STAT ) MGC@G@@@@SN )@@G@@. CHECK IF FILE ASSIGNED IF NOT ASSIGN IT MGCSO )@@G@@@G@@@@. SP )@@G@@ MGC@G@@@@CHKASG* . SQ )@@G@@ MGC@G@@@@ DL A0,*0,X11 . SR )@@G@@ MGC@G@@@@ DS A0,FAC . SS )@@G@@ MGC@G@@@@ L,U A0,FAC . ST )@@G@@ MGC@G@@@@ ER FACIL$ SU )@@G@@ . MGC@G@@@@ TZ,S1 FAC+6 SV )@@G@@ . MGC@G@@@@ J 4,X11SW )@@G@@ . MGC@G@@@@ L SX )@@G@@ A0,(' . ') . FILE NOT ASSIGNED MGC@G@@@@ S SY )@@G@@ A0,FAC+2 . MGC@G@@@@ SZ )@@G@@ L A0,ASGFIL . MGC@G@@@@TA )@@G@@ ER CSF$ . ASSIGN FILE MGCTB )@@G@@@G@@@@ JZ A0,4,X11 . ASSIGN OK TC )@@G@@ MGC@G@@@@ JP A0,4,X11 . ASSIGN OK TD )@@G@@ MGC@G@@@@ S A0,*2,X11 . STATUS TE )@@G@@ MGC@G@@@@ J *1,X11 . ERR RETTF )@@G@@URN MGC@ @@@@$(0). . ER PACKETS, ETC.@F@@@@IO$P TG )@@G@@ 'TCT$ ' . INTERNAL FILE NAME FOR IO$ @E@@@@ TH )@@G@@ + 0 . NO INTERRUPT ACTIVITY @H@@@@STATUS + TI )@@G@@ 0 . STATUS,FUNCTION,0, WORDS TRANSFERRED @F@@@@TJ )@@G@@WCT + 0 . WORD COUNT, BUFFER ADDRESS @E@@@@TK )@@G@@DRMADD + 0 . CURRENT DRUM ADDRESS @E@@@@SNAP$PTL )@@G@@ 'IOW$ ' . SNAP$ IDENTIFIER @H@@@@ XRETM )@@G@@G 0700006,IO$P . DUMP ALL REGISTERS AND IO$ PACKET @E@@@@TN )@@G@@ RES 1 . FORMER CONTENTS OF A0@F@@@@BADST TO )@@G@@ ' I/O ERROR ON SCRATCH FILE - PACKET DUMP FOLLOWS' @H@@@@IOERR TP )@@G@@ PRINTF 02,010,BADST . PRINT$ CONTROL FOR THE ERROR MESSAGE TQ )@@G@@@I@@@@FREE2 + $+02000001 . COMMAND TO CSF$ TR )@@G@@ T.C.T. @I@@@@ '@FREE TCT$. ' . COMMANDTS )@@G@@ TO CSF$ T.C.T. @G@@@@TCTASG + $+05000001 TT )@@G@@ . MGC@H@@@@ '@ASG,T TCT$.,FTU )@@G@@//POS/25 . ' . MGC @H@@@@TCTERR ' CTV )@@G@@ANNOT ASSIGN TCT$ (MERGE) FILE. STATUS IN A0.' . MGC @H@@@@TW )@@G@@TCTPRT PRINTF 2,8,TCTERR . MTX )@@G@@GC @G@@@@ASGFIL + $+04000001 . TY )@@G@@ MGC@G@@@@ '@ASG,A ' . TZ )@@G@@ MGC@G@@@@FAC RES 9 . UA )@@G@@ MGC@F@@@@HDGOFF EQU SNAP$P+1 . NEGAUB )@@G@@TIVE NUMBER FOR HDG @]@@@@ END___ .*[@@@@*SDFF*@[@@@@. UC )@@G@@@F@@@@. SQEEZE OUT BLANKS AND HOLLERITHS AND COUNT MULTIPLE STATEMENTS.UD )@@G@@@[@@@@. @#@@@@ AXR$ @G@@@@XREG FORM 18,18 UE )@@G@@ . INDEX INCREMENT, INDEX MODIFIER @E@@@@X12 EQU 014 UF )@@G@@ . SAME AS A0 [I] @E@@@@X13 EQU 015 UG )@@G@@ . SAME AS A1 [J] @E@@@@X14 EQU 016 .UH )@@G@@ SAME AS A2 [N] @E@@@@X15 EQU 017 . SAMEUI )@@G@@ AS A3 [NWAR]@ @@@@$(1). . INSTRUCTION BANK@E@@@@SQUASH* DL UJ )@@G@@ X12,IJINIT . INITIALIZE I AND J @D@@@@ DS UK )@@G@@ A6,SAVE67 . SAVE A6 AND A7@E@@@@ LX X15,NWAR UL )@@G@@ . LOAD (NWAR) INTO X15 @E@@@@ AX X15,IJINIT .UM )@@G@@ ADD (1,0) TO NWAR @I@@@@ SZ IAREG,X15 . SET UN )@@G@@ IAREG(NWAR+1) TO ZER0 FOR SEARCHING @F@@@@ DSL A4,72UO )@@G@@ . HFIELD - ZERO A4,A5 (K,L) @H@@@@ SZ MULT UP )@@G@@ . 0 MULTIPLE STATEMENT COUNTER MGC @H@@@@ SZ UQ )@@G@@ NWAR1 . MGC @[@@@@UR )@@G@@ . @F@@@@NCHL L,S6 A2,IAREG,*X12 . LOAD IAREG(I) INTO XUS )@@G@@14 @[@@@@ . @D@@@@ J *SELECT,X14 . COMPUTED UT )@@G@@GO TO @[@@@@ . @H@@@@DEL0 TG X12,X15 . IS I LESUU )@@G@@S THAN OR EQUAL TO NWAR? @D@@@@ J GOBACK .UV )@@G@@ IF NOT, RETURN @E@@@@ SLJ STEPX . STEP TO UW )@@G@@NEXT CARD @B@@@@ J ENDJL . @E@@@@STEPX UX )@@G@@ J $-$ . STEP TO NEXT CARD @E@@@@ LA UY )@@G@@ A6,NI1M1 . LOAD (-1,-1) INTO A6 @E@@@@ AU UZ )@@G@@ A6,X12 . PUT (I)-1 IN A7 @D@@@@ SZ A6 VA )@@G@@ . ZER0 OUT A6 @F@@@@ DI,U A6,66 .VB )@@G@@ MOD(I-1,66) IS THE REMAINDER@D@@@@ AX,U X12,65 .VC )@@G@@ ADD 65 TO I @E@@@@ ANX X12,A7 . SUBTRACT VD )@@G@@MOD(I-1,66) @G@@@@ J *STEPX . IF SO, LOOK AT TVE )@@G@@HE NEXT CHARACTER @[@@@@. @A@@@@. 'T' CHARACTER - CHECK IF 'FORMAT'VF )@@G@@@]@@@@TCHAR . @I@@@@ TE A1,(1,5) . X13(A1)=VG )@@G@@(1,5)? MGC-01A @I@@@@ J LRESET VH )@@G@@ . NO MGC-01A @I@@@@ DLVI )@@G@@ A4,IAREG . TEST FOR FORMAT MGC-01A VJ )@@G@@@I@@@@ DTE A4,FORMAT . FO? VK )@@G@@ MGC-01A @I@@@@ J LRESET . NO VL )@@G@@ MGC-01A @I@@@@ DL A4,IAREG+2VM )@@G@@ . MGC-01A @I@@@@ DTVN )@@G@@E A4,FORMAT+2 . RM? MGC-01A VO )@@G@@@I@@@@ J LRESET . NO VP )@@G@@ MGC-01A @I@@@@ J GOBACK . YES-RETURN WIVQ )@@G@@TH FORMAT ONLY IN IAREG MGC-01A @[@@@@ . @E@@@@LRESET SZ VR )@@G@@ A4 . RESET L TO ZER0 @E@@@@KRESET SZ A5 VS )@@G@@ . RESET K TO ZER0 @G@@@@PAKJ SX X14,IAREG,*VT )@@G@@X13 . SET J<-J+1, IAREG(J)<-IAREG(I) @B@@@@ J ENDJLVU )@@G@@ . @[@@@@ . @G@@@@NL1 LA,U A4,01 .VV )@@G@@ RESET L TO 1 (LOOK FOR NUMBERS)@E@@@@ J KRESET VW )@@G@@ . GO BACK AND RESET K @G@@@@NEVAL JZ A4,PAKJ .VX )@@G@@ IS THE NUMBER PART OF A NAME? @E@@@@ MSI,U A5,10 VY )@@G@@ . MULTIPLY K BY 10 @C@@@@ AA A5,X14 .VZ )@@G@@ ADD (N) @H@@@@ ANA,U A5,060 . SUBTRACT 060, CWA )@@G@@ONVERTING FROM FIELDATA @F@@@@ J PAKJ . SAVEWB )@@G@@ THE HOLLERITH CHARACTER@[@@@@ . @G@@@@HFIELD JZ A5,LRESET WC )@@G@@ . IF NO NUMBER PRECEDES, IT'S A NAME@E@@@@ TLE,U A5,10WD )@@G@@ . IS K LESS THAN 10? @D@@@@ J IJDEC WE )@@G@@ . IF SO, SKIP @D@@@@ LA,U A4,02 . RESEWF )@@G@@T L TO 2 @E@@@@ TLE,U A5,100 . IS K LESS THANWG )@@G@@ 100?@D@@@@ J IJDEC . IF SO, SKIP @D@@@@WH )@@G@@ LA,U A4,03 . RESET L TO 3 @E@@@@IJDEC ANXWI )@@G@@ X13,A4 . SUBTRACT L FROM J @D@@@@ AX WJ )@@G@@ X12,A5 . ADD K TO I @G@@@@ J STO0 WK )@@G@@ . JUMP DOWN AND STORE 'O0' IN IAREG@[@@@@ . @]@@@@QUOTE . WL )@@G@@@G@@@@QHL LX X14,IAREG,*X12 . LOAD THE NEXT CHARACTER INTOWM )@@G@@ X14 @D@@@@ TE,U X14,0100 . END OF CARD? @B@@@@WN )@@G@@ J QHL1 . NO@F@@@@ SLJ STEPXWO )@@G@@ . YES - STEP TO NEXT CARD @B@@@@ J QHL WP )@@G@@ . @]@@@@QHL1 . @D@@@@ TE,U X14,072 WQ )@@G@@ . =QUOTE (') @D@@@@ J QHL . NOWR )@@G@@T QUOTE @B@@@@ TG X12,X15 . @B@@@@ WS )@@G@@ J GOBACK . @]@@@@DQQ . @D@@@@ L WT )@@G@@ X14,IAREG,X12 . NEXT CHAR. @D@@@@ TE,U X14,0WU )@@G@@100 . END OF CARD? @B@@@@ J DQQ1 WV )@@G@@ . NO@F@@@@ SLJ STEPX . YES - STEP TO NEXT CWW )@@G@@ARD @^@@@@ J DQQ @]@@@@DQQ1 . @B@@@@ TEWX )@@G@@,U X14,072 . @D@@@@ J DQQ4 WY )@@G@@ . NOT QUOTE @D@@@@ A,U X12,2 . STEP I BWZ )@@G@@Y 2 @]@@@@DQQ2 . @B@@@@ TLE X15,X12 . XA )@@G@@@B@@@@ J GOBACK . @B@@@@ L XB )@@G@@ X14,IAREG-1,X12 . @D@@@@ TE,U X14,0100 . ENXC )@@G@@D OF CARD? @B@@@@ J DQQ3 . NO@F@@@@ XD )@@G@@ SLJ STEPX . YES - STEP TO NEXT CARD @B@@@@ XE )@@G@@ J DQQ2 . @]@@@@DQQ3 . @B@@@@ TNXF )@@G@@E,U X14,072 . @B@@@@ J DQQ XG )@@G@@ . @B@@@@ J QHL . @]@@@@DQQ4 . XH )@@G@@@[@@@@ . @G@@@@STO0 DL A4,O0 . LOAD 'H' AND 'O'XI )@@G@@ INTO A4 AND A5@G@@@@ DS A4,IAREG,X13 . STORE THE XJ )@@G@@HOLLERITH INDICATOR @C@@@@ L,U A4,021 . 'LXK )@@G@@' @B@@@@ S A4,IAREG+2,X13 . @D@@@@ AX,XL )@@G@@U X13,03 . ADD 3 TO J @E@@@@ DSL A4,72XM )@@G@@ . ZERO A4 AND A5 K,L @[@@@@ . @H@@@@ENDJL TG XN )@@G@@ X12,X15 . IS I LESS THAN OR EQUAL TO NWAR? @D@@@@ XO )@@G@@ J GOBACK . IF NOT, RETURN @E@@@@ J XP )@@G@@ NCHL . IF SO, GO AROUND AGAIN@[@@@@. @H@@@@MULTX L XQ )@@G@@ A4,MULT . INCREMENT MULTIPLE STATEMENT MGC @H@@@@XR )@@G@@ A,U A4,1 . COUNTER MXS )@@G@@GC @H@@@@ S A4,MULT . XT )@@G@@ MGC @C@@@@ TNE,U A4,1 . FIRST? XU )@@G@@@H@@@@ S,H2 X13,NWAR1 . XV )@@G@@ MGC @H@@@@ J LRESET . XW )@@G@@ MGC @[@@@@. @D@@@@GOBACK SX,H2 X13,NWAR XX )@@G@@ . SET NWAR <- J @H@@@@ TNZ MULT . MUXY )@@G@@LTIPLE STATEMENTS? MGC @B@@@@ J RETRN XZ )@@G@@ . NO@E@@@@ L,H2 A4,NWAR1 . YES - NWAR=NWAYA )@@G@@R1 @B@@@@ S A4,NWAR . @D@@@@ S,HYB )@@G@@2 X13,NWAR1 . NWAR1=NWAR @]@@@@RETRN . @E@@@@ YC )@@G@@ DL A6,SAVE67 . RESTORE A6 AND A7 @C@@@@ J YD )@@G@@ 01,X11 . RETURN @[@@@@. @ @@@@. SUBROUTINE MULTYE )@@G@@Y ( $ ) @C@@@@. HANDLE MULTIPLE STATEMENTS - SEPARATED BY ';'@[@@@@YF )@@G@@. @]@@@@MULTY* . @D@@@@ L A3,NWAR1 . NOYG )@@G@@. WORDS @F@@@@ L A0,NWAR . NO. IN FIRST SYH )@@G@@TATEMENT @B@@@@ LXI,U A0,1 . @ @@@@ YI )@@G@@ AN A3,NWAR @B@@@@NEXT JGD A3,NEXT2 . YJ )@@G@@@H@@@@ J 2,X11 . ';' - NOT FOUND YK )@@G@@ MGC @B@@@@NEXT2 L A2,IAREG,*A0 . @B@@@@ YL )@@G@@ TE,U A2,+';' . @B@@@@ J NEXT YM )@@G@@ . @B@@@@ L A1,(1,0) . @B@@@@ YN )@@G@@ SZ FIRST . @B@@@@MOVE L A2,IAREG,*AYO )@@G@@0 . @B@@@@ TZ FIRST . @B@@@@ YP )@@G@@ J STORE . @B@@@@ TE,U A2,+';' YQ )@@G@@ . @B@@@@ J STORE . @G@@@@ YR )@@G@@ S,H2 A1,NWAR . NO. WORDS IN NEXT STATEMENT @D@@@@YS )@@G@@ JZ A1,MOVE . JUMP - NWAR=0 @C@@@@ S,YT )@@G@@H1 A1,FIRST . FIRST=1 @B@@@@STORE S A2,IAREG,*AYU )@@G@@1 . @B@@@@ JGD A3,MOVE . @B@@@@ YV )@@G@@ AN,U A1,1 . @B@@@@ S,H2 A1,NWAR1 YW )@@G@@ . @B@@@@ TNZ FIRST . @B@@@@ YX )@@G@@ S,H2 A1,NWAR . @B@@@@ L A2,MULT YY )@@G@@ . @B@@@@ AN,U A2,1 . @B@@@@ YZ )@@G@@ S A2,MULT . @G@@@@ J *0,X11 ZA )@@G@@ . RETURN 1 - MULTIPLE STATEMENT @B@@@@FIRST + 0 ZB )@@G@@ . @^@@@@$(2). . DATA BANK @I@@@@FORMAT + ZC )@@G@@ 013 . F MGC-01A @I@@@@ZD )@@G@@ + 024 . O ZE )@@G@@MGC-01A @I@@@@ + 027 . R ZF )@@G@@ MGC-01A @I@@@@ + 022 ZG )@@G@@ . M MGC-01A @I@@@@SELECT + ZH )@@G@@ DEL0 . '@' 0 000 @I@@@@ZI )@@G@@ + LRESET . '[' 1 ZJ )@@G@@ 001 @I@@@@ + LRESET . ']' ZK )@@G@@ 2 002 @I@@@@ + LRESET .ZL )@@G@@ ')' 3 003 @I@@@@ + ZM )@@G@@ LRESET . '^' 4 004 @I@@@@ZN )@@G@@ + ENDJL . ' ' 5 ZO )@@G@@ 005 @I@@@@ + LRESET . 'A' ZP )@@G@@ 6 006 @I@@@@ + LRESET .ZQ )@@G@@ 'B' 7 007 @I@@@@ + ZR )@@G@@ LRESET . 'C' 8 010 @I@@@@ZS )@@G@@ + LRESET . 'D' 9 ZT )@@G@@ 011 @I@@@@ + LRESET . 'E' ZU )@@G@@ 10 012 @I@@@@ + LRESET .ZV )@@G@@ 'F' 11 013 @I@@@@ + ZW )@@G@@ LRESET . 'G' 12 014 @I@@@@ZX )@@G@@ + HFIELD . 'H' 13 ZY )@@G@@ 015 @I@@@@ + LRESET . 'I' ZZ )@@G@@ 14 016 @I@@@@ + LRESET .AA )@@G@@ 'J' 15 017 @I@@@@ + AB )@@G@@ LRESET . 'K' 16 020 @I@@@@AC )@@G@@ + HFIELD . 'L' 17 AD )@@G@@ 021 @I@@@@ + LRESET . 'M' AE )@@G@@ 18 022 @I@@@@ + LRESET .AF )@@G@@ 'N' 19 023 @I@@@@ + AG )@@G@@ LRESET . 'O' 20 024 @I@@@@AH )@@G@@ + LRESET . 'P' 21 AI )@@G@@ 025 @I@@@@ + LRESET . 'Q' AJ )@@G@@ 22 026 @I@@@@ + HFIELD .AK )@@G@@ 'R' 23 027 @I@@@@ + AL )@@G@@ LRESET . 'S' 24 030 @I@@@@AM )@@G@@ + TCHAR . 'T' 25 AN )@@G@@ 031 @I@@@@ + LRESET . 'U' AO )@@G@@ 26 032 @I@@@@ + LRESET .AP )@@G@@ 'V' 27 033 @I@@@@ + AQ )@@G@@ LRESET . 'W' 28 034 @I@@@@AR )@@G@@ + LRESET . 'X' 29 AS )@@G@@ 035 @I@@@@ + LRESET . 'Y' AT )@@G@@ 30 036 @I@@@@ + LRESET .AU )@@G@@ 'Z' 31 037 @I@@@@ + AV )@@G@@ LRESET . ')' 32 040 @I@@@@AW )@@G@@ + NL1 . '-' 33 AX )@@G@@ 041 @I@@@@ + NL1 . '+' AY )@@G@@ 34 042 @I@@@@ + LRESET .AZ )@@G@@ '<' 35 043 @I@@@@ + BA )@@G@@ NL1 . '=' 36 044 @I@@@@BB )@@G@@ + LRESET . '>' 37 BC )@@G@@ 045 @I@@@@ + LRESET . '&' BD )@@G@@ 38 046 @I@@@@ + LRESET .BE )@@G@@ '$' 39 047 @I@@@@ + BF )@@G@@ NL1 . '*' 40 050 @I@@@@BG )@@G@@ + NL1 . '(' 41 BH )@@G@@ 051 @I@@@@ + LRESET . '%' BI )@@G@@ 42 052 @I@@@@ + LRESET .BJ )@@G@@ ':' 43 053 @I@@@@ + BK )@@G@@ LRESET . '?' 44 054 @I@@@@BL )@@G@@ + LRESET . '!' 45 BM )@@G@@ 055 @I@@@@ + NL1 . ',' BN )@@G@@ 46 056 @I@@@@ + LRESET .BO )@@G@@ '\' 47 057 @I@@@@ + BP )@@G@@ NEVAL . '0' 48 060 @I@@@@BQ )@@G@@ + NEVAL . '1' 49 BR )@@G@@ 061 @I@@@@ + NEVAL . '2' BS )@@G@@ 50 062 @I@@@@ + NEVAL .BT )@@G@@ '3' 51 063 @I@@@@ + BU )@@G@@ NEVAL . '4' 52 064 @I@@@@BV )@@G@@ + NEVAL . '5' 53 BW )@@G@@ 065 @I@@@@ + NEVAL . '6' BX )@@G@@ 54 066 @I@@@@ + NEVAL .BY )@@G@@ '7' 55 067 @I@@@@ + BZ )@@G@@ NEVAL . '8' 56 070 @I@@@@CA )@@G@@ + NEVAL . '9' 57 CB )@@G@@ 071 @I@@@@ + QUOTE . ''' CC )@@G@@ 58 072 @I@@@@ + MULTX .CD )@@G@@ ';' 59 073 @I@@@@ + CE )@@G@@ NL1 . '/' 60 074 @I@@@@CF )@@G@@ + NL1 . '.' 61 CG )@@G@@ 075 @I@@@@ + LRESET . '"' CH )@@G@@ 62 076 @I@@@@ + LRESET .CI )@@G@@ '_' 63 077 @G@@@@ + CJ )@@G@@ DEL0 . 0100=LAST CHAR IN CARD FLAG @F@@@@IJINIT XRECK )@@G@@G 01,0 . INITIALIZATION OF I AND J@F@@@@ XRECL )@@G@@G 01,0 . INITIALIZATION OF I AND J@D@@@@SAVE67 RECM )@@G@@S 2 . SAVE A6 AND A7@C@@@@NI1M1 - 00000CN )@@G@@01000001 . XREG -1,-1@B@@@@O0 + 015 . 'H' CO )@@G@@@B@@@@ + 024 . 'O' @[@@@@. @C@@@@. IF CP )@@G@@MULT=0 NWAR=NO. OF WORDS IN STATEMENT @[@@@@. @E@@@@. IF MULT NCQ )@@G@@OT 0 NWAR=NO. OF WORDS IN STATEMENT 1 AND @E@@@@. CR )@@G@@ NWAR1=NO. OF WORDS IN ALL STATEMENTS @[@@@@. @B@@@@. MULT=MULTCS )@@G@@IPLE STATEMENT COUNTER (-1) @[@@@@. @G@@@@E8ARY INFO 2 CT )@@G@@6 . LABELLED COMMON STORAGE ALLOCATION@]@@@@$(6) . @B@@@@CU )@@G@@NWAR RES 1 . @B@@@@MULT RES 1 CV )@@G@@ . @B@@@@NWAR1 RES 1 . @B@@@@CW )@@G@@IAREG RES 1792 . @]@@@@ END___ CX )@@G@@ 0 000 @I@@@@ + LRESET . '[' CY )@@G@@ 1 001 @I@@@@ *[S@@@*SDFF*@^@@@@ CZ )@@G@@ AXR$ . @]@@@@$(1) . @B@@@@PF FORM 12,6,18 DA )@@G@@ . @B@@@@IDLIN* S X11,SAVX11 . @E@@@@ DB )@@G@@ L,U A0,DCTID . DCT VERSION-IN MAP @B@@@@ S,DC )@@G@@S4 A0,IDBUFF+1 . @I@@@@ LMJ X11,IDONLY$ DD )@@G@@ . MGC 01C @B@@@@ L DE )@@G@@ A0,PIDLIN . @B@@@@ ER PRINT$ . DF )@@G@@@B@@@@ L X11,SAVX11 . @B@@@@ J DG )@@G@@ 1,X11 . @]@@@@$(0) . @B@@@@SAVX11 + 0 DH )@@G@@ . @^@@@@IDBUFF* 'DCTNRY 01A '@B@@@@ ' DI )@@G@@ ' . @B@@@@PIDLIN PF 1,$-IDBUFF,IDBUFF . DJ )@@G@@@#@@@@ END ___^@)^@)DK)^@)^@)^@)^@1 -SAC1^@)^@)^@)^@)^@)^@)DK )@@G@@^@) 0)@#@@@@^)*A@(^@)^@)*[S@@@*SDFF*@I@@@@ SUBROUTINE CTCDIT($,$,$)DL )@@G@@ CDIT0001 @I@@@@C THIS DM )@@G@@SUBROUTINE INTERPRETS FREE FORM CONTROL CARDS CDIT0002 DN )@@G@@@I@@@@C 1ST $ RETURN USED AS STANDARD RETURN DO )@@G@@ CDIT0003 @I@@@@C 2ND $ RETURN USED WHEN AN END CONTROL CARDP )@@G@@D IS FOUND ('*') CDIT0004 @I@@@@C DQ )@@G@@ CDIT0005 @I@@@@ IMPLICDR )@@G@@IT INTEGER (A-Z) CDIT0006 DS )@@G@@@I@@@@ PARAMETER BUFSIZ=448 DT )@@G@@ CDIT0007 @I@@@@ DIMENSION BUF1(BUFSIZ),BUF2(BUFSIZ),ICCR(6DU )@@G@@6) CDIT0008 @I@@@@ DIMENSION ICCD(11) DV )@@G@@ CDIT0009 @I@@@@ COMMONDW )@@G@@ KADD,LADD,JF11,N91(4,300),LINE(22) CDIT0010 DX )@@G@@@I@@@@ COMMON /E8DCT/INAME(2),KVERSN(2),LNSS,JF1,JF2,JF3,JF4,JF5, DY )@@G@@ CDIT0011 @I@@@@ 1 JF6,JF7,JF8,JF9,JF10,MBUF,INCFL,FILE(2),JDZ )@@G@@F12,JF13,IVTE,KCTSUB, CDIT0012 @I@@@@ 2 KOMTAB(300),KCMA,KBLNAMEA )@@G@@ MGC 01C @I@@@@ COMMONEB )@@G@@ /E8IPT/IPT(1000) CDIT0014 EC )@@G@@@I@@@@ COMMON /MSG/MSG(105) ED )@@G@@ CDIT0015 @I@@@@ EQUIVALENCE (ICCR,IPT(30)),(BUF1,IPT(100))EE )@@G@@,(BUF2,IPT(BUFSIZ+100)) CDIT0016 @I@@@@ EQUIVALENCE (ICCD,IPT) EF )@@G@@ CDIT0017 @I@@@@ DIMENSEG )@@G@@ION QUAL(2),USE(7) CDIT0018 EH )@@G@@@I@@@@ DATA USE/ '@USE I$I$I$,' , 5*' ' / EI )@@G@@ CDIT0019 @I@@@@C SET FLAGS TO INITIAL VALUES EJ )@@G@@ CDIT0020 @I@@@@ JF1=0 EK )@@G@@ CDIT0021 @I@@@@ JF2=0 EL )@@G@@ CDIT0022 EM )@@G@@@I@@@@ JF3=0 EN )@@G@@ CDIT0023 @I@@@@ JF4=0 EO )@@G@@ CDIT0024 @I@@@@ JF5=0 EP )@@G@@ CDIT0025 @I@@@@ JF6=0 EQ )@@G@@ CDIT0026 ER )@@G@@@I@@@@ JF7=0 ES )@@G@@ CDIT0027 @I@@@@ JF8 = 1 @ THE 'E' OPTION IS NOW AUTOMATET )@@G@@IC - SEE 'X' OPTION CDIT0028 @I@@@@ JF9=0 EU )@@G@@ CDIT0029 @I@@@@ JF10=0EV )@@G@@ CDIT0030 EW )@@G@@@I@@@@ JF11=0 EX )@@G@@ CDIT0031 @I@@@@ JF12=0 EY )@@G@@ CDIT0032 @I@@@@ JF13=0 EZ )@@G@@ @ MCDIT0033 @I@@@@ LNSS=0FA )@@G@@ CDIT0034 FB )@@G@@@I@@@@C UNPACK CHARACTERS (1CHAR/WORD RIGHT ADJUSTED ZERO FILLED) FC )@@G@@ CDIT0035 @I@@@@ CALL UPC8 (ICCD,ICCR) FD )@@G@@ CDIT0036 @I@@@@C SQUEEZE OUT BLANKS FE )@@G@@ CDIT0037 @I@@@@ J=0 FF )@@G@@ CDIT0038 FG )@@G@@@I@@@@ DO 10 I=1,66 FH )@@G@@ CDIT0039 @I@@@@ IF (ICCR(I).EQ.5) GO TO 10 FI )@@G@@ CDIT0040 @I@@@@ J=J+1 FJ )@@G@@ CDIT0041 @I@@@@ ICCR(JFK )@@G@@)=ICCR(I) CDIT0042 FL )@@G@@@I@@@@ 10 CONTINUE FM )@@G@@ CDIT0043 @I@@@@C SET NUMBER OF WORDS IN THE REGISTER FN )@@G@@ CDIT0044 @I@@@@ NWCR=J FO )@@G@@ CDIT0045 @I@@@@ K=J+1 FP )@@G@@ CDIT0046 FQ )@@G@@@I@@@@ CALL MOVER(5,0,ICCR(K),1,66-J) FR )@@G@@ CDIT0047 @I@@@@C SET MAIN INDEX FS )@@G@@ CDIT0054 @I@@@@ 20 IKT=0 FT )@@G@@ CDIT0055 @I@@@@ CALL CFU )@@G@@HKCC ( ICCD,ICCR,NWCR,QUAL,FILE,INAME,KVERSN,IKT,NCH, MGC 01C FV )@@G@@@I@@@@ * $330,$320 ) FW )@@G@@ MGC 01C @I@@@@ CALL OPA ( -1,'& ' ) FX )@@G@@ CDIT0057 @I@@@@ NC=FLD( 0,6,NCH ) FY )@@G@@ @ NO. CHAR. IN QUAL CDIT0058 @I@@@@ NFLAG=FZ )@@G@@FLD( 30,6,NCH ) @ QUAL FLAG CDIT0059 GA )@@G@@@I@@@@ IC=1 GB )@@G@@ CDIT0060 @I@@@@ IF (NFLAG.LE.0) GO TO 40 @ NO QUAL GC )@@G@@ CDIT0061 @I@@@@ IF (NC.LE.0) GO TO 30 GD )@@G@@ @ *FILE CDIT0062 @I@@@@ CALL OGE )@@G@@PAF ( 1,QUAL,NC ) CDIT0063 GF )@@G@@@I@@@@ IC=IC + NC GG )@@G@@ CDIT0064 @I@@@@ 30 CALL OPAF ( IC,'******',1 ) GH )@@G@@ CDIT0065 @I@@@@ IC=IC + 1 GI )@@G@@ CDIT0066 @I@@@@ 40 NC=FLDGJ )@@G@@( 6,6,NCH ) @ NO. CHAR. IN FILE CDIT0067 GK )@@G@@@I@@@@ IF (NC.LE.0) GO TO 50 GL )@@G@@ CDIT0068 @I@@@@ CALL OPAF ( IC,FILE,NC ) GM )@@G@@ CDIT0069 @I@@@@ GO TO 60 GN )@@G@@ CDIT0070 @I@@@@ 50 CALL OGO )@@G@@PA ( IC,'TPF$& ' ) CDIT0071 GP )@@G@@@I@@@@ NC=4 GQ )@@G@@ CDIT0072 @I@@@@ 60 IC=IC + NC GR )@@G@@ CDIT0073 @I@@@@ CALL OPA ( IC,'. . & ' )GS )@@G@@ @ TERM. WITH BLANK.BLANK CDIT0074 @I@@@@ DO 70 GT )@@G@@K=1,5 CDIT0075 GU )@@G@@@I@@@@ USE(K+2)=LINE(K) GV )@@G@@ CDIT0076 @I@@@@ 70 CONTINUE GW )@@G@@ CDIT0077 @I@@@@ CALL CSF ( USE,7,KERR ) GX )@@G@@ CDIT0078 @I@@@@ OPFLG=GY )@@G@@0 CDIT0079 GZ )@@G@@@I@@@@ GO TO 90 HA )@@G@@ CDIT0080 @I@@@@C IF WE USED UP ALL THE DATA WE ARE DONE HB )@@G@@ CDIT0081 @I@@@@ 80 IKT=IKT + 1 HC )@@G@@ CDIT0082 @I@@@@ 90 IF (IKHD )@@G@@T.GT.NWCR) GO TO 250 CDIT0083 HE )@@G@@@I@@@@ N=ICCR(IKT) HF )@@G@@ CDIT0084 @I@@@@C IGNORE COMMAS HG )@@G@@ CDIT0085 @I@@@@ IF (N.EQ.46) GO TO 80 HH )@@G@@ CDIT0086 @I@@@@C CHECKHI )@@G@@ FOR OUTSIDE OF RANGE OF 'GOTO' CDIT0087 HJ )@@G@@@I@@@@ IF (N.GT.29.OR.N.LT.9) GO TO 100 HK )@@G@@ CDIT0088 @I@@@@ N=N-8 HL )@@G@@ CDIT0089 @I@@@@C BRANCH TO APPROPRIATE OHM )@@G@@PTION CDIT0090 @I@@@@ GO TO HN )@@G@@(80,80,120,100,130,140,100,100,230,160,220,100,170,100,100,1CDIT0091 HO )@@G@@@I@@@@ 180,190,200,210,100,240),N @ 'X' OPTION ADDED 6/6/72 HP )@@G@@ CDIT0092 @I@@@@C WRITE ERROR MESSAGE HQ )@@G@@ CDIT0093 @I@@@@ 100 FLD( 0,6,MM )=ICCR(IKT) HR )@@G@@ CDIT0094 @I@@@@ OPFLG=HS )@@G@@OPFLG + 1 CDIT0095 HT )@@G@@@I@@@@ IF (OPFLG.GT.1) GO TO 110 HU )@@G@@ CDIT0096 @I@@@@ CALL OPA ( -1,MSG ) HV )@@G@@ CDIT0097 @I@@@@ CALL OPA ( 20,'IGNORE INHW )@@G@@VALID OPTION(S).&' ) CDIT0098 @I@@@@ 110 CALL OHX )@@G@@PAF ( 48+OPFLG,MM,1 ) CDIT0099 HY )@@G@@@I@@@@ GO TO 80 HZ )@@G@@ CDIT0100 @I@@@@C 'E' OPTION - PROGRAM WILL NOT BE TERMINATIA )@@G@@ED BY AN ERROR CDIT0101 @I@@@@C 95 JF8=1 @ IB )@@G@@THE 'E' OPTION IS NO LONGER USED. ERRORCDIT0102 @I@@@@C GO TO IC )@@G@@75 @ WILL BE TAKEN IF CALLED FOR WITH 'X' OPTCDIT0103 ID )@@G@@@I@@@@C 'F' OPTION - SUPPRESS PRINTING OF FORTRAN STATEMENTS IE )@@G@@ CDIT0104 @I@@@@ 120 JF2=1 IF )@@G@@ CDIT0105 @I@@@@ GO TO 80 IG )@@G@@ CDIT0106 @I@@@@C 'H' OIH )@@G@@PTION - SUPPRESS PRINTING OF HEADING INFORMATION CDIT0107 II )@@G@@@I@@@@ 130 JF6=1 IJ )@@G@@ CDIT0108 @I@@@@ GO TO 80 IK )@@G@@ CDIT0109 @I@@@@C 'I' OPTION - IGNORE PROIL )@@G@@GRAM UPTO AND INCLUDING GIVEN LINE NUMBER CDIT0110 @I@@@@C CALCUIM )@@G@@LATE LINE NUMBER CDIT0111 IN )@@G@@@I@@@@ 140 DO 150 I=1,5 IO )@@G@@ CDIT0112 @I@@@@ IKT=IKT+1 IP )@@G@@ CDIT0113 @I@@@@ N=ICCR(IKT) - '@@@@@0' IQ )@@G@@ CDIT0114 @I@@@@C SEE IIR )@@G@@F NON-NUMBER OR IF WE HAVE EXCEEDED THE DATA CDIT0115 IS )@@G@@@I@@@@ IF (N.LT.0.OR.N.GT.9) GO TO 90 IT )@@G@@ CDIT0116 @I@@@@ IF (IKT.GT.NWCR) GO TO 250 IU )@@G@@ CDIT0117 @I@@@@ LNSS=10*LNSS + N IV )@@G@@ CDIT0118 @I@@@@ 150 CONTINIW )@@G@@UE CDIT0119 IX )@@G@@@I@@@@C IF IT FALLS THROUGH THEN THE NUMBER IS TO LARGE IY )@@G@@ CDIT0120 @I@@@@ CALL OPA ( -1,MSG ) IZ )@@G@@ CDIT0121 @I@@@@ CALL OPAP ( 3,1,'I OPTIOJA )@@G@@N. NO. TOO LARGE.&' ) CDIT0122 @I@@@@ GO TO JB )@@G@@310 CDIT0123 JC )@@G@@@I@@@@C 'M' OPTION - MERGE VARIABLE TABLE WITH OTHERS WITH 'M' OPTIJD )@@G@@ON CDIT0124 @I@@@@ 160 JF10=1 JE )@@G@@ CDIT0125 @I@@@@ CALL ASGTCT JF )@@G@@ @ CHECK/ASSIGN TCT$ FILE CDIT0126 @I@@@@ GO TO JG )@@G@@80 CDIT0127 JH )@@G@@@I@@@@C 'P' OPTION - PUNCH THE VARIABLE TABLE ONTO CARDS JI )@@G@@ CDIT0128 @I@@@@ 170 JF9=JF9+1 JJ )@@G@@ CDIT0129 @I@@@@ GO TO 80 JK )@@G@@ CDIT0130 @I@@@@C 'S' OJL )@@G@@PTION - SUPPRESS PRINTING OF STATEMENT NUMBER TABLE CDIT0131 JM )@@G@@@I@@@@ 180 JF4=1 JN )@@G@@ CDIT0132 @I@@@@ GO TO 80 JO )@@G@@ CDIT0133 @I@@@@C 'T' OPTION - SUPPRESS PJP )@@G@@RINTING OF TRANSFER TABLE CDIT0134 @I@@@@ 190 JF5=1 JQ )@@G@@ CDIT0135 JR )@@G@@@I@@@@ GO TO 80 JS )@@G@@ CDIT0136 @I@@@@C 'U' OPTION - INCREMENT LINE NO. OF INCLUDE STJT )@@G@@ATEMENTS MCDIT0137 @I@@@@ 200 JF13=1 JU )@@G@@ @ MCDIT0138 @I@@@@ GO TO JV )@@G@@80 @ MCDIT0139 JW )@@G@@@I@@@@C 'V' OPTION - SUPPRESS PRINTING OF THE VARIABLE TABLE JX )@@G@@ CDIT0140 @I@@@@ 210 JF3=1 JY )@@G@@ CDIT0141 @I@@@@ GO TO 80 JZ )@@G@@ CDIT0142 @I@@@@C 'N' OPTIOKA )@@G@@N CDIT0143 KB )@@G@@@I@@@@ 220 JF11 = 1 KC )@@G@@ CDIT0144 @I@@@@ GO TO 80 KD )@@G@@ CDIT0145 @I@@@@C 'L' OPTION LIST COMMENKE )@@G@@T CARDS CDIT0146 @I@@@@ 230 JF12=1KF )@@G@@ CDIT0147 KG )@@G@@@I@@@@ GO TO 80 KH )@@G@@ CDIT0148 @I@@@@C 'X' OPTION ERROR TERMINATIONS ARE VIA EKI )@@G@@RR$ CDIT0149 @I@@@@ 240 JF8 = 0 KJ )@@G@@ CDIT0150 @I@@@@ GO TO KK )@@G@@80 CDIT0151 KL )@@G@@@I@@@@ 250 IF ( OPFLG.GT.0 )CALL OPRINT ( 2 ) KM )@@G@@ CDIT0152 @I@@@@ CALL CHKASG('I$I$I$ ',$260,KERR) KN )@@G@@@ CDIT0153 @I@@@@ CALL RDS1('I$I$I$ 'KO )@@G@@,INAME,KVERSN,BUF1,BUF2,BUFSIZ,KERR,$270) CDIT0154 @I@@@@ RETURNKP )@@G@@ 1 CDIT0155 KQ )@@G@@@A@@@@ 260 CALL OPAP ( 63,-1,' & ' ) @I@@@@ CALL OPA ( -1,MSG KR )@@G@@) @ PUT 'ERROR' IN LINE CDIT0156 @I@@@@ KS )@@G@@CALL OPA ( 20,'CANNOT ASSIGN FILE. STATUS=&' ) CDIT01KT )@@G@@57 @I@@@@ CALL OPOP ( 2,48,KERR,13 ) KU )@@G@@ CDIT0158 @I@@@@ GO TO 310 KV )@@G@@ CDIT0159 @A@@@@ 270 CALL OPAP ( 63,-1,KW )@@G@@' & ' ) @I@@@@ CALL OPA ( -1,MSG ) KX )@@G@@ CDIT0160 @I@@@@ IF (KERR-2) 280,290,300 KY )@@G@@ CDIT0161 @I@@@@ 280 CALL OPAP ( KZ )@@G@@2,20,'CANNOT FIND ELEMENT IN FILE.&' ) CDIT0162 @I@@@@LA )@@G@@ GO TO 310 LB )@@G@@CDIT0163 @I@@@@ 290 STAT=FLD( 24,6,KERR ) LC )@@G@@ CDIT0164 @I@@@@ CALL OPA ( 20,'I/O ERROR. STATLD )@@G@@US=&' ) CDIT0165 @I@@@@ CALL OPIP ( LE )@@G@@3,39,STAT,5 ) CDIT0166 @I@@@@LF )@@G@@ GO TO 310 LG )@@G@@CDIT0167 @I@@@@ 300 CALL OPAP ( 3,20,'PROGRAM NOT DEFINED OR OVERFLOLH )@@G@@W.&' ) CDIT0168 @I@@@@ 310 CALL OPA ( -1,'CONTROL CARD IMLI )@@G@@AGE=&' ) CDIT0169 @I@@@@ CALL OPAFP (LJ )@@G@@ 3,21,ICCD,66 ) CDIT0170 @I@@@@LK )@@G@@ CALL OPAP ( 2,-1,' & ' ) LL )@@G@@CDIT0171 @I@@@@ RETURN 3 LM )@@G@@ CDIT0172 @I@@@@ 320 RETURN 2 LN )@@G@@ @ *MERGE RETURN MGC 01C @I@@@@ 330 RETURN LO )@@G@@ @ *END RETURN MGC 01C @I@@@@LP )@@G@@ END LQ )@@G@@CDIT0173 ___T.NWCR) GO TO 250 LR )@@G@@*[S@@@*SDFF*@^@@@@ SUBROUTINE TBL1 @I@@@@C * THIS SBRTN TAKES LS )@@G@@CARE OF ALL TABLE ENTRIES AND TABLE BOOKKEEPINGTBL80002 @I@@@@C LT )@@G@@ IFT - CODE THAT DETERMINES WHAT FUNCTION THE SBRTN WILL PERFORM TBL800LU )@@G@@03 @I@@@@C IVAR - VARIABLE NAME,STATEMENT N3., ITEM NO., A,A,I FLV )@@G@@ORMAT TBL80004 @I@@@@C LN - LINE NUMBER -I FORMAT LW )@@G@@ TBL80005 @I@@@@C IEFG - ENTRY FLAGLX )@@G@@-PRINTED NEXT TO LINE NO ENTRS - A FMT SHFTD 12TBL80006 @I@@@@C LY )@@G@@ IVFG - VARIABLE FLAG-PRINTED NEXT TO VARIABLE TBL800LZ )@@G@@07 @I@@@@C IFFG - FIRST VARIABLE FLAG / STATEMENT NO FLAG - A/I MA )@@G@@FORMAT TBL80008 @I@@@@C MB )@@G@@ TBL80009 @I@@@@ IMPLICIT INTEGER (MC )@@G@@A-Z) TBL80010 @G@@@@ MD )@@G@@PARAMETER NOFMT=39,MAXABN=16,MAXMAC=27 @I@@@@ME )@@G@@ PARAMETER MAXVAR=2000,MAXREF=500,MAXS=15000 @ MF )@@G@@TBL80012 @I@@@@ DIMENSION ENTRY(MAXVAR) , POINT(MAXVAR),LTBL(NOFMG )@@G@@MT,2),MTBL(MAXS) TBL8001 @I@@@@ DIMENSION FMT(2,NOFMT) MH )@@G@@ TBL80014 @I@@@@ COMMON /E8ARMI )@@G@@Y/NWAR,MULT,NWAR1,IRDM(1792) TBL80015 @I@@@@MJ )@@G@@ COMMON /E8IPT/IPT(MAXREF,2) MK )@@G@@TBL80016 @I@@@@ COMMON KADD,LADD,JF11,N91(4,300),LINE(22) ML )@@G@@ TBL80017 @I@@@@ COMMON /E8DCT/ INAME(2),KVERSNMM )@@G@@(2),LNSS,JF1,JF2,JF3,JF4,JF5, TBL80018 @I@@@@ 1 JF6,JF7,JF8MN )@@G@@,JF9,JF10,MBUF,INCFL,FILE(2),JF12,JF13,IVTE,KCTSUB, TBL80019 @I@@@@MO )@@G@@ ; KOMTAB(300),KCMA,KBLNAM MP )@@G@@MGC 01C @I@@@@ COMMON /MSG/MSG(105) MQ )@@G@@ TBL80021 @A@@@@ DIMENSION IXALP(27),IXNUM(51) MR )@@G@@@B@@@@ DATA IBLK,LDMVR,LFCTN,ISTST,IST6 / @D@@@@ * ' ','DMS )@@G@@MVR ','FCTN ','** ','******' / @I@@@@ DATA FMT/8HDO ,8HIFMT )@@G@@(L) ,8HIF(A) , TBL80025 @I@@@@ 1 8HGOTMU )@@G@@O(UC),8HGOTO(A) ,8HGOTO(C) ,8HCALL ,8HFCT REF , TBL80026 MV )@@G@@@I@@@@ 2 8HRTRN(S) ,8HRTRN(NS),8HASSIGN ,8HTAPES ,8HINPUT , MW )@@G@@ TBL80027 @I@@@@ 3 8HOUTPUT ,8HSUB PROG,8HSTOP ,8HACCEPTMX )@@G@@ , TBL80028 @I@@@@ 4 8HDISPLAY ,8HERPRINT MY )@@G@@,8HREPEAT ,8HREPLACE , TBL80029 @I@@@@ 5 8HGENMZ )@@G@@ERATE ,8HREGISTER ,8HARGUMENT ,8HALTPRINT , 8HMONITOR , TBL80030 NA )@@G@@@E@@@@ 6 8HASM$INTF , 8HABORT , 8HBUFFER , @E@@@@NB )@@G@@ 7 8HFILE , 8HIDENTIFY , 8HJUMP , 8HLABELS , @E@@@@ 8NC )@@G@@ 8HNAME , 8HNEXT , 8HREAD , 8HSCAN , @A@@@@ 9 8HUNIND )@@G@@QUE , 8HWRITE / @A@@@@ DEFINE H1(I)=FLD( 0,18,I ) @A@@@@NE )@@G@@ DEFINE H2(I)=FLD( 18,18,I ) @I@@@@C * INITIALIZE ALL TABLES NF )@@G@@ TBL80032 @A@@@@ 10 CALL MNG )@@G@@OVER ( 0,0,IXALP,1,27 ) @A@@@@ CALL MOVER ( 0,0,IXNUM,1,51 ) @C@@@@NH )@@G@@ CALL MOVER ( 0,0,POINT,1,MAXVAR ) @I@@@@ CALL MOVER( NI )@@G@@0,0,LTBL,1,2*NOFMT ) TBL80035 @I@@@@NJ )@@G@@ JPOINT=MAXS NK )@@G@@TBL80036 @I@@@@ KPOINT=1 NL )@@G@@ TBL80037 @I@@@@ JLAST=0 NM )@@G@@ TBL80038 @#@@@@ JFLAG=0 NN )@@G@@@#@@@@ KFLAG=0 @I@@@@ ABNFLG=0 NO )@@G@@ TBL80040 @D@@@@ MACFLG=0 NP )@@G@@ @ MACRO FLAG @I@@@@ RETURN NQ )@@G@@ TBL80041 @[@@@@C @[@@@@C NR )@@G@@@C@@@@ ENTRY TBL2 ( IFT,IVAR,LN,IEFG,IVFG,IFFG ) @I@@@@C * MAKE NS )@@G@@A VARIABLE/FUNCTION ENTRY TBL80042 NT )@@G@@@I@@@@C IF THE LINE NUMBER IS LESS THAN OR EQUAL TO THE NUMBER OF LNU )@@G@@INES TBL80043 @I@@@@C TO BE SKIPPED, RETURN NV )@@G@@ TBL80044 @D@@@@ N=FLD( 0,6,IVAR ) NW )@@G@@ @ FIRST CHAR. @C@@@@ CALL CHKLET ( N,$20,$80 ) @ LENX )@@G@@TTER? @I@@@@ 20 IF (LN .LE. LNSS) RETURN NY )@@G@@ TBL80045 @I@@@@C LOCATE THE VARIABLE/FUNCTION NZ )@@G@@ TBL80046 @A@@@@ CALL LOCATE ( $40,OA )@@G@@$80,IXALP ) @I@@@@C STANDARD RETN MEANS NEW ENTRY - INITIALIZE SECTOB )@@G@@ION OF MTBL TBL80048 @I@@@@ DO 30 I=1,6 OC )@@G@@ TBL80049 @I@@@@ 30 MTBL(LCTN+I-OD )@@G@@1)=IBLK TBL80050 @I@@@@OE )@@G@@ MTBL(LCTN+6)=0 OF )@@G@@TBL80051 @I@@@@ MTBL(LCTN+7)=JPOINT OG )@@G@@ TBL80052 @I@@@@ MTBL(LCTN+8)=0 OH )@@G@@ TBL80053 @I@@@@ KPOINT=KPOINOI )@@G@@T+9 TBL80054 @E@@@@OJ )@@G@@ JFLAG=1 @ VARIABEL FOUND FLAG @I@@@@C OK )@@G@@ MAKE ENTRY TBL8005OL )@@G@@5 @I@@@@ 40 LENT=LN+IEFG OM )@@G@@ TBL80056 @I@@@@ CALL ENTER (MTBL(LCTN+8),LENT) ON )@@G@@ TBL80057 @I@@@@C CHECK TO SEE IF FOO )@@G@@IRST FLAG IS TO BE ENTRED TBL80058 @I@@@@ OP )@@G@@IF (IFFG.EQ.0) GO TO 50 TBL800OQ )@@G@@59 @I@@@@C ENTR FIRST FLAG OR )@@G@@ TBL80060 @I@@@@ MTBL(LCTN+5) = IFFG OS )@@G@@ TBL80061 @I@@@@ GO TO 60 OT )@@G@@ TBL80062 @I@@@@C OU )@@G@@ IS VARIABLE'S DIMENSION TO BE CHECKED TBL800OV )@@G@@63 @I@@@@ 50 IF (IFT.EQ.2) GO TO 60 OW )@@G@@ TBL80064 @I@@@@C IS VARIABLE DIMENSIONED OX )@@G@@ TBL80065 @I@@@@ IF (MTBL(LCTN+5).EOY )@@G@@Q.LDMVR) GO TO 60 TBL80066 @I@@@@C OZ )@@G@@ THE VARIABLE IS NOT DIMENSIONED - MUST BE A FUNCTION TBL800PA )@@G@@67 @I@@@@ MTBL(LCTN+5)=LFCTN PB )@@G@@ TBL80068 @I@@@@C SET FLAG AND MAKE IFT NEG TO SIGNALPC )@@G@@ THE MAIN PROGRAM TBL80069 @I@@@@ IFT=-3 PD )@@G@@ TBL80070 @I@@@@C PE )@@G@@ IS VARIABLE FLAG TO BE SET TBL800PF )@@G@@71 @I@@@@ 60 IF (IVFG.EQ.0) GO TO 80 PG )@@G@@ TBL80072 @I@@@@ N=MTBL(LCTN+6) PH )@@G@@ TBL80073 @I@@@@C CHECK FOR FLAG TAPI )@@G@@BLE OVERFLOW TBL80074 @I@@@@ PJ )@@G@@IF (N.GT.4) GO TO 70 TBL800PK )@@G@@75 @I@@@@C NO OVERFLOW SET FLAG PL )@@G@@ TBL80076 @I@@@@ MTBL(LCTN+N)=IVFG PM )@@G@@ TBL80077 @I@@@@ MTBL(LCTN+6)=N+1 PN )@@G@@ TBL80078 @I@@@@ PO )@@G@@GO TO 80 TBL800PP )@@G@@79 @I@@@@C OVERFLOW SET INDICATOR PQ )@@G@@ TBL80080 @I@@@@ 70 MTBL(LCTN+4)=ISTST PR )@@G@@ TBL80081 @I@@@@ 80 RETURN PS )@@G@@ TBL80082 @[@@@@C PT )@@G@@@[@@@@C @B@@@@ ENTRY TBL3 ( IVAR,LN,IEFG,IFFG ) @I@@@@C * PU )@@G@@ MAKE A STATEMENT NUMBER ENTRY TBL8008PV )@@G@@3 @I@@@@C LOCATE STATEMENT NUMBER PW )@@G@@ TBL80084 @[@@@@C @ @@@@C CHECK IF BLANK OR NUMERIC PX )@@G@@@^@@@@ DO 85 K=0,35,6 @^@@@@ N=FLD( 0,6,IVAR ) @C@@@@ PY )@@G@@IF ( N.EQ.'@@@@@ ' )GO TO 85 @ BLANK? @C@@@@ CALL CHKNUM ( N,$8PZ )@@G@@5,$110 ) @ NUMERIC?@#@@@@ 85 CONTINUE @B@@@@ 90 CALL LOCATE QA )@@G@@( $100,$110,IXNUM ) @I@@@@C STANDARD RETURN MEANS A NEW ENTRY -QB )@@G@@ INITIALIZE SECTN OF MTBL TBL80086 @I@@@@ MTBL(LCTN)=0 QC )@@G@@ TBL80087 @I@@@@ QD )@@G@@MTBL(LCTN+1)=JPOINT TBL800QE )@@G@@88 @I@@@@ MTBL(LCTN+2)=0 QF )@@G@@ TBL80089 @I@@@@ KPOINT=KPOINT+3 QG )@@G@@ TBL80090 @F@@@@ KFLAG=1 QH )@@G@@ @ STATEMENT NO. FOUND FLAG @I@@@@C MAKE ENTRY QI )@@G@@ TBL80091 @I@@@@ 100 QJ )@@G@@KENT=LN+IEFG TBL800QK )@@G@@92 @I@@@@ CALL ENTER (MTBL(LCTN+2),KENT) QL )@@G@@ TBL80093 @I@@@@C CHECK TO SEE IF STATEMENT NUMBER FLQM )@@G@@AG IS TO BE ENTERED TBL80094 @I@@@@ IF (IFFG.EQ.0) GO QN )@@G@@TO 110 TBL80095 @I@@@@ QO )@@G@@MTBL(LCTN)=LN TBL800QP )@@G@@96 @I@@@@ 110 RETURN QQ )@@G@@ TBL80097 @[@@@@C @[@@@@C @ @@@@ ENTRY TBL4 (QR )@@G@@ IVAR,LN ) @I@@@@C * MAKE ENTERY IN TRANSFER TABLE QS )@@G@@ TBL80098 @I@@@@C HAVE PREVIOUS ENTERIES BEEN MQT )@@G@@ADE TBL80099 @I@@@@C QU )@@G@@ TBL80100 @I@@@@QV )@@G@@ 120 IF ( IVAR.GT.NOFMT )RETURN QW )@@G@@TBL80101 @I@@@@ IF (LTBL(IVAR,1).NE.0) GO TO 130 QX )@@G@@ TBL80102 @I@@@@C IF NOT SET ADDRESS OF FIRST EQY )@@G@@NTERY TBL80103 @I@@@@ LTBL(IVAR,1)QZ )@@G@@=JPOINT TBL80104 @I@@@@RA )@@G@@C MAKE ENTERY RB )@@G@@TBL80105 @I@@@@ 130 CALL ENTER (LTBL(IVAR,2),LN) RC )@@G@@ TBL80106 @H@@@@ IF ( IVAR.GT.MAXABN )ABNFLG=1 RD )@@G@@ @ ABNORMAL FORTRAN FLAG TBL8 @D@@@@ IF ( IVAR.GT.MAXMARE )@@G@@C )MACFLG=1 @ MACRO FLAG @I@@@@ RETURN RF )@@G@@ TBL80108 @[@@@@C @[@@@@C RG )@@G@@@#@@@@ ENTRY TBL5 @I@@@@C * TABLE READOUT SECTION RH )@@G@@ TBL80109 @I@@@@C CHECK TO SEE IF TRI )@@G@@HE VARIABLE TABLE IS EMPTY TBL80110 @I@@@@ 140 RJ )@@G@@IF (JFLAG.EQ.0) GO TO 270 TBL801RK )@@G@@11 @I@@@@C IF JF3 IS SET AND THERE IS NO PUNCHED CARD OR MERGE ORL )@@G@@UTPUT TBL80112 @I@@@@C SKIP THE VARIABLE TABLE RM )@@G@@ TBL80113 @I@@@@ IF (JF3.GT.0.AND.JRN )@@G@@F9+JF10.EQ.0) GO TO 270 TBL80114 @I@@@@ RO )@@G@@IF (JF2+JF3+JF4+JF5.EQ.4) GO TO 150 TBL801RP )@@G@@15 @I@@@@ 150 IF ( JF3+JF6.EQ.0 )CALL HEAD1 RQ )@@G@@ TBL80116 @I@@@@C LOOP FOR EACH VARIABLE RR )@@G@@ TBL80117 @#@@@@ II=IXALP(1) @^@@@@RS )@@G@@ DO 260 IXA=2,27 @I@@@@C GET LOCATION OF FLAGS IN MTBL RT )@@G@@ TBL80119 @C@@@@C II=POINTER TO CURRENTRU )@@G@@ ENTRY IN ENTRY-POINT @]@@@@ 155 I=II @ @@@@ IF ( I.LE.0 )GO TORV )@@G@@ 255 @^@@@@ LF=H2( POINT(I) )@I@@@@C FIND LCTN OF FIRST LN ERW )@@G@@NTERY IN ITBL TBL80121 @I@@@@ NENT=MRX )@@G@@TBL(LF+7) TBL80122 RY )@@G@@@I@@@@C SET OVERFLOW FLAG OFF RZ )@@G@@ TBL80123 @I@@@@ KERFG=IBLK SA )@@G@@ TBL80124 @I@@@@C LOOP FOR EACH LINE NO ESB )@@G@@NTERY TBL80125 @I@@@@ DO 160SC )@@G@@ J=1,MAXREF TBL80126 SD )@@G@@@I@@@@C CHECK TO SEE IF LAST ENTERY HAS BEEN OBTAINED SE )@@G@@ TBL80127 @I@@@@ IF (NENT.EQ.0) GO TO 170 SF )@@G@@ TBL80128 @I@@@@C UNPAK LINE NO ENTERY TOSG )@@G@@ FIND LINE NO AND LCTN OF NEXT ENTERY TBL80129 @I@@@@ CALL USH )@@G@@PE8 (MTBL(NENT),NENT,IPT(J,2),IPT(J,1)) TBL80130 SI )@@G@@@A@@@@ CALL ITF ( IPT(J,1),LINE ) @C@@@@ FLD( 0,30,IPT(J,1)SJ )@@G@@ )=FLD( 6,30,LINE(2) ) @C@@@@ FLD( 30,6,IPT(J,1) )=FLD( 0,6,IPT(J,SK )@@G@@2) ) @I@@@@ 160 CONTINUE SL )@@G@@ TBL80131 @I@@@@C THERE IS AN OVERFLOW SET OVERFLOW FSM )@@G@@LAG ON TBL80132 @I@@@@ KERFG=IST6 SN )@@G@@ TBL80133 @I@@@@C SO )@@G@@ PRINT OUT RESULTS TBL801SP )@@G@@34 @I@@@@ 170 LF4=LF+4 SQ )@@G@@ TBL80135 @I@@@@ JM1=J-1 SR )@@G@@ TBL80136 @I@@@@ DO 190 IWEO=0,4 SS )@@G@@ TBL80137 @I@@@@ ST )@@G@@KBLNO=FLD(27,9,MTBL(LF+IWEO)) TBL801SU )@@G@@38 @I@@@@C CHECK STATEMENT TYPE CODE WORDS FOR THOSE DESIGNATING BLOCSV )@@G@@KS... TBL80139 @I@@@@C IF A WORD IS FILLED OUT WITH BLANKS, KBLSW )@@G@@NO.GT.100, AND IF A WORD IS A TBL80140 @I@@@@C WORD WITH NO DESIGNATISX )@@G@@ON, KBLNO.EQ.0 TBL80141 @I@@@@ SY )@@G@@IF (KBLNO) 180,210,180 TBL801SZ )@@G@@42 @I@@@@ 180 IF (KBLNO-100) 220,220,190 TA )@@G@@ TBL80143 @I@@@@ 190 CONTINUE TB )@@G@@ TBL80144 @I@@@@C NO BLOCK NAME INDICATETC )@@G@@D -- FILL WORD WITH BLANKS TBL80145 @I@@@@ 200 TD )@@G@@KBLNAM = IBLK TBL801TE )@@G@@46 @I@@@@ GO TO 230 TF )@@G@@ TBL80147 @I@@@@C BLANK COMMON - NAME IT '$BLANK' TG )@@G@@ TBL80148 @I@@@@ 210 IF (MTBL(LF+5).EQ.TH )@@G@@'LBCM ') GO TO 200 @ NAME OF LABEL COMMON MTBL80149 @I@@@@ TI )@@G@@KBLNAM='$BLANK' @ MTBL801TJ )@@G@@50 @I@@@@ GO TO 230 @ TK )@@G@@ MTBL80151 @I@@@@C COMMON BLOCK NAME DESIGNATED -- FILL WORTL )@@G@@D WITH NAME OUT OF TABLE TBL80152 @I@@@@ 220 KBLNAM = KOMTAB(KBTM )@@G@@LNO) TBL80153 @I@@@@ 230 TN )@@G@@CONTINUE TBL801TO )@@G@@54 @I@@@@C IF THE FLAG IS NOT SET PRINT OUT THE VARIABLE TABLE TP )@@G@@ TBL80155 @I@@@@C NOTE THAT ERROR FLAG FIELD NO LONGER EXITQ )@@G@@STS -- WAS USED FOR OUTPUT TBL80156 @I@@@@C OF BLOCK NAMES TR )@@G@@ TBL80157 @I@@@@ TS )@@G@@IF (JF3.NE.0) GO TO 250 TBL801TT )@@G@@58 @I@@@@ CALL OPAF ( -1, ENTRY(I),6 ) TU )@@G@@ TBL80159 @I@@@@ CALL OPAF ( 8,MTBL(LF+5),4 ) TV )@@G@@ TBL80160 @I@@@@ CALL OPAF ( 12,MTBTW )@@G@@L(LF),2,5,1 ) TBL80161 @I@@@@ TX )@@G@@CALL OPAF ( 29,KBLNAM,6 ) TBL801TY )@@G@@62 @^@@@@ DO 240 K=1,JM1,14 @^@@@@ NR=JM1 - K + 1 @ @@@@TZ )@@G@@ IF ( NR.GT.14 )NR=14 @B@@@@ CALL OPAFP ( 1,37,IPT(K,1),6,NUA )@@G@@R,0 ) @ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 240 CONTINUE @I@@@@UB )@@G@@ 250 CONTINUE UC )@@G@@TBL80171 @I@@@@C IF JF10 IS SET PUT THE VARIABLE TABLE ON DRUM UD )@@G@@ TBL80172 @I@@@@ IF (JF10 .GT. 0) CALL DRUM UE )@@G@@ TBL80173 @I@@@@C IF JF9 IS SUF )@@G@@ET PUNCH THE VARIABLE TABLE ONTO CARDS TBL80174 @I@@@@UG )@@G@@ IF (JF9 .GT. 0) CALL PNCH UH )@@G@@TBL80175 @^@@@@ II=H1( POINT(I) )@ @@@@ IF ( II.GT.0 )GO TUI )@@G@@O 155 @^@@@@ 255 II=IXALP(IXA) @I@@@@ 260 CONTINUE UJ )@@G@@ TBL80176 @I@@@@C IF JFUK )@@G@@10 IS NOT SET SKIP THE DRUM WRITE FINALIZATION TBL80177 UL )@@G@@@I@@@@ IF (JF10.EQ.0) GO TO 270 UM )@@G@@ TBL80178 @I@@@@ IF (MBUF.EQ.0) GO TO 270 UN )@@G@@ TBL80179 @I@@@@ CALL DRMWT8(IRDM,MBUF,KAUO )@@G@@DD) TBL80180 @I@@@@C CHECKUP )@@G@@ TO SEE IF THE STATEMENT NO TABLE IS EMPTY TBL80181 UQ )@@G@@@I@@@@ 270 IF (KFLAG.EQ.0) GO TO 320 UR )@@G@@ TBL80182 @I@@@@C IF FLAG JF4 IS SET DONT PRINT THIS PORTIOUS )@@G@@N OF THE TABLE TBL80183 @I@@@@ IF (JF4.GT.0) GO TO 320 UT )@@G@@ TBL80184 @I@@@@ IF ( JUU )@@G@@F6.EQ.0 )CALL HEAD2 TBL80185 UV )@@G@@@I@@@@C LOOP FOR EACH STATEMENT NUMBER UW )@@G@@ TBL80186 @#@@@@ II=IXNUM(1) @^@@@@ DO 310 IXA=2,51 UX )@@G@@@I@@@@C GET LOCATION OF FLAGS IN MTBL UY )@@G@@ TBL80188 @C@@@@C II=POINTER TO CURRENT ENTRY IN ENTRY-POINT UZ )@@G@@@]@@@@ 275 I=II @ @@@@ IF ( I.LE.0 )GO TO 305 @^@@@@ LF=H2(VA )@@G@@ POINT(I) )@I@@@@C FIND LCTN OF FIRST LN ENTERY IN ITBL VB )@@G@@ TBL80190 @I@@@@ NENT=MTBL(LF+1) VC )@@G@@ TBL80191 @I@@@@C SET OVERFLOVD )@@G@@W FLAG OFF TBL80192 @I@@@@VE )@@G@@ KERFG=IBLK VF )@@G@@TBL80193 @I@@@@C LOOP FOR EACH LINE NO ENTERY VG )@@G@@ TBL80194 @I@@@@ DO 280 J=1,MAXREF VH )@@G@@ TBL80195 @I@@@@C CHECK TO SEVI )@@G@@E IF LAST ENTERY HAS BEEN OBTAINED TBL80196 @I@@@@VJ )@@G@@ IF (NENT.EQ.0) GO TO 290 VK )@@G@@TBL80197 @I@@@@C UNPAK LINE NO ENTERY TO FIND LINE NO AND LCTN OVL )@@G@@F NEXT ENTERY TBL80198 @I@@@@ CALL UPE8 (MTBL(NENT),NENT,IPTVM )@@G@@(J,2),IPT(J,1)) TBL80199 @G@@@@ CALL ITF ( IVN )@@G@@PT(J,1),LINE ) @ LINE(1),(2)=STATEMENT NO. IN FD @C@@@@ FLD( 0VO )@@G@@,30,IPT(J,1) )=FLD( 6,30,LINE(2) ) @C@@@@ FLD( 30,6,IPT(J,1) )=FLDVP )@@G@@( 0,6,IPT(J,2) ) @I@@@@ 280 CONTINUE VQ )@@G@@ TBL80200 @I@@@@C THERE IS AN OVERFLOW SEVR )@@G@@T OVERFLOW FLAG ON TBL80201 @I@@@@ KERFG=VS )@@G@@IST6 TBL80202 VT )@@G@@@I@@@@C PRINT OUT RESULTS VU )@@G@@ TBL80203 @I@@@@ 290 JM1=J-1 VV )@@G@@ TBL80204 @I@@@@ CALL OPAF ( -1, ENTRY(I)VW )@@G@@,6 ) TBL80205 @I@@@@ CALL OVX )@@G@@PI ( 7,MTBL(LF),6 ) TBL80206 VY )@@G@@@I@@@@ CALL OPAF ( 13,KERFG,6 ) VZ )@@G@@ TBL80207 @^@@@@ DO 300 K=1,JM1,16 @^@@@@ NR=JM1 - K +WA )@@G@@ 1 @ @@@@ IF ( NR.GT.16 )NR=16 @B@@@@ CALL OPAFP ( 1,24,WB )@@G@@IPT(K,1),6,NR,0) @ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 300 CONTINWC )@@G@@UE @^@@@@ II=H1( POINT(I) )@ @@@@ IF ( II.GT.0 )GO TO 275 WD )@@G@@@^@@@@ 305 II=IXNUM(IXA) @I@@@@ 310 CONTINUE WE )@@G@@ TBL80216 @I@@@@C IF FLAG JF5WF )@@G@@ IS SET DONT PRINT THIS PORTION OF THE TABLE TBL80217 @I@@@@WG )@@G@@ 320 IF (JF5.GT.0) GO TO 380 WH )@@G@@TBL80218 @E@@@@ IF ( JF6.EQ.0 )CALL HEAD3 ( ABNFLG,MACFLG ) WI )@@G@@ @I@@@@C LOOP-FOR EACH TRANSFER TABLE ENTTERY WJ )@@G@@ TBL80220 @I@@@@ DO 370 I=1,NOFMT WK )@@G@@ TBL80221 @H@@@@ IF (I.GT.MAXABN.ANWL )@@G@@D.ABNFLG.EQ.0) GO TO 380 TBL8 @D@@@@ IF ( IWM )@@G@@.GT.MAXMAC.AND.MACFLG.EQ.0 )GO TO 380 @I@@@@C FIND LCTN OF FIRSWN )@@G@@T LN ENTERY IN ITBL TBL80223 @I@@@@ WO )@@G@@NENT=LTBL(I,1) TBL802WP )@@G@@24 @I@@@@C SET OVERFLOW FLAG OFF WQ )@@G@@ TBL80225 @I@@@@ KERFG=IBLK WR )@@G@@ TBL80226 @I@@@@C LOOP FOR EACH LINWS )@@G@@E NO ENTERY TBL80227 @I@@@@ WT )@@G@@DO 330 J=1,MAXREF TBL802WU )@@G@@28 @I@@@@C CHECK TO SEE IF LAST ENTERY HAS BEEN OBTAINED WV )@@G@@ TBL80229 @I@@@@ IF (NENT.EQ.0) GO TO 340 WW )@@G@@ TBL80230 @I@@@@C UNPAK LINE NO ENTWX )@@G@@ERY TO FIND LINE NO AND LCTN OF NEXT ENTERY TBL80231 @I@@@@ WY )@@G@@CALL UPE8 (MTBL(NENT),NENT,DUM,IPT(J,1)) TBL802WZ )@@G@@32 @I@@@@ 330 CONTINUE XA )@@G@@ TBL80233 @I@@@@C THERE IS AN OVERFLOW SET OVERFLOW FXB )@@G@@LAG ON TBL80234 @I@@@@ KERFG=IST6 XC )@@G@@ TBL80235 @I@@@@C XD )@@G@@ CHECK TO SEE IF THERE ARE NO NUMBERS TO PRINT OUT TBL802XE )@@G@@36 @I@@@@ 340 IF (J.EQ.1) GO TO 370 XF )@@G@@ TBL80237 @I@@@@C PRINT OUT RESULTS XG )@@G@@ TBL80238 @I@@@@ JM1=J-1 XH )@@G@@ TBL80239 @I@@@@ XI )@@G@@CALL OPAF ( -1,KERFG,6 ) TBL802XJ )@@G@@40 @I@@@@ CALL OPAF ( 8,FMT(1,I),8 ) XK )@@G@@ TBL80241 @I@@@@ DO 360 K=1,JM1,21 XL )@@G@@ TBL80242 @^@@@@ NR=JM1 - K + 1 XM )@@G@@@ @@@@ IF ( NR.GT.21 )NR=21 @B@@@@ CALL OPIP ( 1,20,IPT(K,1XN )@@G@@),4,NR,1 ) @I@@@@ CALL OPA ( -1,'& ' ) XO )@@G@@ TBL80250 @I@@@@ 360 CONTINUE XP )@@G@@ TBL80251 @I@@@@ 370 CONTINUE XQ )@@G@@ TBL80252 @I@@@@XR )@@G@@ 380 RETURN XS )@@G@@TBL80253 @I@@@@C*****************************************************XT )@@G@@******************TBL80259 @I@@@@ SUBROUTINE DRUM XU )@@G@@ TBL80260 @I@@@@C * THIS ROUTINXV )@@G@@E PUTS THE VARRIABLE TABLE ON DRUM TO BE SORTED LATER TBL80261 @I@@@@XW )@@G@@C PUT THE FIRST LINE IN THE BUFFER XX )@@G@@TBL80262 @I@@@@ IRDM(MBUF+1)= ENTRY(I) XY )@@G@@ TBL80263 @I@@@@ DO 10 K=1,6 XZ )@@G@@ TBL80264 @I@@@@ 10 IRDM(MBUF+K+YA )@@G@@1)=MTBL(LF+K-1) TBL80265 @I@@@@YB )@@G@@ IRDM(MBUF+8) = KBLNAM YC )@@G@@TBL80266 @I@@@@ IRDM(MBUF+9)=JM1 YD )@@G@@ TBL80267 @I@@@@ MBUF=MBUF+28 YE )@@G@@ TBL80268 @I@@@@ MLINE=0 YF )@@G@@ TBL80269 @I@@@@YG )@@G@@ GO TO 40 YH )@@G@@TBL80270 @I@@@@C PUT THE REMAINING LINES IN THE BUFFER YI )@@G@@ TBL80271 @^@@@@ 20 NB=1792 - MBUF @^@@@@ YJ )@@G@@NR=JM1 - MLINE @ @@@@ IF ( NR.GT.NB )NR=NB @E@@@@ CALL MYK )@@G@@OVER ( IPT(MLINE+1,1),1,IRDM(MBUF+1),1,NR ) @^@@@@ NS=28*(NR/28YL )@@G@@) @B@@@@ IF ( MOD(NR,28).NE.0 )NS=NS + 28 @^@@@@ MBUF=MYM )@@G@@BUF + NS @^@@@@ MLINE=MLINE + NS @I@@@@C IF THE TEST FAILSYN )@@G@@ THE BUFFER IS FULL - PUT IT ON DRUM TBL80277 @I@@@@ 40 YO )@@G@@IF (MBUF.LT.1782) GO TO 50 TBL802YP )@@G@@78 @I@@@@ CALL DRMWT8(IRDM,1792,KADD) YQ )@@G@@ TBL80279 @I@@@@ MBUF=0 YR )@@G@@ TBL80280 @I@@@@ 50 IF (MLINE.LT.JM1) YS )@@G@@GO TO 20 TBL80281 @I@@@@ YT )@@G@@RETURN TBL802YU )@@G@@82 @I@@@@C***********************************************************YV )@@G@@************TBL80283 @I@@@@ SUBROUTINE ENTER (LSTET,JENT) YW )@@G@@ TBL80284 @I@@@@C * THIS SBRTN MAKES YX )@@G@@AN ENTRY IN MTBL TBL80285 @I@@@@C YY )@@G@@ LSTET-LAST ENTERY JENT-VALUE OF PRESENT ENTERY TBL802YZ )@@G@@86 @I@@@@C MAKE THE ENTERY ZA )@@G@@ TBL80287 @I@@@@ MTBL(JPOINT)=JENT ZB )@@G@@ TBL80288 @I@@@@C STORE LCTN OF THIZC )@@G@@S ENTERY IN LAST ENTERY TBL80289 @I@@@@ ZD )@@G@@CALL UPD8 (JPOINT,MTBL(LSTET)) TBL802ZE )@@G@@90 @I@@@@C SET LSTET EQUAL TO LCTN OF THIS ENTERY ZF )@@G@@ TBL80291 @I@@@@ LSTET=JPOINT ZG )@@G@@ TBL80292 @I@@@@ JPOINT=JPOINT-1 ZH )@@G@@ TBL80293 @I@@@@C ZI )@@G@@ CHECK TO SEE IF MTBL IS FULL TBL802ZJ )@@G@@94 @I@@@@ IF (KPOINT+12 .GT. JPOINT) CALL OVFL8 (10) ZK )@@G@@ TBL80295 @I@@@@ RETURN ZL )@@G@@ TBL80296 @I@@@@C***********************ZM )@@G@@************************************************TBL80297 @B@@@@ ZN )@@G@@SUBROUTINE LOCATE ( $,$,IXARY ) @[@@@@C @E@@@@C THIS ROUTINE LOZO )@@G@@CATES (OR ENTER) AN ENTRY IN ENTRY/POINT @[@@@@C @^@@@@C RETURN ZP )@@G@@- NEW ENTRY @ @@@@C RETURN 1 - ENTRY LOCATED @C@@@@C RETURN 2 - BAD ZQ )@@G@@ENTRY TO BE LOCATED/ENTERED @D@@@@C (HIGH ORDER CHARACTER ZR )@@G@@NOT ALPHANUMERIC @[@@@@C @C@@@@C ENTRY=VARIABLE NAME OR STATEMENT ZS )@@G@@NO. TABLE @F@@@@C POINT=H1-POINTER TO NEXT ENTRY H2=POINTER INTO MTZT )@@G@@BL TABLE @^@@@@C LCTN =POINTER TO MTBL@ @@@@C JLAST=POINTER TO LASTZU )@@G@@ ENTRY@C@@@@C IXARY=POINTER TO FIRST ENTRYIN ENTRY/POINT @[@@@@C ZV )@@G@@@[@@@@C @^@@@@C THREADED LIST SORT @[@@@@C @D@@@@C IXARY=IXAZW )@@G@@LP (VARIABLES) OR IXNUM (STATEMENT NOS.) @C@@@@C POINTER TO FIRSZX )@@G@@T ENTRY IN ENTRY/POINT @D@@@@C (HIGH ORDER CHARACTER 1-26 FOR INZY )@@G@@DEX-IXALP) @B@@@@C (HIGH ORDER DIGIT AS INDEX-IXNUM)@F@@@@C ZZ )@@G@@ (1-10 IF X 11-20 IF XX 21-30 IF XXX 31-40 IF XXXX ETC)@D@@@@C H1(AA )@@G@@POINT(X))=POINTER TO NEXT ENTRY =0 LAST ENTRY @B@@@@C H2(POINT(X))=POAB )@@G@@INTER TO MTBL TABLE @[@@@@C @^@@@@ DIMENSION IXARY(2)@^@@@@AC )@@G@@ LOGICAL STNFG @^@@@@ DO 11 I=0,35,6 @G@@@@ IX=FLDAD )@@G@@( I,6,IVAR ) @ GET HIGH ORGER NON-BLANK CHAR @A@@@@ AE )@@G@@IF ( IX.EQ.'@@@@@ ' )GO TO 11 @A@@@@ CALL CHKLET ( IX,$33,$1 ) AF )@@G@@@A@@@@ 1 CALL CHKNUM ( IX,$44,$22 ) @#@@@@ 11 CONTINUE @#@@@@AG )@@G@@ 22 RETURN 2 @ @@@@ 33 IX=IX - '@@@@@A' + 1 @^@@@@ STNFG=AH )@@G@@.FALSE. @#@@@@ GO TO 55 @ @@@@ 44 IX=IX - '@@@@@0' + 1 AI )@@G@@@ @@@@ IX=IX + 10*( (30-I)/6 ) @#@@@@ STNFG=.TRUE.@^@@@@ 55 AJ )@@G@@IX1=IXARY(IX) @]@@@@ IX2=0 @ @@@@ IF ( IX1 ) 133,133,66 AK )@@G@@@B@@@@ 66 IF ( IVAR - ENTRY(IX1) ) 133,77,88 @A@@@@ 77 LCTN=FLD( 18AL )@@G@@,18, POINT(IX1) ) @D@@@@ IF ( STNFG )GO TO 199 @ CHECK VARIABLES OAM )@@G@@NLY @B@@@@ IF ( MTBL(LCTN+5).EQ.IFFG )GO TO 199@B@@@@ IF ( IAN )@@G@@FFG.EQ.'LBCM ' )GO TO 88 @C@@@@ IF ( MTBL(LCTN+5).NE.'LBCM ' AO )@@G@@)GO TO 199 @^@@@@ 88 DO 122 II=1,MAXVAR@A@@@@ IX2=FLD( 0,18, POAP )@@G@@INT(IX1) ) @ @@@@ IF ( IX2 ) 144,144,99 @C@@@@ 99 IF ( IVAR - AQ )@@G@@ ENTRY(IX2) ) 144,100,111 @ @@@@ 100 LCTN=H2( POINT(IX2) ) @D@@@@AR )@@G@@ IF ( STNFG )GO TO 199 @ CHECK VARIABLES ONLY @B@@@@ IF ( MAS )@@G@@TBL(LCTN+5).EQ.IFFG) GO TO 199@B@@@@ IF ( IFFG.EQ.'LBCM ' )GO TO 1AT )@@G@@11 @C@@@@ IF ( MTBL(LCTN+5).NE.'LBCM ' )GO TO 199 @#@@@@ 111 AU )@@G@@IX1=IX2 @#@@@@ 122 CONTINUE @^@@@@ CALL OVFL8 ( 20 ) @#@@@@AV )@@G@@C FIRST ENTRY @^@@@@ 133 JLAST=JLAST + 1 @^@@@@ IXARY(IX)=JLAW )@@G@@AST @A@@@@ FLD( 0,18, POINT(JLAST) )=IX1@#@@@@ GO TO 155 AX )@@G@@@^@@@@C AFTER FIRST ENTRY @^@@@@ 144 JLAST=JLAST + 1 @E@@@@ AY )@@G@@FLD( 0,18, POINT(JLAST) )=FLD( 0,18, POINT(IX1) ) @A@@@@ FLD( 0AZ )@@G@@,18, POINT(IX1) )=JLAST@^@@@@ 155 ENTRY(JLAST)=IVAR @B@@@@ FLD( 1BA )@@G@@8,18, POINT(JLAST) )=KPOINT @#@@@@ 166 LCTN=KPOINT @]@@@@ RETURNBB )@@G@@@#@@@@ 199 RETURN 1 @I@@@@C*****************************************BC )@@G@@******************************TBL80332 @I@@@@ SUBROUTINE OVFL8 (BD )@@G@@IARG) TBL80333 @I@@@@C * BE )@@G@@ THIS ROUTINE TAKES CARE OF A TABLE OVERFLOW CONDITION TBL803BF )@@G@@34 @I@@@@ CALL OPA ( -1,MSG ) BG )@@G@@ TBL80335 @I@@@@ CALL OPA ( 20,'TABLE OVERFLOW NO.=&'BH )@@G@@ ) TBL80336 @I@@@@ CALL OPI ( 40,IARGBI )@@G@@,5 ) TBL80337 @I@@@@ BJ )@@G@@CALL OPAP ( 3,48,'DATA PROGRAM IS TO LARGE.&' ) TBL803BK )@@G@@38 @I@@@@ CALL OFEXT8 BL )@@G@@ TBL80339 @I@@@@ RETURN BM )@@G@@ TBL80340 @I@@@@C***********************BN )@@G@@************************************************TBL80341 @I@@@@ BO )@@G@@SUBROUTINE PNCH TBL803BP )@@G@@42 @I@@@@C * THIS ROUTINE PUNCHES THE VARIABLE TABLE ONTO CARDS BQ )@@G@@ TBL80343 @I@@@@ IF (JF9.LE.1) GO TO 10 BR )@@G@@ TBL80344 @I@@@@ CALL OPAF ( -1, ENBS )@@G@@TRY(I),6 ) TBL80345 @I@@@@ BT )@@G@@CALL OPAF ( 8,INAME,12) TBL803BU )@@G@@46 @I@@@@ CALL OPAF ( 21,KVERSN,12) BV )@@G@@ TBL80347 @I@@@@ CALL OPA ( 35,'F & ' ) BW )@@G@@ TBL80348 @I@@@@ CALL OPAF ( 37,MTBBX )@@G@@L(LF+5),4 ) TBL80349 @I@@@@ BY )@@G@@CALL OPAF ( 42,MTBL(LF),2,5,1 ) TBL803BZ )@@G@@50 @I@@@@ CALL OPAF ( 58,KERFG,6 ) CA )@@G@@ TBL80351 @I@@@@ CALL OPUNCH CB )@@G@@ TBL80352 @I@@@@ 10 DO 30 KX=1,JM1,10 CC )@@G@@ TBL80353 @I@@@@ CD )@@G@@CALL OPAF ( -1,ENTRY(I),6 ) TBL803CE )@@G@@54 @I@@@@ CALL OPAF ( 7,INAME,6 ) CF )@@G@@ TBL80355 @^@@@@ NR=JM1 - KX + 1 @ @@@@ IF ( NCG )@@G@@R.GT.10 )NR=10 @B@@@@ CALL OPAF ( 13,IPT(KX,1),6,NR,0 ) @I@@@@CH )@@G@@ CALL OPUNCH CI )@@G@@TBL80364 @I@@@@ 30 CONTINUE CJ )@@G@@ TBL80365 @I@@@@ RETURN CK )@@G@@ TBL80366 @I@@@@C*****************CL )@@G@@***************************************************** TBL80367 @I@@@@CM )@@G@@ END CN )@@G@@TBL80368 ___ (HIGH ORDER CHARACTER *[S@@@*SDFF*@I@@@@ CO )@@G@@SUBROUTINE CHKCC ( ICCD,ICCR,NWCH,QUAL,FILE,ELT,VER,IXOP,NCH, MGC 01CP )@@G@@C @I@@@@ * $,$ ) CQ )@@G@@ MGC 01C @I@@@@C CR )@@G@@ CKCC0002 @I@@@@C CHECK/UNPACK CONTROL CCS )@@G@@ARDS CKCC0003 @I@@@@C CT )@@G@@ CKCC00CU )@@G@@04 @I@@@@C CV )@@G@@ CKCC0005 @I@@@@C CC FORMAT: QUAL*FILE.ELT/VER,OPS CW )@@G@@ CKCC0006 @I@@@@C CX )@@G@@ CKCC0007 @I@@@@C CY )@@G@@ CKCC00CZ )@@G@@08 @I@@@@C FOLLOWING ARE INPUT: DA )@@G@@ CKCC0009 @I@@@@C DB )@@G@@ CKCC0010 @I@@@@C ICCD=CONTROL CARD IMADC )@@G@@GE CKCC0011 @I@@@@C ICCDD )@@G@@R=CONTROL CARD IMAGE - UNPACKED AND BLANKS REMOVED CKCC00DE )@@G@@12 @I@@@@C NWCH=NO. CHAR. IN CONTROL CARD DF )@@G@@ CKCC0013 @I@@@@C DG )@@G@@ CKCC0014 @I@@@@C FOLLOWING ARE RETURNEDDH )@@G@@: CKCC0015 @I@@@@C DI )@@G@@ CKCC00DJ )@@G@@16 @I@@@@C QUAL=NAME OF QUALIFIER DK )@@G@@ CKCC0017 @I@@@@C FILE=NAME OF FILE DL )@@G@@ CKCC0018 @I@@@@C ELT=NAME OF ELEMENT DM )@@G@@ CKCC0019 @I@@@@C VEDN )@@G@@R=NAME OF ELEMENT VERSION CKCC00DO )@@G@@20 @I@@@@C IXOP=INDEX INTO ICCR TO START OF OPTIONS DP )@@G@@ CKCC0021 @I@@@@C NCH=S1 NO. OF CHAR. IN QUAL DQ )@@G@@ CKCC0022 @I@@@@C S2 NO. CHAR. INDR )@@G@@ FILE CKCC0023 @I@@@@C DS )@@G@@ S3 NO. CHAR. IN ELT CKCC00DT )@@G@@24 @I@@@@C S4 NO. CHAR. IN VER DU )@@G@@ CKCC0025 @I@@@@C S6 =0 NO QUAL (*) =1 QUAL (* FODV )@@G@@UND) CKCC0026 @I@@@@C DW )@@G@@ CKCC0027 @I@@@@ DX )@@G@@IMPLICIT INTEGER (A-Z) CKCC00DY )@@G@@28 @I@@@@ DIMENSION ICCD(11),ICCR(66),QUAL(2),FILE(2),ELT(2),VERDZ )@@G@@(2),BLK(12) CKCC0029 @I@@@@ COMMON /MSG/MSG(3) EA )@@G@@ CKCC0030 @I@@@@C EB )@@G@@ CKCC0031 @I@@@@ EC )@@G@@QUAL(1)=' ' CKCC00ED )@@G@@32 @I@@@@ QUAL(2)=' ' EE )@@G@@ CKCC0033 @I@@@@ FILE(1)='TPF$ ' EF )@@G@@ CKCC0034 @I@@@@ FILE(2)=' ' EG )@@G@@ CKCC0035 @I@@@@ EH )@@G@@ELT(1)=' ' CKCC00EI )@@G@@36 @I@@@@ ELT(2)=' ' EJ )@@G@@ CKCC0037 @I@@@@ VER(1)=' ' EK )@@G@@ CKCC0038 @I@@@@ VER(2)=' ' EL )@@G@@ CKCC0039 @I@@@@ EM )@@G@@NCH=0 CKCC00EN )@@G@@40 @I@@@@ FLD( 6,6,NCH )=4 @ 4 CHAR IN FILE-ASSUMEO )@@G@@ED CKCC0041 @I@@@@ IXOP=NWCH+1 EP )@@G@@ CKCC0042 @I@@@@ IF (NWCH.GT.0) GO EQ )@@G@@TO 20 CKCC0043 @I@@@@C ER )@@G@@ CKCC00ES )@@G@@44 @I@@@@C CONTROL CARD ERROR ET )@@G@@ CKCC0045 @I@@@@C EU )@@G@@ CKCC0046 @I@@@@ 10 CALL OPA ( -1,MSG EV )@@G@@) CKCC0047 @I@@@@ EW )@@G@@CALL OPA ( 20,'CONTROL CARD ERROR. IMAGE=&' ) CKCC00EX )@@G@@48 @I@@@@ IF ( NWCH.GT.0 )CALL OPAF ( 47,ICCD,66 ) EY )@@G@@ CKCC0049 @I@@@@ CALL OPRINT ( 2 ) EZ )@@G@@ CKCC0050 @I@@@@ CALL OPAP ( 2,-1,'FA )@@G@@ & ' ) CKCC0051 @I@@@@ FB )@@G@@CALL ERROR8 CKCC00FC )@@G@@52 @I@@@@ 20 FLAG1=0 @ '*' FD )@@G@@ CKCC0053 @I@@@@ FLAG2=0 @ '.FE )@@G@@' CKCC0054 @I@@@@ FLAG3=0 FF )@@G@@ @ '/' CKCC0055 @I@@@@ FG )@@G@@FLAG4=0 @ ',' CKCC00FH )@@G@@56 @I@@@@ DO 110 K=1,NWCH FI )@@G@@ CKCC0057 @I@@@@ IF (K.GT.1) GO TO 40 FJ )@@G@@ CKCC0058 @I@@@@ 30 CALL MOVER ( ' FK )@@G@@ ',0,BLK,1,12 ) CKCC0059 @I@@@@ FL )@@G@@I=0 CKCC00FM )@@G@@60 @D@@@@ IF ( K.LE.1.AND. ICCR(K).EQ.'@@@@@.' )GO TO 110 @I@@@@FN )@@G@@ IF (K.GT.1) GO TO 110 FO )@@G@@CKCC0061 @I@@@@ 40 IF (ICCR(K).NE.'@@@@@*') GO TO 50 FP )@@G@@ CKCC0062 @I@@@@ IF (FLAG1.GT.0) GO TO 10 FQ )@@G@@ @ ERROR - 2 '*' CHAR. CKCC0063 @I@@@@ FLAG1=1 FR )@@G@@ CKCC0064 @I@@@@FS )@@G@@ FLD( 30,6,NCH )=1 @ FLAG '*' FOUND FT )@@G@@CKCC0065 @I@@@@ IF (I.LE.0) GO TO 110 @ *FILE.ELT/VER,FU )@@G@@OP CKCC0066 @I@@@@ CALL PACK12 ( BLK,QUAL ) FV )@@G@@ @ PACK QUAL NAME CKCC0067 @I@@@@ FLD( 0,6,NCHFW )@@G@@ )=I @ NO. CHAR. IN QUAL CKCC0068 @I@@@@FX )@@G@@ GO TO 30 FY )@@G@@CKCC0069 @I@@@@ 50 IF (ICCR(K).NE.'@@@@@.') GO TO 60 FZ )@@G@@ CKCC0070 @I@@@@ IF (FLAG2.GT.0) GO TO 10 GA )@@G@@ @ ERROR - 2 '.' CHAR. CKCC0071 @I@@@@ FLAG2=1 GB )@@G@@ CKCC0072 @I@@@@GC )@@G@@ IF (I.LE.0.AND.FLAG1.GT.0) GO TO 10 @ ERROR- QUAL BUT NO FILE NAGD )@@G@@CKCC0073 @I@@@@ IF (I.LE.0) GO TO 30 @ NO QUAL OR FILGE )@@G@@E ASSUME TPF$ CKCC0074 @I@@@@ CALL PACK12 ( BLK,FILE ) GF )@@G@@ @ PACK FILE NAME CKCC0075 @I@@@@ FLD( 6,6,NCHGG )@@G@@ )=I @ NO. CHAR. IN FILE MGC 01C @I@@@@GH )@@G@@ GO TO 30 GI )@@G@@CKCC0077 @I@@@@ 60 IF (ICCR(K).NE.'@@@@@/') GO TO 80 GJ )@@G@@ CKCC0078 @I@@@@ IF (FLAG3.GT.0) GO TO 10 GK )@@G@@ @ ERROR - 2 '/' CHAR CKCC0079 @I@@@@ FLAG3=1 GL )@@G@@ CKCC0080 @I@@@@GM )@@G@@ 70 IF (I.LE.0) GO TO 10 GN )@@G@@CKCC0081 @I@@@@ CALL PACK12 ( BLK,ELT ) @ PACK ELEMENT NGO )@@G@@AME CKCC0082 @I@@@@ FLD( 12,6,NCH )=I GP )@@G@@ @ NO. CHAR. IN ELT CKCC0083 @I@@@@ IF (FLAG4.GTGQ )@@G@@.0) GO TO 90 CKCC0084 @I@@@@GR )@@G@@ GO TO 30 GS )@@G@@CKCC0085 @I@@@@ 80 IF (ICCR(K).NE.'@@@@@,') GO TO 100 GT )@@G@@ CKCC0086 @I@@@@ IF (FLAG4.GT.0) GO TO 10 GU )@@G@@ @ ERROR - 2 ',' CHAR CKCC0087 @I@@@@ FLAG4=1 GV )@@G@@ CKCC0088 @I@@@@GW )@@G@@ IF (FLAG3.LE.0) GO TO 70 @ ELT,OP GX )@@G@@CKCC0089 @I@@@@ IF (I.LE.0) GO TO 10 @ ERROR '/' BUT GY )@@G@@NO VER CKCC0090 @I@@@@ CALL PACK12 ( BLK,VER ) GZ )@@G@@ @ PACK ELEEMENT VERSION NAME CKCC0091 @I@@@@ FLD( 18,6,NCHA )@@G@@H )=I @ NO. CHAR. IN VER CKCC0092 @I@@@@HB )@@G@@ 90 IXOP=K + 1 @ INDEX TO OPTIONS HC )@@G@@CKCC0093 @I@@@@ GO TO 30 HD )@@G@@ CKCC0094 @I@@@@ 100 I=I + 1 HE )@@G@@ CKCC0095 @I@@@@ IF (I.GT.12)HF )@@G@@ GO TO 10 @ ERROR - WORD TOO LONG CKCC0096 @I@@@@HG )@@G@@ BLK(I)=ICCR(K) HH )@@G@@CKCC0097 @I@@@@ 110 CONTINUE HI )@@G@@ CKCC0098 @I@@@@ IF (FLAG4.GT.0) GO TO 130 HJ )@@G@@ CKCC0099 @I@@@@ IF (I.LE.0) HK )@@G@@GO TO 10 CKCC0100 @I@@@@HL )@@G@@C HM )@@G@@MGC 01C @I@@@@C CHECK FOR *END OR *MERGE CONTROL CARDS HN )@@G@@ MGC 01C @I@@@@ IF ( FLAG1.EQ.0 )GO TO 115 HO )@@G@@ MGC 01C @I@@@@ IF ( FLD(0,6HP )@@G@@,NCH).NE.0 )GO TO 115 @ NO. CHAR. IN QUAL MGC 01C @I@@@@HQ )@@G@@ CALL PACK12 ( BLK,QUAL ) HR )@@G@@MGC 01C @I@@@@ IF ( I.EQ.3.AND.QUAL(1).EQ.'END' )GO TO 140 @ *HS )@@G@@END? MGC 01C @I@@@@ IF ( I.EQ.5.AND.QUAL(1).EQ.'MEHT )@@G@@RGE' )GO TO 150 @ *MERGE? MGC 01C @I@@@@ QUAL(1)=' ' HU )@@G@@ @ MGC 01C @I@@@@HV )@@G@@ QUAL(2)=' ' @ HW )@@G@@MGC 01C @I@@@@ 115 IF (FLAG3.EQ.0) GO TO 120 HX )@@G@@ MGC 01C @I@@@@ CALL PACK12 ( BLK,VER ) HY )@@G@@ @ ELT/VER CKCC0102 @I@@@@ FLD( 18,6,NCHZ )@@G@@H )=I @ NO. CHAR. IN VER CKCC0103 @I@@@@IA )@@G@@ GO TO 130 IB )@@G@@CKCC0104 @I@@@@ 120 CALL PACK12 ( BLK,ELT ) @ ELT ( NO OPTIOIC )@@G@@NS) CKCC0105 @I@@@@ FLD( 12,6,NCH )=I ID )@@G@@ @ NO. CHAR. IN ELT CKCC0106 @I@@@@ 130 RETURN IE )@@G@@ CKCC0107 @I@@@@IF )@@G@@ 140 RETURN 10 @ *END RETURN IG )@@G@@MGC 01C @I@@@@ 150 RETURN 11 @ *MERGE RETURN IH )@@G@@ MGC 01C @I@@@@ END II )@@G@@ CKCC0108 ___ @D@@@@ IF ( KIJ )@@G@@.LE.1.AND. ICCR(K).EQ.'@======@@^@@ @@@@@@@@@@@@@@ @HC@@@@ ^@@#@@G@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D[3DSFLMSC37@@@@]@@@@@ $@@@^@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@!^@G@ Z@@A@@M@[\@#/@@@@@A@@^@@@](0@@@@@@@^@@ ^@^@I@[@ @@ ^K^@3@)IM )@@G@@@@@D6E@@@D8_@@@D6R@AA@@@/,0^ !@@@D6W@@@D6Y@@@D6E@@@D8'@@@D6R@AB@@@/,0^ !IN )@@G@@@@@D6X@@@D6Z@@@D6E@@@D8;@@@D6R@AC@@@/,0^ !@@@D6)@@@D6-@@@D6E@@@D8/@@@D6RIO )@@G@@@F<@MQ@@@___@@;^R3@@E^TW@#1EAJ)@,^S,>?(^T&@@@___@@@___@@@___@@@___@@@___IP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___IQ )@@G@@@@@___@@@___@@@___@@@___D@@^];/C@@MU*@@@@G/K@@MXN@0@MW/K@@OS@[B^SLD@@^]/IR )@@G@@/C@@M-*@@@@G/K@@M>/,0@F,@@@^SB@@@^R3@[E^SLC@@^];G/@__"[@@^TQD@@^TQ*@@@@GIS )@@G@@1@@@@G/K@@M3/,0@F+@@@^#^@@@^SC@@@^]_@@@^SC@@@^TQ@[I^SLC@@^];;@@@@+C@)^]'IT )@@G@@[@?^];D@@^TQ*@@@@G1@@@@G/K@@N&C@@^TQG/@__"[@@@[^[@@^S:C_)@@[R/K@@@R/)@@^IU )@@G@@N[K^S:[#)^TSC@@^TS;@@@@+[@@^S?G/@__;C@)^S?G/)@@[[@@^S?[@)^S!C@[^].H@]^].IV )@@G@@/C@@NL*@@@@G/K@@N-C@]^]'H@]^]"/C@@NQ*@@@@G/K@@N-R@0^SDQ@0^S!R[@^SDQ[@^S?IW )@@G@@N.)@@#C@^^].[@@^TUC@<^]/[@==].[@#=]/8L)@NVO/K@@^O/)@@^G_)@@[8LK@N#8L@@M_IX )@@G@@/,0@ID@@@^SE@@@^SF@@@^R7@[&^SL/,0@ID@@@^SG@@@^SB@@@^R9@[$^SL/,0@ID@@@^SGIY )@@G@@@@@^SB@@@^S[@[*^SLC@@^];G/@__"R/0@@^R.@@@@[@@@[^C@#^]/H@#^];*@@@@G1@@@@GIZ )@@G@@/K@@OBN8O^].^^K@O^/,0@I#@@@^SF@@@^SH@@@@O^@@@^SI@[!^SLO/0@@^O.@@@^8L@@N'JA )@@G@@/,0@X3@[0^SLC/@@G?;O@@@=W@@^];[@@^TV/,0@UA@@@^T$@@@^TV@@@^];@[2^SLN@0@ORJB )@@G@@/K@@OS@[3^SLRA0^SMC#)^S,R@K^S\R@)^S0R@0^S1R[@^S2N[@^S3N[K^S4N[)^S5/K@OSJJC )@@G@@AA0^SM[#)^S,A@K^S\A@)^S0A@0^S1A[@^S2^[@^S3^[K^S4^[)^S5/K@@W!C@@^S7G/@__*@@^TY/K@@QEN@0@QD/K@@T.@]L^S-C@@^TY;@@@@^S-/,0@IB@@@^SB@@@^S#@]&^S-G_)@@I8L@@S@R@K^S_C@[D/5JX )@@G@@G/@@@[[@[D/5C@@^TY;@@@@[^@@S7[^@@PU/K@@O?C@@^TF;@@@@KL )@@G@@G/@__"T/@@@W[@@^TKC@@^TKH@@^T=*@@@@G1@@@@G/K@@VKC@@^TK[@@^T=D@@^T=/C@@VOKM )@@G@@*@@@@G/K@@VRN@0@VQ/K@@WX@#G^S*C@@^T=;O@@@=W/@@@WH@@^T>]@@^TSR@K^TG]@[D/5KN )@@G@@C@@^TLH@@^T>/C@@V<*@@@@G/K@@W^C@@^TLH@@^T>C@)^T>T/)@@WC[@^TLT[@^TIC[)^TLKO )@@G@@T[)^TIG[)@@IG[)^THR@K^S=Q@K@@M[@@@[^[[@^TKC@@^TST/@@@WG@@^TKG@@^THN8W@@@KP )@@G@@^^K@V/N8L)@@^^K@V'/,0@F+@@@@V'@@@^SF@@@@V/@@@^SF@@@^S>@#O^S*C@@^TSG/@@@[KQ )@@G@@[@@^TS8L@@V1C@@^TLG/@@@[C@)^T=;O)@@=W/)@@WH@@@@I[@@^T&C@)^TLT@)^TIT/@@@WKR )@@G@@G@)@@GG@)^THR@K^TJN8L^]/^^K@WSN8Y@@@^^K@WQ/,0@J/@@@@WQ@@@^T=@@@@WS@#S^S*KS )@@G@@N@0@WW/K@@WX@#T^S*RA0^S(C[)^TMR@K^TNN[@^TO/K@OS&AA0^S([[)^TMA@K^TN^[@^TOKT )@@G@@C@VK@@[@K^TFC8FK@[[@@^TEC@VK@][@K^TL/K@@U*/K@@MQ/,0@ID@@@EA(@@@EA%@@@EAJKU )@@G@@@[FEA8/,0@ID@@@EA:@@@EA?@@@EAL@[GEA8R@KEA!R@)EA,R@0EA\N.@@@D/,0@IB@@@EA%KV )@@G@@@@@EAS@[KEA8N8N%B]^^K@X^/,0@IB@@@EA0@@@@X^@[LEA8N8M%B8^^K@XE/,0@IB@@@EA1KW )@@G@@@@@@XE@[MEA8N8L%C3^^K@XL/,0@ID@@@EA:@@@EA2@@@@XL@[NEA88L@@W//,0@IB@@@EA%KX )@@G@@@@@EAU@[QEA8/,0@IB@@@EA3@@@EAY@[REA8/,0@IB@@@EA4@@@EA)@[SEA8/,0@ID@@@EA5KY )@@G@@@@@EA?@@@EA+@[TEA8/,0@ID@@@EA:@@@EA%@@@EA$@[UEA8N@0@X?/K@@X!@[VEA8RA0EA9KZ )@@G@@R@KEA;R@)EA/R@0EA.N[@EA"/K@UA6AA0EA9A@KEA;A@)EA/A@0EA.^[@EA"/K@@W,MERGEDLA )@@G@@ ROUTINES ______& ______ THE FOLLOWING ROUTINES ARE MERGED& LB )@@G@@______& ______& ______& ___________"@@@@@^@@[@@@@@@@@_@@@@@[LC )@@G@@@@@@@#@@@@@F@@@@@G@#;@@[@#;@@[MRG8 @[3@@@@@@@@@@@]@@]@@@@@A@@@@@C@@@@@JLD )@@G@@@@@@@N@@@@@]@@@@@ @@@@@=@@I@@@@@@@@:@@@@@@@#;@@^@#;@@^DMMG @]"@@@@@@@@@LE )@@G@@@@W@@@@@@@@W@#;@@ @#;@@ BUFIL @#T@@@@@@@@@@@@@@@@@@@@@@@@@@@Z/////@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@& ______M E R G E D LG )@@G@@ V A R I A B L E S& ______& ______VARBLE ROUTINE& ______FLAGS&LH )@@G@@______LB CM&______LINE NUMBERS AND FLAGS& ______& ______@@@@@______"LI )@@G@@@@@@@[@@@@@?@@B@@B@@A@@A@@A@@@@@@@@A@@@@@:@@@@[J@@@@@O@@@@@=@@@@@]@#;@@[LJ )@@G@@@#;@@[MRGHD @[V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@THE FILK )@@G@@RST FLAG INDICATES THE& NATURE OF THE ALPHABETIC ENTITY& =LL )@@G@@ UNDIMENSIONED VARIABLE& DMVR = DIMENSIONED VARIABLE& FCTN =LM )@@G@@ FUNCTION NAME& LBCM = NAME OF LABELED COMMON& SBRT =LN )@@G@@ SUBROUTINE NAME& SWVR = SWITCH VARIABLE& NMLT =LO )@@G@@ NAMELIST NAME& & THE FOLP )@@G@@LLOWING TWO CHARACTER FLAGS& INDICATE THAT THE ENTITY IS IN THE& CORRESLQ )@@G@@PONDING TYPE OF STATEMENT& AB = ABNORMAL EX = EXTERNAL& CM = CLR )@@G@@OMMON FA = FORML AGUMT& CP = COMPLEX IN = INTEGER& DA = DLS )@@G@@ATA LG = LOGICAL& DM = DIMENSION PR = PARAMETER& DP = DLT )@@G@@BL PRECISN RL = REAL& EQ = EQUIVALENCE NL = NAMELIST& THE FLLU )@@G@@AGS FOLLOWING THE LINE NUMBERS& (ON WHICH THE ENTITY WAS REFERENCED)LV )@@G@@& INDICATE THE NATURE OF THE REFERENCE& A = SET EQUAL,DEFINED,ASLW )@@G@@SIGNED& B = REFERENCED,CALLED G = FORMAT& C = CALLING LX )@@G@@SEQUENCE H = I-O UNIT& D = SUBSCRIPT I = READ& LY )@@G@@E = SPECIFICATION O = WRITE& J = DO PARAMETER L = LISTLZ )@@G@@& & @@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@[<(@MQ@@@___@[+^R3@[:^U[@[?^7\@@E DQ@[, I @@? KN@@E L4@[G MS@@E OE@[ID"7MC )@@G@@@[5E[N@ABE#N@]/ED$@[,EH^)@?^TP)W#^V?)J;^9V)^> D))@) J3)@5 K_)@U L")@& N=MD )@@G@@=%< OO)[IE@ )@FE#C)@HEDU**PF**@@@@W@@@@@@ @@@@@ @@@@@[@@@@J@@@@@L@@@@@N@ME )@@G@@@@@@P@ C9K@K@[DW@@#K@@@N#A#W@@^ @G@@ '=@@@#C5W@@#:9K@@ /K@@M4MF )@@G@@/ K@M_&;K@@[N8K@@W3[X)@@/K@@M8C[@@MQ:[G@@A/KF@@[R;@@@]/KF@@@R;)@@T&;K@@[MG )@@G@@ @H)@]8#)@M69!@@MQ9(G@@AC9K@C@[DW@@#'=@@@#C5W@@#/[V@@[R;@@@_;@@@@AO#@@@LMH )@@G@@/KF@@@@@W@@AR;/@@D/K@@NHR;/@@G/K@@NHR;/@@J/K@@NHR;/@@M/K@@NHR;/@@PC[K@MQMI )@@G@@%[W@@A/K@@O-;@K@@MABW@@^ABZ@@[;GK@@6W8K@@WT8K@@WAFW@@^?8K@#^/K@@OYK^W@@^MJ )@@G@@AB\@@]C J@@@/[@@N(K9@@@ [[G@@ ;(K@@AG!Z@@@[DZ@@@RFZ@@[?CW@@^AFW@@^:8K@]GMK )@@G@@/K@@ONC9K@K@/K@@M;R;?@@AR#K@MU;DK@@=O;)@@#:@)@@J/K@@N5(^I@@@/K@@N?RBY@@@ML )@@G@@CDY@@[G9K@@8/K@@N?;D@@@=W9@@@WG[@@@HC[K@MR:8?@@P/K@@N"O;)@@#C Y@@@/[K@N8MM )@@G@@R#K@@JP;W@@D;GK@@=W8K@@#?[H@MUC[H@MUH9K@@B![@@@L/K@@OWC9K@@E/@K@OEC9K@@^MN )@@G@@[!Z@@][ J@@@C9K@]G[DZ@@[C9K@]F;(K@@AG!Z@@][DZ@@]/K@@NXR;)@]FRBZ@@[&;K@@[MO )@@G@@ @H)@@8#)@OQP;K@@[C!Z@@][DX@@@/KF@@[R;@@@=/KF@@@R;@@@O/KF@@@R]@^R"R;@@@EMP )@@G@@/KF@@@R;/@@D/K@@O?R;/@@G/K@@O?R;/@@J/K@@O?R;/@@M/K@@O?R;/@@PA]@^R"/,@@U!MQ )@@G@@RB\@@[RB,@]F?@)@@H/K@@O7C[K@@H/,@@U]A#)@@GR]@^R"/KF@@[R;@@@GR]@^R"/KF@@@MR )@@G@@R;/@@D/K@@P#R;/@@G/K@@P#R;/@@J/K@@P#R;/@@M/K@@P#R;/@@PA]@^R"/,@@U!R]@^R"MS )@@G@@C[@^R8[[G@@ RBK^R.L@K^R9AB?@@^C[K^R9G!Z@@]R;)@@K=4!@@#G!Z@@]R;K@@W!9K@@XMT )@@G@@R;K@@8AFW@@^/K@@M'R;/@@D/K@@PYR;/@@G/K@@PYR;/@@J/K@@PYR;/@@M/K@@PYR;/@@PMU )@@G@@A]@^R"/,@@U!R]@^R"C9K@C@A])^R_*?J@@@/,)@U.R])^R_C Z@@[[ W@@^C9K@]G[DW@@^MV )@@G@@:DZ@@[ @J@@@C Z@@@[[W@@ ^J@@[ CJ@@@/[V@@[/K@@M'R;/@@D/K@@P;R;/@@G/K@@P;MW )@@G@@R;/@@J/K@@P;R;/@@M/K@@P;R;/@@PA]@^R"/,@@U! @@^R6/,@@RAC Y@@@/-@@Q]CDY@@@MX )@@G@@;D@@@=/[K@QE/,@@U]AE0^R'/,0@QS/K@@QORE0^R'/ K@Q^R#@@@KAF@^R7;*@@@#:8@@@SMY )@@G@@R;@@@);CK@@=O;@@@[AB)^R7R#)^R6/K@@O8RE0^R'RB@^R.9?K^R6/K@@O59!H@@@9.I@@@MZ )@@G@@/K@@R#%8/@@D/K@@Q2C!X@@#%!Y@@#/K@@Q%9!H@@^99@@Q=9.I@@^/K@@Q$1@H@@#1@I@@#NA )@@G@@/KF@@@CDY@@]C9@@@#/KF@@[!9K@@ /K@@Q\C9K@@^!!Y@@#/K@@Q)C9@@@]C Y@@#/KF@@[NB )@@G@@%8/@@J/K@@R@C5H@@#-5I@@#=9K@@K/K@@R#>9@@@K/K@@R@9!I@@^9.H@@^/K@@R#C[I@@BNC )@@G@@%[H@@B/K@@R#0@I@@#0@H@@#/KF@@@C9@@@[C Y@@]/KF@@[C[X@@@G[X@@[;D@@@=W9@@]FND )@@G@@G Z@@[R#)@@L/KC@@@R;/@@G/K@@RSR;/@@J/K@@RSR;/@@M/K@@RSR;/@@P/K@@RRR;/@@DNE )@@G@@ CH@@] ^H@@# ^H@@]A]@^R"AA0^R'9!H@@]9(@^R4%8/@@D/K@@R+9!@@MZ(@H@@^9(H@@^NF )@@G@@R;\@@@O;)@@#C Y@@@:8?@@SC[K@MR/[K@R@@S*[ Y@@@/K@@S:[DY@@@/K@@S:NL )@@G@@/,@@U'C[K^R3RA0^R'/,@@U]/,@@U'&;K@@[&;)@@[C5H@@#+9@@@Z[5X@@#N?Z@@]C9K@@KNM )@@G@@=5X@@#N8K@@CM#!)@@RB)^R.:8/@@D*@I@@D/K@@T@'=@@@?;@@@@MA#I@@D9?@^R;9!@^R4NN )@@G@@9(H@@]CDK^R.[DZ@@[R#K^R3%8/@@D/K@@QPC!I@@#%9@@@A/K@@TH )G@@SA#W@@T%9@@@ NO )@@G@@/K@@QPC8K@@[[)W@@S ^G@@P CG@@Q/K@@QP')I@TP/K@@S%[ V@@][ V@@#[DV@@]R;/@@DNP )@@G@@/K@@T+R;/@@G/K@@T+R;/@@J/K@@T+R;/@@M/K@@T+R;/@@PAA0^R'/,0@P;/K@@T\R#)@@GNQ )@@G@@9?@^R;/,0@U5RA0^R'%8/@@D/K@@QPC[K^R6:[W@@T @G@@T/K@@QPRA0^R'/K@@O8R;/@@ANR )@@G@@O;0@@#CDZ@@[%9K@]G/K@@T8 ^J@@[ @J@@@*^J@@[/K@@U@%8/@@P/K@@T2 @G@@ K@@@N#NS )@@G@@A#W@@^/K@@M'R;@@@+/KF@@@[D@^R7R#)^R6[[K^R6AB)^R7H9K@@[T!Z@@]G9K@]G;D@@@=NT )@@G@@W9@@@WG J@@@9(@^R8CDZ@@@;DK@@A?[@@@L/K@@UYH[@@@LT9@@@WG J@@[G9@@]GG[@^R9NU )@@G@@[[@@@I[ @^R.G!J@@]:8/@@JG9@@@^C Z@@]![K@@K/KC@@@C9K@C@A])^R_*?J@@@/,)@U.NV )@@G@@C[@^R8;(@@@AG!J@@@[DJ@@@C9K@K@/,)@U.R])^R_C[@^R8CDZ@@@;DK@@A/K@@UL9*@^R;NW )@@G@@C[K@MQ%[W@@A/K@@O)*^J@@[/KC@@@R;@@@M/K@@O8C5I@@#)9@@@)[5Y@@#/,@@U'/KF@@@NX )@@G@@C9@@@[[!J@@@/KC@@@[DW@@#CDJ@@@;D@@@A[[G@@ L J@@@T9K@@WCDJ@@[H[@@@L[DG@@^NY )@@G@@D J@@[H9@@]G] G@@^G J@@]?DG@@^[DG@@^*CG@@^'=@@@#C5W@@#/ K@M_ ?J@@@/KE@@@NZ )@@G@@R#W@@DR#?@@CR#.)@@ @@@[] @@@[#A#/@@E;C0@@Y:80@@_/KF@@[A#W@@DR#/@@E;K0@@SOA )@@G@@/C0@V)R3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@XFN@K@@JM#!)@@OB )@@G@@A#W@@D*@@@[]/K@@W"R#/@@E;K0@@S/C0@V1R3/@@EPB/@@B/G0@WHC G@@DG[@@@J[ G@@DOC )@@G@@C W@@AGDW@@^H[@@@L/H@@WH0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@W %9K@@ OD )@@G@@/KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@V3R#W@@DOE )@@G@@C5X@@@%9K@@(/KF@@]0@G@@E/K@@WPR;0@Z_/K@@WQR;0@@_C[W@@E;LK@@S/DK@WUC1W@@EOF )@@G@@![K@@J/K@@XCC[@@@LG1H@@@! W@@B/K@@X#?@0@@K/K@@W!? G@@B/K@@W:C[K@@KH W@@BOG )@@G@@?@0@@KC[@@@JH1X@@@D@0@@L/K@@W4R3.@@@/K@@W4!^/@@B/K@@W=C[K@@KH[K@@JH1X@@@OH )@@G@@C[@@@JD@0@@L[1G@@E0@G@@E/K@@W9;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[A#W@@D/K@@V+OI )@@G@@R#0@[]P#0@[#/@0@WH/G0@WH/K@@V3[1G@@E0@G@@E/K@@XC;D@@@A[5G@@ER3.@@@O;0@@[OJ )@@G@@/K@@V3P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@XUOK )@@G@@%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@V+OL )@@G@@ @@@@HOBW@@AC[K@@G9??@@@RBG@@A9*?@@@'=@@[GR7?@@AR#@@@L!8)@@S!8)@@)/K@@X/OM )@@G@@RF?@@B?8)@@^/K@@X/+/)__/C[G@@ AF/@@B+9@@@#T80@@WH[@@@L%C?@@BAF/@@^T9K@@WON )@@G@@O#K@@L[[G@@ ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K@YEOO )@@G@@%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ OP )@@G@@GDW@@B[[W@@ /KF@@@R@K^TEC@[@@@[@@^TZC@-@@[[@)^T)C8@^TZ/,0@M-/K@@)HC@@^TFOQ )@@G@@;@@@@MG/@@B@[@@^TTC8@^TZC@K^TT/,0@NE/K@@)HC^@^29[@@^TUC/)@@^[@)^TV(@@^TUOR )@@G@@/K@@))R@K^TCC@[@@@[@@^UHC@-@@[[@)^UI @@^UJ @@^UKC8@^TZC8K^UH/,0@P8/K@@Z OS )@@G@@[@@^TWH@@^TFG/@@@[[@@^TWR@K^TWC@-^00;))@@[;C)@@[[@)^TG;O)@@=W/)@@W[@)^UAOT )@@G@@C[@^TG[[@^TX/K@@ZX/,0@IB@@@^S%@@@^7\@[\^T]/,0@IB@@@^S:@@@^S@@[0^T]/,0@I[OU )@@G@@@@@^S?@@@@@@@@@^S!@[1^T]/,0@IB@@@^S,@@@^S#@[2^T]/,0@I#@@@^S\@@@^S0@@@@@@OV )@@G@@@@@^S!@[3^T]/K@@),R@K^TEC@[@@@[@@^U[C@-@@[[@)^U] @@^U# @@^U^C.@@@K[1@^U^OW )@@G@@C.)@#)[D)^U C]@^TI[A@^U C])^TJ[E)^UBC#@^TH[B@^UBC_)@@C[F)^UCC/@@@I[^@^UCOX )@@G@@C/)@@[[C)^UD[C)^UEC8@^U[/,0@X+/K@@Z'N@0@Z'/K@@+E/,0@IB@@@^S%@@@^7\@]^^T]OY )@@G@@/,0@IB@@@^S:@@@^SC@] ^T]/,0@I[@@@^S?@@@@@@@@@^S!@]A^T]/,0@ID@@@^S4@@@^S,OZ )@@G@@@@@^SF@]B^T]/K@@),/,0@+>@@@^S5@]D^T][@@^TY/,0@IB@@@^S%@@@^7\@]E^T]/,0@IBPA )@@G@@@@@^S:@@@^SJ@]F^T]/,0@IJ@@@^S4@@@^S6@@@^TY@@@^S7@]G^T]/K@@),/,0@IB@@@^S%PB )@@G@@@@@^7\@]I^T]/,0@IB@@@^S:@@@^SN@]J^T]/,0@I#@@@^S\@@@^S8@@@@@@@@@^S!@]K^T]PC )@@G@@/,0@ID@@@^S4@@@^S%@@@^SV@]L^T]C8)@@^N@0@)6/K@@+A@]M^T]/,0@F+@@@^S9@@@^S9PD )@@G@@@@@@@@@@@^S5@@@^S'@]P^T]*^@^UD/K@@-]C@@^TD[^@^UDC8@^U[/,0@VM/K@@-O/K@@+]PE )@@G@@D4@^UF/C@@-E*@@@@G/K@@)7D*@^UF/C@@-I*@@@@G/K@@)7R@K^TDC@[@@@:@@^S;/K@@+]PF )@@G@@N@0@-O/K@@+EC4@^U^[@@^TY*@@^TY/K@@-UN@0@-U/K@@+E/,0@IB@@@^S%@@@^7\@]<^T]PG )@@G@@/,0@IB@@@^S:@@@^SX@]=^T]/,0@IN@@@^S/@@@^TY@@@^S\@]>^T]/,0@IB@@@^S.@@@^S+PH )@@G@@@]&^T]/,0@I[@@@^S"@@@@@@@@@^S!@]$^T]/,0@IB@@@^S0@@@^S=@]*^T]/,0@I#@@@^S\PI )@@G@@@@@^S_@@@@@@@@@^S!@](^T]/,0@ID@@@^S4@@@^S%@@@^S$@]%^T]N@0@+[/K@@K"@]:^T]PJ )@@G@@C8@^U[/,0@YJN@0@+A/K@@+E!^)^T@/K@@K"H8)@@[[^)^T@RA0^T#C[)^TKC]@^TLC])^TMPK )@@G@@C#@^TNC#)^TOR@K^TP/K@OT@AA0^T#[^@^T@[[)^TK[]@^TL[])^TM[#@^TN[#)^TOA@K^TPPL )@@G@@/KH@@@C8@@@ /\K@+M/K@@+$C8@@@]/\K@+M/K@@+3N@0@+E;[@@@AC@0@@K;^)@[]8#@@>^[@:K@[/KF@@#9?V@@@QA )@@G@@&;K@@[&;)@@]R;0@@E*@H@@@/K@@>UC9@@[@C9K@[@9(I)@@9(I)@@9(I)@@8#0@>P/KF@@#QB )@@G@@C5H@@@C1X@@@9(I)@@C!H@@@C(X@@@9(I)@@C>H@@@C-X)@@9(I)@@8#0@>L/KF@@#C@FK@@QC )@@G@@[CFK@[/KF@@#CCFK@@[@FK@[C*FK@@[4FK@]COFK@@ @FK@#[OFK@#/KF@@ C@F@@@&;@@@[QD )@@G@@C@W)@@[4K^VZC@W)@@[0K^VZC@W)@@[?K^VZC@W)@@[*K^VZC@W)@@[=K^VZC@W)@@[)K^VZQE )@@G@@C@)^VZ[@:K@[/KF@@#C[K^V*[[K^VZC@F@@@&;@@@[C8)@@AH@:K@]S8)@@]/KJ@&DC@W)@@QF )@@G@@[4K^VZC@W)@@[0K^VZC@W)@@[?K^VZC@W)@@[*K^VZC@W)@@[=K^VZC@W)@@[)K^VZC[@^VZQG )@@G@@[[FK@[/KF@@^C@FK@@+@@^V([@VK@[/KF@@#C^FK@@[@FK@[/KF@@#'=@@@) @@^V)C@F@@@QH )@@G@@[^@@&%C@@^V%[@@@&Z/KF@@]C@@^V)G8@@@[[@@^V)?8@@@2/K@@@@R#@^V:'=@@@I'=@@@)QI )@@G@@C@@^V$[@@@&Z/KF@@[/K@@&!C@F@@@AB@@&1/KF@@]9?V@@@&;K@@[C[X)@@[5Y@@@C[X)@@QJ )@@G@@[1Y@@@C[X)@@[!Y@@@C[X)@@[(Y@@@C[X)@@[>Y@@@C[X)@@[-Y@@@%@:@@[/KF@@#O;)@@[QK )@@G@@/K@@&7R;@@@\R;K@@9,@FK@@/KFK@]/KFK@[R;@@@ R;K@@Z,@FK@@/KFK@]/KFK@[/,0@&2QL )@@G@@/K@@3=@]D JC @@@@@C/@@@[[@@ D @@@@@ @@ K_ @@ L@ @@ L[ @@ L] @@ L# @@ L^QM )@@G@@ @@ DK @@ L @@^V!/,0[UD@]Q JC/,0@&,@]R JC/,0@F+@@@ I @@@ IU@@@^9S@@@ IVQN )@@G@@@@@ IW@]S JC/,0@J3@@@ IB@@@ IX@@@ LA@]T JC/,0@J\@@@^9S/K@@*]@]U JC[@@ LAQO )@@G@@C@@ LA+@@ K"/GK@$;*@@@@H/K@@$>C@@^]/[@@ LB/,0[42/K@@*C/K@@*^/K@@$>@]Y JCQP )@@G@@C/@@@[[@@@@@C@@ LB[@@^]/N@0@*C/K@[]FC@@ DAG@@ DBG@@ DCG@@ DD:/@@@^/K@@*&QQ )@@G@@*@@^]//K@@*5C@@ D@[@@^V\C@) D[[@)^V0C@@ IY[@@^V1C@) D][@)^V2C@@ D#[@@^V3QR )@@G@@/,0@F+@@@ K;@@@ IU@@@^V4@@@ IV@@@ IZ@]: JC/,0@F,@@@ I)@@@^V\@]? JC/K@@*5QS )@@G@@/,0@IB@@@ I)@@@ IF@], JC/,0@I[@@@ I-@@@ D@@@@ I+@]\ JC/,0@I#@@@ IV@@@ I/K@@8 (@@ DO/K@@(,/K@@($QX )@@G@@/,0[!9@@@ ME@@@ IW/K@@3=@#G JCC@@ L G/@@@[[@@ L /,0[56@@@ ME/K@@%B@#I JCQY )@@G@@/,0@=;@@@ ME@@@ LC@@@ LD@#K JCC/@@@[C/)@@ !@) LD @@@@GC/)@@[C[@ LDG.@@@@QZ )@@G@@!.@@@) @@@@I+@@@@IC/)@@[D[@ DK*@@@@K1@@@@K @@@@I+@)@@H/=0@%BC@@ LD%/@@@CRA )@@G@@/K@@%MC/@@@[(@@ DN @@@@GC/)@@[*@@ DA @@@@I+@@@@I/)K@%L/,0[JR@#Q JC/K@@(RRB )@@G@@D@@ DK*@@@@G1@@@@G/K@@%R @@ LED@@^V!*@@@@G1@@@@G/K@@%Y/,0@=X/K@@?[@#W JCRC )@@G@@C@@ L [@@ LF @@^V?/,0@>@@@@ ME@@@ LG@#Z JCC@@ K;H@@ LG(@@@@G/K@@%2C@@ MERD )@@G@@:@@ I>/K@@%2/,0[UJ@@@ LG@@@ LF@@@ KT@@@ LF@#= JC*@@ DA/K@@%6/,0[JR@#& JCRE )@@G@@R@K^V?N8L^V\^^K@%;/,0@>H@@@ MF@@@@%;@#$ JCC@@^V?G/@@[][@@^V?D@@ DK/C@@:^RF )@@G@@*@@@@G/K@@:E/,0[!9@@@ ME@@@ IW/K@@3=@#? JC/K@@:P/,0@+Y@@@ ME@#, JCC@@ MERG )@@G@@:@@ I>/K@@8 C@@ LHG/@@@G[@@ LH(@@ DO/K@@:WC@@ L G/@@@[[@@ L /,0[56@@@ MERH )@@G@@/K@@:=@#5 JC/,0@=;@@@ ME@@@ LC@@@ LD@#6 JCC@@ LD%/@@@C/K@@:\C/@@@[(@@ DNRI )@@G@@ @@@@GC/)@@[*@@ DA @@@@I+@@@@I/)K@:,/,0[JR@#' JC/K@@:@C/@@@[C@) LC:/)@@ RJ )@@G@@ @@@@GC/)@@[C[@ LC:.@@@0 @@@@I+@@@@I/=K@%2C/@@O(!@@^V?/K@@:_/,0[<8@@@ IVRK )@@G@@@^@ JC/,0@+7@^[ JCD@@^V?*@@@@G1@@@@G/K@@%MC/@@@B[@@ LIC@@^V?G/@@@@!/@@@BRL )@@G@@/K@@?HC@@^V?[@@ LIC@@ LIG/@__"R/K@@[[@@@[JA@K LJC@[^V,:/@@@(/K@@?6C@[^V,RM )@@G@@:/@@@=/K@@?VO/K@@[8N0@?L/K@@!QC@@ LJG/@@@[[@@ LKH@@^V?R@K LK]@@@[JA@K LLRN )@@G@@C@[^V,[@@ LM/,0@$G@@@ LM/K@@?,/K@@?(@^Q JC/,0@$B@@@ LM/K@@?,/K@@?1@^R JCRO )@@G@@O/K@@[8N0@?-/K@@.2R@K LLC@[^V,:/@@@,/K@@!Q/K@@.2C@@^V?G/@__"[@@ LNC/)@@[RP )@@G@@[@) LOG@) LJ[@) LJH@@ LJR@K LJ[@@@[JA@K LPC@[^V,%/@@@)/K@@!BC@@ LOG/@__"RQ )@@G@@[@@ LOC@[^V,%/@@@(/K@@!HC@@ LOG/@@@[[@@ LO(@@ LO/K@@!MO/K@@[8N0@!@/K@@!QRR )@@G@@R@K LPC@[^V\:/@@@=/K@@.2/,0[+]@@@ LQ@^\ JCC/@@@"?@@ LQ/K@[@$C@@ LQ/@@@!ZRS )@@G@@/C@@!+/,0[<8@@@ I&@^5 JCC^) LQ$;)@@_/KI@!>/K@@,=/K@@\ /K@@\U/K@@,./K@@0#RT )@@G@@/K@@\7/K@@0C/K@@0+/K@@2K/K@@2#/K@@2]/K@@3K/K@@2"/K@@29/K@@2L/K@@2!/K@@24RU )@@G@@/K@@%M/K@@30/K@@38/K@@4@/K@@3X/K@@3!/K@@3=/K@@%M/K@@4B/K@@43/K@@7C/K@@8NRV )@@G@@/K@@%M/K@@;^/K@@;[/K@@;B/K@@,&/K@@8)/K@@8!/K@@;$/K@@9 /K@@9K/K@@9L/K@@9SRW )@@G@@/K@@9$/K@@9,/K@@9T/K@@95/K@@']/K@@'V/K@@'Y/K@@'=/K@@;K/K@@'3/K@@''/K@@'?RX )@@G@@/K@@'/K@@"5/K@@_^/K@@_,/K@[@X/K@[@+'^@@K"@^6 JCRY )@@G@@R/K@@^N_0@@AA@K LRN8L^V,^^K@,?/,0@$G@@@@,?/K@@,0/K@@6E@^' JCO/K@@[8N0@,*RZ )@@G@@C@@^V?G/@@@@?/@@@D/K@@6EC@@^V7:@@ I$/K@@;EC@@^V7:@@ I*/K@@;H/K@@!ZC/@@@DSA )@@G@@[@@ LS/,0[H8@@@ KU@@@ K,@@@ IU@ JC/K@@%MC/@@@B[@@ LS/,0[UM@@@ IZ@@@ LFSB )@@G@@@ C JC/,0[#!@@@ K<@ D JCC@@ LSG/@@@][@@ LS/,0[ ./K@@%M/K@@\4@@@ KQ@@@ IUSC )@@G@@@@@ IU@@@ IU@ F JC/K@@%MC/@@@D[@@ LS/,0[UM@@@ I(@@@ LF@ I JC/,0[ ./K@@%MSD )@@G@@/K@@%M@@@ KQ@@@ IU@@@ IU@@@ IU@ J JCR@K LSC@[^V,:@@ I%/K@@%MC@@ LSG/@@@[SE )@@G@@[@@ LSC@@^V?G/@@@@?@@ LS/K@@%M/K@@\)/,0[<8@@@ IX@ Q JCC/@@@E[@@ LS/,0[UMSF )@@G@@@@@ I+@@@ LF@ S JC/,0[H8@@@ KX@@@ IU@@@ I&@ T JC/K@@%M/,0[UM@@@ I:@@@ LFSG )@@G@@@ V JC/K@@%M/,0[UM@@@ I?@@@ LF@ X JCC/@@@ [@@ LS/,0[ ./K@@%M/K@@%M@@@ KRSH )@@G@@@@@ IU@@@ K7@@@ IU@ Z JCC@@ LSG/@@@[[@@ LSC/)@@[[@) L[/,0[H8@@@ KS@@@ IUSI )@@G@@@@@ I&@ + JC @@ L[/K@@%MC/@@@B[@@ LSC@) K%[@) I#R@K LSC@[^V,%@@ I!/K@@1TSJ )@@G@@C@@ LSG/@@@[[@@ LS/,0[ ./K@@%M/K@@\4@@@ KU@@@ K%@@@ K/@@@ IU@ % JCC@@ LSSK )@@G@@G/@@@[[@@ LSC@) DQG/)__"R/K@@[[@)@[JA@K LTC@@ DPH@[ DQ(@@@@G/K@@1PO/K@@[SL )@@G@@8N0@0/C@@ DQG/@@@@?/@@^?/K@@1J/,0@ID@@@ I&@@@ I)@@@ IJ@ 5 JC/,0[,O@ 6 JCSM )@@G@@/K@@$TC@@ DQG/@@@[[@@ DQR@K LTC@) DP[@- DQC@@ K%G@@ LT[@@ I#/K@@1T/,0[H8SN )@@G@@@@@ KU@@@ I#@@@ IV@ " JCC@@ LSG/@@@[[@@ LSC@@ LSG/@@@@!@@^V?/K@@%MR@K LSSO )@@G@@C@[^V,%@@ I!/K@@1\C/@@@B[@@ LUC@) LSG/)@@[[@) LS/K@@11C/@@@C[@@ LUC@@^V?SP )@@G@@H@@ LSR@K I,Q@K LS[@@@[JR@) LUC@[=V,[@]^V,C@) LUG/)@@[[@) LU8N0@16C[@^V?SQ )@@G@@H[@ LSG.@@@C[[@^V?/K@@0+/K@@%MC/@@@C[@@ LS/,0[]2/K@@2F@AM JCC@@ K1[@@ LVSR )@@G@@/K@@4GC/@@@C[@@ LSC@) K1[@) LW/K@@2P/K@@%MC/@@@ [@@ LSC@) K([@) LW/,0[H8SS )@@G@@@@@ KU@@@ LW@@@ IV@AV JCC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LS/K@@%MR@) LSST )@@G@@C@]^V,%@@ I!/K@@2UC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LS/K@@%M/K@@2PC/@@@CSU )@@G@@[@@ LSC@) KY[@) LXC.@@@H[[@ LY/K@@.VC/@@@B[@@ LSC/)@@[[@) L]/K@@4GC/@@@ESV )@@G@@[@@ LSC@) K![@) LW/K@@2PC/@@@#[@@ LS/,0[UM@@@ IV@@@ LF@A0 JC/,0[#!@@@ K=SW )@@G@@@A1 JCC/@@@[[@@ L][@@ L[/,0[H8@@@ KZ@@@ IU@@@ I&@A4 JC/K@@(^C/@@@K[@@ LSSX )@@G@@/,0[]2/K@@3S@A7 JCC@@ K2[@@ LV/K@@4GC/@@@K[@@ LSC@) K2[@) LW/K@@2PC/@@@CSY )@@G@@[@@ LSC@) K)[@) LXC.@@@I[[@ LY/K@@.VD@@ DK/C@@3**@@@@G/K@@8 /,0[UP@B# JCSZ )@@G@@/,0[,O@B^ JC/K@@$TC/@@@C[@@ LS/K@@\9C/@@@G[@@ LS/,0[H8@@@ KU@@@ K?@@@ IUTA )@@G@@@BD JC/K@@%MC/@@@D[@@ LS/,0[H8@@@ KU@@@ K\@@@ IU@BG JC/K@@%MC/@@@A[@@ LSTB )@@G@@C@) LZG/)__"/@)@'*/G)@%M/K@@4IC/@@@D[@@ LSC/)@@][@) LZ @@ LVC@@ K6[@@ LWTC )@@G@@/,0[UM@@@ I:@@@ LF@BQ JC/,0[ ./K@@%M/K@@%M@@@ KQ@@@ LV@@@ LW@@@ IU@BR JCTD )@@G@@ @@ L]R@K LSC@[^V,%@@ I!/K@@4%C@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LS/K@@%MTE )@@G@@R@) LSC@]^V,%@@ I!/K@@4ZC@@ LSG/@@@[[@@ LS/,0[H8@@@ KQ@@@ K9@@@ IU@B- JCTF )@@G@@/K@@(^C/@@@ [@@ LSR@K LSC@-^V,[@) LMC@@ LM:/@@@(/K@@5?/,0@$G@@@ LM/K@@5HTG )@@G@@/K@@5@@B$ JC/,0@$B@@@ LM/K@@5 /K@@5H@B* JC/,0[UM@@@ I\@@@ LF@B( JC/,0[#!TH )@@G@@@@@ K&@B% JC/K@@%M/,0[UM@@@ I0@@@ LF@B? JC/,0[ ./K@@%M/K@@\4@@@ KR@@@ IUTI )@@G@@@@@ K8@@@ IU@B! JCR@) LSC@]^V,%@@ I1/K@@5)C@@ LSG/@@@[[@@ LSR@K LSC@[^V,TJ )@@G@@%@@ I%/K@@5$C@@ LSG/@@@[[@@ LS/,0[I,/K@@%M@@@ K>@B2 JC/K@@%M/,0[UM@@@ I-TK )@@G@@@@@ LF@B4 JC/,0[I,/K@@6B@@@ K>@B5 JCC@@ LSG/@@@[[@@ LSR@) LSC@]^V,%/@@@,TL )@@G@@/K@@5"C@@ LSG/@@@[[@@ LSC/@@@[[@@ L[/,0[H8@@@ KR@@@ IU@@@ I&@B' JC @@ L[TM )@@G@@/K@@%M/,0[<8@@@ I0@B. JCC/@@@#[@@ LSC/)@@[[@) L#/K@@.. @@ L[ @@ L#C@@ LSTN )@@G@@G/@@@[[@@ LSR@K LSC@[^V,G/@@@@?/@@@*/K@@61N8L^V,^^K@6W/,0@$B@@@@6W/K@@6*TO )@@G@@/K@@6)@CA JCR@) LSN8M^V,^^K@6=/,0@$G@@@@6=/K@@61/K@@6L@CB JC/,0[UM@@@ IXTP )@@G@@@@@ LF@CC JC/,0[I,/K@@%M@@@ K$@CD JC/K@@%M/,0[UM@@@ I&@@@ LF@CF JCC/@@@[TQ )@@G@@[@@ L)C@)^V?H@) LSR@K I,Q@K LS[@)@[JR@) L)C@[=V,[@]^V,C@) L)G/)@@[[@) L)TR )@@G@@8N0@6/C[@^V?H[@ LSG.@@@[[[@^V?/K@@? C/@@@C[@@ LSC@) L G/)__"[@) L C.@@@[TS )@@G@@[[@ DK @@ L^H/@@@HR@) LS]@@@[JA@) LRC@@^V?G/@@@@?@@ LR/K@@7YC@]^V,:@@ I1TT )@@G@@/K@@7YO/)@@[8N0@7N/K@@7&D@@ LRG/@@@HR@K I,Q@K LR[@@@[JC@@ K;[@[=V,8N0@70@@@@7%@@@ L2@C( JCC@@ IY[@@ L3/,0@+V@@@ IR@@@ DLTV )@@G@@@@@ L2/K@@8]@C: JCC/@@@[[@@ LE/,0@F+@@@ ME@@@ IV@@@^9&@@@ IV@@@ IW@C! JCTW )@@G@@/,0@+Y@@@ ME@C, JC/K@@(R @@ DK @@ L^/K@@(R @@ DK @@ L^/,0@F+@@@^9&@@@ IVTX )@@G@@@@@ ME@@@ IV@@@ IW@C5 JCD@@ LE/C@@8M*@@@@G/K@@($/K@@:PC/@@@C[@@ LS/,0[]2TY )@@G@@/K@@8V@C' JCC@@ K3[@@ LV/K@@4GC/@@@C[@@ LSC@) K3[@) LW/K@@2PC/@@@C[@@ LSTZ )@@G@@/,0[]2/K@@8*@D[ JCC@@ K0[@@ LV/K@@4GC/@@@C[@@ LSC@) K0[@) LW/K@@2PC/@@@CUA )@@G@@[@@ LS/,0[UM@@@ I2@@@ LF@DC JCC@@^V?G/@@@@?@@ LS/K@@%MC@@ KU[@@ LWR@K LSUB )@@G@@C@[^V,%@@ I%/K@@8_C@@ KR[@@ LW/,0[H8@@@ LW@@@ IU@@@ IU@DI JC/K@@%MC/@@@EUC )@@G@@[@@ LSC/)@@[[@) L][@) L[/,0[H8@@@ KU@@@ K4@@@ IV@DN JC/K@@(^/K@@%MC/@@@AUD )@@G@@[@@ LSC@) K)[@) LXC.@@@I[[@ LY/K@@/>/K@@9LC/@@@ [@@ LSC@) KY[@) LXC.@@@HUE )@@G@@[[@ LYR@) LSC@]^V,%/@@@(/K@@/>C@@ LSG/@@@[[@@ LS/K@@.VC/@@@I[@@ LSC@) KYUF )@@G@@[@) LXC.@@@H[[@ LY/K@@.GC/@@@D[@@ LSC@) KY[@) LXC.@@@H[[@ LY/K@@/TC/@@@ UG )@@G@@[@@ LS/,0[]2/K@@9.@D: JCC@@ K:[@@ LV/K@@4GC/@@@ [@@ LSC@) K:[@) LW/K@@2PUH )@@G@@C/@@@D[@@ LC@@ DPH@] DQ(@@@@G/K@@/CO/)@@[8N0@;"R@K L>US )@@G@@C@@ DP[@[ DQC@@ KPG@@ L>[@@ L=/,0[H8@@@ K'@@@ L=@@@ IV@E3 JCC@@ LSG/@@@@UT )@@G@@!@@^V?/K@@%MR@) LSC@]^V,%/@@@//K@@%M/K@@;?/,0[A./K@@//@E9 JCC/@@@[[@@ L@UU )@@G@@/,0[H8@@@ KX@@@ IU@@@ IU@E; JC @@ L@/K@@//R@K LSC@[^V,[@@ LM/,0@$B@@@ LMUV )@@G@@/K@@/9/K@@/!@E_ JCC@@ LM:@@ I!/K@@//C/@@@[[@@ L@/,0[H8@@@ KW@@@ IU@@@ IUUW )@@G@@@F# JC @@ L@/K@@///,0[#!@@@ K-@FA JCC@@ LSG/@@@[[@@ LSC/@@@[[@@ L[/,0[H8UX )@@G@@@@@ LX@@@ IU@@@ I&@FD JC @@ L[/,0[UM@@@ LY@@@ LF@FF JC/K@@%M/,0[A./K@@.RUY )@@G@@@FH JCC/@@@[[@@ L@/,0[H8@@@ KX@@@ IU@@@ IU@FJ JC @@ L@C@@ LSG/@@@[[@@ LSUZ )@@G@@/K@@/>/,0[A./K@@.&@FN JCC/@@@[[@@ L@/,0[H8@@@ KX@@@ IU@@@ IU@FP JC @@ L@VA )@@G@@R@) LSC@]^V,%@@ I!/K@@.!C@@ LSG/@@@[[@@ LSR@K LSC@[^V,:@@ I4/K@@///K@@.RVB )@@G@@C/@@@[[@@ LS[@@ L@[@@ L]/,0[H8@@@ KQ@@@ IU@@@ I&@FZ JC @@ L] @@ L@C/@@@[VC )@@G@@[@@ L[/,0[H8@@@ KR@@@ IU@@@ I&@F< JC @@ L[ @@ L#C@@^V\%@@ I5/K@@%MC@@^V0VD )@@G@@%@@ I6/K@@%MC@@^V1%@@ I%/K@@%M/K@@6JC/@@@B[@@ LSC@) KY[@) LXC.@@@L[[@ LYVE )@@G@@/K@@/_C/@@@C[@@ LSC@) K)[@) LXC.@@@M[[@ LY/K@@/_C/@@@C[@@ LSC@) K)[@) LXVF )@@G@@C.@@@N[[@ LY/K@@/_C/@@@M[@@ LS/,0[UM@@@ I7@@@ LF@F' JCC@@^V?G/@@@@?@@ LSVG )@@G@@/K@@%M/,0[H8@@@ KX@@@ IU@@@ IU@F. JC/K@@%MC/@@@B[@@ LS/,0[UM@@@ I<@@@ LFVH )@@G@@@G@ JCC/@@@[[@@ L][@@ L[/,0[H8@@@ KZ@@@ IU@@@ I&@G# JC/K@@(^C/@@@C[@@ LSVI )@@G@@/,0[UM@@@ I8@@@ LF@GA JCC@@ KR[@@ LWC@@^V?G/@@@@?@@ LS/K@@%MC@@^V?H@@ LSVJ )@@G@@R@) LS[@@@[JA@) LRC@]^V,%@@ I9/K@@_XC@@ KQ[@@ LWC/)@@[[@) L@/K@@_ZO/)@@[VK )@@G@@8N0@_OC/@@@[[@@ L[[@@ L]/,0[H8@@@ LW@@@ IU@@@ IV@GQ JC @@ L@ @@ L[ @@ L]VL )@@G@@C@@ LSG/@@@[[@@ LS/K@@_EC/@@@D[@@ LS/,0[UM@@@ I'@@@ LF@GX JCC/@@@[[@@ L#VM )@@G@@/,0[H8@@@ KU@@@ IU@@@ IU@GZ JC @@ L#C@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LSVN )@@G@@/K@@%MR@K LSC@[^V,%@@ I;/K@[@EC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LS/K@@%MVO )@@G@@R@) LSN8M^V,^^K[@M/,0@$B@@@[@M/K@[@Q/K@[@W@G* JCC@@ LF[@@ K_/,0[#!@@@ KTVP )@@G@@@G% JC @@ K_/K@@65/,0[UM@@@ I/@@@ LF@G! JC/K@@%M/,0[UM@@@ I.@@@ LF@G\ JCVQ )@@G@@/K@@%MC@@ LQ%/@@@_/K@[@!C/@@@>[@@ LD/K@[]@C@@^V4[@@ L&C@)^V5[@) L$ @@ LDVR )@@G@@C@@ L&%@@ I"/K@[@8C/@@@W[@@ LD/K@[]@C/@@@[C@) L&%@) I_ @@@@G[@@ J3C@@ L&VS )@@G@@%@@ J@/K@[[#C/@@@X[@@ LD/K@[]@C@@ L&%@@ I6/K@[[DC/@@@Y[@@ LD/K@[]@C@@ L&VT )@@G@@%@@ I5/K@[[JC/@@@Z[@@ LD/K@[]@C@@ L&%@@ J[/K@[[PC/@@@)[@@ LD/K@[]@C@@ L&VU )@@G@@%@@ I$/K@[[VC/@@@-[@@ LD/K@[]@C/@@@[C@) L$%@) I" @@@@GC@) J3+@)@@G/)0[[>VV )@@G@@C/@@@+[@@ LD/K@[]@C/@@@[C@) L$%@) J] @@@@GC@) J3+@)@@G/)0[[\C/@@@<[@@ LDVW )@@G@@/K@[]@C@@ L&%@@ J#/K@[[5C/@@@=[@@ LD/K@[]@C@@ L&%@@ J^/K@[[;C/@@@&[@@ LDVX )@@G@@/K@[]@C@@ L&%@@ J /K@[]@C/@@@$[@@ LDD@@ LD*@@@@G1@@@@G/K@@!Z/,0[UM@@@ LDVY )@@G@@@@@ LF@HT JC/K@@%MN@0[]F/K@[]FRA0 JDC[) J4R@K J5R@) J6N#0 J7/K@PJAAA0 JDVZ )@@G@@[[) J4A@K J5A@) J6^#0 J7/K@[JVR/K@@[N_0@@BR@) LSC@]^V,H@[ L3(@@@@G/K@[]+WA )@@G@@C8)@@[N@0[]-/K@[](@H> JGC@@ LSG/@@@[[@@ LSO/K@@[8N0[]TN@0[](/K@[]!!^) JEWB )@@G@@/K@@K"H8)@@[[^) JERA0 JHR@K J9R@) J'N#0 J;/K@PJEC8@@@]AA0 JH[^@ JEA@K J9WC )@@G@@A@) J'^#0 J;/K@[]RR@K LSN8L^V,^^K[]./,0@$B@@@[]./K@[#[/K@[#&@H! JKR/K@@[WD )@@G@@N_0@@^A@K L(R@) LSC@]^V,[@[ L;C@) LSG/)@@[[@) LSC@@^V?G/@@@@?@@ LS/K@[#VWE )@@G@@R@) LSC@]^V,[@@ LM/,0@$B@@@ LM/K@[#Q/K@[#V@H6 JKO/K@@[8N0[##/,0[<8@@@ I0WF )@@G@@@H9 JK/,0@&[@@@ L/@@@ L%@@@ L(@H' JK/,0[UJ@@@ L%@@@ LF@@@@@@@@@ K_@H; JKWG )@@G@@N@0[#*/K@[#*RA0 JLR@K J.R@) J"N#0 J_/K@PJIAA0 JLA@K J.A@) J"^#0 J_C8FK@@WH )@@G@@[^@[#M@8N0[#6R/K@@[N_0@@ A@K L:R@) LSC@]^V,WI )@@G@@[@[ M@C@) LSG/)@@[[@) LSC@@^V?G/@@@@?@@ LS/K@[ =R@) LSC@]^V,[@@ LMC@@ LMWJ )@@G@@:@@ JN/K@[ =C@@ LM:@@ JO/K@[^T/,0@$G@@@ LM/K@[^T/K@[^O@IM JS/,0@$B@@@ LMWK )@@G@@/K@[^T/K@[^Y@IN JSO/K@@[8N0[#;/,0[<8@@@ JP@IQ JS/,0@>0@@@ M[@@@ DP@IR JSWL )@@G@@C/@@@[C@) LM%/)@@= @@@@GC/)@@[*@@ L] @@@@I+@@@@I/=K[^7C@@ LM:/@@@(/K@[ @WM )@@G@@/,0[UG@@@ I&@@@ DP@@@ LF@@@@@@@@@@@@@@@@@@@IW JS/K@[ +/,0[UG@@@ I&@@@ DPWN )@@G@@@@@ LF@@@ K'@@@ IU@@@ IU@IY JS/K@[ +C@@ K[G/@@@[[@@ L?G/@__./@@[ B/G@[^,WO )@@G@@/K@[ K/,0[UG@@@ I&@@@ DP@@@ LF@@@@@@@@@@@@@@@ K5@I= JS/K@[ +C/@@@#[@@ L!WP )@@G@@/,0[UG@@@ L!@@@ DP@@@ LF@@@@@@@@@@@@@@@ IU@I$ JSD@@ L!*@@@@G0@@@@G/K@[ +WQ )@@G@@C8)@@]N@0[ -/K@[ 4@I( JSN@0[ =/K@[ 8/,0@>0@@@ M[@@@ DP@I: JS/,0[UG@@@ I&WR )@@G@@@@@ DP@@@ LF@@@@@@@@@@@@@@@@@@@I? JSC8)@@[N@0[ 3/K@[ 4@I! JS!^) JQ/K@@K"WS )@@G@@H8)@@[[^) JQRA0 JTR@K K]R@) K#N#0 K^/K@PJQC8@@@BAA0 JT[^@ JQA@K K]A@) K#WT )@@G@@^#0 K^C8FK@][^@[^2[^@[ Q[^@[ ?[^@[ FC8FK@#[^@[ R[^@[ G[^@[^3[^@[ !C8FK@^WU )@@G@@[^@[^4[^@[ ,C@VK@ [@K K[/K@[#4R@K LSC@[^V,[@@ LM/,0@$B@@@ LM/K@[AV/K@[A2WV )@@G@@@I2 JXC_)@@[N_0@@][#) L,C@@ LSG/@@@[[@@ LSR@K LSC@-^V,[@) LM/,0@$B@@@ LMWW )@@G@@/K@[A(/K@[A,@I8 JXG_)@@[8N0[AX/,0[<8@@@ JU@I; JXC8)@@[N@0[A1/K@[A4@I/ JXWX )@@G@@N@0[A4/K@[A8!^) JV/K@@K"H8)@@[[^) JVRA0 JYC#) KAR@K KBN#0 KC/K@PJVC8@@@]WY )@@G@@AA0 JY[^@ JV[#) KAA@K KB^#0 KC/K@[AN @@ L\ @@ LO @@^0SC@@^V?G/@@@@?@@ LSWZ )@@G@@/K@[F?R@K LSC@[^V,:@@ JN/K@[F?R@K LSC@[^V,[@@ LM/,0@$G@@@ LM/K@[B(/K@[BRXA )@@G@@@JD J*C@@ L#/@@[CX/G@[CXC@@ LM%@@ I%/K@[B)C@@ L\G/@@@[[@@ L\C@@ LM%@@ I4XB )@@G@@/K@[B&C@@ L\G/@__"[@@ L\C@@ L\/@@[F?/K@[CXC@@ LM:/@@@D/K@[CAR@K LSA@K KEXC )@@G@@C@@ LM%/@@@E/K@[C0C/@@@[R@K KEC@-^V\%/)@@R @@@@GC/)@@[C[[^V0%.@@@R @@@@IXD )@@G@@+@@@@I/=K[CLC/@@@[C@-^V\%/)@@N @@@@GC/)@@[C[[^V0%.@@@D @@@@I+@@@@I/=K[CLXE )@@G@@C@@ LSG/@__"/@@[C0R@K LSN8L^V!^^K[CH/,0@$B@@@[CH/K@[CX/K@[C0@JZ J*R@K LSXF )@@G@@C/@@@[C@-^V1%@) I9 @@@@GC/)@@[C[@ LS:.@@@[ @@@@I+@@@@I/=K[FX/K@[C0C/@@@[XG )@@G@@C@) LM%/)@@/ @@@@GC/)@@[*@@ L[ @@@@I+@@@@I/=K[F?C@@ LM:/@@@$/K@[FNC@@ LMXH )@@G@@:/@@@./K@[F,C@@ LSG/@@@[[@@ LS/K@[BB/,0[ ./K@[F?/K@[D]@@@@@@@@@@@@@@@ IUXI )@@G@@@@@@@@@J! J*R@K LSC@[^V,:/@@@(/K@[DSC@@ L@%/@@@[/K@[D[N@0[D[/K@[H5/K@[BJXJ )@@G@@/,0[UM@@@ JZ@@@ LF@J3 J*R@K LSC@[^V,%@@ I%/K@[DNC@@ LOG/@@@[[@@ LOR@K LOXK )@@G@@C/)@@[[@-^0RC/@@@[[@@ LW/K@[DXR@K LSC@[^V,:@@ I4/K@[D;/K@[B C@@ LOG/@@@[XL )@@G@@[@@ LOR@K LO @[^0RC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@!@@ LS/K@[D$/,0[<8@@@ IZXM )@@G@@@K[ J*R@K LSC@[^V,%/@@@)/K@[E[C@@ LSG/@@@[[@@ LSR@K LO @[^0RC@@ LOG/@__"XN )@@G@@[@@ LOD@@ LO*@@@@G1@@@@G/K@[D;R@K LOC@[^0R[@@ LW/K@[D)C@@ L@%/@@@[/K@[E@XO )@@G@@N@0[E@/K@[H5/K@[B R@K LSC@[^V,[@@ LM/,0@$G@@@ LM/K@[ED/K@[E?@KI J*C@@ KTXP )@@G@@[@@ LWR@K LOC@[^0R%/@@@[/K@[ELC@@ KS[@@ LW/,0[ ./K@[FK/K@[EV@@@ LW@@@ IUXQ )@@G@@@@@ IU@@@@@@@KM J* @@ LW/K@[E-C/@@@[[@@ LW/,0[UM@@@ JZ@@@ LF@KQ J*R@K LSXR )@@G@@C@[^V,%@@ I%/K@[D)C@@ LOG/@@@[[@@ LOR@K LOC@) LW[@-^0R/K@[DXC@@ LM:@@ I%XS )@@G@@/K@[E>C@@ LM:@@ J)/K@[F,R@K LOC/@@@[C@-^0R:/)@@[ @@@@GC/)@@[C[@ LM:[@ JOXT )@@G@@ @@@@I)@@@@I/=K[DXC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LS/K@[D)R@K LSN8L^V,XU )@@G@@^^K[FC/,0@$B@@@[FC/K@[FG/K@[D)@K> J*/,0[#!@@@ K+@K& J*/K@[D)/,0[<8@@@ I+XV )@@G@@@K* J*C@@ LSG/@@@[[@@ LSC@@^V?G/@@@@!@@ LS/K@[F)/,0[<8@@@ J-@K? J*C@@ LSXW )@@G@@G/@@@^[@@ LSR@K LSC@[^V,[@@ LM/,0@$B@@@ LM/K@[F*/K@[BJ@K0 J*/,0[#!@@@ K+XX )@@G@@@K1 J*/K@[BJN@0[F,/K@[H5C@@ LS[@@ L0C@@ L0G/@@@[[@@ L0C@@^V?G/@@@@?@@ L0XY )@@G@@/K@[G\R@K L0C@[^V,%@@ J)/K@[F0C@@ LSH@@ L0]@@ LDR@K LSC@[^V\%@@ J+/K@[GCXZ )@@G@@C@@ LD:/@@@ /K@[G*C@@ LD:/@@@]/K@[G*R@K LSC@[^V\%@@ I6/K@[GMC@@ LD:/@@@AYA )@@G@@/K@[G*C@@ LD:/@@@]/K@[G*C/@@@^?@@ LD/K@[G\C/@@@]!@@ LD/K@[G\R@K LSN8L^V\YB )@@G@@^^K[GW/,0@$G@@@[GW/K@[G)/K@[G\@LF J*R@K LSN8L^V0^^K[G=/,0@$G@@@[G=/K@[G*YC )@@G@@/K@[G\@LG J*C@@ L0[@@ LSD@@ LO/C@[G,*@@@@G/K@[DX/K@[C?C@@ LS[@@ L0 @@ L1YD )@@G@@C@@ L0G/@@@[[@@ L0C@@^V?G/@@@@?@@ L0/K@[H?R@K L0C@[^V,[@@ LM/,0@$B@@@ LMYE )@@G@@/K@[G2/K@[H[@LR J*C/@@@[C@) LM%@) J] @@@@GC/)@@[*@@ L1 @@@@I+@@@@I/)K[HHYF )@@G@@C/@@@[[@@ L1/K@[G2C/@@@[*@@ L1 @@@@GC/)@@[C[@ LM%[@ J< @@@@I+@@@@I/)K[HTYG )@@G@@C/@@@[[@@ L1/K@[G2C/@@@[*@@ L1 @@@@GC/)@@[C[@ LM%[@ J= @@@@I+@@@@I/=K[G2YH )@@G@@C/@@@[C@) LM%@) J> @@@@GC/)@@[C[@ L1%.@@@[ @@@@I+@@@@I/=K[G2C@@ L0[@@ LSYI )@@G@@D@@ LO/C@[H2*@@@@G/K@[D)/K@[BBN@0[H5/K@[H5RA0 J(R@K KF/K@PJ&AA0 J(A@K KFYJ )@@G@@C8FK@@[^@[C3C8FK@[[^@[C4C8FK@][^@[C6[^@[ER/K@[B^R@K LSC@[^V,%/@@@)/K@[ICYK )@@G@@N@0[IC/K@[I:C@@^V?G/@@@@!@@ LS/K@[IKC8)@@[N@0[IJ/K@[I$@L? J?R@K LSN8L^V,YL )@@G@@^^K[IO/,0@$B@@@[IO/K@[IS/K@[IV@L! J?/,0[#!@@@@@@@L, J?R@K LSC@[^V,%/@@@)YM )@@G@@/K@[I-N@0[I-/K@[I:C@@ LSG/@@@[[@@ LS/K@[ICN@0[I$/K@[I:!^) J%/K@@K"H8)@@[YN )@@G@@[^) J%RA0 J!R@K KH/K@PJ%C8@@@#AA0 J![^@ J%A@K KHC8FK@[[^@[IT/K@[I]/,0[-2YO )@@G@@@@@ L @@@ MC@L6 J1C@@ MD;)@@@G;C@@@G;@@@@SC@) J,)@)@@G[@0 MDR/K@@[N_0@@JYP )@@G@@A@K LD(@[ MB/K@[JDO/K@@[8N0[J]C/@@@L[@@ LDC@@ LDG/@__"[@@ KJ/,0E[P@@@ IVYQ )@@G@@@@@ KJ@@@ MC@M@ J1N@0[JN/K@[JNRA0 J2R@K KKN#0 KL/K@PJ\AA0 J2A@K KK^#0 KLYR )@@G@@/K@[I5C8FK@@[^@@$O[^@@*#C8FK@[[^@@$R[^@@(G/K@@$L/,0@F+@@@ M:@@@ M:@@@E@ YS )@@G@@@@@ M?@@@ M!@[S N /,0@F+@@@ M:@@@ M:@@@E@)@@@ M?@@@ M,@[T N /,0@F+@@@ M:YT )@@G@@@@@ M:@@@ 4[@@@ M?@@@ M\@[U N /,0@F+@@@ M:@@@ M:@@@ANL@@@ M?@@@ M0@[V N YU )@@G@@C@@ M1[@@ OKC/)@@[[@) OL @@ OM @@ ON @@ OO @@ OP @@ OQN@0[KD/K@[T4C4@ N=YV )@@G@@[@@ OR/,0@$G@@@ OR/K@[KK/K@[LY@[$ N C@@ D^G/@@@@?@@@@@/K@[KQN@0[KQ/K@[T4YW )@@G@@/,0[Y'/K@[K!/K@[LY@@@E@ @[% N R@K OTC@@ OTG/@@@[R@) M2Q@)@@GN_0@@ C@@ OEYX )@@G@@[@]&OX8N0[K- @[AO=C@) OK[@-AO> @[AO&C[@ OLG.@@@D[[@ OLC.)@@[[[) ONC@@@@@YY )@@G@@G@@ N>[@@ OUR@) OTN8MAO&^^K[K4/,0[WP@@@[K4@@@ OU@[6 N (@@ N&/K@[K.R@K OTYZ )@@G@@C@@ N&[@[AO[@@ OWR@) OTZF )@@G@@N8MAO)^^K[M /,0[WP@@@[M @@@ OW@]X N (@@ N&/K@[MHR@K OTC@@@@@[@[AOYN@0[MJZG )@@G@@/K@[T4C/@@@$!@@ N=/K@[MON@0[MO/K@[T4R@) N=*@]ANK/K@[MTC@@ OK[@]ANKR@K N=ZH )@@G@@N8LAN7^^K[MX/,0[WP@@@[MX@@@@@@@]( N C/@@@K!@@ N=/K@[M>C/@@@[[@@ OPC/@@@VZI )@@G@@!@@ N=/K@[M%C/@@@[[@@ OQN@0[M?/K@[T4(@@ ON/K@[Q[C/@@@[D@) DB*@@@@I1@@@@IZJ )@@G@@ @@@@GC@) DHG@) DIC.@@@[*@@@@I @@@@K+@@@@K/=K[Q[C@@ DAG@@ DBG@@ DCG@@ DDZK )@@G@@:/@@@^/K@[N@C@@ DBG@@ DE*@@@@G/K@[NA/,0[>#@]7 N C@@E@ [@@ OXR/)@@]N_0@@TZL )@@G@@A@) OYC@@ OX[@@ OSD@@ OS*@@@@G1@@@@G/K@[P4R@K OSC^[ 4@[@@ OZR@K OZC@-AO>ZM )@@G@@[@) O)C[@ OE[[@ O-R/K@@[N_)@B3A@K O+(@@ O)/K@[N"R@0 O)N8NAOY^^K[N&N8L [FZN )@@G@@^^K[N*N8L^9R^^K[N(/,0@>*@@@[N&@@@ O)@@@[N*@@@[N(@#B N N8L^9R^^K[N,/,0[-2ZO )@@G@@@@@[N,@@@^P!@#C N C@@^P,;)@@@A;C@@@AC@L^9R;)K@@Y;G@@@Y[@L^9RC4[ [F[)[^9RZP )@@G@@O/K@@[8N)[NVC@@ OI[@@ O-C@@ OZG/@@@^[@@ OC@#AOY;)@@@V;C@@@V[@@ O&/@@[OQG/@_"V/@@[OX/G@[OXO/0@@[G_)@@[ZR )@@G@@8N)[OBC@@ OE[@@ I^/K@[O)R@K OZC@[AO<:@@ M4/K@[ONC@@ M5[@@ I^/K@[O)R@0 O&ZS )@@G@@C@# DQ[@@ I^*@@ DB/K@[P-R@K OSN8L O0^^K[O$/,0@I[@@@ M6@@@[O$@@@ M7@#& N ZT )@@G@@R@0 OZN8NAO<^^K[O\/,0@I[@@@ M8@@@[O\@@@ M9@#$ N R@K OZN8LAOY^^K[O7/,0@I[ZU )@@G@@@@@ M'@@@[O7@@@ M;@@@ M/@@@ M?@#* N /,0@I[@@@ M.@@@ I^@@@ M7@#( N C@@ O=ZV )@@G@@G/@__";O@@@=W/@@@IR/0@@[[@@@[IA@0 OVC@@ OVH@@ O=G/@__"]@@ O$C/@@@I!@@ O$ZW )@@G@@/K@[PLC/@@@I[@@ O$N8N^9R^^K[PQ/,0@I#@@@ M?@@@ M"@@@[PQ@@@ M7@@@ O$@@@ M:ZX )@@G@@@#0 N /,0@IB@@@ M6@@@ MS@#1 N O/0@@I8N)[PBD@@ DI*@@@@G1@@@@G/K@[P$/,0[V2ZY )@@G@@@#6 N D@@ DH*@@@@G1@@@@G/K@[P!/,0[-#@#8 N R@K OSCC[ 4@[@@ OXD@@ OX/C@[P4ZZ )@@G@@*@@@@G/K@[NFC@]E@^[@@ OXO/)@@[8N0[NE(@@ DI/K@[Q[(@@ DJ/K@[Q[/,0@J'@@@^V\AA )@@G@@@@@ DJ@@@^]'@^# N (@@ OO/K@[S D@@ DC/C@[QB*@@@@G/K@[S *@@ DE/K@[QF/,0[&TAB )@@G@@@^D N C@@E@)[@@ OXR/0@@]N_0@@1A@0 OYC@@ OX[@@ OSD@@ OS*@@@@G1@@@@G/K@[S[AC )@@G@@R@K OSC^[ 4@[@@ OZR@) OZC@+AOZ[@) O)C[@ OE[[@ O-R/K@@[N_)@B3A@K O+(@@ O)AD )@@G@@/K@[R#R@) O)N8MAOY^^K[Q:N8L [F^^K[Q!N8L^9R^^K[Q,/,0@>*@@@[Q:@@@ O)@@@[Q!AE )@@G@@@@@[Q,@^T N N8L^9R^^K[Q3/,0[-2@@@[Q3@@@^P!@^U N C@@^P,;)@@@A;C@@@AC@L^9RAF )@@G@@;)K@@Y;G@@@Y[@L^9RC4[ [F[)[^9RO/K@@[8N)[Q)C@@ OI[@@ O-C@@ O+G/@__"[@@ O=AG )@@G@@R@) OSN8M O0^^K[RF/,0@I[@@@ M6@@@[RF@@@ M7@^- N R@K OZN8LAOY^^K[RN/,0@INAH )@@G@@@@@ M_@@@[RN@@@ M7@^+ N /,0@I[@@@ N@@@@ O-@@@ M7@^< N C@@ O=G/@__";K@@@^AI )@@G@@R/)@@[[@@@[IA@) OVC@@ OVH@@ O=G/@__"]@@ O$C/@@@K!@@ O$/K@[R%C/@@@K[@@ O$AJ )@@G@@N8M^9R^^K[R\/,0@I#@@@ M?@@@ N[@@@[R\@@@ M7@@@ O$@@@ M:@^% N /,0@IB@@@ M6AK )@@G@@@@@ MU@^: N O/)@@K8N)[R)R@K OSCC[ 4@[@@ OXD@@ OX/C@[S[*@@@@G/K@[QKC@#E@ZAL )@@G@@[@@ OXO/0@@[8N0[QJD@@ DD/C@[SD*@@@@G/K@[T2*@@ DE/K@[SJ/,0[*]@@@ OP@@@ OQAM )@@G@@@^7 N R/)@@]R/K@@[N_0@@&A@K OSC/@@@[*@@ OP @@@@GC/)@@[C.@@@K![@ OS @@@@IAN )@@G@@+@@@@I/=K[T2C/@@@[*@@ OQ @@@@GC/)@@[C.@@@V![@ OS @@@@I+@@@@I/=K[T2C@[ANKAO )@@G@@[@@ O)C@) OE[@) O-R/0@@[N_)@B3A@0 O+(@@ O)/K@[S.R[@ O)N8OAOY^^K[S4N8N^9RAP )@@G@@^^K[S7/,0@>*@@@[S4@@@ O)@@@ O*@@@[S7@ A N O/0@@[8N)[S:C@@ OI[@@ O-C@@ O+AQ )@@G@@:/@@@[/K@[T\C@@ O+G/@__"[@@ O=/,0@I[@@@ M6@@@ O-@@@ M7@ H N N8MD"5^^K[TGAR )@@G@@/,0@I[@@@ M8@@@[TG@@@ M8@ I N C@@ O=G/@__";O@@@=W/@@@PR.@@@[[@@@[IA[@ OVAS )@@G@@C@@ OVH@@ O=G/@__"]@@ O$C/@@@P!@@ O$/K@[TZC/@@@P[@@ O$N8O^9R^^K[T=/,0@IPAT )@@G@@@@@ M?@@@ N]@@@[T=@@@ M9@@@ O$@@@ M?@ P N /,0@IB@@@ M6@@@ MW@ Q N O.@@@PAU )@@G@@8N)[TPO/)@@]O/K@@[8N0[SMN@0[T4/K@[T4RA0 NAC[) N(C#) N%R@K N:R@) N?R@0 N!AV )@@G@@R[@ N,N#) N\N#0 N0/K@PN#AA0 NA[^@ N#[[) N([#) N%A@K N:A@) N?A@0 N!A[@ N,AW )@@G@@^#) N\^#0 N0/KH@@@C8@@@[/\K[T"/K@[-CC8@@@B/\K[T"/K@[-DC8@@@ /\K[T"/K@[-VAX )@@G@@C8@@@#/\K[T"/K@[-*C8@@@[/\K[T"/K@[-1R@K OSR@) DJC@[ O0[@]^V\C@) OZG/)@@[AY )@@G@@C[@ DJG.@@@[R@K M2Q@K@@KR@0 M2Q@0@@IN_0@@ C@#&OX[@[=V\8N0[U>C@) I^[@+^V6AZ )@@G@@C[@ O=[[]^V7C[) DJG.)@@W[[) DJ @@ O(/K@[VVC@@ DJG/@_<_]@@ O%C@) O=H@) O(BA )@@G@@[@) O$C@@ O%G/@@@@!@@ O$/K@[U.C@@ O%[@@ O$R@K DJR@0 O(N8N^9S^^K[V^N8L^V\BB )@@G@@^^K[VA/,0@F+@@@[V^@@@ M?@@@[VA@@@ M?@@@ O$@ , NEC@@ O$;O@@@=W/@@@W9*@ N2BC )@@G@@T/@@@W[@@ O:(@@ N3/K@[VPC@@ O:G/@@@W[@@ O:C@@ DJG@@ O:[@@ DJC@) O(G@) O:BD )@@G@@[@) O(C@@ DJG/@@@@?/@@V6/K@[V>/,0@J'@@@^V\@@@ NB@@@^]'@ 6 NE @@ DJC@@ O(BE )@@G@@G/@@@@?@@ O=/K@[U1N@0[V:/K@[V:RA0 NFC[) N4R@K N5R@) N6R@0 N7N#0 N8/K@PNCBF )@@G@@AA0 NF[[) N4A@K N5A@) N6A@0 N7^#0 N8/K@[USR@K OKC@@ N'[@[AOYR@K@@@N8LAOYBG )@@G@@^^K[W[/,0@>>@@@ OK@@@[W[@ _ NJC@@ OK[@@@@@G/@__"[@@ OKC@@ OLG/@@@GC@) OKBH )@@G@@G/)@@@!@)@@G/K@[WK/,0[ZW@@@ NG@A# NJN@0[WM/K@[WMRA0 NKR@K N;/K@PNHAA0 NKBI )@@G@@A@K N;C8FK@@[^@[V/[^@[W^C@VK@[[@K N'/K@[V9C_)@@@N_0@@ [#) OSC@@ N=;)@POSBJ )@@G@@;C@@@Y[@@ O!C@@ O!:@@ M3/K@[W1/,0@$G@@@ O!/K@[W7/K@[W?@AK NN/,0@$B@@@ O!BK )@@G@@/K@[W//K@[W3@AL NNG_)@@A8N0[WZC8)@@]N@0[W6/K@[Y0@AO NNC@@ O!G/@__'[@@ O!BL )@@G@@ @@ O?/K@[XCC@@ O!G/@__K[@@ O!C@) OSG/)__-;O)@@=W/)@@AT/)@@EH@) O!]@) O!BM )@@G@@C/@@@[[@@ O?R/K__"O@K N.O@K O!C@[@@@[@@ O, @@ O\/@@[YL/G@[YLR@K O,C@) N=BN )@@G@@H@- O0/@)[XQ/G)[YL/K@[X$C^- 4@[@) OTC@@ O?/=@[Y?R@K OTC@@ N&H@[AO<(@@@@GBO )@@G@@/K@[Y?A@K N"C@@ N&:@@ M4/K@[X$R@K N"C@[AO<%@@ M4/K@[Y?C/@@@[C@) N&%@) M4BP )@@G@@ @@@@GC_)@@[N_0@ZJ[@@ N"[#) OXR@K O,CC[ 4@[@@ O\/@@[YW/G@[YWR@K O\C@) N=BQ )@@G@@H@- O0/@)[X'/G)[YW/K@[YEC^- 4@[@) OTC@@ O?/=@[Y?R@K OTC@@ N&H@[AO<(@@@@GBR )@@G@@/K@[Y?A@K N_C@@ N"/=@[YER@K N_C@[AO<%@@ M4/K@[Y?C@@ O\[@@ O,G_)@@[8N0[X,BS )@@G@@/,0[ZW@@@ N]@B] NNC@@ OMG/@@@[[@@ OMR/K__"O@K N.O@K O![@[@@@R@K OMC@) O,BT )@@G@@[C- 4@/K@[Y=C@@ OMG/@@@[[@@ OMR@K O,R@) OMCC- 4@[C+ 4@[C[ 4@R@) OMC@@ N=BU )@@G@@[@] O0C@) OL[^+ 4@[@) OTN@0[Y?/K@[Y4C8)@@[N@0[Y\/K@[Y0@BI NN!^) NL/K@@K"BV )@@G@@H8)@@[[^) NLRA0 NOC#) O@R@K O[R@) O]N#0 O#/K@PNLC8@@@^AA0 NO[^@ NL[#) O@BW )@@G@@A@K O[A@) O]^#0 O#C8FK@][@@ N./K@[WX/,0@IB@@@ M6@@@^7\@BM NU/,0@IB@@@ N]BX )@@G@@@@@ MY@BN NU/,0@IN@@@ NP@@@@@@@@@ M/@BO NU/,0@ID@@@ NQ@@@ NR@@@ M<@BP NUBY )@@G@@/,0@&1@BQ NUN@0[ZU/K@[ZURA0 NV/K@PNSAA0 NVC8FK@@[^@[ZI/K@[Z^C/@@@[!@@ DHBZ )@@G@@/K@[)MR@K OSN8L O0^^K[Z*/,0@I[@@@ M6@@@[Z*@@@ M7@BX N+/,0@I[@@@ M8@@@ D@CA )@@G@@@@@ M'@BY N+/,0@I[@@@ NW@@@ D]@@@ M'@BZ N+/,0@IB@@@ NX@@@ M(@B) N+R@K OZCB )@@G@@N8LAO<^^K[Z"/,0@I[@@@ M"@@@[Z"@@@ M9@B- N+R@K OZN8LAOY^^K[)A/,0@I[@@@ NYCC )@@G@@@@@[)A@@@ M;@@@ M/@@@ M?@B+ N+/,0@I[@@@ NZ@@@ O-@@@ M7@B< N+/,0@H0@B= N+CD )@@G@@C@@ O=G/@__";O@@@=W/@@@ER/K@@[[@@@[JA@K O0R@) OSN8M O0^^K[)Y/,0@I[@@@ M6CE )@@G@@@@@[)Y@@@ M7@B* N+/,0@I[@@@ M_@@@ D@@@@ M7@B( N+C@@ O0H@@ O=G/@__"]@@ O$CF )@@G@@C/@@@E!@@ O$/K@[)\C/@@@E[@@ O$N8L^9R^^K[)3/,0@I[@@@ N@@@@[)3@@@ M7@@@ O$CG )@@G@@@@@ M:@B! N+/,0@H0@B, N+O/K@@E8N0[)SN@0[)"/K@[)"RA0 NC@VK@^[@K N$C@VK@ [@K N&CJ )@@G@@/K@[KDC@VK@@[@K N=C8FK@[[^@[K![^@[MF[^@[L"[^@[KM[^@[MYC@VK@][@K N>C@VK@#CK )@@G@@[@K N&/K@[L)C@VK@@[@K N=C8FK@[[^@[K![^@[MF[^@[L"[^@[KM[^@[MY/K@[MJ/K@[M?CL )@@G@@R;@@[C9?0E[NE@VK@@;GK@@=W8K@@EG9I@@:;^0@@AP;@@@A/^K[-5R#VK@@/CK[-_/@K[-_CM )@@G@@G9@@@W;^/@@@9*;K@[/KF@@#C9K@@@R#@^V\P;@@@A/G@[+S!8@@@T/K@[+SRB?E[ZRFWE[ZCN )@@G@@/K@[+GO;)@@[8#K[+I/K@[+SR7"@@@C[J^V,%1I@@@/K@[+FR\"@@@/@0[+RC[J^V,%(I@@@CO )@@G@@/K@[+FCPY@@@[[VK@@/KF@@]C/@@@[C@:K@@G/)__"*@@@@I1@@@@I @@@@GC/)@@[C.@@@ICP )@@G@@H[FK@@*@@@@K1@@@@K @@@@I)@@@@I/=K[<\/,0@IB@@@E]_@@@^7\@[:E#AC@@E#DT/@@@BCQ )@@G@@G/@@@[[@@E#JR@KE#JO/K__"N8L^7\^^K[+7/,0@ID@@@E#@@@@E#[@@@[+7@[!E#AD@@^V?CR )@@G@@*@@@@G1@@@@G/K@[<\C@@E#][@@E#KC@)^V?G/)__"R/K@@[[@)@[^A@KE#LC@[^V,[4@E#KCS )@@G@@C@)E#L;O)@@=W/)@]][@0E#MD@@E#M/C@[Y/,0@IB@@@EB)@@@[>Y@[PEB(N8M%B;^^K[>>DF )@@G@@/,0@ID@@@EBW@@@EB-@@@[>>@[QEB(8L@[>Q/,0@IB@@@EBV@@@EBK@[TEB(/,0@ID@@@EBWDG )@@G@@@@@EB-@@@EBM@[UEB(R@KEB+R@)EB/DH )@@G@@/,0@IB@@@EB-@@@[>/@[ZEB(N8M%CW^^K[&]/,0@IB@@@EB=@@@[&]@[)EB(N8L%C=^^K[&DDI )@@G@@/,0@ID@@@EBW@@@EB>@@@[&D@[-EB(8L@[>4/,0@ID@@@EB&@@@EBV@@@EBS@[=EB(N@0[&NDJ )@@G@@/K@[&O@[>EB(RA0EB%R@KEB?R@)EB!N[@EB,/K@UB$AA0EB%A@KEB?A@)EB!^[@EB,/K@[>DDK )@@G@@/,0@ID@@@EDJ@@@EDK@@@EC4@#;EDS/,0@ID@@@EDL@@@EDM@@@EC6@#/EDS/,0@ID@@@EDLDL )@@G@@@@@EDN@@@EC/@#.EDSC/@@@J[@@ED+D@@EDV*@@@@G1@@@@G/K@[&5C/@@@<[@@ED+D@@EDWDM )@@G@@*@@@@G1@@@@G/K@[&;C/@@@7[@@ED+C@@ED+G/@__"R/K@@[[@@@[^A@KED/@)[$,/G)[$,R@)ED>O/)__"A@)EDXC@@ED=%/@@@[/K@[$ODO )@@G@@C/@@@A[@@ED&/,0@IB@@@EDK@@@EDF@^HEDSC@@ED=%/@@@]/K@[$TC/@@@W[@@ED&C@@ED=DP )@@G@@%/@@@#/K@[$YC/@@@4[@@ED&C@@ED=%/@@@^/K@[$G/@__"R@KEG$[@@EG(C@@EGJ[@[@@@[@[@@[C@)EGKR@)EG<[@+@@@[@]@@[DU )@@G@@R@)EG=[@]@@@[@]@@[R@)EG&[@]@@@[@]@@[ @@@@@C.@@@^[1@@@@C[)EG>G.)@@[[[)@@@DV )@@G@@D@@EG>/C@[*&*@@@@G/K@[([/,0@IB@@@EGL@@@^7\@[NEG-/,0@IB@@@EGM@@@EG @[OEG-DW )@@G@@D@@EG>*@@@@G1@@@@G/K@[*7/,0@I[@@@EGN@@@@@@@@@EGO@[QEG-/,0@H?@@@EGP@[REG-DX )@@G@@/,0@ID@@@EGP@@@EGL@@@EGF@[SEG-/,0@&Z@[TEG- @@EG2 @@EG3 @@EG4 @@EG5C_)@@[DY )@@G@@R@)EG*N#0EG([#)EG6C/@@@[?@@EG6/K@[(-/,0@F+@@@EGH@@@EGQ@@@EG8@@@EGR@@@EGSDZ )@@G@@@[C8FK@#[@@EG$[^@[(1[^@[:C8FK@A[@@EG&[^@[?@[^@[:[C8FK@B[^@[:B[^@[*-ET )@@G@@C8FK@C[^@[:Z[^@[(4[^@[(%[^@[*W[^@[:^[^@[?E[^@[%*[^@[?#[^@[%O[^@[*Y/K@[*FEU )@@G@@9?FK@@9*@EH^9*@EHJ @@EHZC4FK@[?8@@@A/K@[!=A]0EHZ9?FK@[9*@EHL9?FK@]9*@EHPEV )@@G@@C@@EHV[@@EHOC8@EHJ'=@@[ [@:K@A*@@@@I/KFK@BC@@EHT[@@EHD/K@[!> @@EHDC@F@@#EW )@@G@@[C@EHEC@F@@^[^@EHEC@FK@ ;G@@@=W8@@@W[C@EHFT8@@@W[C@EHCA]0EHWC8@EH^/,0@X+EX )@@G@@/K@[!5R]0EHW/KF@@DR]0EHWG9K@[@[[VK@A/KFK@BC@F@@@[^@EHGC@VK@[[^KEHF/@K[, EY )@@G@@/GK[, ;CK@@[H8K@@[&;@@@];G)@[C9*?)@@8#K[,#A]0EHXC8@EH^/,0@VM/K@[!5/K@[,MEZ )@@G@@R]0EHXC4@EHI/^@[!9(@@EHZ/KF@@^**@EHI/K@[!9/KF@@^R]0EHX/KFK@]A]0EHXC8@EH^FA )@@G@@/,0@YJR]0EHX/KF@@[ @@ D @@ DA @@ DB @@ DC @@ DD @@ DE @@ DFC/@@@[[@@ DGFB )@@G@@ @@ DH @@ DI @@^]/ @@ DN @@ DO @@ D^/,0@>H@@@^9S@@@^95@[YEI0 @@EI9R/K@@[FC )@@G@@N_0@[[C@[^94:/@@@ /K@[,8C@@EI9G/@@@[[@@EI9R@)EI9C@-^94[@+^94O/K@@[8N0[,\FD )@@G@@C@@EI9[@@EI;G/@@@[[@@EI/R@)EI/C@)EI9G/)_".N8M^94^^K[\B]@)EI2/,0@F+@@@EIXFE )@@G@@@@@EIY@@@[\B@@@EIZ@@@EI2@[:EI0 @@EI./,0[?-@@@^9S@@@^95@@@EI;@@@EJB@@@ DLFF )@@G@@@@@ D@@@@ D]@@@EI.@@@EI"/K@[4&/K@[4+@[!EI0/,0@IB@@@EI)@@@EH)@[,EI0C4@EI"FG )@@G@@[@@EI_C))EI"[@)EJ@C.@@@[[[@EJ[D@@EJ@*@@@@G1@@@@G/K@[\;D@@EI_*@@@@G1@@@@GFH )@@G@@/K@[\3/,0@I[@@@EIZ@@@EJB@@@EI_@[6EI0C@@EI_G@@EJ[[@@EJ[/,0@I[@@@EJ[@@@EH+FI )@@G@@@@@EIZ@[8EI0C@@EJ[G/@@@[[@@EJ[C0@EI"[@@EI_D@@EI_*@@@@G1@@@@G/K@[0B/,0@I[FJ )@@G@@@@@EJ[@@@ DL@@@EI_@[.EI0/K@[0H/,0@IB@@@EJ[@@@EH=@[_EI0C/@@@^[@@EI_C@@EI_FK )@@G@@G@@EJ[[@@EJ[/,0@IB@@@EJ[@@@EH&@]]EI0R@KEI-N_0@@^C@[^P?[@[%JE8N0[0Q/,0@J3FL )@@G@@@@@EJD@@@EI+@@@EJ]@]DEI0 @@EJ#/K@[0@@@EIZ@@@EH,@]\EI0FW )@@G@@/K@[4JC/@@@[[@@ DI/,0@KW@]2EI0/K@[0)C@@ DHG/@@@[[@@ DH/K@[0)C/@@@[[@@ DCFX )@@G@@/K@[0)C/@@@[[@@ DD/K@[0)C/@@@[[@@ DO/K@[0)C/@@@[[@@ DB/K@[0)C/@@@[[@@^]/FY )@@G@@/K@[0)C/@@@[[@@ DN/K@[0) @@ DG/K@[0)D@@EJ#*@@@@G1@@@@G/K@[3#/,0@H?@@@EI&FZ )@@G@@@# EI0/,0@K\@@@EH4/K@[3Q@@@EJ]@#AEI0/,0[!I@@@EH7@@@ D@@@@ D]@@@^';@@@ [;GA )@@G@@@@@EI$@@@EJ]/K@[3%@#BEI0C8)@@[N@0[3P/K@[4*@#CEI0/,0@ID@@@EI*@@@EI)@@@EH'GB )@@G@@@#DEI0/,0@IB@@@EI)@@@^7\@#EEI0/,0@IB@@@EI<@@@EH/@#FEI0/,0@IJ@@@EI&@@@EI(GC )@@G@@@@@EJ]@@@EI%@#GEI0/K@[4J/,0@ID@@@EI*@@@EI)@@@EI]@#IEI0/,0@IB@@@EI)@@@^7\GD )@@G@@@#JEI0C@@EJ]G/@__./@@[3./C@[4E/,0@ID@@@EI&@@@EI<@@@EI^@#NEI0/K@[4JC=@EJ]GE )@@G@@[@@EJA/,0@IB@@@EI<@@@EIE@#QEI0/,0@IP@@@EI>@@@EI:@@@EJA@@@EIX@#REI0/K@[4JGF )@@G@@/,0@ID@@@EI>@@@EI<@@@EIJ@#TEI0/,0@IB@@@EI)@@@EIQ@#UEI0/,0@I#@@@EI>@@@EI?GG )@@G@@@@@^9S@@@EI!@#VEI0/,0@ID@@@EI&@@@EI)@@@EIV@#WEI0C8)@@#N@0[4-/K@[4*@#XEI0GH )@@G@@C8)@@]N@0[4>/K@[4*@#YEI0N@0[4*/K@[4?!^)EI,/K@@K"H8)@@[[^)EI,RA0EI1C#)EI3GI )@@G@@R@KEI4R@)EI5N#0EI6/K@UI,C8@@@^AA0EI1[^@EI,[#)EI3A@KEI4A@)EI5^#0EI6/K@[,TGJ )@@G@@/,0@>H@@@@@@@@@EJ-@[ EJRC_)@@[R/K@@@N.@@@G[#)EJYC@[EJ-:@@EJK/K@[5DO/K@@[GK )@@G@@G_)@@[8L@[5[/K@[5%C@@EJYG/@@@[[@@EJZG/@__"D@)EJZG/)@[]C#)EJZR@K@@G[@)@[^GL )@@G@@[#)EJ)C@[EJ-:@@EJL/K@[5UO/K@@[G_)@@[8L@[5M/K@[5%R@KEJ)C@[EJ-%@@EJM/K@[5%GM )@@G@@R@KEJ)C@[EJ+%@@EJN/K@[5%R@KEJ)C@[EJ<%@@EJO/K@[5%C8)@@]N@0[5(/K@[5!@[XEJRGN )@@G@@N@0[5?/K@[51@[YEJR!^)EJP/K@@K"H8)@@[[^)EJPRA0EJSC#)EJUR@KEJVN[@EJW/K@UJPGO )@@G@@C8@@@#AA0EJS[^@EJP[#)EJUA@KEJV^[@EJWC8FK@@[^@[4;/K@[4'@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PROCEDURE & GQ )@@G@@______ NOT FOUND IN FILE & ______ PROCEDURE &______ CANNOT READ.& GR )@@G@@______BSP ERROR STATUS=&______FORTRAN PROCEDURE TABLE IS EMPTY. FILE=& GS )@@G@@______ &______I-O ERROR. STATUS=& ______FILE=&______PROCEDURE=& GT )@@G@@______ &______@@@@@@_____"@@@@@O@@@@@Z@@@@@G@@@@@!@@@@@#@@@@[@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@]@@@@@[@@@@@&@@@@@H@@@@@/@@@@@@@@@@@I END @@@@@$@@@@@?GV )@@G@@@@@@@2@@@@[D@#;@@@@#;@@@PROCIT@]!@@@@#;@@]@#;@@]DUMMY @]1@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@^0,@@@@@@@@@^4I@@@^0,@@@^0,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@[@@ @@[@@@@@@@@F@@@@@O@@@@@R@@@@@M@@@@<[@@@@@@@@#;@@@@#;@@@UPSN @L2@@@@@@@. @#;@@[@#;@@[LPRT @M[@@@NMLT @@@@@[HZ )@@G@@NL@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@O@@IA )@@G@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@DA CM@@@@RL EQ IB )@@G@@DM AB EX LG CP DP IN PR DMVR FCTN SBRT SWVR IC )@@G@@FA @@@L@@ LBCM END ]@@@@@@@@@@F@@@@@U@@@@@N@@@@@C@@@@@T@@@@@IID )@@G@@@@@@@O@@@@@N@@@@@@@@@@@@& ______& ______& ______TABLE OVERFLIE )@@G@@OW NO.=& ______DATA PROGRAM IS TO LARGE.& ______F & ______@@@@@@IF )@@G@@@@@@@[@@@@@V@@@@@3@@@@ZK@@@@[I@@@#%S@@[@@@@@@@@ LBCM $BLANK_____"@@@@@AIG )@@G@@@@@@@C@@@@@^@@@@@G@@@@@]@@@@@ @@@@@X@@@@@>@@@@@B@@@@@H@@@@@S@@@@@O@#;@@@IH )@@G@@@#;@@@TBL1 @ V@@@@@@@W@@#;@@[@#;@@[DRUM @ '@@@@@@@@E@#;@@#@#;@@#ENTER II )@@G@@@A^@@@@#;@@@@#;@@@LOCATE@BI@@@@@@@@*@@@@@#@@@@@0@#;@@]@#;@@]OVFL8 @BR@@@IJ )@@G@@@@@@@P@@@@@<@@@@@%@@@@@'@#;@@[@#;@@[PNCH @B1@@@ DMVR FCTN ** IK )@@G@@******@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO IF(L) IF(A) IL )@@G@@GOTO(UC) GOTO(A) GOTO(C) CALL FCT REF RTRN(S) IM )@@G@@RTRN(NS) ASSIGN TAPES INPUT OUTPUT SUB PROG IN )@@G@@STOP ACCEPT DISPLAY ERPRINT REPEAT REPLACE IO )@@G@@GENERATE REGISTER ARGUMENT ALTPRINT MONITOR ASM$INTF IP )@@G@@ABORT BUFFER FILE IDENTIFY JUMP LABELS IQ )@@G@@NAME NEXT READ SCAN UNIQUE WRITE IR )@@G@@ C@FK@@[W@E[YC@FK@[[?@E[YC@F@@][^@E[YC@@E[Y'=@@@I/KF@@^@@@@@@IS )@@G@@@@AE[9@@]E[_@@ E][@@CE]A@@CE]I@@]E]P@@]E]R@@@E]T@@BE]T@@@E])@@@E])@@[E])IT )@@G@@@@]E]-@@[E]<@@@E]=@@^E]=@@@E]*@@DE]*@@CE]1@@@E]9@@@E]9@@@E]9@@#E]9@@@E]/IU )@@G@@@@@E]/@@@E]/]S#S@[]R#G@]]B#N@#]C#C@6]L#T@9]S^$@"]L#O@^]A#C@ ]A#L@A]O^M@BIV )@@G@@]O#N@C]O L@D]O I@E]O#U@F]O@@@G]I#M@H]A#T@I]E#C@J]E#F@K]E#L@L]I#S@7]Q#U@MIW )@@G@@]X#T@N]N#T@O]N#C@P]N^F@Q]N#D@R]R#P@8]O#R@S]U#N@T]O#T@U]E#N@/]N#C@V]N#T@WIX )@@G@@]M#P@X]F#D@Y]F#A@Z]F#Q@)]F@@@-]O#G@+]O#N@<]A#C[@]A#M@=]A#R@>]A#U@&]R#I@$IY )@@G@@]U#N@*#P^L@;#A^L@?]E#T@!]E#W@,]E^E@']E#G@.]E I@(]E T@%]E^D@:]TAE@5]T E@5IZ )@@G@@]TAT@5]T T@5]T#O@\]U#B@0]E#N@1]C#A@_]RAO@2]RAT@3]R#I@4@@@@@@ & ______JA )@@G@@_____"@@@@@[@@@@@O @@@@]]@#;@@]@#;@@]PRTERR@]A@@@& ______V A R JB )@@G@@I A B L E T A B L E& ______& ______VARBLE& ______FLAGS&______JC )@@G@@LB CM&______LINE NUMBERS AND FLAGS& ______& ______@@@@@______"@@@@@[JD )@@G@@@@@@@!@@B@@B@@A@@A@@A@@@@@@@@A@@@@@:@@@@[J@@@@@H@@@@@X@@@@@]@@@@@&@#;@@[JE )@@G@@@#;@@[HEAD1 @[V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@THE FIJF )@@G@@RST FLAG INDICATES THE& NATURE OF THE ALPHABETIC ENTITY& =JG )@@G@@ UNDIMENSIONED VARIABLE& DMVR = DIMENSIONED VARIABLE& FCTN =JH )@@G@@ FUNCTION NAME& LBCM = NAME OF LABELED COMMON& SBRT =JI )@@G@@ SUBROUTINE NAME& SWVR = SWITCH VARIABLE& NMLT =JJ )@@G@@ NAMELIST NAME& & THE FOJK )@@G@@LLOWING TWO CHARACTER FLAGS& INDICATE THAT THE ENTITY IS IN THE& CORRESJL )@@G@@PONDING TYPE OF STATEMENT& AB = ABNORMAL EX = EXTERNAL& CM = CJM )@@G@@OMMON FA = FORML AGUMT& CP = COMPLEX IN = INTEGER& DA = DJN )@@G@@ATA LG = LOGICAL& DM = DIMENSION PR = PARAMETER& DP = DJO )@@G@@BL PRECISN RL = REAL& EQ = EQUIVALENCE NL = NAMELIST& THE FLJP )@@G@@AGS FOLLOWING THE LINE NUMBERS& (ON WHICH THE ENTITY WAS REFERENCED)JQ )@@G@@& INDICATE THE NATURE OF THE REFERENCE& A = SET EQUAL,DEFINED,ASJR )@@G@@SIGNED& B = REFERENCED,CALLED G = FORMAT& C = CALLING JS )@@G@@SEQUENCE H = I-O UNIT& D = SUBSCRIPT I = READ& JT )@@G@@E = SPECIFICATION O = WRITE& J = DO PARAMETER L = LISTJU )@@G@@& & &______S T A JV )@@G@@T E M E N T N U M B E R T A B L E& ______ &______ &______JW )@@G@@OF THE REFERENCE& ______ &______ &______@@@@@______"@@@@@[@@@@@>JX )@@G@@@@D@@@@@D@@D@@@@@A@@@@@/@@^@@^@@#@@#@@@@[J@@@@[)@@@@@]@#;@@[@#;@@[HEAD2 JY )@@G@@@[>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@THE FIRST ENTRY FOLLOWINJZ )@@G@@G THE STATEMENT NUMBER& IS THE NUMBER OF THE LINE ON WHICH IT WAS KA )@@G@@DEFINED& THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH THE& STATEMKB )@@G@@ENT NUMBER WAS REFERENCED) INDICATE THE NATURE& D = DEFINED& S = FOKC )@@G@@RMAT NUMBER&T = NONSTNDRD RTN&U = ASSIGNED& V = DO& W = GOKD )@@G@@TO (CNDTNL)&X = GOTO (UNCNDTNL)& Y = IF (ARITHMETIC)& & KE )@@G@@ & ______T R A N S F E R T A B L E& ______ONLY THOSE EKF )@@G@@NTRIES WHICH ARE REFERENCED ARE PRINTED OUT. THE COMPLETE LIST FOLLOWS&KG )@@G@@______ & ______ & ______@@@@@______"@@@@@[@@@@@!@@@@@A@@@@@]_____.KH )@@G@@@#;@@#@#;@@#HEAD3 @^W@@@DO& GO TO (UNCONDITIONAL)& CALL& RETURN (NON-KI )@@G@@STANDARD)& INPUT STOP& IF (LOGICAL)& GO TO (ARITHMETIC)& KJ )@@G@@FUNCTION REFERENCE& ASSIGN& OUTPUT& IF (ARITHMETIC)& GO TO KK )@@G@@(CONDITIONAL)& RETURN (STANDARD)&TAPES&INTERNAL SUBPROGRAM& NON-STKL )@@G@@ANDARD FORTRAN STATEMENTS.& ACCEPT& DISPLAY& ERPRINT& REPEATKM )@@G@@& REPLACE& GENERATE& REGISTER& ARGUMENT& ALTERNATE PRINTER&KN )@@G@@MONITOR& ASM$INTERFACE& MACROS LISTED BELOW. (NO VARIABLES OR STATKO )@@G@@EMENT NOS. WILL BE GENERATED.)& ABORT&BUFFER& FILE& IDENTIFY& KP )@@G@@JUMP& LABELS& NAME& NEXT& READ& SCAN& UNIQUE& WRITE&@@@@@@@@@@@[KQ )@@G@@@@@@@]@@@@@A@@@@@B@@@@@F@@@@@I@@@@@L@@@@@P@@@@@T@@@@@V@@@@@X@@@@@)@@@@@=KR )@@G@@@@@@@$@@@@@*@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@4@@@@@6@@@@@8@@@@@'KS )@@G@@@@@@@/@@@@@"@@@@[@@@@@[]@@@@[ @@@@[B@@@@@@@@@@@@@@@@@@@@@@@@@@@@[E@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@[R@@@@[S@@@@[U@@@@[V@@@@[X@@@@[Y@@@@[)@@@@[-@@@@[+KU )@@G@@@@@@[<@@@@[=@@@@[&@@@@@@@@@@@@@@@@@@CONTROL CARD ERROR. IMAGE=& ______KV )@@G@@ & ______ ______ TPF$ _____"@@@@@O@@@@@\@@@@[]@@@@@]@@@@@@KW )@@G@@@@@@@[@@@@@G@@@@@.@@@@@*@@@@@/@@@@@,END MERGE @#;@@@@#;@@@CHKCC @]7@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@KZ )@@G@@@@@@@@@@@@@@ @@@@@@& ______******______TPF$& ______. . & ______LA )@@G@@IGNORE INVALID OPTION(S).& ______I OPTION. NO. TOO LARGE.& ______LB )@@G@@I$I$I$ ______I$I$I$ ______ & ______CANNOT ASSIGN FILE. STATLC )@@G@@US=& ______ & ______CANNOT FIND ELEMENT IN FILE.& ______I/O ERROR. SLD )@@G@@TATUS=& ______PROGRAM NOT DEFINED OR OVERFLOW.& ______CONTROL CARDLE )@@G@@ IMAGE=& ______ & ______@@@@@ @@@@@@@@@@@[_____"@@[@@[@@@@@B@@@@@OLF )@@G@@@@@@@0@@@@@#@@@@@]@@@@B@@@@@@_@@@@@0@@@@@H@@@@@$@@@@@P@@@@[]@#;@@@@#;@@@LG )@@G@@CTCDIT@#Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KEJD)@-EG<)@REI2)[EEJTLH )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LI )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LJ )@@G@@@USE I$I$I$, @@@@@*@@@@@P@@@@@R@@@@@O@@@@@CLK )@@G@@@#;@@@@#;@@@TPROC @[Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ@C@->%@MQ@@@___@]<^@@@@E^]3@[0^Q#)@K^]<)NA^].LM )@@G@@&@H^R3@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___/\K@C);G@@@=;^@@@#;C@@@-LO )@@G@@O;@@@0')J)C$8^@@C]/KF@@[/\K@C)A#@@[[E@K@[[R;@@@@W8@@@EO;K@@0;^@@@=')J)C$LP )@@G@@H9@@@[1@@@@K/^K@CFR;@@@-R#K^]O0@@@[[/K@@CX/D@@CV/KF@@[/\K@C);G@@@=R#@@@HLQ )@@G@@;@K@@A')J)C$8^@@CV/KF@@[RB:@@@O#)^]NR#0@@IQ\;@@@C5F@@@8^H@@@/KH@@@/\0@C!LR )@@G@@A3I@@@A\I@@@A:I@@@A$I@@@AMW )@@G@@C^)^QC[^)@I-C?0^QCH80@@[C@@^Q+[@J@@@8#0@I- W@^QD/K@@I\/@K@I\%8K@@[/K@@I%MX )@@G@@ W@^QD/K@@I\C8@@@@H8K@@[W8@@@A[0@^QD[4K^QDA]0^QOC8@^QC/,0@C"R]0^QOC@@^QPMY )@@G@@%8@@@]/K@@I/C^F@@[/,0@EM/,0@DC'^@^QUR]0^QO/KF@@#A[@^QMA[K^QNR F@@[&9@@@[MZ )@@G@@C@FK@][@@^QQ(CF@@#/K@@JBR9K@@@ @@^QR/K@@JHR[VK@#P9K@@[C@FK@^[@@^QRO'0@@]NA )@@G@@A]0^QO(@@^QR/K@@JQC@K^QR/GK@JOC8@^Q+/,0@E]/K@@JQD@@^QR/,0@D;C@@@AG80@@A;-@@@A')I)MF/K@@LX;*J@@@C@0@@G @@@@KNN )@@G@@;=0@@A')I)MF/^0@L*C9@@@ ')I)MF9?@@[](@@@@L'=@@@MC@0@@G/\@@MAC9@@@/')I)MFNO )@@G@@/\@@MAC9@@@/')I)MF/\@@MAC9@@@ ')I)MFC@0@@H/\@@MAC9@@@:')I)MF/\@@MAC9@@@:NP )@@G@@')I)MF/\@@MAR]K@[[Q'0@@@/SF)@@/KF@@@;=0@@A')I)MF;=0@@A')I)MF/KG@@@[5D@@@NQ )@@G@@[1D@@@[!D@@@[(D@@@[>D@@@/,0@MLQ;)@@@[-D)@@/KF@@@RLIB LMSC37@@@@@@@MP@C@NR )@@G@@^R2^]N@@@@ ^)O@@@@[5"@MQEK+^R3@@@@@()O@@@@@X8@MQED_^R3@@@@@]'^@@G-'^@@G\NS )@@G@@[?-@@['^@@G-'^@@G\@$G@@['^@@G-'^@@G\@$B@@['^@@G-'^@@G\[42@@['^@@G-'^@@G\NT )@@G@@[]L@@['^@@G-'^@@G\@&Z@@['^@@G-'^@@G\@&,@@['^@@G-'^@@G\@&)@@['^@@G-'^@@G\NU )@@G@@[+]@@['^@@G-'^@@G\@P8@@['^@@G-'^@@G\[>#@@['^@@G-'^@@G\[&T@@['^@@G-'^@@G\NV )@@G@@[*]@@['^@@G-'^@@G\[-2@@['^@@G-'^@@G\@X3@@]'^@@G-'^@@G\@O+@@]'^@@G-'^@@G\NW )@@G@@@=X@@['^@@G-'^@@G\@&1@@['^@@G-'^@@G\@&2@@['^@@G-'^@@G\@&5@@['^@@G-'^@@G\NX )@@G@@@+V@@['^@@G-'^@@G\@+Y@@['^@@G-'^@@G\[<8@@['^@@G-'^@@G\[!I@@['^@@G-'^@@G\NY )@@G@@[!9@@['^@@G-'^@@G\[,O@@['^@@G-'^@@G\@M-@@['^@@G-'^@@G\@NE@@['^@@G-'^@@G\NZ )@@G@@@VM@@['^@@G-'^@@G\@YJ@@['^@@G-'^@@G\@X+@@['^@@G-'^@@G\@+7@@['^@@G-'^@@G\OA )@@G@@[UD@@['^@@G-'^@@G\[UG@@['^@@G-'^@@G\[UJ@@['^@@G-'^@@G\[UM@@['^@@G-'^@@G\OB )@@G@@[UP@@['^@@G-'^@@G\[56@@['^@@G-'^@@G\@=;@@['^@@G-'^@@G\@>@@@['^@@G-'^@@G\OC )@@G@@@>H@@['^@@G-'^@@G\@>>@@['^@@G-'^@@G\@>*@@['^@@G-'^@@G\@>0@@['^@@G-'^@@G\OD )@@G@@@&[@@[__"@@@ ILLEGAL ARGUMENT IN CALLING SEQUENCE FOR SUBROUTINE MOE )@@G@@OVER @]E^]P H, ,. @@[^]<@@@@@_@@N^]- , OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@QENDPRG@@@@@@@@@@@@@@@@@@@&Q@@@@@@@@@[[@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@_____"/K@@@@C@@^QS/G@^QUC@K^QC;*K@@G;?@@@S'=@@@I/K@^QU OI )@@G@@ OJ )@@G@@ '=@@[S'=@@@ITCT$ OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@IOW$ 8@A^Q'@@@@@@ I/O ERROR ON SCRATCH FILE - POL )@@G@@ACKET DUMP FOLLOWS@]C^R#@@]^RH@FREE TCT$. @@ ^RK@ASG,T TCT$.,F//POS/25 .OM )@@G@@ CANNOT ASSIGN TCT$ (MERGE) FILE. STATUS IN A0. @]C^RP@@^^RZ@ASG,AON )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ . @@@@@@OO )@@G@@DCTNRY 01A @[A^R?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@A @@G@@^@@@@ ^B @@I@@^@@@@@(C @@K@@^@@@@@]OQ )@@G@@@@@#@ @@@@ ^@@@]@ @@@@@(@@@]@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ASMDCT8 A?QF EBLANK$COMMON@[^@W,BSP OS )@@G@@EH^[KECHKCC D[)DSFCTCDIT G%,DNFDCT8 D[#DSFEDIT$ OT )@@G@@MZ4F^EEDIT$L AX?FGAERU$ A5T^^FE8ARY @ABD?XE8DCT OU )@@G@@)#@@@]E8IPT )#@@@]E8TCTD A,QF EFINDER BP$[JEHDG OV )@@G@@AYMFGAHEAD1 F,!GNDHEAD2 BKHGBDHEAD3 H \[JEIDLIN OW )@@G@@BOUDNFIDL$ E17EDBIDONLY$ M)^F^EITF GYH[LELIBS OX )@@G@@IZBBODMAIN E ]EBEMOVER H:B[EBMRGHD F\?GNDMRG8 OY )@@G@@G/.[LEMSG @AAD?FOP BNGGBDPRINT DUN^TCPROCRD OZ )@@G@@I[;DNFPRTERR BJVGBDRDS GNG[CESDFI M(]GFESQUASH PA )@@G@@D/JF ETBL8 G0=DNFTPROC EC+]UE@@@@@@$IBANK @@@@@2$DBANKPB )@@G@@ @]Q@[#@#;@@D@#;@@D/K@K@]N[)@@VN[K@@UN[@@@TR@0@@SAI@GF )@ @C@)[K@'(PC )@@G@@)ES]&@()ES]&@()@@@A@K@@Q[#)@@P[#@@@O[])@@N[]@@@M[[)@@LAA0@@ @[M@@@AJ@GF PD )@@G@@@@@@@PK@@[@^@@1@C@@@@@@MK@@[@^@]1@C1@@@@[CK@@[@^@@G@F+@@@@@%K@@[@^@@3@F,PE )@@G@@@@@@@9K@@[@^@@$@G-@@@@[ @@@[@^@@U@HC@@@@[ C@@ @^@@@@]Z@@@@[O@@@[@^@]H@H+PF )@@G@@@@@@@=@@@[@^@[I@J\@@@@[]@@@[@^@@#@K.@@@@@6@@@[@^@@C@L@@@@@@/K@@[@^@[I@LCPG )@@G@@@@C@[I@@@[@^@ES@MQ@@C@[IC@@ @^@@@@]Z@@C@[F@@@[@^@[F@W,@@C@[FC@@ @^@@@@]ZPH )@@G@@@@^@@AK@@[@^@C/@MQ@@^@[D@@^@@0C@@ @^@@@@]ZPN )@@G@@@@^@@3@@@[@^@[![&Y@@^@@3C@@ @^@@@@]Z@@^@@D@@@[@^@ #[*F@@^@@DC@@ @^@@@@]ZPO )@@G@@@@^@[)@@@[@^@[F[!I@@^@@G@@@[@^@A-[,T@@^@@GC@@ @^@@@@]Z@@^@@GC@@B@^@@@@#=PP )@@G@@@@^@[?@@@[@^@[ [4'@@^@[?C@@ @^@@@@]Z@@@@@P0@@@@ @@]^]N@@@@[C0@@@@ @@F^]PPQ )@@G@@@@@@@%0@@@@ @@U^])@@@@@#=@@@@ @ND^]'@@@@[ )@@@@ @@]^Q#@@@@[ )@@]@ @@#^Q PR )@@G@@@@@@[O)@@@@ @@2^QC@@@@@=)@@@@ @@1^Q'@@@@@6)@@@@ @@C^R:@@C@[I)@@@@ @[<^R3PS )@@G@@@@C@[I)@@]@ @@L^TQ@@C@[I)@@^@ ?*^T$@@C@[F)@@@@ @@1EAJ@@C@[F)@@]@ @@]EB@PT )@@G@@@@C@[F)@@^@ @]"EB]@@^@@A0@@@@ @@H^R3@@^@[U)@@@@ @[S^S@@@^@[U)@@]@ @@B^TSPU )@@G@@@@^@[U)@@^@ @@2^TZ@@^@[U*@@A@ @@@@#-@@^@[&)@@@@ @@]^UL@@^@[&)@@]@ @[G^UNPV )@@G@@@@^@[&*@@A@ @@@@#Y@@^@@@)@@@@ @@H^VZ@@^@@V=@@@@ @W#^V?@@^@[L=@@@@ @[(^7\PW )@@G@@@@^@@-=@@@@ @J*^9S@@^@@Y=@@@@ @ D@@@^@@J)@@@@ @]I I @@^@@J)@@]@ @[Z KNPX )@@G@@@@^@@J)@@^@ @@& L2@@^@@J*@@A@ @@@@#-@@^@@J*@@C@ @@@@#Y@@^@[()@@@@ @[2 MSPY )@@G@@@@^@[()@@]@ @@$ OE@@^@[()@@^@ ^?+ O1@@^@[(*@@A@ @@@@#Y@@^@[(*@@C@ @@@@#$PZ )@@G@@@@^@@_)@@@@ @@]E[N@@^@[R)@@@@ @@EE[P@@^@@$)@@@@ @[YE[Z@@^@@$*@@A@ @@@@#YQA )@@G@@@@^@[X)@@@@ @@LE].@@^@[X)@@]@ @@ E#I@@^@[X*@@A@ @@@@#-@@^@@!)@@@@ @@0E#NQB )@@G@@@@^@@!)@@]@ @@]E^#@@^@@!)@@^@ @]"E^ @@^@@0)@@@@ @@!EB#@@^@@0)@@]@ @@]EB0QC )@@G@@@@^@@0)@@^@ @[]EB2@@^@@3)@@@@ @@,EC4@@^@@3)@@]@ @@ ED+@@^@@3)@@^@ @]YED$QD )@@G@@@@^@@D)@@@@ @@!EG @@^@@D)@@]@ @@AEG2@@^@@D)@@^@ @@GEG8@@^@@D*@@A@ @@@@#-QE )@@G@@@@^@[))@@@@ @@WEH^@@^@@G)@@@@ @[SEH)@@^@@G)@@]@ @@JEI8@@^@@G)@@^@ @@DEJBQF )@@G@@@@^@@G*@@A@ @@@@#$@@^@@G*@@C@ @@@@#-@@^@[?)@@@@ @@IEJK@@^@[?)@@]@ @@#EJYQG )@@G@@@@^@[?)@@^@ @[]EJ-@EA%7#@EA%7D@EA%7J@EA%7P@EA%7V@EA%7-@EA%7$@EA%7!@EG%7JQH )@@G@@@EG%7P@EG%7V@EG%7-@EG%7$ASGTCT @@S@@!CHKASG @@S@[@CHKCC QI )@@G@@@["@^QCHKLET @[]@]LCHKNUM @[]@]GCSF @@S@@^CTCDIT QJ )@@G@@@]B@ATDCT8 @[ @V@DRMWT8 @@S@@FEBD$L @@@@@CECHAR$ QK )@@G@@@@#@@(ECOPY$ @@#@[LEDECF$ @@#@]HEDITR$ @@#@@HEDITX$ QL )@@G@@@@#@@REDIT$ @@#@@@EMSG$ @@#@[-EOCTF$ @@#@] ERROR8 QM )@@G@@@[]@[=ERRST8 @[]@[3ERSET8 @[]@[>ESKIP$ @@#@@2FINDER QN )@@G@@@[)@@@FPTIS @@0@#+GETOUT @@S@@>HDG @@D@@@HEAD1 QO )@@G@@@[?@[ HEAD2 @[2@[KHEAD3 @[8@[=IDBUFF @],@@[IDJ$ QP )@@G@@@@G@@@IDLIN @@Y@@@IDONLY$ @@-@@]ITF @[X@@@MOVER QQ )@@G@@@@A@@@MRGHD @@%@[ MRG8 @@=@]GMULTY @@_@[&NERR2$ QR )@@G@@@@V@@[NERR4$ @@V@@[NERR6$ @@V@@[NINTR$ @@V@@@NSTOP$ QS )@@G@@@@V@@]OBTAN8 @@S@@HOFEXT8 @[]@[6OFRTN8 @[]@[7OPA QT )@@G@@@@P@@>OPAF @@P@@ZOPAFP @@P@@-OPAP @@P@@$OPI QU )@@G@@@@P@@1OPIP @@P@@3OPOP @@P@@!OPRIME @@P@@@OPRINT QV )@@G@@@@P@@EOPUNCH @@P@@IPACK12 @[]@['PRINT @^F@@@PROCIT QW )@@G@@@@6@^APROCRD @@6@^DPRTERR @[<@[YRDS1 @]^@@@RDS2 QX )@@G@@@]^@@:RDS3 @]^@[AREAD @@S@@@RFTI @@0@@FRPFFPT QY )@@G@@@@0@@4SDFI @@3@@@SDFIC @@3@].SDFIO @@3@]KSQUASH QZ )@@G@@@@_@@@TBL1 @[L@E$TBL2 @[L@E%TBL3 @[L@E!TBL4 RA )@@G@@@[L@E0TBL5 @[L@E3TPROC @]K@@/UPA8 @[]@@@UPB8 RB )@@G@@@[]@@ UPC8 @[]@@MUPD8 @[]@@%UPE8 @[]@@!UPF8 RC )@@G@@@[]@@5UPG8 @[]@[AMEMSQ$ @@@@@[SLT$ @@@^@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@E@@@@ RF )@@G@@ EQU DCTID/010 . DCTNRY VERSION C @[@@@@ SEG A@^@@@@RG )@@G@@ IN MAIN,OP,E8TCTD,LIBS @]@@@@ IN IDLIN @^@@@@IN SYS$*RLIB$.IDONLY$ RH )@@G@@@^@@@@NOT SYS$*RLIB$.SCD01 @#@@@@ SEG B*,(A) @A@@@@ IN DCT8,RI )@@G@@TBL8,ITF,PRINT,FINDER @A@@@@ IN PRTERR,HEAD1,HEAD2,HEAD3 @ @@@@RJ )@@G@@ IN CHKCC,RDS,CTCDIT,TPROC @#@@@@ SEG C*,(A) @#@@@@ IN MRG8,RK )@@G@@MRGHD @[@@@@ END ___AS)@B@@@@^@)^[DD0)CTCDT#CS?EL^ES?CTOCT^DDO -OE[MD9#RL )@@G@@@^@@@@^@)^@)ET C8)CS% )*CC(^@)@ @@@@^@)^@)DDI^[H======@@^@@ @@@@@@@@@@@@RM )@@G@@@@ @HC@@@@ ^@@#@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C#[EDFLMSC37@@@@][RN )@@G@@@@@@ $@@@^@@@@@@@@@@@@@@@@@@@@@@!^@G@@@@@@@@@@@@@@@@@@@@@@@^@@@]X^@@@@@@RO )@@G@@@^@@ ^@^@I@[@ @@ ^K^@3@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@F<@MQ@@@___@@;^R3@@E^TW@#1EAJ)@,^S,>?(^T&@@@___RR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___RS )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___D@@^];/C@@MU*@@@@G/K@@MXRT )@@G@@N@0@MW/K@@OS@[B^SLD@@^]//C@@M-*@@@@G/K@@M>/,0@F,@@@^SB@@@^R3@[E^SLC@@^];RU )@@G@@G/@__"[@@^TQD@@^TQ*@@@@G1@@@@G/K@@M3/,0@F+@@@^#^@@@^SC@@@^]_@@@^SC@@@^TQRV )@@G@@@[I^SLC@@^];;@@@@+C@)^]'[@?^];D@@^TQ*@@@@G1@@@@G/K@@N&C@@^TQG/@__"[@@@[^RW )@@G@@[@@^S:C_)@@[R/K@@@R/)@@^N[K^S:[#)^TSC@@^TS;@@@@+[@@^S?G/@__;C@)^S?G/)@@[RX )@@G@@[@@^S?[@)^S!C@[^].H@]^]./C@@NL*@@@@G/K@@N-C@]^]'H@]^]"/C@@NQ*@@@@G/K@@N-RY )@@G@@R@0^SDQ@0^S!R[@^SDQ[@^S?N.)@@#C@^^].[@@^TUC@<^]/[@==].[@#=]/8L)@NVO/K@@^RZ )@@G@@O/)@@^G_)@@[8LK@N#8L@@M_/,0@ID@@@^SE@@@^SF@@@^R7@[&^SL/,0@ID@@@^SG@@@^SBSA )@@G@@@@@^R9@[$^SL/,0@ID@@@^SG@@@^SB@@@^S[@[*^SLC@@^];G/@__"R/0@@^R.@@@@[@@@[^SB )@@G@@C@#^]/H@#^];*@@@@G1@@@@G/K@@OBN8O^].^^K@O^/,0@I#@@@^SF@@@^SH@@@@O^@@@^SISC )@@G@@@[!^SLO/0@@^O.@@@^8L@@N'/,0@X3@[0^SLC/@@G?;O@@@=W@@^];[@@^TV/,0@UA@@@^T$SD )@@G@@@@@^TV@@@^];@[2^SLN@0@OR/K@@OS@[3^SLRA0^SMC#)^S,R@K^S\R@)^S0R@0^S1R[@^S2SE )@@G@@N[@^S3N[K^S4N[)^S5/K@OSJAA0^SM[#)^S,A@K^S\A@)^S0A@0^S1A[@^S2^[@^S3^[K^S4SF )@@G@@^[)^S5/K@@W!C@@^S7G/@__*@@^TY/K@@QEN@0@QD/K@@T.@]L^S-SN )@@G@@C@@^TY;@@@@^S-/,0@IB@@@^SB@@@^S#@]&^S-SZ )@@G@@G_)@@I8L@@S@R@K^S_C@[D/5G/@@@[[@[D/5C@@^TY;@@@@[^@@S7[^@@PU/K@@O?C@@^TF;@@@@G/@__"T/@@@W[@@^TKC@@^TKH@@^T=*@@@@G1@@@@G/K@@VKTO )@@G@@C@@^TK[@@^T=D@@^T=/C@@VO*@@@@G/K@@VRN@0@VQ/K@@WX@#G^S*C@@^T=;O@@@=W/@@@WTP )@@G@@H@@^T>]@@^TSR@K^TG]@[D/5C@@^TLH@@^T>/C@@V<*@@@@G/K@@W^C@@^TLH@@^T>C@)^T>TQ )@@G@@T/)@@WC[@^TLT[@^TIC[)^TLT[)^TIG[)@@IG[)^THR@K^S=Q@K@@M[@@@[^[[@^TKC@@^TSTR )@@G@@T/@@@WG@@^TKG@@^THN8W@@@^^K@V/N8L)@@^^K@V'/,0@F+@@@@V'@@@^SF@@@@V/@@@^SFTS )@@G@@@@@^S>@#O^S*C@@^TSG/@@@[[@@^TS8L@@V1C@@^TLG/@@@[C@)^T=;O)@@=W/)@@WH@@@@ITT )@@G@@[@@^T&C@)^TLT@)^TIT/@@@WG@)@@GG@)^THR@K^TJN8L^]/^^K@WSN8Y@@@^^K@WQ/,0@J/TU )@@G@@@@@@WQ@@@^T=@@@@WS@#S^S*N@0@WW/K@@WX@#T^S*RA0^S(C[)^TMR@K^TNN[@^TO/K@OS&TV )@@G@@AA0^S([[)^TMA@K^TN^[@^TOC@VK@@[@K^TFC8FK@[[@@^TEC@VK@][@K^TL/K@@U*/K@@MQTW )@@G@@/,0@ID@@@EA(@@@EA%@@@EAJ@[FEA8/,0@ID@@@EA:@@@EA?@@@EAL@[GEA8R@KEA!R@)EA,TX )@@G@@R@0EA\N.@@@D/,0@IB@@@EA%@@@EAS@[KEA8N8N%B]^^K@X^/,0@IB@@@EA0@@@@X^@[LEA8TY )@@G@@N8M%B8^^K@XE/,0@IB@@@EA1@@@@XE@[MEA8N8L%C3^^K@XL/,0@ID@@@EA:@@@EA2@@@@XLTZ )@@G@@@[NEA88L@@W//,0@IB@@@EA%@@@EAU@[QEA8/,0@IB@@@EA3@@@EAY@[REA8/,0@IB@@@EA4UA )@@G@@@@@EA)@[SEA8/,0@ID@@@EA5@@@EA?@@@EA+@[TEA8/,0@ID@@@EA:@@@EA%@@@EA$@[UEA8UB )@@G@@N@0@X?/K@@X!@[VEA8RA0EA9R@KEA;R@)EA/R@0EA.N[@EA"/K@UA6AA0EA9A@KEA;A@)EA/UC )@@G@@A@0EA.^[@EA"/K@@W,MERGED ROUTINES ______& ______ THE FOLLOWING RUD )@@G@@OUTINES ARE MERGED& ______& ______& ______& ___________"UE )@@G@@@@@@@^@@[@@@@@@@@_@@@@@[@@@@@#@@@@@F@@@@@G@#;@@[@#;@@[MRG8 @[3@@@@@@@@@UF )@@G@@@@]@@]@@@@@A@@@@@C@@@@@J@@@@@N@@@@@]@@@@@ @@@@@=@@I@@@@@@@@:@@@@@@@#;@@^UG )@@G@@@#;@@^DMMG @]"@@@@@@@@@@@W@@@@@@@@W@#;@@ @#;@@ BUFIL @#T@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@Z/////@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@& ______M E R G E D V A R I A B L E S& ______& ______VARBLEUJ )@@G@@ ROUTINE& ______FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& ______UK )@@G@@& ______@@@@@______"@@@@@[@@@@@?@@B@@B@@A@@A@@A@@@@@@@@A@@@@@:@@@@[JUL )@@G@@@@@@@O@@@@@=@@@@@]@#;@@[@#;@@[MRGHD @[V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@THE FIRST FLAG INDICATES THE& NATURE OF THE ALPHUN )@@G@@ABETIC ENTITY& = UNDIMENSIONED VARIABLE& DMVR = DIMENSIONEDUO )@@G@@ VARIABLE& FCTN = FUNCTION NAME& LBCM = NAME OF LABUP )@@G@@ELED COMMON& SBRT = SUBROUTINE NAME& SWVR = SWITCH VARIUQ )@@G@@ABLE& NMLT = NAMELIST NAME& & UR )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICATE THAT THE US )@@G@@ENTITY IS IN THE& CORRESPONDING TYPE OF STATEMENT& AB = ABNORMAL UT )@@G@@EX = EXTERNAL& CM = COMMON FA = FORML AGUMT& CP = COMPLEX UU )@@G@@IN = INTEGER& DA = DATA LG = LOGICAL& DM = DIMENSION UV )@@G@@PR = PARAMETER& DP = DBL PRECISN RL = REAL& EQ = EQUIVALENCE UW )@@G@@NL = NAMELIST& THE FLAGS FOLLOWING THE LINE NUMBERS& (ON WHICH THUX )@@G@@E ENTITY WAS REFERENCED)& INDICATE THE NATURE OF THE REFERENCE& UY )@@G@@A = SET EQUAL,DEFINED,ASSIGNED& B = REFERENCED,CALLED G = FORMUZ )@@G@@AT& C = CALLING SEQUENCE H = I-O UNIT& D = SUBSCRIPT VA )@@G@@ I = READ& E = SPECIFICATION O = WRITE& J = DOVB )@@G@@ PARAMETER L = LIST& & VC )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@[<(@MQ@@@___@]0^R3@@X^VJ@[?^7\@@E DQ@[, I @@? KNVE )@@G@@@@E L4@[G MS@@E OE@[ID"7@[5E[N@ABE#N@]/ED$@[,EH^)@?^U<)W#^V?)J;^9V)^> D)VF )@@G@@)@) J3)@5 K_)@U L")@& N==%< OO)[IE@ )@FE#C)@HEDU**PF**@@@@W@@@@@@ @@@@@ VG )@@G@@@@@@@[@@@@J@@@@@L@@@@@N@@@@@P@ C9K@K@[DW@@#K@@@N#A#W@@^ @G@@ VH )@@G@@'=@@@#C5W@@#:9K@@ /K@@M4/ K@M_&;K@@[N8K@@W3[X)@@/K@@M8C[@@MQ:[G@@A/KF@@[VI )@@G@@R;@@@]/KF@@@R;)@@T&;K@@[ @H)@]8#)@M69!@@MQ9(G@@AC9K@C@[DW@@#'=@@@#C5W@@#VJ )@@G@@/[V@@[R;@@@_;@@@@AO#@@@L/KF@@@@@W@@AR;/@@D/K@@NHR;/@@G/K@@NHR;/@@J/K@@NHVK )@@G@@R;/@@M/K@@NHR;/@@PC[K@MQ%[W@@A/K@@O-;@K@@MABW@@^ABZ@@[;GK@@6W8K@@WT8K@@WVL )@@G@@AFW@@^?8K@#^/K@@OYK^W@@^AB\@@]C J@@@/[@@N(K9@@@ [[G@@ ;(K@@AG!Z@@@[DZ@@@VM )@@G@@RFZ@@[?CW@@^AFW@@^:8K@]G/K@@ONC9K@K@/K@@M;R;?@@AR#K@MU;DK@@=O;)@@#:@)@@JVN )@@G@@/K@@N5(^I@@@/K@@N?RBY@@@CDY@@[G9K@@8/K@@N?;D@@@=W9@@@WG[@@@HC[K@MR:8?@@PVO )@@G@@/K@@N"O;)@@#C Y@@@/[K@N8R#K@@JP;W@@D;GK@@=W8K@@#?[H@MUC[H@MUH9K@@B![@@@LVP )@@G@@/K@@OWC9K@@E/@K@OEC9K@@^[!Z@@][ J@@@C9K@]G[DZ@@[C9K@]F;(K@@AG!Z@@][DZ@@]VQ )@@G@@/K@@NXR;)@]FRBZ@@[&;K@@[ @H)@@8#)@OQP;K@@[C!Z@@][DX@@@/KF@@[R;@@@=/KF@@@VR )@@G@@R;@@@O/KF@@@R]@^R"R;@@@E/KF@@@R;/@@D/K@@O?R;/@@G/K@@O?R;/@@J/K@@O?R;/@@MVS )@@G@@/K@@O?R;/@@PA]@^R"/,@@U!RB\@@[RB,@]F?@)@@H/K@@O7C[K@@H/,@@U]A#)@@GR]@^R"VT )@@G@@/KF@@[R;@@@GR]@^R"/KF@@@R;/@@D/K@@P#R;/@@G/K@@P#R;/@@J/K@@P#R;/@@M/K@@P#VU )@@G@@R;/@@PA]@^R"/,@@U!R]@^R"C[@^R8[[G@@ RBK^R.L@K^R9AB?@@^C[K^R9G!Z@@]R;)@@KVV )@@G@@=4!@@#G!Z@@]R;K@@W!9K@@XR;K@@8AFW@@^/K@@M'R;/@@D/K@@PYR;/@@G/K@@PYR;/@@JVW )@@G@@/K@@PYR;/@@M/K@@PYR;/@@PA]@^R"/,@@U!R]@^R"C9K@C@A])^R_*?J@@@/,)@U.R])^R_VX )@@G@@C Z@@[[ W@@^C9K@]G[DW@@^:DZ@@[ @J@@@C Z@@@[[W@@ ^J@@[ CJ@@@/[V@@[/K@@M'VY )@@G@@R;/@@D/K@@P;R;/@@G/K@@P;R;/@@J/K@@P;R;/@@M/K@@P;R;/@@PA]@^R"/,@@U! @@^R6VZ )@@G@@/,@@RAC Y@@@/-@@Q]CDY@@@;D@@@=/[K@QE/,@@U]AE0^R'/,0@QS/K@@QORE0^R'/ K@Q^WA )@@G@@R#@@@KAF@^R7;*@@@#:8@@@SR;@@@);CK@@=O;@@@[AB)^R7R#)^R6/K@@O8RE0^R'RB@^R.WB )@@G@@9?K^R6/K@@O59!H@@@9.I@@@/K@@R#%8/@@D/K@@Q2C!X@@#%!Y@@#/K@@Q%9!H@@^99@@Q=WC )@@G@@9.I@@^/K@@Q$1@H@@#1@I@@#/KF@@@CDY@@]C9@@@#/KF@@[!9K@@ /K@@Q\C9K@@^!!Y@@#WD )@@G@@/K@@Q)C9@@@]C Y@@#/KF@@[%8/@@J/K@@R@C5H@@#-5I@@#=9K@@K/K@@R#>9@@@K/K@@R@WE )@@G@@9!I@@^9.H@@^/K@@R#C[I@@B%[H@@B/K@@R#0@I@@#0@H@@#/KF@@@C9@@@[C Y@@]/KF@@[WF )@@G@@C[X@@@G[X@@[;D@@@=W9@@]FG Z@@[R#)@@L/KC@@@R;/@@G/K@@RSR;/@@J/K@@RSR;/@@MWG )@@G@@/K@@RSR;/@@P/K@@RRR;/@@D CH@@] ^H@@# ^H@@]A]@^R"AA0^R'9!H@@]9(@^R4%8/@@DWH )@@G@@/K@@R+9!@@MZ(@H@@^9(H@@^R;\@@@O;)@@#C Y@@@:8?@@SC[K@MR/[K@R@@S*WN )@@G@@[ Y@@@/K@@S:[DY@@@/K@@S:/,@@U'C[K^R3RA0^R'/,@@U]/,@@U'&;K@@[&;)@@[C5H@@#WO )@@G@@+9@@@Z[5X@@#N?Z@@]C9K@@K=5X@@#N8K@@CM#!)@@RB)^R.:8/@@D*@I@@D/K@@T@'=@@@?WP )@@G@@;@@@@MA#I@@D9?@^R;9!@^R49(H@@]CDK^R.[DZ@@[R#K^R3%8/@@D/K@@QPC!I@@#%9@@@AWQ )@@G@@/K@@TH )G@@SA#W@@T%9@@@ /K@@QPC8K@@[[)W@@S ^G@@P CG@@Q/K@@QP')I@TP/K@@S%WR )@@G@@[ V@@][ V@@#[DV@@]R;/@@D/K@@T+R;/@@G/K@@T+R;/@@J/K@@T+R;/@@M/K@@T+R;/@@PWS )@@G@@AA0^R'/,0@P;/K@@T\R#)@@G9?@^R;/,0@U5RA0^R'%8/@@D/K@@QPC[K^R6:[W@@T @G@@TWT )@@G@@/K@@QPRA0^R'/K@@O8R;/@@AO;0@@#CDZ@@[%9K@]G/K@@T8 ^J@@[ @J@@@*^J@@[/K@@U@WU )@@G@@%8/@@P/K@@T2 @G@@ K@@@N#A#W@@^/K@@M'R;@@@+/KF@@@[D@^R7R#)^R6[[K^R6AB)^R7WV )@@G@@H9K@@[T!Z@@]G9K@]G;D@@@=W9@@@WG J@@@9(@^R8CDZ@@@;DK@@A?[@@@L/K@@UYH[@@@LWW )@@G@@T9@@@WG J@@[G9@@]GG[@^R9[[@@@I[ @^R.G!J@@]:8/@@JG9@@@^C Z@@]![K@@K/KC@@@WX )@@G@@C9K@C@A])^R_*?J@@@/,)@U.C[@^R8;(@@@AG!J@@@[DJ@@@C9K@K@/,)@U.R])^R_C[@^R8WY )@@G@@CDZ@@@;DK@@A/K@@UL9*@^R;C[K@MQ%[W@@A/K@@O)*^J@@[/KC@@@R;@@@M/K@@O8C5I@@#WZ )@@G@@)9@@@)[5Y@@#/,@@U'/KF@@@C9@@@[[!J@@@/KC@@@[DW@@#CDJ@@@;D@@@A[[G@@ L J@@@XA )@@G@@T9K@@WCDJ@@[H[@@@L[DG@@^D J@@[H9@@]G] G@@^G J@@]?DG@@^[DG@@^*CG@@^'=@@@#XB )@@G@@C5W@@#/ K@M_ ?J@@@/KE@@@R#W@@DR#?@@CR#.)@@ @@@[] @@@[#A#/@@E;C0@@Y:80@@_XC )@@G@@/KF@@[A#W@@DR#/@@E;K0@@S/C0@V)R3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^XD )@@G@@H[@@@L/D@@XFN@K@@JM#!)@@A#W@@D*@@@[]/K@@W"R#/@@E;K0@@S/C0@V1R3/@@EPB/@@BXE )@@G@@/G0@WHC G@@DG[@@@J[ G@@DC W@@AGDW@@^H[@@@L/H@@WH0@G@@#'=@@@AC[W@@ GDW@@BXF )@@G@@[[W@@ C5W@@#/[K@W %9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DXG )@@G@@'=@@@[R#0@@K/K@@V3R#W@@DC5X@@@%9K@@(/KF@@]0@G@@E/K@@WPR;0@Z_/K@@WQR;0@@_XH )@@G@@C[W@@E;LK@@S/DK@WUC1W@@E![K@@J/K@@XCC[@@@LG1H@@@! W@@B/K@@X#?@0@@K/K@@W!XI )@@G@@? G@@B/K@@W:C[K@@KH W@@B?@0@@KC[@@@JH1X@@@D@0@@L/K@@W4R3.@@@/K@@W4!^/@@BXJ )@@G@@/K@@W=C[K@@KH[K@@JH1X@@@C[@@@JD@0@@L[1G@@E0@G@@E/K@@W9;D@@@A[5G@@EN0!@@@XK )@@G@@N@0@@JO;K@@[A#W@@D/K@@V+R#0@[]P#0@[#/@0@WH/G0@WH/K@@V3[1G@@E0@G@@E/K@@XCXL )@@G@@;D@@@A[5G@@ER3.@@@O;0@@[/K@@V3P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ XM )@@G@@GDW@@B[[W@@ C5W@@#/[K@XU%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@AXN )@@G@@[ W@@D'=@@@[R#W@@D/K@@V+ @@@@HOBW@@AC[K@@G9??@@@RBG@@A9*?@@@'=@@[GR7?@@AXO )@@G@@R#@@@L!8)@@S!8)@@)/K@@X/RF?@@B?8)@@^/K@@X/+/)__/C[G@@ AF/@@B+9@@@#T80@@WXP )@@G@@H[@@@L%C?@@BAF/@@^T9K@@WO#K@@L[[G@@ ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ XQ )@@G@@GDW@@B[[W@@ C5W@@#/[K@YE%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[XR )@@G@@/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@9?@^TB9()^TDR#0^V?O#0^TB @J^V\XS )@@G@@;H@@[C @@^V! @@^V,R^UK/,0@IB@@@^UF@@@^T0@]&^UK/,0@I[@@@^UG@@@@@@@@@^T;@]$^UK/,0@IB@@@^T"YV )@@G@@@@@^T2@]*^UK/,0@I#@@@^T.@@@^UH@@@@@@@@@^T;@](^UK/,0@ID@@@^U]@@@^T8@@@^T5YW )@@G@@@]%^UKN@0@= /K@@K"@]:^UKC8@^VJ/,0@YJN@0@=E/K@@=I!^)^UI/K@@K"H8)@@[[^)^UIYX )@@G@@RA0^ULC[)^UYC]@^UZC])^U)C#@^U-C#)^U+R@K^UC8FK@@[@@^USC8FK@[[^@@-X[^@@<1[^@@+\C8FK@]ZA )@@G@@[^@@+C[^@@<;[^@@-N[@@^UQ/K@@)TC8FK@@[^@@+"[@@^UR/K@@+;RE;[@@@AC@0@@K;^)@[]ZC )@@G@@8#@@>^[@:K@[/KF@@#9?V@@@&;K@@[&;)@@]R;0@@E*@H@@@/K@@>UC9@@[@C9K@[@9(I)@@ZD )@@G@@9(I)@@9(I)@@8#0@>P/KF@@#C5H@@@C1X@@@9(I)@@C!H@@@C(X@@@9(I)@@C>H@@@C-X)@@ZE )@@G@@9(I)@@8#0@>L/KF@@#C@FK@@[CFK@[/KF@@#CCFK@@[@FK@[C*FK@@[4FK@]COFK@@ @FK@#ZF )@@G@@[OFK@#/KF@@ C@F@@@&;@@@[C@W)@@[4K^VZC@W)@@[0K^VZC@W)@@[?K^VZC@W)@@[*K^VZZG )@@G@@C@W)@@[=K^VZC@W)@@[)K^VZC@)^VZ[@:K@[/KF@@#C[K^V*[[K^VZC@F@@@&;@@@[C8)@@AZH )@@G@@H@:K@]S8)@@]/KJ@&DC@W)@@[4K^VZC@W)@@[0K^VZC@W)@@[?K^VZC@W)@@[*K^VZC@W)@@ZI )@@G@@[=K^VZC@W)@@[)K^VZC[@^VZ[[FK@[/KF@@^C@FK@@+@@^V([@VK@[/KF@@#C^FK@@[@FK@[ZJ )@@G@@/KF@@#'=@@@) @@^V)C@F@@@[^@@&%C@@^V%[@@@&Z/KF@@]C@@^V)G8@@@[[@@^V)?8@@@2ZK )@@G@@/K@@@@R#@^V:'=@@@I'=@@@)C@@^V$[@@@&Z/KF@@[/K@@&!C@F@@@AB@@&1/KF@@]9?V@@@ZL )@@G@@&;K@@[C[X)@@[5Y@@@C[X)@@[1Y@@@C[X)@@[!Y@@@C[X)@@[(Y@@@C[X)@@[>Y@@@C[X)@@ZM )@@G@@[-Y@@@%@:@@[/KF@@#O;)@@[/K@@&7R;@@@\R;K@@9,@FK@@/KFK@]/KFK@[R;@@@ R;K@@ZZN )@@G@@,@FK@@/KFK@]/KFK@[/,0@&2/K@@3=@]D JC @@@@@C/@@@[[@@ D @@@@@ @@ K_ @@ L@ZO )@@G@@ @@ L[ @@ L] @@ L# @@ L^ @@ DK @@ L @@^V!/,0[UD@]Q JC/,0@&,@]R JC/,0@F+ZP )@@G@@@@@ I @@@ IU@@@^9S@@@ IV@@@ IW@]S JC/,0@J3@@@ IB@@@ IX@@@ LA@]T JC/,0@J\ZQ )@@G@@@@@^9S/K@@*]@]U JC[@@ LAC@@ LA+@@ K"/GK@$;*@@@@H/K@@$>C@@^]/[@@ LB/,0[42ZR )@@G@@/K@@*C/K@@*^/K@@$>@]Y JCC/@@@[[@@@@@C@@ LB[@@^]/N@0@*C/K@[]FC@@ DAG@@ DBZS )@@G@@G@@ DCG@@ DD:/@@@^/K@@*&*@@^]//K@@*5C@@ D@[@@^V\C@) D[[@)^V0C@@ IY[@@^V1ZT )@@G@@C@) D][@)^V2C@@ D#[@@^V3/,0@F+@@@ K;@@@ IU@@@^V4@@@ IV@@@ IZ@]: JC/,0@F,ZU )@@G@@@@@ I)@@@^V\@]? JC/K@@*5/,0@IB@@@ I)@@@ IF@], JC/,0@I[@@@ I-@@@ D@@@@ I+ZV )@@G@@@]\ JC/,0@I#@@@ IV@@@ I<@@@ D]@@@ I+@]0 JC*@@ DA/K@@*//,0@ID@@@ I=@@@ I)ZW )@@G@@@@@ IH@]3 JCD@@ DG*@@@@G1@@@@G/K@@(#/,0@&)/K@@(^@]5 JC/K@@(D @@ L@ @@ L[ZX )@@G@@ @@ L] @@ L#/K@@%M(@@ DI/K@@(RC/@@@[[@@@@@G@@^];[@@^];;@@@@+C@) D@[@?^]9ZY )@@G@@C[@ D[[[G^]'C[)^]'[[?^]/ @@ DJ(@@ DK/K@@(+/,0@=+@@@ ME@#A JCC@@ ME:@@ I>ZZ )@@G@@/K@@8 (@@ DO/K@@(,/K@@($/,0[!9@@@ ME@@@ IW/K@@3=@#G JCC@@ L G/@@@[[@@ L AA )@@G@@/,0[56@@@ ME/K@@%B@#I JC/,0@=;@@@ ME@@@ LC@@@ LD@#K JCC/@@@[C/)@@ !@) LDAB )@@G@@ @@@@GC/)@@[C[@ LDG.@@@@!.@@@) @@@@I+@@@@IC/)@@[D[@ DK*@@@@K1@@@@K @@@@IAC )@@G@@+@)@@H/=0@%BC@@ LD%/@@@C/K@@%MC/@@@[(@@ DN @@@@GC/)@@[*@@ DA @@@@I+@@@@IAD )@@G@@/)K@%L/,0[JR@#Q JC/K@@(RD@@ DK*@@@@G1@@@@G/K@@%R @@ LED@@^V!*@@@@G1@@@@GAE )@@G@@/K@@%Y/,0@Z;/K@@?[@#W JCC@@ L [@@ LF @@^V?/,0@>@@@@ ME@@@ LG@#Z JCC@@ K;AF )@@G@@H@@ LG(@@@@G/K@@%2C@@ ME:@@ I>/K@@%2/,0[UJ@@@ LG@@@ LF@@@ KT@@@ LF@#= JCAG )@@G@@*@@ DA/K@@%6/,0[JR@#& JCR@K^V?N8L^V\^^K@%;/,0@>H@@@ MF@@@@%;@#$ JCC@@^V?AH )@@G@@G/@@[][@@^V?D@@ DK/C@@:^*@@@@G/K@@:E/,0[!9@@@ ME@@@ IW/K@@3=@#? JC/K@@:PAI )@@G@@/,0@=+@@@ ME@#, JCC@@ ME:@@ I>/K@@8 C@@ LHG/@@@G[@@ LH(@@ DO/K@@:WC@@ L AJ )@@G@@G/@@@[[@@ L /,0[56@@@ ME/K@@:=@#5 JC/,0@=;@@@ ME@@@ LC@@@ LD@#6 JCC@@ LDAK )@@G@@%/@@@C/K@@:\C/@@@[(@@ DN @@@@GC/)@@[*@@ DA @@@@I+@@@@I/)K@:,/,0[JR@#' JCAL )@@G@@/K@@:@C/@@@[C@) LC:/)@@ @@@@GC/)@@[C[@ LC:.@@@0 @@@@I+@@@@I/=K@%2C/@@O(AM )@@G@@!@@^V?/K@@:_/,0[<8@@@ IV@^@ JC/,0@YP@^[ JCD@@^V?*@@@@G1@@@@G/K@@%MC/@@@BAN )@@G@@[@@ LIC@@^V?G/@@@@!/@@@B/K@@?HC@@^V?[@@ LIC@@ LIG/@__"R/K@@[[@@@[JA@K LJAO )@@G@@C@[^V,:/@@@(/K@@?6C@[^V,:/@@@=/K@@?VO/K@@[8N0@?L/K@@!QC@@ LJG/@@@[[@@ LKAP )@@G@@H@@^V?R@K LK]@@@[JA@K LLC@[^V,[@@ LM/,0@$G@@@ LM/K@@?,/K@@?(@^Q JC/,0@$BAQ )@@G@@@@@ LM/K@@?,/K@@?1@^R JCO/K@@[8N0@?-/K@@.2R@K LLC@[^V,:/@@@,/K@@!Q/K@@.2AR )@@G@@C@@^V?G/@__"[@@ LNC/)@@[[@) LOG@) LJ[@) LJH@@ LJR@K LJ[@@@[JA@K LPC@[^V,AS )@@G@@%/@@@)/K@@!BC@@ LOG/@__"[@@ LOC@[^V,%/@@@(/K@@!HC@@ LOG/@@@[[@@ LO(@@ LOAT )@@G@@/K@@!MO/K@@[8N0@!@/K@@!QR@K LPC@[^V\:/@@@=/K@@.2/,0[+]@@@ LQ@^\ JCC/@@@"AU )@@G@@?@@ LQ/K@[@$C@@ LQ/@@@!Z/C@@!+/,0[<8@@@ I&@^5 JCC^) LQ$;)@@_/KI@!>/K@@,=AV )@@G@@/K@@\ /K@@\U/K@@,./K@@0#/K@@\7/K@@0C/K@@0+/K@@2K/K@@2#/K@@2]/K@@3K/K@@2"AW )@@G@@/K@@29/K@@2L/K@@2!/K@@24/K@@%M/K@@30/K@@38/K@@4@/K@@3X/K@@3!/K@@3=/K@@%MAX )@@G@@/K@@4B/K@@43/K@@7C/K@@8N/K@@%M/K@@;^/K@@;[/K@@;B/K@@,&/K@@8)/K@@8!/K@@;$AY )@@G@@/K@@9 /K@@9K/K@@9L/K@@9S/K@@9$/K@@9,/K@@9T/K@@95/K@@']/K@@'V/K@@'Y/K@@'=AZ )@@G@@/K@@;K/K@@'3/K@@''/K@@'?/K@@'/K@@"5/K@@_^/K@@_,BA )@@G@@/K@[@X/K@[@+'^@@K"@^6 JCR/K@@^N_0@@AA@K LRN8L^V,^^K@,?/,0@$G@@@@,?/K@@,0BB )@@G@@/K@@6E@^' JCO/K@@[8N0@,*C@@^V?G/@@@@?/@@@D/K@@6EC@@^V7:@@ I$/K@@;EC@@^V7BC )@@G@@:@@ I*/K@@;H/K@@!ZC/@@@D[@@ LS/,0[H8@@@ KU@@@ K,@@@ IU@ JC/K@@%MC/@@@BBD )@@G@@[@@ LS/,0[UM@@@ IZ@@@ LF@ C JC/,0[#!@@@ K<@ D JCC@@ LSG/@@@][@@ LS/,0[ .BE )@@G@@/K@@%M/K@@\4@@@ KQ@@@ IU@@@ IU@@@ IU@ F JC/K@@%MC/@@@D[@@ LS/,0[UM@@@ I(BF )@@G@@@@@ LF@ I JC/,0[ ./K@@%M/K@@%M@@@ KQ@@@ IU@@@ IU@@@ IU@ J JCR@K LSC@[^V,BG )@@G@@:@@ I%/K@@%MC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@?@@ LS/K@@%M/K@@\)/,0[<8@@@ IXBH )@@G@@@ Q JCC/@@@E[@@ LS/,0[UM@@@ I+@@@ LF@ S JC/,0[H8@@@ KX@@@ IU@@@ I&@ T JCBI )@@G@@/K@@%M/,0[UM@@@ I:@@@ LF@ V JC/K@@%M/,0[UM@@@ I?@@@ LF@ X JCC/@@@ [@@ LSBJ )@@G@@/,0[ ./K@@%M/K@@%M@@@ KR@@@ IU@@@ K7@@@ IU@ Z JCC@@ LSG/@@@[[@@ LSC/)@@[BK )@@G@@[@) L[/,0[H8@@@ KS@@@ IU@@@ I&@ + JC @@ L[/K@@%MC/@@@B[@@ LSC@) K%[@) I#BL )@@G@@R@K LSC@[^V,%@@ I!/K@@1TC@@ LSG/@@@[[@@ LS/,0[ ./K@@%M/K@@\4@@@ KU@@@ K%BM )@@G@@@@@ K/@@@ IU@ % JCC@@ LSG/@@@[[@@ LSC@) DQG/)__"R/K@@[[@)@[JA@K LTC@@ DPBN )@@G@@H@[ DQ(@@@@G/K@@1PO/K@@[8N0@0/C@@ DQG/@@@@?/@@^?/K@@1J/,0@ID@@@ I&@@@ I)BO )@@G@@@@@ IJ@ 5 JC/,0[,O@ 6 JC/K@@$TC@@ DQG/@@@[[@@ DQR@K LTC@) DP[@- DQC@@ K%BP )@@G@@G@@ LT[@@ I#/K@@1T/,0[H8@@@ KU@@@ I#@@@ IV@ " JCC@@ LSG/@@@[[@@ LSC@@ LSBQ )@@G@@G/@@@@!@@^V?/K@@%MR@K LSC@[^V,%@@ I!/K@@1\C/@@@B[@@ LUC@) LSG/)@@[[@) LSBR )@@G@@/K@@11C/@@@C[@@ LUC@@^V?H@@ LSR@K I,Q@K LS[@@@[JR@) LUC@[=V,[@]^V,C@) LUBS )@@G@@G/)@@[[@) LU8N0@16C[@^V?H[@ LSG.@@@C[[@^V?/K@@0+/K@@%MC/@@@C[@@ LS/,0[]2BT )@@G@@/K@@2F@AM JCC@@ K1[@@ LV/K@@4GC/@@@C[@@ LSC@) K1[@) LW/K@@2P/K@@%MC/@@@ BU )@@G@@[@@ LSC@) K([@) LW/,0[H8@@@ KU@@@ LW@@@ IV@AV JCC@@ LSG/@@@[[@@ LSC@@^V?BV )@@G@@G/@@@@?@@ LS/K@@%MR@) LSC@]^V,%@@ I!/K@@2UC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@BW )@@G@@?@@ LS/K@@%M/K@@2PC/@@@C[@@ LSC@) KY[@) LXC.@@@H[[@ LY/K@@.VC/@@@B[@@ LSBX )@@G@@C/)@@[[@) L]/K@@4GC/@@@E[@@ LSC@) K![@) LW/K@@2PC/@@@#[@@ LS/,0[UM@@@ IVBY )@@G@@@@@ LF@A0 JC/,0[#!@@@ K=@A1 JCC/@@@[[@@ L][@@ L[/,0[H8@@@ KZ@@@ IU@@@ I&BZ )@@G@@@A4 JC/K@@(^C/@@@K[@@ LS/,0[]2/K@@3S@A7 JCC@@ K2[@@ LV/K@@4GC/@@@K[@@ LSCA )@@G@@C@) K2[@) LW/K@@2PC/@@@C[@@ LSC@) K)[@) LXC.@@@I[[@ LY/K@@.VD@@ DK/C@@3*CB )@@G@@*@@@@G/K@@8 /,0[UP@B# JC/,0[,O@B^ JC/K@@$TC/@@@C[@@ LS/K@@\9C/@@@G[@@ LSCC )@@G@@/,0[H8@@@ KU@@@ K?@@@ IU@BD JC/K@@%MC/@@@D[@@ LS/,0[H8@@@ KU@@@ K\@@@ IUCD )@@G@@@BG JC/K@@%MC/@@@A[@@ LSC@) LZG/)__"/@)@'*/G)@%M/K@@4IC/@@@D[@@ LSC/)@@]CE )@@G@@[@) LZ @@ LVC@@ K6[@@ LW/,0[UM@@@ I:@@@ LF@BQ JC/,0[ ./K@@%M/K@@%M@@@ KQCF )@@G@@@@@ LV@@@ LW@@@ IU@BR JC @@ L]R@K LSC@[^V,%@@ I!/K@@4%C@@ LSG/@@@[[@@ LSCG )@@G@@C@@^V?G/@@@@?@@ LS/K@@%MR@) LSC@]^V,%@@ I!/K@@4ZC@@ LSG/@@@[[@@ LS/,0[H8CH )@@G@@@@@ KQ@@@ K9@@@ IU@B- JC/K@@(^C/@@@ [@@ LSR@K LSC@-^V,[@) LMC@@ LM:/@@@(CI )@@G@@/K@@5?/,0@$G@@@ LM/K@@5H/K@@5@@B$ JC/,0@$B@@@ LM/K@@5 /K@@5H@B* JC/,0[UMCJ )@@G@@@@@ I\@@@ LF@B( JC/,0[#!@@@ K&@B% JC/K@@%M/,0[UM@@@ I0@@@ LF@B? JC/,0[ .CK )@@G@@/K@@%M/K@@\4@@@ KR@@@ IU@@@ K8@@@ IU@B! JCR@) LSC@]^V,%@@ I1/K@@5)C@@ LSCL )@@G@@G/@@@[[@@ LSR@K LSC@[^V,%@@ I%/K@@5$C@@ LSG/@@@[[@@ LS/,0[I,/K@@%M@@@ K>CM )@@G@@@B2 JC/K@@%M/,0[UM@@@ I-@@@ LF@B4 JC/,0[I,/K@@6B@@@ K>@B5 JCC@@ LSG/@@@[CN )@@G@@[@@ LSR@) LSC@]^V,%/@@@,/K@@5"C@@ LSG/@@@[[@@ LSC/@@@[[@@ L[/,0[H8@@@ KRCO )@@G@@@@@ IU@@@ I&@B' JC @@ L[/K@@%M/,0[<8@@@ I0@B. JCC/@@@#[@@ LSC/)@@[[@) L#CP )@@G@@/K@@.. @@ L[ @@ L#C@@ LSG/@@@[[@@ LSR@K LSC@[^V,G/@@@@?/@@@*/K@@61N8L^V,CQ )@@G@@^^K@6W/,0@$B@@@@6W/K@@6*/K@@6)@CA JCR@) LSN8M^V,^^K@6=/,0@$G@@@@6=/K@@61CR )@@G@@/K@@6L@CB JC/,0[UM@@@ IX@@@ LF@CC JC/,0[I,/K@@%M@@@ K$@CD JC/K@@%M/,0[UMCS )@@G@@@@@ I&@@@ LF@CF JCC/@@@[[@@ L)C@)^V?H@) LSR@K I,Q@K LS[@)@[JR@) L)C@[=V,CT )@@G@@[@]^V,C@) L)G/)@@[[@) L)8N0@6/C[@^V?H[@ LSG.@@@[[[@^V?/K@@? C/@@@C[@@ LSCU )@@G@@C@) L G/)__"[@) L C.@@@[[[@ DK @@ L^H/@@@HR@) LS]@@@[JA@) LRC@@^V?G/@@@@CV )@@G@@?@@ LR/K@@7YC@]^V,:@@ I1/K@@7YO/)@@[8N0@7N/K@@7&D@@ LRG/@@@HR@K I,Q@K LRCW )@@G@@[@@@[JC@@ K;[@[=V,8N0@70@@@@7%@@@ L2@C( JCC@@ IYCX )@@G@@[@@ L3/,0@=Z@@@ IR@@@ DL@@@ L2/K@@8]@C: JCC/@@@[[@@ LE/,0@F+@@@ ME@@@ IVCY )@@G@@@@@^9&@@@ IV@@@ IW@C! JC/,0@=+@@@ ME@C, JC/K@@(R @@ DK @@ L^/K@@(R @@ DKCZ )@@G@@ @@ L^/,0@F+@@@^9&@@@ IV@@@ ME@@@ IV@@@ IW@C5 JCD@@ LE/C@@8M*@@@@G/K@@($DA )@@G@@/K@@:PC/@@@C[@@ LS/,0[]2/K@@8V@C' JCC@@ K3[@@ LV/K@@4GC/@@@C[@@ LSC@) K3DB )@@G@@[@) LW/K@@2PC/@@@C[@@ LS/,0[]2/K@@8*@D[ JCC@@ K0[@@ LV/K@@4GC/@@@C[@@ LSDC )@@G@@C@) K0[@) LW/K@@2PC/@@@C[@@ LS/,0[UM@@@ I2@@@ LF@DC JCC@@^V?G/@@@@?@@ LSDD )@@G@@/K@@%MC@@ KU[@@ LWR@K LSC@[^V,%@@ I%/K@@8_C@@ KR[@@ LW/,0[H8@@@ LW@@@ IUDE )@@G@@@@@ IU@DI JC/K@@%MC/@@@E[@@ LSC/)@@[[@) L][@) L[/,0[H8@@@ KU@@@ K4@@@ IVDF )@@G@@@DN JC/K@@(^/K@@%MC/@@@A[@@ LSC@) K)[@) LXC.@@@I[[@ LY/K@@/>/K@@9LC/@@@ DG )@@G@@[@@ LSC@) KY[@) LXC.@@@H[[@ LYR@) LSC@]^V,%/@@@(/K@@/>C@@ LSG/@@@[[@@ LSDH )@@G@@/K@@.VC/@@@I[@@ LSC@) KY[@) LXC.@@@H[[@ LY/K@@.GC/@@@D[@@ LSC@) KY[@) LXDI )@@G@@C.@@@H[[@ LY/K@@/TC/@@@ [@@ LS/,0[]2/K@@9.@D: JCC@@ K:[@@ LV/K@@4GC/@@@ DJ )@@G@@[@@ LSC@) K:[@) LW/K@@2PC/@@@D[@@ LC@@ DPH@] DQ(@@@@GDU )@@G@@/K@@/CO/)@@[8N0@;"R@K L>C@@ DP[@[ DQC@@ KPG@@ L>[@@ L=/,0[H8@@@ K'@@@ L=DV )@@G@@@@@ IV@E3 JCC@@ LSG/@@@@!@@^V?/K@@%MR@) LSC@]^V,%/@@@//K@@%M/K@@;?/,0[A.DW )@@G@@/K@@//@E9 JCC/@@@[[@@ L@/,0[H8@@@ KX@@@ IU@@@ IU@E; JC @@ L@/K@@//R@K LSDX )@@G@@C@[^V,[@@ LM/,0@$B@@@ LM/K@@/9/K@@/!@E_ JCC@@ LM:@@ I!/K@@//C/@@@[[@@ L@DY )@@G@@/,0[H8@@@ KW@@@ IU@@@ IU@F# JC @@ L@/K@@///,0[#!@@@ K-@FA JCC@@ LSG/@@@[DZ )@@G@@[@@ LSC/@@@[[@@ L[/,0[H8@@@ LX@@@ IU@@@ I&@FD JC @@ L[/,0[UM@@@ LY@@@ LFEA )@@G@@@FF JC/K@@%M/,0[A./K@@.R@FH JCC/@@@[[@@ L@/,0[H8@@@ KX@@@ IU@@@ IU@FJ JCEB )@@G@@ @@ L@C@@ LSG/@@@[[@@ LS/K@@/>/,0[A./K@@.&@FN JCC/@@@[[@@ L@/,0[H8@@@ KXEC )@@G@@@@@ IU@@@ IU@FP JC @@ L@R@) LSC@]^V,%@@ I!/K@@.!C@@ LSG/@@@[[@@ LSR@K LSED )@@G@@C@[^V,:@@ I4/K@@///K@@.RC/@@@[[@@ LS[@@ L@[@@ L]/,0[H8@@@ KQ@@@ IU@@@ I&EE )@@G@@@FZ JC @@ L] @@ L@C/@@@[[@@ L[/,0[H8@@@ KR@@@ IU@@@ I&@F< JC @@ L[ @@ L#EF )@@G@@C@@^V\%@@ I5/K@@%MC@@^V0%@@ I6/K@@%MC@@^V1%@@ I%/K@@%M/K@@6JC/@@@B[@@ LSEG )@@G@@C@) KY[@) LXC.@@@L[[@ LY/K@@/_C/@@@C[@@ LSC@) K)[@) LXC.@@@M[[@ LY/K@@/_EH )@@G@@C/@@@C[@@ LSC@) K)[@) LXC.@@@N[[@ LY/K@@/_C/@@@M[@@ LS/,0[UM@@@ I7@@@ LFEI )@@G@@@F' JCC@@^V?G/@@@@?@@ LS/K@@%M/,0[H8@@@ KX@@@ IU@@@ IU@F. JC/K@@%MC/@@@BEJ )@@G@@[@@ LS/,0[UM@@@ I<@@@ LF@G@ JCC/@@@[[@@ L][@@ L[/,0[H8@@@ KZ@@@ IU@@@ I&EK )@@G@@@G# JC/K@@(^C/@@@C[@@ LS/,0[UM@@@ I8@@@ LF@GA JCC@@ KR[@@ LWC@@^V?G/@@@@EL )@@G@@?@@ LS/K@@%MC@@^V?H@@ LSR@) LS[@@@[JA@) LRC@]^V,%@@ I9/K@@_XC@@ KQ[@@ LWEM )@@G@@C/)@@[[@) L@/K@@_ZO/)@@[8N0@_OC/@@@[[@@ L[[@@ L]/,0[H8@@@ LW@@@ IU@@@ IVEN )@@G@@@GQ JC @@ L@ @@ L[ @@ L]C@@ LSG/@@@[[@@ LS/K@@_EC/@@@D[@@ LS/,0[UM@@@ I'EO )@@G@@@@@ LF@GX JCC/@@@[[@@ L#/,0[H8@@@ KU@@@ IU@@@ IU@GZ JC @@ L#C@@ LSG/@@@[EP )@@G@@[@@ LSC@@^V?G/@@@@?@@ LS/K@@%MR@K LSC@[^V,%@@ I;/K@[@EC@@ LSG/@@@[[@@ LSEQ )@@G@@C@@^V?G/@@@@?@@ LS/K@@%MR@) LSN8M^V,^^K[@M/,0@$B@@@[@M/K@[@Q/K@[@W@G* JCER )@@G@@C@@ LF[@@ K_/,0[#!@@@ KT@G% JC @@ K_/K@@65/,0[UM@@@ I/@@@ LF@G! JC/K@@%MES )@@G@@/,0[UM@@@ I.@@@ LF@G\ JC/K@@%MC@@ LQ%/@@@_/K@[@!C/@@@>[@@ LD/K@[]@C@@^V4ET )@@G@@[@@ L&C@)^V5[@) L$ @@ LDC@@ L&%@@ I"/K@[@8C/@@@W[@@ LD/K@[]@C/@@@[C@) L&EU )@@G@@%@) I_ @@@@G[@@ J3C@@ L&%@@ J@/K@[[#C/@@@X[@@ LD/K@[]@C@@ L&%@@ I6/K@[[DEV )@@G@@C/@@@Y[@@ LD/K@[]@C@@ L&%@@ I5/K@[[JC/@@@Z[@@ LD/K@[]@C@@ L&%@@ J[/K@[[PEW )@@G@@C/@@@)[@@ LD/K@[]@C@@ L&%@@ I$/K@[[VC/@@@-[@@ LD/K@[]@C/@@@[C@) L$%@) I"EX )@@G@@ @@@@GC@) J3+@)@@G/)0[[>C/@@@+[@@ LD/K@[]@C/@@@[C@) L$%@) J] @@@@GC@) J3EY )@@G@@+@)@@G/)0[[\C/@@@<[@@ LD/K@[]@C@@ L&%@@ J#/K@[[5C/@@@=[@@ LD/K@[]@C@@ L&EZ )@@G@@%@@ J^/K@[[;C/@@@&[@@ LD/K@[]@C@@ L&%@@ J /K@[]@C/@@@$[@@ LDD@@ LD*@@@@GFA )@@G@@1@@@@G/K@@!Z/,0[UM@@@ LD@@@ LF@HT JC/K@@%MN@0[]F/K@[]FRA0 JDC[) J4R@K J5FB )@@G@@R@) J6N#0 J7/K@PJAAA0 JD[[) J4A@K J5A@) J6^#0 J7/K@[JVR/K@@[N_0@@BR@) LSFC )@@G@@C@]^V,H@[ L3(@@@@G/K@[]+C8)@@[N@0[]-/K@[](@H> JGC@@ LSG/@@@[[@@ LSO/K@@[FD )@@G@@8N0[]TN@0[](/K@[]!!^) JE/K@@K"H8)@@[[^) JERA0 JHR@K J9R@) J'N#0 J;/K@PJEFE )@@G@@C8@@@]AA0 JH[^@ JEA@K J9A@) J'^#0 J;/K@[]RR@K LSN8L^V,^^K[]./,0@$B@@@[].FF )@@G@@/K@[#[/K@[#&@H! JKR/K@@[N_0@@^A@K L(R@) LSC@]^V,[@[ L;C@) LSG/)@@[[@) LSFG )@@G@@C@@^V?G/@@@@?@@ LS/K@[#VR@) LSC@]^V,[@@ LM/,0@$B@@@ LM/K@[#Q/K@[#V@H6 JKFH )@@G@@O/K@@[8N0[##/,0[<8@@@ I0@H9 JK/,0@&[@@@ L/@@@ L%@@@ L(@H' JK/,0[UJ@@@ L%FI )@@G@@@@@ LF@@@@@@@@@ K_@H; JKN@0[#*/K@[#*RA0 JLR@K J.R@) J"N#0 J_/K@PJIAA0 JLFJ )@@G@@A@K J.A@) J"^#0 J_C8FK@@[^@[#M@8N0[#6R/K@@[FK )@@G@@N_0@@ A@K L:R@) LSC@]^V,[@[ M@C@) LSG/)@@[[@) LSC@@^V?G/@@@@?@@ LS/K@[ =FL )@@G@@R@) LSC@]^V,[@@ LMC@@ LM:@@ JN/K@[ =C@@ LM:@@ JO/K@[^T/,0@$G@@@ LM/K@[^TFM )@@G@@/K@[^O@IM JS/,0@$B@@@ LM/K@[^T/K@[^Y@IN JSO/K@@[8N0[#;/,0[<8@@@ JP@IQ JSFN )@@G@@/,0@>0@@@ M[@@@ DP@IR JSC/@@@[C@) LM%/)@@= @@@@GC/)@@[*@@ L] @@@@I+@@@@IFO )@@G@@/=K[^7C@@ LM:/@@@(/K@[ @/,0[UG@@@ I&@@@ DP@@@ LF@@@@@@@@@@@@@@@@@@@IW JSFP )@@G@@/K@[ +/,0[UG@@@ I&@@@ DP@@@ LF@@@ K'@@@ IU@@@ IU@IY JS/K@[ +C@@ K[G/@@@[FQ )@@G@@[@@ L?G/@__./@@[ B/G@[^,/K@[ K/,0[UG@@@ I&@@@ DP@@@ LF@@@@@@@@@@@@@@@ K5FR )@@G@@@I= JS/K@[ +C/@@@#[@@ L!/,0[UG@@@ L!@@@ DP@@@ LF@@@@@@@@@@@@@@@ IU@I$ JSFS )@@G@@D@@ L!*@@@@G0@@@@G/K@[ +C8)@@]N@0[ -/K@[ 4@I( JSN@0[ =/K@[ 8/,0@>0@@@ M[FT )@@G@@@@@ DP@I: JS/,0[UG@@@ I&@@@ DP@@@ LF@@@@@@@@@@@@@@@@@@@I? JSC8)@@[N@0[ 3FU )@@G@@/K@[ 4@I! JS!^) JQ/K@@K"H8)@@[[^) JQRA0 JTR@K K]R@) K#N#0 K^/K@PJQC8@@@BFV )@@G@@AA0 JT[^@ JQA@K K]A@) K#^#0 K^C8FK@][^@[^2[^@[ Q[^@[ ?[^@[ FC8FK@#[^@[ RFW )@@G@@[^@[ G[^@[^3[^@[ !C8FK@^[^@[^4[^@[ ,C@VK@ [@K K[/K@[#4R@K LSC@[^V,[@@ LMFX )@@G@@/,0@$B@@@ LM/K@[AV/K@[A2@I2 JXC_)@@[N_0@@][#) L,C@@ LSG/@@@[[@@ LSR@K LSFY )@@G@@C@-^V,[@) LM/,0@$B@@@ LM/K@[A(/K@[A,@I8 JXG_)@@[8N0[AX/,0[<8@@@ JU@I; JXFZ )@@G@@C8)@@[N@0[A1/K@[A4@I/ JXN@0[A4/K@[A8!^) JV/K@@K"H8)@@[[^) JVRA0 JYC#) KAGA )@@G@@R@K KBN#0 KC/K@PJVC8@@@]AA0 JY[^@ JV[#) KAA@K KB^#0 KC/K@[AN @@ L\ @@ LOGB )@@G@@ @@^0SC@@^V?G/@@@@?@@ LS/K@[F?R@K LSC@[^V,:@@ JN/K@[F?R@K LSC@[^V,[@@ LMGC )@@G@@/,0@$G@@@ LM/K@[B(/K@[BR@JD J*C@@ L#/@@[CX/G@[CXC@@ LM%@@ I%/K@[B)C@@ L\GD )@@G@@G/@@@[[@@ L\C@@ LM%@@ I4/K@[B&C@@ L\G/@__"[@@ L\C@@ L\/@@[F?/K@[CXC@@ LMGE )@@G@@:/@@@D/K@[CAR@K LSA@K KEC@@ LM%/@@@E/K@[C0C/@@@[R@K KEC@-^V\%/)@@R @@@@GGF )@@G@@C/)@@[C[[^V0%.@@@R @@@@I+@@@@I/=K[CLC/@@@[C@-^V\%/)@@N @@@@GC/)@@[C[[^V0GG )@@G@@%.@@@D @@@@I+@@@@I/=K[CLC@@ LSG/@__"/@@[C0R@K LSN8L^V!^^K[CH/,0@$B@@@[CHGH )@@G@@/K@[CX/K@[C0@JZ J*R@K LSC/@@@[C@-^V1%@) I9 @@@@GC/)@@[C[@ LS:.@@@[ @@@@IGI )@@G@@+@@@@I/=K[FX/K@[C0C/@@@[C@) LM%/)@@/ @@@@GC/)@@[*@@ L[ @@@@I+@@@@I/=K[F?GJ )@@G@@C@@ LM:/@@@$/K@[FNC@@ LM:/@@@./K@[F,C@@ LSG/@@@[[@@ LS/K@[BB/,0[ ./K@[F?GK )@@G@@/K@[D]@@@@@@@@@@@@@@@ IU@@@@@@@J! J*R@K LSC@[^V,:/@@@(/K@[DSC@@ L@%/@@@[GL )@@G@@/K@[D[N@0[D[/K@[H5/K@[BJ/,0[UM@@@ JZ@@@ LF@J3 J*R@K LSC@[^V,%@@ I%/K@[DNGM )@@G@@C@@ LOG/@@@[[@@ LOR@K LOC/)@@[[@-^0RC/@@@[[@@ LW/K@[DXR@K LSC@[^V,:@@ I4GN )@@G@@/K@[D;/K@[B C@@ LOG/@@@[[@@ LOR@K LO @[^0RC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@GO )@@G@@!@@ LS/K@[D$/,0[<8@@@ IZ@K[ J*R@K LSC@[^V,%/@@@)/K@[E[C@@ LSG/@@@[[@@ LSGP )@@G@@R@K LO @[^0RC@@ LOG/@__"[@@ LOD@@ LO*@@@@G1@@@@G/K@[D;R@K LOC@[^0R[@@ LWGQ )@@G@@/K@[D)C@@ L@%/@@@[/K@[E@N@0[E@/K@[H5/K@[B R@K LSC@[^V,[@@ LM/,0@$G@@@ LMGR )@@G@@/K@[ED/K@[E?@KI J*C@@ KT[@@ LWR@K LOC@[^0R%/@@@[/K@[ELC@@ KS[@@ LW/,0[ .GS )@@G@@/K@[FK/K@[EV@@@ LW@@@ IU@@@ IU@@@@@@@KM J* @@ LW/K@[E-C/@@@[[@@ LW/,0[UMGT )@@G@@@@@ JZ@@@ LF@KQ J*R@K LSC@[^V,%@@ I%/K@[D)C@@ LOG/@@@[[@@ LOR@K LOC@) LWGU )@@G@@[@-^0R/K@[DXC@@ LM:@@ I%/K@[E>C@@ LM:@@ J)/K@[F,R@K LOC/@@@[C@-^0R:/)@@[GV )@@G@@ @@@@GC/)@@[C[@ LM:[@ JO @@@@I)@@@@I/=K[DXC@@ LSG/@@@[[@@ LSC@@^V?G/@@@@GW )@@G@@?@@ LS/K@[D)R@K LSN8L^V,^^K[FC/,0@$B@@@[FC/K@[FG/K@[D)@K> J*/,0[#!@@@ K+GX )@@G@@@K& J*/K@[D)/,0[<8@@@ I+@K* J*C@@ LSG/@@@[[@@ LSC@@^V?G/@@@@!@@ LS/K@[F)GY )@@G@@/,0[<8@@@ J-@K? J*C@@ LSG/@@@^[@@ LSR@K LSC@[^V,[@@ LM/,0@$B@@@ LM/K@[F*GZ )@@G@@/K@[BJ@K0 J*/,0[#!@@@ K+@K1 J*/K@[BJN@0[F,/K@[H5C@@ LS[@@ L0C@@ L0G/@@@[HA )@@G@@[@@ L0C@@^V?G/@@@@?@@ L0/K@[G\R@K L0C@[^V,%@@ J)/K@[F0C@@ LSH@@ L0]@@ LDHB )@@G@@R@K LSC@[^V\%@@ J+/K@[GCC@@ LD:/@@@ /K@[G*C@@ LD:/@@@]/K@[G*R@K LSC@[^V\HC )@@G@@%@@ I6/K@[GMC@@ LD:/@@@A/K@[G*C@@ LD:/@@@]/K@[G*C/@@@^?@@ LD/K@[G\C/@@@]HD )@@G@@!@@ LD/K@[G\R@K LSN8L^V\^^K[GW/,0@$G@@@[GW/K@[G)/K@[G\@LF J*R@K LSN8L^V0HE )@@G@@^^K[G=/,0@$G@@@[G=/K@[G*/K@[G\@LG J*C@@ L0[@@ LSD@@ LO/C@[G,*@@@@G/K@[DXHF )@@G@@/K@[C?C@@ LS[@@ L0 @@ L1C@@ L0G/@@@[[@@ L0C@@^V?G/@@@@?@@ L0/K@[H?R@K L0HG )@@G@@C@[^V,[@@ LM/,0@$B@@@ LM/K@[G2/K@[H[@LR J*C/@@@[C@) LM%@) J] @@@@GC/)@@[HH )@@G@@*@@ L1 @@@@I+@@@@I/)K[HHC/@@@[[@@ L1/K@[G2C/@@@[*@@ L1 @@@@GC/)@@[C[@ LMHI )@@G@@%[@ J< @@@@I+@@@@I/)K[HTC/@@@[[@@ L1/K@[G2C/@@@[*@@ L1 @@@@GC/)@@[C[@ LMHJ )@@G@@%[@ J= @@@@I+@@@@I/=K[G2C/@@@[C@) LM%@) J> @@@@GC/)@@[C[@ L1%.@@@[ @@@@IHK )@@G@@+@@@@I/=K[G2C@@ L0[@@ LSD@@ LO/C@[H2*@@@@G/K@[D)/K@[BBN@0[H5/K@[H5RA0 J(HL )@@G@@R@K KF/K@PJ&AA0 J(A@K KFC8FK@@[^@[C3C8FK@[[^@[C4C8FK@][^@[C6[^@[ER/K@[B^HM )@@G@@R@K LSC@[^V,%/@@@)/K@[ICN@0[IC/K@[I:C@@^V?G/@@@@!@@ LS/K@[IKC8)@@[N@0[IJHN )@@G@@/K@[I$@L? J?R@K LSN8L^V,^^K[IO/,0@$B@@@[IO/K@[IS/K@[IV@L! J?/,0[#!@@@@@@HO )@@G@@@L, J?R@K LSC@[^V,%/@@@)/K@[I-N@0[I-/K@[I:C@@ LSG/@@@[[@@ LS/K@[ICN@0[I$HP )@@G@@/K@[I:!^) J%/K@@K"H8)@@[[^) J%RA0 J!R@K KH/K@PJ%C8@@@#AA0 J![^@ J%A@K KHHQ )@@G@@C8FK@[[^@[IT/K@[I]/,0[-2@@@ L @@@ MC@L6 J1C@@ MD;)@@@G;C@@@G;@@@@SC@) J,HR )@@G@@)@)@@G[@0 MDR/K@@[N_0@@JA@K LD(@[ MB/K@[JDO/K@@[8N0[J]C/@@@L[@@ LDC@@ LDHS )@@G@@G/@__"[@@ KJ/,0E[P@@@ IV@@@ KJ@@@ MC@M@ J1N@0[JN/K@[JNRA0 J2R@K KKN#0 KLHT )@@G@@/K@PJ\AA0 J2A@K KK^#0 KL/K@[I5C8FK@@[^@@$O[^@@*#C8FK@[[^@@$R[^@@(G/K@@$LHU )@@G@@/,0@F+@@@ M:@@@ M:@@@E@ @@@ M?@@@ M!@[S N /,0@F+@@@ M:@@@ M:@@@E@)@@@ M?HV )@@G@@@@@ M,@[T N /,0@F+@@@ M:@@@ M:@@@ 4[@@@ M?@@@ M\@[U N /,0@F+@@@ M:@@@ M:HW )@@G@@@@@ANL@@@ M?@@@ M0@[V N C@@ M1[@@ OKC/)@@[[@) OL @@ OM @@ ON @@ OO @@ OPHX )@@G@@ @@ OQN@0[KD/K@[T4C4@ N=[@@ OR/,0@$G@@@ OR/K@[KK/K@[LY@[$ N C@@ D^G/@@@@HY )@@G@@?@@@@@/K@[KQN@0[KQ/K@[T4/,0[Y'/K@[K!/K@[LY@@@E@ @[% N R@K OTC@@ OTG/@@@[HZ )@@G@@R@) M2Q@)@@GN_0@@ C@@ OE[@]&OX8N0[K- @[AO=C@) OK[@-AO> @[AO&C[@ OLG.@@@DIA )@@G@@[[@ OLC.)@@[[[) ONC@@@@@G@@ N>[@@ OUR@) OTN8MAO&^^K[K4/,0[WP@@@[K4@@@ OUIB )@@G@@@[6 N (@@ N&/K@[K.R@K OTC@@ N&[@[AO[@@ OWR@) OTN8MAO)^^K[M /,0[WP@@@[M @@@ OW@]X N (@@ N&/K@[MHII )@@G@@R@K OTC@@@@@[@[AOYN@0[MJ/K@[T4C/@@@$!@@ N=/K@[MON@0[MO/K@[T4R@) N=*@]ANKIJ )@@G@@/K@[MTC@@ OK[@]ANKR@K N=N8LAN7^^K[MX/,0[WP@@@[MX@@@@@@@]( N C/@@@K!@@ N=IK )@@G@@/K@[M>C/@@@[[@@ OPC/@@@V!@@ N=/K@[M%C/@@@[[@@ OQN@0[M?/K@[T4(@@ ON/K@[Q[IL )@@G@@C/@@@[D@) DB*@@@@I1@@@@I @@@@GC@) DHG@) DIC.@@@[*@@@@I @@@@K+@@@@K/=K[Q[IM )@@G@@C@@ DAG@@ DBG@@ DCG@@ DD:/@@@^/K@[N@C@@ DBG@@ DE*@@@@G/K@[NA/,0[>#@]7 N IN )@@G@@C@@E@ [@@ OXR/)@@]N_0@@TA@) OYC@@ OX[@@ OSD@@ OS*@@@@G1@@@@G/K@[P4R@K OSIO )@@G@@C^[ 4@[@@ OZR@K OZC@-AO>[@) O)C[@ OE[[@ O-R/K@@[N_)@B3A@K O+(@@ O)/K@[N"IP )@@G@@R@0 O)N8NAOY^^K[N&N8L [F^^K[N*N8L^9R^^K[N(/,0@>*@@@[N&@@@ O)@@@[N*@@@[N(IQ )@@G@@@#B N N8L^9R^^K[N,/,0[-2@@@[N,@@@^P!@#C N C@@^P,;)@@@A;C@@@AC@L^9R;)K@@YIR )@@G@@;G@@@Y[@L^9RC4[ [F[)[^9RO/K@@[8N)[NVC@@ OI[@@ O-C@@ OZG/@@@^[@@ OC@#AOY;)@@@V;C@@@V[@@ O&/@@[OQG/@_"VIT )@@G@@/@@[OX/G@[OXO/0@@[G_)@@[8N)[OBC@@ OE[@@ I^/K@[O)R@K OZC@[AO<:@@ M4/K@[ONIU )@@G@@C@@ M5[@@ I^/K@[O)R@0 O&C@# DQ[@@ I^*@@ DB/K@[P-R@K OSN8L O0^^K[O$/,0@I[IV )@@G@@@@@ M6@@@[O$@@@ M7@#& N R@0 OZN8NAO<^^K[O\/,0@I[@@@ M8@@@[O\@@@ M9@#$ N IW )@@G@@R@K OZN8LAOY^^K[O7/,0@I[@@@ M'@@@[O7@@@ M;@@@ M/@@@ M?@#* N /,0@I[@@@ M.IX )@@G@@@@@ I^@@@ M7@#( N C@@ O=G/@__";O@@@=W/@@@IR/0@@[[@@@[IA@0 OVC@@ OVH@@ O=IY )@@G@@G/@__"]@@ O$C/@@@I!@@ O$/K@[PLC/@@@I[@@ O$N8N^9R^^K[PQ/,0@I#@@@ M?@@@ M"IZ )@@G@@@@@[PQ@@@ M7@@@ O$@@@ M:@#0 N /,0@IB@@@ M6@@@ MS@#1 N O/0@@I8N)[PBD@@ DIJA )@@G@@*@@@@G1@@@@G/K@[P$/,0[V2@#6 N D@@ DH*@@@@G1@@@@G/K@[P!/,0[-#@#8 N R@K OSJB )@@G@@CC[ 4@[@@ OXD@@ OX/C@[P4*@@@@G/K@[NFC@]E@^[@@ OXO/)@@[8N0[NE(@@ DI/K@[Q[JC )@@G@@(@@ DJ/K@[Q[/,0@J'@@@^V\@@@ DJ@@@^]'@^# N (@@ OO/K@[S D@@ DC/C@[QB*@@@@GJD )@@G@@/K@[S *@@ DE/K@[QF/,0[&T@^D N C@@E@)[@@ OXR/0@@]N_0@@1A@0 OYC@@ OX[@@ OSJE )@@G@@D@@ OS*@@@@G1@@@@G/K@[S[R@K OSC^[ 4@[@@ OZR@) OZC@+AOZ[@) O)C[@ OE[[@ O-JF )@@G@@R/K@@[N_)@B3A@K O+(@@ O)/K@[R#R@) O)N8MAOY^^K[Q:N8L [F^^K[Q!N8L^9R^^K[Q,JG )@@G@@/,0@>*@@@[Q:@@@ O)@@@[Q!@@@[Q,@^T N N8L^9R^^K[Q3/,0[-2@@@[Q3@@@^P!@^U N JH )@@G@@C@@^P,;)@@@A;C@@@AC@L^9R;)K@@Y;G@@@Y[@L^9RC4[ [F[)[^9RO/K@@[8N)[Q)C@@ OIJI )@@G@@[@@ O-C@@ O+G/@__"[@@ O=R@) OSN8M O0^^K[RF/,0@I[@@@ M6@@@[RF@@@ M7@^- N JJ )@@G@@R@K OZN8LAOY^^K[RN/,0@IN@@@ M_@@@[RN@@@ M7@^+ N /,0@I[@@@ N@@@@ O-@@@ M7JK )@@G@@@^< N C@@ O=G/@__";K@@@^R/)@@[[@@@[IA@) OVC@@ OVH@@ O=G/@__"]@@ O$C/@@@KJL )@@G@@!@@ O$/K@[R%C/@@@K[@@ O$N8M^9R^^K[R\/,0@I#@@@ M?@@@ N[@@@[R\@@@ M7@@@ O$JM )@@G@@@@@ M:@^% N /,0@IB@@@ M6@@@ MU@^: N O/)@@K8N)[R)R@K OSCC[ 4@[@@ OXD@@ OXJN )@@G@@/C@[S[*@@@@G/K@[QKC@#E@Z[@@ OXO/0@@[8N0[QJD@@ DD/C@[SD*@@@@G/K@[T2*@@ DEJO )@@G@@/K@[SJ/,0[*]@@@ OP@@@ OQ@^7 N R/)@@]R/K@@[N_0@@&A@K OSC/@@@[*@@ OP @@@@GJP )@@G@@C/)@@[C.@@@K![@ OS @@@@I+@@@@I/=K[T2C/@@@[*@@ OQ @@@@GC/)@@[C.@@@V![@ OSJQ )@@G@@ @@@@I+@@@@I/=K[T2C@[ANK[@@ O)C@) OE[@) O-R/0@@[N_)@B3A@0 O+(@@ O)/K@[S.JR )@@G@@R[@ O)N8OAOY^^K[S4N8N^9R^^K[S7/,0@>*@@@[S4@@@ O)@@@ O*@@@[S7@ A N O/0@@[JS )@@G@@8N)[S:C@@ OI[@@ O-C@@ O+:/@@@[/K@[T\C@@ O+G/@__"[@@ O=/,0@I[@@@ M6@@@ O-JT )@@G@@@@@ M7@ H N N8MD"5^^K[TG/,0@I[@@@ M8@@@[TG@@@ M8@ I N C@@ O=G/@__";O@@@=JU )@@G@@W/@@@PR.@@@[[@@@[IA[@ OVC@@ OVH@@ O=G/@__"]@@ O$C/@@@P!@@ O$/K@[TZC/@@@PJV )@@G@@[@@ O$N8O^9R^^K[T=/,0@IP@@@ M?@@@ N]@@@[T=@@@ M9@@@ O$@@@ M?@ P N /,0@IBJW )@@G@@@@@ M6@@@ MW@ Q N O.@@@P8N)[TPO/)@@]O/K@@[8N0[SMN@0[T4/K@[T4RA0 NAC[) N(JX )@@G@@C#) N%R@K N:R@) N?R@0 N!R[@ N,N#) N\N#0 N0/K@PN#AA0 NA[^@ N#[[) N([#) N%JY )@@G@@A@K N:A@) N?A@0 N!A[@ N,^#) N\^#0 N0/KH@@@C8@@@[/\K[T"/K@[-CC8@@@B/\K[T"JZ )@@G@@/K@[-DC8@@@ /\K[T"/K@[-VC8@@@#/\K[T"/K@[-*C8@@@[/\K[T"/K@[-1R@K OSR@) DJKA )@@G@@C@[ O0[@]^V\C@) OZG/)@@[C[@ DJG.@@@[R@K M2Q@K@@KR@0 M2Q@0@@IN_0@@ C@#&OXKB )@@G@@[@[=V\8N0[U>C@) I^[@+^V6C[@ O=[[]^V7C[) DJG.)@@W[[) DJ @@ O(/K@[VVC@@ DJKC )@@G@@G/@_<_]@@ O%C@) O=H@) O([@) O$C@@ O%G/@@@@!@@ O$/K@[U.C@@ O%[@@ O$R@K DJKD )@@G@@R@0 O(N8N^9S^^K[V^N8L^V\^^K[VA/,0@F+@@@[V^@@@ M?@@@[VA@@@ M?@@@ O$@ , NEKE )@@G@@C@@ O$;O@@@=W/@@@W9*@ N2T/@@@W[@@ O:(@@ N3/K@[VPC@@ O:G/@@@W[@@ O:C@@ DJKF )@@G@@G@@ O:[@@ DJC@) O(G@) O:[@) O(C@@ DJG/@@@@?/@@V6/K@[V>/,0@J'@@@^V\@@@ NBKG )@@G@@@@@^]'@ 6 NE @@ DJC@@ O(G/@@@@?@@ O=/K@[U1N@0[V:/K@[V:RA0 NFC[) N4R@K N5KH )@@G@@R@) N6R@0 N7N#0 N8/K@PNCAA0 NF[[) N4A@K N5A@) N6A@0 N7^#0 N8/K@[USR@K OKKI )@@G@@C@@ N'[@[AOYR@K@@@N8LAOY^^K[W[/,0@>>@@@ OK@@@[W[@ _ NJC@@ OK[@@@@@G/@__"KJ )@@G@@[@@ OKC@@ OLG/@@@GC@) OKG/)@@@!@)@@G/K@[WK/,0[ZW@@@ NG@A# NJN@0[WM/K@[WMKK )@@G@@RA0 NKR@K N;/K@PNHAA0 NKA@K N;C8FK@@[^@[V/[^@[W^C@VK@[[@K N'/K@[V9C_)@@@KL )@@G@@N_0@@ [#) OSC@@ N=;)@POS;C@@@Y[@@ O!C@@ O!:@@ M3/K@[W1/,0@$G@@@ O!/K@[W7KM )@@G@@/K@[W?@AK NN/,0@$B@@@ O!/K@[W//K@[W3@AL NNG_)@@A8N0[WZC8)@@]N@0[W6/K@[Y0KN )@@G@@@AO NNC@@ O!G/@__'[@@ O! @@ O?/K@[XCC@@ O!G/@__K[@@ O!C@) OSG/)__-;O)@@=KO )@@G@@W/)@@AT/)@@EH@) O!]@) O!C/@@@[[@@ O?R/K__"O@K N.O@K O!C@[@@@[@@ O, @@ O\KP )@@G@@/@@[YL/G@[YLR@K O,C@) N=H@- O0/@)[XQ/G)[YL/K@[X$C^- 4@[@) OTC@@ O?/=@[Y?KQ )@@G@@R@K OTC@@ N&H@[AO<(@@@@G/K@[Y?A@K N"C@@ N&:@@ M4/K@[X$R@K N"C@[AO<%@@ M4KR )@@G@@/K@[Y?C/@@@[C@) N&%@) M4 @@@@GC_)@@[N_0@ZJ[@@ N"[#) OXR@K O,CC[ 4@[@@ O\KS )@@G@@/@@[YW/G@[YWR@K O\C@) N=H@- O0/@)[X'/G)[YW/K@[YEC^- 4@[@) OTC@@ O?/=@[Y?KT )@@G@@R@K OTC@@ N&H@[AO<(@@@@G/K@[Y?A@K N_C@@ N"/=@[YER@K N_C@[AO<%@@ M4/K@[Y?KU )@@G@@C@@ O\[@@ O,G_)@@[8N0[X,/,0[ZW@@@ N]@B] NNC@@ OMG/@@@[[@@ OMR/K__"O@K N.KV )@@G@@O@K O![@[@@@R@K OMC@) O,[C- 4@/K@[Y=C@@ OMG/@@@[[@@ OMR@K O,R@) OMCC- 4@KW )@@G@@[C+ 4@[C[ 4@R@) OMC@@ N=[@] O0C@) OL[^+ 4@[@) OTN@0[Y?/K@[Y4C8)@@[N@0[Y\KX )@@G@@/K@[Y0@BI NN!^) NL/K@@K"H8)@@[[^) NLRA0 NOC#) O@R@K O[R@) O]N#0 O#/K@PNLKY )@@G@@C8@@@^AA0 NO[^@ NL[#) O@A@K O[A@) O]^#0 O#C8FK@][@@ N./K@[WX/,0@IB@@@ M6KZ )@@G@@@@@^7\@BM NU/,0@IB@@@ N]@@@ MY@BN NU/,0@IN@@@ NP@@@@@@@@@ M/@BO NU/,0@IDLA )@@G@@@@@ NQ@@@ NR@@@ M<@BP NU/,0@&1@BQ NUN@0[ZU/K@[ZURA0 NV/K@PNSAA0 NVC8FK@@LB )@@G@@[^@[ZI/K@[Z^C/@@@[!@@ DH/K@[)MR@K OSN8L O0^^K[Z*/,0@I[@@@ M6@@@[Z*@@@ M7LC )@@G@@@BX N+/,0@I[@@@ M8@@@ D@@@@ M'@BY N+/,0@I[@@@ NW@@@ D]@@@ M'@BZ N+/,0@IBLD )@@G@@@@@ NX@@@ M(@B) N+R@K OZN8LAO<^^K[Z"/,0@I[@@@ M"@@@[Z"@@@ M9@B- N+R@K OZLE )@@G@@N8LAOY^^K[)A/,0@I[@@@ NY@@@[)A@@@ M;@@@ M/@@@ M?@B+ N+/,0@I[@@@ NZ@@@ O-LF )@@G@@@@@ M7@B< N+/,0@H0@B= N+C@@ O=G/@__";O@@@=W/@@@ER/K@@[[@@@[JA@K O0R@) OSLG )@@G@@N8M O0^^K[)Y/,0@I[@@@ M6@@@[)Y@@@ M7@B* N+/,0@I[@@@ M_@@@ D@@@@ M7@B( N+LH )@@G@@C@@ O0H@@ O=G/@__"]@@ O$C/@@@E!@@ O$/K@[)\C/@@@E[@@ O$N8L^9R^^K[)3/,0@I[LI )@@G@@@@@ N@@@@[)3@@@ M7@@@ O$@@@ M:@B! N+/,0@H0@B, N+O/K@@E8N0[)SN@0[)"/K@[)"LJ )@@G@@RA0 NLL )@@G@@C@VK@^[@K N$C@VK@ [@K N&/K@[KDC@VK@@[@K N=C8FK@[[^@[K![^@[MF[^@[L"[^@[KMLM )@@G@@[^@[MYC@VK@][@K N>C@VK@#[@K N&/K@[L)C@VK@@[@K N=C8FK@[[^@[K![^@[MF[^@[L"LN )@@G@@[^@[KM[^@[MY/K@[MJ/K@[M?R;@@[C9?0E[NE@VK@@;GK@@=W8K@@EG9I@@:;^0@@AP;@@@ALO )@@G@@/^K[-5R#VK@@/CK[-_/@K[-_G9@@@W;^/@@@9*;K@[/KF@@#C9K@@@R#@^V\P;@@@A/G@[+SLP )@@G@@!8@@@T/K@[+SRB?E[ZRFWE[Z/K@[+GO;)@@[8#K[+I/K@[+SR7"@@@C[J^V,%1I@@@/K@[+FLQ )@@G@@R\"@@@/@0[+RC[J^V,%(I@@@/K@[+FCPY@@@[[VK@@/KF@@]C/@@@[C@:K@@G/)__"*@@@@ILR )@@G@@1@@@@I @@@@GC/)@@[C.@@@IH[FK@@*@@@@K1@@@@K @@@@I)@@@@I/=K[<\/,0@IB@@@E]_LS )@@G@@@@@^7\@[:E#AC@@E#DT/@@@BG/@@@[[@@E#JR@KE#JO/K__"N8L^7\^^K[+7/,0@ID@@@E#@LT )@@G@@@@@E#[@@@[+7@[!E#AD@@^V?*@@@@G1@@@@G/K@[<\C@@E#][@@E#KC@)^V?G/)__"R/K@@[LU )@@G@@[@)@[^A@KE#LC@[^V,[4@E#KC@)E#L;O)@@=W/)@]][@0E#MD@@E#M/C@[Y/,0@IB@@@EB)MH )@@G@@@@@[>Y@[PEB(N8M%B;^^K[>>/,0@ID@@@EBW@@@EB-@@@[>>@[QEB(8L@[>Q/,0@IB@@@EBVMI )@@G@@@@@EBK@[TEB(/,0@ID@@@EBW@@@EB-@@@EBM@[UEB(R@KEB+R@)EB//,0@IB@@@EB-@@@[>/@[ZEB(N8M%CW^^K[&]/,0@IB@@@EB=MK )@@G@@@@@[&]@[)EB(N8L%C=^^K[&D/,0@ID@@@EBW@@@EB>@@@[&D@[-EB(8L@[>4/,0@ID@@@EB&ML )@@G@@@@@EBV@@@EBS@[=EB(N@0[&N/K@[&O@[>EB(RA0EB%R@KEB?R@)EB!N[@EB,/K@UB$AA0EB%MM )@@G@@A@KEB?A@)EB!^[@EB,/K@[>D/,0@ID@@@EDJ@@@EDK@@@EC4@#;EDS/,0@ID@@@EDL@@@EDMMN )@@G@@@@@EC6@#/EDS/,0@ID@@@EDL@@@EDN@@@EC/@#.EDSC/@@@J[@@ED+D@@EDV*@@@@G1@@@@GMO )@@G@@/K@[&5C/@@@<[@@ED+D@@EDW*@@@@G1@@@@G/K@[&;C/@@@7[@@ED+C@@ED+G/@__"R/K@@[MP )@@G@@[@@@[^A@KED/@)[$,/G)[$,R@)ED>O/)__"MQ )@@G@@A@)EDXC@@ED=%/@@@[/K@[$OC/@@@A[@@ED&/,0@IB@@@EDK@@@EDF@^HEDSC@@ED=%/@@@]MR )@@G@@/K@[$TC/@@@W[@@ED&C@@ED=%/@@@#/K@[$YC/@@@4[@@ED&C@@ED=%/@@@^/K@[$G/@__"R@KEG$[@@EG(C@@EGJ[@[@@@[@[@@[MW )@@G@@C@)EGKR@)EG<[@+@@@[@]@@[R@)EG=[@]@@@[@]@@[R@)EG&[@]@@@[@]@@[ @@@@@C.@@@^MX )@@G@@[1@@@@C[)EG>G.)@@[[[)@@@D@@EG>/C@[*&*@@@@G/K@[([/,0@IB@@@EGL@@@^7\@[NEG-MY )@@G@@/,0@IB@@@EGM@@@EG @[OEG-D@@EG>*@@@@G1@@@@G/K@[*7/,0@I[@@@EGN@@@@@@@@@EGOMZ )@@G@@@[QEG-/,0@H?@@@EGP@[REG-/,0@ID@@@EGP@@@EGL@@@EGF@[SEG-/,0@&Z@[TEG- @@EG2NA )@@G@@ @@EG3 @@EG4 @@EG5C_)@@[R@)EG*N#0EG([#)EG6C/@@@[?@@EG6/K@[(-/,0@F+@@@EGHNB )@@G@@@@@EGQ@@@EG8@@@EGR@@@EGS@[C8FK@#[@@EG$NU )@@G@@[^@[(1[^@[:C8FK@A[@@EG&[^@[?@NV )@@G@@[^@[:[C8FK@B[^@[:B[^@[*-C8FK@C[^@[:Z[^@[(4[^@[(%[^@[*W[^@[:^[^@[?E[^@[%*NW )@@G@@[^@[?#[^@[%O[^@[*Y/K@[*F9?FK@@9*@EH^9*@EHJ @@EHZC4FK@[?8@@@A/K@[!=A]0EHZNX )@@G@@9?FK@[9*@EHL9?FK@]9*@EHPC@@EHV[@@EHOC8@EHJ'=@@[ [@:K@A*@@@@I/KFK@BC@@EHTNY )@@G@@[@@EHD/K@[!> @@EHDC@F@@#[C@EHEC@F@@^[^@EHEC@FK@ ;G@@@=W8@@@W[C@EHFT8@@@WNZ )@@G@@[C@EHCA]0EHWC8@EH^/,0@X+/K@[!5R]0EHW/KF@@DR]0EHWG9K@[@[[VK@A/KFK@BC@F@@@OA )@@G@@[^@EHGC@VK@[[^KEHF/@K[, /GK[, ;CK@@[H8K@@[&;@@@];G)@[C9*?)@@8#K[,#A]0EHXOB )@@G@@C8@EH^/,0@VM/K@[!5/K@[,MR]0EHXC4@EHI/^@[!9(@@EHZ/KF@@^**@EHI/K@[!9/KF@@^OC )@@G@@R]0EHX/KFK@]A]0EHXC8@EH^/,0@YJR]0EHX/KF@@[ @@ D @@ DA @@ DB @@ DC @@ DDOD )@@G@@ @@ DE @@ DFC/@@@[[@@ DG @@ DH @@ DI @@^]/ @@ DN @@ DO @@ D^/,0@>H@@@^9SOE )@@G@@@@@^95@[YEI0 @@EI9R/K@@[N_0@[[C@[^94:/@@@ /K@[,8C@@EI9G/@@@[[@@EI9R@)EI9OF )@@G@@C@-^94[@+^94O/K@@[8N0[,\C@@EI9[@@EI;G/@@@[[@@EI/R@)EI/C@)EI9G/)_".N8M^94OG )@@G@@^^K[\B]@)EI2/,0@F+@@@EIX@@@EIY@@@[\B@@@EIZ@@@EI2@[:EI0 @@EI./,0[?-@@@^9SOH )@@G@@@@@^95@@@EI;@@@EJB@@@ DL@@@ D@@@@ D]@@@EI.@@@EI"/K@[4&/K@[4+@[!EI0/,0@IBOI )@@G@@@@@EI)@@@EH)@[,EI0C4@EI"[@@EI_C))EI"[@)EJ@C.@@@[[[@EJ[D@@EJ@*@@@@G1@@@@GOJ )@@G@@/K@[\;D@@EI_*@@@@G1@@@@G/K@[\3/,0@I[@@@EIZ@@@EJB@@@EI_@[6EI0C@@EI_G@@EJ[OK )@@G@@[@@EJ[/,0@I[@@@EJ[@@@EH+@@@EIZ@[8EI0C@@EJ[G/@@@[[@@EJ[C0@EI"[@@EI_D@@EI_OL )@@G@@*@@@@G1@@@@G/K@[0B/,0@I[@@@EJ[@@@ DL@@@EI_@[.EI0/K@[0H/,0@IB@@@EJ[@@@EH=OM )@@G@@@[_EI0C/@@@^[@@EI_C@@EI_G@@EJ[[@@EJ[/,0@IB@@@EJ[@@@EH&@]]EI0R@KEI-N_0@@^ON )@@G@@C@[^P?[@[%JE8N0[0Q/,0@J3@@@EJD@@@EI+@@@EJ]@]DEI0 @@EJ#/K@[0@@@EIZ@@@EH,@]\EI0/K@[4JC/@@@[[@@ DI/,0@KW@]2EI0/K@[0)C@@ DHG/@@@[OZ )@@G@@[@@ DH/K@[0)C/@@@[[@@ DC/K@[0)C/@@@[[@@ DD/K@[0)C/@@@[[@@ DO/K@[0)C/@@@[PA )@@G@@[@@ DB/K@[0)C/@@@[[@@^]//K@[0)C/@@@[[@@ DN/K@[0) @@ DG/K@[0)D@@EJ#*@@@@GPB )@@G@@1@@@@G/K@[3#/,0@H?@@@EI&@# EI0/,0@K\@@@EH4/K@[3Q@@@EJ]@#AEI0/,0[!I@@@EH7PC )@@G@@@@@ D@@@@ D]@@@^';@@@ [;@@@EI$@@@EJ]/K@[3%@#BEI0C8)@@[N@0[3P/K@[4*@#CEI0PD )@@G@@/,0@ID@@@EI*@@@EI)@@@EH'@#DEI0/,0@IB@@@EI)@@@^7\@#EEI0/,0@IB@@@EI<@@@EH/PE )@@G@@@#FEI0/,0@IJ@@@EI&@@@EI(@@@EJ]@@@EI%@#GEI0/K@[4J/,0@ID@@@EI*@@@EI)@@@EI]PF )@@G@@@#IEI0/,0@IB@@@EI)@@@^7\@#JEI0C@@EJ]G/@__./@@[3./C@[4E/,0@ID@@@EI&@@@EI@@@EI:PH )@@G@@@@@EJA@@@EIX@#REI0/K@[4J/,0@ID@@@EI>@@@EI<@@@EIJ@#TEI0/,0@IB@@@EI)@@@EIQPI )@@G@@@#UEI0/,0@I#@@@EI>@@@EI?@@@^9S@@@EI!@#VEI0/,0@ID@@@EI&@@@EI)@@@EIV@#WEI0PJ )@@G@@C8)@@#N@0[4-/K@[4*@#XEI0C8)@@]N@0[4>/K@[4*@#YEI0N@0[4*/K@[4?!^)EI,/K@@K"PK )@@G@@H8)@@[[^)EI,RA0EI1C#)EI3R@KEI4R@)EI5N#0EI6/K@UI,C8@@@^AA0EI1[^@EI,[#)EI3PL )@@G@@A@KEI4A@)EI5^#0EI6/K@[,T/,0@>H@@@@@@@@@EJ-@[ EJRC_)@@[R/K@@@N.@@@G[#)EJYPM )@@G@@C@[EJ-:@@EJK/K@[5DO/K@@[G_)@@[8L@[5[/K@[5%C@@EJYG/@@@[[@@EJZG/@__"D@)EJZPN )@@G@@G/)@[]C#)EJZR@K@@G[@)@[^[#)EJ)C@[EJ-:@@EJL/K@[5UO/K@@[G_)@@[8L@[5M/K@[5%PO )@@G@@R@KEJ)C@[EJ-%@@EJM/K@[5%R@KEJ)C@[EJ+%@@EJN/K@[5%R@KEJ)C@[EJ<%@@EJO/K@[5%PP )@@G@@C8)@@]N@0[5(/K@[5!@[XEJRN@0[5?/K@[51@[YEJR!^)EJP/K@@K"H8)@@[[^)EJPRA0EJSPQ )@@G@@C#)EJUR@KEJVN[@EJW/K@UJPC8@@@#AA0EJS[^@EJP[#)EJUA@KEJV^[@EJWC8FK@@[^@[4;PR )@@G@@/K@[4'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@[@@ @@[@@@@@@@@F@@@@@O@@@@@R@@@@@M@@@@YZ@@@@Y4@@@@Y4@@@@Y4PT )@@G@@@@@@Y4@@@@Z%@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y_@@@@Y4@@@@Y4PU )@@G@@@@@@Y4@@@@Y_@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y_@@@@Y4@@@@Y:@@@@Y4@@@@Y4PV )@@G@@@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y8@@@@Y8@@@@Y4@@@@Y8@@@@Y4@@@@Y4@@@@Y4PW )@@G@@@@@@Y8@@@@Y8@@@@Y4@@@@Y4@@@@Y4@@@@Y4@@@@Y8@@@@Y4@@@@Y'@@@@Y'@@@@Y'@@@@Y'PX )@@G@@@@@@Y'@@@@Y'@@@@Y'@@@@Y'@@@@Y'@@@@Y'@@@@ZD@@@@Z!@@@@Y8@@@@Y8@@@@Y4@@@@Y4PY )@@G@@@@@@YZ@@[@@@@@[@@@@@@@@@@@@@@@__"__"@@@@@H@@@@@OPROCEDURE & ______ NOT FPZ )@@G@@OUND IN FILE & ______ PROCEDURE &______ CANNOT READ.& ______BSP ERQA )@@G@@ROR STATUS=&______FORTRAN PROCEDURE TABLE IS EMPTY. FILE=& ______ &QB )@@G@@______I-O ERROR. STATUS=& ______FILE=&______PROCEDURE=& ______ &QC )@@G@@______@@@@@@_____"@@@@@O@@@@@Z@@@@@G@@@@@!@@@@@#@@@@[@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@]@@@@@[@@@@@&@@@@@H@@@@@/@@@@@@@@@@@I END @@@@@$@@@@@?@@@@@2@@@@[DQE )@@G@@@#;@@@@#;@@@PROCIT@]!@@@@#;@@]@#;@@]DUMMY @]1@@@@@@@@@@@@@@@@@@@@@@@@^0,QF )@@G@@@@@@@@@@@^4I@@@^0,@@@^0,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@**** TOO MANY ERRORS - RUN ABORTED '=@@@) @@____QI )@@G@@/K@@&&@[A^V-***** ERROR *****&@@@@@@@@@@@@@@@@@@@@@@@@ARRAY OVERFLOW-STAQJ )@@G@@TEMENT TOO LONG.& @@@@@@NON-ARITHMETIC STATEMENT NOT DEFINED.& VARIABQK )@@G@@LE ILLEGAL.&@@@@@@@@@@@@@@@@@@@@@@@@DATA LIST LONGER THAN CARD.& @@@@@@QL )@@G@@@@@@@@STATEMENT NUMBER ILLEGAL.& @@@@@@@@@@@@PARENTHESE COMBINATION IQM )@@G@@LLEGAL.& @@@@@@IF STATEMENT ILLEGAL& @@@@@@@@@@@@@@@@@@ERROR IN NESQN )@@G@@TING OF FUNCTIONS.& @@@@@@WORD TOO LONG.& @@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@VARIABLE TOO LONG.& @@@@@@@@@@@@@@@@@@NO RIGHT PARENTHESES.& @@@@@@QP )@@G@@@@@@@@@@@@@@ERROR IN GETTING SUBSCRIPT.& @@@@@@@@@@@@EXCEEDED LENGHT OFQQ )@@G@@ CARD DATA.&@@@@@@@@@@@@VARIABLE NOT IN TABLE.& @@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@ ______@FREE,A I$I$I$. . ______& ______ &______TO MANY LABEQT )@@G@@L COMMON BLOCKS.MAX=300.& ______I$I$I$ ______@@@@@@@@@@@[@@@@@IQU )@@G@@@@@@@# @@@@@F_____"@@@@@A@@@@@G@@@@@O@@@@@_ END @@@@@]@@@@@L@@@@@SQV )@@G@@@@@@@S@@@@@(@@@@@J@@@@@B@@@@@/@@[@@@@@@@@^@@@@@ @@@@@,@@@@@U@@@@@K@@@@@)QW )@@G@@@@@@@I@@@@@F@@@@@T@@@@@P@@@@@=@@@@@Q@@@@@*@@@@@R@@@@@V@@@@@A@@@@@N@@@@@BQX )@@G@@@@@@@J@@@@@E@@@@@R@@@@@U@@@@@W@#;@@#@#;@@#DCT8 @HU@@@@#;@@@@#;@@@FCTCK QY )@@G@@@H*@@@@#;@@]@#;@@]GETSN @H/@@@@@[@@[@@@@@;@@@@@$@@@@@D@#;@@@@#;@@@GETVARQZ )@@G@@@I!@@@@@@@@E@#;@@@@#;@@@RJTNOS@I.@@@@@@@@C@@@@@.@@@@@H@@@@@T@@@@@D@@@@@-RA )@@G@@@@@@@+@#;@@^@#;@@^UNPACK@L>@@@@#;@@@@#;@@@UPSN @L2@@@@@@@. @#;@@[@#;@@[RB )@@G@@LPRT @M[@@@NMLT @@@@@[NL@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@RC )@@G@@@@@H@@@@@I@@@@@J@@@@@O@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@RD )@@G@@DA CM@@@@RL EQ DM AB EX LG CP DP IN PR RE )@@G@@DMVR FCTN SBRT SWVR FA @@@L@@ LBCM END ]@@@@@@@@@@F@@@@@URF )@@G@@@@@@@N@@@@@C@@@@@T@@@@@I@@@@@O@@@@@N@@@@@@@@@@@@& ______& ______RG )@@G@@& ______TABLE OVERFLOW NO.=& ______DATA PROGRAM IS TO LARGE.& RH )@@G@@______F & ______@@@@@@@@@@@[@@@@@V@@@@@3@@@@ZK@@@@[I@@@#%S@@[@@@@@@@@ RI )@@G@@LBCM $BLANK_____"@@@@@A@@@@@C@@@@@^@@@@@G@@@@@]@@@@@ @@@@@X@@@@@>@@@@@BRJ )@@G@@@@@@@H@@@@@S@@@@@O@#;@@@@#;@@@TBL1 @ V@@@@@@@W@@#;@@[@#;@@[DRUM @ '@@@RK )@@G@@@@@@@E@#;@@#@#;@@#ENTER @A^@@@@#;@@@@#;@@@LOCATE@BI@@@@@@@@*@@@@@#@@@@@0RL )@@G@@@#;@@]@#;@@]OVFL8 @BR@@@@@@@@P@@@@@<@@@@@%@@@@@'@#;@@[@#;@@[PNCH @B1@@@RM )@@G@@ DMVR FCTN ** ******@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO RN )@@G@@IF(L) IF(A) GOTO(UC) GOTO(A) GOTO(C) CALL RO )@@G@@FCT REF RTRN(S) RTRN(NS) ASSIGN TAPES INPUT RP )@@G@@OUTPUT SUB PROG STOP ACCEPT DISPLAY ERPRINT RQ )@@G@@REPEAT REPLACE GENERATE REGISTER ARGUMENT ALTPRINT RR )@@G@@MONITOR ASM$INTF ABORT BUFFER FILE IDENTIFY RS )@@G@@JUMP LABELS NAME NEXT READ SCAN RT )@@G@@UNIQUE WRITE C@FK@@[W@E[YC@FK@[[?@E[YC@F@@][^@E[YRU )@@G@@C@@E[Y'=@@@I/KF@@^@@@@@@@@AE[9@@]E[_@@ E][@@CE]A@@CE]I@@]E]P@@]E]R@@@E]TRV )@@G@@@@BE]T@@@E])@@@E])@@[E])@@]E]-@@[E]<@@@E]=@@^E]=@@@E]*@@DE]*@@CE]1@@@E]9RW )@@G@@@@@E]9@@@E]9@@#E]9@@@E]/@@@E]/@@@E]/]S#S@[]R#G@]]B#N@#]C#C@6]L#T@9]S^$@"RX )@@G@@]L#O@^]A#C@ ]A#L@A]O^M@B]O#N@C]O L@D]O I@E]O#U@F]O@@@G]I#M@H]A#T@I]E#C@JRY )@@G@@]E#F@K]E#L@L]I#S@7]Q#U@M]X#T@N]N#T@O]N#C@P]N^F@Q]N#D@R]R#P@8]O#R@S]U#N@TRZ )@@G@@]O#T@U]E#N@/]N#C@V]N#T@W]M#P@X]F#D@Y]F#A@Z]F#Q@)]F@@@-]O#G@+]O#N@<]A#C[@SA )@@G@@]A#M@=]A#R@>]A#U@&]R#I@$]U#N@*#P^L@;#A^L@?]E#T@!]E#W@,]E^E@']E#G@.]E I@(SB )@@G@@]E T@%]E^D@:]TAE@5]T E@5]TAT@5]T T@5]T#O@\]U#B@0]E#N@1]C#A@_]RAO@2]RAT@3SC )@@G@@]R#I@4@@@@@@ & ___________"@@@@@[@@@@@O @@@@]]@#;@@]@#;@@]PRTERRSD )@@G@@@]A@@@& ______V A R I A B L E T A B L E& ______& ______VARBLESE )@@G@@& ______FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& ______& SF )@@G@@______@@@@@______"@@@@@[@@@@@!@@B@@B@@A@@A@@A@@@@@@@@A@@@@@:@@@@[J@@@@@HSG )@@G@@@@@@@X@@@@@]@@@@@&@#;@@[@#;@@[HEAD1 @[V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@THE FIRST FLAG INDICATES THE& NATURE OF THE ALPHSI )@@G@@ABETIC ENTITY& = UNDIMENSIONED VARIABLE& DMVR = DIMENSIONEDSJ )@@G@@ VARIABLE& FCTN = FUNCTION NAME& LBCM = NAME OF LABSK )@@G@@ELED COMMON& SBRT = SUBROUTINE NAME& SWVR = SWITCH VARISL )@@G@@ABLE& NMLT = NAMELIST NAME& & SM )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICATE THAT THE SN )@@G@@ENTITY IS IN THE& CORRESPONDING TYPE OF STATEMENT& AB = ABNORMAL SO )@@G@@EX = EXTERNAL& CM = COMMON FA = FORML AGUMT& CP = COMPLEX SP )@@G@@IN = INTEGER& DA = DATA LG = LOGICAL& DM = DIMENSION SQ )@@G@@PR = PARAMETER& DP = DBL PRECISN RL = REAL& EQ = EQUIVALENCE SR )@@G@@NL = NAMELIST& THE FLAGS FOLLOWING THE LINE NUMBERS& (ON WHICH THSS )@@G@@E ENTITY WAS REFERENCED)& INDICATE THE NATURE OF THE REFERENCE& ST )@@G@@A = SET EQUAL,DEFINED,ASSIGNED& B = REFERENCED,CALLED G = FORMSU )@@G@@AT& C = CALLING SEQUENCE H = I-O UNIT& D = SUBSCRIPT SV )@@G@@ I = READ& E = SPECIFICATION O = WRITE& J = DOSW )@@G@@ PARAMETER L = LIST& & SX )@@G@@ &______S T A T E M E N T N U M B E R T A B L E& ______SY )@@G@@ &______ &______OF THE REFERENCE& ______ &______ &______SZ )@@G@@@@@@@______"@@@@@[@@@@@>@@D@@@@@D@@D@@@@@A@@@@@/@@^@@^@@#@@#@@@@[J@@@@[)TA )@@G@@@@@@@]@#;@@[@#;@@[HEAD2 @[>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER& IS THE NUMBER OF TTC )@@G@@HE LINE ON WHICH IT WAS DEFINED& THE FLAGS FOLLOWING THE LINE NUMBERSTD )@@G@@ (ON WHICH THE& STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE& TE )@@G@@D = DEFINED& S = FORMAT NUMBER&T = NONSTNDRD RTN&U = ASSIGNED& TF )@@G@@V = DO& W = GOTO (CNDTNL)&X = GOTO (UNCNDTNL)& Y = IF (ARITTG )@@G@@HMETIC)& & & ______T R A N S F E R T A BTH )@@G@@ L E& ______ONLY THOSE ENTRIES WHICH ARE REFERENCED ARE PRINTED OUT. THTI )@@G@@E COMPLETE LIST FOLLOWS&______ & ______ & ______@@@@@______"@@@@@[TJ )@@G@@@@@@@!@@@@@A@@@@@]_____.@#;@@#@#;@@#HEAD3 @^W@@@DO& GO TO (UNCONDITIONTK )@@G@@AL)& CALL& RETURN (NON-STANDARD)& INPUT STOP& IF (LOGICAL)& TL )@@G@@GO TO (ARITHMETIC)& FUNCTION REFERENCE& ASSIGN& OUTPUT& TM )@@G@@IF (ARITHMETIC)& GO TO (CONDITIONAL)& RETURN (STANDARD)&TAPES&INTERNTN )@@G@@AL SUBPROGRAM& NON-STANDARD FORTRAN STATEMENTS.& ACCEPT& DISPLATO )@@G@@Y& ERPRINT& REPEAT& REPLACE& GENERATE& REGISTER& ARGUMETP )@@G@@NT& ALTERNATE PRINTER&MONITOR& ASM$INTERFACE& MACROS LISTED BELOTQ )@@G@@W. (NO VARIABLES OR STATEMENT NOS. WILL BE GENERATED.)& ABORT&BUFFERTR )@@G@@& FILE& IDENTIFY& JUMP& LABELS& NAME& NEXT& READ& SCAN& UNIQUETS )@@G@@& WRITE&@@@@@@@@@@@[@@@@@]@@@@@A@@@@@B@@@@@F@@@@@I@@@@@L@@@@@P@@@@@TTT )@@G@@@@@@@V@@@@@X@@@@@)@@@@@=@@@@@$@@@@@*@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2TU )@@G@@@@@@@4@@@@@6@@@@@8@@@@@'@@@@@/@@@@@"@@@@[@@@@@[]@@@@[ @@@@[B@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@[R@@@@[S@@@@[U@@@@[V@@@@[XTW )@@G@@@@@@[Y@@@@[)@@@@[-@@@@[+@@@@[<@@@@[=@@@@[&@@@@@@@@@@@@@@@@@@CONTROL CARDTX )@@G@@ ERROR. IMAGE=& ______ & ______ ______ TPF$ _____"@@@@@OTY )@@G@@@@@@@\@@@@[]@@@@@]@@@@@@@@@@@[@@@@@G@@@@@.@@@@@*@@@@@/@@@@@,END MERGE TZ )@@G@@@#;@@@@#;@@@CHKCC @]7@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ @@@@@@& ______******______UC )@@G@@TPF$& ______. . & ______IGNORE INVALID OPTION(S).& ______I OPTION. NOUD )@@G@@. TOO LARGE.& ______I$I$I$ ______I$I$I$ ______ & ______UE )@@G@@CANNOT ASSIGN FILE. STATUS=& ______ & ______CANNOT FIND ELEMENT IN FUF )@@G@@ILE.& ______I/O ERROR. STATUS=& ______PROGRAM NOT DEFINED OR OVERFLOUG )@@G@@W.& ______CONTROL CARD IMAGE=& ______ & ______@@@@@ @@@@@@@@@@@[UH )@@G@@_____"@@[@@[@@@@@B@@@@@O@@@@@0@@@@@#@@@@@]@@@@B@@@@@@_@@@@@0@@@@@H@@@@@$UI )@@G@@@@@@@P@@@@[]@#;@@@@#;@@@CTCDIT@#Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@KEJD)@-EG<)@REI2)[EEJT@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___UK )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___UL )@@G@@@@@___@@@___@@@___@@@___@USE I$I$I$, @@@@@*UM )@@G@@@@@@@P@@@@@R@@@@@O@@@@@C@#;@@@@#;@@@TPROC @[Y@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ@C@->%@MQ@@@___@]<^@@UO )@@G@@@@E^]3@[0^Q#)@K^]<)NA^].&@H^R3@@@___@@@___@@@___@@@___@@@___@@@___@@@___UP )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___UQ )@@G@@/\K@C);G@@@=;^@@@#;C@@@-O;@@@0')J)C$8^@@C]/KF@@[/\K@C)A#@@[[E@K@[[R;@@@@UR )@@G@@W8@@@EO;K@@0;^@@@=')J)C$H9@@@[1@@@@K/^K@CFR;@@@-R#K^]O0@@@[[/K@@CX/D@@CVUS )@@G@@/KF@@[/\K@C);G@@@=R#@@@H;@K@@A')J)C$8^@@CV/KF@@[RB:@@@O#)^]NR#0@@IQ\;@@@UT )@@G@@C5F@@@8^H@@@/KH@@@/\0@C!A3I@@@A\I@@@A:I@@@A$I@@@AC^)^QC[^)@I-C?0^QCH80@@[C@@^Q+[@J@@@8#0@I- W@^QDVZ )@@G@@/K@@I\/@K@I\%8K@@[/K@@I% W@^QD/K@@I\C8@@@@H8K@@[W8@@@A[0@^QD[4K^QDA]0^QOWA )@@G@@C8@^QC/,0@C"R]0^QOC@@^QP%8@@@]/K@@I/C^F@@[/,0@EM/,0@DC'^@^QUR]0^QO/KF@@#WB )@@G@@A[@^QMA[K^QNR F@@[&9@@@[C@FK@][@@^QQ(CF@@#/K@@JBR9K@@@ @@^QR/K@@JHR[VK@#WC )@@G@@P9K@@[C@FK@^[@@^QRO'0@@]A]0^QO(@@^QR/K@@JQC@K^QR/GK@JOC8@^Q+/,0@E]/K@@JQWD )@@G@@D@@^QR/,0@D;C@@@AG80@@A;-@@@A')I)MFWP )@@G@@/K@@LX;*J@@@C@0@@G @@@@K;=0@@A')I)MF/^0@L*C9@@@ ')I)MF9?@@[](@@@@L'=@@@MWQ )@@G@@C@0@@G/\@@MAC9@@@/')I)MF/\@@MAC9@@@/')I)MF/\@@MAC9@@@ ')I)MFC@0@@H/\@@MAWR )@@G@@C9@@@:')I)MF/\@@MAC9@@@:')I)MF/\@@MAR]K@[[Q'0@@@/SF)@@/KF@@@;=0@@A')I)MFWS )@@G@@;=0@@A')I)MF/KG@@@[5D@@@[1D@@@[!D@@@[(D@@@[>D@@@/,0@MLQ;)@@@[-D)@@/KF@@@WT )@@G@@RLIB LMSC37@@@@@@@MP@C@^R2^]N@@@@ ^)O@@@@[5"@MQEK+^R3@@@@@()O@@@@@X8@MQWU )@@G@@ED_^R3@@@@@]'^@@G-'^@@G\[?-@@['^@@G-'^@@G\@$G@@['^@@G-'^@@G\@$B@@['^@@G-WV )@@G@@'^@@G\[42@@['^@@G-'^@@G\[]L@@['^@@G-'^@@G\@&Z@@['^@@G-'^@@G\@&,@@['^@@G-WW )@@G@@'^@@G\@&)@@['^@@G-'^@@G\[+]@@['^@@G-'^@@G\@P8@@['^@@G-'^@@G\[>#@@['^@@G-WX )@@G@@'^@@G\[&T@@['^@@G-'^@@G\[*]@@['^@@G-'^@@G\[-2@@['^@@G-'^@@G\@X3@@]'^@@G-WY )@@G@@'^@@G\@O+@@]'^@@G-'^@@G\@Z;@@['^@@G-'^@@G\@&1@@['^@@G-'^@@G\@&2@@['^@@G-WZ )@@G@@'^@@G\@&5@@['^@@G-'^@@G\@=Z@@['^@@G-'^@@G\@=+@@['^@@G-'^@@G\[<8@@['^@@G-XA )@@G@@'^@@G\[!I@@['^@@G-'^@@G\[!9@@['^@@G-'^@@G\[,O@@['^@@G-'^@@G\@M-@@['^@@G-XB )@@G@@'^@@G\@NE@@['^@@G-'^@@G\@VM@@['^@@G-'^@@G\@YJ@@['^@@G-'^@@G\@X+@@['^@@G-XC )@@G@@'^@@G\@YP@@['^@@G-'^@@G\[UD@@['^@@G-'^@@G\[UG@@['^@@G-'^@@G\[UJ@@['^@@G-XD )@@G@@'^@@G\[UM@@['^@@G-'^@@G\[UP@@['^@@G-'^@@G\[56@@['^@@G-'^@@G\@=;@@['^@@G-XE )@@G@@'^@@G\@>@@@['^@@G-'^@@G\@>H@@['^@@G-'^@@G\@>>@@['^@@G-'^@@G\@>*@@['^@@G-XF )@@G@@'^@@G\@>0@@['^@@G-'^@@G\@&[@@[__"@@@ ILLEGAL ARGUMENT IN CALLING SXG )@@G@@EQUENCE FOR SUBROUTINE MOVER @]E^]P H, ,. @@[^]]@I@@@@ IF(IAREG(KK).EQ.32JP )@@G@@)IPARN=IPARN-1 @ 32 ) 040 DCT802120227*[@@@@CTS@>GJQ )@@G@@@I@@@@ IF(IAREG(KK).EQ.41)IPARN=IPARN+1 @ 41 ( 051 JR )@@G@@ DCT802130228*[@@@@CTS@>Q@I@@@@ IF (IPARN.EQ.0) GO TO 350 JS )@@G@@ DCT802140229*[@@@@CTS@>)@I@@@@ 340 JT )@@G@@CONTINUE DCT802JU )@@G@@150230*[@@@@CTS@>%@I@@@@ GO TO 360 JV )@@G@@ DCT802160231*[@@@@CTS@>4@I@@@@C CHECK FOR EJW )@@G@@QUAL SIGN DCT802170232*[@@@@JX )@@G@@CTS@>"@I@@@@ 350 IF (IAREG(KK+1).EQ.36) GO TO 1510 @ 36 = 044 JY )@@G@@ DCT802180233*[@@@@CTS@&C@I@@@@C * DETERMINE WHICH TYPE OFJZ )@@G@@ NON-ARITHMETIC STATEMENT DCT802190234*[@@@@CTS@&M@I@@@@KA )@@G@@ 360 CALL FINDER ( L ) @ MKB )@@G@@DCT802200235*[@@@@CTS@&W@ @@@@ IF ( L.GT.62 )GO TO 1670*[@@@@CTS@&&KC )@@G@@@I@@@@ IF (L) 370,370,380 @ KD )@@G@@ MDCT802210237*[@@@@CTS@&0@I@@@@ 370 CALL PRTERR ( 2 ) KE )@@G@@ @ NON-ARITH UNDEFINED DCT802220238*[@@@@CTS@&'@I@@@@ 380 KF )@@G@@GO TO (420,430,410,480,460,490,500,610,590,580,690,680,670,620,650DCT802KG )@@G@@230239*[@@@@CTS@$^@I@@@@ *,660,160,740,750,760,710,730,720,160,770,8KH )@@G@@20,960,1030,160,1270,126DCT802240240*[@@@@CTS@$I@I@@@@ *0,1280,390,1KI )@@G@@050,1070,1360,1080,1090,1100,1110,1130,1140,1120,1150,DCT802250241*[@@@@KJ )@@G@@CTS@$S@I@@@@ *1170,1180,1190,1210,1310,1240,1250,1230,1200,1530,1540KK )@@G@@,1550,1560,1DCT802260242*[@@@@CTS@$+@I@@@@ *570,1580,1620,1650,1660)KL )@@G@@,L @ MDCT802270243*[@@@@CTS@$?@I@@@@KM )@@G@@C MGC KN )@@G@@DCT802280244*[@@@@CTS@$6@I@@@@C IF OR IF (SENSE LIGHT) OR IF (SENSESKO )@@G@@WITCH) MDCT802290245*[@@@@CTS@*@@I@@@@ 390 DO 400KP )@@G@@ I=4,10 @ MDCT802300246KQ )@@G@@*[@@@@CTS@*E@I@@@@C CHECK FOR NON-ALPHA KR )@@G@@ MDCT802310247*[@@@@CTS@*O@I@@@@ CALL CHKLET(IAREG(KS )@@G@@I),$400,$880) DCT802320248*[@@@@CTS@*YKT )@@G@@@I@@@@ 400 CONTINUE @ KU )@@G@@ MDCT802330249*[@@@@CTS@**@I@@@@ IF (NWAR.LT.9) GO TO 880 KV )@@G@@ DCT802340250*[@@@@CTS@*2@I@@@@ KW )@@G@@IF (IAREG(9).EQ.'@@@@@L') GO TO 1290 @ MDCT802KX )@@G@@350251*[@@@@CTS@*/@I@@@@ IF (IAREG(9).EQ.'@@@@@S') GO TO 1300 @ KY )@@G@@ MDCT802360252*[@@@@CTS@(A@I@@@@ GO TO 370 KZ )@@G@@ @ MDCT802370253*[@@@@LA )@@G@@CTS@(K@I@@@@C * THIS SECTION OF THE PROGRAM TREATS EACH STATEMENT TYPLB )@@G@@E SEPERATELYDCT802380254*[@@@@CTS@(U@I@@@@C FOR EACH STATEMENT TYPELC )@@G@@ THE APPROPRIAE SUBROUTINES ARE CALLED SO DCT802390255*[@@@@CTS@(=@I@@@@LD )@@G@@C THAT THE VARIABLES,STATEMENT NO'S,ETC ARE ENTERED IN TBL8 LE )@@G@@DCT802400256*[@@@@CTS@(,@I@@@@C 'ABNORMAL' LF )@@G@@ DCT802410257*[@@@@CTS@(8@I@@@@ 410 IU=9 LG )@@G@@ DCT802420258LH )@@G@@*[@@@@CTS@%]@I@@@@ CALL UNPACK (KE,KAB,0) LI )@@G@@ DCT802430259*[@@@@CTS@%G@I@@@@ GO TO 160 LJ )@@G@@ DCT802440260*[@@@@CTS@%QLK )@@G@@@I@@@@C 'ASSIGN' LL )@@G@@ DCT802450261*[@@@@CTS@%)@I@@@@ 420 IU=7 LM )@@G@@ DCT802460262*[@@@@CTS@%%@ @@@@ LN )@@G@@CALL TBL4 ( 11,LC ) *[@@@@CTS@%4@I@@@@ CALL GETSN (KU) LO )@@G@@ DCT802480264*[@@@@CTS@%"@I@@@@LP )@@G@@ IU=IU+2 LQ )@@G@@DCT802490265*[@@@@CTS@:C@I@@@@ CALL GETVAR($160,$450,KA,0,0,0) LR )@@G@@ DCT802500266*[@@@@CTS@:M@I@@@@ GO TO LS )@@G@@160 DCT802510267LT )@@G@@*[@@@@CTS@:W@I@@@@C 'ARGUMENT' LU )@@G@@ MDCT802520268*[@@@@CTS@:&@I@@@@ 430 IU=9 LV )@@G@@ @ MDCT802530269*[@@@@CTS@:0LW )@@G@@@ @@@@ CALL TBL4 ( 24,LC ) *[@@@@CTS@:'@I@@@@ 440 CALL GETVAR(LX )@@G@@$160,$160,KA,0,0,0) DCT802550271*[@@@@LY )@@G@@CTS@?^@I@@@@ IF (IAREG(IU).EQ.'@@@@@(') GO TO 160 LZ )@@G@@ DCT802560272*[@@@@CTS@?I@I@@@@ IU=IU + 1 MA )@@G@@ DCT802570273*[@@@@CTS@?S@I@@@@MB )@@G@@ IF (IU.GT.NWAR) GO TO 160 MC )@@G@@DCT802580274*[@@@@CTS@?+@I@@@@ GO TO 440 MD )@@G@@ DCT802590275*[@@@@CTS@??@I@@@@ 450 CALL PME )@@G@@RTERR ( 3 ) @ VARIABLE ILLEGAL DCT802600276MF )@@G@@*[@@@@CTS@?6@I@@@@C 'BACK SPACE' MG )@@G@@ DCT802610277*[@@@@CTS@!@@I@@@@ 460 IU=10 MH )@@G@@ DCT802620278*[@@@@CTS@!EMI )@@G@@@ @@@@ 470 CALL TBL4 ( 12,LC ) *[@@@@CTS@!O@I@@@@ CALL UNPACK MJ )@@G@@(KH,0,2) DCT802640280*[@@@@MK )@@G@@CTS@!Y@I@@@@ GO TO 160 ML )@@G@@ DCT802650281*[@@@@CTS@!*@I@@@@C 'BLOCK DATA' MM )@@G@@ DCT802660282*[@@@@CTS@!2@ @@@@MN )@@G@@ 480 CALL TBL4 ( 15,LC ) *[@@@@CTS@!/@I@@@@ GO TO 160 MO )@@G@@ DCT802680284*[@@@@CTS@,AMP )@@G@@@I@@@@C 'CALL' MQ )@@G@@ DCT802690285*[@@@@CTS@,K@^@@@@ 490 CALL TBL4 ( 7,LC )*[@@@@CTS@,UMR )@@G@@@I@@@@ IU=5 MS )@@G@@ DCT802710287*[@@@@CTS@,=@I@@@@ CALL GETVAR($160,$160,KB,0,KSBMT )@@G@@RT,0) DCT802720288*[@@@@CTS@,,@I@@@@ MU )@@G@@IU=IU+1 DCT802MV )@@G@@730289*[@@@@CTS@,8@I@@@@ NF2=1 @ ALLOW '/MW )@@G@@' DCT802740290*[@@@@CTS@\]@I@@@@ CALL UNPACK MX )@@G@@(KC,0,2) DCT802750291*[@@@@MY )@@G@@CTS@\G@I@@@@ NF2=0 MZ )@@G@@ DCT802760292*[@@@@CTS@\Q@I@@@@ GO TO 160 NA )@@G@@ DCT802770293*[@@@@CTS@\)@I@@@@NB )@@G@@C 'COMMON' NC )@@G@@DCT802780294*[@@@@CTS@\%@I@@@@ 500 IU=7 ND )@@G@@ DCT802790295*[@@@@CTS@\4@I@@@@C CHECKNE )@@G@@ FOR BLANK COMMON DCT802800296NF )@@G@@*[@@@@CTS@\"@I@@@@ KCMA=KCM NG )@@G@@ DCT802810297*[@@@@CTS@0C@I@@@@ IF (IAREG(IU).NE.'NH )@@G@@@@@@@/') GO TO 530 DCT802820298*[@@@@CTS@0MNI )@@G@@@I@@@@ IU=IU+1 NJ )@@G@@ DCT802830299*[@@@@CTS@0W@I@@@@ CALL GETVAR($160,$450,KE,KCM,KNK )@@G@@LBCM,0) DCT802840300*[@@@@CTS@0&@I@@@@ NL )@@G@@IU=IU+1 DCT802NM )@@G@@850301*[@@@@CTS@00@I@@@@ DO 510 IQ=1,KCTSUB NN )@@G@@ DCT802860302*[@@@@CTS@0'@I@@@@C IF THIS COMMON BNO )@@G@@LOCK HAS ALREADY BEEN FOUND, DO NOT ADD TO TABLE DCT802870303*[@@@@NP )@@G@@CTS@1^@I@@@@ IF (IVTE.EQ.KOMTAB(IQ)) GO TO 520 NQ )@@G@@ DCT802880304*[@@@@CTS@1I@I@@@@ 510 CONTINUE NR )@@G@@ DCT802890305*[@@@@CTS@1S@I@@@@NS )@@G@@ IF ( KCTSUB.LT.300 )GO TO 515 @ TABLE FULL? NT )@@G@@MGC 01C *[@@@@CTS@1+@I@@@@ CALL OPAP (2,-1,'TO MANY LABEL COMMONU )@@G@@N BLOCKS.MAX=300.&' ) @ MGC 01C *[@@@@CTS@1?@I@@@@ CALL RNV )@@G@@DS3 MGC 01C NW )@@G@@*[@@@@CTS@16@I@@@@ GO TO 10 NX )@@G@@ MGC 01C *[@@@@CTS@2@@I@@@@ 515 CONTINUE NY )@@G@@ MGC 01C *[@@@@CTS@2ENZ )@@G@@@I@@@@ KCTSUB = KCTSUB + 1 OA )@@G@@ DCT802900306*[@@@@CTS@2O@I@@@@C ADD BLOCK NAME TO TABLE OB )@@G@@ DCT802910307*[@@@@CTS@2Y@I@@@@ OC )@@G@@KOMTAB(IQ) = IVTE DCT802OD )@@G@@920308*[@@@@CTS@2*@I@@@@C SET UP KCM WORD TO DESIGNATE BLOCK OE )@@G@@ DCT802930309*[@@@@CTS@22@I@@@@ 520 KCMA = KCM +OF )@@G@@ IQ DCT802940310*[@@@@OG )@@G@@CTS@2/@I@@@@ GO TO 540 OH )@@G@@ DCT802950311*[@@@@CTS@3A@I@@@@ 530 CONTINUE OI )@@G@@ DCT802960312*[@@@@CTS@3K@I@@@@OJ )@@G@@ 540 CALL UNPACK(KE,KCMA,1) OK )@@G@@DCT802970313*[@@@@CTS@3U@I@@@@ IU = IU+1 OL )@@G@@ DCT802980314*[@@@@CTS@3=@I@@@@C CHECK FOROM )@@G@@ END OF COMMON STATEMENT DCT802990315ON )@@G@@*[@@@@CTS@3,@I@@@@ IF (IU.GE.NWAR) GO TO 160 OO )@@G@@ DCT803000316*[@@@@CTS@38@I@@@@C PROCESS VARIABLE FOLLOP )@@G@@OWING '/' DCT803010317*[@@@@CTS@4]OQ )@@G@@@I@@@@C CHECK FOR BLANK COMMON FOLLOWING LABELED OR )@@G@@ DCT803020318*[@@@@CTS@4G@I@@@@ IF (IAREG(IU).NE.'@@@@@/') GO OS )@@G@@TO 550 DCT803030319*[@@@@CTS@4Q@I@@@@ OT )@@G@@JTA=7 DCT803OU )@@G@@040320*[@@@@CTS@4)@I@@@@ IU=IU+1 OV )@@G@@ DCT803050321*[@@@@CTS@4%@I@@@@ GO TO 560 OW )@@G@@ DCT803060322*[@@@@OX )@@G@@CTS@44@I@@@@ 550 JTA=8 OY )@@G@@ DCT803070323*[@@@@CTS@4"@I@@@@ 560 DO 570 I=IU,NWAR OZ )@@G@@ DCT803080324*[@@@@CTS@5C@I@@@@PA )@@G@@ IAREG(JTA) = IAREG(I) PB )@@G@@DCT803090325*[@@@@CTS@5M@I@@@@ 570 JTA = JTA+1 PC )@@G@@ DCT803100326*[@@@@CTS@5W@I@@@@ NWAR =PD )@@G@@ NWAR-IU+8 DCT803110327PE )@@G@@*[@@@@CTS@5&@I@@@@ GO TO 500 PF )@@G@@ DCT803120328*[@@@@CTS@50@I@@@@C 'COMPILER' - IGNORE APG )@@G@@T PRESENT MDCT803130329*[@@@@CTS@5'PH )@@G@@@I@@@@ 580 GO TO 160 @ PI )@@G@@ MDCT803140330*[@@@@CTS@6^@I@@@@C 'COMPLEX' - CHECK FOR COMPLPJ )@@G@@EX FUNCTION DCT803150331*[@@@@CTS@6I@I@@@@ 590 PK )@@G@@IU=8 DCT803PL )@@G@@160332*[@@@@CTS@6S@I@@@@ CALL FCTCK($600) PM )@@G@@ DCT803170333*[@@@@CTS@6+@I@@@@ LTYPE=KCP PN )@@G@@ DCT803180334*[@@@@PO )@@G@@CTS@6?@I@@@@ GO TO 780 PP )@@G@@ DCT803190335*[@@@@CTS@66@I@@@@ 600 IU=8 PQ )@@G@@ DCT803200336*[@@@@CTS@7@@I@@@@PR )@@G@@ KXX=KCP PS )@@G@@DCT803210337*[@@@@CTS@7E@I@@@@ GO TO 630 PT )@@G@@ DCT803220338*[@@@@CTS@7O@I@@@@C 'CONTPU )@@G@@INUE' DCT803230339PV )@@G@@*[@@@@CTS@7Y@I@@@@ 610 GO TO 160 PW )@@G@@ DCT803240340*[@@@@CTS@7*@I@@@@C 'DATA' PX )@@G@@ DCT803250341*[@@@@CTS@72PY )@@G@@@I@@@@ 620 IU=5 PZ )@@G@@ DCT803260342*[@@@@CTS@7/@I@@@@ KXX=KDA QA )@@G@@ DCT803270343*[@@@@CTS@8A@I@@@@ 630 QB )@@G@@CALL UNPACK ( KE,KXX,1 ) DCT803QC )@@G@@280344*[@@@@CTS@8K@I@@@@C IGNORE DATA QD )@@G@@ DCT803290345*[@@@@CTS@8U@I@@@@ 640 IU=IU+1 QE )@@G@@ DCT803300346*[@@@@QF )@@G@@CTS@8=@I@@@@ IF (IU.GT.NWAR) GO TO 160 QG )@@G@@ DCT803310347*[@@@@CTS@8,@I@@@@C CHECK FOR NON-/ QH )@@G@@ DCT803320348*[@@@@CTS@88@I@@@@QI )@@G@@ IF (IAREG(IU).NE.'@@@@@/') GO TO 640 QJ )@@G@@DCT803330349*[@@@@CTS@9]@I@@@@ IU=IU+1 QK )@@G@@ DCT803340350*[@@@@CTS@9G@I@@@@C CHECKQL )@@G@@ FOR END OF DATA DCT803350351QM )@@G@@*[@@@@CTS@9Q@I@@@@ IF (IU.GT.NWAR) GO TO 160 QN )@@G@@ DCT803360352*[@@@@CTS@9)@I@@@@ GO TO 630 QO )@@G@@ DCT803370353*[@@@@CTS@9%QP )@@G@@@I@@@@C 'DECODE' QQ )@@G@@ DCT803380354*[@@@@CTS@94@I@@@@ 650 IU = 8 QR )@@G@@ DCT803390355*[@@@@CTS@9"@I@@@@ QS )@@G@@KIO = KI DCT803QT )@@G@@400356*[@@@@CTS@'C@I@@@@ IIO = 13 QU )@@G@@ DCT803410357*[@@@@CTS@'M@I@@@@ GO TO 1490 QV )@@G@@ DCT803420358*[@@@@QW )@@G@@CTS@'W@I@@@@C 'DEFINE' QX )@@G@@ DCT803430359*[@@@@CTS@'&@I@@@@ 660 IU=7 QY )@@G@@ DCT803440360*[@@@@CTS@'0@I@@@@QZ )@@G@@ NF3=1 RA )@@G@@DCT803450361*[@@@@CTS@''@I@@@@ GO TO 780 RB )@@G@@ DCT803460362*[@@@@CTS@;^@I@@@@C 'DIMERC )@@G@@NSION' DCT803470363RD )@@G@@*[@@@@CTS@;I@I@@@@ 670 IU=10 RE )@@G@@ DCT803480364*[@@@@CTS@;S@I@@@@ KXX=KDM RF )@@G@@ DCT803490365*[@@@@CTS@;+RG )@@G@@@I@@@@ GO TO 630 RH )@@G@@ DCT803500366*[@@@@CTS@;?@I@@@@C 'DO' RI )@@G@@ DCT803510367*[@@@@CTS@;6@I@@@@ 680 RJ )@@G@@IU=3 DCT803RK )@@G@@520368*[@@@@CTS@/@@^@@@@ CALL TBL4 ( 1,LC )*[@@@@CTS@/E@I@@@@ RL )@@G@@CALL GETSN (KV) DCT803RM )@@G@@540370*[@@@@CTS@/O@I@@@@ NF3=1 RN )@@G@@ DCT803550371*[@@@@CTS@/Y@I@@@@ NF2=1 RO )@@G@@ @ ALLOW '/' DCT803560372*[@@@@RP )@@G@@CTS@/*@I@@@@ CALL UNPACK (KJ,0,2) RQ )@@G@@ DCT803570373*[@@@@CTS@/2@I@@@@ GO TO 80 RR )@@G@@ DCT803580374*[@@@@CTS@//@I@@@@RS )@@G@@C 'DOUBLE PRECISION' - CHECK FOR DOUBLE PRECISION FUNCTION RT )@@G@@DCT803590375*[@@@@CTS@.A@I@@@@ 690 IU=16 RU )@@G@@ DCT803600376*[@@@@CTS@.K@I@@@@ CALL FRV )@@G@@CTCK($700) DCT803610377RW )@@G@@*[@@@@CTS@.U@I@@@@ LTYPE=KDP RX )@@G@@ DCT803620378*[@@@@CTS@.=@I@@@@ GO TO 780 RY )@@G@@ DCT803630379*[@@@@CTS@.,RZ )@@G@@@I@@@@ 700 IU=16 SA )@@G@@ DCT803640380*[@@@@CTS@.8@I@@@@ KXX=KDP SB )@@G@@ DCT803650381*[@@@@CTS@"]@I@@@@ SC )@@G@@GO TO 630 DCT803SD )@@G@@660382*[@@@@CTS@"G@I@@@@C 'ENCODE' SE )@@G@@ DCT803670383*[@@@@CTS@"Q@I@@@@ 710 IU = 8 SF )@@G@@ DCT803680384*[@@@@SG )@@G@@CTS@")@I@@@@ KIO = KO SH )@@G@@ DCT803690385*[@@@@CTS@"%@I@@@@ IIO = 14 SI )@@G@@ DCT803700386*[@@@@CTS@"4@I@@@@SJ )@@G@@ GO TO 1490 SK )@@G@@DCT803710387*[@@@@CTS@""@I@@@@C 'END' SL )@@G@@ DCT803720388*[@@@@CTS@_C@I@@@@C READ SM )@@G@@OUT TABLES DCT803730389SN )@@G@@*[@@@@CTS@_M@I@@@@ 720 IF (INCFL.GT.0) GO TO 1020 SO )@@G@@ DCT803740390*[@@@@CTS@_W@#@@@@ CALL TBL5 *[@@@@SP )@@G@@CTS@_&@I@@@@ CALL RDS3 SQ )@@G@@ DCT803760392*[@@@@CTS@_0@I@@@@ GO TO 10 SR )@@G@@ DCT803770393*[@@@@CTS@_'@I@@@@SS )@@G@@C 'END FILE' ST )@@G@@DCT803780394*[@@@@CTS[@^@I@@@@ 730 IU=8 SU )@@G@@ DCT803790395*[@@@@CTS[@I@I@@@@ GO TO SV )@@G@@470 DCT803800396SW )@@G@@*[@@@@CTS[@S@I@@@@C 'EQUIVALENCE' SX )@@G@@ DCT803810397*[@@@@CTS[@+@I@@@@ 740 IU=12 SY )@@G@@ DCT803820398*[@@@@CTS[@?SZ )@@G@@@I@@@@ CALL UNPACK (KE,KEQ,0) TA )@@G@@ DCT803830399*[@@@@CTS[@6@I@@@@ GO TO 160 TB )@@G@@ DCT803840400*[@@@@CTS[[@@I@@@@C TC )@@G@@ 'EXTERNAL' DCT803TD )@@G@@850401*[@@@@CTS[[E@I@@@@ 750 IU=9 TE )@@G@@ DCT803860402*[@@@@CTS[[O@I@@@@ CALL UNPACK TF )@@G@@(KE,KEX,0) DCT803870403*[@@@@TG )@@G@@CTS[[Y@I@@@@ GO TO 160 TH )@@G@@ DCT803880404*[@@@@CTS[[*@I@@@@C ENTRY - CHECK IF FUNCTION OTI )@@G@@R SUBROUTINE MDCT803890405*[@@@@CTS[[2@I@@@@TJ )@@G@@ 760 IU=6 @ MTK )@@G@@DCT803900406*[@@@@CTS[[/@I@@@@ IF (LFLAG-1) 160,1220,790 @ TL )@@G@@ MDCT803910407*[@@@@CTS[]A@I@@@@C 'FUNCTM )@@G@@TION' DCT803920408TN )@@G@@*[@@@@CTS[]K@I@@@@ 770 IU=9 TO )@@G@@ DCT803930409*[@@@@CTS[]U@I@@@@ LFLAG=2 TP )@@G@@ DCT803940410*[@@@@CTS[]=TQ )@@G@@@I@@@@ LTYPE=0 TR )@@G@@ DCT803950411*[@@@@CTS[],@I@@@@ 780 KXX=KFCTN TS )@@G@@ DCT803960412*[@@@@CTS[]8@ @@@@ 790 TT )@@G@@CALL TBL4 ( 15,LC ) *[@@@@CTS[#]@I@@@@ CALL GETVAR($160,$160,KATU )@@G@@,LTYPE,KXX,0) DCT803980414*[@@@@CTS[#G@I@@@@TV )@@G@@ NF3=0 TW )@@G@@DCT803990415*[@@@@CTS[#Q@I@@@@C CHECK IF SUBROUTINE/FUNCTION IS ABNORMATX )@@G@@L FORMAT DCT804000416*[@@@@CTS[#)@I@@@@C SUBROUTINTY )@@G@@E NAME /CALL/(DUMMY)ARG,REF DCT804010417TZ )@@G@@*[@@@@CTS[#%@I@@@@ IF (IAREG(IU).NE.'@@@@@/') GO TO 810 UA )@@G@@ DCT804020418*[@@@@CTS[#4@I@@@@ 800 IU=IU + 1 UB )@@G@@ DCT804030419*[@@@@CTS[#"UC )@@G@@@I@@@@ IF (IU.GT.NWAR) GO TO 160 UD )@@G@@ DCT804040420*[@@@@CTS[^C@I@@@@ IF (IAREG(IU).NE.'@@@@@/') GO UE )@@G@@TO 800 DCT804050421*[@@@@CTS[^M@I@@@@ 810 UF )@@G@@IU=IU+1 DCT804UG )@@G@@060422*[@@@@CTS[^W@I@@@@ CALL UNPACK (KA,KFA,0) UH )@@G@@ DCT804070423*[@@@@CTS[^&@I@@@@ GO TO 80 UI )@@G@@ DCT804080424*[@@@@UJ )@@G@@CTS[^0@I@@@@C 'GO TO' UK )@@G@@ DCT804090425*[@@@@CTS[^'@I@@@@ 820 IU=5 UL )@@G@@ DCT804100426*[@@@@CTS[ ^@I@@@@UM )@@G@@C CHECK FOR ( UN )@@G@@DCT804110427*[@@@@CTS[ I@I@@@@ N=IAREG(IU) UO )@@G@@ DCT804120428*[@@@@CTS[ S@I@@@@ IF (N.UP )@@G@@EQ.41) GO TO 860 DCT804130429UQ )@@G@@*[@@@@CTS[ +@I@@@@C CHECK FOR LETTER UR )@@G@@ DCT804140430*[@@@@CTS[ ?@I@@@@ CALL CHKLET(N,$850US )@@G@@,$830) DCT804150431*[@@@@CTS[ 6UT )@@G@@@I@@@@ 830 CALL CHKNUM(N,$840,$850) UU )@@G@@ DCT804160432*[@@@@CTS[A@@I@@@@C IT IS AN UNCONDITIONAL 'GO TOUV )@@G@@' DCT804170433*[@@@@CTS[AE@^@@@@ 840 UW )@@G@@CALL TBL4 ( 4,LC )*[@@@@CTS[AO@I@@@@ CALL GETSN (KX) UX )@@G@@ DCT804190435*[@@@@CTS[AY@I@@@@ UY )@@G@@GO TO 160 DCT804UZ )@@G@@200436*[@@@@CTS[A*@I@@@@C IT IS AN ASSIGNED 'GOTO' VA )@@G@@ DCT804210437*[@@@@CTS[A2@^@@@@ 850 CALL TBL4 ( VB )@@G@@5,LC )*[@@@@CTS[A/@I@@@@ CALL GETVAR($160,$450,KB,0,KSWVR,0) VC )@@G@@ DCT804230439*[@@@@CTS[BA@I@@@@ IF ( IAREG(IVD )@@G@@U).EQ.'@@@@@,' )IU=IU + 1 @ MGC-01A 0440*[@@@@VE )@@G@@CTS[BK@I@@@@ IF ( IAREG(IU).EQ.'@@@@@(' )IU=IU + 1 @ VF )@@G@@ MGC-01A 0441*[@@@@CTS[BU@I@@@@ CALL UPSN ( $160,KW ) VG )@@G@@ @ MGC-01A 0442*[@@@@CTS[B=@I@@@@VH )@@G@@ GO TO 160 VI )@@G@@DCT804240443*[@@@@CTS[B,@I@@@@C IT IS A COMPUTED 'GO TO' VJ )@@G@@ DCT804250444*[@@@@CTS[B8@^@@@@ 860 CALL TVK )@@G@@BL4 ( 6,LC )*[@@@@CTS[C]@I@@@@ CALL UPSN($870,KW) VL )@@G@@ DCT804270446*[@@@@CTS[CG@I@@@@ IU=IU+VM )@@G@@1 DCT804280447VN )@@G@@*[@@@@CTS[CQ@I@@@@C SPACE OVER COMMA VO )@@G@@ DCT804290448*[@@@@CTS[C)@I@@@@ IF (IAREG(IU) .EQ.VP )@@G@@ 46) IU=IU+1 DCT804300449*[@@@@CTS[C%VQ )@@G@@@I@@@@ NF2=1 @ ALLOW '/' VR )@@G@@ DCT804310450*[@@@@CTS[C4@I@@@@ CALL UNPACK ( KB,0,2 ) VS )@@G@@ DCT804320451*[@@@@CTS[C"@I@@@@ VT )@@G@@NF2=0 DCT804VU )@@G@@330452*[@@@@CTS[DC@I@@@@ GO TO 160 VV )@@G@@ DCT804340453*[@@@@CTS[DM@I@@@@ 870 CALL PRTERR VW )@@G@@( 5 ) @ STATEMENT NO. ILLEGAL DCT804350454*[@@@@VX )@@G@@CTS[DW@I@@@@C 'IF' - DECODE ARGUMENT VY )@@G@@ DCT804360455*[@@@@CTS[D&@I@@@@ 880 IU=3 VZ )@@G@@ DCT804370456*[@@@@CTS[D0@I@@@@WA )@@G@@ IPFG=1 WB )@@G@@DCT804380457*[@@@@CTS[D'@I@@@@ GO TO 1520 WC )@@G@@ DCT804390458*[@@@@CTS[E^@I@@@@ 890 NF2=0 WD )@@G@@ DCT804400459WE )@@G@@*[@@@@CTS[EI@I@@@@ IPFG=0 WF )@@G@@ DCT804410460*[@@@@CTS[ES@I@@@@ 900 IU=IU+1 WG )@@G@@ DCT804420461*[@@@@CTS[E+WH )@@G@@@I@@@@C CHECK FOR LETTER OR NUMBER WI )@@G@@ DCT804430462*[@@@@CTS[E?@I@@@@ IF (IAREG(IU).LT.40) GO TO 930WJ )@@G@@ DCT804440463*[@@@@CTS[E6@I@@@@ WK )@@G@@CALL CHKNUM(IAREG(IU),$920,$910) DCT804WL )@@G@@450464*[@@@@CTS[F@@I@@@@ 910 CALL CHKLET(IAREG(IU),$930,$900) WM )@@G@@ DCT804460465*[@@@@CTS[FE@I@@@@C IT IS AN ARWN )@@G@@ITHMETIC 'IF' DCT804470466*[@@@@WO )@@G@@CTS[FO@^@@@@ 920 CALL TBL4 ( 3,LC )*[@@@@CTS[FY@I@@@@ CALL UPSN($1WP )@@G@@60,KY) DCT804490468*[@@@@WQ )@@G@@CTS[F*@I@@@@ GO TO 160 WR )@@G@@ DCT804500469*[@@@@CTS[F2@I@@@@C IT IS A LOGICAL 'IF' - WS )@@G@@SHIFT THE REGISTER AND DECODE NEW STATMENTDCT804510470*[@@@@CTS[F/@^@@@@WT )@@G@@ 930 CALL TBL4 ( 2,LC )*[@@@@CTS[GA@I@@@@ 940 IYB=1 WU )@@G@@ DCT804530472*[@@@@CTS[GK@I@@@@WV )@@G@@ DO 950 IYA=IU,NWAR WW )@@G@@DCT804540473*[@@@@CTS[GU@I@@@@ IAREG(IYB)=IAREG(IYA) WX )@@G@@ DCT804550474*[@@@@CTS[G=@I@@@@ 950 IYB=IYWY )@@G@@B+1 DCT804560475WZ )@@G@@*[@@@@CTS[G,@I@@@@ NWAR=NWAR-IU+1 XA )@@G@@ DCT804570476*[@@@@CTS[G8@I@@@@ GO TO 270 XB )@@G@@ DCT804580477*[@@@@CTS[H]XC )@@G@@@I@@@@C 'INCLUDE' XD )@@G@@ DCT804590478*[@@@@CTS[HG@I@@@@ 960 IU=8 XE )@@G@@ DCT804600479*[@@@@CTS[HQ@I@@@@ XF )@@G@@LCT=LCT-1 DCT804XG )@@G@@610480*[@@@@CTS[H)@I@@@@ INCFL=1 XH )@@G@@ DCT804620481*[@@@@CTS[H%@I@@@@ IFLAG=0 XI )@@G@@ DCT804630482*[@@@@XJ )@@G@@CTS[H4@I@@@@ DO 970 I=IU,13 XK )@@G@@ DCT804640483*[@@@@CTS[H"@I@@@@ IF (I.GT.NWAR) GO TO 980XL )@@G@@ DCT804650484*[@@@@CTS[IC@I@@@@XM )@@G@@ IF (IAREG(I).EQ.'@@@@@,') GO TO 980 XN )@@G@@DCT804660485*[@@@@CTS[IM@I@@@@ 970 CONTINUE XO )@@G@@ DCT804670486*[@@@@CTS[IW@I@@@@ GO TO XP )@@G@@1000 DCT804680487XQ )@@G@@*[@@@@CTS[I&@I@@@@ 980 DO 990 J=I,13 XR )@@G@@ DCT804690488*[@@@@CTS[I0@I@@@@ 990 IAREG(J) = IBLK XS )@@G@@ DCT804700489*[@@@@CTS[I'XT )@@G@@@I@@@@ 1000 CONTINUE XU )@@G@@ DCT804710490*[@@@@CTS[J^@I@@@@ CALL UPF8(IAREG(IU),IVAR) XV )@@G@@ DCT804720491*[@@@@CTS[JI@I@@@@ XW )@@G@@IVAR(2)=' ' DCT804XX )@@G@@730492*[@@@@CTS[JS@I@@@@ CALL PROCIT('I$I$I$ ',FILE,IVAR,$1010XY )@@G@@) DCT804740493*[@@@@CTS[J+@I@@@@ COMFG=1 XZ )@@G@@ @ SET COMMENT ONLY FLAG MGC-01B NEW*[@@@@YA )@@G@@CTS[J?@I@@@@ CALL MOVER(IBREG,1,ISAVE,1,14) YB )@@G@@ DCT804750494*[@@@@CTS[J6@I@@@@ CALL PROCRD(IBREG) YC )@@G@@ @ DCT804760495*[@@@@CTS[K@@I@@@@YD )@@G@@ GO TO 100 YE )@@G@@DCT804770496*[@@@@CTS[KE@I@@@@ 1010 INCFL=0 YF )@@G@@ DCT804780497*[@@@@CTS[KO@I@@@@ IFLAG=YG )@@G@@0 DCT804790498YH )@@G@@*[@@@@CTS[KY@I@@@@ GO TO 100 YI )@@G@@ DCT804800499*[@@@@CTS[K*@I@@@@ 1020 INCFL=0 YJ )@@G@@ DCT804810500*[@@@@CTS[K2YK )@@G@@@I@@@@ IFLAG=0 YL )@@G@@ DCT804820501*[@@@@CTS[K/@I@@@@ CALL MOVER(ISAVE,1,IBREG,1,14)YM )@@G@@ DCT804830502*[@@@@CTS[LA@I@@@@ YN )@@G@@IF ( COMFG.GT.0 )GO TO 130 @ COMMENT ONLY FLAG" MGC-01YO )@@G@@B *[@@@@CTS[LK@I@@@@ GO TO 220 @ YP )@@G@@ MDCT804840503*[@@@@CTS[LU@I@@@@C 'INTEGER' YQ )@@G@@ - CHECK FOR INTEGER FUNCTION DCT804850504*[@@@@YR )@@G@@CTS[L=@I@@@@ 1030 IU=8 YS )@@G@@ DCT804860505*[@@@@CTS[L,@I@@@@ CALL FCTCK($1040) YT )@@G@@ DCT804870506*[@@@@CTS[L8@I@@@@YU )@@G@@ LTYPE=KIN YV )@@G@@DCT804880507*[@@@@CTS[M]@I@@@@ GO TO 780 YW )@@G@@ DCT804890508*[@@@@CTS[MG@I@@@@ 1040 IU=8 YX )@@G@@ DCT804900509YY )@@G@@*[@@@@CTS[MQ@I@@@@ KXX=KIN YZ )@@G@@ DCT804910510*[@@@@CTS[M)@I@@@@ GO TO 630 ZA )@@G@@ DCT804920511*[@@@@CTS[M%ZB )@@G@@@I@@@@C 'LOGICAL' - CHECK FOR LOGICAL FUNCTION ZC )@@G@@ DCT804930512*[@@@@CTS[M4@I@@@@ 1050 IU=8 ZD )@@G@@ DCT804940513*[@@@@CTS[M"@I@@@@ ZE )@@G@@CALL FCTCK($1060) DCT804ZF )@@G@@950514*[@@@@CTS[NC@I@@@@ LTYPE=KLG ZG )@@G@@ DCT804960515*[@@@@CTS[NM@I@@@@ GO TO 780 ZH )@@G@@ DCT804970516*[@@@@ZI )@@G@@CTS[NW@I@@@@ 1060 IU=8 ZJ )@@G@@ DCT804980517*[@@@@CTS[N&@I@@@@ KXX=KLG ZK )@@G@@ DCT804990518*[@@@@CTS[N0@I@@@@ZL )@@G@@ GO TO 630 ZM )@@G@@DCT805000519*[@@@@CTS[N'@I@@@@C 'MONITOR' ZN )@@G@@ DCT805010520*[@@@@CTS[O^@I@@@@ 1070 IU=8 ZO )@@G@@ DCT805020521ZP )@@G@@*[@@@@CTS[OI@ @@@@ CALL TBL4 ( 26,LC ) *[@@@@CTS[OS@I@@@@ ZQ )@@G@@IF (IU.GT.NWAR) GO TO 160 DCT805ZR )@@G@@040523*[@@@@CTS[O+@I@@@@ KXX=KE ZS )@@G@@ DCT805050524*[@@@@CTS[O?@I@@@@ IF ( IAREG(IZT )@@G@@U).EQ.'@@@@@(' )KXX=KB @ MONITOR (N) DCT805060525*[@@@@ZU )@@G@@CTS[O6@I@@@@ CALL UNPACK ( KXX,0,0 ) ZV )@@G@@ DCT805070526*[@@@@CTS[P@@I@@@@ GO TO 160 ZW )@@G@@ DCT805080527*[@@@@CTS[PE@I@@@@ZX )@@G@@C 'PARAMETER' ZY )@@G@@DCT805090528*[@@@@CTS[PO@I@@@@ 1080 IU=10 ZZ )@@G@@ DCT805100529*[@@@@CTS[PY@I@@@@ NF3=1 AA )@@G@@ DCT805110530AB )@@G@@*[@@@@CTS[P*@I@@@@ NF2=1 @ ALLOW '/' AC )@@G@@ DCT805120531*[@@@@CTS[P2@I@@@@ CALL UNPACK (KE,KPAD )@@G@@R,1) DCT805130532*[@@@@CTS[P/AE )@@G@@@I@@@@ GO TO 80 AF )@@G@@ DCT805140533*[@@@@CTS[QA@I@@@@C 'PAUSE' AG )@@G@@ DCT805150534*[@@@@CTS[QK@I@@@@ 1090 AH )@@G@@GO TO 160 DCT805AI )@@G@@160535*[@@@@CTS[QU@I@@@@C 'PRINT' AJ )@@G@@ DCT805170536*[@@@@CTS[Q=@I@@@@ 1100 IU=6 AK )@@G@@ DCT805180537*[@@@@AL )@@G@@CTS[Q,@I@@@@ KIO=KO AM )@@G@@ DCT805190538*[@@@@CTS[Q8@I@@@@ IIO=14 AN )@@G@@ DCT805200539*[@@@@CTS[R]@I@@@@AO )@@G@@ GO TO 1420 AP )@@G@@DCT805210540*[@@@@CTS[RG@I@@@@C 'PUNCH' AQ )@@G@@ DCT805220541*[@@@@CTS[RQ@I@@@@ 1110 GO TO AR )@@G@@1100 DCT805230542AS )@@G@@*[@@@@CTS[R)@I@@@@C 'READ' AT )@@G@@ DCT805240543*[@@@@CTS[R%@I@@@@ 1120 IU=5 AU )@@G@@ DCT805250544*[@@@@CTS[R4AV )@@G@@@I@@@@ KIO=KI AW )@@G@@ DCT805260545*[@@@@CTS[R"@I@@@@ IIO=13 AX )@@G@@ DCT805270546*[@@@@CTS[SC@I@@@@C AY )@@G@@ CHECK FOR NON-( -THIS CASE CORRESPONDS TO 'READ F,LIST' DCT805AZ )@@G@@280547*[@@@@CTS[SM@I@@@@ IF (IAREG(IU).NE.41) GO TO 1420 BA )@@G@@ DCT805290548*[@@@@CTS[SW@I@@@@ IU=IU+1 BB )@@G@@ DCT805300549*[@@@@BC )@@G@@CTS[S&@I@@@@ GO TO 1490 BD )@@G@@ DCT805310550*[@@@@CTS[S0@I@@@@C 'READ INPUT TAPE' BE )@@G@@ DCT805320551*[@@@@CTS[S'@I@@@@BF )@@G@@ 1130 IU=14 BG )@@G@@DCT805330552*[@@@@CTS[T^@I@@@@ KIO=KI BH )@@G@@ DCT805340553*[@@@@CTS[TI@I@@@@ IIO=13BI )@@G@@ DCT805350554BJ )@@G@@*[@@@@CTS[TS@I@@@@ GO TO 1470 BK )@@G@@ DCT805360555*[@@@@CTS[T+@I@@@@C 'READ TAPE' BL )@@G@@ DCT805370556*[@@@@CTS[T?BM )@@G@@@I@@@@ 1140 IU=9 BN )@@G@@ DCT805380557*[@@@@CTS[T6@I@@@@ KIO=KI BO )@@G@@ DCT805390558*[@@@@CTS[U@@I@@@@ BP )@@G@@IIO=13 DCT805BQ )@@G@@400559*[@@@@CTS[UE@I@@@@ GO TO 1410 BR )@@G@@ DCT805410560*[@@@@CTS[UO@I@@@@C 'REAL' - BS )@@G@@CHECK FOR REAL FUNCTION DCT805420561*[@@@@BT )@@G@@CTS[UY@I@@@@ 1150 IU=5 BU )@@G@@ DCT805430562*[@@@@CTS[U*@I@@@@ CALL FCTCK($1160) BV )@@G@@ DCT805440563*[@@@@CTS[U2@I@@@@BW )@@G@@ LTYPE=KRL BX )@@G@@DCT805450564*[@@@@CTS[U/@I@@@@ GO TO 780 BY )@@G@@ DCT805460565*[@@@@CTS[VA@I@@@@ 1160 IU=5 BZ )@@G@@ DCT805470566CA )@@G@@*[@@@@CTS[VK@I@@@@ KXX=KRL CB )@@G@@ DCT805480567*[@@@@CTS[VU@I@@@@ GO TO 630 CC )@@G@@ DCT805490568*[@@@@CTS[V=CD )@@G@@@I@@@@C 'RETURN' - STANDARD OR NON-STANDARD CE )@@G@@ DCT805500569*[@@@@CTS[V,@I@@@@ 1170 IW=9 CF )@@G@@ DCT805510570*[@@@@CTS[V8@I@@@@ CG )@@G@@IF (NWAR .GT. 6) IW=10 DCT805CH )@@G@@520571*[@@@@CTS[W]@ @@@@ CALL TBL4 ( IW,LC ) *[@@@@CTS[WG@I@@@@CI )@@G@@ IF (IAREG(7).NE.'@@@@@(') GO TO 160 CJ )@@G@@DCT805540573*[@@@@CTS[WQ@I@@@@ IU=8 CK )@@G@@ DCT805550574*[@@@@CTS[W)@I@@@@ CALL GCL )@@G@@ETVAR($160,$160,KB,0,0,0) DCT805560575CM )@@G@@*[@@@@CTS[W%@I@@@@ GO TO 160 CN )@@G@@ DCT805570576*[@@@@CTS[W4@I@@@@C 'REWIND' CO )@@G@@ DCT805580577*[@@@@CTS[W"CP )@@G@@@I@@@@ 1180 IU=7 CQ )@@G@@ DCT805590578*[@@@@CTS[XC@I@@@@ GO TO 470 CR )@@G@@ DCT805600579*[@@@@CTS[XM@I@@@@C CS )@@G@@ 'STOP' DCT805CT )@@G@@610580*[@@@@CTS[XW@ @@@@ 1190 CALL TBL4 ( 16,LC ) *[@@@@CTS[X&@I@@@@CU )@@G@@ GO TO 160 CV )@@G@@DCT805630582*[@@@@CTS[X0@I@@@@C START OR STOP EDIT - IGNORE CW )@@G@@ DCT805640583*[@@@@CTS[X'@I@@@@C START/STOCX )@@G@@P TRACE - IGNORE DCT805650584CY )@@G@@*[@@@@CTS[Y^@I@@@@ 1200 GO TO 160 @ CZ )@@G@@ MDCT805660585*[@@@@CTS[YI@I@@@@C 'SUBROUTINE' DA )@@G@@ DCT805670586*[@@@@CTS[YSDB )@@G@@@I@@@@ 1210 IU=11 DC )@@G@@ DCT805680587*[@@@@CTS[Y+@I@@@@ LFLAG=1 DD )@@G@@ DCT805690588*[@@@@CTS[Y?@I@@@@ 1220 DE )@@G@@LTYPE=0 DCT805DF )@@G@@700589*[@@@@CTS[Y6@I@@@@ KXX=KSBRT DG )@@G@@ DCT805710590*[@@@@CTS[Z@@I@@@@ GO TO 790 DH )@@G@@ DCT805720591*[@@@@DI )@@G@@CTS[ZE@I@@@@C 'WRITE' DJ )@@G@@ DCT805730592*[@@@@CTS[ZO@I@@@@ 1230 IU=7 DK )@@G@@ DCT805740593*[@@@@CTS[ZY@I@@@@DL )@@G@@ KIO=KO DM )@@G@@DCT805750594*[@@@@CTS[Z*@I@@@@ IIO=14 DN )@@G@@ DCT805760595*[@@@@CTS[Z2@I@@@@ GO TO DO )@@G@@1490 DCT805770596DP )@@G@@*[@@@@CTS[Z/@I@@@@C 'WRITE OUTPUT TAPE' DQ )@@G@@ DCT805780597*[@@@@CTS[)A@I@@@@ 1240 IU=16 DR )@@G@@ DCT805790598*[@@@@CTS[)KDS )@@G@@@I@@@@ KIO=KO DT )@@G@@ DCT805800599*[@@@@CTS[)U@I@@@@ IIO=14 DU )@@G@@ DCT805810600*[@@@@CTS[)=@I@@@@ DV )@@G@@GO TO 1470 DCT805DW )@@G@@820601*[@@@@CTS[),@I@@@@C 'WRITE TAPE' DX )@@G@@ DCT805830602*[@@@@CTS[)8@I@@@@ 1250 IU=10 DY )@@G@@ DCT805840603*[@@@@DZ )@@G@@CTS[-]@I@@@@ KIO=KO EA )@@G@@ DCT805850604*[@@@@CTS[-G@I@@@@ IIO=14 EB )@@G@@ DCT805860605*[@@@@CTS[-Q@I@@@@EC )@@G@@ GO TO 1410 ED )@@G@@DCT805870606*[@@@@CTS[-)@I@@@@C 'IF ACCUMULATOR OVERFLOW' EE )@@G@@ DCT805880607*[@@@@CTS[-%@I@@@@ 1260 IU=22 EF )@@G@@ DCT805890608EG )@@G@@*[@@@@CTS[-4@I@@@@ GO TO 1350 EH )@@G@@ DCT805900609*[@@@@CTS[-"@I@@@@C 'IF DIVIDE CHECK'EI )@@G@@ DCT805910610*[@@@@CTS[+CEJ )@@G@@@I@@@@ 1270 IU=14 EK )@@G@@ DCT805920611*[@@@@CTS[+M@I@@@@ GO TO 1350 EL )@@G@@ DCT805930612*[@@@@CTS[+W@I@@@@C EM )@@G@@ 'IF QUOTIENT OVERFLOW' DCT805EN )@@G@@940613*[@@@@CTS[+&@I@@@@ 1280 IU=19 EO )@@G@@ DCT805950614*[@@@@CTS[+0@I@@@@ GO TO 1350 EP )@@G@@ DCT805960615*[@@@@EQ )@@G@@CTS[+'@I@@@@C 'IF (SENSE LIGHT)' ER )@@G@@ DCT805970616*[@@@@CTS[<^@I@@@@ 1290 IU=14 ES )@@G@@ DCT805980617*[@@@@CTS[A@I@@@@FK )@@G@@ GO TO 160 FL )@@G@@DCT806110630*[@@@@CTS[>K@I@@@@C 'NAMELIST' FM )@@G@@ DCT806120631*[@@@@CTS[>U@I@@@@ 1360 IU=9 FN )@@G@@ DCT806130632FO )@@G@@*[@@@@CTS[>=@I@@@@ NF2=0 FP )@@G@@ DCT806140633*[@@@@CTS[>,@I@@@@ KNLA=KNL FQ )@@G@@ DCT806150634*[@@@@CTS[>8FR )@@G@@@I@@@@ 1370 IU=IU+1 FS )@@G@@ DCT806160635*[@@@@CTS[&]@I@@@@ CALL GETVAR($160,$450,KL,KNL,KFT )@@G@@NMLT,0) DCT806170636*[@@@@CTS[&G@I@@@@ FU )@@G@@IU=IU+1 DCT806FV )@@G@@180637*[@@@@CTS[&Q@I@@@@ DO 1380 NIN=1,KNTSUB FW )@@G@@ DCT806190638*[@@@@CTS[&)@I@@@@ IF (IVTE.EQ.FX )@@G@@KOMTAB(NIN)) GO TO 1390 DCT806200639*[@@@@FY )@@G@@CTS[&%@I@@@@ 1380 CONTINUE FZ )@@G@@ DCT806210640*[@@@@CTS[&4@I@@@@ KOMTAB(NIN)=IVTE GA )@@G@@ DCT806220641*[@@@@CTS[&"@I@@@@GB )@@G@@ 1390 KNLA=KNL+NIN GC )@@G@@DCT806230642*[@@@@CTS[$C@I@@@@ CALL UNPACK(KL,KNLA,1) GD )@@G@@ DCT806240643*[@@@@CTS[$M@I@@@@ IF (IUGE )@@G@@.GE.NWAR) GO TO 160 DCT806250644GF )@@G@@*[@@@@CTS[$W@I@@@@ IF (IAREG(IU).NE.60) GO TO 160 GG )@@G@@ DCT806260645*[@@@@CTS[$&@I@@@@ GO TO 1370 GH )@@G@@ DCT806270646*[@@@@CTS[$0GI )@@G@@@I@@@@C * THE FOLLOWING STATEMENTS ARE USED BY THE INPUT-OUTPUT GJ )@@G@@ DCT806280647*[@@@@CTS[$'@I@@@@C TYPE STATEMENTS GK )@@G@@ DCT806290648*[@@@@CTS[*^@I@@@@C GL )@@G@@ GET UNIT NUMBER OR VARIABLE DCT806GM )@@G@@300649*[@@@@CTS[*I@I@@@@ 1410 CALL RJTNOS($1450) GN )@@G@@ DCT806310650*[@@@@CTS[*S@I@@@@ NF1=1 GO )@@G@@ DCT806320651*[@@@@GP )@@G@@CTS[*+@I@@@@ CALL UNPACK (KH,0,0) GQ )@@G@@ DCT806330652*[@@@@CTS[*?@I@@@@ NF1=0 GR )@@G@@ DCT806340653*[@@@@CTS[*6@I@@@@GS )@@G@@ GO TO 1450 GT )@@G@@DCT806350654*[@@@@CTS[(@@I@@@@C GET FORMAT NUMBER OR VARIABLE GU )@@G@@ DCT806360655*[@@@@CTS[(E@I@@@@ 1420 N=IAREGV )@@G@@G(IU) DCT806370656GW )@@G@@*[@@@@CTS[(O@I@@@@ CALL CHKNUM(N,$1440,$1430) @ CHECK IF NUMERIGX )@@G@@C DCT806380657*[@@@@CTS[(Y@I@@@@ 1430 IF (N.EQ.'@@@@@/')GY )@@G@@ GO TO 1450 @ FORMAT NO.='/' DCT806390658*[@@@@CTS[(*GZ )@@G@@@I@@@@ NF1=1 HA )@@G@@ DCT806400659*[@@@@CTS[(2@I@@@@ CALL UNPACK (KG,0,0) HB )@@G@@ DCT806410660*[@@@@CTS[(/@I@@@@ HC )@@G@@NF1=0 DCT806HD )@@G@@420661*[@@@@CTS[%A@I@@@@ GO TO 1450 HE )@@G@@ DCT806430662*[@@@@CTS[%K@I@@@@ 1440 CALL GETSN (HF )@@G@@KS) DCT806440663*[@@@@HG )@@G@@CTS[%U@I@@@@ 1450 IU=IU+1 HH )@@G@@ DCT806450664*[@@@@CTS[%=@I@@@@C UNPACK LIST HI )@@G@@ DCT806460665*[@@@@CTS[%,@I@@@@HJ )@@G@@ 1460 NF2=1 @ ALLOW '/' HK )@@G@@DCT806470666*[@@@@CTS[%8@I@@@@ CALL UNPACK (KIO,0,2) HL )@@G@@ DCT806480667*[@@@@CTS[:]@I@@@@ NF2=0 HM )@@G@@ DCT806490668HN )@@G@@*[@@@@CTS[:G@ @@@@ CALL TBL4 ( IIO,LC ) *[@@@@CTS[:Q@I@@@@ HO )@@G@@GO TO 160 DCT806HP )@@G@@510670*[@@@@CTS[:)@I@@@@C GET UNIT NUMBER HQ )@@G@@ DCT806520671*[@@@@CTS[:%@I@@@@ 1470 CALL RJTNOS(HR )@@G@@$1480) DCT806530672*[@@@@HS )@@G@@CTS[:4@I@@@@ NF1=1 HT )@@G@@ DCT806540673*[@@@@CTS[:"@I@@@@ CALL UNPACK (KH,0,0) HU )@@G@@ DCT806550674*[@@@@CTS[?C@I@@@@HV )@@G@@ NF1=0 HW )@@G@@DCT806560675*[@@@@CTS[?M@I@@@@ 1480 IU=IU+1 HX )@@G@@ DCT806570676*[@@@@CTS[?W@I@@@@ GO TO HY )@@G@@1420 DCT806580677HZ )@@G@@*[@@@@CTS[?&@I@@@@C DETERMINE FORM OF STATEMENT (UNIT,F) OR (UNITIA )@@G@@) DCT806590678*[@@@@CTS[?0@I@@@@C GET UNIT NUMBER OIB )@@G@@R VARIABLE DCT806600679*[@@@@CTS[?'IC )@@G@@@I@@@@ 1490 CALL RJTNOS($1500) ID )@@G@@ DCT806610680*[@@@@CTS[!^@I@@@@ NF1=1 IE )@@G@@ DCT806620681*[@@@@CTS[!I@I@@@@ IF )@@G@@CALL UNPACK (KH,0,0) DCT806IG )@@G@@630682*[@@@@CTS[!S@I@@@@ NF1=0 IH )@@G@@ DCT806640683*[@@@@CTS[!+@I@@@@C CHECK FOR )II )@@G@@ DCT806650684*[@@@@IJ )@@G@@CTS[!?@I@@@@ 1500 IF ( IAREG(IU).EQ.'@@@@@/' )IU=IU + 1 @ (UNIT,/) IK )@@G@@ DCT806660685*[@@@@CTS[!6@I@@@@ IF (IAREG(IU).EQ.'@@@@@)IL )@@G@@') GO TO 1450 DCT806670686*[@@@@CTS[,@@I@@@@IM )@@G@@ GO TO 1480 IN )@@G@@DCT806680687*[@@@@CTS[,E@I@@@@C ARITHMETIC STATEMENTS IO )@@G@@ DCT806690688*[@@@@CTS[,O@I@@@@C GET VAIP )@@G@@RIABLE ON LEFT SIDE OF EQUAL SIGN DCT806700689IQ )@@G@@*[@@@@CTS[,Y@I@@@@C IR )@@G@@ DCT806710690*[@@@@CTS[,*@I@@@@ 1510 IU=1 IS )@@G@@ DCT806720691*[@@@@CTS[,2IT )@@G@@@I@@@@ NF1=1 IU )@@G@@ DCT806730692*[@@@@CTS[,/@I@@@@ NF3=1 IV )@@G@@ DCT806740693*[@@@@CTS[\A@I@@@@ IW )@@G@@CALL UNPACK (KA,0,2) DCT806IX )@@G@@750694*[@@@@CTS[\K@I@@@@ NF3=0 IY )@@G@@ DCT806770695*[@@@@CTS[\U@I@@@@ NF1=0 IZ )@@G@@ DCT806780696*[@@@@JA )@@G@@CTS[\=@I@@@@ 1520 NF2=1 JB )@@G@@ DCT806790697*[@@@@CTS[\,@I@@@@ CALL UNPACK ( KB,0,2 ) JC )@@G@@ DCT806800698*[@@@@CTS[\8@I@@@@JD )@@G@@ NF2=0 JE )@@G@@DCT806810699*[@@@@CTS[0]@I@@@@ IPFG=0 JF )@@G@@ DCT806820700*[@@@@CTS[0G@I@@@@ IF (IAJG )@@G@@REG(1).NE.'@@@@@I') GO TO 160 DCT806830701JH )@@G@@*[@@@@CTS[0Q@I@@@@ IF (IAREG(2).NE.'@@@@@F') GO TO 160 JI )@@G@@ DCT806840702*[@@@@CTS[0)@I@@@@ IF (IAREG(3).NE.'@JJ )@@G@@@@@@(') GO TO 160 DCT806850703*[@@@@CTS[0%JK )@@G@@@I@@@@ GO TO 890 JL )@@G@@ DCT806860704*[@@@@CTS[04@I@@@@C ACCEPT - ACCEPT LIST (INPUT) JM )@@G@@ DCT806870705*[@@@@CTS[0"@I@@@@ 1530 JN )@@G@@IU=7 DCT806JO )@@G@@880706*[@@@@CTS[1C@I@@@@ KIO=KI JP )@@G@@ DCT806890707*[@@@@CTS[1M@I@@@@ IIO=17 JQ )@@G@@ DCT806900708*[@@@@JR )@@G@@CTS[1W@I@@@@ GO TO 1460 JS )@@G@@ DCT806910709*[@@@@CTS[1&@I@@@@C DISPLAY - DISPLAY LIST (OUTJT )@@G@@PUT) DCT806920710*[@@@@CTS[10@I@@@@JU )@@G@@ 1540 IU=8 JV )@@G@@DCT806930711*[@@@@CTS[1'@I@@@@ KIO=KO JW )@@G@@ DCT806940712*[@@@@CTS[2^@I@@@@ IIO=18JX )@@G@@ DCT806950713JY )@@G@@*[@@@@CTS[2I@I@@@@ GO TO 1460 JZ )@@G@@ DCT806960714*[@@@@CTS[2S@I@@@@C ERPRINT (OUTPUT) KA )@@G@@ DCT806970715*[@@@@CTS[2+KB )@@G@@@I@@@@ 1550 IU=8 KC )@@G@@ DCT806980716*[@@@@CTS[2?@I@@@@ KIO=KO KD )@@G@@ DCT806990717*[@@@@CTS[26@I@@@@ KE )@@G@@IIO=19 DCT807KF )@@G@@000718*[@@@@CTS[3@@I@@@@ GO TO 1460 KG )@@G@@ DCT807010719*[@@@@CTS[3E@I@@@@C ALTERNATE PRINTKH )@@G@@ER DCT807020720*[@@@@KI )@@G@@CTS[3O@I@@@@ 1560 IU=18 KJ )@@G@@ DCT807030721*[@@@@CTS[3Y@ @@@@ CALL TBL4 ( 25,LC ) KK )@@G@@*[@@@@CTS[3*@I@@@@ IF (IU.GT.NWAR) GO TO 160 KL )@@G@@ DCT807050723*[@@@@CTS[32@I@@@@ CALL UNPACK ( KH,0KM )@@G@@,0 ) DCT807060724*[@@@@CTS[3/KN )@@G@@@I@@@@ GO TO 160 KO )@@G@@ DCT807070725*[@@@@CTS[4A@I@@@@C REPEAT - LIKE DO WITH NO STATEMENKP )@@G@@T NO. DCT807080726*[@@@@CTS[4K@I@@@@ 1570 KQ )@@G@@IU=7 DCT807KR )@@G@@090727*[@@@@CTS[4U@ @@@@ CALL TBL4 ( 20,LC ) *[@@@@CTS[4=@I@@@@KS )@@G@@ NF3=1 @ ALLOW '=' KT )@@G@@DCT807110729*[@@@@CTS[4,@I@@@@ NF2=1 @ ALKU )@@G@@LOW '/' DCT807120730*[@@@@CTS[48@I@@@@ CALL UKV )@@G@@NPACK ( KJ,0,2 ) DCT807130731KW )@@G@@*[@@@@CTS[5]@I@@@@ GO TO 80 KX )@@G@@ DCT807140732*[@@@@CTS[5G@I@@@@C REPLACE - MULTIPLE REKY )@@G@@PLACEMENT A=B=C=ETC DCT807150733*[@@@@CTS[5QKZ )@@G@@@I@@@@ 1580 IU=8 LA )@@G@@ DCT807160734*[@@@@CTS[5)@ @@@@ CALL TBL4 ( 21,LC ) *[@@@@LB )@@G@@CTS[5%@I@@@@ 1590 KXX=KB @ NO '=' - REFERENCE LC )@@G@@ DCT807180736*[@@@@CTS[54@I@@@@ IF (IU.GT.NWAR) GO TO 16LD )@@G@@0 DCT807190737*[@@@@CTS[5"@I@@@@LE )@@G@@ DO 1600 I=IU,NWAR LF )@@G@@DCT807200738*[@@@@CTS[6C@I@@@@ IF (IAREG(I).NE.'@@@@@=') GO TO 1600LG )@@G@@ DCT807210739*[@@@@CTS[6M@I@@@@ KXX=KALH )@@G@@ DCT807220740LI )@@G@@*[@@@@CTS[6W@I@@@@ NF1=1 LJ )@@G@@ DCT807230741*[@@@@CTS[6&@I@@@@ GO TO 1610 LK )@@G@@ DCT807240742*[@@@@CTS[60LL )@@G@@@I@@@@ 1600 CONTINUE LM )@@G@@ DCT807250743*[@@@@CTS[6'@I@@@@ 1610 NF2=1 LN )@@G@@ @ ALLOW '/' DCT807260744*[@@@@CTS[7^@I@@@@ LO )@@G@@NF3=1 @ ALLOW '=' DCT807LP )@@G@@270745*[@@@@CTS[7I@I@@@@ CALL UNPACK ( KXX,0,1 ) LQ )@@G@@ DCT807280746*[@@@@CTS[7S@I@@@@ NF1=0 LR )@@G@@ DCT807290747*[@@@@LS )@@G@@CTS[7+@I@@@@ NF2=0 LT )@@G@@ DCT807300748*[@@@@CTS[7?@I@@@@ NF3=0 LU )@@G@@ DCT807310749*[@@@@CTS[76@I@@@@LV )@@G@@ IU=IU + 1 LW )@@G@@DCT807320750*[@@@@CTS[8@@I@@@@ GO TO 1590 LX )@@G@@ DCT807330751*[@@@@CTS[8E@I@@@@C GENERATE LY )@@G@@( P,I,C,T) *LABEL STATEMENT DCT807340752LZ )@@G@@*[@@@@CTS[8O@I@@@@ 1620 IU=9 MA )@@G@@ DCT807350753*[@@@@CTS[8Y@ @@@@ CALL TBL4 ( 22,LC MB )@@G@@) *[@@@@CTS[8*@I@@@@ IPFG=1 @ PROCESS MC )@@G@@( TO ) DCT807370755*[@@@@CTS[82@I@@@@ CALL UNPACK MD )@@G@@( KE,0,0 ) @ (P,I,C,T) SPECIFICATIONS DCT807380756*[@@@@ME )@@G@@CTS[8/@I@@@@ IPFG=0 MF )@@G@@ DCT807390757*[@@@@CTS[9A@I@@@@ IU=IU + 1 MG )@@G@@ DCT807400758*[@@@@CTS[9K@I@@@@MH )@@G@@ IF (IU.GT.NWAR) GO TO 160 MI )@@G@@DCT807410759*[@@@@CTS[9U@I@@@@ IF ( IAREG(IU).EQ.'@@@@@*' )IU=IU + MJ )@@G@@1 @ SKIP '*' DCT807420760*[@@@@CTS[9=@I@@@@ IF (IUMK )@@G@@.GT.NWAR) GO TO 160 DCT807430761ML )@@G@@*[@@@@CTS[9,@I@@@@ CALL CHKNUM(IAREG(IU),$1630,$1640) MM )@@G@@ DCT807440762*[@@@@CTS[98@I@@@@C MN )@@G@@ DCT807450763*[@@@@CTS[']MO )@@G@@@I@@@@C STATEMENT NO. GENERATED MP )@@G@@ DCT807460764*[@@@@CTS['G@I@@@@C MQ )@@G@@ DCT807470765*[@@@@CTS['Q@I@@@@ 1630 MR )@@G@@LSNGEN=LC DCT807MS )@@G@@480766*[@@@@CTS[')@I@@@@ CALL GETSN ( KD ) MT )@@G@@ DCT807490767*[@@@@CTS['%@I@@@@ LSNGEN=0 MU )@@G@@ DCT807500768*[@@@@MV )@@G@@CTS['4@I@@@@ 1640 GO TO 940 @ PROCESS STATEMENT MW )@@G@@ DCT807510769*[@@@@CTS['"@I@@@@C REGISTER - IGNORE MX )@@G@@ DCT807520770*[@@@@CTS[;C@ @@@@MY )@@G@@ 1650 CALL TBL4 ( 23,LC ) *[@@@@CTS[;M@I@@@@ GO TO 160 MZ )@@G@@ DCT807540772*[@@@@CTS[;WNA )@@G@@@I@@@@C ASM$INTERFACE - IGNORE NB )@@G@@ DCT807550773*[@@@@CTS[;&@ @@@@ 1660 CALL TBL4 ( 27,LC ) *[@@@@NC )@@G@@CTS[;0@#@@@@ GO TO 160 *[@@@@CTS[;'@[@@@@C *[@@@@CTS[/^@]@@@@ND )@@G@@C 63=SCAN *[@@@@CTS[/I@]@@@@C 64=MACROS*[@@@@CTS[/S@A@@@@ 1670 IF ( LNE )@@G@@.EQ.63 ) GO TO 1700 *[@@@@CTS[/+@D@@@@ IC1=IAREG(6) NF )@@G@@ @ X - MACRO XY *[@@@@CTS[/?@B@@@@ IC2=IAREG(7) NG )@@G@@ @ Y *[@@@@CTS[/6@]@@@@ IC=0 *[@@@@CTS[.@@B@@@@ IF ( INH )@@G@@C1.EQ.'@@@@@A' )GO TO 1710 *[@@@@CTS[.E@B@@@@ IF ( IC1.EQ.'@@@@@NI )@@G@@B' )GO TO 1720 *[@@@@CTS[.O@B@@@@ IF ( IC1.EQ.'@@@@@F' )GO TO 17NJ )@@G@@30 *[@@@@CTS[.Y@B@@@@ IF ( IC1.EQ.'@@@@@I' )GO TO 1740 *[@@@@NK )@@G@@CTS[.*@B@@@@ IF ( IC1.EQ.'@@@@@J' )GO TO 1750 *[@@@@CTS[.2@B@@@@NL )@@G@@ IF ( IC1.EQ.'@@@@@L' )GO TO 1760 *[@@@@CTS[./@F@@@@ IF ( INM )@@G@@C1.EQ.'@@@@@N'.AND.IC2.EQ.'@@@@@A' ) GO TO 1770 *[@@@@CTS["A@E@@@@NN )@@G@@ IF ( IC1.EQ.'@@@@@N'.AND.IC2.EQ.'@@@@@E' )GO TO 1780 *[@@@@CTS["KNO )@@G@@@B@@@@ IF ( IC1.EQ.'@@@@@R' )GO TO 1790 *[@@@@CTS["U@B@@@@ NP )@@G@@IF ( IC1.EQ.'@@@@@U' )GO TO 1800 *[@@@@CTS["=@A@@@@ IF ( IC1.EQ.NQ )@@G@@'@@@@@W' )IC=39 *[@@@@CTS[",@ @@@@ 1680 IF ( IC.LE.0 )GO TO 370 *[@@@@NR )@@G@@CTS["8@ @@@@ CALL TBL4 ( IC,LC ) *[@@@@CTS[_]@#@@@@ GO TO NS )@@G@@160 *[@@@@CTS[_G@]@@@@1700 IC=37 *[@@@@CTS[_Q@#@@@@ GO TO 1680 NT )@@G@@*[@@@@CTS[_)@]@@@@1710 IC=28 *[@@@@CTS[_%@#@@@@ GO TO 1680 *[@@@@NU )@@G@@CTS[_4@]@@@@1720 IC=29 *[@@@@CTS[_"@#@@@@ GO TO 1680 *[@@@@CTS]@CNV )@@G@@@]@@@@1730 IC=30 *[@@@@CTS]@M@#@@@@ GO TO 1680 *[@@@@CTS]@W@]@@@@NW )@@G@@1740 IC=31 *[@@@@CTS]@&@#@@@@ GO TO 1680 *[@@@@CTS]@0@]@@@@1750 NX )@@G@@IC=32 *[@@@@CTS]@'@#@@@@ GO TO 1680 *[@@@@CTS][^@]@@@@1760 IC=33 NY )@@G@@*[@@@@CTS][I@#@@@@ GO TO 1680 *[@@@@CTS][S@]@@@@1770 IC=34 *[@@@@NZ )@@G@@CTS][+@#@@@@ GO TO 1680 *[@@@@CTS][?@]@@@@1780 IC=35 *[@@@@CTS][6OA )@@G@@@#@@@@ GO TO 1680 *[@@@@CTS]]@@]@@@@1790 IC=36 *[@@@@CTS]]E@#@@@@OB )@@G@@ GO TO 1680 *[@@@@CTS]]O@]@@@@1800 IC=38 *[@@@@CTS]]Y@#@@@@ OC )@@G@@GO TO 1680 *[@@@@CTS]]*@I@@@@C*****************************************OD )@@G@@******************************DCT807570797*[@@@@CTS]]2@I@@@@ SUBROUOE )@@G@@TINE FCTCK ($) DCT807580798OF )@@G@@*[@@@@CTS]]/@I@@@@C * SUBROUTINE TO CHECK FOR FUNCTION PRECEEDED BY AOG )@@G@@ TYPE STATEMENT DCT807590799*[@@@@CTS]#A@I@@@@ DIMENSION LFCT(8) OH )@@G@@ DCT807600800*[@@@@CTS]#KOI )@@G@@@I@@@@ DATA (LFCT(I),I=1,8)/11,26,19,8,25,14,20,19/ OJ )@@G@@ DCT807610801*[@@@@CTS]#U@I@@@@ DO 10 IX=1,8 OK )@@G@@ DCT807620802*[@@@@CTS]#=@I@@@@ OL )@@G@@IF (IAREG(IU) .NE. LFCT(IX)) RETURN 1 DCT807OM )@@G@@630803*[@@@@CTS]#,@I@@@@ 10 IU=IU+1 ON )@@G@@ DCT807640804*[@@@@CTS]#8@I@@@@ RETURN OO )@@G@@ DCT807650805*[@@@@OP )@@G@@CTS]^]@I@@@@C***********************************************************OQ )@@G@@************DCT807660806*[@@@@CTS]^G@I@@@@ SUBROUTINE GETSN (IEFGW)OR )@@G@@ DCT807670807*[@@@@CTS]^Q@I@@@@OS )@@G@@C * THIS PROGRAM PICKS OUT A STATEMENT NUMBER AND ENTERS IT IN TBL8 OT )@@G@@DCT807680808*[@@@@CTS]^)@I@@@@C IEFGW-ENTERY FLAG OU )@@G@@ DCT807690809*[@@@@CTS]^%@I@@@@ DIMENSOV )@@G@@ION IYREG(5) DCT807700810OW )@@G@@*[@@@@CTS]^4@B@@@@ CALL CHKNUM ( IAREG(IU),$5,$30 ) *[@@@@CTS]^"OX )@@G@@@I@@@@ 5 DO 10 JU=1,5 OY )@@G@@ DCT807710812*[@@@@CTS] C@I@@@@C PUT CHAR IN Y REG OZ )@@G@@ DCT807720813*[@@@@CTS] M@I@@@@ PA )@@G@@IYREG(JU)=IAREG(IU) DCT807PB )@@G@@730814*[@@@@CTS] W@I@@@@C GOT TO NEXT CHAR PC )@@G@@ DCT807740815*[@@@@CTS] &@I@@@@ IU=IU+1 PD )@@G@@ DCT807750816*[@@@@PE )@@G@@CTS] 0@I@@@@C CHECK TO SEE IF DATA HAS BEEN EXCEEDED PF )@@G@@ DCT807760817*[@@@@CTS] '@I@@@@ IF (IU.GT.NWAR) GO TO 20PG )@@G@@ DCT807770818*[@@@@CTS]A^@I@@@@PH )@@G@@ N=IAREG(IU) PI )@@G@@DCT807780819*[@@@@CTS]AI@I@@@@C CHECK TO SEE IF CHAR IS A NON-NUMBEPJ )@@G@@R DCT807790820*[@@@@CTS]AS@I@@@@ CALL CPK )@@G@@HKNUM(N,$10,$20) @ CHECK IF NUMERIC DCT807800821PL )@@G@@*[@@@@CTS]A+@I@@@@ 10 CONTINUE PM )@@G@@ DCT807810822*[@@@@CTS]A?@I@@@@C FALLING THROUGH LPN )@@G@@OOP MEANS AN ERROR DCT807820823*[@@@@CTS]A6PO )@@G@@@I@@@@ CALL PRTERR ( 5 ) @ STATEMENT NO. ILLEGAL PP )@@G@@ DCT807830824*[@@@@CTS]B@@I@@@@C PACK CHARS INTO A WORD (RIGHTPQ )@@G@@ ADJUSTED BLANK FILLED) DCT807840825*[@@@@CTS]BE@I@@@@ 20 PR )@@G@@CALL UPG8 (IYREG,ISNT,JU) DCT807PS )@@G@@850826*[@@@@CTS]BO@I@@@@C ENTER STATEMENT NUMBER INTO TBL8 PT )@@G@@ DCT807860827*[@@@@CTS]BY@B@@@@ CALL TBL3 ( PU )@@G@@ISNT,LC,IEFGW,LSNGEN ) *[@@@@CTS]B*@I@@@@ 30 RETURN PV )@@G@@ DCT807880829*[@@@@CTS]B2@I@@@@PW )@@G@@C***********************************************************************PX )@@G@@DCT807890830*[@@@@CTS]B/@I@@@@ SUBROUTINE GETVAR ($,$,IEFGU,IVFGU,IPY )@@G@@FFGU,ICKDM) DCT807900831*[@@@@CTS]CA@I@@@@C * PICK PZ )@@G@@OUT A VARIABLE AND ENTER IT IN TBL8 DCT807910832QA )@@G@@*[@@@@CTS]CK@I@@@@C $ RETURN USED IF ALL CHARACTERS IN IAREG ARE PRQB )@@G@@OCESSED DCT807920833*[@@@@CTS]CU@I@@@@C 2ND $ RETURN USEDQC )@@G@@ IF THE VAR IS A FUNCTION DCT807930834*[@@@@CTS]C=QD )@@G@@@I@@@@C IEFGU - ENTERY FLAG QE )@@G@@ DCT807940835*[@@@@CTS]C,@I@@@@C IVFGU - VARIABLE FLAG QF )@@G@@ DCT807950836*[@@@@CTS]C8@I@@@@C QG )@@G@@ ICKDM =0 NORMAL, =1 ADD FLAG FOR DIMENSIONED VARIABLES DCT807QH )@@G@@960837*[@@@@CTS]D]@I@@@@C =2 CHECK TO SEE IF DMVR FLAG SET -QI )@@G@@ IF NOT SET FCTN FLAG DCT807970838*[@@@@CTS]DG@I@@@@ DIMENSION IZQJ )@@G@@REG(7) DCT807980839*[@@@@QK )@@G@@CTS]DQ@I@@@@C BLANK Z REG QL )@@G@@ DCT807990840*[@@@@CTS]D)@I@@@@ DO 10 JU=1,6 QM )@@G@@ DCT808000841*[@@@@CTS]D%@I@@@@QN )@@G@@ 10 IZREG(JU)=IBLK QO )@@G@@DCT808010842*[@@@@CTS]D4@I@@@@ DO 30 JU=1,6 QP )@@G@@ DCT808020843*[@@@@CTS]D"@I@@@@C PUT CQQ )@@G@@HARACTER IN Z REG DCT808030844QR )@@G@@*[@@@@CTS]EC@I@@@@ IZREG(JU)=IAREG(IU) QS )@@G@@ DCT808040845*[@@@@CTS]EM@I@@@@C GOTO NEXT CHAR QT )@@G@@ DCT808050846*[@@@@CTS]EWQU )@@G@@@I@@@@ IU=IU+1 QV )@@G@@ DCT808060847*[@@@@CTS]E&@I@@@@C CHECK FOR END OF DATA QW )@@G@@ DCT808070848*[@@@@CTS]E0@I@@@@ QX )@@G@@IF (IU.GT.NWAR) GO TO 110 DCT808QY )@@G@@080849*[@@@@CTS]E'@I@@@@ N=IAREG(IU) QZ )@@G@@ DCT808090850*[@@@@CTS]F^@I@@@@ IF (N.EQ.'@@RA )@@G@@@@@;') GO TO 110 @ MULTIPLE STATEMENTS? MDCT808100851*[@@@@RB )@@G@@CTS]FI@I@@@@C CHECK FOR CHAR NOT A LETTER OR A NUMBER RC )@@G@@ DCT808110852*[@@@@CTS]FS@I@@@@C RD )@@G@@ MDCT808120853*[@@@@CTS]F+@I@@@@RE )@@G@@C ALLOW $ CHARACTER MGC RF )@@G@@DCT808130854*[@@@@CTS]F?@I@@@@C RG )@@G@@ MDCT808140855*[@@@@CTS]F6@I@@@@ IF (N.RH )@@G@@EQ.'@@@@@$') GO TO 30 @ MGC DCT808150856RI )@@G@@*[@@@@CTS]G@@I@@@@ CALL CHKLET(N,$30,$20) @ CHECK IF LETTERJ )@@G@@R DCT808160857*[@@@@CTS]GE@I@@@@ 20 CALL CHKNUM(N,$30,RK )@@G@@$40) @ CHECK IF NUMBER DCT808170858*[@@@@CTS]GORL )@@G@@@I@@@@ 30 CONTINUE RM )@@G@@ DCT808180859*[@@@@CTS]GY@I@@@@C FALLING THROUGH LOOP MEANS ANRN )@@G@@ ERROR DCT808190860*[@@@@CTS]G*@I@@@@ RO )@@G@@CALL PRTERR ( 9 ) @ WORD TOO LONG DCT808RP )@@G@@200861*[@@@@CTS]G2@I@@@@C PACK VARIABLE INTO ONE WORD RQ )@@G@@ DCT808210862*[@@@@CTS]G/@I@@@@ 40 CALL UPF8 (IRR )@@G@@ZREG,IVTE) DCT808220863*[@@@@RS )@@G@@CTS]HA@I@@@@C CHECK FOR = UNLESS FLAG IS SET RT )@@G@@ DCT808230864*[@@@@CTS]HK@I@@@@ IF (N.EQ.36.AND.NF3.EQ.0RU )@@G@@) GO TO 60 DCT808240865*[@@@@CTS]HU@I@@@@RV )@@G@@C IS CHAR A ( RW )@@G@@DCT808250866*[@@@@CTS]H=@I@@@@ IF (N.EQ.41) GO TO 70 RX )@@G@@ DCT808260867*[@@@@CTS]H,@I@@@@C ENTERRY )@@G@@ VARIABLE IN TABLE DCT808270868RZ )@@G@@*[@@@@CTS]H8@I@@@@ 50 CALL TBL2 (2,IVTE,LC,IEFGU,IVFGU,IFFGU) SA )@@G@@ DCT808280869*[@@@@CTS]I]@I@@@@ GO TO 100 SB )@@G@@ DCT808290870*[@@@@CTS]IGSC )@@G@@@I@@@@C ENTER VARIABLE IN TABLE SD )@@G@@ DCT808300871*[@@@@CTS]IQ@I@@@@ 60 CALL TBL2 (2,IVTE,LC,KL,0,0) SE )@@G@@ DCT808310872*[@@@@CTS]I)@I@@@@ SF )@@G@@GO TO 100 DCT808SG )@@G@@320873*[@@@@CTS]I%@I@@@@ 70 ICK=ICKDM+1 SH )@@G@@ DCT808330874*[@@@@CTS]I4@I@@@@C DETERMINE TSI )@@G@@HE WAY VARIABLE IS TO BE ENTERED AND ENTER IT THAT WAYDCT808340875*[@@@@SJ )@@G@@CTS]I"@I@@@@ IF (ICK-2) 50,80,90 @ ICK=1,2 OR 3 SK )@@G@@ DCT808350876*[@@@@CTS]JC@I@@@@ 80 CALL TBL2 (2,IVTE,LC,IEFSL )@@G@@GU,IVFGU,KDMVR) DCT808360877*[@@@@CTS]JM@I@@@@SM )@@G@@ GO TO 100 SN )@@G@@DCT808370878*[@@@@CTS]JW@I@@@@ 90 IFTU=3 SO )@@G@@ DCT808380879*[@@@@CTS]J&@I@@@@ CALL TSP )@@G@@BL2 (IFTU,IVTE,LC,IEFGU,IVFGU,0) DCT808390880SQ )@@G@@*[@@@@CTS]J0@I@@@@C IF IFTU IS NOW NEG, WE HAVE A FUNCTION - TAKE RSR )@@G@@ETURN 2 DCT808400881*[@@@@CTS]J'@I@@@@ IF (IFTU .LT. 0) RSS )@@G@@ETURN 2 DCT808410882*[@@@@CTS]K^ST )@@G@@@I@@@@ 100 RETURN SU )@@G@@ DCT808420883*[@@@@CTS]KI@I@@@@C END OF DATA HAS BEEN REACHED SV )@@G@@- ENTER VARIABLE AND MAKE RETURN 1 DCT808430884*[@@@@CTS]KS@I@@@@ 110 SW )@@G@@CALL UPF8 (IZREG,IVTE) DCT808SX )@@G@@440885*[@@@@CTS]K+@I@@@@ CALL TBL2 (2,IVTE,LC,IEFGU,IVFGU,IFFGU) SY )@@G@@ DCT808450886*[@@@@CTS]K?@I@@@@ RETURN 1 SZ )@@G@@ DCT808460887*[@@@@TA )@@G@@CTS]K6@I@@@@C***********************************************************TB )@@G@@************DCT808470888*[@@@@CTS]L@@I@@@@ SUBROUTINE RJTNOS ($) TC )@@G@@ DCT808480889*[@@@@CTS]LE@I@@@@TD )@@G@@C THIS SUBROUTINE BY-PASSES NUMBERS UNTIL A NON-NUMBER IS FOUND TE )@@G@@DCT808490890*[@@@@CTS]LO@I@@@@C THE STANDARD RETURN IS USED IF THE TF )@@G@@FIRST CHARACTER IS A DCT808500891*[@@@@CTS]LY@I@@@@C NON-NTG )@@G@@UMBER; OTHERWISE, THE NON-STANDARD RETURN IS USED. DCT808510892TH )@@G@@*[@@@@CTS]L*@I@@@@ N=IAREG(IU) TI )@@G@@ DCT808520893*[@@@@CTS]L2@I@@@@ CALL CHKNUM(N,$10,TJ )@@G@@$40) @ CHECK IF NUMERIC DCT808530894*[@@@@CTS]L/TK )@@G@@@I@@@@ 10 DO 20 IZ=1,3 TL )@@G@@ DCT808540895*[@@@@CTS]MA@I@@@@ IU=IU+1 TM )@@G@@ DCT808550896*[@@@@CTS]MK@I@@@@ TN )@@G@@N=IAREG(IU) DCT808TO )@@G@@560897*[@@@@CTS]MU@I@@@@ CALL CHKNUM(N,$20,$30) @ CHECK IF NUTP )@@G@@MERIC DCT808570898*[@@@@CTS]M=@I@@@@ 20 CONTINUE TQ )@@G@@ DCT808580899*[@@@@TR )@@G@@CTS]M,@I@@@@ CALL PRTERR ( 10 ) @ VARIABLE TOO LONG TS )@@G@@ DCT808590900*[@@@@CTS]M8@I@@@@ 30 RETURN 1 TT )@@G@@ DCT808600901*[@@@@CTS]N]@I@@@@TU )@@G@@ 40 RETURN TV )@@G@@DCT808610902*[@@@@CTS]NG@I@@@@C*****************************************TW )@@G@@******************************DCT808620903*[@@@@CTS]NQ@I@@@@ SUBROUTX )@@G@@TINE UNPACK (IEFGV,IVFGV,ICKDM) DCT808630904TY )@@G@@*[@@@@CTS]N)@I@@@@C * THIS SUBROUTINE UNPACKS A STRING OF VARIABLES (TZ )@@G@@AS IN DIMENSION DCT808640905*[@@@@CTS]N%@I@@@@C STATEMENTS, TYPE UA )@@G@@STATEMENTS, ARITHMETIC EXPRESSIONS, ETC) AND DCT808650906*[@@@@CTS]N4UB )@@G@@@I@@@@C ENTERS THE VARIABLES IN TBL8 WITH THE APPROPRIATE FLAGS UC )@@G@@ DCT808660907*[@@@@CTS]N"@I@@@@C IEFGV -ENTRY FLAG UD )@@G@@ DCT808670908*[@@@@CTS]OC@I@@@@C UE )@@G@@ IVFGV -VARIABLE FLAG DCT808UF )@@G@@680909*[@@@@CTS]OM@I@@@@C ICKDM =0 NORMAL, =1 ADD FLAG FOR DIMENSIOUG )@@G@@NED VARIABLES, DCT808690910*[@@@@CTS]OW@I@@@@C =2 CHUH )@@G@@ECK TO SEE IF DMVR FLAG SET - IF NOT SET FCTN FLAG DCT808700911*[@@@@UI )@@G@@CTS]O&@I@@@@C NF1=1 ROUTINE PROCESSES ONLY ONE VARIABLE (MAY HAVE SUJ )@@G@@UBSCRIPT) DCT808710912*[@@@@CTS]O0@I@@@@C NF2=0 RETURN MADE WHEN WUK )@@G@@E FIND A / DCT808720913*[@@@@CTS]O'@I@@@@UL )@@G@@C NF3=0 L ENTERY FLAG USED IF VARIABLE IS FOLLOWED BY AN = UM )@@G@@DCT808730914*[@@@@CTS]P^@I@@@@C IPFG=1 RETURN WHEN ( ) MATCH. USE FUN )@@G@@OR IF (ETC) DCT808740915*[@@@@CTS]PI@I@@@@C UO )@@G@@ DCT808750916UP )@@G@@*[@@@@CTS]PS@I@@@@ KNT=0 UQ )@@G@@ DCT808760917*[@@@@CTS]P+@I@@@@ 10 IPARN=0 UR )@@G@@ DCT808770918*[@@@@CTS]P?US )@@G@@@I@@@@ JPARN(1)=0 UT )@@G@@ DCT808780919*[@@@@CTS]P6@I@@@@ 20 IF (IU.GT.NWAR) GO TO 310 UU )@@G@@ DCT808790920*[@@@@CTS]Q@@I@@@@ UV )@@G@@IF (IAREG(IU).EQ.'@@@@@;') GO TO 310 @ MDCT808UW )@@G@@800921*[@@@@CTS]QE@I@@@@ 30 N=IAREG(IU) UX )@@G@@ DCT808810922*[@@@@CTS]QO@I@@@@ CALL CHKLET(UY )@@G@@N,$60,$40) @ CHECK IF LETTER DCT808820923*[@@@@UZ )@@G@@CTS]QY@I@@@@ 40 IF (IPFG) 100,100,50 VA )@@G@@ DCT808830924*[@@@@CTS]Q*@I@@@@ 50 IF ( N.EQ.'@@@@@(' )KNT=VB )@@G@@KNT + 1 DCT808840925*[@@@@CTS]Q2@I@@@@VC )@@G@@ IF ( N.EQ.'@@@@@)' )KNT=KNT - 1 VD )@@G@@DCT808850926*[@@@@CTS]Q/@I@@@@ IF (KNT) 100,310,100 VE )@@G@@ DCT808860927*[@@@@CTS]RA@I@@@@C CHECKVF )@@G@@ FOR LETTER DCT808870928VG )@@G@@*[@@@@CTS]RK@I@@@@ 60 IF (N.EQ.9) GO TO 70 @ 9 VH )@@G@@D 011 DCT808880929*[@@@@CTS]RU@I@@@@ IF (N.NE.10) GO TOVI )@@G@@ 120 @ 10 E 012 DCT808890930*[@@@@CTS]R=VJ )@@G@@@G@@@@ IF (IAREG(IU+1).EQ.23.AND.IAREG(IU+2).EQ.23) GO TO 90 @ 23 VK )@@G@@R 02 *[@@@@CTS]R,@G@@@@ IF (IAREG(IU+1).EQ.19.AND.IAREG(IU+2).EQ.9VL )@@G@@) GO TO 90 @ 19 N 023*[@@@@CTS]R8@I@@@@ 70 IF (IU-1) 80,120,80 VM )@@G@@ DCT808920933*[@@@@CTS]S]@I@@@@VN )@@G@@ 80 CALL CHKNUM(IAREG(IU-1),$100,$120) @ CHECK IF NUMERIC VO )@@G@@DCT808930934*[@@@@CTS]SG@I@@@@ 90 IF (IAREG(IU+3).EQ.'@@@@@='.AND.IU.NVP )@@G@@E.1) GO TO 280 @ ERR/END= DCT808940935*[@@@@CTS]SQ@I@@@@ GO TO VQ )@@G@@120 DCT808950936VR )@@G@@*[@@@@CTS]S)@I@@@@ 100 CONTINUE VS )@@G@@ DCT808960937*[@@@@CTS]S%@I@@@@C CHECK FOR / UNLESVT )@@G@@S FLAG IS SET DCT808970938*[@@@@CTS]S4VU )@@G@@@I@@@@ IF (N.EQ.60.AND.NF2.EQ.0) GO TO 310 VV )@@G@@ DCT808980939*[@@@@CTS]S"@I@@@@C CHECK FOR $ VW )@@G@@ DCT808990940*[@@@@CTS]TC@I@@@@ VX )@@G@@IF (N.EQ.39) GO TO 270 @ 39 $ 047 DCT809VY )@@G@@000941*[@@@@CTS]TM@I@@@@ IF (N.EQ.61) GO TO 320 VZ )@@G@@@ 61 . 075 DCT809010942*[@@@@CTS]TW@I@@@@ 110 CONTINUE WA )@@G@@ DCT809020943*[@@@@WB )@@G@@CTS]T&@I@@@@C GO TO NEXT CHAR WC )@@G@@ DCT809030944*[@@@@CTS]T0@I@@@@ IU=IU+1 WD )@@G@@ DCT809040945*[@@@@CTS]T'@I@@@@WE )@@G@@ GO TO 20 WF )@@G@@DCT809050946*[@@@@CTS]U^@I@@@@C WE FOUND A VARIABLE - PICK IT OUT AWG )@@G@@ND ENTER IT DCT809060947*[@@@@CTS]UI@I@@@@ 120 CALL GWH )@@G@@ETVAR($310,$130,IEFGV,IVFGV,0,ICKDM) DCT809070948WI )@@G@@*[@@@@CTS]US@I@@@@C CHECK CHAR FOLLOWING VARIABLE FOR ( WJ )@@G@@ DCT809080949*[@@@@CTS]U+@I@@@@ IF (IAREG(IU).EQ.4WK )@@G@@1) GO TO 150 @ 41 ( 051 DCT809090950*[@@@@CTS]U?WL )@@G@@@I@@@@C CHECK TO SEE IF RETURN IS TO BE MADE AFTER FIRST VARIABLE ISWM )@@G@@ DCT809100951*[@@@@CTS]U6@I@@@@C OBTAINED WN )@@G@@ DCT809110952*[@@@@CTS]V@@I@@@@ WO )@@G@@IF (NF1 .EQ. 1) RETURN DCT809WP )@@G@@120953*[@@@@CTS]VE@I@@@@ GO TO 30 WQ )@@G@@ DCT809130954*[@@@@CTS]VO@I@@@@C WE HAVE A FWR )@@G@@UNCTION - SET FLAG AND RETURN DCT809140955*[@@@@WS )@@G@@CTS]VY@^@@@@ 130 CALL TBL4 ( 8,LC )*[@@@@CTS]V*@I@@@@ IF (IAREG(IUWT )@@G@@).NE.'@@@@@(') GO TO 140 DCT809160957*[@@@@WU )@@G@@CTS]V2@I@@@@ IPARN=IPARN + 1 WV )@@G@@ DCT809170958*[@@@@CTS]V/@I@@@@ JPARN(IPARN)=1 WW )@@G@@ DCT809180959*[@@@@CTS]WA@]@@@@WX )@@G@@ KXX=1 *[@@@@CTS]WK@I@@@@ GO TO 160 WY )@@G@@ DCT809190961*[@@@@CTS]WU@I@@@@ 140 IF (IAWZ )@@G@@REG(IU).EQ.'@@@@@)') GO TO 190 DCT809200962XA )@@G@@*[@@@@CTS]W=@I@@@@ GO TO 10 XB )@@G@@ DCT809210963*[@@@@CTS]W,@I@@@@C WE HAVE A ( - THEXC )@@G@@REFORE A SUBSCRIPT DCT809220964*[@@@@CTS]W8XD )@@G@@@I@@@@C * PROCESS SUBSCRIPT(S) XE )@@G@@ DCT809230965*[@@@@CTS]X]@I@@@@C GO TO NEXT CHAR XF )@@G@@ DCT809240966*[@@@@CTS]XG@I@@@@ 150 XG )@@G@@IPARN=IPARN + 1 DCT809XH )@@G@@250967*[@@@@CTS]XQ@I@@@@ JPARN(IPARN)=0 XI )@@G@@ DCT809260968*[@@@@CTS]X)@I@@@@ 160 IU=IU+1 XJ )@@G@@ DCT809270969*[@@@@XK )@@G@@CTS]X%@I@@@@C IF WE HAVE EXCEEDED THE DATA THERE IS AN ERROR XL )@@G@@ DCT809280970*[@@@@CTS]X4@I@@@@ 170 IF ( IU.GT.NWAR )CALL PRXM )@@G@@TERR ( 11 ) @ NO RIGHT PAREN DCT809290971*[@@@@CTS]X"@I@@@@XN )@@G@@C CHECK FOR ) XO )@@G@@DCT809300972*[@@@@CTS]YC@I@@@@ IF (IAREG(IU).NE.32) GO TO 200 XP )@@G@@ @ 32 ) 040 DCT809310973*[@@@@CTS]YM@I@@@@C END OXQ )@@G@@F SUBSCRIPT -GO TO NEXT CHAR AND RETURN TO MAIN LOOP DCT809320974XR )@@G@@*[@@@@CTS]YW@I@@@@ IU=IU+1 XS )@@G@@ DCT809330975*[@@@@CTS]Y&@I@@@@ JPARN(IPARN)=0 XT )@@G@@ DCT809340976*[@@@@CTS]Y0XU )@@G@@@I@@@@ IPARN=IPARN - 1 XV )@@G@@ DCT809350977*[@@@@CTS]Y'@ @@@@ IF (IPARN.GT.0)GO TO 236*[@@@@XW )@@G@@CTS]Z^@I@@@@C CHECK TO SEE IF RETURN IS TO BE MADE AFTER FIRST VARIXX )@@G@@ABLE IS DCT809370979*[@@@@CTS]ZI@I@@@@C OBTAINED XY )@@G@@ DCT809380980*[@@@@CTS]ZS@I@@@@XZ )@@G@@ 190 IF (NF1 .EQ. 1 )RETURN YA )@@G@@DCT809390981*[@@@@CTS]Z+@I@@@@ GO TO 10 YB )@@G@@ DCT809400982*[@@@@CTS]Z?@I@@@@C CHECKYC )@@G@@ FOR NON-LETTER DCT809410983YD )@@G@@*[@@@@CTS]Z6@I@@@@ 200 N=IAREG(IU) YE )@@G@@ DCT809420984*[@@@@CTS])@@I@@@@ CALL CHKLET(N,$210YF )@@G@@,$240) @ CHECK IF LETTER DCT809430985*[@@@@CTS])EYG )@@G@@@I@@@@ 210 KXX=KD YH )@@G@@ DCT809440986*[@@@@CTS])O@I@@@@ IF ( JPARN(IPARN).EQ.1 )KXX=KCYI )@@G@@ DCT809450987*[@@@@CTS])Y@I@@@@ YJ )@@G@@CALL GETVAR($260,$220,KXX,0,0,ICKDM) DCT809YK )@@G@@460988*[@@@@CTS])*@I@@@@ KXX=0 YL )@@G@@ DCT809470989*[@@@@CTS])2@I@@@@ GO TO 230 YM )@@G@@ DCT809480990*[@@@@YN )@@G@@CTS])/@I@@@@ 220 KXX=1 YO )@@G@@ DCT809490991*[@@@@CTS]-A@^@@@@ CALL TBL4 ( 8,LC )*[@@@@YP )@@G@@CTS]-K@I@@@@ 230 IF (IAREG(IU).NE.'@@@@@(') GO TO 170 YQ )@@G@@ DCT809510993*[@@@@CTS]-U@I@@@@ 235 IPARN=IPARN + 1 YR )@@G@@ DCT809520994*[@@@@CTS]-=@I@@@@YS )@@G@@ JPARN(IPARN)=KXX YT )@@G@@DCT809530995*[@@@@CTS]-,@I@@@@ GO TO 160 YU )@@G@@ DCT809540996*[@@@@CTS]-8@^@@@@236 KXX=JPYV )@@G@@ARN(IPARN) *[@@@@CTS]+]@#@@@@ GO TO 170 *[@@@@CTS]+G@I@@@@C YW )@@G@@ DCT809YX )@@G@@550997*[@@@@CTS]+Q@I@@@@C CHECK FOR NON-STANDARD RETURN FROM FUNCTION RYY )@@G@@EFERENCE. DCT809560998*[@@@@CTS]+)@I@@@@C YZ )@@G@@ DCT809570999*[@@@@ZA )@@G@@CTS]+%@A@@@@ 240 IF ( N.EQ.'@@@@@(' )GO TO 235 *[@@@@CTS]+4@A@@@@ ZB )@@G@@IF ( N.EQ.'@@@@@.' )GO TO 320 *[@@@@CTS]+"@I@@@@ IF (N.NE.'@@@@@$'.ZC )@@G@@OR.JPARN(IPARN).NE.1) GO TO 160 DCT809581002*[@@@@CTS]@ZU )@@G@@@I@@@@ CALL PRTERR ( 13 ) @ CARD DATA EXCEEDED ZV )@@G@@ DCT809711015*[@@@@CTS]>E@I@@@@C END=X OR ERR=Y ON READ/WRITE ZW )@@G@@ MDCT809721016*[@@@@CTS]>O@I@@@@ 280 ZX )@@G@@IU=IU + 4 @ MDCT809ZY )@@G@@731017*[@@@@CTS]>Y@I@@@@ 290 CONTINUE ZZ )@@G@@ DCT809741018*[@@@@CTS]>*@I@@@@ N=IAREG(IU) AA )@@G@@ DCT809751019*[@@@@AB )@@G@@CTS]>2@I@@@@C CHECK FOR NON-NUMBER AC )@@G@@ DCT809761020*[@@@@CTS]>/@I@@@@ CALL CHKNUM(N,$300,$30) AD )@@G@@ @ CHECK IF NUMERIC DCT809771021*[@@@@CTS]&A@I@@@@AE )@@G@@C PICK OUT AND ENTER THE STATEMENT NUMBER AF )@@G@@DCT809781022*[@@@@CTS]&K@I@@@@ 300 CALL GETSN (KT) AG )@@G@@ DCT809791023*[@@@@CTS]&U@I@@@@ GO TO AH )@@G@@30 DCT809801024AI )@@G@@*[@@@@CTS]&=@I@@@@ 310 RETURN AJ )@@G@@ DCT809811025*[@@@@CTS]&,@I@@@@ 320 IJ=IU AK )@@G@@ DCT809821026*[@@@@CTS]&8AL )@@G@@@I@@@@ 330 IJ=IJ+1 AM )@@G@@ DCT809831027*[@@@@CTS]$]@I@@@@ IF (IJ.GT.NWAR) GO TO 411 AN )@@G@@ DCT809841028*[@@@@CTS]$G@C@@@@ AO )@@G@@IF ( IAREG(IJ).NE.'@@@@@.' )GO TO 330 *[@@@@CTS]$Q@I@@@@ 340 IC=IJ AP )@@G@@- IU DCT809871030AQ )@@G@@*[@@@@CTS]$)@I@@@@ IF (IAREG(IU+1).NE.'@@@@@T') GO TO 350 AR )@@G@@ DCT809881031*[@@@@CTS]$%@I@@@@ IF (IC.EQ.5) GO TOAS )@@G@@ 380 @ .TRUE. DCT809891032*[@@@@CTS]$4AT )@@G@@@I@@@@ IF (IC.EQ.2) GO TO 380 @ .T. AU )@@G@@ DCT809901033*[@@@@CTS]$"@I@@@@ 350 IF (IAREG(IU+1).NE.'@@@@@F') GAV )@@G@@O TO 360 DCT809911034*[@@@@CTS]*C@I@@@@ AW )@@G@@IF (IC.EQ.6) GO TO 380 @ .FALSE. DCT809AX )@@G@@921035*[@@@@CTS]*M@I@@@@ IF (IC.EQ.2) GO TO 380 @ .F. AY )@@G@@ DCT809931036*[@@@@CTS]*W@I@@@@ 360 IF (IC.GT.4)AZ )@@G@@ GO TO 411 DCT809941037*[@@@@BA )@@G@@CTS]*&@I@@@@ IF (IC.LE.2) GO TO 411 BB )@@G@@ DCT809951038*[@@@@CTS]*0@I@@@@ CALL CHKLET(IAREG(IU+1),BC )@@G@@$370,$411) @ CHECK IF LETTER DCT809961039*[@@@@CTS]*'@I@@@@BD )@@G@@ 370 CALL CHKLET(IAREG(IU+2),$380,$411) BE )@@G@@DCT809971040*[@@@@CTS](^@I@@@@ 380 IU=IJ BF )@@G@@ DCT809981041*[@@@@CTS](I@A@@@@ IF ( IBG )@@G@@PARN.GT.0 )GO TO 160 *[@@@@CTS](S@I@@@@ GO TO 110 BH )@@G@@ DCT809991043*[@@@@CTS](+@[@@@@BI )@@G@@C *[@@@@CTS](?@C@@@@C CHECK FOR E/D CONSTANTS - X.XXXESXX S=+ OR -BJ )@@G@@*[@@@@CTS](6@]@@@@ 411 IJ=IU *[@@@@CTS]%@@#@@@@ EFLAG=0 *[@@@@BK )@@G@@CTS]%E@#@@@@ 422 IJ=IJ + 1 *[@@@@CTS]%O@A@@@@ IF ( IJ.GT.NWAR )GBL )@@G@@O TO 444 *[@@@@CTS]%Y@#@@@@ N=IAREG(IJ) *[@@@@CTS]%*@A@@@@ BM )@@G@@CALL CHKNUM( N,$422,$433 ) *[@@@@CTS]%2@D@@@@ 433 IF ( N.EQ.'@@@@@E'BN )@@G@@.AND.EFLAG.EQ.0 )GO TO 445 *[@@@@CTS]%/@D@@@@ IF ( N.EQ.'@@@@@D'BO )@@G@@.AND.EFLAG.EQ.0 )GO TO 445 *[@@@@CTS]:A@D@@@@ IF ( N.EQ.'@@@@@-'BP )@@G@@.AND.EFLAG.EQ.0 )GO TO 422 *[@@@@CTS]:K@D@@@@ IF ( N.EQ.'@@@@@+'BQ )@@G@@.AND.EFLAG.EQ.1 )GO TO 422 *[@@@@CTS]:U@]@@@@ 444 IU=IJ *[@@@@CTS]:=BR )@@G@@@A@@@@ IF ( IPARN.GT.0 )GO TO 170 *[@@@@CTS]:,@#@@@@ GO TO BS )@@G@@20 *[@@@@CTS]:8@#@@@@445 EFLAG=1 *[@@@@CTS]?]@#@@@@ GO TO BT )@@G@@422 *[@@@@CTS]?G@I@@@@C***********************************************BU )@@G@@************************DCT810001059*[@@@@CTS]?Q@I@@@@ SUBROUTINE UBV )@@G@@PSN ($,IEFGX) DCT810011060*[@@@@BW )@@G@@CTS]?)@I@@@@C THIS ROUTINE UNPACKS A STRING OF STATEMENT NUMBERS SEBX )@@G@@PERATED DCT810021061*[@@@@CTS]?%@I@@@@C BY COMMAS BY )@@G@@ DCT810031062*[@@@@CTS]?4@I@@@@BZ )@@G@@C THE STANDARD RETURN IS TAKEN WHEN A ) IS FOUND CA )@@G@@DCT810041063*[@@@@CTS]?"@I@@@@C THE NON-STANDARD RETURN IS USED IF CB )@@G@@WE EXCEED THE DATA DCT810051064*[@@@@CTS]!C@I@@@@ IF (IACC )@@G@@REG(IU) .EQ. 32) RETURN @ 32 ) 040 DCT810061065CD )@@G@@*[@@@@CTS]!M@I@@@@ 10 IF (IU .GT. NWAR) RETURN 1 CE )@@G@@ DCT810071066*[@@@@CTS]!W@I@@@@ CALL CHKNUM(IAREG(CF )@@G@@IU),$20,$30) @ CHECK IF NUMERIC DCT810081067*[@@@@CTS]!&CG )@@G@@@I@@@@ 20 CALL GETSN ( IEFGX ) CH )@@G@@ DCT810091068*[@@@@CTS]!0@I@@@@ 30 IF (IAREG(IU) .EQ. 32) RETURN CI )@@G@@ @ 32 ) 040 DCT810101069*[@@@@CTS]!'@I@@@@ CJ )@@G@@IU=IU+1 DCT810CK )@@G@@111070*[@@@@CTS],^@I@@@@ GO TO 10 CL )@@G@@ DCT810121071*[@@@@CTS],I@I@@@@C*****************CM )@@G@@******************************************************DCT810131072*[@@@@CN )@@G@@CTS],S@I@@@@ SUBROUTINE LPRT @ CO )@@G@@ MDCT810141073*[@@@@CTS],+@I@@@@ CALL ITF ( LCT,FLINE ) CP )@@G@@ @ LINE COUNT TO FIELD DATA DCT810151074*[@@@@CTS],?@I@@@@CQ )@@G@@ FLINE(2)=OR( FLD(12,24,FLINE(2))*2**12 , '@@@@. ' ) @ XXXX.B CR )@@G@@DCT810161075*[@@@@CTS],6@^@@@@ DO 10 IC=1,16 *[@@@@CTS]\@@A@@@@CS )@@G@@ IF ( FLINE(IC).EQ.0 )GO TO 20 *[@@@@CTS]\E@#@@@@ 10 CONTINUE CT )@@G@@*[@@@@CTS]\O@]@@@@ IC=17 *[@@@@CTS]\Y@A@@@@ 20 CALL PRINT ( 1,IC-CU )@@G@@1,FLINE ) *[@@@@CTS]\*@I@@@@ RETURN @ CV )@@G@@ MDCT810181081*[@@@@CTS]\2@I@@@@ END CW )@@G@@ DCT810191082CX )@@G@@_@@@@@ 000070 154G @O@[@@ 0001 000113 166I 0000 000000 CY )@@G@@*[@@@@*SDFF**[@@@@CTS@@E@I@@@@ SUBROUTINE PROCIT( IFILE,FILE,PNAME,CZ )@@G@@$) PCRD0001 *[@@@@CTS@@O@I@@@@ IMPLICDA )@@G@@IT INTEGER (A-Z) PCRD0002 DB )@@G@@*[@@@@CTS@@Y@I@@@@ PARAMETER LENGTH=2*224,SW=28,UPSCT=SW/28 DC )@@G@@ MGC 01C *[@@@@CTS@@*@I@@@@ PARAMETER LENG2=LEDD )@@G@@NGTH/2 @ MGC 01C *[@@@@CTS@@2DE )@@G@@@I@@@@ COMMON /MSG/MSG(105) DF )@@G@@ PCRD0004 *[@@@@CTS@@/@I@@@@ DIMENSION EMSG(3) DG )@@G@@ PCRD0005 *[@@@@CTS@[A@I@@@@ DH )@@G@@EQUIVALENCE ( EMSG,MSG ) PCRD00DI )@@G@@06 *[@@@@CTS@[K@I@@@@ DIMENSION FILE(2),FCT(34),BUF(LENGTH),PNAMDJ )@@G@@E(2),IOPKT(12),CARD(14) MGC 01C *[@@@@CTS@[U@I@@@@ DIMENSION SPDK )@@G@@KT(4),IFILE(2) @ IFILE=INTERNAL FILE NAME PCRD0008 *[@@@@DL )@@G@@CTS@[=@I@@@@ COMMON /E8ARY/NWAR,MULT,NWAR1,IRDM(1792) DM )@@G@@ PCRD0009 *[@@@@CTS@[,@I@@@@ DIMENSION BUF1(LENG2) , DN )@@G@@BUF2(LENG2) @ MGC 01C *[@@@@CTS@[8@I@@@@DO )@@G@@ EQUIVALENCE ( BUF1,BUF ) , ( BUF2,BUF(1+LENG2) ) @ DP )@@G@@MGC 01C *[@@@@CTS@]]@I@@@@ DATA IOPKT/ 12*0 / @ DQ )@@G@@ MGC 01C *[@@@@CTS@]%@I@@@@ EQUIVADR )@@G@@LENCE (BUF,IRDM(1792-LENGTH)) MGC 01C DS )@@G@@*[@@@@CTS@]4@I@@@@ H1(I)=FLD(0,18,I) DT )@@G@@ PCRD0011 *[@@@@CTS@]"@I@@@@ H2(I)=FLD(18,18,I)DU )@@G@@ PCRD0012 *[@@@@CTS@#CDV )@@G@@@I@@@@ S1(I)=FLD(0,6,I) DW )@@G@@ PCRD0013 *[@@@@CTS@#M@I@@@@ S2(I)=FLD(6,6,I) DX )@@G@@ PCRD0014 *[@@@@CTS@#W@I@@@@ DY )@@G@@T1(I)=FLD(0,12,I) PCRD00DZ )@@G@@15 *[@@@@CTS@^I@I@@@@ FCT(1)=IFILE(1) EA )@@G@@ PCRD0020 *[@@@@CTS@^S@I@@@@ FCT(2)=IFILEEB )@@G@@(2) PCRD0021 *[@@@@EC )@@G@@CTS@^+@I@@@@ CALL IRFTI(FCT,$90) @ READ FILE CONTROL TABLE ED )@@G@@ PCRD0022 *[@@@@CTS@^?@I@@@@ LOCBUF=LOC(BUF)*2**18+LEEE )@@G@@NGTH PCRD0023 *[@@@@CTS@^6@I@@@@EF )@@G@@ CALL IRPFPT(FCT,LOCBUF,$90) EG )@@G@@PCRD0024 *[@@@@CTS@ @@I@@@@ NTI=H2(BUF(140)) @ NO. OF TABLE ENEH )@@G@@TRIES PCRD0025 *[@@@@CTS@ E@I@@@@ ILN=4 EI )@@G@@ @ EACH ITEM IS ALWAYS 4 WORDS PCRD0026 EJ )@@G@@*[@@@@CTS@ O@I@@@@ IF (NTI.EQ.0) GO TO 100 EK )@@G@@ PCRD0027 *[@@@@CTS@ Y@I@@@@ SPKT(1)=PNAME(1) EL )@@G@@ @ SETUP SEARCH PACKET MPCRD0028 *[@@@@CTS@ *EM )@@G@@@I@@@@ SPKT(2)=PNAME(2) @ EN )@@G@@ MPCRD0029 *[@@@@CTS@ 2@I@@@@ SPKT(3)=0 EO )@@G@@ @ MPCRD0030 *[@@@@CTS@ /@I@@@@ EP )@@G@@SPKT(4)=0 @ MPCRD00EQ )@@G@@31 *[@@@@CTS@AA@I@@@@ IS=IFPTIS(FCT,SPKT,$10) @ ER )@@G@@ MPCRD0032 *[@@@@CTS@AK@I@@@@ IS=IS - LOC(ES )@@G@@BUF) + 1 @ MPCRD0033 *[@@@@ET )@@G@@CTS@AU@I@@@@ IOPKT(6)=FLD(1,35,BUF(IS+3))/28 @ LOCATION OF PROCEDEU )@@G@@URE ON DRUM PCRD0034 *[@@@@CTS@A=@I@@@@ OFSET=FLD(1,35,BUF(IS+3)EV )@@G@@) PCRD0035 *[@@@@CTS@A,@I@@@@EW )@@G@@ GO TO 20 EX )@@G@@PCRD0036 *[@@@@CTS@A8@I@@@@ 10 CALL OPA ( -1,EMSG ) EY )@@G@@ PCRD0037 *[@@@@CTS@B]@I@@@@ CALL OEZ )@@G@@PA ( 20,'PROCEDURE &' ) PCRD0038 FA )@@G@@*[@@@@CTS@BG@I@@@@ CALL OPAF ( 31,PNAME,12 ) FB )@@G@@ PCRD0039 *[@@@@CTS@BQ@I@@@@ CALL OPA ( 45,' NOFC )@@G@@T FOUND IN FILE &' ) PCRD0040 *[@@@@CTS@B)FD )@@G@@@I@@@@ CALL OPAFP ( 3,64,FILE,12 ) FE )@@G@@ PCRD0041 *[@@@@CTS@B%@I@@@@ GO TO 110 FF )@@G@@ PCRD0042 *[@@@@CTS@B4@I@@@@ 20 FG )@@G@@IOPKT(1)=IFILE(1) PCRD00FH )@@G@@43 *[@@@@CTS@B"@I@@@@ IOPKT(2)=IFILE(2) FI )@@G@@ PCRD0044 *[@@@@CTS@CC@I@@@@ IOPKT(3)=0 FJ )@@G@@ PCRD0045 *[@@@@FK )@@G@@CTS@CM@I@@@@ IOPKT(4)=0 FL )@@G@@ PCRD0046 *[@@@@CTS@CW@I@@@@ S2(IOPKT(4))=16 @ 02FM )@@G@@0 READ FUNCTION PCRD0047 *[@@@@CTS@C&@I@@@@FN )@@G@@ H1(IOPKT(5))=LENG2 @ READ SW WORDS FO )@@G@@MGC 01C *[@@@@CTS@C0@I@@@@ H2(IOPKT(5))=LOC(BUF) FP )@@G@@ PCRD0049 *[@@@@CTS@C'@I@@@@ H1( IOFQ )@@G@@PKT(7) )=LOC(BUF1) @ MGC 01C FR )@@G@@*[@@@@CTS@D^@I@@@@ H2( IOPKT(7) )=LOC(BUF2) @ FS )@@G@@ MGC 01C *[@@@@CTS@DI@I@@@@ H1( IOPKT(8) )=8 FT )@@G@@ @ BUF LENGTH(SECTORS) MGC 01C *[@@@@CTS@DSFU )@@G@@@I@@@@ H2( IOPKT(8) )=14 @ IMAGE LENGTH FV )@@G@@ MGC 01C *[@@@@CTS@D+@I@@@@ H1( IOPKT(9) )=1 FW )@@G@@ @ MGC 01C *[@@@@CTS@D?@I@@@@ FX )@@G@@H1( IOPKT(10) )=1 @ MGC 01FY )@@G@@C *[@@@@CTS@D6@I@@@@ CALL ISDFIO ( IOPKT,$30 ) @ FZ )@@G@@ MGC 01C *[@@@@CTS@E@@I@@@@ RETURN GA )@@G@@ @ MGC 01C *[@@@@GB )@@G@@CTS@EE@I@@@@ 30 CALL OPA ( -1,EMSG ) @ GC )@@G@@ MGC 01C *[@@@@CTS@EO@I@@@@ CALL OPA ( 20,' PROCEDURGD )@@G@@E &' ) @ MGC 01C *[@@@@CTS@EY@I@@@@GE )@@G@@ CALL OPAF ( 31,PNAME,12 ) @ GF )@@G@@MGC 01C *[@@@@CTS@E*@I@@@@ CALL OPAP ( 2,45,' CANNOT READ.&' ) GG )@@G@@ @ MGC 01C *[@@@@CTS@E2@I@@@@ GO TO GH )@@G@@110 @ MGC 01C GI )@@G@@*[@@@@CTS@E/@I@@@@C GJ )@@G@@ PCRD0073 *[@@@@CTS@FA@I@@@@ 90 ERR=DUMMY(1) @ GGK )@@G@@ET ERROR CODE IN REG. A0 PCRD0074 *[@@@@CTS@FKGL )@@G@@@I@@@@ CALL OPA ( -1,EMSG ) @ ERROR MSG GM )@@G@@ PCRD0075 *[@@@@CTS@FU@I@@@@ CALL OPA ( 20,'BSP ERROR STATUGN )@@G@@S=&' ) PCRD0076 *[@@@@CTS@F=@I@@@@ GO )@@G@@CALL OPOP ( 2,38,ERR,13 ) PCRD00GP )@@G@@77 *[@@@@CTS@F,@I@@@@ GO TO 110 GQ )@@G@@ PCRD0078 *[@@@@CTS@F8@I@@@@ 100 CALL OPA ( -GR )@@G@@1,EMSG ) @ ERROR MSG PCRD0079 *[@@@@GS )@@G@@CTS@G]@I@@@@ CALL OPA ( 20,'FORTRAN PROCEDURE TABLE IS EMPTY. FILE=GT )@@G@@&' ) PCRD0080 *[@@@@CTS@GG@I@@@@ CALL OPAFP ( 3,60,FILE,1GU )@@G@@2 ) PCRD0081 *[@@@@CTS@GQ@I@@@@GV )@@G@@ 110 CALL OPAP ( 2,-1,' &' ) GW )@@G@@PCRD0082 *[@@@@CTS@G)@I@@@@ RETURN 4 GX )@@G@@ PCRD0083 *[@@@@CTS@G%@I@@@@ ENTRY GY )@@G@@PROCRD ( CARD ) @ MGC 01C GZ )@@G@@*[@@@@CTS@G4@I@@@@ 200 CALL MOVER ( 0,0,CARD,1,14 ) @ HA )@@G@@ MGC 01C *[@@@@CTS@G"@I@@@@ IF ( H2(IOPKT(9)).HB )@@G@@EQ.0 )H2( IOPKT(9) )=LOC(CARD) @ MGC 01C *[@@@@CTS@HCHC )@@G@@@I@@@@ 210 CALL ISDFI ( IOPKT,$220,$250 ) @ READ IMAGE HD )@@G@@ MGC 01C *[@@@@CTS@HM@I@@@@ IF ( S1( IOPKT(11) ).GT.0 )GO HE )@@G@@TO 200 @ DATA IMAGE? MGC 01C *[@@@@CTS@HW@I@@@@ HF )@@G@@IF ( FLD( 18,6,IOPKT(11) ).GT.0 )GO TO 200 @ DELETED? MGC 01HG )@@G@@C *[@@@@CTS@H&@I@@@@ IF ( CARD(1).EQ.' END' )GO TO 250 HH )@@G@@ MGC 01C *[@@@@CTS@H0@I@@@@ RETURN HI )@@G@@ @ MGC 01C *[@@@@HJ )@@G@@CTS@H'@I@@@@ 220 ERR=S1(IOPKT(4)) HK )@@G@@ MGC 01C *[@@@@CTS@I^@I@@@@ IF (ERR.EQ.0) RETURN HL )@@G@@ PCRD0088 *[@@@@CTS@II@I@@@@HM )@@G@@ CALL OPA ( -1,EMSG ) @ ERROR MSG HN )@@G@@PCRD0089 *[@@@@CTS@IS@I@@@@ CALL OPA ( 20,'I-O ERROR. STATUS=&' HO )@@G@@) PCRD0090 *[@@@@CTS@I+@I@@@@ CALL OHP )@@G@@PI ( 39,ERR,3 ) PCRD0091 HQ )@@G@@*[@@@@CTS@I?@I@@@@ CALL OPA ( 44,'FILE=&' ) HR )@@G@@ PCRD0092 *[@@@@CTS@I6@I@@@@ CALL OPAF ( 50,FILHS )@@G@@E,12 ) PCRD0093 *[@@@@CTS@J@HT )@@G@@@I@@@@ CALL OPA ( 64,'PROCEDURE=&' ) HU )@@G@@ MGC 01C *[@@@@CTS@JE@I@@@@ CALL OPAFP ( 3,73,PNAME,12 ) HV )@@G@@ PCRD0095 *[@@@@CTS@JO@I@@@@ HW )@@G@@CALL OPAP ( 2,-1,' &' ) PCRD00HX )@@G@@96 *[@@@@CTS@JY@I@@@@ RETURN 0 HY )@@G@@ PCRD0097 *[@@@@CTS@J*@I@@@@ 250 CALL ISDFIC HZ )@@G@@( IOPKT ) @ CLOSE ISDFI MGC 01C *[@@@@IA )@@G@@CTS@J2@I@@@@ RETURN @ IB )@@G@@ MGC 01C *[@@@@CTS@J/@I@@@@C IC )@@G@@ PCRD0098 *[@@@@CTS@KA@I@@@@ID )@@G@@ SUBROUTINE DUMMY(X) @ MAKE COMPILER STORE A0 IN ERR IE )@@G@@PCRD0099 *[@@@@CTS@KK@I@@@@ RETURN IF )@@G@@ PCRD0100 *[@@@@CTS@KU@I@@@@ END IG )@@G@@ PCRD0101 IH )@@G@@_@@@@@[@K^Z!G^K^)^[^K^)^[^@^Z:/KF@@@[ K^)#C8K@@O[^K^Z:/KF@@@/KI@*2/K@@@@II )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@[@@@@$(1). *[@@@@CTS@[,@#@@@@ AXR$. IJ )@@G@@*[@@@@CTS@[8@ @@@@. INTERFACE ROUTINES *[@@@@CTS@]]@]@@@@ISDFIOIK )@@G@@*. *[@@@@CTS@]G@A@@@@ SX X11,X11SAV. *[@@@@CTS@]QIL )@@G@@@ @@@@ LA A0,0,X11. *[@@@@CTS@])@ @@@@ LMJ IM )@@G@@ X11,SDFIO.*[@@@@CTS@]%@^@@@@ J $+3.*[@@@@CTS@]4@A@@@@IN )@@G@@ LX X11,X11SAV. *[@@@@CTS@]"@ @@@@ J IO )@@G@@ 3,X11. *[@@@@CTS@#C@A@@@@ LX X11,X11SAV. *[@@@@IP )@@G@@CTS@#M@ @@@@ J 1,X11. *[@@@@CTS@#W@]@@@@ISDFI*. IQ )@@G@@*[@@@@CTS@#&@A@@@@ SX X11,X11SAV. *[@@@@CTS@#0@ @@@@IR )@@G@@ LA A0,0,X11. *[@@@@CTS@#'@ @@@@ LMJ X11,IS )@@G@@SDFI. *[@@@@CTS@^^@^@@@@ J $+4.*[@@@@CTS@^I@^@@@@ IT )@@G@@ J $+5.*[@@@@CTS@^S@A@@@@ LX X11,X11SAV. IU )@@G@@*[@@@@CTS@^+@ @@@@ J 4,X11. *[@@@@CTS@^?@A@@@@ IV )@@G@@ LX X11,X11SAV. *[@@@@CTS@^6@ @@@@ J 1,X1IW )@@G@@1. *[@@@@CTS@ @@A@@@@ LX X11,X11SAV. *[@@@@CTS@ EIX )@@G@@@ @@@@ J 2,X11. *[@@@@CTS@ O@]@@@@ISDFIC*. *[@@@@IY )@@G@@CTS@ Y@A@@@@ SX X11,X11SAV. *[@@@@CTS@ *@ @@@@ IZ )@@G@@ LMJ X11,SDFIC.*[@@@@CTS@ 2@A@@@@ LX X11,X11SAVJA )@@G@@. *[@@@@CTS@ /@ @@@@ J 2,X11. *[@@@@CTS@AA@[@@@@JB )@@G@@$(0). *[@@@@CTS@AK@#@@@@X11SAV +0. *[@@@@CTS@AU@#@@@@ ENJC )@@G@@D. _@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@B@@@@ SUBROUTINE HEAD3 ( ABNFLG,MACFLG ) JE )@@G@@*[@@@@CTS@[,@ @@@@ IMPLICIT INTEGER (A-Z) *[@@@@CTS@[8@ @@@@ JF )@@G@@DIMENSION HD(102),PT(55)*[@@@@CTS@]]@[@@@@C *[@@@@CTS@]G@]@@@@C LINJG )@@G@@E 1 *[@@@@CTS@]Q@^@@@@ DATA PT(1)/ 1 / *[@@@@CTS@])@ @@@@ JH )@@G@@DATA HD(1)/ 'DO&' / *[@@@@CTS@]%@^@@@@ DATA PT(2)/ 2 / *[@@@@JI )@@G@@CTS@]4@D@@@@ DATA (HD(I),I=2,5)/ 'GO TO (UNCONDITIONAL)&' / *[@@@@JJ )@@G@@CTS@]"@^@@@@ DATA PT(3)/ 6 / *[@@@@CTS@#C@A@@@@ DATA HD(6) JK )@@G@@ / 'CALL&' / *[@@@@CTS@#M@^@@@@ DATA PT(4)/ 7 / *[@@@@CTS@#WJL )@@G@@@D@@@@ DATA (HD(I),I=7,10)/ 'RETURN (NON-STANDARD)&' / *[@@@@CTS@#&JM )@@G@@@^@@@@ DATA PT(5)/ 11 / *[@@@@CTS@#0@D@@@@ DATA (HD(I),I=11,1JN )@@G@@3)/ 'INPUT STOP&' / *[@@@@CTS@#'@[@@@@C *[@@@@CTS@^^@]@@@@JO )@@G@@C LINE 2 *[@@@@CTS@^I@^@@@@ DATA PT(6)/ 14 / *[@@@@CTS@^S@C@@@@JP )@@G@@ DATA (HD(I),I=14,16)/ 'IF (LOGICAL)&' / *[@@@@CTS@^+@^@@@@ JQ )@@G@@DATA PT(7)/ 17 / *[@@@@CTS@^?@D@@@@ DATA (HD(I),I=17,20)/ 'GO TO (JR )@@G@@ARITHMETIC)&' / *[@@@@CTS@^6@^@@@@ DATA PT(8)/ 21 / *[@@@@CTS@ @JS )@@G@@@D@@@@ DATA (HD(I),I=21,24)/ 'FUNCTION REFERENCE&' / *[@@@@CTS@ EJT )@@G@@@^@@@@ DATA PT(9)/ 25 / *[@@@@CTS@ O@B@@@@ DATA (HD(I),I=25,2JU )@@G@@6)/ 'ASSIGN&' / *[@@@@CTS@ Y@^@@@@ DATA PT(10)/ 27 / *[@@@@CTS@ *JV )@@G@@@B@@@@ DATA (HD(I),I=27,28)/ 'OUTPUT&' / *[@@@@CTS@ 2@[@@@@C JW )@@G@@*[@@@@CTS@ /@]@@@@C LINE 3 *[@@@@CTS@AA@^@@@@ DATA PT(11)/ 29 / JX )@@G@@*[@@@@CTS@AK@C@@@@ DATA (HD(I),I=29,31)/ 'IF (ARITHMETIC)&' /*[@@@@JY )@@G@@CTS@AU@^@@@@ DATA PT(12)/ 32 / *[@@@@CTS@A=@D@@@@ DATA (HD(I),JZ )@@G@@I=32,35)/ 'GO TO (CONDITIONAL)&' / *[@@@@CTS@A,@^@@@@ DATA PT(13)/KA )@@G@@ 36 / *[@@@@CTS@A8@D@@@@ DATA (HD(I),I=36,38)/ 'RETURN (STANDARD)&'KB )@@G@@ / *[@@@@CTS@B]@^@@@@ DATA PT(14)/ 39 / *[@@@@CTS@BG@A@@@@ KC )@@G@@DATA HD(39) / 'TAPES&' / *[@@@@CTS@BQ@^@@@@ DATA PT(15)/ 40 / KD )@@G@@*[@@@@CTS@B)@D@@@@ DATA (HD(I),I=40,43)/ 'INTERNAL SUBPROGRAM&' / KE )@@G@@*[@@@@CTS@B%@[@@@@C *[@@@@CTS@B4@]@@@@C LINE 4 *[@@@@CTS@B"@^@@@@KF )@@G@@ DATA PT(16)/ 44 / *[@@@@CTS@CC@F@@@@ DATA (HD(I),I=44,49)/ 'NKG )@@G@@ON-STANDARD FORTRAN STATEMENTS.&' / *[@@@@CTS@CM@C@@@@ DATA PT(17),KH )@@G@@PT(18),PT(19),PT(20)/ 4*0 / *[@@@@CTS@CW@[@@@@C *[@@@@CTS@C&@]@@@@KI )@@G@@C LINE 5 *[@@@@CTS@C0@^@@@@ DATA PT(21)/ 50 / *[@@@@CTS@C'@B@@@@KJ )@@G@@ DATA (HD(I),I=50,51)/ 'ACCEPT&' / *[@@@@CTS@D^@^@@@@ DATA PKK )@@G@@T(22)/ 52 / *[@@@@CTS@DI@B@@@@ DATA (HD(I),I=52,53)/ 'DISPLAY&' / KL )@@G@@*[@@@@CTS@DS@^@@@@ DATA PT(23)/ 54 / *[@@@@CTS@D+@B@@@@ DATA (KM )@@G@@HD(I),I=54,55)/ 'ERPRINT&' / *[@@@@CTS@D?@^@@@@ DATA PT(24)/ 56 / KN )@@G@@*[@@@@CTS@D6@B@@@@ DATA (HD(I),I=56,57)/ 'REPEAT&' / *[@@@@CTS@E@KO )@@G@@@^@@@@ DATA PT(25)/ 58 / *[@@@@CTS@EE@B@@@@ DATA (HD(I),I=58,5KP )@@G@@9)/ 'REPLACE&' / *[@@@@CTS@EO@[@@@@C *[@@@@CTS@EY@]@@@@C LINE 6 KQ )@@G@@*[@@@@CTS@E*@^@@@@ DATA PT(26)/ 60 / *[@@@@CTS@E2@B@@@@ DATA (KR )@@G@@HD(I),I=60,61)/ 'GENERATE&' / *[@@@@CTS@E/@^@@@@ DATA PT(27)/ 62 / KS )@@G@@*[@@@@CTS@FA@B@@@@ DATA (HD(I),I=62,63)/ 'REGISTER&' / *[@@@@CTS@FKKT )@@G@@@^@@@@ DATA PT(28)/ 64 / *[@@@@CTS@FU@B@@@@ DATA (HD(I),I=64,6KU )@@G@@5)/ 'ARGUMENT&' / *[@@@@CTS@F=@^@@@@ DATA PT(29)/ 66 / *[@@@@CTS@F,KV )@@G@@@D@@@@ DATA (HD(I),I=66,68)/ 'ALTERNATE PRINTER&' / *[@@@@CTS@F8KW )@@G@@@^@@@@ DATA PT(30)/ 69 / *[@@@@CTS@G]@B@@@@ DATA (HD(I),I=69,7KX )@@G@@0)/ 'MONITOR&' / *[@@@@CTS@GG@[@@@@C *[@@@@CTS@GQ@]@@@@C LINE 7 KY )@@G@@*[@@@@CTS@G)@^@@@@ DATA PT(31)/ 71 / *[@@@@CTS@G%@C@@@@ DATA (KZ )@@G@@HD(I),I=71,73)/ 'ASM$INTERFACE&' / *[@@@@CTS@G4@C@@@@ DATA PT(32),LA )@@G@@PT(33),PT(34),PT(35)/ 4*0 / *[@@@@CTS@G"@[@@@@C *[@@@@CTS@HC@]@@@@LB )@@G@@C LINE 8 *[@@@@CTS@HM@^@@@@ DATA PT(36)/ 74 / *[@@@@CTS@HW@E@@@@LC )@@G@@ DATA (HD(I),I=74,77)/ 'MACROS LISTED BELOW. (NO' / *[@@@@CTS@H&LD )@@G@@@ @@@@ DATA (HD(I),I=78,86)/ *[@@@@CTS@H0@E@@@@ * ' VARIABLESLE )@@G@@ OR STATEMENT NOS. WILL BE GENERATED.)&' /*[@@@@CTS@H'@C@@@@ DATA PLF )@@G@@T(37),PT(38),PT(39),PT(40)/ 4*0 / *[@@@@CTS@I^@[@@@@C *[@@@@CTS@IILG )@@G@@@]@@@@C LINE 9 *[@@@@CTS@IS@^@@@@ DATA PT(41)/ 87 / *[@@@@CTS@I+LH )@@G@@@A@@@@ DATA HD(87) / 'ABORT&' / *[@@@@CTS@I?@^@@@@ DATA PLI )@@G@@T(42)/ 88 / *[@@@@CTS@I6@B@@@@ DATA (HD(I),I=88,89)/ 'BUFFER&' / LJ )@@G@@*[@@@@CTS@J@@^@@@@ DATA PT(43)/ 90 / *[@@@@CTS@JE@A@@@@ DATA HLK )@@G@@D(90) / 'FILE&' / *[@@@@CTS@JO@^@@@@ DATA PT(44)/ 91 / *[@@@@LL )@@G@@CTS@JY@B@@@@ DATA (HD(I),I=91,92)/ 'IDENTIFY&' / *[@@@@CTS@J*@^@@@@LM )@@G@@ DATA PT(45)/ 93 / *[@@@@CTS@J2@A@@@@ DATA HD(93) / 'JUMP&LN )@@G@@' / *[@@@@CTS@J/@[@@@@C *[@@@@CTS@KA@]@@@@C LINE 10 *[@@@@CTS@KKLO )@@G@@@^@@@@ DATA PT(46)/ 94 / *[@@@@CTS@KU@B@@@@ DATA (HD(I),I=94,9LP )@@G@@5)/ 'LABELS&' / *[@@@@CTS@K=@^@@@@ DATA PT(47)/ 96 / *[@@@@CTS@K,LQ )@@G@@@A@@@@ DATA HD(96) / 'NAME&' / *[@@@@CTS@K8@^@@@@ DATA PLR )@@G@@T(48)/ 97 / *[@@@@CTS@L]@A@@@@ DATA HD(97) / 'NEXT&' / *[@@@@LS )@@G@@CTS@LG@^@@@@ DATA PT(49)/ 98 / *[@@@@CTS@LQ@A@@@@ DATA HD(98) LT )@@G@@ / 'READ&' / *[@@@@CTS@L)@^@@@@ DATA PT(50)/ 99 / *[@@@@CTS@L%LU )@@G@@@A@@@@ DATA HD(99) / 'SCAN&' / *[@@@@CTS@L4@[@@@@C *[@@@@LV )@@G@@CTS@L"@]@@@@C LINE 11 *[@@@@CTS@MC@^@@@@ DATA PT(51)/ 100 /*[@@@@LW )@@G@@CTS@MM@B@@@@ DATA (HD(I),I=100,101)/ 'UNIQUE&' / *[@@@@CTS@MW@^@@@@LX )@@G@@ DATA PT(52)/ 102 /*[@@@@CTS@M&@A@@@@ DATA HD(102) / 'WRITELY )@@G@@&' / *[@@@@CTS@M0@B@@@@ DATA PT(53),PT(54),PT(55)/ 3*0 / *[@@@@LZ )@@G@@CTS@M'@[@@@@C *[@@@@CTS@N^@[@@@@C *[@@@@CTS@NI@A@@@@ CALL OMA )@@G@@PAP ( 63,-1,' & ' ) *[@@@@CTS@NS@E@@@@ CALL OPAP ( 1,45,'T R A MB )@@G@@N S F E R T A B L E&' ) *[@@@@CTS@N+@^@@@@ CALL OPAP ( 1,6, MC )@@G@@*[@@@@CTS@N?@G@@@@ 1 'ONLY THOSE ENTRIES WHICH ARE REFERENCED ARE PRMD )@@G@@INTED OUT. THE CO*[@@@@CTS@N6@ @@@@ 2MPLETE LIST FOLLOWS&' ) *[@@@@ME )@@G@@CTS@O@@]@@@@ MAX=15*[@@@@CTS@OE@ @@@@ IF ( ABNFLG.GT.0 )MAX=35MF )@@G@@*[@@@@CTS@OO@ @@@@ IF ( MACFLG.GT.0 )MAX=55*[@@@@CTS@OY@^@@@@ MG )@@G@@DO 33 K=1,MAX *[@@@@CTS@O*@^@@@@ IX=MOD( K,5 ) *[@@@@CTS@O2MH )@@G@@@#@@@@ IPT=PT(K) *[@@@@CTS@O/@ @@@@ IF ( IPT ) 22,22,11 MI )@@G@@*[@@@@CTS@PA@ @@@@ 11 IF ( IX.EQ.1 ) GO TO 44*[@@@@CTS@PK@#@@@@12 MJ )@@G@@CONTINUE *[@@@@CTS@PU@ @@@@ IF ( IX.EQ.2 )IC=28 *[@@@@CTS@P=MK )@@G@@@ @@@@ IF ( IX.EQ.3 )IC=52 *[@@@@CTS@P,@ @@@@ IF ( IX.EQ.4ML )@@G@@ )IC=75 *[@@@@CTS@P8@ @@@@ IF ( IX.EQ.0 )IC=98 *[@@@@CTS@Q]MM )@@G@@@ @@@@ CALL OPA ( IC,HD(IPT) ) *[@@@@CTS@QG@B@@@@ 22 IF ( IX.EQ.0MN )@@G@@ )CALL OPRINT ( 1 ) *[@@@@CTS@QQ@#@@@@ 33 CONTINUE *[@@@@CTS@Q)MO )@@G@@@A@@@@ CALL OPAP ( 2,-2,' & ' ) *[@@@@CTS@Q%@]@@@@ RETURNMP )@@G@@*[@@@@CTS@Q4@]@@@@44 IC=6 *[@@@@CTS@Q"@ @@@@ CALL OPA (-1,' & MQ )@@G@@ ') *[@@@@CTS@RC@#@@@@ GO TO 12 *[@@@@CTS@RM@]@@@@ END MR )@@G@@_@@@@@'^@[UNC@@B""'=@@@IC^K@<0/K@@C^K@<6MS )@@G@@/K@@H@@@9(I)@@C(X@@@C!H@@@9(I)@@C1X@@@C5H@@@AD@@@@MX )@@G@@)@%[U@@@@@@@/KF@@ [OFK@# @FK@#COFK@@[4FK@]C*FK@@[@FK@[CCFK@@/KF@@#[CFK@[MY )@@G@@C@FK@@AE@@@@)@5[E[#@@K0@^G@@@@@@@@@@C@W)@@[?K@@@C@W)@@[0K@@@C@W)@@[4K@@@MZ )@@G@@C@W)@@&;@@@[C@F@@@AF@@@@)@"[F#@@K0@^G@^G@@K0@@@@C[K@@D/KF@@#[@:K@[C@)@@@NA )@@G@@[)K@@@C@W)@@[=K@@@C@W)@@[*K@@@AG@@@@)[B[N#@@@^@K0@@@@@C@W)@@[4K@@@C@W)@@NB )@@G@@/KJ@[IS8)@@]H@:K@]C8)@@A&;@@@[C@F@@@[[K@@@AH@@@@)[L[F#@@K0@^G@[#@@K0@@@@NC )@@G@@[)K@@@C@W)@@[=K@@@C@W)@@[*K@@@C@W)@@[?K@@@C@W)@@[0K@@@AI@@@@)[U[N#@@[#@@ND )@@G@@@@@@@@/KF@@#[@FK@[C^FK@@/KF@@#[@VK@[+@@@@EC@FK@@/KF@@^[[FK@[C[@@@@AJ@@@@NE )@@G@@)[=[F]@[#@@K^G@^@K0@@@@@G8@@@[C@@@@[/KF@@][@@@[=C@@@@F[^@@[\C@F@@@ @@@@[NF )@@G@@'=@@@@AK@@@@)[![F#@@^G@^C@OC@^G@^@@@/KF@@[[@@@[=C@@@@C'=@@@@'=@@@@R#@@@GNG )@@G@@/K@@@@?8@@@2[@@@@[AL@@@@)[6[V@^@@@@@C[X)@@[1Y@@@C[X)@@[5Y@@@C[X)@@&;K@@[NH )@@G@@9?V@@@/KF@@]AB@@[6C@F@@@/K@@[2AM@@@@)][[U@@@K@@@/K@@[/O;)@@[/KF@@#%@:@@[NI )@@G@@[-Y@@@C[X)@@[>Y@@@C[X)@@[(Y@@@C[X)@@[!Y@@@AN@@@@)]G[M@@@@@@@@@@@@@/KFK@[NJ )@@G@@/KFK@],@FK@@R;K@@ZR;@@@ /KFK@[/KFK@],@FK@@R;K@@9R;@@@\AO@@@@)@@[S@@^C@@@NK )@@G@@@@____ '=@@@@RTED UN ABORS - RY ERROOO MAN**** T@@@@@@@@@@@@AP@@@@NL )@@G@@)@F@L#@^*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[A@@]NM )@@G@@/K@@[:AQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@]@@E@@L@[I@@@@@@@@H@@@@]QERR$ NO )@@G@@PRINT$ UPA8 @@[@@@@@@@@@UPB8 @@[@@@@@@@@ UPC8 NP )@@G@@@@[@@@@@@@@MUPD8 @@[@@@@@@@@%UPE8 @@[@@@@@@@@!UPF8 NQ )@@G@@@@[@@@@@@@@5UPG8 @@[@@@@@@@[AUPI8 @@[@@@@@@@[XUPJ8 NR )@@G@@@@[@@@@@@@[-ERROR8 @@[@@@@@@@[=ERSET8 @@[@@@@@@@[>ERRST8 NS )@@G@@@@[@@@@@@@[3OFEXT8 @@[@@@@@@@[6OFRTN8 @@[@@@@@@@[7PACK12 NT )@@G@@@@[@@@@@@@['CHKNUM @@[@@@@@@@]GCHKLET @@[@@@@@@@]L8^@@12C^KB10NU )@@G@@GCKB10[^KB10C^K@1X/K@@1Q)@@[U@K0[#@@[@]@@@[@[@@[[@-@@@C@)@@X[@^@@[[@^@@@NV )@@G@@C@@@@WR9FK@#R8;K@AR8:K@ R8VK@^AA@@@F)@F[U@@@K@@@/E@@@RD]FK@][[)@@@G[:K@]NW )@@G@@C.)@@[[1@@@@C.@@@^ @@@@@[@#@@[[@#@@@[@]@@[AB@@@F)@Q@<@K)ES G0@@@@@)@M@)@NX )@@G@@@@@@@@. IMAG ERRORL CARDCONTRO@@@@@@@@@@@Y/,0@@@/A@@@1AC@@@F)@Q@K@)@U@3#NY )@@G@@[]@()O0K0K0@@@@@@@D@@@@!@[O@@%@@@@@M@@@@@Z/,0@@@@[N@@%______E=& AD@@@FNZ )@@G@@)@)[F@K^CM&@O0K0K+ES@@@@@@@@@+/,0@@@@[Q@@%@@@@@-@@@@@@@@@@@)/,0@@@/@@@@$OA )@@G@@/C@@@$AE@@@F)@S@K@)@(@3#[]G()O0ESCS@@@@@@@@[S@@%@@@@@S@@@@@Y@@@@@+/,0@@@OB )@@G@@@[R@@%______ & AF@@@F)@\[F]L#[#[#[#[#[#@@@@@@C_)@@[G/@__"C@@@@! @@@@JOC )@@G@@ @@@@I @@@@H @@@@G@[T@@%/,0@@@AG@@@F)@8@;#@K0^G^[@@@@@)@U@K@______ OD )@@G@@/^@@[S/C@@@_H@@@@KC/@@@[[#)@@K[@@@[JR[K@@?AH@@@F)@_[F]O()O0ES G]&]A]A@@@OE )@@G@@C/@@@[ @@@@L@[<@@%@@@@@>@@@@@=@@@@@@@@@@@<@@@@@U/,0@@@AI@@@F)[C[U@[#[@@@OF )@@G@@+@@@@I @@@@I*@@@@K/D@@[MH[@@@KC.@@@[C/)@@[ @@@@G*@@@@IG/)__]C@>@@@AJ@@@FOG )@@G@@)[N[N@^G^[@[@K0K@@/C@@[YD@@@@G/^@@[:G/@__RC@ @@@/^@@]"/C@@[SH@@@@KC/@@@[OH )@@G@@/=K@]"AK@@@F)[X[N@^G[#[@K^D+&@@@@@@@@@@@@@/,0@@@/@)@]"/C)@]"D@)@@L[)@@@@OI )@@G@@[@@@@GC/@@@[/^@@@RAL@@@F)[$[M()-)C@C]A]@)@/^@@@R/C@@[1D@@@@H/^@@]CG/@__]OJ )@@G@@C@ @@@/K@@@_[4@@@@C@@@@L@[1@@%AM@@@F)[1[MK0K0K@^G@@@@@1@@@@K*@@@@KD[@@@GOK )@@G@@C/)@@[ @@@@G*@@@@I/C)@[7D@)@@L[@@@@HC/@@@[AN@@@F)[;[E^[#[@K^D+&@@@@@@@@@OL )@@G@@@@@@@@@@@@@@/,0@@@/@@@@_/C@@@_D@@@@L/=K@@R+@@@@I @@@@IAO@@@F)]^[M()-)C@COM )@@G@@]A]@)@/^@@@R/C@@]ID@@@@I/^@@]XG/@__#C@ @@@/K@@@_[0@@@@C@@@@L@[.@@%AP@@@FON )@@G@@)]I[EK0K0K^[]S() G@@@@@@@]B@@%@@@@@@@@@@@@/,0@@@/@@@@R/C@@@RD@@@@L[@@@@IOO )@@G@@C/@@@[AQ@@@F)]R[N#@K0K^[@[@K0@D@@@@J/^@@]5G/@__LC@ @@@/K@@@_/^)@]1/C)@]WOP )@@G@@D@)@@J[?@@@@C@@@@LAR@@@F)]-[F@K[#[#[@K^G^@@@@@@@/C)@@RD@)@@L/@)@]K/C)@]KOQ )@@G@@D@)@@I[@@@@JC/@@@[/^@@@R/C@@]@3]CO0 GTN@-)K@)@V@K@@@@@@@______QH )@@G@@TPF$& /K@@[1@[.@[&@@@@@J@@@@@L@@@@@L/,0@@@AN@@@F)[:[#]AO0 G]A@K0CS^G@@@@QI )@@G@@@@@@@@G@@@@JC@@@@L[@@@@JC/@@@^@[_@[&@@@@@V@@@@@L/,0@@@AO@@@F)@X@K@)[3@3#QJ )@@G@@@-#ES]&[#@-)@@@@@@R@K@[S@]]@[&@@@@@X@@@@@L/,0@@@[@@@@L______. . & AP@@@FQK )@@G@@)[9[EKOG]@- ES]&@()K0@@@@]D@[&@@@@@M@@@@[T@@@@@]/,0@@@8N0@['[@[)@#C@[@M2QL )@@G@@N_0@@^AQ@@@F)]][F#@)]A[#@-)K0C]@@@@@/^@@^-/C@@]FH@@@@HC@@@@F[@@@@HG@@@@HQM )@@G@@C/@@@[/K@@]B @@@@NAR@@@F)]F[N#@-=K0]@]A@@@1@@@@I*@@@@IH@)@@OC/)@@XC/@@@[QN )@@G@@/@@@]^G/@__L[@@@@OC@]@@WR@)@@HAS@@@F)]P[M^G@@C]A@@@@@@C@@@@O/=K@];)@@@@IQO )@@G@@ @@@@I1@@@@K*@@@@KG.@__6C[@@@OC/)@@[ @@@@GAT@@@F)]Z[EK0CS[@K$C]@)@@@@@@@QP )@@G@@/K@@#P/K@@]^/K@@]^'^@@@@/C,@]=?8)@@QC@)@@O[@@@@OG/@__7AU@@@F)]*[F@K^[@K^QQ )@@G@@[@K^@@@@@@@@/K@@];/K@@^T/K@@^^/K@@^W/K@@];/K@@];/K@@#V/K@@#S/K@@];AV@@@FQR )@@G@@)]1[F@K^[@K^[@K^@@@@@@@@/K@@^Z/K@@];/K@@^Q/K@@^N/K@@^K/K@@^H/K@@];/K@@];QS )@@G@@/K@@^DAW@@@F)]'[F#@-)K2CS[#@-)^@@@@@/G)@#^G/)__"[@)@@NG@)@@NC/)@@[[4@@@PQT )@@G@@C@[@@WR@K@@H@]P@[&AX@@@F)##@<@K->G[NE@@@@@)@Z@)@@@@@@@ION(S)ID OPT INVALQU )@@G@@IGNORE@@@@@@@@@@[R/,0@@@/^)@#GAY@@@F)@<@K@)#B@3#@-#ES]&[#@@@@@@@@@C/@@@0QV )@@G@@@]V@[&@@@@@Z@@@@[U/,0@@@@]U@[&______.& AZ@@@F)#H[F#@-)K+CS]&@()K0C@@@QW )@@G@@C/@@@[/K@@]^@]W@[&@@@@[Q@@@@@P@@@@[*/,0@@@[@@@[*G@@@@NBA@@@F)#Q[N#A)]AH@QX )@@G@@[#@CS@G@@@@HC/@@@[[#)@@EN_0@@^C_)@@[/K@@]^[@@@@EC/@@@[/K@@]^[@@@@ABB@@@FQY )@@G@@)#)[N#@-)^G+A@@@@@ @@@@K1@@@@I*@@@@IH/)__6C.@@@[]@)@@OH@+@@WC/)@@0R@)@@HQZ )@@G@@[@@@@HBC@@@F)#%[MK0@]@-)K^@@@@/^@@^-/G@@#4H@@@@F/>K@]B)[@@@I @@@@I0@@@@MRA )@@G@@*@@@@MD[)@@OC/)@@[BD@@@F)#4[F#ACS^GS)CK2&@(>@@@@@@@@@@@@@@[R/,0@@@8N0@#XRB )@@G@@G_)@@[[@@@@^G@@@@OT/@@@EC@@@@^BE@@@F)@>@0@@@@@@@)#.@V#@-AES@@@@@[V/,0@@@RC )@@G@@@],@[&______& LARGE.. TOO ON. NOI OPTIBF@@@F)^@[E()ES^G]@CS4C'A[@@@@RD )@@G@@/K@@]^@]2@[&/,0@@@[@@@@IC/@@@[/K@@ 3@]\@[&@@@@@>@@@@[QBG@@@F)^D[EK1*S4@KRE )@@G@@1*@-<@@@@@@@[@@@@DC/@@@[/K@@]^[@@@@CC/@@@[/K@@]^[@@@@HG@@@@HC/@@@[BH@@@FRF )@@G@@)^M[N@^GU@CS4@KO@@/K@@]^[@@@@]C/@@@[/K@@]^[@@@@BC/@@@[/K@@]^[@@@@OC/@@@[RG )@@G@@/K@@]^BI@@@F)^W[EK1*]AH@K0C]@-C@@@@@/,0@@@/@@@^$/C@@^$D@@@@N/K@@]^ @@@@GRH )@@G@@/K@@]^[@@@@NC/@@@[BJ@@@F)^>@E()@@@@@)@:@S@)^&@V#@-DES@@@@@@@@@@@@:/,0@@@RI )@@G@@@# @[&______ I$I$I$@@@@[WBK@@@F)^(@N@ES@@@@)@,@S@)^:@V#@-EES@@@@@@,RJ )@@G@@/,0@@@@#A@[&______ I$I$I$@@@@@M/K@@^'BL@@@F)^,[E(@@)@3@S@@@@@@@N FILE ASSIGCANNOT@@@@@@@@@@[R/,0@@@@#D@[&RN )@@G@@@@@@@1BO@@@F)@6@S@) ]@:#@-#ES]&[#@@@@@@@@@@#F@[&@@@@@3@@@@[U/,0@@@@#E@[&RO )@@G@@______US=& . STATBP@@@F) B@;]QO0 G[N@O0CS^@@@@@)@9@C@ & /K@@ 3@#G@[&RP )@@G@@@@@@[)@@@@@M@@@@[Z@@@@[W/,0@@@BQ@@@F)@'@C@) I@;]GO0 G[N@-)K->G@@@@@@@@[RRQ )@@G@@/,0@@@@#I@[&@@@@@9@@@@[R@@@@[Y/,0@@@______BR@@@F) P@%(>K0CS[@@@@@@)@;@S@RR )@@G@@@@@@@@ELEMEN FIND CANNOT/@@@ -G/@__.C@@@@M@#J@[&@@@@@@BS@@@F)@"@S@) U@3@RS )@@G@@K< G[N@O0CS@@#N@[&@@@@@;@@@@[U@@@@[W/,0@@@/C@@ ,______ILE.& T IN FBT@@@FRT )@@G@@) )@N@K0@@@@)[[@*@@@@@@@@@@@*@@@@@@@______& TATUS=ROR. SI/O ERC=@@@MRU )@@G@@/K@@ 3BU@@@F) +[##@-#ES]&[#@-GES]&@@@@@@@@@@@@[-@@@@[V/,0@@@@#Q@[&@@@@[[RV )@@G@@@@@@[U/,0@@@[@@@@QBV@@@F) %@+()ES^G]@@@@@@)[A@)@@@@@@@D OR ODEFINEM NOT RW )@@G@@PROGRA/K@@ 3@#R@[&@@@@[O@@@@@QBW@@@F)[E@S@) ,@:]GO0 G[N@-)@@@@@@@@@#T@[&RX )@@G@@@@@@[A@@@@[U@@@@[V/,0@@@______W.& VERFLOBX@@@F)[H@*@@@@@@@) 3@V]AO0 G@RY )@@G@@@@@@@@@@@@[H@@@@[R/,0@@@______=& IMAGEL CARDCONTROBY@@@F) 6@3#@-HES]RZ )@@G@@&@(=ES@@@@@@)[M@K@______ & @@@@[<@@@@@@@@@@[+@@@@[V/,0@@@@#U@[&BZ@@@FSA )@@G@@) /[F#@-AES]&@()K0]@)@@@/K@@AHN@0@A C8)@@#@#W@[&@@@@[M@@@@[R@@@@[W/,0@@@SB )@@G@@@#V@[&CA@@@F)A [F#@C]@-)K^[#@-)@@@@@!^)@[=@#Z@[&/K@@ALN@0@AG@#Y@[&/K@@AHSC )@@G@@N@0@ADC8)@@]@#X@[&CB@@@F)AI[F]YCS^G]A[#@-)K0CS@@N#0@[\R@)@[,R@K@[!9\)@[:SD )@@G@@9!)@[(R]0@[$[^)@[=H8)@@[/K@@@@CC@@@F)AR@F#@@@@@@)[=@)@@@@@@@)AS@N#@-K@@@SE )@@G@@/K@@@@/K@K[=@#Z@@]CTCDIT@@@@@@@@F@@@*4@K[=CD@@@F)AU[EK0CS^G]A[#@-)K0C@@@SF )@@G@@/K@@@@^#0@[\A@)@[,A@K@[!9:)@[:9()@[([^@@[=AA0@[$C8@@@^CE@@@F)[O[S@@@@@@@SG )@@G@@@@@@@_@@@@B@@@@@@]@@@@@#@@@@@O@@@@@B@@[@@[_____"@@@@@[@@@@@@@@@@@ CF@@@FSH )@@G@@)[Z@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[]@@@@@P@@@@@$@@@@@HSI )@@G@@@@@@@0CG@@@F@@@@@@A)]AH@[#@CS@G@@@@HC/@@@[[#)@@EN_0@@^C_)@@[/K@@]^[@@@@ESJ )@@G@@C/@@@[/K@@]^[@@@@ABB@@@F@@^@@A@@E@@L@@?@@[@@0@@^@@ @[0@C@@A<@@@@ND@@@@ SK )@@G@@@@@@J*@@@@[(UPC8 MOVER CHKCC OPA OPAF SL )@@G@@CSF OPAP ASGTCT OPRINT CHKASG RDS1 SM )@@G@@OPOP OPIP OPAFP NERR2$ NERR4$ NERR3$ SN )@@G@@CTCDIT @@[@@@@@@@AU@@@@@@ ^@@@C@@]@@@@E8DCT ]@@@C@@#@@@@SO )@@G@@E8IPT ]@@@C@@^@@@@MSG ]@@@C@@ @@@@C/@@@[/K@@ 3@]\@[&@@@@@>SP )@@G@@@@@@[QBG@@@F)^D[EK1*S4@K1*@-<@@@@@@@[@@@@DC/@@@[/K@@]^[@@@@CC/@@@[/K@@]^SQ )@@G@@[@@@@HG@@@@HC/@@@[BH@@@F)@][S@@@@@@@@@@H@@@@@G@@@@@F@@@@@E@@@@@D@@@@@C@@SR )@@G@@@@@B@@@@@A@@NL@@@@@@@@@[NMLT AA@@@F)@H[S@@@@@@@@@@Z@@@@@Y@@@@@X@@@@@W@@SS )@@G@@@@@V@@@@@U@@@@@T@@@@@S@@@@@O@@@@@J@@@@@I@@AB@@@F)@S[S@@@@@@@IN DP ST )@@G@@CP LG EX AB DM EQ RL CM DA AC@@@F)@<[K@@@@@@@SU )@@G@@@@@@@@END LBCM @@@L@@FA SWVR SBRT FCTN DMVR PR AD@@@FSV )@@G@@)@Q@IC@@@@@@)@T@C@)@!@C@)@@@<]@K^G@@ @@@@@@]D@]6/K@@GG/,0@@@]@@@@@CM@@@@SW )@@G@@@@@@@[AE@@@F)@^[EK1[#@K0^G[#@K0^G@@@ @@@@3 @@@@2 @@@@1 @@@@0 @@@@\ @@@@,SX )@@G@@ @@@@@[@@@@ C/@@@[AF@@@F)@H@;#^K0^GP][K0^CD#@@@@)[5@C@ @]R@]6/,0@@@SY )@@G@@@]Q@]6/,0@@@ @@@@[ @@@@4 @@@@KAG@@@F)[6@C@)@O@3]#ES[N@ES1N@ES@@@@@@@@@@@SZ )@@G@@@@@@]W@@@@]V@@@@@@@@@@]U@@@@[5/,0@@@______AH@@@F)[7@)@@@@@@@)@U@<#@K-]&@TA )@@G@@O0@@@@@@@@]X@@@@[7/,0@@@@]S@]6______I$. . A I$I$@FREE,AI@@@F)@Y[]()CS]^ETB )@@G@@O1=[#@K0^G@@@@@@@@+@@@@![@@@@5@]U@]6/K@@@\@@@@@@/,0@@@@]T@]6@@@@@5AJ@@@FTC )@@G@@)@&[F@K^ #@K-=[@K^G@@@@@@]Y@]6/K@@@O/K@@@1/K@@@6/,0@@@[@@@@6C@@@@]/^K@@OTD )@@G@@/GK@@*AK@@@F)@\[E^G[[K^[#@K1^GK@@@@@G@@@@AC@@@@B@]-@]6/K@@U/N@0@@5[@@@@]TE )@@G@@C@@@@6[@@@@@C/@@@[AL@@@F)@8[F#^K1[@KO[#^K1OGK@@@C@)@@[[@@@@#C@@@@@/K@@[G@()CS]^IO0TH )@@G@@@@@@@@@@@@])/,0@@@@]:@]6@@@@]Z@@@@]V@@@@@C@@@@]U@@@@@%AO@@@F)[L@U(+*S]@@TI )@@G@@)[;@K@)[O@N]CES@@@@@@@@@@@@@])/,0@@@______& /K@@[<@]?@]6@@@@@#AP@@@FTJ )@@G@@)[Q[]()CS]^MO0]&CO0^G[]E@@@@@@/,0@@@@]\@]6@@@@]+@@@@@@@@@@]-/,0@@@@],@]6TK )@@G@@@@@@[;AQ@@@F)[Y@%() G@(+ G@()@)[.@K@@@@@@@@@@@@@______ &@]0@]6@@@@]+TL )@@G@@@@@@@]@@@@]<@@@@]VAR@@@F)[<[##^K^C?() G@()CS]AC@@@@@@@D@@@@G@]3@]6@@@@[.TM )@@G@@@@@@])@@@@]=/,0@@@/K@@[%*@@@@AAS@@@F)[:[F@K^C1@K0^[#@K0^G@@@ @@@@1 @@@@0TN )@@G@@ @@@@\/K@@[6@]5@]6/K@@[1/,0@@@/@@@[0/C@@[0AT@@@F)[4[F#@K^GL@[[KK@@@@@@@@TO )@@G@@;@@@@+[@@@@[G@@@@[[@@@@@C/@@@[/K@@]^(@@@@I/K@@#] @@@@2AU@@@F)[.[F#^YOGL[TP )@@G@@KO #^K1^@@@@/K@@]J(@@@@K @@@@J[[?@@]C[)@@@[[G@@@C[@@@[[@?J_"C@)@@@AV@@@FTQ )@@G@@)]A[F]HES]A@-)CS]@-+C]@@/K@@]O/K@@]V(@@@@O/@@@K1H@@@]>C@@@]G@#A@]6@@@@]GTR )@@G@@/,0@@@AW@@@F)]J[F]IES[N@K^G@K0^G[]J@/,0@@@[@@@@4G@@@@4C/@@@[@#G@]6/K@@GGTS )@@G@@@@@@]W@@@@]G/,0@@@AX@@@F)]S[E()C]A@-C G@() G@()@C/@@@[@#K@]6@@@@@8@@@@@7TT )@@G@@@@@@]G/,0@@@@#I@]6/K@@]7@@@@]GAY@@@F)]-[MK0@[#@@@@@@@@1@@@@K*@@@@KG.@__ZTU )@@G@@C[@@@8C/)@@[ @@@@G1@@@@I*@@@@IH@)@@8C/)@@ AZ@@@F)]:[M[#^@^@@@@@@@@C/@@@CTV )@@G@@/=0@]7+@)@@H @@@@I1@@@@K*@@@@KD[@@@KC/)@@[+@@@@I @@@@IBA@@@F)]5[N#@K[#^[TW )@@G@@#^[@@@/)K@#[+@@@@I @@@@I*@@@@AC/)@@[ @@@@G(@@@@NC/@@@[/^@@#]H@@@@8BB@@@FTX )@@G@@)]_[F@K0^[#^K^[#@K1O@@@@/C@@#GD@@@@[ @@@@9/@@@#A/C@@#AD@@@@K/K@@]^@#Q@]6TY )@@G@@/,0@*0BC@@@F)#C[F@K=O[#@K0^G[# K=+&@@@@@]G/,0@@@ @@@@@[@@@@'C@@@@4@#W@]6TZ )@@G@@/K@@^0/,0@@@/@@@#GBD@@@F)#L[E()CS]A@-)C]A@-)C]^&/,0@@@/@@@#ZH@@@]>C@@@]GUA )@@G@@/@@@#ZH@@@@%C@@@@;@#Z@]6@@@@@;BE@@@F)#U[]() G@() G[#@K1^[@@@@@@@@@/,0@*0UB )@@G@@/K@@#<*@@@@A@#=@]6@@@@@'@@@@@C@@@@@'@@@@@;BF@@@F)#+[F#@K1OGP@K>]&@)CS@@@UC )@@G@@C/@@[]@#$@]6@@@@#*@@@@]H/,0@@@^^K@#*N8L@@#R@K@@@@#&@]6BG@@@F)#:[F# K1OGLUD )@@G@@@K^C8() G[@@/K@@GG@@@@]W@@@@]G/,0@@@/^@@#6/C@@#0D@@@@K[@@@@@G@@@@@BH@@@FUE )@@G@@)#4[F#@K^C4()CS]A@-)C@@@C/@@@G/@@@K1H@@@]>C@@@]G@#,@]6@@@@]G/,0@@@/K@@^[UF )@@G@@@#?@]6BI@@@F)#.[F#@K0^GL@^G[#@K<2&@@@@@@]G/,0@@@[@@@@4G@@@@4C/@@@[/K@@^CUG )@@G@@(@@@@O[@@@@/G@@@@/BJ@@@F)^A[F@K0^D@() G@()CS@-)@H@@@@8C/@@@C@#6@]6@@@@@8UH )@@G@@@@@@@7@@@@]G/,0@@@@#5@]6/K@@^KBK@@@F)^J[N@^GK^GK^[@@@@/,0@*0/)K@^U+@@@@IUI )@@G@@ @@@@I*@@@@AC/)@@[ @@@@G(@@@@NC/@@@[/^@@^VBL@@@F)^T[N#@K@K0@[#@@@@H[@@@7UJ )@@G@@C.@@@0C/)@@[ @@@@G(@@@@IH@)@@7C/)@@ C/@@@[/K@@#!@#'@]6BM@@@F)^<[M[@^GP@KUK )@@G@@^DO()@@@@@]V/,0@@@/@@@^,/C@@^,H@@@@@C/@@O(/=K@#Z+@@@@I @@@@I(@@@@KBN@@@FUL )@@G@@)^![E()CM2A@-+*]@CS]AE@@C@@@@@[@@@@.C/@@@B/@@@#]/C@@#]D@@@@@@^[@]6/,0@@@UM )@@G@@@^@@]6BO@@@F)^6[EK^[# K0^G@@@@@@@@@@[@@@[JR/K@@[G/@__"C@@@@.[@@@@.C@@@@@UN )@@G@@/@@@^;/C@@^;G/@__8BP@@@F)^_[F#@K1L@K1L@^@@@@@@@@8N0@^_O/K@@[/@@@ DG/@__VUO )@@G@@C@[@@]/@@@ =G/@__QC@[@@]A@K@@"BQ@@@F) C[F@^G[#@K1OG@K0^GO@@@C@[@@]A@K@[@UP )@@G@@]@@@[JR@K@@_H@@@@@[@@@@_G@@@@"C/@@@[/K@@A^BR@@@F) L[F#@K>2&@)C]A@-G G[@@UQ )@@G@@/K@@ W@@@@[[/,0@@@@^Q@]6/K@@ R/K@@ W@@@@[[/,0@@@[@@@[[BS@@@F) U[F@K0[@K^UR )@@G@@G[# ^@@@@@@@/@@@A^G/@__LC@[@@]R@K@[@/K@@QZ8N0@ JO/K@@[@^R@]6/K@@ ZBT@@@FUS )@@G@@) <[F@K1L#@^G[#@K0^G@@@@H@)@[][@)@@"G@)@@"[@)@[#C/)@@[[@@@[]G/@__"C@@@@@UT )@@G@@/K@@QZBU@@@F) ?[F#@^G[# ^[#@^G@@@@@@[@@@[#G/@__"C@@@[#/^@@ 5G/@__ZC@[@@]UU )@@G@@A@K@[^]@)@[JR@K@@"BV@@@F) 5[F# ^@K0^G[#@K@@@@@@@O/K@@[/K@@A@(@@@[#[@@@[#UV )@@G@@G@@@[#C/@@@[/^@@ ;G/@__QC@[@@]BW@@@F) "[F@K^G[# ^[]TES]A@@@@@^\@]6@@@@[ UW )@@G@@/,0@@@/@@@QZG/@__VC@[@@#R@K@[^/K@@A^8N0@ ,BX@@@F)AB[EK0^[@K0[@K>M&@@@@@@UX )@@G@@@@@@]&/,0@@@/C@@AL*@@@@GC@@@[ /^@@TP/C@@AFH@@@[ C/@@@"BY@@@F)AK[F#@K0[@KUY )@@G@@*4[@K^@@@@@@/K@@C0/K@@B:/K@@CC/K@@B3'^@@@@/C,@AO?8)@@_C@)@[ @^5@]6BZ@@@FUZ )@@G@@)AT[F@K^[@K^[@K^@@@@@@@@/K@@F-/K@@F&/K@@F8/K@@E?/K@@E!/K@@E'/K@@DJ/K@@C5VA )@@G@@/K@@C=CA@@@F)A+[F@K^[@K^[@K^@@@@@@@@/K@@GO/K@@G /K@@G$/K@@GZ/K@@GR/K@@#]VB )@@G@@/K@@FW/K@@FP/K@@E;CB@@@F)A:[F@K^[@K^[@K^@@@@@@@@/K@@N,/K@@N1/K@@#]/K@@K"VC )@@G@@/K@@J4/K@@HT/K@@G,/K@@#]/K@@GGCC@@@F)A4[F@K^[@K^[@K^@@@@@@@@/K@@M /K@@L"VD )@@G@@/K@@L./K@@L2/K@@ON/K@@LS/K@@LF/K@@BO/K@@N4CD@@@F)A.[F@K^[@K^[@K^@@@@@@@@VE )@@G@@/K@@N./K@@NL/K@@NF/K@@NC/K@@M,/K@@M-/K@@MA/K@@MU/K@@MNCE@@@F)BA[F@K^[@K^VF )@@G@@[@K^@@@@@@@@/K@@R+/K@@RM/K@@RF/K@@R^/K@@Q./K@@NK/K@@NT/K@@N$/K@@N)CF@@@FVG )@@G@@)BJ[F@K^[@K0@K0^GO@@@@@@N8L@@]A@K@[AN_0@@AR/K@@^@^6@]6/K@@TK/K@@TF/K@@SVVH )@@G@@/K@@R1CG@@@F)BS[F@K>4[@K^G@K^GO@@@@@C@@@@@8N0@BQO/K@@[@^'@]6/K@@I5/K@@BYVI )@@G@@@@@@BU/,0@@@^^K@BUCH@@@F)B-[MK^[# ^[# ^[@@/K@@AI/@@@N'G/@__$C@@@@F/@@@N7VJ )@@G@@G/@__,C@@@@F/^@@I5/C@@B=G/@__6CI@@@F)B:[EK0^@() G@()CS]@@@@@C/@@@B/K@@#]VK )@@G@@@ @]6@@@@]U@@@@@X@@@@@D/,0@$^[@@@[BC/@@@DCJ@@@F)B4[F#@K&+&@O0^G[@ES]A@@VL )@@G@@C/@@@]@ D@]6@@@@@M/,0@W*@ C@]6@@@@@'@@@@]Z/,0@@@[@@@[BCK@@@F)B.[F#@K0^[@VM )@@G@@K]&@O0]&@O0@@@@@]U@@@@]U@@@@]U@@@@@ /K@@C-/K@@#]/,0@Y;[@@@[BG@@@[BCL@@@FVN )@@G@@)CA[F#@K[#@K&+&@O0^G[@@@/,0@Y;@ I@]6@@@@@'@@@@]$/,0@@@[@@@[BC/@@@D/K@@#]VO )@@G@@@ F@]6CM@@@F)CJ[#@K]&@O0]&@O0^G[#@@@@@@@@@R@K@[B@ J@]6@@@@]U@@@@]U@@@@]UVP )@@G@@@@@@@ /K@@#]/K@@#]CN@@@F)CR[F# ^@K0^G[# K^@@@@@@/^@@#]/G@@C)H@@@@@[@@@[BVQ )@@G@@G@@@[BC/@@@[/@@@#]G/@__QC@[@@]CO@@@F)C)[F@K>M&@-)]A@-H G@()@@@@@@'@@@@]+VR )@@G@@/,0@@@[@@@[BC/@@@E@ Q@]6@@@@]X/,0@@@/K@@CICP@@@F)C([##@K]&@O0]&@-)C]^4@@VS )@@G@@@@@@@@/,0@@@/K@@#]@ T@]6@@@@]&@@@@]U@@@@@G/,0@$^@ S@]6CQ@@@F)C1[E() G[#@VT )@@G@@K^D*() G[#@@C/@@@ @ X@]6@@@@@'@@@@](/,0@@@/K@@#]@ V@]6@@@@@'@@@@]*CR@@@FVU )@@G@@)C'[F#@K^[@ES[N@ES[N@K0@@ Z@]6@@@@]U@@@@@&@@@@]U@@@@@A/K@@#]/K@@#]/,0@Y;VV )@@G@@[@@@[BCS@@@F)D#[EK0^G@K0^@() G@()@@@@@@@]&@@@@]U@@@@@B/,0@$^[@)@@0C/)@@[VW )@@G@@[@@@[BG@@@[BC/@@@[CT@@@F)DG[F#@K0^@K0^G[#^K0^GO@C[[@@]R@K@[B[@)@ #C@)@@TVX )@@G@@[@@@[BC/@@@B/K@@#] @@@@0@ +@]6CU@@@F)DP[EK[#@K^[@ES[N@@@@@@@@@@@@T@@@@@DVY )@@G@@/K@@C-/K@@#]/,0@Y;[@@@[BG/@@@[/ @@E^G.@__#CV@@@F)DY[E() G[#@^G[#@K1@@@@@VZ )@@G@@R/K@@[G/)__"C@)@@Q[@@@[BG@@@[BC/@@@[@ %@]6@@@@]U@@@@@:CW@@@F)D$[EK0^GL#^WA )@@G@@K[@K1@@@@@@@G/@_;NC@@@@Q8N0@D*O/K@@[/@@@E@H@@@@PC@[@@QA@K@[C[@)@[JCX@@@FWB )@@G@@)D0@F@@@@@@@)[_[@@@@@@@@______& X=300.CKS.MAON BLOL COMMY LABETO MANWC )@@G@@/C@@D2CY@@@F)D1[#@K+2&@O0]&@-)CNUA@@@@@@@@@ 6@]6/,0@@@@ 5@]6@@@@[_@@@@])WD )@@G@@@@@@]&/,0@@@/^@@D'CZ@@@F)D9[F@^GL#^K0^GL#^K0^G@@G@@@@TC@@@[C[@-@@QC@)@@PWE )@@G@@R@K@[C[@@@@QG@@@@QC/@@@[/K@@@CDA@@@F)E][F#^K^@() GK()CS@-)@@G@@@[BC/@@@[WF )@@G@@@ "@]6@@@@]V@@@@ #@@@@@D/,0@$^/K@@E^[@@@ #DB@@@F)EF[F#@K1O[@K0^GOK@@@@@@WG )@@G@@C/@@@B/^@@ETG/@__#C@[@@]R@K@[B/@@@#]/C@@#]H@@@@@[@@@[BDC@@@F)EO[F#@^G[#@WH )@@G@@K[#@K1OG@@@@H@@@[BC@@@@@[@@@[DC/@@@C/K@@EV[@)@[BG@)@[BC/)@@[[@@@[DDD@@@FWI )@@G@@)EX[F#@K0[#@K1OGOK0^G@@@[@)@[DG@)@[DC/)@@[[@]@@]C@[)@]R@)@[D[@@@[JQ@K@[BWJ )@@G@@R@K@]%DE@@@F)E&[F@K1OG@K1O[@^G@@@@@@[@@@[BC/@@@C/K@@#]/K@@DJ[[@@@@G.@@@CWK )@@G@@H[@@[BC[@@@@8N0@E)DF@@@F)E\[F@K^G[#@K0^@K0^G@@@@C@)@@)[@@@[BC/@@@C/K@@G3WL )@@G@@[@@@[EC@@@@)@AM@]6/K@@E5/,0@V(DG@@@F)E8[F#@K^@K0^G[#@K]&@@@@@@@@@D/,0@$^WM )@@G@@[@)@[FC@)@@S[@@@[BC/@@@ /K@@#]/K@@E_[@)@[FDH@@@F)F[[E() G[#@^G[#@K1O[@@@WN )@@G@@/^@@#]/G@@FEH@@@@@[@@@[BG@@@[BC/@@@[@AV@]6@@@@]V@@@@[FDI@@@F)FE[F#@K1L@^WO )@@G@@G[#@K1O@@@@@/G@@FOH@@@@@[@@@[BG@@@[BC/@@@[/^@@F^G/@__#C@]@@]R@)@[BDJ@@@FWP )@@G@@)FN[F@K[#@K0^G@K0^@@@@@@/K@@QA[[@@[HC.@@@H[@)@[GC@)@@H[@@@[BC/@@@C/K@@E_WQ )@@G@@/^@@#]DK@@@F)FW[EK0[#@K[#@K0^G@@@@@@[@)@[FC@)@@W[@@@[BC/@@@E/K@@G3[@)@@1WR )@@G@@C/)@@[[@@@[BC/@@@BDL@@@F)F>[F@^G[]UES[N@ES]@O0@@@@@@@N/,0@W*@A0@]6@@@@@'WS )@@G@@@@@@]V/,0@@@[@@@[BC/@@@#/K@@E_DM@@@F)F,[F#@^G[#@K]&@O0]&@-)@@A4@]6@@@@]&WT )@@G@@@@@@]U@@@@@I/,0@$^[@@@@0[@@@@1C/@@@[@A1@]6DN@@@F)F7[F@^G[@K^G[#@K0^@@@@@WU )@@G@@/K@@G3[@@@[EC@@@@-@A7@]6/K@@G@/,0@V([@@@[BC/@@@K/K@@[1DO@@@F)G@[EK0^G[#@WV )@@G@@K[#@K0^G@@@@[@)@[GC@)@@J[@@@[BC/@@@C/K@@E_[@)@[FC@)@@-[@@@[BC/@@@KDP@@@FWW )@@G@@)GD[EK0^[#^K^[]WK0^D?@@@/,0@@@@B#@]6/,0@@@/^@@K1/C@@GJD@@@@K/K@@QA[[@@[HWX )@@G@@C.@@@IDQ@@@F)GM[F#@K[#@K[#@K]&@@@@@@@@@@@D/,0@$^[@@@[BC/@@@G/K@@C&[@@@[BWY )@@G@@C/@@@C/K@@@C@B^@]6DR@@@F)GV[E() G[#@K[#@K]&@O0@@@@@@@Y@@@@@D/,0@$^[@@@[BWZ )@@G@@C/@@@D/K@@#]@BD@]6@@@@]U@@@@@VDS@@@F)G=[E()CS]@CS]A@C]@@@@@@/G)@#]/@)@NPXA )@@G@@G/)__"C@)@[I[@@@[BC/@@@A/K@@#]@BG@]6@@@@]UDT@@@F)G![F@^G@K0^G[#@K0^D*@@@XB )@@G@@/,0@@@[@@@[FC@@@@> @@@[E[@)@[IC/)@@][@@@[BC/@@@D/K@@G5DU@@@F)G6[E() G[#@XC )@@G@@K^[@ES[N@ES@@@@@[F@@@@[E@@@@@ /K@@#]/K@@#]/,0@Y;@BQ@]6@@@@@'@@@@]*DV@@@FXD )@@G@@)G_[E()CS]A@-)CS*)]A@@@@G@@@[BC/@@@[/^@@HKG/@__#C@[@@]R@K@[B @@@@1@BR@]6XE )@@G@@@@@@]UDW@@@F)HC[F#@K1O[@K0^GOK@@@@@@C/@@@[/^@@HAG/@__#C@]@@]R@)@[B/^@@#]XF )@@G@@/G@@HGH@@@@@[@@@[BDX@@@F)HL[F#@K0^@() G@()CS]@@@C/@@@ /K@@[1@B-@]6@@@@]UXG )@@G@@@@@@@*@@@@@ /,0@$^[@@@[BG@@@[BDY@@@F)HU[F#@K0^GP#@^[]RES]@@@/K@@H2@@@@[[XH )@@G@@/,0@@@/@)@IPG/)__Q[@)@[[C@-@@]R@K@[B[@@@[BDZ@@@F)H<[F@K0^D)()C]@-)CNLN@@XI )@@G@@@@@@]:/,0@@@@B*@]6/K@@H2/K@@H%@@@@[[/,0@@@@B$@]6/K@@H>EA@@@F)H?[]()CS]@OXJ )@@G@@0^G[@K&+&@@@@@@@@@@@@@]?/,0@@@/K@@#]@B%@]6@@@@@P/,0@W*@B(@]6@@@@@'EB@@@FXK )@@G@@)H4[E()CS]@)C[N@ES[N@ES@@@@@]U@@@@@$@@@@]U@@@@@A/K@@C-/K@@#]/,0@Y;@B?@]6XL )@@G@@@@@@@'EC@@@F)H.[F#@K0^G[#@K1L@^G@@@@G@@@[BC/@@@[/^@@IBG/@__LC@[@@]R@K@#UXM )@@G@@A@)@#UR@)@[B@B!@]6ED@@@F)IA[F#@K0^G[#@K1L@^G@@@@G@@@[BC/@@@[/^@@IKG/@__QXN )@@G@@C@[@@]R@K@#UA@)@#UR@)@[B[@@@[BEE@@@F)IJ[F#@K^@()CS]@-H G@()@@@@@@'@@@@]-XO )@@G@@/,0@@@/K@@#]@B2@]6@@@@@O/K@@#]/,0@*^[@@@[BEF@@@F)IS[F#@K^@()CS@-)CS]A@@@XP )@@G@@R@)@[B[@@@[BG@@@[BC/@@@[@B5@]6@@@@@O/K@@I2/,0@*^@B4@]6EG@@@F)I-[F#@K0^GOXQ )@@G@@K[#@K0@@@@@@C/@@@[[@@@[BG@@@[BC/@@@[/^@@I(G/@__LC@[@@]R@K@#UA@)@#UEH@@@FXR )@@G@@)I%[##@K]&@O0]&@-)CS]@@@@@@@@@/K@@#] @@@@0@B'@]6@@@@]&@@@@]U@@@@@A/,0@$^XS )@@G@@[@@@@0EI@@@F)I2[F]PES]A@CS@-)C]A@@@@ @@@@0/K@@Q%[@)@@2C/)@@[[@@@[BC/@@@#XT )@@G@@@B.@]6@@@@]?/,0@@@EJ@@@F)I;[F#@^G[#@K0^GOK^@@@@@/^)@JX/C)@J^G/)__RC@+@@]XU )@@G@@R@)@[B[@@@[BG@@@[BC/@@@[ @@@@2EK@@@F)J^[F#@K1O[]SK^[@K0^G@@@R@)@[B@CA@]6XV )@@G@@/K@@JG/K@@JO@@@@JC/,0@@@^^K@JCN8L@@]R@K@[BEL@@@F)JH[F# K^DX@K^[#@K&+&@@@XW )@@G@@@@@@]X/,0@@@@CB@]6/K@@I//K@@JX@@@@JK/,0@@@^^K@JKN8M@@]EM@@@F)JQ[E()CS]@)XX )@@G@@ G[#@K^D*()@@@@@]&/,0@@@/K@@#]@CD@]6@@@@@Q/K@@#]/,0@*^@CC@]6@@@@@'EN@@@FXY )@@G@@)JZ[E()CS@-)CS%A@-)CS@@@[@)@[JQ@K@[BR@K@]%H@)@[BC@)@@@[@@@[JC/@@@[@CF@]6XZ )@@G@@@@@@@'EO@@@F)J*[F#@K1OGOK0^G[@K1OG@@H[@@[BC[@@@@8N0@J*[@)@[JG@)@[JC/)@@[YA )@@G@@[@]@@]C@[)@]R@)@[JEP@@@F)J1[EK1O@K0^G@K0@@@@@@@@C.@@@[[@)@@4G/)__"C@)@@4YB )@@G@@[@@@[BC/@@@C/K@@^3[[@@@@G.@@@[EQ@@@F)J'[F#^K0[#@^G[# K0^@@@@/C@@K^H@@@[AYC )@@G@@C@@@@@A@)@[A]@@@[JR@)@[BH/@@@H @@@@3[[@@@KER@@@F)K#[F@K1L@^[@^G@@@@@@@@@YD )@@G@@H@@@[AC/@@@H/K@@KM8N0@J_O/)@@[/@@@KEG/@__LC@]@@]/^@@KEES@@@F)KG[F#@K0[#@YE )@@G@@K1O[#@K1O@@@^^K@KQN8M@@]R@)@[B8N0@KJ[@[)@]C@@@@%[@@@[JQ@K@[AR@K@]%ET@@@FYF )@@G@@)KP@:]XK]&@-)CS@@@)]B@S@@@@@@@______ I$I$I$C@@@]Y@C(@]6@@@@@@@@@@KQYG )@@G@@/,0@@@EU@@@F)KU[F#@K$+&@O1]&@)CS@-)@[@@@@9C/@@@[@C:@]6/K@@K,@@@@@@@@@@@LYH )@@G@@@@@@]B/,0@@@[@@@@[EV@@@F)K<[#]#ES[N@ES1N@ES]A@-A)@@@@@/,0@@@@C!@]6@@@@]WYI )@@G@@@@@@]V@@@@@I@@@@]V@@@@]G/,0@@@EW@@@F)K:[E()CS]@-+CS]@-+CS]^A/,0@@@ @@@@3YJ )@@G@@ @@@@K/K@@]^ @@@@3 @@@@K/K@@]^@C,@]6@@@@]GEX@@@F)K4[](< G@() G@()CS]A@)@YK )@@G@@@@@@@@/C@@K.D@@@@9@C5@]6@@@@]W@@@@]V@@@@]G@@@@]V@@@@@IEY@@@F)K/[F@K[#@K^YL )@@G@@[#@K0^G@@@@@[@@@[EC@@@@+@C'@]6/K@@LA/,0@V([@@@[BC/@@@C/K@@^[/^@@]OEZ@@@FYM )@@G@@)L [F@^G[#@K0^@K0^@@@@@@/,0@V([@@@[BC/@@@C/K@@E_[@)@[FC@)@@+[@@@[BC/@@@CYN )@@G@@/K@@G3FA@@@F)LI[F@K0^G[#@K[#@K0^G@@@[@)@[FC@)@@Z[@@@[BC/@@@C/K@@G3[@@@[EYO )@@G@@C@@@@Z@D[@]6/K@@LNFB@@@F)LR[F@^G[]UES[N@K0^GP#@@H@@@[BC@@@@@@DC@]6@@@@@'YP )@@G@@@@@@]!/,0@@@[@@@[BC/@@@C/K@@E_FC@@@F)L)[F@K^G[#@K0^G[#@K1K@@G/@__QC@]@@]YQ )@@G@@R@)@#UA@K@#UR@K@[B[@@@[FC@@@@D/^@@#]/C@@L+FD@@@F)L([F@K0^G[@ES[N@ES]A@)@YR )@@G@@/K@@#]@DI@]6@@@@]U@@@@]U@@@@[F/,0@$^[@@@[FC@@@@A/^@@L?FE@@@F)L2[EK0[#@K0YS )@@G@@^@() G@()@@@@@@@]V@@@@@<@@@@@D/,0@$^[@)@@0[@)@@1C/)@@[[@@@[BC/@@@EFF@@@FYT )@@G@@)L;[F#@K^@K0^G[#@^G@@@@@[[@@[HC.@@@I[@)@[GC@)@@J[@@@[BC/@@@A/K@@#]/K@@[1YU )@@G@@@DN@]6FG@@@F)M^[F@K[#@K0^G@K0^G@@@@@R@K@[B[[@@[HC.@@@H[@)@[GC@)@@H[@@@[BYV )@@G@@C/@@@ /K@@L"/K@@PKFH@@@F)MH[F# ^@K0^@K0^G@@@@@@@C@)@@H[@@@[BC/@@@I/K@@QAYW )@@G@@[@@@[BG/@@@[/ )@PKG.)__QC[-@@]FI@@@F)MQ[F#@^G[@^G[#@K0@@@@@@C.@@@H[@)@[GYX )@@G@@C@)@@H[@@@[BC/@@@D/K@@P7[[@@[HC.@@@H[@)@[GFJ@@@F)MZ[F#@K[#@K^[#@K0^G@@@@YY )@@G@@[@@@[EC@@@@U@D:@]6/K@@M(/,0@V([@@@[BC/@@@ /K@@P^[[@@[HFK@@@F)M*[F@^G[#@KYZ )@@G@@0^@K0@@@@@@@C/@@@A[@@@[MC/@@@D/K@@E_[@)@[FC@)@@U[@@@[BC/@@@ /K@@G3FL@@@FZA )@@G@@)M1[F# K^@K0^D*() G[#@@@@D4@]6@@@@@'@@@@[M/,0@@@[@@@[MC/@@@E/@@@M6/C@@M6ZB )@@G@@H@@@@@FM@@@F)M'[F# ^@K0^[@K]&@@@@@@@@@@@@A/K@@#]/K@@#]/,0@Y;[@@@[BC/@@@CZC )@@G@@/^@@#]G/@__QC@@@@DFN@@@F)N#[E() G@()CS]@CS]@-H@@/,0@@@/K@@C&[@@@[BC/@@@BZD )@@G@@/K@@#]@D8@]6@@@@]U@@@@]U@@@@]UFO@@@F)NG[E() G[#@K^@K0[#@@@@@[@)@[IC/)@@[ZE )@@G@@[@@@[BC/@@@F/K@@#]/K@@#]@D/@]6@@@@@'@@@@],FP@@@F)NP[F#@K0^G[@^G[#@K0@@@@ZF )@@G@@C.@@@I[@)@[GC@)@@J[@@@[BC/@@@B/K@@G5[@@@[FC@@@@& @@@[EFQ@@@F)NY[F#@K[#@KZG )@@G@@0^G@K0^@@@@@/K@@P7[[@@[HC.@@@I[@)@[GC@)@@J[@@@[BC/@@@K/K@@QA[[@@[HFR@@@FZH )@@G@@)N$[EK0^G[#@^G[@^G@@@@@@[@@@[BC/@@@Q/K@@P^[[@@[HC.@@@I[@)@[GC@)@@J[@@@[BZI )@@G@@C/@@@EFS@@@F)N0[F@^G[@^G[@^G@@@@@@@@[@@@[BC/@@@I/K@@OI[@@@[BC/@@@N/K@@OIZJ )@@G@@[@@@[BC/@@@I/K@@OIFT@@@F)N9[F@^G[@K^G[# ^@@@@@@@/@@@OFG/@__ZC@]@@]R@)@[BZK )@@G@@/K@@#]/K@@N"[@@@[BC/@@@J/K@@N"FU@@@F)O][EK0^G[# K^[]PES[N@@@@E)@]6@@@@]-ZL )@@G@@/,0@@@/^@@N"/C@@OCH@@@@@[@@@[BG@@@[BC/@@@[FV@@@F)OF[EK0^G[@K]&@-)C@@@@@@ZM )@@G@@C/@@@D/K@@#]@E+@]6@@@@@R/K@@#]/,0@*^[@@@[BG@@@[BC/@@@[FW@@@F)OO[F#@K0^G[ZN )@@G@@#@^G[#@K^@@@/K@@#]/,0@Y;[@@@[BG@@@[BC/@@@[[@)@[NC@)@@^ @@@@0[@@@[BFX@@@FZO )@@G@@)OX[F@ES[N@ES[N@K0[#@K0@[@@@[BG@@@[BC/@@@[@E*@]6@@@@]U@@@@@]@@@@@^@@@@@(ZP )@@G@@/K@@C-FY@@@F)O&[F#@@K0^GL#^K@@@@@@@@O/K@@[/@@@O3H@@@@PC@[@@QA@K@[O[@)@[JZQ )@@G@@R/K@@[G/)__"C@)@@#FZ@@@F)O\[F@K0^GL#^K0^G[#@K]&@@@@@@(/,0@$^[@@@[NG@@@@^ZR )@@G@@C@@@[O[@]@@QC@@@@PR@)@[O8N0@O%GA@@@F)O8[]() G[#@K0^GP@K^G@@@@@@@@@R@K@[BZS )@@G@@/@@@#]/C@@#]H@@@@@C@@@[B@E3@]6@@@@]V@@@@[NGB@@@F)P@[F# ^[@K^[#@^G@@@@@@@ZT )@@G@@[@@@@\C/@@@[@E9@]6/K@@P$/,0@Z"/K@@OS/^@@#]G/@__#C@[@@]GC@@@F)PD[#@ES[N@EZU )@@G@@S]A@-)C]A@@@@@@@@@R@)@[B/K@@P$ @@@@\@E;@]6@@@@]U@@@@]U@@@@@G/,0@$^GD@@@FZV )@@G@@)PL[F# K0^D)()C]@-)CS@@@G/@__#C@@@[[@E_@]6/K@@PS/K@@P=@@@@[[/,0@@@[@@@[[ZW )@@G@@C@]@@]GE@@@F)PU[F@^G[@ES[N@ES]A@-)@@ @@@@\@F#@]6@@@@]U@@@@]U@@@@@F/,0@$^ZX )@@G@@[@@@@\C/@@@[/@@@P$GF@@@F)P<[F@K]&@-)]A@-)]A@@@@@[@@@@0C/@@@[[@@@[BG@@@[BZY )@@G@@C/@@@[@FA@]6@@@@@K/,0@W*/K@@P$GG@@@F)P?[#@ES[N@ES]A@-)CNLN@@@@@@@@@@@@[HZZ )@@G@@/,0@@@ @@@@0@FD@]6@@@@]&@@@@]U@@@@[G/,0@$^GH@@@F)P4[E()CS]@)C]A@CS]@@@@@AA )@@G@@/,0@$^[@@@@\C/@@@[@FH@]6/K@@Q]/,0@Z"/K@@#]@FF@]6@@@@@'GI@@@F)P.[E() G@()AB )@@G@@CS]A@CS]A@)@/K@@PK[@@@[BG@@@[BC/@@@[ @@@@\@FJ@]6@@@@]U@@@@]U@@@@@GGJ@@@FAC )@@G@@)QA[F@K^G@K0^@() G@()@@@@@@@]U@@@@]U@@@@@G/,0@$^[@@@@\C/@@@[@FN@]6/K@@QLAD )@@G@@/,0@Z"GK@@@F)QJ[F#@K0^G[#@K0^GOK@@@@C/@@@[/^@@QUG/@__#C@]@@]R@)@#UA@K@#UAE )@@G@@R@K@[B @@@@\@FP@]6GL@@@F)QS[F#@K0^G[# ^[@^G@@@@@[@@@[BC/@@@[/K@@Q]/@@@P$AF )@@G@@G/@__ZC@[@@]R@K@[B[@@@[BG@@@[BGM@@@F)Q-[##@K0^@() G@()CS]A@@@@@@@@ @@@@1AG )@@G@@@FZ@]6@@@@]&@@@@]U@@@@@ /,0@$^[@@@@1[@@@@\GN@@@F)Q([F#@^G[@ES[N@ES]A@-)@AH )@@G@@ @@@@0@F<@]6@@@@]&@@@@]U@@@@@A/,0@$^[@@@@0C/@@@[ @@@@\GO@@@F)Q2[F#@K1L@KAI )@@G@@1L@K1K@@@@@@G/@__QC@@@@ /^@@#]G/@__4C@@@@^/^@@#]G/@__1C@@@@# @@@@2GP@@@FAJ )@@G@@)Q;[F@K[#@K0^G@K0^@@@@@@/K@@P%[[@@[HC.@@@L[@)@[GC@)@@H[@@@[BC/@@@B/K@@I'AK )@@G@@/^@@#]GQ@@@F)R^[EK0^G[#@^G[@^G@@@@@@[@@@[BC/@@@C/K@@P%[[@@[HC.@@@M[@)@[GAL )@@G@@C@)@@J[@@@[BC/@@@CGR@@@F)RH[F#@K0[#@K[#@K&+&@@@@@@@@]\/,0@@@[@@@[BC/@@@MAM )@@G@@/K@@P%[[@@[HC.@@@N[@)@[GC@)@@JGS@@@F)RQ[E()CS]AE-)C]@) G@()@@@@@]U@@@@@GAN )@@G@@/,0@$^/^@@#]/C@@RWH@@@[BC@@@@@@F'@]6@@@@@'GT@@@F)RZ[E()CS]@CS]^4O0]&@O0@AO )@@G@@@G@@]6@@@@@'@@@@]C@@@[P/@@@U3G/@__*C@@@[P/=K@U0+@@@@I @@@@IHM@@@F)UG[EK[#@K0^BK )@@G@@[@K&+&@@@@@@@@@@@8/,0@@@/@@@AI/C@@AID@@@@8[@@@@8C/@@@$/^@@UKG/@__/K@@#]@HI@]6BM )@@G@@@@@@@'HO@@@F)UY[MK0^@K0^@K0^@@C/@@@)/K@@UK[@@@@8C/@@@Z/K@@UK[@@@@8C/@@@YBN )@@G@@/K@@UK[@@@@8C/@@@XHP@@@F)U*[F#@K[#@K[#@K@@@@@@@@C/@@@@]6/K@@U/HS@@@F)]4@)@@@@@@@BR )@@G@@)V]@<#@K(^G[#@@@@@9()@#VAA0@]7/K@@@@/K@K]4@H>@@]DCT8 @@@@@@@@F@@#HT@@@FBS )@@G@@)VA@3#@K0^G[@@@@@@)[R@S@@@@@@N@@@@@U@@@@@FN_0@@BR/K@@[/K@@*4^#0@#ZA@)@#YBT )@@G@@A@K@#XHU@@@F)[U@*@@@@@@@)VG@V#@K0^G@@@@@@@R@)@#)A@)@#)R@)@[B@@@@@N@@@@@OBU )@@G@@@@@@@I@@@@@T@@@@@CHV@@@F)VJ[F# K0^@K^@()]A@@@@@@G@@@[BC/@@@[@H0@]'/K@@VYBV )@@G@@N@0@VPC8)@@[/@@@VQH@[@[QC@]@@]HW@@@F)VS[F#@^[@K^G[#@K(K@@@@@H8)@@[/K@@@@BW )@@G@@!^)@]8@H3@]'/K@@V+N@0@VX8N0@VGO/K@@[[@@@[BHX@@@F)V-@3#@K0^G[#@K0^G@@@@@@BX )@@G@@)]8@K@@@@@@@@@F@@@*4@K]8N#0@#N_0@@^CB )@@G@@R/K@@[@H8@]"/K@@WYIB@@@F)V_[F#@^G[#@K1O[@K0^GO@@C@+@@]R@)@[B/^)@WN/G)@WACC )@@G@@H@)@@@[@)@[BG@)@[BC/)@@[[@[@[ZIC@@@F)WC[F#@K&]&@)C]A@C]^%@@@/,0@@@8N0@V'CD )@@G@@O/K@@[@I[@]"/K@@WN/K@@WI@@@@[[/,0@@@[@)@[[ID@@@F)WL[]()CS]^"O0]&@O0^G[]NCE )@@G@@@@@@@@/,0@@@@I @]"@@@@[>@@@@[&@@@@[)/,0@@@@I^@]"@@@@]?IE@@@F)WT[E() G@ESCF )@@G@@]A@)C]A@-)@@R]0@]_@IB@]"/K@@W-N@0@W)@IA@]"@@@@@,@@@@@@@@@@@'@@@@[&IF@@@FCG )@@G@@)W+@<#@K0^G[#@@@@@)]/@)@@@@@@@@IB@@]GETSN @@@@@@@@F@@]*4@K]/N#0@#$R@)@#&CH )@@G@@R@K@#>IG@@@F)W&[F#@K(^G[#@K0^G@K^@@@/K@@V0[^@@WVC8FK@@^#0@#$A@)@#&A@K@#>CI )@@G@@AA0@]_/K@@@@/K@K]/IH@@@F)W\[F#@^G[#@K@K0^G@@@@@@R@)@[BA@K@[,N_0@@ R/K@@[CJ )@@G@@8N0@W1[@[)[&C@@@@%N_0@@ R@K@#@II@@@F)W8[F#@K0^GP#@^G[#@K1O@@/G)@X]H@)@@@CK )@@G@@[@)@[BG@)@[BC/)@@[[@[@[&C@]@@]R@)@#*A@)@#*IJ@@@F)X[[F@K0^GP#@^[#@^@@@@@@CL )@@G@@/@)@XOG/)__SC@)@[[/@)@Y)G/)__^[@)@[[C@+@@]R@)@[B/^)@Y)IK@@@F)XE[F]RES]@)CM )@@G@@CS]^0O0^[@@@/K@@XT/K@@XO@@@@[[/,0@@@@IX@#^/K@@XJ/K@@XO@@@@[[/,0@@@IL@@@FCN )@@G@@)XN[F#@^[]PES]A@-I>G@(+@@@@@@P@@@@[$/,0@@@@I-@#^@@@@#[/,0@@@8N0@W6O/K@@[CO )@@G@@@IY@#^IM@@@F)XW[N#@^G@[#@@@@@@+@@@@I @@@@I*@@@@KH[@@[[C.@@@=C/)@@[ @@@@GCP )@@G@@*@@@@1C/@@@[@I+@#^IN@@@F)X&[F@^G[@K*]&@O1]&@@@@@@@@@@@@@@@@'@@@@@P@@@@]&CQ )@@G@@/,0@@@/@@@X/H@@@[[C/@@@(/=K@X3IO@@@F)X\[E]&@)CO[N@ES-N@ES@@@@@@@@(@@@@@'CR )@@G@@@@@@@P@@@@]&/,0@@@/K@@YX@I$@#^@@@@@@@@@@@@IP@@@F)X8[E() G[#@K[#@K0[@@@@@CS )@@G@@/@@@Y#G/@__.[@@@[\G@@@#(C/@@@[/K@@YX@I(@#^@@@@]U@@@@]UIQ@@@F)Y[[F@K^E@()CT )@@G@@ GK()@O0@@@@@@@@@=@@@@@@@@@@@@@@@@@'@@@@@P@@@@]&/,0@@@/K@@YG/G@@X%IR@@@FCU )@@G@@)YE[F#@K[#@K*]&@O1]&@@@@@@@@@@@@@@@'@@@@@P@@@@[0/,0@@@[@@@[0C/@@@#/K@@YXCV )@@G@@@I\@#^IS@@@F)YN[EES]A@-)C]@C]@@@@@@@/K@@Y0N@0@YWC8)@@]/@@@YX/G@@YXD@@@[0CW )@@G@@@I2@#^@@@@]U@@@@@@IT@@@F)YW[##@K^[#@K$M&@O1^G@@@@@@@@@@I6@#^@@@@@P@@@@[$CX )@@G@@/,0@@@@I5@#^/K@@Y4N@0@YZ@I4@#^IU@@@F)Y=[F])ES[N^ES@[N@@@@@@@C8)@@[@I7@#^CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@P@@@@]&/,0@@@IV@@@F)Y![F@K^G[#@K(L#@K0^G@@@CZ )@@G@@R@K@#%R]0@# [^)@#]H8)@@[/K@@@@!^)@#]@I8@#^/K@@Y0N@0@Y\IW@@@F)Y6@V#@K0^G@DA )@@G@@)#]@)@@@@@@@@@@@)@@@@@@@@I8@@]GETVAR@@@@@@@@F@@@*4@K#]N#0@#?R@)@#:IX@@@FDB )@@G@@)Y9[F#@K([#@K0^G[#@K0@@@C8FK@]^#0@#?A@)@#:A@K@#%[^@@#]AA0@# C8@@@B/K@@@@DC )@@G@@/K@K#]IY@@@F)Z][N@K^[@^[@K^@@@C8FK@^[^@@Y([^@@X\[^@@YC[^@@YNC8FK@#[^@@YBDD )@@G@@[^@@Y*[^@@YM[^@@X,IZ@@@F)ZG[F@K[#@K^G[# K0^D)@@@/,0@@@[@@@[[C@[@@]R@K@[BDE )@@G@@/K@@W\[@K@#(C@VK@ [^@@Y%[^@@X0JA@@@F)ZP[E()C]@-)@-)]A@@@@@@@G@@@[BC/@@@[DF )@@G@@[#)@[1N_0@@]C_)@@[@I.@#D/K@@Z0/K@@ZT@@@@[[JB@@@F)ZY[F#@K0^GP#@K&]&@)C]A@DG )@@G@@@J#@#D/K@@Z?/K@@Z$@@@@[[/,0@@@[@)@[[C@-@@]R@K@[B[@@@[BJC@@@F)Z$[EK^DO()CDH )@@G@@S@)C]A@@@@@@@JB@#D/K@@Z3N@0@Z\C8)@@[@JA@#D@@@@#A/,0@@@8N0@ZVG_)@@[JD@@@FDI )@@G@@)Z0[F@K^G[#@K(L#@K0^G@@@9\)@#!R]0@#E[^)@#BH8)@@[/K@@@@!^)@#B@JC@#D/K@@Z7DJ )@@G@@N@0@Z2JE@@@F)Z9@V#@K0^G@)#B@)@@@@@@@@@@@)@@@@@@@@JC@@]RJTNOS@@@@@@@@F@@@DK )@@G@@*4@K#BN#0@#0R@K@#\JF@@@F)Z/[F#@K([#@K0^G[#@K0^@@/K@@ZL^#0@#0A@K@#\9:)@#!DL )@@G@@[^@@#BAA0@#EC8@@@]/K@@@@/K@K#BJG@@@F)) [F#@K0^GP# K0^[@K0^GOC@[@@]R@K@[BDM )@@G@@/^@@=4/C@@)GH@@@[BC@@@@@ @@@O? @@@[# @@@[2JH@@@F))I[EK^G[# K0^DW()C]@@@@DN )@@G@@/K@@)S/K@@)%@@@@[[/,0@@@[@@@[[C@[@@]R@K@[B/@@@=4G/@__^JI@@@F))R[F#@K0^[@DO )@@G@@K0[@^G@@@@@@G@@@[2C/@@@[/^@@)-G/@__QC@@@[[/G@@-+/@@@-+C@@@@2@JO@#JJJ@@@FDP )@@G@@)))[F#@K0[@K0[#@K0^@@@@@/@@@=4C@@@[2[@@@[2G/@__"C@@@[2/^@@)$G/@__ZC@@@[[DQ )@@G@@[@@@[2JK@@@F))([F@K0[#@K[#@K@@@@@@@@C/@@@[/^@@-6H@@@[[C/@@@E/@@@-DH@@@[[DR )@@G@@C/@@@DR@K@[B/K@@-+JL@@@F))2[N# @^GO@@@@@@@+@@@@I @@@@I*@@@@KG.@__*C[[@@#DS )@@G@@C/)@@[ @@@@G*@@@@IG/)__*C@-@@^JM@@@F))/[N@^GO@K1K@@@@@*@@@@KG.@__6C[[@@^DT )@@G@@C/)@@[ @@@@G*@@@@IG/)__?C@-@@#C/@@@[/=K@-OJN@@@F)-A[E^[#@^[#@K1O@@@@@@@@DU )@@G@@^^K@-KN8L@@[R@K@[B/@@@-6G/@__"C@@@[B/=K@-O+@@@@I @@@@IJO@@@F)-J[F]SK^[@KDV )@@G@@0^G@^G@@@@@@H@)@[BC/)@@[C/@@@[R@K@[B@J%@#J/K@@-6/K@@-+@@@@-K/,0@@@JP@@@FDW )@@G@@)-S[M[# @^[@@@@@@@/K@@-6/=K@=>+@@@@I @@@@I*@@@@KG.@__VC[[@@ C/)@@[ @@@@GDX )@@G@@(@@@@IJQ@@@F)-+[M^G@[#@[@@@@@@/=K@=4+@@@@I @@@@I*@@@@0C/)@@[ @@@@G*@@@@IDY )@@G@@H@)@[[C/)@@/C/@@@[JR@@@F)-?[EK0^@K0^@K0^G@@@@@@@[@@@[BG@@@[BC/@@@[/@@@=7DZ )@@G@@H@@@[[C/@@@./@@@=WH@@@[[C/@@@$JS@@@F)-5[F@K^[@@()[N@@@@@@@@@@J8@#J@@@@@@EA )@@G@@@@@@]U@@@@@@@@@@@@/K@@+D/K@@=4/,0@Y;/K@@)CJT@@@F)-"[F#@K1L@^G[@K^@@@@@@@EB )@@G@@/K@@&"N@0@+B/^@@+CH@@@@\C/@@@[/@@@+ZG/@__QC@[@@]R@K@[BJU@@@F)+B[F#@K^D*(EC )@@G@@) G[#@K0^GO@G/@__QC@[@@]R@K@[B@J"@#J@@@@@'@@@@#F/,0@@@/K@@)K@J/@#JJV@@@FED )@@G@@)+K[F@^G[#@K0[# ^G@@@@@@[@@@[FC/@@@[[@-@O:C/)@@[R@K@[#[@@@[#G@@@[#C/@@@[EE )@@G@@/^@@+UJW@@@F)+T[F@K0^GOK^@K0^G@@@@@@[@@@[#G@@@[#C/@@@[/K@@)A/@@@+/G/@__ZEF )@@G@@C@[@@]R@K@[B/K@@+=JX@@@F)++[F#@K1L#@K0^GP#@K^@@@/@@@+,/C@@+,H@@@[BC@@@@@EG )@@G@@[@@@[BG@@@[BC/@@@[ @[@O:R@K@[#JY@@@F)+:[F]PES]A@-)CS]AEC@@@@C/@@@[/^@@<#EH )@@G@@G/@__ZC@[@@]R@)@[#R@K@[B@KG@#J@@@@]Z/,0@@@JZ@@@F)+4[F#@K0^GP#@^G[@K@@@@@EI )@@G@@C/@@@[/^@@<0/G@@+/[@@@[#G/@__"C@@@[# @]@O:[@@@[BG@@@[BKA@@@F)+.[F#@K^[@KEJ )@@G@@0^[#@K1OG@@@[@@@[[C@[@@]R@K@[B/K@@)A@KP@#J/K@@&"N@0@<[/^@@<]H@@@@\KB@@@FEK )@@G@@) @@@[FEN )@@G@@@KW@#J@@@@@@@@@@]U@@@@]U@@@@[FKE@@@F)<-[F]UES[N@ES]A@-++@@@@C/@@@[/^@@+$EO )@@G@@G/@__QC@]@@]R@)@[B@K)@#J@@@@@'@@@@#F/,0@@@KF@@@F)<%[##@K0^G[#@K1O[#@K1K@EP )@@G@@@@@@@@C@]@O:R@)@[#/K@@+=[@-@O:C@)@[FR@K@[#[@@@[#G@@@[#KG@@@F)<2[F#@K^G@KEQ )@@G@@^G[#@^@@@@@@/@@@=7G/@__]C@@@[[R@K@[#/@@@<(G/@__QC@@@[[/K@@+$[@@@[FKH@@@FER )@@G@@)<;[MK1K[#@@@@@@@@ @@@@I(@@@@KG.@__SC[@@[[C/)@@[ @@@@G(@@@@IG/)__"C@-@O:ES )@@G@@C/@@@[KI@@@F)= [EK[#@K0^GP@K^G@@@@@@R@)@[B/^@@+$/G@@=HH@@@@@[@@@[BG@@@[BET )@@G@@C/@@@[/=K@+=)@@@@IKJ@@@F)=I[F# K^D-@K^[#@K]&@@@@@@@@@L/,0@W*@K1@#J/K@@+$EU )@@G@@/K@@=P@@@@=L/,0@@@^^K@=LN8M@@]KK@@@F)=R[F#@K^DO()CS@-)CS]AE@H@@@@@[@@@[BEV )@@G@@G@@@[BC/@@@[@K4@#J@@@@]+/,0@@@/K@@+$@K2@#JKL@@@F)=)[F@K^DO()CS@-)CS]A@@@EW )@@G@@R@K@[B[@@@[BG@@@[BC/@@@^@K8@#J@@@@#G/,0@@@/@@@=*/G@@=*KM@@@F)=([F# K0^D)EX )@@G@@()C]@-)C[N@@@@@@@L/,0@W*@K/@#J/K@@)K/K@@=0@@@@[[/,0@@@[@@@[[C@[@@]KN@@@FEY )@@G@@)=2[F#@K^[@K0^G[#@^G@@@@G@@@[3C/@@@[[@@@[3C@@@[B@K_@#J/K@@&"N@0@=6/K@@)KEZ )@@G@@@K.@#JKO@@@F)=;[F#@K0^GP@K^G[# ^@@@@/^@@=9G/@__]C@[@@]R@K@[3/^@@>7/G@@>@FA )@@G@@H@@@@@R@)@[B[@@@[3KP@@@F)>^[F#@K0^G[# ^@K@@@@@@@C/@@@]/@@@>1G/@__'/^)@>JFB )@@G@@G/)__&C@+@@#[@@@@8H@@@[BC@@@[3KQ@@@F)>H[F#@K^G[# ^@K0^@@@@@@/@@@>1H@@@@8FC )@@G@@C/@@@A/^@@>TG/@__4C@[@@#R@K@[B/@@@>1H@@@@8KR@@@F)>Q[EK0^[#@^G[@K@@@@@@@@FD )@@G@@C/@@@]/^@@>7/C@@>YH@@@@8C/@@@^R@)@[B/@@@>1H@@@@8C/@@@]KS@@@F)>Z[F#@K^[# FE )@@G@@K^DX@K^@@@@@/K@@>7/K@@>(@@@@>>/,0@@@^^K@>>N8M@@#/@@@>7/C@@>7H@@@@8KT@@@FFF )@@G@@)>*[F#@K0^GP@K>4[@K^G@@@@LS@#J/K@@>7/K@@>1@@@@>!/,0@@@^^K@>!N8L@@^R@K@[BFG )@@G@@@LR@#JKU@@@F)>1[F#@K0^G[@K^[#@K0^G@@ @@@[4[@@@[3C@@@[B/K@@-2/^)@+=/C)@>6FH )@@G@@D@)@[#[@@@[BC@@@[3KV@@@F)>'[EK0^G[# K^[#@K1OG@@@[@@@[[C@]@@]R@)@[3/^@@&2FI )@@G@@/G@@&@H@@@@@[@@@[3G@@@[3C/@@@[KW@@@F)&#[F]SES]@)CS@-)@@@@@@@C/)@@[ @@@@GFJ )@@G@@*@@@[4C/@@@[@L<@#J/K@@&C/K@@>'@@@@[[/,0@@@KX@@@F)&G[N#@@^@K0@@@@@@C/)@@[FK )@@G@@ @@@@G*@@@[4C/@@@[/=K@&8+@@@@I @@@@I*@@@@KG.@__5C[@@[[KY@@@F)&Q[N#@@^@K0FL )@@G@@@@@@@@C/)@@[ @@@@G*@@@[4C/@@@[/=K@&8+@@@@I @@@@I*@@@@KG.@__6C[@@[[KZ@@@FFM )@@G@@)&)[N#@@^@K0@@@@@@*@@@@IG/)__XC@)@[[C/@@@[/=K@>'+@@@@I @@@@I*@@@@KG.@__YFN )@@G@@C[@@[[LA@@@F)&%[M[#@@K^G[#@@@@[@@@[BC@@@[3/=K@>'+@@@@I @@@@I*@@@@KH[@@[4FO )@@G@@C.@@@[C/)@@[ @@@@GLB@@@F)&4[F#@K^[@^G[@K^@@@@@@@/K@@&"N@0@&./K@@>'[@@@[4FP )@@G@@C/@@@[/K@@)C/^)@+$/C)@&7D@)@[#LC@@@F)&.@:#@K0^G[#@K0@@)#H@S@@@@@@@UNPACKFQ )@@G@@@@@@@@@@F@@^*4@K#HR@)@#3R@K@#2R]0@#K@L1@#JLD@@@F)#K@C@)$]@;#@K(^G[#@K0[@FR )@@G@@@@@@@@[^@@-9C8FK@@A@)@#3A@K@#2AA0@#K/K@@@@/K@K#H@L1@@[LE@@@F)$D[EK[@K^[#FS )@@G@@@K0^G@@@@@@@R@K@#4A@K@#4R@K@[B/K@@) [^@@^G@@@@FY )@@G@@[^)@#LH8)@@[/K@@@@!^)@#L@L"@#N/K@@$_N@0@$'/K@@$S[@@@[BLK@@@F)$_@V#@K0^G@FZ )@@G@@)#L@)@@@@@@@@@@@)@@@@@@@@L"@@[UPSN @@@@@@@@F@@@*4@K#LR@K@#5R]0@#OLL@@@FGA )@@G@@)*][F#@K([#@K0^G@K^@@@@@/K@@$J[^@@$(C8FK@[A@K@#5[^@@#LAA0@#OC8@@@#/K@@@@GB )@@G@@/K@K#LLM@@@F)*F[F]-ES[N@K0^G@[#@@@@@C@)@#P;@@@@S;C@@@G;)@@@GC@@@]F@M]@#SGC )@@G@@@@@@]E@@@@@4/,0@@@LN@@@F)*O[MK0@K0^G[@^@@@C/@@@L8N0@*SO/K@@[/K@@*Z(@[@]DGD )@@G@@A@K@@8N_0@@JR/K@@[[@0@]F)@)@@GLO@@@F)*Y[##@K0[#@K*+&@-) G@@@@@@@@@@@@@]EGE )@@G@@@@@@#6@@@@]V/,0@@@[@@@#6G/@__"C@@@@8[@@@@8LP@@@F)*&[##@K^[#@K0^G[#@K0@@@GF )@@G@@@@@@@@*4@K#QN#0@#8R@K@#7R]0@#T@MH@#S/K@@*%N@0@*(@MG@#SLQ@@@F)#Q@)@@@@@@@GG )@@G@@)*,@<#@K(^G[#@@@@@A@K@#7AA0@#T/K@@@@/K@K#Q@MH@@[LPRT @@@@@@@@F@@[LR@@@FGH )@@G@@)*2[F#@K[@K[@K^@@@@@@@@@/K@@@@[^@@[9[^@@@AC8FK@[[^@@@0[^@@@#C8FK@@/K@@*FGI )@@G@@^#0@#8LS@@@F)]U[S@@@@@@@@@@@@_@@@@@O@@@@@G@@@@@A_____"@@@@@F @@@@@#GJ )@@G@@@@@@@I@@@@@[@@@@@@LT@@@F)]>[S@@@@@@@@@@@@T@@@@@K@@@@@U@@@@@ @@@@@^@@[@@@GK )@@G@@@@@@@B@@@@@J@@@@@S@@@@@] END LU@@@F)]0@)@@@@@@@)#@@K@)#A@C@)#F@C@@@@@@CGL )@@G@@@@@@@E@@@@@D@@[@@[@@@@@V@@@@@R@@@@@Q@@@@@PLV@@@F)#G@C@)#P@C@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@. @@@@@HLW@@@F@@@@@@@K^G[#GN )@@G@@ ^@K0^@@@@@@/@@@>1H@@@@8C/@@@A/^@@>TG/@__4C@[@@#R@K@[B/@@@>1H@@@@8KR@@@FGO )@@G@@@@^@@B@@F@@&@[R@@[@[V@@ @@A@#9@C@@*;@@@@ND@@@@[(@@@@ @@@@W#@@@@J*OFRTN8GP )@@G@@ TBL1 ERRST8 MOVER CSF READ CTCDITGQ )@@G@@ HDG OPA OPAF OPAFP OPAP ERSET8GR )@@G@@ PROCRD RDS2 TPROC UPA8 MULTY UPB8 GS )@@G@@ TBL3 UPC8 PRTERR SQUASH CHKLET CHKNUMGT )@@G@@ FINDER TBL4 RDS3 TBL5 UPF8 PROCITGU )@@G@@ UPG8 TBL2 ITF PRINT NERR2$ NERR3$GV )@@G@@ NERR4$ DCT8 @@[@@@@@@@V^@@@@@@ ^@@@C@@]@@@@MSG GW )@@G@@ ]@@@C@@#@@@@E8DCT ]@@@C@@^@@@@E8ARY ]@@@C@@ @@@@E8IPT GX )@@G@@ ]@@@C@@A@@@@@@@C=K)@@[M^C@@@K)[@@@@@A#FK@]'=@@@@;?@@@M;*K@@MR#V@@@GY )@@G@@R#FK@[/KF@@#'=@@@@&#F@@[R#F@@@AA@@@@)@E[M^@K0@@K0@@@@@C[V@@@[@0@@ W80@@WGZ )@@G@@C[FK@] @@@@J[WK@@#C8K@@K/K@@@IC8K@@C/KF@@^AB@@@@)@O[##@@K0@ES@CK[CS@C]A@HA )@@G@@@@@@@@[@@@@C/K@@@-(4@@@#'=@@@@C8@@@@[C)@@^C@:K@[[[K@@^AC@@@@)@W[F#@[]@G(HB )@@G@@)@-@C-@E-)@@/KF@@^[[VK@]G[VK@]C K@@#'=@@@@'=@@@@C8@@@A'=@@@@C@@@@LAD@@@@HC )@@G@@)@>[]K)AJA@0@JA@0@^G@^C@K@@@@@/KE@@['=@@@@C@@@@M@GAYLE@@@@@B@@@@@B/,0@@@HD )@@G@@A]0@@EAE@@@@)@![##@[#@@()@-@I-)@CS@CK@)@@@'=@@@@R#@@@P/KF@@[*4@@@!'=@@@@HE )@@G@@R;@@@$9*@@@$9?@@@@AF@@@@)@5[EK0@K)#K])-@C)@@@@@@K@@@@@TCTERR/K@@@_'=@@@@HF )@@G@@C8@@@/[@@@@"'=@@@@R#@@@@]C@@VN A0. ATUS IAM@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@C@@Q@@B@@2@@@HO )@@G@@@@@@@1@@@@[IREAD$ CSF$ IOW$ PRINT$ SNAP$ HP )@@G@@ERR$ HDG FACIL$ READ @@[@@@@@@@@@CSF HQ )@@G@@@@[@@@@@@@@^DRMWT8 @@[@@@@@@@@FOBTAN8 @@[@@@@@@@@HGETOUT HR )@@G@@@@[@@@@@@@@>ASGTCT @@[@@@@@@@@!CHKASG @@[@@@@@@@[@I7M,/TI6=@4?HS )@@G@@0D)&*SJ&(FQRJ&B&8_1]F'=I)@@[EK0A^@K^G@^G@^@@@@@@/K@@@ERFW@@@RB?@@@/K@@@QHT )@@G@@!8@@@T/G@@@QP;@@@AR#@@@#C9K@@@AA@@@@)@D[MK^@K0A^@K^G[)C[J@@]/@0@@PR\"@@@HU )@@G@@/K@@@D%1I@@@C[J@@]R7"@@@/K@@@Q8#K@@GO;)@@[AB@@@@)@N@%K@@@@@@)@@@)* @* @@HV )@@G@@@@C@@$@@ @@+@@]@@)@@A@@U/KF@@][[VK@@CPY@@@/K@@@D%(I@@@AC@@@@)@^[C* @* @*HW )@@G@@ @* @*@@@@@@@@]@[]@@[@[[@@@@[[@@@@[[@@B@@'@@@@@'@@]@@8@@]@@6@@C@@\AD@@@@HX )@@G@@)@H[C* @* @* @* @*@@@@@@@@@@[U@@@@[U@@@@[U@@C@[M@@D@[D@@@@[D@@^@[ @@@@[ HY )@@G@@@@[@[^AE@@@@)@Q[K* @* @@@@@@@@]S^$@"]L#T@9]C#C@6]B#N@#]R#G@]]S#S@[@@@@[XHZ )@@G@@@@@@[X@@@@[X@@#@[UAF@@@@)@)[S@@@@@@@]A#T@I]I#M@H]O@@@G]O#U@F]O I@E]O L@DIA )@@G@@]O#N@C]O^M@B]A#L@A]A#C@ ]L#O@^AG@@@@)@:[S@@@@@@@]R#P@8]N#D@R]N^F@Q]N#C@PIB )@@G@@]N#T@O]X#T@N]Q#U@M]I#S@7]E#L@L]E#F@K]E#C@JAH@@@@)@6[S@@@@@@@]F@@@-]F#Q@)IC )@@G@@]F#A@Z]F#D@Y]M#P@X]N#T@W]N#C@V]E#N@/]O#T@U]U#N@T]O#R@SAI@@@@)[[[S@@@@@@@ID )@@G@@]E#T@!#A^L@?#P^L@;]U#N@*]R#I@$]A#U@&]A#R@>]A#M@=]A#C[@]O#N@<]O#G@+AJ@@@@IE )@@G@@)[G[S@@@@@@@]T#O@\]T T@5]TAT@5]T E@5]TAE@5]E^D@:]E T@%]E I@(]E#G@.]E^E@'IF )@@G@@]E#W@,AK@@@@)[R@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]R#I@4]RAT@3]RAO@2IG )@@G@@]C#A@_]E#N@1]U#B@0AL@@@@@@^@@B@@F@@@@@F@@[@@J@@[@@@@[Y@@@@@S)@@@@@)@@@@@IH )@@G@@)@@@@@)@@@@@@@@@W#FINDER @@[@@@@@@@@@E8ARY ]@@@@@@A@@@@0V=J9&II )@@G@@0EU^[S@@@@@@@ E& = WRIT O ATION ECIFICE = SP JB )@@G@@& = READ I AP@@@F)]0[S@@@@@@@ & & JC )@@G@@= LIST L ETER PARAMJ = DOAQ@@@F)];@S@)]_@K@)@@@<]]& GES@@@@]_@@@@#SJD )@@G@@@@@@#R/,0@@@______& AR@@@F)#[@0@@@@@@@)@^@V#^CES@@JE )@@G@@@@@@#T/,0@@@@[F@#&______L E& T A B L E I A B V A R AS@@@F)@B@2(-N^GK1JF )@@G@@#@@@@@)#B@K@@@@@@@______& N_0@@DR@)@#WR@K@#V@[G@#&@@@@#[@@@@#UAT@@@FJG )@@G@@)@H[F]M& GES.+@-DN^@@@@@@@@@@P@@@@#X/,0@@@^^K@@PN8MJ_9@[K@#&@@@@#B@@@@#SJH )@@G@@/,0@@@AU@@@F)@Q[F#^GK^DES)CS-+@@@@@@^^K@@+N8L)[1@[M@#&@@@@@V@@@@#Y/,0@@@JI )@@G@@^^K@@VN8M)@6@[L@#&AV@@@F)@Z@:]]& GK^G@@@@@)#D@S@@@@@@@______& VARBLEJJ )@@G@@@[N@#&@@@@@+@@@@#Z@@@@#T/,0@@@AW@@@F)@=@<@K=(-N@)#G@K@)@*@N#^D@@@@/,0@@@JK )@@G@@@[Q@#&______FLAGS&@@@@#D@@@@#S/,0@@@8N0@@HAX@@@F)@%@M(-N@@@@)#I@K@)@?@<#JL )@@G@@^DESO0@@@@#I@@@@#-/,0@@@@[R@#&______LB CM&@@@@#G@@@@#)AY@@@F)#K@*@@@@@@@JM )@@G@@)@0@<#^CESO0@@@@#<@@@@#+/,0@@@@[S@#&______LAGS& AND FUMBERSLINE NAZ@@@FJN )@@G@@)@4@E()@@@@@)#P@K@)@5@<#^CESO0@@@@@@@@@@#S@@@@#T/,0@@@@[T@#&______& JO )@@G@@@@@@#KBA@@@F)@9[E(+AC]@-+ACS-+A@@@@@N#0@#%R@)@#(R@K@#*R]0@#$@[V@#&/K@@@"JP )@@G@@N@0@@.@[U@#&@@@@#PBB@@@F)[]@F#@@@@@@)#=@)@@@@@@@)[#@N#^E@@@@/K@@@@/K@K#=JQ )@@G@@@[V@@#HEAD1 @@@@@@@@F@@[*4@K#=BC@@@F)[ @:#^GK1#^@@@@@@)#R@S@@@@@@@@@@@@[JR )@@G@@_____"@@@@@_/K@@@@^#0@#%A@)@#(A@K@#*AA0@#$BD@@@F)#U[K@@@@@@@@@@@@@@@@@@&JS )@@G@@@@@@@]@@@@@X@@@@@H@@@@[J@@@@@:@@@@@A@@A@@A@@B@@B@@@@@!BE@@@F@@@@@@E8ARY JT )@@G@@ ]@@@@@@A@@@@0V=J9&0EU^/,0@@@8N0@@%______ &KQ )@@G@@@[-@[*AQ@@@F)[ [E(+AC]@-+ACS-+A@@@@@N#0@[?R@)@[:R@K@[%R]0@[(@[>@[*/K@@[EKR )@@G@@N@0@[D@[=@[*@@@@[SAR@@@F)[I@F#@@@@@@)[&@)@@@@@@@)[J@N#^E@@@@/K@@@@/K@K[&KS )@@G@@@[>@@#HEAD2 @@@@@@@@F@@[*4@K[&AS@@@F)[L@:#^GK1#^@@@@@@)[U@S@@@@@@@@@@@@[KT )@@G@@_____"@@@@@_/K@@@@^#0@[?A@)@[:A@K@[%AA0@[(AT@@@F)[X[C@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@]@@@@[)@@@@[J@@#@@#@@^@@^@@@@@/@@@@@A@@D@@D@@@@@>AU@@@F@@@@@@]]@@@GKV )@@G@@;+@@@C;MG@]@K@N S F T R A @@@@]<@@@@]_@@@@]"/,0@@@______ & AU@@@F)]$@)@@@@@@@LX )@@G@@)@^@<#]^]&]&@@@@@@@@@@#[@@@@#@/,0@@@@#'@#B______ L E& T A BE R AV@@@FLY )@@G@@)@C@E()@@@@@)]:[@@@@@@@@E PRINCED AREFEREN ARE R WHICHNTRIESHOSE EONLY TLZ )@@G@@@@@@]>AW@@@F)]3@8@@@@@@@)@D@N#]^@@@@/,0@@@@#;@#B______LLOWS&IST FOLETE LMA )@@G@@E COMPT. THTED OUAX@@@F)@F[E()()(-#@--#]@)@@@@@/@@@@Q/C@@@QD@@@#D[@@@@@MB )@@G@@C/@@@J@#/@#B@@@@]:@@@@#]@@@@#@AY@@@F)@O[MK0--@K[#]A@@@N/K@@[G/@__"C@@@@@MC )@@G@@[@@@@@C/@@@7/@@@@V/C@@@VD@@@#E[@@@@@C/@@@MN )@@G@@/K@@@,BI@@@F)#A@S@)[%@3#]^4GCSK0@@@@C@VK@@^#0@#JA@K@#IAA0@#C/K@@@@/K@K# MO )@@G@@@^Y@@]HEAD3 @@@@@@BJ@@@F)[0@<#@--@@@)]"@*@@@@@@@@@@@@A@@@@@!@@@@@[_____"MP )@@G@@@@@@@_/K@@@@[@K@#EC@VK@[[@K@#DBK@@@F)##@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_____.@@@@@]BL@@@F@@^@@#@@B@@^@@J@@[@@N@@[MR )@@G@@@@#@#K@C@@[4@@@@@@OPAP OPA OPRINT NERR3$ HEAD3 MS )@@G@@ @@[@@@@@@@[?@@@@@@ ^@@@C@@]@@@@PROGRAAL SUBINTERN@@@@@*AH@@@FMT )@@G@@)@@[##@@(@@-)@-@]-)@-@^-)@@@@@/KF@@[R]0@@@'=@@@@R#@@@B/,0@@@A:@@@]R;@@@@MU )@@G@@A]0@@@AA@@@@)@@[@@@E@@@@@@@@@@@@@@@@@@@@@@@[A@@[ MV )@@G@@ 01A DCTNRY@@@@@@AB@@@@@@^@@]@@A@@#@@G@@]@@O@@@@@@@@C@@@@@CDCTID MW )@@G@@IDONLY$ PRINT$ IDLIN @@[@@@@@@@@@IDBUFF @@@@@@@@@@@[MX )@@G@@JZ+3@!0M&UG]^L[K=/,0@@@ @@@@[@[ @@@/,0@@@@[^@@@NR )@@G@@@@@@@]@@@@M3/,0@@@@@@@@@/,0@@@AA@@@F)@E[E()()K0)C]^1#@@@@@@@C@@@@@@[D@@@NS )@@G@@/,0@@@/@@@@M/C@@@MD@@@@[@[B@@@@@@@@[@@@@@@AB@@@F)@N@:@K*CQES@@@@@@)@]@K@NT )@@G@@@@@@@@@@@@@@ @@@@@Q@@@@@#/,0@@@@[H@@@/,0@@@/@@@@DAC@@@F0@@@]@K*CQESNU )@@G@@@@@@@@)@]@K@@@@@@@@@@@@@ @@@@@Q@@@@@#/,0@@@@[H@@@/,0@@@/@@@@DAD@@@FNV )@@G@@@@^@@#@@B@@B@@P@@[@@T@@[@@#@@^@C@@@S@@@@NDOPRIME IDLIN DCT8 NW )@@G@@ MRG8 GETOUT NINTR$ NSTOP$ FORMAIN$ @@[@@@NX )@@G@@@@@@@@@@@@@@ ^@@@C@@]@@@@@@@@@@]@@@@@@@@@@@N@T@@@C'(@@@@@@@@@@@@@@@NY )@@G@@C8@^VBC](^VCK'K^VD[AK@@EK"K@@EN@T^VG[@)^VH@@@^VI[@@@@@@@@@@@@@@@@T[@K@@@NZ )@@G@@@@@@@@@@@@@@C@@@@@@@@@@@[@@@@@NIO1$ '^@^VSC/@@@D)@@[S@@@@@@@ ENTITABETICOA )@@G@@E ALPH OF THNATURE THE& ICATESAG INDRST FLTHE FIAA@@@F)@F[S@@@@@@@OB )@@G@@ VARIASIONED DIMENDMVR = IABLE&ED VARENSION UNDIM =Y& AB@@@FOC )@@G@@)@Q[S@@@@@@@OF LAB NAME LBCM = ME& ION NA FUNCTFCTN = OD )@@G@@BLE& AC@@@F)@-[S@@@@@@@ SWITCSWVR = NAME& UTINE SUBROSBRT =OE )@@G@@ OMMON&ELED CAD@@@F)@?[S@@@@@@@& ME& IST NA NAMELOF )@@G@@NMLT = ABLE& H VARIAE@@@F)@7[S@@@@@@@AGS& TER FLCHARACG TWO OG )@@G@@LLOWINTHE FO AF@@@F)[][S@@@@@@@ATEMEN OF STOH )@@G@@G TYPEPONDINCORRES THE& IS INENTITYT THE TE THAINDICAAG@@@F)[H[S@@@@@@@OI )@@G@@FA = F OMMON CM = CL& XTERNAEX = EL BNORMAAB = AT& AH@@@FOJ )@@G@@)[S[S@@@@@@@ ATA DA = D& NTEGERIN = I OMPLEXCP = CGUMT& OK )@@G@@ORML AAI@@@F)[<[S@@@@@@@BL PREDP = DER& ARAMETPR = PON IMENSIDM = DOL )@@G@@& OGICALLG = LAJ@@@F)[,[S@@@@@@@THE FLT& AMELISNL = NENCE QUIVALOM )@@G@@EQ = E EAL& RL = RCISN AK@@@F)[9[S@@@@@@@ REFERTY WASE ENTIICH THON )@@G@@(ON WH& UMBERSLINE NG THE LLOWINAGS FOAL@@@F)]^[S@@@@@@@T EQUAA = SEOO )@@G@@& ERENCEHE REFE OF T NATURTE THEINDICA& ENCED)AM@@@F)]J[S@@@@@@@OP )@@G@@AT& = FORMLED G ED,CALFERENCB = RE & SIGNEDNED,ASL,DEFIAN@@@FOQ )@@G@@)]U[S@@@@@@@T BSCRIPD = SU UNIT& = I-O CE H SEQUENLLING C = CAOR )@@G@@ AO@@@F)]>[S@@@@@@@ E& = WRIT O ATION ECIFICE = SP OS )@@G@@& = READ I AP@@@F)]0[S@@@@@@@ & & OT )@@G@@= LIST L ETER PARAMJ = DOAQ@@@F)];@S@)]_@K@)@@@<]]& GES@@@@]_@@@@#UOU )@@G@@@@@@#T/,0@@@______& AR@@@F)#[@8@@@@@@@)@^@N#^C@@@@OV )@@G@@/,0@@@@[F@#$______S& B L E R I A V A G E D M E R AS@@@F)@A@'(-N]&CSOW )@@G@@-+A@@@)#C@K@______& N_0@@DR@)@#YR@K@#X@[G@#$@@@@#[@@@@#W@@@@#VAT@@@FOX )@@G@@)@H[F]M& GES.+@-DN^@@@@@@@@@@P@@@@#Z/,0@@@^^K@@PN8MJ_9@[K@#$@@@@#C@@@@#UOY )@@G@@/,0@@@AU@@@F)@Q[F#^GK^DES)CS-+@@@@@@^^K@@+N8L)[1@[M@#$@@@@@V@@@@#)/,0@@@OZ )@@G@@^^K@@VN8M)@6@[L@#$AV@@@F)@Z@:]]& GK^G@@@@@)#E@S@@@@@@@NE& ROUTIVARBLEPA )@@G@@@[N@#$@@@@@+@@@@#-@@@@#V/,0@@@AW@@@F)#H@C@)@=@<@K=(-N@)#I@K@@@@@@@@@@@@@PB )@@G@@______FLAGS&@@@@#E@@@@#U/,0@@@8N0@@H______AX@@@F)@*@<#^DESO0)#K@K@)@?@N#PC )@@G@@^D@@@@/,0@@@@[R@#$______LB CM&@@@@#I@@@@#+/,0@@@@[Q@#$AY@@@F)@,@M(-N@@@@PD )@@G@@)#M@*@@@@@@@@@@@*@@@@@@@______LAGS& AND FUMBERSLINE N@@@@#K@@@@#@S@@@@@@@MRGHD @@@@@@@@F@@[PH )@@G@@*4@K#>N#0@#:R@)@#%R@K@#(R]0@#*BC@@@F)#*@C@)[#@;#^EK1#^GK1@@@@@@@@@/K@@@@PI )@@G@@^#0@#:A@)@#%A@K@#(AA0@#*/K@@@@/K@K#>@[V@@#BD@@@F)#T[S@@@@@@@@@@@@=@@@@@OPJ )@@G@@@@@@[J@@@@@:@@@@@A@@A@@A@@B@@B@@@@@?@@@@@[_____"@@@@@_BE@@@F)#=@C@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]BF@@@FPL )@@G@@@@^@@#@@B@@#@@H@@[@@L@@[@@]@#?@C@@[E@@@@@@OPAP OPA NERR3$PM )@@G@@ MRGHD @@[@@@@@@@[ @@@@@@ ^@@@C@@]@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[#[K^[@K^G^ @@@>?9@C@MERGED/C@@@DD@@@@]@[B !RPO )@@G@@/K@@[0N@0@@ /^@@@A/C@@@#D@@@@[AA@@@F>?'@S@)@C@3@K)ES G^G^^@@C@@@@[@[E !RPP )@@G@@@@@ ?9@@@ !H/,0@@@/^@@@H______NES ROUTIAB@@@F)@I[EK0K^[]^*>G]+O0@@@@@PQ )@@G@@@@@ !I@@@@@ @@@ !I@@@@@E/,0@@@/@@@@T/G@@@T[@@ ?*G/@__"AC@@@F)@R[E()-))+]PR )@@G@@)*SC]@@@@@@@/@@@[[/C@@[[D@@ ?*[@?@@[C@)@@@;@@@@+C@@@@[@[I !R@@@ ?*AD@@@FPS )@@G@@)@)[N#@^G@K0K0K0@@;@@@@+C@@ ?%[#) ?%N#) !,R/K@@^C_)@@[[@@ !,[@@@[JG/@__"PT )@@G@@C@@ ?*AE@@@F)@%[MK0YO @K^ [K^@/^@@@./C@@@4H@[@@^C@[@@@/^@@@./C@@@0H@[@@#PU )@@G@@C@[J_"[@@ !\G/@@@[AF@@@F)@4[F#[#@YOG^ 9KO@@@@@@@8NK@@7[@])@][@+J_.C@+@@]PV )@@G@@[@@ ??C@]J_.N_K@@#Q@) !\R@) !JAG@@@F)@.@+^[@@@@@>?.@K@)[[@N]C()@@@@@@ !KPW )@@G@@/,0@@@______& 8N0@@=8N)@@$G_)@@[O/K@@^AH@@@F)[#@M()O0@@@>?_@8@@@@@@@PX )@@G@@& MERGEDS ARE OUTINEWING R FOLLO THE@@@ ?.@@@ !LAI@@@F>!A@C@)[ @:#PY )@@G@@[]C()O0ES@@@>!B@K@______& @@@ ?_@@@ !H@@@ !M/,0@@@@[& !R______AJ@@@FPZ )@@G@@)[E[F#[]C()O0ESCSCC@@@@@R/)@@^G/@__"C@@@@[@[* !R@@@ !B@@@ !H@@@ !M/,0@@@QA )@@G@@@[$ !RAK@@@F)[N[EKO @KB>@K[EKOG^@()O0EEA]@@@@@@N@0@[\@[2 !RQD )@@G@@@@@@@[@@@ ?!@@@@@@/,0@A1[@@ ?!W@@@@[;O@@@=AN@@@F)[,[F@K0K0K0K0K0K0K0K0@@QE )@@G@@N#K !6N#) !5N#0 !4R@) !3R@K !29\) !0R]0 !S@[3 !R/K@@[0AO@@@F)[7@F#@@@@@@QF )@@G@@>!P@)@@@@@@@)[8@N#[])@@@/K@@@@/K@P!P@[3@@#MRG8 @@@@@@@@F@@[*4@P!PAP@@@FQG )@@G@@)['@;#[#[#[#[#[#[#@@@@@@>?,@C@Z/////^#K !6^#) !5^#0 !4A@) !3A@K !29:) !0QH )@@G@@AA0 !SAQ@@@F)][[N@@K0@K0@@@@@@[@)@[JR@K !TC_)@@[G/)__"C@)@@@[@@ ?\T/@@@WQI )@@G@@G/@__"C@@@@@/K@@DRAR@@@F)]F[N#@^G^G^@()@@@@@@@@@@@@@@@@@@@@@@@@ ?(/,0@DFQJ )@@G@@ @[>@K>@@@/,0@@@^^K@^CN8MJ_"R@) !9QX )@@G@@@]U !&@@@ !U@@@@^@@@@ !L/,0@@@BE@@@F)^B[E()) G^G[@K>ESC@@@@@@@@@^J@@@ !WQY )@@G@@/,0@@@^^K@^JN8L@@B@]V !&@@@ !U@@@@^C@@@ !VBF@@@F)^K[E()-)C]^(N[@ES G@@@@QZ )@@G@@@@@ !Z@@@ !Y@@@@^Q@@@ !X/,0@@@^^K@^QN8L@@]@]W !&@@@ !IBG@@@F)^T[E()-)C]^RA )@@G@@(N[@ESCS@@@@@]Y !&@@@ !U@@@@^Z@@@ !)/,0@@@^^K@^ZN8L@@C@]X !&@@@ !LBH@@@FRB )@@G@@)^+[N#@[#@K0^G@@@@Q@)@@IR@) !-C_)@@[G@) !'G/)@@[C@) !;W/@@@I;O@@@=G/@__"RC )@@G@@C@@ ?3BI@@@F)^?[EK0K0K0^G[#[@@@@@@@@/C@@^8H@@ ?5C/@@@I[@@ ?5G/@@@[H@@ ?%RD )@@G@@C@@ ?3[#) ?%[@@@[JBJ@@@F)^5[F@^G[@K!D@K@) [@V#[]S()@@@@ !HRF )@@G@@/,0@@@@]> !&______& @@@ !<@@@ ?5@@@ !UBL@@@F) ^[E()-)C]A]A@-)-)@@@@@RG )@@G@@C@@ ?0[@[ !F@K@)AW@F#@@@@@@@]' !&______& @@@ !!=@)@@@@@@@)A\@<#[]-#[#RU )@@G@@@@@@@@9() !/AA0 !$/K@@@@/K@P!=@]"@@]DMMG @@@@@@@@F@@^BY@@@F)A3[F#[#[#[#RV )@@G@@[#@K^[@@@@@@[^@@ =[^@@#X[^@@]MC8FK@@^#0 ,^A@) ,#A@K ,]9:) ,@9%@ !"BZ@@@FRW )@@G@@)A/[N#@K^[@K^[@K^@[^@@#M[^@@#H[^@@]N[^@@#Y[^@@]X[^@@]][^@@ Z[^@@]HC8FK@[RX )@@G@@[@@ !7CA@@@F)BA[N@K^[@^[@K^[@@[^@@]A[^@@ &[^@@]Z[^@@#Z[^@@]OC8FK@][^@@#?RY )@@G@@[^@@ ![^@@ >[^@@]VCB@@@F)BK[N@K0^G@K0^G^G@[@) ,B[@@ ,A;[@@@+C[@ , G/)__!%@)@@@@@@@)DD@<#[]-#[#@@@@@@9() ,HSO )@@G@@AA0 !!/K@@@@/K@P!%@#T@@]BUFIL @@@@@@@@F@@ CP@@@F)DH[F#[#[#@K0^G[#@@@@@@@SP )@@G@@[@K ,FC@VK@][@@ ,DC8FK@[[@K , C@VK@@^#0 ,LA@) ,KA@K ,JCQ@@@F)DQ@N@K@@@@@SQ )@@G@@>!H@8@@@@@@@@@@@@F@@@@@#@@@@@[@@@@@_@@[@@@@@@@@^_____"/K@@@@/K@@BLCR@@@FSR )@@G@@>!O@C@>!T[C@@@@@@@@@I@@@@@@@@=@@@@@ @@@@@]@@@@@N@@@@@J@@@@@C@@@@@A@@]@@]SS )@@G@@@@@@@GCS@@@F>!+@K@>!*@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WST )@@G@@@@W@@@@@@@@@@@@@@:CT@@@F@@^@@#@@B@@D@@T@@[@@X@@[@@^ ,M@C@@DS@@@@NDHDG SU )@@G@@ MOVER OPAP OPAFP MRGHD OPAF OPA SV )@@G@@ OBTAN8 NERR3$ MRG8 @@[@@@@@@@['@@@@@@ ^@@@C@SW )@@G@@@]@@@@@@@CIK@@@CKG@@@CK0@@@CK?@@@CJG@@@CIC@@@CI@@@@CKC@@@CI^@@@CL?@@@CJ4SX )@@G@@@@@CKW@@@CM@@@@CK=@@@CL4@@@CIO@@@CIG@@@CI*@@@CKS@@@CK/@@@CIS@@@@@@@@@@@@SY )@@G@@)@@[]K0@^G@^G@]&@]^@]^@C@@@@@@/,0@@@/,0@@@C8@@@@A]0@@G[^)@@@C^:@@@[?K@@@SZ )@@G@@C@VK@[AA@@@@)@C[F#@@^G@^G@@K0@K0@@@@R#@@@0A#@@@KR;@@@@/KF@@]'^@@@M[@@@@KTA )@@G@@C@FK@@/KF@@#R]0@@GAB@@@@)@L[F#@[#@[#@[#@@^G@[#@@C0@@@[/KF@@][0@@@@C4FK@@TB )@@G@@/KF@@[A#@@@SR#@@@1'^@@@MA#@@@SAC@@@@)@U[MK0@@K0@K@@@@@R;0@@#O'0@@[C[FK@@TC )@@G@@/K@@@(CF@@#[@@@@IC@FK@]&9@@@[R F@@[A[K@@FA[@@@EAK@@@@)[<[F#@[@@K0TL )@@G@@@^G@^G@@@@@@(@@@@JA]0@@GO'0@@][@@@@JC@FK@^P9K@@[R[VK@#/K@@[: @@@@JAL@@@@TM )@@G@@)[?[#@K0@K]&@]^@2@-)@-@I@@@@@@/,0@@@D@@@@J/K@@[4/,0@@@C8@@@U/GK@[2C@K@@JTN )@@G@@/K@@[4AM@@@@)[4[F#@[#@[@^@K)AK@@@@@@R#^)@@/K@@]A/,0@@@R;^)@@/K@@[_?8@@@]TO )@@G@@/@@@[/R#@@@HC@K@@IAN@@@@)[.[F]@-@^@K)DK[]@*@@@@@/,0@@@C@^)@@8#K@[_/,0@@@TP )@@G@@C8@@@ /K@@]^?8K@@H/K@@]A/,0@@@AO@@@@)]A@;@K)[K0@K0@K0@K0@@@@)@@@C@@&Q@@@TQ )@@G@@/KF@@^R]0@@G'^@@@MR[K@@FR[@@@E/,0@@@8[K@[:AP@@@@)@[[S@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@AQ@@@@)@G[S@@K^[@@TS )@@G@@;*K@@GC@K@@@/G@@@MC@@@@K/K@@@@_____"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR@@@@TT )@@G@@)@R[KK)#K@@@@@@@@@ /K@@@M'=@@@@TU )@@G@@;?@@@SAS@@@@)@-[S@@@@@@@ TV )@@G@@ AT@@@@)@?@0@K)]K)#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'=@@@@TW )@@G@@'=@@@@ AU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@F@@W@@L@[)@@@TY )@@G@@@@@@@2@@@@]HEDIT$ EDITX$ PUNCH$ PRINT$ EDITR$ TZ )@@G@@EMSG$ ECOPY$ ESKIP$ EDECF$ ECHAR$ EOCTF$ UA )@@G@@OPRIME @@[@@@@@@@@@OPRINT @@[@@@@@@@@EOPUNCH @@[@@@@@@@@IUB )@@G@@OPCHAR @@[@@@@@@@@QOPCOL @@[@@@@@@@@TOPAF @@[@@@@@@@@ZUC )@@G@@OPAFP @@[@@@@@@@@-OPA @@[@@@@@@@@>OPAP @@[@@@@@@@@$UD )@@G@@OPO @@[@@@@@@@@:OPOP @@[@@@@@@@@!OPI @@[@@@@@@@@1UE )@@G@@OPIP @@[@@@@@@@@3OPK @@@@@@@@@@@@OPFLG @@@@@@@@@@@KUF )@@G@@OPRNT @@@@@@@@@@@MOPBLK @@@@@@@@@@@UC@0^>O;?.@@@;@.@@@/K@K(2UG )@@G@@R;FK@[R#G@@@%8@@@#/K@@%DA3E@[=/KF@@]R;@^%.R;)@@](^G@@[/KF@@]R;VK@@R;;K@[UH )@@G@@)@@[KK[@^[@K)@@@@@@@@@@@/KF@@^'=@@@@C@@@@D[^@@@DC@F@@][?@@@DC@FK@[[W@@@DUI )@@G@@C@FK@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@[@@ @@[@@B@@[@@F@@@@@@@@EPRINT$ PRINT UK )@@G@@ @@@@@@@@@@@@;*/@@@G@@@@H;C/@@@R#K^(./@K@%.R#@@@J/KF@@^R#VK@^R#:K@ UL )@@G@@!@)@@H/K@@:^R#@@@HR#K@@IR#)@@GC[FK@#R;@@@/,0@@@UX )@@G@@@[%@[6______ & AJ@@@F)[A[E()ES@()K0C]A@K0@@@@[@@@@+C@[@@@R@K@["/K@@]ZUY )@@G@@@[?@[6@@@@[=@@@@@@@@@@[$@@@@[&AK@@@F)[J[EK0 G-NCO2CS^G@-)@@@[2)@@>C")@@KUZ )@@G@@ @@@@> @@@@=C'@@S+C9)@P]C9@@P][@)@@@@@@[*/,0@@@VF )@@G@@@[_@[6______.& T READ CANNOAQ@@@F)[;[E()ES^[@ES^G]A[]AO0@@@@@[-/,0@@@VG )@@G@@[@@@@7@]]@[6@@@@[(/,0@^X/K@@]Z@]@@[6@@@@[#AR@@@F)]^@E(<@@@@@)[B@)@@@@@@@VH )@@G@@)] @N#@-#@@@/,0@@@@]#@[6______ATUS=&ROR STBSP ER@@@@@@AS@@@F)]B[]()ES^G]VI )@@G@@^)()ES]&@()@@@@@@@@@@@[:@@@@@7@@@@[%@@@@[*/,0@@@@]^@[6@@@@[B@@@@[+AT@@@FVJ )@@G@@)]J@:#@)CK2&@(<@@@)[F@S@@@@@@@EDURE N PROCFORTRA@@@@@@@@@@[-/,0@@@/K@@]ZVK )@@G@@@] @[6AU@@@F)[I@*@@@@@@@)]O@V#@-#ES@@@@@@@@@@@[+/,0@@@@]B@[6______LE=& VL )@@G@@TY. FIIS EMPTABLE AV@@@F)]R[]()K0CLM&@()]&[#@@@@@@@@@@@]D@[6@@@@[=@@@@@@VM )@@G@@@@@@[?@@@@[&/,0@@@@]C@[6@@@@[FAW@@@F)[N@K@)]Z@;]IO0 G[N@-)^@N@0@]$C8)@@^VN )@@G@@@]E@[6@@@@[N@@@@[-@@@@[*/,0@@@______ &AX@@@F)]&[F@K0CMM&@()]&@()K0@@VO )@@G@@@]I@[6@@@@[,@@@@[(@@@@@@@@@@[!@@@@[!/,0@@@@]F@[6/K@@#9AY@@@F)]\[F#@)CS^GVP )@@G@@]^*()K^[#@@@@]L@[6/K@@#3/K@@# @@@@@+/,0@@@[^@@@%C@@@[_/K@@]3*^@@@%AZ@@@FVQ )@@G@@)]8[F#@-)K^[#@)C@-)@@@@@H@@@[\C@[@@@/^@@]*/C@@]_D*@@@?/^@@]*/C@@]/D4@@@?VR )@@G@@R@K@[_BA@@@F)#[[F@K^[#@-)K0CS^[@@@@@N@0@#F/K@@#G*@@@@7[@@@@7C4@@@>@]S@[6VS )@@G@@/K@@#.N@0@#^/@@@#3BB@@@F)#E@:@K0CK2&@(<@@@)[P@S@@@@@@@TATUS=ROR. SI-O ERVT )@@G@@@@@@@@@@@@[-/,0@@@@]V@[6/K@@#.BC@@@F)[S@K@)#J@3#@-#ES]&[#@-F@@@@@@/,0@@@VU )@@G@@@]X@[6@@@@[P@@@@[+/,0@@@@]W@[6______& BD@@@F)#P@U()ES]&@)[U@K@)#S@V#VV )@@G@@@-#ES@@@@@[1/,0@@@@]Y@[6______FILE=&@@@@[&@@@@@7@@@@[0BE@@@F)#V@2()K0CL]VW )@@G@@&@ES@@)[W@S@______URE=& PROCED@@@@[=@@@@@@@@@@[2/,0@@@@]Z@[6@@@@[UBF@@@FVX )@@G@@)#-[E()K->G[N@-)K+>G[N@@@@@@@@@@@@[3@@@@[&/,0@@@@]-@[6@@@@[W@@@@[$/,0@@@VY )@@G@@@])@[6BG@@@F)#%@E()@@@@@)[Z@K@)#:@<#@-BES]&@@@@@@@@@[-@@@@[*/,0@@@@]+@[6VZ )@@G@@______ &@@@@[=BH@@@F)#\[E()K0CNOG]^0()K0C]@@/K@@#.N@0@#8@]>@[6@@@@@+WA )@@G@@/,0@@@@]=@[6'^@@@@@]<@[6@@@@[ZBI@@@F)#8[F#@-)K$]A[#@-)K0CS@@9,)@]^9,@@]]WB )@@G@@9!)@]@R]0@[7[^)@[4H8)@@[/K@@@@!^)@[4@]&@[6BJ@@@F)^[@<#@-)K0CS@@@@@)[4@)@WC )@@G@@@@@@@@@]&@@#PROCIT@@@@@@@@F@@@*4@K[4R@K@]E9\)@]C9\@@]ABK@@@F)^ [##@-JK0CWD )@@G@@S^G]A[#@-)@@@@@@@@9:@@]A9%)@]^9%@@]]9()@]@[^@@[4AA0@[7/K@@@@/K@K[4BL@@@FWE )@@G@@)^H[N#@-)[@K[@K^@@N@0@^S/K@@^:/\K@^BC8@@@]/K@@^Z/\K@^BC8@@@ /KH@@@A@K@]EWF )@@G@@9:)@]CBM@@@F)^R@<@K0CS^G@@@@@@)[8@)@@@@@@@@]%@@#DUMMY @@@@@@@@F@@]*4@K[8WG )@@G@@R]0@[;@]%@['/K@@^TBN@@@F)^V[F#@-JK0C@-)^[@@@@@@@[^@@[C[^@@#ZC8FK@[[@@@["WH )@@G@@C8FK@@/K@@^QAA0@[;/K@@@@/K@K[8BO@@@F)^=[N@^[@K^G]@C]A@[@@@[_[^@@]:C8FK@@WI )@@G@@/K@@@@[@@@[.[^@@@"[^@@[5[^@@#(C8FK@][^@@]WBP@@@F)^,@F@@@@@@@)[-[@@@@@@@@WJ )@@G@@@@@@@]@@@@[@@@@@@#@@@@@!@@@@@G@@@@@Z@@@@@O_____"/K@@]*BQ@@@F)[([S@@@@@@@WK )@@G@@@@@@[D@@@@@2@@@@@?@@@@@$ END @@@@@I@@@@@@@@@@@/@@@@@H@@@@@&@@@@@[BR@@@FWL )@@G@@@@^@@ @@D@@K@@(@@]@@1@@#@@ @]F@C@@^\@@@@@@@@@@[(@@@@W#IRFTI IRPFPTWM )@@G@@ IFPTIS OPA OPAF OPAFP ISDFIO OPAP WN )@@G@@ OPOP MOVER ISDFI OPI ISDFIC NERR6$WO )@@G@@ NERR4$ NERR3$ PROCIT @@[@@@@@@@^KPROCRD @@[@@@WP )@@G@@@@@@^N@@@@@@ ^@@@C@@]@@@@MSG ]@@@C@@#@@@@E8ARY ]@@@C@WQ )@@G@@@^@@@@@@@@@@@@@@@@@@@@@@$$#@@@-$#@@@@$#@@@@@@@@@@@@@@@@@@@@@$-#@@@--#@@@WR )@@G@@@-#@@@@@@@@@@@@@@@@@@@@@$@#@@@-@#@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@)@@@Y0@@@@@@)@B@60@@@@@@ONG.& TOO LTEMENTOW-STAOVERFLARRAY *****&ERROR WT )@@G@@***** AA@@@F)@I[Q0@@@@@@@@@@@@EGAL.&LE ILLVARIAB.& EFINED NOT DTEMENTWU )@@G@@IC STAITHMETNON-ARAB@@@F)@W@,0@@@@@@)@<@&0@@@@@@LLEGALMBER IENT NUSTATEMWV )@@G@@RD.& HAN CANGER TIST LODATA LAC@@@F)@$@I0)@%@60@@@@@@)@1@Q0TEMENTIF STAWW )@@G@@.& LLEGALTION IOMBINAHESE CPARENT.& AD@@@F)@3@Q0)@8@60@@@@@@)@_@I0WX )@@G@@WORD T& TIONS.F FUNCTING OIN NESERROR AL& ILLEGAE@@@F)[@@Q0)[A@&0WY )@@G@@@@@@@@)[H@Q0@@@@@@HT PARNO RIG& LONG.LE TOOVARIABG.& OO LONAF@@@FWZ )@@G@@)[J@Q0)[O@,0@@@@@@)[V@Q0ED LENEXCEEDPT.& UBSCRITING SIN GETERROR ES.& XA )@@G@@ENTHESAG@@@F)[X@Y0@@@@@@)[+@&0@@@@@@)@@@E@C/@@@[BLE.& IN TALE NOTVARIABXB )@@G@@DATA.& CARD GHT OFAH@@@F)@[[U@@@@@@@ @@@@I1@@@@K*@@@@KG.@__"C[FK@@C/)@@[XC )@@G@@ @@@@G1@@@@I*@@@@IH@:K@@C/)@@IAI@@@F)@G[EK^C G H*SK0@@@@@@@@G/@@@[T/@@@BXD )@@G@@C@@@@J@[:@@H@@@@@@@@@@@A/,0@@@/=K@[L)@@@@IAJ@@@F)@P[F#]AB!*]^M&]&^[#@@@@XE )@@G@@@[!@@H@@@@@W@@@@@C@@@@@B/,0@@@^^K@@WN8LJ_"R@K@@@[@@@@@AK@@@F)@Y[N#+@)CSKXF )@@G@@0-0[#@A@K@@][@)@[JR/K@@[G/)__"C@)@@@[@@@@[C@@@@D/@@@[L/C@@[LD@@@@@AL@@@FXG )@@G@@)@*[F#+A^G@--@K^D@@@@@@@/,0@@@/^0@@7/G0@@0[@0@@#W/)@]];O)@@=C@)@@][4@@@[XH )@@G@@C@[@@]AM@@@F)@1[E()()()(-#]@CSK@@@@@/^@@[@H@@@@#C/@@@[/K@@[ @[8@@H@@@@@BXI )@@G@@@@@@@[@@@@@E@@@@@BAN@@@F)@'[F]TN[N[N]A^[]TN[N@@@@@@@@[@@@@@#/,0@@@/K@@[ XJ )@@G@@@[/@@H@@@@@B@@@@@[@@@@@A/,0@@@AO@@@F)[#@%(-#@)CS@@@@@@)@^@K@@@@@@@@@@@@@XK )@@G@@______ & (@@@@#8N0@@$O/K@@[@["@@H@@@@@BAP@@@F)[C[F@^GCSK+O0-)(-#@@@@@XL )@@G@@@]#@@H@@@@@^@@@@@K@@@@@B/,0@@@[@@@@KG@@@@#C/@@@[/K@@[LAQ@@@F)[L[F]+A^[@KXM )@@G@@0--#]A^G@@@@*4@K@FN#0@@MR@K@@LR]0@@I@]A@@H/K@@[QN@0@[P@] @@H/,0@@@AR@@@FXN )@@G@@)@F@)@@@@@@@)[U@<#] OGCS@@@@@@A@K@@LAA0@@I/K@@@@/K@K@F@]A@@#PRTERR@@@@@@XO )@@G@@@@F@@]AS@@@F)[Y@<#@--@@@)@A@*@@@@@@@@@@@]] @@@@@O@@@@@[_____"/K@@@@XP )@@G@@[@K@@JC@VK@@^#0@@MAT@@@F@@^@@ @@D@@A@@P@@[@@T@@#@@#@@N@C@@[+@@@@@@@@@@[(XQ )@@G@@@@@@W#OPA OPAP OPAFP OPAF ERROR8 NERR3$XR )@@G@@ PRTERR @@[@@@@@@@[W@@@@@@ ^@@@C@@]@@@@MSG ]@@@C@XS )@@G@@@#@@@@E8ARY ]@@@C@@^@@@@@@@CJ=@@@CI@@@@CIC@Q[@@@KQ[@@@QQ[@@@&Q[@@@XT )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@)@@[EK0@K0@K0@[@K0@@@@@@9?FK@[A]0@@V/K@@@Q?8@@@AC4FK@[ @@@@V9*@@@F9*@@@@XV )@@G@@9?FK@@AA@@@@)@D[F#@@K0@K0@K0@ES@CK@@*@@@@I[@:K@A'=@@@@C8@@@F[@@@@KC@@@@RXW )@@G@@9*@@@L9?FK@]9*@@@HAB@@@@)@M[EK0@K0@K^G@[#@@K0@@@[^@@@AC@F@@^[C@@@AC@F@@#XX )@@G@@ @@@@ /K@@@R[@@@@ C@@@@P/KFK@BAC@@@@)@V[E[#@@K0@K0@ES@CK@)@@/,0@@@C8@@@@XY )@@G@@A]0@@S[C@@@^T8@@@W[C@@@BW8@@@W;G@@@=C@FK@ AD@@@@)@=[N@K0@^G@@[#@@@C@VK@[XZ )@@G@@[^@@@CC@F@@@/KFK@B[[VK@AG9K@[@R]0@@S/KF@@DR]0@@S/K@@@$AE@@@@)@,[N#@[@K@@YA )@@G@@K^G@@@A]0@@T8#K@@59*?)@@;G)@[C&;@@@]H8K@@[;CK@@[/GK@@7/@K@@7[^K@@BAF@@@@YB )@@G@@)@8[]()@-@^)C]A@]A@]@-)@@@@@@@(@@@@V/^@@@:C4@@@ER]0@@T/K@@[^/K@@@$/,0@@@YC )@@G@@C8@@@@AG@@@@)[@[EK0@K[#@@K0@ES@CK[)@/,0@@@C8@@@@A]0@@T/KFK@]R]0@@T/KF@@^YD )@@G@@/K@@@:**@@@E/KF@@^AH@@@@)[D@N#@@@@@@)@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@/KF@@[R]0@@TAI@@@@)@B[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@AJ@@@@)@M[K@@@@@@@@@@@@@@@@@@@YG )@@G@@ @@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@@^@@]@@A@@^@@I@@#@@U@@@@@@@@W@@@@[FPFS$ SDFIO SDFI YJ )@@G@@SDFIC RDS1 @@[@@@@@@@@@RDS2 @@[@@@@@@@@:RDS3 YK )@@G@@@@[@@@@@@@[A9!G@@@C80@@ )@@[#[KOG[= #@SK0AK0A@@@@@@@@@ @@@@] @@@@[;H@@[CYL )@@G@@ @J@@#O#0@[ R#0@@@9()@[B9?@@[ AA@@@@)@C[N#@T[^[@K[[@@@ @@@@MK[)@@GC[)@[DYM )@@G@@/K@@@@/K@@[P'^@@@I/K@@[Y!@@@@J/KIK@^R@@@@@>@@@@@>@@@@@>@@@@@Z@@@@@<@@@@@ZAV@@@@ZK )@@G@@)@8@//S@JA@#1)@/S@JA@#1)@/S@@@@@@@@@@@@@@4@@@@@>@@@@@>@@@@@>@@@@@>@@@@@>ZL )@@G@@@@@@@>AW@@@@)@_[^/S@JA@#1)@/S@JA@#1)@@@@@@@@[@@@@@[@@@@@@@@E@@@@@Z@@@@@ZZM )@@G@@@@@@@<@@@@@<@@@@[SAX@@@@)[D@W@)@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@[@@@@@[@@ @@@@@O@@@@@H__"__"AY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@B@@F@@@@@F@@]@@N@@[ZP )@@G@@@@@@@]@@@@]^@@@@[G)@@@@@)@@@@@)@@@@@@@@@W#SQUASH @@[@@@@@@@@@MULTY ZQ )@@G@@ @@[@@@@@@@[&E8ARY ]@@@@@@A@@@@R@K FKN_0@@#C@[ GJ"C@ FE[@[ GNZR )@@G@@=?+@*@@@@@@@=%A@)@@@@@@@ IF(L) DO ******** FCTN DMVR ZS )@@G@@ AA@@@F=%E[S@@@@@@@FCT RE CALL ) GOTO(C) GOTO(AC) ZT )@@G@@GOTO(U IF(A) AB@@@F=%P[S@@@@@@@ INPUT TAPES ASSIGNZU )@@G@@S) RTRN(N) RTRN(SF AC@@@F=%)[S@@@@@@@ERPRINY DISPLA ZV )@@G@@ACCEPT STOP OG SUB PR OUTPUTAD@@@F=%:[S@@@@@@@NT ARGUMEZW )@@G@@ER REGISTTE GENERAE REPLAC REPEATT AE@@@F=%6[S@@@@@@@ZX )@@G@@FILE BUFFER ABORT TF ASM$INR MONITONT ALTPRIAF@@@FZY )@@G@@=:[[S@@@@@@@ NEXT NAME LABELS JUMP FY IDENTIZZ )@@G@@ AG@@@F=:G[@@@@@@@@)@@@F]@@@@@@/,0@@@ WRITE UNIQUE AA )@@G@@SCAN READ AH@@@F)@[[]()ES]&@()ES^G]^@()@@@@@@@@@@^!V/,0@@@@[S^!4AB )@@G@@@@@^!X@@@^!W@@@^:O@@@^!V@@@^!VAI@@@F)@D[]()ES]&@()K0CK]&@()@@@@@@@@@@^!VAC )@@G@@@@@^!V/,0@@@@[T^!4@@@^!Y@@@^!W@@@^:\@@@^!VAJ@@@F)@L[]()ES]&[#@-@ES]&@()@AD )@@G@@@@@@@@@@@@")@@@^!V@@@^!V/,0@@@@[U^!4@@@^!Z@@@^!W@@@@ZKAK@@@F)@T[E()ES^G@AE )@@G@@-)^G]A[#@@@@ @@^?% @@^?([@)^?*C/)@@[[@@^?$C/@#%S@[V^!4@@@^!)@@@^!WAL@@@FAF )@@G@@)@+[F#@-)K0C]@-)^G]^^@@@/,0@@@[@@^?,C4@@@@@[<^!4/K@@EQN@0@@$ @@^?! @@^??AG )@@G@@ @@^?:AM@@@F)@:[E()K^[#@->^[@K@@@@@@N@0@@5/^@@@6/C@@@3H@@@@@C@@@@^@[$^!4AH )@@G@@/K@@[;/K@@@\@@@^?,AN@@@F)@4[F@K0C]@) G]A@K0@@@@@G@@^?0C/@@@[@[%^!4@@@^:OAI )@@G@@/K@@[;/K@@[H/,0@J<@[(^!4/K@@EQAO@@@F)@.[F#@-)[#@-)K^G]A@@@@@C@)^?$ @[@_3AJ )@@G@@8N0@[[[@])_?C@@^?+N_0@@ Q@)@@GR@)^!-R@K^?0AP@@@F)[A[F#@-)^G]A@K0CS@@@@@@AK )@@G@@G@@@@@C@@^,P[[)^?%C.)@@[[[@^?*G[@^?*C.@@@D @[@_5[@-@_4AQ@@@F)[J[F#@-)K0CAL )@@G@@]@) G]A[#@@@R@K^?0@[6^!4@@@^?1@@@@[O/,0@H^^^K@[ON8M@_5R@)^?0[@@^?1AR@@@FAM )@@G@@)[S[F#@)CS^G]@]@-)@@@@@@R@)^?0/@@@[*H@@@@@C/@@@]/K@@[*[@[@_2C@@^,Q/K@@[XAN )@@G@@(@@^,QAS@@@F)[-[F#@-)K^G]A@^G]A@@@@@(@@^,RR@K^?0[@)@@@C/)__/[@]@_2C@@^?=AO )@@G@@/@@@[*H@@^?R@)^?0/K@@[;[@-@_3G@)^?,C/)@@[[@]@_!AV@@@F)[/[N@K0@-)^G]A@K@/@@@]FAR )@@G@@G/@__'C@@^?,[@@^?,C4@@@@[#)^?2N_0@@ C_)@@@@]E^!4/K@@EQAW@@@F)]A[F]^O0C]@AS )@@G@@-)^[@K@@@@@@/K@@]W/,0@J<8N0@]@G_)@@A@]N^!4/K@@]:/K@@]F@@@^?,/,0@@@AX@@@FAT )@@G@@)]J[F@ES^G]A[#@-)K0CS@@@C/)@@# @[@_\[@[@_,C@@^?$ @[@_!R@K^?0@]Q^!4@@@^:\AU )@@G@@/K@@]:AY@@@F)]S[F#@-)^G]A@K0CS^G@@@@N8M@_\R@)^?0[@@^?3G@@@@@C@@^,P[[@^?:AV )@@G@@C.@@@[[@)^?*G@)^?*AZ@@@F)]-[F@K^@()K0CS^G]@@@@@@C@@@@@/K@@]:(@@^,QR@K^?0AW )@@G@@@]X^!4@@@^?3@@@@]^!4BC@@@F)].[N@K@()[@AZ )@@G@@K[#@@@[@@^??C/@@@[/@@@#B/C@@#BH@@@@@C/@@@K@](^!4@@@@@@@@@@]"/,0@H^BD@@@FBA )@@G@@)#B[M^[@^G]@)CS^G@(@@^?%@],^!4/K@@EQN@0@#J[@@^?!C/@@@[/@@@#H/C@@#HH@@@@@BB )@@G@@C/@@@VBE@@@F)#L[N@K2*TK[#E@@@@1@@@@K*@@@@KD[@@@BC/@@@[ @@@@I*@@@@GC/)@@[BC )@@G@@G@@@@HC@@@@I/K@@A-BF@@@F)#V[E^[#E->K2*TL@@@@@@@@/@@@#=G/@__;G@@@@DG@@@@CBD )@@G@@G@@@@AC@@@@B/=0@A-+@)@@G @@@@GBG@@@F)#=[F#E->^[]A-)K0CS@@@@@R/)@@][@@^?4BE )@@G@@C@@^:O@]7^!4/,0@@@/K@@#%*@@@@GG@@@@BC@@@@EBH@@@F)#![EK0CS^G]@)CS^G]A@@@@BF )@@G@@[@@^?6C^[@ZJR@K^?\/@@@AO/G@@AO[@@^?\C@@^?4A@)^?5N_0@@TBI@@@F)#6[F#@-)K0CBG )@@G@@S^G@CS^G@@@@(@@^?7A@K^?9N_)@B3R/K@@[[@)^?8C@)^?+[@@^?7C@[@_4R@K^?6BJ@@@FBH )@@G@@)#_[F@K0CT^[#@)JT^[]C@@@/,0@@@^^K@^FN8LJ_"^^K@^CN8N@_!^^K@^EN8L@B3R@0^?7BI )@@G@@/K@@^)BK@@@F)^C[F@ES^[@K0JT^[]E)@@@@@@@@^K/,0@@@^^K@^KN8LJ_"@#B^!4@@@@^FBJ )@@G@@@@@@^E@@@^?7@@@@^CBL@@@F)^L[M**S^^B?)JT^G)C4[@B3[@LJ_";G@@@Y;)K@@YC@LJ_"BK )@@G@@;C@@@A;)@@@AC@@@M4@#C^!4@@@@M3BM@@@F)^V[F;CC]A[#@CS^G]A@@@@@C@)^?9[@@^?'BL )@@G@@G@@^?6C/@@@^[@@^?8C@@^?&8N)@#.O/K@@[[)[J_"BN@@@F)^=[MK0]A@K0CS@K0@[@@^?.BM )@@G@@;C@@@V;)@@@VC@#@_![#)^?/N_)@@^R@0^?6C_)@@@[@)^?;G/)__"BO@@@F)^,[N@^[@[@KBN )@@G@@0CTO@@/K@@ ][@@@ ^C@@^?+8N)@^(G_)@@[O/0@@[/G@@^_/@@@^_G/@_"V/@@@^8BP@@@FBO )@@G@@)^8[F#@-)K0C]A[#E)CS^G*@C@#@@QR@0^?./K@@ ][@@@ ^C@@^!BS@@@F) N[F#@-)K0C]^S()K]&@()@@@@^!%@@@^!(BS )@@G@@@@@@ T@@@^!*/,0@@@^^K@ TN8L@_!R@K^?6@#$^!4BT@@@F) W[E()K0CL+&@(>ES^G]A@@BT )@@G@@G/@__"C@@^?;@#(^!4@@@^!>@@@@ ^@@@^!:/,0@@@@#*^!4@@@^!WBU@@@F) >[M@K0CS^GBU )@@G@@@-)@@@C/@@@I[@@^?"G/@@@[H@@^?2C@@^?;A@0^?2[@@@[IR/0@@[W/@@@I;O@@@=BV@@@FBV )@@G@@) \[F#@)C@-)Y2C]^W()@@@@@@@^!W/,0@@@^^K@ 9N8NJ_"[@@^?"C/@@@I/@@@ 4/C@@ 4BW )@@G@@H@@^?"BW@@@F) 8@%()K]&@()ES@@@=!C@K@@@@@@@@@@@@@______& @@@^!V@@@^?"BX )@@G@@@@@^!>@@@@ 9@@@^!?BX@@@F) .[E()K= G[N@-)^[#E)@@@/C@@ADD@@@@I8N)@ (O/0@@IBY )@@G@@@#1^!4@@@^!C@@@^!=/,0@@@@#0^!4BY@@@F)AA[F@K^G]AP@K^[#@-)@@@@R@K^?\@#8^!4BZ )@@G@@/,0@L4/@@@AI/C@@AID@@@@H@#6^!4/,0@GZ/@@@ADBZ@@@F)AJ[F#@-)K0C]@-)K0]@@@@@CA )@@G@@8N0@#,O/)@@[[@@^?4C@]^:N/^@@#\/C@@AOD@@^?4[@@^?4CC[@ZJCA@@@F)AS[F#E)CTO[CB )@@G@@]MO1>G(LK0@@@^#^!4@@@@@@@@@@@J@@@@@#/,0@@@/K@@A-(@@@@J/K@@A-(@@@@ICB@@@FCC )@@G@@)A-[F#@)CTO[@K2*]^(#@@@@@^D^!4/,0@@@/K@@A%*@@@@E/^@@C+/C@@A&D@@@@C/K@@C+CD )@@G@@(@@^?:CC@@@F)A%[F#@-)[#@-)K0C]@@@@@@/@@@CY/G@@CY[@@^?\C@@^?4A@0^?5N_0@@1CE )@@G@@R/0@@][@@^?4C@@^:\CD@@@F)A3[F#@-)K0CS^G]A[#@-)@@R/K@@[[@)^?8C@)^?+[@@^?7CF )@@G@@C@]@_,R@)^?6[@@^?6C^[@ZJR@K^?\CE@@@F)A/[EK0CS^[#@-=K^G]@@@@@^^K@BCN8M@_!CG )@@G@@^^K@BEN8L@B3R@)^?7/K@@B)(@@^?7A@K^?9N_)@B3CF@@@F)B [F;C)CL^@()K^[#@.=@@@CH )@@G@@N8LJ_"@^T^!4@@@@BF@@@@BE@@@^?7@@@@BC/,0@@@^^K@BFN8LJ_"CG@@@F)BI[N@K+*[LKCI )@@G@@0CCJT@;)K@@YC@LJ_";C@@@A;)@@@AC@@@M4@^U^!4@@@@M3@@@@BK/,0@@@^^K@BKCH@@@FCJ )@@G@@)BS[EY2CTB?))CS^G]A@@@@@C@@^?9[@@^?8C@@^?&8N)@A.O/K@@[[)[J_"C4[@B3[@LJ_"CK )@@G@@;G@@@YCI@@@F)B-[EK0CSB?]@-AES^@()@@@@@@^!>@@@@B*@@@^!=/,0@@@^^K@B*N8MJ_"CL )@@G@@R@)^?\[@@^?;G/@__"CJ@@@F)B%[F#@-)K0C]^?()K]&[#@@@^+^!4@@@^!>@@@@B0@@@^!!CM )@@G@@/,0@@@^^K@B0N8L@_!R@K^?6@^-^!4CK@@@F)B3[F]GO0 G[N@-)K0@@@@@@R/)@@[;K@@@^CN )@@G@@G/@__"C@@^?;@^<^!4@@@^!>@@@^?8@@@^!,/,0@@@CL@@@F)B/[EK0CS^G@-)^G]@@@@@@@CO )@@G@@/C@@CCH@@^?"C/@@@K[@@^?"G/@@@[H@@^?2C@@^?;A@)^?2[@@@[ICM@@@F)C [F@^G#6L@CP )@@G@@K<>G[N@)@@@@@@@@CH@@@^!\@@@^!W/,0@@@^^K@CHN8MJ_"[@@^?"C/@@@K/@@@CCCN@@@FCQ )@@G@@)CI@U()ES]&@=!E@K@)CL@V#@-CES@@@@^!=/,0@@@@^%^!4______& @@@^!V@@@^?"CR )@@G@@@@@^!>CO@@@F)CO[E()K0]@-)K0CS^G]@@@@/C@@CYD@@^?4[@@^?4CC[@ZJR@K^?\8N)@B.CS )@@G@@O/)@@K@^:^!4@@@^!ECP@@@F)CX[F@K0CS[@K2*]@->@@@@@*@@@@E/^@@EN/C@@C>D@@@@DCT )@@G@@8N0@A,O/0@@[[@@^?4C@#^:,/^@@A\CQ@@@F)C&[F@K& G[N@-)@K0@@@@@@A@K^?\N_0@@&CU )@@G@@R/K@@[R/)@@]@^7^!4@@@^?!@@@^??/,0@@@/K@@C:CR@@@F)C\[MK0@CS@@@@@@@@+@@@@ICV )@@G@@ @@@@I1@@@@K*@@@@KH[@^?\C.@@@KC/)@@[ @@@@G*@@^??C/@@@[CS@@@F)C9[N@^G@]A@CW )@@G@@@@@@@@ @@@@I1@@@@K*@@@@KH[@^?\C.@@@VC/)@@[ @@@@G*@@^?!C/@@@[/=K@ENCT@@@FCX )@@G@@)D#[EK^G]A[#@-)[#@@@@@@@A@0^?9N_)@B3R/0@@[[@)^?8C@)^?+[@@^?7C@[@"Z/=K@ENCY )@@G@@+@@@@ICU@@@F)DG[F#@)CSB?+@-)K^C+@@@@@@@@DO/,0@@@^^K@DON8O@_!^^K@DRN8NJ_"CZ )@@G@@R[@^?7/K@@DX(@@^?7CV@@@F)DP[E()ES^[#@C]A[#@@@@@@C/@@@[[@@^?8C@@^?&8N)@DFDA )@@G@@O/0@@[@ A^!4@@@@DR@@@^?_@@@^?7CW@@@F)DY[F#@)CS[#@-AES]&@()@@@@@^!>@@@^?8DB )@@G@@@@@^!=/,0@@@[@@^?;G/@__"C@@^?9/@@@EKH@@^?9CX@@@F)D$[F#@-)K^C1N@) G]A[#@@DC )@@G@@C@@^?;@ I^!4@@@^!&@@@@D?@@@^!&/,0@@@^^K@D?N8M^%^@ H^!4CY@@@F)D0[MK0@CS^GDD )@@G@@]A@K0@[@@^?"G/@@@[H@@^?2C@@^?;A[@^?2[@@@[IR.@@@[;K@@@#S@@^!0G/@__"CZ@@@FDE )@@G@@)D'[EK0C]@CSB?+@-H@@@@@@/,0@@@^^K@E N8OJ_"[@@^?"C/@@@P/@@@E@/C@@E@H@@^?"DF )@@G@@C/@@@PDA@@@F)E#@2()ES^@()ES]&@=!G@K@@@@@@@______& @@@^!W@@@^?"@@@^!$DG )@@G@@@@@@E @@@^!1@@@^!WDB@@@F)ED[F#@-CES]&[#@C@@@@@@@O/K@@[O/)@@]8N)@D5O.@@@PDH )@@G@@@ Q^!4@@@^!G@@@^!=/,0@@@@ P^!4DC@@@F)EM[F@K^[#@-)K0CS^G]A@@@R@)^,XR@K^,WDI )@@G@@9\)^,U9!)^,SR]0^!5@ V^!4/K@@EQN@0@EP8N0@C,DD@@@F)EV@:#@-)K0CS^G@@@=!2@S@DJ )@@G@@@@@@@@TBL1 @@@@@@@@F@@@*4@O!2N#)^,-N#0^,)R[@^,ZR@0^,YDE@@@F=!5@C@)E)@;#DK )@@G@@@-MK0CS^G]A[#@@@@@A@K^,W9:)^,U9()^,S[^@^!2AA0^!5/K@@@@/K@O!2@ V@@]DF@@@FDL )@@G@@)E$[F#@-)K0CS^G@C]@@@@@@/K@@L9/\K@E+C8@@@[/KH@@@^#)^,-^#0^,)A[@^,ZA@0^,YDM )@@G@@A@)^,XDG@@@F)E0[MK^@K^@K^@@@@@C8@@@[/K@@M!/\K@E+C8@@@#/K@@MQ/\K@E+C8@@@ DN )@@G@@/K@@L'/\K@E+C8@@@BDH@@@F)E'[F@K^G]AP;@-<^G*@@@@@C.@@@[G@)@@JC/)@@[[@]@@#DO )@@G@@C@[J_"R@)@@JR@K^?\/K@@N@/\K@E+DI@@@F)F#[F#@-)^G@CS^GU@@@@@@@8N0@FD[@#)@#DP )@@G@@C@[)_?N_0@@ Q@0@@IR@0^!-Q@K@@KR@K^!-G[@^?6DJ@@@F)FG[F#E-K0C@@@DQ )@@G@@/K@@G @@^!@[[)@@JG[)@@JC.)@@W[[]@@FC[@^?;[@+@@EC@)@ ^DK@@@F)FP[EK2*S^G]DR )@@G@@A[#@-)K2*S@@A@K^,+R@0@@JR@K^!@[@)^?"H@)^!@C@)^?;[@@^![H@@@@JC/@@W@DL@@@FDS )@@G@@)FY[F#@-)K0C]@-)K0CS^GS@N8M@@#R@)^,<[@@^?"C@@^![/@@@F>/C@@F>H@@^?"C@@^![DT )@@G@@A@0^,G]@) G]^C()K@@@/K@@H%@@@^!^/,0@@@@AK^,#EJ )@@G@@/K@@HU/K@@H>@@@^!^/,0@@@/@@@HZEA@@@F)HX[N@K0]@C]@-)^G@H@@^!^C/@@@ @AO^,#EK )@@G@@/K@@JRN@0@H=C8)@@]8N0@HIG_)@@A@AL^,#/K@@H-EB@@@F)H$[F#@-)K[#@-)^G]A@@@@@EL )@@G@@S@)^,@H@)^?\C/)@@Y]@@^!^H@@^!^C/@@@\/K@@H5 @@^!#]@@^!^EC@@@F)H0[M^G@-)^GEM )@@G@@]A@K0@[@@^! C@[@@@O@K^!^O@K^,?R/K__"[@)^!#C/)@@[]@@^!^H@@@@IT/)@@EED@@@FEN )@@G@@)H'[F#@)C]A@Y0C]@)@@@@@@/K@@IL/G)@I7/@)@I#H@-J_"C@)@@@R@K^! /G@@I7/@@@I7EO )@@G@@ @@^!AEE@@@F)I#[F#@-)K0C]A[#@-)K^G@@C[@^,Q/[@@JNH[@^,QC[[@_2R@K^?0/=)@JNEP )@@G@@C@)^!#[@)^?0C^-@ZJEF@@@F)IG[F#@)CS^G]@]A[#@@@@@@R@K^! [#)^?4N_0@ZJC_)@@[EQ )@@G@@/ @@JNH[@^!+C[[@_2/[@@ILH[@^!+EG@@@F)IP[F#@-)K0CS^G]@)CS@@@@C@)@@@R@K^!AER )@@G@@/G@@J]/@@@J]C@@^!A[@@^!ACC[@ZJR@K^,!A@K^,!EH@@@F)IY[F;@)C]@-)K0CS^G]@@@@ES )@@G@@/=)@JNC@)^!#R@K^?0[@)^?0C^-@ZJ/K@@I0/G)@J]/@)@I+H@-J_"EI@@@F)I$[F#@-)K^GET )@@G@@]A[@K0CS^@@@/ @@JNH[@^!+C[[@_2/[@@I0H[@^!+C[@^,Q/[@@JNH[@^,QC[[@_2EJ@@@FEU )@@G@@)I0[F#@-)^[@ES^G@-)@@@@@G@@^?(C/@@@[@B]^,#@@@^!1/,0@KC8N0@ING_)@@[[@@^! EV )@@G@@C@@^!AEK@@@F)I9[F#@CS^G@-)K0CS^@@@@@/K@@JE[C-@ZJC@)^! R@K^?([@[@@@O@K^!^EW )@@G@@O@K^,?R/K__"[@@^?(EL@@@F)J][EK0CS^G]A[#@-)K0CS@@R@K^?([C]@ZJ[C-@ZJCC+@ZJEX )@@G@@R@)^! R@K^?([@@^?(G@@^?(C/@@@[EM@@@F)JF[EY0CS^G]A[@K^G@@@@@@C8)@@[@BH^,#EY )@@G@@/K@@JVN@0@JM[@)^?0[^-@ZJC@)^?*[@[J_"C@@@@@EN@@@F)JO[F@K^G]A[]&CS^G]A@@@@EZ )@@G@@9\)^,,R]0^,^[^)^,[H8)@@[/K@@@@!^)^,[@BI^,#/K@@JRN@0@JQEO@@@F)JX@<#@-)K0CFA )@@G@@S@@@@@=,[@)@@@@@@@@BI@@]LOCATE@@@@@@@@F@@@*4@O,[N#0^,2R@)^,1R@K^,0EP@@@FFB )@@G@@)J-[F#@-M^G]A[#@-)K0CS@@^#0^,2A@)^,1A@K^,09:)^,,[^@^,[AA0^,^C8@@@^/K@@@@FC )@@G@@/K@O,[EQ@@@F)J%@2K0C]^)()ET)@@=!I@S@OW NO.OVERFLTABLE @@@@@@@@@^!=/,0@@@FD )@@G@@/K@@HG[@@^,?C8FK@]ER@@@F=!L@K@)J0@3#@-CES]&[#@-F@@@@@@/,0@@@@BN^,E@@@^!IFE )@@G@@@@@^!1/,0@@@@BM^,E______=& ES@@@F)J6@U()]&@@@=!N@0@@@@@@@______.& FF )@@G@@ LARGE IS TOROGRAMDATA P@@@^!%@@@@@@@@@^, ET@@@F)J9[F#@-JES]&@()K0CO^G]@FG )@@G@@N@0@K#@BQ^,E/,0@@@@BP^,E@@@^!N@@@^,B@@@^,A/,0@@@@BO^,EEU@@@F)K]@<@K0CS^GFH )@@G@@@@@@@@=,C@)@@@@@@@@BR@@]OVFL8 @@@@@@@@F@@]*4@O,CR]0^,F@BR^,E/K@@K^EV@@@FFI )@@G@@)KA[F#@-MK0]@)CS[#E@@@@@H@@@@HC/@@@[R@K^?\/K@@J![^@@J7C8FK@@AA0^,F/K@@@@FJ )@@G@@/K@O,CEW@@@F)KJ[F@KB?]@-AES^@()K0@@@@BX^,N@@@^!>@@@@KP@@@^!=/,0@@@^^K@KPFK )@@G@@N8LJ_"/@@@K_/C@@K_EX@@@F)KS[#]GO0 G(N@-)K< G[NE@@@@@@@@@@@@]@@@^,G/,0@@@FL )@@G@@@BY^,N@@@^!*@@@@@@@@@^!&/,0@@@EY@@@F)K)@E()@@@@@=!T@K@)K-@<#@-CES]&@@@@@FM )@@G@@@@@^!T@@@^,H/,0@@@@BZ^,N______F & @@@^!*EZ@@@F)K>[E()K0CS^[]GO0C[N@-)@FN )@@G@@@B-^,N@@@^!$@@@@K:@@@^!?/,0@@@^^K@K:N8L@_2R@K^?6@B)^,NFA@@@F)K,[F#@-)K^CFO )@@G@@1N@) G[N@O0@@@@^!W@@@^!%@@@^!(@@@@K3@@@^,I/,0@@@^^K@K3N8L@_!R@K^?6FB@@@FFP )@@G@@)K7[##@-AES]&@()K0COOG@@@@@@@@@B=^,N/,0@@@@B<^,N@@@^!>@@@^?8@@@^,J/,0@@@FQ )@@G@@@B+^,NFC@@@F)K_[F#@CS@^G]A[;@@@@@@@@N8MJ_"R@)^?\A@K^!B[@@@[JR/K@@[;K@@@]FR )@@G@@S@@^,KG/@__"C@@^?;FD@@@F)LC[F@K< G]@O0CS^C1N@O2)@@@@@@@@@^!!/,0@@@@B*^,NFS )@@G@@@@@^!>@@@@LF@@@^!=/,0@@@^^K@LFFE@@@F)LL[E()K0CS^G@-)^G]@@@@@/C@@LXH@@^?"FT )@@G@@C/@@@E[@@^?"G/@@@[H@@^!BC@@^?;@B(^,N@@@^!>FF@@@F)LU[F@^G#6L@K< G]@O0@@@@FU )@@G@@@@@^!>@@@@L-@@@^!,/,0@@@^^K@L-N8LJ_"[@@^?"C/@@@E/@@@LXFG@@@F)L<[E()ES^G]FV )@@G@@ #@C]@)@@@@/K@@L!N@0@L?8N0@L O/K@@E@B,^,N/,0@@@@B!^,N@@@^!V@@@^?"FH@@@FFW )@@G@@)L?@3#@-)K0CS^G]A@=,L@S@PNCH @@@@@@@@F@@[*4@O,LN#0^,5R@)^,4R@K^,3R]0^,OFX )@@G@@@B1^,NFI@@@F=,O@C@)L2@;#@-MK0CS^G]A[@@@@@@/K@@KG^#0^,5A@)^,4A@K^,3AA0^,OFY )@@G@@/K@@@@/K@O,L@B1@@]FJ@@@F)L9[N@^[@^[@K^[@@@[^@@]\[^@@#][^@@IX[^@@JF[^@@H"FZ )@@G@@C8FK@[[^@@[Y[^@@[$C8FK@@/K@@@@FK@@@F)M#[N@K^[@K^@K^[@@[^@@]_[^@@]X[^@@@0GA )@@G@@C8FK@][^@@@*[^@@HJ[^@@#C[^@@][[^@@]5[^@@]'FL@@@F)MH[N@K[#@CS[#@)@@C8FK@@GB )@@G@@/K@@@*[@K^,QC@VK@ [@K^,RC@VK@^[@K^,PC@VK@#[^@@]([^@@[IFM@@@F)MR[F@K^[@K^GC )@@G@@[@K^@@@@@@@@[^@@#C[^@@][[^@@]5[^@@]'[^@@]\[^@@#][^@@IX[^@@JF[^@@H"FN@@@FGD )@@G@@)M)[N@K[@K^[@K[#@@[@K^,PC@VK@][^@@]([^@@[I[^@@]_[^@@]X[^@@@0C8FK@[[^@@@*GE )@@G@@[^@@HJFO@@@F)M%[MK0C@)C]@)C]@@[^@@]'[^@@]\[^@@#][^@@IX[^@@JF[^@@H"C8FK@@GF )@@G@@/K@@["[@K^,QC@VK@#FP@@@F)M4[N@K^[@K[@K^[@@[^@@[I[^@@]_[^@@]X[^@@@0C8FK@[GG )@@G@@[^@@@*[^@@HJ[^@@#C[^@@][[^@@]5FQ@@@F)M"@V@K^@@@@=!V@0@@@@@@@@@@@[I@@@@ZKGH )@@G@@@@@@@3@@@@@V@@@@@[@@@@@@/K@@#K/K@@],[^@@](FR@@@F=!-[S@@@@@@@@@@@@X@@@@@ GI )@@G@@@@@@@]@@@@@G@@@@@^@@@@@C@@@@@A_____"$BLANKLBCM @@[@@@FS@@@F=!?@0@@@@@@@GJ )@@G@@=!6@C@=!;@C@@@@@@@@@@@@E@@@@W@@@@@@OSSSSST@@@@@S@@@@@H@@@@@B@@@@@>FT@@@FGK )@@G@@=,@@C@=, @S@=,G@*@@@@@@@T&T&T$@@@@@'@@@@@%@@@@@<@@@@@P@@@@@0@@@@@#@@@@@*GL )@@G@@E%%%%:FU@@@F@@@@@@@-)K0CS@@@@@=,[@)@@@@@@@@BI@@]LOCATE@@@@@@@@F@@@*4@O,[GM )@@G@@N#0^,2R@)^,1R@K^,0EP@@@F@@^@@B@@F@@O@@3@@ @[B@@ @@ ^,6@C@@N[@@@@ND@@@@W#GN )@@G@@@@@@J*@@@@ @@@@[(MOVER CHKLET CHKNUM HEAD1 UPE8 GO )@@G@@ ITF OPAF OPAFP OPA DRMWT8 HEAD2 GP )@@G@@ OPI HEAD3 OPIP UPD8 OPAP OFEXT8GQ )@@G@@ OPUNCH NERR3$ NERR4$ TBL1 @@[@@@@@@@E!TBL2 GR )@@G@@ @@[@@@@@@@E0TBL3 @@[@@@@@@@E3TBL4 @@[@@@@@@@E6TBL5 GS )@@G@@ @@[@@@@@@@E9@@@@@@ ^@@@C@@]@@@@E8ARY ]@@@C@@#@@@@E8IPT GT )@@G@@ ]@@@C@@^@@@@E8DCT ]@@@C@@ @@@@MSG ]@@@C@@A@@@@@@@COGGU )@@G@@@@@CK?@@@CK0@@@CS/@@@CT@@@@CO=@@@CL*@@@CJS@@@CJ/@@@CJ@@@@CKG@@@CKK@@@CJWGV )@@G@@@@@CJ)@@@CJ=@@@CJ*@@@CJ?@@@CJ0@@@CJ4@@@CJ8@@@CL=)@@[N]@(+A@-<6]@@@/@@@@HGW )@@G@@G/@__RC@[J_"A@K@[]N_0@@GR/K@@[@[ @[B@@@@@@@@@@@@/,0@@@AA@@@F)@E[MK^@K1#[GX )@@G@@#[#@@@A@K@[^]@@@[JR@K@[#H/@@[][@@@[#G@@@[]C/@@@[/K@@@*8N0@@AO/K@@[AB@@@FGY )@@G@@)@O[N;[@^[@K1#[@@@/^@@@*G/@__*C@[@@@R@K@[^/K@@@*8N0@@NO/K@@[/@@@@UG/@__%GZ )@@G@@C@[J_"AC@@@F)@Y[N#[@K0K[@K^G@@@[X@[B/K@@@:N@0@@$C8)@@]/^@@@*G/@__7C@[@@]HA )@@G@@/^@@@*G/@__:C@[@@[AD@@@F)@*[F@K^GK1]L#^GK0@@@@@@R@K@[DR]0@[C[^)@[ H8)@@[HB )@@G@@/K@@@@!^)@[ @[Y@[B/K@@@\N@0@@%AE@@@F)@1@N#^G@@@@)[ @)@@@@@@@)@3@F#@@@@@@HC )@@G@@/K@K[ @[Y@@#TPROC @@@@@@@@F@@@*4@K[ N#0@[EAF@@@F)@4[F]-#^GK1#[@K@@@@@@@@HD )@@G@@/K@@@@[^@@@[C8FK@@^#0@[EA@K@[D[^@@[ AA0@[CC8@@@#/K@@@@AG@@@F@@@@@@B,0@CDHE )@@G@@"C@ Q$[@@ Q(C8@AR1&'0)@[B,0@CC"C@ Q$[@@ Q%/,0[>E@@@ Q%@@@ANW/S@ P'[@@@@@HF )@@G@@@@^@@#@@B@@#@@H@@[@@L@@[@@]@[F@C@@@.@@@@@@UPC8 NERR4$ NERR3$HG )@@G@@ TPROC @@[@@@@@@@@5@@@@@@ ^@@@C@@]@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@======@@^@@ @@@@@@@@@@@@@@ @HC@@@@ @@#@@G@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW=]VGLMSC39@@@^@@@@@@ (@@@^@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@1^@G@^<@@A@@M@[5@^F@@@@@#@@^@@@]%*@@@@@@@^@@ @^@J@[@ @@ K^@2@)HK )@@G@@*[@@@@CTS@+S@I@@@@ DO 310 JJ=IIP1,NWAR HL )@@G@@ DCT801950210*[@@@@CTS@++@I@@@@C CHECK FOR NON-ALPHM )@@G@@@E+@MO@@@___@[@E^?@#(EAK>?,^R")@=E ?)@#ED9@@@___@@@___@@@___@@@___@@@___HN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HO )@@G@@@@@___@@@___@@@___@@@___D@@^#B/C@@MR/^@@MUN@0@MT/K@@O^@[BE PD@@^#C/C@@MXHP )@@G@@/^@@M-/,0@F,@@@E F@@@E^7@[EE PC@@^#BG/@__"[@@E^&/G@@M!/@@@M!/,0@F+@@@^#KHQ )@@G@@@@@E G@@@^#F@@@E G@@@E^&@[IE PC@@^#B;@@@@+C@)^#A[@?^#BD@@E^&/C@@NP/@@@NPHR )@@G@@C@@E^&G/@__"[@@@[J[@@E ?C_)@@[R/K@@^N#)E ?[#)E^*C@@E^*;@@@@+G/@@@[[@@E !HS )@@G@@C@[^# H@[^#D/C@@N^/^@@NLC@[^#AH@[^#E/C@@NC/^@@NLR@)E HQ@)E !N_K@@#C@]^#^HT )@@G@@[@@E^%C@+^#C[@+^#^[@]=#C8NK@NFO/K@@^G_)@@[8N)@M;8N0@M8/,0@IB@@@E I@@@E JHU )@@G@@@@@E^;@[&E P/,0@IB@@@E K@@@E F@@@E^.@[$E P/,0@IB@@@E K@@@E F@@@E @[*E PHV )@@G@@C@@^#BG/@__"R/)@@^[@@@[JC@]^#CH@]^#B/C@@N4/@@@N4N8M^# ^^K@N1/,0@I[@@@E JHW )@@G@@@@@E L@@@@N1@@@E M@[!E PO/)@@^8N0@N*/,0@W1@[0E PC/@@G?;O@@@=W@@^#B[@@E^:HX )@@G@@/,0@T @@@^R"@@@E^:@@@^#B@[2E PN@0@O#/K@@O^@[3E PR]0E Q9\)E ,R@KE 0R@)E 1HY )@@G@@N#0E 2N#)E 3N#KE 4*4@U N/K@U N/K@@K/AA0E Q9:)E ,A@KE 0A@)E 1^#0E 2^#)E 3HZ )@@G@@^#KE 4/K@@V:C@@@@@G/@__"T/@@@W[@@E^!C@)@@@G/)__"C_)@@[R@KE R[@)@[J[#)E^$IA )@@G@@C/@@@[G@@@@@[@[D;G @[(;H/,0@VZ@@@E^$@@@@@@@@@@@@@@@@@@@]@E =G_)@@[8N0@OZIB )@@G@@ @@E^,C@@E^?[@@E^\C@)@@@T/)@@WC[@@@@T.@__E =/,0@I @@@E F@@@E B@]&E =G_)@@I8N0@R[R@KE 6C@[D;GG/@@@[[@[D;GIQ )@@G@@C@@E^,;@@@@9!)E '9,@E /9\)E "R@KEA@IY )@@G@@R@)EA[N#0EA]*4@U +/K@U +/K@@K/AA0E >9()E '9%@E /9:)E "A@KEA@A@)EA[^#0EA]IZ )@@G@@C8FK@@[^@@O&[^@@P1[^@@R8[@@E 5C8FK@[[^@@O-[^@@R3[^@@OQ[^@@O1[^@@P2[^@@O$JA )@@G@@[^@@P-[^@@P&[^@@O\[^@@R9[^@@S[[^@@Q@C8FK@][^@@O*[^@@P3[^@@O3[^@@R'[^@@OUJB )@@G@@/K@@OQC@@EA#;@@@@/K@@MO/,0@IB@@@ED(@@@ED%@@@EDJ@[FED7/,0@IB@@@ED:@@@ED?JN )@@G@@@@@EDL@[GED7R@KED!R@)ED,N_0@@D/,0@I @@@ED%@@@EDS@[KED7N8MEAE^^K@W[/,0@I JO )@@G@@@@@ED\@@@@W[@[LED7N8M%BA^^K@WB/,0@I @@@ED0@@@@WB@[MED7N8L%C[^^K@WI/,0@IBJP )@@G@@@@@ED:@@@ED1@@@@WI@[NED78N0@V9/,0@I @@@ED%@@@EDU@[QED7/,0@I @@@ED2@@@EDYJQ )@@G@@@[RED7/,0@I @@@ED3@@@ED)@[SED7/,0@IB@@@ED4@@@ED?@@@ED+@[TED7/,0@IB@@@ED:JR )@@G@@@@@ED%@@@ED$@[UED7N@0@W(/K@@W%@[VED7R]0ED8R@KED9R@)ED'N#0ED;*4@UD5/K@UD5JS )@@G@@/K@@K/AA0ED8A@KED9A@)ED'^#0ED;/K@@V?Z/////@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MERGED ROUTINES ______& ______ THEJU )@@G@@ FOLLOWING ROUTINES ARE MERGED& ______& ______& ______& JV )@@G@@___________"@@@@@^@@[@@@@@@@@_@@@@@[@@@@@#@@@@@F@@@@@G@@F@@[@@@@@@MRG8 JW )@@G@@@[3@@#@@]@@]@@@@@A@@@@@C@@@@@J@@@@@N@@@@@]@@@@@ @@@@@=@@I@@@@@@@@:@@@@@@JX )@@G@@@@F@@^@@@@@@DMMG @]"@@]@@W@@@@@@@@W@@F@@ @@@@@@BUFIL @#T@@]THE FIRST FLJY )@@G@@AG INDICATES THE& NATURE OF THE ALPHABETIC ENTITY& = UNDIMJZ )@@G@@ENSIONED VARIABLE& DMVR = DIMENSIONED VARIABLE& FCTN = FUNCTKA )@@G@@ION NAME& LBCM = NAME OF LABELED COMMON& SBRT = SUBROKB )@@G@@UTINE NAME& SWVR = SWITCH VARIABLE& NMLT = NAMELKC )@@G@@IST NAME& & THE FOLLOWINKD )@@G@@G TWO CHARACTER FLAGS& INDICATE THAT THE ENTITY IS IN THE& CORRESPONDINKE )@@G@@G TYPE OF STATEMENT& AB = ABNORMAL EX = EXTERNAL& CM = COMMON KF )@@G@@ FA = FORML AGUMT& CP = COMPLEX IN = INTEGER& DA = DATA KG )@@G@@ LG = LOGICAL& DM = DIMENSION PR = PARAMETER& DP = DBL PREKH )@@G@@CISN RL = REAL& EQ = EQUIVALENCE NL = NAMELIST& THE FLAGS FOKI )@@G@@LLOWING THE LINE NUMBERS& (ON WHICH THE ENTITY WAS REFERENCED)& KJ )@@G@@INDICATE THE NATURE OF THE REFERENCE& A = SET EQUAL,DEFINED,ASSIGNEDKK )@@G@@& B = REFERENCED,CALLED G = FORMAT& C = CALLING SEQUENKL )@@G@@CE H = I-O UNIT& D = SUBSCRIPT I = READ& E = SPKM )@@G@@ECIFICATION O = WRITE& J = DO PARAMETER L = LIST& KN )@@G@@ & @@@@@@& ______M E R KO )@@G@@G E D V A R I A B L E S& ______& ______VARBLE ROUTINE& ______KP )@@G@@FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& ______& ______@@@@@_KQ )@@G@@_____"@@@@@[@@@@@?@@B@@B@@A@@A@@@@@A@@@@@:@@@@[J@@@@@O@@@@@=@@@@@]@@F@@[KR )@@G@@@@@@@@MRGHD @[V@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@[>8@MO@@@___@[=^R"@@G^T.@[^^UN@@H^V&@[?^76@@E DX@@? II@@E J<@@P K[@[@ K&KT )@@G@@@[ID/F@@ED"$@[HD_H@EYE@;)@V^T+)@E^UD)@J^VR)W#^V3)J;^9+)^$ D$)@( I')@O J!KU )@@G@@)@K KQ=%> L&)[ID.T)@WD"1**PF**@@@@W@@@@@@ @@@@@ @@@@@[@@@@J@@@@@L@@@@@N@KV )@@G@@@@@@P@ C9K@K@[DW@@#K@@@N[A#W@@^ @G@@ '=@@@#C5W@@#:9K@@ /K@@M2KW )@@G@@/ K@M.&;K@@[N8K@@W3[X)@@/K@@M6C[@@MO:[G@@A/KF@@[R;@@@]/KF@@@R;)@@T&;K@@[KX )@@G@@ @H)@]8#)@M49!@@MO9(G@@AC9K@C@[DW@@#'=@@@#C5W@@#/[V@@[R;@@@_;@@@@AO#@@@LKY )@@G@@/KF@@@@@W@@AR;/@@D/K@@NFR;/@@G/K@@NFR;/@@J/K@@NFR;/@@M/K@@NFR;/@@PC[K@MOKZ )@@G@@%[W@@A/K@@OZ;@K@@MABW@@^ABZ@@[;GK@@6W8K@@WT8K@@WAFW@@^?8K@#^/K@@OWK^W@@^LA )@@G@@AB\@@]C J@@@/[@@N$K9@@@ [[G@@ ;(K@@AG!Z@@@[DZ@@@RFZ@@[?CW@@^AFW@@^:8K@]GLB )@@G@@/K@@OLC9K@K@/K@@M9R;?@@AR#K@MS;DK@@=O;)@@#:@)@@J/K@@N3(^I@@@/K@@N%RBY@@@LC )@@G@@CDY@@[G9K@@8/K@@N%;D@@@=W9@@@WG[@@@HC[K@MP:8?@@P/K@@N/O;)@@#C Y@@@/[K@N6LD )@@G@@R#K@@JP;W@@D;GK@@=W8K@@#?[H@MSC[H@MSH9K@@B![@@@L/K@@OUC9K@@E/@K@OCC9K@@^LE )@@G@@[!Z@@][ J@@@C9K@]G[DZ@@[C9K@]F;(K@@AG!Z@@][DZ@@]/K@@NVR;)@]FRBZ@@[&;K@@[LF )@@G@@ @H)@@8#)@OOP;K@@[C!Z@@][DX@@@/KF@@[R;@@@=/KF@@@R;@@@O/KF@@@R]@^SDR;@@@ELG )@@G@@/KF@@@R;/@@D/K@@O%R;/@@G/K@@O%R;/@@J/K@@O%R;/@@M/K@@O%R;/@@PA]@^SD/,@@U:LH )@@G@@RB\@@[RB,@]F?@)@@H/K@@O5C[K@@H/,@@U@A#)@@GR]@^SD/KF@@[R;@@@GR]@^SD/KF@@@LI )@@G@@R;/@@D/K@@P[R;/@@G/K@@P[R;/@@J/K@@P[R;/@@M/K@@P[R;/@@PA]@^SD/,@@U:R]@^SDLJ )@@G@@C[@^S#[[G@@ RBK^SCL@K^S^AB?@@^C[K^S^G!Z@@]R;)@@K=4!@@#G!Z@@]R;K@@W!9K@@XLK )@@G@@R;K@@8AFW@@^/K@@M8R;/@@D/K@@PWR;/@@G/K@@PWR;/@@J/K@@PWR;/@@M/K@@PWR;/@@PLL )@@G@@A]@^SD/,@@U:R]@^SDC9K@C@A])^SE*?J@@@/,)@U;R])^SEC Z@@[[ W@@^C9K@]G[DW@@^LM )@@G@@:DZ@@[ @J@@@C Z@@@[[W@@ ^J@@[ CJ@@@/[V@@[/K@@M8R;/@@D/K@@P9R;/@@G/K@@P9LN )@@G@@R;/@@J/K@@P9R;/@@M/K@@P9R;/@@PA]@^SD/,@@U: @@^S[/,@@R^C Y@@@/-@@Q@CDY@@@LO )@@G@@;D@@@=/[K@QC/,@@U@AE0^S /,0@QQ/K@@QMRE0^S / K@Q]R#@@@KAF@^S];*@@@#:8@@@SLP )@@G@@R;@@@);CK@@=O;@@@[AB)^S]R#)^S[/K@@O6RE0^S RB@^SC9?K^S[/K@@O39!H@@@9.I@@@LQ )@@G@@/K@@R[%8/@@D/K@@Q0C!X@@#%!Y@@#/K@@Q*9!H@@^99@@Q+9.I@@^/K@@Q>1@H@@#1@I@@#LR )@@G@@/KF@@@CDY@@]C9@@@#/KF@@[!9K@@ /K@@Q!C9K@@^!!Y@@#/K@@QYC9@@@]C Y@@#/KF@@[LS )@@G@@%8/@@J/K@@Q"C5H@@#-5I@@#=9K@@K/K@@R[>9@@@K/K@@Q"9!I@@^9.H@@^/K@@R[C[I@@BLT )@@G@@%[H@@B/K@@R[0@I@@#0@H@@#/KF@@@C9@@@[C Y@@]/KF@@[C[X@@@G[X@@[;D@@@=W9@@]FLU )@@G@@G Z@@[R#)@@L/KC@@@R;/@@G/K@@RQR;/@@J/K@@RQR;/@@M/K@@RQR;/@@P/K@@RPR;/@@DLV )@@G@@ CH@@] ^H@@# ^H@@]A]@^SDAA0^S 9!H@@]9(@^R_%8/@@D/K@@R)9!@@MX(@H@@^9(H@@^LW )@@G@@R;\@@@O;)@@#C Y@@@:8?@@SC[K@MP/[K@R-H Z@@@T9K@@W[DK^SCCDJ@@[G!J@@]C9K@@KLX )@@G@@=5X@@#G9@@@^!D@^SC/K@@OU[D@^SCRB\@@[C I@]FG9@@@[[[@^R"=5X@@#G9@@@[[ I@]FLY )@@G@@C5H@@#)9@@@):8/@@P[5X@@#/,0@P9/K@@STR#)@@G9?@^SAC[@^R"%8/@@D/K@@SBCDY@@]LZ )@@G@@[DX@@][DI@@]/K@@SKC Y@@][ X@@][ I@@]%8/@@P/K@@SKC Y@@#[ X@@#[ I@@#/K@@S*MA )@@G@@/,@@U81@I@@#/K@@SR/,@@U@0@I@@#/K@@S(/,0@QQ/,0@U3/K@@S(RA0^S /G@@M1/)@@M1MB )@@G@@9?@^SARA0^S]RF)^S]C[K^R"/^)@TM/,@@R^C[K^R"/>@@S&[ Y@@@/K@@S([DY@@@/K@@S(MC )@@G@@/,@@U8C[K^R"RA0^S /,@@U@/,@@U8&;K@@[&;)@@[C5H@@#+9@@@Z[5X@@#N?Z@@]C9K@@KMD )@@G@@=5X@@#N8K@@CM#!)@@RB)^SC:8/@@D*@I@@D/K@@S"'=@@@?;@@@@MA#I@@D9?@^SA9!@^R_ME )@@G@@9(H@@]CDK^SC[DZ@@[R#K^R"%8/@@D/K@@QNC!I@@#%9@@@A/K@@TF )G@@SA#W@@T%9@@@ MF )@@G@@/K@@QNC8K@@[[)W@@S ^G@@P CG@@Q/K@@QN')I@TN/K@@S*[ V@@][ V@@#[DV@@]R;/@@DMG )@@G@@/K@@T)R;/@@G/K@@T)R;/@@J/K@@T)R;/@@M/K@@T)R;/@@PAA0^S /,0@P9/K@@T!R#)@@GMH )@@G@@9?@^SA/,0@U3RA0^S %8/@@D/K@@QNC[K^S[:[W@@T @G@@T/K@@QNRA0^S /K@@O6R;/@@AMI )@@G@@O;0@@#CDZ@@[%9K@]G/K@@T6 ^J@@[ @J@@@*^J@@[/K@@T"%8/@@P/K@@T0 @G@@ K@@@N[MJ )@@G@@A#W@@^/K@@M8R;@@@+/KF@@@[D@^S]R#)^S[[[K^S[AB)^S]H9K@@[T!Z@@]G9K@]G;D@@@=MK )@@G@@W9@@@WG J@@@9(@^S#CDZ@@@;DK@@A?[@@@L/K@@UWH[@@@LT9@@@WG J@@[G9@@]GG[@^S^ML )@@G@@[[@@@I[ @^SCG!J@@]:8/@@JG9@@@^C Z@@]![K@@K/KC@@@C9K@C@A])^SE*?J@@@/,)@U;MM )@@G@@C[@^S#;(@@@AG!J@@@[DJ@@@C9K@K@/,)@U;R])^SEC[@^S#CDZ@@@;DK@@A/K@@UJ9*@^SAMN )@@G@@C[K@MO%[W@@A/K@@OY*^J@@[/KC@@@R;@@@M/K@@O6C5I@@#)9@@@)[5Y@@#/,@@U8/KF@@@MO )@@G@@C9@@@[[!J@@@/KC@@@[DW@@#CDJ@@@;D@@@A[[G@@ L J@@@T9K@@WCDJ@@[H[@@@L[DG@@^MP )@@G@@D J@@[H9@@]G] G@@^G J@@]?DG@@^[DG@@^*CG@@^'=@@@#C5W@@#/ K@M. ?J@@@/KE@@@MQ )@@G@@R#W@@DR#?@@CR#.)@@ @@@[] @@@[#A#/@@E;C0@@Y:80@@_/KF@@[A#W@@DR#/@@E;K0@@SMR )@@G@@/C0@VYR3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@XDN@K@@JM#!)@@MS )@@G@@A#W@@D*@@@[]/K@@W/R#/@@E;K0@@S/C0@V\R3/@@EPB/@@B/G0@WFC G@@DG[@@@J[ G@@DMT )@@G@@C W@@AGDW@@^H[@@@L/H@@WF0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@W#%9K@@ MU )@@G@@/KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@V1R#W@@DMV )@@G@@C5X@@@%9K@@(/KF@@]0@G@@E/K@@WNR;0@Z_/K@@WOR;0@@_C[W@@E;LK@@S/DK@WSC1W@@EMW )@@G@@![K@@J/K@@XAC[@@@LG1H@@@! W@@B/K@@X[?@0@@K/K@@W:? G@@B/K@@W(C[K@@KH W@@BMX )@@G@@?@0@@KC[@@@JH1X@@@D@0@@L/K@@W2R3.@@@/K@@W2!^/@@B/K@@W+C[K@@KH[K@@JH1X@@@MY )@@G@@C[@@@JD@0@@L[1G@@E0@G@@E/K@@W7;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[A#W@@D/K@@V)MZ )@@G@@R#0@[]P#0@[#/@0@WF/G0@WF/K@@V1[1G@@E0@G@@E/K@@XA;D@@@A[5G@@ER3.@@@O;0@@[NA )@@G@@/K@@V1P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@XSNB )@@G@@%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@V)NC )@@G@@ @@@@HOBW@@AC[K@@G9??@@@RBG@@A9*?@@@'=@@[GR7?@@AR#@@@L!8)@@S!8)@@)/K@@X'ND )@@G@@RF?@@B?8)@@^/K@@X'+/)__/C[G@@ AF/@@B+9@@@#T80@@WH[@@@L%C?@@BAF/@@^T9K@@WNE )@@G@@O#K@@L[[G@@ ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K@YCNF )@@G@@%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ NG )@@G@@GDW@@B[[W@@ /KF@@@A]0^SFC@F@@@/,0@X)/K@@YTR]0^SF/KF@@#R]0^SF/KF@@[A]0^SFNH )@@G@@C@F@@@/,0@VK/K@@Y+/K@@Y=R]0^SF/KF@@^R]0^SF/KF@@[R]0^SF/KF@@]A]0^SF/,0@YHNI )@@G@@R]0^SF/KF@@]A]0^SGR#F@@@/,0@MZ/K@@Y0R]0^SG/KF@@#R]0^SG/KF@@[A]0^SGC@F@@@NJ )@@G@@C@VK@[/,0@NC/K@@Y9R]0^SG/KF@@^R]0^SG/KF@@]9?@^TO9()^TQR#0^V3O#0^TO @J^V6NK )@@G@@;H@@[C @@^V4 @@^V5RR#K^SI @@@)"NT )@@G@@R#?=V6*@@@)"/K@@)4%8)@@;/K@@)4ABK^V3/@K@)?AFK@)"A#!=V68#0@)?P;K@@[ABK^V5NU )@@G@@(@@@)"ABK^V3R#)^V4P;)@@[A#)^V4/KFK@@@@@@@@R8VK@@C@[@@@[@@^TVC@-@@[[@)^TWNV )@@G@@/,0@Y%@@@^TV/K@@+.@[S^VLC8@^05[@@^VR;@@@@MG/@@B@[@@^UHR@K^VS/,0@Y2@@@^TVNW )@@G@@@@@^UH/K@@+.@[U^VLC^@^3@[@@^UIC/@@@^[@@^UJ(@@^UI/K@@W@@@^V^@]]^VL[@@^UM/,0@I @@@^U/@@@^76@]#^VL/,0@I @@@^U.@@@^U+OG )@@G@@@]^^VL/,0@IH@@@^V#@@@^V @@@^UM@@@^VA@] ^VL/K@@^VLN@0@=7/K@@=/@]&^VL!^)^VJ/K@@K/H8)@@[[^)^VJR]0^VM9!)^VV9,@^VX9,)^VZOQ )@@G@@9\@^V-9\)^V*4@OVJ/K@OVJ/K@@K/AA0^VM[^@^VJ9()^VV9%@^VX9%)^VZ9:@^V-OR )@@G@@9:)^V/KH@@@C8@@@ /\K@>A/K@@>YC8@@@]/\K@>A/K@@>%N@0@>R/K@@>S@]%^VPOS )@@G@@R]0^VQ*4@OVN/K@OVN/K@@K/AA0^VQ/K@@>PC8FK@@[@@^VTC8FK@[[^@@=Y[^@@+B[^@@.;[@@@AC@0@@KOV )@@G@@;^)@[]8#@@>7[@:K@[/KF@@#9?V@@@&;K@@[&;)@@]R;0@@E*@H@@@/K@@&HC9@@[@C9K@[@OW )@@G@@9(I)@@9(I)@@9(I)@@8#0@&C/KF@@#C5H@@@C1X@@@9(I)@@C!H@@@C(X@@@9(I)@@C>H@@@OX )@@G@@C-X)@@9(I)@@8#0@&^/KF@@#C@FK@@[CFK@[/KF@@#CCFK@@[@FK@[C*FK@@[4FK@]COFK@@OY )@@G@@ @FK@#[OFK@#/KF@@ C@F@@@&;@@@[C@W)@@[4K^V&C@W)@@[0K^V&C@W)@@[?K^V&C@W)@@OZ )@@G@@[*K^V&C@W)@@[=K^V&C@W)@@[)K^V&C@)^V&[@:K@[/KF@@#C[K^V\[[K^V&C@F@@@&;@@@[PA )@@G@@C8)@@AH@:K@]S8)@@]/KJ@&/C@W)@@[4K^V&C@W)@@[0K^V&C@W)@@[?K^V&C@W)@@[*K^V&PB )@@G@@C@W)@@[=K^V&C@W)@@[)K^V&C[@^V&[[FK@[/KF@@^C@FK@@+@@^V0[@VK@[/KF@@#C^FK@@PC )@@G@@[@FK@[/KF@@#'=@@@) @@^V$C@F@@@[^@@$XC@@^V1[@@@$M/KF@@]C@@^V$G8@@@[[@@^V$PD )@@G@@?8@@@2/K@@@@R#@^V2'=@@@I'=@@@)C@@^V,[@@@$M/KF@@[/K@@$)C@F@@@AB@@$=/KF@@]PE )@@G@@9?V@@@&;K@@[C[X)@@[5Y@@@C[X)@@[1Y@@@C[X)@@[!Y@@@C[X)@@[(Y@@@C[X)@@[>Y@@@PF )@@G@@C[X)@@[-Y@@@%@:@@[/KF@@#O;)@@[/K@@$%R;@@@\R;K@@9,@FK@@/KFK@]/KFK@[R;@@@ PG )@@G@@R;K@@Z,@FK@@/KFK@]/KFK@[/,0@$>/K@@4K@]D L] @@@@@C/@@@[[@@ DG @@@@@ @@ I'PH )@@G@@ @@ I; @@ I/ @@ I. @@ I" @@ I_ @@ DR @@ J@ @@^V4/,0[V?@]Q L]/,0@$-@]R L]PI )@@G@@/,0@F+@@@ K[@@@ K&@@@^9Z@@@ K$@@@ K*@]S L]/,0@J1@@@ K#@@@ K(@@@ J[@]T L]PJ )@@G@@/,0@J!@@@^9Z/K@@*3@]U L][@@ J[+@@ I9/GK@*?/^K@*SC@@^#C[@@ J]/,0[7A/K@@*'PK )@@G@@/K@@*5/K@@*S@]Y L]C/@@@[[@@@@@C@@ J][@@^#CN@0@*9/K@[#@@]- L]C@@ DIG@@ DHPL )@@G@@G@@ DJG@@ DKG/@__;/@@@(S*@@^#C/K@@($C@@ DB[@@^V6C@) DC[@)^V7C@@ K%[@@^V8PM )@@G@@C@) DD[@)^V9C@@ DE[@@^V'/,0@F+@@@ I6@@@ K&@@@^V;@@@ K$@@@ K:@]: L]/,0@F,PN )@@G@@@@@ K?@@@^V6@]? L]/K@@($/,0@I @@@ K?@@@ KB@], L]/,0@H_@@@ K!@@@ DB@@@ K,PO )@@G@@@]\ L]/,0@I[@@@ K$@@@ K\@@@ DD@@@ K,@]0 L]*@@ DH/K@@(,/,0@IB@@@ K0@@@ K?PP )@@G@@@@@ KD@]3 L]D@@ DN/C@@(4/@@@(4/,0@$N/K@@(5@]5 L]/K@@(' @@ I; @@ I/ @@ I.PQ )@@G@@ @@ I"/K@@:A(@@ DP/K@@%CC/@@@[[@@@@@G@@^#B[@@^#B;@@@@+C@) DB[@?^# C[@ DCPR )@@G@@[[G^#AC[)^#A[[?^#C @@ DQ(@@ DR/K@@%N/,0@>M@@@ KS@#A L]C@@ KSH@@ K1/@@@85PS )@@G@@(@@ DV/K@@%Z/K@@%S/,0[0G@@@ KS@@@ K*/K@@4K@#G L]C/@@@[G@@ J@[@@ J@/,0[8^PT )@@G@@@@@ KS/K@@%;@#I L]/,0@>,@@@ KS@@@ J#@@@ J^@#K L]C/@@@[C/)@@ H@) J^*@@@@IPU )@@G@@1@@@@I @@@@GC/)@@[C[@ J^G.@__Z*@@@@K1@@@@K @@@@I+@@@@IC/)@@[D[@ DR*@@@@KPV )@@G@@1@@@@K @@@@I+@)@@H/=0@%;C/@@@CH@@ J^/^@@:AC/@@@[(@@ DU @@@@GC/)@@[*@@ DHPW )@@G@@ @@@@I+@@@@I/)K@: /,0[K4@#Q L]/K@@%CD@@ DR/C@@:E/@@@:E @@ J D@@^V4/C@@:KPX )@@G@@/@@@:K/,0@)-/K@@?4@#W L]C@@ J@[@@ JA @@^V3/,0@>3@@@ KS@@@ JB@#Z L]C@@ JBPY )@@G@@H@@ I6/@@@:M@@@ KSQB )@@G@@@#, L]C@@ KSH@@ K1/@@@85C/@@@GG@@ JC[@@ JC(@@ DV/K@@?GC/@@@[G@@ J@[@@ J@QC )@@G@@/,0[8^@@@ KS/K@@?O@#5 L]/,0@>,@@@ KS@@@ J#@@@ J^@#6 L]C/@@@CH@@ J^/^@@?ZQD )@@G@@C/@@@[(@@ DU @@@@GC/)@@[*@@ DH @@@@I+@@@@I/)K@?Y/,0[K4@#' L]/K@@:1C/@@@[QE )@@G@@C/)@@ H@) J#(@@@@I @@@@GC/)@@[C.@@@0H[@ J#(@@@@K @@@@I+@@@@I/=K@:/K@@2_/K@@3T/K@@3)/K@@:A/K@@4V/K@@4/K@@'2/K@@;G/K@@;JQS )@@G@@/K@@;P/K@@/[/K@@;=/K@@;:/K@@;X/K@@;O/K@@_[/K@@_C/K@@_J/K@@_Q/K@@_&/K@@_5QT )@@G@@/K@[@Z/K@[[J/K@[[O@^6 L]R/K@@^N_0@@AA@K JMN8L^V5^^K@\Y/,0@$_@@@@\Y/K@@\+QU )@@G@@/K@@69@^' L]O/K@@[8N0@\UC@@^V3G/@__6/C@@\*/^@@69C@@^V"G/@__,/@@@;;C@@^V"QV )@@G@@G/@__$/@@@;"/K@@,MC/@@@D[@@ JN/,0[JC@@@ IP@@@ I(@@@ K&@ L]/K@@:AC/@@@BQW )@@G@@[@@ JN/,0[V5@@@ K:@@@ JA@ C L]/,0[^?@@@ IY@ D L]C/@@@]G@@ JN[@@ JN/,0[A_QX )@@G@@/K@@:A/K@@0>@@@ IL@@@ K&@@@ K&@@@ K&@ F L]/K@@:AC/@@@D[@@ JN/,0[V5@@@ K3QY )@@G@@@@@ JA@ I L]/,0[A_/K@@:A/K@@:A@@@ IL@@@ K&@@@ K&@@@ K&@ J L]R@K JNC@[^V5QZ )@@G@@G/@__Q/@@@:AC/@@@[G@@ JN[@@ JNH@@^V3/G@@0=/^@@:A/K@@0M/,0[&^@@@ K(@ Q L]RA )@@G@@C/@@@E[@@ JN/,0[V5@@@ K,@@@ JA@ S L]/,0[JC@@@ IS@@@ K&@@@ K2@ T L]/K@@:ARB )@@G@@/,0[V5@@@ K4@@@ JA@ V L]/K@@:A/,0[V5@@@ K5@@@ JA@ X L]C/@@@ [@@ JN/,0[A_RC )@@G@@/K@@:A/K@@:A@@@ IM@@@ K&@@@ I2@@@ K&@ Z L]C/@@@[G@@ JN[@@ JNC/)@@[[@) I/RD )@@G@@/,0[JC@@@ IN@@@ K&@@@ K2@ + L] @@ I//K@@:AC/@@@B[@@ JNC@) I>[@) IER@K JNRE )@@G@@C[[^V5G.@__#/ @@2CG/@@@[[@@ JN/,0[A_/K@@:A/K@@0>@@@ IP@@@ I>@@@ I7@@@ K&RF )@@G@@@ % L]C/@@@[G@@ JN[@@ JNC@) DXG/)__"R/K@@[[@)@[JA@K JOC@[ DXH@@ DW/@@@2^RG )@@G@@O/K@@[8N0@1?C@@ DXG/@_;N/C@@16/^@@1"/,0@IB@@@ K2@@@ K?@@@ KF@ 5 L]/,0[0$RH )@@G@@@ 6 L]/K@@*GC/@@@[G@@ DX[@@ DXR@K JOC@) DW[@- DXC@@ JOG@@ I>[@@ IE/K@@2CRI )@@G@@/,0[JC@@@ IP@@@ IE@@@ K$@ " L]C/@@@[G@@ JN[@@ JNH@@^V3/C@@:A/@@@:AR@K JNRJ )@@G@@C@[^V5G/@__#/^@@2XC/@@@B[@@ JPC/)@@[G@) JN[@) JN/K@@2ZC/@@@C[@@ JPC@@^V3RK )@@G@@H@@ JNR@K K6Q@K JN[@@@[JR@) JPC@[=V5[@]^V5C/)@@[G@) JP[@) JP8N0@2=C[@^V3RL )@@G@@H[@ JNG.@@@C[[@^V3/K@@1N/K@@:AC/@@@C[@@ JN/,0[#!/K@@29@AM L]C@@ I?[@@ JQRM )@@G@@/K@@47C/@@@C[@@ JNC@) I?[@) JR/K@@3#/K@@:AC/@@@ [@@ JNC@) I=[@) JR/,0[JCRN )@@G@@@@@ IP@@@ JR@@@ K$@AV L]C/@@@[G@@ JN[@@ JNH@@^V3/G@@3I/^@@:AR@) JNC@]^V5RO )@@G@@G/@__#/^@@3CC/@@@[G@@ JN[@@ JNH@@^V3/G@@3S/^@@:A/K@@3#C/@@@C[@@ JNC@) ITRP )@@G@@[@) JSC.@@@H[[@ JT/K@@"EC/@@@B[@@ JNC/)@@[[@) I./K@@47C/@@@E[@@ JNC@) I*RQ )@@G@@[@) JR/K@@3#C/@@@#[@@ JN/,0[V5@@@ K$@@@ JA@A0 L]/,0[^?@@@ IZ@A1 L]C/@@@[RR )@@G@@[@@ I.[@@ I//,0[JC@@@ IU@@@ K&@@@ K2@A4 L]/K@@(5C/@@@K[@@ JN/,0[#!/K@@4^RS )@@G@@@A7 L]C@@ I![@@ JQ/K@@47C/@@@K[@@ JNC@) I![@) JR/K@@3#C/@@@C[@@ JNC@) IVRT )@@G@@[@) JSC.@@@I[[@ JT/K@@"ED@@ DR/C@@4N/^@@85/,0[V8@B# L]/,0[0$@B^ L]/K@@*GRU )@@G@@C/@@@C[@@ JN/K@@0%C/@@@G[@@ JN/,0[JC@@@ IP@@@ I$@@@ K&@BD L]/K@@:AC/@@@DRV )@@G@@[@@ JN/,0[JC@@@ IP@@@ I%@@@ K&@BG L]/K@@:AC/@@@A[@@ JNC@) JUG/)__"/@)@;TRW )@@G@@/G)@:A/K@@49C/@@@D[@@ JNC/)@@][@) JU @@ JQC@@ I1[@@ JR/,0[V5@@@ K4@@@ JARX )@@G@@@BQ L]/,0[A_/K@@:A/K@@:A@@@ IL@@@ JQ@@@ JR@@@ K&@BR L] @@ I.R@K JNC@[^V5RY )@@G@@G/@__#/^@@5OC/@@@[G@@ JN[@@ JNH@@^V3/G@@5K/^@@:AR@) JNC@]^V5G/@__#/^@@5ERZ )@@G@@C/@@@[G@@ JN[@@ JN/,0[JC@@@ IL@@@ I4@@@ K&@B- L]/K@@(5C/@@@ [@@ JNR@K JNSA )@@G@@C@-^V5[@) JHG/)__Q/@)@6T/,0@$_@@@ JH/K@@56/K@@5(@B$ L]/,0@$'@@@ JH/K@@5,SB )@@G@@/K@@56@B* L]/,0[V5@@@ K7@@@ JA@B( L]/,0[^?@@@ I-@B% L]/K@@:A/,0[V5@@@ K8SC )@@G@@@@@ JA@B? L]/,0[A_/K@@:A/K@@0>@@@ IM@@@ K&@@@ I3@@@ K&@B! L]R@) JNA@) L&SD )@@G@@R@K L&C@[^V5G/@__L/^@@6FC/@@@[G@@ JN[@@ JNR@) JNA@) L&R@K L&C@[^V5G/@__QSE )@@G@@/^@@6OC/@@@[G@@ JN[@@ JN/,0[KC/K@@:A@@@ I)@B2 L]/K@@:A/,0[V5@@@ K!@@@ JASF )@@G@@@B4 L]/,0[KC/K@@66@@@ I)@B5 L]C/@@@[G@@ JN[@@ JNR@) JNA@) L&R@K L&C@[^V5SG )@@G@@G/@__L/^@@6!C/@@@[G@@ JN[@@ JNC/@@@[[@@ I//,0[JC@@@ IM@@@ K&@@@ K2@B' L]SH )@@G@@ @@ I//K@@:A/,0[&^@@@ K8@B. L]C/@@@#[@@ JNC/)@@[[@) I"/K@@", @@ I/ @@ I"SI )@@G@@C/@@@[G@@ JN[@@ JNR@) JNC@+^V5G/)__R/C)@7C/^)@7-R@K JNN8L^V5^^K@7G/,0@$'SJ )@@G@@@@@@7G/K@@7S/K@@7K@CA L]R@) JNN8M^V5^^K@7O/,0@$_@@@@7O/K@@7-/K@@7@@CB L]SK )@@G@@/,0[V5@@@ K(@@@ JA@CC L]/,0[KC/K@@:A@@@ I+@CD L]/K@@:A/,0[V5@@@ K2@@@ JASL )@@G@@@CF L]C/@@@[[@@ JVC@)^V3H@) JNR@K K6Q@K JN[@)@[JR@) JVC@[=V5[@]^V5C/)@@[SM )@@G@@G@) JV[@) JV8N0@7?C[@^V3H[@ JNG.@@@[[[@^V3/K@@?7C/@@@C[@@ JNC@) J@G/)__"SN )@@G@@[@) J@C.@@@[[[@ DR @@ I_H/@@@HR@) JN]@@@[JA@) JMC@@^V3H@@ JM/C@@8C/^@@8ISO )@@G@@C@]^V5G/@__L/@@@8IO/)@@[8N0@8#/K@@8QC/@@@HH@@ JMR@K K6Q@K JM[@@@[JC@@ I6SP )@@G@@[@[=V58N0@8NR@) JNN8M^V5^^K@8U/,0@&<@@@@8U@@@ IG@C( L]C@@ K%[@@ IH/,0@>JSQ )@@G@@@@@ KN@@@ DS@@@ IG/K@@82@C: L]C/@@@[[@@ J /,0@F+@@@ KS@@@ K$@@@^9!@@@ K$SR )@@G@@@@@ K*@C! L]/,0@>M@@@ KS@C, L]/K@@%C @@ DR @@ I_/K@@%C @@ DR @@ I_/,0@F+SS )@@G@@@@@^9!@@@ K$@@@ KS@@@ K$@@@ K*@C5 L]D@@ J /C@@9[/^@@%S/K@@? C/@@@C[@@ JNST )@@G@@/,0[#!/K@@9E@C' L]C@@ I,[@@ JQ/K@@47C/@@@C[@@ JNC@) I,[@) JR/K@@3#C/@@@CSU )@@G@@[@@ JN/,0[#!/K@@9R@D[ L]C@@ I:[@@ JQ/K@@47C/@@@C[@@ JNC@) I:[@) JR/K@@3#SV )@@G@@C/@@@C[@@ JN/,0[V5@@@ K9@@@ JA@DC L]C@@^V3H@@ JN/C@@9&/^@@:AC@@ IP[@@ JRSW )@@G@@R@K JNA@K L&R@) L&C@]^V5G/@__Q/^@@90C@@ IM[@@ JR/,0[JC@@@ JR@@@ K&@@@ K&SX )@@G@@@DI L]/K@@:AC/@@@E[@@ JNC/)@@[[@) I.[@) I//,0[JC@@@ IP@@@ I\@@@ K$@DN L]SY )@@G@@/K@@(5/K@@:AC/@@@A[@@ JNC@) IV[@) JSC.@@@I[[@ JT/K@@.O/K@@']C/@@@ [@@ JNSZ )@@G@@C@) IT[@) JSC.@@@H[[@ JTR@K JNC[-^V5G.)__Q/ )@.OG/@@@[[@@ JN/K@@"EC/@@@ITA )@@G@@[@@ JNC@) IT[@) JSC.@@@H[[@ JT/K@@.;C/@@@D[@@ JNC@) IT[@) JSC.@@@H[[@ JTTB )@@G@@/K@@.CC/@@@ [@@ JN/,0[#!/K@@'!@D: L]C@@ I&[@@ JQ/K@@47C/@@@ [@@ JNC@) I&TC )@@G@@[@) JR/K@@3#C/@@@D[@@ JYC/@@@AH@@^V3/C@@''/@@@''C/@@@E[@@ JY/,0[V5@@@ JYTD )@@G@@@@@ JA@D4 L]C@@^V/G/@__Q/^@@:AC/@@@C[@@ JN/,0[A_/K@@:A/K@@:A@@@ IM@@@ K&TE )@@G@@@@@ K&@@@ K&@D8 L]/K@@:AC/@@@B[@@ JN/K@@0%/,0[V5@@@ K'@@@ JA@D/ L]/K@@:ATF )@@G@@/K@@:AC/@@@F[@@ JNC/)@@[[@) JU @@ JQC@@ I2[@@ JR/K@@49C/@@@B[@@ JNC@) IVTG )@@G@@[@) JSC.@@@I[[@ JT/K@@"EC/@@@K[@@ JNC@) IV[@) JSC.@@@I[[@ JT/K@@.;C/@@@ETH )@@G@@[@@ JNC@) IV[@) JSC.@@@I[[@ JT/K@@.CC/@@@Q[@@ JN/K@@/MC/@@@I[@@ JN/K@@/MTI )@@G@@C/@@@N[@@ JN/K@@/MC/@@@I[@@ JN/K@@/]C/@@@J[@@ JN/K@@/]/K@@:AR@) JNC@]^V5TJ )@@G@@G/@__Z/@@@/JC/@@@[G@@ JN[@@ JNH@@^V3/C@@/G/^@@/]/,0[&^@@@ K!@E) L]C/@@@[TK )@@G@@G@@ JN[@@ JN/,0[KC/K@@:A@@@ I<@E+ L]/K@@:AC/@@@D[@@ JN @@ I/C@) IK[@) JZTL )@@G@@C/@@@[G@@ JN[@@ JN/,0[A_/K@@:A/K@@0>@@@ I5@@@ IK@@@ II@@@ K&@E* L]C/@@@[TM )@@G@@G@@ JN[@@ JNC@) IJG/)__"R/K@@[[@)@[JA@K J)C@[ DXH@@ DW/@@@/7O/K@@[8N0@/,TN )@@G@@R@) J)C@@ DW[@] DXC@@ J)G@@ IK[@@ JZ/,0[JC@@@ I5@@@ JZ@@@ K$@E3 L]C@@ JNTO )@@G@@H@@^V3/C@@:A/@@@:AR@K JNC@[^V5G/@__#/^@@:A/K@@/W/,0[C]/K@@.:@E9 L]C/@@@[TP )@@G@@[@@ I;/,0[JC@@@ IS@@@ K&@@@ K&@E; L] @@ I;/K@@.:R@) JNC@]^V5[@@ JH/,0@$'TQ )@@G@@@@@ JH/K@@.*/K@@.W@E_ L]C@@ JHG/@__#/@@@.:C/@@@[[@@ I;/,0[JC@@@ IR@@@ K&TR )@@G@@@@@ K&@F# L] @@ I;/K@@.:/,0[^?@@@ IW@FA L]C/@@@[G@@ JN[@@ JNC/@@@[[@@ I/TS )@@G@@/,0[JC@@@ JS@@@ K&@@@ K2@FD L] @@ I//,0[V5@@@ JT@@@ JA@FF L]/K@@:A/,0[C]TT )@@G@@/K@@"A@FH L]C/@@@[[@@ I;/,0[JC@@@ IS@@@ K&@@@ K&@FJ L] @@ I;C/@@@[G@@ JNTU )@@G@@[@@ JN/K@@.O/,0[C]/K@@"P@FN L]C/@@@[[@@ I;/,0[JC@@@ IS@@@ K&@@@ K&@FP L]TV )@@G@@ @@ I;R@K JNA@K L&R@) L&C@]^V5G/@__#/^@@"YC/@@@[G@@ JN[@@ JNR@K JNC@[^V5TW )@@G@@G/@__Z/@@@.:/K@@"AC/@@@[[@@ JN[@@ I;[@@ I./,0[JC@@@ IL@@@ K&@@@ K2@FZ L]TX )@@G@@ @@ I. @@ I;C/@@@[[@@ I//,0[JC@@@ IM@@@ K&@@@ K2@F< L] @@ I/ @@ I"C@@^V6TY )@@G@@G/@__1/^@@:AC@@^V7G/@__4/^@@:AC@@^V8G/@__Q/^@@:A/K@@6"C/@@@B[@@ JNC@) ITTZ )@@G@@[@) JSC.@@@L[[@ JT/K@@.,C/@@@C[@@ JNC@) IV[@) JSC.@@@M[[@ JT/K@@.,C/@@@CUA )@@G@@[@@ JNC@) IV[@) JSC.@@@N[[@ JT/K@@.,C/@@@M[@@ JN/,0[V5@@@ K;@@@ JA@F' L]UB )@@G@@C@@^V3H@@ JN/C@@_)/^@@:A/,0[JC@@@ IS@@@ K&@@@ K&@F. L]/K@@:AC/@@@B[@@ JNUC )@@G@@/,0[V5@@@ K\@@@ JA@G@ L]C/@@@[[@@ I.[@@ I//,0[JC@@@ IU@@@ K&@@@ K2@G# L]UD )@@G@@/K@@(5C/@@@C[@@ JN/,0[V5@@@ K/@@@ JA@GA L]C@@ IM[@@ JRC@)^V3H@) JN/C)[@[UE )@@G@@/^)@:AC@)^V3H@) JNR@) JN[@)@[JA@) JMC@]^V5G/@__V/^@[@IC@@ IL[@@ JRC/)@@[UF )@@G@@[@) I;/K@[@KO/)@@[8N0[@ C/@@@[[@@ I/[@@ I./,0[JC@@@ JR@@@ K&@@@ K$@GQ L]UG )@@G@@ @@ I; @@ I/ @@ I.C/@@@[G@@ JN[@@ JN/K@@_;C/@@@D[@@ JN/,0[V5@@@ K.@@@ JAUH )@@G@@@GX L]C/@@@[[@@ I"/,0[JC@@@ IP@@@ K&@@@ K&@GZ L] @@ I"C/@@@[G@@ JN[@@ JNUI )@@G@@H@@^V3/G@[@3/^@@:AR@K JNA@K L&R@) L&C@]^V5G/@__R/^@[@/C/@@@[G@@ JN[@@ JNUJ )@@G@@C@@^V3H@@ JN/C@[[@/^@@:AR@K JNN8L^V5^^K[[^/,0@$'@@@[[^/K@[[C/K@[[I@G* L]UK )@@G@@C@@ JA[@@ I'/,0[^?@@@ IO@G% L] @@ I'/K@@7>/,0[V5@@@ K"@@@ JA@G! L]/K@@:AUL )@@G@@/,0[V5@@@ K_@@@ JA@G\ L]/K@@:AC/@@@_H@@ JL/@@[]WC@@^V;[@@ J-C@)^V/[@) J+UM )@@G@@ @@ J^G/@__9/@@[]ZC@@ J-G/@__8/@@[]+C@@ J-G/@__4/@@[]>C@@ J-G/@__1/@@[]*UN )@@G@@C@@ J-G/@__0/@@[]:C@@ J-G/@__,/@@[],C/@@@[G/)__9*@@@@I @@@@GC/)@@[C[@ J-UO )@@G@@G.@__?*@@@@K @@@@I+@@@@I/=K[]1C/@@@[C@) J+G/)__5*@@@@I @@@@GC/)@@[C[@ J-UP )@@G@@G.@__?*@@@@K @@@@I+@@@@I/=K[]4C@@ J-G/@__*/@@[]7C@@ J-G/@__>/@@[]'C@@ J-UQ )@@G@@G/@__[@@ J^/K@[]OC/@@@W[@@ J^/K@[]OC/@@@X[@@ J^/K@[]OC/@@@Y[@@ J^/K@[]OUS )@@G@@C/@@@Z[@@ J^/K@[]OC/@@@)[@@ J^/K@[]OC/@@@-[@@ J^/K@[]OC/@@@+[@@ J^/K@[]OUT )@@G@@C/@@@<[@@ J^/K@[]OC/@@@=[@@ J^/K@[]OC/@@@&[@@ J^/K@[]ON@0[]_/K@[#@@H> L]UU )@@G@@R]0 L#9!) L$R@K L(R@) L%N#0 L:*4@PL@/K@PL@/K@@K/AA0 L#9() L$A@K L(A@) L%UV )@@G@@^#0 L:/K@[K8R/K@@[N_0@@BR@) JNA@) L?R@) L?C@]^V5H@[ J+/@@[#UC8)@@[N@0[#TUW )@@G@@/K@[#+@H0 LAC/@@@[G@@ JN[@@ JNO/K@@[8N0[#KN@0[#-/K@[#&@H3 LA!^) L^/K@@K/UX )@@G@@H8)@@[[^) L^R]0 LBR@K L!R@) L,N#0 L\*4@PL^/K@PL^/K@@K/C8@@@]AA0 LB[^@ L^UY )@@G@@A@K L!A@) L,^#0 L\/K@[#IR@K JNN8L^V5^^K[#8/,0@$'@@@[#8/K@[#//K@[^+@H8 LEUZ )@@G@@R/K@@[N_0@@^A@K J1R@) JNA@) L0R@) L0C@]^V5[@[ J:C/)@@[G@) JN[@) JNH@)^V3VA )@@G@@/G)[^E/^)[^RR@) JNC@+^V5[@) JH/,0@$'@@@ JH/K@[^M/K@[^R@I[ LEO/K@@[8N0[#"VB )@@G@@/,0[&^@@@ K8@I^ LE/,0@&4@@@ J?@@@ J2@@@ J1@I LE/,0[V2@@@ J2@@@ JA@@@@@@VC )@@G@@@@@ I'@IA LEN@0[^=/K@[^>@IB LER]0 LFR@K L1R@) L2N#0 L3*4@PLC/K@PLC/K@@K/VD )@@G@@AA0 LFA@K L1A@) L2^#0 L3C8FK@@[^@[^Z/K@[#4R@K LGN_0@@ C@@ I6[@[>J28N0[^5VE )@@G@@R/K@@[N_0@@ A@K J'R@) JNA@) L4R@) L4C@]^V5[@[ J2C/)@@[G@) JN[@) JNH@)^V3VF )@@G@@/G)[ A/^)[A=R@) JNC@+^V5[@) JHG/)__^/@)[A=C@) JHG/)__S/@)[ S/,0@$_@@@ JHVG )@@G@@/K@[ S/K@[ N@IX LK/,0@$'@@@ JH/K@[ S/K@[ X@IY LKO/K@@[8N0[^'/,0[&^@@@ LHVH )@@G@@@I- LK/,0@&<@@@ J3@@@ DW@I+ LKC/@@@[*@@ I. @@@@GC/)@@[C.@@@=H[@ JH*@@@@KVI )@@G@@ @@@@I+@@@@I/=K[ 7C/@@@(H@@ JH/@@[A@/,0[V\@@@ K2@@@ DW@@@ JA@@@@@@@@@@@@VJ )@@G@@@@@@@@@I$ LK/K@[A-/,0[V\@@@ K2@@@ DW@@@ JA@@@ I5@@@ K&@@@ K&@I( LK/K@[A-VK )@@G@@C/@@@[G@@ L5[@@ J;G/@__./@@[AB/G@[ ,/K@[AK/,0[V\@@@ K2@@@ DW@@@ JA@@@@@@VL )@@G@@@@@@@@@@@ I0@I\ LK/K@[A-C/@@@#[@@ J//,0[V\@@@ J/@@@ DW@@@ JA@@@@@@@@@@@@VM )@@G@@@@@ K&@I2 LKD@@ J//G@[A-/@@[A-C8)@@]N@0[A)/K@[A4@I4 LKN@0[AC/@@@[G@@ J"[@@ J"C@@ JHG/@__Z/^@[C:VY )@@G@@C@@ J"G/@__"[@@ J"C@@ J"/@@[G8/K@[D&R@K JNC/@@@DH@@ JH/@@[DHC/@@@EH@@ JHVZ )@@G@@/^@[D'C/@@@[C@-^V7G/)__**@@@@I @@@@GC/)@@[C[[^V6G.@__**@@@@K @@@@I+@@@@IWA )@@G@@/=K[DSC/@@@[C@-^V6G/)__?*@@@@I @@@@GC/)@@[C[[^V7G.@__6*@@@@K @@@@I+@@@@IWB )@@G@@/=K[DSC@@ JNG/@__"/@@[D'R@K JNN8L^V4^^K[DO/,0@$'@@@[DO/K@[D&/K@[D'@J% LVWC )@@G@@R@K JNC/@@@[C/)@@[H@) JN(@@@@I @@@@GC/)@@[C[[^V8G.@__V*@@@@K @@@@I+@@@@IWD )@@G@@/=K[G(/K@[D'C/@@@[C/)@@/H@) JH*@@@@I @@@@GC/)@@[*@@ I/ @@@@I+@@@@I/=K[G8WE )@@G@@C/@@@$H@@ JH/@@[G)C/@@@.H@@ JH/@@[G;C/@@@[G@@ JN[@@ JN/K@[CG/,0[A_/K@[G8WF )@@G@@/K@[EH@@@@@@@@@@@@@@@ K&@@@@@@@J8 LVR@K JNC@[^V5G/@__Q/@@[ER@K M#N#0 M^*4@PL+/K@PL+/K@@K/AA0 L>A@K M#^#0 M^/K@[KJXQ )@@G@@C8FK@@[^@@*B[^@@*4C8FK@[[^@@*E[^@@(./K@@*^/,0@F+@@@D_)@@@D_)@@@D.T@@@D_-XR )@@G@@@@@D_+@[SD_9/,0@F+@@@D_)@@@D_)@@@D.4@@@D_-@@@D_<@[TD_9/,0@F+@@@D_)@@@D_)XS )@@G@@@@@ 1P@@@D_-@@@D_=@[UD_9/,0@F+@@@D_)@@@D_)@@@AK>@@@D_-@@@D_>@[VD_9C/@#%SXT )@@G@@[@@D"?C/)@@[[@)D"! @@D", @@D"\ @@D"0 @@D"1 @@D"2N@0[L&/K@[VP@[D_9R@)@@@*@]AK=/K@[N9C@@D"?YG )@@G@@[@]AK=R@K@@@N8LALF^^K[N./,0[Y#@@@[N.@@@@@@@](D_9C/@@@KH@@@@@/C@[OA/@@[OAYH )@@G@@C/@@@[[@@D"1C/@@@VH@@@@@/C@[OG/@@[OGC/@@@[[@@D"2N@0[OI/K@[VP@],D_9(@@D"\YI )@@G@@/K@[R)C@@ DPG@@ DOC/)@@[*@@@@G @@@@IC/@@@[D[@ DI*@@@@K1@@@@K @@@@G+@)@@GYJ )@@G@@/=0[R)C@@ DIG@@ DHG@@ DJG@@ DKG/@__;/@@[O/^@[T-*@@ DL/K@[R(/,0[*>ZA )@@G@@@^DD_9C@@D.4[@@D"9R/0@@]N_0@@1A@0D"'C@@D"9[@@D"4/G@[TX/@@[TXR@KD"4C^[ 1OZB )@@G@@[@@D";R@)D";C@]AL3[@@D"/C@)D"$[@)D".R/K@@[N_)@B3A@KD""(@@D"//K@[SZR@)D"/ZC )@@G@@N8L [M^^K[SDN8MAL2^^K[SBN8L^9Y^^K[SE/,0@&V@@@[SB@@@D"/@@@[SD@@@[SE@^TD_9ZD )@@G@@N8L^9Y^^K[SJ/,0[=@@@@[SJ@@@^P9@^UD_9C@@^P';)@@@A;C@@@AC@L^9Y;)K@@Y;G@@@YZE )@@G@@[@L^9YC4[ [M[)[^9YO/K@@[8N)[R/C@@D":[@@D".C@@D""G/@__"[@@D_@R@)D"4N8M M^ZF )@@G@@^^K[S$/,0@H_@@@D_(@@@[S$@@@D_%@^-D_9R@KD";N8LAL2^^K[S\/,0@IL@@@D_2@@@[S\ZG )@@G@@@@@D_%@^+D_9/,0@H_@@@D_3@@@D".@@@D_%@^N#)E@&*4@T_7/K@T_7/K@@K/AA0D_'[^@D_79()E@XZV )@@G@@9:)E@ZA@KE@-A@)E@+A@0E@^#)E@&/KH@@@C8@@@[/\K[V-/K@[+8C8@@@BZW )@@G@@/\K[V-/K@[+9C8@@@ /\K[V-/K@[C_)@@@AJ )@@G@@N_0@@ [#)D"4C@@@@@;)@T"4;C@@@Y[@@D_DG/@__'/@@[YY/,0@$_@@@D_D/K@[Y=/K@[YTAK )@@G@@@AKE@C/,0@$'@@@D_D/K@[Y(/K@[Y)@ALE@CG_)@@A8N0[YHC8)@@]N@0[YC[J^V5%(I@@@BR )@@G@@/K@[=TCPY@@@[[VK@@/KF@@]C/@@@[C/)@@IH@:K@@*@@@@I1@@@@I @@@@GC/)@@[C[FK@@BS )@@G@@G.@__"*@@@@K1@@@@K @@@@I)@@@@I/=K[>9/,0@I @@@E]:@@@^76@[:E]2C@@E]4T/@@@BBT )@@G@@G/@@@[[@@E]>R@KE]>N8L^75^^K[>^/,0@IB@@@E]?@@@E]!@@@[>^@[!E]2D@@^V3/C@[>9BU )@@G@@/@@[>9C@@E],[@@E]&C@)^V3G/)__"R/K@@[[@)@[JA@KE]$C@[^V5[4@E]&C@)E]$;O)@@=BV )@@G@@W/)@]][@0E]*/G0[>S/^0[>Z/,0@I[@@@E]?@@@E]\@@@E]&@@@E]?@[8E]2/K@[>!C/@@@[BW )@@G@@H@@E]*/^@[>*/,0@H_@@@E]:@@@E]&@@@E]?@[/E]2/K@[>!/,0@H_@@@E]*@@@E]&@@@E]?BX )@@G@@@["E]2O/K@@[8N0[>J(@@E]*/K@[>9C/@@@[G@@E]*[@@E]5/,0@IB@@@E]?@@@E]5@@@E](BY )@@G@@@]#E]2/,0@$M@] E]2N@0[>./K@[>"@]AE]2R]0E]3R@KE]6N#0E]7*4@U]0/K@U]0/K@@K/BZ )@@G@@AA0E]3A@KE]6^#0E]7C@VK@@[@KE]4/K@[=*/,0@IB@@@EAJ@@@EAK@@@E 7@[FEAY/,0@IBCA )@@G@@@@@EAL@@@EAM@@@E 9@[GEAYR@KEANR@)EAON_0@@D/,0@I @@@EAK@@@E _@[KEAYN8ME]2CB )@@G@@^^K[&Z/,0@I @@@EAP@@@[&Z@[LEAYN8M%#,^^K[&>/,0@I @@@EAQ@@@[&>@[MEAYN8L%^(CC )@@G@@^^K[&?/,0@IB@@@EAL@@@EAR@@@[&?@[NEAY8N0[&R/,0@I @@@EAK@@@EA[@[QEAY/,0@I CD )@@G@@@@@EAS@@@EA^@[REAY/,0@I @@@EAT@@@EAA@[SEAY/,0@IB@@@EAU@@@EAV@@@EAC@[TEAYCE )@@G@@/,0@IB@@@EAL@@@EAK@@@EAH@[UEAYN@0[$B/K@[$C@[VEAYR]0EAZR@KEA)R@)EA-N#0EA+CF )@@G@@*4@UAW/K@UAW/K@@K/AA0EAZA@KEA)A@)EA-^#0EA+/K@[&E/,0@IB@@@EB.@@@EB"@@@EB&CG )@@G@@@[JECF/,0@IB@@@EB_@@@EC@@@@EB*@[KECFR@KEC[N_0@@[/,0@I @@@EB"@@@EB1@[OECFCH )@@G@@N8LEAU^^K[$*/,0@I @@@EC]@@@[$*@[PECFN8L%A?^^K[$\/,0@IB@@@EB_@@@EC#@@@[$\CI )@@G@@@[QECF8N0[$)/,0@I @@@EB"@@@EB3@[TECF/,0@IB@@@EB_@@@EC#@@@EB5@[UECFR@KEC^CJ )@@G@@R@)EC N_0@@]/,0@I @@@EB"@@@EB9@[YECFN8MEB^^^K[*A/,0@I @@@EC#@@@[*A@[ZECFCK )@@G@@N8M%BH^^K[*G/,0@I @@@ECA@@@[*G@[)ECFN8L%BP^^K[*N/,0@IB@@@EB_@@@ECB@@@[*NCL )@@G@@@[-ECF8N0[$"/,0@IB@@@ECC@@@EB"@@@EB;@[=ECFN@0[*X/K@[*Y@[>ECFR]0ECGR@KECHCM )@@G@@R@)ECIN#0ECJ*4@UCD/K@UCD/K@@K/AA0ECGA@KECHA@)ECI^#0ECJ/K@[$O/,0@IB@@@EFICN )@@G@@@@@EFJ@@@EE3@#'EFR/,0@IB@@@EFK@@@EFL@@@EE5@#;EFR/,0@IB@@@EFK@@@EFM@@@EE;CO )@@G@@@#/EFRC/@@@J[@@ECKD@@EFT/C@[(@/@@[(@C/@@@<[@@ECKD@@EFU/C@[( /@@[( C/@@@7CP )@@G@@[@@ECKC@@ECKG/@__"N/K@@[^@KEE\[@@@[J^#0EFVR@KEE\A@KEFWC@@EE\;O@@@=W/@@@ CQ )@@G@@[@KEE0R@KEFWC@-ED6[@)EE1/@)[(5/G)[(5G/K__"/@K[%AN#0EFVR@KEE1A@KEFXC/@@@]CR )@@G@@H@@EE0/^@[()C/@@@W[@@EE2C/@@@#H@@EE0/^@[(>C/@@@4[@@EE2C/@@@^H@@EE0/^@[(%CS )@@G@@C/@@[F[@@EE2*@@EE0/K@[(,C/@@[+[@@EE2R@KEFXN8LECK^^K[(3/,0@I @@@EE2@@@[(3CT )@@G@@@^PEFR*@@EE0/K@[('/,0@H%@@@EFK@^REFRR]0EE\O"0@@[A]0EE\8N0[(E/,0@IB@@@EFNCU )@@G@@@@@EFO@@@EFE@^UEFRN@0[% /K@[%K@^VEFRC/@@@A[@@EE2/,0@I @@@EFJ@@@EFG@^XEFRCV )@@G@@/K@[(SN@0[%J/K@[%K@^YEFRR]0EFSR@KEFYN#0EFZ*4@UFP/K@UFP/K@@K/AA0EFSA@KEFYCW )@@G@@^#0EFZC@VK@@[@KEFTC@VK@[[@KEFU/K@[*%R8VK@^R8:K@ R8;K@AR9FK@#C@@EF/[@^@@@CX )@@G@@[@^@@[C@)EF.[@-@@@[@[@@[[@]@@@[@]@@[[@#@@@[@#@@[ @@@@@C.@@@^[1@@@@C.)@@[CY )@@G@@G[:K@][[)@@@D]FK@]/E@[%5/A@[:J/,0@I @@@EF"@@@^76@[NEGE/,0@I @@@EF_@@@EF2CZ )@@G@@@[OEGED@@EGH/C@[: /@@[: /,0@H_@@@EG@@@@@@@@@@EG[@[QEGE/,0@H%@@@EG]@[REGEDA )@@G@@/,0@IB@@@EG]@@@EF"@@@EF8@[SEGE/,0@$M@[TEGE @@EF? @@EF! @@EF, @@EF\C@@EGHDB )@@G@@G/@__"C_)@@[R[KEGG[@@@[J[#)EF0C/@@@[H@@EF0/C@[:X/^@[:6/,0@F+@@@EF'@@@EG#DC )@@G@@@@@EF)@@@EG^@@@EG @[@@@G/)__]*@@@@I @@@@GC/)@@[C.@@@[DD )@@G@@H[@EF0/D@[:0*@@@@K @@@@I+@@@@I/=K[!WC/@@@[H@@EF0/C@[:6/^@[!WC@ @@@G/@__RDE )@@G@@/^@[?DD@@EF?/C@[://^@[%5C/@@@[[@@EF?[)@@@@D@)EF1/C)[!W/@)[!W/,0@$*@@@EF)DF )@@G@@@@@@@@@[1EGEC@@EF1[4@@@@/K@[:XC@ @@@G/@__]/^@[?&D@@EF!/C@[?J/^@[%5C/@@@[DG )@@G@@[@@EF!D@)EF1/C)[?P*@@@@I @@@@GC/)@@[D[@EF?*@@@@K1@@@@K @@@@I+@@@@I/=K[%5DH )@@G@@D@@EF1/C@[:X/@@[:X/,0@$*@@@EF)@@@@@@@[.EGEC@@EF1[0@@@@/K@[:XC@ @@@G/@__#DI )@@G@@/^@[?;D@@EF,/C@[??/^@[%5C/@@@[[@@EF,D@@EF1/C@[%5/@@[%5/,0@$*@@@EF)@@@@@@DJ )@@G@@@]BEGEC@@EF1[?@@@@D@)EF\/C)[?'/^)[!J/K@[:XC@ @@@G/@__L/^@[!ND@@EF\/C@[![DK )@@G@@/^@[%5C/@@@[[@@EF\D@)EF,/C)[?,/@)[?,D@)EF1/C)[%5/@)[%5/,0@$*@@@EF)@@@@@@DL )@@G@@@]PEGEC@@EF1[*@@@@C/@@@[G@@EF0[@@@@@/K@[:XC/@@@[G@@EF1[@@EF1G/@__3/G@[!TDM )@@G@@/^@[%5R[)EF1C@ @@@[@AEFZO.K@@[G_)@@[8N0[:SD@@EF\/C@[!+/^@[,RD@@EF1/C@[%5DN )@@G@@/@@[%5(@@EF?/K@[,C*4@@@@/K@[,C/,0@$*@@@EF)@@@@@@@]$EGEC/@@@[C@=@@@H@)EGADO )@@G@@*@@@@I @@@@GC/)@@[C.@@@#H[@EF1*@@@@K @@@@I+@@@@I/=K[,UC/@@@[C@=@@@H@)EGBDP )@@G@@*@@@@I @@@@GC/)@@[C.@@@ H[@EF1*@@@@K @@@@I+@@@@I/=K[,YC@@EF/[@^@@@[@^@@[DQ )@@G@@(@@EF,/K@[,L/,0@$*@@@EF)@@@@@@@]0EGEC@@EF1[*@@@@/K@[,R/,0@$*@@@EF)@@@@@@DR )@@G@@@]3EGEC@@EF1[?@@@@N@0[,T/K@[,&@]5EGEC8)@@EN@0[,X/K@[,+@]6EGEC8)@@FN@0[,-DS )@@G@@/K@[,+@]7EGE!^)EGC/K@@K/H8)@@[[^)EGCR]0EGF9!)EGI9,@EGK9\)EGMR@KEGOR@)EGPDT )@@G@@R@0EGQR[@EGRR[KEGSR[)EGTN#0EGU*4@UGC/K@UGC/K@@K/C8@@@GAA0EGF[^@EGC9()EGIDU )@@G@@9%@EGK9:)EGMA@KEGOA@)EGPA@0EGQA[@EGRA[KEGSA[)EGT^#0EGUC8FK@@[^@[:]C8FK@[DV )@@G@@[@@EGGC@VK@][@KEGHC8FK@#[^@[?^[^@[!:C8FK@^[^@[?-C8FK@ [^@[,N[^@[?3C8FK@ADW )@@G@@[^@[,G[^@[!FC8FK@B[^@[%1[^@[!LC8FK@C[^@[,Q[^@[?B[^@[?6[^@[:"[^@[?=[^@[,JDX )@@G@@[^@[!I[^@[%,[^@[%?[^@[!$/K@[%Y9?FK@@9*@EGV9*@EG& @@EG6C4FK@[?8@@@A/K@[\7DY )@@G@@A]0EG69?FK@[9*@EG*9?FK@]9*@EG?C@@EG2[@@EG:C8@EG&'=@@[ [@:K@A*@@@@I/KFK@BDZ )@@G@@C@@EG0[@@EG)/K@[\8 @@EG)C@F@@#[C@EG-C@F@@^[^@EG-C@FK@ ;G@@@=W8@@@W[C@EG+EA )@@G@@T8@@@W[C@EGZA]0EG3C8@EGV/,0@X)/K@[0CR]0EG3/KF@@DR]0EG3G9K@[@[[VK@A/KFK@BEB )@@G@@C@F@@@[^@EGR]0EG4C4@EG>/^@[0G(@@EG6/KF@@^**@EG>/K@[0GED )@@G@@/KF@@^R]0EG4/KFK@]A]0EG4C8@EGV/,0@YHR]0EG4/KF@@[ @@ DG @@ DH @@ DI @@ DJEE )@@G@@ @@ DK @@ DL @@ DMC/@@@[[@@ DN @@ DO @@ DP @@^#C @@ DU @@ DV @@ DF/,0@&@EF )@@G@@@@@^9Z@@@^9/@[YEIX @@EH@R/K@@[N_0@[[C@[^9;G/@__'/@@[1FC/@@@[G@@EH@[@@EH@EG )@@G@@R@)EH@C@-^9;[@+^9;O/K@@[8N0[1]C@@EH@[@@EH]G/@@@[[@@EH#R@)EH#N8M^9;^^K[1UEH )@@G@@C/)@[]H@)EH@[@)EIZ/,0@F+@@@EIF@@@EIG@@@[1U@@@EIH@@@EIZ@[:EIX @@EH^/,0[,4EI )@@G@@@@@^9Z@@@^9/@@@EH]@@@EG7@@@ DS@@@ DB@@@ DD@@@EH^@@@EH /K@[66/K@[62@[!EIXEJ )@@G@@/,0@I @@@EII@@@EHI@[,EIXC4@EH [@@EHAC)@EH [@@EHBC/@@@[[@@EHCD@)EHB/C)[2GEK )@@G@@/@)[2GD@)EHA/C)[2^/@)[2^/,0@H_@@@EIH@@@EG7@@@EHA@[6EIXC@@EHCG@@EHA[@@EHCEL )@@G@@/,0@H_@@@EHC@@@EHK@@@EIH@[8EIXC/@@@[G@@EHC[@@EHCC0@EH [@@EHAD@@EHA/C@[2REM )@@G@@/@@[2R/,0@H_@@@EHC@@@ DS@@@EHA@[.EIX/K@[2X/,0@I @@@EHC@@@EHM@[_EIXC/@@@^EN )@@G@@[@@EHAC@@EHCG@@EHA[@@EHC/,0@I @@@EHC@@@EHO@]]EIXR@KEIJN_0@@^C@[^P8[@[%G'EO )@@G@@8N0[2&/,0@J1@@@EG9@@@EIK@@@EHD@]DEIX @@EHE/K@[23C/@@@[G@@EH^[@@EH^C@@EH]EP )@@G@@H@@EH^/C@[27/^@[5HR@)EH^C@]^9;[@@EHFG/@__L/@@[20C/@@@[C/)@@XH@)EHF*@@@@IEQ )@@G@@1@@@@I @@@@GC/)@@[C[@EHFG.@__6*@@@@K1@@@@K @@@@I)@@@@I/=K[3$C@@EHFG/@__7ER )@@G@@[@@EHFC@)EHF?8)@@Q/C,[3K'^@@K//K@[20/K@[20/K@[4[/K@[3$/K@[4^/K@[4B/K@[3$ES )@@G@@/K@[3$/K@[5C/K@[40/K@[5 /K@[3$/K@[45/K@[3$/K@[3$/K@[49/K@[4//K@[4_/K@[5]ET )@@G@@/K@[3$/K@[5F@]PEIXR@KEH^C@[^9;[4@EHGC/)@@[G@)EHE[@)EHEG/)__"/G)[30/^)[38EU )@@G@@/,0@I @@@EII@@@^76@]UEIX/,0@I @@@EIL@@@EHQ@]VEIXC/@@@0G@@EHE[@@EIZ/,0@H_EV )@@G@@@@@EIZ@@@EHG@@@EIH@]WEIX/K@[20C/@@@[[@@ DH/K@[20C/@@@[[@@ DL/K@[20C_)@@[EW )@@G@@N_0@@^[#)EH[C/@@@[G@@EH^[@@EH^R@)EH^C/)@@0H@+^9;]@)EHFC.@@@[H/)__6*@@@@IEX )@@G@@1@@@@I @@@@KC/)@@[D[)EHF*@@@@M0@@@@M @@@@I)[@@@I/>K[23H@@EH]/G@[4)/^@[5HEY )@@G@@C@@ DFT/@@@EG@@EHF[@@ DFG_)@@[8N0[4D/,0@I @@@EII@@@^76@],EIX/,0@IB@@@EIMEZ )@@G@@@@@EIH@@@EHW@]\EIX/K@[6ZC/@@@[[@@ DP/,0@KU@]2EIX/K@[20C/@@@[G@@ DO[@@ DOFA )@@G@@/K@[20C/@@@[[@@ DJ/K@[20C/@@@[[@@ DK/K@[20C/@@@[[@@ DV/K@[20C/@@@[[@@ DIFB )@@G@@/K@[20C/@@@[[@@^#C/K@[20C/@@@[[@@ DU/K@[20 @@ DN/K@[20D@@EHE/C@[5N/@@[5NFC )@@G@@/,0@H%@@@EIN@# EIX/,0@K!@@@EH+/K@[5&@@@EHD@#AEIX/,0[\-@@@EH>@@@ DB@@@ DDFD )@@G@@@@@^;]@@@ ]]@@@EIO@@@EHD/K@[5'@#BEIXC8)@@[N@0[5>/K@[69@#CEIX/,0@IB@@@EIPFE )@@G@@@@@EII@@@EH*@#DEIX/,0@I @@@EII@@@^76@#EEIX/,0@I @@@EIL@@@EH%@#FEIX/,0@IHFF )@@G@@@@@EIN@@@EIQ@@@EHD@@@EIR@#GEIX/K@[6Z/,0@IB@@@EIP@@@EII@@@EH0@#IEIX/,0@I FG )@@G@@@@@EII@@@^76@#JEIXC@@EHDG/@__./@@[6H/C@[6U/,0@IB@@@EIN@@@EIL@@@EH2@#NEIXFH )@@G@@/K@[6ZC=@EHD[@@EHH/,0@I @@@EIL@@@EH8@#QEIX/,0@IN@@@EIM@@@EIS@@@EHH@@@EIFFI )@@G@@@#REIX/K@[6Z/,0@IB@@@EIM@@@EIL@@@EH.@#TEIX/,0@I @@@EII@@@EI^@#UEIX/,0@I[FJ )@@G@@@@@EIM@@@EIT@@@^9Z@@@EIU@#VEIX/,0@IB@@@EIN@@@EII@@@EID@#WEIXC8)@@#N@0[61FK )@@G@@/K@[69@#XEIXC8)@@]N@0[65/K@[69@#YEIXN@0[68/K@[6.@#ZEIX!^)EIV/K@@K/H8)@@[FL )@@G@@[^)EIVR]0EIY9!)EI)9\)EI+R@KEI=R@)EI>N#0EI&*4@UIV/K@UIV/K@@K/C8@@@^AA0EIYFM )@@G@@[^@EIV9()EI)9:)EI+A@KEI=A@)EI>^#0EI&/K@[0?/,0@&@@@@@@@@@@EI$@[ EJ,R/K@@[FN )@@G@@N_0@@GA@KEJ(C@[EI&G/@__R/@@[7WO/K@@[8N0[7P/K@[77C/@@@[G@@EJ([@@EJ%H/@@[]FO )@@G@@R@KEJ%]@@@[JA@KEJ:C@[EI&G/@__%/@@[7(O/K@@[8N0[7+/K@[77R@KEJ:C@[EI$G/@__*FP )@@G@@/^@[77C@[EI*G/@__:/^@[77C@[EI(G/@__7/^@[77C8)@@]N@0[76/K@[7'@[XEJ,N@0[79FQ )@@G@@/K@[7"@[YEJ,!^)EJ?/K@@K/H8)@@[[^)EJ?R]0EJ\R@KEJ0N#0EJ1*4@UJ?/K@UJ?/K@@K/FR )@@G@@C8@@@#AA0EJ\[^@EJ?A@KEJ0^#0EJ1C8FK@@[^@[7K/K@[7J@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@ FT )@@G@@@@[@@@@@@@@F@@@@@O@@@@@R@@@@@M@@@@Z @@@@ZU@@@@ZU@@@@ZU@@@@ZU@@@@)K@@@@ZUFU )@@G@@@@@@ZU@@@@ZU@@@@ZU@@@@ZU@@@@ZU@@@@ZU@@@@Z>@@@@ZU@@@@ZU@@@@ZU@@@@Z>@@@@ZUFV )@@G@@@@@@ZU@@@@ZU@@@@ZU@@@@ZU@@@@Z>@@@@ZU@@@@ZL@@@@ZU@@@@ZU@@@@ZU@@@@ZU@@@@ZUFW )@@G@@@@@@ZU@@@@ZU@@@@ZY@@@@ZY@@@@ZU@@@@ZY@@@@ZU@@@@ZU@@@@ZU@@@@ZY@@@@ZY@@@@ZUFX )@@G@@@@@@ZU@@@@ZU@@@@ZU@@@@ZY@@@@ZU@@@@Z)@@@@Z)@@@@Z)@@@@Z)@@@@Z)@@@@Z)@@@@Z)FY )@@G@@@@@@Z)@@@@Z)@@@@Z)@@@@Z\@@@@)N@@@@ZY@@@@ZY@@@@ZU@@@@ZU@@@@Z @@[@@@@@[@@@FZ )@@G@@@@@@@@@@@@@@__"__"@@@@@H@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@PROCEDURE & ______ NOT FOUND IN FILE & ______ PROCEDURE &______ CANNOGC )@@G@@T READ.& ______BSP ERROR STATUS=&______FORTRAN PROCEDURE TABLE IS EMPGD )@@G@@TY. FILE=& ______ &______I-O ERROR. STATUS=& ______FILE=&______GE )@@G@@PROCEDURE=& ______ &___________"@@@@@O@@@@@Z@@@@@G@@@@@!@@@@@#@@@@[@GF )@@G@@@@@@@]@@@@@[@@@@@&@@@@@H@@@@@/@@@@@@@@@@@I END @@@@@$@@@@@?@@@@@2@@@@[DGG )@@G@@@@F@@@@@@@@@PROCIT@]&@@#@@F@@]@@@@@@DUMMY @]%@@#@@@@@@@@@@@@**** TOO MANGH )@@G@@Y ERRORS - RUN ABORTED '=@@@) @@____/K@@$T@[A^V****** ERROR *****&GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ARRAY OVERFLOW-STATEMENT TOO LONG.& @@@@@@NON-ARGJ )@@G@@ITHMETIC STATEMENT NOT DEFINED.& VARIABLE ILLEGAL.&@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@DATA LIST LONGER THAN CARD.& @@@@@@@@@@@@STATEMENT NUMBER ILLEGALGL )@@G@@.& @@@@@@@@@@@@PARENTHESE COMBINATION ILLEGAL.& @@@@@@IF STATEMENTGM )@@G@@ ILLEGAL& @@@@@@@@@@@@@@@@@@ERROR IN NESTING OF FUNCTIONS.& @@@@@@GN )@@G@@WORD TOO LONG.& @@@@@@@@@@@@@@@@@@@@@@@@VARIABLE TOO LONG.& @@@@@@GO )@@G@@@@@@@@@@@@@@NO RIGHT PARENTHESES.& @@@@@@@@@@@@@@@@@@ERROR IN GETTING SGP )@@G@@UBSCRIPT.& @@@@@@@@@@@@EXCEEDED LENGHT OF CARD DATA.&@@@@@@@@@@@@VARIABGQ )@@G@@LE NOT IN TABLE.& @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NMLT @@@@@[NL@@@@@@@A@@@@@B@@GS )@@G@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@O@@@@@S@@@@@T@@@@@U@@GT )@@G@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@DA CM@@@@RL EQ DM AB EX GU )@@G@@LG CP DP IN PR DMVR FCTN SBRT SWVR FA @@@L@@ GV )@@G@@LBCM END ]@@@@@@@@@@F@@@@@U@@@@@N@@@@@C@@@@@T@@@@@I@@@@@O@@@@@N@@@@@@GW )@@G@@@@@@@@ ______@FREE,A I$I$I$. . ______& ______ &______TO MANGX )@@G@@Y LABEL COMMON BLOCKS.MAX=300.& ______I$I$I$ ______@@@@@@@@@@@[GY )@@G@@@@@@@I@@@@@# @@@@@F_____"@@@@@A@@@@@G@@@@@O@@@@@_ END @@@@@]@@@@@SGZ )@@G@@@@@@@J@@@@@B@@[@@@@@@@@^@@@@@ @@@@@U@@@@@K@@@@@T@@@@@P@@@@@Q@@@@@R@@@@@VHA )@@G@@@@F@@#@@@@@@DCT8 @H>@@]@@F@@@@@@@@@FCTCK @H3@@]@@F@@]@@@@@@GETSN @IB@@]HB )@@G@@@@[@@[@@@@@D@@F@@@@@@@@@GETVAR@I8@@]@@@@@E@@F@@@@@@@@@RJTNOS@JC@@]@@@@@CHC )@@G@@@@@@@H@@F@@^@@@@@@UNPACK@L1@@[@@F@@@@@@@@@UPSN @L"@@[@@@@. @@F@@[@@@@@@HD )@@G@@LPRT @MH@@[DO IF(L) IF(A) GOTO(UC) GOTO(A) HE )@@G@@GOTO(C) CALL FCT REF RTRN(S) RTRN(NS) ASSIGN HF )@@G@@TAPES INPUT OUTPUT SUB PROG STOP ACCEPT HG )@@G@@DISPLAY ERPRINT REPEAT REPLACE GENERATE REGISTER HH )@@G@@ARGUMENT ALTPRINT MONITOR ASM$INTF ABORT BUFFER HI )@@G@@FILE IDENTIFY JUMP LABELS NAME NEXT HJ )@@G@@READ SCAN UNIQUE WRITE DMVR FCTN ** HK )@@G@@******@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@& ______& ______& ______HL )@@G@@TABLE OVERFLOW NO.=& ______DATA PROGRAM IS TO LARGE.& ______F & HM )@@G@@______@@@@@@@@@@@[@@@@@V@@@@@3@@@@ZK@@@@[I@@[@@@LBCM $BLANK_____"@@@@@AHN )@@G@@@@@@@C@@@@@^@@@@@G@@@@@]@@@@@ @@@@@X@@@@@>@@@@@B@@@@@H@@@@@SSSSSST@@@@@OHO )@@G@@@@F@@@@@@@@@TBL1 @ V@@]@@@@W@@@F@@[@@@@@@DRUM @ '@@]@@@@@E@@F@@#@@@@@@HP )@@G@@ENTER @A^@@]E%%%%:@@F@@@@@@@@@LOCATE@BI@@]@@@@@*@@@@@#@@@@@0@@F@@]@@@@@@HQ )@@G@@OVFL8 @BR@@]@@@@@P@@@@@<@@@@@%@@@@@'T&T&T$@@F@@[@@@@@@PNCH @B1@@] HR )@@G@@ C@FK@@[W@E[AC@FK@[[?@E[AC@F@@][^@E[AC@@E[A'=@@@I/KF@@^@@@@@@@@AE[-HS )@@G@@@@]E[$@@ E[(@@CE[,@@CE[6@@]E[.@@]E[_@@@E][@@BE][@@@E]C@@@E]C@@[E]C@@]E]DHT )@@G@@@@[E]F@@@E]G@@^E]G@@@E]K@@DE]K@@CE]T@@@E]-@@@E]-@@@E]-@@#E]-@@@E]=@@@E]=HU )@@G@@@@@E]=]S#S@[]R#G@]]B#N@#]C#C@6]L#T@9]S^$@"]L#O@^]A#C@ ]A#L@A]O^M@B]O#N@CHV )@@G@@]O L@D]O I@E]O#U@F]O@@@G]I#M@H]A#T@I]E#C@J]E#F@K]E#L@L]I#S@7]Q#U@M]X#T@NHW )@@G@@]N#T@O]N#C@P]N^F@Q]N#D@R]R#P@8]O#R@S]U#N@T]O#T@U]E#N@/]N#C@V]N#T@W]M#P@XHX )@@G@@]F#D@Y]F#A@Z]F#Q@)]F@@@-]O#G@+]O#N@<]A#C[@]A#M@=]A#R@>]A#U@&]R#I@$]U#N@*HY )@@G@@#P^L@;#A^L@?]E#T@!]E#W@,]E^E@']E#G@.]E I@(]E T@%]E^D@:]TAE@5]T E@5]TAT@5HZ )@@G@@]T T@5]T#O@\]U#B@0]E#N@1]C#A@_]RAO@2]RAT@3]R#I@4@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@ & ___________"@@@@@[@@@@@O @@@@]]@@F@@]@@@@@@PRTERR@]A@@#IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@THE FIRST FLAG INDICATES THE& NATURE OF THIC )@@G@@E ALPHABETIC ENTITY& = UNDIMENSIONED VARIABLE& DMVR = DIMENID )@@G@@SIONED VARIABLE& FCTN = FUNCTION NAME& LBCM = NAME IE )@@G@@OF LABELED COMMON& SBRT = SUBROUTINE NAME& SWVR = SWITCIF )@@G@@H VARIABLE& NMLT = NAMELIST NAME& & IG )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICATE THAIH )@@G@@T THE ENTITY IS IN THE& CORRESPONDING TYPE OF STATEMENT& AB = ABNORMAII )@@G@@L EX = EXTERNAL& CM = COMMON FA = FORML AGUMT& CP = COMPLEXIJ )@@G@@ IN = INTEGER& DA = DATA LG = LOGICAL& DM = DIMENSIIK )@@G@@ON PR = PARAMETER& DP = DBL PRECISN RL = REAL& EQ = EQUIVALIL )@@G@@ENCE NL = NAMELIST& THE FLAGS FOLLOWING THE LINE NUMBERS& (ON WHIM )@@G@@ICH THE ENTITY WAS REFERENCED)& INDICATE THE NATURE OF THE REFERENCEIN )@@G@@& A = SET EQUAL,DEFINED,ASSIGNED& B = REFERENCED,CALLED G IO )@@G@@= FORMAT& C = CALLING SEQUENCE H = I-O UNIT& D = SUBSCRIPIP )@@G@@T I = READ& E = SPECIFICATION O = WRITE& IQ )@@G@@J = DO PARAMETER L = LIST& & IR )@@G@@ @@@@@@& ______V A R I A B L E T A B L E& ______& IS )@@G@@______VARBLE& ______FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& IT )@@G@@______& ______@@@@@______"@@@@@[@@@@@!@@B@@B@@A@@A@@@@@A@@@@@:@@@@[JIU )@@G@@@@@@@H@@@@@X@@@@@]@@@@@&@@F@@[@@@@@@HEAD1 @[V@@#@@@@@@@@@@@@@@@@@@THE FIIV )@@G@@RST ENTRY FOLLOWING THE STATEMENT NUMBER& IS THE NUMBER OF THE LINIW )@@G@@E ON WHICH IT WAS DEFINED& THE FLAGS FOLLOWING THE LINE NUMBERS (ON WIX )@@G@@HICH THE& STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE& D = DEIY )@@G@@FINED& S = FORMAT NUMBER&T = NONSTNDRD RTN&U = ASSIGNED& V = DOIZ )@@G@@& W = GOTO (CNDTNL)&X = GOTO (UNCNDTNL)& Y = IF (ARITHMETICJA )@@G@@)& & @@@@@@ &______S T A T E M E N T N U JB )@@G@@M B E R T A B L E& ______ &______ &______OF THE REFERENCE& JC )@@G@@______ &______ &______@@@@@______"@@@@@[@@@@@>@@D@@D@@@@@A@@@@@/JD )@@G@@@@^@@^@@#@@#@@@@[J@@@@[)@@@@@]@@F@@[@@@@@@HEAD2 @[>@@#@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@DO& GO TO (UNCONDITIONAL)& CALL& RETURN (NON-STANDARD)& INPUT JF )@@G@@ STOP& IF (LOGICAL)& GO TO (ARITHMETIC)& FUNCTION REFERENCEJG )@@G@@& ASSIGN& OUTPUT& IF (ARITHMETIC)& GO TO (CONDITIONAL)& JH )@@G@@RETURN (STANDARD)&TAPES&INTERNAL SUBPROGRAM& NON-STANDARD FORTRAN STAJI )@@G@@TEMENTS.& ACCEPT& DISPLAY& ERPRINT& REPEAT& REPLACE& JJ )@@G@@GENERATE& REGISTER& ARGUMENT& ALTERNATE PRINTER&MONITOR& ASM$INJK )@@G@@TERFACE& MACROS LISTED BELOW. (NO VARIABLES OR STATEMENT NOS. WILL BEJL )@@G@@ GENERATED.)& ABORT&BUFFER& FILE& IDENTIFY& JUMP& LABELS& JM )@@G@@NAME& NEXT& READ& SCAN& UNIQUE& WRITE&@@@@@[@@@@@]@@@@@A@@@@@B@@@@@FJN )@@G@@@@@@@I@@@@@L@@@@@P@@@@@T@@@@@V@@@@@X@@@@@)@@@@@=@@@@@$@@@@@*@@@@@?@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@4@@@@@6@@@@@8@@@@@'@@@@@/@@@@@"@@@@[@@@@@[]JP )@@G@@@@@@[ @@@@[B@@@@@@@@@@@@@@@@@@@@@@@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@[RJQ )@@G@@@@@@[S@@@@[U@@@@[V@@@@[X@@@@[Y@@@@[)@@@@[-@@@@[+@@@@[<@@@@[=@@@@[&@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ & ______T R A N S F E R JS )@@G@@ T A B L E& ______ONLY THOSE ENTRIES WHICH ARE REFERENCED ARE PRINTED OUJT )@@G@@T. THE COMPLETE LIST FOLLOWS&______ & ______ & ______@@@@@______"JU )@@G@@@@@@@[@@@@@!@@@@@A@@@@@]_____.@@F@@#@@@@@@HEAD3 @^Y@@]@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@UEF2@@*EGV@[LEHI@@^EJ?)@-E@U)@TEFT)@JEGG)@FEH#JW )@@G@@)[HEIZ)@]EJ0@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___JX )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___CONTROL CARD ERROR. IMAGJY )@@G@@E=& ______ & ______ ______ TPF$ _____"@@@@@O@@@@@\@@@@[]JZ )@@G@@@@@@@]@@@@@@@@@@@[@@@@@GEND MERGE @@F@@@@@@@@@CHKCC @]7@@]@@@@@@@@@@@@KA )@@G@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@KC )@@G@@ @@@@@@@@@@@@@@@@@@@USE I$I$I$, @@@@@@KD )@@G@@@@@@@@@@@@@@& ______******______TPF$& ______. . & ______IGNORE INVALKE )@@G@@ID OPTION(S).& ______I OPTION. NO. TOO LARGE.& ______I$I$I$ KF )@@G@@______I$I$I$ ______ & ______CANNOT ASSIGN FILE. STATUS=& ______KG )@@G@@ & ______CANNOT FIND ELEMENT IN FILE.& ______I/O ERROR. STATUS=& KH )@@G@@______PROGRAM NOT DEFINED OR OVERFLOW.& ______CONTROL CARD IMAGE=& KI )@@G@@______ & ______@@@@@ @@@@@@@@@@@[_____"@@[@@[@@@@@B@@@@@O@@@@@#@@@@@]KJ )@@G@@@@@@B@@@@@@_@@@@@0@@@@@H@@@@@$@@@@@P@@@@[]@@F@@@@@@@@@CTCDIT@#Z@@]@@F@@@KK )@@G@@@@@@@@TPROC @[Y@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO@C@-!?@MO@@@___@]\^@@KM )@@G@@@@E^]_@[!^QL)@K^]\)NC^#D>8]^R"@@@___@@@___@@@___@@@___@@@___@@@___@@@___KN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KO )@@G@@/\K@C);G@@@=;^@@@#;C@@@-O;@@@0')J)C$8^@@C]/KF@@[/\K@C)A#@@[[E@K@[[R;@@@@KP )@@G@@W8@@@EO;K@@0;^@@@=')J)C$H9@@@[1@@@@K/^K@CFR;@@@-R#K^])0@@@[[/K@@CX/D@@CVKQ )@@G@@/KF@@[/\K@C);G@@@=R#@@@H;@K@@A')J)C$8^@@CV/KF@@[RB:@@@O#)^]ZR#0@@IQ\;@@@KR )@@G@@C5F@@@8^H@@@/KH@@@/\0@C!A3I@@@A\I@@@A:I@@@A$I@@@A/KF@@]R;@@@@A#@^QR#@^R^LT )@@G@@A#@^Q:/KF@@[C4FK@@[0@^QN/KF@@]C0@^QOS8@@@AG4K^QOG8K@@[[@VK@@/KF@@]C[@^Q=LU )@@G@@/K@@I#C[FK@@O'0@@[R;0@@#/K@@IQC[@^Q=/K@@IDC[FK@@O'0@@[C80@@]/K@@IQC[@^Q=LV )@@G@@/K@@IJC[FK@@O'0@@[C80@@[/K@@IQC[@^Q=/K@@IPC[FK@@O'0@@[C80@@@[[@^Q<[@0^Q)LW )@@G@@C@VK@@/CK@IR]0^QZ/KF@@#A[@^QXA[K^QYLZ )@@G@@R F@@[&9@@@[C@FK@][@@^Q-(CF@@#/K@@J R9K@@@ @@^Q+/K@@JFR[VK@#P9K@@[C@FK@^MA )@@G@@[@@^Q+O'0@@]A]0^QZ(@@^Q+/K@@JOC@K^Q+/GK@JMC8@^Q!/,0@E]/K@@JOD@@^Q+/,0@DR]0^QZMD )@@G@@/KF@@^R#F@@@&#F@@['=@@@H/KF@@#R#FK@[R#V@@@;*K@@M;?@@@M'=@@@JA#FK@]/KF@@^ME )@@G@@C8K@@C/K@@J;C8K@@K[WK^RC @@@@JC[FK@]W80@@W[@0^REC[V@@@[[K^RDC@:K@[[C)^RDMF )@@G@@C8@^R '=@@@#(4@^RC/K@@KI[@@^RHC@@^RQ'=@@@IC8@^RF'=@@[Q'=@@@)C K^RCG[VK@]MG )@@G@@[[VK@]/KF@@^A]0@@E/,0@F,@@@^RG@@@^RG@GAYLEC@@^RR'=@@@J/KE@@[9?@^R 9*@^R?MH )@@G@@R;@^R?'=@@[G*4@^R2/KF@@[R#@^RU'=@@@J/CF@@[R#@^R*'=@@@I[@@@K:C8@@K('=@@[QMI )@@G@@/K@@K?TCTERRK@@@@@@@@@@@'=@@@)9?FK@@9*@^R?R;@^R?'=@@[G*4@^R2/KF@@^R#@^R5MJ )@@G@@A#@^R,R#@^R('=@@@J/@F@@^/CF@@^A#FK@]/KFK@[/KF@@['=@@@)'=@@@DA]0^R6R;@@@CMK )@@G@@A:@^R8/,0@LCR#@^R.'=@@@IR]0^R6/KF@@[C9K@@[/K@@LDC9K@@@&';@@@N@K@@D9?)^R7ML )@@G@@C8K@@H/K@@LK;G)@@AP;K@@[+80@@_:9@@@ /K@@LI;GK@@=W8K@@AQ'X^R7&'K@@[&;)@@[MM )@@G@@C[@@MMC@@@MNC80@@@+8@@@_%8K@@ /K@@L<;C@@@AG80@@A;-@@@A')I)MD/K@@LV;*J@@@MN )@@G@@C@0@@G @@@@K;=0@@A')I)MD/^0@L&C9@@@ ')I)MD9?@@[](@@@@L'=@@@MC@0@@G/\@@M^MO )@@G@@C9@@@/')I)MD/\@@M^C9@@@/')I)MD/\@@M^C9@@@ ')I)MDC@0@@H/\@@M^C9@@@:')I)MDMP )@@G@@/\@@M^C9@@@:')I)MD/\@@M^R]K@[[Q'0@@@/SF)@@/KF@@@;=0@@A')I)MD;=0@@A')I)MDMQ )@@G@@/KG@@@[5D@@@[1D@@@[!D@@@[(D@@@[>D@@@/,0@MJQ;)@@@[-D)@@/KF@@@RLIB LMSC39MR )@@G@@@@@@@@@MN@C@^R.^]Z@@@@ )O@@@@[8F@MOEJ1^R"@@@@@&)O@@@@@W5@MOED;^R"@@@@@]MS )@@G@@'^@@G-'^@@G\[,4@@['^@@G-'^@@G\@$_@@['^@@G-'^@@G\@$'@@['^@@G-'^@@G\[7A@@[MT )@@G@@'^@@G-'^@@G\[#C@@['^@@G-'^@@G\@$M@@['^@@G-'^@@G\@$-@@['^@@G-'^@@G\@$N@@[MU )@@G@@'^@@G-'^@@G\[=K@@['^@@G-'^@@G\[$J@@['^@@G-'^@@G\[*>@@['^@@G-'^@@G\[%Q@@[MV )@@G@@'^@@G-'^@@G\@Y%@@['^@@G-'^@@G\@Y2@@['^@@G-'^@@G\@YV@@['^@@G-'^@@G\@Y&@@[MW )@@G@@'^@@G-'^@@G\@YN@@['^@@G-'^@@G\[=@@@['^@@G-'^@@G\@W1@@]'^@@G-'^@@G\@OI@@]MX )@@G@@'^@@G-'^@@G\@)-@@['^@@G-'^@@G\@$=@@['^@@G-'^@@G\@$>@@['^@@G-'^@@G\@$*@@[MY )@@G@@'^@@G-'^@@G\@>J@@['^@@G-'^@@G\@>M@@['^@@G-'^@@G\[&^@@['^@@G-'^@@G\[\-@@[MZ )@@G@@'^@@G-'^@@G\[0G@@['^@@G-'^@@G\[0$@@['^@@G-'^@@G\@MZ@@['^@@G-'^@@G\@NC@@[NA )@@G@@'^@@G-'^@@G\@VK@@['^@@G-'^@@G\@YH@@['^@@G-'^@@G\@X)@@['^@@G-'^@@G\@Y;@@[NB )@@G@@'^@@G-'^@@G\[V?@@['^@@G-'^@@G\[V\@@['^@@G-'^@@G\[V2@@['^@@G-'^@@G\[V5@@[NC )@@G@@'^@@G-'^@@G\[V8@@['^@@G-'^@@G\[8^@@['^@@G-'^@@G\@>,@@['^@@G-'^@@G\@>3@@[ND )@@G@@'^@@G-'^@@G\@&@@@['^@@G-'^@@G\@&S@@['^@@G-'^@@G\@&V@@['^@@G-'^@@G\@&<@@[NE )@@G@@'^@@G-'^@@G\@&4@@[__"@@@ ILLEGAL ARGUMENT IN CALLING SEQUENCE FOR NF )@@G@@SUBROUTINE MOVER @]E^]- H, ,. @@[^]\@@@@@_@@N^]!NG )@@G@@ , @@@@@@@@@@@@@@@@@@@@@@@Q @&Q@@@@@@@@@[[@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@_____"/K@@@@C@@^QC@K^QN;*K@@G;?@@@S'=@@@I/K@^Q> NJ )@@G@@ NK )@@G@@ '=@@[S'=@@@ITCT$ @@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@IOW$ 8@A^R @@@@@@ I/O ERROR ON SCRATCH FILE - PACKET NM )@@G@@DUMP FOLLOWS@]C^RI@@]^RS@FREE TCT$. @@ ^RV@ASG,T TCT$.,F//POS/25 . NN )@@G@@ CANNOT ASSIGN TCT$ (MERGE) FILE. STATUS IN A0. @]C^R)@@^^R%@ASG,A NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ . @@@@@@DCTNRYNP )@@G@@ 01A @[A^R7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A @@G@@^@@@@ NS )@@G@@B @@I@@^@@@@@&C @@K@@^@@@@@]@@@#@ @@@@ @@@]@ @@@@@&NT )@@G@@@@@]@ @@@@@]J8(_C>0MSA[QJ"53ULC^&6<4J89^*4P)(.N'0BGB9.XS]-R_J801I6N\T#"MNU )@@G@@ASMDCT8 NGQ]VGBLANK$COMMONMRGHD BSP EH^[KECHKCC NG;]VGNV )@@G@@CTCDIT NTF]VGDCT8 NT)]VGEDIT$ MZ4F^EEDIT$L AX?FGANW )@@G@@ERU$ H%#GMFE8ARY @[^[=*E8DCT )#@@@]E8IPT )#@@@]NX )@@G@@E8TCTD NT:]VGFINDER NT0]VGHDG AYMFGAHEAD1 NU6]VGNY )@@G@@HEAD2 NU/]VGHEAD3 NV#]VGIDLIN NVB]VGIDL$ E17EDBNZ )@@G@@IDONLY$ M)^F^EIRFTI NVC]VGISDFIO NVE]VGITF NVF]VGOA )@@G@@LIBS NVH]VGMAIN NV&]VGMOVER H:B[EBMRGHD NV?]VGOB )@@G@@MRG8 NV2]VGMSG @[^[0?OP NV8]VGPRINT NV9]VGOC )@@G@@PROCRD NV_]VGPRTERR NW ]VGRDS NWF]VGSDFI M(]GFEOD )@@G@@SQUASH NWN]VGTBL8 NWT]VGTPROC NWW]VGVC)&S_0^Z 2I*IO*SKOE )@@G@@0CSE[TL"<6SV0^T2\3=3CK+!J72".UC'\JD*0^A'S?F%Y<(%J6>1H/_R\=H*J'%?L5\@F%N_OF )@@G@@J'$W/PJ %4_W0DO$3+V(GSY*J55J5W:A2-]$IBANK @@@@@($DBANKOG )@@G@@ @[;@@8J;)PE0X7!#8>J7:,*5.DFW-5J7- W\WT-T6/0#WRNS^_'2C7J5561D4X9"(@OH )@@G@@J8%F[<7F0Z(9J96 O2_[A$NL0CHK&">S2D*I0 I]0W8#" #J7_/Y^%&V310J9/@O&M+^':COI )@@G@@@@@@@PK@@[@^@@1@C@@@@@@MK@@[@^@]1@C1@@@@[IK@@[@^@@G@F+@@@@@%K@@[@^@@3@F,OJ )@@G@@@@@@@9K@@[@^@@$@G-@@@@[F@@@[@^@@S@HC@@@@[U@@@[@^@]H@H)@@@@@=@@@[@^@[I@J!OK )@@G@@@@@@[C@@@[@^@@#@K;@@@@@6@@@[@^@@C@K"@@@@@/K@@[@^@[I@LA@@C@[O@@@[@^@DS@MOOL )@@G@@@@C@[L@@@[@^@[E@V?@@^@@AK@@[@^@C/@MO@@^@[(K@@[@^@##@VK@@^@[]@@@[@^@@R@YNOM )@@G@@@@^@@_@@@[@^@@L@Y%@@^@[?@@@[@^@]^@Y;@@^@[)@@@[@^@^\@)_@@^@[)C@@#@^@@@@##ON )@@G@@@@^@@@@@@[@^@]Q@>,@@^@@J@@@[@^@*;@*^@@^@@JC@@#@^@@@@##@@^@@JC@@ @^@@@@#@OO )@@G@@@@^@[\@@@[@^@N[[K_@@^@[\C@@#@^@@@@#@@@^@[\C@@ @^@@@@#D@@^@[ @@@[@^@@K[=@OP )@@G@@@@^@@$@@@[@^@@S[=K@@^@[<@@@[@^@[+[=*@@^@[@@^@[<*@@]@ @@@@]^@@^@[<*@@^@ @@@@#@@@^@@!)@@@@ @#:E]8PD )@@G@@@@^@@!*@@]@ @@@@]^@@^@@0)@@@@ @[!EA<@@^@@0*@@]@ @@@@]^@@^@@3)@@@@ @#KECKPE )@@G@@@@^@@3*@@]@ @@@@]^@@^@@D)@@@@ @@;EF)@@^@@D*@@]@ @@@@]^@@^@[&)@@@@ @@WEGVPF )@@G@@@@^@@G)@@@@ @[0EG7@@^@@G*@@]@ @@@@]^@@^@@G*@@^@ @@@@#A@@^@[2)@@@@ @[FEI$PG )@@G@@@@^@[2*@@]@ @@@@]^&\2KCBASGTCT @@P@@!CHKASGPI )@@G@@ @@P@[@CHKCC @[&@^QCHKLET @@/@]LCHKNUM @@/@]GCSF PJ )@@G@@ @@P@@^CTCDIT @[\@AUDCT8 @@_@V^DRMWT8 @@P@@FEBD$L PK )@@G@@ @@@@@CECHAR$ @@#@@(ECOPY$ @@#@[LEDECF$ @@#@]HEDITR$PL )@@G@@ @@#@@HEDITX$ @@#@@REDIT$ @@#@@@EMSG$ @@#@[-EOCTF$PM )@@G@@ @@#@] ERROR8 @@/@[=ERRST8 @@/@[3ERSET8 @@/@[>ESKIP$PN )@@G@@ @@#@@2FINDER @[O@@@GETOUT @@P@@>HDG @@D@@@HEAD1 PO )@@G@@ @[X@[ HEAD2 @[)@[LHEAD3 @[<@[?IDBUFF @]N@@[IDJ$ PP )@@G@@ @@G@@@IDLIN @@V@@@IDONLY$ @@Y@@]IRFTI @@0@@@IRPFPTPQ )@@G@@ @@0@@CISDFI @@!@@CISDFIC @@!@@NISDFIO @@!@@@ITF PR )@@G@@ @[L@@@MOVER @@A@@@MRGHD @@=@[ MRG8 @@-@['MULTY PS )@@G@@ @@3@[&NERR2$ @@S@@[NERR3$ @@S@@[NERR4$ @@S@@[NERR6$PT )@@G@@ @@S@@[NINTR$ @@S@@@NSTOP$ @@S@@]OBTAN8 @@P@@HOFEXT8PU )@@G@@ @@/@[6OFRTN8 @@/@[7OPA @@M@@>OPAF @@M@@ZOPAFP PV )@@G@@ @@M@@-OPAP @@M@@$OPI @@M@@1OPIP @@M@@3OPOP PW )@@G@@ @@M@@!OPRIME @@M@@@OPRINT @@M@@EOPUNCH @@M@@IPACK12PX )@@G@@ @@/@['PRINT @#$@@@PROCIT @@6@^KPROCRD @@6@^NPRTERRPY )@@G@@ @[R@[WRDS1 @[?@@@RDS2 @[?@@:RDS3 @[?@[AREAD PZ )@@G@@ @@P@@@RFTI @@$@@FRPFFPT @@$@@4SDFI @@%@@@SDFIC QA )@@G@@ @@%@].SDFIO @@%@]KSQUASH @@3@@@TBL1 @[C@E!TBL2 QB )@@G@@ @[C@E0TBL3 @[C@E3TBL4 @[C@E6TBL5 @[C@E9TPROC QC )@@G@@ @[8@@5UPA8 @@/@@@UPB8 @@/@@ UPC8 @@/@@MUPD8 QD )@@G@@ @@/@@%UPE8 @@/@@!UPF8 @@/@@5UPG8 @@/@[A'G'ZFYQE )@@G@@J2*SLJ[U7J=]0DIWL7_)32GN0GX?>,YY8:#[J6%K4[:,(;==J7%]U0FB8"F:=Y1J+0DW^W>JV3;&(0DH\ZC#BJV.YJ34,K1;W!=O1,IP*[@@@@*SDFF**[@@@@CTS@[=@[@@@@$(1). *[@@@@CTS@[,QI )@@G@@@#@@@@ AXR$. *[@@@@CTS@[8@]@@@@IRFTI*. *[@@@@CTS@]]@A@@@@QJ )@@G@@ SX X11,X11SAV. *[@@@@CTS@]G@ @@@@ L QK )@@G@@ A0,0,X11. *[@@@@CTS@]Q@ @@@@ LMJ X11,RFTI. *[@@@@CTS@])QL )@@G@@@^@@@@ J $+3.*[@@@@CTS@]%@A@@@@ LX X11,QM )@@G@@X11SAV. *[@@@@CTS@]4@ @@@@ J 3,X11. *[@@@@CTS@]"QN )@@G@@@A@@@@ LX X11,X11SAV. *[@@@@CTS@#C@ @@@@ J QO )@@G@@ 1,X11. *[@@@@CTS@#M@]@@@@IRPFPT* *[@@@@CTS@#W@A@@@@ QP )@@G@@ SX X11,X11SAV. *[@@@@CTS@#&@ @@@@ LA A0,0QQ )@@G@@,X11. *[@@@@CTS@#0@ @@@@ LA A1,*1,X11.*[@@@@CTS@#'@A@@@@QR )@@G@@ LMJ X11,RPFFPT. *[@@@@CTS@^^@^@@@@ J QS )@@G@@ $+3.*[@@@@CTS@^I@A@@@@ LX X11,X11SAV. *[@@@@CTS@^SQT )@@G@@@ @@@@ J 4,X11. *[@@@@CTS@^+@A@@@@ LX QU )@@G@@ X11,X11SAV. *[@@@@CTS@^?@ @@@@ J 2,X11. *[@@@@QV )@@G@@CTS@^6@]@@@@IFPTIS*. *[@@@@CTS@ @@A@@@@ SX X11,X11SAVQW )@@G@@. *[@@@@CTS@ E@ @@@@ LA A0,0,X11. *[@@@@CTS@ O@ @@@@QX )@@G@@ LA A1,1,X11. *[@@@@CTS@ Y@ @@@@ LMJ X11,QY )@@G@@FPTIS.*[@@@@CTS@ *@^@@@@ J $+3.*[@@@@CTS@ 2@A@@@@ QZ )@@G@@ LX X11,X11SAV. *[@@@@CTS@ /@ @@@@ J 4,X1RA )@@G@@1. *[@@@@CTS@AA@A@@@@ LX X11,X11SAV. *[@@@@CTS@AKRB )@@G@@@ @@@@ J 2,X11. *[@@@@CTS@AU@[@@@@$(0). *[@@@@CTS@A=RC )@@G@@@#@@@@X11SAV +0. *[@@@@CTS@A,@#@@@@ END. _@@@@@/,0@@@RD )@@G@@/K@@[6*@@@@@______LOAD T/=K@]SAS@@@@)[3[##@K0^G[[K0^C[#@K0@@@@@@@@@@@@['RE )@@G@@@@@@[:/,0@@@[@@@['D@@@@@@]A@[8@@@@@6@@@@[:AT@@@@)@@[F#@@K)@K^G@[#@@K0@@@RF )@@G@@A]0@@@/KF@@[R]0@@@/KF@@#R]0@@@/K@@@A/,0@@@R#F@@@A]0@@@AA@@@@)@D[E^C@O[#@RG )@@G@@@K0@^G@@@@@@A]0@@@/KF@@]R]0@@@/KF@@^R]0@@@/K@@@J/,0@@@C@VK@[C@F@@@AB@@@@RH )@@G@@)@M[]^C@=[#@@K0@@@)@@@C@@@@@@@/KF@@]R]0@@@/KF@@^R]0@@@/K@@@S/,0@@@C@V@@[RI )@@G@@C@F@@@AC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@#@@G@@#@@S@@@@@@@@[@@@@@URFTI RK )@@G@@RPFFPT FPTIS IRFTI @@[@@@@@@@@@IRPFPT @@[@@@@@@@@CRL )@@G@@IFPTIS @@[@@@@@@@@L/,0@@@[@@@@EC@@@@[AZ@@@@*[P@@@*SDFF**DP@@@SQUELCRM )@@G@@H$ UT0002GMARSH#]GHYJ@@@@@@@@@@@@ @A@[@@MAP27C LMSC37 03/0RN )@@G@@2/76 15:19:35 @@@[@@@G@[@@ 1. EQU DCTID/010 RO )@@G@@ . DCTNRY VERSION C @#@[@@ 2. SEG A@A@[@@ 3. RP )@@G@@ IN MAIN,OP,E8TCTD,LIBS @^@[@@ 4. IN IDLIN @A@[@@ 5. RQ )@@G@@IN SYS$*RLIB$.IDONLY$ @A@[@@ 6. NOT SYS$*RLIB$.SCD01 @ @[@@RR )@@G@@ 7. SEG B*,(A) @C@[@@ 8. IN DCT8,TBL8,ITF,PRIRS )@@G@@NT,FINDER @C@[@@ 9. IN PRTERR,HEAD1,HEAD2,HEAD3 @B@[@@RT )@@G@@ 10. IN CHKCC,RDS,CTCDIT,TPROC @ @[@@ 11. SEG C*,(RU )@@G@@A) @ @[@@ 12. IN MRG8,MRGHD @#@[@@ 13. END @@@[@@RV )@@G@@@B@[@@AFCM STATUS OF OUTPUT ELEMENT=UNKNOWN @@@]@@@F@[@@ADDRESS LIMIRW )@@G@@TS 001000 017024 7189 IBANK WORDS DECIMAL @F@[@@ RX )@@G@@ 040000 121767 25592 DBANK WORDS DECIMAL @B@[@@SEGMENT LOADRY )@@G@@ TABLE 040000 040013 @B@[@@INDIRECT LOAD TABLE 040014 0402RZ )@@G@@44 @^@[@@STARTING ADDRESS 001510@@@[@@@@@]@@@@@]@@@G@[@@ SA )@@G@@ SEGMENT A 001000 002223 040245 043003 @@@[@@@@@[@@SB )@@G@@@^@[@@SYS$*RLIB$.EDIT$L/LMSC01@G@[@@ $(1) 0010SC )@@G@@00 001060 $(0) 040245 040246 @@@[@@@^@[@@SYS$*RLIB$.EDIT$/SYS71 SD )@@G@@@C@[@@ $(1) 001061 001341 @@@[@@@^@[@@SYS$*RSE )@@G@@LIB$.ERU$/LMSC39 @@@[@@@[@[@@SYS$*R(#@@@@LIB$.MOVER/LMSC05 @G@[@@ SF )@@G@@ $(1) 001342 001355 $(0) 040247 040261 @B@[@@SG )@@G@@ EXTERNAL REFERENCES: PRINT$, ERR$ @@@[@@@^@[@@SYS$*RLIB$.HDG/LMSSH )@@G@@C01 @G@[@@ $(1) 001356 001440 $(0) 04SI )@@G@@0262 040313 @B@[@@ EXTERNAL REFERENCES: PRTCN$, EBD$L @@@[@@@#@[@@SJ )@@G@@SYS$*RLIB$.IDL$/64@C@[@@ $(1) 001441 001507 SK )@@G@@@B@[@@ EXTERNAL REFERENCES: SLT$, LOAD$ @G@[@@BLANK$COMMON (COMMSL )@@G@@ON BLOCK) 040314 042624 @@@[@@@#@[@@GMARSHSM )@@G@@*TPF$.MAIN @G@[@@ $(1) 001510 001537 $(0)SN )@@G@@ 042625 042630 @G@[@@ SO )@@G@@ $(2) BLANK$COMMON @G@[@@ EXTERNAL REFERENCES: OPRIME, IDLIN,SP )@@G@@ DCT8, MRG8, GETOUT, NINTR$, @]@[@@ NSTOP$@@@[@@@#@[@@GMARSH*TPF$.SQ )@@G@@OP @G@[@@ $(1) 001540 001754 $(0) 04SR )@@G@@2631 042712 @F@[@@ EXTERNAL REFERENCES: EDIT$, EDITX$, PUNCH$, PRISS )@@G@@NT$, EDITR$,@D@[@@ EMSG$, ECOPY$, ESKIP$, EDECF$, ECHAR$, EOCTF$ ST )@@G@@@@@[@@@#@[@@GMARSH*TPF$.E8TCTD@G@[@@ $(1) 0017SU )@@G@@55 002072 $(0) 042713 042773 @G@[@@ EXTERNAL REFERENCES: RESV )@@G@@AD$, CSF$, IOW$, PRINT$, SNAP$, ERR$, HDG,@]@[@@ FACIL$@@@[@@@#@[@@SW )@@G@@GMARSH*TPF$.LIBS @C@[@@ $(1) 002073 002075 SX )@@G@@@[@[@@ (A@@@@EXTERNAL REFERENCES: ERR$, EXIT$ @@@[@@@#@[@@GMARSHSY )@@G@@*TPF$.IDLIN @G@[@@ $(1) 002076 002105 $(0)SZ )@@G@@ 042774 043003 @D@[@@ EXTERNAL REFERENCES: DCTID, IDONLY$, PRINTA )@@G@@T$ @@@[@@@^@[@@SYS$*RLIB$.IDONLY$/SYS71@C@[@@ TB )@@G@@$(1) 002106 002223 @C@[@@ EXTERNAL REFERENCES: IDBUFF, RLIB$,TC )@@G@@ DATE$@@@]@@@G@[@@ SEGMENT B* 002224 017024 TD )@@G@@043004 121767 @ @[@@ FOLLOWS SEGMENT A@@@[@@@@@[@@@^@[@@TE )@@G@@SYS$*RLIB$.BSP/SYS70 @G@[@@ $(1) 002224 003TF )@@G@@317 $(0) 043004 043020 @B@[@@ EXTERNAL REFERENCES: IOW$, TDTG )@@G@@ATE$ @@@[@@@^@[@@SYS$*RLIB$.SDFI/SYS71-2 @C@[@@ TH )@@G@@$(1) 003320 003622 @D@[@@ EXTERNAL REFERENCES: WAIT$, IO$, FATI )@@G@@CIL$, IOW$ @@@[@@@#@[@@GMARSH*TPF$.ISDFIO@G@[@@ TJ )@@G@@$(1) 003623 003651 $(0) 043021 043021 @C@[@@ EXTERNAL REFTK )@@G@@ERENCES: SDFIO, SDFI, SDFIC @@@[@@@#@[@@GMARSH*TPF$.IRFTI @G@[@@ TL )@@G@@ $(1) 003652 003703 $(0) 043022 043022 @C@[@@TM )@@G@@ EXTERNAL REFERENCES: RFTI, RPFFPT, FPTIS @@@[@@@#@[@@GMARSH*TPF$.TN )@@G@@SQUASH@G@[@@ $(1) 003704 004107 $(0) 04TO )@@G@@3023 043024 @G@[@@ $(2)TP )@@G@@ 043025 043140 @A@[@@ ( @@@@ TQ )@@G@@ $(6) E8ARY @@@[@@@#@[@@GMARSH*TPF$.PROCRD@G@[@@ TR )@@G@@ $(1) 004110 004566 $(0) 043141 043353 @G@[@@ TS )@@G@@ $(3) MSG $(2) BLANK$COMMON @F@[@@TT )@@G@@ $(4) E8ARY @G@[@@TU )@@G@@ EXTERNAL REFERENCES: IRFTI, IRPFPT, IFPTIS, OPA, OPAF, OPAFP, TV )@@G@@@G@[@@ ISDFIO, OPAP, OPOP, MOVER, ISDFI, OPI, ISDFIC, NERR6$, NERR4TW )@@G@@$, @]@[@@ NERR3$@@@[@@@^@[@@GMARSH*TPF$.ASMDCT8 @G@[@@ TX )@@G@@ $(1) 004567 005014 $(0) 043354 043370 @B@[@@TY )@@G@@ EXTERNAL REFERENCES: ERR$, PRINT$ @G@[@@E8ARY (COMMON BLOCK) TZ )@@G@@ 043371 046773 @G@[@@MSG (COMMON BLOCK)UA )@@G@@ 046774 047144 @G@[@@E8IPT (COMMOUB )@@G@@N BLOCK) 047145 051114 @G@[@@E8DCT UC )@@G@@(COMMON BLOCK) 051115 051621 @@@[@@UD )@@G@@@#@[@@GMARSH*TPF$.DCT8 @G@[@@ $(1) 005015 012UE )@@G@@107 $(0) 051622 052212 @G@[@@ $(3) MSG UF )@@G@@ $(2) BLANK$COMMON @F@[@@ $(5) UG )@@G@@ E8ARY $(4) E8DCT @F@[@@ UH )@@G@@ $(6) E8IPT @F@[@@ EXTERNAL REFERENCES: OFUI )@@G@@RTN8, TBL1, ERRST8, MOVER, CSF, READ([@@@@, @G@[@@ CTCDIT, HDG,UJ )@@G@@ OPA, OPAF, OPAFP, OPAP, ERSET8, PROCRD, RDS2, TPROC, @G@[@@ UPA8, UK )@@G@@MULTY, UPB8, TBL3, UPC8, PRTERR, SQUASH, CHKLET, CHKNUM, @G@[@@ UL )@@G@@FINDER, TBL4, RDS3, TBL5, UPF8, PROCIT, UPG8, TBL2, ITF, PRINT, @ @[@@UM )@@G@@ NERR2$, NERR3$, NERR4$ @@@[@@@#@[@@GMARSH*TPF$.TBL8 @G@[@@ UN )@@G@@ $(1) 012110 014410 $(0) 052213 120100 @G@[@@UO )@@G@@ $(3) E8ARY $(2) BLANK$COMMON UP )@@G@@@F@[@@ $(5) E8DCT $(4) E8IPT UQ )@@G@@@F@[@@ $(6) MSG UR )@@G@@@G@[@@ EXTERNAL REFERENCES: MOVER, CHKLET, CHKNUM, HEAD1, UPE8, ITUS )@@G@@F, @G@[@@ OPAF, OPAFP, OPA, DRMWT8, HEAD2, OPI, HEAD3, OPIP, UPDUT )@@G@@8, OPAP, @A@[@@ OFEXT8, OPUNCH, NERR3$, NERR4$@@@[@@@#@[@@GMARSHUU )@@G@@*TPF$.ITF @G@[@@ $(1) 014411 014430 $(0)UV )@@G@@ 120101 120102 @@@[@@@#@[@@GMARSH*TPF$.PRINT @G@[@@ UW )@@G@@ $(0) 120103 120114 @A@[@@ EXTERNUX )@@G@@AL REFERENCES: PRINT$ @@@[@@@#@[@@GMARSH*TPF$.FINDER@G@[@@ UY )@@G@@ $(1) 014431 014460 $(0) 120115 120252 @F@[@@ UZ )@@G@@ $(6) E8ARY @@@[@@@#@[@@VA )@@G@@GMARSH*TPF$.PRTERR@E@[@@ $(1) 014461 014622 VB )@@G@@ $(0) 12(]@@@@0253 120275 @G@[@@ $(3) MSG VC )@@G@@ $(2) BLANK$COMMON @F@[@@ VD )@@G@@ $(4) E8ARY @F@[@@ EXTERNAL REFERENCES: OPVE )@@G@@A, OPAP, OPAFP, OPAF, ERROR8, NERR3$@@@[@@@#@[@@GMARSH*TPF$.HEAD1 @G@[@@VF )@@G@@ $(1) 014623 014734 $(0) 120276 120650 VG )@@G@@@G@[@@ $(2) BLANK$COVH )@@G@@MMON @C@[@@ EXTERNAL REFERENCES: OPAP, OPA, NERR3$ @@@[@@@#@[@@VI )@@G@@GMARSH*TPF$.HEAD2 @G@[@@ $(1) 014735 015062 VJ )@@G@@ $(0) 120651 121025 @G@[@@ VK )@@G@@ $(2) BLANK$COMMON @C@[@@ EXTERNAL REFERENCES: OPAP, OPVL )@@G@@A, NERR3$ @@@[@@@#@[@@GMARSH*TPF$.HEAD3 @G@[@@ VM )@@G@@$(1) 015063 015246 $(0) 121026 121345 @G@[@@ VN )@@G@@ $(2) BLANK$COMMON @D@[@@ EXTERNVO )@@G@@AL REFERENCES: OPAP, OPA, OPRINT, NERR3$ @@@[@@@#@[@@GMARSH*TPF$.CHKCC VP )@@G@@@G@[@@ $(1) 015247 015751 $(0) 121346 1VQ )@@G@@21440 @G@[@@ $(3) MSG $(2) BLVR )@@G@@ANK$COMMON @G@[@@ EXTERNAL REFERENCES: OPA, OPAF, OPRINT, OPAP, EVS )@@G@@RROR8, MOVER, @ @[@@ PACK12, NERR4$, NERR3$ @@@[@@@#@[@@GMARSHVT )@@G@@*TPF$.RDS @B@[@@ $(1) 015752 016( @@@@064 VU )@@G@@ $(0) 121441 121474 @D@[@@ EXTERNAL REFERENCES: PFS$, SDFIO, SVV )@@G@@DFI, SDFIC @@@[@@@#@[@@GMARSH*TPF$.CTCDIT@G@[@@ VW )@@G@@$(1) 016065 016727 $(0) 121475 121654 @G@[@@ VX )@@G@@ $(3) E8DCT $(2) BLANK$COMMON @F@[@@ VY )@@G@@ $(5) MSG $(4) E8IPT @G@[@@ EXTERNVZ )@@G@@AL REFERENCES: UPC8, MOVER, CHKCC, OPA, OPAF, CSF, OPAP, @G@[@@ WA )@@G@@ASGTCT, OPRINT, CHKASG, RDS1, OPOP, OPIP, OPAFP, NERR2$, NERR4$, @]@[@@WB )@@G@@ NERR3$@@@[@@@#@[@@GMARSH*TPF$.TPROC @G@[@@ WC )@@G@@$(1) 016730 017024 $(0) 121655 121767 @G@[@@ WD )@@G@@ $(2) BLANK$COMMON @C@[@@ EXTERNWE )@@G@@AL REFERENCES: UPC8, NERR4$, NERR3$@@@]@@@G@[@@ SEGMENT C* WF )@@G@@ 002224 003465 043004 121201 @ @[@@ FOLLOWG )@@G@@WS SEGMENT A@@@[@@@@@[@@@#@[@@GMARSH*TPF$.MRG8 @G@[@@ WH )@@G@@ $(1) 002224 003353 $(0) 043004 120625 @G@[@@ WI )@@G@@ $(2) BLANK$COMMON @G@[@@ WJ )@@G@@EXTERNAL REFERENCES: HDG, MOVER, OPAP, OPAFP, MRGHD, OPAF, OPA, @^@[@@WK )@@G@@ OBTAN8, NERR3$ @@@[@@@#@[@@GMARSH*TPF$.MRGHD @G@[@@ WL )@@G@@ $(1) 003354 003465 $(0) 120626 121201 @B@[@@ WM )@@G@@ ( @@@@ $(2) BLANK$COMMON WN )@@G@@@C@[@@ EXTERNAL REFERENCES: OPAP, OPA, NERR3$ @@@]@@@@@[@@@@@]@@WO )@@G@@@D@[@@IBANK DRAWN TO SCALE: 70 WORDS DECIMAL PER DASH @@@[@@@]@[@@WP )@@G@@A (660) @]@[@@--------- @#@[@@ C* (674) @^@[@@ ---WQ )@@G@@------- @#@[@@ B* (6529)@M@[@@ ---------------------WR )@@G@@------------------------------------------------------------------------WS )@@G@@- @@@]@@@D@[@@DBANK DRAWN TO SCALE: 300 WORDS DECIMAL PER DASH WT )@@G@@@@@[@@@]@[@@ A (1375) @[@[@@ ---- @#@[@@ C* (23678) @I@[@@ -WU )@@G@@------------------------------------------------------------------------WV )@@G@@------@#@[@@ B* (24052) @J@[@@ -------------------------------WW )@@G@@------------------------------------------------- @@@]@@@^@]@@INDIREWX )@@G@@CT LOAD TABLE @G@[@@CALLS ON THE FOLLOWING IBANK ENTRY POINTS IN INDWY )@@G@@IRECT LOAD SEGMENTS ARE @G@[@@ROUTED VIA THESE INDIRECT LOAD ADDRESSES, WZ )@@G@@TO INSURE SEGMENTS ARE LOADED @F@[@@CHKCC 040014 CHKLET XA )@@G@@040017 CHKNUM 040022 @F@[@@CTCDIT 040025 DCT8 XB )@@G@@040030 ERROR8 040033 @F@[@@ERRST8 040036 ERSET8 XC )@@G@@040041 FINDER 040044 @F@[@@FPTIS 040047 HEAD1 XD )@@G@@040052 HEAD2 040055 @F@[@@HEAD3 040060 IFPTIS XE )@@G@@040063 IRFTI 040066 @C@[@@IRPFPT 040071 ISDFI XF )@@G@@040074 IS(#@@@@DFIC 040077 @F@[@@ISDFIO 040102 ITF XG )@@G@@ 040105 MRGHD 040110 @F@[@@MRG8 040113 MULTY XH )@@G@@ 040116 OFEXT8 040121 @F@[@@OFRTN8 040124 PACK12 XI )@@G@@ 040127 PROCIT 040132 @F@[@@PROCRD 040135 PRTERR XJ )@@G@@ 040140 RDS1 040143 @F@[@@RDS2 040146 RDS3 XK )@@G@@ 040151 RFTI 040154 @F@[@@RPFFPT 040157 SDFI XL )@@G@@ 040162 SDFIC 040165 @F@[@@SDFIO 040170 SQUASH XM )@@G@@ 040173 TBL1 040176 @F@[@@TBL2 040201 TBL3 XN )@@G@@ 040204 TBL4 040207 @F@[@@TBL5 040212 TPROC XO )@@G@@ 040215 UPA8 040220 @F@[@@UPB8 040223 UPC8 XP )@@G@@ 040226 UPD8 040231 @F@[@@UPE8 040234 UPF8 XQ )@@G@@ 040237 UPG8 040242 @@@[@@@N@]@@EXTERNAL DEFINITIONS (RXR )@@G@@EFERENCED ENTRY POINTS MARKED *)(UNDEFINED SYMBOLS MARKED ?)(LOCAL SYMXS )@@G@@BOLS MARKED L) @@@[@@@P@[@@ ABORT$(ERU$) 000000000012XT )@@G@@ ABR$(ERU$) 000000000027 ABSAD$(ERU$) XU )@@G@@000000000030@P@[@@ ABSR$(ERU$) 000000000047 ABSW$(XV )@@G@@ERU$) 000000000017 ACCNT$(ERU$) 000000000163XW )@@G@@@P@[@@ ACLIST$(ERU$) 000000000141 ACQ$(ERU$) XX )@@G@@ 000000000016 ACSF$(ERU$) 000000000140@P@[@@ XY )@@G@@ACT$(ERU$) 000000000147 ADACT$(ERU$) 000000XZ )@@G@@000154 ADED$(ERU$) 000000000161@P@[@@ APCHCA$(ERU$YA )@@G@@) 000000000077 APCHCN$(ERU$) 000000000075 YB )@@G@@APNCHA$(ERU$) 000000000073@P@[@@ APRINT$(ERU$) YC )@@G@@000000000070 APRNTA$(ERU$) 000000000071 APRTCA$(ERU$YD )@@G@@) 000000000076@P@[@@ APRTCN$(ERU$) 000000000074YE )@@G@@ APTIA(BSP) 002713 APTID(BSP) YF )@@G@@ 003131@P@[@@ APTIS(BSP) 002562 APTNL(YG )@@G@@BSP) 002443 APUNCH$(ERU$) 000000000072YH )@@G@@@P@[@@ AREADA$(ERU$) 000000000167 AREAD$(ERU$) YI )@@G@@ 000000000166 *ASGTCT(E8TCTD) 002032@P@[@@ YJ )@@G@@ATREAD$(ERU$) 000000000170 AWAIT$(ERU$) 000000YK )@@G@@000134 BANK$(ERU$) 000000000160@P@[@@ BBEOF$(ERU$)YL )@@G@@ 000000000036 BDSPT$(ERU$) 000000000115 YM )@@G@@BRD$(ERU$) 000000000024@P@[@@ BSD$(ERU$) YN )@@G@@000000000035 BSF$(ERU$) 000000000053 BSRD$(ERU$) YO )@@G@@ 000000000037@P@[@@ CADD$(ERU$) 000000000057YP )@@G@@ CCR$(ERU$) 000000004011 CEND$(ERU$) YQ )@@G@@000000000100@#@[@@ CGET$(ERU$) (M@@@@ 000000000056 *YR )@@G@@CHKASG(E8TCTD) 002055 *CHKCC(CHKCC) YS )@@G@@015675@P@[@@ *CHKLET(ASMDCT8) 005010 *CHKNUM(ASMDCYT )@@G@@T8) 005003 CJOIN$(ERU$) 000000000151@P@[@@YU )@@G@@ CLIST$(ERU$) 000000000153 CMD$(ERU$) YV )@@G@@000000000051 CMH$(ERU$) 000000000052@P@[@@ CMI$(EYW )@@G@@RU$) 000000000047 CMO$(ERU$) 000000000050YX )@@G@@ CMSA$(ERU$) 000000000053@P@[@@ CMS$(ERU$) YY )@@G@@ 000000000045 CMT$(ERU$) 000000000046 COM$(EYZ )@@G@@RU$) 000000000010@P@[@@ CONDV$(ERU$) 000000ZA )@@G@@004015 COND$(ERU$) 000000000066 CPOOL$(ERU$) ZB )@@G@@ 000000000055@P@[@@ CPTIA(BSP) 002715 ZC )@@G@@CPTID(BSP) 003133 CPTIS(BSP) ZD )@@G@@002564@P@[@@ CPTNL(BSP) 002445 CQUE$(ERU$) ZE )@@G@@ 000000000117 CREL$(ERU$) 000000000152@P@[@@ZF )@@G@@ CRTN$(ERU$) 000000000035 *CSF(E8TCTD) ZG )@@G@@ 001761 *CSF$(ERU$) 000000000017@P@[@@ *CTCDITZH )@@G@@(CTCDIT) 016717 CTSA$(ERU$) 000000000124ZI )@@G@@ CTSQ$(ERU$) 000000000122@A@[@@ CTS$(ERU$) ZJ )@@G@@ 000000(J@@@@000123 CW$(ERU$) 000000000012 ZK )@@G@@DACT$(ERU$) 000000000150@P@[@@ DADD$(ERU$) ZL )@@G@@000000000041 *DATE$(ERU$) 000000000022 DBACK$(ERU$)ZM )@@G@@ 000000000031@P@[@@ DBB$(ERU$) 000000000036ZN )@@G@@ DBITS$(ERU$) 000000000030 *DCTID ZO )@@G@@000000000010@P@[@@ *DCT8(DCT8) 010321 DCYC$(ZP )@@G@@ERU$) 000000000034 DGETP$(ERU$) 000000000016ZQ )@@G@@@P@[@@ DGET$(ERU$) 000000000015 DKEY$(ERU$) ZR )@@G@@ 000000000035 DLAPS$(ERU$) 000000000032@P@[@@ ZS )@@G@@DLINK$(ERU$) 000000000040 DREAD$(ERU$) 000000ZT )@@G@@000020 DREG$(ERU$) 000000000037@P@[@@ *DRMWT8(E8TCTZU )@@G@@D) 001770 DUNLD$(ERU$) 000000000033 ZV )@@G@@D$(ERU$) 000000000002@P@[@@ EABT$(ERU$) ZW )@@G@@000000000026 *EBD$L(EDIT$L) 001010 EBF$L(EDIT$LZX )@@G@@) 001031@P@[@@ EBO$L(EDIT$L) 001000ZY )@@G@@ *ECHAR$(EDIT$) 001132 ECLEAR$(EDIT$) ZZ )@@G@@ 001151@P@[@@ ECOLN$(EDIT$) 001160 ECOL$(AA )@@G@@EDIT$) 001135 *ECOPY$(EDIT$) 001202AB )@@G@@@D@[@@ EDCFZ$(EDIT$) 001273 *EDECF$(G@@@@(EDIT$AC )@@G@@) 001276 EDECV$(EDIT$) 001275@P@[@@AD )@@G@@ *EDITR$(EDIT$) 001076 *EDITX$(EDIT$) AE )@@G@@ 001110 *EDIT$(EDIT$) 001061@P@[@@ EDIT$TAF )@@G@@(EDIT$) 001120 EDJS$(ERU$) 000000000004AG )@@G@@ EFD1$(EDIT$) 001165@P@[@@ EFD2$(EDIT$) AH )@@G@@ 001167 EMSGR$(EDIT$) 001217 *EMSG$(AI )@@G@@EDIT$) 001222@P@[@@ *EOCTF$(EDIT$) AJ )@@G@@001266 EOCTV$(EDIT$) 001250 EPACK$(EDIT$) AK )@@G@@ 001200@P@[@@ EPTIA(BSP) 002721 AL )@@G@@EPTID(BSP) 003137 EPTIS(BSP) AM )@@G@@002570@P@[@@ EPTNL(BSP) 002451 *ERROR8(ASMDCAN )@@G@@T8) 004733 ERRPR$(ERU$) 000000000202@P@[@@AO )@@G@@ *ERRST8(ASMDCT8) 004752 *ERR$(ERU$) AP )@@G@@000000000040 *ERSET8(ASMDCT8) 004734@P@[@@ *ESKIP$AQ )@@G@@(EDIT$) 001143 ETIA(BSP) 002723AR )@@G@@ ETID(BSP) 003127@P@[@@ ETIS(BSP) AS )@@G@@ 002560 ETNL(BSP) 002441 EXIT(LAT )@@G@@IBS) 002075@G@[@@ *EXIT$(ERU$) 000000AU )@@G@@000011 EXLNK$(ERU$) (D@@@@000000000173 EXSNP$(ERU$)AV )@@G@@ 000000000132@P@[@@ *FACIL$(ERU$) 000000000114AW )@@G@@ FACIT$(ERU$) 000000000143 FBLKSX$(ERU$) AX )@@G@@000000000005@P@[@@ FCYCLE(BSP) 002226 FFILEXAY )@@G@@$(ERU$) 000000000004 FFORK$(ERU$) 000000000131AZ )@@G@@@P@[@@ *FINDER(FINDER) 014431 FITEM$(ERU$) BA )@@G@@ 000000000032 FORK$(ERU$) 000000000013@P@[@@ BB )@@G@@FORMAIN$(MAIN) 001510 FPTIA(BSP) BC )@@G@@002717 FPTID(BSP) 003135@P@[@@ *FPTIS(BSP) BD )@@G@@ 002566 FPTNL(BSP) 002447 BE )@@G@@FREELX$(ERU$) 000000000006@P@[@@ FSF$(ERU$) BF )@@G@@000000000052 *GETOUT(E8TCTD) 002022 GW$(ERU$) BG )@@G@@ 000000000015@P@[@@ *HDG(HDG) 001356BH )@@G@@ *HEAD1(HEAD1) 014730 *HEAD2(HEAD2) BI )@@G@@ 015056@P@[@@ *HEAD3(HEAD3) 015237 IALL$(BJ )@@G@@ERU$) 000000000101 *IDBUFF(IDLIN) 042775BK )@@G@@@P@[@@ IDENT$(ERU$) 000000000034 *IDJ$(IDL$) BL )@@G@@ 001441 *IDLIN(IDLIN) 002076@J@[@@ *BM )@@G@@IDONLY$(IDONLY$) 002110 IDSLJ$(IDL$) BN )@@G@@001457 (A@@@@IDTOME$(IDONLY$) 002106@P@[@@ *IFPTISBO )@@G@@(IRFTI) 003673 II$(ERU$) 000000000027BP )@@G@@ INFILE$(ERU$) 000000000003@P@[@@ INFO$(ERU$) BQ )@@G@@ 000000000116 INT$(ERU$) 000000000033 IOARB$BR )@@G@@(ERU$) 000000000021@P@[@@ IOAXI$(ERU$) 000000BS )@@G@@000020 IODYA$(ERU$) 000000000005 IOI$(ERU$) BT )@@G@@ 000000000002@P@[@@ IOWI$(ERU$) 000000000024 *BU )@@G@@IOW$(ERU$) 000000000003 IOXI$(ERU$) 000000BV )@@G@@000025@P@[@@ *IO$(ERU$) 000000000001 *IRFTI(IRFTI)BW )@@G@@ 003652 *IRPFPT(IRFTI) 003662@P@[@@BX )@@G@@ *ISDFI(ISDFIO) 003633 *ISDFIC(ISDFIO) BY )@@G@@ 003646 *ISDFIO(ISDFIO) 003623@P@[@@ *ITF(ITBZ )@@G@@F) 014411 KAPT(BSP) 002231CA )@@G@@ KCPT(BSP) 002232@P@[@@ KEPT(BSP) CB )@@G@@ 002234 KET(BSP) 002230 KFPT(BCC )@@G@@SP) 002233@P@[@@ LABEL$(ERU$) 000000CD )@@G@@000031 LCORE$(ERU$) 000000000044 LINK$(ERU$) CE )@@G@@ 000000000171@M@[@@ *LOAD$(ERU$) 000000000111 CF )@@G@@MB$(ERU$) 000000000051 MCORE$(ERU$) (#@@@@ CG )@@G@@000000000043@P@[@@ MCT$(ERU$) 000000000041 MEMSQ$CH )@@G@@(LIBS) 000000000001 MF$(ERU$) 000000000050CI )@@G@@@P@[@@ *MOVER(MOVER) 001342 *MRGHD(MRGHD) CJ )@@G@@ 003461 *MRG8(MRG8) 002416@P@[@@ CK )@@G@@MSALL$(ERU$) 000000000060 MSCON$(ERU$) 000000CL )@@G@@000125 *MULTY(SQUASH) 004052@P@[@@ NAME$(ERU$) CM )@@G@@ 000000000146 NERR$(LIBS) 002074 *CN )@@G@@NERR2$(LIBS) 002074@P@[@@ *NERR3$(LIBS) CO )@@G@@ 002074 *NERR4$(LIBS) 002074 NERR5$(LIBS)CP )@@G@@ 002074@P@[@@ *NERR6$(LIBS) 002074CQ )@@G@@ *NINTR$(LIBS) 002073 NRT$(ERU$) CR )@@G@@000000000062@P@[@@ *NSTOP$(LIBS) 002075 N$(ERUCS )@@G@@$) 000000000001 *OBTAN8(E8TCTD) 001772CT )@@G@@@P@[@@ *OFEXT8(ASMDCT8) 004755 *OFRTN8(ASMDCT8) CU )@@G@@ 004756 *OPA(OP) 001605@P@[@@ *CV )@@G@@OPAF(OP) 001577 *OPAFP(OP) CW )@@G@@001601 *OPAP(OP) 001607@P@[@@ OPBLK(OP) CX )@@G@@ 042663 OPCHAR(OP) 001566 CY )@@G@@OPCOL(OP) 001571@P@[@@ OPFLG(OP) CZ )@@G@@ 042651 *OPI(OP) 001621 *OPIP(OP) DA )@@G@@ 001623@P@[@@ OPK(OP) 042631DB )@@G@@ OPO(OP) 001613 *OPOP(OP) DC )@@G@@ 001615@P@[@@ *OPRIME(OP) 001540 *OPRINTDD )@@G@@(OP) 001552 OPRNT(OP) 042653DE )@@G@@@P@[@@ OPT$(ERU$) 000000000063 *OPUNCH(OP) DF )@@G@@ 001556 *PACK12(ASMDCT8) 004761@P@[@@ DG )@@G@@PCHCA$(ERU$) 000000000165 PCHCN$(ERU$) 000000DH )@@G@@000164 PCTBD$(ERU$) 000000000001@P@[@@ PCT$(ERU$) DI )@@G@@ 000000000064 PFD$(ERU$) 000000000106 DJ )@@G@@PFI$(ERU$) 000000000104@P@[@@ *PFS$(ERU$) DK )@@G@@000000000105 PFUWL$(ERU$) 000000000107 PFWL$(ERU$) DL )@@G@@ 000000000110@P@[@@ PFWORD(BSP) 002224DM )@@G@@ PNCHA$(ERU$) 000000000145 *PRINT(PRINT) DN )@@G@@ 120103@P@[@@ *PRINT$(ERU$) 000000000016 PRNTA$DO )@@G@@(ERU$) 000000000144 *PROCIT(PROCRD) 004530DP )@@G@@@P@[@@ *PROCRD(PROCRD) 004533 PRTCA$(ERU$) DQ )@@G@@ 000000000155 *PRTCN$(ERU$) 000000000137@#@[@@ *DR )@@G@@PRTERR(PRTER(M@@@@R) 014615 PSA$(ERU$) DS )@@G@@000000000032 PSF$(ERU$) 000000000033@P@[@@ PSR$(EDT )@@G@@RU$) 000000000157 PTATWT(BSP) 002472DU )@@G@@ PTCTWT(BSP) 002474@P@[@@ PTETWT(BSP) DV )@@G@@ 002500 PTEWT(BSP) 002470 PTFTWTDW )@@G@@(BSP) 002476@P@[@@ *PUNCH$(ERU$) 000000DX )@@G@@000130 RB$(ERU$) 000000000021 RDL$(ERU$) DY )@@G@@ 000000000025@P@[@@ *RDS1(RDS) 015752 *DZ )@@G@@RDS2(RDS) 016025 *RDS3(RDS) EA )@@G@@016060@P@[@@ *READ(E8TCTD) 001755 READA$(ERU$)EB )@@G@@ 000000000042 *READ$(ERU$) 000000000015@P@[@@EC )@@G@@ REL$(ERU$) 000000000023 REWI$(ERU$) ED )@@G@@000000000041 REW$(ERU$) 000000000040@P@[@@ *RFTI(BEE )@@G@@SP) 002237 *RLIB$(ERU$) 212230106371EF )@@G@@ RLINK$(ERU$) 000000000172@P@[@@ RLIST$(ERU$) EG )@@G@@ 000000000175 ROUTE$(ERU$) 000000000133 RPCTA$EH )@@G@@(ERU$) 000000777000@P@[@@ RPFAPT(BSP) EI )@@G@@002304 RPFCPT(BSP) 002306 RPFEPT(BSP) EJ )@@G@@ 002312@A@[@@ RPFET(BSP) (J@@@@002302EK )@@G@@ *RPFFPT(BSP) 002310 RR$(ERU$) EL )@@G@@000000000022@P@[@@ RSBAT$(ERU$) 000000000040 RSDEM$EM )@@G@@(ERU$) 000000000050 RSGAW$(ERU$) 000000000074EN )@@G@@@P@[@@ RSGET$(ERU$) 000000000020 RSGIO$(ERU$) EO )@@G@@ 000000000075 RSGPR$(ERU$) 000000000022@P@[@@ EP )@@G@@RSGPU$(ERU$) 000000000021 RSGTA$(ERU$) 000000EQ )@@G@@000070 RSGTI$(ERU$) 000000000063@P@[@@ RSGTW$(ERU$)ER )@@G@@ 000000000064 RSI$(ERU$) 000000000112 ES )@@G@@RSNOT$(ERU$) 000000000065@P@[@@ RSPUN$(ERU$) ET )@@G@@000000000041 RSPUT$(ERU$) 000000000010 RSTRA$(ERU$)EU )@@G@@ 000000000061@P@[@@ RSTRD$(ERU$) 000000000003EV )@@G@@ RSTRM$(ERU$) 000000000060 RSTRO$(ERU$) EW )@@G@@000000000002@P@[@@ RSTRY$(ERU$) 000000000001 RSWAP$EX )@@G@@(ERU$) 000000000135 RT$(ERU$) 000000000061EY )@@G@@@P@[@@ R$(ERU$) 000000000020 SCRB$(ERU$) EZ )@@G@@ 000000000044 SCR$(ERU$) 000000000043@P@[@@ FA )@@G@@SCYCLE(BSP) 002227 *SDFI(SDFI) FB )@@G@@003320 *SDFIC(SDFI) 003615@D@[@@ *SDFIO(SDFI) FC )@@G@@ 003540 SDFIOA(G@@@@(SDFI) 003541FD )@@G@@ SD$(ERU$) 000000000034@P@[@@ SETBP$(ERU$) FE )@@G@@ 000000000156 SETCV$(ERU$) 000000004014 SETC$(FF )@@G@@ERU$) 000000000065@P@[@@ SIO$(ERU$) 000000FG )@@G@@000201 SITID$(ERU$) 000000000002 *SLT$ FH )@@G@@ 000000040000@P@[@@ SM$(ERU$) 000000000042 *FI )@@G@@SNAP$(ERU$) 000000000126 *SQUASH(SQUASH) FJ )@@G@@003704@P@[@@ SRD$(ERU$) 000000000036 SUP$(ERU$) FK )@@G@@ 000000000007 SWAIT$(ERU$) 000000000103@P@[@@FL )@@G@@ SWTCH$(ERU$) 000000000127 SW$(ERU$) FM )@@G@@000000000013 SYMB$(ERU$) 000000000200@P@[@@ SYSBALFN )@@G@@(ERU$) 000000000176 SYSBAL$(ERU$) 000000000176FO )@@G@@ SYSKON(BSP) 002225@P@[@@ *TBL1(TBL8) FP )@@G@@ 013365 *TBL2(TBL8) 013370 *TBL3(TFQ )@@G@@BL8) 013373@P@[@@ *TBL4(TBL8) FR )@@G@@013376 *TBL5(TBL8) 013401 *TDATE$(ERU$) FS )@@G@@ 000000000054@P@[@@ TFORK$(ERU$) 000000000014 FT )@@G@@TIME$(ERU$) 000000000023 TINTL$(ERU$) 000000FU )@@G@@000136@G@[@@ TLBL$(ERU$) 000000000142 *TPROC(TPROC)FV )@@G@@ (D@@@@ 017015 TREAD$(ERU$) 000000000102FW )@@G@@@P@[@@ TRMRG$(ERU$) 000000000120 TSA$(ERU$) FX )@@G@@ 000000000030 TSF$(ERU$) 000000000031@P@[@@ FY )@@G@@TSQCL$(ERU$) 000000000113 TSQRG$(ERU$) 000000FZ )@@G@@000121 TSWAP$(ERU$) 000000000135@P@[@@ TWAIT$(ERU$)GA )@@G@@ 000000000060 UFTI(BSP) 002257 GB )@@G@@UNLCK$(ERU$) 000000000067@P@[@@ UNLNK$(ERU$) GC )@@G@@000000000174 UNL$(ERU$) 000000000026 *UPA8(ASMDCT8GD )@@G@@) 004567@P@[@@ *UPB8(ASMDCT8) 004574GE )@@G@@ *UPC8(ASMDCT8) 004611 *UPD8(ASMDCT8) GF )@@G@@ 004641@P@[@@ *UPE8(ASMDCT8) 004644 *UPF8(AGG )@@G@@SMDCT8) 004654 *UPG8(ASMDCT8) 004675GH )@@G@@@P@[@@ UPI8(ASMDCT8) 004724 UPJ8(ASMDCT8) GI )@@G@@ 004730 USER$(ERU$) 000000000177@P@[@@ GJ )@@G@@USRID$(ERU$) 000000000001 *WAIT$(ERU$) 000000GK )@@G@@000006 WALL$(ERU$) 000000000037@P@[@@ WANY$(ERU$) GL )@@G@@ 000000000007 WEF$(ERU$) 000000000011 GM )@@G@@WFTI(BSP) 003157@J@[@@ WPFAPT(BSP) GN )@@G@@ 002525 WPFCPT(BSP) 002527 (A@@@@WPFEPTGO )@@G@@(BSP) 002533@P@[@@ WPFET(BSP) GP )@@G@@002523 WPFFPT(BSP) 002531 W$(ERU$) GQ )@@G@@ 000000000010@P@[@@ XCTS$(ERU$) 000000000162 *GR )@@G@@A[SEG-NAME] 000000000000 *B[SEG-NAME] 000000GS )@@G@@000001@B@[@@ *C[SEG-NAME] 000000000002@^@]@@SYS$*RLIB$. GT )@@G@@LEVEL LMSC39@B@[@@END OF COLLECTION - TIME 11.891 SECONDS @@@[@@@]@[@@GU )@@G@@END OF MAP ______ BE0608======@@^@@ @@@@@@@@@@@@GV )@@G@@@@ @HC@@@@ A@@#@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HYB#]GLMSC39@@@^@@GW )@@G@@@@@@ %@@@^@@@@@@@@@@@@@@@@@@@@@@3^@G@^<@@A@@M@[5@^L@@@@@#@@^@@@]:^@@@@@@GX )@@G@@@^@@ A@^@J@[@ @@ AK^@2@)H B-,11H BOOSTER) (4XF4.2,14XA6,26H MISSIGY )@@G@@ON SUMMARY TWX NO. ) (4XF4.2,14XA6,17H PITCH PLUG NO. ) (//) @@[@]7GZ )@@G@@J,T&T$NS@@@@@@[@@[KGEJR]@E+@MO@@@___@[@E^2@#(EAQ>?,^S^)@=E 2)@#ED_@@@___HA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HB )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___D@@^#H/C@@MR/^@@MUN@0@MTHC )@@G@@/K@@O^@[BE VD@@^#I/C@@MX/^@@M-/,0@F,@@@E L@@@E^.@[EE VC@@^#HG/@__"[@@E^?HD )@@G@@/G@@M!/@@@M!/,0@F+@@@^#Q@@@E M@@@^#L@@@E M@@@E^?@[IE VC@@^#H;@@@@+C@)^#GHE )@@G@@[@?^#HD@@E^?/C@@NP/@@@NPC@@E^?G/@__"[@@@[J[@@E 2C_)@@[R/K@@^N#)E 2[#)E^,HF )@@G@@C@@E^,;@@@@+G/@@@[[@@E 3C@[^#FH@[^#J/C@@N^/^@@NLC@[^#GH@[^#K/C@@NC/^@@NLHG )@@G@@R@)E NQ@)E 3N_K@@#C@]^#E[@@E^0C@+^#I[@+^#E[@]=#I8NK@NFO/K@@^G_)@@[8N)@M;HH )@@G@@8N0@M8/,0@IB@@@E O@@@E P@@@E [@[&E V/,0@IB@@@E Q@@@E L@@@E #@[$E V/,0@IBHI )@@G@@@@@E Q@@@E L@@@E F@[*E VC@@^#HG/@__"R/)@@^[@@@[JC@]^#IH@]^#H/C@@N4/@@@N4HJ )@@G@@N8M^#F^^K@N1/,0@I[@@@E P@@@E R@@@@N1@@@E S@[!E VO/)@@^8N0@N*/,0@W1@[0E VHK )@@G@@C/@@G?;O@@@=W@@^#H[@@E^1/,0@T @@@^S^@@@E^1@@@^#H@[2E VN@0@O#/K@@O^@[3E VHL )@@G@@R]0E W9\)E 4R@KE 6R@)E 7N#0E 8N#)E 9N#KE '*4@U T/K@U T/K@@K/AA0E W9:)E 4HM )@@G@@A@KE 6A@)E 7^#0E 8^#)E 9^#KE '/K@@V:C@@@@@G/@__"T/@@@W[@@E^3C@)@@@G/)__"HN )@@G@@C_)@@[R@KE X[@)@[J[#)E^!C/@@@[G@@@@@[@[D;M @[(;N/,0@VZ@@@E^!@@@@@@@@@@@@HO )@@G@@@@@@@@@]@E %G_)@@[8N0@OZ @@E^4C@@E^2[@@E^5C@)@@@T/)@@WC[@@@@T.@__Q@)@@I[@@@[J[#)E^,C@@E^7H@@E^,IB )@@G@@G/@@@[[@@E^9C/@@@IH@@E^9/C@@RG/@@@RGC/@@@I[@@E^9N8M)@W^^K@RL/,0@I[@@@E PIC )@@G@@@@@E &@@@@RL@@@E Y@@@E^9@@@E $@]>E %/,0@I @@@E L@@@E H@]&E %G_)@@I8N0@R[ID )@@G@@R@KE /C@[D;MG/@@@[[@[D;MC@@E^4;@@@@Q@KE /[@@@[J[#)E^,C@@E^7H@@E^,G/@@@[[@@E^9C/@@@IH@@E^9/C@@S$IJ )@@G@@/@@@S$C/@@@I[@@E^9N8L)@@^^K@S?/,0@I[@@@E P@@@E &@@@@S?@@@E Y@@@E^9@@@E $IK )@@G@@@]'E %/,0@I @@@E L@@@E J@];E %G_)@@I8N0@SW/K@@R)N@0@S'/K@@S;@]"E %R]0E :IL )@@G@@9!)EA@9,@EA]9\)EA^R@KEAAR@)EABN#0EAC*4@U */K@U */K@@K/AA0E :9()EA@9%@EA]IM )@@G@@9:)EA^A@KEAAA@)EAB^#0EACC8FK@@[^@@O&[^@@P1[^@@R8[@@E ;C8FK@[[^@@O-[^@@R3IN )@@G@@[^@@OQ[^@@O1[^@@P2[^@@O$[^@@P-[^@@P&[^@@O\[^@@R9[^@@S[[^@@Q@C8FK@][^@@O*IO )@@G@@[^@@P3[^@@O3[^@@R'[^@@OU/K@@OQC@@EAD;@@@@/K@@MO/,0@IB@@@ED\@@@ED0@@@EDPJA )@@G@@@[FED./,0@IB@@@ED1@@@ED2@@@EDR@[GED.R@KED3R@)ED4N_0@@D/,0@I @@@ED0@@@EDYJB )@@G@@@[KED.N8MEAK^^K@W[/,0@I @@@ED5@@@@W[@[LED.N8M%BG^^K@WB/,0@I @@@ED6@@@@WBJC )@@G@@@[MED.N8L%CB^^K@WI/,0@IB@@@ED1@@@ED7@@@@WI@[NED.8N0@V9/,0@I @@@ED0@@@ED)JD )@@G@@@[QED./,0@I @@@ED8@@@ED=@[RED./,0@I @@@ED9@@@ED&@[SED./,0@IB@@@ED'@@@ED2JE )@@G@@@@@ED*@[TED./,0@IB@@@ED1@@@ED0@@@ED!@[UED.N@0@W(/K@@W%@[VED.R]0ED"R@KED_JF )@@G@@R@)EE@N#0EE[*4@UD;/K@UD;/K@@K/AA0ED"A@KED_A@)EE@^#0EE[/K@@V?Z/////@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MERGED ROUTINES JH )@@G@@______& ______ THE FOLLOWING ROUTINES ARE MERGED& ______& JI )@@G@@______& ______& ___________"@@@@@^@@[@@@@@@@@_@@@@@[@@@@@#@@@@@FJJ )@@G@@@@@@@G@@F@@[@@@@@@MRG8 @[3@@#@@]@@]@@@@@A@@@@@C@@@@@J@@@@@N@@@@@]@@@@@ JK )@@G@@@@@@@=@@I@@@@@@@@:@@@@@@@@F@@^@@@@@@DMMG @]"@@]@@W@@@@@@@@W@@F@@ @@@@@@JL )@@G@@BUFIL @#T@@]THE FIRST FLAG INDICATES THE& NATURE OF THE ALPHABETICJM )@@G@@ ENTITY& = UNDIMENSIONED VARIABLE& DMVR = DIMENSIONED VARIAJN )@@G@@BLE& FCTN = FUNCTION NAME& LBCM = NAME OF LABELED CJO )@@G@@OMMON& SBRT = SUBROUTINE NAME& SWVR = SWITCH VARIABLE& JP )@@G@@ NMLT = NAMELIST NAME& & JQ )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICATE THAT THE ENTITYJR )@@G@@ IS IN THE& CORRESPONDING TYPE OF STATEMENT& AB = ABNORMAL EX = EJS )@@G@@XTERNAL& CM = COMMON FA = FORML AGUMT& CP = COMPLEX IN = IJT )@@G@@NTEGER& DA = DATA LG = LOGICAL& DM = DIMENSION PR = PJU )@@G@@ARAMETER& DP = DBL PRECISN RL = REAL& EQ = EQUIVALENCE NL = NJV )@@G@@AMELIST& THE FLAGS FOLLOWING THE LINE NUMBERS& (ON WHICH THE ENTIJW )@@G@@TY WAS REFERENCED)& INDICATE THE NATURE OF THE REFERENCE& A = SEJX )@@G@@T EQUAL,DEFINED,ASSIGNED& B = REFERENCED,CALLED G = FORMAT& JY )@@G@@ C = CALLING SEQUENCE H = I-O UNIT& D = SUBSCRIPT I JZ )@@G@@= READ& E = SPECIFICATION O = WRITE& J = DO PARAMKA )@@G@@ETER L = LIST& & KB )@@G@@@@@@@@& ______M E R G E D V A R I A B L E S& ______& ______KC )@@G@@VARBLE ROUTINE& ______FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& KD )@@G@@______& ______@@@@@______"@@@@@[@@@@@?@@B@@B@@A@@A@@@@@A@@@@@:@@@@[JKE )@@G@@@@@@@O@@@@@=@@@@@]@@F@@[@@@@@@MRGHD @[V@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@[&[@MO@@@___@[=^S^@@G^U#@[^^UT@@H^V?@[?^7/@@E D L?)[ID.Z)@WD"7**PF**@@@@W@@@@@@ @@@@@ KI )@@G@@@@@@@[@@@@J@@@@@L@@@@@N@@@@@P@ C9K@K@[DW@@#K@@@N[A#W@@^ @G@@ KJ )@@G@@'=@@@#C5W@@#:9K@@ /K@@M2/ K@M.&;K@@[N8K@@W3[X)@@/K@@M6C[@@MO:[G@@A/KF@@[KK )@@G@@R;@@@]/KF@@@R;)@@T&;K@@[ @H)@]8#)@M49!@@MO9(G@@AC9K@C@[DW@@#'=@@@#C5W@@#KL )@@G@@/[V@@[R;@@@_;@@@@AO#@@@L/KF@@@@@W@@AR;/@@D/K@@NFR;/@@G/K@@NFR;/@@J/K@@NFKM )@@G@@R;/@@M/K@@NFR;/@@PC[K@MO%[W@@A/K@@OZ;@K@@MABW@@^ABZ@@[;GK@@6W8K@@WT8K@@WKN )@@G@@AFW@@^?8K@#^/K@@OWK^W@@^AB\@@]C J@@@/[@@N$K9@@@ [[G@@ ;(K@@AG!Z@@@[DZ@@@KO )@@G@@RFZ@@[?CW@@^AFW@@^:8K@]G/K@@OLC9K@K@/K@@M9R;?@@AR#K@MS;DK@@=O;)@@#:@)@@JKP )@@G@@/K@@N3(^I@@@/K@@N%RBY@@@CDY@@[G9K@@8/K@@N%;D@@@=W9@@@WG[@@@HC[K@MP:8?@@PKQ )@@G@@/K@@N/O;)@@#C Y@@@/[K@N6R#K@@JP;W@@D;GK@@=W8K@@#?[H@MSC[H@MSH9K@@B![@@@LKR )@@G@@/K@@OUC9K@@E/@K@OCC9K@@^[!Z@@][ J@@@C9K@]G[DZ@@[C9K@]F;(K@@AG!Z@@][DZ@@]KS )@@G@@/K@@NVR;)@]FRBZ@@[&;K@@[ @H)@@8#)@OOP;K@@[C!Z@@][DX@@@/KF@@[R;@@@=/KF@@@KT )@@G@@R;@@@O/KF@@@R]@^SJR;@@@E/KF@@@R;/@@D/K@@O%R;/@@G/K@@O%R;/@@J/K@@O%R;/@@MKU )@@G@@/K@@O%R;/@@PA]@^SJ/,@@U:RB\@@[RB,@]F?@)@@H/K@@O5C[K@@H/,@@U@A#)@@GR]@^SJKV )@@G@@/KF@@[R;@@@GR]@^SJ/KF@@@R;/@@D/K@@P[R;/@@G/K@@P[R;/@@J/K@@P[R;/@@M/K@@P[KW )@@G@@R;/@@PA]@^SJ/,@@U:R]@^SJC[@^SD[[G@@ RBK^SIL@K^SEAB?@@^C[K^SEG!Z@@]R;)@@KKX )@@G@@=4!@@#G!Z@@]R;K@@W!9K@@XR;K@@8AFW@@^/K@@M8R;/@@D/K@@PWR;/@@G/K@@PWR;/@@JKY )@@G@@/K@@PWR;/@@M/K@@PWR;/@@PA]@^SJ/,@@U:R]@^SJC9K@C@A])^SK*?J@@@/,)@U;R])^SKKZ )@@G@@C Z@@[[ W@@^C9K@]G[DW@@^:DZ@@[ @J@@@C Z@@@[[W@@ ^J@@[ CJ@@@/[V@@[/K@@M8LA )@@G@@R;/@@D/K@@P9R;/@@G/K@@P9R;/@@J/K@@P9R;/@@M/K@@P9R;/@@PA]@^SJ/,@@U: @@^SBLB )@@G@@/,@@R^C Y@@@/-@@Q@CDY@@@;D@@@=/[K@QC/,@@U@AE0^SF/,0@QQ/K@@QMRE0^SF/ K@Q]LC )@@G@@R#@@@KAF@^SC;*@@@#:8@@@SR;@@@);CK@@=O;@@@[AB)^SCR#)^SB/K@@O6RE0^SFRB@^SILD )@@G@@9?K^SB/K@@O39!H@@@9.I@@@/K@@R[%8/@@D/K@@Q0C!X@@#%!Y@@#/K@@Q*9!H@@^99@@Q+LE )@@G@@9.I@@^/K@@Q>1@H@@#1@I@@#/KF@@@CDY@@]C9@@@#/KF@@[!9K@@ /K@@Q!C9K@@^!!Y@@#LF )@@G@@/K@@QYC9@@@]C Y@@#/KF@@[%8/@@J/K@@Q"C5H@@#-5I@@#=9K@@K/K@@R[>9@@@K/K@@Q"LG )@@G@@9!I@@^9.H@@^/K@@R[C[I@@B%[H@@B/K@@R[0@I@@#0@H@@#/KF@@@C9@@@[C Y@@]/KF@@[LH )@@G@@C[X@@@G[X@@[;D@@@=W9@@]FG Z@@[R#)@@L/KC@@@R;/@@G/K@@RQR;/@@J/K@@RQR;/@@MLI )@@G@@/K@@RQR;/@@P/K@@RPR;/@@D CH@@] ^H@@# ^H@@]A]@^SJAA0^SF9!H@@]9(@^S %8/@@DLJ )@@G@@/K@@R)9!@@MX(@H@@^9(H@@^R;\@@@O;)@@#C Y@@@:8?@@SC[K@MP/[K@R-H Z@@@T9K@@WLK )@@G@@[DK^SICDJ@@[G!J@@]C9K@@K=5X@@#G9@@@^!D@^SI/K@@OU[D@^SIRB\@@[C I@]FG9@@@[LL )@@G@@[[@^S^=5X@@#G9@@@[[ I@]FC5H@@#)9@@@):8/@@P[5X@@#/,0@P9/K@@STR#)@@G9?@^SGLM )@@G@@C[@^S^%8/@@D/K@@SBCDY@@][DX@@][DI@@]/K@@SKC Y@@][ X@@][ I@@]%8/@@P/K@@SKLN )@@G@@C Y@@#[ X@@#[ I@@#/K@@S*/,@@U81@I@@#/K@@SR/,@@U@0@I@@#/K@@S(/,0@QQ/,0@U3LO )@@G@@/K@@S(RA0^SF/G@@M1/)@@M19?@^SGRA0^SCRF)^SCC[K^S^/^)@TM/,@@R^C[K^S^/>@@S&LP )@@G@@[ Y@@@/K@@S([DY@@@/K@@S(/,@@U8C[K^S^RA0^SF/,@@U@/,@@U8&;K@@[&;)@@[C5H@@#LQ )@@G@@+9@@@Z[5X@@#N?Z@@]C9K@@K=5X@@#N8K@@CM#!)@@RB)^SI:8/@@D*@I@@D/K@@S"'=@@@?LR )@@G@@;@@@@MA#I@@D9?@^SG9!@^S 9(H@@]CDK^SI[DZ@@[R#K^S^%8/@@D/K@@QNC!I@@#%9@@@ALS )@@G@@/K@@TF )G@@SA#W@@T%9@@@ /K@@QNC8K@@[[)W@@S ^G@@P CG@@Q/K@@QN')I@TN/K@@S*LT )@@G@@[ V@@][ V@@#[DV@@]R;/@@D/K@@T)R;/@@G/K@@T)R;/@@J/K@@T)R;/@@M/K@@T)R;/@@PLU )@@G@@AA0^SF/,0@P9/K@@T!R#)@@G9?@^SG/,0@U3RA0^SF%8/@@D/K@@QNC[K^SB:[W@@T @G@@TLV )@@G@@/K@@QNRA0^SF/K@@O6R;/@@AO;0@@#CDZ@@[%9K@]G/K@@T6 ^J@@[ @J@@@*^J@@[/K@@T"LW )@@G@@%8/@@P/K@@T0 @G@@ K@@@N[A#W@@^/K@@M8R;@@@+/KF@@@[D@^SCR#)^SB[[K^SBAB)^SCLX )@@G@@H9K@@[T!Z@@]G9K@]G;D@@@=W9@@@WG J@@@9(@^SDCDZ@@@;DK@@A?[@@@L/K@@UWH[@@@LLY )@@G@@T9@@@WG J@@[G9@@]GG[@^SE[[@@@I[ @^SIG!J@@]:8/@@JG9@@@^C Z@@]![K@@K/KC@@@LZ )@@G@@C9K@C@A])^SK*?J@@@/,)@U;C[@^SD;(@@@AG!J@@@[DJ@@@C9K@K@/,)@U;R])^SKC[@^SDMA )@@G@@CDZ@@@;DK@@A/K@@UJ9*@^SGC[K@MO%[W@@A/K@@OY*^J@@[/KC@@@R;@@@M/K@@O6C5I@@#MB )@@G@@)9@@@)[5Y@@#/,@@U8/KF@@@C9@@@[[!J@@@/KC@@@[DW@@#CDJ@@@;D@@@A[[G@@ L J@@@MC )@@G@@T9K@@WCDJ@@[H[@@@L[DG@@^D J@@[H9@@]G] G@@^G J@@]?DG@@^[DG@@^*CG@@^'=@@@#MD )@@G@@C5W@@#/ K@M. ?J@@@/KE@@@R#W@@DR#?@@CR#.)@@ @@@[] @@@[#A#/@@E;C0@@Y:80@@_ME )@@G@@/KF@@[A#W@@DR#/@@E;K0@@S/C0@VYR3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^MF )@@G@@H[@@@L/D@@XDN@K@@JM#!)@@A#W@@D*@@@[]/K@@W/R#/@@E;K0@@S/C0@V\R3/@@EPB/@@BMG )@@G@@/G0@WFC G@@DG[@@@J[ G@@DC W@@AGDW@@^H[@@@L/H@@WF0@G@@#'=@@@AC[W@@ GDW@@BMH )@@G@@[[W@@ C5W@@#/[K@W#%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DMI )@@G@@'=@@@[R#0@@K/K@@V1R#W@@DC5X@@@%9K@@(/KF@@]0@G@@E/K@@WNR;0@Z_/K@@WOR;0@@_MJ )@@G@@C[W@@E;LK@@S/DK@WSC1W@@E![K@@J/K@@XAC[@@@LG1H@@@! W@@B/K@@X[?@0@@K/K@@W:MK )@@G@@? G@@B/K@@W(C[K@@KH W@@B?@0@@KC[@@@JH1X@@@D@0@@L/K@@W2R3.@@@/K@@W2!^/@@BML )@@G@@/K@@W+C[K@@KH[K@@JH1X@@@C[@@@JD@0@@L[1G@@E0@G@@E/K@@W7;D@@@A[5G@@EN0!@@@MM )@@G@@N@0@@JO;K@@[A#W@@D/K@@V)R#0@[]P#0@[#/@0@WF/G0@WF/K@@V1[1G@@E0@G@@E/K@@XAMN )@@G@@;D@@@A[5G@@ER3.@@@O;0@@[/K@@V1P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ MO )@@G@@GDW@@B[[W@@ C5W@@#/[K@XS%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@AMP )@@G@@[ W@@D'=@@@[R#W@@D/K@@V) @@@@HOBW@@AC[K@@G9??@@@RBG@@A9*?@@@'=@@[GR7?@@AMQ )@@G@@R#@@@L!8)@@S!8)@@)/K@@X'RF?@@B?8)@@^/K@@X'+/)__/C[G@@ AF/@@B+9@@@#T80@@WMR )@@G@@H[@@@L%C?@@BAF/@@^T9K@@WO#K@@L[[G@@ ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ MS )@@G@@GDW@@B[[W@@ C5W@@#/[K@YC%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[MT )@@G@@/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@A]0^SLC@F@@@/,0@X)/K@@YTR]0^SLMU )@@G@@/KF@@#R]0^SL/KF@@[A]0^SLC@F@@@/,0@VK/K@@Y+/K@@Y=R]0^SL/KF@@^R]0^SL/KF@@[MV )@@G@@R]0^SL/KF@@]A]0^SL/,0@YHR]0^SL/KF@@]A]0^SMR#F@@@/,0@MZ/K@@Y0R]0^SM/KF@@#MW )@@G@@R]0^SM/KF@@[A]0^SMC@F@@@C@VK@[/,0@NC/K@@Y9R]0^SM/KF@@^R]0^SM/KF@@]A]0^SMMX )@@G@@C@F@@@C@V@@[/,0@P6/K@@Z]R]0^SM/KF@@^R]0^SM/KF@@]9?@^TU9()^TWR#0^V9O#0^TUMY )@@G@@ @J^V/;H@@[C @@^V' @@^V;RT9K@@EG[K@@INB )@@G@@H9K@@0/K@@Z>/[K@Z @[/^VR/,0@I @@@^V]@@@^7/@[.^VR/,0@I NS )@@G@@@@@^V#@@@^U-@["^VR/,0@H_@@@^V^@@@@@@@@@^V @[_^VR/,0@IB@@@^VD@@@^VA@@@^U=NT )@@G@@@]@^VR/K@@<$/,0@>>@@@^VE@]]^VR[@@^US/,0@I @@@^V]@@@^7/@]#^VR/,0@I @@@^V#NU )@@G@@@@@^U*@]^^VR/,0@IH@@@^VD@@@^VF@@@^US@@@^VG@] ^VR/K@@<$/,0@I @@@^V]@@@^7/NV )@@G@@@]B^VR/,0@I @@@^V#@@@^U?@]C^VR/,0@I[@@@^VB@@@^VH@@@@@@@@@^V @]D^VR/,0@IBNW )@@G@@@@@^VD@@@^V]@@@^U4@]E^VRC8)@@^N@0@<\/K@@>[@]F^VR/,0@F+@@@^VI@@@^VI@@@@@@NX )@@G@@@@@^VE@@@^VJ@]I^VR*^@^UF/K@@<;C@@^V)[^@^UF/,0@YV@@@^U#/K@@=H/K@@=;@]L^VRNY )@@G@@R@K^V)D4@^UH/C@@=^/^@@<0D*@^UH/C@@=B/^@@<0C@[@@@H@@^VK/@@@=;N@0@=G/K@@> NZ )@@G@@@]S^VRC4@^UA[@@^US*@@^US/K@@=ON@0@=N/K@@> @]V^VR/,0@I @@@^V]@@@^7/@]W^VROA )@@G@@/,0@I @@@^V#@@@^U6@]X^VR/,0@IL@@@^VL@@@^US@@@^VB@]Y^VR/,0@I @@@^VM@@@^U;OB )@@G@@@]Z^VR/,0@H_@@@^VN@@@@@@@@@^V @])^VR/,0@I @@@^VC@@@^U.@]-^VR/,0@I[@@@^VBOC )@@G@@@@@^VO@@@@@@@@@^V @]+^VR/,0@IB@@@^VD@@@^V]@@@^V@@]<^VR'^@@K/@]=^VR/,0@Y&OD )@@G@@@@@^U#@]>^VRN@0@>@/K@@> @]&^VR!^)^VP/K@@K/H8)@@[[^)^VPR]0^VS9!)^V-9,@^V9\@^V$9\)^V(R@K^V:*4@OVP/K@OVP/K@@K/AA0^VS[^@^VP9()^V-9%@^V<9%)^V>OF )@@G@@9:@^V$9:)^V(A@K^V:/KH@@@C8@@@ /\K@>J/K@@>$C8@@@]/\K@>J/K@@>3N@0@>)/K@@>-OG )@@G@@@]%^VVR]0^VW*4@OVT/K@OVT/K@@K/AA0^VW/K@@>YC8FK@@[@@^VZC8FK@[[^@@=$[^@@+KOH )@@G@@[^@@<=C8FK@][^@@=1[^@@+.[^@@+A[@@^VY/K@@-CC8FK@@[^@@<3[@@^V)/K@@<0RH@@@C-X)@@9(I)@@8#0@&H/KF@@#C@FK@@[CFK@[/KF@@#CCFK@@[@FK@[C*FK@@[4FK@]OM )@@G@@COFK@@ @FK@#[OFK@#/KF@@ C@F@@@&;@@@[C@W)@@[4K^V?C@W)@@[0K^V?C@W)@@[?K^V?ON )@@G@@C@W)@@[*K^V?C@W)@@[=K^V?C@W)@@[)K^V?C@)^V?[@:K@[/KF@@#C[K^V5[[K^V?C@F@@@OO )@@G@@&;@@@[C8)@@AH@:K@]S8)@@]/KJ@$ C@W)@@[4K^V?C@W)@@[0K^V?C@W)@@[?K^V?C@W)@@OP )@@G@@[*K^V?C@W)@@[=K^V?C@W)@@[)K^V?C[@^V?[[FK@[/KF@@^C@FK@@+@@^V6[@VK@[/KF@@#OQ )@@G@@C^FK@@[@FK@[/KF@@#'=@@@) @@^V!C@F@@@[^@@$&C@@^V7[@@@$V/KF@@]C@@^V!G8@@@[OR )@@G@@[@@^V!?8@@@2/K@@@@R#@^V8'=@@@I'=@@@)C@@^V4[@@@$V/KF@@[/K@@$(C@F@@@AB@@$!OS )@@G@@/KF@@]9?V@@@&;K@@[C[X)@@[5Y@@@C[X)@@[1Y@@@C[X)@@[!Y@@@C[X)@@[(Y@@@C[X)@@OT )@@G@@[>Y@@@C[X)@@[-Y@@@%@:@@[/KF@@#O;)@@[/K@@$3R;@@@\R;K@@9,@FK@@/KFK@]/KFK@[OU )@@G@@R;@@@ R;K@@Z,@FK@@/KFK@]/KFK@[/,0@$,/K@@4T@]D LC @@@@@C/@@@[[@@ DM @@@@@OV )@@G@@ @@ J@ @@ J[ @@ J] @@ J# @@ J^ @@ J @@ DX @@ JA @@^V'/,0[V5@]Q LC/,0@$%OW )@@G@@@]R LC/,0@F+@@@ KB@@@ K?@@@^9>@@@ K!@@@ K,@]S LC/,0@J1@@@ KD@@@ K\@@@ JBOX )@@G@@@]T LC/,0@J!@@@^9>/K@@*/@]U LC[@@ JB+@@ I_/GK@*5/^K@*-C@@^#I[@@ JC/,0[7JOY )@@G@@/K@@(#/K@@*"/K@@*-@]Y LCC/@@@[[@@@@@C@@ JC[@@^#IN@0@(]/K@[#D@]- LCC@@ DOOZ )@@G@@G@@ DNG@@ DPG@@ DQG/@__;/@@@(-*@@^#I/K@@(0C@@ DH[@@^V/C@) DI[@)^V.C@@ K0PA )@@G@@[@@^V"C@) DJ[@)^V_C@@ DK[@@^W@/,0@F+@@@ I/@@@ K?@@@^W[@@@ K!@@@ K1@]: LCPB )@@G@@/,0@F,@@@ K2@@@^V/@]? LC/K@@(0/,0@I @@@ K2@@@ KH@], LC/,0@H_@@@ K3@@@ DHPC )@@G@@@@@ K4@]\ LC/,0@I[@@@ K!@@@ K5@@@ DJ@@@ K4@]0 LC*@@ DN/K@@(7/,0@IB@@@ K6PD )@@G@@@@@ K2@@@ KJ@]3 LCD@@ DT/C@@(./@@@(./,0@$W/K@@("@]5 LC/K@@%# @@ J[ @@ J]PE )@@G@@ @@ J# @@ J^/K@@:J(@@ DV/K@@%LC/@@@[[@@@@@G@@^#H[@@^#H;@@@@+C@) DH[@?^#FPF )@@G@@C[@ DI[[G^#GC[)^#G[[?^#I @@ DW(@@ DX/K@@%W/,0@>V@@@ KY@#A LCC@@ KYH@@ K7PG )@@G@@/@@@8"(@@ D-/K@@%*/K@@%-/,0[0P@@@ KY@@@ K,/K@@4T@#G LCC/@@@[G@@ JA[@@ JAPH )@@G@@/,0[8H@@@ KY/K@@:^@#I LC/,0@>7@@@ KY@@@ JD@@@ JE@#K LCC/@@@[C/)@@ H@) JEPI )@@G@@*@@@@I1@@@@I @@@@GC/)@@[C[@ JEG.@__Z*@@@@K1@@@@K @@@@I+@@@@IC/)@@[D[@ DXPJ )@@G@@*@@@@K1@@@@K @@@@I+@)@@H/=0@:^C/@@@CH@@ JE/^@@:JC/@@@[(@@ D) @@@@GC/)@@[PK )@@G@@*@@ DN @@@@I+@@@@I/)K@:I/,0[K.@#Q LC/K@@%LD@@ DX/C@@:N/@@@:N @@ JFD@@^V'PL )@@G@@/C@@:T/@@@:T/,0@)%/K@@?.@#W LCC@@ JA[@@ JG @@^V9/,0@>/@@@ KY@@@ JH@#Z LCPM )@@G@@C@@ JHH@@ I//@@@:?C@@ KYH@@ K7/@@@:?/,0[V;@@@ JH@@@ JG@@@ IU@@@ JG@#= LCPN )@@G@@*@@ DN/K@@:0/,0[K.@#& LCR@K^V9N8L^V/^^K@:5/,0@&D@@@ KZ@@@@:5@#$ LCC/@@[]PO )@@G@@G@@^V9[@@^V9D@@ DX/C@@:./^@@?#/,0[0P@@@ KY@@@ K,/K@@4T@#? LC/K@@?I/,0@>VPP )@@G@@@@@ KY@#, LCC@@ KYH@@ K7/@@@8"C/@@@GG@@ JI[@@ JI(@@ D-/K@@?PC/@@@[G@@ JAPQ )@@G@@[@@ JA/,0[8H@@@ KY/K@@?X@#5 LC/,0@>7@@@ KY@@@ JD@@@ JE@#6 LCC/@@@CH@@ JEPR )@@G@@/^@@?*C/@@@[(@@ D) @@@@GC/)@@[*@@ DN @@@@I+@@@@I/)K@?$/,0[K.@#' LC/K@@:'PS )@@G@@C/@@@[C/)@@ H@) JD(@@@@I @@@@GC/)@@[C.@@@0H[@ JD(@@@@K @@@@I+@@@@I/=K@:?PT )@@G@@C/@@O(H@@^V9/C@@?;/@@@?;/,0[&H@@@ K!@^@ LC/,0@Z^@^[ LCD@@^V9/C@@:J/@@@:JPU )@@G@@C/@@@B[@@ JJC@@^V9G/@__8/C@@!C/@@@!CC@@^V9[@@ JJC@@ JJG/@__"R/K@@[[@@@[JPV )@@G@@A@K JKC@[^V;G/@__Q/@@@!1C@[^V;G/@__V/@@@!QO/K@@[8N0@!G/K@@,LC/@@@[G@@ JKPW )@@G@@[@@ JLH@@^V9R@K JL]@@@[JA@K JMC@[^V;[@@ JN/,0@*C@@@ JN/K@@!(/K@@!=@^Q LCPX )@@G@@/,0@*#@@@ JN/K@@!(/K@@!?@^R LCO/K@@[8N0@!W/K@@"?R@K JMC@[^V;G/@__L/@@@,LPY )@@G@@/K@@"?C@@^V9G/@__"[@@ JOC/)@@[[@) JPG@) JK[@) JKH@) JOR@K JK]@)@[JA@K JQPZ )@@G@@C@[^V;G/@__Z/^@@,]C@@ JPG/@__"[@@ JPC@[^V;G/@__Q/^@@,CC/@@@[G@@ JP[@@ JPQA )@@G@@(@@ JP/K@@,HO/K@@[8N0@!;/K@@,LR@K JQC@[^V/G/@__V/@@@"?/,0[=T@@@ JR@^\ LCQB )@@G@@C/@@@"H@@ JR/C@@,S/^@[[+C@@ JR*@@@@G/C@@,Y/,0[&H@@@ K8@^5 LCC@) JR?8)@@_QC )@@G@@/C,@,-'^@@K//K@@0@/K@@0P/K@@\8/K@@0./K@@01/K@@1]/K@@1W/K@@3B/K@@2'/K@@29QD )@@G@@/K@@4 /K@@33/K@@3,/K@@3C/K@@3+/K@@3(/K@@:J/K@@4=/K@@4?/K@@44/K@@4M/K@@4-QE )@@G@@/K@@4T/K@@:J/K@@4;/K@@5&/K@@8[/K@@9F/K@@:J/K@@;"/K@@;;/K@@/[/K@@\-/K@@9SQF )@@G@@/K@@9>/K@@/)/K@@9_/K@@'E/K@@'F/K@@'M/K@@')/K@@'$/K@@'N/K@@',/K@@';/K@@;PQG )@@G@@/K@@;S/K@@;Y/K@@/E/K@@;!/K@@;4/K@@;&/K@@;X/K@@_E/K@@_L/K@@_S/K@@_Z/K@@_\QH )@@G@@/K@@_"/K@[@*/K@[[S/K@[[X@^6 LCR/K@@^N_0@@AA@K JSN8L^V;^^K@\$/,0@*C@@@@\$QI )@@G@@/K@@\:/K@@7]@^' LCO/K@@[8N0@\@A1 LCRF )@@G@@C/@@@[[@@ J#[@@ J]/,0[JL@@@ I)@@@ K?@@@ K8@A4 LC/K@@("C/@@@K[@@ JT/,0[#6RG )@@G@@/K@@4H@A7 LCC@@ I3[@@ JW/K@@5@C/@@@K[@@ JTC@) I3[@) JX/K@@3GC/@@@C[@@ JTRH )@@G@@C@) I-[@) JYC.@@@I[[@ JZ/K@@"ND@@ DX/C@@4W/^@@8"/,0[W[@B# LC/,0[00@B^ LCRI )@@G@@/K@@*PC/@@@C[@@ JT/K@@03C/@@@G[@@ JT/,0[JL@@@ IV@@@ I!@@@ K?@BD LC/K@@:JRJ )@@G@@C/@@@D[@@ JT/,0[JL@@@ IV@@@ I0@@@ K?@BG LC/K@@:JC/@@@A[@@ JTC@) J)G/)__"RK )@@G@@/@)@;+/G)@:J/K@@5]C/@@@D[@@ JTC/)@@][@) J) @@ JWC@@ I7[@@ JX/,0[V"@@@ K'RL )@@G@@@@@ JG@BQ LC/,0[BC/K@@:J/K@@:J@@@ IR@@@ JW@@@ JX@@@ K?@BR LC @@ J#R@K JTRM )@@G@@C@[^V;G/@__#/^@@5XC/@@@[G@@ JT[@@ JTH@@^V9/G@@5T/^@@:JR@) JTC@]^V;G/@__#RN )@@G@@/^@@5NC/@@@[G@@ JT[@@ JT/,0[JL@@@ IR@@@ I'@@@ K?@B- LC/K@@("C/@@@ [@@ JTRO )@@G@@R@K JTC@-^V;[@) JNG/)__Q/@)@6+/,0@*C@@@ JN/K@@5_/K@@52@B$ LC/,0@*#@@@ JNRP )@@G@@/K@@57/K@@5_@B* LC/,0[V"@@@ K.@@@ JG@B( LC/,0[^5@@@ I$@B% LC/K@@:J/,0[V"RQ )@@G@@@@@ K"@@@ JG@B? LC/,0[BC/K@@:J/K@@0,@@@ IS@@@ K?@@@ I9@@@ K?@B! LCR@) JTRR )@@G@@A@) L?R@K L?C@[^V;G/@__L/^@@6OC/@@@[G@@ JT[@@ JTR@) JTA@) L?R@K L?C@[^V;RS )@@G@@G/@__Q/^@@6XC/@@@[G@@ JT[@@ JT/,0[KL/K@@:J@@@ I&@B2 LC/K@@:J/,0[V"@@@ K3RT )@@G@@@@@ JG@B4 LC/,0[KL/K@@6_@@@ I&@B5 LCC/@@@[G@@ JT[@@ JTR@) JTA@) L?R@K L?RU )@@G@@C@[^V;G/@__L/^@@66C/@@@[G@@ JT[@@ JTC/@@@[[@@ J]/,0[JL@@@ IS@@@ K?@@@ K8RV )@@G@@@B' LC @@ J]/K@@:J/,0[&H@@@ K"@B. LCC/@@@#[@@ JTC/)@@[[@) J^/K@@"7 @@ J]RW )@@G@@ @@ J^C/@@@[G@@ JT[@@ JTR@) JTC@+^V;G/)__R/C)@7L/^)@7%R@K JTN8L^V;^^K@7PRX )@@G@@/,0@*#@@@@7P/K@@7-/K@@7T@CA LCR@) JTN8M^V;^^K@7X/,0@*C@@@@7X/K@@7%/K@@7DRY )@@G@@@CB LC/,0[V"@@@ K\@@@ JG@CC LC/,0[KL/K@@:J@@@ I*@CD LC/K@@:J/,0[V"@@@ K8RZ )@@G@@@@@ JG@CF LCC/@@@[[@@ J-C@)^V9H@) JTR@K K/Q@K JT[@)@[JR@) J-C@[=V;[@]^V;SA )@@G@@C/)@@[G@) J-[@) J-8N0@75C[@^V9H[@ JTG.@@@[[[@^V9/K@@!@C/@@@C[@@ JTC@) JASB )@@G@@G/)__"[@) JAC.@@@[[[@ DX @@ J H/@@@HR@) JT]@@@[JA@) JSC@@^V9H@@ JS/C@@8LSC )@@G@@/^@@8RC@]^V;G/@__L/@@@8RO/)@@[8N0@8G/K@@8ZC/@@@HH@@ JSR@K K/Q@K JS[@@@[JSD )@@G@@C@@ I/[@[=V;8N0@8WR@) JTN8M^V;^^K@8S@@@ KT@@@ DY@@@ IM/K@@8;@C: LCC/@@@[[@@ JF/,0@F+@@@ KY@@@ K!@@@^93SF )@@G@@@@@ K!@@@ K,@C! LC/,0@>V@@@ KY@C, LC/K@@%L @@ DX @@ J /K@@%L @@ DX @@ J SG )@@G@@/,0@F+@@@^93@@@ K!@@@ KY@@@ K!@@@ K,@C5 LCD@@ JF/C@@9E/^@@%-/K@@?IC/@@@CSH )@@G@@[@@ JT/,0[#6/K@@9N@C' LCC@@ I4[@@ JW/K@@5@C/@@@C[@@ JTC@) I4[@) JX/K@@3GSI )@@G@@C/@@@C[@@ JT/,0[#6/K@@9)@D[ LCC@@ I1[@@ JW/K@@5@C/@@@C[@@ JTC@) I1[@) JXSJ )@@G@@/K@@3GC/@@@C[@@ JT/,0[V"@@@ K_@@@ JG@DC LCC@@^V9H@@ JT/C@@9\/^@@:JC@@ IVSK )@@G@@[@@ JXR@K JTA@K L?R@) L?C@]^V;G/@__Q/^@@99C@@ IS[@@ JX/,0[JL@@@ JX@@@ K?SL )@@G@@@@@ K?@DI LC/K@@:JC/@@@E[@@ JTC/)@@[[@) J#[@) J]/,0[JL@@@ IV@@@ I5@@@ K!SM )@@G@@@DN LC/K@@("/K@@:JC/@@@A[@@ JTC@) I-[@) JYC.@@@I[[@ JZ/K@@.X/K@@'FC/@@@ SN )@@G@@[@@ JTC@) IZ[@) JYC.@@@H[[@ JZR@K JTC[-^V;G.)__Q/ )@.XG/@@@[[@@ JT/K@@"NSO )@@G@@C/@@@I[@@ JTC@) IZ[@) JYC.@@@H[[@ JZ/K@@"^C/@@@D[@@ JTC@) IZ[@) JYC.@@@HSP )@@G@@[[@ JZ/K@@.LC/@@@ [@@ JT/,0[#6/K@@'6@D: LCC@@ I?[@@ JW/K@@5@C/@@@ [@@ JTSQ )@@G@@C@) I?[@) JX/K@@3GC/@@@D[@@ J=C/@@@AH@@^V9/C@@;#/@@@;#C/@@@E[@@ J=/,0[V"SR )@@G@@@@@ J=@@@ JG@D4 LCC@@^W]G/@__Q/^@@:JC/@@@C[@@ JT/,0[BC/K@@:J/K@@:J@@@ ISSS )@@G@@@@@ K?@@@ K?@@@ K?@D8 LC/K@@:JC/@@@B[@@ JT/K@@03/,0[V"@@@ L@@@@ JG@D/ LCST )@@G@@/K@@:J/K@@:JC/@@@F[@@ JTC/)@@[[@) J) @@ JWC@@ I8[@@ JX/K@@5]C/@@@B[@@ JTSU )@@G@@C@) I-[@) JYC.@@@I[[@ JZ/K@@"NC/@@@K[@@ JTC@) I-[@) JYC.@@@I[[@ JZ/K@@"^SV )@@G@@C/@@@E[@@ JTC@) I-[@) JYC.@@@I[[@ JZ/K@@.LC/@@@Q[@@ JT/K@@/VC/@@@I[@@ JTSW )@@G@@/K@@/VC/@@@N[@@ JT/K@@/VC/@@@I[@@ JT/K@@/FC/@@@J[@@ JT/K@@/F/K@@:JR@) JTSX )@@G@@C@]^V;G/@__Z/@@@/SC/@@@[G@@ JT[@@ JTH@@^V9/C@@/P/^@@/F/,0[&H@@@ K3@E) LCSY )@@G@@C/@@@[G@@ JT[@@ JT/,0[KL/K@@:J@@@ I(@E+ LC/K@@:JC/@@@D[@@ JT @@ J]C@) IQSZ )@@G@@[@) J>C/@@@[G@@ JT[@@ JT/,0[BC/K@@:J/K@@0,@@@ I;@@@ IQ@@@ IO@@@ K?@E* LCTA )@@G@@C/@@@[G@@ JT[@@ JTC@) IPG/)__"R/K@@[[@)@[JA@K J&C@[ D/,0[JL@@@ I;@@@ J>@@@ K!@E3 LCTC )@@G@@C@@ JTH@@^V9/C@@:J/@@@:JR@K JTC@[^V;G/@__#/^@@:J/K@@/>/,0[CF/K@@.4@E9 LCTD )@@G@@C/@@@[[@@ J[/,0[JL@@@ IY@@@ K?@@@ K?@E; LC @@ J[/K@@.4R@) JTC@]^V;[@@ JNTE )@@G@@/,0@*#@@@ JN/K@@.1/K@@.>@E_ LCC@@ JNG/@__#/@@@.4C/@@@[[@@ J[/,0[JL@@@ IXTF )@@G@@@@@ K?@@@ K?@F# LC @@ J[/K@@.4/,0[^5@@@ I+@FA LCC/@@@[G@@ JT[@@ JTC/@@@[TG )@@G@@[@@ J]/,0[JL@@@ JY@@@ K?@@@ K8@FD LC @@ J]/,0[V"@@@ JZ@@@ JG@FF LC/K@@:JTH )@@G@@/,0[CF/K@@"J@FH LCC/@@@[[@@ J[/,0[JL@@@ IY@@@ K?@@@ K?@FJ LC @@ J[C/@@@[TI )@@G@@G@@ JT[@@ JT/K@@.X/,0[CF/K@@"Y@FN LCC/@@@[[@@ J[/,0[JL@@@ IY@@@ K?@@@ K?TJ )@@G@@@FP LC @@ J[R@K JTA@K L?R@) L?C@]^V;G/@__#/^@@"$C/@@@[G@@ JT[@@ JTR@K JTTK )@@G@@C@[^V;G/@__Z/@@@.4/K@@"JC/@@@[[@@ JT[@@ J[[@@ J#/,0[JL@@@ IR@@@ K?@@@ K8TL )@@G@@@FZ LC @@ J# @@ J[C/@@@[[@@ J]/,0[JL@@@ IS@@@ K?@@@ K8@F< LC @@ J] @@ J^TM )@@G@@C@@^V/G/@__1/^@@:JC@@^V.G/@__4/^@@:JC@@^V"G/@__Q/^@@:J/K@@7BC/@@@B[@@ JTTN )@@G@@C@) IZ[@) JYC.@@@L[[@ JZ/K@@.7C/@@@C[@@ JTC@) I-[@) JYC.@@@M[[@ JZ/K@@.7TO )@@G@@C/@@@C[@@ JTC@) I-[@) JYC.@@@N[[@ JZ/K@@.7C/@@@M[@@ JT/,0[V"@@@ L[@@@ JGTP )@@G@@@F' LCC@@^V9H@@ JT/C@@_(/^@@:J/,0[JL@@@ IY@@@ K?@@@ K?@F. LC/K@@:JC/@@@BTQ )@@G@@[@@ JT/,0[V"@@@ K5@@@ JG@G@ LCC/@@@[[@@ J#[@@ J]/,0[JL@@@ I)@@@ K?@@@ K8TR )@@G@@@G# LC/K@@("C/@@@C[@@ JT/,0[V"@@@ L]@@@ JG@GA LCC@@ IS[@@ JXC@)^V9H@) JTTS )@@G@@/C)[@E/^)@:JC@)^V9H@) JTR@) JT[@)@[JA@) JSC@]^V;G/@__V/^@[@RC@@ IR[@@ JXTT )@@G@@C/)@@[[@) J[/K@[@TO/)@@[8N0[@IC/@@@[[@@ J][@@ J#/,0[JL@@@ JX@@@ K?@@@ K!TU )@@G@@@GQ LC @@ J[ @@ J] @@ J#C/@@@[G@@ JT[@@ JT/K@[@^C/@@@D[@@ JT/,0[V"@@@ L#TV )@@G@@@@@ JG@GX LCC/@@@[[@@ J^/,0[JL@@@ IV@@@ K?@@@ K?@GZ LC @@ J^C/@@@[G@@ JTTW )@@G@@[@@ JTH@@^V9/G@[@//^@@:JR@K JTA@K L?R@) L?C@]^V;G/@__R/^@[[ C/@@@[G@@ JTTX )@@G@@[@@ JTC@@^V9H@@ JT/C@[[D/^@@:JR@K JTN8L^V;^^K[[H/,0@*#@@@[[H/K@[[L/K@[[RTY )@@G@@@G* LCC@@ JG[@@ J@/,0[^5@@@ IU@G% LC @@ J@/K@@7,/,0[V"@@@ L^@@@ JG@G! LCTZ )@@G@@/K@@:J/,0[V"@@@ L @@@ JG@G\ LC/K@@:JC/@@@_H@@ JR/@@[]>C@@^W[[@@ J$C@)^W]UA )@@G@@[@) J* @@ JEG/@__9/@@[]*C@@ J$G/@__8/@@[]:C@@ J$G/@__4/@@[],C@@ J$G/@__1UB )@@G@@/@@[]1C@@ J$G/@__0/@@[]4C@@ J$G/@__,/@@[]7C/@@@[G/)__9*@@@@I @@@@GC/)@@[UC )@@G@@C[@ J$G.@__?*@@@@K @@@@I+@@@@I/=K[]'C/@@@[C@) J*G/)__5*@@@@I @@@@GC/)@@[UD )@@G@@C[@ J$G.@__?*@@@@K @@@@I+@@@@I/=K[].C@@ J$G/@__*/@@[#@C@@ J$G/@__>/@@[##UE )@@G@@C@@ J$G/@__[@@ JE/K@[]XC/@@@W[@@ JE/K@[]XC/@@@X[@@ JE/K@[]XC/@@@Y[@@ JEUG )@@G@@/K@[]XC/@@@Z[@@ JE/K@[]XC/@@@)[@@ JE/K@[]XC/@@@-[@@ JE/K@[]XC/@@@+[@@ JEUH )@@G@@/K@[]XC/@@@<[@@ JE/K@[]XC/@@@=[@@ JE/K@[]XC/@@@&[@@ JE/K@[]XN@0[#C/K@[#DUI )@@G@@@H> LCR]0 LD9!) L!R@K L\R@) L0N#0 L1*4@PLA/K@PLA/K@@K/AA0 LD9() L!A@K L\UJ )@@G@@A@) L0^#0 L1/K@[L[R/K@@[N_0@@BR@) JTA@) L2R@) L2C@]^V;H@[ J*/@@[#J8US )@@G@@8N0[^"R/K@@[N_0@@ A@K K@R@) JTA@) L'R@) L'C@]^V;[@[ J8C/)@@[G@) JT[@) JTUT )@@G@@H@)^V9/G)[ J/^)[A!R@) JTC@+^V;[@) JNG/)__^/@)[A!C@) JNG/)__S/@)[ -/,0@*CUU )@@G@@@@@ JN/K@[ -/K@[ W@IX LQ/,0@*#@@@ JN/K@[ -/K@[ &@IY LQO/K@@[8N0[ #/,0[&HUV )@@G@@@@@ LN@I- LQ/,0@&?@@@ J9@@@ D+@I+ LQC/@@@[*@@ J# @@@@GC/)@@[C.@@@=H[@ JNUW )@@G@@*@@@@K @@@@I+@@@@I/=K[A@C/@@@(H@@ JN/@@[AD/,0[V8@@@ K8@@@ D+@@@ JG@@@@@@UX )@@G@@@@@@@@@@@@@@@I$ LQ/K@[A%/,0[V8@@@ K8@@@ D+@@@ JG@@@ I;@@@ K?@@@ K?@I( LQUY )@@G@@/K@[A%C/@@@[G@@ L;[@@ K[G/@__./@@[AK/G@[ 7/K@[AT/,0[V8@@@ K8@@@ D+@@@ JGUZ )@@G@@@@@@@@@@@@@@@@@ I6@I\ LQ/K@[A%C/@@@#[@@ K]/,0[V8@@@ K]@@@ D+@@@ JG@@@@@@VA )@@G@@@@@@@@@@@ K?@I2 LQD@@ K]/G@[A%/@@[A%C8)@@]N@0[A(/K@[A.@I4 LQN@0[A?/K@[B[VB )@@G@@@I5 LQ/,0@&?@@@ J9@@@ D+@I6 LQ/,0[V8@@@ K8@@@ D+@@@ JG@@@@@@@@@@@@@@@@@@VC )@@G@@@I7 LQC8)@@[N@0[A//K@[A.@I8 LQ!^) LO/K@@K/H8)@@[[^) LOR]0 LRR@K L/R@) L.VD )@@G@@N#0 L"*4@PLO/K@PLO/K@@K/C8@@@BAA0 LR[^@ LOA@K L/A@) L.^#0 L"C8FK@][^@[ ;VE )@@G@@[^@[AZ[^@[A5[^@[AOC8FK@#[^@[A)[^@[AP[^@[ /[^@[A6C8FK@^[^@[ .[^@[A7C@VK@ VF )@@G@@[@K L;/K@[^/R@K JTC@[^V;[@@ JN/,0@*#@@@ JN/K@[B&/K@[B.@I. LVC_)@@[N_0@@]VG )@@G@@[#) K#C/@@@[G@@ JT[@@ JTR@K JTC@-^V;[@) JN/,0@*#@@@ JN/K@[B4/K@[B9@J# LVVH )@@G@@G_)@@[8N0[B*/,0[&H@@@ LS@JA LVC8)@@[N@0[B//K@[C@@JB LVN@0[B_/K@[C^@JC LVVI )@@G@@!^) LT/K@@K/H8)@@[[^) LTR]0 LW9\) L_R@K M[N#0 M]*4@PLT/K@PLT/K@@K/C8@@@]VJ )@@G@@AA0 LW[^@ LT9:) L_A@K M[^#0 M]/K@[BY @@ K^ @@ JP @@^0>C@@^V9H@@ JT/C@[CTVK )@@G@@/^@[H[R@K JTC@[^V;G/@__^/@@[H[R@K JTC@[^V;[@@ JN/,0@*C@@@ JN/K@[C7/K@[C>VL )@@G@@@JO L-C@@ J^/@@[D\/G@[D\C@@ JNG/@__Q/^@[C,C/@@@[G@@ K^[@@ K^C@@ JNG/@__ZVM )@@G@@/^@[C4C@@ K^G/@__"[@@ K^C@@ K^/@@[H[/K@[D\R@K JTC/@@@DH@@ JN/@@[DQC/@@@EVN )@@G@@H@@ JN/^@[E#C/@@@[C@-^V.G/)__**@@@@I @@@@GC/)@@[C[[^V/G.@__**@@@@K @@@@IVO )@@G@@+@@@@I/=K[D-C/@@@[C@-^V/G/)__?*@@@@I @@@@GC/)@@[C[[^V.G.@__6*@@@@K @@@@IVP )@@G@@+@@@@I/=K[D-C@@ JTG/@__"/@@[E#R@K JTN8L^V'^^K[DX/,0@*#@@@[DX/K@[D\/K@[E#VQ )@@G@@@J% L-R@K JTC/@@@[C/)@@[H@) JT(@@@@I @@@@GC/)@@[C[[^V"G.@__V*@@@@K @@@@IVR )@@G@@+@@@@I/=K[G2/K@[E#C/@@@[C/)@@/H@) JN*@@@@I @@@@GC/)@@[*@@ J] @@@@I+@@@@IVS )@@G@@/=K[H[C/@@@$H@@ JN/@@[G(C/@@@.H@@ JN/@@[H^C/@@@[G@@ JT[@@ JT/K@[CP/,0[BCVT )@@G@@/K@[H[/K@[EQ@@@@@@@@@@@@@@@ K?@@@@@@@J8 L-R@K JTC@[^V;G/@__Q/@@[E?C/@@@[VU )@@G@@H@@ J[/^@[EPN@0[EO/K@[JF@J/ L-/K@[CX/,0[V"@@@ LX@@@ JG@J" L-R@K JTC@[^V;VV )@@G@@G/@__Q/^@[E$C/@@@[G@@ JP[@@ JPR@K JPC/)@@[[@-^0=C/@@@[[@@ JX/K@[E1R@K JTVW )@@G@@C@[^V;G/@__Z/@@[FD/K@[CNC/@@@[G@@ JP[@@ JPR@K JP @[^0=C/@@@[G@@ JT[@@ JTVX )@@G@@C@@^V9H@@ JT/C@[E;/@@[E;/,0[&H@@@ K1@KG L-R@K JTR@) JPC@[^V;G/@__Z/^@[FKVY )@@G@@C/@@@[G@@ JT[@@ JT @]^0=C@@ JPG/@__"[@@ JP/G@[FD/^@[F.C/@@@[H@@ J[/^@[FJVZ )@@G@@N@0[FI/K@[JF@KP L-/K@[CNR@K JTC@[^V;[@@ JN/,0@*C@@@ JN/K@[FS/K@[G[@KS L-WA )@@G@@C@@ IU[@@ JXR@) JPA@) M#R@K M#C@[^0=G/@__"/^@[F+C@@ IT[@@ JX/,0[BC/K@[G&WB )@@G@@/K@[F?@@@ JX@@@ K?@@@ K?@@@@@@@KW L- @@ JX/K@[F2C/@@@[[@@ JX/,0[V"@@@ LXWC )@@G@@@@@ JG@K) L-R@) JTC@]^V;G/@__Q/^@[E4C/@@@[G@@ JP[@@ JPR@K JPC@) JX[@-^0=WD )@@G@@/K@[E1R@) JPC@]^0=[@@ JX/K@[E4C@@ JNG/@__Q/@@[F6R@K JPC@@ JNG/@__]/@@[H^WE )@@G@@C/@@@[C@-^0=G/)__"(@@@@I @@@@GC/)@@[C[@ JNG.@__S(@@@@K @@@@I)@@@@I/=K[E1WF )@@G@@C/@@@[G@@ JT[@@ JTH@@^V9/G@[GU/^@[E4R@) JTN8M^V;^^K[GY/,0@*#@@@[GY/K@[G+WG )@@G@@/K@[E4@K1 L-/,0[^5@@@ I<@K2 L-/K@[E4/,0[&H@@@ K4@K4 L-C/@@@[G@@ JT[@@ JTWH )@@G@@H@@^V9/G@[G5/@@[G5/,0[&H@@@ LY@K8 L-C/@@@^G@@ JT[@@ JTR@K JTC@[^V;[@@ JNWI )@@G@@/,0@*#@@@ JN/K@[G./K@[CX@K/ L-/,0[^5@@@ I<@K. L-/K@[CXN@0[H#/K@[JF@K_ L-WJ )@@G@@C@@ JT[@@ K C/@@@[G@@ K [@@ K R@) JTH@@^V9/G@[HH/^@[I^R@K K C@[^V;G/@__]WK )@@G@@/^@[HAC@@ K H@@ JT[@@ JEC@+^V/G/)__&/^)[HWG/@__'/@@[H"C/@@@]H@@ JE/@@[H"WL )@@G@@R@K JTC@[^V/G/@__4/^@[H&C/@@@AH@@ JE/@@[H"C/@@@]H@@ JE/@@[H"R@) JTC/@@@^WM )@@G@@H@@ JE/C@[H:/^@[I^C/@@@]H@@ JE/C@[I^/@@[I^N8M^V/^^K[H2/,0@*C@@@[H2/K@[H6WN )@@G@@/K@[I^@LR L-R@K JTN8L^V.^^K[H'/,0@*C@@@[H'/K@[H"/K@[I^@LS L-C@@ K [@@ JTWO )@@G@@D@) JP/C)[I#/^)[E1/K@[D_C@@ JT[@@ K @@ KAC/@@@[G@@ K [@@ K H@@^V9/G@[IHWP )@@G@@/^@[I_R@) K C@]^V;[@@ JN/,0@*#@@@ JN/K@[IB/K@[IP@L< L-C/@@@[*@@ KA @@@@GWQ )@@G@@C/)@@[C[@ JNG.@__5*@@@@K @@@@I+@@@@I/=K[J C/@@@[*@@ KA @@@@GC/)@@[C[@ JNWR )@@G@@G.@__6*@@@@K @@@@I+@@@@I/=K[J C/@@@[*@@ KA @@@@GC/)@@[C[@ JNG.@__Y*@@@@KWS )@@G@@ @@@@I+@@@@I/=K[IBC/@@@[C@) JNG/)__X*@@@@I @@@@GC/)@@[C.@@@[H[@ KA*@@@@KWT )@@G@@ @@@@I+@@@@I/=K[IBC@@ K [@@ JTD@) JP/C)[J^/^)[E4/K@[CPC/@@@[[@@ KA/K@[IBWU )@@G@@N@0[JE/K@[JF@L1 L-R]0 L+R@K M^R@) M *4@PLZ/K@PLZ/K@@K/AA0 L+A@K M^A@) M WV )@@G@@C8FK@@[^@[EAC8FK@[[^@[EBC8FK@][^@[ED[^@[F*/K@[CMR@K JTA@K MAR@K MAC@[^V;WW )@@G@@G/@__Z/^@[J>N@0[J=/K@[KG@L6 L>C@@^V9H@@ JT/C@[J!/@@[J!C8)@@[N@0[J?/K@[KCWX )@@G@@@L8 L>R@K JTN8L^V;^^K[J1/,0@*#@@@[J1/K@[J5/K@[J8@L9 L>/,0[^5@@@@@@@L' L>WY )@@G@@R@K JTA@K MAR@K MAC@[^V;G/@__Z/^@[K[N@0[K@/K@[KG@L/ L>C/@@@[G@@ JT[@@ JTWZ )@@G@@/K@[J>N@0[KB/K@[KG@L" L>!^) LC/@@@L[@@ JEC@@ JEG/@__"[@@ MC/,0E[#@@@ K!@@@ MC@@@ KW@MG L%XD )@@G@@N@0[K6/K@[K7@MH L%R]0 L:R@K MDN#0 ME*4@PL*/K@PL*/K@@K/AA0 L:A@K MD^#0 MEXE )@@G@@/K@[KSC8FK@@[^@@*K[^@@*.C8FK@[[^@@*N[^@@%A/K@@*H/,0@F+@@@D_&@@@D_&@@@D.ZXF )@@G@@@@@D_$@@@D_*@[SD__/,0@F+@@@D_&@@@D_&@@@D.'@@@D_$@@@D_(@[TD__/,0@F+@@@D_&XG )@@G@@@@@D_&@@@ 1V@@@D_$@@@D_%@[UD__/,0@F+@@@D_&@@@D_&@@@AK:@@@D_$@@@D_:@[VD__XH )@@G@@C/@#%S[@@D"2C/)@@[[@)D"3 @@D"4 @@D"5 @@D"6 @@D"7 @@D"8N@0[L\/K@[VY@[C@@E@-[@[AL./K@[M0C/@@@]H@@@@@/@@[M0R@)D";C@]AL.H@@D",/@@[M0XN )@@G@@C@@D"\[@]AL.C/)__/[@)@@@R@KD";(@@E@+/K@[N#C@[AL"[@@D"9G/@__;/G@[M8/^@[N@XO )@@G@@R@)D"9O@)D";C@@E@+[@]AL8C/)@@[G@)D"9[@-AL"/K@[N#R@)D";C@@D"0[@]AL/N@0[N XP )@@G@@/K@[VY@]ED__C_)@@@N_0@@ [#)D".C4@@@@[@@D"9C@@D"9G/@__'/@@[NN/,0@*#@@@D"9XQ )@@G@@/K@[NN/K@[N3@]ND__G_)@@A8N0[NC/,0[):/K@[N=/K@[N3@@@D.'@]QD__R@KD"; @[AL8XR )@@G@@C@@D"2[@[AL9 @[AL'C/)@@#G@)D"3[@)D"3C.@@@[[[@D"6C@@E@)G@@@@@[@@D""R@)D";XS )@@G@@N8MAL'^^K[N:/,0[YG@@@[N:@@@D""@]XD__R@KD";(@@E@-/K@[N3C@@@@@[@[AL8N@0[N5XT )@@G@@/K@[VY@]-D__C/@@@$H@@@@@/C@[N./@@[N.N@0[N//K@[VY@]>D__R@)@@@*@]AK%/K@[O]XU )@@G@@C@@D"2[@]AK%R@K@@@N8LALL^^K[OA/,0[YG@@@[OA@@@@@@@](D__C/@@@KH@@@@@/C@[OJXV )@@G@@/@@[OJC/@@@[[@@D"7C/@@@VH@@@@@/C@[OP/@@[OPC/@@@[[@@D"8N@0[OR/K@[VY@],D__XW )@@G@@(@@D"5/K@[R(C@@ DVG@@ DUC/)@@[*@@@@G @@@@IC/@@@[D[@ DO*@@@@K1@@@@K @@@@GXX )@@G@@+@)@@G/=0[R(C@@ DOG@@ DNG@@ DPG@@ DQG/@__;/@@[O?C@@ DRG@@ DO*@@@@G/K@[O2XY )@@G@@/,0[$S@]7D__C@@D.Z[@@D"_R/)@@]N_0@@TA@)D_@C@@D"_[@@D"'/G@[RW/@@[RWR@KD"'XZ )@@G@@C^[ 1U[@@D_[R@KD_[C@[AL_[@@D_]C@)D"![@)D_#R/K@@[N_)@B3A@KD_^(@@D_]/K@[P*YA )@@G@@R@0D_]N8L [S^^K[PMN8NAL8^^K[PKN8L^9=^^K[PN/,0@&=@@@[PK@@@D_]@@@[PM@@@[PNYB )@@G@@@#BD__N8L^9=^^K[PS/,0[=D@@@[PS@@@^P_@#CD__C@@^Q@;)@@@A;C@@@AC@L^9=;)K@@YYC )@@G@@;G@@@Y[@L^9=C4[ [S[)[^9=O/K@@[8N)[P C@@D"1[@@D_#C/@@@^G@@D_[[@@D_ C@)D_^YD )@@G@@G/)__"[@)D_AC_)@@@R@0D_[N_)@@^[#)D_BC@#AL8;)@@@V;C@@@V[@@D_C/@@[Q@G/@_"VYE )@@G@@/@@[QB/G@[QBO/0@@[G_)@@[8N)[P1C@@D"![@@ IL/K@[QER@KD_[C@[AL.H@@D_!/@@[P.YF )@@G@@C@@D_,[@@ IL/K@[QER@0D_CC@# D<[@@ ILR@KD"'*@@ DO/K@[RGN8L ME^^K[QL/,0@H_YG )@@G@@@@@D_\@@@[QL@@@D_0@#&D__R@0D_[N8NAL.^^K[QT/,0@H_@@@D_1@@@[QT@@@D_2@#$D__YH )@@G@@R@KD_[N8LAL8^^K[Q-/,0@H_@@@D_3@@@[Q-@@@D_4@@@D_5@@@D_$@#*D__/,0@H_@@@D_6YI )@@G@@@@@ IL@@@D_0@#(D__C@@D_AG/@__";O@@@=W/@@@IR/0@@[[@@@[IA@0D".C@@D_AH@@D".YJ )@@G@@G/@@@[[@@D_DC/@@@IH@@D_D/C@[Q//@@[Q/C/@@@I[@@D_DN8N^9=^^K[R[/,0@I[@@@D_$YK )@@G@@@@@D_7@@@[R[@@@D_0@@@D_D@@@D_&@#0D__/,0@I @@@D_\@@@D_N@#1D__O/0@@I8N)[Q1YL )@@G@@D@@ DV/C@[RL/@@[RL/,0[X$@#6D__D@@ DU/C@[RQ/@@[RQ/,0[+/@#8D__R@KD"'CC[ 1UYM )@@G@@[@@D"_D@@D"_/C@[RW/^@[O7C@]D.Y[@@D"_O/)@@[8N0[O6(@@ DV/K@[R((@@ DW/K@[R(YN )@@G@@/,0@J8@@@^V/@@@ DW@@@^#G@^#D__(@@D"6/K@[T%D@@ DP/C@[R,/^@[T%*@@ DR/K@[R2YO )@@G@@/,0[*,@^DD__C@@D.'[@@D"_R/0@@]N_0@@1A@0D_@C@@D"_[@@D"'/G@[T&/@@[T&R@KD"'YP )@@G@@C^[ 1U[@@D_[R@)D_[C@]AL9[@@D_]C@)D"![@)D_#R/K@@[N_)@B3A@KD_^(@@D_]/K@[S*YQ )@@G@@R@)D_]N8L [S^^K[SMN8MAL8^^K[SKN8L^9=^^K[SN/,0@&=@@@[SK@@@D_]@@@[SM@@@[SNYR )@@G@@@^TD__N8L^9=^^K[SS/,0[=D@@@[SS@@@^P_@^UD__C@@^Q@;)@@@A;C@@@AC@L^9=;)K@@YYS )@@G@@;G@@@Y[@L^9=C4[ [S[)[^9=O/K@@[8N)[S C@@D"1[@@D_#C@@D_^G/@__"[@@D_AR@)D"'YT )@@G@@N8M ME^^K[S0/,0@H_@@@D_\@@@[S0@@@D_0@^-D__R@KD_[N8LAL8^^K[S8/,0@IL@@@D_8YU )@@G@@@@@[S8@@@D_0@^+D__/,0@H_@@@D_9@@@D_#@@@D_0@^R[@D_]N8N^9=ZC )@@G@@^^K[UZN8OAL8^^K[UW/,0@&=@@@[UW@@@D_]@@@D_E@@@[UZ@ AD__O/0@@[8N)[UNC@@D"1ZD )@@G@@[@@D_#C/@@@[H@@D_^/@@[VSC@@D_^G/@__"[@@D_A/,0@H_@@@D_\@@@D_#@@@D_0@ HD__ZE )@@G@@N8MD/J^^K[U4/,0@H_@@@D_1@@@[U4@@@D_1@ ID__C@@D_AG/@__"S@@D_;;K@@@#R.@@@[ZF )@@G@@[@@@[IA[@D".C@@D_AH@@D".G/@@@[[@@D_DC/@@@PH@@D_D/C@[VC/@@[VCC/@@@P[@@D_DZG )@@G@@N8O^9=^^K[VH/,0@IN@@@D_$@@@D_/@@@[VH@@@D_2@@@D_D@@@D_$@ PD__/,0@I @@@D_\ZH )@@G@@@@@D_R@ QD__O.@@@P8N)[U.O/)@@]O/K@@[8N0[T6N@0[VX/K@[VY@ VD__R]0E@@9!)E@R@KE@$R@)E@*R@0E@(R[@E@%N#0E@:N#)E@?*4@T_./K@T_./K@@K/AA0E@@[^@D_.ZJ )@@G@@9()E@<9:)E@>A@KE@$A@)E@*A@0E@(A[@E@%^#0E@:^#)E@?/KH@@@C8@@@[/\K[V%/K@[<[ZK )@@G@@C8@@@B/\K[V%/K@[<]C8@@@ /\K[V%/K@[^^K[W4/,0@F+ZP )@@G@@@@@[W4@@@D_$@@@[W6@@@D_$@@@D_D@ ,E@^C@@D_D;O@@@=W/@@@WT/@@@W[@@D_HC@@D_DZQ )@@G@@;O@@@=W/@@@W(@@@@H/K@[XBC/@@@WG@@D_H[@@D_HC@@D_HG@@ DW[@@ DWC@)D_HG@)D_FZR )@@G@@[@)D_FC@@ DWG/@_=D/C@[XL/^@[XR/,0@J8@@@^V/@@@E@[@@@^#G@ 6E@^ @@ DWC@@D_FZS )@@G@@H@@D_A/C@[XV/^@[WXN@0[XX/K@[XY@ 'E@^R]0E@ 9!)E@\R@KE@1R@)E@2R@0E@3N#0E@4ZT )@@G@@*4@U@]/K@U@]/K@@K/AA0E@ 9()E@\A@KE@1A@)E@2A@0E@3^#0E@4/K@[W^R@KD"2C@@E@5ZU )@@G@@[@[AL8R@K@@@N8LAL8^^K[X6/,0@&-@@@D"2@@@[X6@ _E@DC@@D"2[@@@@@G/@__"[@@D"2ZV )@@G@@C/@@@GG@@D"3H@@D"2/G@[Y^/@@[Y^/,0[-K@@@E@A@A#E@DN@0[YA/K@[YB@A^E@DR]0E@EZW )@@G@@R@KE@6*4@U@B/K@U@B/K@@K/AA0E@EA@KE@6C8FK@@[^@[X1[^@[X9C@VK@[[@KE@5/K@[X,ZX )@@G@@C_)@@@N_0@@ [#)D"'C@@@@@;)@T"';C@@@Y[@@D_JG/@__'/@@[Y$/,0@*C@@@D_J/K@[Y!ZY )@@G@@/K@[Y+@AKE@I/,0@*#@@@D_J/K@[Y2/K@[Y(@ALE@IG_)@@A8N0[YQC8)@@]N@0[Y?/K@[)ZZZ )@@G@@@AOE@IC/@@@ H@@D_J]@@D_J @@D_I/K@[Y.C/@@@\H@@D_J]@@D_JC/)@@YH@)D"'S@)E@FAA )@@G@@T/)@@EH@@@@I]@@D_JC/)@@[[@)D_IR/K__"O@KE@7O@KD_JC@[@@@[@@D_K @@D_L/@@[Z_AB )@@G@@/G@[Z_R@KD_KC@)@@@H@- ME/@)[ZF/G)[Z_/K@[ZTC^- 1U[@)D";C@)D_I/=)[)VR@KD";AC )@@G@@C[[AL.H[@E@-/[@[)VC[@E@-H[@D_!/[@[ZTC[[AL.H[@D_!/ @[)VC_)@@[N_0@ZJ[#)D"_AD )@@G@@R@KD_KA@KE@8R@KE@8CC[ 1U[@@D_LC@@D_L/@@[)E/G@[)ER@KD_LC@)@@@H@- ME/@)[Z%AE )@@G@@/G)[)E/K@[Z8C^- 1U[@)D";R@KD";C@)D_I/=)[)VC[[AL.H[@E@-/[@[)VC[@E@-H[@D_!AF )@@G@@/[@[Z8C[[AL.H[@D_!/ @[)VC@@D_L[@@D_KG_)@@[8N0[ZV/,0[-K@@@D_/@B]E@IC/@@@[AG )@@G@@G@@D"4[@@D"4R/K__"O@KE@7O@KD_J[@[@@@R@KD"4C@)D_K[C- 1U/K@[)MC/@@@[G@@D"4AH )@@G@@[@@D"4R@KD"4R@)D_KCC+ 1U[C- 1U[C] 1UR@KD"4C@@@@@[@[ MEC@)D"3[^- 1U[@)D";AI )@@G@@N@0[)U/K@[)<@BHE@IC8)@@[N@0[)Y/K@[)Z@BIE@I!^)E@G/K@@K/H8)@@[[^)E@GR]0E@JAJ )@@G@@9\)E@9R@KE@;R@)E@/N#0E@.*4@U@G/K@U@G/K@@K/C8@@@^AA0E@J[^@E@G9:)E@9A@KE@;AK )@@G@@A@)E@/^#0E@.C8FK@][@@E@7/K@[YO/,0@I @@@D_\@@@^7/@BME@P/,0@I @@@D_/@@@D_TAL )@@G@@@BNE@P/,0@IL@@@E@K@@@@@@@@@D_5@BOE@P/,0@IB@@@E@L@@@E@M@@@D_Y@BPE@P/,0@$!AM )@@G@@@BQE@PN@0[-F/K@[-G@BRE@PR]0E@Q*4@U@N/K@U@N/K@@K/AA0E@QC8FK@@[^@[)_/K@[)5AN )@@G@@R@KD"'C/@@@[H@@ DU/C@[+B/@@[+BN8L ME^^K[-X/,0@H_@@@D_\@@@[-X@@@D_0@BXE@YAO )@@G@@/,0@H_@@@D_1@@@ DH@@@D_3@BYE@Y/,0@H_@@@E@R@@@ DJ@@@D_3@BZE@Y/,0@I @@@E@SAP )@@G@@@@@D_=@B)E@YR@KD_[N8LAL.^^K[-3/,0@H_@@@D_7@@@[-3@@@D_2@B-E@YR@KD_[N8LAL8AQ )@@G@@^^K[-;/,0@H_@@@E@T@@@[-;@@@D_4@@@D_5@@@D_$@B+E@Y/,0@H_@@@E@U@@@D_#@@@D_0AR )@@G@@@B/@@[+>C/@@@E[@@D_DN8L^9=^^K[+(/,0@H_AU )@@G@@@@@D_9@@@[+(@@@D_0@@@D_D@@@D_&@B!E@Y/,0@H,@B,E@YO/K@@E8N0[+HN@0[+4/K@[+5AV )@@G@@@B1E@YR]0E@ZR@KE@"R@)E@_N#0E[@*4@U@W/K@U@W/K@@K/AA0E@ZA@KE@"A@)E@_^#0E[@AW )@@G@@/K@[-O/K@[LCC8FK@@[^@[M\[^@[M&C8FK@[[^@[ZA[^@[)N[^@[Z>[^@[OE[^@[N7[^@[O]AX )@@G@@[^@[N.[^@[ND[^@[OK[^@[YR[^@[L0C8FK@][^@[L8[^@[N>[^@[OB[^@[MQ[^@[N1C@VK@#AY )@@G@@[@KE@)C@VK@^[@KE@+C@VK@ [@KE@-/K@[L0C8FK@@[^@[ZA[^@[)N[^@[Z>[^@[OE[^@[N7AZ )@@G@@[^@[O][^@[N.[^@[ND[^@[OK[^@[YR[^@[L0C8FK@[[^@[L8[^@[N>[^@[OB[^@[MQ[^@[N1BA )@@G@@C@VK@][@KE@)C@VK@#[@KE@-/K@[NAC8FK@@[^@[ZA[^@[)N[^@[Z>[^@[OE[^@[N7[^@[O]BB )@@G@@[^@[N.[^@[ND[^@[OK[^@[YR[^@[L0C8FK@[[^@[L8[^@[N>[^@[OB[^@[MQ[^@[N1/K@[N6BC )@@G@@/K@[OSR;@@[C9?0E[[E@VK@@;GK@@=W8K@@EG9I@@:;^0@@AP;@@@A/^K[=GR#VK@@/CK[=QBD )@@G@@/@K[=QG9@@@W;^/@@@9*;K@[/KF@@#C9K@@@R#@^V/P;@@@A/G@[=\!8@@@T/K@[=\RB?E[HBE )@@G@@RFWE[H/K@[=/K@[=\R7"@@@C[J^V;%1I@@@/K@[=+R\"@@@/@0[=,C[J^V;BF )@@G@@%(I@@@/K@[=+CPY@@@[[VK@@/KF@@]C/@@@[C/)@@IH@:K@@*@@@@I1@@@@I @@@@GC/)@@[BG )@@G@@C[FK@@G.@__"*@@@@K1@@@@K @@@@I)@@@@I/=K[&]/,0@I @@@E]1@@@^7/@[:E]8C@@E]'BH )@@G@@T/@@@BG/@@@[[@@E]:R@KE]:N8L^7;^^K[>H/,0@IB@@@E]2@@@E]3@@@[>H@[!E]8D@@^V9BI )@@G@@/C@[&]/@@[&]C@@E]4[@@E]?C@)^V9G/)__"R/K@@[[@)@[JA@KE]!C@[^V;[4@E]?C@)E]!BJ )@@G@@;O)@@=W/)@]][@0E],/G0[>-/^0[>*/,0@I[@@@E]2@@@E]5@@@E]?@@@E]2@[8E]8/K@[>6BK )@@G@@C/@@@[H@@E],/^@[>1/,0@H_@@@E]1@@@E]?@@@E]2@[/E]8/K@[>6/,0@H_@@@E],@@@E]?BL )@@G@@@@@E]2@["E]8O/K@@[8N0[>S(@@E],/K@[&]C/@@@[G@@E],[@@E];/,0@IB@@@E]2@@@E];BM )@@G@@@@@E]\@]#E]8/,0@$V@] E]8N@0[&A/K@[&B@]AE]8R]0E]9R@KE]/N#0E].*4@U]6/K@U]6BN )@@G@@/K@@K/AA0E]9A@KE]/^#0E].C@VK@@[@KE]'/K@[=1/,0@IB@@@EAP@@@EAQ@@@E .@[FEA=BO )@@G@@/,0@IB@@@EAR@@@EAS@@@E _@[GEA=R@KEATR@)EAUN_0@@D/,0@I @@@EAQ@@@EA @[KEA=BP )@@G@@N8ME]8^^K[&*/,0@I @@@EAV@@@[&*@[LEA=N8M%#4^^K[&,/,0@I @@@EAW@@@[&,@[MEA=BQ )@@G@@N8L%^\^^K[&5/,0@IB@@@EAR@@@EAX@@@[&5@[NEA=8N0[&)/,0@I @@@EAQ@@@EAB@[QEA=BR )@@G@@/,0@I @@@EAY@@@EAE@[REA=/,0@I @@@EAZ@@@EAG@[SEA=/,0@IB@@@EA)@@@EA-@@@EAIBS )@@G@@@[TEA=/,0@IB@@@EAR@@@EAQ@@@EAN@[UEA=N@0[$K/K@[$L@[VEA=R]0EA>R@KEA&R@)EA$BT )@@G@@N#0EA**4@UA+/K@UA+/K@@K/AA0EA>A@KEA&A@)EA$^#0EA*/K@[&N/,0@IB@@@EC#@@@EC^BU )@@G@@@@@EB?@[JECL/,0@IB@@@EC @@@ECA@@@EB,@[KECLR@KECBN_0@@[/,0@I @@@EC^@@@EB7BV )@@G@@@[OECLN8LEA)^^K[$1/,0@I @@@ECC@@@[$1@[PECLN8L%A2^^K[$8/,0@IB@@@EC @@@ECDBW )@@G@@@@@[$8@[QECL8N0[$(/,0@I @@@EC^@@@EB9@[TECL/,0@IB@@@EC @@@ECD@@@EB;@[UECLBX )@@G@@R@KECER@)ECFN_0@@]/,0@I @@@EC^@@@EB_@[YECLN8MEBE^^K[*J/,0@I @@@ECD@@@[*JBY )@@G@@@[ZECLN8M%BN^^K[*P/,0@I @@@ECG@@@[*P@[)ECLN8L%BV^^K[*W/,0@IB@@@EC @@@ECHBZ )@@G@@@@@[*W@[-ECL8N0[*B/,0@IB@@@ECI@@@EC^@@@EC[@[=ECLN@0[*&/K@[*$@[>ECLR]0ECMCA )@@G@@R@KECNR@)ECON#0ECP*4@UCJ/K@UCJ/K@@K/AA0ECMA@KECNA@)ECO^#0ECP/K@[$X/,0@IBCB )@@G@@@@@EFO@@@EFP@@@EE9@#'EFX/,0@IB@@@EFQ@@@EFR@@@EE;@#;EFX/,0@IB@@@EFQ@@@EFSCC )@@G@@@@@EF[@#/EFXC/@@@J[@@ECQD@@EFZ/C@[(D/@@[(DC/@@@<[@@ECQD@@EF)/C@[(I/@@[(ICD )@@G@@C/@@@7[@@ECQC@@ECQG/@__"N/K@@[^@KEE5[@@@[J^#0EF-R@KEE5A@KEF+C@@EE5;O@@@=CE )@@G@@W/@@@ [@KEE6R@KEF+C@-ED/[@)EE7/@)[("/G)[("G/K__"/@K[%JN#0EF-R@KEE7A@KEF*4@UFV/K@UFV/K@@K/AA0EFYCK )@@G@@A@KEF=^#0EF>C@VK@@[@KEFZC@VK@[[@KEF)/K@[*3R8VK@^R8:K@ R8;K@AR9FK@#C@@EG]CL )@@G@@[@^@@@[@^@@[C@)EG#[@-@@@[@[@@[[@]@@@[@]@@[[@#@@@[@#@@[ @@@@@C.@@@^[1@@@@CM )@@G@@C.)@@[G[:K@][[)@@@D]FK@]/E@[%"/A@[:S/,0@I @@@EG^@@@^7/@[NEGK/,0@I @@@EG CN )@@G@@@@@EF8@[OEGKD@@EGN/C@[:I/@@[:I/,0@H_@@@EGA@@@@@@@@@EGB@[QEGK/,0@H%@@@EGCCO )@@G@@@[REGK/,0@IB@@@EGC@@@EG^@@@EF"@[SEGK/,0@$V@[TEGK @@EF2 @@EF3 @@EF4 @@EF5CP )@@G@@C@@EGNG/@__"C_)@@[R[KEGM[@@@[J[#)EF6C/@@@[H@@EF6/C@[:&/^@[:_/,0@F+@@@EG@CQ )@@G@@@@@EGD@@@EF&@@@EGE@@@EGF@[@@@G/)__]*@@@@I @@@@GC/)@@[CR )@@G@@C.@@@[H[@EF6/D@[:9*@@@@K @@@@I+@@@@I/=K[!>C/@@@[H@@EF6/C@[:_/^@[!>C@ @@@CS )@@G@@G/@__R/^@[?MD@@EF2/C@[? /^@[%"C/@@@[[@@EF2[)@@@@D@)EF7/C)[!>/@)[!>/,0@$1CT )@@G@@@@@EF&@@@@@@@[1EGKC@@EF7[4@@@@/K@[:&C@ @@@G/@__]/^@[?\D@@EF3/C@[?S/^@[%"CU )@@G@@C/@@@[[@@EF3D@)EF7/C)[?Y*@@@@I @@@@GC/)@@[D[@EF2*@@@@K1@@@@K @@@@I+@@@@ICV )@@G@@/=K[%"D@@EF7/C@[:&/@@[:&/,0@$1@@@EF&@@@@@@@[.EGKC@@EF7[0@@@@/K@[:&C@ @@@CW )@@G@@G/@__#/^@[!^D@@EF4/C@[?5/^@[%"C/@@@[[@@EF4D@@EF7/C@[%"/@@[%"/,0@$1@@@EF&CX )@@G@@@@@@@@@]BEGKC@@EF7[?@@@@D@)EF5/C)[!#/^)[!S/K@[:&C@ @@@G/@__L/^@[!WD@@EF5CY )@@G@@/C@[!E/^@[%"C/@@@[[@@EF5D@)EF4/C)[?7/@)[?7D@)EF7/C)[%"/@)[%"/,0@$1@@@EF&CZ )@@G@@@@@@@@@]PEGKC@@EF7[*@@@@C/@@@[G@@EF6[@@@@@/K@[:&C/@@@[G@@EF7[@@EF7G/@__3DA )@@G@@/G@[!+/^@[%"R[)EF7C@ @@@[@AEF>O.K@@[G_)@@[8N0[:-D@@EF5/C@[!:/^@[,)D@@EF7DB )@@G@@/C@[%"/@@[%"(@@EF2/K@[,L*4@@@@/K@[,L/,0@$1@@@EF&@@@@@@@]$EGKC/@@@[C@=@@@DC )@@G@@H@)EGG*@@@@I @@@@GC/)@@[C.@@@#H[@EF7*@@@@K @@@@I+@@@@I/=K[,A]0EG9C8@EG-/,0@X)/K@[0LR]0EG9/KF@@DR]0EG9G9K@[@[[VK@ADP )@@G@@/KFK@BC@F@@@[^@EG(C@VK@[[^KEG*/@K[0-/GK[0-;CK@@[H8K@@[&;@@@];G)@[C9*?)@@DQ )@@G@@8#K[0ZA]0EG'C8@EG-/,0@VK/K@[0L/K@[0,R]0EG'C4@EG:/^@[0P(@@EG//KF@@^**@EG:DR )@@G@@/K@[0P/KF@@^R]0EG'/KFK@]A]0EG'C8@EG-/,0@YHR]0EG'/KF@@[ @@ DM @@ DN @@ DODS )@@G@@ @@ DP @@ DQ @@ DR @@ DSC/@@@[[@@ DT @@ DU @@ DV @@^#I @@ D) @@ D- @@ DLDT )@@G@@/,0@&D@@@^9>@@@^']@[YEI< @@EHAR/K@@[N_0@[[C@[^'[G/@__'/@@[1OC/@@@[G@@EHADU )@@G@@[@@EHAR@)EHAC@-^'[[@+^'[O/K@@[8N0[1FC@@EHA[@@EHCG/@@@[[@@EHDR@)EHDN8M^'[DV )@@G@@^^K[1/,0@F+@@@EIL@@@EIM@@@[1<@@@EIN@@@EI>@[:EI< @@EHEDW )@@G@@/,0[,.@@@^9>@@@^']@@@EHC@@@EG.@@@ DY@@@ DH@@@ DJ@@@EHE@@@EHF/K@[6_/K@[6;DX )@@G@@@[!EIEJ )@@G@@/,0@H_@@@EI>@@@EHM@@@EIN@]WEIK[2/H@@EHC/G@[4(EM )@@G@@/^@[5QC@@ DLT/@@@EG@@EHL[@@ DLG_)@@[8N0[4M/,0@I @@@EIO@@@^7/@],EI@@@EI)@#VEIO/K@@[8N0[7Y/K@[8@C/@@@[G@@EJ\[@@EJ0FC )@@G@@H/@@[]R@KEJ0]@@@[JA@KEJ1C@[EI?G/@__%/@@[72O/K@@[8N0[7:/K@[8@R@KEJ1C@[EI!FD )@@G@@G/@__*/^@[8@C@[EI,G/@__:/^@[8@C@[EI\G/@__7/^@[8@C8)@@]N@0[7_/K@[8#@[XEJ4FE )@@G@@N@0[8]/K@[8B@[YEJ4!^)EJ2/K@@K/H8)@@[[^)EJ2R]0EJ5R@KEJ6N#0EJ7*4@UJ2/K@UJ2FF )@@G@@/K@@K/C8@@@#AA0EJ5[^@EJ2A@KEJ6^#0EJ7C8FK@@[^@[7T/K@[7S@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@[@@ @@[@@@@@@@@F@@@@@O@@@@@R@@@@@M@@@@ZI@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@)TFI )@@G@@@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@Z,@@@@Z<@@@@Z<@@@@Z<@@@@Z,FJ )@@G@@@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@Z<@@@@Z,@@@@Z<@@@@ZU@@@@Z<@@@@Z<@@@@Z<@@@@Z@@]@@F@@@@@@@@@FCTCK @H3@@]@@F@@]@@@@@@GETSN GP )@@G@@@IB@@]@@[@@[@@@@@D@@F@@@@@@@@@GETVAR@I8@@]@@@@@E@@F@@@@@@@@@RJTNOS@JC@@]GQ )@@G@@@@@@@C@@@@@H@@F@@^@@@@@@UNPACK@L1@@[@@F@@@@@@@@@UPSN @L"@@[@@@@. @@F@@[GR )@@G@@@@@@@@LPRT @MH@@[DO IF(L) IF(A) GOTO(UC) GOTO(AGS )@@G@@) GOTO(C) CALL FCT REF RTRN(S) RTRN(NS) ASSIGNGT )@@G@@ TAPES INPUT OUTPUT SUB PROG STOP ACCEPTGU )@@G@@ DISPLAY ERPRINT REPEAT REPLACE GENERATE REGISTGV )@@G@@ER ARGUMENT ALTPRINT MONITOR ASM$INTF ABORT BUFFERGW )@@G@@ FILE IDENTIFY JUMP LABELS NAME NEXT GX )@@G@@ READ SCAN UNIQUE WRITE DMVR FCTN GY )@@G@@** ******@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@& ______& ______& GZ )@@G@@______TABLE OVERFLOW NO.=& ______DATA PROGRAM IS TO LARGE.& ______HA )@@G@@F & ______@@@@@@@@@@@[@@@@@V@@@@@3@@@@ZK@@@@[I@@[@@@LBCM $BLANK_____"HB )@@G@@@@@@@A@@@@@C@@@@@^@@@@@G@@@@@]@@@@@ @@@@@X@@@@@>@@@@@B@@@@@H@@@@@SSSSSSTHC )@@G@@@@@@@O@@F@@@@@@@@@TBL1 @ V@@]@@@@W@@@F@@[@@@@@@DRUM @ '@@]@@@@@E@@F@@#HD )@@G@@@@@@@@ENTER @A^@@]E%%%%:@@F@@@@@@@@@LOCATE@BI@@]@@@@@*@@@@@#@@@@@0@@F@@]HE )@@G@@@@@@@@OVFL8 @BR@@]@@@@@P@@@@@<@@@@@%@@@@@'T&T&T$@@F@@[@@@@@@PNCH @B1@@]HF )@@G@@ C@FK@@[W@E[GC@FK@[[?@E[GC@F@@][^@E[GC@@E[G'=@@@I/KF@@^@@@@@@HG )@@G@@@@AE[$@@]E[!@@ E[\@@CE[4@@CE[/@@]E]#@@]E] @@@E]B@@BE]B@@@E]I@@@E]I@@[E]IHH )@@G@@@@]E]J@@[E]L@@@E]M@@^E]M@@@E]Q@@DE]Q@@CE]Z@@@E]$@@@E]$@@@E]$@@#E]$@@@E]%HI )@@G@@@@@E]%@@@E]%]S#S@[]R#G@]]B#N@#]C#C@6]L#T@9]S^$@"]L#O@^]A#C@ ]A#L@A]O^M@BHJ )@@G@@]O#N@C]O L@D]O I@E]O#U@F]O@@@G]I#M@H]A#T@I]E#C@J]E#F@K]E#L@L]I#S@7]Q#U@MHK )@@G@@]X#T@N]N#T@O]N#C@P]N^F@Q]N#D@R]R#P@8]O#R@S]U#N@T]O#T@U]E#N@/]N#C@V]N#T@WHL )@@G@@]M#P@X]F#D@Y]F#A@Z]F#Q@)]F@@@-]O#G@+]O#N@<]A#C[@]A#M@=]A#R@>]A#U@&]R#I@$HM )@@G@@]U#N@*#P^L@;#A^L@?]E#T@!]E#W@,]E^E@']E#G@.]E I@(]E T@%]E^D@:]TAE@5]T E@5HN )@@G@@]TAT@5]T T@5]T#O@\]U#B@0]E#N@1]C#A@_]RAO@2]RAT@3]R#I@4@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@ & ___________"@@@@@[@@@@@O @@@@]]@@F@@]@@@@@@PRTERRHP )@@G@@@]A@@#@@@@@@@@@@@@@@@@@@@@@@@@THE FIRST FLAG INDICATES THE& NATUREHQ )@@G@@ OF THE ALPHABETIC ENTITY& = UNDIMENSIONED VARIABLE& DMVR =HR )@@G@@ DIMENSIONED VARIABLE& FCTN = FUNCTION NAME& LBCM =HS )@@G@@ NAME OF LABELED COMMON& SBRT = SUBROUTINE NAME& SWVR =HT )@@G@@ SWITCH VARIABLE& NMLT = NAMELIST NAME& & HU )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICAHV )@@G@@TE THAT THE ENTITY IS IN THE& CORRESPONDING TYPE OF STATEMENT& AB = AHW )@@G@@BNORMAL EX = EXTERNAL& CM = COMMON FA = FORML AGUMT& CP = CHX )@@G@@OMPLEX IN = INTEGER& DA = DATA LG = LOGICAL& DM = DHY )@@G@@IMENSION PR = PARAMETER& DP = DBL PRECISN RL = REAL& EQ = EHZ )@@G@@QUIVALENCE NL = NAMELIST& THE FLAGS FOLLOWING THE LINE NUMBERS& IA )@@G@@(ON WHICH THE ENTITY WAS REFERENCED)& INDICATE THE NATURE OF THE REFIB )@@G@@ERENCE& A = SET EQUAL,DEFINED,ASSIGNED& B = REFERENCED,CALIC )@@G@@LED G = FORMAT& C = CALLING SEQUENCE H = I-O UNIT& D = SUID )@@G@@BSCRIPT I = READ& E = SPECIFICATION O = WRITE& IE )@@G@@ J = DO PARAMETER L = LIST& & IF )@@G@@ @@@@@@& ______V A R I A B L E T A B L E& ______IG )@@G@@& ______VARBLE& ______FLAGS&______LB CM&______LINE NUMBERS AND FIH )@@G@@LAGS& ______& ______@@@@@______"@@@@@[@@@@@!@@B@@B@@A@@A@@@@@A@@@@@:II )@@G@@@@@@[J@@@@@H@@@@@X@@@@@]@@@@@&@@F@@[@@@@@@HEAD1 @[V@@#@@@@@@@@@@@@@@@@@@IJ )@@G@@THE FIRST ENTRY FOLLOWING THE STATEMENT NUMBER& IS THE NUMBER OF TIK )@@G@@HE LINE ON WHICH IT WAS DEFINED& THE FLAGS FOLLOWING THE LINE NUMBERSIL )@@G@@ (ON WHICH THE& STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE& IM )@@G@@D = DEFINED& S = FORMAT NUMBER&T = NONSTNDRD RTN&U = ASSIGNED& IN )@@G@@V = DO& W = GOTO (CNDTNL)&X = GOTO (UNCNDTNL)& Y = IF (ARITIO )@@G@@HMETIC)& & @@@@@@ &______S T A T E M E N T IP )@@G@@ N U M B E R T A B L E& ______ &______ &______OF THE REFERIQ )@@G@@ENCE& ______ &______ &______@@@@@______"@@@@@[@@@@@>@@D@@D@@@@@AIR )@@G@@@@@@@/@@^@@^@@#@@#@@@@[J@@@@[)@@@@@]@@F@@[@@@@@@HEAD2 @[>@@#@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@DO& GO TO (UNCONDITIONAL)& CALL& RETURN (NON-STANDARD)& IT )@@G@@INPUT STOP& IF (LOGICAL)& GO TO (ARITHMETIC)& FUNCTION REFIU )@@G@@ERENCE& ASSIGN& OUTPUT& IF (ARITHMETIC)& GO TO (CONDITIONALIV )@@G@@)& RETURN (STANDARD)&TAPES&INTERNAL SUBPROGRAM& NON-STANDARD FORTRIW )@@G@@AN STATEMENTS.& ACCEPT& DISPLAY& ERPRINT& REPEAT& REPLACIX )@@G@@E& GENERATE& REGISTER& ARGUMENT& ALTERNATE PRINTER&MONITOR& IY )@@G@@ASM$INTERFACE& MACROS LISTED BELOW. (NO VARIABLES OR STATEMENT NOS. WIZ )@@G@@ILL BE GENERATED.)& ABORT&BUFFER& FILE& IDENTIFY& JUMP& LABELSJA )@@G@@& NAME& NEXT& READ& SCAN& UNIQUE& WRITE&@@@@@[@@@@@]@@@@@A@@@@@BJB )@@G@@@@@@@F@@@@@I@@@@@L@@@@@P@@@@@T@@@@@V@@@@@X@@@@@)@@@@@=@@@@@$@@@@@*@@@@@?JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@4@@@@@6@@@@@8@@@@@'@@@@@/@@@@@"@@@@[@JD )@@G@@@@@@[]@@@@[ @@@@[B@@@@@@@@@@@@@@@@@@@@@@@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@[R@@@@[S@@@@[U@@@@[V@@@@[X@@@@[Y@@@@[)@@@@[-@@@@[+@@@@[<@@@@[=@@@@[&JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ & ______T R A N S F JG )@@G@@E R T A B L E& ______ONLY THOSE ENTRIES WHICH ARE REFERENCED ARE PRINJH )@@G@@TED OUT. THE COMPLETE LIST FOLLOWS&______ & ______ & ______@@@@@_JI )@@G@@_____"@@@@@[@@@@@!@@@@@A@@@@@]_____.@@F@@#@@@@@@HEAD3 @^Y@@]@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@UEF8@@*EG-@[LEHO@@^EJ2)@-E@))@TEFZ)@JEGM)@FEHD)[HEI>)@]EJ6@@@___@@@___JM )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___JN )@@G@@@@@___@@@___@@@___@@@___CONTROL CARD ERROR. IMAGE=& ______ & ______JO )@@G@@ ______ TPF$ _____"@@@@@O@@@@@\@@@@[]@@@@@]@@@@@@@@@@@[@@@@@GJP )@@G@@END MERGE @@F@@@@@@@@@CHKCC @]7@@]@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@JS )@@G@@@USE I$I$I$, @@@@@@@@@@@@@@@@@@& ______JT )@@G@@******______TPF$& ______. . & ______IGNORE INVALID OPTION(S).& ______JU )@@G@@I OPTION. NO. TOO LARGE.& ______I$I$I$ ______I$I$I$ ______JV )@@G@@ & ______CANNOT ASSIGN FILE. STATUS=& ______ & ______CANNOT FIND JW )@@G@@ELEMENT IN FILE.& ______I/O ERROR. STATUS=& ______PROGRAM NOT DEFINEJX )@@G@@D OR OVERFLOW.& ______CONTROL CARD IMAGE=& ______ & ______@@@@@ JY )@@G@@@@@@@@@@@@@[_____"@@[@@[@@@@@B@@@@@O@@@@@#@@@@@]@@@@B@@@@@@_@@@@@0@@@@@HJZ )@@G@@@@@@@$@@@@@P@@@@[]@@F@@@@@@@@@CTCDIT@#Z@@]@@F@@@@@@@@@TPROC @[Y@@#@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@EO@C@-!?@MO@@@___@]5^@@@@E^# @[!^QR)@K^]5)NC^#JKC )@@G@@>7/^S^@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KD )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___/\K@C);G@@@=;^@@@#;C@@@-KE )@@G@@O;@@@0')J)C$8^@@C]/KF@@[/\K@C)A#@@[[E@K@[[R;@@@@W8@@@EO;K@@0;^@@@=')J)C$KF )@@G@@H9@@@[1@@@@K/^K@CFR;@@@-R#K^]&0@@@[[/K@@CX/D@@CV/KF@@[/\K@C);G@@@=R#@@@HKG )@@G@@;@K@@A')J)C$8^@@CV/KF@@[RB:@@@O#)^]>R#0@@IQ\;@@@C5F@@@8^H@@@/KH@@@/\0@C!KH )@@G@@A3I@@@A\I@@@A:I@@@A$I@@@AC8@^QT/,0@C1/,0@DCR]0^Q>/KF@@#C@FK@@[@@^Q(LI )@@G@@'^@^Q:/KF@@]R;@@@@A#@^Q(R#@^RDA#@^Q1'^@^Q:R#@^REA#@^Q1/KF@@[C4FK@@[0@^QTLJ )@@G@@/KF@@]C0@^QUS8@@@AG4K^QUG8K@@[[@VK@@/KF@@]C[@^Q%/K@@I#C[FK@@O'0@@[R;0@@#LK )@@G@@/K@@IQC[@^Q%/K@@IDC[FK@@O'0@@[C80@@]/K@@IQC[@^Q%/K@@IJC[FK@@O'0@@[C80@@[LL )@@G@@/K@@IQC[@^Q%/K@@IPC[FK@@O'0@@[C80@@@[[@^Q([@0^Q&C@VK@@/CK@IC8@^QT/,0@C"R]0^Q>C@@^Q&%8@@@]/K@@I'LO )@@G@@C^F@@[/,0@EM/,0@DC'^@^Q:R]0^Q>/KF@@#A[@^Q(@@^Q*LQ )@@G@@/K@@JOC@K^Q*/GK@JMC8@^Q3/,0@E]/K@@JOD@@^Q*/,0@DD@@@/,0@MJQ;)@@@[-D)@@/KF@@@RLIB LMSC39@@@@@@@MN@C@^S#^]>@@@@ AMH )@@G@@)O@@@@[8O@MOEJ7^S^@@@@@&)O@@@@@W5@MOEE[^S^@@@@@]'^@@G-'^@@G\[,.@@['^@@G-MI )@@G@@'^@@G\@*C@@['^@@G-'^@@G\@*#@@['^@@G-'^@@G\[7J@@['^@@G-'^@@G\[#L@@['^@@G-MJ )@@G@@'^@@G\@$V@@['^@@G-'^@@G\@$%@@['^@@G-'^@@G\@$W@@['^@@G-'^@@G\[=T@@['^@@G-MK )@@G@@'^@@G\@P6@@['^@@G-'^@@G\[$S@@['^@@G-'^@@G\[*,@@['^@@G-'^@@G\[%Z@@['^@@G-ML )@@G@@'^@@G\@Y;@@['^@@G-'^@@G\@Y%@@['^@@G-'^@@G\@Y2@@['^@@G-'^@@G\@YV@@['^@@G-MM )@@G@@'^@@G\@Y&@@['^@@G-'^@@G\@YN@@['^@@G-'^@@G\[=D@@['^@@G-'^@@G\@W1@@]'^@@G-MN )@@G@@'^@@G\@OI@@]'^@@G-'^@@G\@)%@@['^@@G-'^@@G\@$!@@['^@@G-'^@@G\@$,@@['^@@G-MO )@@G@@'^@@G\@$1@@['^@@G-'^@@G\@>S@@['^@@G-'^@@G\@>V@@['^@@G-'^@@G\[&H@@['^@@G-MP )@@G@@'^@@G\[\%@@['^@@G-'^@@G\[0P@@['^@@G-'^@@G\[00@@['^@@G-'^@@G\@MZ@@['^@@G-MQ )@@G@@'^@@G\@NC@@['^@@G-'^@@G\@VK@@['^@@G-'^@@G\@YH@@['^@@G-'^@@G\@X)@@['^@@G-MR )@@G@@'^@@G\@Z^@@['^@@G-'^@@G\[V5@@['^@@G-'^@@G\[V8@@['^@@G-'^@@G\[V;@@['^@@G-MS )@@G@@'^@@G\[V"@@['^@@G-'^@@G\[W[@@['^@@G-'^@@G\[8H@@['^@@G-'^@@G\@>7@@['^@@G-MT )@@G@@'^@@G\@>/@@['^@@G-'^@@G\@&D@@['^@@G-'^@@G\@&-@@['^@@G-'^@@G\@&=@@['^@@G-MU )@@G@@'^@@G\@&?@@['^@@G-'^@@G\@&.@@[__"@@@ ILLEGAL ARGUMENT IN CALLING SMV )@@G@@EQUENCE FOR SUBROUTINE MOVER @]E^]$ H, ,. @@[^]5MW )@@G@@@@@@@_@@N^]3 , @@@@@@@@@@@@@@@@@@@@@@@Q @&Q@@@@@@@@@[[@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@_____"/K@@@@C@@^Q(/G@^Q:C@K^QT;*K@@G;?@@@S'=@@@I/K@^Q: MZ )@@G@@ NA )@@G@@ '=@@[S'=@@@ITCT$ NB )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@IOW$ 8@A^RF@@@@@@ I/O ERROR ON SCRATCH FINC )@@G@@LE - PACKET DUMP FOLLOWS@]C^RO@@]^RY@FREE TCT$. @@ ^R-@ASG,T TCT$.,F//POND )@@G@@S/25 . CANNOT ASSIGN TCT$ (MERGE) FILE. STATUS IN A0. @]C^R&@@^^R0NE )@@G@@@ASG,A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ . NF )@@G@@@@@@@@DCTNRY 01A @[A^R.@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@A @@G@@^@@@@ AB @@I@@^@@@@@&NI )@@G@@C @@K@@^@@@@@]@@@#@ @@@@ A@@@]@ @@@@@&@@@]@ @@@@@]/KF@@[C@@^@VNJ )@@G@@D8)@@@C80@@@C!@^@J8^@@G61@@@@I!8)@[@C80@@E[))^@JASMDCT8 NGQ]VGBLANK$NK )@@G@@COMMONMRGHD BSP EH^[KECHKCC NG;]VGCTCDIT NTF]VGDCT8 NL )@@G@@ NT)]VGEDIT$ MZ4F^EEDIT$L AX?FGAERU$ H%#GMFE8ARY NM )@@G@@ @[^[=1E8DCT )#@@@]E8IPT )#@@@]E8TCTD NT:]VGFINDERNN )@@G@@ NT0]VGHDG AYMFGAHEAD1 NU6]VGHEAD2 NU/]VGHEAD3 NO )@@G@@ NV#]VGIDLIN NVB]VGIDL$ E17EDBIDONLY$ M)^F^EIRFTI NP )@@G@@ HX@#]GISDFIO NVE]VGITF NVF]VGLIBS NVH]VGMAIN NQ )@@G@@ NV&]VGMOVER H:B[EBMRGHD NV?]VGMRG8 NV2]VGMSG NR )@@G@@ @[^[05OP NV8]VGPRINT NV9]VGPROCRD NV_]VGPRTERRNS )@@G@@ NW ]VGRDS NWF]VGSDFI M(]GFESQUASH NWN]VGTBL8 NT )@@G@@ NWT]VGTPROC NWW]VG@[^@I>]@@@@@[@@@@@ @@[^@A@@[@ILTPF$ NU )@@G@@@@G^@]C@F@@@/KF@@]R#W@@DR#?@@EA#!)@@;K)@@S/C)@I9R3?@@EAB?@@BR#?@@CA#W@@DNV )@@G@@C G@@DG G@@BC W@@AGDW@@^$IBANK @@@@@($DBANK @[;@@8C W@@BH[K@@KNW )@@G@@N@K@@LM#Y)@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^NX )@@G@@;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D(^G@@]/K@@I/C G@@]@@@@@PK@@[@^@@1@C@@@@@@MNY )@@G@@K@@[@^@]1@C1@@@@[IK@@[@^@@G@F+@@@@@%K@@[@^@@3@F,@@@@@9K@@[@^@@$@G-@@@@[FNZ )@@G@@@@@[@^@@S@HC@@@@[U@@@[@^@]H@H)@@@@@=@@@[@^@[I@J!@@@@[C@@@[@^@@#@K;@@@@@6OA )@@G@@@@@[@^@@C@K"@@@@@/K@@[@^@[I@LA@@C@[O@@@[@^@DS@MO@@C@[L@@@[@^@[E@V?@@^@@AOB )@@G@@K@@[@^@C/@MO@@^@[(K@@[@^@##@VK@@^@[]@@@[@^@@R@YN@@^@@_@@@[@^@@U@Y%@@^@[?OC )@@G@@@@@[@^@]^@Z^@@^@[)@@@[@^@^\@-C@@^@[)C@@#@^@@@@##@@^@@@@@@[@^@]Q@>7@@^@@JOD )@@G@@@@@[@^@*;@*H@@^@@JC@@#@^@@@@##@@^@@JC@@ @^@@@@#@@@^@[\@@@[@^@N[[LC@@^@[\OE )@@G@@C@@#@^@@@@#@@@^@[\C@@ @^@@@@#D@@^@[ @@@[@^@@K[=D@@^@@$@@@[@^@@S[=T@@^@[@@@@[I0@@@@ @@F^]$@@@@@%0@@@@ @@U^]2@@@@@#=@@@@ @ND^#G@@@@[FOJ )@@G@@)@@@@ @@^^QP@@@@[F*@@]@ @@@@]^@@@@[U)@@@@ @@2^QT@@@@@=)@@@@ @@1^RF@@@@@6OK )@@G@@)@@@@ @@C^R/@@C@[O)@@@@ ,M^S^@@C@[O*@@]@ @@@@]^@@C@[L)@@@@ @#?EAQ@@C@[LOL )@@G@@*@@]@ @@@@]^@@^@@A0@@@@ @@H^S^@@^@[])@@@@ @@[^SL@@^@@_)@@@@ @@[^SM@@^@[?OM )@@G@@)@@@@ @@]^SN@@^@[?)@@]@ @[G^SP@@^@[?*@@A@ @@@@#@@@^@[))@@@@ @]F^T-@@^@[)ON )@@G@@*@@]@ @@@@]^@@^@[)*@@^@ @@@@#@@@^@@@)@@@@ @@H^V?@@^@@V=@@@@ @W#^V9@@^@[ROO )@@G@@=@@@@ @[(^7/@@^@@-=@@@@ @J*^9>@@^@@Y=@@@@ @ DH@@^@@J)@@@@ @#9 IM@@^@@JOP )@@G@@*@@]@ @@@@]^@@^@@J*@@^@ @@@@#D@@^@@J*@@A@ @@@@#A@@^@[\)@@@@ ^,6 MF@@^@[\OQ )@@G@@*@@]@ @@@@]^@@^@[\*@@^@ @@@@#A@@^@[\*@@A@ @@@@##@@^@[ )@@@@ @@]E[[@@^@[XOR )@@G@@)@@@@ @@EE[#@@^@@$)@@@@ @[YE[H@@^@@$*@@A@ @@@@#@@@^@[<)@@@@ @@NE]:@@^@[ESKIP$ @@#@@2FINDER PD )@@G@@@[O@@@FPTIS @@$@#+GETOUT @@P@@>HDG @@D@@@HEAD1 PE )@@G@@@[X@[ HEAD2 @[)@[LHEAD3 @[<@[?IDBUFF @]N@@[IDJ$ PF )@@G@@@@G@@@IDLIN @@V@@@IDONLY$ @@Y@@]IFPTIS @@0@@LIRFTI PG )@@G@@@@0@@@IRPFPT @@0@@CISDFI @@!@@CISDFIC @@!@@NISDFIO PH )@@G@@@@!@@@ITF @[L@@@MOVER @@A@@@MRGHD @@=@[ MRG8 PI )@@G@@@@-@['MULTY @@3@[&NERR2$ @@S@@[NERR3$ @@S@@[NERR4$ PJ )@@G@@@@S@@[NERR6$ @@S@@[NINTR$ @@S@@@NSTOP$ @@S@@]OBTAN8 PK )@@G@@@@P@@HOFEXT8 @@/@[6OFRTN8 @@/@[7OPA @@M@@>OPAF PL )@@G@@@@M@@ZOPAFP @@M@@-OPAP @@M@@$OPI @@M@@1OPIP PM )@@G@@@@M@@3OPOP @@M@@!OPRIME @@M@@@OPRINT @@M@@EOPUNCH PN )@@G@@@@M@@IPACK12 @@/@['PRINT @#$@@@PROCIT @@6@^KPROCRD PO )@@G@@@@6@^NPRTERR @[R@[WRDS1 @[?@@@RDS2 @[?@@:RDS3 PP )@@G@@@[?@[AREAD @@P@@@RFTI @@$@@FRPFFPT @@$@@4SDFI PQ )@@G@@@@%@@@SDFIC @@%@].SDFIO @@%@]KSQUASH @@3@@@TBL1 PR )@@G@@@[C@E!TBL2 @[C@E0TBL3 @[C@E3TBL4 @[C@E6TBL5 PS )@@G@@@[C@E9TPROC @[8@@5UPA8 @@/@@@UPB8 @@/@@ UPC8 PT )@@G@@@@/@@MUPD8 @@/@@%UPE8 @@/@@!UPF8 @@/@@5UPG8 PU )@@G@@@@/@[ARF?@@B?8)@@^/K@@S\+/)__/C[G@@ AF/@@B+9@@@#SLT$ @@@^@@AF/@@^PV )@@G@@T9K@@WO#K@@L[[G@@ ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#PW )@@G@@/[K@S.%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@APX )@@G@@*[@@@[*SDFF**[@@@[CTS@[=@D@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[@PY )@@G@@C-#E-IELT^@)*[@@@[CTS@[,@@@@@@*[@@@[CTS@[8@L@@@@C[^CTOD1MFC)IL>GD=IS)C1\PZ )@@G@@IL4IL-H0)G(?G(!G(,I-3^[-H1=^[!GD:G(3^[-^[?HD3I-(H1$^[\G0)GD?H))I1-IL(GD+QA )@@G@@H->IS)*[@@@[CTS@]]@K@@@@GD,G))I-*G*)I9-JC)I-*G(9^[-IL>^[5IT>G),^@)E-*HD3QB )@@G@@^[?HD3I-(H1$^[H-0G15H))HD,*[@@@[CTS@]G@K@@@@G1(H1=QC )@@G@@HD,G8)H95I))I9*G(2G*)I1-IL(GD+H->IS)G9>I))GT*GD,G9>G))H92^[5IT>G))HD,^[^[\G0)GD?H))I-*G*)GD?I[*GD,I(!G(2QG )@@G@@HD<^[,GD!G(3^@*I1-IL(GD+H->IS?^[3I(+IL\I(4HD,G(3 ))^@)*[@@@[CTS@]4@K@@@@QH )@@G@@^@)^[&I(,GT4HD\H13 ))G(4GS(^[5IT>G))HD,^[-^[3G(4^[\G0)C1\IL4IL-H0)IT\I(2QI )@@G@@GT>^[3I--I->H(>H14IS,^@)*[@@@[CTS@]"@@@@@@*[@@@[CTS@#C@K@@@@AK,^[[^[4GD+QJ )@@G@@H->^[\G0)GD?H))IT4GD4G(!G(,I))H15H(+G(2IS)GD,G))GC)I--GL?G*)H9&^[-H-?^[4QK )@@G@@IL-H13G1>IK)*[@@@[CTS@#M@I@@@@^@)^[3I--I->H(>H14IS)I(3G(=^[(H0)GC)IT>I))QL )@@G@@H9&^[AH92I-2GD,^[3H95ILIL3^[-G14G(2^[>GDGDQO )@@G@@IS)I-*G*)G(,I-2JC)GD0I[>GD2IS,*[@@@[CTS@#'@@@@@@*[@@@[CTS@^^@K@@@@A),^[[QP )@@G@@^[?HD3I))H9&^[&H--G93^[&H9?H-\I9(H1$^[>GD^[\G0)QR )@@G@@G(,I-2JC)GD,G))H[\I8)I-*G*)G(,I-2JC)HD3^[5IT>G)) [&H--G93^[-IL>^@)*[@@@[QS )@@G@@CTS@^S@G@@@@^@)^[>J[0H--HD,G(=^[(H0)I-*G*)I--GL?G*)HD,^[7H[(GT*^[4H[>JC)QT )@@G@@GD0I[>GD2 C,*[@@@[CTS@^+@@@@@@*[@@@[CTS@^?@K@@@@A*,^[OH[>^[,GD!G*)H9&^[4QU )@@G@@H[>^[#D9HD(JD0)GL?H9GT(G1(G(=^[6GD2HD-GL?G*)QV )@@G@@*[@@@[CTS@^6@I@@@@^@)^[,GD!G*)HD,^[4H[>^[>IL2H92^[&H--G8)G1(G(?G))H9&^[4QW )@@G@@H[-I))I1-IL(GD+H->^[,GD!G*,^@)*[@@@[CTS@ @@@@@@@*[@@@[CTS@ E@]@@@@C1\IL!QX )@@G@@GD4BK)*[@@@[CTS@ O@@@@@@*[@@@[CTS@ Y@#@@@@^@)C[^CTOD1MFC)^@)*[@@@[CTS@ *QY )@@G@@@ @@@@^@)I[-IL-H(>I->IK)GT-IL=IS)^@)*[@@@[CTS@ 2@]@@@@^@) L D1^^@)*[@@@[QZ )@@G@@CTS@ /@@@@@@*[@@@[CTS@AA@D@@@@E-*G*)I[-IL-H(>I->IK)GT-IL=IS)GD2G*)H9&^[4RA )@@G@@H[>^[&H92H*'*[@@@[CTS@AK@@@@@@*[@@@[CTS@AU@D@@@@^[VG1(H-> 1XG(?G(!G(,I-VRB )@@G@@ 96G(2IT(H9,F(V 1\I[4HD\H13F*)*[@@@[CTS@A=@@@@@@*[@@@[CTS@A,@L@@@@GD,G))RC )@@G@@I-*G(9^[3I[>GT(G19^[7H[(GT*^[AH92I-2GD,^[3JD!GL\H-(GS)G(?G(!G(,I-3^[-IL>RD )@@G@@^[4H8)GL>^[0IL\GT>IT3G(=*[@@@[CTS@A8@L@@@@GL9^[@C-#E-IELT 0)^[OH[>^[&HD?RE )@@G@@G*?^[6G(2IT(H9, ))GD,G))H90I-(H9,IS)H(-JC)GL>^[\H((I-4G(= 0)^[AHD?G*)^@)RF )@@G@@*[@@@[CTS@B]@L@@@@H1-H(>IS)H(-JC)GL>^@1 *1AK)GT*GD2GDIL3^@*H1\^[1I(-RG )@@G@@H-(G1(G(2IS)GD?H-\I9>G)(^[-H1=^[(G0)GC)G1(H->^@)*[@@@[CTS@BG@K@@@@H1-H(>RH )@@G@@^[(IS)H1\I))G9(I1>H0?^[OE[A^))HD3^[-IT3I(!G(= 0)^[OH[>^[&H9?H-\I9(H1$^[\RI )@@G@@I[4HD\H13^[-IL>^@)*[@@@[CTS@BQ@#@@@@GD6GD(H--GL?G*'^@)_@@@@@ RJ )@@G@@ 5-2 @K@[@@ 244 439 440 400 2 3 3 1 RK )@@G@@ 1 0 5-1 *[@@@[*SDFF**[@@@[CTS@[=RL )@@G@@@D@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[@C-#E-IELT^@)*[@@@[CTS@[,RM )@@G@@@@@@@@*[@@@[CTS@[8@L@@@@C[^CTOD1MFC)IL>GD=IS)C1\IL4IL-H0)G(?G(!G(,I-3^[-RN )@@G@@H1=^[!GD:G(3^[-^[?HD3I-(H1$^[\G0)GD?H))I1-IL(GD+H->IS)*[@@@[CTS@]]@K@@@@RO )@@G@@GD,G))I-*G*)I9-JC)I-*G(9^[-IL>^[5IT>G),^@)E-*HD3^[?HD3I-(H1$^[H-0G15H))HD,*[@@@[CTS@]G@K@@@@G1(H1=HD,G8)H95I))I9*G(2G*)I1-RQ )@@G@@IL(GD+H->IS)G9>I))GT*GD,G9>G))H92^[5IT>G))HD,^[^[\G0)GD?H))I-*G*)GD?I[*GD,I(!G(2HD<^[,GD!G(3^@*I1-IL(GD+RU )@@G@@H->IS?^[3I(+IL\I(4HD,G(3 ))^@)*[@@@[CTS@]4@K@@@@^@)^[&I(,GT4HD\H13 ))G(4RV )@@G@@GS(^[5IT>G))HD,^[-^[3G(4^[\G0)C1\IL4IL-H0)IT\I(2GT>^[3I--I->H(>H14IS,^@)RW )@@G@@*[@@@[CTS@]"@@@@@@*[@@@[CTS@#C@K@@@@AK,^[[^[4GD+H->^[\G0)GD?H))IT4GD4G(!RX )@@G@@G(,I))H15H(+G(2IS)GD,G))GC)I--GL?G*)H9&^[-H-?^[4IL-H13G1>IK)*[@@@[CTS@#MRY )@@G@@@I@@@@^@)^[3I--I->H(>H14IS)I(3G(=^[(H0)GC)IT>I))H9&^[AH92I-2GD,^[3H95ILIL3^[-G14G(2^[>GDGDIS)I-*G*)G(,I-2JC)GD0I[>SC )@@G@@GD2IS,*[@@@[CTS@#'@@@@@@*[@@@[CTS@^^@K@@@@A),^[[^[?HD3I))H9&^[&H--G93^[&SD )@@G@@H9?H-\I9(H1$^[>GD^[\G0)G(,I-2JC)GD,G))H[\I8)I-*SF )@@G@@G*)G(,I-2JC)HD3^[5IT>G)) [&H--G93^[-IL>^@)*[@@@[CTS@^S@G@@@@^@)^[>J[0H--SG )@@G@@HD,G(=^[(H0)I-*G*)I--GL?G*)HD,^[7H[(GT*^[4H[>JC)GD0I[>GD2 C,*[@@@[CTS@^+SH )@@G@@@@@@@@*[@@@[CTS@^?@K@@@@A*,^[OH[>^[,GD!G*)H9&^[4H[>^[#D9HD(JD0)GL?H9GT(G1(G(=^[6GD2HD-GL?G*)*[@@@[CTS@^6@I@@@@^@)^[,SJ )@@G@@GD!G*)HD,^[4H[>^[>IL2H92^[&H--G8)G1(G(?G))H9&^[4H[-I))I1-IL(GD+H->^[,GD!SK )@@G@@G*,^@)*[@@@[CTS@ @@@@@@@*[@@@[CTS@ E@]@@@@C1\IL!GD4BK)*[@@@[CTS@ O@@@@@@SL )@@G@@*[@@@[CTS@ Y@#@@@@^@)C[^CTOD1MFC)^@)*[@@@[CTS@ *@ @@@@^@)I[-IL-H(>I->IK)SM )@@G@@GT-IL=IS)^@)*[@@@[CTS@ 2@]@@@@^@) L D1^^@)*[@@@[CTS@ /@@@@@@*[@@@[CTS@AASN )@@G@@@D@@@@E-*G*)I[-IL-H(>I->IK)GT-IL=IS)GD2G*)H9&^[4H[>^[&H92H*'*[@@@[CTS@AKSO )@@G@@@@@@@@*[@@@[CTS@AU@D@@@@^[VG1(H-> 1XG(?G(!G(,I-V 96G(2IT(H9,F(V 1\I[4HD\SP )@@G@@H13F*)*[@@@[CTS@A=@@@@@@*[@@@[CTS@A,@L@@@@GD,G))I-*G(9^[3I[>GT(G19^[7H[(SQ )@@G@@GT*^[AH92I-2GD,^[3JD!GL\H-(GS)G(?G(!G(,I-3^[-IL>^[4H8)GL>^[0IL\GT>IT3G(=SR )@@G@@*[@@@[CTS@A8@L@@@@GL9^[@C-#E-IELT 0)^[OH[>^[&HD?G*?^[6G(2IT(H9, ))GD,G))SS )@@G@@H90I-(H9,IS)H(-JC)GL>^[\H((I-4G(= 0)^[AHD?G*)^@)*[@@@[CTS@B]@L@@@@H1-H(>ST )@@G@@IS)H(-JC)GL>^@1 *1AK)GT*GD2GDIL3^@*H1\^[1I(-H-(G1(G(2IS)GD?H-\I9>G)(SU )@@G@@^[-H1=^[(G0)GC)G1(H->^@)*[@@@[CTS@BG@K@@@@H1-H(>^[(IS)H1\I))G9(I1>H0?^[OSV )@@G@@E[A^))HD3^[-IT3I(!G(= 0)^[OH[>^[&H9?H-\I9(H1$^[\I[4HD\H13^[-IL>^@)*[@@@[SW )@@G@@CTS@BQ@#@@@@GD6GD(H--GL?G*'^@)*[@@@[CTS@B)@@@@@@*[@@@[CTS@B%@K@@@@C*)^@)SX )@@G@@E9*G(,^[-H0)G(2IL\IK)HD3^[>H1IT3HD,G8)GT\H14HD,I(>IS) [-IT3I(!G(=^[&H92^[-H-?^@)*[@@@[CTS@B"TA )@@G@@@^@@@@^@)^@)G(?G(!G(,I-3 C,^@)*[@@@[CTS@CC@@@@@@*[@@@[CTS@CM@F@@@@C0)^@)TB )@@G@@ET5I[0IL>IT3^[0IL(H14HD,G8)H9&^[AH92I-2GD,^[3I--I->H(>H14IS,*[@@@[CTS@CWTC )@@G@@@@@@@@*[@@@[CTS@C&@J@@@@D@)^@)ET5I[0IL>IT3^[0IL(H14^[\G0)G(8I[?GD,GD4H92TD )@@G@@JC)HD,G1\IL!GD4HD\H0)HD,^[4H[>^[*G(-G-(H1$*[@@@[CTS@C0@ @@@@^@)^@)H9&^[>TE )@@G@@GDH1\TG )@@G@@I->IS)*[@@@[CTS@DI@L@@@@^@)^@)I-*G*)H15H(+G(2^[\G0)H-(H1>IS)H9&^[4H[>^[0TH )@@G@@IL\G92GD!^[4H8)GL>^[3HT(I[0G(=^[+JC)G-(GT4HD\H1-IL9 0)*[@@@[CTS@DS@@@@@@TI )@@G@@*[@@@[CTS@D+@D@@@@D))^@)DD,GT?I(=G*)GT\H(!G(,I))GT-IL=IS)HD,^[?HD3I),^@)TJ )@@G@@*[@@@[CTS@D?@@@@@@*[@@@[CTS@D6@K@@@@D*)^@)E-*G*)I1-IL(GD?GL>^[4GD+H->IS)TK )@@G@@ [&IL\H*)GD?H))I[2H9$IL-H(3^[7HD4H@)I-*HD3^[\I[4HD\H0(^[-IL>*[@@@[CTS@E@TL )@@G@@@I@@@@^@)^@)H(>IL$G(=^[7H[>H0)GD,G)) L D1^^[\IK) LHC(MC9 ^[TM )@@G@@H1IT3TN )@@G@@^[4H[>^[*G(-G-(H1$^[\I-*G(2I9(IT>^[$G(,G(2GD4G(=^[+JC)C[^CTOD1MFC,^@)CD?TO )@@G@@H-\I93*[@@@[CTS@EY@A@@@@^@)^@)I(3G*)H9&^[@D[^C8)GT-IL= 0)^@)*[@@@[CTS@E*TP )@@G@@@@@@@@*[@@@[CTS@E2@K@@@@E@)^@)E-*G*)I1-IL(GD?GL>^[4GD+H->^[(IS)I[5H1TQ )@@G@@G))H9,^[IT3TS )@@G@@^[0IL(H14HD,G8)H9&^[3I--I->H(>H14^[,I(!GL>IK)I--GL?G*,*[@@@[CTS@FU@@@@@@TT )@@G@@*[@@@[CTS@F=@E@@@@E))^@)ET5I[0IL>IT3^[0IL(H14HD,G8)H9&^[4IL-H13G1>IK)I--TU )@@G@@GL?G*,*[@@@[CTS@F,@@@@@@*[@@@[CTS@F8@J@@@@E*)^@)DD,GT2G(!G(,I))I-*G*)H-(TV )@@G@@H1>^[IT3^[0IL(H14^[\G0)I1-IL(GD+H->^[4GD+H->^@*G-\G(3^[,H94^[-G1&G(IL$G(=*[@@@[CTS@G)@#@@@@^@)^@)I--GL?G*,^@)*[@@@[CTS@G%@@@@@@*[@@@[TZ )@@G@@CTS@G4@J@@@@F@)^@)CD+H92I))IL5H0)HD&^[>IL2H92^[(IS)G(,GT\I(,I->IL>G),^@)UA )@@G@@D96G(2IL(G->IS)C*)H90I-(H9, 0)*[@@@[CTS@G"@@@@@@_@@@@@+05 @#@[@@ 305UB )@@G@@ 0 @K@[@@ 306 491 100000 9 1 UC )@@G@@ 1-5 @K@[@@*[@@@[*SDFF**[@@@[CTS@[=UD )@@G@@@D@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[@C-#E-IELT^@)*[@@@[CTS@[,UE )@@G@@@@@@@@*[@@@[CTS@[8@L@@@@C[^CTOD1MFC)IL>GD=IS)C1\IL4IL-H0)G(?G(!G(,I-3^[-UF )@@G@@H1=^[!GD:G(3^[-^[?HD3I-(H1$^[\G0)GD?H))I1-IL(GD+H->IS)*[@@@[CTS@]]@K@@@@UG )@@G@@GD,G))I-*G*)I9-JC)I-*G(9^[-IL>^[5IT>G),^@)E-*HD3^[?HD3I-(H1$^[H-0G15H))HD,*[@@@[CTS@]G@K@@@@G1(H1=HD,G8)H95I))I9*G(2G*)I1-UI )@@G@@IL(GD+H->IS)G9>I))GT*GD,G9>G))H92^[5IT>G))HD,^[^[\G0)GD?H))I-*G*)GD?I[*GD,I(!G(2HD<^[,GD!G(3^@*I1-IL(GD+UM )@@G@@H->IS?^[3I(+IL\I(4HD,G(3 ))^@)*[@@@[CTS@]4@K@@@@^@)^[&I(,GT4HD\H13 ))G(4UN )@@G@@GS(^[5IT>G))HD,^[-^[3G(4^[\G0)C1\IL4IL-H0)IT\I(2GT>^[3I--I->H(>H14IS,^@)UO )@@G@@*[@@@[CTS@]"@@@@@@*[@@@[CTS@#C@K@@@@AK,^[[^[4GD+H->^[\G0)GD?H))IT4GD4G(!UP )@@G@@G(,I))H15H(+G(2IS)GD,G))GC)I--GL?G*)H9&^[-H-?^[4IL-H13G1>IK)*[@@@[CTS@#MUQ )@@G@@@I@@@@^@)^[3I--I->H(>H14IS)I(3G(=^[(H0)GC)IT>I))H9&^[AH92I-2GD,^[3H95ILIL3^[-G14G(2^[>GDGDIS)I-*G*)G(,I-2JC)GD0I[>UU )@@G@@GD2IS,*[@@@[CTS@#'@@@@@@*[@@@[CTS@^^@K@@@@A),^[[^[?HD3I))H9&^[&H--G93^[&UV )@@G@@H9?H-\I9(H1$^[>GD^[\G0)G(,I-2JC)GD,G))H[\I8)I-*UX )@@G@@G*)G(,I-2JC)HD3^[5IT>G)) [&H--G93^[-IL>^@)*[@@@[CTS@^S@G@@@@^@)^[>J[0H--UY )@@G@@HD,G(=^[(H0)I-*G*)I--GL?G*)HD,^[7H[(GT*^[4H[>JC)GD0I[>GD2 C,*[@@@[CTS@^+UZ )@@G@@@@@@@@*[@@@[CTS@^?@K@@@@A*,^[OH[>^[,GD!G*)H9&^[4H[>^[#D9HD(JD0)GL?H9GT(G1(G(=^[6GD2HD-GL?G*)*[@@@[CTS@^6@I@@@@^@)^[,VB )@@G@@GD!G*)HD,^[4H[>^[>IL2H92^[&H--G8)G1(G(?G))H9&^[4H[-I))I1-IL(GD+H->^[,GD!VC )@@G@@G*,^@)*[@@@[CTS@ @@@@@@@*[@@@[CTS@ E@]@@@@C1\IL!GD4BK)*[@@@[CTS@ O@@@@@@VD )@@G@@*[@@@[CTS@ Y@#@@@@^@)C[^CTOD1MFC)^@)*[@@@[CTS@ *@ @@@@^@)I[-IL-H(>I->IK)VE )@@G@@GT-IL=IS)^@)*[@@@[CTS@ 2@]@@@@^@) L D1^^@)*[@@@[CTS@ /@@@@@@*[@@@[CTS@AAVF )@@G@@@D@@@@E-*G*)I[-IL-H(>I->IK)GT-IL=IS)GD2G*)H9&^[4H[>^[&H92H*'*[@@@[CTS@AKVG )@@G@@@@@@@@*[@@@[CTS@AU@D@@@@^[VG1(H-> 1XG(?G(!G(,I-V 96G(2IT(H9,F(V 1\I[4HD\VH )@@G@@H13F*)*[@@@[CTS@A=@@@@@@*[@@@[CTS@A,@L@@@@GD,G))I-*G(9^[3I[>GT(G19^[7H[(VI )@@G@@GT*^[AH92I-2GD,^[3JD!GL\H-(GS)G(?G(!G(,I-3^[-IL>^[4H8)GL>^[0IL\GT>IT3G(=VJ )@@G@@*[@@@[CTS@A8@L@@@@GL9^[@C-#E-IELT 0)^[OH[>^[&HD?G*?^[6G(2IT(H9, ))GD,G))VK )@@G@@H90I-(H9,IS)H(-JC)GL>^[\H((I-4G(= 0)^[AHD?G*)^@)*[@@@[CTS@B]@L@@@@H1-H(>VL )@@G@@IS)H(-JC)GL>^@1 *1AK)GT*GD2GDIL3^@*H1\^[1I(-H-(G1(G(2IS)GD?H-\I9>G)(VM )@@G@@^[-H1=^[(G0)GC)G1(H->^@)*[@@@[CTS@BG@K@@@@H1-H(>^[(IS)H1\I))G9(I1>H0?^[OVN )@@G@@E[A^))HD3^[-IT3I(!G(= 0)^[OH[>^[&H9?H-\I9(H1$^[\I[4HD\H13^[-IL>^@)*[@@@[VO )@@G@@CTS@BQ@#@@@@GD6GD(H--GL?G*'^@)*[@@@[CTS@B)@@@@@@*[@@@[CTS@B%@K@@@@C*)^@)VP )@@G@@E9*G(,^[-H0)G(2IL\IK)HD3^[>H1IT3HD,G8)GT\H14HD,I(>IS) [-IT3I(!G(=^[&H92^[-H-?^@)*[@@@[CTS@B"VS )@@G@@@^@@@@^@)^@)G(?G(!G(,I-3 C,^@)*[@@@[CTS@CC@@@@@@*[@@@[CTS@CM@F@@@@C0)^@)VT )@@G@@ET5I[0IL>IT3^[0IL(H14HD,G8)H9&^[AH92I-2GD,^[3I--I->H(>H14IS,*[@@@[CTS@CWVU )@@G@@@@@@@@*[@@@[CTS@C&@J@@@@D@)^@)ET5I[0IL>IT3^[0IL(H14^[\G0)G(8I[?GD,GD4H92VV )@@G@@JC)HD,G1\IL!GD4HD\H0)HD,^[4H[>^[*G(-G-(H1$*[@@@[CTS@C0@ @@@@^@)^@)H9&^[>VW )@@G@@GDH1\VY )@@G@@I->IS)*[@@@[CTS@DI@L@@@@^@)^@)I-*G*)H15H(+G(2^[\G0)H-(H1>IS)H9&^[4H[>^[0VZ )@@G@@IL\G92GD!^[4H8)GL>^[3HT(I[0G(=^[+JC)G-(GT4HD\H1-IL9 0)*[@@@[CTS@DS@@@@@@WA )@@G@@*[@@@[CTS@D+@D@@@@D))^@)DD,GT?I(=G*)GT\H(!G(,I))GT-IL=IS)HD,^[?HD3I),^@)WB )@@G@@*[@@@[CTS@D?@@@@@@*[@@@[CTS@D6@K@@@@D*)^@)E-*G*)I1-IL(GD?GL>^[4GD+H->IS)WC )@@G@@ [&IL\H*)GD?H))I[2H9$IL-H(3^[7HD4H@)I-*HD3^[\I[4HD\H0(^[-IL>*[@@@[CTS@E@WD )@@G@@@I@@@@^@)^@)H(>IL$G(=^[7H[>H0)GD,G)) L D1^^[\IK) LHC(MC9 ^[WE )@@G@@H1IT3WF )@@G@@^[4H[>^[*G(-G-(H1$^[\I-*G(2I9(IT>^[$G(,G(2GD4G(=^[+JC)C[^CTOD1MFC,^@)CD?WG )@@G@@H-\I93*[@@@[CTS@EY@A@@@@^@)^@)I(3G*)H9&^[@D[^C8)GT-IL= 0)^@)*[@@@[CTS@E*WH )@@G@@@@@@@@*[@@@[CTS@E2@K@@@@E@)^@)E-*G*)I1-IL(GD?GL>^[4GD+H->^[(IS)I[5H1WI )@@G@@G))H9,^[IT3WK )@@G@@^[0IL(H14HD,G8)H9&^[3I--I->H(>H14^[,I(!GL>IK)I--GL?G*,*[@@@[CTS@FU@@@@@@WL )@@G@@*[@@@[CTS@F=@E@@@@E))^@)ET5I[0IL>IT3^[0IL(H14HD,G8)H9&^[4IL-H13G1>IK)I--WM )@@G@@GL?G*,*[@@@[CTS@F,@@@@@@*[@@@[CTS@F8@J@@@@E*)^@)DD,GT2G(!G(,I))I-*G*)H-(WN )@@G@@H1>^[IT3^[0IL(H14^[\G0)I1-IL(GD+H->^[4GD+H->^@*G-\G(3^[,H94^[-G1&G(IL$G(=*[@@@[CTS@G)@#@@@@^@)^@)I--GL?G*,^@)*[@@@[CTS@G%@@@@@@*[@@@[WR )@@G@@CTS@G4@J@@@@F@)^@)CD+H92I))IL5H0)HD&^[>IL2H92^[(IS)G(,GT\I(,I->IL>G),^@)WS )@@G@@D96G(2 (2HD=G(3^[ ^[\I[4HD\H0,*[@@@[CTS@G"@@@@@@*[@@@[CTS@HC@H@@@@E-*G*)WT )@@G@@H90I-(H9,IS)H(-JC)H92^[!GD9^[,H94^[+G*)IT>I[-IL-I->G))GL9^[IS)GD?H))H9&^[4H[>^[0IL\G92GD!IS)I9(WX )@@G@@I-*^[-H0)D*)H90I-(H9,^[>H1^[IS,WZ )@@G@@*[@@@[CTS@IS@@@@@@*[@@@[CTS@I+@]@@@@C(IC))CT[EL^*[@@@[CTS@I?@@@@@@*[@@@[XA )@@G@@CTS@I6@#@@@@G1\IL!GD4BK) L D1^*[@@@[CTS@J@@@@@@@*[@@@[CTS@JE@L@@@@E-*G*)XB )@@G@@C(IC))GT-IL=^[!G(2G9>IS)GD?H))H9&^[4H[>^[0IL\G92GD!IS)I9(I-*^[-H0)D*)H90XC )@@G@@I-(H9,^[>H1IL!HD,GD4G(3^[0IL\G92GD!^[>J[>GT5I-(H9, 0)^[[H0)C(IC))XE )@@G@@*[@@@[CTS@JY@F@@@@GT-IL=^[!I(3I))GL>^[4H[>^[?GD3I))GT-IL=^[\G0)I-*G*)G--XF )@@G@@I--^[=G(GD=IS)C1\XN )@@G@@IL4IL-H0)G(?G(!G(,I-3^[-H1=^[!GD:G(3^[-^[?HD3I-(H1$^[\G0)GD?H))I1-IL(GD+XO )@@G@@H->IS)*[@@@[CTS@]]@K@@@@GD,G))I-*G*)I9-JC)I-*G(9^[-IL>^[5IT>G),^@)E-*HD3XP )@@G@@^[?HD3I-(H1$^[H-0G15H))HD,*[@@@[CTS@]G@K@@@@G1(H1=XQ )@@G@@HD,G8)H95I))I9*G(2G*)I1-IL(GD+H->IS)G9>I))GT*GD,G9>G))H92^[5IT>G))HD,^[^[\G0)GD?H))I-*G*)GD?I[*GD,I(!G(2XU )@@G@@HD<^[,GD!G(3^@*I1-IL(GD+H->IS?^[3I(+IL\I(4HD,G(3 ))^@)*[@@@[CTS@]4@K@@@@XV )@@G@@^@)^[&I(,GT4HD\H13 ))G(4GS(^[5IT>G))HD,^[-^[3G(4^[\G0)C1\IL4IL-H0)IT\I(2XW )@@G@@GT>^[3I--I->H(>H14IS,^@)*[@@@[CTS@]"@@@@@@*[@@@[CTS@#C@K@@@@AK,^[[^[4GD+XX )@@G@@H->^[\G0)GD?H))IT4GD4G(!G(,I))H15H(+G(2IS)GD,G))GC)I--GL?G*)H9&^[-H-?^[4XY )@@G@@IL-H13G1>IK)*[@@@[CTS@#M@I@@@@^@)^[3I--I->H(>H14IS)I(3G(=^[(H0)GC)IT>I))XZ )@@G@@H9&^[AH92I-2GD,^[3H95ILIL3^[-G14G(2^[>GDGDYC )@@G@@IS)I-*G*)G(,I-2JC)GD0I[>GD2IS,*[@@@[CTS@#'@@@@@@*[@@@[CTS@^^@K@@@@A),^[[YD )@@G@@^[?HD3I))H9&^[&H--G93^[&H9?H-\I9(H1$^[>GD^[\G0)YF )@@G@@G(,I-2JC)GD,G))H[\I8)I-*G*)G(,I-2JC)HD3^[5IT>G)) [&H--G93^[-IL>^@)*[@@@[YG )@@G@@CTS@^S@G@@@@^@)^[>J[0H--HD,G(=^[(H0)I-*G*)I--GL?G*)HD,^[7H[(GT*^[4H[>JC)YH )@@G@@GD0I[>GD2 C,*[@@@[CTS@^+@@@@@@*[@@@[CTS@^?@K@@@@A*,^[OH[>^[,GD!G*)H9&^[4YI )@@G@@H[>^[#D9HD(JD0)GL?H9GT(G1(G(=^[6GD2HD-GL?G*)YJ )@@G@@*[@@@[CTS@^6@I@@@@^@)^[,GD!G*)HD,^[4H[>^[>IL2H92^[&H--G8)G1(G(?G))H9&^[4YK )@@G@@H[-I))I1-IL(GD+H->^[,GD!G*,^@)*[@@@[CTS@ @@@@@@@*[@@@[CTS@ E@]@@@@C1\IL!YL )@@G@@GD4BK)*[@@@[CTS@ O@@@@@@*[@@@[CTS@ Y@#@@@@^@)C[^CTOD1MFC)^@)*[@@@[CTS@ *YM )@@G@@@ @@@@^@)I[-IL-H(>I->IK)GT-IL=IS)^@)*[@@@[CTS@ 2@]@@@@^@) L D1^^@)*[@@@[YN )@@G@@CTS@ /@@@@@@*[@@@[CTS@AA@D@@@@E-*G*)I[-IL-H(>I->IK)GT-IL=IS)GD2G*)H9&^[4YO )@@G@@H[>^[&H92H*'*[@@@[CTS@AK@@@@@@*[@@@[CTS@AU@D@@@@^[VG1(H-> 1XG(?G(!G(,I-VYP )@@G@@ 96G(2IT(H9,F(V 1\I[4HD\H13F*)*[@@@[CTS@A=@@@@@@*[@@@[CTS@A,@L@@@@GD,G))YQ )@@G@@I-*G(9^[3I[>GT(G19^[7H[(GT*^[AH92I-2GD,^[3JD!GL\H-(GS)G(?G(!G(,I-3^[-IL>YR )@@G@@^[4H8)GL>^[0IL\GT>IT3G(=*[@@@[CTS@A8@L@@@@GL9^[@C-#E-IELT 0)^[OH[>^[&HD?YS )@@G@@G*?^[6G(2IT(H9, ))GD,G))H90I-(H9,IS)H(-JC)GL>^[\H((I-4G(= 0)^[AHD?G*)^@)YT )@@G@@*[@@@[CTS@B]@L@@@@H1-H(>IS)H(-JC)GL>^@1 *1AK)GT*GD2GDIL3^@*H1\^[1I(-YU )@@G@@H-(G1(G(2IS)GD?H-\I9>G)(^[-H1=^[(G0)GC)G1(H->^@)*[@@@[CTS@BG@K@@@@H1-H(>YV )@@G@@^[(IS)H1\I))G9(I1>H0?^[OE[A^))HD3^[-IT3I(!G(= 0)^[OH[>^[&H9?H-\I9(H1$^[\YW )@@G@@I[4HD\H13^[-IL>^@)*[@@@[CTS@BQ@#@@@@GD6GD(H--GL?G*'^@)*[@@@[CTS@B)@@@@@@YX )@@G@@*[@@@[CTS@B%@K@@@@C*)^@)E9*G(,^[-H0)G(2IL\IK)HD3^[>H1IT3HD,G8)GT\H14HD,I(>IS) [-IT3I(!G(=^[&ZA )@@G@@H92^[-H-?^@)*[@@@[CTS@B"@^@@@@^@)^@)G(?G(!G(,I-3 C,^@)*[@@@[CTS@CC@@@@@@ZB )@@G@@*[@@@[CTS@CM@F@@@@C0)^@)ET5I[0IL>IT3^[0IL(H14HD,G8)H9&^[AH92I-2GD,^[3I--ZC )@@G@@I->H(>H14IS,*[@@@[CTS@CW@@@@@@*[@@@[CTS@C&@J@@@@D@)^@)ET5I[0IL>IT3^[0IL(ZD )@@G@@H14^[\G0)G(8I[?GD,GD4H92JC)HD,G1\IL!GD4HD\H0)HD,^[4H[>^[*G(-G-(H1$*[@@@[ZE )@@G@@CTS@C0@ @@@@^@)^@)H9&^[>GDH1\I->IS)*[@@@[CTS@DI@L@@@@^@)^@)I-*G*)H15H(+G(2^[\ZH )@@G@@G0)H-(H1>IS)H9&^[4H[>^[0IL\G92GD!^[4H8)GL>^[3HT(I[0G(=^[+JC)G-(GT4HD\H1-ZI )@@G@@IL9 0)*[@@@[CTS@DS@@@@@@*[@@@[CTS@D+@D@@@@D))^@)DD,GT?I(=G*)GT\H(!G(,I))ZJ )@@G@@GT-IL=IS)HD,^[?HD3I),^@)*[@@@[CTS@D?@@@@@@*[@@@[CTS@D6@K@@@@D*)^@)E-*G*)ZK )@@G@@I1-IL(GD?GL>^[4GD+H->IS) [&IL\H*)GD?H))I[2H9$IL-H(3^[7HD4H@)I-*HD3^[\I[4ZL )@@G@@HD\H0(^[-IL>*[@@@[CTS@E@@I@@@@^@)^@)H(>IL$G(=^[7H[>H0)GD,G)) L D1^^[\IK)ZM )@@G@@ LHC(MC9 ^[H1IT3^[4H[>^[*G(-G-(H1$^[\I-*G(2I9(IT>^[$G(,G(2GD4G(=ZO )@@G@@^[+JC)C[^CTOD1MFC,^@)CD?H-\I93*[@@@[CTS@EY@A@@@@^@)^@)I(3G*)H9&^[@D[^C8)ZP )@@G@@GT-IL= 0)^@)*[@@@[CTS@E*@@@@@@*[@@@[CTS@E2@K@@@@E@)^@)E-*G*)I1-IL(GD?GL>ZQ )@@G@@^[4GD+H->^[(IS)I[5H1G))H9,^[IT3^[0IL(H14HD,G8)H9&^[3I--I->H(>H14^[,I(!GL>IK)I--ZT )@@G@@GL?G*,*[@@@[CTS@FU@@@@@@*[@@@[CTS@F=@E@@@@E))^@)ET5I[0IL>IT3^[0IL(H14HD,ZU )@@G@@G8)H9&^[4IL-H13G1>IK)I--GL?G*,*[@@@[CTS@F,@@@@@@*[@@@[CTS@F8@J@@@@E*)^@)ZV )@@G@@DD,GT2G(!G(,I))I-*G*)H-(H1>^[IT3^[0IL(H14^[\G0)I1-IL(GD+H->^[4GD+H->ZY )@@G@@^@*G-\G(3^[,H94^[-G1&G(IL$G(=*[@@@[CTS@G)@#@@@@^@)^@)I--GL?G*,^@)ZZ )@@G@@*[@@@[CTS@G%@@@@@@*[@@@[CTS@G4@J@@@@F@)^@)CD+H92I))IL5H0)HD&^[>IL2H92^[(AA )@@G@@IS)G(,GT\I(,I->IL>G),^@)D96G(2 (2HD=G(3^[ ^[\I[4HD\H0,*[@@@[CTS@G"@@@@@@AB )@@G@@*[@@@[CTS@HC@H@@@@E-*G*)H90I-(H9,IS)H(-JC)H92^[!GD9^[,H94^[+G*)IT>I[-IL-AC )@@G@@I->G))GL9^[IS)GD?H))H9&AF )@@G@@^[4H[>^[0IL\G92GD!IS)I9(I-*^[-H0)D*)H90I-(H9,^[>H1^[IS,*[@@@[CTS@IS@@@@@@*[@@@[CTS@I+@]@@@@C(IC))CT[EL^AI )@@G@@*[@@@[CTS@I?@@@@@@*[@@@[CTS@I6@#@@@@G1\IL!GD4BK) L D1^*[@@@[CTS@J@@@@@@@AJ )@@G@@*[@@@[CTS@JE@L@@@@E-*G*)C(IC))GT-IL=^[!G(2G9>IS)GD?H))H9&^[4H[>^[0IL\G92AK )@@G@@GD!IS)I9(I-*^[-H0)D*)H90I-(H9,^[>H1IL!HD,GD4G(3^[0IL\G92GD!^[>J[>AM )@@G@@GT5I-(H9, 0)^[[H0)C(IC))*[@@@[CTS@JY@F@@@@GT-IL=^[!I(3I))GL>^[4H[>^[?GD3AN )@@G@@I))GT-IL=^[\G0)I-*G*)G--I--^[=G(H->H(>H14IS)CT[E(#D[T 9MC(DD([D1I ))D- CDNE)\ETLE([AU )@@G@@EL ES?^[OEDM ))GD,G))^@)*[@@@[CTS@L)@L@@@@CLMCDICTC 9KD9DD1O^[&IL\H*)G1(AV )@@G@@H->^[ADDGC(I^[-IL>^[0IL\GT>IT3G(= 0)^[OH[>^[6GD2HD-GL?G*)I--GL?G(3^[\G0)AW )@@G@@*[@@@[CTS@L%@K@@@@H9&^[>H->H(>H14IS)CT[E(#D[T 9MC(DD([D1I^[-H1=^[]EL[D1#AX )@@G@@D@\E[JDDIE))GD2G*)H(>IL$G(= 0)^[#H9!H(>H14*[@@@[CTS@L4@D@@@@GT-IL=IS)GD2AY )@@G@@G*)H-(IT4G(=^[&H92^[-H-?^[>H->H(>H14IS,^@)_@@@@@@D@[@@ 469 448 AZ )@@G@@ +0.0 +10.521 +10.521 @D@[@@ 470 449 +0.0 BA )@@G@@ +9.174 +9.174 *[@@@[*SDFF**[@@@[CTS@[=@D@@@@^@)^@)^@)^@)^@)^@)BB )@@G@@^@)^@)^@)^@)^@)^@)^@)^[@C-#E-IELT^@)*[@@@[CTS@[,@@@@@@*[@@@[CTS@[8@L@@@@BC )@@G@@C[^CTOD1MFC)IL>GD=IS)C1\IL4IL-H0)G(?G(!G(,I-3^[-H1=^[!GD:G(3^[-^[?HD3I-(BD )@@G@@H1$^[\G0)GD?H))I1-IL(GD+H->IS)*[@@@[CTS@]]@K@@@@GD,G))I-*G*)I9-JC)I-*G(9BE )@@G@@^[-IL>^[5IT>G),^@)E-*HD3^[?HD3I-(H1$^[H-0G15H))HD,BF )@@G@@*[@@@[CTS@]G@K@@@@G1(H1=HD,G8)H95I))I9*G(2G*)I1-IL(GD+H->IS)G9>I))GT*GD,BG )@@G@@G9>G))H92^[5IT>G))HD,^[^[\G0)GD?BJ )@@G@@H))I-*G*)GD?I[*GD,I(!G(2HD<^[,GD!G(3^@*I1-IL(GD+H->IS?^[3I(+IL\I(4HD,G(3BK )@@G@@ ))^@)*[@@@[CTS@]4@K@@@@^@)^[&I(,GT4HD\H13 ))G(4GS(^[5IT>G))HD,^[-^[3G(4BL )@@G@@^[\G0)C1\IL4IL-H0)IT\I(2GT>^[3I--I->H(>H14IS,^@)*[@@@[CTS@]"@@@@@@*[@@@[BM )@@G@@CTS@#C@K@@@@AK,^[[^[4GD+H->^[\G0)GD?H))IT4GD4G(!G(,I))H15H(+G(2IS)GD,G))BN )@@G@@GC)I--GL?G*)H9&^[-H-?^[4IL-H13G1>IK)*[@@@[CTS@#M@I@@@@^@)^[3I--I->H(>H14BO )@@G@@IS)I(3G(=^[(H0)GC)IT>I))H9&^[AH92I-2GD,^[3H95ILIL3^[-G14G(2^[>BQ )@@G@@GDGDIS)I-*G*)G(,I-2JC)GD0I[>GD2IS,*[@@@[CTS@#'@@@@@@BS )@@G@@*[@@@[CTS@^^@K@@@@A),^[[^[?HD3I))H9&^[&H--G93^[&H9?H-\I9(H1$^[>GD^[\G0)G(,I-2JC)GD,G))H[\I8)I-*G*)G(,I-2JC)HD3^[5IT>G))BV )@@G@@ [&H--G93^[-IL>^@)*[@@@[CTS@^S@G@@@@^@)^[>J[0H--HD,G(=^[(H0)I-*G*)I--GL?BW )@@G@@G*)HD,^[7H[(GT*^[4H[>JC)GD0I[>GD2 C,*[@@@[CTS@^+@@@@@@*[@@@[CTS@^?@K@@@@BX )@@G@@A*,^[OH[>^[,GD!G*)H9&^[4H[>^[#D9HD(JD0)GL?H9BY )@@G@@GT(G1(G(=^[6GD2HD-GL?G*)*[@@@[CTS@^6@I@@@@^@)^[,GD!G*)HD,^[4H[>^[>IL2H92BZ )@@G@@^[&H--G8)G1(G(?G))H9&^[4H[-I))I1-IL(GD+H->^[,GD!G*,^@)*[@@@[CTS@ @@@@@@@CA )@@G@@*[@@@[CTS@ E@]@@@@C1\IL!GD4BK)*[@@@[CTS@ O@@@@@@*[@@@[CTS@ Y@#@@@@^@)C[^CB )@@G@@CTOD1MFC)^@)*[@@@[CTS@ *@ @@@@^@)I[-IL-H(>I->IK)GT-IL=IS)^@)*[@@@[CTS@ 2CC )@@G@@@]@@@@^@) L D1^^@)*[@@@[CTS@ /@@@@@@*[@@@[CTS@AA@D@@@@E-*G*)I[-IL-H(>I->CD )@@G@@IK)GT-IL=IS)GD2G*)H9&^[4H[>^[&H92H*'*[@@@[CTS@AK@@@@@@*[@@@[CTS@AU@D@@@@CE )@@G@@^[VG1(H-> 1XG(?G(!G(,I-V 96G(2IT(H9,F(V 1\I[4HD\H13F*)*[@@@[CTS@A=@@@@@@CF )@@G@@*[@@@[CTS@A,@L@@@@GD,G))I-*G(9^[3I[>GT(G19^[7H[(GT*^[AH92I-2GD,^[3JD!GL\CG )@@G@@H-(GS)G(?G(!G(,I-3^[-IL>^[4H8)GL>^[0IL\GT>IT3G(=*[@@@[CTS@A8@L@@@@GL9^[@CH )@@G@@C-#E-IELT 0)^[OH[>^[&HD?G*?^[6G(2IT(H9, ))GD,G))H90I-(H9,IS)H(-JC)GL>^[\CI )@@G@@H((I-4G(= 0)^[AHD?G*)^@)*[@@@[CTS@B]@L@@@@H1-H(>IS)H(-JC)GL>^@1 *1AK)GT*CJ )@@G@@GD2GDIL3^@*H1\^[1I(-H-(G1(G(2IS)GD?H-\I9>G)(^[-H1=^[(G0)GC)G1(H->^@)CK )@@G@@*[@@@[CTS@BG@K@@@@H1-H(>^[(IS)H1\I))G9(I1>H0?^[OE[A^))HD3^[-IT3I(!G(= 0)CL )@@G@@^[OH[>^[&H9?H-\I9(H1$^[\I[4HD\H13^[-IL>^@)*[@@@[CTS@BQ@#@@@@GD6GD(H--GL?CM )@@G@@G*'^@)*[@@@[CTS@B)@@@@@@*[@@@[CTS@B%@K@@@@C*)^@)E9*G(,^[-H0)G(2IL\IK)HD3CN )@@G@@^[>H1IT3HD,G8)GT\H14CP )@@G@@HD,I(>IS) [-IT3I(!G(=^[&H92^[-H-?^@)*[@@@[CTS@B"@^@@@@^@)^@)G(?G(!G(,I-3CQ )@@G@@ C,^@)*[@@@[CTS@CC@@@@@@*[@@@[CTS@CM@F@@@@C0)^@)ET5I[0IL>IT3^[0IL(H14HD,CR )@@G@@G8)H9&^[AH92I-2GD,^[3I--I->H(>H14IS,*[@@@[CTS@CW@@@@@@*[@@@[CTS@C&@J@@@@CS )@@G@@D@)^@)ET5I[0IL>IT3^[0IL(H14^[\G0)G(8I[?GD,GD4H92JC)HD,G1\IL!GD4HD\H0)HD,CT )@@G@@^[4H[>^[*G(-G-(H1$*[@@@[CTS@C0@ @@@@^@)^@)H9&^[>GDH1\I->IS)*[@@@[CTS@DI@L@@@@CW )@@G@@^@)^@)I-*G*)H15H(+G(2^[\G0)H-(H1>IS)H9&^[4H[>^[0IL\G92GD!^[4H8)GL>^[3HT(CX )@@G@@I[0G(=^[+JC)G-(GT4HD\H1-IL9 0)*[@@@[CTS@DS@@@@@@*[@@@[CTS@D+@D@@@@D))^@)CY )@@G@@DD,GT?I(=G*)GT\H(!G(,I))GT-IL=IS)HD,^[?HD3I),^@)*[@@@[CTS@D?@@@@@@*[@@@[CZ )@@G@@CTS@D6@K@@@@D*)^@)E-*G*)I1-IL(GD?GL>^[4GD+H->IS) [&IL\H*)GD?H))I[2H9$IL-DA )@@G@@H(3^[7HD4H@)I-*HD3^[\I[4HD\H0(^[-IL>*[@@@[CTS@E@@I@@@@^@)^@)H(>IL$G(=^[7DB )@@G@@H[>H0)GD,G)) L D1^^[\IK) LHC(MC9 ^[H1IT3^[4H[>^[*G(-G-(H1$^[\I-*DD )@@G@@G(2I9(IT>^[$G(,G(2GD4G(=^[+JC)C[^CTOD1MFC,^@)CD?H-\I93*[@@@[CTS@EY@A@@@@DE )@@G@@^@)^@)I(3G*)H9&^[@D[^C8)GT-IL= 0)^@)*[@@@[CTS@E*@@@@@@*[@@@[CTS@E2@K@@@@DF )@@G@@E@)^@)E-*G*)I1-IL(GD?GL>^[4GD+H->^[(IS)I[5H1G))H9,^[IT3^[0IL(H14HD,G8)H9&^[3I--DI )@@G@@I->H(>H14^[,I(!GL>IK)I--GL?G*,*[@@@[CTS@FU@@@@@@*[@@@[CTS@F=@E@@@@E))^@)DJ )@@G@@ET5I[0IL>IT3^[0IL(H14HD,G8)H9&^[4IL-H13G1>IK)I--GL?G*,*[@@@[CTS@F,@@@@@@DK )@@G@@*[@@@[CTS@F8@J@@@@E*)^@)DD,GT2G(!G(,I))I-*G*)H-(H1>^[IT3^[0IL(H14^[\DN )@@G@@G0)I1-IL(GD+H->^[4GD+H->^@*G-\G(3^[,H94^[-G1&G(IL$G(=*[@@@[CTS@G)DO )@@G@@@#@@@@^@)^@)I--GL?G*,^@)*[@@@[CTS@G%@@@@@@*[@@@[CTS@G4@J@@@@F@)^@)CD+H92DP )@@G@@I))IL5H0)HD&^[>IL2H92^[(IS)G(,GT\I(,I->IL>G),^@)D96G(2 (2HD=G(3^[ ^[\I[4DQ )@@G@@HD\H0,*[@@@[CTS@G"@@@@@@*[@@@[CTS@HC@H@@@@E-*G*)H90I-(H9,IS)H(-JC)H92^[!DR )@@G@@GD9^[,H94^[+G*)IT>I[-IL-I->G))GL9^[IS)GD?H))H9&^[4H[>^[0IL\G92GD!IS)I9(I-*^[-H0)D*)H90I-(H9,^[>DV )@@G@@H1^[IS,*[@@@[CTS@IS@@@@@@*[@@@[DX )@@G@@CTS@I+@]@@@@C(IC))CT[EL^*[@@@[CTS@I?@@@@@@*[@@@[CTS@I6@#@@@@G1\IL!GD4BK)DY )@@G@@ L D1^*[@@@[CTS@J@@@@@@@*[@@@[CTS@JE@L@@@@E-*G*)C(IC))GT-IL=^[!G(2G9>IS)DZ )@@G@@GD?H))H9&^[4H[>^[0IL\G92GD!IS)I9(I-*^[-H0)D*)H90I-(H9,^[>H1IL!HD,EB )@@G@@GD4G(3^[0IL\G92GD!^[>J[>GT5I-(H9, 0)^[[H0)C(IC))*[@@@[CTS@JY@F@@@@GT-IL=EC )@@G@@^[!I(3I))GL>^[4H[>^[?GD3I))GT-IL=^[\G0)I-*G*)G--I--^[=G(H->H(>H14IS)CT[E(#D[T 9MC(DEJ )@@G@@D([D1I ))D- CDNE)\ETLE([EL ES?^[OEDM ))GD,G))^@)*[@@@[CTS@L)@L@@@@CLMCDIEK )@@G@@CTC 9KD9DD1O^[&IL\H*)G1(H->^[ADDGC(I^[-IL>^[0IL\GT>IT3G(= 0)^[OH[>^[6GD2EL )@@G@@HD-GL?G*)I--GL?G(3^[\G0)*[@@@[CTS@L%@K@@@@H9&^[>H->H(>H14IS)CT[E(#D[T 9MEM )@@G@@C(DD([D1I^[-H1=^[]EL[D1#D@\E[JDDIE))GD2G*)H(>IL$G(= 0)^[#H9!H(>H14*[@@@[EN )@@G@@CTS@L4@D@@@@GT-IL=IS)GD2G*)H-(IT4G(=^[&H92^[-H-?^[>H->H(>H14IS,^@)_@@@@@EO )@@G@@S) TIME IN TAT(HRS) TIME IN TAT(HRS) @P@[@@EP )@@G@@ 07:30 0 .00 07:30 *[@@@@*SDFF*@[@@@@*HEAD3EQ )@@G@@@#@@@@-3,4 HEAD3@ @@@@ DIMENSION HD(102),PT(55)@#@@@@-8,16 ER )@@G@@ HEAD3@ @@@@ DATA HD(1)/ 'DO&' / @^@@@@ DATA PT(2)/ ES )@@G@@2 / @D@@@@ DATA (HD(I),I=2,5)/ 'GO TO (UNCONDITIONAL)&' / @^@@@@ET )@@G@@ DATA PT(3)/ 6 / @A@@@@ DATA HD(6) / 'CALL&' / @^@@@@EU )@@G@@ DATA PT(4)/ 7 / @D@@@@ DATA (HD(I),I=7,10)/ 'RETURN (NON-STEV )@@G@@ANDARD)&' / @^@@@@ DATA PT(5)/ 11 / @D@@@@ DATA (HD(I),I=11,1EW )@@G@@3)/ 'INPUT STOP&' / @#@@@@-19,28 HEAD3@^@@@@ DATA PEX )@@G@@T(6)/ 14 / @C@@@@ DATA (HD(I),I=14,16)/ 'IF (LOGICAL)&' / @^@@@@EY )@@G@@ DATA PT(7)/ 17 / @D@@@@ DATA (HD(I),I=17,20)/ 'GO TO (ARITHMEZ )@@G@@ETIC)&' / @^@@@@ DATA PT(8)/ 21 / @D@@@@ DATA (HD(I),I=21,2FA )@@G@@4)/ 'FUNCTION REFERENCE&' / @^@@@@ DATA PT(9)/ 25 / @B@@@@ FB )@@G@@DATA (HD(I),I=25,26)/ 'ASSIGN&' / @^@@@@ DATA PT(10)/ 27 / @B@@@@FC )@@G@@ DATA (HD(I),I=27,28)/ 'OUTPUT&' / @#@@@@-31,40 HEAD3@^@@@@FD )@@G@@ DATA PT(11)/ 29 / @C@@@@ DATA (HD(I),I=29,31)/ 'IF (ARITHMETIFE )@@G@@C)&' /@^@@@@ DATA PT(12)/ 32 / @D@@@@ DATA (HD(I),I=32,35)/ 'GFF )@@G@@O TO (CONDITIONAL)&' / @^@@@@ DATA PT(13)/ 36 / @D@@@@ DATA (FG )@@G@@HD(I),I=36,38)/ 'RETURN (STANDARD)&' / @^@@@@ DATA PT(14)/ 39 / FH )@@G@@@A@@@@ DATA HD(39) / 'TAPES&' / @^@@@@ DATA PT(15)/ 40 / FI )@@G@@@D@@@@ DATA (HD(I),I=40,43)/ 'INTERNAL SUBPROGRAM&' / @#@@@@-43,44FJ )@@G@@ HEAD3@^@@@@ DATA PT(16)/ 44 / @F@@@@ DATA (HD(I),I=44,4FK )@@G@@9)/ 'NON-STANDARD FORTRAN STATEMENTS.&' / @#@@@@-48,57 HEAD3@^@@@@FL )@@G@@ DATA PT(21)/ 50 / @B@@@@ DATA (HD(I),I=50,51)/ 'ACCEPT&' / FM )@@G@@@^@@@@ DATA PT(22)/ 52 / @B@@@@ DATA (HD(I),I=52,53)/ 'DISPLAYFN )@@G@@&' / @^@@@@ DATA PT(23)/ 54 / @B@@@@ DATA (HD(I),I=54,55)/ 'EFO )@@G@@RPRINT&' / @^@@@@ DATA PT(24)/ 56 / @B@@@@ DATA (HD(I),I=56,5FP )@@G@@7)/ 'REPEAT&' / @^@@@@ DATA PT(25)/ 58 / @B@@@@ DATA (HD(I),FQ )@@G@@I=58,59)/ 'REPLACE&' / @#@@@@-60,69 HEAD3@^@@@@ DATA PT(26)/FR )@@G@@ 60 / @B@@@@ DATA (HD(I),I=60,61)/ 'GENERATE&' / @^@@@@ DATA PFS )@@G@@T(27)/ 62 / @B@@@@ DATA (HD(I),I=62,63)/ 'REGISTER&' / @^@@@@ FT )@@G@@DATA PT(28)/ 64 / @B@@@@ DATA (HD(I),I=64,65)/ 'ARGUMENT&' / @^@@@@FU )@@G@@ DATA PT(29)/ 66 / @D@@@@ DATA (HD(I),I=66,68)/ 'ALTERNATE PRIFV )@@G@@NTER&' / @^@@@@ DATA PT(30)/ 69 / @B@@@@ DATA (HD(I),I=69,7FW )@@G@@0)/ 'MONITOR&' / @#@@@@-72,73 HEAD3@^@@@@ DATA PT(31)/ 71 / FX )@@G@@@C@@@@ DATA (HD(I),I=71,73)/ 'ASM$INTERFACE&' / @#@@@@-77,79 FY )@@G@@ HEAD3@^@@@@ DATA PT(36)/ 74 / @E@@@@ DATA (HD(I),I=74,77)/ 'MFZ )@@G@@ACROS LISTED BELOW. (NO' / @ @@@@ DATA (HD(I),I=78,86)/ @#@@@@GA )@@G@@-84,93 HEAD3@^@@@@ DATA PT(41)/ 87 / @A@@@@ DATA HD(87) GB )@@G@@ / 'ABORT&' / @^@@@@ DATA PT(42)/ 88 / @B@@@@ DATA (HD(I),GC )@@G@@I=88,89)/ 'BUFFER&' / @^@@@@ DATA PT(43)/ 90 / @A@@@@ DATA HGD )@@G@@D(90) / 'FILE&' / @^@@@@ DATA PT(44)/ 91 / @B@@@@ DATA (GE )@@G@@HD(I),I=91,92)/ 'IDENTIFY&' / @^@@@@ DATA PT(45)/ 93 / @A@@@@ GF )@@G@@DATA HD(93) / 'JUMP&' / @#@@@@-96,105 HEAD3@^@@@@ DATA PGG )@@G@@T(46)/ 94 / @B@@@@ DATA (HD(I),I=94,95)/ 'LABELS&' / @^@@@@ GH )@@G@@DATA PT(47)/ 96 / @A@@@@ DATA HD(96) / 'NAME&' / @^@@@@ GI )@@G@@DATA PT(48)/ 97 / @A@@@@ DATA HD(97) / 'NEXT&' / @^@@@@ GJ )@@G@@DATA PT(49)/ 98 / @A@@@@ DATA HD(98) / 'READ&' / @^@@@@ GK )@@G@@DATA PT(50)/ 99 / @A@@@@ DATA HD(99) / 'SCAN&' / @#@@@@-108,1GL )@@G@@11 HEAD3@^@@@@ DATA PT(51)/ 100 /@B@@@@ DATA (HD(I),I=100,GM )@@G@@101)/ 'UNIQUE&' / @^@@@@ DATA PT(52)/ 102 /@A@@@@ DATA HD(102)GN )@@G@@ / 'WRITE&' / @#@@@@-127,127 HEAD3@ @@@@ 11 IF ( IX.EQ.1 ) GOGO )@@G@@ TO 44@#@@@@12 CONTINUE @#@@@@-136 HEAD3@]@@@@44 IC=6 GP )@@G@@@ @@@@ CALL OPA (-1,' & ') @#@@@@ GO TO 12 @]@@@@*PROCRGQ )@@G@@D @^@@@@-14,16 PROCRD @^@@@@-23,26 PROCRD @^@@@@GR )@@G@@-29,29 PROCRD @I@@@@ CALL IRFTI(FCT,$90) @ READ FILE COGS )@@G@@NTROL TABLE PCRD0022 @^@@@@-31,31 PROCRD GT )@@G@@@I@@@@ CALL IRPFPT(FCT,LOCBUF,$90) GU )@@G@@ PCRD0024 @^@@@@-39,39 PROCRD @I@@@@ IS=IFPTIS(FCGV )@@G@@T,SPKT,$10) @ MPCRD0032 @^@@@@GW )@@G@@-63,63 PROCRD @I@@@@ CALL ISDFIO ( IOPKT,$30 ) @ GX )@@G@@ MGC 01C @^@@@@-84,84 PROCRD GY )@@G@@@I@@@@ 210 CALL ISDFI ( IOPKT,$220,$250 ) @ READ IMAGE GZ )@@G@@ MGC 01C @^@@@@-100,100 PROCRD @I@@@@ 250 CALL ISDFIC HA )@@G@@( IOPKT ) @ CLOSE ISDFI MGC 01C @[@@@@HB )@@G@@*DCT8 @#@@@@-787,787 DCT8 @A@@@@ 1670 IF ( L.EQ.63 ) GO TO 1700 HC )@@G@@@#@@@@-791,800 DCT8 @B@@@@ IF ( IC1.EQ.'@@@@@A' )GO TO 1710 HD )@@G@@@B@@@@ IF ( IC1.EQ.'@@@@@B' )GO TO 1720 @B@@@@ IF ( IC1.EQ.HE )@@G@@'@@@@@F' )GO TO 1730 @B@@@@ IF ( IC1.EQ.'@@@@@I' )GO TO 1740 HF )@@G@@@B@@@@ IF ( IC1.EQ.'@@@@@J' )GO TO 1750 @B@@@@ IF ( IC1.EQ.HG )@@G@@'@@@@@L' )GO TO 1760 @F@@@@ IF ( IC1.EQ.'@@@@@N'.AND.IC2.EQ.'@@@HH )@@G@@@@A' ) GO TO 1770 @E@@@@ IF ( IC1.EQ.'@@@@@N'.AND.IC2.EQ.'@@@HI )@@G@@@@E' )GO TO 1780 @B@@@@ IF ( IC1.EQ.'@@@@@R' )GO TO 1790 @B@@@@HJ )@@G@@ IF ( IC1.EQ.'@@@@@U' )GO TO 1800 @#@@@@-804 DCT8 @]@@@@HK )@@G@@1700 IC=37 @#@@@@ GO TO 1680 @]@@@@1710 IC=28 @#@@@@ GO TO HL )@@G@@1680 @]@@@@1720 IC=29 @#@@@@ GO TO 1680 @]@@@@1730 IC=30 @#@@@@HM )@@G@@ GO TO 1680 @]@@@@1740 IC=31 @#@@@@ GO TO 1680 @]@@@@1750 HN )@@G@@IC=32 @#@@@@ GO TO 1680 @]@@@@1760 IC=33 @#@@@@ GO TO 1680 HO )@@G@@@]@@@@1770 IC=34 @#@@@@ GO TO 1680 @]@@@@1780 IC=35 @#@@@@ HP )@@G@@GO TO 1680 @]@@@@1790 IC=36 @#@@@@ GO TO 1680 @]@@@@1800 IC=38 HQ )@@G@@@#@@@@ GO TO 1680 @#@@@@-986,986 DCT8 @ @@@@ IF (IPARN.GTHR )@@G@@.0)GO TO 236@#@@@@-1004 DCT8 @^@@@@236 KXX=JPARN(IPARN) @#@@@@HS )@@G@@ GO TO 170 @#@@@@-1060,1061 DCT8 @D@@@@ 433 IF ( N.EQ.'@@@@@E'HT )@@G@@.AND.EFLAG.EQ.0 )GO TO 445 @D@@@@ IF ( N.EQ.'@@@@@D'.AND.EFLAG.EHU )@@G@@Q.0 )GO TO 445 @#@@@@-1066 DCT8 @#@@@@445 EFLAG=1 @#@@@@HV )@@G@@ GO TO 422 ___ DATA PT(50)/ 99 / @A@@@@******************@I@[@@HW )@@G@@************************************************************************HX )@@G@@************@I@[@@******************************************************HY )@@G@@******************************@I@[@@************************************HZ )@@G@@************************************************@I@[@@******************IA )@@G@@******************************************************************@I@[@@IB )@@G@@************************************************************************IC )@@G@@************@I@[@@******************************************************ID )@@G@@******************************@I@[@@************************************IE )@@G@@************************************************___ @P@[@@ 11:IF )@@G@@30 0 .00 11:30 7 2.28 11:30 3 IG )@@G@@ 3.27 11:30 1 3.48 @P@[@@ 12:30 0 IH )@@G@@ .00 12:30 4 3.77 12:30 0 .00 II )@@G@@ 12:30 1 10.64 @P@[@@ 13:30 0 .00 IJ )@@C@@ 13:30 4 5.69 13:30 1 IK @EOF @COPY,IO TEMP.1028-001-001,1028-001-001. @FREE TEMP.