@CAT,P 1026-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1026-001-001,,,130210053241,000 )@@G@@**PF**@@@@&$@@@@@@@@@@@[@ /@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@P@@#^@@@]F^ 51@@@@@[@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@]7/7?@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@E@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@O@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@SAN )@@G@@FILECT @@@@@@@@[@@ @ @@@[]@@@@I@@@@W@D=2 TGIOW AO )@@G@@@@@@@P@@[@@A @ @@@[]@@@@]@@@@WIJM\ TGFACIL @@@@@@@@[@@^AP )@@G@@ @ @@@[]@@@@]@@@@WKJN+ TGFACIL @@@@@@@@ @@@ AQ )@@G@@@@@@WN@@[@@[@@@@WMF=* UGFILECT @@@@@@@@ @@@ @@@@WR@@[@@#AR )@@G@@@@@@WOF=? UGIOW @@@@@@@@ @@@ @@@@WT@@[@@[@@@@WSF=2 UGAS )@@G@@NTRN @@@@@@@@[@@C @ @@@[]@@@@Q@@@@WUHM1 VGNTRN AT )@@G@@@@@@@@@@ @@@ @@@@W4@@[@@^@@@@W0HPY VGXREF @@@@@@@@[@@IAU )@@G@@ @ @@@[^@@@@+@@@@W5HR^ VGSORTRF @@@@@@@@[@@J AV )@@G@@@ @@@[^@@@@Y@@@@XRHT% VGBUF3 @@@@@@@@[@@K @ @@@[^@@@@(AW )@@G@@@@@@X5HV" VGBUF2 @@@@@@@@[@@L @ @@@[^@@@@(@@@@YYHW; VGAX )@@G@@NREAD @@@@@@@@[@@M @ @@@[^@@@@^@@@@ZBH=H VGXREF AY )@@G@@@@@@@@@@ @@N @@@@Z&@@]@@V@@@@ZFH$. VGSORTRF @@@@@@@@ @@@AZ )@@G@@ @@@@)F@@]@@<@@@@Z*H*: VGBUF3 @@@@@@@@ @@@ BA )@@G@@@@@@)V@@]@@I@@@@)HH(^ VGBUF2 @@@@@@@@ @@@ @@@@):@@]@@IBB )@@G@@@@@@)XH(I VGNREAD @@@@@@@@ @@@ @@@@)1@@]@@^@@@@)!H(? VGBC )@@G@@XREF @@@@@@@@A@@@ )@@]@@@@@@^6@@@@)3H%4 VGCORR BD )@@G@@@@@@@@@@[@@@ @2@@@[@@@@@L@@@@>(C,7 WGSORTX @@@@@@@@ @@@BE )@@G@@ @@@@&H@@[@@N@@@@>'FO( WGMAP @@@@@@@@[@@@ BF )@@G@@@ @@@[A@@@@[@@@@&IFP" WGUSERDOC @@S@@@)K[@@@ @ @@@[A@@@@GBG )@@G@@@@@@&JF,9 WGUSERDOC @@@@@@@K[@@@ @ @@@[A@@@@G@@@@&VF1Y WGBH )@@G@@NTRN @@V@@@)@[@@@ @ @@@[]@@@@Q@@@@:4GL] VGTEST BI )@@G@@@@@@@@@@[@@@ @ @@@[^ @@A@@@@?EGOJ VGNTRN @@@@@@@@[@@@BJ )@@G@@ @ @@@[]@@@@Q@@@@?KHM1 VGNTRN @@@@@@@@ @@@ BK )@@G@@@@@@?%@@[@@^@@@@?&HPY VGXREF @@@@@@@@[@@@ @ @@@[^@@@@+BL )@@G@@@@@@?:HR^ VGSORTRF @@@@@@@@[@@@ @ @@@[^@@@@Y@@@@!HHT% VGBM )@@G@@BUF3 @@@@@@@@[@@@ @ @@@[^@@@@(@@@@!:HV" VGBUF2 BN )@@G@@@@@@@@@@[@@@ @ @@@[^@@@@(@@@@,OHW; VGOLDNREAD @@+@@@)@[@@@BO )@@G@@ @ @@@[^D @@A@@@@,.HX+ VGOLDNREAD @@@@@@@@[@@@ BP )@@G@@@ @@@[[D @@A@@@@\#HX1 VGNREAD @@@@@@@@[@@@ @ @@@[^@@@@^BQ )@@G@@@@@@\DH=H VGXREF @@@@@@@@ @@@ @@@@\*@@]@@V@@@@\HH$. VGBR )@@G@@SORTRF @@@@@@@@ @@@ @@@@0H@@]@@<@@@@\%H*: VGBUF3 BS )@@G@@@@@@@@@@ @@@ @@@@0X@@]@@I@@@@0JH(^ VGBUF2 @@@@@@@@ @@@BT )@@G@@ @@@@0!@@]@@I@@@@0ZH(I VGNREAD @@@@@@@@ @@@ BU )@@G@@@@@@03@@]@@^@@@@0\H(? VG 1 0 5 0 0 (COEFF DRAG @A@@@@ HGEOD BV )@@G@@HCONST =260005 =0 R8 @B@@@@ 6076.1033 0 1 KR KR 1 1 0 R4BW )@@G@@@^@@@@' ALT CD @F@@@@ 64 2.6640 0 R3 BX )@@G@@ (CASE 1 AERO @A@@@@ 65 2.7863 0 R3 BY )@@G@@@A@@@@ 67 3.0309 0 R3 @A@@@@ 70 3.268BZ )@@G@@1 0 R3 @A@@@@ 75 3.4656 0 R3 @A@@@@ 80 CA )@@G@@ 3.6132 0 R3 @A@@@@ 85 3.7201 0 R3 @A@@@@CB )@@G@@ 90 3.7902 0 R3 @A@@@@ 100 3.8946 0CC )@@G@@ R3 @A@@@@ 120 3.9686 0 R3 @A@@@@ 150 CD )@@G@@ 4.0542 0 R3 @A@@@@ 200 4.1334 0 R3 @C@@@@ CE )@@G@@ 250. 4.1765 0 R3 0 @]@@@@ 0 @]@@@@ CF )@@G@@ X11 @ @@@@= 1 1 1 0 2 0 0 @A@@@@ HGEOD HCONST =26CG )@@G@@0042 =0 R5@^@@@@ KD 0 1 1 0 0 @F@@@@ 0 .5 .5 1 .5 CH )@@G@@ .5 5 .5 .5 20 .5 .5 100 .5 .5 0@[@@@@' @]@@@@ X19 CI )@@G@@@]@@@@ DATA TBLDAT@[@@@@' @ @@@@ 1 X1 (ROLL TABLE@#@@@@CJ )@@G@@= 0 1 ( @C@@@@' TIME RATE TIME RATE CK )@@G@@@]@@@@ 0 R7@B@@@@ =-46,0 -.000 =-5,0 0 @]@@@@CL )@@G@@ KI @[@@@@' @A@@@@ 50 X2 (PITCH TABLE @#@@@@CM )@@G@@= 0 1 ( @C@@@@' TIME RATE TIME RATE CN )@@G@@@]@@@@ 0 R7@C@@@@ 0 0 400 -.0662 CO )@@G@@@G@@@@ =-46,0 -.06726 =-6,0 .0662 (BCP )@@G@@URN 1 @]@@@@ KI @[@@@@' @ @@@@ 150 X3 (YAW TABLE CQ )@@G@@@^@@@@= 0 1 ( @]@@@@ 0 R7@C@@@@' TIME CR )@@G@@ RATE TIME RATE @B@@@@ =-46,0 0 =-5,0 CS )@@G@@ 0 @B@@@@ =-6,0 18. =-7,0 0 @]@@@@ KI CT )@@G@@@[@@@@' @[@@@@' @A@@@@' > > > > > CRITICAL TIMES @[@@@@CU )@@G@@' @^@@@@ 200 10 20 30 40 @[@@@@' @[@@@@' @A@@@@ CV )@@G@@ X4 (OUTPUT FREQ @#@@@@= 0 1 ( @#@@@@ 0 50CW )@@G@@00 KI@[@@@@' @A@@@@ X5 (JAMIE LOCATION @]@@@@= CX )@@G@@ 0 1 @H@@@@ -0 32 =-47,0 1 =-5,0 32 =-6,0 5 =-7,0 32 =-CY )@@G@@8,0 .5 =-9,0 @A@@@@ 32 =-10,0 2 =-11,0 KI@[@@@@' CZ )@@G@@@[@@@@' @I@@@@' @ @ @ @ @ @ @ @ @ @ S T A R T - UP @ @ @ @ @DA )@@G@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @[@@@@' @ @@@@ DATA AERO 19.62 -X10 DB )@@G@@=1 @G@@@@ DATA ATMOS -X6 -X7 =0 =0 2.5+5 2403.0735 1716.428 0 KI -X9 DC )@@G@@-X70 -X71 @^@@@@ DATA EVENT HTBLDAT =2@^@@@@ DATA ERRACT LFALSE DD )@@G@@@C@@@@ DATA JUNK =2 -X11 .5 17600 3.15 26000 @G@@@@ DE )@@G@@ .5 17600 3.15 26000 2116.224 B212403253412 @B@@@@ DATA DF )@@G@@OUTPUT -X4 =1 =-1 =0 S1 =1 @#@@@@ DATA PILOT 431.6 @C@@@@ DATA DG )@@G@@RATES HTBLDAT -X1 -X2 -X3 =65 =67 1@H@@@@ DATA START -120.6 92.DH )@@G@@43 28.47 0 (PAD-XYZ ALIGN @F@@@@ 6 DI )@@G@@ -80.53 28.47 0 (TRKR @G@@@@ 10 DJ )@@G@@ =2 (R,V STARTUP @I@@@@ 11 DK )@@G@@ =2 1+5 (Q VECTOR STARTUP,TDL )@@G@@MX @G@@@@ 13 355 (DM )@@G@@INITAL TIME @I@@@@ 14 =0 -X19 DN )@@G@@ (STARTING EVENT,EVENT @G@@@@ 16 =1 DO )@@G@@ (RUNGA KUTTA @G@@@@ 17 0. DP )@@G@@ (PAYLOAD @F@@@@ 18 21356668. DQ )@@G@@13.0327 -125.0374 (R-->@F@@@@ 25914.48 DR )@@G@@.6484379 -173.266 (V--> @F@@@@ 25 -.86285776 DS )@@G@@-.0681808 .49840485 .05123762 (QQQQ @G@@@@ 35 32768 B1704DT )@@G@@00000000 .05 (DTMAX,MIN @F@@@@ 38 0 0 DU )@@G@@0 0 5 (WEIGHT@G@@@@ 1000 DV )@@G@@R2 (POSITION @G@@@@ DW )@@G@@1 R2 (VELOCITY @G@@@@ DX )@@G@@ .46-4 R3 .000 R2 (Q-VECTOR @H@@@@DY )@@G@@ 1 0 0 (BODY VELOCITDZ )@@G@@Y @H@@@@ 59 KI KI KI KI R6 EA )@@G@@ (EXPEN,IMPU @[@@@@' @C@@@@ DATA SOLIN 20. 1. 2. 1974. (JEB )@@G@@ULIAN LAUNCJ@I@@@@' @ @ @ @ @ @ @ @ @ @ E N G I N E L I S T @ EC )@@G@@@ @ @ @ @ @ @ @ @ @ @ @ @ @[@@@@' @^@@@@ DATA THRUST =0 =0 =0ED )@@G@@@H@@@@ 4 =3 0 0 =0 =2 =1 1.0 EE )@@G@@ (BURN 1 @H@@@@ 11 =3 88 .34 =0 =2 EF )@@G@@=1 1.0 (BURN 2 @H@@@@ 18 =3 16100 55.35 =0 EG )@@G@@ =2 =1 1.0 (BURN 3 @H@@@@ 25 =3 16100 5EH )@@G@@5.35 =0 =2 =1 1.0 (BURN 4 @[@@@@' @I@@@@' EI )@@G@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @EJ )@@G@@ @ @[@@@@' @I@@@@' " " " " " " " " " " E V E N T S " " "EK )@@G@@ " " " " " " " " " " " " " " " " @]@@@@ DATA TBLDAT@[@@@@ -19 @ @@@@EL )@@G@@ HEVENT =3 =0 =0 H" @^@@@@ HOUTCOM =9 H"M @[@@@@' EM )@@G@@@#@@@@M START" @A@@@@ HSTATE =1 0 H"R3 Y20 H" @A@@@@EN )@@G@@ HTBLDAT =3998 HCOAST H" @D@@@@ HRATES =8 0 .15 0 EO )@@G@@.15 H" (HIGH H/S @A@@@@ HSTARTO =40 =0 =0 H" @ @@@@EP )@@G@@ HOUTPUT =5 =1 H" @ @@@@ HTHRUST =3 =0 H" @E@@@@EQ )@@G@@ HEVENT =3 Y50 =2 Y30 =10001 HTIME R1 H"END @^@@@@ ER )@@G@@ HOUTCOM =9 H"M @^@@@@M ORIENTATION" @[@@@@' @A@@@@ ES )@@G@@ HTBLDAT =3998 HORIENT H" @E@@@@ HRATES =8 0 .01 0 .01 HET )@@G@@" (LOW H/S @E@@@@ HEVENT =3 Y60 =3 Y31 =10001 EU )@@G@@HTIME R1 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" EV )@@G@@@[@@@@' @A@@@@ HTBLDAT =3998 HCOAST H" @ @@@@ HOUTPEW )@@G@@UT =5 =1 H" @E@@@@ (HEVENT =4 =4 1000 =260001 HTIME HEX )@@G@@CONST H"END@^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" @[@@@@EY )@@G@@' @A@@@@ HTBLDAT =3998 HRV*1* H" @G@@@@ (HEVENT =4EZ )@@G@@ =15 0 =260062 HGEOD HCONST 500 .025 H"END @^@@@@ HOUTCFA )@@G@@OM =9 H"M @#@@@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3FB )@@G@@998 HRV*1* H" @G@@@@ ((HEVENT =4 =16 0 =260062 HGEOD HCFC )@@G@@ONST 20000 .025 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@M COASFD )@@G@@T" @[@@@@' @A@@@@ HTBLDAT =3998 HRV*2* H" @G@@@@ FE )@@G@@ (HEVENT =4 =17 0 =260062 HGEOD HCONST 20000 .025 H"END @^@@@@FF )@@G@@ HOUTCOM =9 H"M @#@@@@M COAST" @[@@@@' @A@@@@ FG )@@G@@ HTBLDAT =3998 HRV*2* H" @G@@@@ (((HEVENT =4 =18 0 =2600FH )@@G@@62 HGEOD HCONST 20000 .025 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@FI )@@G@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HRV*3* H" FJ )@@G@@@G@@@@ (HEVENT =4 =19 0 =260062 HGEOD HCONST 20000 .025 H"FK )@@G@@END @^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" @[@@@@' FL )@@G@@@A@@@@ HTBLDAT =3998 HRV*3* H" @G@@@@ ((HEVENT =4 =20FM )@@G@@ 0 =260062 HGEOD HCONST 20000 .025 H"END @^@@@@ HOUTCOM =9 FN )@@G@@H"M @#@@@@M COAST" @[@@@@' @A@@@@ HTBLDAT =3998 HFO )@@G@@RV*4* H" @G@@@@ (HEVENT =4 =21 0 =260062 HGEOD HCONST 20FP )@@G@@000 .025 H"END @^@@@@ HOUTCOM =9 H"M @#@@@@M COAST" FQ )@@G@@@[@@@@' @A@@@@ HTBLDAT =3998 HRV*4* H" @G@@@@ HEVENFR )@@G@@T =4 =22 0 =260062 HGEOD HCONST 20000 .025 H"END @^@@@@ FS )@@G@@ HOUTCOM =9 H"M @#@@@@R@)EFQN[@EFR/K@UFIC8@@@^AA0EFL[^@EFI[#)EFOA@KEFPFT )@@G@@A@)EFQ^[@EFR/K@[:N/,0@XN@@@@@@@@@EG]@[ EF8C_)@@[R/K@@@N.@@@G[#)EF_C@[EG]FU )@@G@@:@@EF1/K@[2LO/K@@[G_)@@[8L@[2D/K@[22C@@EF_G/@@@[[@@EG@G/@__"D@)EG@G/)@[]FV )@@G@@C#)EG@R@K@@G[@)@[^[#)EG[C@[EG]:@@EF2/K@[2+O/K@@[G_)@@[8L@[2U/K@[22R@KEG[FW )@@G@@C@[EG]%@@EF3/K@[22R@KEG[C@[EG#%@@EF4/K@[22R@KEG[C@[EG^%@@EF5/K@[22C8)@@]FX )@@G@@N@0[21/K@[25@[XEF8N@0[24/K@[29@[YEF8!^)EF6/K@@K!H8)@@[[^)EF6RA0EF9C#)EF;FY )@@G@@R@KEF/N[@EF./K@UF6C8@@@#AA0EF9[^@EF6[#)EF;A@KEF/^[@EF.C8FK@@[^@[2#/K@[2]FZ )@@G@@@@[@@@@@@@VK@@@@VW@@@@VW@@@@VW@@@@VW@@@@WM@@@@VW@@@@VW@@@@VW@@@@VW@@@@VWGA )@@G@@@@@@VW@@@@VW@@@@V$@@@@VW@@@@VW@@@@VW@@@@V$@@@@VW@@@@VW@@@@VW@@@@VW@@@@VWGB )@@G@@@@@@V$@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@VW@@@@V)@@@@V)GC )@@G@@@@@@VW@@@@V)@@@@VW@@@@VW@@@@VW@@@@V)@@@@V)@@@@VW@@@@VW@@@@VW@@@@VW@@@@V)GD )@@G@@@@@@VW@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V+@@@@V1GE )@@G@@@@@@WP@@@@V)@@@@V)@@@@VW@@@@VW@@@@VK@@[@@@@@[@@@@@@@@@@@@@@@__"__"@@@@@HGF )@@G@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@***** ERROR *****&@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@ARRAY OVERFLOW-STATEMENT TOO LONG.& @@@@@@NON-ARITHMETGH )@@G@@IC STATEMENT NOT DEFINED.& VARIABLE ILLEGAL.&@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@DATA LIST LONGER THAN CARD.& @@@@@@@@@@@@STATEMENT NUMBER ILLEGAL.& GJ )@@G@@@@@@@@@@@@@@PARENTHESE COMBINATION ILLEGAL.& @@@@@@IF STATEMENT ILLEGGK )@@G@@AL& @@@@@@@@@@@@@@@@@@ERROR IN NESTING OF FUNCTIONS.& @@@@@@WORD TGL )@@G@@OO LONG.& @@@@@@@@@@@@@@@@@@@@@@@@VARIABLE TOO LONG.& @@@@@@@@@@@@GM )@@G@@@@@@@@NO RIGHT PARENTHESES.& @@@@@@@@@@@@@@@@@@ERROR IN GETTING SUBSCRIGN )@@G@@PT.& @@@@@@@@@@@@EXCEEDED LENGHT OF CARD DATA.&@@@@@@@@@@@@VARIABLE NOTGO )@@G@@ IN TABLE.& @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@**** TOO MANY ERRORS - RGQ )@@G@@UN ABORTED '=@@@) @@____/K@@Y:@[A CGPROCEDURE & ______ NOT FOUND IGR )@@G@@N FILE & ______BSP ERROR STATUS=&______FORTRAN PROCEDURE TABLE IS EMPGS )@@G@@TY. FILE=& ______ &______I-O ERROR. STATUS=& ______FILE=&______GT )@@G@@ELEMENT=& ______ &___________"@@@@@O@@@@@Z@@@@@G@@@@@!@@@@@#@@@@[@GU )@@G@@@@@@@@@@@@@[@@@@@I@@[@@[@@[@@@@@@@@]@@@@@&@@@@@H@@@@@/@#;@@@@#;@@@PROCITGV )@@G@@@]-@@@@@@@@@@@@@@$@@@@@?@@@@@2@@@@[D@#;@@[@#;@@[RNB @]1@@@@@@@@@@#;@@]GW )@@G@@@#;@@]DUMMY @]5@@@@@@@@@@@@@@@@@@@@@@@@^,R@@@@@@@@@^,R@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ ______@FREE,A I$I$I$. . ______& ______GY )@@G@@ &______I$I$I$ ______@@@@@@@@@@@[@@@@@I@@@@@# @@@@@F_____"GZ )@@G@@@@@@@A@@@@@G@@@@@O@@@@@_ END @@@@@]@@@@@L@@@@@S@@@@@S@@@@@(@@@@@J@@@@@BHA )@@G@@@@@@@/@@[@@@@@@@@^@@@@@ @@@@@,@@@@@U@@@@@K@@@@@)@@@@@I@@@@@F@@@@@T@@@@@PHB )@@G@@@@@@@=@@@@@Q@@@@@*@@@@@R@@@@@V@@@@@A@@@@@B@@@@@J@@@@@N@@@@@E@@@@@R@@@@@UHC )@@G@@@@@@@W@#;@@#@#;@@#DCT8 @HE@@@@@@@@@@#;@@@@#;@@@FCTCK @HS@@@@@@@@@@#;@@]HD )@@G@@@#;@@]GETSN @H?@@@@@@@@@@@[@@[@@@@@;@@@@@$@@@@@D@#;@@@@#;@@@GETVAR@IX@@@HE )@@G@@@@@@@@@@@@@E@#;@@@@#;@@@RJTNOS@I!@@@@@@@@@@@@@@C@@@@@.@@@@@H@@@@@T@@@@@DHF )@@G@@@@@@@-@@@@@+@#;@@^@#;@@^UNPACK@LP@@@@@@@@@@#;@@@@#;@@@UPSN @L+@@@@@@@@@HG )@@G@@@@@@. @#;@@[@#;@@[LPRT @L1@@@NMLT @@@@@[NL@@@@@@@A@@@@@B@@@@@C@@@@@D@@HH )@@G@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@O@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@HI )@@G@@@@@X@@@@@Y@@@@@Z@@DA CM@@@@RL EQ DM AB EX LG CP HJ )@@G@@DP IN PR DMVR FCTN SBRT SWVR FA @@@L@@ LBCM END HK )@@G@@]@@@@@@@@@@F@@@@@U@@@@@N@@@@@C@@@@@T@@@@@I@@@@@O@@@@@N@@@@@@@@@@@@& HL )@@G@@______& ______& ______TABLE OVERFLOW NO.=& ______DATA PROGRAMHM )@@G@@ IS TO LARGE.& ______F & ______@@@@@@@@@@@[@@@@@V@@@@@3@@@@ZK@@@@[IHN )@@G@@@@@#%S@@[@@@@@@@@ LBCM $BLANK_____"@@@@@A@@@@@C@@@@@^@@@@@G@@@@@]@@@@@ HO )@@G@@@@@@@X@@@@@>@@@@@B@@@@@H@@@@@S@@@@@O@#;@@@@#;@@@TBL1 @ V@@@@@@@@@@@@@W@HP )@@G@@@#;@@[@#;@@[DRUM @ '@@@@@@@@@@@@@@E@#;@@#@#;@@#ENTER @A^@@@@@@@@@@#;@@@HQ )@@G@@@#;@@@LOCATE@BI@@@@@@@@@@@@@@*@@@@@#@@@@@0@#;@@]@#;@@]OVFL8 @BR@@@@@@@@@HR )@@G@@@@@@@P@@@@@<@@@@@%@@@@@'@#;@@[@#;@@[PNCH @B1@@@@@@@@@@@@@@@ DMVR HS )@@G@@FCTN ** ******@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO IF(L) HT )@@G@@IF(A) GOTO(UC) GOTO(A) GOTO(C) CALL FCT REF HU )@@G@@RTRN(S) RTRN(NS) ASSIGN TAPES INPUT OUTPUT HV )@@G@@SUB PROG STOP ACCEPT DISPLAY ERPRINT REPEAT HW )@@G@@REPLACE GENERATE REGISTER ARGUMENT ALTPRINT MONITOR HX )@@G@@ASM$INTF ABORT BUFFER FILE IDENTIFY JUMP HY )@@G@@LABELS NAME NEXT READ SCAN UNIQUE HZ )@@G@@WRITE C@FK@@[W@D"]C@FK@[[?@D"]C@F@@][^@D"]C@@D"]'=@@@IIA )@@G@@/KF@@^@@@@@@@@AD"X@@]D"<@@ D">@@CD"%@@CD"2@@]D"9@@]D";@@@D".@@BD".@@@D_^IB )@@G@@@@@D_^@@[D_^@@]D_ @@[D_B@@@D_C@@^D_C@@@D_G@@DD_G@@CD_P@@@D_X@@@D_X@@@D_XIC )@@G@@@@#D_X@@@D_)@@@D_)@@@D_)]S#S@[]R#G@]]B#N@#]C#C@6]L#T@9]S^$@"]L#O@^]A#C@ ID )@@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@LIE )@@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@/IF )@@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@>IG )@@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@:IH )@@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@@@@@@II )@@G@@ & ___________"@@@@@[@@@@@O @@@@]]@#;@@]@#;@@]PRTERR@]A@@@& IJ )@@G@@______V A R I A B L E T A B L E& ______& ______VARBLE& ______IK )@@G@@FLAGS&______LB CM&______LINE NUMBERS AND FLAGS& ______& ______@@@@@_IL )@@G@@_____"@@@@@[@@@@@!@@B@@B@@A@@A@@A@@@@@@@@A@@@@@:@@@@[J@@@@@H@@@@@X@@@@@]IM )@@G@@@@@@@&@#;@@[@#;@@[HEAD1 @[V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@THE FIRST FLAG INDICATES THE& NATURE OF THE ALPHABETIC ENTITIO )@@G@@Y& = UNDIMENSIONED VARIABLE& DMVR = DIMENSIONED VARIABLE& IP )@@G@@ FCTN = FUNCTION NAME& LBCM = NAME OF LABELED COMMON&IQ )@@G@@ SBRT = SUBROUTINE NAME& SWVR = SWITCH VARIABLE& IR )@@G@@ NMLT = NAMELIST NAME& & IS )@@G@@ THE FOLLOWING TWO CHARACTER FLAGS& INDICATE THAT THE ENTITY IS INIT )@@G@@ THE& CORRESPONDING TYPE OF STATEMENT& AB = ABNORMAL EX = EXTERNAIU )@@G@@L& CM = COMMON FA = FORML AGUMT& CP = COMPLEX IN = INTEGERIV )@@G@@& DA = DATA LG = LOGICAL& DM = DIMENSION PR = PARAMETIW )@@G@@ER& DP = DBL PRECISN RL = REAL& EQ = EQUIVALENCE NL = NAMELISIX )@@G@@T& THE FLAGS FOLLOWING THE LINE NUMBERS& (ON WHICH THE ENTITY WASIY )@@G@@ REFERENCED)& INDICATE THE NATURE OF THE REFERENCE& A = SET EQUAIZ )@@G@@L,DEFINED,ASSIGNED& B = REFERENCED,CALLED G = FORMAT& JA )@@G@@C = CALLING SEQUENCE H = I-O UNIT& D = SUBSCRIPT I = READJB )@@G@@& E = SPECIFICATION O = WRITE& J = DO PARAMETER JC )@@G@@ L = LIST& & &JD )@@G@@______S T A T E M E N T N U M B E R T A B L E& ______ &______JE )@@G@@ &______OF THE REFERENCE& ______ &______ &______@@@@@______"JF )@@G@@@@@@@[@@@@@>@@D@@@@@D@@D@@@@@A@@@@@/@@^@@^@@#@@#@@@@[J@@@@[)@@@@@]@#;@@[JG )@@G@@@#;@@[HEAD2 @[>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@THE FIRST ENJH )@@G@@TRY FOLLOWING THE STATEMENT NUMBER& IS THE NUMBER OF THE LINE ON WJI )@@G@@HICH IT WAS DEFINED& THE FLAGS FOLLOWING THE LINE NUMBERS (ON WHICH TJJ )@@G@@HE& STATEMENT NUMBER WAS REFERENCED) INDICATE THE NATURE& D = DEFINED&JK )@@G@@ S = FORMAT NUMBER&T = NONSTNDRD RTN&U = ASSIGNED& V = DO& JL )@@G@@ W = GOTO (CNDTNL)&X = GOTO (UNCNDTNL)& Y = IF (ARITHMETIC)& JM )@@G@@& & ______T R A N S F E R T A B L E& ______JN )@@G@@ONLY THOSE ENTRIES WHICH ARE REFERENCED ARE PRINTED OUT. THE COMPLETE LJO )@@G@@IST FOLLOWS&______ & ______ & ______@@@@@______"@@@@@[@@@@@!@@@@@AJP )@@G@@@@@@@]_____.@#;@@#@#;@@#HEAD3 @^W@@@DO& GO TO (UNCONDITIONAL)& CALL& JQ )@@G@@RETURN (NON-STANDARD)& INPUT STOP& IF (LOGICAL)& GO TO (ARITHJR )@@G@@METIC)& FUNCTION REFERENCE& ASSIGN& OUTPUT& IF (ARITHMETJS )@@G@@IC)& GO TO (CONDITIONAL)& RETURN (STANDARD)&TAPES&INTERNAL SUBPROGRAJT )@@G@@M& NON-STANDARD FORTRAN STATEMENTS.& ACCEPT& DISPLAY& ERPRINJU )@@G@@T& REPEAT& REPLACE& GENERATE& REGISTER& ARGUMENT& ALTERNJV )@@G@@ATE PRINTER&MONITOR& ASM$INTERFACE& MACROS LISTED BELOW. (NO VARIAJW )@@G@@BLES OR STATEMENT NOS. WILL BE GENERATED.)& ABORT&BUFFER& FILE& JX )@@G@@IDENTIFY& JUMP& LABELS& NAME& NEXT& READ& SCAN& UNIQUE& WRITE&JY )@@G@@@@@@@@@@@@@[@@@@@]@@@@@A@@@@@B@@@@@F@@@@@I@@@@@L@@@@@P@@@@@T@@@@@V@@@@@XJZ )@@G@@@@@@@)@@@@@=@@@@@$@@@@@*@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@4@@@@@6KA )@@G@@@@@@@8@@@@@'@@@@@/@@@@@"@@@@[@@@@@[]@@@@[ @@@@[B@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@[R@@@@[S@@@@[U@@@@[V@@@@[X@@@@[Y@@@@[)KC )@@G@@@@@@[-@@@@[+@@@@[<@@@@[=@@@@[&@@@@@@@@@@@@@@@@@@CONTROL CARD ERROR. IMAGKD )@@G@@E=& ______ & ______ ______ TPF$ _____"@@@@@O@@@@@\@@@@[]KE )@@G@@@@@@@]@@@@@@@@@@@[@@@@@G@@@@@.@@@@@*@@@@@/@@@@@,@#;@@E@#;@@ECHKCC @]%@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@KH )@@G@@@@@@@@@@@@@@ @@@@@@& ______******______TPF$& ______. . & ______KI )@@G@@IGNORE INVALID OPTION(S).& ______I OPTION. NO. TOO LARGE.& ______KJ )@@G@@I$I$I$ ______I$I$I$ ______ & ______CANNOT ASSIGN FILE. STATKK )@@G@@US=& ______ & ______CANNOT FIND ELEMENT IN FILE.& ______I/O ERROR. SKL )@@G@@TATUS=& ______PROGRAM NOT DEFINED OR OVERFLOW.& ______CONTROL CARDKM )@@G@@ IMAGE=& ______ & ______@@@@@ @@@@@@@@@@@[_____"@@[@@[@@@@@B@@@@@OKN )@@G@@@@@@@0@@@@@#@@@@@]@@@@B@@@@@@_@@@@@0@@@@@H@@@@@$@@@@@P@@@@[]@#;@@@@#;@@@KO )@@G@@CTCDIT@#+@@@@USE I$I$I$, @@@@@*@@@@@P@@@@@RKP )@@G@@@@@@@O@@@@@C@#;@@@@#;@@@TPROC @[Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F<@K\@@;^R0@@E^TT@#1EAGKR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KS )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KT )@@G@@D@@^];/C@@K3*@@@@G/K@@K6N@0@K5/K@@M1@[B^SID@@^]//C@@K'*@@@@G/K@@K"/,0@FIKU )@@G@@@@@^S^@@@^R0@[E^SIC@@^];G/@__"[@@^TND@@^TN*@@@@G1@@@@G/K@@LG/,0@G[@@@^#^KV )@@G@@@@@^S @@@^]_@@@^S @@@^TN@[I^SIC@@^];;@@@@+C@)^]'[@?^];D@@^TN*@@@@G1@@@@GKW )@@G@@/K@@L_C@@^TNG/@__"[@@@[^[@@^S*C_)@@[R/K@@@R/)@@^N[K^S*[#)^TPC@@^TP;@@@@+KX )@@G@@[@@^S(G/@__;C@)^S(G/)@@[[@@^S([@)^S%C@[^].H@]^]./C@@L%*@@@@G/K@@L'C@]^]'KY )@@G@@H@]^]"/C@@L\*@@@@G/K@@L'R@0^SAQ@0^S%R[@^SAQ[@^S(N.)@@#C@^^].[@@^TRC@<^]/KZ )@@G@@[@==].[@#=]/8L)@L4O/K@@^O/)@@^G_)@@[8LK@LW8L@@LS/,0@H8@@@^SB@@@^SC@@@^R4LA )@@G@@@[&^SI/,0@H8@@@^SD@@@^S^@@@^R6@[$^SI/,0@H8@@@^SD@@@^S^@@@^R"@[*^SIC@@^];LB )@@G@@G/@__"R/0@@^R.@@@@[@@@[^C@#^]/H@#^];*@@@@G1@@@@G/K@@M)N8O^].^^K@MX/,0@H2LC )@@G@@@@@^SC@@@^SE@@@@MX@@@^SF@[!^SIO/0@@^O.@@@^8L@@MN/,0@WG@[0^SIC/@@G?;O@@@=LD )@@G@@W@@^];[@@^TS/,0@SZ@@@^T=@@@^TS@@@^];@[2^SIN@0@M0/K@@M1@[3^SIRA0^SJC#)^S:LE )@@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!LF )@@G@@A@0^S,A[@^S\^[@^S0^[K^S1^[)^S2/K@@VAC@@^S4G/@__LY )@@G@@C/@@@I[@@^T)N8L)@@^^K@Q%/,0@H2@@@^SC@@@^SU@@@@Q%@@@^SM@@@^T)@@@^SV@]>^SYLZ )@@G@@/,0@H6@@@^S^@@@^S@@]&^SYG_)@@I8L@@QTR@K^S/C@[D/2G/@@@[[@[D/2C@@^TV;@@@@C@@^TU[@@^TYC@@^TYG/@__";O@@@=W/@@@IC@)^TXT/)@@WME )@@G@@C[@^TVT.@@@WG.@__R@K^TDC@[D/2[@@^T+G/@__"T/@@@W[@@^THC@@^THMO )@@G@@H@@^T-*@@@@G1@@@@G/K@@T(C@@^TH[@@^T-D@@^T-/C@@T!*@@@@G/K@@T0N@0@T\/K@@U6MP )@@G@@@#G^S>C@@^T-;O@@@=W/@@@WH@@^T+]@@^TPR@K^TD]@[D/2C@@^TIH@@^T+/C@@T/*@@@@GMQ )@@G@@/K@@UXC@@^TIH@@^T+C@)^T+T/)@@WC[@^TIT[@^TFC[)^TIT[)^TFG[)@@IG[)^TER@K^S-MR )@@G@@Q@K@@M[@@@[^[[@^THC@@^TPT/@@@WG@@^THG@@^TEN8W@@@^^K@UPN8L)@@^^K@UN/,0@G[MS )@@G@@@@@@UN@@@^SC@@@@UP@@@^SC@@@^S+@#O^S>C@@^TPG/@@@[[@@^TP8L@@UEC@@^TIG/@@@[MT )@@G@@C@)^T-;O)@@=W/)@@WH@@@@I[@@^TN@0@U5/K@@U6@#T^S>RA0^S&MV )@@G@@C[)^TJR@K^TKN[@^TL/K@OSRB@KGVR;K@G>'=@@[DRB@@GVP;@@@]RBW@@@R#)@G3A#?@@@RFG@@]ABW@@@PF )@@G@@O;@@@[AB@@GUR#)@G2/K@@GT@@@@@@@@@@@@@@@@@@'^@@GH/,0@K?@@@@@@/,0@HL@@@^P!PG )@@G@@@@@^QB@[^@@@/,0@H8@@@^QC@@@^QD@@@^Q#@[ @@@ @@^];/,0^@S@@@^QF@@@^QG@[B@@@PH )@@G@@D@@^QG*@@@@G1@@@@G/K@@HE/,0^@9@[D@@@C@@^QF/@@@H@/,0@K#@[H@@@/,0@K,@@@^QEPI )@@G@@@[H@@@C@VK@[[?K^QHC^:@@@[^)^QHA]0^QTC8@^QH/,0@C1/,0@DCR]0^QT/KF@@#C@FK@@PJ )@@G@@[@@^QX'^@^QZ/KF@@]R;@@@@A#@^QXR#@^Q.A#@^Q>'^@^QZR#@^Q"A#@^Q>/KF@@[C4FK@@PK )@@G@@[0@^QH/KF@@]C0@^QIS8@@@AG4K^QIG8K@@[[@VK@@/KF@@]C[@^QY/K@@H4C[FK@@O'0@@[PL )@@G@@R;0@@#/K@@IBC[@^QY/K@@H'C[FK@@O'0@@[C80@@]/K@@IBC[@^QY/K@@I@C[FK@@O'0@@[PM )@@G@@C80@@[/K@@IBC[@^QY/K@@IAC[FK@@O'0@@[C80@@@[[@^QX[@0^QUC@VK@@/CK@IOC^)^QHPN )@@G@@[^)@IKC?0^QHH80@@[C@@^Q$[@J@@@8#0@IK W@^QI/K@@IY/@K@IY%8K@@[/K@@IT W@^QIPO )@@G@@/K@@IYC8@@@@H8K@@[W8@@@A[0@^QI[4K^QIA]0^QTC8@^QH/,0@C"R]0^QTC@@^QU%8@@@]PP )@@G@@/K@@I:C^F@@[/,0@EF/,0@DC'^@^QZR]0^QT/KF@@#A[@^QRA[K^QSR F@@[&9@@@[C@FK@]PQ )@@G@@[@@^QV(CF@@#/K@@I6R9K@@@ @@^QW/K@@I/R[VK@#P9K@@[C@FK@^[@@^QWO'0@@]A]0^QTPR )@@G@@(@@^QW/K@@J C@K^QW/GK@J#C8@^Q$/,0@D;/K@@J D@@^QW/,0@D@@['^@@GH'^@@GV[Z=@@['^@@GH'^@@GVQE )@@G@@@O#@@['^@@GH'^@@GV[+>@@['^@@GH'^@@GV[<;@@['^@@GH'^@@GV[>=@@['^@@GH'^@@GVQF )@@G@@[ZO@@['^@@GH'^@@GV@WG@@]'^@@GH'^@@GV@M;@@]'^@@GH'^@@GV@W<@@['^@@GH'^@@GVQG )@@G@@@Y6@@['^@@GH'^@@GV@Y7@@['^@@GH'^@@GV@Y'@@['^@@GH'^@@GV@< @@['^@@GH'^@@GVQH )@@G@@@E8DCT C@[@@: Z$AFE@[. AHASMDCTRL )@@G@@8 @@]@@1DXI[EE@@H CE@]P@X[PROCRD @@C@@.B@#[ZE@[O CR@ @@ZQ@@D D:RM )@@G@@@@@@@@@@? D4)@+@@@)@V@@[)@R@@[DCT8 @@E@[F X2AFE@]K E)@*N@=Q@[Y G0RN )@@G@@@@@@@@@@& II)@+@@@)@V@@[)@<@@[)@R@@[)@Z@@[TBL8 @@E@[TB!CAAE@[' I4RO )@@G@@@M:[G(@@$ K,@@@@@@^?+ LP)@+@@@)@R@@[)@Z@@[)@<@@[)@V@@[ITF @@]@[ZRP )@@G@@GYH[LE@@]D.7@@K[ZOPRINT @@[@[=DUN^TC@@ED.9FINDER @@B@[\BP$[JERQ )@@G@@@[YD"#@@S[Z=@@@@@@@@@@@@@@@@@@@@@@@@)@R@@[PRTERR @@C@[;BJVGBD@@LD_-RR )@@G@@@[=[Z/@@ D_2@@@@@@@@@@@@)@+@@@)@V@@[)@R@@[HEAD1 @@A@] F,!GND@@0D_7RS )@@G@@@[F[-)@@]E@$@@@@@@@]"E@()@+@@@HEAD2 @@A@]JBKHGBD@@!E#$@[P[+:@@]E^ORT )@@G@@@@@@@@@[]E^Q)@+@@@HEAD3 @@A@]TH \[JE@@,E S@[![=@@@ EAA@@@@@@@]YEAFRU )@@G@@)@+@@@CHKCC @@B@]=BA$#IE@@(EC(@^V[>!@@AEDM@@@@@@@@GEDS)@+@@@)@V@@[RV )@@G@@RDS @@]@]%GNG[CE@@WED=@[F[%CCTCDIT @@D@]7BM2GGD@[TEE@@A\[:NRW )@@G@@@@JEFT@@@@@@@@DEF*)@+@@@)@<@@[)@Z@@[)@V@@[TPROC @@A@@@EC+]UE@@IEF1RX )@@G@@@[ [2]@@#EF_@@@@@@@[]EG])@+@@@@@@@@@@@@@@@@@@@@@MRG8 @@A@@EG/.[LERY )@@G@@@[<^R0@ES@K\@@L^TN@@@@@@ ?*^T=)@+@@@MRGHD @@A@@@F\?GND@@1EAG@[F@VBRZ )@@G@@@@]EA.@@@@@@@]"EA_)@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@*[@@@@*SDFF*@I@@@@C * THIS IS THE MAIN PROGRAM FOR DCTNRY SB )@@G@@ MAIN0001 @I@@@@ IMPLICIT INTEGER(A-Z) SC )@@G@@ MAIN0002 @I@@@@ COMMON KADDSD )@@G@@,LADD,JF11,N91(4,300),PLINE(22) MAIN0003 @I@@@@SE )@@G@@C SF )@@G@@MAIN0004 @I@@@@ CALL OPRIME ( PLINE,22 ) SG )@@G@@ MAIN0005 @C@@@@ CALL OPAP ( 1,-1,'DCTNRY 06/1SH )@@G@@1/74&' ) @I@@@@ LADD = 0 SI )@@G@@ MAIN0007 @I@@@@C DCT8 PROCESSES FORTRAN ELEMENSJ )@@G@@TS UNTIL WE ENCOUNTER A '*END' CARD MAIN0008 @I@@@@C AN END-OF-FSK )@@G@@ILE. MAIN0009 @I@@@@SL )@@G@@ 10 CALL DCT8 (IEDPG,JFT10) SM )@@G@@MAIN0010 @I@@@@C IF JFT10 IS SET MERGE THE DATA ON DRUM SN )@@G@@ MAIN0011 @I@@@@ IF (JFT10 .GT. 0) CALL MRG8 SO )@@G@@ MAIN0012 @I@@@@C IEDPG IS SESP )@@G@@T WHEN WE ENCOUNTER A '*END' CARD MAIN0013 @I@@@@SQ )@@G@@ IF (IEDPG) 20,10,20 SR )@@G@@MAIN0014 @I@@@@ 20 CALL GETOUT SS )@@G@@ MAIN0015 @I@@@@ END ST )@@G@@ MAIN0016 ___ SU )@@G@@ MAIN0016 ___^&U>90@@]/K@^&SC@@^2F'=@@@I/K@^&YR#@^@@SV )@@G@@)@@@3]GCKOG%A@@@@@)@@@S@1/74& 06/1DCTNRY@[^@@@@@@@@^@@@@M3/,0@@@@@@@@@SW )@@G@@/,0@@@AA@@@K)@#@C@)@A@;]^-)K0CS[#E-#@@@@@@/,0@@@ @@@@[@[ @@@@@@@@@@@@@@ASX )@@G@@@@@@@ /,0@@@______AB@@@K)@H[N[KL[[@K+]]@@@C@@@@@@[D@@@/,0@@@/K@@@Q1@@@@GSY )@@G@@*@@@@GD@@@@[@[B@@@@@@@@[@@@@@@AC@@@K)@R@3@K++^X#@@@@@@)@^@S@_____"@@@@@[SZ )@@G@@@@@@@Q@[H@@@@@@@@B/,0@@@@[H@@@/,0@@@/@@@@GAD@@@K)@B@C@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ENDPRGAE@@@K0@@@]@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ENDPRGAF@@@KTC )@@G@@@@^@@A@@E@@C@@U@@@@@U@@[@@ @@C]@@@@X@@@@@]@@@@@@@@@@@@@@@@NDV65K$ TD )@@G@@OPRIME OPAP DCT8 MRG8 GETOUT NINTR$ TE )@@G@@NSTOP$ N$BLNK ^[@@@@@ @@@@@@@@@@ 6 8HASM$INTFTF )@@G@@ , 8HABORT , 8HBUFFER , @E@@@@ 7 8HFILE , 8HIDENTIFY , 8HJTG )@@G@@UMP , 8HLABELS , @E@@@@ 8 8HNAME *[@@@@*SDFF*@I@@@@ TH )@@G@@SUBROUTINE DCT8 (IEDPG,JFT10) DCT800TI )@@G@@01 @I@@@@C IEDPG IS SET WHEN A '*END' CARD IS ENCOUNTERED TJ )@@G@@ DCT80002 @I@@@@C JFT10 IS SET WHEN ROUTINES ARE PROCTK )@@G@@ESSED WITH A MERGE OPTION DCT80003 @I@@@@C THE CONTROL CARD TL )@@G@@OPTIONS HAVE THE FOLLOWING MEANINGS DCT80004 @I@@@@C D TM )@@G@@ JF1=1 READ FROM PCF ON DRUM DCT800TN )@@G@@05 @I@@@@C F JF2=1 SUPPRESS PRINTING OF FORTRAN STATEMENTS TO )@@G@@ DCT80006 @I@@@@C V JF3=1 SUPPRESS PRINTING OF VARIABLETP )@@G@@ TABLE DCT80007 @I@@@@C S JF4=1 SUPPRESS PRTQ )@@G@@INTING OF STATEMENT NUMBER TABLE DCT80008 @I@@@@C T TR )@@G@@ JF5=1 SUPPRESS PRINTING OF TRANSFER TABLE DCT800TS )@@G@@09 @I@@@@C H JF6=1 SUPPRESS PRINTING OF EXPLANITORY INFORMATION TT )@@G@@ DCT80010 @I@@@@C RX JF7=1 READ FROM INPUT TAPE LOGICAL TU )@@G@@UNIT X, WHERE X = A-H DCT80011 @I@@@@C X JF8=0 THE PROGRAMTV )@@G@@ WILL CONTINUE IF IT FINDS SYNTACTIC ERRORS DCT80012 @I@@@@C P TW )@@G@@ JF9=1 PUNCH THE VARIABLE TABLE ONTO CARDS DCT800TX )@@G@@13 @I@@@@C PP =2 ALSO PUNCH THE VARIABLE FLAGS TY )@@G@@ DCT80014 @I@@@@C M JF10=1 MERGE THE VARIABLE TABLES FRTZ )@@G@@OM ALL OF THE FLAGED DCT80015 @I@@@@C PROGRAMS IUA )@@G@@NTO ONE TABLE DCT80016 @I@@@@C N UB )@@G@@ JF11=1 DO NOT CALL 'HDG' FOR PROGRAM (ALLOWS USER TO USE OWN HDG DCT800UC )@@G@@17 @I@@@@C CARD) UD )@@G@@ DCT80018 @I@@@@C L JF12=1 LIST COMMENT CARDS WHEN FORTUE )@@G@@RAN STATEMENTS ARE LISTED DCT80019 @I@@@@C U JF13=1 INCREMENTUF )@@G@@ LINE NO. OF INCLUDE STATEMENTS MDCT80020 @I@@@@C UG )@@G@@ JF13=0 DO NOT INCREMENT LINE NO. OF INCLUDE STATEMENTS MGDCT800UH )@@G@@21 @I@@@@ IMPLICIT INTEGER (A-Z) UI )@@G@@ DCT80022 @I@@@@ DIMENSION IAREG(1321),IBREG(14),JPAUJ )@@G@@RN(50),ICCD(11),IVAR(2), DCT80023 @I@@@@ ; ISAVE(14),CBUF(14UK )@@G@@) DCT80024 @I@@@@ UL )@@G@@DIMENSION FLINE(16) DCT800UM )@@G@@25 @I@@@@ EQUIVALENCE ( CBUF,ICCD ) UN )@@G@@ DCT80026 @I@@@@ COMMON /MSG/M(105) UO )@@G@@ DCT80027 @I@@@@ DIMENSION MSG(3) UP )@@G@@ DCT80028 @I@@@@ UQ )@@G@@EQUIVALENCE ( MSG,M ) DCT800UR )@@G@@29 @I@@@@ EQUIVALENCE ( IBREG,FLINE(3) ) @ US )@@G@@ MDCT80030 @I@@@@ COMMON KADD,LADD,JF11,N91(4,300),LIUT )@@G@@NE(22) DCT80031 @I@@@@ COMMON /E8DCT/ INAUU )@@G@@ME(2),KVERSN(2),LNSS,JF1,JF2,JF3,JF4,JF5, DCT80032 @I@@@@ 1UV )@@G@@ JF6,JF7,JF8,JF9,JF10,MBUF,INCFL,FILE(2),JF12,JF13,IVTE,KCTSUB, DCT800UW )@@G@@33 @I@@@@ * KOMTAB(100),KCMA,KBLNAM UX )@@G@@ DCT80034 @I@@@@ COMMON /E8ARY/NWAR,MULT,NWAR1,IRDM(1UY )@@G@@792) DCT80035 @I@@@@ COMMON /E8IPT/IPT(UZ )@@G@@1000) DCT80036 @I@@@@ VA )@@G@@EQUIVALENCE (ICCD,IPT),(ISAVE,IPT(15)) DCT800VB )@@G@@37 @I@@@@ EQUIVALENCE (IAREG,IRDM),(JPARN,IRDM(1322)) VC )@@G@@ DCT80038 @I@@@@ DATA KNMLT/4HNMLT/KNTSUB/1/KNL/6HNL@VD )@@G@@@@@/ DCT80039 @I@@@@ DATA KA,KB,KC,KD,KVE )@@G@@E,KF,KG,KH,KI,KJ,KO/O60000,O70000,O100000, DCT80040 @I@@@@ *VF )@@G@@ O110000,O120000,O130000,O140000,O150000,O160000,O170000,O240000/ DCT800VG )@@G@@41 @I@@@@ DATA KS,KT,KU,KV,KW,KX,KY,KZ/O300000,O310000,O320000,OVH )@@G@@330000, DCT80042 @I@@@@ * O340000,O350000,O360000,O370000/ VI )@@G@@ DCT80043 @I@@@@ DATA KDA,KCM,KRL,KVJ )@@G@@EQ,KDM,KAB,KEX,KLG,KCP,KDP,KIN,KPR/2HDA,2HCM, DCT80044 @I@@@@ *VK )@@G@@ 2HRL,2HEQ,2HDM,2HAB,2HEX,2HLG,2HCP,2HDP,2HIN,2HPR/ DCT800VL )@@G@@45 @I@@@@ DATA KDMVR,KFCTN,KSBRT,KSWVR/4HDMVR,4HFCTN,4HSBRT,4HSWVM )@@G@@VR/ DCT80046 @I@@@@ DATA KFA,KL/2HFA,O210000/ IBLK/1H / VN )@@G@@ DCT80047 @I@@@@ DATA KLBCM,KEND/4HVO )@@G@@LBCM,3HEND/ DCT80048 @I@@@@ VP )@@G@@DATA KCTSUB / 1 / DCT800VQ )@@G@@49 @I@@@@ DATA KCM / 6HCM@@@@ / VR )@@G@@ DCT80050 @A@@@@ DATA INMASK/ O20000000000 / @I@@@@VS )@@G@@C OFRTN8 WORKS WITH OFEXT8 TO CAUSE AN OVRFLW TO WORK LIKE AN END VT )@@G@@DCT80051 @I@@@@ CALL OFRTN8($720) VU )@@G@@ DCT80052 @I@@@@C GET NEXT AVAILABLE DRUM ADDREVV )@@G@@SS AND LAST AVAILABLE DRUM ADDRESS DCT80053 @I@@@@C INITIALIZE VW )@@G@@FLAGS DCT80054 @I@@@@VX )@@G@@C VY )@@G@@DCT80055 @I@@@@ IEDPG=0 VZ )@@G@@ DCT80056 @I@@@@ JF1=1 WA )@@G@@ DCT80057 @I@@@@ JFT10=0 WB )@@G@@ DCT80058 @I@@@@WC )@@G@@ LSNGEN=0 @ GENERATE-STATEMENT NO. FLAG WD )@@G@@DCT80059 @I@@@@ 10 NF1=0 WE )@@G@@ DCT80060 @I@@@@ NF2=0 WF )@@G@@ DCT80061 @I@@@@ NF3=0 WG )@@G@@ DCT80062 @I@@@@WH )@@G@@ IPFG=0 WI )@@G@@DCT80063 @I@@@@ IFLAG=0 WJ )@@G@@ DCT80064 @I@@@@ INCFL=0 WK )@@G@@ DCT80065 @I@@@@ LCT=0 WL )@@G@@ DCT80066 @I@@@@WM )@@G@@ MULT=0 @ 0 MULTIPLE STATEMENT COUNTER MWN )@@G@@DCT80067 @I@@@@C INITIALIZE TBL8 WO )@@G@@ DCT80068 @#@@@@ CALL TBL1 @I@@@@C INITIWP )@@G@@ALIZE THE ERROR RETURN DCT80070 WQ )@@G@@@I@@@@ CALL ERRST8 WR )@@G@@ DCT80071 @I@@@@C READ THE CONTROL CARD WS )@@G@@ DCT80072 @I@@@@ 20 CALL MOVER ( ' ',0,WT )@@G@@CBUF,1,14 ) @ BLANK CARD BUFFER DCT80073 @I@@@@ CALL CWU )@@G@@SF ( '@FREE,A I$I$I$. . ',3,STAT ) DCT80074 WV )@@G@@@I@@@@ STAT=READ(CBUF,$30) WW )@@G@@ DCT80075 @[@@@@C @E@@@@C CHECK IF PROCESSOR CALL OF DCT - WX )@@G@@IGNORE INFOR BUFFER @B@@@@ IF ( AND(INMASK,STAT).GT.0 )GO TO 20WY )@@G@@@I@@@@C CTCDIT INTE@K[_8@___@@@@@@@@@)@@@@@@@@@@@@@@@@@@K[8W@_____0WZ )@@G@@__@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@XA )@@G@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@@@@@@@@@@@@@)@@@@@*@@@@@SYS$ SYS$MAXB )@@G@@P EXEC8$ U[)[@[@@@@@@@K[_88@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@KK[_9OSYS$ SYS$MAP EXEC8$ 4122103000 @@@@@@E^EN_1@K[_8WXE )@@G@@[]@@@@@@@@@@@@@@@@@@@@@[@@@@@@UL@@@[E^EO@ZE^EO@Z@@@@@@@^@@@@@@ @@A@@ @@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@@@@K[_88KK[8@@KK[88@KK[9O@KK[90@KK['G@KK['*@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@642948 DOT5XAXI )@@G@@ #@L(R[RS 10574 #@?-HE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@=@@@@@LMP 81 #@^XRP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@679029 ED$TB679029 #@HS>[@@@@@@@@@@@@XN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@617624 617624XP )@@G@@ #@!OBI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XR )@@G@@@K[__@)@@@@@K^[-?@K^[+C@K^[=0@K^[>G@K^[>*@K^[&^@K^[&)@K^[&/@K^[$S@K^[$4@XS )@@G@@K^[*K@K^[*?@K^[(C@K^[(=@K^[%@@K^[%8@K^[?G@K^[?*@K^[!^@K^[!)@K^[!/@K^[,S@XT )@@G@@K^[,4@K^[\K@K^[\?@K^[0C@=@@@@@658746 MDSAPM #@% 9S@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@618405 F21315XW )@@G@@0843 #@C'?K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@=@@@@@668994 WW #@^'Y9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@NEPSAP ITERATION1 #@^'1T@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@680066 BATCH YD )@@G@@ #@,VVX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@=@@@@@660686 E10H #@AHK.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@674690 ROTSV #@WQV[@@@@@@@@@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K[__W@K[_;)K^#;)@K^#;/@YK )@@G@@K^#/S@K^#/4@K^#.K@K^#.?@K^#"C@K^#"=@K^[S^@K^[S)@K^[S/@K^[TS@K^[T4@K^[UK@YL )@@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@YM )@@G@@@K[8X0@K[__@K^#0C@K^#0=@K^#1@@K^#1W@K^#18@K^#2O@K^#20@K^#3G@K^#3*@K^#4^@YN )@@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@YO )@@G@@K^#90@K^#'G@K^#'*@K^#;^@@K[@@@___________J________________________@@@@@@YP )@@G@@@@@@@@@@@@@@@@@@@@KG@@@@K %]YTKG@@@@K %]YTKG@@@@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@B@@@@@B@@@@@B@@@@@B@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0T.C3\YT )@@G@@\3TF?!\8Z0;'2(N___HQK@@@2+8___0T?& X\3>2)UKB2#M>HON^@@2:0(__HYR@@@0TU=3AYU )@@G@@KG&4N?KBC!6M2'@@@@H )@@@23$___0T?&AZKG3VBN\9H+[CHJ&)@@20J___HWG@@@0VA,U#YV )@@G@@J 8:3C\;G[29K^3"H^\0'M7/0U%\E?YW )@@G@@0'W%Z_0TL?M"K 1I05\'I1I1KG19'(0U9P[%0'HZ#_J&_C$*\978PJKACB%1\1RYZ,\8_".=YX )@@G@@J$/FY^\3>+:V0)\ 50JZK'E60UYU&3KBNFA]0ST0V.4HFJ&:3:*\8?49W0N7]'IKG_,T#J=MGES0V!35>J?*6M'@@@@@@YZ )@@G@@@@@@@@@@@@@@J.Z"LZJ_-PI'\81HVP@@@@@@@@@@@@@@@@@@\2CC\HK^'++/K .,>6@@@@@@ZA )@@G@@@@@@@@@@@@@@0]GH:N\'1>_-KB@0@6@@@@@@@@@@@@@@@@@@KH'(U6\;_YX+\36223@@@@@@ZB )@@G@@@@@@@@@@@@@@JW-- C0N-II;0U#PC[@@@@@@@@@@@@@@@@@@JW!8_/J=^.&KJ&G/*)@@@@@@ZC )@@G@@@@@@@@@@@@@@JXYMYS0N<:AH0TTG(\@@@@@@@@@@@@@@@@@@JXJOEYJZ*)R?J&O,MO@@@@@@ZD )@@G@@@@@@@@@@@@@@J"Y]SV\1>8A'\3\3Q;@@@@@@@@@@@@@@@@@@0[KK+=\'E3A.\3=EW3@@@@@@ZE )@@G@@@@@@@@@@@@@@0@F#F9KIQ$YMKG,O8D@@@@@@@@@@@@@@@@@@J_Z-8XK XN:2)L\8H/!$HIO)@@210.__2ZI )@@G@@0'W%>_J&,N!7K 1I1]\'I1I\\3IA $0U9P]]J OCG@0UBOIM\;G[2$K^3"HNKJ !CJKB@[]RZJ )@@G@@0S#4Z:\3>+:ZJZK'G-0)\ 3B0UYU=.KBNFACK^@-+M\3622)@@@@@@ZM )@@G@@@@@@@@@@@@@@J.32OAK IU@/KB@0@4@@@@@@@@@@@@@@@@@@KH77K\\; XX K .,&K@@@@@@ZN )@@G@@@@@@@@@@@@@@08A5KGKG*.@@@@@@@@@@@@@@@@@@J_Z-9]K XN:I\3Y&Y4@@@@@@ZQ )@@G@@@@@@@@@@@@@@0@F#GMKIQ$Y \3L:BX@@@@@@@@@@@@@@@@@@0[KK+T\'E3A3KGV5O-2'IU:DEO0@@@KJONA5GW,_+/0L?@&U2%7-G>HPCY3PG66DB*DW%B?_ZT )@@G@@KO$J!KH^!XG]HO7.A.2:C]8!5*____G>2K[<0L?@=9\0:?9D@@@@@@@@@@@@@@@@@@6U-H7_ZU )@@G@@\:S0MSHIDQ=V2(DB:(HQ68O05T____G!_8F>0L?@&1KJONA3HGW:0323+831?@=6G>)+1#KHYSO%\2-$:XJ\NQ>0EA^6R>ZW )@@G@@HXPSE223I2@_\2IU:-KH1>O42\2-6Y*2;____@@@@@@@@@@@@@@@@@@JOU"6)0LC*0\KOZG Q@@@@@@ZZ )@@G@@@@@@@@@@@@@@3#____G"@@@@\1JI@F@@@@@@@@@@@@@@@@@@K %I]%KGZG Q0<>[B_@@@@@@AA )@@G@@@@@@@@@@@@@@2:____G6*@@@KJ):3B@@@@@@@@@@@@@@@@@@\'P1.Z\3)3'=0<>[DZ@@@@@@AB )@@G@@@@@@@@@@@@@@3LV"'B3EO;\!2(W\=C@@@@@@@@@@@@@@@@@@GZ2?^KG7,AMKHRE^?S@@@@@@AC )@@G@@@@@@@@@@@@@@3@J #;2'Q[-H2<%A:V@@@@@@@@@@@@@@@@@@H^,,M'H %AC%HWMQKXKG:TTPAD )@@G@@3D6P,OKID%L%@@@@@@@@@@@@@@@@@@\3B3K9@@@@@@KH84" @@@@@@@@@@@@@@@@@@\296,DAE )@@G@@G6D%MK\16P!0@@@@@@@@@@@@@@@@@@KG8G\UG/37?M\1>)UM@@@@@@@@@@@@@@@@@@G>S%#JAF )@@G@@KID%L(KG:TTO@@@@@@@@@@@@@@@@@@GZ!%?YKH84"#\3B3K;@@@@@@@@@@@@@@@@@@G=0D/FAG )@@G@@\16P!1\296,E@@@@@@@@@@@@@@@@@@G$_5>A\1>)UOKG8G\T@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@\'P)" \3A%+8\0)UP@@@@@@@@@@@@@@@@@@KHADL.AK )@@G@@G6D%MB\16P!'@@@@@@@@@@@@@@@@@@KG8G\@3#>SLMKH84"K@@@@@@@@@@@@@@@@@@3U$P/2AL )@@G@@KID%L*\3O&&,@@@@@@@@@@@@@@@@@@GZ!%!@\1>)UR\3B3K>@@@@@@@@@@@@@@@@@@3VJ6#,AM )@@G@@\16P!;KHADL/@@@@@@@@@@@@@@@@@@G$_5=VKH84"KKG8G,_@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@K %Z[3KG9PX^\0;-G/UIU'0+2E+5JYE]1 MQQK@@M?20XPKRL&IGKRL&IFM&US'%AQ )@@G@@M?20XOK^C&;@MB#&I7MB#&IRM&'2EXM\[DD?KQJWZ-KWD7"-MOO:@5M\9>;-G/UIU'0+2E+5AR )@@G@@JYE]1 MQQK@@M?20XPKRL&IGKRL&IFM&US'%M?20XOK^C&;@MB#&I7MB#&IRM&'2EXM\[DD?AS )@@G@@KQJWZ-KWD7"-MOO:@5M\9>;-G/UIU'0+2E+5JYE]1 MQQK@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@^@@@@@^@@@@@^@@@@@ @@@@@S@@@@@%BG )@@G@@J6, B?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@MXLUR8MG3MOLL$92Y=__________________MG3MOLMX1[-6L$92-E__________________BI )@@G@@L$92Y=L$92-EMH(!R1____________________________________LXY11@L^]&B^KI&"B4BJ )@@G@@__________________L^]&B^LYD\ASKI&"(;__________________KI&"B4KI&"(;L *_46BK )@@G@@@@@@0U@@@@0V@@@@0W@@@@0X@@@@@@@@@@0Y@@@@25@@@@26@@@@27@@@@28@@@@@@@@@@29BL )@@G@@@@@@2:@@@@2?@@@@2!@@@@2,@@@@@@@@@@2\@@@@0K@@@@0L@@@@0M@@@@0N@@@@@@@@@@0OBM )@@G@@@@@@@@@@@@@A@@@@@S@@@@@-@@@@@Y@@@@@A@@@@@G@@@@@S@@@@@=@@@@@-@@@@@G@@@@@MBN )@@G@@@@@@@S@@@@@$@@@@@=@@@@@M@@@@@@@@@@@S@@@@@Y@@@@@$@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@0U;2Y50#"E8S2-]:B021E8TNG"%/">@@@@@@J ";@J03Y@V021:C1&0N>NX2BQ )@@G@@0DW.G1HOI[N/03L9%TJ>8+B.3U)Y/*0NUNPT0D\JN32;DAO/0%VN''1M)+9O0CCF9DJ/ZR_CBR )@@G@@0E]\WY@@@@@@1N&_ %IW")S&J/210;IS@B0[R7DD1#FA9FI!%KT[JWL.VD0:4P >BS )@@G@@0;II*#J7=$BP0C[9-/00D)MTJP)MFV0(,A84JOE&BG@@@@@@01,C2FI_B$8T0(NMO]0E[DX4BT )@@G@@0TE;'PJW*>@K0-AKFOJO#[:=1E@7Y60E[H 0TE,EQ0%!C%H3U9R %GY/0K4J6$#M>0]0!#PBU )@@G@@J!(?+W@@@@@@____________0L+R_3____________J._EE*____________01U,'F______BV )@@G@@______0MFU^"F/",8O4FE2-:00WVQGJH@@<]02C\E5@@@@@@____________JRD-P]______BW )@@G@@______0:RD19____________I4*WR?____________JOAGJ=GZB4093( 2?]0E&H; J\D% 7BX )@@G@@0F3%\E@@@@@@____________J.BD0%____________0DRYE3____________JQ$/YW______BY )@@G@@______J56.)MJ>#K=K0C[#_?2)+'KU21NV!C2'/&!E@@@@@@J?W9R[0D>-=)2:;5HE1]+N',BZ )@@G@@0S2RT.HJI[#BJ?=RL'0D+ ^;HA\S6@@@@@@@@@@@@@@@@@@@JP-&(Y1-F*Q+0CC=Z1J/ZW:=CA )@@G@@J5_MZW@@@@@@JOB[.F0;V#WAJ"G,!;1E?FQH1SS(J)0](7,GJOFG@S0;V9=20CT 7'@@@@@@CB )@@G@@@@@@@@@@@@@@0CAN9,J^72DV0%Z_#*JQL_!2JOG@"R@@@@@@0EB5\7J&+;::JWPUW&JR>_M:CC )@@G@@JHWW^O0*-+ I0E[9M/J&-,VS0%:-6>@@@@@@@@@@@@@@@@@@GYA0Q?3-\IJK0DTGR>J.JS3CCD )@@G@@J!,<,U@@@@@@____________J.6K>O____________0F!_2"____________0MD:______CF )@@G@@______JR)I17____________JOB<"$@@@@@@@@@@@@@@@@@@GXR]K,3(:NN/0E&-\8J\EV;?CG )@@G@@J4H%:4@@@@@@____________J5!,WV____________0]*&.B____________0EB [D@@@@@@CH )@@G@@@@@@@@@@@@@@0*S/\]0C[[BHH=J\^%3F6\F229G8^W@@@@@@I5#O4_JGK0 43LJDJ40T-WV7CI )@@G@@0DYH3B29[M)602;/XNJ$D0^%3C/<740TE^;U0D?#+ZG"Z$<9JP([?LI")D:N0#/GEL0DA_;TCJ )@@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-DPVCL )@@G@@0M"@-"JPT;]W0+5LF$JP:T80JQBQGP0D-/U*0N]"K_0ACM )@@G@@J!+_E.@@@@@@____________JZ8N( ____________J!%"UL____________J!+5\V______CN )@@G@@______0]N\<YI00"34W1[TV7DJJ'K9+@@@@@@____________I/V"J&______CO )@@G@@______JJ3M]4____________JQ+X^^____________01#OGY3--@0VG>#Z/9J5[GSVJ=,E]0CP )@@G@@0EP_2-@@@@@@____________0-(9]R____________0EU_M7____________0#O2C=______CQ )@@G@@______J4."G&JR:G':0C^'>SH==N?*3(HB&QH^;ZC\@@@@@@J&><-Q0D-6?-H GMH-JA9^B;CR )@@G@@0T0N.9GYHO&BJ&5DFZ )@@G@@ ENTRY@E@@@@ J NR11 . $T WAS IT FOUND ? GA )@@G@@@E@@@@ J NR2 . $A YES,NR2 NO,NR11 @A@@@@GB )@@G@@NR10 L A0,(-1) . @G@@@@ S,H1 A0,3,X8 GC )@@G@@. $P SET BAD LN # FLAG IN LENGTH IN PARAM @E@@@@ JNB A4,NR12 GD )@@G@@ . $T IS THIS NEXT-LN FNC @C@@@@ GE )@@G@@. $A YES NO,NR12 @G@@@@NR11 SZ,H1 3,X8 . $P PUT ZERO IN LGF )@@G@@ENGTH OF PARAM @E@@@@ L A0,LNNUM . $P GET LASGG )@@G@@T LINE IN PROC @E@@@@ A A0,LNINC . $P INC TO NEXT LGH )@@G@@INE @A@@@@ TG,U A0,2001 . @A@@@@ L,UGI )@@G@@ A0,2000 . @A@@@@ S,H2 A0,2,X8 . @C@@@@GJ )@@G@@NR12 SZ,H1 2,X8 . $P ZERO LINE-# @C@@@@ J *REGK )@@G@@TURN . $E RETURN @]@@@@ . @A@@@@ . GL )@@G@@ ** PF$AMW ** @]@@@@ . @C@@@@ . ROUTINE TO WRITE A LGM )@@G@@INE TO THE FILE @A@@@@ . FOR A PARTICULAR PROC@]@@@@ . GN )@@G@@ @^@@@@ . CALL IS @A@@@@ . LX,U X10,PGO )@@G@@ARAM @A@@@@ . LMJ X11,PF$AMW @C@@@@ . WHEGP )@@G@@RE PARAM IS FOLLOWING @E@@@@ . PARAM + PRGQ )@@G@@OC-NAME (2 WORDS) @G@@@@ . + LINE-#,[GR )@@G@@NEXT-LINE-#] (N-L-# RETURNED)@E@@@@ . + LEGS )@@G@@NGTH,BUF-ADDR @]@@@@ . @G@@@@ . THE ROUTINE CHGT )@@G@@ECKS TO SEE IF LINE-# HAS BEEN PREVIOUSLY @G@@@@ . ENTGU )@@G@@ERED, AND IF SO REPLACES IT WITH THE NEW LINE @]@@@@ . GV )@@G@@@C@@@@PF$AMW*. . $H PF$AMW @A@@@@ L GW )@@G@@ A4,(-1) . @C@@@@ J RNWS . $J RNWS GX )@@G@@ @]@@@@ . @E@@@@ . THIS PART OF LOGIC HANDLES STOREGY )@@G@@ OF LINE @C@@@@ . WHERE LINE # ALREADY EXISTS GZ )@@G@@@]@@@@ . @E@@@@W1 L A2,LNCNT . $P DECREMENT LINHA )@@G@@E COUNT @A@@@@ AN,U A2,1 . @A@@@@ S HB )@@G@@ A2,LNCNT . @E@@@@ TG,U A1,1900 . $T IS LINEHC )@@G@@ # < 1900 ? @G@@@@ SLJ LNWARN . $W LNWARN - PRINHD )@@G@@T MAX LINE WARNING @A@@@@ AN,U A0,1 . @E@@@@HE )@@G@@ L R3,A0 . $P SAVE INDEX ADDR FOR LINE @E@@@@ HF )@@G@@ L A0,0,A0 . $P GET ADDR OF OLD LINE @A@@@@ LSSHG )@@G@@L A0,12 . @A@@@@ SSL A0,12 . @A@@@@HH )@@G@@ L A5,A0 . @E@@@@ L,H1 A2,3,X8 HI )@@G@@. $P GET NEW LINE LENGTH @E@@@@ A,U A2,5 . $P AHJ )@@G@@DD WORD FOR HEADER @A@@@@ SZ A1 . @G@@@@HK )@@G@@ DI,U A1,6 . $P CONVERT LENGTH TO WORD LENGTH HL )@@G@@@A@@@@ A,U A1,1 . @E@@@@ L,H2 A3,0,A0 HM )@@G@@ . $P GET OLD LINE LENGTH @E@@@@ A,U A3,5 HN )@@G@@. $P ADD WORD FOR HEADER @A@@@@ SZ A2 . HO )@@G@@@G@@@@ DI,U A2,6 . $P CONVERT LENGTH TO WORD LENGTH HP )@@G@@ @A@@@@ A,U A2,1 . @G@@@@ TNE A1,HQ )@@G@@A2 . $T ARE OLD & NEW WORD LENGTHS EQUAL ? @C@@@@ J HR )@@G@@ W54 . $A NO YES,W54 @G@@@@ TG A1,A2 HS )@@G@@. $T WILL NEW LINE FIT IN OLD SPACE ? @C@@@@ J W3 HT )@@G@@ . $A YES NO,W3 @G@@@@ AN A2,A1 . $P CALCULAHU )@@G@@TE EXTRA SPACE SIZE AND LOC @A@@@@ AU A2,A5 . HV )@@G@@@G@@@@ SLJ ADDSTK . $W ADDSTK - PUT EXTRA SPACE ON AVAHW )@@G@@IL STK@C@@@@ J W54 . $J W54 @G@@@@W3 HX )@@G@@ L A3,A5 . $P GET SIZE AND LOC OF OLD LINE @G@@@@HY )@@G@@ SLJ ADDSTK . $W ADDSTK - PUT SPACE ON AVAIL STACK HZ )@@G@@@C@@@@ J W50 . $J W50 @]@@@@ . IA )@@G@@@C@@@@ADDSTK + 0 . $H ADDSTK @A@@@@ SZ IB )@@G@@ A4 . @A@@@@ L R1,AVCNT . @E@@@@IC )@@G@@ L X10,(1,AVSTK) . $P SET PTR TO AVAIL STACK @E@@@@ ID )@@G@@ SE,T1 A4,0,*X10 . $P FIND EMPTY SLOT ON STACK @A@@@@ J IE )@@G@@ ADD2 . @A@@@@ AN,U X10,1 . @A@@@@IF )@@G@@ J ADD3 . @A@@@@ADD2 L A4,AVCNT IG )@@G@@. @A@@@@ TG,U A4,500 . @A@@@@ J *ADIH )@@G@@DSTK . @A@@@@ A,U A4,1 . @A@@@@ II )@@G@@ S A4,AVCNT . @E@@@@ADD3 S A3,0,X10 . $P PIJ )@@G@@UT ENTRY INTO STACK @A@@@@ S,T1 A2,0,X10 . @C@@@@IK )@@G@@ J *ADDSTK . $E RETURN @]@@@@ . @E@@@@IL )@@G@@ . THIS SECTION OF LOGIC HANDLES WRITE FNC @C@@@@ . IM )@@G@@ FOR THE CASE OF A NEW LINE-# @]@@@@ . @E@@@@W40 IN )@@G@@ TG,U A1,1900 . $T IS LINE-# < 1900 ? @G@@@@ SLJIO )@@G@@ LNWARN . $W LNWARN - PRINT MAX LN WARNING @E@@@@ IP )@@G@@ L A0,LNCNT . $P GET # LINES AS INDEX CNT @A@@@@ SZ IQ )@@G@@ A4 . @G@@@@ TG,U A0,PRMXLN . $T HAVE MAIR )@@G@@X # LINES BEEN INPUT @C@@@@ J NR10 . $A NIS )@@G@@O YES,NR10 @A@@@@ L R1,A0 . @E@@@@ L IT )@@G@@ A0,INDXAD . $P GET START OF INDEX BLOCK @G@@@@ LXI,U A0,IU )@@G@@1 . $P SEARCH INDEX BLOCK FOR INSERT POINT @E@@@@ SG,IV )@@G@@T1 A1,0,*A0 . $T IS IT AT END OF BLOCK ? @C@@@@ J W41IW )@@G@@ . $A NO YES,W41 @E@@@@ A A0,R1 . $P GIX )@@G@@ET END OF INDEX BLOCK @G@@@@ LXI,U A0,-1 . $P SET INDIY )@@G@@ICES TO SHIFT INDEX BLOCK @A@@@@ L X9,A0 . IZ )@@G@@@A@@@@ AN,U X9,1 . @E@@@@ L A2,R1 JA )@@G@@ . $P GET SHIFT COUNT @A@@@@ A,U A2,1 JB )@@G@@. @A@@@@ L R1,A2 . @G@@@@ BT A0,JC )@@G@@0,*X9 . $P SHIFT INDEX BLOCK TO ALLOW NEW ENTRY @A@@@@W41 L JD )@@G@@ R3,A0 . @G@@@@W50 L,H1 A1,3,X8 . $P GET LINJE )@@G@@E LENGTH FROM PARAM @E@@@@ A,U A1,5 . $P AJF )@@G@@LLOW FOR HEADER WORD @A@@@@ SZ A0 . @G@@@@JG )@@G@@ DI,U A0,6 . $P CONVERT LENGTH TO WORD LENGTH JH )@@G@@@A@@@@ A,U A0,1 . @G@@@@ TNZ AVCNT JI )@@G@@ . $T IS THERE VACANT ALLOCATED SPACE ? @C@@@@ J W52JJ )@@G@@ . $A YES NO,W52 @A@@@@ L R1,AVCNT . JK )@@G@@@G@@@@ L A1,(1,AVSTK) . $P SET PTR TO AVAIL SPACE STACK JL )@@G@@ @G@@@@ SE,T1 A0,0,*A1 . $T IS THERE VACANT SPACE OF JM )@@G@@NEEDED SIZE?@C@@@@ J W51 . $A YES NO,W51 @A@@@@JN )@@G@@ AN,U A1,1 . @G@@@@ L A2,0,A1 JO )@@G@@. $P GET VACANT SPACE ENTRY FROM STACK @E@@@@ SZ 0,A1 JP )@@G@@ . $P CLEAR STACK ENTRY @G@@@@ LSSL A2,12 JQ )@@G@@. $P GET RELATIVE WORD ADDR OF SPACE @A@@@@ SSL A2,12 JR )@@G@@ . @C@@@@ J W53 . $J W53 @A@@@@JS )@@G@@W51 L R1,AVCNT . @G@@@@ L A1,(1,AVSTK) JT )@@G@@. $P SET PTR TO AVAIL SPACE STACK @G@@@@ SG,T1 A0,0,*A1 JU )@@G@@ . $T IS THERE ENTRY WITH ENOUGH SPACE ? @C@@@@ J W52JV )@@G@@ . $A YES NO,W52 @A@@@@ AN,U A1,1 . JW )@@G@@@E@@@@ L,T1 A4,0,A1 . $P GET # WORDS VACANT @A@@@@JX )@@G@@ AN A4,A0 . @G@@@@ L A2,0,A1 JY )@@G@@. $P GET REL WORD ADDR OF VACANT SPACE @A@@@@ LSSL A2,12 JZ )@@G@@ . @A@@@@ SSL A2,12 . @A@@@@ AU KA )@@G@@ A2,A0 . @G@@@@ S A3,0,A1 . $P UPDATE KB )@@G@@AVAIL STK ENTRY TO GIVE LEFT @E@@@@ S,T1 A4,0,A1 . $ OKC )@@G@@VER VACANT SPACE @C@@@@ J W53 . $J W53 KD )@@G@@ @G@@@@W52 L A2,NXTADR . $P GET NEXT UNALLOCATED SPACKE )@@G@@E FOR PROC @G@@@@ TNZ NXTADR . $T HAS NEW SPACE BUFFEKF )@@G@@R BEEN GOTTEN @C@@@@ J W521 . $A YES NO,W521 KG )@@G@@@G@@@@ AU A2,A0 . $P GET END OF NEW LINE IN THIS BUFKH )@@G@@FER @E@@@@ TG A3,LSTADR . $T WILL LINE FIT IN BUFFER KI )@@G@@@C@@@@ J W521 . $A YES NO,W521 @E@@@@ S KJ )@@G@@ A3,NXTADR . $P SAVE NEXT NEW ADDR @C@@@@ J W53KK )@@G@@ . $J W53 @E@@@@W521 L A3,A0 . $P SKL )@@G@@AVE NEW LINE LENGTH @E@@@@ L A0,LAST$D . $P MCORE NKM )@@G@@EW SPACE BUFFER @A@@@@ A,U A0,1 . @A@@@@ KN )@@G@@ L A2,A0 . @A@@@@ A,U A0,512 . KO )@@G@@@G@@@@ S A0,LSTADR . $P SAVE END ADDR OF NEW BUFFER KP )@@G@@ @A@@@@ AN,U A0,1 . @A@@@@ S A0,KQ )@@G@@LAST$D . @A@@@@ ER MCORE$ . @E@@@@ KR )@@G@@ L A0,A3 . $P RESTORE NEW LINE LENGTH @G@@@@ AU KS )@@G@@ A2,A0 . $P GET END OF NEW LINE IN THIS BUFFER @E@@@@ KT )@@G@@ S A3,NXTADR . $P SAVE NEXT NEW ADDR @G@@@@W53 L KU )@@G@@ X9,R3 . $P GET INDEX ENTRY ADDR FOR LINE @E@@@@ KV )@@G@@ S A2,0,X9 . $P SAVE ADDR IN INDEX @E@@@@ L,HKW )@@G@@1 A1,2,X8 . $P GET LINE-# FROM PARAM @E@@@@ S,T1 A1,KX )@@G@@0,X9 . $P SAVE LINE # IN INDEX @A@@@@ L A0,A2 KY )@@G@@ . @A@@@@W54 LXI,U A0,1 . @E@@@@ L,HKZ )@@G@@1 A1,2,X8 . $P GET LINE-# FROM PARAM @E@@@@ S,H1 A1,LA )@@G@@0,A0 . $P SAVE IT IN LINE HEADER @G@@@@ TG A1,LNNUM LB )@@G@@ . $T IS IT LESS THAN LAST-LINE-# ? @E@@@@ S A1,LC )@@G@@LNNUM . $P SAVE IT AS LAST-LINE-# @E@@@@ A A1,LNINC LD )@@G@@ . $P INCREMENT LINE # @E@@@@ TG,U A1,2001 LE )@@G@@. $T IS NEXT # < 2001 @E@@@@ L,U A1,2000 . $P SLF )@@G@@ET NEXT # TO 2000 @G@@@@ S,H2 A1,2,X8 . $P PUT IT LG )@@G@@IN NEXT-LINE-# OF PARAM @E@@@@ L,H1 A2,3,X8 . $P GLH )@@G@@ET LENGTH FROM PARAM @E@@@@ S,H2 A2,0,*A0 . $P SAVE ITLI )@@G@@ IN LINE HEADER @G@@@@ AN,U A2,1 . $P CONVERT CHAR LJ )@@G@@LENGTH TO WORD LENGTH @A@@@@ SZ A1 . @A@@@@LK )@@G@@ DI,U A1,6 . @A@@@@ A,U A1,1 LL )@@G@@. @G@@@@ L R1,A1 . $P SAVE IT FOR TRANSFER COUNLM )@@G@@T @E@@@@ L,H2 X9,3,X8 . $P GET BUF-ADDR FROM PLN )@@G@@ARAM @A@@@@ LXI,U X9,1 . @G@@@@ BT A0,LO )@@G@@0,*X9 . $P TRANSFER LINE TO BLOCK BUFFER @A@@@@ L LP )@@G@@ A1,LNCNT . @E@@@@ A,U A1,1 . $P INCREMELQ )@@G@@NT LINE COUNT @A@@@@ S A1,LNCNT . @C@@@@ LR )@@G@@ J *RETURN . $E RETURN @]@@@@ . @A@@@@ . LS )@@G@@ ** PF$AMD ** @]@@@@ . @C@@@@ . ROUTINE LT )@@G@@TO DELETE A LINE FROM PS$FILE @]@@@@ . @^@@@@ . CALL IS LU )@@G@@ @A@@@@ . LX,U X10,PARAM @C@@@@ . LV )@@G@@ LMJ X11,PF$AMD (PF$AMDN) @C@@@@ . WHERE PARAM IS FOLLOWLW )@@G@@ING - @E@@@@ . PARAM + PROC-NAME (2WORDS) LX )@@G@@ @E@@@@ . + LINE-#,[NEXT-LINE-#] LY )@@G@@@]@@@@ . @C@@@@PF$AMD*. . $H PF$AMD LZ )@@G@@@C@@@@ L,U A4,2 . $P SET FLAG @C@@@@ J MA )@@G@@ RNWS . $J RNWS @C@@@@PF$AMDN*. MB )@@G@@. $H PF$AMDN @C@@@@ L,U A4,3 . $P SET FLAG MC )@@G@@@C@@@@ J RNWS . $J RNWS @E@@@@D1 TE,MD )@@G@@U A4,2 . $T IS THIS DEL NEXT FNC ? @C@@@@ J D2 ME )@@G@@ . $A NO YES,D2 @G@@@@ AN,U A0,1 . $P RMF )@@G@@ESET TO INDEX ENTRY FOR THIS LINE @A@@@@ ANU,U A0,1 MG )@@G@@. @A@@@@ SZ A5 . @A@@@@ TG A1,MH )@@G@@INDXAD . @E@@@@ L,T1 A5,0,A1 . $P GET PRIOR LINMI )@@G@@E # @A@@@@ LSSL A5,18 . @E@@@@ A,HMJ )@@G@@1 A5,2,X8 . $P SAVE THIS LINE # @C@@@@ J D10MK )@@G@@ . $J D10 @E@@@@D2 JGD R1,D10 . $T IML )@@G@@S THERE ANOTHER INDEX @C@@@@ J NR11 . $A YES NO,MM )@@G@@NR11 @E@@@@D3 L A5,2,X8 . $P SAVE LINE # AND NEXT # MN )@@G@@@E@@@@D10 L A2,LNCNT . $P DECREMENT INDEX KEY CNT @A@@@@MO )@@G@@ AN,U A2,1 . @A@@@@ S A2,LNCNT MP )@@G@@. @E@@@@ L A3,0,A0 . $P SAVE INDEX KEY MQ )@@G@@@A@@@@ L A1,R1 . @E@@@@ SZ R2 MR )@@G@@ . $P GET ACTUAL NEXT LINE # @A@@@@ TZ A1 MS )@@G@@. @A@@@@ L,T1 R2,1,A0 . @G@@@@ L X9,MT )@@G@@A0 . $P SET INDICES FOR KEY TRANSFER @A@@@@ A,UMU )@@G@@ X9,1 . @E@@@@ BT A0,0,*X9 . $P PACK INMV )@@G@@DEX KEY BLOCK @C@@@@ LSSL A3,12 . $P GET WORD ADDRMW )@@G@@@A@@@@ SSL A3,12 . @A@@@@ L A0,A3 MX )@@G@@ . @E@@@@ L,H2 A2,0,A0 . $P GET LINE CHAR LENGTMY )@@G@@H @E@@@@ A,U A2,5 . $P ADD HEADER WORD MZ )@@G@@@A@@@@ SZ A1 . @G@@@@ DI,U A1,6 NA )@@G@@ . $P CONVERT LENGTH TO WORD LENGTH @A@@@@ A,U A1,NB )@@G@@1 . @A@@@@ L A2,A1 . @G@@@@ NC )@@G@@ SLJ ADDSTK . $W ADDSTK - PUT ENTRY ON AVAIL STACK @E@@@@ND )@@G@@ S A5,2,X8 . $P SET LINE #, NEXT # @G@@@@ NE )@@G@@ S,H1 R2,3,X8 . $P STORE ACTUAL NEXT LN # IN PARAM @C@@@@NF )@@G@@ J *RETURN . $E RETURN @]@@@@ . @A@@@@NG )@@G@@ . ** PF$AMQ ** @]@@@@ . @C@@@@ . RONH )@@G@@UTINE TO RESET LINE INCREMENT @]@@@@ . @^@@@@ . CANI )@@G@@LL IS @C@@@@ . L A0,NEW-INCREMENT @A@@@@NJ )@@G@@ . LMJ X11,PF$AMQ @]@@@@ . @C@@@@PF$AMQ*. NK )@@G@@ . $H PF$AMQ @E@@@@ S A0,LNINC NL )@@G@@. $P RESET INCREMENT @C@@@@ J 0,X11 . $E RNM )@@G@@ETURN @]@@@@ . @E@@@@ . THE FOLLOWING ROUTINES PRONN )@@G@@DUCE MESSAGES ON @C@@@@ . DETECTION OF CERTAIN CONDITNO )@@G@@IONS @]@@@@ . @E@@@@ . 1. PROC NOT INITIALIZED BEFORENP )@@G@@ R/W ATTEMPTED @]@@@@ . @C@@@@NOPROC. NQ )@@G@@. $H NOPROC @E@@@@ E$DIT PREPKT . $P SET UP ERROR NR )@@G@@MESSAGE @A@@@@ E$COPY 5,NPM1 . @A@@@@ DL NS )@@G@@ A0,0,X8 . @A@@@@ LMJ X11,EFD2$ . @A@@@@NT )@@G@@ E$COPY 42,NPM2 . @A@@@@ E$DITX NU )@@G@@. @E@@@@ P$RINT (PF 1,10,PREBUF) . $P PRINT MESSAGE NV )@@G@@@C@@@@ ER EXIT$ . $E TERMINATE @]@@@@ . NW )@@G@@@E@@@@ . 2. PROC LINE # > 1900 ENCOUNTERED, PRINT WARNING@]@@@@NX )@@G@@ . @C@@@@LNWARN + 0 . $H LNWARN @E@@@@NY )@@G@@ TZ MAXLN . $T IS THIS FIRST VIOLATION ?@E@@@@ NZ )@@G@@ J *LNWARN . $E RETURN WITH NO MESSAGE @A@@@@ L OA )@@G@@ R1,A0 . @E@@@@ L,U A0,1 . $P SET MESOB )@@G@@SAGE-PRINTED FLAG @A@@@@ S A0,MAXLN . @E@@@@ OC )@@G@@ P$RINT (PF 1,10,LWM1) . $P PRINT WARNING MESSAGE @A@@@@ L OD )@@G@@ A0,R1 . @C@@@@ J *LNWARN . $E RETURN OE )@@G@@ @]@@@@ . *[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@OF )@@G@@$(1) . @]@@@@FINDER* . @D@@@@ L,U A5,0 OG )@@G@@ . SET VALUE=0 @E@@@@ L A0,IAREG . FIRST COH )@@G@@HARACTER @B@@@@ AN,U A0,+'A' . @F@@@@ OI )@@G@@ JN A0,OUT . OUT - IF NOT ALPHABETIC @B@@@@ OJ )@@G@@ TG,U A0,+'Z'-'A' . @B@@@@ J OUT OK )@@G@@ . @D@@@@ L,H2 A2,TAB,A0 . L(A-Z TABLE) OL )@@G@@@E@@@@ L,H1 A1,TAB,A0 . NO. OF COMPARES @B@@@@OM )@@G@@ J NEXT2 . @E@@@@NEXT A,U A2,1 ON )@@G@@ . STEP TO NEXT A-Z LOC@B@@@@NEXT2 JGD A1,TEST OO )@@G@@ . @C@@@@ J OUT . NO FIND@E@@@@OP )@@G@@TEST L,S1 A3,0,A2 . WORD NO. TO COMPARE@B@@@@ OQ )@@G@@ L A4,IAREG-1,A3 . @B@@@@ TE,S2 A4,0,A2 OR )@@G@@ . @D@@@@ J NEXT . TRY NEXT WORDOS )@@G@@@E@@@@ L,S3 A3,0,A2 . WORD NO. TO COMPARE@E@@@@OT )@@G@@ JZ A3,OK . OK IF NO WORD NO. @B@@@@ OU )@@G@@ L A4,IAREG-1,A3 . @B@@@@ TE,S4 A4,0,A2 OV )@@G@@ . @D@@@@ J NEXT . TRY NEXT WORDOW )@@G@@@C@@@@OK L,T3 A5,0,A2 . CODE @E@@@@OUT S OX )@@G@@ A5,*0,X11 . STORE CODE VALUE @C@@@@ J OY )@@G@@ 2,X11 . RETURN @]@@@@$(0) . @B@@@@AZ FORM OZ )@@G@@ 18,18 . @B@@@@TAB AZ 6,A . PA )@@G@@@B@@@@ AZ 2,B . @B@@@@ AZ PB )@@G@@ 5,C . @B@@@@ AZ 8,D . PC )@@G@@@B@@@@ AZ 8,E . @B@@@@ AZ PD )@@G@@ 2,F . @B@@@@ AZ 2,G . PE )@@G@@@B@@@@ AZ 0,H . @B@@@@ AZ PF )@@G@@ 7,I . @B@@@@ AZ 0,J . PG )@@G@@@B@@@@ AZ 0,K . @B@@@@ AZ PH )@@G@@ 1,L . @B@@@@ AZ 2,M . PI )@@G@@@B@@@@ AZ 1,N . @B@@@@ AZ PJ )@@G@@ 0,O . @B@@@@ AZ 4,P . PK )@@G@@@B@@@@ AZ 0,Q . @B@@@@ AZ PL )@@G@@ 9,R . @B@@@@ AZ 8,S . PM )@@G@@@B@@@@ AZ 0,T . @B@@@@ AZ PN )@@G@@ 0,UU . @B@@@@ AZ 0,V . PO )@@G@@@B@@@@ AZ 3,WW . @B@@@@ AZ PP )@@G@@ 0,X . @B@@@@ AZ 0,Y . PQ )@@G@@@B@@@@ AZ 0,Z . @B@@@@VAL FORM PR )@@G@@ 6,6,6,6,12 . @D@@@@A VAL 2,'S',3,'S',1 . 1PS )@@G@@=ASSIGN @D@@@@ VAL 2,'R',3,'G',2 . 2=ARGUMENT PT )@@G@@@D@@@@ VAL 2,'B',3,'N',3 . 3=ABNORMAL @D@@@@ PU )@@G@@ VAL 2,'C',3,'C',54 . 54=ACCEPT @E@@@@ VAL PV )@@G@@ 2,'L',3,'T',57 . 57=ALTERNATE PRINTER@E@@@@ VAL 2,'S'PW )@@G@@,4,'$',62 . 62=ASM$INTERFACE @D@@@@B VAL 2,'L',3,'O'PX )@@G@@,4 . 4=BLOCK DATA @D@@@@ VAL 2,'A',3,'C',5 . 5=PY )@@G@@BACK SPACE @C@@@@C VAL 2,'A',3,'L',6 . 6=CALL @C@@@@PZ )@@G@@ VAL 2,'O',4,'M',7 . 7=COMMON@D@@@@ VAL QA )@@G@@ 2,'O',3,'N',8 . 8=CONTINUE @D@@@@ VAL 2,'O',5,'L'QB )@@G@@,9 . 9=COMPLEX @D@@@@ VAL 2,'O',5,'I',10 . 10QC )@@G@@=COMPILER @E@@@@D VAL 2,'O',3,'U',11 . 11=DOUBLE PRECQD )@@G@@ISION @C@@@@ VAL 2,'O',0,0,12 . 12=DO @D@@@@ QE )@@G@@ VAL 2,'I',3,'M',13 . 13=DIMENSION @C@@@@ VAL QF )@@G@@ 2,'A',3,'T',14 . 14=DATA @D@@@@ VAL 2,'E',3,'C',15 QG )@@G@@ . 15=DECODE @D@@@@ VAL 2,'E',3,'F',16 . 16=DEFINQH )@@G@@E @D@@@@ VAL 2,'E',3,'L',17 . 17=DELETE @D@@@@QI )@@G@@ VAL 2,'I',3,'S',55 . 55=DISPLAY @D@@@@E VAQJ )@@G@@L 2,'Q',3,'U',18 . 18=EQUIVALENCE@D@@@@ VAL 2,'X'QK )@@G@@,3,'T',19 . 19=EXTERNAL @C@@@@ VAL 2,'N',3,'T',20 QL )@@G@@ . 20=ENTRY@D@@@@ VAL 2,'N',3,'C',21 . 21=ENCODE QM )@@G@@@D@@@@ VAL 2,'N',4,'F',22 . 22=END FILE @C@@@@ QN )@@G@@ VAL 2,'N',3,'D',23 . 23=END @D@@@@ VAL 2,'R'QO )@@G@@,3,'P',56 . 56=ERPRINT @D@@@@F VAL 2,'O',3,'R',24 QP )@@G@@ . 24=FORMAT @D@@@@ VAL 2,'U',3,'N',25 . 25=FUNCTQQ )@@G@@ION @C@@@@G VAL 2,'O',3,'T',26 . 26=GO TO@D@@@@ QR )@@G@@ VAL 2,'E',3,'N',60 . 60=GENERATE @]@@@@H . @D@@@@QS )@@G@@I VAL 2,'N',3,'C',27 . 27=INCLUDE @D@@@@ VAQT )@@G@@L 2,'N',3,'T',28 . 28=INTEGER @D@@@@ VAL 2,'M'QU )@@G@@,3,'P',29 . 29=IMPLICIT @D@@@@ VAL 2,'F',3,'D',30 QV )@@G@@ . 30=IF DIVIDE @E@@@@ VAL 2,'F',3,'A',31 . 31=IF ACQW )@@G@@CUMULATOR @D@@@@ VAL 2,'F',3,'Q',32 . 32=IF QUOTIENTQX )@@G@@@I@@@@ VAL 2,'F',0,0,33 . 33=IF OR IF(SENSE LIGHT) OQY )@@G@@R IF(SENSE SWI @]@@@@J . @]@@@@K . @D@@@@L VAQZ )@@G@@L 2,'O',3,'G',34 . 34=LOGICAL @D@@@@M VAL 2,'O'RA )@@G@@,3,'N',35 . 35=MONITOR @D@@@@ VAL 2,'A',3,'C',64 RB )@@G@@ . 64=MACROS @D@@@@N VAL 2,'A',3,'M',36 . 36=NAMELRC )@@G@@IST @]@@@@O . @D@@@@P VAL 2,'A',3,'R',37 . 37RD )@@G@@=PARAMETER @C@@@@ VAL 2,'A',3,'U',38 . 38=PAUSE@C@@@@RE )@@G@@ VAL 2,'R',3,'I',39 . 39=PRINT@C@@@@ VAL RF )@@G@@ 2,'U',3,'N',40 . 40=PUNCH@]@@@@Q . @]@@@@R . @D@@@@RG )@@G@@ VAL 3,'P',4,'L',59 . 59=REPLACE @C@@@@ VARH )@@G@@L 3,'A',4,'L',44 . 44=REAL @D@@@@ VAL 2,'E',3,'T'RI )@@G@@,45 . 45=RETURN @D@@@@ VAL 2,'E',3,'W',46 . 46RJ )@@G@@=REWIND @D@@@@ VAL 2,'E',4,'E',58 . 58=REPEAT RK )@@G@@@D@@@@ VAL 2,'E',3,'G',61 . 61=REGISTER @E@@@@ RL )@@G@@ VAL 2,'E',5,'I',41 . . 41=READ INPUT TAPE@D@@@@ VARM )@@G@@L 2,'E',5,'T',42 . 42=READ TAPE @C@@@@ VAL 2,'E'RN )@@G@@,4,'D',43 . 43=READ@H@@@@S VAL 2,'T',6,'E',53 . SRO )@@G@@TART/STOP EDIT MGC @H@@@@ VAL 2,'T',5,'E'RP )@@G@@,53 . STOP EDIT MGC @D@@@@ VAL RQ )@@G@@ 2,'T',6,'T',53 . START TRACE @H@@@@ VAL 2,'T',5,'T'RR )@@G@@,53 . STOP TRACE MGC @C@@@@ VAL RS )@@G@@ 2,'T',3,'O',47 . 47=STOP @D@@@@ VAL 2,'U',3,'B',48 RT )@@G@@ . 48=SUBROUTINE @D@@@@ VAL 2,'E',3,'N',49 . 49=SENSERU )@@G@@ LIGHT@C@@@@ VAL 2,'C',3,'A',63 . 63=SCAN @]@@@@T RV )@@G@@ . @]@@@@UU . @]@@@@V . @E@@@@WW VAL 2,'R'RW )@@G@@,6,'O',50 . 50=WRITE OUTPUT TAPE@D@@@@ VAL 2,'R',6,'T'RX )@@G@@,51 . 51=WRITE TAPE @C@@@@ VAL 2,'R',3,'I',52 . 52RY )@@G@@=WRITE@]@@@@X . @]@@@@Y . @]@@@@Z . @ @@@@ RZ )@@G@@ VAL 0,0,0,0,0 @E@@@@E8ARY INFO 2 6 . LSA )@@G@@ABEL COMMON E8ARY @]@@@@$(6) . @B@@@@NWAR RES 1 SB )@@G@@ . @B@@@@MULT RES 1 . @B@@@@NWAR1 SC )@@G@@ RES 1 . @B@@@@IAREG RES 1792 SD )@@G@@ . @]@@@@ END___. @C@@@@ J OUT SE )@@G@@ . NO FIND@E@@@@TEST L,S1 A3,0,A2 . WORD NOSF )@@G@@. TO COMPARE@B@@@@ *[@@@@*SDFF*@I@@@@ SUBROUTINE HEAD1 SG )@@G@@ HED10001 @I@@@@C SH )@@G@@ HED10002 SI )@@G@@@I@@@@C PRINT HEADING FOR MERGED VARIABLES SJ )@@G@@ HED10003 @I@@@@C SK )@@G@@ HED10004 @I@@@@ IMPLICIT INTEGER (A-Z) SL )@@G@@ HED10005 @I@@@@ DIMENSSM )@@G@@ION HD1(6,10),HD2(6,10),HD3(7,10) HED10006 SN )@@G@@@I@@@@ DATA HD1/ SO )@@G@@ HED10007 @I@@@@ 1 'THE FIRST FLAG INDICATES THE& ' , SP )@@G@@ HED10008 @I@@@@ 2 'NATURE OF THE ALPHABETSQ )@@G@@IC ENTITY& ' , HED10009 @I@@@@ 3 ' SR )@@G@@ = UNDIMENSIONED VARIABLE& ' , HED10010 SS )@@G@@@I@@@@ 4 'DMVR = DIMENSIONED VARIABLE& ' , ST )@@G@@ HED10011 @I@@@@ 5 'FCTN = FUNCTION NAME& ', SU )@@G@@ HED10012 @I@@@@ 6 'LBCM = NAME OF LABELEDSV )@@G@@ COMMON& ' , HED10013 @I@@@@ 7 'SBRTSW )@@G@@ = SUBROUTINE NAME& ' , HED10014 SX )@@G@@@I@@@@ 8 'SWVR = SWITCH VARIABLE& ' , SY )@@G@@ HED10015 @I@@@@ 9 'NMLT = NAMELIST NAME& ' , SZ )@@G@@ HED10016 @I@@@@ A '& ' , 5*' ' /TA )@@G@@ HED10017 @I@@@@ DATA HTB )@@G@@D2/ HED10018 TC )@@G@@@I@@@@ 1 'THE FOLLOWING TWO CHARACTER FLAGS& ' , TD )@@G@@ HED10019 @I@@@@ 2 'INDICATE THAT THE ENTITY IS IN THE& ' , TE )@@G@@ HED10020 @I@@@@ 3 'CORRESPONDING TYPE OF TF )@@G@@STATEMENT& ' , HED10021 @I@@@@ 4 'AB =TG )@@G@@ ABNORMAL EX = EXTERNAL& ' , HED10022 TH )@@G@@@I@@@@ 5 'CM = COMMON FA = FORML AGUMT& ' , TI )@@G@@ HED10023 @I@@@@ 6 'CP = COMPLEX IN = INTEGER& ' , TJ )@@G@@ HED10024 @I@@@@ 7 'DA = DATA LG =TK )@@G@@ LOGICAL& ' , HED10025 @I@@@@ 8 'DM =TL )@@G@@ DIMENSION PR = PARAMETER& ' , HED10026 TM )@@G@@@I@@@@ 9 'DP = DBL PRECISN RL = REAL& ' , TN )@@G@@ HED10027 @I@@@@ A 'EQ = EQUIVALENCE NL = NAMELIST& ' / TO )@@G@@ HED10028 @I@@@@ DATA HD3/ TP )@@G@@ HED10029 @I@@@@ 1 'THE TQ )@@G@@FLAGS FOLLOWING THE LINE NUMBERS& ' , HED10030 TR )@@G@@@I@@@@ 2 '(ON WHICH THE ENTITY WAS REFERENCED)& ' , TS )@@G@@ HED10031 @I@@@@ 3 'INDICATE THE NATURE OF THE REFERENCE& TT )@@G@@ ' , HED10032 @I@@@@ 4 'A = SET EQUAL,DEFINED,TU )@@G@@ASSIGNED& ' , HED10033 @I@@@@ 5 'B = TV )@@G@@REFERENCED,CALLED G = FORMAT& ' , HED10034 TW )@@G@@@I@@@@ 6 'C = CALLING SEQUENCE H = I-O UNIT& ' , TX )@@G@@ HED10035 @I@@@@ 7 'D = SUBSCRIPT I = READ& TY )@@G@@ ' , HED10036 @I@@@@ 8 'E = SPECIFICATION TZ )@@G@@O = WRITE& ' , HED10037 @I@@@@ 9 'J = UA )@@G@@DO PARAMETER L = LIST& ' , HED10038 UB )@@G@@@I@@@@ A '& ' , 6*' ' / UC )@@G@@ HED10039 @I@@@@C UD )@@G@@ HED10040 @I@@@@ CALL OPAP ( 63,-1,'& UE )@@G@@ ' ) HED10041 @I@@@@ CALL OUF )@@G@@PAP ( 1,45,'V A R I A B L E T A B L E&' ) HED10042 UG )@@G@@@I@@@@ DO 10 K=1,10 UH )@@G@@ HED10043 @I@@@@ CALL OPA ( -1,'& ' ) UI )@@G@@ HED10044 @I@@@@ CALL OPA ( 6,HD1(1,K) ) UJ )@@G@@ HED10045 @I@@@@ CALL OUK )@@G@@PA ( 43,HD2(1,K) ) HED10046 UL )@@G@@@I@@@@ CALL OPAP ( 1,79,HD3(1,K) ) UM )@@G@@ HED10047 @I@@@@ 10 CONTINUE UN )@@G@@ HED10048 @I@@@@ CALL OPA ( -1,'VARBLE&' UO )@@G@@) HED10049 @I@@@@ CALL OUP )@@G@@PA ( 13,'FLAGS&' ) HED10050 UQ )@@G@@@I@@@@ CALL OPA ( 29,'LB CM&' ) UR )@@G@@ HED10051 @I@@@@ CALL OPAP ( 2,38,'LINE NUMBERS AND FLAGS&'US )@@G@@ ) HED10052 @I@@@@ CALL OPAP ( 1,-1,'& UT )@@G@@' ) HED10053 @I@@@@ RETURNUU )@@G@@ HED10054 UV )@@G@@@I@@@@ END UW )@@G@@ HED10055 ___@@@ END UX )@@G@@ *[@@@@*SDFF*@I@@@@ SUBROUTINE HEAD2 UY )@@G@@ HED20001 @I@@@@C UZ )@@G@@ HED20002 VA )@@G@@@I@@@@C PRINT STATEMENT NO. HEADING VB )@@G@@ HED20003 @I@@@@C VC )@@G@@ HED20004 @I@@@@ IMPLICIT INTEGER (A-Z) VD )@@G@@ HED20005 @I@@@@ DIMENSVE )@@G@@ION HD1(9,2),HD2(9,2), HED20006 VF )@@G@@@I@@@@ * HD2A(3,3),HD2B(3,3),HD2C(4,3) VG )@@G@@ HED20007 @I@@@@ DATA HD1/ VH )@@G@@ HED20008 @I@@@@ 1 'THE FIRST ENTRY FOLLOWVI )@@G@@ING THE STATEMENT NUMBER& ' , HED20009 @I@@@@ 2 'IS TVJ )@@G@@HE NUMBER OF THE LINE ON WHICH IT WAS DEFINED& ' / HED20010 VK )@@G@@@I@@@@ DATA HD2/ VL )@@G@@ HED20011 @I@@@@ 1 'THE FLAGS FOLLOWING THE LINE NUMBERS (ONVM )@@G@@ WHICH THE&' , HED20012 @I@@@@ 2 'STATEMENT NUMBER WAS RVN )@@G@@EFERENCED) INDICATE THE NATURE&' / HED20013 @I@@@@ DATA HVO )@@G@@D2A/ HED20014 VP )@@G@@@I@@@@ 1 'D = DEFINED& ' , VQ )@@G@@ HED20015 @I@@@@ 2 'S = FORMAT NUMBER&' , VR )@@G@@ HED20016 @I@@@@ 3 'T = NONSTNDRD RTN&' / VS )@@G@@ HED20017 @I@@@@ DATA HVT )@@G@@D2B/ HED20018 VU )@@G@@@I@@@@ 1 'U = ASSIGNED& ' , VV )@@G@@ HED20019 @I@@@@ 2 'V = DO& ' , VW )@@G@@ HED20020 @I@@@@ 3 'W = GOTO (CNDTNL)&' / VX )@@G@@ HED20021 @I@@@@ DATA HVY )@@G@@D2C/ HED20022 VZ )@@G@@@I@@@@ 1 'X = GOTO (UNCNDTNL)& ' , WA )@@G@@ HED20023 @I@@@@ 2 'Y = IF (ARITHMETIC)& ' , WB )@@G@@ HED20024 @I@@@@ 3 '& ' , 3*' ' /WC )@@G@@ HED20025 @I@@@@C WD )@@G@@ HED20026 WE )@@G@@@I@@@@ CALL OPAP ( 63,-1,' &' ) WF )@@G@@ HED20027 @I@@@@ CALL OPAP ( 1,37,'S T A T E M E N T N U WG )@@G@@M B E R T A B L E&' ) HED20028 @I@@@@ DO 10 K=1,2 WH )@@G@@ HED20029 @I@@@@ CALL OWI )@@G@@PA ( -1,' &' ) HED20030 WJ )@@G@@@I@@@@ CALL OPA ( 6,HD1(1,K) ) WK )@@G@@ HED20031 @I@@@@ CALL OPAP ( 1,60,HD2(1,K) ) WL )@@G@@ HED20032 @I@@@@ 10 CONTINUE WM )@@G@@ HED20033 @I@@@@ CALL OWN )@@G@@PA ( -1,' &' ) HED20034 WO )@@G@@@I@@@@ CALL OPAP ( 1,60,'OF THE REFERENCE&' ) WP )@@G@@ HED20035 @I@@@@ DO 20 K=1,3 WQ )@@G@@ HED20036 @I@@@@ CALL OPA ( -1,' &' )WR )@@G@@ HED20037 @I@@@@ CALL OWS )@@G@@PA ( 60,HD2A(1,K) ) HED20038 WT )@@G@@@I@@@@ CALL OPA ( 79,HD2B(1,K) ) WU )@@G@@ HED20039 @I@@@@ CALL OPAP ( 1,96,HD2C(1,K) ) WV )@@G@@ HED20040 @I@@@@ 20 CONTINUE WW )@@G@@ HED20041 @I@@@@ CALL OWX )@@G@@PAP ( 2,-1,' &' ) HED20042 WY )@@G@@@I@@@@ RETURN WZ )@@G@@ HED20043 @I@@@@ END XA )@@G@@ HED20044 ___ = DEFINED& ' , XB )@@G@@ *[@@@@*SDFF*@^@@@@ AXR$ . @[@@@@XC )@@G@@. @D@@@@. CONVERT NUMBER (INTEGER) TO FIELD DATA S/R. @[@@@@XD )@@G@@. @A@@@@. CALL ITF ( NUM,NUMFD ) @[@@@@. @B@@@@. XE )@@G@@ NUM=NUMBER TO BE CONVERTED. @H@@@@. NUMFD=NO. IN FIELD DXF )@@G@@ATA ( 2 WORDS ) RIGHT JUSTIFIED BLANK FILL. @[@@@@. @]@@@@$(1) XG )@@G@@ . @]@@@@ITF* . @B@@@@ L,U A0,72 . XH )@@G@@@D@@@@ DL A3,SPACES . A3=A4=BLANKS @C@@@@ XI )@@G@@ LM A1,*0,X11 . A1=NUM @]@@@@LOOP . @B@@@@ XJ )@@G@@ DSL A1,36 . @F@@@@ DI,U A1,10 XK )@@G@@ . A1=NUM/10 A2=REMAINDER @B@@@@ A,U A4,'0'-' ',XL )@@G@@A2 . @B@@@@ DSC A3,6 . @B@@@@ XM )@@G@@ ANX,U A0,6 . @B@@@@ JNZ A1,LOOP XN )@@G@@ . @C@@@@ L A1,*0,X11 . A1=NUM @D@@@@XO )@@G@@ JP A1,$+3 . NUM NEGATIVE? @B@@@@ JZXP )@@G@@ A1,$+2 . NO@E@@@@ A,U A4,'-'-' ' XQ )@@G@@ . YES - SET SIGN (-) @D@@@@ DSC A3,0,A0 . RIXR )@@G@@GHT JUSTIFY @D@@@@ DS A3,*1,X11 . STORE NUMFD XS )@@G@@@C@@@@ J 3,X11 . RETURN @]@@@@$(0) . XT )@@G@@@ @@@@SPACES ' ' . @#@@@@ END ___ JNXU )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ . @[@@@@$(1) .@^@@@@MEMSQ$* EQU XV )@@G@@ 1 @ @@@@NINTR$* J 1,X11 . @]@@@@NERR$* . @]@@@@NERR2$XW )@@G@@* . @]@@@@NERR3$* . @]@@@@NERR4$* . @]@@@@NERR5$* . @]@@@@NERR6$XX )@@G@@* . @ @@@@ ER ERR$ . @]@@@@EXIT* . @ @@@@NSTOP$XY )@@G@@* ER EXIT$ . @#@@@@ END ___ END ___@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^<^A]0^@VA#K@[ R;:@@@?@)^<(%0V@@@/KE@@@R#)^1YYB )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE MRGHD YC )@@G@@ MGHD0001 @I@@@@C YD )@@G@@ MGHD0002 @I@@@@C PRINT HEADING FYE )@@G@@OR MERGED VARIABLES MGHD0003 @I@@@@YF )@@G@@C YG )@@G@@MGHD0004 @I@@@@ IMPLICIT INTEGER (A-Z) YH )@@G@@ MGHD0005 @I@@@@ DIMENSION HD1(6,10),HD2(6,10),YI )@@G@@HD3(7,10) MGHD0006 @I@@@@ DATA HD1/ YJ )@@G@@ MGHD0007 @I@@@@YK )@@G@@ 1 'THE FIRST FLAG INDICATES THE& ' , YL )@@G@@MGHD0008 @I@@@@ 2 'NATURE OF THE ALPHABETIC ENTITY& ' , YM )@@G@@ MGHD0009 @I@@@@ 3 ' = UNDIMENSIONED VARIABLYN )@@G@@E& ' , MGHD0010 @I@@@@ 4 'DMVR = DIMYO )@@G@@ENSIONED VARIABLE& ' , MGHD0011 @I@@@@YP )@@G@@ 5 'FCTN = FUNCTION NAME& ', YQ )@@G@@MGHD0012 @I@@@@ 6 'LBCM = NAME OF LABELED COMMON& ' , YR )@@G@@ MGHD0013 @I@@@@ 7 'SBRT = SUBROUTINE NAME& YS )@@G@@ ' , MGHD0014 @I@@@@ 8 'SWVR = SWIYT )@@G@@TCH VARIABLE& ' , MGHD0015 @I@@@@YU )@@G@@ 9 'NMLT = NAMELIST NAME& ' , YV )@@G@@MGHD0016 @I@@@@ A '& ' , 5*' ' / YW )@@G@@ MGHD0017 @I@@@@ DATA HD2/ YX )@@G@@ MGHD0018 @I@@@@ 1 'THE FOLLOWYY )@@G@@ING TWO CHARACTER FLAGS& ' , MGHD0019 @I@@@@YZ )@@G@@ 2 'INDICATE THAT THE ENTITY IS IN THE& ' , ZA )@@G@@MGHD0020 @I@@@@ 3 'CORRESPONDING TYPE OF STATEMENT& ' , ZB )@@G@@ MGHD0021 @I@@@@ 4 'AB = ABNORMAL EX = EXTERZC )@@G@@NAL& ' , MGHD0022 @I@@@@ 5 'CM = COMMOZD )@@G@@N FA = FORML AGUMT& ' , MGHD0023 @I@@@@ZE )@@G@@ 6 'CP = COMPLEX IN = INTEGER& ' , ZF )@@G@@MGHD0024 @I@@@@ 7 'DA = DATA LG = LOGICAL& ' , ZG )@@G@@ MGHD0025 @I@@@@ 8 'DM = DIMENSION PR = PARAMZH )@@G@@ETER& ' , MGHD0026 @I@@@@ 9 'DP = DBL PZI )@@G@@RECISN RL = REAL& ' , MGHD0027 @I@@@@ZJ )@@G@@ A 'EQ = EQUIVALENCE NL = NAMELIST& ' / ZK )@@G@@MGHD0028 @I@@@@ DATA HD3/ ZL )@@G@@ MGHD0029 @I@@@@ 1 'THE FLAGS FOLLOWING THE LINEZM )@@G@@ NUMBERS& ' , MGHD0030 @I@@@@ 2 '(ON WHICH ZN )@@G@@THE ENTITY WAS REFERENCED)& ' , MGHD0031 @I@@@@ZO )@@G@@ 3 'INDICATE THE NATURE OF THE REFERENCE& ' , ZP )@@G@@MGHD0032 @I@@@@ 4 'A = SET EQUAL,DEFINED,ASSIGNED& ' , ZQ )@@G@@ MGHD0033 @I@@@@ 5 'B = REFERENCED,CALLED G = FOZR )@@G@@RMAT& ' , MGHD0034 @I@@@@ 6 'C = CALLINZS )@@G@@G SEQUENCE H = I-O UNIT& ' , MGHD0035 @I@@@@ZT )@@G@@ 7 'D = SUBSCRIPT I = READ& ' , ZU )@@G@@MGHD0036 @I@@@@ 8 'E = SPECIFICATION O = WRITE& ' , ZV )@@G@@ MGHD0037 @I@@@@ 9 'J = DO PARAMETER L = LIZW )@@G@@ST& ' , MGHD0038 @I@@@@ A '& ' , ZX )@@G@@6*' ' / MGHD0039 @I@@@@ZY )@@G@@C ZZ )@@G@@MGHD0040 @I@@@@ CALL OPAP ( 63,-1,'& ' ) AA )@@G@@ MGHD0041 @I@@@@ CALL OPAP ( 1,44,'M E R G E D AB )@@G@@ V A R I A B L E S&' ) MGHD0042 @I@@@@ DO 10 K=1,10AC )@@G@@ MGHD0043 @I@@@@AD )@@G@@ CALL OPA ( -1,'& ' ) AE )@@G@@MGHD0044 @I@@@@ CALL OPA ( 6,HD1(1,K) ) AF )@@G@@ MGHD0045 @I@@@@ CALL OPA ( 43,HD2(1,K) ) AG )@@G@@ MGHD0046 @I@@@@ CALL OPAP ( AH )@@G@@1,79,HD3(1,K) ) MGHD0047 @I@@@@AI )@@G@@ 10 CONTINUE AJ )@@G@@MGHD0048 @I@@@@ CALL OPA ( -1,'VARBLE ROUTINE&' ) AK )@@G@@ MGHD0049 @I@@@@ CALL OPA ( 20,'FLAGS&' ) AL )@@G@@ MGHD0050 @I@@@@ CALL OPA ( 3AM )@@G@@6,'LB CM&' ) MGHD0051 @I@@@@AN )@@G@@ CALL OPAP ( 2,44,'LINE NUMBERS AND FLAGS&' ) AO )@@G@@MGHD0052 @I@@@@ CALL OPAP ( 1,-1,'& ' ) AP )@@G@@ MGHD0053 @I@@@@ RETURN AQ )@@G@@ MGHD0054 @I@@@@ END AR )@@G@@ MGHD0055 ___@@@AS )@@G@@ END AT )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE MRG8 AU )@@G@@ MRG80001 @I@@@@C THIS SUBROUTINE SETS THINGS UAV )@@G@@P SO THE DATA ON DRUM CAN BE MERGED MRG80002 @I@@@@C AW )@@G@@ MRG80003 @D@@@@AX )@@G@@C MAXSEC=MAXIMUM NO. OF SECTORS FOR BUFFER IN CORE @B@@@@C MAXSIZ=MAAY )@@G@@XIMUM BUFFER SIZE IN CORE @[@@@@C @C@@@@ PARAMETER MAXSEC=8AZ )@@G@@12,MAXSIZ=28*MAXSEC @B@@@@ DIMENSION KARY(MAXSIZ),LARY(2,300) BA )@@G@@@I@@@@ COMMON KADD,NENT,JF11,NAME(4,300),PLINE(22) BB )@@G@@ MRG80005 @I@@@@C NENT = NUMBER OF ROUTINES FOR WHICH DATBC )@@G@@A HAS BEEN WRITTEN ON THMRG80006 @I@@@@C KADD = DRUM ADDRESS OBD )@@G@@F THE LAST DATA WHICH HAS BEEN WRITTEN MRG80007 @I@@@@C BE )@@G@@ MRG80008 BF )@@G@@@I@@@@C SET-UP A NEW PAGE HEADING BG )@@G@@ MRG80009 @I@@@@C BH )@@G@@ MRG80010 @I@@@@ IF ( NENT.LE.0 )RETURN BI )@@G@@ @ NO ELEMENTS MRG80011 @I@@@@ IF (JFBJ )@@G@@11.GT.0) GO TO 10 MRG80012 BK )@@G@@@I@@@@ CALL HDG (-1,15HMERGED ROUTINES) BL )@@G@@ MRG80013 @I@@@@ 10 NENTM1 = NENT-1 BM )@@G@@ MRG80014 @I@@@@ IF (NENTM1.LE.0) GO TO 2BN )@@G@@0 MRG80015 @I@@@@C FIND BO )@@G@@THE ADDRESS OF THE END OF EACH ROUTINE MRG80016 BP )@@G@@@I@@@@ CALL MOVER(NAME(4,2),4,NAME(3,1),4,NENTM1) BQ )@@G@@ MRG80017 @I@@@@ 20 NAME(3,NENT)=KADD BR )@@G@@ MRG80018 @I@@@@C SORT ON NAME BS )@@G@@ MRG80019 @I@@@@ IF (NEBT )@@G@@NTM1.LE.0) GO TO 50 MRG80020 BU )@@G@@@I@@@@ DO 40 I=1,NENTM1 BV )@@G@@ MRG80021 @I@@@@ DO 40 J=1,NENTM1 BW )@@G@@ MRG80022 @I@@@@ IF (NAME(1,J).LT.NAME(1,BX )@@G@@J+1)) GO TO 40 MRG80023 @I@@@@ IF (NABY )@@G@@ME(2,J).LT.NAME(2,J+1)) GO TO 40 MRG80024 BZ )@@G@@@I@@@@ DO 30 K=1,4 CA )@@G@@ MRG80025 @I@@@@ ITEMP=NAME(K,J) CB )@@G@@ MRG80026 @I@@@@ NAME(K,J)=NAME(K,J+1) CC )@@G@@ MRG80027 @I@@@@ 30 NAME(KCD )@@G@@,J+1)=ITEMP MRG80028 CE )@@G@@@I@@@@ 40 CONTINUE CF )@@G@@ MRG80029 @I@@@@C WRITE OUT THE NAMES OF THE ROUTINES BEINGCG )@@G@@ MERGED MRG80030 @I@@@@ 50 CALL OPAP ( 63,1,'& CH )@@G@@' ) MRG80031 @I@@@@ CALL OCI )@@G@@PAP ( 3,-1,' THE FOLLOWING ROUTINES ARE MERGED&' ) MRG80032 CJ )@@G@@@I@@@@ CALL OPAP ( 3,-1,'& ' ) CK )@@G@@ MRG80033 @I@@@@ DO 60 I=1,NENT CL )@@G@@ MRG80034 @I@@@@C CHECK TO SEE IF THE ROUCM )@@G@@TINE HAS ANY DATA MRG80035 @I@@@@ IF ( NCN )@@G@@AME(3,I).GT.NAME(4,I) )CALL OPAFP ( 1,11,NAME(1,I),12 ) MRG80036 CO )@@G@@@I@@@@ 60 CONTINUE CP )@@G@@ MRG80037 @I@@@@ CALL MRGHD CQ )@@G@@ MRG80038 @I@@@@C COMPUTE VARIABLE DIMENSCR )@@G@@IONS OF SUBROUTINE ARRAY MRG80039 @^@@@@ LKARY=CS )@@G@@MAXSEC/NENT @I@@@@C CALL THE ROUTINE TO MERGE THE DATA CT )@@G@@ MRG80041 @I@@@@ CALL DMMG (KARY,LKARY,NENT) CU )@@G@@ MRG80042 @I@@@@ RETURN CV )@@G@@ MRG80043 @I@@@@CW )@@G@@C***********************************************************************CX )@@G@@MRG80044 @I@@@@ SUBROUTINE DMMG (KARY,KL,NENT) CY )@@G@@ MRG80045 @I@@@@C * THIS SUBROUTINE DOES THE ACTUCZ )@@G@@AL MERGING OF THE DATA MRG80046 @I@@@@ DATA KZSS /6DA )@@G@@HZ///// / MRG80047 @I@@@@DB )@@G@@ DIMENSION KARY(28,KL,NENT) DC )@@G@@MRG80048 @I@@@@C FILL THE BUFFER DD )@@G@@ MRG80049 @I@@@@ JMAX=28*( KL - 1 ) DE )@@G@@ @ MMRG80050 @I@@@@ DO 10 I=1,NEDF )@@G@@NT MRG80051 @I@@@@DG )@@G@@ LARY(1,I)=KL+1 DH )@@G@@MRG80052 @I@@@@ LARY(2,I)=0 DI )@@G@@ MRG80053 @I@@@@ 10 CALL BUFIL (I,KARY,KL,NENT) DJ )@@G@@ MRG80054 @I@@@@C FIND THE VADK )@@G@@RIABLE NAME WHICH IS LOWEST ALPHABETICALLY MRG80055 @I@@@@DL )@@G@@ 20 NLST=0 DM )@@G@@MRG80056 @I@@@@ LST=KZSS DN )@@G@@ MRG80057 @I@@@@ DO 30 I=1,NENT DO )@@G@@ MRG80058 @I@@@@ N=LARY(1,I) DP )@@G@@ MRG80059 @I@@@@DQ )@@G@@ IF (LARY(2,I).EQ.1) GO TO 30 DR )@@G@@MRG80060 @I@@@@ IF (LST.LE.KARY(1,N,I)) GO TO 30 DS )@@G@@ MRG80061 @I@@@@ LST=KARY(1,N,I) DT )@@G@@ MRG80062 @I@@@@ NLST=I DU )@@G@@ MRG80063 @I@@@@DV )@@G@@ 30 CONTINUE DW )@@G@@MRG80064 @I@@@@C IF ALL ELEMENTS ARE PROCESSED WE ARE DONE DX )@@G@@ MRG80065 @I@@@@ IF (NLST .EQ. 0) RETURN DY )@@G@@ MRG80066 @I@@@@C IF THE BUFFDZ )@@G@@ER CONTAINS TO LITTLE OR JUST ENOUGH DATA - REFILL IT MRG80067 @I@@@@EA )@@G@@ N=LARY(1,NLST) EB )@@G@@MRG80068 @I@@@@ JM2=KARY(9,N,NLST) EC )@@G@@ MRG80069 @I@@@@ IF ((JM2+27)/28 .GE. KL-N) CALED )@@G@@L BUFIL (NLST,KARY,KL,NENT) MRG80070 @I@@@@C WRITE THE VEE )@@G@@ARIABLE ENTERY MRG80071 @I@@@@EF )@@G@@ N=LARY(1,NLST) EG )@@G@@MRG80072 @I@@@@ JMT=JM2 @ EH )@@G@@ MMRG80074 @I@@@@ IF ( JM2.GT.JMAX )JM2=JMAX EI )@@G@@ @ MMRG80075 @I@@@@ CALL OPAF ( EJ )@@G@@1,KARY(1,N,NLST),6 ) MRG80076 @I@@@@EK )@@G@@ CALL OPAF ( 8,NAME(1,NLST),6 ) EL )@@G@@MRG80077 @I@@@@ CALL OPAF ( 15,KARY(7,N,NLST),4 ) EM )@@G@@ MRG80078 @I@@@@ CALL OPAF ( 19,KARY(2,N,NLST),EN )@@G@@2,5,1 ) MRG80079 @I@@@@ CALL OPAF ( EO )@@G@@36,KARY(8,N,NLST),6 ) MRG80080 @^@@@@EP )@@G@@ DO 40 J=1,JM2,14 @^@@@@ NR=JM2 - J + 1 @ @@@@ IF ( NEQ )@@G@@R.GT.14 )NR=14 @D@@@@ CALL OPAFP ( 1,43,KARY(J,N+1,NLST),6,NR,0 ER )@@G@@) @ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 40 CONTINUE @I@@@@ES )@@G@@ LARY(1,NLST)=LARY(1,NLST)+1 @ MET )@@G@@MRG80090 @I@@@@ 50 LARY(1,NLST)=LARY(1,NLST) + (JM2+27)/28 @ EU )@@G@@ MMRG80091 @I@@@@ JMT=JMT -JM2 EV )@@G@@ @ MMRG80092 @I@@@@ IF ( LARY(1,EW )@@G@@NLST).GE.KL )CALL BUFIL ( NLST,KARY,KL,NENT ) @ MMRG80093 @I@@@@EX )@@G@@ IF (JMT.LE.0) GO TO 20 @ MEY )@@G@@MRG80094 @I@@@@ N=LARY(1,NLST) @ EZ )@@G@@ MMRG80095 @I@@@@ JM2=JMT FA )@@G@@ @ MMRG80096 @I@@@@ IF ( JM2.GT.FB )@@G@@JMAX )JM2=JMAX @ MMRG80097 @^@@@@FC )@@G@@ DO 60 J=1,JM2,14 @^@@@@ NR=JM2 - J + 1 @ @@@@ IF ( NFD )@@G@@R.GT.14 )NR=14 @C@@@@ CALL OPAFP ( 1,43,KARY(J,N,NLST),6,NR,0 ) FE )@@G@@@ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 60 CONTINUE @I@@@@ FF )@@G@@GO TO 50 @ MMRG801FG )@@G@@07 @I@@@@C***********************************************************FH )@@G@@************MRG80114 @I@@@@ SUBROUTINE BUFIL (NAR,KARY,KL,NENT) FI )@@G@@ MRG80115 @I@@@@C THIS SUBROUTINE RFJ )@@G@@EFILLS THE BUFFER FROM THE DATA ON DRUM MRG80116 @I@@@@ FK )@@G@@DIMENSION KARY(28,KL,NENT) MRG801FL )@@G@@17 @I@@@@C FIND OUT HOW MUCH IS LEFT ON DRUM FOR THIS ROUTINE FM )@@G@@ MRG80118 @I@@@@ LEFT=NAME(3,NAR)-NAME(4,NAR) FN )@@G@@ MRG80119 @I@@@@C IF THERE IS NO DAFO )@@G@@TA LEFT SET FLAG AND RETURN MRG80120 @I@@@@ FP )@@G@@IF (LEFT.GT.0) GO TO 20 MRG801FQ )@@G@@21 @I@@@@ LARY(2,NAR)=1 FR )@@G@@ MRG80122 @I@@@@ RETURN FS )@@G@@ MRG80123 @I@@@@C FIND AMOUNT OF DAFT )@@G@@TA TO BE READ FROM DRUM MRG80124 @I@@@@ 20 FU )@@G@@N=LARY(1,NAR) MRG801FV )@@G@@25 @I@@@@ IF (LEFT .GT. (N-1)*28) LEFT=(N-1)*28 FW )@@G@@ MRG80126 @I@@@@ IF ( LEFT.LE.0 )RETURN @ FX )@@G@@ MMRG80127 @I@@@@ J=N-LEFT/28 FY )@@G@@ MRG80128 @I@@@@ FZ )@@G@@LARY(1,NAR)=J MRG801GA )@@G@@29 @I@@@@C MOVE THE OLD DATA TO THE FRONT OF THE BUFFER GB )@@G@@ MRG80130 @I@@@@ IF (N.GT.KL) GO TO 40 GC )@@G@@ MRG80131 @I@@@@ DO 30 I=N,KL GD )@@G@@ MRG80132 @I@@@@ GE )@@G@@CALL MOVER(KARY(1,I,NAR),1,KARY(1,J,NAR),1,28) MRG801GF )@@G@@33 @I@@@@ 30 J=J+1 GG )@@G@@ MRG80134 @I@@@@C GET THE DATA FROM DRUM GH )@@G@@ MRG80135 @I@@@@ 40 MADD=KL+1-LEFT/28 GI )@@G@@ MRG80136 @I@@@@ GJ )@@G@@CALL OBTAN8(KARY(1,MADD,NAR),LEFT,NAME(4,NAR)) MRG801GK )@@G@@37 @I@@@@ RETURN GL )@@G@@ MRG80138 @I@@@@ END GM )@@G@@ MRG80139 ___ SUBROUTINE DMMG (KARY,KLGN )@@G@@,NENT) MRG80045 @I@@@@C * THIS GO )@@G@@SUBROUTINE DOES THE ACTUAL MERGING OF THE DATA *[@@@@*SDFF*@^@@@@ GP )@@G@@ AXR$ . @[@@@@$(1) .@]@@@@OPRIME* . @[@@@@ . @^@@@@ . CALGQ )@@G@@L OPRIME(BUF,N) @C@@@@ . BUF IS THE AREA TO BUILD IMAGE INTO GR )@@G@@@B@@@@ . N IS THE NUMBER OF WORDS IN BUF @[@@@@ . @B@@@@ GS )@@G@@ LA A1,*1,X11 . @B@@@@ SA,S3 A1,OPK GT )@@G@@ . @B@@@@ LA,H2 A2,0,X11 . @B@@@@ GU )@@G@@ SA,H2 A2,OPK . @ @@@@ SX X11,X11S . GV )@@G@@@ @@@@ LA,U A0,OPK. @ @@@@ LMJ X11,EDIT$ .GW )@@G@@@B@@@@ LMJ X11,EDITX$ . @B@@@@ LX GX )@@G@@ X11,X11S . @B@@@@ J 3,X11 . GY )@@G@@@]@@@@OPRINT* . @B@@@@ LA A0,*0,X11 . @B@@@@GZ )@@G@@ SA A0,OPFLG . @B@@@@ SLJ OPRNTHA )@@G@@ . @B@@@@ J 2,X11 . @[@@@@HB )@@G@@. @ @@@@. CALL PUNCH - PUNCH IMAGE @[@@@@. @]@@@@OPUNCH* . HC )@@G@@@B@@@@ L,U A0,0 . @B@@@@ S HD )@@G@@ A0,OPFLG . @B@@@@ L A0,( ER PUNCH$) . HE )@@G@@@B@@@@ S A0,OPRNTA . @B@@@@ SLJ HF )@@G@@ OPRNT . @B@@@@ L A0,( ER PRINT$) . HG )@@G@@@B@@@@ S A0,OPRNTA . @B@@@@ J HH )@@G@@ 1,X11 . @[@@@@ . @[@@@@ . @^@@@@ . CALL OPCHAR('X'HI )@@G@@) @F@@@@ . DECLARE THE CHARACTER X TO BE NEW STRING TERM CHARACTEHJ )@@G@@R @[@@@@ . @]@@@@OPCHAR* . @B@@@@ LA,S1 A0,*0,X11 HK )@@G@@ . @B@@@@ SA,S2 A0,OPK . @B@@@@ HL )@@G@@ J 2,X11 . @[@@@@ . @#@@@@ . CALL OPCOL(CP) HM )@@G@@@B@@@@ . OBTAIN CURRENT COLUMN POSITION IN CP@[@@@@ . @B@@@@OPCOL*HN )@@G@@ LA,S2 A0,OPK+1 . @B@@@@ MI,U A0,6 HO )@@G@@ . @B@@@@ AA,S1 A1,OPK+1 . @B@@@@ HP )@@G@@ AA,U A1,1 . @B@@@@ SA A1,*0,X11 HQ )@@G@@ . @B@@@@ J 2,X11 . @[@@@@ . HR )@@G@@@[@@@@ . @H@@@@OPAF* L A4,NEG . HS )@@G@@ MGC @H@@@@ J LOC45 . HT )@@G@@ MGC @H@@@@OPAFP* L A4,*0,X11 HU )@@G@@ . MGC @H@@@@ AX,U HV )@@G@@ X11,1 . MGC @H@@@@LOC45 HW )@@G@@ L,U A3,3 . MGC HX )@@G@@@H@@@@ J LOC1 . HY )@@G@@ MGC @B@@@@OPA* LA A4,NEG . @B@@@@ HZ )@@G@@ J LOC50 . @B@@@@OPAP* LA A4,*0,X11 IA )@@G@@ . @B@@@@ AX,U X11,1 . @B@@@@LOC50 IB )@@G@@ LA,U A3,2 . @B@@@@ J LOC1 IC )@@G@@ . @B@@@@OPO* LA A4,NEG . @B@@@@ ID )@@G@@ J LOC55 . @B@@@@OPOP* LA A4,*0,X11 IE )@@G@@ . @B@@@@ AX,U X11,1 . @B@@@@LOC55 IF )@@G@@ LA,U A3,1 . @B@@@@ J LOC1 IG )@@G@@ . @B@@@@OPI* LA A4,NEG . @B@@@@ IH )@@G@@ J LOC60 . @B@@@@OPIP* LA A4,*0,X11 II )@@G@@ . @B@@@@ AX,U X11,1 . @B@@@@LOC60 IJ )@@G@@ LA,U A3,0 . @B@@@@LOC1 SA A4,OPFLG IK )@@G@@ . @ @@@@ SA A3,TYPE @B@@@@ LA IL )@@G@@ A1,*0,X11 . @B@@@@ JP A1,LOC1B . IM )@@G@@@B@@@@ LA,H2 A2,OPK . @B@@@@ SA,H2 IN )@@G@@ A2,LOC1A . @B@@@@ LA,S3 A3,OPK . IO )@@G@@@B@@@@ ANA,U A3,1 . @B@@@@ LA IP )@@G@@ A0,OPBLK . @B@@@@LOC1A SA A0,$-$,A3 . IQ )@@G@@@B@@@@ JGD A3,LOC1A . @B@@@@ SZ,T1 IR )@@G@@ OPK+1 . @B@@@@ J LOC3 . IS )@@G@@@B@@@@LOC1B JZ A1,LOC3 . @B@@@@ TE,U IT )@@G@@ A1,1 . @B@@@@ J LOC2 . IU )@@G@@@B@@@@ SZ,T1 OPK+1 . @B@@@@ J IV )@@G@@ LOC3 . @B@@@@LOC2 LA,U A0,0 . IW )@@G@@@B@@@@ ANA,U A1,1 . @B@@@@ DI,U IX )@@G@@ A0,6 . @B@@@@ SA,S2 A0,OPK+1 . IY )@@G@@@B@@@@ SA,S1 A1,OPK+1 . @B@@@@LOC3 SX IZ )@@G@@ X11,X11S . @B@@@@ LA,U A0,OPK . JA )@@G@@@B@@@@ LMJ X11,EDITR$ . @B@@@@ LX JB )@@G@@ X11,X11S . @B@@@@ LA A0,TYPE . JC )@@G@@@B@@@@ TE,U A0,2 . @B@@@@ J JD )@@G@@ LOC4 . @B@@@@ LA,H2 A0,1,X11 . JE )@@G@@@B@@@@ LMJ X11,EMSG$ . @B@@@@ LMJ JF )@@G@@ X11,EDITX$ . @B@@@@ SLJ OPRNT . JG )@@G@@@B@@@@ LX X11,X11S . @B@@@@ J JH )@@G@@ 3,X11 . @B@@@@LOC4 SX X4,X4S . JI )@@G@@@B@@@@ SX X5,X5S . @B@@@@ LX,H2 JJ )@@G@@ X4,1,X11 . @B@@@@ LXI,U X4,1 . JK )@@G@@@B@@@@ LA A0,*2,X11 . @B@@@@ SA JL )@@G@@ A0,FW . @B@@@@ TNZ,H1 3,X11 . JM )@@G@@@B@@@@ J LOC5 . @B@@@@ LX,U JN )@@G@@ X5,0 . @B@@@@ SZ SP . JO )@@G@@@B@@@@ J LOC6 . @B@@@@LOC5 LX JP )@@G@@ X5,*3,X11 . @B@@@@ ANX,U X5,1 . JQ )@@G@@@B@@@@ LA A0,*4,X11 . @B@@@@ SA JR )@@G@@ A0,SP . @B@@@@ AX,U X11,2 . JS )@@G@@@B@@@@ SX X11,X11S . @B@@@@LOC6 TNZ JT )@@G@@ SP . @B@@@@ J LOC8 . JU )@@G@@@B@@@@ LA A1,SP . @B@@@@ JN JV )@@G@@ A1,LOC7 . @B@@@@ LA,U A0,OPBLK . JW )@@G@@@B@@@@ LMJ X11,ECOPY$ . @B@@@@ J JX )@@G@@ LOC8 . @B@@@@LOC7 LNA A0,SP . JY )@@G@@@B@@@@ LMJ X11,ESKIP$ . @B@@@@LOC8 LA JZ )@@G@@ A1,FW . @H@@@@ L A0,TYPE . 0=KA )@@G@@I 1=O 3=ALPHA(FIXED) MGC @H@@@@ JZ A0,LOC8A KB )@@G@@ . MGC @H@@@@ TLE,U KC )@@G@@ A0,2 . MGC @H@@@@ KD )@@G@@ J LOC9 . MGC KE )@@G@@@H@@@@ L,U A0,0,*X4 . KF )@@G@@ MGC @H@@@@ LMJ X11,ECOPY$ . KG )@@G@@ MGC @H@@@@ J LOC10 . KH )@@G@@ MGC @H@@@@LOC8A L A0,0,*X4 KI )@@G@@ . MGC @B@@@@ LMJ KJ )@@G@@ X11,EDECF$ . @B@@@@ J LOC10 . KK )@@G@@@B@@@@LOC9 TLE,U A1,13 . @B@@@@ J KL )@@G@@ LOC11 . @B@@@@ LA,U A0,5 . KM )@@G@@@B@@@@ LMJ X11,ECHAR$ . @B@@@@ JGD KN )@@G@@ A1,LOC9 . @B@@@@LOC11 LA A0,0,*X4 . KO )@@G@@@B@@@@ LMJ X11,EOCTF$ . @B@@@@LOC10 JGD KP )@@G@@ X5,LOC6 . @B@@@@ LMJ X11,EDITX$ . KQ )@@G@@@B@@@@ LX X4,X4S . @B@@@@ LX KR )@@G@@ X5,X5S . @B@@@@ SLJ OPRNT . KS )@@G@@@B@@@@ LX X11,X11S . @B@@@@ J KT )@@G@@ 4,X11 . @[@@@@ . @[@@@@ . @[@@@@$(0) .@[@@@@OPK* .KU )@@G@@@B@@@@ E$PKTF 22,0 . @#@@@@X4S +0 . KV )@@G@@@#@@@@X5S +0 . @#@@@@X11S +0 . @#@@@@TYPE +0 . KW )@@G@@@#@@@@FW +0 . @#@@@@SP +0 . @#@@@@OPFLG* +0 . KX )@@G@@@#@@@@NEG -1 . @B@@@@OPRNT* J $-$ . KY )@@G@@@B@@@@ LA A0,OPFLG . @B@@@@ JN KZ )@@G@@ A0,OPRNT . @B@@@@ LA A1,OPK . LA )@@G@@@B@@@@ LSSL A1,12 . @B@@@@ LDSL LB )@@G@@ A0,24 . @B@@@@OPRNTA ER PRINT$ . LC )@@G@@@B@@@@ J OPRNT . @]@@@@OPBLK* . @ @@@@LD )@@G@@ DO 22 , ' ' . @#@@@@ END ___ A1,OPK+1 LE )@@G@@ . @B@@@@ AA,U A1,1 . @B@@@@ LF )@@G@@ SA A1,*0,X11 . @B@@@@ J 2,X11 LG )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ . @A@@@@. CALL PRINT(LINESP,NWORDS,BUFLH )@@G@@FER) @[@@@@. @A@@@@PRINT* LA A0,*0,X11 . @ @@@@ LI )@@G@@ SA,7 A0,STOR . @A@@@@ LA A0,*1,X11 . @ @@@@LJ )@@G@@ SA,11 A0,STOR .@ @@@@ LA A0,2,X11 .@ @@@@LK )@@G@@ SA,1 A0,STOR . @ @@@@ LA A0,STOR . @ @@@@LL )@@G@@ ER PRINT$ . @ @@@@ J 4,X11 . @#@@@@LM )@@G@@STOR +0. @#@@@@ END ___ A0,PKT . @ _@@@ LN )@@G@@*[@@@@*SDFF*@I@@@@ SUBROUTINE PRTERR ( N ) LO )@@G@@ PERR0001 @I@@@@C LP )@@G@@ PERR0002 @I@@@@C PRINT ERROR MESLQ )@@G@@SAGE - N=ERROR NO. PERR0003 @I@@@@LR )@@G@@C LS )@@G@@PERR0004 @I@@@@ IMPLICIT INTEGER (A-Z) LT )@@G@@ PERR0005 @I@@@@ COMMON /MSG/M(105) LU )@@G@@ PERR0006 @I@@@@ COMMON /E8ARLV )@@G@@Y/NWAR,MULT,NWAR1,IRDM(1792) PERR0007 @I@@@@LW )@@G@@ DIMENSION IAREG(1321) LX )@@G@@PERR0008 @I@@@@ EQUIVALENCE (IAREG,IRDM) LY )@@G@@ PERR0009 @I@@@@ PARAMETER MAX=14 LZ )@@G@@ @ MAX. ERROR NO. PERR0010 @I@@@@ DIMENSION MSMA )@@G@@G(3),MSG1(6),MSG2(7),MSG3(3),MSG4(5),MSG5(5), PERR0011 @I@@@@MB )@@G@@ 1 MSG6(6),MSG7(4),MSG8(6),MSG9(3),MSG10(4), MC )@@G@@PERR0012 @I@@@@ 2 MSG11(4),MSG12(5),MSG13(5),MSG14(4) MD )@@G@@ PERR0013 @I@@@@ DATA MSG/ '***** ERROR *****&'ME )@@G@@ / PERR0014 @I@@@@ DATA MSG1/ 'MF )@@G@@ARRAY OVERFLOW-STATEMENT TOO LONG.&' / PERR0015 @I@@@@MG )@@G@@ DATA MSG2/ 'NON-ARITHMETIC STATEMENT NOT DEFINED.&' / MH )@@G@@PERR0016 @I@@@@ DATA MSG3/ 'VARIABLE ILLEGAL.&' / MI )@@G@@ PERR0017 @I@@@@ DATA MSG4/ 'DATA LIST LONGER TMJ )@@G@@HAN CARD.&' / PERR0018 @I@@@@ DATA MSG5/ 'MK )@@G@@STATEMENT NUMBER ILLEGAL.&' / PERR0019 @I@@@@ML )@@G@@ DATA MSG6/ 'PARENTHESE COMBINATION ILLEGAL.&' / MM )@@G@@PERR0020 @I@@@@ DATA MSG7/ 'IF STATEMENT ILLEGAL&' / MN )@@G@@ PERR0021 @I@@@@ DATA MSG8/ 'ERROR IN NESTING OMO )@@G@@F FUNCTIONS.&' / PERR0022 @I@@@@ DATA MSG9/ 'MP )@@G@@WORD TOO LONG.&' / PERR0023 @I@@@@MQ )@@G@@ DATA MSG10/'VARIABLE TOO LONG.&' / MR )@@G@@PERR0024 @I@@@@ DATA MSG11/'NO RIGHT PARENTHESES.&' / MS )@@G@@ PERR0025 @I@@@@ DATA MSG12/'ERROR IN GETTING SMT )@@G@@UBSCRIPT.&' / PERR0026 @I@@@@ DATA MSG13/'MU )@@G@@EXCEEDED LENGHT OF CARD DATA.&' / PERR0027 @I@@@@MV )@@G@@ DATA MSG14/'VARIABLE NOT IN TABLE.&' / MW )@@G@@PERR0028 @I@@@@ EQUIVALENCE (M,MSG) , (M(8),MSG1) , (M(15),MSG2)MX )@@G@@ , (M(22),MSG3) , PERR0029 @I@@@@ * (M(29),MSG4) , (M(36),MSG5) ,MY )@@G@@ (M(43),MSG6) , PERR0030 @I@@@@ * (M(50),MSG7MZ )@@G@@) , (M(57),MSG8) , (M(64),MSG9) , PERR0031 @I@@@@NA )@@G@@ * (M(71),MSG10) , (M(78),MSG11) , (M(85),MSG12) , (M(92),MSG13) , NB )@@G@@PERR0032 @I@@@@ * (M(99),MSG14) NC )@@G@@ PERR0033 @I@@@@C ND )@@G@@ PERR0034 @I@@@@ IF (N.LT.1.ONE )@@G@@R.N.GT.MAX) GO TO 40 @ IGNORE BAD ERROR NO. PERR0035 @I@@@@NF )@@G@@ CALL OPA ( -1,MSG ) @ PUT 'ERROR' IN LINE NG )@@G@@PERR0036 @I@@@@ I=7*N + 1 NH )@@G@@ PERR0037 @I@@@@ CALL OPAP( 1,20,M(I) ) NI )@@G@@ @ ERROR MSG TO LINE PERR0038 @I@@@@ IF (NWAR.LE.NJ )@@G@@0) GO TO 40 PERR0039 @I@@@@NK )@@G@@ NN=' ' NL )@@G@@PERR0040 @I@@@@ DO 30 K=1,NWAR NM )@@G@@ PERR0041 @I@@@@ FLD( 0,6,NN )=IAREG(K) NN )@@G@@ PERR0042 @I@@@@ IX=MOD( K,13NO )@@G@@0 ) PERR0043 @I@@@@NP )@@G@@ IF (IX.GT.0) GO TO 10 NQ )@@G@@PERR0044 @I@@@@ CALL OPAFP ( 1,130,NN,1 ) NR )@@G@@ PERR0045 @I@@@@ GO TO 30 NS )@@G@@ PERR0046 @I@@@@ 10 IF (IX.NE.1)NT )@@G@@ GO TO 20 PERR0047 @I@@@@NU )@@G@@ CALL OPAF ( -1,NN,1 ) NV )@@G@@PERR0048 @I@@@@ GO TO 30 NW )@@G@@ PERR0049 @I@@@@ 20 CALL OPAF ( IX,NN,1 ) NX )@@G@@ PERR0050 @I@@@@ 30 CONTINUE NY )@@G@@ PERR0051 @I@@@@NZ )@@G@@ IF (IX.EQ.0) GO TO 40 OA )@@G@@PERR0052 @I@@@@ CALL OPAP ( 1,IX+1,' & ' ) OB )@@G@@ PERR0053 @I@@@@ 40 CONTINUE OC )@@G@@ PERR0054 @I@@@@ CALL ERROR8 OD )@@G@@ PERR0055 @I@@@@OE )@@G@@ RETURN OF )@@G@@PERR0056 @I@@@@ END OG )@@G@@ PERR0057 ___ DATA MSG14/'VARIABLE NOT IN TABLE.&' /OH )@@G@@ *[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@OI )@@G@@$(1) . @[@@@@ . @B@@@@ . CALL RDS1(FN,EN,VN,B1,B2,NB,ERR,$ERR) OJ )@@G@@@ @@@@ . FN IS FILE NAME (2 WORDS)@A@@@@ . EN IS ELEMENT NAME (2 WOROK )@@G@@DS) @A@@@@ . VN IS VERSION NAME (2 WORDS) @A@@@@ . B1 IS ANY USEOL )@@G@@R SUPPLIED BUFFER @B@@@@ . B2 IS A SECOND USER SUPPLIED BUFFER @D@@@@OM )@@G@@ . NB IS THE NUMBER OF WORDS IN B1 (B1 AND B2 MUST @ @@@@ . ON )@@G@@BE THE SAME SIZE) @D@@@@ . ERR IS AN ERROR CODE IF THE $ERR RETURN IS OO )@@G@@MADE @B@@@@ . 1 = NO FIND ON GIVER ELEMENT @ @@@@ . OP )@@G@@2 = I/O ERROR @B@@@@ . 3 = PROGRAM FILE NOT DEFINED @B@@@@OQ )@@G@@ . 4 = PROGRAM FILE OVERFLOW @A@@@@ . BITS 11 - 6 OR )@@G@@= I/O ERROR @D@@@@ . NOTE - IF THE ELEMENT NAME IS EITHER BLANK OR 0 OS )@@G@@@D@@@@ . THEN THE FILE IS ASSUMED TO BE A DATA FILE .@D@@@@ . NOTOT )@@G@@E - THE BUFFERS B1 AND B2 MUST BE A MULTIPLE OF @D@@@@ . 28 WORDSOU )@@G@@ , AND IT IS BEST TO MAKE THEM A @C@@@@ . MULTIPLE OF 112 (DECOV )@@G@@IMAL) WORDS . @[@@@@ . @]@@@@RDS1* . @D@@@@ DL OW )@@G@@ A0,*0,X11 . GET FILE NAME @E@@@@ DS A0,FCT OX )@@G@@ . PUT INTO FCT TABLE @E@@@@ DS A0,PFP OY )@@G@@ . ALSO STORE FOR PFS$ @D@@@@ SZ ELFLAG . FIOZ )@@G@@LE TYPE FLAG@E@@@@ LA,S1 A0,*1,X11 . S1 OF ELEMENT PA )@@G@@NAME @F@@@@ TLE,U A0,6 . IS THIS ELEMENT OR FPB )@@G@@ILE ? @E@@@@ J DJ1 . THIS IS DATA FILE PC )@@G@@@E@@@@ SX X11,ELFLAG . SET FLAG FOR P.F. @E@@@@PD )@@G@@ DL A0,*1,X11 . GET ELEMENT NAME @E@@@@ PE )@@G@@ DS A0,PFP+2 . PUT INTO PFS$ TABLE @D@@@@ DLPF )@@G@@ A0,*2,X11 . GET VERSION @E@@@@ DS A0,PFPG )@@G@@P+6 . ALSO STORE VERSION @E@@@@ LA A0,WD1 PH )@@G@@ . SET FOR SYMBOLIC @F@@@@ SA A0,PFP+5 PI )@@G@@ . STORE INTO PFS$ TABLE @E@@@@ LA,U A0,PFP PJ )@@G@@ . GET READY FOR PFS$ @D@@@@ ER PFS$ . GOPK )@@G@@ TO PFS$ @F@@@@ SA A2,*6,X11 . THERE MIGHT BEPL )@@G@@ AN ERROR @D@@@@ TZ A2 . IS THERE ? PM )@@G@@@E@@@@ J *7,X11 . YES, TAKE ERROR EXIT@E@@@@PN )@@G@@ LA A0,PFP+10 . GET ELEMENT ADDRESS @F@@@@ PO )@@G@@ SA A0,FCT+5 . PUT DRUM ADDRESS INTO FCT @E@@@@ PP )@@G@@ J DJ2 . GO TO SDFI SECTION @F@@@@DJ1 SZPQ )@@G@@ FCT+5 . THIS IS FILE , ADDRESS = 0@D@@@@DJ2 LAPR )@@G@@ A0,3,X11 . ADDRESS OF 1ST BUFFER @D@@@@ SA,H1 A0,FCPS )@@G@@T+6 . PUT INTO FCT @F@@@@ LA A0,4,X11 PT )@@G@@ . GET ADDRESS OF 2ND BUFFER @D@@@@ SA,H2 A0,FCT+6 PU )@@G@@ . PUT INTO FCT @G@@@@ LA A0,*5,X11 . GET NUMBPV )@@G@@ER OF WORDS IN BUFFER @E@@@@ DSL A0,36 . PRPW )@@G@@EPARE FOR DIVIDE @E@@@@ DI,U A0,28 . CONVERT PX )@@G@@TO SECTORS @E@@@@ SA,H1 A0,FCT+7 . AND PUT INTO FPY )@@G@@CT @E@@@@ MSI,U A0,28 . NOW BACK TO WORDS PZ )@@G@@@F@@@@ SA,H1 A0,FCT+4 . MUST BE MULTIPLE OF 28 QA )@@G@@@C@@@@ SX X11,SAVE . SAVE X11@E@@@@ LAQB )@@G@@,U A0,FCT . PREPARE FOR SDFIO @D@@@@ LMJ QC )@@G@@ X11,SDFIO . JUMP TO SDFIO @F@@@@ J DJ3 QD )@@G@@ . OH,OH , THERE'S AN ERROR @D@@@@ LX X11,SAVE QE )@@G@@ . LOOKS GOOD @D@@@@ J 9,X11 . NOQF )@@G@@RMAL RETURN @D@@@@DJ3 LX X11,SAVE . RESTORE X11 QG )@@G@@@E@@@@ AA,U A5,0100 . PREPARE ERROR WORD @E@@@@QH )@@G@@ SA A5,*6,X11 . STORE ERROR WORD @D@@@@ QI )@@G@@ J *7,X11 . ERROR EXIT @[@@@@ . @[@@@@ . QJ )@@G@@@^@@@@ . CALL RDS2(BUF,N,$EOF)@C@@@@ . BUF IS BUFFER WHERE IMAGE WILLQK )@@G@@ BE STORED @A@@@@ . N IS NUMBER OF WORDS IN BUF @A@@@@ . $EOF IQL )@@G@@S THE END OF FILE RETURN@D@@@@ . NOTE - IF THERE IS AN I/O ERROR , THE EQM )@@G@@RROR EXIT AS@B@@@@ . DEFINED IN RDS1 WILL BE TAKEN . @[@@@@ . QN )@@G@@@]@@@@RDS2* . @F@@@@ LA A0,0,X11 . GET ADDRQO )@@G@@ESS OF BUFFER @D@@@@ SA,H2 A0,FCT+8 . PLACE INQP )@@G@@TO FCT@F@@@@ LA A1,*1,X11 . GET NUMBER OF WORDS QQ )@@G@@(MAX) @D@@@@ SA,H2 A1,FCT+7 . PUT INTO FCT @E@@@@QR )@@G@@ JZ A1,DJ4 . SKIP IF NUMBER = 0 @D@@@@ QS )@@G@@ JN A1,DJ4 . OR NEGATIVE @C@@@@ SSL QT )@@G@@ A1,1 . MAX/2 @G@@@@ ANA,U A1,1 QU )@@G@@ . REDUCE BY 1 FOR LOOP COUNTER @G@@@@ LXI,U A0,2 QV )@@G@@ . A0 STILL HAS BUFFER ADDRESS @F@@@@. LA A3,BLQW )@@G@@ANK . GET READY TO BLANK BUFFER @E@@@@. SA A3,0,QX )@@G@@*A0 . STORE THE BLANK @D@@@@ DSL A2,72 QY )@@G@@ . ZERO BUFFER @B@@@@ DS A2,0,*A0 . QZ )@@G@@@E@@@@ JGD A1,$-1 . LOOP UNTIL DONE @C@@@@RA )@@G@@DJ4 SX X11,SAVE2 . SAVE X11@E@@@@ LA,U RB )@@G@@ A0,FCT . SET A0 FOR SDFI @D@@@@ LMJ X11,SRC )@@G@@DFI . GO TO SDFI @F@@@@ J DJ3 RD )@@G@@ . TAKE ERROR EXIT (IN RDS1) @D@@@@ J DJ5 RE )@@G@@ .EOF RETURN @G@@@@ LX X11,SAVE2 . RESTORE RF )@@G@@X11 , NORMAL RETURN @F@@@@ LA,S1 A0,FCT+10 . GERG )@@G@@T S1 OF CONTROL WORD @G@@@@ JNZ A0,RDS2 . IGRH )@@G@@NORE THIS IMAGE (NOT REAL) @F@@@@ TNZ ELFLAG RI )@@G@@ . IS THIS D.F. OR P.F. ? @F@@@@ J 4,X11 RJ )@@G@@ . D.F. , TAKE NORMAL RET @F@@@@ TZ,S4 FCT+10 RK )@@G@@ . CHECK CYCLE DELETED (P.F.)@F@@@@ J RDS2 RL )@@G@@ . THIS IMAGE IS DELETED @D@@@@ J 4,X11 RM )@@G@@ . NORMAL RETURN @D@@@@DJ5 LX X11,SAVE2 . RESTORE RN )@@G@@X11 @E@@@@ J *2,X11 . TAKE EOF RETURN RO )@@G@@@[@@@@ . @[@@@@ . @]@@@@ . CALL RDS3@[@@@@ . @C@@@@RDS3* SXRP )@@G@@ X11,SAVE2 . SAVE X11@E@@@@ LA,U A0,FCT RQ )@@G@@ . PREPARE FOR SDFIC @D@@@@ LMJ X11,SDFIC RR )@@G@@ . GO TO SDFIC @D@@@@ LX X11,SAVE2 . RESTORE RS )@@G@@X11 @E@@@@ J 1,X11 . RETURN TO CALLER RT )@@G@@@[@@@@$(0) .@#@@@@FCT +0 . @#@@@@ +0 . @#@@@@ RU )@@G@@ +0 . @^@@@@ +02000,0 . @#@@@@ +0 . @#@@@@RV )@@G@@ +0 . @#@@@@ +0 . @#@@@@ +0 . @#@@@@RW )@@G@@ +1,0 . @#@@@@ +1,0 . @#@@@@ +0 . @[@@@@RX )@@G@@PFP . @^@@@@ DO 12 , +0 @#@@@@WD1 +1,0 . @#@@@@SAVE RY )@@G@@ +0 . @#@@@@SAVE2 +0 . @^@@@@BLANK ' ' . @#@@@@RZ )@@G@@ELFLAG +0 . @#@@@@ END ___S VERSION NAME (2 WORDS) SA )@@G@@@A@@@@ . B1 IS ANY USER SUPPLIED BUFFER @B@@@@ . B2 IS A SECOND USERSB )@@G@@ SUPPLIED BUFFER @D@@@@*[@@@@*SDFF*@A@@@@ SUBROUTINE TPROC ( IBREGSC )@@G@@,$ ) @[@@@@C @B@@@@C TEST IF XYZ* PROC CARD - YES=RETURN 2 @ @@@@SD )@@G@@ IMPLICIT INTEGER (A-Z) @A@@@@ DIMENSION IBREG(2),BUF(66) SE )@@G@@@[@@@@C @ @@@@ CALL UPC8 ( IBREG,BUF ) @^@@@@ DO 11 IX=1,1SF )@@G@@3 @B@@@@ IF ( BUF(IX).EQ.'@@@@@*' )GO TO 22 @#@@@@ 11 CONTINSG )@@G@@UE @#@@@@ GO TO 99 @#@@@@ 22 IXS=IX+1 @^@@@@ DO 33 SH )@@G@@JX=IXS,66 @B@@@@ IF ( BUF(JX).EQ.'@@@@@P' )GO TO 44 @#@@@@ 33 SI )@@G@@CONTINUE @#@@@@ GO TO 99 @B@@@@ 44 IF ( BUF(JX+1).NE.'@@@@@SJ )@@G@@R' )GO TO 99@B@@@@ IF ( BUF(JX+2).NE.'@@@@@O' )GO TO 99@B@@@@ SK )@@G@@IF ( BUF(JX+3).NE.'@@@@@C' )GO TO 99@#@@@@ RETURN 2 @]@@@@ 99 SL )@@G@@RETURN@]@@@@ END ___@@@ END ___^=*9(@^[O/K@^=*[[@^*W/K@^=*SM )@@G@@[[@^*S/K@^=*[[@^*U/K@^=*9(G@@]%80@@./K@^=*9!@^!P9(@^!-/K@^=*9(G@@AR#K@[ SN )@@G@@*[@@@@*SDFF*@I@@@@C * THIS IS THE MAIN PROGRAM FOR DCTNRY SO )@@G@@ MAIN0001 @I@@@@ IMPLICIT INTEGER(A-Z) SP )@@G@@ MAIN0002 @I@@@@ COMMON KADDSQ )@@G@@,LADD,JF11,N91(4,300),PLINE(22) MAIN0003 @I@@@@SR )@@G@@C SS )@@G@@MAIN0004 @I@@@@ CALL OPRIME ( PLINE,22 ) ST )@@G@@ MAIN0005 @E@@@@ CALL IDLIN SU )@@G@@ @ PRINT ID SPLASH LINE@I@@@@ LADD = 0 SV )@@G@@ MAIN0007 @I@@@@C DCT8 PROCESSES FOSW )@@G@@RTRAN ELEMENTS UNTIL WE ENCOUNTER A '*END' CARD MAIN0008 @I@@@@C SX )@@G@@ AN END-OF-FILE. MAIN00SY )@@G@@09 @I@@@@ 10 CALL DCT8 (IEDPG,JFT10) SZ )@@G@@ MAIN0010 @I@@@@C IF JFT10 IS SET MERGE THE DATA ON DTA )@@G@@RUM MAIN0011 @I@@@@ IF (JFT10 .GT. 0) TB )@@G@@CALL MRG8 MAIN0012 @I@@@@C TC )@@G@@ IEDPG IS SET WHEN WE ENCOUNTER A '*END' CARD MAIN00TD )@@G@@13 @I@@@@ IF (IEDPG) 20,10,20 TE )@@G@@ MAIN0014 @I@@@@ 20 CALL GETOUT TF )@@G@@ MAIN0015 @I@@@@ END TG )@@G@@ MAIN0016 ___ TH )@@G@@ MAIN0016 ___^&UC@@^2M'=@@@I/K@^&)R#@^@@TI )@@G@@*[@@@@*SDFF*@^@@@@ AXR$ . @]@@@@$(1) . @]@@@@UPA8* TJ )@@G@@ . @E@@@@ L,S6 A0,*0,X11 . GET COMMENT CHAR TK )@@G@@@B@@@@ S A0,*1,X11 . @F@@@@ L,S1 TL )@@G@@ A0,*0,X11 . GET CONTINUATION CHAR @B@@@@ S TM )@@G@@ A0,*2,X11 . @C@@@@ J 4,X11 TN )@@G@@ . @G@@@@UPB8* LA A2,(050505050505) . RIGHT ADJUST STO )@@G@@TATEMENT @F@@@@ LA A5,*0,X11 . NUMBERS,TP )@@G@@SQUEEZE OUT @F@@@@ LX,U A0,4 . BLANKS ANTQ )@@G@@D BLANK FILL@C@@@@ LA A4,(050505050505) . @C@@@@TR )@@G@@ST DSC A4,66 . @C@@@@ TNE TS )@@G@@ A4,(050505050505) . @C@@@@ J ED TT )@@G@@ . @C@@@@ SSC A4,6 . @C@@@@TU )@@G@@ LA A3,A4 . @C@@@@ DSC TV )@@G@@ A2,66 . @C@@@@ED JGD A0,ST TW )@@G@@ . @C@@@@ SA A2,*1,X11 . @C@@@@TX )@@G@@ J 3,X11 . @]@@@@UPC8* . @F@@@@TY )@@G@@ DL A1,0,X11 . A1=L(PACK) A2=L(UNPACK) @B@@@@TZ )@@G@@ LXI,U A1,1 . @B@@@@ LXI,U A2,2 UA )@@G@@ . @E@@@@ L,U A3,10 . 11 WORDSUB )@@G@@ OR 66 CHAR @]@@@@C8NEXT . @B@@@@ TZ 0,A1 UC )@@G@@ . @B@@@@ J UPC8A . @F@@@@ L,UD )@@G@@U A4,0100 . SET LAST 6 CHARS=0100 @B@@@@ L,UE )@@G@@U A5,0100 . @F@@@@UPC8AA DS A4,0,*A2 UF )@@G@@ . END OF CARD FLAG=0100 @B@@@@ DS A4,0,*A2 UG )@@G@@ . @B@@@@ DS A4,0,*A2 . @I@@@@ JGUH )@@G@@D A3,UPC8AA . MGC-01A UI )@@G@@@E@@@@ J 3,X11 . EXIT ON ALL ZEROS @]@@@@UJ )@@G@@UPC8A . @B@@@@ L,S1 A4,0,A1 . @B@@@@ UK )@@G@@ L,S2 A5,0,A1 . @B@@@@ DS A4,0,*A2 UL )@@G@@ . @B@@@@ L,S3 A4,0,A1 . @B@@@@ UM )@@G@@ L,S4 A5,0,A1 . @B@@@@ DS A4,0,*A2 UN )@@G@@ . @B@@@@ L,S5 A4,0,A1 . @B@@@@ UO )@@G@@ L,S6 A5,0,*A1 . @B@@@@ DS A4,0,*A2 UP )@@G@@ . @B@@@@ JGD A3,C8NEXT . @B@@@@ UQ )@@G@@ J 3,X11 . @G@@@@UPD8* . UR )@@G@@ . STORE 1ST ARGUMENT IN THE @G@@@@ LA A0,US )@@G@@*0,X11 . UPPER HALF OF THE 2ND @C@@@@ SA,H1UT )@@G@@ A0,*1,X11 . @C@@@@ J 3,X11 UU )@@G@@ . @F@@@@UPE8* . . UNPACKS 1SUV )@@G@@T ARGUMENT @G@@@@ LA,H1 A0,*0,X11 . INTO 2NDUW )@@G@@, 3RD AND 4TH @C@@@@ SA A0,*1,X11 . UX )@@G@@@C@@@@ LA,S4 A0,*0,X11 . @C@@@@ UY )@@G@@ SA,S1 A0,*2,X11 . @C@@@@ LA,T3 A0,*0,X11UZ )@@G@@ . @C@@@@ SZ *3,X11 . VA )@@G@@@C@@@@ SA,T3 A0,*3,X11 . @C@@@@ VB )@@G@@ J 5,X11 . @C@@@@CD* PROC 1 VC )@@G@@ . @C@@@@ LA A1,0,*A0 . VD )@@G@@@C@@@@ SA,CD(1,1) A1,WD . @C@@@@ VE )@@G@@ END . @G@@@@UPF8* . VF )@@G@@ . PACKS SIX CHARACTERS INTO @G@@@@ LA A0,VG )@@G@@0,X11 . ONE WORD OF FIELD DATA @C@@@@ LXI,UVH )@@G@@ A0,1 . @C@@@@M DO 6 , CD 14-MVI )@@G@@ . @C@@@@ LA A2,WD . @C@@@@VJ )@@G@@ SA A2,*1,X11 . @C@@@@ J VK )@@G@@ 3,X11 . @G@@@@UPG8* LA A5,(05050505050VL )@@G@@5) . PACKS CHARACTERS INTO A @G@@@@ SA A5,WD VM )@@G@@ . WORD OF FIELD DATA - RIGHT@G@@@@ LA A0,VN )@@G@@0,X11 . ADJUSTED, BLANK FILLED @G@@@@ LXI,UVO )@@G@@ A0,1 . 3RD ARGUMENT = NUMBER OF @G@@@@ VP )@@G@@ LA,U A2,6 . CHARACTERS TO BE ENTERED @C@@@@ VQ )@@G@@ ANA A2,*2,X11 . @C@@@@ MI,U A2,VR )@@G@@2 . @C@@@@ J $+1,A3 VS )@@G@@ . @C@@@@P DO 6 , CD 14-P . @C@@@@ VT )@@G@@ LA A4,WD . @C@@@@ SA A4,VU )@@G@@*1,X11 . @C@@@@ J 4,X11 VV )@@G@@ . @E@@@@UPI8* . . GET BITS 0 - 23 VW )@@G@@@C@@@@ LA A0,*0,X11 . @C@@@@ VX )@@G@@ AND A0,(077777777) . @C@@@@ SA A1,*1,X11VY )@@G@@ . @C@@@@ J 3,X11 . VZ )@@G@@@E@@@@UPJ8* . . GET BITS 0 - 17 @C@@@@WA )@@G@@ LA,H2 A0,*0,X11 . @C@@@@ SA WB )@@G@@ A0,*1,X11 . @C@@@@ J 3,X11 WC )@@G@@ . @F@@@@ERROR8* . . THIS ROUTIWD )@@G@@NE PRINTS AN@C@@@@ ER ERR$ . @ @@@@WE )@@G@@ERSET8* SZ COUNT @ @@@@ LA A0,0,X11 @ @@@@WF )@@G@@ SA,H2 A0,ERS1 @A@@@@ LA A0,(J ERS2) WG )@@G@@@A@@@@ SA A0,ERSET8-1 @ @@@@ J 2,XWH )@@G@@11 @ @@@@ERS2 LA A0,COUNT @ @@@@ AA,U A0,WI )@@G@@1 @ @@@@ SA A0,COUNT @ @@@@ TLE,U A0,WJ )@@G@@50 @^@@@@ERS1 J $-$@A@@@@ L A0,(0106,BETWK )@@G@@A) @^@@@@ ER PRINT$@^@@@@ERROUT ER ERR$ @F@@@@WL )@@G@@ERRST8* . . THIS ROUTINE CAUSES @G@@@@WM )@@G@@ LA A0,CONST . ERROR8 TO JUMP TO MERR$ WN )@@G@@@ @@@@ SA A0,ERSET8-1@C@@@@ J 1,X11 WO )@@G@@ . @G@@@@OFEXT8* J ERROUT . THWP )@@G@@ESE RTNS WORK TOGETHER @G@@@@OFRTN8* . WQ )@@G@@. OFRTN8 IS CALLED FIRST AND @G@@@@ LA A0,0,X11 WR )@@G@@ . CAUSES OFEXT8 TO RETURN TO@E@@@@ S,H2 A0,OFEXT8WS )@@G@@ . MAIN PROGRAM @C@@@@ J 2,X11 WT )@@G@@ . @[@@@@ . @A@@@@ . SUBROUTINE PACK12(I12H,NAME) @E@@@@WU )@@G@@ . FD(I,N)=FLD(IABS(6*I-6),6,N) @ STATEMENT FUNCTION @A@@@@ . WV )@@G@@DIMENSION I12H(12),NAME(2) @#@@@@ . DO 10 L=1,2 @#@@@@ . DO 10 WW )@@G@@K=1,6 @A@@@@ . 10 FD(K,NAME(L))=I12H(6*L-6+K) @]@@@@ . RETURN@H@@@@WX )@@G@@PACK12* DL A1,0,X11 . LOAD THE ADDRESSES OF I12H AND NWY )@@G@@AME @F@@@@ LXI,U A1,01 . LOAD 1 INTO A1(INCREWZ )@@G@@MENT) @G@@@@P12L LA A5,0,*A1 . LOAD THE NEXT CHARACTERXA )@@G@@ INTO A5 @F@@@@ SA,S1 A5,0,A2 . STORE THE NEXT BYXB )@@G@@TE OF NAME @G@@@@ LA A5,0,*A1 . LOAD THE NEXT CHAXC )@@G@@RACTER INTO A5 @F@@@@ SA,S2 A5,0,A2 . STORE THE NXD )@@G@@EXT BYTE OF NAME @G@@@@ LA A5,0,*A1 . LOAD THE NEXE )@@G@@XT CHARACTER INTO A5 @F@@@@ SA,S3 A5,0,A2 . STOREXF )@@G@@ THE NEXT BYTE OF NAME @G@@@@ LA A5,0,*A1 . LOAD XG )@@G@@THE NEXT CHARACTER INTO A5 @F@@@@ SA,S4 A5,0,A2 . XH )@@G@@ STORE THE NEXT BYTE OF NAME @G@@@@ LA A5,0,*A1 . XI )@@G@@ LOAD THE NEXT CHARACTER INTO A5 @F@@@@ SA,S5 A5,0,A2 XJ )@@G@@ . STORE THE NEXT BYTE OF NAME @G@@@@ LA A5,0,*A1 XK )@@G@@ . LOAD THE NEXT CHARACTER INTO A5 @F@@@@ SA,S6 A5,0,XL )@@G@@A2 . STORE THE NEXT BYTE OF NAME @H@@@@ TE A2,01XM )@@G@@,X11 . DID WE FINISH THE SECOND WORD OF NAME? @D@@@@ J XN )@@G@@ 03,X11 . IF SO, RETURN @F@@@@ AX,U A2,01XO )@@G@@ . INCREMENT A2 TO NAME(2) @H@@@@ J P12L XP )@@G@@ . GO BACK AND DO THE SECOND WORD OF NAME @[@@@@. @ @@@@XQ )@@G@@. CALL CHKNUM ( N,$YES,$NO ) @B@@@@. CHECK IF N IS NUMERIC ('0' TO '9'XR )@@G@@) @ @@@@. RETURN 2=YES - NUMERIC @ @@@@. RETURN 3=NO - NOT NUXS )@@G@@MERIC @[@@@@. @]@@@@CHKNUM* . @C@@@@ L,U A0,057 XT )@@G@@ . '0' - 1 @C@@@@ L,U A1,071 . '9' XU )@@G@@@D@@@@ TW A0,*0,X11 . N? NUMERIC @B@@@@ XV )@@G@@ J *2,X11 . NO@C@@@@ J *1,X11 XW )@@G@@ . YES @[@@@@. @ @@@@. CALL CHKLET ( N,$YES,$NO ) @B@@@@XX )@@G@@. CHECK IF N IS A LETTER ('A' TO 'Z') @#@@@@. RETURN 2=YES @#@@@@XY )@@G@@. RETURN 3=NO @[@@@@. @]@@@@CHKLET* . @C@@@@ L,U XZ )@@G@@ A0,05 . 'A' - 1 @C@@@@ L,U A1,037 YA )@@G@@ . 'Z' @D@@@@ TW A0,*0,X11 . N? ALPHABETIC YB )@@G@@@B@@@@ J *2,X11 . NO@C@@@@ J YC )@@G@@ *1,X11 . YES @[@@@@. @C@@@@$(0),WD + 0 YD )@@G@@ . @C@@@@COUNT + 0 YE )@@G@@ . @D@@@@BETA '**** TOO MANY ERRORS - RUN ABORTED' @C@@@@YF )@@G@@CONST ER ERR$ . @C@@@@ END YG )@@G@@ . ___ . STORE 1ST ARGUMENT IN THE @G@@@@YH )@@G@@ LA A0,*0,X11 . UPPER HALF OF THE 2ND YI )@@G@@@C@@@@ SA,H1 A0,*1,X11 *[@@@@*SDFF*@I@@@@PRINTFYJ )@@G@@ FORM 12,6,18 . LINES TO SKIP, WORD COUNT, BUFFER ADDRESYK )@@G@@S @G@@@@XREG FORM 18,18 . INDEX INCREMENT, INDEXYL )@@G@@ MODIFIER @#@@@@ AXR$ @D@@@@X13 EQU 015 YM )@@G@@ . SAME AS A1 @D@@@@X14 EQU 016 . SAMEYN )@@G@@ AS A2 @ @@@@$(1). . INSTRUCTION BANK@[@@@@. @ @@@@. CALYO )@@G@@L READ ( BUF,$EOF ) @[@@@@. @]@@@@READ* . @C@@@@ L YP )@@G@@ A0,0,X11 . L(BUF) @C@@@@ LXI A0,1,X11 YQ )@@G@@ . L($EOF) @E@@@@ ER READ$ . READ CARYR )@@G@@D IMAGE @B@@@@ J 3,X11 . @[@@@@. YS )@@G@@@ @@@@. CALL CSF ( BUF,NUM,STAT) @[@@@@. @]@@@@CSF* . @C@@@@YT )@@G@@ L A0,*1,X11 . NUM @C@@@@ L YU )@@G@@ A1,0,X11 . L(BUF) @B@@@@ LSSL A1,18 YV )@@G@@ . @B@@@@ LDSL A0,18 . @B@@@@ ERYW )@@G@@ CSF$ . @C@@@@ S A0,*2,X11 YX )@@G@@ . STAT @C@@@@ J 4,X11 . RETURN @[@@@@YY )@@G@@ . @I@@@@ . SUBROUTINE DRMWT8(IB,IA,KADD) YZ )@@G@@ T.C.T. @I@@@@ . IB = BUFFER ADDRESS IN CORE, IA = ZA )@@G@@LENGTH, KADD = DRUM ADDRESS T.C.T. @I@@@@ . CALL DRMPOS(2,KADDZB )@@G@@,0) T.C.T. @B@@@@ . ZC )@@G@@CALL NTRAN(2,1,IA,IB,L,22) @ WRITE @I@@@@ . IF (IA-L) 1,3,1 ZD )@@G@@ T.C.T. @I@@@@ . 1 WRITE(ZE )@@G@@6,2) L T.C.T. ZF )@@G@@@I@@@@ . 2 FORMAT(31H0****** NTRAN WRITE ERROR, TYPE,I5,7H ******) ZG )@@G@@ T.C.T. @I@@@@ . CALL MERR ZH )@@G@@ T.C.T. @I@@@@ . 3 CALL DRMADR(2,L,L,KADD) ZI )@@G@@ T.C.T. @I@@@@ . RETURNZJ )@@G@@ T.C.T. ZK )@@G@@@[@@@@ . @ @@@@ . ENTRY OBTAN8(IB,IA,KADD)@ @@@@ . CALL DRMPOS(ZL )@@G@@2,KADD,0) @B@@@@ . CALL NTRAN(2,2,IA,IB,L,22) @ READ @I@@@@ . ZM )@@G@@IF (L) 4,4,6 T.C.ZN )@@G@@T. @I@@@@ . 4 WRITE(6,5) L ZO )@@G@@ T.C.T. @I@@@@ . 5 FORMAT(30H0****** NTRAN READ ERROR, ZP )@@G@@TYPE,I5,7H ******) T.C.T. @I@@@@ . CALL MERR ZQ )@@G@@ T.C.T. @I@@@@ . 6 ZR )@@G@@CALL DRMADR(2,L,L,KADD) T.C.ZS )@@G@@T. @I@@@@ . RETURN ZT )@@G@@ T.C.T. @]@@@@ . END @F@@@@DRMWT8* LA,U A1,01ZU )@@G@@0 . IO$ FUNCTION CODE - WRITE @H@@@@ J IOINIZV )@@G@@T . SKIP DOWN TO INITIATE THE I/O REQUEST @F@@@@OBTAN8* LA,ZW )@@G@@U A1,020 . IO$ FUNCTION CODE - READ @G@@@@IOINIT SA,ZX )@@G@@T1 A1,STATUS . STORE THE IO$ FUNCTION CODE @D@@@@ ZY )@@G@@ SZ A3 . ZERO OUT A3 @E@@@@ LA ZZ )@@G@@ A4,*02,X11 . LOAD (KADD) INTO A4 @G@@@@ DI,U A3,28AA )@@G@@ . CONVERT IT TO A SECTOR ADDRESS @G@@@@ SA AB )@@G@@ A3,DRMADD . UPDATE THE SECTOR ADDRESS FOR IO$@G@@@@ LA AC )@@G@@ A5,0,X11 . LOAD THE ADDRESS OF IB INTO A5 @F@@@@ AD )@@G@@ SA A5,WCT . STORE THE BUFFER ADDRESS @E@@@@ AE )@@G@@ LA A2,*01,X11 . LOAD (IA) INTO A2 @G@@@@ SA,AF )@@G@@H1 A2,WCT . STORE THE WORD COUNT FOR IO$ @G@@@@ AG )@@G@@ LA,U A0,IO$P . PACKET ADDRESS FOR IO$ TO A0 @H@@@@AH )@@G@@ ER IOW$ . INITIATE I/O AND WAIT FOR COMPLETIAI )@@G@@ON @E@@@@ TNZ,S1 STATUS . WAS THE I/O COMPLETED?AJ )@@G@@@D@@@@ J RTN0 . IF SO, SKIP @H@@@@ AK )@@G@@ SA A0,SNAP$P+2 . SAVE THE CONTENTS OF A0 FOR SNAP$ AL )@@G@@@F@@@@ LA A0,IOERR . PRINT$ CONTROL WORD TO A0 AM )@@G@@@E@@@@ ER PRINT$ . I/O ERROR MESSAGE @F@@@@AN )@@G@@ LA,U A0,SNAP$P . SNAP$ PACKET ADDRESS TO A0@E@@@@AO )@@G@@ ER SNAP$ . X-A-R AND PACKET DUMP@C@@@@ AP )@@G@@ ER ERR$ . ERROR EXIT@F@@@@RTN0 LA,H2 A5,STAQ )@@G@@ATUS . LOAD THE WORD COUNT INTO A5@G@@@@ AA A5,*0AR )@@G@@2,X11 . ADD THE PREVIOUS DRUM ADDRESS @F@@@@ SA AS )@@G@@ A5,*02,X11 . UPDATE THE DRUM ADDRESS @C@@@@ J AT )@@G@@ 04,X11 . RETURN @[@@@@ . @G@@@@GETOUT* SX X11,XAU )@@G@@10 . SAVE THE RETURN ADDRESS IN X10 @F@@@@ LMJ AV )@@G@@ X11,HDG . RE-SET THE PAGE HEADING @F@@@@ + AW )@@G@@ HDGOFF . RE-SET THE PAGE HEADING @F@@@@ + AX )@@G@@ HDGOFF . RE-SET THE PAGE HEADING @A@@@@ + AY )@@G@@ 0001406362112 @H@@@@ LA A0,FREE2 . LOAD THE AZ )@@G@@CSF$ CONTROL WORD INTO A0 @F@@@@ ER CSF$ .BA )@@G@@ RELEASE THE SCRATCH FILE @F@@@@ J 01,X10 .BB )@@G@@ RETURN [VIA X10] @G@@@@. BC )@@G@@ MGC@G@@@@. CALL ASGTCT - ASSIGN TCT$ FBD )@@G@@ILE MGC@G@@@@. BE )@@G@@ MGC@G@@@@ASGTCT* . BF )@@G@@ MGC@H@@@@ DL BG )@@G@@ A0,IO$P . FILE=TCT$ MGC @H@@@@BH )@@G@@ DS A0,FAC . MBI )@@G@@GC @H@@@@ L,U A0,FAC . BJ )@@G@@ MGC @H@@@@ ER FACIL$ . BK )@@G@@ MGC @H@@@@ TZ,S1 FAC+6 BL )@@G@@ . FILE ASSIGNED? MGC @H@@@@ J 1,X11BM )@@G@@ . YES MGC @G@@@@ L BN )@@G@@ A0,TCTASG . MGC@G@@@@ BO )@@G@@ ER CSF$ . MGC@H@@@@BP )@@G@@ JP A0,1,X11 . JUMP IF ASSIGN GOOD MBQ )@@G@@GC @H@@@@ L A0,TCTPRT . PRINT ERROR BR )@@G@@ MGC @H@@@@ ER PRINT$ . BS )@@G@@ MGC @H@@@@ L$SNAP 'TCTERR',2 BT )@@G@@ . MGC @H@@@@ ER ERR$ BU )@@G@@ . MGC @G@@@@. BV )@@G@@ MGC@G@@@@. CALBW )@@G@@L CHKASG ( FILE,$ERR,STAT ) MGC@G@@@@BX )@@G@@. CHECK IF FILE ASSIGNED IF NOT ASSIGN IT MGCBY )@@G@@@G@@@@. BZ )@@G@@ MGC@G@@@@CHKASG* . CA )@@G@@ MGC@G@@@@ DL A0,*0,X11 . CB )@@G@@ MGC@G@@@@ DS A0,FAC . CC )@@G@@ MGC@G@@@@ L,U A0,FAC . CD )@@G@@ MGC@G@@@@ ER FACIL$ CE )@@G@@ . MGC@G@@@@ TZ,S1 FAC+6 CF )@@G@@ . MGC@G@@@@ J 4,X11CG )@@G@@ . MGC@G@@@@ L CH )@@G@@ A0,(' . ') . FILE NOT ASSIGNED MGC@G@@@@ S CI )@@G@@ A0,FAC+2 . MGC@G@@@@ CJ )@@G@@ L A0,ASGFIL . MGC@G@@@@CK )@@G@@ ER CSF$ . ASSIGN FILE MGCCL )@@G@@@G@@@@ JZ A0,4,X11 . ASSIGN OK CM )@@G@@ MGC@G@@@@ JP A0,4,X11 . ASSIGN OK CN )@@G@@ MGC@G@@@@ S A0,*2,X11 . STATUS CO )@@G@@ MGC@G@@@@ J *1,X11 . ERR RETCP )@@G@@URN MGC@ @@@@$(0). . ER PACKETS, ETC.@F@@@@IO$P CQ )@@G@@ 'TCT$ ' . INTERNAL FILE NAME FOR IO$ @E@@@@ CR )@@G@@ + 0 . NO INTERRUPT ACTIVITY @H@@@@STATUS + CS )@@G@@ 0 . STATUS,FUNCTION,0, WORDS TRANSFERRED @F@@@@CT )@@G@@WCT + 0 . WORD COUNT, BUFFER ADDRESS @E@@@@CU )@@G@@DRMADD + 0 . CURRENT DRUM ADDRESS @E@@@@SNAP$PCV )@@G@@ 'IOW$ ' . SNAP$ IDENTIFIER @H@@@@ XRECW )@@G@@G 0700006,IO$P . DUMP ALL REGISTERS AND IO$ PACKET @E@@@@CX )@@G@@ RES 1 . FORMER CONTENTS OF A0@F@@@@BADST CY )@@G@@ ' I/O ERROR ON SCRATCH FILE - PACKET DUMP FOLLOWS' @H@@@@IOERR CZ )@@G@@ PRINTF 02,010,BADST . PRINT$ CONTROL FOR THE ERROR MESSAGE DA )@@G@@@I@@@@FREE2 + $+02000001 . COMMAND TO CSF$ DB )@@G@@ T.C.T. @I@@@@ '@FREE TCT$. ' . COMMANDDC )@@G@@ TO CSF$ T.C.T. @G@@@@TCTASG + $+05000001 DD )@@G@@ . MGC@H@@@@ '@ASG,T TCT$.,FDE )@@G@@//POS/25 . ' . MGC @H@@@@TCTERR ' CDF )@@G@@ANNOT ASSIGN TCT$ (MERGE) FILE. STATUS IN A0.' . MGC @H@@@@DG )@@G@@TCTPRT PRINTF 2,8,TCTERR . MDH )@@G@@GC @G@@@@ASGFIL + $+04000001 . DI )@@G@@ MGC@G@@@@ '@ASG,A ' . DJ )@@G@@ MGC@G@@@@FAC RES 9 . DK )@@G@@ MGC@F@@@@HDGOFF EQU SNAP$P+1 . NEGADL )@@G@@TIVE NUMBER FOR HDG @]@@@@ END___ .*[@@@@*SDFF*@[@@@@. DM )@@G@@@F@@@@. SQEEZE OUT BLANKS AND HOLLERITHS AND COUNT MULTIPLE STATEMENTS.DN )@@G@@@[@@@@. @#@@@@ AXR$ @G@@@@XREG FORM 18,18 DO )@@G@@ . INDEX INCREMENT, INDEX MODIFIER @E@@@@X12 EQU 014 DP )@@G@@ . SAME AS A0 [I] @E@@@@X13 EQU 015 DQ )@@G@@ . SAME AS A1 [J] @E@@@@X14 EQU 016 .DR )@@G@@ SAME AS A2 [N] @E@@@@X15 EQU 017 . SAMEDS )@@G@@ AS A3 [NWAR]@ @@@@$(1). . INSTRUCTION BANK@E@@@@SQUASH* DL DT )@@G@@ X12,IJINIT . INITIALIZE I AND J @D@@@@ DS DU )@@G@@ A6,SAVE67 . SAVE A6 AND A7@E@@@@ LX X15,NWAR DV )@@G@@ . LOAD (NWAR) INTO X15 @E@@@@ AX X15,IJINIT .DW )@@G@@ ADD (1,0) TO NWAR @I@@@@ SZ IAREG,X15 . SET DX )@@G@@ IAREG(NWAR+1) TO ZER0 FOR SEARCHING @F@@@@ DSL A4,72DY )@@G@@ . HFIELD - ZERO A4,A5 (K,L) @H@@@@ SZ MULT DZ )@@G@@ . 0 MULTIPLE STATEMENT COUNTER MGC @H@@@@ SZ EA )@@G@@ NWAR1 . MGC @[@@@@EB )@@G@@ . @F@@@@NCHL L,S6 A2,IAREG,*X12 . LOAD IAREG(I) INTO XEC )@@G@@14 @[@@@@ . @D@@@@ J *SELECT,X14 . COMPUTED ED )@@G@@GO TO @[@@@@ . @H@@@@DEL0 TG X12,X15 . IS I LESEE )@@G@@S THAN OR EQUAL TO NWAR? @D@@@@ J GOBACK .EF )@@G@@ IF NOT, RETURN @E@@@@ SLJ STEPX . STEP TO EG )@@G@@NEXT CARD @B@@@@ J ENDJL . @E@@@@STEPX EH )@@G@@ J $-$ . STEP TO NEXT CARD @E@@@@ LA EI )@@G@@ A6,NI1M1 . LOAD (-1,-1) INTO A6 @E@@@@ AU EJ )@@G@@ A6,X12 . PUT (I)-1 IN A7 @D@@@@ SZ A6 EK )@@G@@ . ZER0 OUT A6 @F@@@@ DI,U A6,66 .EL )@@G@@ MOD(I-1,66) IS THE REMAINDER@D@@@@ AX,U X12,65 .EM )@@G@@ ADD 65 TO I @E@@@@ ANX X12,A7 . SUBTRACT EN )@@G@@MOD(I-1,66) @G@@@@ J *STEPX . IF SO, LOOK AT TEO )@@G@@HE NEXT CHARACTER @[@@@@. @A@@@@. 'T' CHARACTER - CHECK IF 'FORMAT'EP )@@G@@@]@@@@TCHAR . @I@@@@ TE A1,(1,5) . X13(A1)=EQ )@@G@@(1,5)? MGC-01A @I@@@@ J LRESET ER )@@G@@ . NO MGC-01A @I@@@@ DLES )@@G@@ A4,IAREG . TEST FOR FORMAT MGC-01A ET )@@G@@@I@@@@ DTE A4,FORMAT . FO? EU )@@G@@ MGC-01A @I@@@@ J LRESET . NO EV )@@G@@ MGC-01A @I@@@@ DL A4,IAREG+2EW )@@G@@ . MGC-01A @I@@@@ DTEX )@@G@@E A4,FORMAT+2 . RM? MGC-01A EY )@@G@@@I@@@@ J LRESET . NO EZ )@@G@@ MGC-01A @I@@@@ J GOBACK . YES-RETURN WIFA )@@G@@TH FORMAT ONLY IN IAREG MGC-01A @[@@@@ . @E@@@@LRESET SZ FB )@@G@@ A4 . RESET L TO ZER0 @E@@@@KRESET SZ A5 FC )@@G@@ . RESET K TO ZER0 @G@@@@PAKJ SX X14,IAREG,*FD )@@G@@X13 . SET J<-J+1, IAREG(J)<-IAREG(I) @B@@@@ J ENDJLFE )@@G@@ . @[@@@@ . @G@@@@NL1 LA,U A4,01 .FF )@@G@@ RESET L TO 1 (LOOK FOR NUMBERS)@E@@@@ J KRESET FG )@@G@@ . GO BACK AND RESET K @G@@@@NEVAL JZ A4,PAKJ .FH )@@G@@ IS THE NUMBER PART OF A NAME? @E@@@@ MSI,U A5,10 FI )@@G@@ . MULTIPLY K BY 10 @C@@@@ AA A5,X14 .FJ )@@G@@ ADD (N) @H@@@@ ANA,U A5,060 . SUBTRACT 060, CFK )@@G@@ONVERTING FROM FIELDATA @F@@@@ J PAKJ . SAVEFL )@@G@@ THE HOLLERITH CHARACTER@[@@@@ . @G@@@@HFIELD JZ A5,LRESET FM )@@G@@ . IF NO NUMBER PRECEDES, IT'S A NAME@E@@@@ TLE,U A5,10FN )@@G@@ . IS K LESS THAN 10? @D@@@@ J IJDEC FO )@@G@@ . IF SO, SKIP @D@@@@ LA,U A4,02 . RESEFP )@@G@@T L TO 2 @E@@@@ TLE,U A5,100 . IS K LESS THANFQ )@@G@@ 100?@D@@@@ J IJDEC . IF SO, SKIP @D@@@@FR )@@G@@ LA,U A4,03 . RESET L TO 3 @E@@@@IJDEC ANXFS )@@G@@ X13,A4 . SUBTRACT L FROM J @D@@@@ AX FT )@@G@@ X12,A5 . ADD K TO I @G@@@@ J STO0 FU )@@G@@ . JUMP DOWN AND STORE 'O0' IN IAREG@[@@@@ . @]@@@@QUOTE . FV )@@G@@@G@@@@QHL LX X14,IAREG,*X12 . LOAD THE NEXT CHARACTER INTOFW )@@G@@ X14 @D@@@@ TE,U X14,0100 . END OF CARD? @B@@@@FX )@@G@@ J QHL1 . NO@F@@@@ SLJ STEPXFY )@@G@@ . YES - STEP TO NEXT CARD @B@@@@ J QHL FZ )@@G@@ . @]@@@@QHL1 . @D@@@@ TE,U X14,072 GA )@@G@@ . =QUOTE (') @D@@@@ J QHL . NOGB )@@G@@T QUOTE @B@@@@ TG X12,X15 . @B@@@@ GC )@@G@@ J GOBACK . @]@@@@DQQ . @D@@@@ L GD )@@G@@ X14,IAREG,X12 . NEXT CHAR. @D@@@@ TE,U X14,0GE )@@G@@100 . END OF CARD? @B@@@@ J DQQ1 GF )@@G@@ . NO@F@@@@ SLJ STEPX . YES - STEP TO NEXT CGG )@@G@@ARD @^@@@@ J DQQ @]@@@@DQQ1 . @B@@@@ TEGH )@@G@@,U X14,072 . @D@@@@ J DQQ4 GI )@@G@@ . NOT QUOTE @D@@@@ A,U X12,2 . STEP I BGJ )@@G@@Y 2 @]@@@@DQQ2 . @B@@@@ TLE X15,X12 . GK )@@G@@@B@@@@ J GOBACK . @B@@@@ L GL )@@G@@ X14,IAREG-1,X12 . @D@@@@ TE,U X14,0100 . ENGM )@@G@@D OF CARD? @B@@@@ J DQQ3 . NO@F@@@@ GN )@@G@@ SLJ STEPX . YES - STEP TO NEXT CARD @B@@@@ GO )@@G@@ J DQQ2 . @]@@@@DQQ3 . @B@@@@ TNGP )@@G@@E,U X14,072 . @B@@@@ J DQQ GQ )@@G@@ . @B@@@@ J QHL . @]@@@@DQQ4 . GR )@@G@@@[@@@@ . @G@@@@STO0 DL A4,O0 . LOAD 'H' AND 'O'GS )@@G@@ INTO A4 AND A5@G@@@@ DS A4,IAREG,X13 . STORE THE GT )@@G@@HOLLERITH INDICATOR @C@@@@ L,U A4,021 . 'LGU )@@G@@' @B@@@@ S A4,IAREG+2,X13 . @D@@@@ AX,GV )@@G@@U X13,03 . ADD 3 TO J @E@@@@ DSL A4,72GW )@@G@@ . ZERO A4 AND A5 K,L @[@@@@ . @H@@@@ENDJL TG GX )@@G@@ X12,X15 . IS I LESS THAN OR EQUAL TO NWAR? @D@@@@ GY )@@G@@ J GOBACK . IF NOT, RETURN @E@@@@ J GZ )@@G@@ NCHL . IF SO, GO AROUND AGAIN@[@@@@. @H@@@@MULTX L HA )@@G@@ A4,MULT . INCREMENT MULTIPLE STATEMENT MGC @H@@@@HB )@@G@@ A,U A4,1 . COUNTER MHC )@@G@@GC @H@@@@ S A4,MULT . HD )@@G@@ MGC @C@@@@ TNE,U A4,1 . FIRST? HE )@@G@@@H@@@@ S,H2 X13,NWAR1 . HF )@@G@@ MGC @H@@@@ J LRESET . HG )@@G@@ MGC @[@@@@. @D@@@@GOBACK SX,H2 X13,NWAR HH )@@G@@ . SET NWAR <- J @H@@@@ TNZ MULT . MUHI )@@G@@LTIPLE STATEMENTS? MGC @B@@@@ J RETRN HJ )@@G@@ . NO@E@@@@ L,H2 A4,NWAR1 . YES - NWAR=NWAHK )@@G@@R1 @B@@@@ S A4,NWAR . @D@@@@ S,HHL )@@G@@2 X13,NWAR1 . NWAR1=NWAR @]@@@@RETRN . @E@@@@ HM )@@G@@ DL A6,SAVE67 . RESTORE A6 AND A7 @C@@@@ J HN )@@G@@ 01,X11 . RETURN @[@@@@. @ @@@@. SUBROUTINE MULTHO )@@G@@Y ( $ ) @C@@@@. HANDLE MULTIPLE STATEMENTS - SEPARATED BY ';'@[@@@@HP )@@G@@. @]@@@@MULTY* . @D@@@@ L A3,NWAR1 . NOHQ )@@G@@. WORDS @F@@@@ L A0,NWAR . NO. IN FIRST SHR )@@G@@TATEMENT @B@@@@ LXI,U A0,1 . @ @@@@ HS )@@G@@ AN A3,NWAR @B@@@@NEXT JGD A3,NEXT2 . HT )@@G@@@H@@@@ J 2,X11 . ';' - NOT FOUND HU )@@G@@ MGC @B@@@@NEXT2 L A2,IAREG,*A0 . @B@@@@ HV )@@G@@ TE,U A2,+';' . @B@@@@ J NEXT HW )@@G@@ . @B@@@@ L A1,(1,0) . @B@@@@ HX )@@G@@ SZ FIRST . @B@@@@MOVE L A2,IAREG,*AHY )@@G@@0 . @B@@@@ TZ FIRST . @B@@@@ HZ )@@G@@ J STORE . @B@@@@ TE,U A2,+';' IA )@@G@@ . @B@@@@ J STORE . @G@@@@ IB )@@G@@ S,H2 A1,NWAR . NO. WORDS IN NEXT STATEMENT @D@@@@IC )@@G@@ JZ A1,MOVE . JUMP - NWAR=0 @C@@@@ S,ID )@@G@@H1 A1,FIRST . FIRST=1 @B@@@@STORE S A2,IAREG,*AIE )@@G@@1 . @B@@@@ JGD A3,MOVE . @B@@@@ IF )@@G@@ AN,U A1,1 . @B@@@@ S,H2 A1,NWAR1 IG )@@G@@ . @B@@@@ TNZ FIRST . @B@@@@ IH )@@G@@ S,H2 A1,NWAR . @B@@@@ L A2,MULT II )@@G@@ . @B@@@@ AN,U A2,1 . @B@@@@ IJ )@@G@@ S A2,MULT . @G@@@@ J *0,X11 IK )@@G@@ . RETURN 1 - MULTIPLE STATEMENT @B@@@@FIRST + 0 IL )@@G@@ . @^@@@@$(2). . DATA BANK @I@@@@FORMAT + IM )@@G@@ 013 . F MGC-01A @I@@@@IN )@@G@@ + 024 . O IO )@@G@@MGC-01A @I@@@@ + 027 . R IP )@@G@@ MGC-01A @I@@@@ + 022 IQ )@@G@@ . M MGC-01A @I@@@@SELECT + IR )@@G@@ DEL0 . '@' 0 000 @I@@@@IS )@@G@@ + LRESET . '[' 1 IT )@@G@@ 001 @I@@@@ + LRESET . ']' IU )@@G@@ 2 002 @I@@@@ + LRESET .IV )@@G@@ ')' 3 003 @I@@@@ + IW )@@G@@ LRESET . '^' 4 004 @I@@@@IX )@@G@@ + ENDJL . ' ' 5 IY )@@G@@ 005 @I@@@@ + LRESET . 'A' IZ )@@G@@ 6 006 @I@@@@ + LRESET .JA )@@G@@ 'B' 7 007 @I@@@@ + JB )@@G@@ LRESET . 'C' 8 010 @I@@@@JC )@@G@@ + LRESET . 'D' 9 JD )@@G@@ 011 @I@@@@ + LRESET . 'E' JE )@@G@@ 10 012 @I@@@@ + LRESET .JF )@@G@@ 'F' 11 013 @I@@@@ + JG )@@G@@ LRESET . 'G' 12 014 @I@@@@JH )@@G@@ + HFIELD . 'H' 13 JI )@@G@@ 015 @I@@@@ + LRESET . 'I' JJ )@@G@@ 14 016 @I@@@@ + LRESET .JK )@@G@@ 'J' 15 017 @I@@@@ + JL )@@G@@ LRESET . 'K' 16 020 @I@@@@JM )@@G@@ + HFIELD . 'L' 17 JN )@@G@@ 021 @I@@@@ + LRESET . 'M' JO )@@G@@ 18 022 @I@@@@ + LRESET .JP )@@G@@ 'N' 19 023 @I@@@@ + JQ )@@G@@ LRESET . 'O' 20 024 @I@@@@JR )@@G@@ + LRESET . 'P' 21 JS )@@G@@ 025 @I@@@@ + LRESET . 'Q' JT )@@G@@ 22 026 @I@@@@ + HFIELD .JU )@@G@@ 'R' 23 027 @I@@@@ + JV )@@G@@ LRESET . 'S' 24 030 @I@@@@JW )@@G@@ + TCHAR . 'T' 25 JX )@@G@@ 031 @I@@@@ + LRESET . 'U' JY )@@G@@ 26 032 @I@@@@ + LRESET .JZ )@@G@@ 'V' 27 033 @I@@@@ + KA )@@G@@ LRESET . 'W' 28 034 @I@@@@KB )@@G@@ + LRESET . 'X' 29 KC )@@G@@ 035 @I@@@@ + LRESET . 'Y' KD )@@G@@ 30 036 @I@@@@ + LRESET .KE )@@G@@ 'Z' 31 037 @I@@@@ + KF )@@G@@ LRESET . ')' 32 040 @I@@@@KG )@@G@@ + NL1 . '-' 33 KH )@@G@@ 041 @I@@@@ + NL1 . '+' KI )@@G@@ 34 042 @I@@@@ + LRESET .KJ )@@G@@ '<' 35 043 @I@@@@ + KK )@@G@@ NL1 . '=' 36 044 @I@@@@KL )@@G@@ + LRESET . '>' 37 KM )@@G@@ 045 @I@@@@ + LRESET . '&' KN )@@G@@ 38 046 @I@@@@ + LRESET .KO )@@G@@ '$' 39 047 @I@@@@ + KP )@@G@@ NL1 . '*' 40 050 @I@@@@KQ )@@G@@ + NL1 . '(' 41 KR )@@G@@ 051 @I@@@@ + LRESET . '%' KS )@@G@@ 42 052 @I@@@@ + LRESET .KT )@@G@@ ':' 43 053 @I@@@@ + KU )@@G@@ LRESET . '?' 44 054 @I@@@@KV )@@G@@ + LRESET . '!' 45 KW )@@G@@ 055 @I@@@@ + NL1 . ',' KX )@@G@@ 46 056 @I@@@@ + LRESET .KY )@@G@@ '\' 47 057 @I@@@@ + KZ )@@G@@ NEVAL . '0' 48 060 @I@@@@LA )@@G@@ + NEVAL . '1' 49 LB )@@G@@ 061 @I@@@@ + NEVAL . '2' LC )@@G@@ 50 062 @I@@@@ + NEVAL .LD )@@G@@ '3' 51 063 @I@@@@ + LE )@@G@@ NEVAL . '4' 52 064 @I@@@@LF )@@G@@ + NEVAL . '5' 53 LG )@@G@@ 065 @I@@@@ + NEVAL . '6' LH )@@G@@ 54 066 @I@@@@ + NEVAL .LI )@@G@@ '7' 55 067 @I@@@@ + LJ )@@G@@ NEVAL . '8' 56 070 @I@@@@LK )@@G@@ + NEVAL . '9' 57 LL )@@G@@ 071 @I@@@@ + QUOTE . ''' LM )@@G@@ 58 072 @I@@@@ + MULTX .LN )@@G@@ ';' 59 073 @I@@@@ + LO )@@G@@ NL1 . '/' 60 074 @I@@@@LP )@@G@@ + NL1 . '.' 61 LQ )@@G@@ 075 @I@@@@ + LRESET . '"' LR )@@G@@ 62 076 @I@@@@ + LRESET .LS )@@G@@ '_' 63 077 @G@@@@ + LT )@@G@@ DEL0 . 0100=LAST CHAR IN CARD FLAG @F@@@@IJINIT XRELU )@@G@@G 01,0 . INITIALIZATION OF I AND J@F@@@@ XRELV )@@G@@G 01,0 . INITIALIZATION OF I AND J@D@@@@SAVE67 RELW )@@G@@S 2 . SAVE A6 AND A7@C@@@@NI1M1 - 00000LX )@@G@@01000001 . XREG -1,-1@B@@@@O0 + 015 . 'H' LY )@@G@@@B@@@@ + 024 . 'O' @[@@@@. @C@@@@. IF LZ )@@G@@MULT=0 NWAR=NO. OF WORDS IN STATEMENT @[@@@@. @E@@@@. IF MULT NMA )@@G@@OT 0 NWAR=NO. OF WORDS IN STATEMENT 1 AND @E@@@@. MB )@@G@@ NWAR1=NO. OF WORDS IN ALL STATEMENTS @[@@@@. @B@@@@. MULT=MULTMC )@@G@@IPLE STATEMENT COUNTER (-1) @[@@@@. @G@@@@E8ARY INFO 2 MD )@@G@@6 . LABELLED COMMON STORAGE ALLOCATION@]@@@@$(6) . @B@@@@ME )@@G@@NWAR RES 1 . @B@@@@MULT RES 1 MF )@@G@@ . @B@@@@NWAR1 RES 1 . @B@@@@MG )@@G@@IAREG RES 1792 . @]@@@@ END___ MH )@@G@@ 0 000 @I@@@@ + LRESET . '[' MI )@@G@@ 1 001 @I@@@@ *[S@@@*SDFF*@^@@@@ MJ )@@G@@ AXR$ . @]@@@@$(1) . @B@@@@PF FORM 12,6,18 MK )@@G@@ . @B@@@@IDLIN* S X11,SAVX11 . @E@@@@ ML )@@G@@ L,U A0,DCTID . DCT VERSION-IN MAP @B@@@@ S,MM )@@G@@S4 A0,IDBUFF+1 . @I@@@@ LMJ X11,IDONLY$ MN )@@G@@ . MGC 01C @B@@@@ L MO )@@G@@ A0,PIDLIN . @B@@@@ ER PRINT$ . MP )@@G@@@B@@@@ L X11,SAVX11 . @B@@@@ J MQ )@@G@@ 1,X11 . @]@@@@$(0) . @B@@@@SAVX11 + 0 MR )@@G@@ . @^@@@@IDBUFF* 'DCTNRY 01A '@B@@@@ ' MS )@@G@@ ' . @B@@@@PIDLIN PF 1,$-IDBUFF,IDBUFF . MT )@@G@@@#@@@@ END ___^@)^@)DK)^@)^@)^@)^@1 -SAC1^@)^@)^@)^@)^@)^@)MU )@@G@@^@) 0)@#@@@@^)*A@(^@)^@)*[S@@@*SDFF*@I@@@@ SUBROUTINE CTCDIT($,$,$)MV )@@G@@ CDIT0001 @I@@@@C THIS MW )@@G@@SUBROUTINE INTERPRETS FREE FORM CONTROL CARDS CDIT0002 MX )@@G@@@I@@@@C 1ST $ RETURN USED AS STANDARD RETURN MY )@@G@@ CDIT0003 @I@@@@C 2ND $ RETURN USED WHEN AN END CONTROL CARMZ )@@G@@D IS FOUND ('*') CDIT0004 @I@@@@C NA )@@G@@ CDIT0005 @I@@@@ IMPLICNB )@@G@@IT INTEGER (A-Z) CDIT0006 NC )@@G@@@I@@@@ PARAMETER BUFSIZ=448 ND )@@G@@ CDIT0007 @I@@@@ DIMENSION BUF1(BUFSIZ),BUF2(BUFSIZ),ICCR(6NE )@@G@@6) CDIT0008 @I@@@@ DIMENSION ICCD(11) NF )@@G@@ CDIT0009 @I@@@@ COMMONNG )@@G@@ KADD,LADD,JF11,N91(4,300),LINE(22) CDIT0010 NH )@@G@@@I@@@@ COMMON /E8DCT/INAME(2),KVERSN(2),LNSS,JF1,JF2,JF3,JF4,JF5, NI )@@G@@ CDIT0011 @I@@@@ 1 JF6,JF7,JF8,JF9,JF10,MBUF,INCFL,FILE(2),JNJ )@@G@@F12,JF13,IVTE,KCTSUB, CDIT0012 @I@@@@ 2 KOMTAB(300),KCMA,KBLNAMNK )@@G@@ MGC 01C @I@@@@ COMMONNL )@@G@@ /E8IPT/IPT(1000) CDIT0014 NM )@@G@@@I@@@@ COMMON /MSG/MSG(105) NN )@@G@@ CDIT0015 @I@@@@ EQUIVALENCE (ICCR,IPT(30)),(BUF1,IPT(100))NO )@@G@@,(BUF2,IPT(BUFSIZ+100)) CDIT0016 @I@@@@ EQUIVALENCE (ICCD,IPT) NP )@@G@@ CDIT0017 @I@@@@ DIMENSNQ )@@G@@ION QUAL(2),USE(7) CDIT0018 NR )@@G@@@I@@@@ DATA USE/ '@USE I$I$I$,' , 5*' ' / NS )@@G@@ CDIT0019 @I@@@@C SET FLAGS TO INITIAL VALUES NT )@@G@@ CDIT0020 @I@@@@ JF1=0 NU )@@G@@ CDIT0021 @I@@@@ JF2=0 NV )@@G@@ CDIT0022 NW )@@G@@@I@@@@ JF3=0 NX )@@G@@ CDIT0023 @I@@@@ JF4=0 NY )@@G@@ CDIT0024 @I@@@@ JF5=0 NZ )@@G@@ CDIT0025 @I@@@@ JF6=0 OA )@@G@@ CDIT0026 OB )@@G@@@I@@@@ JF7=0 OC )@@G@@ CDIT0027 @I@@@@ JF8 = 1 @ THE 'E' OPTION IS NOW AUTOMATOD )@@G@@IC - SEE 'X' OPTION CDIT0028 @I@@@@ JF9=0 OE )@@G@@ CDIT0029 @I@@@@ JF10=0OF )@@G@@ CDIT0030 OG )@@G@@@I@@@@ JF11=0 OH )@@G@@ CDIT0031 @I@@@@ JF12=0 OI )@@G@@ CDIT0032 @I@@@@ JF13=0 OJ )@@G@@ @ MCDIT0033 @I@@@@ LNSS=0OK )@@G@@ CDIT0034 OL )@@G@@@I@@@@C UNPACK CHARACTERS (1CHAR/WORD RIGHT ADJUSTED ZERO FILLED) OM )@@G@@ CDIT0035 @I@@@@ CALL UPC8 (ICCD,ICCR) ON )@@G@@ CDIT0036 @I@@@@C SQUEEZE OUT BLANKS OO )@@G@@ CDIT0037 @I@@@@ J=0 OP )@@G@@ CDIT0038 OQ )@@G@@@I@@@@ DO 10 I=1,66 OR )@@G@@ CDIT0039 @I@@@@ IF (ICCR(I).EQ.5) GO TO 10 OS )@@G@@ CDIT0040 @I@@@@ J=J+1 OT )@@G@@ CDIT0041 @I@@@@ ICCR(JOU )@@G@@)=ICCR(I) CDIT0042 OV )@@G@@@I@@@@ 10 CONTINUE OW )@@G@@ CDIT0043 @I@@@@C SET NUMBER OF WORDS IN THE REGISTER OX )@@G@@ CDIT0044 @I@@@@ NWCR=J OY )@@G@@ CDIT0045 @I@@@@ K=J+1 OZ )@@G@@ CDIT0046 PA )@@G@@@I@@@@ CALL MOVER(5,0,ICCR(K),1,66-J) PB )@@G@@ CDIT0047 @I@@@@C SET MAIN INDEX PC )@@G@@ CDIT0054 @I@@@@ 20 IKT=0 PD )@@G@@ CDIT0055 @I@@@@ CALL CPE )@@G@@HKCC ( ICCD,ICCR,NWCR,QUAL,FILE,INAME,KVERSN,IKT,NCH, MGC 01C PF )@@G@@@I@@@@ * $330,$320 ) PG )@@G@@ MGC 01C @I@@@@ CALL OPA ( -1,'& ' ) PH )@@G@@ CDIT0057 @I@@@@ NC=FLD( 0,6,NCH ) PI )@@G@@ @ NO. CHAR. IN QUAL CDIT0058 @I@@@@ NFLAG=PJ )@@G@@FLD( 30,6,NCH ) @ QUAL FLAG CDIT0059 PK )@@G@@@I@@@@ IC=1 PL )@@G@@ CDIT0060 @I@@@@ IF (NFLAG.LE.0) GO TO 40 @ NO QUAL PM )@@G@@ CDIT0061 @I@@@@ IF (NC.LE.0) GO TO 30 PN )@@G@@ @ *FILE CDIT0062 @I@@@@ CALL OPO )@@G@@PAF ( 1,QUAL,NC ) CDIT0063 PP )@@G@@@I@@@@ IC=IC + NC PQ )@@G@@ CDIT0064 @I@@@@ 30 CALL OPAF ( IC,'******',1 ) PR )@@G@@ CDIT0065 @I@@@@ IC=IC + 1 PS )@@G@@ CDIT0066 @I@@@@ 40 NC=FLDPT )@@G@@( 6,6,NCH ) @ NO. CHAR. IN FILE CDIT0067 PU )@@G@@@I@@@@ IF (NC.LE.0) GO TO 50 PV )@@G@@ CDIT0068 @I@@@@ CALL OPAF ( IC,FILE,NC ) PW )@@G@@ CDIT0069 @I@@@@ GO TO 60 PX )@@G@@ CDIT0070 @I@@@@ 50 CALL OPY )@@G@@PA ( IC,'TPF$& ' ) CDIT0071 PZ )@@G@@@I@@@@ NC=4 QA )@@G@@ CDIT0072 @I@@@@ 60 IC=IC + NC QB )@@G@@ CDIT0073 @I@@@@ CALL OPA ( IC,'. . & ' )QC )@@G@@ @ TERM. WITH BLANK.BLANK CDIT0074 @I@@@@ DO 70 QD )@@G@@K=1,5 CDIT0075 QE )@@G@@@I@@@@ USE(K+2)=LINE(K) QF )@@G@@ CDIT0076 @I@@@@ 70 CONTINUE QG )@@G@@ CDIT0077 @I@@@@ CALL CSF ( USE,7,KERR ) QH )@@G@@ CDIT0078 @I@@@@ OPFLG=QI )@@G@@0 CDIT0079 QJ )@@G@@@I@@@@ GO TO 90 QK )@@G@@ CDIT0080 @I@@@@C IF WE USED UP ALL THE DATA WE ARE DONE QL )@@G@@ CDIT0081 @I@@@@ 80 IKT=IKT + 1 QM )@@G@@ CDIT0082 @I@@@@ 90 IF (IKQN )@@G@@T.GT.NWCR) GO TO 250 CDIT0083 QO )@@G@@@I@@@@ N=ICCR(IKT) QP )@@G@@ CDIT0084 @I@@@@C IGNORE COMMAS QQ )@@G@@ CDIT0085 @I@@@@ IF (N.EQ.46) GO TO 80 QR )@@G@@ CDIT0086 @I@@@@C CHECKQS )@@G@@ FOR OUTSIDE OF RANGE OF 'GOTO' CDIT0087 QT )@@G@@@I@@@@ IF (N.GT.29.OR.N.LT.9) GO TO 100 QU )@@G@@ CDIT0088 @I@@@@ N=N-8 QV )@@G@@ CDIT0089 @I@@@@C BRANCH TO APPROPRIATE OQW )@@G@@PTION CDIT0090 @I@@@@ GO TO QX )@@G@@(80,80,120,100,130,140,100,100,230,160,220,100,170,100,100,1CDIT0091 QY )@@G@@@I@@@@ 180,190,200,210,100,240),N @ 'X' OPTION ADDED 6/6/72 QZ )@@G@@ CDIT0092 @I@@@@C WRITE ERROR MESSAGE RA )@@G@@ CDIT0093 @I@@@@ 100 FLD( 0,6,MM )=ICCR(IKT) RB )@@G@@ CDIT0094 @I@@@@ OPFLG=RC )@@G@@OPFLG + 1 CDIT0095 RD )@@G@@@I@@@@ IF (OPFLG.GT.1) GO TO 110 RE )@@G@@ CDIT0096 @I@@@@ CALL OPA ( -1,MSG ) RF )@@G@@ CDIT0097 @I@@@@ CALL OPA ( 20,'IGNORE INRG )@@G@@VALID OPTION(S).&' ) CDIT0098 @I@@@@ 110 CALL ORH )@@G@@PAF ( 48+OPFLG,MM,1 ) CDIT0099 RI )@@G@@@I@@@@ GO TO 80 RJ )@@G@@ CDIT0100 @I@@@@C 'E' OPTION - PROGRAM WILL NOT BE TERMINATRK )@@G@@ED BY AN ERROR CDIT0101 @I@@@@C 95 JF8=1 @ RL )@@G@@THE 'E' OPTION IS NO LONGER USED. ERRORCDIT0102 @I@@@@C GO TO RM )@@G@@75 @ WILL BE TAKEN IF CALLED FOR WITH 'X' OPTCDIT0103 RN )@@G@@@I@@@@C 'F' OPTION - SUPPRESS PRINTING OF FORTRAN STATEMENTS RO )@@G@@ CDIT0104 @I@@@@ 120 JF2=1 RP )@@G@@ CDIT0105 @I@@@@ GO TO 80 RQ )@@G@@ CDIT0106 @I@@@@C 'H' ORR )@@G@@PTION - SUPPRESS PRINTING OF HEADING INFORMATION CDIT0107 RS )@@G@@@I@@@@ 130 JF6=1 RT )@@G@@ CDIT0108 @I@@@@ GO TO 80 RU )@@G@@ CDIT0109 @I@@@@C 'I' OPTION - IGNORE PRORV )@@G@@GRAM UPTO AND INCLUDING GIVEN LINE NUMBER CDIT0110 @I@@@@C CALCURW )@@G@@LATE LINE NUMBER CDIT0111 RX )@@G@@@I@@@@ 140 DO 150 I=1,5 RY )@@G@@ CDIT0112 @I@@@@ IKT=IKT+1 RZ )@@G@@ CDIT0113 @I@@@@ N=ICCR(IKT) - '@@@@@0' SA )@@G@@ CDIT0114 @I@@@@C SEE ISB )@@G@@F NON-NUMBER OR IF WE HAVE EXCEEDED THE DATA CDIT0115 SC )@@G@@@I@@@@ IF (N.LT.0.OR.N.GT.9) GO TO 90 SD )@@G@@ CDIT0116 @I@@@@ IF (IKT.GT.NWCR) GO TO 250 SE )@@G@@ CDIT0117 @I@@@@ LNSS=10*LNSS + N SF )@@G@@ CDIT0118 @I@@@@ 150 CONTINSG )@@G@@UE CDIT0119 SH )@@G@@@I@@@@C IF IT FALLS THROUGH THEN THE NUMBER IS TO LARGE SI )@@G@@ CDIT0120 @I@@@@ CALL OPA ( -1,MSG ) SJ )@@G@@ CDIT0121 @I@@@@ CALL OPAP ( 3,1,'I OPTIOSK )@@G@@N. NO. TOO LARGE.&' ) CDIT0122 @I@@@@ GO TO SL )@@G@@310 CDIT0123 SM )@@G@@@I@@@@C 'M' OPTION - MERGE VARIABLE TABLE WITH OTHERS WITH 'M' OPTISN )@@G@@ON CDIT0124 @I@@@@ 160 JF10=1 SO )@@G@@ CDIT0125 @I@@@@ CALL ASGTCT SP )@@G@@ @ CHECK/ASSIGN TCT$ FILE CDIT0126 @I@@@@ GO TO SQ )@@G@@80 CDIT0127 SR )@@G@@@I@@@@C 'P' OPTION - PUNCH THE VARIABLE TABLE ONTO CARDS SS )@@G@@ CDIT0128 @I@@@@ 170 JF9=JF9+1 ST )@@G@@ CDIT0129 @I@@@@ GO TO 80 SU )@@G@@ CDIT0130 @I@@@@C 'S' OSV )@@G@@PTION - SUPPRESS PRINTING OF STATEMENT NUMBER TABLE CDIT0131 SW )@@G@@@I@@@@ 180 JF4=1 SX )@@G@@ CDIT0132 @I@@@@ GO TO 80 SY )@@G@@ CDIT0133 @I@@@@C 'T' OPTION - SUPPRESS PSZ )@@G@@RINTING OF TRANSFER TABLE CDIT0134 @I@@@@ 190 JF5=1 TA )@@G@@ CDIT0135 TB )@@G@@@I@@@@ GO TO 80 TC )@@G@@ CDIT0136 @I@@@@C 'U' OPTION - INCREMENT LINE NO. OF INCLUDE STTD )@@G@@ATEMENTS MCDIT0137 @I@@@@ 200 JF13=1 TE )@@G@@ @ MCDIT0138 @I@@@@ GO TO TF )@@G@@80 @ MCDIT0139 TG )@@G@@@I@@@@C 'V' OPTION - SUPPRESS PRINTING OF THE VARIABLE TABLE TH )@@G@@ CDIT0140 @I@@@@ 210 JF3=1 TI )@@G@@ CDIT0141 @I@@@@ GO TO 80 TJ )@@G@@ CDIT0142 @I@@@@C 'N' OPTIOTK )@@G@@N CDIT0143 TL )@@G@@@I@@@@ 220 JF11 = 1 TM )@@G@@ CDIT0144 @I@@@@ GO TO 80 TN )@@G@@ CDIT0145 @I@@@@C 'L' OPTION LIST COMMENTO )@@G@@T CARDS CDIT0146 @I@@@@ 230 JF12=1TP )@@G@@ CDIT0147 TQ )@@G@@@I@@@@ GO TO 80 TR )@@G@@ CDIT0148 @I@@@@C 'X' OPTION ERROR TERMINATIONS ARE VIA ETS )@@G@@RR$ CDIT0149 @I@@@@ 240 JF8 = 0 TT )@@G@@ CDIT0150 @I@@@@ GO TO TU )@@G@@80 CDIT0151 TV )@@G@@@I@@@@ 250 IF ( OPFLG.GT.0 )CALL OPRINT ( 2 ) TW )@@G@@ CDIT0152 @I@@@@ CALL CHKASG('I$I$I$ ',$260,KERR) TX )@@G@@@ CDIT0153 @I@@@@ CALL RDS1('I$I$I$ 'TY )@@G@@,INAME,KVERSN,BUF1,BUF2,BUFSIZ,KERR,$270) CDIT0154 @I@@@@ RETURNTZ )@@G@@ 1 CDIT0155 UA )@@G@@@A@@@@ 260 CALL OPAP ( 63,-1,' & ' ) @I@@@@ CALL OPA ( -1,MSG UB )@@G@@) @ PUT 'ERROR' IN LINE CDIT0156 @I@@@@ UC )@@G@@CALL OPA ( 20,'CANNOT ASSIGN FILE. STATUS=&' ) CDIT01UD )@@G@@57 @I@@@@ CALL OPOP ( 2,48,KERR,13 ) UE )@@G@@ CDIT0158 @I@@@@ GO TO 310 UF )@@G@@ CDIT0159 @A@@@@ 270 CALL OPAP ( 63,-1,UG )@@G@@' & ' ) @I@@@@ CALL OPA ( -1,MSG ) UH )@@G@@ CDIT0160 @I@@@@ IF (KERR-2) 280,290,300 UI )@@G@@ CDIT0161 @I@@@@ 280 CALL OPAP ( UJ )@@G@@2,20,'CANNOT FIND ELEMENT IN FILE.&' ) CDIT0162 @I@@@@UK )@@G@@ GO TO 310 UL )@@G@@CDIT0163 @I@@@@ 290 STAT=FLD( 24,6,KERR ) UM )@@G@@ CDIT0164 @I@@@@ CALL OPA ( 20,'I/O ERROR. STATUN )@@G@@US=&' ) CDIT0165 @I@@@@ CALL OPIP ( UO )@@G@@3,39,STAT,5 ) CDIT0166 @I@@@@UP )@@G@@ GO TO 310 UQ )@@G@@CDIT0167 @I@@@@ 300 CALL OPAP ( 3,20,'PROGRAM NOT DEFINED OR OVERFLOUR )@@G@@W.&' ) CDIT0168 @I@@@@ 310 CALL OPA ( -1,'CONTROL CARD IMUS )@@G@@AGE=&' ) CDIT0169 @I@@@@ CALL OPAFP (UT )@@G@@ 3,21,ICCD,66 ) CDIT0170 @I@@@@UU )@@G@@ CALL OPAP ( 2,-1,' & ' ) UV )@@G@@CDIT0171 @I@@@@ RETURN 3 UW )@@G@@ CDIT0172 @I@@@@ 320 RETURN 2 UX )@@G@@ @ *MERGE RETURN MGC 01C @I@@@@ 330 RETURN UY )@@G@@ @ *END RETURN MGC 01C @I@@@@UZ )@@G@@ END VA )@@G@@CDIT0173 ___T.NWCR) GO TO 250 VB )@@G@@*[S@@@*SDFF*@^@@@@ SUBROUTINE TBL1 @I@@@@C * THIS SBRTN TAKES VC )@@G@@CARE OF ALL TABLE ENTRIES AND TABLE BOOKKEEPINGTBL80002 @I@@@@C VD )@@G@@ IFT - CODE THAT DETERMINES WHAT FUNCTION THE SBRTN WILL PERFORM TBL800VE )@@G@@03 @I@@@@C IVAR - VARIABLE NAME,STATEMENT N3., ITEM NO., A,A,I FVF )@@G@@ORMAT TBL80004 @I@@@@C LN - LINE NUMBER -I FORMAT VG )@@G@@ TBL80005 @I@@@@C IEFG - ENTRY FLAGVH )@@G@@-PRINTED NEXT TO LINE NO ENTRS - A FMT SHFTD 12TBL80006 @I@@@@C VI )@@G@@ IVFG - VARIABLE FLAG-PRINTED NEXT TO VARIABLE TBL800VJ )@@G@@07 @I@@@@C IFFG - FIRST VARIABLE FLAG / STATEMENT NO FLAG - A/I VK )@@G@@FORMAT TBL80008 @I@@@@C VL )@@G@@ TBL80009 @I@@@@ IMPLICIT INTEGER (VM )@@G@@A-Z) TBL80010 @G@@@@ VN )@@G@@PARAMETER NOFMT=39,MAXABN=16,MAXMAC=27 @I@@@@VO )@@G@@ PARAMETER MAXVAR=2000,MAXREF=500,MAXS=15000 @ VP )@@G@@TBL80012 @I@@@@ DIMENSION ENTRY(MAXVAR) , POINT(MAXVAR),LTBL(NOFVQ )@@G@@MT,2),MTBL(MAXS) TBL8001 @I@@@@ DIMENSION FMT(2,NOFMT) VR )@@G@@ TBL80014 @I@@@@ COMMON /E8ARVS )@@G@@Y/NWAR,MULT,NWAR1,IRDM(1792) TBL80015 @I@@@@VT )@@G@@ COMMON /E8IPT/IPT(MAXREF,2) VU )@@G@@TBL80016 @I@@@@ COMMON KADD,LADD,JF11,N91(4,300),LINE(22) VV )@@G@@ TBL80017 @I@@@@ COMMON /E8DCT/ INAME(2),KVERSNVW )@@G@@(2),LNSS,JF1,JF2,JF3,JF4,JF5, TBL80018 @I@@@@ 1 JF6,JF7,JF8VX )@@G@@,JF9,JF10,MBUF,INCFL,FILE(2),JF12,JF13,IVTE,KCTSUB, TBL80019 @I@@@@VY )@@G@@ ; KOMTAB(300),KCMA,KBLNAM VZ )@@G@@MGC 01C @I@@@@ COMMON /MSG/MSG(105) WA )@@G@@ TBL80021 @A@@@@ DIMENSION IXALP(27),IXNUM(51) WB )@@G@@@B@@@@ DATA IBLK,LDMVR,LFCTN,ISTST,IST6 / @D@@@@ * ' ','DWC )@@G@@MVR ','FCTN ','** ','******' / @I@@@@ DATA FMT/8HDO ,8HIFWD )@@G@@(L) ,8HIF(A) , TBL80025 @I@@@@ 1 8HGOTWE )@@G@@O(UC),8HGOTO(A) ,8HGOTO(C) ,8HCALL ,8HFCT REF , TBL80026 WF )@@G@@@I@@@@ 2 8HRTRN(S) ,8HRTRN(NS),8HASSIGN ,8HTAPES ,8HINPUT , WG )@@G@@ TBL80027 @I@@@@ 3 8HOUTPUT ,8HSUB PROG,8HSTOP ,8HACCEPTWH )@@G@@ , TBL80028 @I@@@@ 4 8HDISPLAY ,8HERPRINT WI )@@G@@,8HREPEAT ,8HREPLACE , TBL80029 @I@@@@ 5 8HGENWJ )@@G@@ERATE ,8HREGISTER ,8HARGUMENT ,8HALTPRINT , 8HMONITOR , TBL80030 WK )@@G@@@E@@@@ 6 8HASM$INTF , 8HABORT , 8HBUFFER , @E@@@@WL )@@G@@ 7 8HFILE , 8HIDENTIFY , 8HJUMP , 8HLABELS , @E@@@@ 8WM )@@G@@ 8HNAME , 8HNEXT , 8HREAD , 8HSCAN , @A@@@@ 9 8HUNIWN )@@G@@QUE , 8HWRITE / @A@@@@ DEFINE H1(I)=FLD( 0,18,I ) @A@@@@WO )@@G@@ DEFINE H2(I)=FLD( 18,18,I ) @I@@@@C * INITIALIZE ALL TABLES WP )@@G@@ TBL80032 @A@@@@ 10 CALL MWQ )@@G@@OVER ( 0,0,IXALP,1,27 ) @A@@@@ CALL MOVER ( 0,0,IXNUM,1,51 ) @C@@@@WR )@@G@@ CALL MOVER ( 0,0,POINT,1,MAXVAR ) @I@@@@ CALL MOVER( WS )@@G@@0,0,LTBL,1,2*NOFMT ) TBL80035 @I@@@@WT )@@G@@ JPOINT=MAXS WU )@@G@@TBL80036 @I@@@@ KPOINT=1 WV )@@G@@ TBL80037 @I@@@@ JLAST=0 WW )@@G@@ TBL80038 @#@@@@ JFLAG=0 WX )@@G@@@#@@@@ KFLAG=0 @I@@@@ ABNFLG=0 WY )@@G@@ TBL80040 @D@@@@ MACFLG=0 WZ )@@G@@ @ MACRO FLAG @I@@@@ RETURN XA )@@G@@ TBL80041 @[@@@@C @[@@@@C XB )@@G@@@C@@@@ ENTRY TBL2 ( IFT,IVAR,LN,IEFG,IVFG,IFFG ) @I@@@@C * MAKE XC )@@G@@A VARIABLE/FUNCTION ENTRY TBL80042 XD )@@G@@@I@@@@C IF THE LINE NUMBER IS LESS THAN OR EQUAL TO THE NUMBER OF LXE )@@G@@INES TBL80043 @I@@@@C TO BE SKIPPED, RETURN XF )@@G@@ TBL80044 @D@@@@ N=FLD( 0,6,IVAR ) XG )@@G@@ @ FIRST CHAR. @C@@@@ CALL CHKLET ( N,$20,$80 ) @ LEXH )@@G@@TTER? @I@@@@ 20 IF (LN .LE. LNSS) RETURN XI )@@G@@ TBL80045 @I@@@@C LOCATE THE VARIABLE/FUNCTION XJ )@@G@@ TBL80046 @A@@@@ CALL LOCATE ( $40,XK )@@G@@$80,IXALP ) @I@@@@C STANDARD RETN MEANS NEW ENTRY - INITIALIZE SECTXL )@@G@@ION OF MTBL TBL80048 @I@@@@ DO 30 I=1,6 XM )@@G@@ TBL80049 @I@@@@ 30 MTBL(LCTN+I-XN )@@G@@1)=IBLK TBL80050 @I@@@@XO )@@G@@ MTBL(LCTN+6)=0 XP )@@G@@TBL80051 @I@@@@ MTBL(LCTN+7)=JPOINT XQ )@@G@@ TBL80052 @I@@@@ MTBL(LCTN+8)=0 XR )@@G@@ TBL80053 @I@@@@ KPOINT=KPOINXS )@@G@@T+9 TBL80054 @E@@@@XT )@@G@@ JFLAG=1 @ VARIABEL FOUND FLAG @I@@@@C XU )@@G@@ MAKE ENTRY TBL8005XV )@@G@@5 @I@@@@ 40 LENT=LN+IEFG XW )@@G@@ TBL80056 @I@@@@ CALL ENTER (MTBL(LCTN+8),LENT) XX )@@G@@ TBL80057 @I@@@@C CHECK TO SEE IF FXY )@@G@@IRST FLAG IS TO BE ENTRED TBL80058 @I@@@@ XZ )@@G@@IF (IFFG.EQ.0) GO TO 50 TBL800YA )@@G@@59 @I@@@@C ENTR FIRST FLAG YB )@@G@@ TBL80060 @I@@@@ MTBL(LCTN+5) = IFFG YC )@@G@@ TBL80061 @I@@@@ GO TO 60 YD )@@G@@ TBL80062 @I@@@@C YE )@@G@@ IS VARIABLE'S DIMENSION TO BE CHECKED TBL800YF )@@G@@63 @I@@@@ 50 IF (IFT.EQ.2) GO TO 60 YG )@@G@@ TBL80064 @I@@@@C IS VARIABLE DIMENSIONED YH )@@G@@ TBL80065 @I@@@@ IF (MTBL(LCTN+5).EYI )@@G@@Q.LDMVR) GO TO 60 TBL80066 @I@@@@C YJ )@@G@@ THE VARIABLE IS NOT DIMENSIONED - MUST BE A FUNCTION TBL800YK )@@G@@67 @I@@@@ MTBL(LCTN+5)=LFCTN YL )@@G@@ TBL80068 @I@@@@C SET FLAG AND MAKE IFT NEG TO SIGNALYM )@@G@@ THE MAIN PROGRAM TBL80069 @I@@@@ IFT=-3 YN )@@G@@ TBL80070 @I@@@@C YO )@@G@@ IS VARIABLE FLAG TO BE SET TBL800YP )@@G@@71 @I@@@@ 60 IF (IVFG.EQ.0) GO TO 80 YQ )@@G@@ TBL80072 @I@@@@ N=MTBL(LCTN+6) YR )@@G@@ TBL80073 @I@@@@C CHECK FOR FLAG TAYS )@@G@@BLE OVERFLOW TBL80074 @I@@@@ YT )@@G@@IF (N.GT.4) GO TO 70 TBL800YU )@@G@@75 @I@@@@C NO OVERFLOW SET FLAG YV )@@G@@ TBL80076 @I@@@@ MTBL(LCTN+N)=IVFG YW )@@G@@ TBL80077 @I@@@@ MTBL(LCTN+6)=N+1 YX )@@G@@ TBL80078 @I@@@@ YY )@@G@@GO TO 80 TBL800YZ )@@G@@79 @I@@@@C OVERFLOW SET INDICATOR ZA )@@G@@ TBL80080 @I@@@@ 70 MTBL(LCTN+4)=ISTST ZB )@@G@@ TBL80081 @I@@@@ 80 RETURN ZC )@@G@@ TBL80082 @[@@@@C ZD )@@G@@@[@@@@C @B@@@@ ENTRY TBL3 ( IVAR,LN,IEFG,IFFG ) @I@@@@C * ZE )@@G@@ MAKE A STATEMENT NUMBER ENTRY TBL8008ZF )@@G@@3 @I@@@@C LOCATE STATEMENT NUMBER ZG )@@G@@ TBL80084 @[@@@@C @ @@@@C CHECK IF BLANK OR NUMERIC ZH )@@G@@@^@@@@ DO 85 K=0,35,6 @^@@@@ N=FLD( 0,6,IVAR ) @C@@@@ ZI )@@G@@IF ( N.EQ.'@@@@@ ' )GO TO 85 @ BLANK? @C@@@@ CALL CHKNUM ( N,$8ZJ )@@G@@5,$110 ) @ NUMERIC?@#@@@@ 85 CONTINUE @B@@@@ 90 CALL LOCATE ZK )@@G@@( $100,$110,IXNUM ) @I@@@@C STANDARD RETURN MEANS A NEW ENTRY -ZL )@@G@@ INITIALIZE SECTN OF MTBL TBL80086 @I@@@@ MTBL(LCTN)=0 ZM )@@G@@ TBL80087 @I@@@@ ZN )@@G@@MTBL(LCTN+1)=JPOINT TBL800ZO )@@G@@88 @I@@@@ MTBL(LCTN+2)=0 ZP )@@G@@ TBL80089 @I@@@@ KPOINT=KPOINT+3 ZQ )@@G@@ TBL80090 @F@@@@ KFLAG=1 ZR )@@G@@ @ STATEMENT NO. FOUND FLAG @I@@@@C MAKE ENTRY ZS )@@G@@ TBL80091 @I@@@@ 100 ZT )@@G@@KENT=LN+IEFG TBL800ZU )@@G@@92 @I@@@@ CALL ENTER (MTBL(LCTN+2),KENT) ZV )@@G@@ TBL80093 @I@@@@C CHECK TO SEE IF STATEMENT NUMBER FLZW )@@G@@AG IS TO BE ENTERED TBL80094 @I@@@@ IF (IFFG.EQ.0) GO ZX )@@G@@TO 110 TBL80095 @I@@@@ ZY )@@G@@MTBL(LCTN)=LN TBL800ZZ )@@G@@96 @I@@@@ 110 RETURN AA )@@G@@ TBL80097 @[@@@@C @[@@@@C @ @@@@ ENTRY TBL4 (AB )@@G@@ IVAR,LN ) @I@@@@C * MAKE ENTERY IN TRANSFER TABLE AC )@@G@@ TBL80098 @I@@@@C HAVE PREVIOUS ENTERIES BEEN MAD )@@G@@ADE TBL80099 @I@@@@C AE )@@G@@ TBL80100 @I@@@@AF )@@G@@ 120 IF ( IVAR.GT.NOFMT )RETURN AG )@@G@@TBL80101 @I@@@@ IF (LTBL(IVAR,1).NE.0) GO TO 130 AH )@@G@@ TBL80102 @I@@@@C IF NOT SET ADDRESS OF FIRST EAI )@@G@@NTERY TBL80103 @I@@@@ LTBL(IVAR,1)AJ )@@G@@=JPOINT TBL80104 @I@@@@AK )@@G@@C MAKE ENTERY AL )@@G@@TBL80105 @I@@@@ 130 CALL ENTER (LTBL(IVAR,2),LN) AM )@@G@@ TBL80106 @H@@@@ IF ( IVAR.GT.MAXABN )ABNFLG=1 AN )@@G@@ @ ABNORMAL FORTRAN FLAG TBL8 @D@@@@ IF ( IVAR.GT.MAXMAAO )@@G@@C )MACFLG=1 @ MACRO FLAG @I@@@@ RETURN AP )@@G@@ TBL80108 @[@@@@C @[@@@@C AQ )@@G@@@#@@@@ ENTRY TBL5 @I@@@@C * TABLE READOUT SECTION AR )@@G@@ TBL80109 @I@@@@C CHECK TO SEE IF TAS )@@G@@HE VARIABLE TABLE IS EMPTY TBL80110 @I@@@@ 140 AT )@@G@@IF (JFLAG.EQ.0) GO TO 270 TBL801AU )@@G@@11 @I@@@@C IF JF3 IS SET AND THERE IS NO PUNCHED CARD OR MERGE OAV )@@G@@UTPUT TBL80112 @I@@@@C SKIP THE VARIABLE TABLE AW )@@G@@ TBL80113 @I@@@@ IF (JF3.GT.0.AND.JAX )@@G@@F9+JF10.EQ.0) GO TO 270 TBL80114 @I@@@@ AY )@@G@@IF (JF2+JF3+JF4+JF5.EQ.4) GO TO 150 TBL801AZ )@@G@@15 @I@@@@ 150 IF ( JF3+JF6.EQ.0 )CALL HEAD1 BA )@@G@@ TBL80116 @I@@@@C LOOP FOR EACH VARIABLE BB )@@G@@ TBL80117 @#@@@@ II=IXALP(1) @^@@@@BC )@@G@@ DO 260 IXA=2,27 @I@@@@C GET LOCATION OF FLAGS IN MTBL BD )@@G@@ TBL80119 @C@@@@C II=POINTER TO CURRENTBE )@@G@@ ENTRY IN ENTRY-POINT @]@@@@ 155 I=II @ @@@@ IF ( I.LE.0 )GO TOBF )@@G@@ 255 @^@@@@ LF=H2( POINT(I) )@I@@@@C FIND LCTN OF FIRST LN EBG )@@G@@NTERY IN ITBL TBL80121 @I@@@@ NENT=MBH )@@G@@TBL(LF+7) TBL80122 BI )@@G@@@I@@@@C SET OVERFLOW FLAG OFF BJ )@@G@@ TBL80123 @I@@@@ KERFG=IBLK BK )@@G@@ TBL80124 @I@@@@C LOOP FOR EACH LINE NO EBL )@@G@@NTERY TBL80125 @I@@@@ DO 160BM )@@G@@ J=1,MAXREF TBL80126 BN )@@G@@@I@@@@C CHECK TO SEE IF LAST ENTERY HAS BEEN OBTAINED BO )@@G@@ TBL80127 @I@@@@ IF (NENT.EQ.0) GO TO 170 BP )@@G@@ TBL80128 @I@@@@C UNPAK LINE NO ENTERY TOBQ )@@G@@ FIND LINE NO AND LCTN OF NEXT ENTERY TBL80129 @I@@@@ CALL UBR )@@G@@PE8 (MTBL(NENT),NENT,IPT(J,2),IPT(J,1)) TBL80130 BS )@@G@@@A@@@@ CALL ITF ( IPT(J,1),LINE ) @C@@@@ FLD( 0,30,IPT(J,1)BT )@@G@@ )=FLD( 6,30,LINE(2) ) @C@@@@ FLD( 30,6,IPT(J,1) )=FLD( 0,6,IPT(J,BU )@@G@@2) ) @I@@@@ 160 CONTINUE BV )@@G@@ TBL80131 @I@@@@C THERE IS AN OVERFLOW SET OVERFLOW FBW )@@G@@LAG ON TBL80132 @I@@@@ KERFG=IST6 BX )@@G@@ TBL80133 @I@@@@C BY )@@G@@ PRINT OUT RESULTS TBL801BZ )@@G@@34 @I@@@@ 170 LF4=LF+4 CA )@@G@@ TBL80135 @I@@@@ JM1=J-1 CB )@@G@@ TBL80136 @I@@@@ DO 190 IWEO=0,4 CC )@@G@@ TBL80137 @I@@@@ CD )@@G@@KBLNO=FLD(27,9,MTBL(LF+IWEO)) TBL801CE )@@G@@38 @I@@@@C CHECK STATEMENT TYPE CODE WORDS FOR THOSE DESIGNATING BLOCCF )@@G@@KS... TBL80139 @I@@@@C IF A WORD IS FILLED OUT WITH BLANKS, KBLCG )@@G@@NO.GT.100, AND IF A WORD IS A TBL80140 @I@@@@C WORD WITH NO DESIGNATICH )@@G@@ON, KBLNO.EQ.0 TBL80141 @I@@@@ CI )@@G@@IF (KBLNO) 180,210,180 TBL801CJ )@@G@@42 @I@@@@ 180 IF (KBLNO-100) 220,220,190 CK )@@G@@ TBL80143 @I@@@@ 190 CONTINUE CL )@@G@@ TBL80144 @I@@@@C NO BLOCK NAME INDICATECM )@@G@@D -- FILL WORD WITH BLANKS TBL80145 @I@@@@ 200 CN )@@G@@KBLNAM = IBLK TBL801CO )@@G@@46 @I@@@@ GO TO 230 CP )@@G@@ TBL80147 @I@@@@C BLANK COMMON - NAME IT '$BLANK' CQ )@@G@@ TBL80148 @I@@@@ 210 IF (MTBL(LF+5).EQ.CR )@@G@@'LBCM ') GO TO 200 @ NAME OF LABEL COMMON MTBL80149 @I@@@@ CS )@@G@@KBLNAM='$BLANK' @ MTBL801CT )@@G@@50 @I@@@@ GO TO 230 @ CU )@@G@@ MTBL80151 @I@@@@C COMMON BLOCK NAME DESIGNATED -- FILL WORCV )@@G@@D WITH NAME OUT OF TABLE TBL80152 @I@@@@ 220 KBLNAM = KOMTAB(KBCW )@@G@@LNO) TBL80153 @I@@@@ 230 CX )@@G@@CONTINUE TBL801CY )@@G@@54 @I@@@@C IF THE FLAG IS NOT SET PRINT OUT THE VARIABLE TABLE CZ )@@G@@ TBL80155 @I@@@@C NOTE THAT ERROR FLAG FIELD NO LONGER EXIDA )@@G@@STS -- WAS USED FOR OUTPUT TBL80156 @I@@@@C OF BLOCK NAMES DB )@@G@@ TBL80157 @I@@@@ DC )@@G@@IF (JF3.NE.0) GO TO 250 TBL801DD )@@G@@58 @I@@@@ CALL OPAF ( -1, ENTRY(I),6 ) DE )@@G@@ TBL80159 @I@@@@ CALL OPAF ( 8,MTBL(LF+5),4 ) DF )@@G@@ TBL80160 @I@@@@ CALL OPAF ( 12,MTBDG )@@G@@L(LF),2,5,1 ) TBL80161 @I@@@@ DH )@@G@@CALL OPAF ( 29,KBLNAM,6 ) TBL801DI )@@G@@62 @^@@@@ DO 240 K=1,JM1,14 @^@@@@ NR=JM1 - K + 1 @ @@@@DJ )@@G@@ IF ( NR.GT.14 )NR=14 @B@@@@ CALL OPAFP ( 1,37,IPT(K,1),6,NDK )@@G@@R,0 ) @ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 240 CONTINUE @I@@@@DL )@@G@@ 250 CONTINUE DM )@@G@@TBL80171 @I@@@@C IF JF10 IS SET PUT THE VARIABLE TABLE ON DRUM DN )@@G@@ TBL80172 @I@@@@ IF (JF10 .GT. 0) CALL DRUM DO )@@G@@ TBL80173 @I@@@@C IF JF9 IS SDP )@@G@@ET PUNCH THE VARIABLE TABLE ONTO CARDS TBL80174 @I@@@@DQ )@@G@@ IF (JF9 .GT. 0) CALL PNCH DR )@@G@@TBL80175 @^@@@@ II=H1( POINT(I) )@ @@@@ IF ( II.GT.0 )GO TDS )@@G@@O 155 @^@@@@ 255 II=IXALP(IXA) @I@@@@ 260 CONTINUE DT )@@G@@ TBL80176 @I@@@@C IF JFDU )@@G@@10 IS NOT SET SKIP THE DRUM WRITE FINALIZATION TBL80177 DV )@@G@@@I@@@@ IF (JF10.EQ.0) GO TO 270 DW )@@G@@ TBL80178 @I@@@@ IF (MBUF.EQ.0) GO TO 270 DX )@@G@@ TBL80179 @I@@@@ CALL DRMWT8(IRDM,MBUF,KADY )@@G@@DD) TBL80180 @I@@@@C CHECKDZ )@@G@@ TO SEE IF THE STATEMENT NO TABLE IS EMPTY TBL80181 EA )@@G@@@I@@@@ 270 IF (KFLAG.EQ.0) GO TO 320 EB )@@G@@ TBL80182 @I@@@@C IF FLAG JF4 IS SET DONT PRINT THIS PORTIOEC )@@G@@N OF THE TABLE TBL80183 @I@@@@ IF (JF4.GT.0) GO TO 320 ED )@@G@@ TBL80184 @I@@@@ IF ( JEE )@@G@@F6.EQ.0 )CALL HEAD2 TBL80185 EF )@@G@@@I@@@@C LOOP FOR EACH STATEMENT NUMBER EG )@@G@@ TBL80186 @#@@@@ II=IXNUM(1) @^@@@@ DO 310 IXA=2,51 EH )@@G@@@I@@@@C GET LOCATION OF FLAGS IN MTBL EI )@@G@@ TBL80188 @C@@@@C II=POINTER TO CURRENT ENTRY IN ENTRY-POINT EJ )@@G@@@]@@@@ 275 I=II @ @@@@ IF ( I.LE.0 )GO TO 305 @^@@@@ LF=H2(EK )@@G@@ POINT(I) )@I@@@@C FIND LCTN OF FIRST LN ENTERY IN ITBL EL )@@G@@ TBL80190 @I@@@@ NENT=MTBL(LF+1) EM )@@G@@ TBL80191 @I@@@@C SET OVERFLOEN )@@G@@W FLAG OFF TBL80192 @I@@@@EO )@@G@@ KERFG=IBLK EP )@@G@@TBL80193 @I@@@@C LOOP FOR EACH LINE NO ENTERY EQ )@@G@@ TBL80194 @I@@@@ DO 280 J=1,MAXREF ER )@@G@@ TBL80195 @I@@@@C CHECK TO SEES )@@G@@E IF LAST ENTERY HAS BEEN OBTAINED TBL80196 @I@@@@ET )@@G@@ IF (NENT.EQ.0) GO TO 290 EU )@@G@@TBL80197 @I@@@@C UNPAK LINE NO ENTERY TO FIND LINE NO AND LCTN OEV )@@G@@F NEXT ENTERY TBL80198 @I@@@@ CALL UPE8 (MTBL(NENT),NENT,IPTEW )@@G@@(J,2),IPT(J,1)) TBL80199 @G@@@@ CALL ITF ( IEX )@@G@@PT(J,1),LINE ) @ LINE(1),(2)=STATEMENT NO. IN FD @C@@@@ FLD( 0EY )@@G@@,30,IPT(J,1) )=FLD( 6,30,LINE(2) ) @C@@@@ FLD( 30,6,IPT(J,1) )=FLDEZ )@@G@@( 0,6,IPT(J,2) ) @I@@@@ 280 CONTINUE FA )@@G@@ TBL80200 @I@@@@C THERE IS AN OVERFLOW SEFB )@@G@@T OVERFLOW FLAG ON TBL80201 @I@@@@ KERFG=FC )@@G@@IST6 TBL80202 FD )@@G@@@I@@@@C PRINT OUT RESULTS FE )@@G@@ TBL80203 @I@@@@ 290 JM1=J-1 FF )@@G@@ TBL80204 @I@@@@ CALL OPAF ( -1, ENTRY(I)FG )@@G@@,6 ) TBL80205 @I@@@@ CALL OFH )@@G@@PI ( 7,MTBL(LF),6 ) TBL80206 FI )@@G@@@I@@@@ CALL OPAF ( 13,KERFG,6 ) FJ )@@G@@ TBL80207 @^@@@@ DO 300 K=1,JM1,16 @^@@@@ NR=JM1 - K +FK )@@G@@ 1 @ @@@@ IF ( NR.GT.16 )NR=16 @B@@@@ CALL OPAFP ( 1,24,FL )@@G@@IPT(K,1),6,NR,0) @ @@@@ CALL OPA ( -1,'& ' )@#@@@@ 300 CONTINFM )@@G@@UE @^@@@@ II=H1( POINT(I) )@ @@@@ IF ( II.GT.0 )GO TO 275 FN )@@G@@@^@@@@ 305 II=IXNUM(IXA) @I@@@@ 310 CONTINUE FO )@@G@@ TBL80216 @I@@@@C IF FLAG JF5FP )@@G@@ IS SET DONT PRINT THIS PORTION OF THE TABLE TBL80217 @I@@@@FQ )@@G@@ 320 IF (JF5.GT.0) GO TO 380 FR )@@G@@TBL80218 @E@@@@ IF ( JF6.EQ.0 )CALL HEAD3 ( ABNFLG,MACFLG ) FS )@@G@@ @I@@@@C LOOP-FOR EACH TRANSFER TABLE ENTTERY FT )@@G@@ TBL80220 @I@@@@ DO 370 I=1,NOFMT FU )@@G@@ TBL80221 @H@@@@ IF (I.GT.MAXABN.ANFV )@@G@@D.ABNFLG.EQ.0) GO TO 380 TBL8 @D@@@@ IF ( IFW )@@G@@.GT.MAXMAC.AND.MACFLG.EQ.0 )GO TO 380 @I@@@@C FIND LCTN OF FIRSFX )@@G@@T LN ENTERY IN ITBL TBL80223 @I@@@@ FY )@@G@@NENT=LTBL(I,1) TBL802FZ )@@G@@24 @I@@@@C SET OVERFLOW FLAG OFF GA )@@G@@ TBL80225 @I@@@@ KERFG=IBLK GB )@@G@@ TBL80226 @I@@@@C LOOP FOR EACH LINGC )@@G@@E NO ENTERY TBL80227 @I@@@@ GD )@@G@@DO 330 J=1,MAXREF TBL802GE )@@G@@28 @I@@@@C CHECK TO SEE IF LAST ENTERY HAS BEEN OBTAINED GF )@@G@@ TBL80229 @I@@@@ IF (NENT.EQ.0) GO TO 340 GG )@@G@@ TBL80230 @I@@@@C UNPAK LINE NO ENTGH )@@G@@ERY TO FIND LINE NO AND LCTN OF NEXT ENTERY TBL80231 @I@@@@ GI )@@G@@CALL UPE8 (MTBL(NENT),NENT,DUM,IPT(J,1)) TBL802GJ )@@G@@32 @I@@@@ 330 CONTINUE GK )@@G@@ TBL80233 @I@@@@C THERE IS AN OVERFLOW SET OVERFLOW FGL )@@G@@LAG ON TBL80234 @I@@@@ KERFG=IST6 GM )@@G@@ TBL80235 @I@@@@C GN )@@G@@ CHECK TO SEE IF THERE ARE NO NUMBERS TO PRINT OUT TBL802GO )@@G@@36 @I@@@@ 340 IF (J.EQ.1) GO TO 370 GP )@@G@@ TBL80237 @I@@@@C PRINT OUT RESULTS GQ )@@G@@ TBL80238 @I@@@@ JM1=J-1 GR )@@G@@ TBL80239 @I@@@@ GS )@@G@@CALL OPAF ( -1,KERFG,6 ) TBL802GT )@@G@@40 @I@@@@ CALL OPAF ( 8,FMT(1,I),8 ) GU )@@G@@ TBL80241 @I@@@@ DO 360 K=1,JM1,21 GV )@@G@@ TBL80242 @^@@@@ NR=JM1 - K + 1 GW )@@G@@@ @@@@ IF ( NR.GT.21 )NR=21 @B@@@@ CALL OPIP ( 1,20,IPT(K,1GX )@@G@@),4,NR,1 ) @I@@@@ CALL OPA ( -1,'& ' ) GY )@@G@@ TBL80250 @I@@@@ 360 CONTINUE GZ )@@G@@ TBL80251 @I@@@@ 370 CONTINUE HA )@@G@@ TBL80252 @I@@@@HB )@@G@@ 380 RETURN HC )@@G@@TBL80253 @I@@@@C*****************************************************HD )@@G@@******************TBL80259 @I@@@@ SUBROUTINE DRUM HE )@@G@@ TBL80260 @I@@@@C * THIS ROUTINHF )@@G@@E PUTS THE VARRIABLE TABLE ON DRUM TO BE SORTED LATER TBL80261 @I@@@@HG )@@G@@C PUT THE FIRST LINE IN THE BUFFER HH )@@G@@TBL80262 @I@@@@ IRDM(MBUF+1)= ENTRY(I) HI )@@G@@ TBL80263 @I@@@@ DO 10 K=1,6 HJ )@@G@@ TBL80264 @I@@@@ 10 IRDM(MBUF+K+HK )@@G@@1)=MTBL(LF+K-1) TBL80265 @I@@@@HL )@@G@@ IRDM(MBUF+8) = KBLNAM HM )@@G@@TBL80266 @I@@@@ IRDM(MBUF+9)=JM1 HN )@@G@@ TBL80267 @I@@@@ MBUF=MBUF+28 HO )@@G@@ TBL80268 @I@@@@ MLINE=0 HP )@@G@@ TBL80269 @I@@@@HQ )@@G@@ GO TO 40 HR )@@G@@TBL80270 @I@@@@C PUT THE REMAINING LINES IN THE BUFFER HS )@@G@@ TBL80271 @^@@@@ 20 NB=1792 - MBUF @^@@@@ HT )@@G@@NR=JM1 - MLINE @ @@@@ IF ( NR.GT.NB )NR=NB @E@@@@ CALL MHU )@@G@@OVER ( IPT(MLINE+1,1),1,IRDM(MBUF+1),1,NR ) @^@@@@ NS=28*(NR/28HV )@@G@@) @B@@@@ IF ( MOD(NR,28).NE.0 )NS=NS + 28 @^@@@@ MBUF=MHW )@@G@@BUF + NS @^@@@@ MLINE=MLINE + NS @I@@@@C IF THE TEST FAILSHX )@@G@@ THE BUFFER IS FULL - PUT IT ON DRUM TBL80277 @I@@@@ 40 HY )@@G@@IF (MBUF.LT.1782) GO TO 50 TBL802HZ )@@G@@78 @I@@@@ CALL DRMWT8(IRDM,1792,KADD) IA )@@G@@ TBL80279 @I@@@@ MBUF=0 IB )@@G@@ TBL80280 @I@@@@ 50 IF (MLINE.LT.JM1) IC )@@G@@GO TO 20 TBL80281 @I@@@@ ID )@@G@@RETURN TBL802IE )@@G@@82 @I@@@@C***********************************************************IF )@@G@@************TBL80283 @I@@@@ SUBROUTINE ENTER (LSTET,JENT) IG )@@G@@ TBL80284 @I@@@@C * THIS SBRTN MAKES IH )@@G@@AN ENTRY IN MTBL TBL80285 @I@@@@C II )@@G@@ LSTET-LAST ENTERY JENT-VALUE OF PRESENT ENTERY TBL802IJ )@@G@@86 @I@@@@C MAKE THE ENTERY IK )@@G@@ TBL80287 @I@@@@ MTBL(JPOINT)=JENT IL )@@G@@ TBL80288 @I@@@@C STORE LCTN OF THIIM )@@G@@S ENTERY IN LAST ENTERY TBL80289 @I@@@@ IN )@@G@@CALL UPD8 (JPOINT,MTBL(LSTET)) TBL802IO )@@G@@90 @I@@@@C SET LSTET EQUAL TO LCTN OF THIS ENTERY IP )@@G@@ TBL80291 @I@@@@ LSTET=JPOINT IQ )@@G@@ TBL80292 @I@@@@ JPOINT=JPOINT-1 IR )@@G@@ TBL80293 @I@@@@C IS )@@G@@ CHECK TO SEE IF MTBL IS FULL TBL802IT )@@G@@94 @I@@@@ IF (KPOINT+12 .GT. JPOINT) CALL OVFL8 (10) IU )@@G@@ TBL80295 @I@@@@ RETURN IV )@@G@@ TBL80296 @I@@@@C***********************IW )@@G@@************************************************TBL80297 @B@@@@ IX )@@G@@SUBROUTINE LOCATE ( $,$,IXARY ) @[@@@@C @E@@@@C THIS ROUTINE LOIY )@@G@@CATES (OR ENTER) AN ENTRY IN ENTRY/POINT @[@@@@C @^@@@@C RETURN IZ )@@G@@- NEW ENTRY @ @@@@C RETURN 1 - ENTRY LOCATED @C@@@@C RETURN 2 - BAD JA )@@G@@ENTRY TO BE LOCATED/ENTERED @D@@@@C (HIGH ORDER CHARACTER JB )@@G@@NOT ALPHANUMERIC @[@@@@C @C@@@@C ENTRY=VARIABLE NAME OR STATEMENT JC )@@G@@NO. TABLE @F@@@@C POINT=H1-POINTER TO NEXT ENTRY H2=POINTER INTO MTJD )@@G@@BL TABLE @^@@@@C LCTN =POINTER TO MTBL@ @@@@C JLAST=POINTER TO LASTJE )@@G@@ ENTRY@C@@@@C IXARY=POINTER TO FIRST ENTRYIN ENTRY/POINT @[@@@@C JF )@@G@@@[@@@@C @^@@@@C THREADED LIST SORT @[@@@@C @D@@@@C IXARY=IXAJG )@@G@@LP (VARIABLES) OR IXNUM (STATEMENT NOS.) @C@@@@C POINTER TO FIRSJH )@@G@@T ENTRY IN ENTRY/POINT @D@@@@C (HIGH ORDER CHARACTER 1-26 FOR INJI )@@G@@DEX-IXALP) @B@@@@C (HIGH ORDER DIGIT AS INDEX-IXNUM)@F@@@@C JJ )@@G@@ (1-10 IF X 11-20 IF XX 21-30 IF XXX 31-40 IF XXXX ETC)@D@@@@C H1(JK )@@G@@POINT(X))=POINTER TO NEXT ENTRY =0 LAST ENTRY @B@@@@C H2(POINT(X))=POJL )@@G@@INTER TO MTBL TABLE @[@@@@C @^@@@@ DIMENSION IXARY(2)@^@@@@JM )@@G@@ LOGICAL STNFG @^@@@@ DO 11 I=0,35,6 @G@@@@ IX=FLDJN )@@G@@( I,6,IVAR ) @ GET HIGH ORGER NON-BLANK CHAR @A@@@@ JO )@@G@@IF ( IX.EQ.'@@@@@ ' )GO TO 11 @A@@@@ CALL CHKLET ( IX,$33,$1 ) JP )@@G@@@A@@@@ 1 CALL CHKNUM ( IX,$44,$22 ) @#@@@@ 11 CONTINUE @#@@@@JQ )@@G@@ 22 RETURN 2 @ @@@@ 33 IX=IX - '@@@@@A' + 1 @^@@@@ STNFG=JR )@@G@@.FALSE. @#@@@@ GO TO 55 @ @@@@ 44 IX=IX - '@@@@@0' + 1 JS )@@G@@@ @@@@ IX=IX + 10*( (30-I)/6 ) @#@@@@ STNFG=.TRUE.@^@@@@ 55 JT )@@G@@IX1=IXARY(IX) @]@@@@ IX2=0 @ @@@@ IF ( IX1 ) 133,133,66 JU )@@G@@@B@@@@ 66 IF ( IVAR - ENTRY(IX1) ) 133,77,88 @A@@@@ 77 LCTN=FLD( 18JV )@@G@@,18, POINT(IX1) ) @D@@@@ IF ( STNFG )GO TO 199 @ CHECK VARIABLES OJW )@@G@@NLY @B@@@@ IF ( MTBL(LCTN+5).EQ.IFFG )GO TO 199@B@@@@ IF ( IJX )@@G@@FFG.EQ.'LBCM ' )GO TO 88 @C@@@@ IF ( MTBL(LCTN+5).NE.'LBCM ' JY )@@G@@)GO TO 199 @^@@@@ 88 DO 122 II=1,MAXVAR@A@@@@ IX2=FLD( 0,18, POJZ )@@G@@INT(IX1) ) @ @@@@ IF ( IX2 ) 144,144,99 @C@@@@ 99 IF ( IVAR - KA )@@G@@ ENTRY(IX2) ) 144,100,111 @ @@@@ 100 LCTN=H2( POINT(IX2) ) @D@@@@KB )@@G@@ IF ( STNFG )GO TO 199 @ CHECK VARIABLES ONLY @B@@@@ IF ( MKC )@@G@@TBL(LCTN+5).EQ.IFFG) GO TO 199@B@@@@ IF ( IFFG.EQ.'LBCM ' )GO TO 1KD )@@G@@11 @C@@@@ IF ( MTBL(LCTN+5).NE.'LBCM ' )GO TO 199 @#@@@@ 111 KE )@@G@@IX1=IX2 @#@@@@ 122 CONTINUE @^@@@@ CALL OVFL8 ( 20 ) @#@@@@KF )@@G@@C FIRST ENTRY @^@@@@ 133 JLAST=JLAST + 1 @^@@@@ IXARY(IX)=JLKG )@@G@@AST @A@@@@ FLD( 0,18, POINT(JLAST) )=IX1@#@@@@ GO TO 155 KH )@@G@@@^@@@@C AFTER FIRST ENTRY @^@@@@ 144 JLAST=JLAST + 1 @E@@@@ KI )@@G@@FLD( 0,18, POINT(JLAST) )=FLD( 0,18, POINT(IX1) ) @A@@@@ FLD( 0KJ )@@G@@,18, POINT(IX1) )=JLAST@^@@@@ 155 ENTRY(JLAST)=IVAR @B@@@@ FLD( 1KK )@@G@@8,18, POINT(JLAST) )=KPOINT @#@@@@ 166 LCTN=KPOINT @]@@@@ RETURNKL )@@G@@@#@@@@ 199 RETURN 1 @I@@@@C*****************************************KM )@@G@@******************************TBL80332 @I@@@@ SUBROUTINE OVFL8 (KN )@@G@@IARG) TBL80333 @I@@@@C * KO )@@G@@ THIS ROUTINE TAKES CARE OF A TABLE OVERFLOW CONDITION TBL803KP )@@G@@34 @I@@@@ CALL OPA ( -1,MSG ) KQ )@@G@@ TBL80335 @I@@@@ CALL OPA ( 20,'TABLE OVERFLOW NO.=&'KR )@@G@@ ) TBL80336 @I@@@@ CALL OPI ( 40,IARGKS )@@G@@,5 ) TBL80337 @I@@@@ KT )@@G@@CALL OPAP ( 3,48,'DATA PROGRAM IS TO LARGE.&' ) TBL803KU )@@G@@38 @I@@@@ CALL OFEXT8 KV )@@G@@ TBL80339 @I@@@@ RETURN KW )@@G@@ TBL80340 @I@@@@C***********************KX )@@G@@************************************************TBL80341 @I@@@@ KY )@@G@@SUBROUTINE PNCH TBL803KZ )@@G@@42 @I@@@@C * THIS ROUTINE PUNCHES THE VARIABLE TABLE ONTO CARDS LA )@@G@@ TBL80343 @I@@@@ IF (JF9.LE.1) GO TO 10 LB )@@G@@ TBL80344 @I@@@@ CALL OPAF ( -1, ENLC )@@G@@TRY(I),6 ) TBL80345 @I@@@@ LD )@@G@@CALL OPAF ( 8,INAME,12) TBL803LE )@@G@@46 @I@@@@ CALL OPAF ( 21,KVERSN,12) LF )@@G@@ TBL80347 @I@@@@ CALL OPA ( 35,'F & ' ) LG )@@G@@ TBL80348 @I@@@@ CALL OPAF ( 37,MTBLH )@@G@@L(LF+5),4 ) TBL80349 @I@@@@ LI )@@G@@CALL OPAF ( 42,MTBL(LF),2,5,1 ) TBL803LJ )@@G@@50 @I@@@@ CALL OPAF ( 58,KERFG,6 ) LK )@@G@@ TBL80351 @I@@@@ CALL OPUNCH LL )@@G@@ TBL80352 @I@@@@ 10 DO 30 KX=1,JM1,10 LM )@@G@@ TBL80353 @I@@@@ LN )@@G@@CALL OPAF ( -1,ENTRY(I),6 ) TBL803LO )@@G@@54 @I@@@@ CALL OPAF ( 7,INAME,6 ) LP )@@G@@ TBL80355 @^@@@@ NR=JM1 - KX + 1 @ @@@@ IF ( NLQ )@@G@@R.GT.10 )NR=10 @B@@@@ CALL OPAF ( 13,IPT(KX,1),6,NR,0 ) @I@@@@LR )@@G@@ CALL OPUNCH LS )@@G@@TBL80364 @I@@@@ 30 CONTINUE LT )@@G@@ TBL80365 @I@@@@ RETURN LU )@@G@@ TBL80366 @I@@@@C*****************LV )@@G@@***************************************************** TBL80367 @I@@@@LW )@@G@@ END LX )@@G@@TBL80368 ___ (HIGH ORDER CHARACTER *[S@@@*SDFF*@I@@@@ LY )@@G@@SUBROUTINE CHKCC ( ICCD,ICCR,NWCH,QUAL,FILE,ELT,VER,IXOP,NCH, MGC 01LZ )@@G@@C @I@@@@ * $,$ ) MA )@@G@@ MGC 01C @I@@@@C MB )@@G@@ CKCC0002 @I@@@@C CHECK/UNPACK CONTROL CMC )@@G@@ARDS CKCC0003 @I@@@@C MD )@@G@@ CKCC00ME )@@G@@04 @I@@@@C MF )@@G@@ CKCC0005 @I@@@@C CC FORMAT: QUAL*FILE.ELT/VER,OPS MG )@@G@@ CKCC0006 @I@@@@C MH )@@G@@ CKCC0007 @I@@@@C MI )@@G@@ CKCC00MJ )@@G@@08 @I@@@@C FOLLOWING ARE INPUT: MK )@@G@@ CKCC0009 @I@@@@C ML )@@G@@ CKCC0010 @I@@@@C ICCD=CONTROL CARD IMAMM )@@G@@GE CKCC0011 @I@@@@C ICCMN )@@G@@R=CONTROL CARD IMAGE - UNPACKED AND BLANKS REMOVED CKCC00MO )@@G@@12 @I@@@@C NWCH=NO. CHAR. IN CONTROL CARD MP )@@G@@ CKCC0013 @I@@@@C MQ )@@G@@ CKCC0014 @I@@@@C FOLLOWING ARE RETURNEDMR )@@G@@: CKCC0015 @I@@@@C MS )@@G@@ CKCC00MT )@@G@@16 @I@@@@C QUAL=NAME OF QUALIFIER MU )@@G@@ CKCC0017 @I@@@@C FILE=NAME OF FILE MV )@@G@@ CKCC0018 @I@@@@C ELT=NAME OF ELEMENT MW )@@G@@ CKCC0019 @I@@@@C VEMX )@@G@@R=NAME OF ELEMENT VERSION CKCC00MY )@@G@@20 @I@@@@C IXOP=INDEX INTO ICCR TO START OF OPTIONS MZ )@@G@@ CKCC0021 @I@@@@C NCH=S1 NO. OF CHAR. IN QUAL NA )@@G@@ CKCC0022 @I@@@@C S2 NO. CHAR. INNB )@@G@@ FILE CKCC0023 @I@@@@C NC )@@G@@ S3 NO. CHAR. IN ELT CKCC00ND )@@G@@24 @I@@@@C S4 NO. CHAR. IN VER NE )@@G@@ CKCC0025 @I@@@@C S6 =0 NO QUAL (*) =1 QUAL (* FONF )@@G@@UND) CKCC0026 @I@@@@C NG )@@G@@ CKCC0027 @I@@@@ NH )@@G@@IMPLICIT INTEGER (A-Z) CKCC00NI )@@G@@28 @I@@@@ DIMENSION ICCD(11),ICCR(66),QUAL(2),FILE(2),ELT(2),VERNJ )@@G@@(2),BLK(12) CKCC0029 @I@@@@ COMMON /MSG/MSG(3) NK )@@G@@ CKCC0030 @I@@@@C NL )@@G@@ CKCC0031 @I@@@@ NM )@@G@@QUAL(1)=' ' CKCC00NN )@@G@@32 @I@@@@ QUAL(2)=' ' NO )@@G@@ CKCC0033 @I@@@@ FILE(1)='TPF$ ' NP )@@G@@ CKCC0034 @I@@@@ FILE(2)=' ' NQ )@@G@@ CKCC0035 @I@@@@ NR )@@G@@ELT(1)=' ' CKCC00NS )@@G@@36 @I@@@@ ELT(2)=' ' NT )@@G@@ CKCC0037 @I@@@@ VER(1)=' ' NU )@@G@@ CKCC0038 @I@@@@ VER(2)=' ' NV )@@G@@ CKCC0039 @I@@@@ NW )@@G@@NCH=0 CKCC00NX )@@G@@40 @I@@@@ FLD( 6,6,NCH )=4 @ 4 CHAR IN FILE-ASSUMNY )@@G@@ED CKCC0041 @I@@@@ IXOP=NWCH+1 NZ )@@G@@ CKCC0042 @I@@@@ IF (NWCH.GT.0) GO OA )@@G@@TO 20 CKCC0043 @I@@@@C OB )@@G@@ CKCC00OC )@@G@@44 @I@@@@C CONTROL CARD ERROR OD )@@G@@ CKCC0045 @I@@@@C OE )@@G@@ CKCC0046 @I@@@@ 10 CALL OPA ( -1,MSG OF )@@G@@) CKCC0047 @I@@@@ OG )@@G@@CALL OPA ( 20,'CONTROL CARD ERROR. IMAGE=&' ) CKCC00OH )@@G@@48 @I@@@@ IF ( NWCH.GT.0 )CALL OPAF ( 47,ICCD,66 ) OI )@@G@@ CKCC0049 @I@@@@ CALL OPRINT ( 2 ) OJ )@@G@@ CKCC0050 @I@@@@ CALL OPAP ( 2,-1,'OK )@@G@@ & ' ) CKCC0051 @I@@@@ OL )@@G@@CALL ERROR8 CKCC00OM )@@G@@52 @I@@@@ 20 FLAG1=0 @ '*' ON )@@G@@ CKCC0053 @I@@@@ FLAG2=0 @ '.OO )@@G@@' CKCC0054 @I@@@@ FLAG3=0 OP )@@G@@ @ '/' CKCC0055 @I@@@@ OQ )@@G@@FLAG4=0 @ ',' CKCC00OR )@@G@@56 @I@@@@ DO 110 K=1,NWCH OS )@@G@@ CKCC0057 @I@@@@ IF (K.GT.1) GO TO 40 OT )@@G@@ CKCC0058 @I@@@@ 30 CALL MOVER ( ' OU )@@G@@ ',0,BLK,1,12 ) CKCC0059 @I@@@@ OV )@@G@@I=0 CKCC00OW )@@G@@60 @D@@@@ IF ( K.LE.1.AND. ICCR(K).EQ.'@@@@@.' )GO TO 110 @I@@@@OX )@@G@@ IF (K.GT.1) GO TO 110 OY )@@G@@CKCC0061 @I@@@@ 40 IF (ICCR(K).NE.'@@@@@*') GO TO 50 OZ )@@G@@ CKCC0062 @I@@@@ IF (FLAG1.GT.0) GO TO 10 PA )@@G@@ @ ERROR - 2 '*' CHAR. CKCC0063 @I@@@@ FLAG1=1 PB )@@G@@ CKCC0064 @I@@@@PC )@@G@@ FLD( 30,6,NCH )=1 @ FLAG '*' FOUND PD )@@G@@CKCC0065 @I@@@@ IF (I.LE.0) GO TO 110 @ *FILE.ELT/VER,PE )@@G@@OP CKCC0066 @I@@@@ CALL PACK12 ( BLK,QUAL ) PF )@@G@@ @ PACK QUAL NAME CKCC0067 @I@@@@ FLD( 0,6,NCHPG )@@G@@ )=I @ NO. CHAR. IN QUAL CKCC0068 @I@@@@PH )@@G@@ GO TO 30 PI )@@G@@CKCC0069 @I@@@@ 50 IF (ICCR(K).NE.'@@@@@.') GO TO 60 PJ )@@G@@ CKCC0070 @I@@@@ IF (FLAG2.GT.0) GO TO 10 PK )@@G@@ @ ERROR - 2 '.' CHAR. CKCC0071 @I@@@@ FLAG2=1 PL )@@G@@ CKCC0072 @I@@@@PM )@@G@@ IF (I.LE.0.AND.FLAG1.GT.0) GO TO 10 @ ERROR- QUAL BUT NO FILE NAPN )@@G@@CKCC0073 @I@@@@ IF (I.LE.0) GO TO 30 @ NO QUAL OR FILPO )@@G@@E ASSUME TPF$ CKCC0074 @I@@@@ CALL PACK12 ( BLK,FILE ) PP )@@G@@ @ PACK FILE NAME CKCC0075 @I@@@@ FLD( 6,6,NCHPQ )@@G@@ )=I @ NO. CHAR. IN FILE MGC 01C @I@@@@PR )@@G@@ GO TO 30 PS )@@G@@CKCC0077 @I@@@@ 60 IF (ICCR(K).NE.'@@@@@/') GO TO 80 PT )@@G@@ CKCC0078 @I@@@@ IF (FLAG3.GT.0) GO TO 10 PU )@@G@@ @ ERROR - 2 '/' CHAR CKCC0079 @I@@@@ FLAG3=1 PV )@@G@@ CKCC0080 @I@@@@PW )@@G@@ 70 IF (I.LE.0) GO TO 10 PX )@@G@@CKCC0081 @I@@@@ CALL PACK12 ( BLK,ELT ) @ PACK ELEMENT NPY )@@G@@AME CKCC0082 @I@@@@ FLD( 12,6,NCH )=I PZ )@@G@@ @ NO. CHAR. IN ELT CKCC0083 @I@@@@ IF (FLAG4.GTQA )@@G@@.0) GO TO 90 CKCC0084 @I@@@@QB )@@G@@ GO TO 30 QC )@@G@@CKCC0085 @I@@@@ 80 IF (ICCR(K).NE.'@@@@@,') GO TO 100 QD )@@G@@ CKCC0086 @I@@@@ IF (FLAG4.GT.0) GO TO 10 QE )@@G@@ @ ERROR - 2 ',' CHAR CKCC0087 @I@@@@ FLAG4=1 QF )@@G@@ CKCC0088 @I@@@@QG )@@G@@ IF (FLAG3.LE.0) GO TO 70 @ ELT,OP QH )@@G@@CKCC0089 @I@@@@ IF (I.LE.0) GO TO 10 @ ERROR '/' BUT QI )@@G@@NO VER CKCC0090 @I@@@@ CALL PACK12 ( BLK,VER ) QJ )@@G@@ @ PACK ELEEMENT VERSION NAME CKCC0091 @I@@@@ FLD( 18,6,NCQK )@@G@@H )=I @ NO. CHAR. IN VER CKCC0092 @I@@@@QL )@@G@@ 90 IXOP=K + 1 @ INDEX TO OPTIONS QM )@@G@@CKCC0093 @I@@@@ GO TO 30 QN )@@G@@ CKCC0094 @I@@@@ 100 I=I + 1 QO )@@G@@ CKCC0095 @I@@@@ IF (I.GT.12)QP )@@G@@@@C@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@QV )@@G@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@E@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@IFACIL @@^@@@@@@@@@RB )@@G@@FILECT @@ @@@@@@@@@IOW @@A@@I@@@@@@REWN @@C@@@@@@@@@RC )@@G@@POSN @@C@@@@@@@@@READN @@C@@@@@@@@@WRITEN @@C@@@@@@@@@RD )@@G@@FORMAIN$ @@I@@@@@@@@@SORTRF @@J@@@@@@@@@BUF3 @@K@@@@@@@@@RE )@@G@@BUF2 @@L@@@@@@@@@NREAD @@M@@@@@@@@@NWRITE @@M@@@@@@@@@RF )@@G@@SORTX @@P@@@@@@@@@)#W@3#[#[#[#[#[#@@)D#@S@BUF3 @@@@@@@@F@@ *4@KD#RG )@@G@@N#0@DIR@)@DHR@K@DG9!)@DER]0@DAAY@@@F)DA@C@)#+@;#[]X#[#[#[#[#@@@@@@^#0@DIRH )@@G@@A@)@DHA@K@DG9()@DEAA0@DA/K@@@@/K@KD#@]O@@#AZ@@@F)#([MK0^G[@K^[@K@@[^@@@:RI )@@G@@[^@@][[^@@]'[^@@##[^@@]^C8FK@][@@@DBC8FK@[[@K@DCC@VK@@BA@@@F)#3@:@K[#[@@RJ )@@G@@)D@@S@@@@@@@@@@@@@@@@@@Q@@@@@#@@@@@A/K@@@@[@K@DDC@VK@#[^@@[W[^@@@*BB@@@FRK )@@G@@@@^@@#@@B@@C@@R@@[@@V@@[@@^@DJ@C@@#8@@@@@@NWRITE NREAD NTRAN RL )@@G@@ NERR2$ NWDU$ NIO2$ NERR6$ NERR3$ BUF3 RM )@@G@@ @@[@@@@@@@#=@@@@@@ ^@@@C@@]@@@@@@@CJO@@@CJ4@@@CJC@@@CJ8@@@CJSRN )@@G@@@@@CJK@@@CIS@@@CIK@@@CIO@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@RO )@@G@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@SK)@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]'=@@@@C@F@@@AA@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@^@@[@@ @@[@@B@@[@@F@@@@@@@@#FACIL$ FACIL @@@@@@@@@@@@X,R6,RRS )@@G@@4,1X,R2,R4,2X,R2,R1, @F@@@@ * 2X,R3,2X,R2,R1,2X,R3,2X,R2,R1,2X,R1RT )@@G@@,2X,R2,2X,R1,2X,R1,R2, )@@[N[^@^^KO^@@@@@R#F@@#AF@@@#AB@@@]R#F@@]AB@@@#RU )@@G@@R#G@@@R#F@@[AB@@@NR#F@@@AA0@@^AA@@@@)@E[F@^ [K)@K[]@ @@@@@@@/K@@@Z/,0@@@RV )@@G@@R;@[[]/K@@@X/,0@@@R#@@@]AF@@@]R;@@^JAB@@@UAB@@@@)@N[EK^C@=[@KOC@1[@@@@@@RW )@@G@@RA0@@^/K@@@@/,0@@@R#K@@#RB@@@N/K@@@U/,0@@@RB@@@N9*@@@@AC@@@@)@W@%K)^K) KRX )@@G@@O@@@@@)@@@W@@@@@@@@@@@@@ TPF$ /K@@@N9?@@@@'=@@@@'=@@@@/KF@@ AD@@@@RY )@@G@@)@#@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@AE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@@B@@A@@N@@[@@R@@@@@@@@@@@@@@-@@@@@ RINF$ SB )@@G@@ SINF$ RFTI RPFET PRINT$ EXIT$ FILECTSC )@@G@@ @@[@@@@@@@@@.') @#@@@@ WRITE(6,930))@@@SK)@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]'=@@@@C@F@@@AA@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@^@@[@@ @@[@@B@@[@@F@@@@@@@@#IOW$ IOW @@@@@@@@@@@@AK( C?SG )@@G@@C1GC)*AC2 )1AK?CC*AC2 C( ))^@)@E@@@@^@)^@)^@%^@)^@)^@)^@)^@)^@)^@)^[AD-^SH )@@G@@ @2A)?AC2 -[ @1AK( C?^@))@@[EK0)]A^GCK]&@@@@@@@@@@@@@S@@@@@@/,0@@@ @@@@[SI )@@G@@[@@@@@C/@@@[/K@@@ [@@@@@C/@@@]AA@@@F)@D[E()]&]&^G]A^@@@@@@@@/@@@@JH@@@@]SJ )@@G@@C/@__"@[D@@W@@@@@S@@@@@]@@@@@@@@@@@@@@@@@@AB@@@F)@M[F#]@)C]@--#@)@@@@@@@SK )@@G@@/C@@@$G/@__'C@@@@[@[H@@W/K@@@0N@0@@R/@@@@S/C@@@SD@@@@]AC@@@F)@V[F@^GCSK+SL )@@G@@O0O0-)()@@@@@@K@@]@[L@@W@@@@@#@[@@@T/,0@@@[@@@@[G@@@@[C/@@@[/@@@@$AD@@@FSM )@@G@@)@=@E()@@@@@)@#[@@@@@@@@,I3) PT NO. ATTEM2,012HODE ,IRROR CDRUM E(017H0SN )@@G@@@@K@@[AE@@@F)@>[#]M@-^()(-#@@@)@F@C@(049H0@@K@@@@@K@@@@[R@@W@@@@@F@[@@@TSO )@@G@@/,0@@@/K@@@A'^@@@@AF@@@F)@G[S@@@@@@@ WORDS1H NO.,I3,01 UNIT=N JOB.. RERUSP )@@G@@ROBLEMWARE PM HARDLE DRUPOSSIBAG@@@F)@R@C@)@!@:]M^2&^GCS@@@@)@U@K@@@@@@@SQ )@@G@@@@F@@@*4@K@UR]0@@X@[W@@W'^@@@@'^@@@@=,I6) AH@@@F)@W@K@)@2@;#] ^GCS[@@@@@SR )@@G@@/\K@@4C8@@@^/KH@@@[^@@@UAA0@@X/K@@@@/K@K@U@[W@@#NREAD AI@@@F)@9[MK^@K[@KSS )@@G@@^@@@@@C8@@@^/K@@@@[^@@@E[^@@@?C8FK@][^@@@FC8FK@[[^@@@B[^@@@:C8FK@@AJ@@@FST )@@G@@)[#[N@^[@^@K^[@@@@/K@@@#[^@@@E[^@@@?C8FK@][^@@@FC8FK@[[^@@@B[^@@@:C8FK@@SU )@@G@@/\K@@4AK@@@F)@S@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@A@@@@@QAL@@@F@@^@@#@@B@@ @@L@@]@@T@@[@@#@@Y@C@@[H@@@@@@NTRAN SW )@@G@@ NWDU$ NIO2$ NERR6$ NERR3$ NREAD @@[@@@SX )@@G@@@@@@@7NWRITE @@[@@@@@@@[]@@@@@@ ^@@@C@@]@@@@K@[@@@Q@[@@@&@[@@@SY )@@G@@@@@@@@@@@@@@@K[@@@KK[@@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@SZ )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@)@@[U@@@@@@@1@@@@K*@@@@KH[FK@@C.@[ICC/)@@[ @@@@G1@@@@I*@@@@IH@:K@[C/)[ICTB )@@G@@C/@@@[AA@@@F)@F[U^@@@K@@/=K@#Y)@@@@I @@@@I*@FK@@C/)@@[ @@@@G*@FK@[C/@@@[TC )@@G@@/=K@#Y)@@@@I @@@@IAB@@@F)@Q[F]@()O0ES G^G^G[#@@@R@K@@VG/@__"C@@@@9@[G@@$TD )@@G@@@@@@@U@@@@@U@@@@@U@@@@@T/,0@@@AC@@@F)@Z[EYO[]@()) G]&[N@@@@@@[K@@$@@@@@YTE )@@G@@@@@@@X@@@@@=@@@@@W/,0@@@^^K@@=N8L\_"[@@@[JAD@@@F)@*[F@K-ES G]&]A]^[N@()@TF )@@G@@@@@@@U@@@@@+/,0@@@@[M@@$@@@@@-@@@@@)@@@@@Z/,0@@@8N0@@)AE@@@F)@1[E()O0K0^TG )@@G@@^K0K^@@@@@@@/@@@[]/C@@[]H@@@@9C/@@@[[@@D1@C/@@@[@[N@@$@@@@@U@@@@@UAF@@@FTH )@@G@@)@'[F#[#[]D#@*>^**SCS@@@C@@@@9@[Q@@$@@@^8)@@@E_C@@@D1@@@@@@'/,0@@@[@@@@'TI )@@G@@D@@@@9AG@@@F)[#[EK0^ #[#[9K^C@@@@@@@/,0@@@^^K@[HN8MJ_"R@)@@[[@@@@[C@[(0_TJ )@@G@@[@@@[JR@K@@VG/@__"AH@@@F)[G[E()) G]&]A]@-@O0ES@@@@@@@U@@@@@@)@@@@@@@)#?@F#@@@@@@UG )@@G@@/K@K@>@]P@@#SORTRF@@@@@@@@F@@#*4@K@>N#0@@"BB@@@F)#![F]>#[#[#[#[@K^G^^@@@UH )@@G@@R@KGH!@]T@@,/,0@A8/K@@DX^#0@@"A@)@@.A@K@@/AA0@@*/K@@@@BC@@@F)#6[N[[#@[#[UI )@@G@@#[[@@@C[LGHJC[@@@(E@)@@_E@@@@GG/@@@AE@@@@G[@@@@_G/@__9T/@@@AC@@GH?BD@@@FUJ )@@G@@)^@[M[[[#@^G@@@@@@[#)@@@N_)@@ C_)@@[A@K@@AN_0@@[R/K@@[[[LGHJ;[Y@@@;H@@@AUK )@@G@@;-W@@@BE@@@F)^E[N#@[[@K^@@@@@@/,0@A8/@)@^,G/)__';C)@@Y;)?@@@C@-GH>E@@@@GUL )@@G@@G/@__9T/@@@AC@@@@@BF@@@F)^O[N#[[KKK0[#@@@@T/)@@AC@)@@@G/@@@AE@@@@G[@@@@_UM )@@G@@G/@__9T/@@@AC@@GH?R@)GH!@]<@@,BG@@@F)^Y[M^^[#[[@@@@@@@;H@@@A;-W@@@C[MGHJUN )@@G@@E@)@@_E@@@@G;D@@@Y;-I@@@C[[GH>E@)@@IG/)__9BH@@@F)^*[MKL@^[[K0K^@@@/,0@A8UO )@@G@@/@@@ ?H@@@@%C@@GH*8N0@^AO/K@@[8N)@^DG_)@@[[[MGHJ;[Y@@@BI@@@F)^2[N#[[KKK0UP )@@G@@@K0@@@E@)@@_E@@@@GG/@@@AE@@@@G[@@@@_G/@__9T/@@@AC@@GH?R@)GH!@](@@,BJ@@@FUQ )@@G@@)^/[N#[[@KKK0@@@@@C_)@@[A@K@@AN_0@@[R/K@@#[[MGHJ;[Y@@@;H@@@A;-W@@@C[MGHJUR )@@G@@C[@@@:BK@@@F) A[MK0K0@KK@@@@@@G/)__';C)@@Y;)?@@@C@-GH>E@@@@GG/@__9T/@@@AUS )@@G@@C@@@@@[#)@@@N_)@@ BL@@@F) K[N@K^G^ [[#@@@@G/@@@AE@@@@G[@@@@_G/@__9T/@@@AUT )@@G@@C@@GH?R@)GH!@]3@@,/,0@A8/@)@ ?BM@@@F) U[N#@[[@K0KK@@@@C[MGHJE@)@@_E@@@@GUU )@@G@@;D@@@Y;-I@@@C[[GH>E@)@@IG/)__9T/)@@AC@)@@@BN@@@F) =[M[[^@K^^@@@@@@G/@__?UV )@@G@@C@@GH!8N0@ ^O/K@@[8N)@ BG_)@@[[[MGHJ;[Y@@@;H@@@A;-W@@@BO@@@F) ,[F@K^[@K0UW )@@G@@K%ES G^G@@@@@]'@@,@@@@@S@[@@@X/,0@@@@]8@@,/K@@ABN@0@ 2/@@@ 3/C@@ 3BP@@@FUX )@@G@@) 7@3]?*+^2A@@@@@@)@S@C@@@@@@@@@@@@@(22A6)N_0@@PR@)@@V'^@@@@@@[@@Q@^KGHKUY )@@G@@'^@@@@BQ@@@F) .[N#[[K[[^ @K^G@@#A@@,/K@@ABN@0@AA[[@GH?C.@@@[[@)GH!C/)@@AUZ )@@G@@8N0@ .[@]?HJC@@@@%BR@@@F)AB[##[#[#[#[#[#[#[#@@@@@@@@@@*4@K@?N#)@[BN#0@[AVA )@@G@@R@)@[ R@K@[^9\)@[]9!)@[@R]0@@\BS@@@F)@?@)@@@@@@@)AJ@<#[]>#[#@@@@@@[^@@@?VB )@@G@@AA0@@\/K@@@@/K@K@?@#A@@#INSERT@@@@@@@@F@@@BT@@@F)AN[F#[#[#[#[#[#@^@@@@@@VC )@@G@@/\K@ALC8@@@[/KH@@@^#)@[B^#0@[AA@)@[ A@K@[^9:)@[]9()@[@BU@@@F)AW[N@^[@^[@VD )@@G@@^ [@@@[@@GH?G@@GH?C/@@@[/K@@ ;/\K@ALC8@@@[/K@@ 3/\K@ALC8@@@[/K@@#3BV@@@FVE )@@G@@)A&[N[^[@K^[#@KO^@G@@GH![@@GH?C/@@@[@#G@@2/K@@A4N@0@A?/@@@A!/C@@A!G/@__8VF )@@G@@C@@GH?BW@@@F)A0@3[K^[#[#[#@@@@)@0@S@UPCHAR@@@@@@@@F@@[*4@K@0R]0@@3@#J@@2VG )@@G@@/K@@A4N@0@A3[@@GH!BX@@@F)@3@C@)A6[##[]>#[@^^KK@@[@)GH?C/)@@^[@@GH!C/@@@ VH )@@G@@/K@@A#[#[#[#[#[#[#[@@@/K@@A'^#)@[L^#0@[KA@)@[JA@K@[I9:)@[GWB )@@G@@9()@[EAA0@@8/K@@@@CP@@@F)DX@%K0^G^@@)@T@)@@@@@@@@@@@@ @@[@@[@@@@@@@@@@@^WC )@@G@@/K@@@@[@K@@;C@VK@[[@K@@9C@VK@@CQ@@@F)@X[@@@@@@@@)@(@K@ ,@@@@@CWD )@@G@@@@@@@#@@@@@[@@@@@E@@@@@Q@@@@@]@@@[IC@@@@@ACR@@@F)@:@C@)@4@C@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) /CS@@@F@@@@@@@[[@K0WF )@@G@@KK@@@@C[MGHJE@)@@_E@@@@G;D@@@Y;-I@@@C[[GH>E@)@@IG/)__9T/)@@AC@)@@@BN@@@FWG )@@G@@@@^@@#@@B@@G@@Z@@[@@<@@[@@^@[M@C@@D+@@@GH,BUF2 NTRAN SORTX WH )@@G@@ BUF3 NNCOD$ NIO1$ NIO2$ NERR2$ NPRT$ WI )@@G@@ NERR3$ NWDU$ 9*?@@@O.K@@[O.)@@]G_)@@[8LK@_ZG_0@@[8L@@_AN@0[@DWJ )@@G@@/K@[A5@]!DE)C/@__"G@@@@@C/)@@[G@)@@@C[@@@@T.@__.C[)@@@;[)@@[@@@[^[[)DE,RA0DEE$'0@@ WL )@@G@@8];[@+'^@#KA@]1DE)/K@[@$/K@[@%/K@[@!/K@[@0C@ @@[[@B@@[/K@[@2"/C@@@[@B@@[WM )@@G@@/K@[@2"8 @@[9*A@@@/K@[@29?C@@@9*A@@@O.0@@[O]@DE,O[KDE!O.)@@]8L@[@YN@0[@9WN )@@G@@/K@[A5@];DE)C/@@@[H@@@@@C@)@@@T/)__.C.@__"G[@@@@C[)@@@;[)@@@@@P.K@@]P.)@@[8LK[[R[)DE$[@@@[^[#)DEGC/@@@[G@@DEGT@@DEGWZ )@@G@@;K@@@[[@@DEJRA0DEE$'0@@ 8];[#I'^@#KA@#+DE)/K@[#N/K@[#S/K@[#Y/K@[#@@@O.K@@]O.)@@[G_)@@[8L@[#^XC )@@G@@N@0[#,/K@[A5@#?DE)C/@@@[G@@@@@C/)__"G@)@@@C[@@@@T.@__.C[)@@@;[)@@<[[)DE!XD )@@G@@G.)@@]C]@@@@T]@@@@H"@@@[C])DE!T])@@@H")@@][@@DE1H@@@@@G@@DE:C_@@@[G#@@@@XE )@@G@@H#@@@@G#@DE:[[@DE,G[@@@MG[@DE?C#)DE!G_)@@]G#)DE,G#)DE?R[0DE=R]@@@KR[KDE*XF )@@G@@R[)@@G[@)@[^[@)DE,[[)DE0]]@DE\]])DE2[#@DE3[#)DE4RA0DEE$'0@@ 8];[^W'^@#KAXG )@@G@@@#0DE)/K@[^-/K@[^=/K@[^$/K@[^%C@ @@[[@A@@[/K@[^?"/B@@@[@A@@[/K@[^?"8 @@[XH )@@G@@9*C@@@/K@[^?9?B@@@9*C@@@O.0@@]O]@DE0O.K@@[O[)DE18L@[^SC_0@@[R[KDE4R[)DE3XI )@@G@@N[@DE,[#0DEGC_)@@[N[KDE,[#)DEFC@@DEFH@@DEG(@@@@G/K@[ C@@@@@H@@DEQ(@@@@GXJ )@@G@@/K@[ # @A@@[/K@[ 9?@DEU9* @@@O[KDE!O[)@@@G_)@@[8LK[^8O[KDE2O[)DE\G_0@@[XK )@@G@@8L@[^5N@0[ J/K@[A5@^EDE)C/@@@[H@@@@@C@)DE(G@)@@@C[@@@@;[@@@XM )@@G@@'^@#KA@^JDE)/K@[ %/K@[ \/K@[ 4/K@[ 'R[KDEJO[KDE:C@C@@[[@ @@[/K@[ _R[)DEJXN )@@G@@O[)DE:"/B@@@[@A@@[/K@[ _C@@DEJ;@@@@C8FK@^[^@@.^[^@[ N[^@[ L[^@@/2[^@[AC[^@[A^[^@[ RXX )@@G@@[^@[ O[^@[#.[^@[#'[^@@"_[^@[[][^@@"H[^@[#2[^@@"C[^@[]_[^@@.K[^@@/0[^@@/\XY )@@G@@[^@[@F[^@@/![^@@;<[^@@. [^@@;-[^@@;$[^@@.F[^@[@_[^@@"D[^@[@;[^@@/5[^@@.EXZ )@@G@@[^@@;=[^@@.QC8FK@ [^@[@K[^@@"/[^@@/,[^@@;D[^@@;'[^@[@H[^@@/'[^@@/8[^@@.DYA )@@G@@[^@@_D[^@@;*[^@[@I[^@@;%[^@@_G[^@@;+[^@@.G[^@@_@[^@@;;[^@[@OC8FK@A[^@[#5YB )@@G@@[^@@/.[^@[@/[^@[#0[^@[[@[^@[ A[^@@.#[^@[^^[^@[#3[^@[]I[^@@/6[^@[[E[^@[#9YC )@@G@@[^@@;6[^@@;5[^@@;,[^@@;?[^@@/?[^@[]7[^@@;C[^@[]P[^@[^#[^@[^@[^@@.A[^@[[HYD )@@G@@[^@[]M[^@[]K[^@@;&C8FK@B[^@@99[^@@'X[^@@9-[^@@'([^@@9![^@@'5[^@@;[[^@@'LYE )@@G@@[^@@' C8FK@C[^@@94[^@@'@[^@@'=[^@@'S[^@@9W[^@@9*[^@@'0[^@@'/[^@@'GC8FK@EYF )@@G@@[^@[AV[^@[^.[^@@9O[^@[]:/K@@85C8FK@[G/@__.C@)DG)G/)__.C[@DG-G.@__.C9:K@GYG )@@G@@G.)__.C]@DG-G"@__"C':K@]G")__.C#@DG+G_@__.C#)DGC#)DG+G_)__"[#)DG&C#)DGZG_)__.[@@DG$[@)DG*[[@DG([[)DG%[]@DG:[])DG?YI )@@G@@[#@DG![#)DG, C@EY[C@FK@S[@@DFN9?)DGA9*)DFJ9!@DGC9(@DFL @@@@@C.)@@[C"@@@[YJ )@@G@@H]@@@@(@@@@O @@@@MC"@@@[C])@@@H])DGE(@@@@Q @@@@O+[)@@O/>0[GCC.)__"G[)@@@YK )@@G@@C]@@@@;]@@@C/@__"G@@@@@C@)@@@H@)DGHYQ )@@G@@*@@@@I/K@[V\C_)@@[R@KDGIQ@KDGZR@)DGIQ@)DGY[@@@[^[#)DFO9?]@@@"=@DGC(@@@@GYR )@@G@@/K@[VU9?@DGA"?])@@9*[)@@G_)@@[8L@[FOC/@@@[H@@DG4(@@@@G/K@[F>N@0[F=/K@[V8YS )@@G@@@[%DGV9?@DGA9*@@@@9?)DGC9*)@@@C.@__"G[@@@@C_)@@[R@0DGY[[@@[^[#)DFO9?#@@@YT )@@G@@9*@DFJ"=@DGC(@@@@G/K@[V^9?@DFJ"*@@@@9*@@@@94)DFJ9*)DG5/,0[0-@@@DG5@[4DGVYU )@@G@@")@@@@9*@@@@O/0@@]G_)@@[8L@[F,(C@EY[/K@[G C@EY[/K@[VJN@0[GB/K@[V8@[8DGVYV )@@G@@/,0[BC@@@@@@@@@DGJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF+@@@@@@@@@DF=YW )@@G@@@[9DGVC@@@@@H@@DGF*@@@@G/K@[G(C/@@@[[@@DFQ/,0@>^@@@DGJ@@@DGJ@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF&@@@@@@@@@DF*@[.DGV/K@[H@C@@@@@H@@DGH(@@@@GYY )@@G@@/K@[G6C@@@@@H@@DGG*@@@@G/K@[V\C/@@@[[@@DFNC/)@@#[@)DFQ/K@[H@C/@@@][@@DFQYZ )@@G@@C/)__"G@)@@@R[@DGIQ[@DG)[@)@[^9?@DGA9*^)@@8L@[G.C/@__"G@@@@@C@)@@@;@)@@O/K@@]O@)DG8G_)@@[8L@[HXC@@@@@H@@DGG(@@@@GZJ )@@G@@/K@[JAC/@@@[C@)@@@H@)DGH*@@@@I @@@@GC_)@@[R@0DG:R[@DG&N[@DG;[@@DG;[#)DFOZK )@@G@@C@@DFO[@#@@[C@@DG;/)@[J]C@@DFO[@^@@[O/0@@[O.@@@[G_)@@[8L@[I;C/@@@[H@@@@@ZL )@@G@@]@@DFRH/@__"C/)__"G@)@@@C[@@@@;[@@@@@@ZY )@@G@@9*&)@@9* )@@8LK[L-90)DFJ9*)DFJC[@@@@H[@DGG(@@@@K/K@[MCC[@@@@H[@DGF*@@@@KZZ )@@G@@/K@[M[C[@DG';[@@@M'L@DHB[[@@@ C[@DG';[@@@M'L@DHC[[@@@AN[KDG99?A@@@9*@DFDAA )@@G@@9?>@@@9*&)@@9* )@@8LK[L'/K@[MCC@^@@[[@@DFYR[KDFVO[KDG!C@>@@[[@=@@[[@ @@[AB )@@G@@C@@DFWH@@DFS(@@@@G/K@[M7C@@DFW;@@@@@@@9*$)@@9* )@@8LK[MYC@)@@@H@)DGG(@@@@I/K@[M5C@)DGKC@1@@[0@@@@JD@)@@IAE )@@G@@"))DGK9*)DFDC[A@@[[[[@@["))DGK;O)@@S#@)@@I;)"@@@[@6@@[90@DFJ9*@DFJC@@DFSAF )@@G@@;@@@@@@@]@5@@[O.K@@]G_@@@[8LK[NE(C@EY[/K@[O< C@EY[/K@[VJO/K@@[AO )@@G@@O/)@@[O@0DH[O.@@@[G_K@@[8L@[J\R[)DG79?A@@@"=@DGC(@@@@G/K@[V^(@@DFN/K@[PKAP )@@G@@9?@DFJ9*@@@@9?)DFL9*)@@@C[@DH[;[@@@M'L@DH@[[@@@BN[@DG_9?B)@@9*@DFJ"*@@@@AQ )@@G@@9*@@@@94)DFJ9*)DHE/,0[0-@@@DHE@^2DGV")@@@@9*@@@@8L@[O9(C@EY[/K@[PD C@EY[AR )@@G@@/K@[VJC@@@@@H@@DGG*@@@@G/K@[PKN@0[PJ/K@[V8@^7DGVC@@@@@"^@@@@/C@[PP*@@@@GAS )@@G@@/K@[V>C@@@@@[@@DF)C@)@@@H@)DGH*@@@@I/K@[PXC@)@@@[@)DF)C/@@@[H@@@@@C/)__"AT )@@G@@G@)DF)C.@__"G[@@@@C[)@@@;[)@@/K@[QI'^@#KA@ ]DGVC@]@@[[@@DFZAX )@@G@@C@)@@@H@)DFSC[@DFS;[@@@<[[@DG'G[@DG%C[)DHET[)DFSG[)DG'G[)DH[G[)DG,C]@DHEAY )@@G@@;]@@@M'M@@@M[]@@@#R[@DGIQ[@@@K[@)@[ 9?#)@@9*^)@@8LK[Q+C@@DFT;@@@@C@)DFO[@*@@[G_)@@[8L@[SBS )@@G@@C@)DFO[@*@@[G_)@@[8L@[UBC_)@@[R[@DG=N[@DG7[#)DFPC/@__"G@@@@@C@)DHET@)DFPBT )@@G@@G/)@@]G@)DH[G@)DG,[@@DG7[@)DG3C@^@@[[@@DFYH@@DFP(@@@@G/K@[U'C@@DFY;@@@@[^@[HA[^@[JI[^@[P[^@[P$[^@[JM[^@[GJC8FK@NCO )@@G@@[^@[PK[^@[V?[^@[K&[^@[K$[^@[K!C8FK@O[^@[GMC8FK@P[^@[G>C8FK@Q[^@[O/[^@[VDCP )@@G@@[^@[O;[^@[F6[^@[F5[^@[F&[^@[O1C8FK@R[^@[P][^@[F.[^@[F*[^@[O3[^@[VF[^@[F/CQ )@@G@@[^@[P#C@VK@S[@KDG4C8FK@T[^@[D5[^@[VQ[^@[V-/K@[DHC/@__"G@FK@^[@@DH/ @@@@@CR )@@G@@C/@@@[[@@DH@@@DH?@@@DH(@@@DH!@[ODH5N@0[ZW/K@[)ACU )@@G@@@[PDH59?[@@@"=@DH,*@@@@G/K@[Z+/K@[ZMRA0DH<$'0@@ 8];[Z>/K@[Z%/K@[Z?/K@[Z0CV )@@G@@/K@[Z5/K@[Z;'^@#KA@[TDH5C@@DH0"G#@@@[@^@@@/K@[Z"9?@DH1"?[@@@"/@@@G[@^@@@CW )@@G@@/K@[Z"C@#@@@"8@@@G9?)DH1"?)@@G9*+@@@/K@[Z"9?@DH1"?[@@@9*]@@@O/K@@]O/)@@]CX )@@G@@O/0@@[O.@@@[8L@[ZGN@0[) /K@[)A@[(@@EO7/K@[+4C/@@@#H@@@@@*@@@@GDL )@@G@@/K@[+:(@@EO8/K@[+4C/@@@#H@@@@@*@@@@G/K@[+1(@@EO9/K@[+4N@0[+3/K@[@[ADJK'^@#PP/,0]'^DT )@@G@@@@[DI0@[DDJK'^@#PP/,0@HT@@@@@@@@@DJH@[GDJK/,0]'^@@[DI_@[HDJKC/@EPK'^K#PLDU )@@G@@C/@EO*'^K#PLC/@EO!'^K#PLC/@EO2'^)#PLC/@EO7'^K#PLC/@EO/'^K#PLC/@EP['^)#PLDV )@@G@@C/@EPA'^K#PLC/@EPF'^K#PL'^@#PP(@@DJN/K@[=%N@0[=(/K@[=0@[UDJK/,0]'^@@[DJDDW )@@G@@@[VDJK'^@#PP'^@#LB@[YDJKR]0DJL*4@TJI/K@TJI/K@#KSAA0DJLC8FK@@[^@[=GC8FK@[DX )@@G@@[^@[=[C@VK@][@KDJN/K@[=[C/@__"G@FK@[R@KDK.[@@DK"(@[@@@/K@[&$C/@@@[D@-@@@DY )@@G@@*@@@@I0@@@@I @@@@GC/)@@[C.@@@OH[[@@@*@@@@K1@@@@K @@@@I)@@@@I/=K[&XC@[@@@DZ )@@G@@[@@DJO/,0]'^@@[DJQ@[EDK''^@#PPRA0DJO$'0@@G8];[>S/K@[>=/K@[>&/K@[>:/K@[>0EA )@@G@@/K@[>5/K@[>'/K@[>_/K@[&^/K@[&D/K@[&I/K@[&N/K@[&S'^@#KA@[HDK'/,0]'^@@[DJ>EB )@@G@@@[IDK''^@#PP/K@[&$/,0]'^@@[DJ?@[LDK''^@#PP/K@[&$/,0]'^@@[DJ4@[ODK''^@#PPEC )@@G@@/K@[&$/,0]'^@@[DJ.@[RDK''^@#PP/K@[&$/,0]'^@@[DK#@[UDK''^@#PP/K@[&$/,0]'^ED )@@G@@@@[DKC@[XDK''^@#PP/K@[&$/,0]'^@@[DKN@[)DK''^@#PP/K@[&$/,0]'^@@[DKS@[C/@DLSC/K@@ [@@[%][@KDL$C/@@@[FH )@@G@@[@@DL!/K@[(_/,0[&_@@@DLH@@@DLH@@@DNQ@@@DLH@^)DNQRA0DNRR@KDL*R@)DL(/KF@@#FI )@@G@@/S@DN-AA0DN+A@KDN< @@DMC@;@@@N@_@@@94Z@@@>@KDO(FY )@@G@@/K@[0P"00@@H;!@@@F/S@DO>?@KDO%?@KDO:/K@[0FC@@DO@@@F;PJ@@=9)@@@K;W0@@G;O0@@[9*0@[]H@)@@LG8)@KUN/Y@@EGM )@@G@@C8@@C@0@@@@JD@@@@G;O@@@=9)0@@G"4)@@J9?@@@J/KF@@]"=@DP1"=@DP1C@0DP39!@@@GGN )@@G@@"*J(O\")JDO\"*@@@K/:0[1("0)@@G;=0@@E[@)@[[9*0@[]/KF@@]9*@DP5>@@DP4/K@[17GO )@@G@@'^@[2L@@@@##/KF@@]/@@[14'^@[2L@@@@B[/KF@@]R#V@@@R#H@@@1@H@@@/K@[2[%@@DUIGP )@@G@@/K@[2#A#@DP_/KF@@]A]0DR*A#@DP5/,0]'^@@[DQ[@@^DR$R_@DP5'^K#PL'^@#PPR]0DR*GQ )@@G@@/KF@@]R#V@@@R#@DQ@A#H@@@/KF@@]/K@@@@'^@[5D'^@[5WA#)DQ>/,0]'^@@[DS%@@^DR$GR )@@G@@'^@#PP/,0]'^@@[DQ)@@ADR$'^@#PPRB@[2LR#W@@@()G@@@/K@[2$;GK@@A;C)@@Y[@KDT^GS )@@G@@C IDTQO#@DTC/K@[2:;CK@@A[@KDT^C G@@[O#@DTDAB@[6AR@KDUJO@K@@K @@@@FR;0@@ GT )@@G@@R#L)@@R;)@@ @@@@G;?@@@A/@@[2';)@@@YA#FDQ(O]0DTC8#)[228#0[20R#K@@F @@@@GGU )@@G@@W@@DUK)@KDUL)@@DUL;*)@@Y;?K@@AA#KDRIA]0DQ*O]0DTDA]0DQOR#@DTCA#@DT#R]0DUJGV )@@G@@ @@@@[R_@@@#A#@@@ER#@DT^/@@[5&;G@@@AA#@DT^;CK@@YR#)DT#)@)DQZO#)DTCA#)DT#GW )@@G@@;?)@@0)@)DR>R#)DR(9*%DRHO])DTDRBXDTG'^H@@@/K@[3F/K@@@@'^@[3=R_1DP5R#KDR%GX )@@G@@A#V[56AB;-56^@V-56/K@[3W/K@@@@K[@DQO?[KDUM/K@[3?C[KDR2[[UDRHO])DTCC.K@@ GY )@@G@@[[KDQOA#EDRHO])DTC/K@[3=/K@@@@C.@@@GR#@DR!N@KDS.'^@[3WO@KDTC/K@[30/K@@@@GZ )@@G@@C.@@@KR#@DR,N@KDS"'^@[3WO@KDTC/K@[37/K@@@@C.@@@MR#@DR\N@KDS_'^@[3WO@KDTDHA )@@G@@R#@DR0A#EDRHO])DTC/K@[3"/K@@@@'^@[4J'^@[37'^@[4R'^@[37'^@[4N/K@[4C/K@@@@HB )@@G@@R#@DR3'^@[4V/K@[4J/K@@@@R#@DR4'^@[4V/K@[4N/K@@@@R#@DR5'^@[4V/K@[4R/K@@@@HC )@@G@@C.@@@#'^@[3=/K@[4V/K@@@@'^@[4<'^@[4*/K@[4Z/K@@@@R#@DR6C.@@@]'^@[3=/K@[4/[K[7>/,0]'^@@[DSD@@2DR$'^@#PPHR )@@G@@'^@[5N;?@@[C(@@DT^/KF@@#/K@[6A/,0]'^@@[DSP@@4DR$C/@DP_'^K#PL'^@#PP'^@[5NHS )@@G@@'^@]/B'^@[5D @@DT^R#FK@@A#@DSE(@FK@[/K@[76R#KDQ@O#KDTCA#KDQ@RB:@@]CDV@@]HT )@@G@@/@)[7/RB"@@[A#0DT[/K@[6K[[KDQ*/,0]'^@@[DS!@@'DR$R_@DQ*'^K#PL'^@#PP/K@[7SHU )@@G@@/K@@@@R;K@(@AFW@@#RBW@@#C1JD\I!9@@@K/K@[8MC1G@@C/-@[8IR;K@@@'=@@@#ABW@@#HV )@@G@@*4G@@#/K@[8RAFW@@^(@G@@ /K@[8V'^@[8X/K@L8^C5G@@#%9@@@]'^@#H0/K@L8^ CG@@^HW )@@G@@/K@L8^/K@@@@0@G@@#'=@@@AC1JD\I?9@@@K/K@L8XCC?@@^;*)@@P;C)@@P?9@@@S/K@[8:HX )@@G@@ @@@@HW8K@@W;GK@@=C0W@@#:8K@@(D@)@@IG@?@@ [@?@@ CG@@^/C)L8X @G@@ !9@@@SHY )@@G@@T8)@@WOB?@@#AB?@@#AB?@@C/K@L8XA]0E)KC^;@@@[@0[9<[@0[92C@_@@@[@0E)?/G0#IBHZ )@@G@@!80@@>/K@#IBD[@D?*+[JD\I/ V@@#C^JD\I/@F@@#1@JD\I/K@[9URF?@@[AF)D?+C[JD\IIA )@@G@@C8@D?)'=@@@J;G@@@>;D@@@+/>@[9RR;@D?+R#;@@[ 4G@@#*@J@@@'=@@@#R7G@@#98F@@#IB )@@G@@/\0['^/KF@@#*?G@@]/KF@@#9!G@@C99@[9%C1G@@C?9@@@#/K@[9%A]0D?%/,0]]C@@@@@@IC )@@G@@@@@@@@R]0D?%0@G@@#'=@@@A*4G@@#/\0['#R#0E)?R#:@@[C^JD\I 4G@@#(@I@@@/K@[95ID )@@G@@A]0D?%/,0]@D@@@@@@@@@@@@R]0D?%D[@D?*)[JD\I[[ZD\I9!G@@C99F@@#(4G@@C/K@[9"IE )@@G@@C G@@D'^@]@[C G@@^'^@]@[ @G@@C @G@@D/KF@@#RF?@@@AF)D?ZC@@D?R[@@D?&'=@@@IIF )@@G@@0@@D?$'^@#K"/KJ@@@/K@@@@1@@D?$/K@['NA]0D?( @@D?&9*@D?:9*)D?!9(@D?\R#KD?$IG )@@G@@G8K@@[[@KD?$!8K@@>/K@[')(^HD\I/K@['O/,0[89@@@D?$@@@D?*@@@@@@C@KD?$/K@['OIH )@@G@@*@@D?&AA0]/BR]0D?(9?@D?:9?)D?!9!@D?\/K@L'F/K@@@@C @['$[[@D!)[ @['?/K@[',II )@@G@@/K@@@@ @@D!)/G0#IB!80@@>/K@#IB[@0E)?C@ZD\I+@KD,%/^)[/7R;!@@@/^)[/''^@[.FIJ )@@G@@A#0D!-R;@D!-'=@@[GR#0E)?R;@@@[A7JD\IR7@D!$*0JD\I/@@[/10@@[;]/K@D,#R3ZD\IIK )@@G@@;C@@@#:8@@@]/^K[.BCD@D,@R;)@@H*@@@@HR;)@@#K[@@@IC8@D,@C^KD,@G8K@@[!@K@@LIL )@@G@@/K@[;%CD@D,[K[@@@IC8@D,[C^KD,[G8K@@[!@K@@L/K@[;%RBKD!"P;K@@[C80@@ ?C.D,]IM )@@G@@/K@[/C8#K[;VA#)@[#'^@[.ZC[@@[[K[@@[#C8)@^@G@)@[[H8)@@[[^!D,]C8HD,] @I@@@IN )@@G@@%@)@[[8#)[;$C@0E)?[ JD\I[DW@@@[[@D!ZR#@@@KC5KD!$G9K@[@C1JD\I/[@[;7;DK@@^IO )@@G@@H9K@@];(K@@E)[@@@L;(K@@A[DZD\I9?KD!-/[@[;"9*W@@[O;@@@#/K@[/ 9*W@@@;GK@[CIP )@@G@@9*W@@]9*W@@^9*W@@C9*W@@EA#W@@G*4@D!$/K@[/1/K@[/IC8HD,]CDHD,]K9@@@I? XD,]IQ )@@G@@/K@[;%/K@[;XC[@E)!?9@@@#/K@[.@?9@@@A/K@[/=:9@@@A/K@[/UCCKD!-[^KD!LC@@D?4IR )@@G@@'=@@@I'^@#K"C@0E)?C^JD\IK8@@@HC8)D,@%CY@@@C8)D,[[CI@@@ @JD\IR]0E)K/KF@@]IS )@@G@@RF@D!-AB@D!PC@@D,:'=@@@J/^@[.@C@0E)?C9@@@T1@JD\I[1JD\IC@KD!Z @H@@#C^ZD\IIT )@@G@@ABKD!ZC0ZD\IC^@['?(?JD\I!8K@@)/KG@@@/KG@@[+@KD?*A#\D\I/K@[/0*@@D!)/K@[/\IU )@@G@@CC!@@@[^)D?;C@@D?2/K@[. CCKD!-[CKD?6R#0E)? @JD\IC@@D?1'=@@@I/K@#K"RFKD!-IV )@@G@@AFKD!CR#@D?3/K@[. /K@@@@ @@@@HR#)@@JN8K@@^W8K@@EK8)@@0;G0@@A;GK@@=*@@@@IIW )@@G@@8KK[.JR;K@@ P#K@[[T8K@@AR#0D,?;?.@@@;@.@@@/K@L.F/K@@@@ @@D!_/K@[.+/K@@@@IX )@@G@@C@K[.Z[@KD!_C^KD!" @@@[[P;K@@[(CHD,]/K@[.;8#K[.>C^)D,[/@)[.0P;)@^@CC0D,[IY )@@G@@?@)@@J/K@[.0[^)D,[/K@[.6C^)D,@P;)@^@CC0D,@?@)@@J/K@["#[^)D,@C@KD!"G8)@@[IZ )@@G@@[^!(,][@KD!"P;K@@[C[@E)![DHD,]N^XD,]C@0E)?C^JD\I(@@D!_/K@L.W/K@L.ZC@0E)?JA )@@G@@(@@D!_/K@L.W @@D!1 @@D!2 @@D!3R;0@@=C^JD\I/@@["T1@JD\I(@G@@D/K@["T*?G@@CJB )@@G@@/K@["TN^W@@^'^@[_:CC!D,]!8)@@ /K@[_3')ID!%&#K@@JA#Y@@@8#0["ER#0D!1/@0[_RJC )@@G@@;C0@@MC[@E)?[[@E-XA#0E)?RBJD\I'^@]@5R#0E-XA#0E)?0@G@@#'=@@@A*4G@@#'^@#H0JD )@@G@@ @G@@D ^G@@CRBKD!1/K@[.;C G@@C(4G@@C! G@@#/K@["3[C0D!2[^KD!2/K@["T0@G@@#JE )@@G@@'=@@@A*4G@@#'^@#H0'^@[8X'^@[8^N^W@@^C G@@D[ G@@^ 4G@@C'^@[_:/K@[.;C1G@@#JF )@@G@@:9@@@(/K@[_D0@G@@#'=@@@A*4G@@#'^@#H0 @G@@D ^G@@C/K@[.;[C0D!4[^KD!4C G@@CJG )@@G@@/[@[_AC0ZD\I?8K@@K/K@["T[DG@@^C9@@@C[1G@@#'^@[8XCC0D!4C^KD!4/K@[_AC[@D!2JH )@@G@@/ @[_ZC[@D!3/[@[_3CC0D!3C^JD\IN^KD!3/K@[_+CC0D!2C^JD\IN^KD!2'^@[8XC1G@@#JI )@@G@@%9@@@('^@[8^C9@@@[[!G@@CR#K@[[ @G@@D/K@[.;/K@@@@RBKD!"P;K@@[C HD,]%[@@[[JJ )@@G@@8#K[_,1@@@@H/K@L_:C@@D!5'=@@@I/K@#K"/K@@@@N^W@@D'^@[_:C[KE)![DXD,](4G@@CJK )@@G@@/K@L_6N^W@@^'^@[_:[DXD,]/K@L_6/K@@@@RBKD!"P;K@@[% HD,]8#K]@^ CHD,]/K@M@[JL )@@G@@AA0E)KC^;@@@AB0]@RC@_@@@C9@@@A[[@E)!'^@['?/K@]@1C^JD\IC1G@@C%9@@@F?9@@@#JM )@@G@@/K@]@UA]0D,!/,0]]C@@@@@@@@@@@@R]0D,!0@G@@#'=@@@A*4G@@#'^@#H0C G@@D*@@@@KJN )@@G@@'^@]@[C G@@^*4G@@C'^@]@[C1JD\I!9@@@K/K@]@\R;K@)@AFW@@#'=@@@[ @G@@C @G@@DJO )@@G@@ @G@@E @G@@^/KF@@] @G@@ /K@]@%C@@D,7'=@@@I'^@#K"/KF@@]/K@@@@C@0E)?C^JD\IJP )@@G@@C1G@@C%9@@@#/K@][ZC^W@@CK^W@@DC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@G[[Y@@[C^W@@DJQ )@@G@@[[X@@@CDW@@GG8)@@]G9K@@# @@@@KW9@@@W/[K][MD[K@@LG9K@@W/[K][M @I@@@G8)@@[JR )@@G@@H9K@@[/ K][IH^?@@D[C?@@D[^?@@C'^@][6C1G@@C%9@@@#/K@M@5 @G@@FC[G@@G[[G@@EJS )@@G@@[[G@@G CG@@G/K@M@5C^?@@CC[K@@IG^?@@D @@@@KW9@@@W/[K][MD[K@@LG9K@@WH9K@@[JT )@@G@@C[@@@L;(@@@AG1G@@E[DI@@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)[(I@@@C[I@@@[[G@@EJU )@@G@@G8)@@[/K@][H/K@@@@0@G@@#'=@@@A*4G@@#'^@#H0C0W@@CC@XD!R[0W@@#'^@[8XC[G@@DJV )@@G@@N^W@@^[[G@@^*4G@@C^^W@@D*CG@@^'=@@@[/K@M[6AA0E)KC^;@@@C@_@@@C9@@@ [[@E)!JW )@@G@@'^@['?/K@]#:C^JD\I(?G@@C/K@]]R'^@[.ZC@@D!Z^^W@@^^^W@@D'^@]^] ?G@@C*^G@@DJX )@@G@@/K@]]Y'^@[.ZC@0E)?C^JD\I^^W@@D^^W@@^'^@[8XC1G@@C*4G@@C/K@]]&0@G@@#'=@@@AJY )@@G@@*4G@@#/K@]#_C9K@@_=9@@@[[1W@@E/[@]]\!9@@@#/K@]]\'^@[8^*4G@@C'^@[8^RBW@@CJZ )@@G@@R3?@@C:8)@@^%CW@@D/K@]# '^@]@5R;K@#)AFW@@D*4G@@C/K@]#^'^@[.W*@@@[[/K@]#[KA )@@G@@0@G@@#'=@@@A*4G@@#'^@#H0/K@]#^R;K@@[A7W@@C^^W@@D ^G@@CC G@@^*4G@@C'^@]@[KB )@@G@@ 4G@@CC^W@@CC1G@@E[!@D,8K^W@@DG8K@@[[^W@@CC G@@GG9@@@[[ G@@G[-@D,8;L@@@AKC )@@G@@[>@D,8C[@D,8[[I@@@[[G@@EC1G@@C:9@@@#/K@]#/:9@@@^/K@]#-'^@]^QC1G@@C:9@@@#KD )@@G@@/K@]#+'^@]@5'^@[8X*4G@@#'^@#H0C G@@^'^@]@[ @G@@^ @G@@C @G@@D/KF@@]C1JD\IKE )@@G@@%9@@@-/K@]#80@JD\I/K@]#3C@@D,9'=@@[S/KF@@]C[@D,9RBJD\I[[G@@@'=@@[>/KF@@]KF )@@G@@C@@D\B'=@@@I'^@#K"/KF@@]C9@@@^[1G@@C/K@]#-*^@['F/KF@@]'^@#H0/K@@@@C@0E)?KG )@@G@@C^JD\I'^@[8X*4G@@#'^@#H0C0W@@CC@!D!R[0?@@#C9@@#)C0W@@C:8K@@]/K@]^NC9@@#/KH )@@G@@C0\D\I?8)@@KG9@@@^[DG@@^'=@@@[/K@M^]/K@@@@C0?@@CC9K@@#%8)@@[C9K@@^[1W@@CKI )@@G@@C[ID!R[1G@@#%9K@@#/K@M^QRB?@@C?8)@@]/K@M^Q[C?@@D'^@][6/K@M^Q/K@]BA/K@]BAKJ )@@G@@/K@]BA/K@]A"/K@]AJ/K@] [/K@]AY/K@]E]/K@]E>/K@]E%/KH]D]/KH]DB/KH]DG/KH]DLKK )@@G@@/KH]DQ/KH]DV/KH]D)/K@]CIRF@E)\RB0E)\')G#GG8#@]^_O;0@@[R;@@@ AB0E)\AF@E)\KL )@@G@@/KF@@@[[KD\H%9K@@T/K@] MC KEVT*@@@@LH9K@@[[DKEV-C9@@@@W9@@@A;[@@@MD[K@@LKM )@@G@@G9K@@ ; @@@MG9@E)0[[@E)\ C@EVY'^@#HF'^@#HFC KEVTC[@D\H:9@@@L/K@] 2 @@@@KKN )@@G@@?9K@@B/K@] +H9K@@B/,0]^88^K] VC9K@@ /,0]^8;@)@@A;=K@@AG9@@@A8^K] YR#@@@KKO )@@G@@R#)EVOC[@D\H;^W@@@RBKE)O%9@@@R/K@] !C @EVT?9@@@A;)?@@@A#!@@@R7KEVS:8K@@^KP )@@G@@/K@]A"/K@] MH9K@@[D8K@@[/,0]^8:8)@@,/K@]A /CK]A@P;)@@MF@K@@I%/K__8/K@]A@KQ )@@G@@RBKE)OD@)@@I;C)@@/K@]CY/K@]CU/K@]C%/K@]CI/K@]C,/K@]C,/K@]CILI )@@G@@/K@]CI/K@]CI/K@]CI/K@]C./K@]C//K@]CI/K@]CI/K@]C4/K@]CA/K@]C /K@]C6/K@]CALJ )@@G@@/K@]D>/K@]D(/K@]D:/K@]D,/K@]D0'^@]D7R;)@@-A7)ET5/K@MB"'^@]D7/K@]D1'^@]D7LK )@@G@@[ KET5/K@]D1'^@]D7/K@MB"'^@]D7*4@D\C/K@MB"/K@]D5/,0]^88K0]D4/K@MB"/K@@@@LL )@@G@@?8K@@#'^@# ^!8K@@#A$KD\CR#)D\D%8)@@,/K@MD7*4@D\C/K@MD7/K@]CIA#)D\H%8)@@'LM )@@G@@/K@]EPRFKEVRRB0EVR')H#GG%8)@@'/K@]EM8#K]EHO;0@@[R;K@@ ')H#GG%8)@@'/K@]E/K@#B LP )@@G@@'^@#PH/K@]E:'^@E)RR;0@[KPF0EV-1@@@@J(@@@@J/K@]E*A#0EVTA#0@[#R;K@@^A7KEVSLQ )@@G@@A7KD\CC1@E)O:9@@@ /K@]FR[ @D\C%9@@@[ ^@D\C @@ET5'^@]B"/,0]FG/^K]F]C@)D\DLR )@@G@@%8)@@,/K@]E*()@D\C/K@]FE'^@#^!0@@ET5D[K@@LRBKE)O[[X@@@/K@]E%'^@]BW/K@]E%LS )@@G@@ 4@D\C0@@@[# @@@[#RB)EVTP#)@[#OF)EV-AF)EV-R3)E)OP;)@@[AB)EVQ/KF@@@C[K@[#LT )@@G@@/K@] 2[[K@[#/,0]FG/K@]E%R]0E)KA]0D\4'^@]F_A]0D0SR#0D1;A#0D0& @@D0>C[@EV)LU )@@G@@ @@@@JG9@@@^W80@@AA#0D\/AA0#PL/K@#PZP'0@@[A]0E)K @@D\4'^@]F_R;@]N_AB@#PQLV )@@G@@R;@@@FA#@E)!R;@]F6AB@#PIAA0#PL/K@#PZ/S@@@@R#@D\3'=@@@HR;G@@@/@@]F7T8@@@ALW )@@G@@O;@@@[A#@EV)/K@MF6/S@@@@ @@D\' @@D0SR;@]H?AB@#PO&'0@@[RFF)@[/@@]G R#F)@@LX )@@G@@A#@D\;RFF@@@RBV)@@:8@@@#ABKD\':8@@@]AFKD\'?8@@@^/K@]GDP'0@@[/K@MF_/S@@@@LY )@@G@@9*@D\5R#@E)!!8@@@C/K@]GWR#@E)?R\GD\I:8@@@[/K@]J-A#)D\79(@D\8R;@E- A#@E)\LZ )@@G@@'^@#PHR#KEV)A#KD0S @@@@GO;K@@^W8@@@AA#@D\/:8@@@Q/K@]G,&;@@@[R#0D1/A#/E)0MA )@@G@@$;@@@P/K@]G: @@@@JR]KD1;A#0D0>A]KD0&9?@D\5R#)D\79!@D\8/K@MGNR;K@@[R;@#IJMB )@@G@@'^@]J,R#@D\/A\@D\.R#@D\.'=@@@IR]0D\/R#@D1/A#FE)08]0]G_R;@@@*')DD\_R;@@@[MC )@@G@@A3@D\.R#@D\.'=@@@I/K@#K"O8K@@Y @@E)JA4KE)JR8KE)0A^KE)J'^@]J,R#@D0VH8@@@]MD )@@G@@R#GD0PA#@D0C9*KD\59*0D\7RB0D\;RFKD\;;)K@@MR;)@@ Q;K@@A;@K@@#;=@@@A8#)]HSME )@@G@@A#@D0I/@0]H+9?@D0M9*@D0JR#J@@@A#@D0LR#@D1.'=@@@J9?KD\59?0D\7/KB@@@R#@D0UMF )@@G@@/@F@@@:8K@@E/K@]L#/KF@@@A@KD0-A])D0+A]0D0<9()D0$9%@D0(9%)D0:[#@D0!9:KD0,MG )@@G@@9:0D00A]KD02A[0D03R#0D0>R]KD0&A#@@@E(@@D0S'^@]GN @@@@[H8)@@[R#,@@@;*)@@EMH )@@G@@;C)@@)A#)D0V/KI]I]/K@]I?/K@]KC/K@]KG/K@]K ')DD1@%8K@@ :8K@@,/K@]IS/K@]IHMI )@@G@@')DD1@:8K@@T/K@]IW:8K@@F/K@]IZ%8K@@ :8K@@,/K@]J*/%K]IG/,0]K@/K@]J*/K@]IGMJ )@@G@@/%K]IB/,0]K@'^@]GN/K@]IBR;K@@[A#U@@@/K@]I) @E@@@/%K]I/K@]J$ @@D0S/H0]J&*@@@@P/[)]J>/[0]JZ0@@@@PD[0@@N[['@@@MP )@@G@@/K@]J3O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[RB@D\'*@@@@G/K@]HCR#[D1AMQ )@@G@@'=@@@I/K@]G9@@@@@@9,)D0:C#@D0!9\KD0,R[0D039!)D0$9,@D0(9\0D00A#0D0>A]KD0&MR )@@G@@R@KD0-R])D0+R]KD02R]0D0 @@@@L:8K@@@/K@]L#/,0]H$:8K@@-/K@]K":8K@@+/K@]L[/K@]LE/A)]J>C")__"MX )@@G@@/K@]L#/A)]J>C')@@[C'0@@[/%K]LB/,0]K@/K@]J>')DD1@/K@]K9')DD1@,#0@@H/K@]LQMY )@@G@@H8K@@0T90@@EG[0@@HG9K@@[![0D1"/K@]J+/%K]LD/,0]K@/K@]MA/K@]LD%8K@@ :8K@@,MZ )@@G@@/K@]MB/K@]J/AK]J>/B@]J>R90D1;/K@]KWR#@D0U:8@@@[ @E@@[ @E@@@/G@]N @E@@[/K@]M-?8)@@$NF )@@G@@/K@]M>1@@@@N/K@]J+ @E@@@/K@]N< @@@@IR[0D1; @@@@L @@@@M9(K@@G;!K@@#;?@@@[NG )@@G@@9-K@@G @@@@G')BD0'9-K@@G8KK]M2/K@]M6/(0]M(O;)@@[Q90@@ /K@]M(R;@@K/"4@@@LNH )@@G@@0@@@@P90K@@H/[0]NM @@@@T#[0@@U9!KD1_W;K@[=R#@@@T/@@]N^;)@@@["(WET& @@@@TNI )@@G@@W;K@@E[#K@@G;)@@@[*@@@@G"(WETO(@@@@U/K@]NIR#@@@U;)@@@["(WET]/H0]NL"*K@@LNJ )@@G@@/K@]NM"?K@@L/%K]NP/,0]K@ @@D0SR#@D0U?8@@@[/K@]NU9*U@@@/K@]J\"/K@@HA#U@@@NK )@@G@@?9@@@D/K@]N<[@@@@H*@@D0T/K@]N@^@@@@TPF$ FW )@@G@@ 'TPF$ ' *[@@@@CTS@@&@D@@@@TEMP +0 . (LFX )@@G@@ENGTH,BUFFER LOC) *[@@@@CTS@@$@D@@@@TAB +0 . (BFY )@@G@@UFFER LOC,LENGTH) *[@@@@CTS@@*@]@@@@OUT +0 *[@@@@CTS@@(@]@@@@ FZ )@@G@@ END _@@@@@ .3029E-02 43 18 -0.2224E-02 43 19 0.7671E-03 43 20 -0GA )@@G@@.9374E-04 @H@[@@ 2216 .5584E-03 43 22 0.7593E-03 43 23 0.6440EGB )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@#@@@@ AXR$. *[@@@@CTS@[,@[@@@@IOW*. GC )@@G@@*[@@@@CTS@[8@ @@@@ LA A0,0,X11. *[@@@@CTS@]]@ @@@@ GD )@@G@@ ER IOW$. *[@@@@CTS@]G@ @@@@ J 2,X11. GE )@@G@@*[@@@@CTS@]Q@#@@@@ END _@@@@@@D__@@ERROR MODE: TYPE=004, GF )@@G@@ CODE=017, ERR.ADDRESS= 002007@F@[@@ ERR$ TYPE *[@@@@*SDFF**[@@@@CTS@[=GG )@@G@@@#@@@@ AXR$. *[@@@@CTS@[,@]@@@@FACIL*. *[@@@@CTS@[8@ @@@@GH )@@G@@ LA A0,0,X11. *[@@@@CTS@]]@ @@@@ ER FACIGI )@@G@@L$. *[@@@@CTS@]G@ @@@@ J 2,X11. *[@@@@CTS@]Q@#@@@@GJ )@@G@@ END. _@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@SK)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@/KF@@]'=@@@@C@F@@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@[@@ @@[@@B@@[@@F@@@GN )@@G@@@@@@@#FACIL$ FACIL @@@@@@@@@@@@X,R6,R4,1X,R2,R4,2X,R2,R1, GO )@@G@@@F@@@@ * 2X,R3,2X,R2,R1,2X,R3,2X,R2,R1,2X,R1,2X,R2,2X,R1,2X,R1,R2, GP )@@G@@)@@[N[^@^^KO^@@@@@R#F@@#AF@@@#AB@@@]R#F@@]AB@@@#R#G@@@R#F@@[AB@@@NR#F@@@GQ )@@G@@AA0@@^AA@@@@)@E[F@^ [K)@K[]@ @@@@@@@/K@@@Z/,0@@@R;@[[]/K@@@X/,0@@@R#@@@]GR )@@G@@AF@@@]R;@@^JAB@@@UAB@@@@)@N[EK^C@=[@KOC@1[@@@@@@RA0@@^/K@@@@/,0@@@R#K@@#GS )@@G@@RB@@@N/K@@@U/,0@@@RB@@@N9*@@@@AC@@@@)@W@%K)^K) KO@@@@@)@@@W@@@@@@@@@@@@@GT )@@G@@ TPF$ /K@@@N9?@@@@'=@@@@'=@@@@/KF@@ AD@@@@)@#@O@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@^@@#@@B@@A@@N@@[@@R@@@@@@@@@@@@@@-@@@@@ RINF$ SINF$ RFTI GX )@@G@@ RPFET PRINT$ EXIT$ FILECT @@[@@@@@@@@@.') GY )@@G@@@#@@@@ WRITE(6,930))@@@SK)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@/KF@@]'=@@@@C@F@@@AA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@[@@ @@[@@B@@[@@F@@@HB )@@G@@@@@@@#IOW$ IOW @@@@@@@@@@@@AK( C?C1GC)*AC2 )1AK?CC*AC2 C(HC )@@G@@ ))^@)@E@@@@^@)^@)^@%^@)^@)^@)^@)^@)^@)^@)^[AD-^ @2A)?AC2 -[ @1AK( C?^@)HD )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@#@@@@ AXR$. *[@@@@CTS@[,@[@@@@$(0). HE )@@G@@*[@@@@CTS@[8@[@@@@LOC. *[@@@@CTS@]]@^@@@@ DO 10 , +0. *[@@@@HF )@@G@@CTS@]G@^@@@@UNIT. UNIT NAMES *[@@@@CTS@]Q@#@@@@ '0 'HG )@@G@@*[@@@@CTS@])@#@@@@ '1 '*[@@@@CTS@]%@#@@@@ '2 'HH )@@G@@*[@@@@CTS@]4@#@@@@ '3 '*[@@@@CTS@]"@#@@@@ '4 'HI )@@G@@*[@@@@CTS@#C@#@@@@ '5 '*[@@@@CTS@#M@#@@@@ '6 'HJ )@@G@@*[@@@@CTS@#W@#@@@@ '7 '*[@@@@CTS@#&@#@@@@ '8 'HK )@@G@@*[@@@@CTS@#0@#@@@@ '9 '*[@@@@CTS@#'@#@@@@PKT 'FILE 'HL )@@G@@*[@@@@CTS@^^@#@@@@ ' '*[@@@@CTS@^I@#@@@@ +0. HM )@@G@@*[@@@@CTS@^S@ @@@@ +0. STAT,FUNC,*[@@@@CTS@^+@#@@@@ACW HN )@@G@@ +0. *[@@@@CTS@^?@#@@@@DRMADD +0. *[@@@@CTS@^6@ @@@@STAT HO )@@G@@ EQUF PKT+3,,S1.*[@@@@CTS@ @@ @@@@FNC EQUF PKT+3,,S2.HP )@@G@@*[@@@@CTS@ E@ @@@@BUF EQUF ACW,,H2 *[@@@@CTS@ O@ @@@@WDS HQ )@@G@@ EQUF ACW,,H1. *[@@@@CTS@ Y@ @@@@MSG 'BAD UNIT NUMBER' HR )@@G@@*[@@@@CTS@ *@[@@@@/. *[@@@@CTS@ 2@[@@@@$(1). *[@@@@CTS@ /@[@@@@REWN*.HS )@@G@@*[@@@@CTS@AA@E@@@@ LA A0,*0,X11. UNIT NUMBER (0-9HT )@@G@@) *[@@@@CTS@AK@^@@@@ TN A0. *[@@@@CTS@AU@ @@@@ HU )@@G@@ TG,U A0,10. *[@@@@CTS@A=@ @@@@ J BADUNT. HV )@@G@@*[@@@@CTS@A,@E@@@@ SZ LOC,A0. RESET DRUM LOCATHW )@@G@@ION *[@@@@CTS@A8@ @@@@ J 2,X11. *[@@@@CTS@B]@[@@@@HX )@@G@@POSN*.*[@@@@CTS@BG@D@@@@ LA A0,*0,X11. UNIT NUMBEHY )@@G@@R *[@@@@CTS@BQ@G@@@@ LA A1,*1,X11. POSITION IHZ )@@G@@NCREMENT (OR DECREMENT) *[@@@@CTS@B)@^@@@@ TN A0. *[@@@@IA )@@G@@CTS@B%@ @@@@ TG,U A0,10. *[@@@@CTS@B4@ @@@@ J IB )@@G@@ BADUNT. *[@@@@CTS@B"@E@@@@ AA A1,LOC,A0. IC )@@G@@ ADD CURRENT LOCATION *[@@@@CTS@CC@C@@@@ S A1,LOC,A0.ID )@@G@@ & UPDATE *[@@@@CTS@CM@ @@@@ J 3,X11. *[@@@@IE )@@G@@CTS@CW@]@@@@READN*. *[@@@@CTS@C&@D@@@@ L,U A3,020. IF )@@G@@ READ FUNCTION *[@@@@CTS@C0@ @@@@ J WRITEN+1. IG )@@G@@*[@@@@CTS@C'@]@@@@WRITEN*. *[@@@@CTS@D^@D@@@@ L,U A3,0IH )@@G@@10. WRITE FUNCTION *[@@@@CTS@DI@D@@@@ LA A1,*II )@@G@@0,X11. UNIT NUMBER *[@@@@CTS@DS@^@@@@ TN A1. IJ )@@G@@*[@@@@CTS@D+@ @@@@ TG,U A1,10. *[@@@@CTS@D?@ @@@@ IK )@@G@@ J BADUNT. *[@@@@CTS@D6@E@@@@ L A0,UNIT,A1IL )@@G@@. FILE NAME (6 CHARS) *[@@@@CTS@E@@ @@@@ S A3,FIM )@@G@@NC. *[@@@@CTS@EE@ @@@@ S A0,PKT. *[@@@@CTS@EO@D@@@@IN )@@G@@ LA A0,*1,X11. NUMBER OF WORDS.*[@@@@CTS@EY@D@@@@IO )@@G@@ LA A2,2,X11. BUFFER ADDRESS *[@@@@CTS@E*@ @@@@IP )@@G@@ SA A0,WDS. *[@@@@CTS@E2@E@@@@ A A0,LIQ )@@G@@OC,A1. ADD CURRENT DRUM LOC *[@@@@CTS@E/@ @@@@ S IR )@@G@@ A2,BUF. *[@@@@CTS@FA@D@@@@ L A2,LOC,A1. CURRIS )@@G@@ENT DRM ADDR*[@@@@CTS@FK@E@@@@ S A0,LOC,A1. NEXTIT )@@G@@ DRUM ADDRESS *[@@@@CTS@FU@E@@@@ S A2,DRMADD. IU )@@G@@ CURRENT DRUM ADDR *[@@@@CTS@F=@ @@@@ LA,U A0,PKT. IV )@@G@@*[@@@@CTS@F,@ @@@@ ER IOW$. *[@@@@CTS@F8@ @@@@ IW )@@G@@ LA A0,STAT. *[@@@@CTS@G]@ @@@@ S A0,*3,X11.IX )@@G@@*[@@@@CTS@GG@ @@@@ J 5,X11. *[@@@@CTS@GQ@]@@@@BADUNTIY )@@G@@. *[@@@@CTS@G)@A@@@@ LA A0,(0103,MSG) *[@@@@CTS@G%IZ )@@G@@@ @@@@ ER PRINT$. *[@@@@CTS@G4@ @@@@ ER JA )@@G@@ ERR$. *[@@@@CTS@G"@#@@@@ END. _@@@@@ 0047 R 000305 IJB )@@G@@YZ 0047 R 000310 IYZDOT 0047 R 000313 IYZFI 0047 R 00031JC )@@G@@6 IYZP 0047 R 0003)@@[S@@@@@@@0 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA@@@@)@F[S@@@@@@@ FILE 9 8 JE )@@G@@7 6 5 4 3 2 1 AB@@@@)@Q@8@@@@@@@)@@@U@!8@@@EJF )@@G@@1@@@@GC@FK@@BER IT NUMBAD UN@@@@@@@@@@@@@@@@@@@@@@@@AC@@@@)@#[F@K0@@[@JG )@@G@@K0@@@@@@@@@@G@W@@@/K@@@>!8@@@E1@@@@GC@VK@[C@FK@@/KF@@] @G@@@/K@@@>AD@@@@JH )@@G@@)@G[N#@@^@@K^G@@@@R#H@@E/K@@@>!8K@@E1@@@@HC@VK@@R;0@@C/K@@@LR;0@@K/KF@@#JI )@@G@@A#W@@@AE@@@@)@Q[##@[#@@^G@^G@^G@^G@@@@@@@@R#!@@@AB)@@SO#H@@@[C@@@SC@:@@]JJ )@@G@@C@FK@[A#@@@OA30@@RAF@@@@)@Y[##@[#@@()@-@@-)@]A@@@@@@@@C@@@@X/KF@@ A#FK@#JK )@@G@@C4@@@R'=@@@@C8@@@OA#)@@TA#H@@@AG@@@@)@&@N]@ ]@C@)@X@C*@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@[#@@U'=@@@@'=@@@@AH@@@@@@^@@]@@A@@#@@G@@^@@W@@@JM )@@G@@@@@@@Y@@@@@*IOW$ PRINT$ ERR$ REWN @@[@@@@@@@@@JN )@@G@@POSN @@[@@@@@@@@AREADN @@[@@@@@@@@IWRITEN @@[@@@@@@@@KJO )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@B@@@@ PARAMETER LENGTH=5600,LANGT=5000 JP )@@G@@*[@@@@CTS@[,@ @@@@ IMPLICIT INTEGER (A-Z) *[@@@@CTS@[8@B@@@@ JQ )@@G@@COMMON FCT(34),BUF(LENGTH),A(LANGT) *[@@@@CTS@]]@A@@@@ INTEGER IFR2JR )@@G@@(2)/'@FREE 2 . '/ *[@@@@CTS@]G@A@@@@ INTEGER IFR3(2)/'@FREE 3 . '/ JS )@@G@@*[@@@@CTS@]Q@B@@@@ INTEGER IAG2(3)/'@ASG,T 2,D . '/ *[@@@@CTS@])JT )@@G@@@B@@@@ INTEGER IAG3(3)/'@ASG,T 3,D . '/ *[@@@@CTS@]%@^@@@@ JU )@@G@@H1(I)=FLD(0,18,I) *[@@@@CTS@]4@^@@@@ H2(I)=FLD(18,18,I)*[@@@@CTS@]"JV )@@G@@@^@@@@ S1(I)=FLD(0,6,I) *[@@@@CTS@#C@^@@@@ S2(I)=FLD(6,6,I) JW )@@G@@*[@@@@CTS@#M@^@@@@ S3(I)=FLD(12,6,I) *[@@@@CTS@#W@#@@@@ B(I)=AJX )@@G@@(I) *[@@@@CTS@#&@A@@@@ FD(I,X)=FLD(ABS(6*I-6),6,X) *[@@@@CTS@#0JY )@@G@@@A@@@@ FDX(K)=FD(MOD(K,6)+1,B(K/6+1))*[@@@@CTS@#'@B@@@@ ERR2=FJZ )@@G@@ILECT(FCT,LENGTH,BUF,$98) *[@@@@CTS@^^@^@@@@ KST=NERTRN(6,IFR2)KA )@@G@@*[@@@@CTS@^I@A@@@@ IF (KST .LT. 0) GO TO 110 *[@@@@CTS@^S@^@@@@KB )@@G@@ KST=NERTRN(6,IFR3)*[@@@@CTS@^+@A@@@@ IF (KST .LT. 0) GO TO 11KC )@@G@@0 *[@@@@CTS@^?@^@@@@ KST=NERTRN(6,IAG2)*[@@@@CTS@^6@A@@@@ KD )@@G@@IF (KST .LT. 0) GO TO 110 *[@@@@CTS@ @@^@@@@ KST=NERTRN(6,IAG3)KE )@@G@@*[@@@@CTS@ E@A@@@@ IF (KST .LT. 0) GO TO 110 *[@@@@CTS@ O@^@@@@KF )@@G@@ CALL FACIL(FCT) *[@@@@CTS@ Y@#@@@@ DO 20 I=1,5 *[@@@@CTS@ *KG )@@G@@@#@@@@ 20 A(I)=6H *[@@@@CTS@ 2@]@@@@ K=0 *[@@@@CTS@ /@#@@@@KH )@@G@@ DO 25 I=5,6 *[@@@@CTS@AA@#@@@@ DO 25 J=1,6 *[@@@@CTS@AK@B@@@@KI )@@G@@ IF (FD(J,FCT(I)).EQ.1R ) GO TO 25 *[@@@@CTS@AU@ @@@@ FDX(K)KJ )@@G@@=FD(J,FCT(I)) *[@@@@CTS@A=@]@@@@ K=K+1 *[@@@@CTS@A,@#@@@@ 25 KK )@@G@@CONTINUE *[@@@@CTS@A8@#@@@@ FDX(K)=1R* *[@@@@CTS@B]@]@@@@ KL )@@G@@K=K+1 *[@@@@CTS@BG@#@@@@ DO 31 I=3,4 *[@@@@CTS@BQ@#@@@@ DO 31 KM )@@G@@J=1,6 *[@@@@CTS@B)@B@@@@ IF (FD(J,FCT(I)).EQ.1R ) GO TO 31 *[@@@@KN )@@G@@CTS@B%@ @@@@ FDX(K)=FD(J,FCT(I)) *[@@@@CTS@B4@]@@@@ K=K+1 KO )@@G@@*[@@@@CTS@B"@#@@@@ 31 CONTINUE *[@@@@CTS@CC@ @@@@ WRITE (6,15)KP )@@G@@(A(I),I=1,5)*[@@@@CTS@CM@A@@@@ 15 FORMAT(' XREF OF FILE '5A6) *[@@@@KQ )@@G@@CTS@CW@^@@@@ NTI=H2(BUF(140)) *[@@@@CTS@C&@^@@@@ ILN=H1(BUF(1KR )@@G@@40)) *[@@@@CTS@C0@]@@@@ IS=141*[@@@@CTS@C'@]@@@@ N=1 *[@@@@KS )@@G@@CTS@D^@ @@@@ IF (NTI.EQ.0) GO TO 94 *[@@@@CTS@DI@A@@@@ IF (6*KT )@@G@@NTI.GT.LANGT) GO TO 96 *[@@@@CTS@DS@^@@@@ DO 30 I=1,NTI *[@@@@KU )@@G@@CTS@D+@C@@@@ IF (FLD(0,1,BUF(IS+3)).EQ.1) GO TO 30 *[@@@@CTS@D?KV )@@G@@@^@@@@ TYPE=S3(BUF(IS+3))*[@@@@CTS@D6@ @@@@ IF (TYPE.NE.5) GO KW )@@G@@TO 30 *[@@@@CTS@E@@#@@@@ A(N)=BUF(IS)*[@@@@CTS@EE@^@@@@ A(N+1)KX )@@G@@=BUF(IS+1) *[@@@@CTS@EO@^@@@@ A(N+2)=BUF(IS+4) *[@@@@CTS@EY@^@@@@KY )@@G@@ A(N+3)=BUF(IS+5) *[@@@@CTS@E*@^@@@@ A(N+4)=BUF(IS+6) *[@@@@KZ )@@G@@CTS@E2@ @@@@ A(N+5)=H1(BUF(IS+7)) *[@@@@CTS@E/@]@@@@ N=N+6 LA )@@G@@*[@@@@CTS@FA@#@@@@ 30 IS=IS+ILN *[@@@@CTS@FK@]@@@@ N=N-1 *[@@@@LB )@@G@@CTS@FU@ @@@@ IF (N.EQ.0) GO TO 94 *[@@@@CTS@F=@#@@@@ REFPT=LC )@@G@@0 *[@@@@CTS@F,@#@@@@ ENTPT=0 *[@@@@CTS@F8@D@@@@ CALL BLD )@@G@@UF2(1,0,0,0) @ OPEN OUTPUT FOR UNIT 2 *[@@@@CTS@G]@D@@@@ CALL BLE )@@G@@UF3(1,0,0,0) @ OPEN OUTPUT FOR UNIT 3 *[@@@@CTS@GG@^@@@@ DO 50 LF )@@G@@I=1,N,6 *[@@@@CTS@GQ@#@@@@ KK=A(I+5)*28*[@@@@CTS@G)@#@@@@ LG )@@G@@FCT(3)=0 *[@@@@CTS@G%@#@@@@ FCT(4)=0 *[@@@@CTS@G4@^@@@@ LH )@@G@@S2(FCT(4))=16 *[@@@@CTS@G"@^@@@@ H1(FCT(5))=KK *[@@@@CTS@HCLI )@@G@@@ @@@@ H2(FCT(5))=LOC(BUF) *[@@@@CTS@HM@^@@@@ FCT(6)=A(I+4LJ )@@G@@) *[@@@@CTS@HW@^@@@@ CALL IOW(FCT) *[@@@@CTS@H&@^@@@@ LK )@@G@@ERR=S1(FCT(4)) *[@@@@CTS@H0@ @@@@ IF (ERR.EQ.0) GO TO 40 *[@@@@LL )@@G@@CTS@H'@ @@@@ PRINT 35,ERR,A(I),A(I+1)*[@@@@CTS@I^@A@@@@ 35 FORMATLM )@@G@@(' IO ERROR ',O3,5X,2A6)*[@@@@CTS@II@#@@@@ GO TO 120 *[@@@@CTS@ISLN )@@G@@@^@@@@ 40 ER=H2(BUF(2)) *[@@@@CTS@I+@^@@@@ EP=H2(BUF(3)) LO )@@G@@*[@@@@CTS@I?@#@@@@ ER=2*ER *[@@@@CTS@I6@#@@@@ EP=4*EP LP )@@G@@*[@@@@CTS@J@@ @@@@ IF (ER.EQ.0) GO TO 65 *[@@@@CTS@JE@#@@@@ LQ )@@G@@L=H1(BUF(2))*[@@@@CTS@JO@^@@@@ DO 60 KK=1,ER,2 *[@@@@CTS@JY@B@@@@LR )@@G@@ CALL BUF2(2,A(I),4,1) @ OUTPUT *[@@@@CTS@J*@B@@@@ CALL BLS )@@G@@UF2(2,BUF(L+KK),2,1) @ OUTPUT*[@@@@CTS@J2@^@@@@ 60 REFPT=REFPT+1 LT )@@G@@*[@@@@CTS@J/@ @@@@ 65 IF (EP.EQ.0) GO TO 50 *[@@@@CTS@KA@#@@@@ LU )@@G@@L=H1(BUF(3))*[@@@@CTS@KK@^@@@@ DO 70 KK=1,EP,4 *[@@@@CTS@KU@B@@@@LV )@@G@@ CALL BUF3(2,A(I),4,1) @ OUTPUT *[@@@@CTS@K=@B@@@@ CALL BLW )@@G@@UF3(2,BUF(L+KK),4,1) @ OUTPUT*[@@@@CTS@K,@^@@@@ 70 ENTPT=ENTPT+1 LX )@@G@@*[@@@@CTS@K8@#@@@@ 50 CONTINUE *[@@@@CTS@L]@C@@@@ CALL BUF2(3,LY )@@G@@0,0,0) @ CLOSE OUTPUT ON 2 *[@@@@CTS@LG@C@@@@ CALL BUF3(3,0,0,0)LZ )@@G@@ @ CLOSE OUTPUT ON 3 *[@@@@CTS@LQ@B@@@@C CALL NTRAN(2,22,10) @ MA )@@G@@REWIND 2 *[@@@@CTS@L)@B@@@@C CALL NTRAN(3,22,10) @ REWIND 3 MB )@@G@@*[@@@@CTS@L%@ @@@@ CALL REWN (2) @ REWIND 2*[@@@@CTS@L4@ @@@@ MC )@@G@@CALL REWN (3) @ REWIND 3*[@@@@CTS@L"@ @@@@ CALL SORTRF(REFPT,ENTPT)MD )@@G@@*[@@@@CTS@MC@#@@@@ PRINT 500 *[@@@@CTS@MM@ @@@@500 FORMAT (' **ME )@@G@@DONE**') *[@@@@CTS@MW@#@@@@ GO TO 120 *[@@@@CTS@M&@#@@@@94 MF )@@G@@PRINT 501 *[@@@@CTS@M0@D@@@@501 FORMAT (' NO RELOCATABLE ELEMENTS INMG )@@G@@ FILE') *[@@@@CTS@M'@#@@@@ GO TO 120 *[@@@@CTS@N^@^@@@@96 MH )@@G@@PRINT 502,NTI *[@@@@CTS@NI@#@@@@ GO TO 120 *[@@@@CTS@NS@D@@@@MI )@@G@@502 FORMAT (' TOO MANY RELOCATABLE ELEMENTS ',I5) *[@@@@CTS@N+@^@@@@MJ )@@G@@98 PRINT 503,ERR2 *[@@@@CTS@N?@#@@@@ GO TO 120 *[@@@@CTS@N6MK )@@G@@@A@@@@503 FORMAT (' RPFET ERROR ',O5) *[@@@@CTS@O@@^@@@@110 PRINT ML )@@G@@504,KST *[@@@@CTS@OE@C@@@@504 FORMAT (' UNABLE TO ASSIGN 432 FILE.MM )@@G@@ ',O5)*[@@@@CTS@OO@ @@@@120 CALL ERTRAN(6,IFR2) *[@@@@CTS@OY@ @@@@MN )@@G@@ CALL ERTRAN(6,IFR3) *[@@@@CTS@O*@]@@@@ STOP *[@@@@CTS@O2MO )@@G@@@]@@@@ END _@@@@@ 0.087035 -0.994775@E@@@@ 25.617846 278.MP )@@G@@882054 0.055073 0.*[@@@@*SDFF**[@@@@CTS@[=@ @@@@ SUBROUTINE SMQ )@@G@@ORTRF(RT,EP)*[@@@@CTS@[,@^@@@@ PARAMETER LEN=5000*[@@@@CTS@[8@ @@@@MR )@@G@@ IMPLICIT INTEGER (A-Z) *[@@@@CTS@]]@A@@@@ FD(I,K)=FLD(IABS(6MS )@@G@@*I-6),6,K) *[@@@@CTS@]G@^@@@@ H1(I)=FLD(0,18,I) *[@@@@CTS@]Q@E@@@@MT )@@G@@ COMMON A(LEN,8),NDX(LEN),WORK(LEN),BUF(22),B(6),IC,IW *[@@@@CTS@])MU )@@G@@@B@@@@ IF (RT.GT.LEN.OR.EP.GT.LEN) GO TO 55*[@@@@CTS@]%@B@@@@ MV )@@G@@IF (RT.EQ.0.OR.EP.EQ.0) GO TO 55 *[@@@@CTS@]4@C@@@@ CALL BUF2(4,MW )@@G@@0,0,0) @ START INPUT ON 2 *[@@@@CTS@]"@#@@@@ DO 10 I=1,RT*[@@@@MX )@@G@@CTS@#C@B@@@@ 10 CALL BUF2(5,A(I,1),6,LEN) @ INPUT *[@@@@CTS@#M@B@@@@MY )@@G@@C CALL NTRAN(2,22,10) @ REWIND 2 *[@@@@CTS@#W@ @@@@ CALL RMZ )@@G@@EWN (2) @ REWIND 2*[@@@@CTS@#&@C@@@@ CALL BUF2(1,0,0,0) @ START NA )@@G@@OUTPUT ON 2 *[@@@@CTS@#0@#@@@@ NDX(1)=1 *[@@@@CTS@#'@D@@@@ NB )@@G@@IF (RT.GT.1) CALL SORTX(-RT,NDX,WORK,A(1,5)) *[@@@@CTS@^^@#@@@@ NC )@@G@@DO 15 I=1,RT*[@@@@CTS@^I@#@@@@ N=NDX(I) *[@@@@CTS@^S@D@@@@ 15 ND )@@G@@CALL BUF2(2,A(N,1),6,LEN) @ WRITE EXT. REF'S *[@@@@CTS@^+@B@@@@ NE )@@G@@CALL BUF2(3,0,0,0) @ STOP OUTPUT *[@@@@CTS@^?@B@@@@C CALL NTRAN(2NF )@@G@@,22,10) @ REWIND 2 *[@@@@CTS@^6@ @@@@ CALL REWN (2) @ REWIND 2NG )@@G@@*[@@@@CTS@ @@B@@@@ CALL BUF3(4,0,0,0) @ START INPUT *[@@@@CTS@ ENH )@@G@@@C@@@@ CALL BUF2(4,0,0,0) @ START INPUT ON 2 *[@@@@CTS@ O@#@@@@NI )@@G@@ DO 20 I=1,EP*[@@@@CTS@ Y@B@@@@ 20 CALL BUF3(5,A(I,1),8,LEN) @ NJ )@@G@@INPUT *[@@@@CTS@ *@#@@@@ NDX(1)=1 *[@@@@CTS@ 2@D@@@@ IF (EPNK )@@G@@.GT.1) CALL SORTX(-EP,NDX,WORK,A(1,5)) *[@@@@CTS@ /@#@@@@ CALL SNL )@@G@@TART *[@@@@CTS@AA@]@@@@ KGO=1 *[@@@@CTS@AK@]@@@@ IRT=0 *[@@@@NM )@@G@@CTS@AU@#@@@@ DO 50 I=1,EP*[@@@@CTS@A=@#@@@@ J=NDX(I) *[@@@@NN )@@G@@CTS@A,@^@@@@ LC=H1(A(J,7)) *[@@@@CTS@A8@C@@@@ ENCODE (25,BNO )@@G@@UF)A(J,5),A(J,6),LC,A(J,8) *[@@@@CTS@B]@B@@@@ 25 FORMAT(1X,2A6,2X,ONP )@@G@@2,' (',O6,') (') *[@@@@CTS@BG@#@@@@ CALL EPNAME *[@@@@CTS@BQ@^@@@@NQ )@@G@@ GO TO (30,46),KGO *[@@@@CTS@B)@#@@@@ 30 IRT=IRT+1 *[@@@@CTS@B%NR )@@G@@@ @@@@ IF (IRT.GT.RT) GO TO 50 *[@@@@CTS@B4@A@@@@ CALL BUF2(5,NS )@@G@@B,6,1) @ INPUT *[@@@@CTS@B"@C@@@@ 46 IF (FD(1,A(J,5))-FD(1,B(5))) 4NT )@@G@@5,26,30 *[@@@@CTS@CC@D@@@@ 26 IF (FLD(6,30,A(J,5))-FLD(6,30,B(5)))NU )@@G@@ 45,27,30 *[@@@@CTS@CM@C@@@@ 27 IF (FD(1,A(J,6))-FD(1,B(6))) 45,28,3NV )@@G@@0 *[@@@@CTS@CW@D@@@@ 28 IF (FLD(6,30,A(J,6))-FLD(6,30,B(6))) 45,29NW )@@G@@,30 *[@@@@CTS@C&@#@@@@ 29 CALL INSERT *[@@@@CTS@C0@#@@@@ GO TO NX )@@G@@30 *[@@@@CTS@C'@]@@@@ 45 KGO=2 *[@@@@CTS@D^@#@@@@ 50 CALL FINISH NY )@@G@@*[@@@@CTS@DI@]@@@@ RETURN*[@@@@CTS@DS@^@@@@ 55 PRINT 60,EP,RT NZ )@@G@@*[@@@@CTS@D+@G@@@@ 60 FORMAT(' ERROR ENTRY POINTS=',I6,', EXTERNAL REFOA )@@G@@ERENCES=',I6) *[@@@@CTS@D?@]@@@@ RETURN*[@@@@CTS@D6@[@@@@C OB )@@G@@*[@@@@CTS@E@@^@@@@ SUBROUTINE INSERT *[@@@@CTS@EE@#@@@@ CALL UOC )@@G@@PCHAR *[@@@@CTS@EO@ @@@@ FD(IC,BUF(IW))=6H , *[@@@@CTS@EY@#@@@@OD )@@G@@ DO 10 K=1,2 *[@@@@CTS@E*@#@@@@ DO 10 I=1,6 *[@@@@CTS@E2@B@@@@OE )@@G@@ IF (FD(I,B(K)).EQ.'@@@@@ ') GO TO 15*[@@@@CTS@E/@#@@@@ CALL UOF )@@G@@PCHAR *[@@@@CTS@FA@A@@@@ 10 FD(IC,BUF(IW))=FD(I,B(K)) *[@@@@CTS@FKOG )@@G@@@A@@@@ 15 IF (B(3).EQ.' ') GO TO 25*[@@@@CTS@FU@#@@@@ CALL UOH )@@G@@PCHAR *[@@@@CTS@F=@ @@@@ FD(IC,BUF(IW))=6H / *[@@@@CTS@F,@#@@@@OI )@@G@@ DO 20 K=3,4 *[@@@@CTS@F8@#@@@@ DO 20 I=1,6 *[@@@@CTS@G]@B@@@@OJ )@@G@@ IF (FD(I,B(K)).EQ.'@@@@@ ') GO TO 25*[@@@@CTS@GG@#@@@@ CALL UOK )@@G@@PCHAR *[@@@@CTS@GQ@A@@@@ 20 FD(IC,BUF(IW))=FD(I,B(K)) *[@@@@CTS@G)OL )@@G@@@ @@@@ 25 IF (IW.LT.19) RETURN *[@@@@CTS@G%@#@@@@ ENTRY FINISHOM )@@G@@*[@@@@CTS@G4@^@@@@ WRITE (6,30)BUF *[@@@@CTS@G"@#@@@@ 30 FORMATON )@@G@@(22A6)*[@@@@CTS@HC@#@@@@ ENTRY START *[@@@@CTS@HM@#@@@@ DO 35 OO )@@G@@I=1,22*[@@@@CTS@HW@#@@@@ 35 BUF(I)=6H *[@@@@CTS@H&@]@@@@ IW=6 OP )@@G@@*[@@@@CTS@H0@]@@@@ IC=1 *[@@@@CTS@H'@]@@@@ RETURN*[@@@@CTS@I^OQ )@@G@@@[@@@@C *[@@@@CTS@II@^@@@@ SUBROUTINE UPCHAR *[@@@@CTS@IS@#@@@@OR )@@G@@ IC=IC+1 *[@@@@CTS@I+@ @@@@ IF (IC.LT.7) RETURN *[@@@@OS )@@G@@CTS@I?@]@@@@ IC=1 *[@@@@CTS@I6@#@@@@ IW=IW+1 *[@@@@CTS@J@OT )@@G@@@]@@@@ RETURN*[@@@@CTS@JE@[@@@@C *[@@@@CTS@JO@^@@@@ SUBROUOU )@@G@@TINE EPNAME *[@@@@CTS@JY@]@@@@ IW=5 *[@@@@CTS@J*@]@@@@ IC=4 OV )@@G@@*[@@@@CTS@J2@#@@@@ DO 10 K=1,2 *[@@@@CTS@J/@#@@@@ DO 10 I=1,6 OW )@@G@@*[@@@@CTS@KA@C@@@@ IF (FD(I,A(J,K)).EQ.'@@@@@ ') GO TO 15 *[@@@@OX )@@G@@CTS@KK@#@@@@ CALL UPCHAR *[@@@@CTS@KU@A@@@@ 10 FD(IC,BUF(IW))=FD(OY )@@G@@I,A(J,K)) *[@@@@CTS@K=@B@@@@ 15 IF (A(J,3).EQ.' ') GO TO 25 OZ )@@G@@*[@@@@CTS@K,@#@@@@ CALL UPCHAR *[@@@@CTS@K8@ @@@@ FD(IC,BUF(IWPA )@@G@@))=6H / *[@@@@CTS@L]@#@@@@ DO 20 K=3,4 *[@@@@CTS@LG@#@@@@ PB )@@G@@DO 20 I=1,6 *[@@@@CTS@LQ@C@@@@ IF (FD(I,A(J,K)).EQ.'@@@@@ ') GO TO PC )@@G@@25 *[@@@@CTS@L)@#@@@@ CALL UPCHAR *[@@@@CTS@L%@A@@@@ 20 FD(IC,PD )@@G@@BUF(IW))=FD(I,A(J,K)) *[@@@@CTS@L4@#@@@@ 25 CALL UPCHAR *[@@@@CTS@L"PE )@@G@@@ @@@@ FD(IC,BUF(IW))=6H ) *[@@@@CTS@MC@#@@@@ CALL UPCHAR PF )@@G@@*[@@@@CTS@MM@]@@@@ RETURN*[@@@@CTS@MW@]@@@@ END _@@@@@345619PG )@@G@@ 0.460456 -0.817636@E@@@@ 95.796085 294.778690 0.350061 0.PH )@@G@@467425 -0.811770@E@@@@*[@@@@*SDFF**[@@@@CTS@[=@A@@@@ SUBROUTINE BPI )@@G@@UF3(LF,A,NN,IX) *[@@@@CTS@[,@ @@@@ PARAMETER NIN=3,SIZE=560*[@@@@PJ )@@G@@CTS@[8@A@@@@ INTEGER TREAD,TWRITE,SWRITE *[@@@@CTS@]]@I@@@@ PK )@@G@@REAL IN(SIZE),A(IX,IX) BUF200PL )@@G@@30 *[@@@@CTS@]G@I@@@@C 1 2 3 PM )@@G@@4 5 6 7 BUF20100 *[@@@@CTS@]Q@I@@@@ 15 IF (LF.GT.0.PN )@@G@@AND.LF.LT.8) GO TO (25,30,55,60,70,95,100),LF BUF20110 *[@@@@PO )@@G@@CTS@])@^@@@@ WRITE (6,500) LF *[@@@@CTS@]%@B@@@@500 FORMAT (' ILPP )@@G@@LEGAL OP CODE = ',I4) *[@@@@CTS@]4@#@@@@ RETURN 0 *[@@@@CTS@]"PQ )@@G@@@I@@@@C START OUTPUT PR )@@G@@ BUF20150 *[@@@@CTS@#C@I@@@@ 25 L=0 PS )@@G@@ BUF20160 *[@@@@CTS@#M@I@@@@ PT )@@G@@TWRITE=0 BUF201PU )@@G@@70 *[@@@@CTS@#W@I@@@@ NSX=0 PV )@@G@@ BUF20180 *[@@@@CTS@#&@I@@@@ GO TO 105 PW )@@G@@ BUF20190 *[@@@@PX )@@G@@CTS@#0@I@@@@C FILL OUTPUT BUFFER PY )@@G@@ BUF20200 *[@@@@CTS@#'@I@@@@ 30 NY=1 PZ )@@G@@ BUF20210 *[@@@@CTS@^^@I@@@@QA )@@G@@ LRET=1 QB )@@G@@BUF20220 *[@@@@CTS@^I@I@@@@ 35 NX=NN QC )@@G@@ BUF20230 *[@@@@CTS@^S@I@@@@ IF (NNQD )@@G@@+NSX-NY+1.GT.SIZE) NX=SIZE-NSX BUF20240 QE )@@G@@*[@@@@CTS@^+@I@@@@ DO 40 I=NY,NX QF )@@G@@ BUF20250 *[@@@@CTS@^?@I@@@@ NSX=NSX+1 QG )@@G@@ BUF20260 *[@@@@CTS@^6QH )@@G@@@I@@@@ 40 IN(NSX)=A(1,I) QI )@@G@@ BUF20270 *[@@@@CTS@ @@I@@@@ IF (NSX.NE.SIZE) GO TO 105 QJ )@@G@@ BUF20280 *[@@@@CTS@ E@ @@@@ 45 QK )@@G@@CALL NWRITE(NIN,IN,NSX) *[@@@@CTS@ O@I@@@@ TWRITE=TWRITE+NSX QL )@@G@@ BUF20300 *[@@@@CTS@ Y@I@@@@QM )@@G@@ GO TO (50,105),LRET QN )@@G@@BUF20310 *[@@@@CTS@ *@I@@@@ 50 NSX=0 QO )@@G@@ BUF20320 *[@@@@CTS@ 2@I@@@@ NY=NX+QP )@@G@@1 BUF20330 QQ )@@G@@*[@@@@CTS@ /@I@@@@ IF (NX-NN) 35,105,35 QR )@@G@@ BUF20340 *[@@@@CTS@AA@I@@@@C STOP OUTPUT QS )@@G@@ BUF20350 *[@@@@CTS@AKQT )@@G@@@I@@@@ 55 LRET=2 QU )@@G@@ BUF20360 *[@@@@CTS@AU@I@@@@ SWRITE=TWRITE+NSX QV )@@G@@ BUF20370 *[@@@@CTS@A=@I@@@@ QW )@@G@@IF (NSX) 105,105,45 BUF203QX )@@G@@80 *[@@@@CTS@A,@I@@@@C START INPUT QY )@@G@@ BUF20390 *[@@@@CTS@A8@I@@@@ 60 TREAD=0 QZ )@@G@@ BUF20400 *[@@@@RA )@@G@@CTS@B]@I@@@@ NC=0 RB )@@G@@ BUF20410 *[@@@@CTS@BG@I@@@@ LRET=1 RC )@@G@@ BUF20420 *[@@@@CTS@BQ@I@@@@RD )@@G@@ NW=SIZE RE )@@G@@BUF20430 *[@@@@CTS@B)@ @@@@ 65 CALL NREAD(NIN,IN,NW) *[@@@@CTS@B%RF )@@G@@@I@@@@ TREAD=TREAD+NW RG )@@G@@ BUF20450 *[@@@@CTS@B4@I@@@@ GO TO (105,90),LRET RH )@@G@@ BUF20460 *[@@@@CTS@B"@I@@@@C RI )@@G@@ FILL INPUT BUFFER BUF204RJ )@@G@@70 *[@@@@CTS@CC@I@@@@ 70 LRET=2 RK )@@G@@ BUF20480 *[@@@@CTS@CM@I@@@@ NY=1 RL )@@G@@ BUF20490 *[@@@@RM )@@G@@CTS@CW@I@@@@ 75 NX=NN RN )@@G@@ BUF20500 *[@@@@CTS@C&@I@@@@ IF (NC+NN-NY+1.GT.SIZE) RO )@@G@@NX=SIZE-NC BUF20510 *[@@@@CTS@C0@I@@@@RP )@@G@@ DO 80 I=NY,NX RQ )@@G@@BUF20520 *[@@@@CTS@C'@I@@@@ NC=NC+1 RR )@@G@@ BUF20530 *[@@@@CTS@D^@I@@@@ 80 A(1,I)RS )@@G@@=IN(NC) BUF20540 RT )@@G@@*[@@@@CTS@DI@I@@@@ IF (NC.NE.SIZE.OR.SWRITE.EQ.TREAD) GO TO 105 RU )@@G@@ BUF20550 *[@@@@CTS@DS@I@@@@ 85 NW=SIZE RV )@@G@@ BUF20560 *[@@@@CTS@D+RW )@@G@@@I@@@@ IF (TREAD+SIZE.GT.SWRITE) NW=SWRITE-TREAD RX )@@G@@ BUF20570 *[@@@@CTS@D?@I@@@@ GO TO 65 RY )@@G@@ BUF20580 *[@@@@CTS@D6@I@@@@ 90 RZ )@@G@@NY=NX+1 BUF205SA )@@G@@90 *[@@@@CTS@E@@I@@@@ NC=0 SB )@@G@@ BUF20600 *[@@@@CTS@EE@I@@@@ IF (NX-NN) 7SC )@@G@@5,105,75 BUF20610 *[@@@@SD )@@G@@CTS@EO@I@@@@C ENTER NUMBER OF WORDS WRITTEN. SE )@@G@@ BUF20620 *[@@@@CTS@EY@I@@@@ 95 SWRITE=NIN SF )@@G@@ BUF20630 *[@@@@CTS@E*@I@@@@SG )@@G@@ GO TO 105 SH )@@G@@BUF20640 *[@@@@CTS@E2@I@@@@C MOVE FORWARD SI )@@G@@ BUF20650 *[@@@@CTS@E/@I@@@@ 100 LRET=1SJ )@@G@@ BUF20660 SK )@@G@@*[@@@@CTS@FA@I@@@@ NC=NN+NC SL )@@G@@ BUF20670 *[@@@@CTS@FK@I@@@@ IF (NC.LT.SIZE) GOSM )@@G@@ TO 105 BUF20680 *[@@@@CTS@FUSN )@@G@@@I@@@@ NW=NC-SIZE SO )@@G@@ BUF20690 *[@@@@CTS@F=@C@@@@C IF (NW.NE.0) CALL NTRAN(NIN,22SP )@@G@@,6,NW,22) *[@@@@CTS@F,@E@@@@ IF (NW .NE. 0) CALL POSN(NIN,NW) @ PSQ )@@G@@OSITION UNIT NIN *[@@@@CTS@F8@I@@@@ TREAD=TREAD+NW SR )@@G@@ BUF20710 *[@@@@CTS@G]@I@@@@ SS )@@G@@NC=0 BUF207ST )@@G@@20 *[@@@@CTS@GG@I@@@@ GO TO 85 SU )@@G@@ BUF20730 *[@@@@CTS@GQ@I@@@@ 105 RETURN SV )@@G@@ BUF20740 *[@@@@SW )@@G@@CTS@G)@I@@@@ END SX )@@G@@ BUF20750 _@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@A@@@@ SUBROUTINE BUF2(LF,A,NN,IX) *[@@@@TA )@@G@@CTS@[,@ @@@@ PARAMETER NIN=2,SIZE=560*[@@@@CTS@[8@A@@@@ INTEGETB )@@G@@R TREAD,TWRITE,SWRITE *[@@@@CTS@]]@I@@@@ REAL IN(SIZE),A(IX,IX) TC )@@G@@ BUF20030 *[@@@@CTS@]G@I@@@@TD )@@G@@C 1 2 3 4 5 6 7 TE )@@G@@BUF20100 *[@@@@CTS@]Q@I@@@@ 15 IF (LF.GT.0.AND.LF.LT.8) GO TO (25,3TF )@@G@@0,55,60,70,95,100),LF BUF20110 *[@@@@CTS@])@^@@@@ WRITE TG )@@G@@(5,500) LF *[@@@@CTS@]%@B@@@@500 FORMAT (' ILLEGAL OP CODE = ',I4) TH )@@G@@*[@@@@CTS@]4@#@@@@ RETURN 0 *[@@@@CTS@]"@I@@@@C START OUTTI )@@G@@PUT BUF20150 *[@@@@TJ )@@G@@CTS@#C@I@@@@ 25 L=0 TK )@@G@@ BUF20160 *[@@@@CTS@#M@I@@@@ TWRITE=0 TL )@@G@@ BUF20170 *[@@@@CTS@#W@I@@@@TM )@@G@@ NSX=0 TN )@@G@@BUF20180 *[@@@@CTS@#&@I@@@@ GO TO 105 TO )@@G@@ BUF20190 *[@@@@CTS@#0@I@@@@C FILTP )@@G@@L OUTPUT BUFFER BUF20200 TQ )@@G@@*[@@@@CTS@#'@I@@@@ 30 NY=1 TR )@@G@@ BUF20210 *[@@@@CTS@^^@I@@@@ LRET=1 TS )@@G@@ BUF20220 *[@@@@CTS@^ITT )@@G@@@I@@@@ 35 NX=NN TU )@@G@@ BUF20230 *[@@@@CTS@^S@I@@@@ IF (NN+NSX-NY+1.GT.SIZE) NX=SITV )@@G@@ZE-NSX BUF20240 *[@@@@CTS@^+@I@@@@ TW )@@G@@DO 40 I=NY,NX BUF202TX )@@G@@50 *[@@@@CTS@^?@I@@@@ NSX=NSX+1 TY )@@G@@ BUF20260 *[@@@@CTS@^6@I@@@@ 40 IN(NSX)=A(1,TZ )@@G@@I) BUF20270 *[@@@@UA )@@G@@CTS@ @@I@@@@ IF (NSX.NE.SIZE) GO TO 105 UB )@@G@@ BUF20280 *[@@@@CTS@ E@ @@@@ 45 CALL NWRITE(NIN,IN,NSX) UC )@@G@@*[@@@@CTS@ O@I@@@@ TWRITE=TWRITE+NSX UD )@@G@@ BUF20300 *[@@@@CTS@ Y@I@@@@ GO TO (50,105),LREUE )@@G@@T BUF20310 *[@@@@CTS@ *UF )@@G@@@I@@@@ 50 NSX=0 UG )@@G@@ BUF20320 *[@@@@CTS@ 2@I@@@@ NY=NX+1 UH )@@G@@ BUF20330 *[@@@@CTS@ /@I@@@@ UI )@@G@@IF (NX-NN) 35,105,35 BUF203UJ )@@G@@40 *[@@@@CTS@AA@I@@@@C STOP OUTPUT UK )@@G@@ BUF20350 *[@@@@CTS@AK@I@@@@ 55 LRET=2 UL )@@G@@ BUF20360 *[@@@@UM )@@G@@CTS@AU@I@@@@ SWRITE=TWRITE+NSX UN )@@G@@ BUF20370 *[@@@@CTS@A=@I@@@@ IF (NSX) 105,105,45 UO )@@G@@ BUF20380 *[@@@@CTS@A,@I@@@@UP )@@G@@C START INPUT UQ )@@G@@BUF20390 *[@@@@CTS@A8@I@@@@ 60 TREAD=0 UR )@@G@@ BUF20400 *[@@@@CTS@B]@I@@@@ NC=0 US )@@G@@ BUF20410 UT )@@G@@*[@@@@CTS@BG@I@@@@ LRET=1 UU )@@G@@ BUF20420 *[@@@@CTS@BQ@I@@@@ NW=SIZE UV )@@G@@ BUF20430 *[@@@@CTS@B)UW )@@G@@@ @@@@ 65 CALL NREAD(NIN,IN,NW) *[@@@@CTS@B%@I@@@@ TREAD=TREAD+UX )@@G@@NW BUF20450 *[@@@@UY )@@G@@CTS@B4@I@@@@ GO TO (105,90),LRET UZ )@@G@@ BUF20460 *[@@@@CTS@B"@I@@@@C FILL INPUT BUFFER VA )@@G@@ BUF20470 *[@@@@CTS@CC@I@@@@VB )@@G@@ 70 LRET=2 VC )@@G@@BUF20480 *[@@@@CTS@CM@I@@@@ NY=1 VD )@@G@@ BUF20490 *[@@@@CTS@CW@I@@@@ 75 NX=NN VE )@@G@@ BUF20500 VF )@@G@@*[@@@@CTS@C&@I@@@@ IF (NC+NN-NY+1.GT.SIZE) NX=SIZE-NC VG )@@G@@ BUF20510 *[@@@@CTS@C0@I@@@@ DO 80 I=NY,NX VH )@@G@@ BUF20520 *[@@@@CTS@C'VI )@@G@@@I@@@@ NC=NC+1 VJ )@@G@@ BUF20530 *[@@@@CTS@D^@I@@@@ 80 A(1,I)=IN(NC) VK )@@G@@ BUF20540 *[@@@@CTS@DI@I@@@@ VL )@@G@@IF (NC.NE.SIZE.OR.SWRITE.EQ.TREAD) GO TO 105 BUF205VM )@@G@@50 *[@@@@CTS@DS@I@@@@ 85 NW=SIZE VN )@@G@@ BUF20560 *[@@@@CTS@D+@I@@@@ IF (TREAD+SIVO )@@G@@ZE.GT.SWRITE) NW=SWRITE-TREAD BUF20570 *[@@@@VP )@@G@@CTS@D?@I@@@@ GO TO 65 VQ )@@G@@ BUF20580 *[@@@@CTS@D6@I@@@@ 90 NY=NX+1 VR )@@G@@ BUF20590 *[@@@@CTS@E@@I@@@@VS )@@G@@ NC=0 VT )@@G@@BUF20600 *[@@@@CTS@EE@I@@@@ IF (NX-NN) 75,105,75 VU )@@G@@ BUF20610 *[@@@@CTS@EO@I@@@@C ENTVV )@@G@@ER NUMBER OF WORDS WRITTEN. BUF20620 VW )@@G@@*[@@@@CTS@EY@I@@@@ 95 SWRITE=NIN VX )@@G@@ BUF20630 *[@@@@CTS@E*@I@@@@ GO TO 105 VY )@@G@@ BUF20640 *[@@@@CTS@E2VZ )@@G@@@I@@@@C MOVE FORWARD WA )@@G@@ BUF20650 *[@@@@CTS@E/@I@@@@ 100 LRET=1 WB )@@G@@ BUF20660 *[@@@@CTS@FA@I@@@@ WC )@@G@@NC=NN+NC BUF206WD )@@G@@70 *[@@@@CTS@FK@I@@@@ IF (NC.LT.SIZE) GO TO 105 WE )@@G@@ BUF20680 *[@@@@CTS@FU@I@@@@ NW=NC-SIZE WF )@@G@@ BUF20690 *[@@@@WG )@@G@@CTS@F=@C@@@@C IF (NW.NE.0) CALL NTRAN(NIN,22,6,NW,22) *[@@@@CTS@F,WH )@@G@@@E@@@@ IF (NW .NE. 0) CALL POSN (NIN,NW) @ POSTION UNIT NIN *[@@@@WI )@@G@@CTS@F8@I@@@@ TREAD=TREAD+NW WJ )@@G@@ BUF20710 *[@@@@CTS@G]@I@@@@ NC=0 WK )@@G@@ BUF20720 *[@@@@CTS@GG@I@@@@WL )@@G@@ GO TO 85 WM )@@G@@BUF20730 *[@@@@CTS@GQ@I@@@@ 105 RETURN WN )@@G@@ BUF20740 *[@@@@CTS@G)@I@@@@ END WO )@@G@@ BUF20750 WP )@@G@@_@@@@@ 1070 BETAP = -24.988 @^@[@@ 1071 VAZ = 90. @ @[@@WQ )@@G@@ 1072 VLATT = -.05571 @ @[@@ 1073 *[@@@@*SDFF**[@@@@CTS@[=WR )@@G@@@A@@@@ SUBROUTINE NREAD(NIN,E,N) *[@@@@CTS@[,@ @@@@ CALL RWS )@@G@@EADN (NIN,N,E,ST) *[@@@@CTS@[8@ @@@@ IF (ST .NE. 0) GO TO 900*[@@@@WT )@@G@@CTS@]]@]@@@@ RETURN*[@@@@CTS@]G@ @@@@ ENTRY NWRITE (NIN,E,N) WU )@@G@@*[@@@@CTS@]Q@ @@@@ CALL WRITEN (NIN,N,E,ST)*[@@@@CTS@])@ @@@@ WV )@@G@@IF (ST .NE. 0) GO TO 900*[@@@@CTS@]%@]@@@@ RETURN*[@@@@CTS@]4@#@@@@WW )@@G@@900 PRINT 500,ST*[@@@@CTS@]"@B@@@@500 FORMAT (' DRUM I/O ERROR CODE=WX )@@G@@ ',I2)*[@@@@CTS@#C@#@@@@ RETURN 0 *[@@@@CTS@#M@]@@@@ END WY )@@G@@_@@@@@ -.07 .00 .00 .00 @Q@[@@ 1.400 385504. 21349.9 -29.0 WZ )@@G@@ .0 8.27 .10000000+01 17.72 15.1 45.00 -.10 .00 -.00XA )@@G@@)@@@F]=@@@@@)@@[@@@@@@@@@ASG,T 2,D .@ASG,T3 . @FREE 2 . @FREE XB )@@G@@/,0@@@AA@@@F)@C@K@)@[@'K)EDN@**@@@@@@[P@@@/K@@AI@@@@@+@@@@[@@@@@@@/,0@@@XC )@@G@@@@@@@@ 3,D .AB@@@F)@C[F#@**SCK>G]&@-))@@@@/C@@@M[@@@@F@[Q@@@@@@@@@XD )@@G@@@@@@[[/,0@@@[@)@[IC8)@@+[@@@@EAC@@@F)@L[F@K-ES G[#[@K^CK@@@@/,0@@@/^@@AOXE )@@G@@/C@@@T[@@@@F@[T@@@@@@@@]@@@@[[/,0@@@/^@@AOAD@@@F)@U[E()O0^G^[@K-ES G@@@@XF )@@G@@@@@@@B@@@@[[/,0@@@/^@@AO/C@@@)[@@@@F@[W@@@@@@@@^@@@@[[AE@@@F)@<[MK0K^[]CXG )@@G@@*+A@-)C@@@[#N_0@@^R@K@[]@[+@@@@@@@@@/,0@@@/^@@AO/C@@@$[@@@@F@[Z@@@AF@@@FXH )@@G@@)@![N[K^G@[#[#[#@@S@@@[^C@@@@H[#)@@IN_)@@ C_)@@[N_0@@[R/K@@ @@@@H8N0@@?XI )@@G@@[@[-S[AG@@@F)@7[N#@@^G@K0@@@@@[@@@[KG/0@@AE@0@@J[@0@[JG/0__9T/0@@AG/0@@[XJ )@@G@@W/)@@A;O)@@=C@)@@HAH@@@F)[[[N#[#@[9@K@@@@@/@)@[YG/)__';C)@@Y;)?@@@C@-J_"XK )@@G@@E@@@@GG/@__9T/@@@AC@@@@I[@0@[LAI@@@F)[F[N#@[9[#[#[#@@@R@)@[KE[@@[JE@@@[LXL )@@G@@;C)@@Y;)?@@@C@-J_"E@@@@GG/@__9T/@@@AC@@@@IAJ@@@F)[P[N[[#[#[[^G^G@@G_)@@[XM )@@G@@[@@@@HG@@@@HC/@@@[[@2[S];@0K[J[[@@[J;G)@@A;)/@@@C@2[S]AK@@@F)[Z[N@^[#[#[XN )@@G@@#@@@@@T/0@@AG/0@@[W/)@@A;O)@@=C@)@@HS@@@[^C@@@@H8N0@@2O/K@@[8N)@@4AL@@@FXO )@@G@@)[([MK0@K0^^@@@@@@;H)@@A;-_@@@C[/[S]C.)@@*E[@@[KE@0@@JG/0@@AE@0@@J[@0@[KXP )@@G@@G/0__9AM@@@F)[3[N#[#[[^G^G@@@@N_)@@ C_)@@[N_0@@[R/)@@#[@@@@HG@@@@HC/@@@[XQ )@@G@@[[/[S];[0K[K[[@@[KAN@@@F)[.[N#[#[#[#@@^G@@[@0@[KG/0__9T/0@@AG/0@@[W/)@@AXR )@@G@@;O)@@=C@)@@HS@@@[^C@@@@H[#)@@IAO@@@F)]B[M^G^G^G@B=@@@@;)?@@@C@+J_"E@@@@GXS )@@G@@G/@__9T/@@@AC@@@@I[@0@[J[@@@[LG/0@@AE@0@@JAP@@@F)]L[M^[#@[9@@@@@@@;C)@@YXT )@@G@@;)?@@@C@+J_"E@@@@GG/@__9T/@@@AC@@@@I/@)@]$G/)__';C)@@YAQ@@@F)]V[F#[#[#[[XU )@@G@@[#[#[[@@@@@@[@1[S];@0K[K[[@@[K;G)@@A;)/@@@C@1[S]R@K@[LE[@@[KE@@@[JAR@@@FXV )@@G@@)]=[EK0K0^@K^E+&@@@@@@@@@[@@[[/,0@@@8N0@[;O/)@@[8N)@[.G_)@@[[@@@@HG@@@@HXW )@@G@@C/@@@[AS@@@F)]!@%()CP>^@)@V@)@@@@@@@ 5A6) F FILEXREF O(014H @@[@@ @^K[S]XX )@@G@@'^@@@@@] @@@@@@@@VAT@@@F)]2[F]1[K0KOG[#@K0@@@@@@[@)@@MC/)@@[[@@@@LC/@@]HXY )@@G@@[@@@@KCC@@]![@@@@JC^@@]!'^@@@@AU@@@F)];[N#[@K0[@K^G@@@[[@@[JG.@__"C[@@@JXZ )@@G@@/ @@AC/H@@#]G.@"17T.@@@AC[@@@J/K@@A#(@@@@JAV@@@F)# [F#[#[#[#[#[[[@@@@@@@YA )@@G@@/@@@#YD )@@G@@[@+[S]AY@@@F)#-[F#[#[#[#[#[@K0^G@@@@[@)@@MG/)__"C@)@@M8N0@# [@@@@LG@@@@KYE )@@G@@C@@@@L[]@@@MG]@@@MAZ@@@F)#%[F#[@K0K0K(@@@@T8N)@^1[@@@@OG@@@@OC/@@@[YR )@@G@@@#D@@@BK@@@F) E[N#[#@^G@KO[]K@/,0@@@^^K@ PN8M[S[[@)@[IQ@0@@GR@0@[E;K)@@]YS )@@G@@G/)__"C@)@@TG@@@@UBL@@@F) O[E()) G]&@)*]^-N@@@@@@@@@[C/,0@@@^^K@ XN8N)@-YT )@@G@@@#M@@@@@@@[ @@@@[D@@@@ P@@@@[CBM@@@F) X[N@ES G@K0K0K@@O/)@@AO/K@@A8N)@ LYU )@@G@@[@@@@PG@@@@PC/@@@[@#N@@@@@@@[ @@@@[D@@@@ XBN@@@F) $[F@K@K@)A[@:]1@K!ES@@@@@@)@$@C@(032H @#-@@@@[@@@$/,0@@@/K@@ATYZ )@@G@@'^@@@@**) **DONEBR@@@F)@*@0@@@@@@@)AA@V]1@K!@@/,0@@@/K@@AT'^@@@@E) ZA )@@G@@IN FILMENTS LE ELEOCATABNO RELBS@@@F)AD@%() G^F^@@@@@@)@,@S@@@@@@@NY RELZB )@@G@@TOO MA(031H /K@@AT'^@@@@@@K@@J@#>@@@@[@@@,BT@@@F)@1@)@@@@@@@)AI@<]4() G@ZC )@@G@@@@@@@@@@K@@E@#%@@@@[@@@5/,0@@@,I5) MENTS LE ELEOCATABBU@@@F)AM@N]1@@@@@ZD )@@G@@)@5@)@@@@@@@)AO@F]4@@@@@/,0@@@,O5) ERROR RPFET (013H /K@@AT'^@@@@BV@@@FZE )@@G@@)AP@+() G^F@)@9@*@@@@@@@32 FILSIGN 4 TO ASUNABLE(028H '^@@@@@@K@@F@#\@@@ZF )@@G@@@[@@@9BW@@@F)@"@K@)AT@;])()O0^E]&[N@@@@@@]@@@@[[/,0@@@@#3@@@@@@@@@@@@@[[ZG )@@G@@/,0@@@) E. ,O5BX@@@F)A)@%K,ESCR G@@@@@)[@@S@@@@@@@@@[@@[@@@@@A@@@[R)ZH )@@G@@@@@@[H/,0@@@@@@@[G/,0@@@@#4@@@BY@@@F)[#[S@@@@@@@ @@@@@#@@^@@@ZI )@@G@@@@@@@^@@@@@]@@]@@@@@@@@@@@@@@[E%%%%: BZ@@@F0@@@]@@@@@@@ ZJ )@@G@@@@@@@#@@^@@@@@@@@^@@@@@]@@]@@@@@@@@@@@@@@[E%%%%: CA@@@F@@@@@@[@K0[@ZK )@@G@@K^G@@@[[@@[JG.@__"C[@@@J/ @@AC/H@@#]G.@"17T.@@@AC[@@@J/K@@A#(@@@@JAV@@@FZL )@@G@@@@^@@#@@B@@J@@>@@[@@(@@[@@^@[M@C@@A>@@@]&EFILECT NERTRN FACIL ZM )@@G@@ BUF2 BUF3 IOW REWN SORTRF ERTRANZN )@@G@@ NINTR$ NWDU$ NIO3$ NIO2$ NPRT$ NSTOP$ZO )@@G@@ FORMAIN$ @@[@@@@@@@@@@@@@@@ ^@@@C@@]@@@@@@@@@@@&[@@@K&[@@@ZP )@@G@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[U@@@@@@@1@@@@K*@@@@KZQ )@@G@@H[FK@@C.@[ICC/)@@[ @@@@G1@@@@I*@@@@IH@:K@[C/)[ICC/@@@[AA@@@F)@F[U^@@@K@@ZR )@@G@@/=K@#U)@@@@I @@@@I*@FK@@C/)@@[ @@@@G*@FK@[C/@@@[/=K@#U)@@@@I @@@@IAB@@@FZS )@@G@@)@Q[F]@()O0ES G^G^G[#@@@R@K@@VG/@__"C@@@@7@[G@@>@@@@@U@@@@@U@@@@@U@@@@@TZT )@@G@@/,0@@@AC@@@F)@Z[EYO[]@()) G]&[N@@@@@@[K@@>@@@@@Y@@@@@X@@@@@=@@@@@W/,0@@@ZU )@@G@@^^K@@=N8L\_"[@@@[JAD@@@F)@*[F@K-ESCSCK G]&[N@()@@@@@@U@@@@@U@@@@@U@@@@@)ZV )@@G@@/,0@@@@[M@@>@@@@@Z/,0@@@8N0@@)AE@@@F)@1[F#@KL#[@K^G^G@@@@@@@[@@@@8D@@@@7ZW )@@G@@/@@@[@/C@@[@H@@@@7C/@@@[[@@D1@C/@@@[@[N@@>AF@@@F)@'[F]D#@*>^**SCS]A@@@@@ZX )@@G@@R@K@@VG/@__"C@@@@7@[Q@@>@@@^8)@@@E_C@@@D1@@@@@@8/,0@@@AG@@@F)[#[EKOG^GB>ZY )@@G@@@K)ESC@@@@@@@@@@[F@@@@@Z/,0@@@^^K@[FN8MJ_"R@)@@[[@@@@[C@[(0_[@@@[JAH@@@FZZ )@@G@@)[G[E()O0K0K^C]&[N@()O0@@@@@@U@@@@@U@@@@@U@@@@@-/,0@@@8N0@[^@[V@@>@@@@@YAA )@@G@@@@@@@XAI@@@F)[P[F#[]^()-)-AO0ES G]&@@@@@@U@@@@@U@@@@@U@@@@@T/,0@@@@[Y@@>AB )@@G@@@@@@@Z/,0@@@@[X@@>AJ@@@F)[Y[F#[]@()O0ES G]&]A@@@G/@__"C@@@@9@[)@@>@@@@@UAC )@@G@@@@@@@U@@@@@U@@@@@T/,0@@@@[Z@@>AK@@@F)[$[F#@YO[]G()) G]&@@@@@@@@@@Y@@@@@+AD )@@G@@@@@@[!@@@@@W/,0@@@^^K@[!N8M\_"[@@@[JR@)@@VAL@@@F)[0[F#[@^^K0K^[#@@@@@@@@AE )@@G@@D@@@@9/@@@]@/C@@]@H@@@@9C/@@@[[@@D1@C/@@@[8N0@[(@[=@@>AM@@@F)[9[F#[]D#@*AF )@@G@@>^**SC]A@@@@@[(@@>/,0@AW@[*@@>@@@^8)@@@E_C@@@D1@@@@@@8/,0@@@[@@@@8AN@@@FAG )@@G@@)]][MK0K0K0@K0KOG@[@@@@^C@[D0_A@K@@@[@)@[JR/K@@[G/)__"C@)@@9 @@@@#[@@@@]AH )@@G@@C/@@@[AO@@@F)]G[F#[[K0K=ES #[#[[@@@C/]^8ZR@)@@^@[1@@>@@@GHK@[@@@C/,0@@@AI )@@G@@[@)@@ CC+BO\R@)@@^AP@@@F)]P@<]P[ESCC)@C@*@@@@@@@003H) (,O6,2,002H6,2X,OAJ )@@G@@(1X,2A@@MC+7@@K@@ @@MAA$'^K@@@AQ@@@F)@H@C@)]T[#]T@K0K0^[]X@@/K@@]<'^@@@@AK )@@G@@/C,@]Z?8)@@#C@)@@]@[8@@>/,0@DL'^@@@@() AR@@@F)]-[F@K0^G^G^G^[@K)@@@@@AL )@@G@@/,0@@@/^@@#N/G@@](H@@@@7[@@@@#G@@@@#C/@@@[@[9@@>/K@@]\AS@@@F)]%[E()OM&[NAM )@@G@@[#[#[[KO@@@@/@@@]5H4@GH%C4]^8ZR@)@@^@[.@@>@@@@@)@@@@@X@@@GH&@@@@@WAT@@@FAN )@@G@@)]3[N@K^^^^[@@@@@@/@@@]_H@@@@I;C)@@A;))@@AC@+^8Z;C@@@A;)@@@AC@@GH%/K@@]/,0@AQ/K@@]/K@@#/,0@AT[@@@@]C/@@@]AX@@@F)#U@:])()O0K0K0@@@)@I@S@AS )@@G@@@@@@@@ENTRY ERROR (020H @@K@@7@@K@@9@]K@@>@[@@@I/,0@@@AY@@@F)@L@8@@@@@@@AT )@@G@@)#Z@N]T@@@@@N@0@#+'^@@@@=,I6) RENCESL REFEXTERNA22H, E=,I6,0POINTSAZ@@@FAU )@@G@@)#-@;@K0K0K0K0K0K0@@@@@@)@<@C@@@F@@#*4@K@AV )@@G@@/K@@##[#[#[#@@^#0@@/A@)@@;A@K@@'AA0@@&/K@@@@/K@K@E@@@@GG/@__9T/@@@AC@@@@@[#)@@@N_)@@ C_)@@[A@K@@ABE@@@F)^G[M^[@K0KOBA )@@G@@^^G@@@[@@@@.G/@__9T/@@@AC@@GH?R@)GH!@]<@@?/,0@A4/@)@^%G/)__';C)@@YBF@@@FBB )@@G@@)^Q[M^G@^^@@@@@@@@E@@@@G;D@@@Y;-I@@@C[[GH>E@)@@IG/)__9T/)@@AC@)@@@G/@@@ABC )@@G@@E@@@@GBG@@@F)^)[N#[[@KL@^@@@@@8N0@^]O/K@@[8N)@^ G_)@@[[[MGHJ;[Y@@@;H@@@ABD )@@G@@;-W@@@C[MGHJE@)@@.BH@@@F)^%[F[K0K^[#[[KK@@@@@@@@G/@__9T/@@@AC@@GH?R@)GH!BE )@@G@@@](@@?/,0@A4/@@@ *H@@@@*C@@GH*BI@@@F)^3[N#@[#[#[[@@@@@;[Y@@@;H@@@A;-W@@@BF )@@G@@C[MGHJC[@@@(E@)@@.E@@@@GG/@@@AE@@@@G[@@@@.BJ@@@F)^.[N[[#@^G^G@@@@@G/@__9BG )@@G@@T/@@@AC@@@@@[#)@@@N_)@@ C_)@@[A@K@@AN_0@@[R/K@@#[[MGHJBK@@@F) B[MKK^[@K0BH )@@G@@KO^@@@C@@GH?R@)GH!@]3@@?/,0@A4/@)@ *G/)__';C)@@Y;)?@@@C@-GH>E@@@@GBL@@@FBI )@@G@@) L[M^G@K0@KK@@@@@C[[GH>E@)@@IG/)__9T/)@@AC@)@@@G/@@@AE@@@@G[@@@@.G/@__9BJ )@@G@@T/@@@ABM@@@F) V[M[#[[@KK@@@@@@G_)@@[[[MGHJ;[Y@@@;H@@@A;-W@@@C[MGHJE@)@@.BK )@@G@@E@@@@G;D@@@Y;-I@@@BN@@@F) >[N@^[[^[@K^[#@@@]8@@?/K@@A#N@0@ ,/@@@ \/C@@ \BL )@@G@@G/@__?C@@GH!8N0@ @O/K@@[8N)@ #BO@@@F) \[F]*()O0K0K:EC-G-)@@@R@)@@V'^@@@@BM )@@G@@@@[@@Q@^KGHK'^@@@@@]'@@?@@@@@S@[@@@X/,0@@@BP@@@F) 8@E@)@S@C@) 9@3#[[K[[@BN )@@G@@@@@@@@C.@@@[[@)GH!C/)@@A8N0@ 9[@]?HJC@@@@*(22A6)N_0@@PBQ@@@F) _[F[K^[#[#BO )@@G@@[#[#[#[#@@@@R@)@[#R@K@[]9\)@[@9!)@@"R]0@@!@#A@@?/K@@A#N@0@A][[@GH?BR@@@FBP )@@G@@)AC@V#[#[#@@)@%@)@@@@@@@@@@@)@@@@@@@@#A MUINSERT@@@@@@@@F@@@*4@K@%N#)@[ BQ )@@G@@N#0@[^BS@@@F)AF[F#[]>#[#[#[#[#[#[#@@^#0@[^A@)@[#A@K@[]9:)@[@9()@@"[^@@@%BR )@@G@@AA0@@!/K@@@@/K@K@%BT@@@F)AO[N#@^[@^[@^@@@@/\K@AHC8@@@[/K@@ \/\K@AHC8@@@[BS )@@G@@/K@@#\/\K@AHC8@@@[/KH@@@^#)@[ BU@@@F)AY[N@^ [KL@K^[@@@/K@@A0N@0@A*/@@@A(BT )@@G@@/C@@A(G/@__8C@@GH?[@@GH?G@@GH?C/@@@[/K@@ 7BV@@@F)A*[F#@KO [K^[#[#@@@@@@@BU )@@G@@R]0@@1@#J@@0/K@@A0N@0@A\[@@GH!G@@GH![@@GH?C/@@@[@#G@@0BW@@@F)A1@F#@@@@@@BV )@@G@@)@,@)@@@@@@@)A2@N#[]=@@@/K@@@@/K@K@,@#J MUUPCHAR@@@@@@@@F@@[*4@K@,BX@@@FBW )@@G@@)A4[N#[@^^KKK0K0@@C@@@@B[#0@@BN_0@@[C_0@@[[@)GH?C/)@@^[@@GH!C/@@@ /K@@AZBX )@@G@@AA0@@1BY@@@F)A"[MK0[#[#[#[#@@@G/@__9T/@@@AC@@@@@O@K@[AR@K@@^[#)@@@N_)@@ BY )@@G@@C_)@@[[@@@[AT/@[ICBZ@@@F)BC[MYK^[@K0KO^@@@C@@GH?R@KGH!@#X@@5/,0@A4/@)@B:BZ )@@G@@G/)__';C)@@Y;)?@@@C@-I16E@@@@GCA@@@F)BM[M^G^G^G@K0@@@@G/)__9T/)@@AC@)@@@CA )@@G@@G/@@@AE@@@@G[@@@[BO@)@[AR@)@@^G/@__9T/@@@ACB@@@F)BW[MYK^G^^@@@@@@@;[Y@@@CB )@@G@@;H@@@A;-W@@@C[LGHJE@)@[BE@@@@G;D@@@Y;-I@@@C[]I16E@)@@ICC@@@F)B&[N[^@K^G^CC )@@G@@ #[@K@/,0@A4/@@@C1H@@@@*C@]]WJR@)@@^8N0@A/G_0@@[8N)@B]G_)@@[[[LGHJCD@@@FCD )@@G@@)B0[N#[[KKK0@K0@@@E@)@[AE@@@@GG/@@@AE@@@@G[@@@[AG/@__9T/@@@AC@@GH?R@KGH!CE )@@G@@@#<@@5CE@@@F)B'[N#[[@KKK0K0@@@C@@@@B[#0@@BN_0@@[C_0@@#[[LGHJ;[Y@@@;H@@@ACF )@@G@@;-W@@@C[LGHJC[@@@(CF@@@F)C^[MK0[#[#[#[#@@@G/@__9T/@@@AC@@@@@O@)@[AR@)@@^CG )@@G@@[#)@@@N_)@@ C_)@@[[@@@[AT/@[ICCG@@@F)CI[MYK^[@K0KO^@@@C@@GH?R@KGH!@#!@@5CH )@@G@@/,0@A4/@)@C1G/)__';C)@@Y;)?@@@C@+I16E@@@@GCH@@@F)CS[M^G^G^G@K0@@@@G/)__9CI )@@G@@T/)@@AC@)@@@G/@@@AE@@@@G[@@@[BO@)@[AR@)@@^G/@__9T/@@@ACI@@@F)C+[MYK^G^^@CJ )@@G@@@@@@@@;[Y@@@;H@@@A;-W@@@C[LGHJE@)@[BE@@@@G;D@@@Y;-I@@@C[]I16E@)@@ICJ@@@FCK )@@G@@)C?[N[^@K^[#[[KK@@T/@@@AC@@GH?R@)GH!@#1@@5/,0@A48N0@C]G_0@@[8N)@CCG_)@@[CL )@@G@@[[LGHJCK@@@F)C6[MK0@K0K0KK@@@@;H@@@A;-W@@@C[MGHJC[@@@2E@)@[AE@@@@GG/@@@ACM )@@G@@E@@@@G[@@@[AG/@__9CL@@@F)D@[EKO[#[@K^G^G^G@@@@@@9!)@[CR]0@@6@#4@@5/K@@DBCN )@@G@@N@0@DA@#3@@5/,0@A4[[MGHJ;[Y@@@CM@@@F)DD@3#[#[#[#[#[#@@)@3@S@EPNAME@@@@@@CO )@@G@@@@F@@[*4@K@3N#)@[JN#0@[IR@)@[HR@K@[G9\)@[ECN@@@F)@6@C@)DJ@;#[]>#[#[#[#[#CP )@@G@@@@@@@@A@)@[HA@K@[G9:)@[E9()@[CAA0@@6/K@@@@/K@K@3@#4 MUCO@@@F)DQ[##[#[@^GCQ )@@G@@[#[@@@)@T@C@@@@@@^/K@@@@[@K@@9C@VK@[[@K@@7C@VK@@/K@@A6^#)@[J^#0@[ICP@@@FCR )@@G@@)@U[C@@@@@@@)@$@C@ ,@@@@@C@@@@@#@@@@@[@@@@@]@@@[IC@@@@@A@@@@@ @@[@@[CS )@@G@@@@@@@@CQ@@@F)@*@K@)@2@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@ ) / CR@@@F@@^@@#@@B@@G@@Z@@[@@<@@[@@^@[K@C@@DY@@@GH,BUF2 CU )@@G@@ REWN SORTX BUF3 NNCOD$ NIO1$ NIO2$ CV )@@G@@ NERR2$ NPRT$ NERR3$ NWDU$ NIO3$ SORTRFCW )@@G@@ @@[@@@@@@@#%@@@@@@ ^@@[ID@]@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@CX )@@G@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@)@@[U@@@@@@@ @@@@I1@@@@K*@@@@KG.@__7C[FK@@C/)@@[ @@@@G1@@@@I*@@@@ID@:K@@CZ )@@G@@C/@@@[AA@@@F)@F[MK@K^C4[@K^@@@/K@@[*/K@@[Z/K@@@>/K@@@-'^@@@@/C,@@K?8)@@CDA )@@G@@C@:K@@/)K@@T+@@@@IAB@@@F)@P[F@K^[#[]K()O0K0K0@@@@@K@DB@[C@D^@@@@C;@[@@D@DB )@@G@@/,0@@@@[B@D^/K@@#@/K@@]./K@@[.AC@@@F)C;@*@@@@@@@)@Y@V]P]T#@@@@@@@@@[G@D^DC )@@G@@'^@@@@'^@@@@,I4) ODE = L OP CILLEGA(019H AD@@@F)@-[F#[#[#[@^G^G[#@@@@@@DD )@@G@@[@@@C7C@@@@@[@@@C6[@@@C5C/@@@[/K@@#Q @@@C4 @@@@[ @@@C3AE@@@F)@%[N#@K0[@KDE )@@G@@[#[#@@[@@@C7H@@@C4C/@@C0/@@@@4/G@@@4G/@_7JG/@@@[H@@@C5G@@@@@C@@@C4AF@@@FDF )@@G@@)@4[F#[#[#[#[#[#[#@@@@@@'L@@@I;[@@@MC[@@DCG@)@DAH@)@DCT@)@DCC@)@C5H@@@C5DG )@@G@@C@@@C7AG@@@F)@.[M[#[#[#@K0K@@@G/@_7J8N0@@_[@+@@]C@-)@@R@)@C4[@@@C4G@@@C4DH )@@G@@C/@@@[[@@@[J[[@@@[AH@@@F)[B[F@K)ES G]&]A]A]A]A@@[@@@@[G@@@@[C@@@C4@[Y@D^DI )@@G@@@@@@C4@@@@@#@@@@D[/,0@@@/^@@#QAI@@@F)[K[F#@K^C4[@ESCS@@@@@@@C/@@@[ @@@C4DJ )@@G@@@[)@D^/K@@#Q/K@@[R'^@@@@/C,@[N?8)@@#C@)@C6AJ@@@F)[T[F#[#[#@K^@K0K0@@@@@@DK )@@G@@C@)@C4[@@@C6C/@@@]/K@@@*/@)@#QH@)@@@C@)@C7[@@@C5G@@@C7AK@@@F)[+[F#[#[#[@DL )@@G@@K^[#[#@@@@@@C/@@@[ @@@C9 @@@@@/K@@[C/H@@#Q/[@@#QC[@@C4[@)@@]G@)@@[AL@@@FDM )@@G@@)[:[F#@K0K-ES G]&]A]A@@@C@@@C'@[\@D^@@@@C'@@@@@#@@@@D[/,0@@@[@)@C'C/)@C0DN )@@G@@[@@@C6AM@@@F)[4[F#[#[#@K^C4[@K0@@@@@@[1@D^/K@@]5/K@@#Q'^@@@@/C,@[9?8)@@#DO )@@G@@C@)@C6[@@@@@G@@@@@AN@@@F)[.[MK0^G[#[#@K0@@G/@@@[H@@@C5G@@@@@C@@@C9[@@@C7DP )@@G@@C@@@@@[@)@C5C/)@@[[@@@C6C/@@@]AO@@@F)]B[EK^@K0K0K0K0K0@@@@@@C@)@C5H@@@C5DQ )@@G@@C@@@C7[@@@C7H@@@C9C/@@C0/@@@]H/G@@]HG/@_7JAP@@@F)]K[N#[#[#[#@@^G@@G@@@C9DR )@@G@@C/@@@[[@@@[J[[@@@]'L@@@I;[@@@MC[@@DCG@)@DAH@)@DCT@)@DCAQ@@@F)]U[N#[#[#@KDS )@@G@@[#[#@@ @@@@K*@@@@MH[)@@@C[)@@]C.@@@[8N0@]S[@+)@@C@-@@]R@K@C9[@@@C9AR@@@FDT )@@G@@)]=[M@^@K0^G@@@@@@G@@@@@C/@@C0[@@@C'C/@@C0/>K@#Q)[@@@M @@@@M(@@@@GG/@_7JDU )@@G@@C.)@@[AS@@@F)],[F#[@K^G^G^G^@K0@@@@@G@@@C7C/@@@[/K@@[,[@@@C'H@@@@@C@@@@]DV )@@G@@/@@@]4/G@@]4H@@@@]AT@@@F)]7[N#[#[#@K^@K0K@C/@@@[/K@@#Q[@@@@]C/@@@#/K@@][DW )@@G@@/@)@#QH@)@@@C@)@C7 @@@C9[@@@C5AU@@@F)#[[F#[#@K0^[@K0@@@@@@@@G/)_7JC@)@C9DX )@@G@@/^)@#Q/C)@#CG/)_7J[@)@C9G@)@@@C@)@C9[@@@C6AV@@@F)#E[F#[#[@K+ES G]&]A]A@@DY )@@G@@G@@@@@C@@@C'@]K@D^@@@@C'@@@@D[/,0@@@/K@@#L(@@@C'[@)@C'AW@@@F)#N[F#[#[@K^DZ )@@G@@[#[#[#[#@@@@R@K@DF9!)@DDR]0@D @]O@D^/K@@#TN@0@#S/K@@]% @@@C9[@@@@@AX@@@FEA )@@G@@)#W@V#[#[#@@)D]@)@@@@@@@@@@@)@@@@@@@@]O MUBUF3 @@@@@@@@F@@ *4@KD]N#0@DHEB )@@G@@R@)@DGAY@@@F)#Z[F#[]X#[#[#[#[#@K0@@@[@K@DBC@VK@@^#0@DHA@)@DGA@K@DF9()@DDEC )@@G@@AA0@D /K@@@@/K@KD]AZ@@@F)#*[MK0^[@K^[@K^@@[^@@[W[^@@@*[^@@@:[^@@][[^@@]'ED )@@G@@[^@@##[^@@]^C8FK@][@@@DAC8FK@[BA@@@F)#2@UK0K@@@@)D@@K@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@#@@@@@A/K@@@@[@K@DCC@VK@#BB@@@F@@^@@#@@B@@C@@R@@[@@V@@[EF )@@G@@@@^@DI@C@@#5@@@@@@NWRITE NREAD POSN NERR2$ NWDU$ EG )@@G@@ NIO2$ NERR6$ NERR3$ BUF3 @@[@@@@@@@#-@@@@@@EH )@@G@@ ^@@@C@@]@@@@&@[@@@@@@@@@@@@@@@@K[@@@KK[@@@QK[@@@&K[@@@@@@@@@@@@@@@EI )@@G@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[U@@@@@@@ @@@@I1@@@@K*@@@@KG.@__7C[FK@@C/)@@[EK )@@G@@ @@@@G1@@@@I*@@@@ID@:K@@C/@@@[AA@@@F)@F[MK@K^C4[@K^@@@/K@@[*/K@@[Z/K@@@>EL )@@G@@/K@@@-'^@@@@/C,@@K?8)@@CC@:K@@/)K@@T+@@@@IAB@@@F)@P[F@K^[#[]K()O0K0K0@@@EM )@@G@@@@K@DB@[C@D^@@@@C;@[@@D@/,0@@@@[B@D^/K@@#@/K@@]./K@@[.AC@@@F)C;@*@@@@@@@EN )@@G@@)@Y@V]P]T#@@@@@@@@@[G@D^'^@@@@'^@@@@,I4) ODE = L OP CILLEGA(019H AD@@@FEO )@@G@@)@-[F#[#[#[@^G^G[#@@@@@@[@@@C7C@@@@@[@@@C6[@@@C5C/@@@[/K@@#Q @@@C4 @@@@[EP )@@G@@ @@@C3AE@@@F)@%[N#@K0[@K[#[#@@[@@@C7H@@@C4C/@@C0/@@@@4/G@@@4G/@_7JG/@@@[EQ )@@G@@H@@@C5G@@@@@C@@@C4AF@@@F)@4[F#[#[#[#[#[#[#@@@@@@'L@@@I;[@@@MC[@@DCG@)@DAER )@@G@@H@)@DCT@)@DCC@)@C5H@@@C5C@@@C7AG@@@F)@.[M[#[#[#@K0K@@@G/@_7J8N0@@_[@+@@]ES )@@G@@C@-)@@R@)@C4[@@@C4G@@@C4C/@@@[[@@@[J[[@@@[AH@@@F)[B[F@K)ES G]&]A]A]A]A@@ET )@@G@@[@@@@[G@@@@[C@@@C4@[Y@D^@@@@C4@@@@@#@@@@D[/,0@@@/^@@#QAI@@@F)[K[F#@K^C4[EU )@@G@@@ESCS@@@@@@@C/@@@[ @@@C4@[)@D^/K@@#Q/K@@[R'^@@@@/C,@[N?8)@@#C@)@C6AJ@@@FEV )@@G@@)[T[F#[#[#@K^@K0K0@@@@@@C@)@C4[@@@C6C/@@@]/K@@@*/@)@#QH@)@@@C@)@C7[@@@C5EW )@@G@@G@@@C7AK@@@F)[+[F#[#[#[@K^[#[#@@@@@@C/@@@[ @@@C9 @@@@@/K@@[C/H@@#Q/[@@#QEX )@@G@@C[@@C4[@)@@]G@)@@[AL@@@F)[:[F#@K0K-ES G]&]A]A@@@C@@@C'@[\@D^@@@@C'@@@@@#EY )@@G@@@@@@D[/,0@@@[@)@C'C/)@C0[@@@C6AM@@@F)[4[F#[#[#@K^C4[@K0@@@@@@[1@D^/K@@]5EZ )@@G@@/K@@#Q'^@@@@/C,@[9?8)@@#C@)@C6[@@@@@G@@@@@AN@@@F)[.[MK0^G[#[#@K0@@G/@@@[FA )@@G@@H@@@C5G@@@@@C@@@C9[@@@C7C@@@@@[@)@C5C/)@@[[@@@C6C/@@@]AO@@@F)]B[EK^@K0K0FB )@@G@@K0K0K0@@@@@@C@)@C5H@@@C5C@@@C7[@@@C7H@@@C9C/@@C0/@@@]H/G@@]HG/@_7JAP@@@FFC )@@G@@)]K[N#[#[#[#@@^G@@G@@@C9C/@@@[[@@@[J[[@@@]'L@@@I;[@@@MC[@@DCG@)@DAH@)@DCFD )@@G@@T@)@DCAQ@@@F)]U[N#[#[#@K[#[#@@ @@@@K*@@@@MH[)@@@C[)@@]C.@@@[8N0@]S[@+)@@FE )@@G@@C@-@@]R@K@C9[@@@C9AR@@@F)]=[M@^@K0^G@@@@@@G@@@@@C/@@C0[@@@C'C/@@C0/>K@#QFF )@@G@@)[@@@M @@@@M(@@@@GG/@_7JC.)@@[AS@@@F)],[F#[@K^G^G^G^@K0@@@@@G@@@C7C/@@@[FG )@@G@@/K@@[,[@@@C'H@@@@@C@@@@]/@@@]4/G@@]4H@@@@]AT@@@F)]7[N#[#[#@K^@K0K@C/@@@[FH )@@G@@/K@@#Q[@@@@]C/@@@]/K@@][/@)@#QH@)@@@C@)@C7 @@@C9[@@@C5AU@@@F)#[[F#[#@K0^FI )@@G@@[@K0@@@@@@@@G/)_7JC@)@C9/^)@#Q/C)@#CG/)_7J[@)@C9G@)@@@C@)@C9[@@@C6AV@@@FFJ )@@G@@)#E[F#[#[@K+ES G]&]A]A@@G@@@@@C@@@C'@]K@D^@@@@C'@@@@D[/,0@@@/K@@#L(@@@C'FK )@@G@@[@)@C'AW@@@F)#N[F#[#[@K^[#[#[#[#@@@@R@K@DF9!)@DDR]0@D @]O@D^/K@@#TN@0@#SFL )@@G@@/K@@]% @@@C9[@@@@@AX@@@F)#W@V#[#[#@@)D]@)@@@@@@@@@@@)@@@@@@@@]O MUBUF2 FM )@@G@@@@@@@@@@F@@ *4@KD]N#0@DHR@)@DGAY@@@F)#Z[F#[]X#[#[#[#[#@K0@@@[@K@DBC@VK@@FN )@@G@@^#0@DHA@)@DGA@K@DF9()@DDAA0@D /K@@@@/K@KD]AZ@@@F)#*[MK0^[@K^[@K^@@[^@@[WFO )@@G@@[^@@@*[^@@@:[^@@][[^@@]'[^@@##[^@@]^C8FK@][@@@DAC8FK@[BA@@@F)#2@UK0K@@@@FP )@@G@@)D@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@ /K@@@@[@K@DCC@VK@#BB@@@FFQ )@@G@@@@^@@#@@B@@C@@R@@[@@V@@[@@^@DI@C@@#5@@@@@@NWRITE NREAD POSN FR )@@G@@ NERR2$ NWDU$ NIO2$ NERR6$ NERR3$ BUF2 FS )@@G@@ @@[@@@@@@@#-@@@@@@ ^@@@C@@]@@@@&@[@@@@@@@@@@@@@@@@K[@@@KK[@@@FT )@@G@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@FU )@@G@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[N]@[N]A^GC]@)@/K@@@XFV )@@G@@N@0@@E/K@@@Q*@@@@@@[#@@D@@@@@@@@@@@@@@@@@@@@@@@@/,0@@@AA@@@F)@E[N#]^K]&^FW )@@G@@GCSK^@N@0@@P/K@@@Q*@@@@@@[D@@D@@@@@@@@@@@@@@@@@@@@@@@@/,0@@@@[A@@DAB@@@FFX )@@G@@)@O@3@K0-C(-#[N@@@)@[@S@/O ERRDRUM I(022H @@)@@@@[H@@D@[@@@[/,0@@@@[G@@DFY )@@G@@/K@@@XAC@@@F)@^@S@)@U@:]U ^GCSK0@@@@@@@@@@*4@K@BR]0@@E@[L@@D'^@@@@'^@@@@FZ )@@G@@) E= ,I2OR CODAD@@@F)@B@)@@@@@@@)@Z@<#] OGCS@@@@@@[^@@@BAA0@@E/K@@@@GA )@@G@@/K@K@B@[L MUNREAD @@@@@@@@F@@@AE@@@F)@<[M^@K^@K^@@@@@@C8FK@][^@@@#[^@@@IGB )@@G@@C8FK@[[^@@@[[^@@@GC8FK@@/\K@@-C8@@@^/KH@@@AF@@@F)@![N@K^@K[@K[@@@@[^@@@IGC )@@G@@C8FK@[[^@@@[[^@@@GC8FK@@/\K@@-C8@@@^/K@@@@[^@@@][^@@@HAG@@@F)@7@:@^[@K@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@F[^@@@][^@@@HC8FK@][^@@@#AH@@@FGE )@@G@@@@^@@#@@B@@A@@N@@]@@V@@[@@#@@F@C@@@/@@@@@@READN WRITEN NPRT$ GF )@@G@@ NIO2$ NERR6$ NERR3$ NREAD @@[@@@@@@@@=NWRITEGG )@@G@@ @@[@@@@@@@@0@@@@@@ ^@@@C@@]@@@@&@[@@@@@@@@@@@@@@@@K[@@@KK[@@@GH )@@G@@QK[@@@&K[@@@@@@@@@@@@@@@@Q[@@@KQ[@@@QQ[@@@&Q[@@@@@@@@@@@@@@@@&[@@@K&[@@@GI )@@G@@Q&[@@@&&[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@======@@^@@ @@@@@@@@@@@@GJ )@@G@@@@ [O5@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H%< VGLMSC39@@@[@@GK )@@G@@@@@@^K@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@#!@@A@@A@][@C>@@J@@G@@^@@@]B*@@@@@@GL )@@G@@@^@@@]@^@H@[@ @@@]K^[(@RION *[@@@@CTS@AA@ @@@@ J 2,X1GM )@@G@@1. *[@@@@CTS@AK@[@@@@POSN*.*[@@@@CTS@AU@D@@@@ LA A0,*GN )@@G@@0,X11. UNIT NUMBE@WI@C@[DZ@=))@M@=I)][[!_@@@___@@E]8M@@U]8,@@0]9YGO )@@G@@@[K#G=@]W#IF@BD#K"@@8#S,@@EJ$O@@3J$\@@\J*,@@FJ21@@A@)]8&A@0]8$A[@]8*A[K]8(A[)]8%A[0]8:A]K]8?C@@@C]GR )@@G@@[@@]8S/@@@CS/C@@CSC8@@@][@@]8LD@@]8S[@@]8S/,)@C]8[C@#@@@G@@@@][@@@@[HK )@@G@@C@^@@@G@@@@][@@@@]C@[@@@[@@]8NC@]@@@[@@]8OC@@]8NH@@]8O/^@@G O9K@@[$9K@@@HL )@@G@@/,)@F0P9K@@[C8@@@[[@@]8K/,)@GZR 0]8L/,$]82C@@]8NH@@]8O/@@@GF/G@@GHC8@@@[HM )@@G@@[@@]8K/,)@GZC@@]8O[@@]8MC@@]8N"^@]8M=@@@G;/G@@GQC8@@@[[@@]8K/,)@GZ/,0@FIHN )@@G@@@@@]8N@@@]8O[@@]8K/@@@GX/G@@GY/,)@GZ @@]8KR@K]8PR@)]8QR[K]8R/,K@@@C8@@@FHO )@@G@@C@K@G2;@K@@Q;G@@@^;@K@@E[@K@G2R@K]8>R@)]8&R@0]8$R[@]8*R[K]8(R[)]8%R[0]8:HP )@@G@@R]K]8?R])]8!/,K@@@C@F@@@[^@@CJC@F@@[[^@@C=C@F@@][^@@C(/,)@C @@@@@@)^@@@@HQ )@@G@@**PF**@@@@W@@@@@@ @@@@@ @@@@@[@@@@J@@@@@L@@@@@N@@@@@P@ C9K@K@HR )@@G@@[DW@@#K@@@H(A#W@@^ @G@@ '=@@@#C5W@@#:9K@@ /K@@HU/ K@H>&;K@@[N8K@@W3[X)@@HS )@@G@@/K@@HYC[@@G/:[G@@A/KF@@[R;@@@]/KF@@@R;)@@T&;K@@[ @H)@]8#)@HW9!@@G/9(G@@AHT )@@G@@C9K@C@[DW@@#'=@@@#C5W@@#/[V@@[R;@@@_;@@@@AO#@@@L/KF@@@@@W@@AR;/@@D/K@@H3HU )@@G@@R;/@@G/K@@H3R;/@@J/K@@H3R;/@@M/K@@H3R;/@@PC[K@G/%[W@@A/K@@JB;@K@@MABW@@^HV )@@G@@ABZ@@[;GK@@6W8K@@WT8K@@WAFW@@^?8K@#^/K@@J^K^W@@^AB\@@]C J@@@/[@@IJK9@@@ HW )@@G@@[[G@@ ;(K@@AG!Z@@@[DZ@@@RFZ@@[?CW@@^AFW@@^:8K@]G/K@@I9C9K@K@/K@@H-R;?@@AHX )@@G@@R#K@H@;DK@@=O;)@@#:@)@@J/K@@IV(^I@@@/K@@IMRBY@@@CDY@@[G9K@@8/K@@IM;D@@@=HY )@@G@@W9@@@WG[@@@HC[K@G.:8?@@P/K@@I=O;)@@#C Y@@@/[K@IYR#K@@JP;W@@D;GK@@=W8K@@#HZ )@@G@@?[H@H@C[H@H@H9K@@B![@@@L/K@@J]C9K@@E/@K@I0C9K@@^[!Z@@][ J@@@C9K@]G[DZ@@[IA )@@G@@C9K@]F;(K@@AG!Z@@][DZ@@]/K@@I#R;)@]FRBZ@@[&;K@@[ @H)@@8#)@I/P;K@@[C!Z@@]IB )@@G@@[DX@@@/KF@@[R;@@@=/KF@@@R;@@@O/KF@@@R]@]9@R;@@@E/KF@@@R;/@@D/K@@JMR;/@@GIC )@@G@@/K@@JMR;/@@J/K@@JMR;/@@M/K@@JMR;/@@PA]@]9@/,@@PNRB\@@[RB,@]F?@)@@H/K@@JXID )@@G@@C[K@@H/,@@O*A#)@@GR]@]9@/KF@@[R;@@@GR]@]9@/KF@@@R;/@@D/K@@J(R;/@@G/K@@J(IE )@@G@@R;/@@J/K@@J(R;/@@M/K@@J(R;/@@PA]@]9@/,@@PNR]@]9@C[@]8'[[G@@ RBK]8_L@K]8;IF )@@G@@AB?@@^C[K]8;G!Z@@]R;)@@K=4!@@#G!Z@@]R;K@@W!9K@@XR;K@@8AFW@@^/K@@H)R;/@@DIG )@@G@@/K@@K^R;/@@G/K@@K^R;/@@J/K@@K^R;/@@M/K@@K^R;/@@PA]@]9@/,@@PNR]@]9@C9K@C@IH )@@G@@A])]9[*?J@@@/,)@P9@@@K/K@@L&9!I@@^9.H@@^/K@@L(C[I@@B%[H@@B/K@@L(0@I@@#0@H@@#IP )@@G@@/KF@@@C9@@@[C Y@@]/KF@@[C[X@@@G[X@@[;D@@@=W9@@]FG Z@@[R#)@@L/KC@@@R;/@@GIQ )@@G@@/K@@L"R;/@@J/K@@L"R;/@@M/K@@L"R;/@@P/K@@L.R;/@@D CH@@] ^H@@# ^H@@]A]@]9@IR )@@G@@AA0]8/9!H@@]9(@]86%8/@@D/K@@MC9!@@H (@H@@^9(H@@^R;\@@@O;)@@#C Y@@@:8?@@SIS )@@G@@C[K@G./[K@MDH Z@@@T9K@@W[DK]8_CDJ@@[G!J@@]C9K@@K=5X@@#G9@@@^!D@]8_/K@@J]IT )@@G@@[D@]8_RB\@@[C I@]FG9@@@[[[@]85=5X@@#G9@@@[[ I@]FC5H@@#)9@@@):8/@@P[5X@@#IU )@@G@@/,0@K-/K@@N[R#)@@G9?@]8.C[@]85%8/@@D/K@@M\CDY@@][DX@@][DI@@]/K@@M8C Y@@]IV )@@G@@[ X@@][ I@@]%8/@@P/K@@M8C Y@@#[ X@@#[ I@@#/K@@NK/,@@P)1@I@@#/K@@M_/,@@O*IW )@@G@@0@I@@#/K@@NL/,0@K"/,0@PV/K@@NLRA0]8//G@@HT/)@@HT9?@]8.RA0]89RF)]89C[K]85IX )@@G@@/^)@N'/,@@L?C[K]85/>@@NI[ Y@@@/K@@NL[DY@@@/K@@NL/,@@P)C[K]85RA0]8//,@@O*IY )@@G@@/,@@P)&;K@@[&;)@@[C5H@@#+9@@@Z[5X@@#N?Z@@]C9K@@K=5X@@#N8K@@CM#!)@@RB)]8_IZ )@@G@@:8/@@D*@I@@D/K@@N&'=@@@?;@@@@MA#I@@D9?@]8.9!@]869(H@@]CDK]8_[DZ@@[R#K]85JA )@@G@@%8/@@D/K@@K;C!I@@#%9@@@A/K@@N3 )G@@SA#W@@T%9@@@ /K@@K;C8K@@[[)W@@S ^G@@PJB )@@G@@ CG@@Q/K@@K;')I@N;/K@@NK[ V@@][ V@@#[DV@@]R;/@@D/K@@OCR;/@@G/K@@OCR;/@@JJC )@@G@@/K@@OCR;/@@M/K@@OCR;/@@PAA0]8//,0@K-/K@@OPR#)@@G9?@]8./,0@PVRA0]8/%8/@@DJD )@@G@@/K@@K;C[K]88:[W@@T @G@@T/K@@K;RA0]8//K@@JYR;/@@AO;0@@#CDZ@@[%9K@]G/K@@OYJE )@@G@@ ^J@@[ @J@@@*^J@@[/K@@O&%8/@@P/K@@OS @G@@ K@@@H(A#W@@^/K@@H)R;@@@+/KF@@@JF )@@G@@[D@]89R#)]88[[K]88AB)]89H9K@@[T!Z@@]G9K@]G;D@@@=W9@@@WG J@@@9(@]8'CDZ@@@JG )@@G@@;DK@@A?[@@@L/K@@P^H[@@@LT9@@@WG J@@[G9@@]GG[@]8;[[@@@I[ @]8_G!J@@]:8/@@JJH )@@G@@G9@@@^C Z@@]![K@@K/KC@@@C9K@C@A])]9[*?J@@@/,)@P ?J@@@/KE@@@[@@]9] @@]9#C8W@@@KCK]9]JM )@@G@@H8)@@[H8)@@V&;K@QMC@@@@H'=@@@H(@@]9#[@@]9#G8W@@@ @H@@@>@@@T1/K@@QJ>@@@T2JN )@@G@@/KF@@[C8H@@@?8I@@@/K@@P_C@@@T0C8K@@#/KF@@@C@@@T>C8K@@[/KF@@@[@@]9#C@@@T:JO )@@G@@C8K@@]/KF@@@L8@@@[C@)]9]/@K@Q%G8)@@[*@I@@@?CY@@@/K@@QZG),@@@/K@@QT%CI@@@JP )@@G@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@T3/KF@@[O<,@@@O;)@@[*@I@@@JQ )@@G@@*4I@@@/KF@@@%CI@@@/K@@Q(R#I@@[/KF@@[N8W@@@C^@]9]G8@@@[C9K@@[ @@]9LN8)@@@JR )@@G@@(@G@@@/K@@RX(4G@@@/K@@RH%1W@@@/K@@RXC?W@@@!8K@@A/K@@RK%(K]9L @@]9K[(K]9LJS )@@G@@9??@@[C-G@@@:9@@@[C@0@T3')H@SHH9@@@[T9@@@AG>G@@@')H@SPG)G@@@G8@@@[/K@@Q8JT )@@G@@:9K@@[/K@@RPC*?@@@:8)@@.N8)@@[%[K@[[/K@@RH/K@@R^%@)@T3[5@]9K:@)@T3[-K]9KJU )@@G@@/K@@RH(@@@[]:(K]9L/K@@R+[(K]9L @@]9K:[K@[[/K@@R%G9K@@[*@G@@@/K@@Q7 @@]9KJV )@@G@@ @@]9L/KF@@@:(K]9L *@]9L9?K]9K98V@@@C8@@@-[=@]9L(?@]9L/KF@@[C@@]9XD8)@@@JW )@@G@@C80@@@C!@]9L8^@@R.1@@@@I!8)@[@C80@@E[))]9L[=0]9L/KF@@[C8K@@@;=@@@A?8K@@'JX )@@G@@?8K@@0/K@@SC(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@R6/^0@R9%8K@@+:8K@@-C8.@@@JY )@@G@@/@0@R9/K@@R69*)]9M9*)]9O[@)]9Q[@)]9R[@)]9S9*)]9T9*)]9V[@)]9X/K@@RS[1@]9KJZ )@@G@@[!@]9K[(@]9K[>@]9K[5@]9L[1@]9L[!@]9LC80@@F+8K@@_:8)@@ ;^@@@A8#0@SZ9*@]9 KA )@@G@@C@@@T4C@K@T5C8)@@BC@0@T3[@"]9C8#)@S*N4K]9K9!@]9M/\)@TQC9K@@*(4@]9K*)@]9KKB )@@G@@')H)@@N0K]9K9!@]9O*@@@[[/K@@S7C[@@T6N8K@@^/\)@TQN?K]9K(@@@[[/K@@T[C9K@@(KC )@@G@@')H)@@C[@]9Q/\)@TQC9K@@)')H)@@(*@]9K*=@]9K/K@@TBC@@@T7'=@@@J/KF@@@C9K@@/KD )@@G@@')H)@@N*K]9KC[@]9R/\)@TQN=K]9K(@@@[[/K@@T^C9K@@/')H)@@C[@]9S/\)@TQ/K@@T^KE )@@G@@;>@@@A')H)@@8KK@TO/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@TY[-W)@@Q;K@TSKF )@@G@@/KJ@@@PROCESSOR CALL ERROR @[^@T-ABNORMAL RETURN FROM READ$ @[ @T&KG )@@G@@TOO MANY SPECIFICATIONS @[^@T?]@@@@@[@@@@@ @@[]9C@@[@TSTPF$ @@G]9^KH )@@G@@/K@@@@C^W@@CC0?@@CC9K@@#%8)@@[C9K@@^[1W@@CC[I#J=[1G@@#%9K@@#/K@KT8H8K@@[KI )@@G@@?8K@@[/K@KT8C@)#R_:8)@@ /K@KT8C^?@@C[C?@@D'^@@)2/K@KT8/K@@@@C@0#R"0@G@@#KJ )@@G@@'=@@@A*4G@@#'^@@1-C8)@@K[0?@@#'^@@-ZC8)@#)C0W@@C:8K@@]/K@@UXC8)@#)?9@@@KKK )@@G@@C8)@^@[C?@@^'=@@@[/K@KUHC8F@@][@@#OQ/\)[LX[@K@@JC9@@@AC@_@@@[[@#R_/\@@*6KL )@@G@@/K@@VIC^J#N70@G@@#'=@@@A*4G@@#'^@@1-(@G@@D/K@@U"(^G@@C/K@@U/C1G@@C?9@@@#KM )@@G@@/K@@U/C1G@@#%9@@@('^@@Z80@G@@#'=@@@A*4G@@#'^@@1- CG@@^/\)@0&C1J#N7!9@@@KKN )@@G@@/K@@VGC8K@@)[0W@@# 4G@@#'=@@@[ @G@@E @G@@C @G@@^ 4G@@A @G@@I @G@@B/KF@@]KO )@@G@@ @G@@ /K@@V '^@@09C@@]9Y'=@@@I'^@[J#R]0#OQ/KF@@@C8F@@][@@#OQ/\)[LX[@K@@JKP )@@G@@C9@@@ C@_@@@[[@#R_/\@@*6/K@@W8C^J#N7(?G@@C/K@@V&'^@@?'C@@#R0^^W@@^^^W@@DKQ )@@G@@'^@@UH ?G@@CC1J#N7?9@@@K/K@@XG*^G@@D/K@@V0'^@@?'C@0#R"C^J#N7^^W@@D^^W@@^KR )@@G@@'^@@-ZC1G@@C*4G@@C/K@@V80@G@@#'=@@@A*4G@@#/K@@XDC9K@@_=9@@@[[1W@@E!9@@@#KS )@@G@@/K@@W](^G@@C/K@@W]'^@@-]*4G@@C'^@@-]RBW@@CR3?@@C:8)@@^%CW@@D/K@@WS'^@@Z8KT )@@G@@C8K@#)AFW@@D*4G@@C/K@@WR'^@@?7*@@@[[/K@@WO0@G@@#'=@@@A*4G@@#'^@@1-/K@@WRKU )@@G@@R;K@@[A7W@@C^^W@@D ^G@@CC G@@^*4G@@C'^@@0Y 4G@@CC^W@@CC1G@@E[!@]9*K^W@@DKV )@@G@@G8K@@[[^W@@C ^G@@GC[@]9*[[I@@@[[G@@EC1G@@C:9@@@#/K@@W\:9@@@^/K@@W1'^@@T8KW )@@G@@C1G@@C%9@@@#/K@@W1C9@@@^[1G@@C'^@@Z80@G@@#'=@@@A*4G@@#'^@@1-/\)@0%/KF@@]KX )@@G@@C1J#N7R#@#R0%9@@@-/K@@X^/G@@X@C@@]9('=@@[S/KF@@]C[@]9([[G@@@'=@@[>/KF@@]KY )@@G@@'^@@09C@@]9:'=@@@I'^@[J#R]0#OQ*^@@ZU/KF@@]'^@@1-(@G@@D/K@@XMC1G@@C:9@@@^KZ )@@G@@'^@@Z8/\)@0%0@G@@#'=@@@A*4G@@#'^@@1-C9@@@D[1G@@#'=@@@[/KF@@]C8F@@#[@@#OQLA )@@G@@ @@@@JC8;K@@[@0@Y>[@0@Y/C@_@@@[@0#R"C^J#N7/@F@@#1@J#N7/K@@X/C8)@@6:4\#N7LB )@@G@@/KF@@#C@?@@[[@)]'#C[J#N7R#@]'G'=@@@J/G@@X';D@@@+/>F@@#R;@]'# @@@@JC8;K@[LC )@@G@@ 4G@@#*@J@@@'=@@@#(4G@@#/KF@@#/K@@X'/\0@ZM/KF@@#*?G@@]/KF@@#C5J#N7%9@@@QLD )@@G@@/K@@YW(4G@@A/K@@YH 4G@@A0@G@@#'=@@@A*4G@@#'^@@1-C9@@@C[1G@@#'=@@@#*4G@@#LE )@@G@@'^@@1- @@@@JC8;K@[C@\@@@/@)@YQ:8)@@]/\K@Z^ ^G@@C ^G@@D @G@@ C G@@^ CG@@^LF )@@G@@(@@@@K/KF@@#'^@@0Y/KF@@#9!G@@C99@@Y\C0/@@#C1G@@C%80@@(?9@@@#/K@@Y\A]0]'CLG )@@G@@/,0@VQ@@@@@@@@@@@@R]0]'C0@G@@#'=@@@A(4G@@#/K@@Y\C4/@@#%80@@]/\0@ZL @@@@JLH )@@G@@C8:K@[C@0#R"C^J#N7 4G@@#C@,@@@/@)@Y_%8)@@]/K@@Y'/\K@Z^/K@@Y_A]0]'C/,0@U+LI )@@G@@@@@@@@@@@@@@R]0]'C/\)@0&R;)@Z3%8:@@@ @J#N7/KF@@#C@0#R"[@@@@KC@?@@@[@)]'ELJ )@@G@@C@@]'H'=@@@J[@@@@IC@@@@K1@@@@I @J#N7/C!@@@/\0@ZL/KH@@@RF?@@@[@)]'@'^@@09LK )@@G@@C@@]98 ^@#OR'=@@@I0@@]'B'^@[J#/KJ@@@/K@@@@C@0]'B/C0@Z)C80@@Y*^J#N7/K@@Z+LL )@@G@@8#0@ZY/K@KZUC^J#N7C5J#N7%9@@@Q/K@@Z1(4G@@A/K@@Z) 4G@@A0@G@@#'=@@@A*4G@@#LM )@@G@@'^@@1-C9@@@C[1G@@#'=@@@[/K@@Z)[@0]'B/,0@XW@@@]'B@@@]'F@@@@@@C@0]'B/K@@Z)LN )@@G@@/K@@@@C@0#R"C1G@@C%9@@@#/K@@)UC^W@@DK^W@@CC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@GLO )@@G@@[[Y@@[[[W@@E[[X@@@CDW@@G CG@@G @G@@FG8)@@]G9K@@# @@@@KW9@@@W/[K@)PD[K@@LLP )@@G@@G9K@@W8^K@)M&;)@@[ @I)@@8^K@)NH^?@@D[C?@@D[^?@@C'^@@)2/K@KZ8C^?@@CG^?@@DLQ )@@G@@C W@@C @@@@KW9@@@W/[K@)PD[K@@LG9K@@WH9K@@[C1G@@E[!I@@@[1Y@@@C G@@G[ I@@@LR )@@G@@G9@@@[[ G@@GC9@@@)[5I@@@[(I@@@C[I@@@[[G@@EG8)@@[/[K@)P/K@@)L/K@@@@0@G@@#LS )@@G@@'=@@@A*4G@@#'^@@1-C8K@@C[0W@@#'^@@-ZN^W@@^C@?@@D[@?@@^*4G@@C^^W@@D*CG@@^LT )@@G@@'=@@@[/K@K)2/K@@@@C8K@@([0W@@# 4G@@#C1J#N7!9@@@K/K@@-NN80@^@^C/@@^N^/@@#LU )@@G@@C1G@@C/-@@-J @@@[#'=@@@#^^/@@#*4G@@#/K@@-TN^/@@#^C/@@^(@G@@ /K@@-X'^@@-ZLV )@@G@@/K@K-]C5G@@#!9@@@#'^@@1-/K@K-] CG@@^/K@K-]/K@@@@C1J#N7?9@@@K/K@K-ZCCW@@^LW )@@G@@+8KB__/@)K-Z0@G@@#'=@@@A?9@@@S/K@@-! @@@@HW8K@@W;GK@@=C0W@@#:8K@@(D@)@@ILX )@@G@@G@?@@ [@?@@ CG@@^/C)K-Z @G@@ !9@@@ST8)@@WOB?@@#AB?@@#AB?@@C/K@K-Z @@#HYLY )@@G@@ @@#HZ @@#HV/KF@@@*4@#HY/K@@+J+8)@@JR#)#HZT8)@@EO#0@@IA#0#HZR#)#HY(4@#HZLZ )@@G@@/@:@@@T8)@@EO7)#HZ 4@#HZR#0#HZA#)#HY/KF@@@R#)#HVO;)@@[A#)#HV9?)#HY/KF@@@MA )@@G@@/K@@@@9!@#HY'^@@+Y/ KK+OC9K@@[/K@K+O/K@@@@9!@#HW'^@@+Y/K@K+U/K@@@@/[@K+YMB )@@G@@!9@@@)/K@@+>;(K@@A;H@@@A/K@K+YRB)@+Y:8)@+R/K@@@@'^@@09R#)#R6&;)A@@A#)#IQMC )@@G@@D@@#M%/\K@20 4@#R5/K@K+Y/K@@@@ @@#H)/,0@-;'^@@+5/K@K+0/K@@@@9?)#HY9*)#HWMD )@@G@@R#)#HVA#)#HU/,0@-;/K@K+5 @@@<^AA0@<[N@K#IU @@#IU/K@@@0#IF/K@@=4"0@@@JH8@@K@/@F@@@S@@#H0AA0@>F/^@@=7E@@@@G/K@@=;R#@#IG'=@@@IMM )@@G@@/K@@=?AB@#IED@K@@G/,0@+/RJ@#IE9?K#H-9=K@@J98K@>D/GK@>]"*0#IHH8@@@[/K@@=;MN )@@G@@9?K#H<9=K@@J98K@>A/CK@>EG8@@@["?0#IH/K@@=;G9@@@[[^@#IE/K@@@@980@>5"0K@@JMO )@@G@@P;K@J5;?!@@@[ K#ID?9K@@B @@@@J!9K@@OC9K@@NC@@#S' ^@#H1C@K@@IU8K@@E/@0@>)MP )@@G@@;C0@@[U80@@E;*0@@[[@0#H39)K#H2C@0@@K[@WR @@#H3G8K@@ H@@#S;MQ )@@G@@/K@@>%C@W#H4G8K@@[[@W#H4?8K@@E/KF@@@H8K@@E[@W#H48#@@>$C8K@@[[@K#H3G^K#IEMR )@@G@@[^K#IE[^@#H1/KF@@@[ K#IDC8K@@O[^K#H1/KF@@@/K@@@@C[@#IY[ @#L][[@#SR[[@#R6MS )@@G@@C@@#R0C1J#N7:9@@@)/K@@2#0@J#N7/K@@&D:9@@@=/K@@&R:9@@@-/K@@&O/K@@&Y%9@@@=MT )@@G@@:9@@@>/K@@&L%9@@@-/K@@&YC9K@$+N8K@[L/K@@&TC9K@$(N8K@] /K@@&TC9K[B!N8K@[LMU )@@G@@/K@@&TC9K[BWN8K@] [ K[J.[ K[K[^^K#NM^^K#R;/K@K>9C[@#IZ[[@@9!(@G@@D/K@@&(MV )@@G@@C0W@@C/@K@&0:8K@@^/K@@&9%8K@@#/K@@$O/K@@&_'^@@?'C@@#R0^^W@@D^^W@@^N8K@#)MW )@@G@@^CW@@D/K@@&+RBW@@DC[@#IXC[K#S' @H@@[[[H@@@[[G@@E[[X@@]C9@@@][ G@@CC9K@$1MX )@@G@@N8K@@^^0W@@C ^G@@GN8K@] /K@@&TC9@@@_[1G@@E*4G@@C/K@@$J'^@@?7C@@#R0(@@@[[MY )@@G@@/K@@$JC8K@@[[4W@@C^^W@@D ^G@@CN8K@#)^CW@@D'^@@0M/K@@&90@G@@#'=@@@A*4G@@#MZ )@@G@@'^@@1-/K@@$E'^@@-Z(?G@@C'^@@-]*4G@@C'^@@-] ?G@@CC0?@@CC9K@@_:8)@@[[1W@@ENA )@@G@@C[I#J=[1G@@#'^@@0M/K@@&9/K@@@@C[@#I)C@@#R0[[G@@@'=@@[>C^K@$+/K@[B(/K@@@@NB )@@G@@'^@@'%C@@#R0C[@#NT[[G@@@'=@@[=C^K@$(/K@[B(/K@@@@C80@@PC@)#S":@\#SS8#0@$4NC )@@G@@G80@@[A]@#S\C@@#R0 4G@@E[@0@[]C0?@@E[??@@E[0/@@ER]@#S'C G@@G[ G@@EG9@@@[ND )@@G@@[ G@@GC8)@@C[*?@@EN@/@@E/K@@*CN@8/K@@?N'^@@09C@@#I&RFK#J?ABK#JF/K@@?NC1J#N7?9@@@K/KI@@@OB )@@G@@CDW@@^?9@@@S/K@@?* @@@@KW9@@@W;H@@@=G[W@@ C[G@@B(@@@@KC[G@@ [[W@@BH[K@@KOC )@@G@@![W@@I[[W@@IC[G@@BG[G@@IH[G@@H/HI@@@C9K@@[[5W@@A/KI@@@/K@@@@ @@#K /K@@?.OD )@@G@@/K@@@@C@K@?'[@K#K C^K#K^ @@@[[P;K@@[(CH#KG/K@@!S8#K@!@C^)#KF/@)@!GP;)@^@OE )@@G@@CC0#KFP;0@@[?@)@@J/K@@!G[^)#KF/K@@!NC^)#KEP;)@^@CC0#KEP;0@@[?@)@@J/K@@!)OF )@@G@@[^)#KEC@K#K^G8)@@[[^!R#@@@HR#K@@K'=@@@I/DK@3KR#@#M&'=@@@IR#@#L]'=@@@ICG@#R0/@@@3SPL )@@G@@0@@#R0R;G@@[RFG@@@AB@#M@R#@#M$'=@@@I(^@#L@/G)@3=/G)[J# ^@#L@ @@#R9 @@#K"PM )@@G@@(@@#S7/KI@@@R@K#S5N[@#S6 @@#S7/KI@@@ @@#K"'^@[J#/KH@@@/C)@3W'=@@@I/K@[J#PN )@@G@@C@:@@@CDF@@@!9@@@^R#,@@@+9@@@[/[K@3W/K@@3V 4@#R1 @@#S9 0@#R1 @@#R2 @@#NEPO )@@G@@ @@#NNC9K@6<[ K@+$C[K#NA[DK#R5C9K@9<[ K[K C9K[KF[ K[KEC9K[KZ[ K[KTC[K#NBPP )@@G@@[[K#ND/,0@9I:8)@@(/K@@4D%8)@@ /K@@2=/K@@4#C[K#ND[[K#NGR;@@@@ @@#NF *@#NEPQ )@@G@@ )@#N /,0@-;C9@@@@/,0@9I/KI@4N/KG@5U/KG@5U/KG@5U/KG@5U/KG@5U/KG@5Y/K@@5NPR )@@G@@/KG@5U/KG@5U/KG@5&/KG@5&/KG@5+/KG@5+/KG@5%/K@@5R/K@@5R/KG@5U/K@@5N/KG@5UPS )@@G@@/KG@5U/KG@53/KG@57/KG@5U/K@@5N/KG@5U/K@@5N/KG@5U/KG@5U/KG@5U/KG@5;/KG@5UPT )@@G@@/KG@5U/KG@5_/KG@6#/KG@6R/KG@5U/KG@5U/KG@5U/KG@5U/KG@5U/KG@5U/KG@6B/KG@5UPU )@@G@@/KG@5U/KG@5U/KG@5U/KG@6V/KG@5U/KG@6F/KG@6F/KG@6F/KG@6F/KG@6F/KG@6F/KG@6FPV )@@G@@/KG@6F/KG@6F/KG@6F/KG@6Z/KG@5U/KG@6J/KG@6N/KG@5U/KG@5UA<)#N %8@@@#R;)@@APW )@@G@@/KG@5+(4@#S9A<)#N /KG@5,/K@@6[^0#N>C @#N>% @#N-/K@@_]CD@#N>HD@#N-/D@@_DRV )@@G@@D[@@@KC[K#N-[[K#SRH9@@@[C8)@@ '^@@;R8^@@"_/K@@_D? @#N-/K@@_DC@0#N-[@0#SRRW )@@G@@C8)@@ '^@@;R/K@@"4C@0#N>[@0#SR/K@@/JR7K#NE:8K@@^/K@[@I'^@@9,C^K#R1C@X@@@RX )@@G@@/CK@_OD@K@@H/\0@=)[ @#ICH @#NF/[@@_UD[@@@K/H@@_=C^)#R1(@I@@@/K@@_Z0@I@@@RY )@@G@@/[@@_=C)0#N :80@@J'^@[ ,'^@[#"/K@@_G'^@[AI/K@@_G'^@@9,C K#NF?9K@@H/K@@_5RZ )@@G@@H9K@@HR;)@@ R#K#R_:8K@@H/K@@_2'^@@;F8^K@_\/K@@_4'^@@;R8^K@_2C9K@@GR;K@@#SA )@@G@@T@K@@LC^)#R1C[I@@@;[H@@@H9K@@[R#K#R_:8K@@H/K@[@AR#)@@K;[@@@-;G)@@=R;)@@ASB )@@G@@;^)@[ '^@@;F8^K@_"/K@@_&R#)@@K;[@@@-;G)@@=R;)@@A;^)@[ '^@@;R8^K[@A/K@@_&SC )@@G@@'^@@9,R3K#R1:8K@@[/K@@_K:8K@@ /K@@/Q/K@[@Q'^@@9,DHK#NN] K#IC/HK[@UC9K@@@SD )@@G@@HDK#NFH9K@@^ @@@@IR7K#NE:8K@@]/K@[@G/K@L[?RJ0#NNOJ0#IEAB0#IEOF0#NFAB0#NZ @@#H3/C0[]( ^@#ID @@#IESQ )@@G@@ @@#H3R;K@@OABK#H1/K@L[?'^@@9,'^@[[?CH@#IE/H@[#+/[@[#]DH@#IE] @#IC/K@[#ESR )@@G@@*C@#NF/K@[#CD9@@@[[ @#H1] @#IC/K@[#E[ @#ICD9@@@@H9@@@[HD@#NFG @#NF/H@[AGSS )@@G@@C^)#R10@I@@@/[@[AG'^@[#0C5@#NE%9@@@^/K@[]'C[@#NY[[@#NFR;)@@ C9K@@]R#K#R_ST )@@G@@:8K@@H/K@[#Z'^@@;F8^K[#W/K@[@I'^@@;R8^K[#Z/K@[@I(@@#H3G9@@@[/H@[#&D9@@@@SU )@@G@@[ @#IE(C@#NF/K@[#^DH@#IE!D@#NFCD@#NF] @#ICC9@@@[] @#H1/K@[#D/K@@@@'^@[^[SV )@@G@@0G@#IC/K@[#/R;)@@.R#K#R_:8K@@H/K@[#''^@@;F/K@[#;'^@@;RCD@#NF'^@[ A/K@L#0SW )@@G@@/K@@@@ ^@[^[/K@[^]/K@@@@/[@[^(H9@@@]R;)@@ /H@[^IR#K#R_:8K@@H/K@[^G'^@@;FSX )@@G@@8^@[^D/K@[^I'^@@;R8^@[^GC^K#R11@H@@@/K@[^@K#N1/K@[^@K#N2/K@[^/K@L^['^@@;RR;)@@0TF )@@G@@/K@[ ?'^@@;R8#@[ :/K@L^[/K@@@@R#K#R_:8K@@H/K@[ _C^K#R1C@X@@@/CK[ 9/@K[ 9TG )@@G@@C8)@@-'^@@;FH9@@@[C8)@@08^@[ . @@@@K/K@L ,'^@@;F/K@[ 'C^K#R1C@X@@@/CK[AATH )@@G@@/@K[AAC8)@@-'^@@;RH9@@@[C8)@@08^@[AE @@@@K/K@L ,'^@@;R/K@[AB'^@[AI/K@[#MTI )@@G@@/K@@@@C K#NFR;)@@*R#K#R_:8K@@H/K@[AT/K@[AQ'^@@;F8^K[AP/K@LAI'^@@;R8^K[ASTJ )@@G@@/K@LAIR#K#R_:8K@@H/K@[A1%8)@@'/K@[A!/,0@9I:8)@@'/K@[A>'^@@;F/K@[A)R#K#NDTK )@@G@@A#K#N*/,0@9I:8)@@'/K@[AUF )@@G@@;C)@@A%@)#P"/K@[D_+@@#P_/@K[D_/K@[E#C^F@@[C^G@@@C[Z#O.[[K[E?@@@@@@/K@[D1UG )@@G@@C^V@@[C[Z#O.[[K[E1@@@@@@[@H@@@/K@[D1C[Z#O.[[K[E6@@@@@@A#K@@K9?V@@[A#H@@@UH )@@G@@[[I@@@/K@[D1A]0#O\ @@#O0 @@#O1 @@#O,C@K@@J&'0@@[C[F)@@'^@[F\[D@#O!*4@#O!UI )@@G@@/K@[FD'^@[F\/K@[FFC8@@@2[C@#O![^)#O!'^@[F\!9@@]@/K@[FO/[@[FO[D@#O,'^@[F\UJ )@@G@@[^)#O,'^@[F\[@)#O0'^@[F\[1@#O?'^@[F\(@@#O0/K@[FWC8@[D@[@@#IJC8@#O?C@0@@HUK )@@G@@C[Z#O.[[K[F)@@@@@@C4@#O?(@@#O0/K@[F%C[@#O?C@K#O0[[H@@@ @@#IJ(@@#P5 4J#O2UL )@@G@@C[@#O1C@)#O\R]0@@I&]0@@K/K@[D2/K@@@@C9K@@[G[K#O1[[K#O1*0F@@@/K@[FS @@@@JUM )@@G@@C8:0@@C[I@@@/K@[F\/\)[LXN8:K@[C@.@@@&'0@@#/\)[LBN8K@@^^@K#R_/\@@*6/K@[GCUN )@@G@@/@K@2#C^@#R0(4G@@A/K@[GCC8K@@]/K@@10C9K@9?[ K[KB^^)#NB/\)@'=N8K@@EC@K#NWUO )@@G@@C@)#NXM#!)@@'^@@>9C1J#N7C9K@@(?9@@@)%1W@@#/K@@310@G@@#'=@@@A 0G@@#/K@@31UP )@@G@@'^@@09R;F@@@L8@@@[RB!@@@?8)K@@/K@[G+H8)K@@RB,@@@P;)@@[RB,@@@N@"@@@R#K@@GUQ )@@G@@RF!@@@/^)[G%O;K@@[/K@[G&:8)/K@/K@[G*P#K@@GABK[GU/K@[G;'^@@09C@@#RY/K@[G7UR )@@G@@'^@@09C@@#RZ/K@[G7'^@@09C@@#R)'=@@@I/K@[GV/K@[GU'^@@09R;V@@@OBKLG9A#K#Q]US )@@G@@^@0#QP^@0#QSRFX@@@R#@#R-'=@@@IR#@@@HN80@#C'^@@01A#@#QYRBK#Q]9!@#Q#0@H@@@UT )@@G@@/K@[H4(^H@@@/K@[H8RBH@@@(@G@@[/K@[H8RF/@@[?80@[@9!@#Q 9(@#QVR#G@@@A#@#Q)UU )@@G@@R#@#R+'=@@@IR#@#Q)[@@#QSRBK#Q]RBX@@@CCH@@[?8@@[@/K@[H(R#@@@HP;@@@]RBG@@@UV )@@G@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0[H2/K@[CN8#@[H'=@@@I*@@#Q[/K@[J9'^@[I//K@[CN/K@@@@'^@@09UY )@@G@@C^@[I^'K@#R&*4G)@[/K@[IC[^@[I^RF@LI^'^@@01A#@#Q,R#@#R$RBKLI^/@K[IT'=@@@IUZ )@@G@@L8K@@]N@.@@@RA.@@[RB,@@@P;)@@[AB)[GU/K@[G;&;@@]K/K@[H_'^@@09/\0[JVA#@#Q8VA )@@G@@A#@#Q@R#@#R*'=@@@I/K@[I,'^@@09/\0[JVA#@#R@9?)#R[/K@[I:'^@@09/\0[JVA#@#R@VB )@@G@@9?)#R#9*)#Q9R#@#R('=@@@I(^@#Q]/K@[I1(^H@@[/K@[H/R#@#R%'=@@@I'^@[I/R#@#Q)VC )@@G@@A#@#QSN80@#C*@@#Q@/K@[JKRBK#Q]/K@[HW/K@@@@RB@[J#/@@LI/AB@[I/ ^@[J#'^@@1BVD )@@G@@/K@LI//S@@@@'^@@09RB@#OQP;@@@[R#K#R:N@/@@@/\0[JW/K@[I,/K@[JHN@0LJF'^@@09VE )@@G@@R#K#R?/K@[JDR]0#K4 @@#Q@*CF@@@*4F@@@/K@[JTR;V@@@RFF@@@A#K#Q]/K@[H O'0@@[VF )@@G@@/K@[JMR#K#R!A#K#QSR#@#R,(^@[J#'=@@@I^@0#Q]RF@#Q]'^@@01A#@#QYR#@#R=RBK#Q]VG )@@G@@/@K[J(*^H@@[R#H@@@A#@#Q)/KJ@@@A]0#Q[C8V@@@[@K#Q]C^.@@@N@_@@@^@0#QKCCH@@@VH )@@G@@'^@@01[@@#QIC@@#R\'=@@@IN80@#CC@@#QK/K@[HTR]0#Q[ @@#Q[/KF@@[/K@@@@'^@@@@VI )@@G@@ C@#NN/K@LJ//K@@@@'^@@@@/K@LK@/K@@@@C^)[K#/K@@@@/K@@@@/K@@@@@@@@@@C^)[KCVJ )@@G@@/K@@@@A@K#S5^[@#S6N I@@[^[@#S78L@[KKR^Y@@@&CY@@[CCI@@@;*@@@W;@@@@EG@@#S/VK )@@G@@[@@[KSC/[)@@@@@@@@8L@@@@R@K#S5N[@#S6 @@#S7C^@[KC/KG@@]C/[)@@[^@#R1R3@#R1VL )@@G@@:8@@@^A7@#R1/K@LK_RB@[K#*4G@@@/KG@@@R;?@@[ @@@@JC8GK@@AB)[K#/K@LK [@@#R.VM )@@G@@ C@#R.P;)@@[C[I@@@;(@@@E;D@@@)%9@@@#:9@@@^[D@#R./KJ@@@C[I@@@[[@#S8CDI@@[VN )@@G@@C Y@@[:9@@@];-K@@[[DK#S8/KF@@@/K@@@@(4@#R1/K@[K>RB@#R1O;@@@[AB@#R1 4@#R1VO )@@G@@/K@LK_C1V@@@/ K[LHC!V@@@!9K@@JH9K@@J*@@@@LH9K@@[/SF)@@[DK#OQAA0#OQO]0@@LVP )@@G@@AA0[K#/KI@@@RA0#OQCDK#OQO]0@@LAA0#R9/KI@@@C?V@@@!8K@@)H8K@@)/K@[LYC?V@@@VQ )@@G@@!8K@@J/K@[L+C^V@@@/KI@@@ @@@@JC9@@@J[!@#R3C^V@@@[^K#R3C8K#R3C8XK@@/KI@@@VR )@@G@@C9K@@G/K@[MTC9K@@H&'0@@#C^:@@@/K@[M^C9K@@H&'0@@[C@@@@F(0G)@[/K@[L3H@@@@FVS )@@G@@&'/@@[C8K#S4[^K#S3/\)[LT%8@@@]/K@[MEN@)@@HC8:K@[CCV@@@:8K@[[/K@[M#>8K@@)VT )@@G@@/K@[M ^@)@@IN8:K@[C8K@] [^K[M7[^)#N< @@#N+/K@[MWN8:K@[^@)#R4C@X@@@C8:K@]VU )@@G@@[@K#N+[^)#N'=@@@I'=@@@)/,0[C5WI )@@G@@@@@@@@/,0[!Y@@@#T&@@@J*O@@@#UC/K@[V#@[P@@@[@@J$YC8)#UC[@)J*+/,0[D]@@@J*PWJ )@@G@@@@@J$O@[Q@@@[@@J$Z/C@[PB/^@[VD/,0[D]@@@J*P@@@J$Q@[T@@@[@@J$Z/C@[PI/^@[VDWK )@@G@@/,0[D]@@@J*P@@@J$S@[W@@@[@@J$Z/C@[PP/^@[VD/,0[D]@@@J*P@@@J$V@[Z@@@[@@J$ZWL )@@G@@/C@[PW/^@[VD/,0#T @@@#T&@[+@@@R@KJ*QN_0@@^C@@J*R[@[=1$8N0[P- @@J$-R/K@@ WM )@@G@@N_0@@[C_)@@[N_)@@ [#)J$+C@@J$-S@@J*SC@)J$-;O)@@=W/)@@AG/0@@[T/0@@AG/0__9WN )@@G@@[@0J*C@@J$+T/@@@AG/@__9E@@@@GC@-#T>;)?@@@;C)@@YWO )@@G@@G/)__'/@)[QNC@@J$+T/@@@AG/@__9E@@@@GC@-#T>;)?@@@;C)@@YE@@J*>E[@J*[@0J*;)?@@@WU )@@G@@;C)@@YG/)__'/@)[RWC@@J$+T/@@@AG/@__9E@@@@GC@+#T>;)?@@@;C)@@YE@@J*C@1^1*;)/@@@;G)@@A[[@J*=;@0Z*=[@1^1*C/@@@[G@@J$-[@@J$-G_)@@[8N)[Q2WW )@@G@@O/)@@[8N0[Q0/,0[F9@[@J*P@@@J$\@] @@@'^@[KC@^K^1*@@[@@ '^@[KAC^@#WN[@@J$C/)@@[[@)J$&(@@J$A@KJ*>A@)J*[@]^1$C@-#UC[@+^1*C[[#UFXA )@@G@@[[]^1(C[-#UG[[+^1%C][#UH[]]^1:CE-#UI[]+^1?C"@@@AG]@J$&[]@J$&C@@J$>G@@J$=XB )@@G@@[@@J$>8N0[R'C@)J$&G/)__"[@)J$&(@@J$&/K@[U8 @@J$* @@J$(/,0[*T@@@J*T@@@J*UXC )@@G@@@@@J*U@@@J*U@]$@@@/,0[?I@@@J*T@@@J*U@@@J*U@@@J*U@]*@@@C@@J$&G/@__"S@@J*SXD )@@G@@R/K@@[R/)@@[[@@@[JA@)J$)C@[^1?T/@@@W[@@J$% @@#T* @@#T(C/)@@K[0)#T([C@#T%XE )@@G@@C[@J*+[ @#T%C[[^1:[[@#T:/,0#T]@@@#T&@]3@@@C4@#T([@@J$:(@@J$:/K@[TL/,0[MSXF )@@G@@@[@J$3@]7@@@@@KJ$:@@L^1$@@L^1*'^@[KA/K@[VIC^@#UD[@@J$?C^@#UE[@@J$!C@@J$?XG )@@G@@;@@@@<[@@J$?C@)J$!;@)@@+[@)J$!(@@J$?/K@[T'CD@#UD[[@J$,C.@@@[G[@J$,G/@__"XH )@@G@@;K@@@[R@0J*VQ@0@@K[@@@[IN8M^1$^^K[T%/,0[*T@@@J*W@@@[T%@@@J*X@@@J*T@#C@@@XI )@@G@@N8N@@@@@KJ$<'^@[KAXP )@@G@@/K@[VI/,0[MS@[@J*D@#%@@@@@KJ$Y'^@[KA/K@[VI/,0[MS@[@J*H@#\@@@@@KJ$Z'^@[KAXQ )@@G@@/,0[D @@@J*P@@@J$O@#3@@@/,0[D @@@J*P@@@J$Q@#4@@@/,0[B2@@@J*)/,0[B2@@@J*-XR )@@G@@C/@@@[C/)[ICH@:K@[*@@@@I1@@@@I @@@@GC/)@@[C.@[ICH[FK@@*@@@@K1@@@@K @@@@IXS )@@G@@)@@@@I/=K[Y4C/@@@[*@FK@[ @@@@GC/)@@[*@FK@@ @@@@I)@@@@I/=K[Y4/,0[*T@@@J*_XT )@@G@@@@@J(@@@@J(@@@@J(@@[GJ(FC@@J(XG/@__"R@KJ([[@@@[JN8L^^K[V"/,0[*T@@@J(]XU )@@G@@@@@[V"@@@J(#@@@J(^@[KJ(F8N0[V'/,0[OH@@@J( @[MJ(F/,0[*T@@@J(A@@@J(@@@@J(@XV )@@G@@@@@J(@@[NJ(FC/@@@[[@@HE&C/@@@[H@@J(X/C@[WU/@@[WUD@@J(X[@@J(Y/,0@C]@@@J(YXW )@@G@@@@@HE&@@@IS,@@@CMA@[QJ(FC@@J(XG/@__"R@KJ([[@@@[JC@[!E>[@@J*$R@)J*$N8M#T>XX )@@G@@^^K[W>/,0[*T@@@J( @@@[W>@@@J(#@@@J(^@[VJ(F8N0[WY/,0[*T@@@J(B@@@J(@@@@J(@XY )@@G@@@@@J(@@[XJ(F/,0[OH@@@J( @[YJ(F/,0[?I@@@J*_@@@J(@@@@J(@@@@J(@@[ZJ(F/,0[*TXZ )@@G@@@@@J*_@@@J(@@@@J(@@@@J(@@[)J(FC@@J(ZG/@__"R@)J([[@@@[JN8M^^K[XB/,0[?IYA )@@G@@@@@J(]@@@[XB@@@J(C@@@J(^@[=J(F8N0[X#C/@@@[[@@HE&C/@@@[H@@J(Z/C@[XU/@@[XUYB )@@G@@D@@J(Z[@@J(Y/,0@C]@@@J(Y@@@HE&@@@IS,@@@CMA@[*J(F/,0[-6@[(J(FC/@@@[[@@J**YC )@@G@@ @@J*(C@)J(ZG/)__"R/K@@[[@)@[JA@KJ*&C@[HE>[@@J*%R@)J*%CC+E,P[@)J*:/,0[L0YD )@@G@@@[@J*,@@@J&6@[1J(FR@)J*%C/]CM '^K[K#@@MD)H@@KJ*:@@MF/X'^@[KA/,0[=:@[8J(FYE )@@G@@C@)J**?8)@@#/C,[X9'^@[I^/K@[X./K@[YD@[9J(FC/@@@[G@@J*([@@J*(H@@J(X/G@[Y#YF )@@G@@/^@[Y!/,0[*T@@@J(]@@@J$G@@@J(#@@@J(A@[.J(FR@)J*%C4]CM H4@J$K/@@[YJ/G@[Y:YG )@@G@@/K@[X.C@@J$K;)@@@A;C@@@AC@+CM ;))@@A;C)@@AH@@@@I/@@[YT/C@[Y:/K@[X.C4]D)HYH )@@G@@H4@J$L/@@[YY/G@[Y:/K@[X.C@@J$L;)@@@A;C@@@AC@+D)H;))@@A;C)@@AH@@@@I/@@[Y*YI )@@G@@/C@[Y:/K@[X./,0[-0@]EJ(F/K@[X.C/@@@][@@J**/,0[-3@]HJ(FO/K@@[8N0[XLC@:K@@?8)@@C/C,[>C'^@[I^/K@[>TZR )@@G@@/K@[>X/K@[&R/K@[&)/K@[&5/K@[$5/K@[$8@[BJ2'/,0[F9@[@J26@@@J21@[CJ2'@@KJ2.ZS )@@G@@'^@[KA'^@[JF@[GJ2' @@J2( @@J(7 @@J2%/K@[*IC/@@@[[@@J2:[@@J2?C@@@@@[@@J2!ZT )@@G@@C@@J2%G@@@@@H@@J2:G/@@@[G/@_7J/G@[>?/@@[>?C/@@C0H@@J2%[@@J2!C@@J2!H@@J2:ZU )@@G@@C@)J2:T@)J2"H@)J2"G@)J2/C[@J2";[@@@M'L@@@I[[@@@[[@@@[JC/@@@[G@@J2%[@@J2%ZV )@@G@@R@)J2%C@-)@@[@+J(88N0[>7G/@_7J/^@[*I/,0[!M@@@J27@@@J(9@@@J2%@[YJ2'C@@J2%ZW )@@G@@G@@J(7[@@J(7C@)J2??8)@@#/C,[&F'^@[I^/K@[&J/K@[*I@[)J2' @@J2%C/@@@[G@@J2!ZX )@@G@@[@@J2:C@)J2!H@)@@@/@)[*I/K@[>)C/@@@][@@J2?C@)J2%G@)J(7[@)J(8C[@J2%/[@[*IZY )@@G@@/H@[*I/K@[&@ @@J(6 @@J2\C/@@@[[@@J2?C/)@C0[@)J20/,0[!A@@@J27@@@J(9@@@J20ZZ )@@G@@@[\J2'C@@J20G@@J(6[@@J(6C@)J2??8)@@#/C,[&1'^@[I^/K@[*I/K@[$!@[1J2'C/@@@]AA )@@G@@[@@J2?C/)@@[[@)J2:C@@@@@[@@J2!C@@J2\G@@@@@H@@J2:G/@@@[G/@_7J/G@[$ /@@[$ AB )@@G@@C/@@C0H@@J2\[@@J2!C@@J2!H@@J2:C@)J2:T@)J2"H@)J2"G@)J2/C[@J2";[@@@M'L@@@IAC )@@G@@[[@@@][@@@[JC/@@@[G@@J2\[@@J2\R@KJ2\C@-J(8[@+)@@8N0[$KC.@@@[C[)J(8H[)J(6AD )@@G@@*@@@@M @@@@KC.)@@[G/@_7J(@@@@G @@@@M)[@@@M/>K[*IC/@@C0[@@J20C/@@C0G@@J(6AE )@@G@@H@@J(8/G@[$?/@@[$?C@@J(8H@@J(6[@@J20/K@[&&C/@@@[G@@J2![@@J2: @@J2\C@)J2!AF )@@G@@H@)@@@/@)[*I/K@[&9C/@@@][@@J(8/K@[*IC/@@@[[@@J2?C@)J2\G@)@@@[@)J2\G/)_7JAG )@@G@@/C)[*@/^)[*IC@)J2\G/)_7J[@)J20(@@J20/K@[*D/,0[ON@@@J27@@@J20@]KJ2'C@@J20AH )@@G@@G@@J(6[@@J(6 @@J2\/K@[$+N@0[*K/K@[*L@]OJ2'R]0J2;9!)J2_R@KJ3[R@)J3]N#0J3#AI )@@G@@*4@Z28/K@Z28/K@[IVAA0J2;9()J2_A@KJ3[A@)J3]^#0J3#C@VK@@[@KJ2.C8FK@[[@@J2/AJ )@@G@@C8FK@][^@[&/[^@[$;[^@[$2[^@[&9[^@[><[^@[>)[^@[&OC@VK@#[@KJ2"/K@[=8C/@@@[AK )@@G@@D@:K@@*@@@@I1@@@@I @@@@GC/)@@[C[FK@@G.@__7*@@@@K1@@@@K @@@@I+@@@@I/)K[(AAL )@@G@@C@:K@@?8)@@C/C,[*.'^@[I^/K@[(I/K@[(M/K@[%G/K@[%P/K@[%%/K@[:%/K@[:!@[BJ/CAM )@@G@@/,0[F9@[@J/^@@@J;_@[CJ/C@@KJ/F'^@[KA'^@[JF@[GJ/C @@J;7 @@J3 @@J;8/K@[?#AN )@@G@@C/@@@[[@@J;9[@@J;'C@@@@@[@@J;;C@@J;8G@@@@@H@@J;9G/@@@[G/@_7J/G@[(-/@@[(-AO )@@G@@C/@@C0H@@J;8[@@J;;C@@J;;H@@J;9C@)J;9T@)J/GH@)J/GG@)J/EC[@J/G;[@@@M'L@@@IAP )@@G@@[[@@@[[@@@[JC/@@@[G@@J;8[@@J;8R@)J;8C@-)@@[@+J3A8N0[(?G/@_7J/^@[?#/,0[!MAQ )@@G@@@@@J/ @@@J3B@@@J;8@[YJ/CC@@J;8G@@J3 [@@J3 C@)J;'?8)@@#/C,[%@'^@[I^/K@[%^AR )@@G@@/K@[?#@[)J/C @@J;8C/@@@[G@@J;;[@@J;9C@)J;;H@)@@@/@)[?#/K@[(PC/@@@][@@J;'AS )@@G@@C@)J;8G@)J3 [@)J3AC[@J;8/[@[?#/H@[?#/K@[(5 @@J3^ @@J;.C/@@@[[@@J;'C/)@C0AT )@@G@@[@)J;"/,0[!A@@@J/ @@@J3B@@@J;"@[\J/CC@@J;"G@@J3^[@@J3^C@)J;'?8)@@#/C,[%&AU )@@G@@'^@[I^/K@[?#/K@[:+@[1J/CC/@@@][@@J;'C/)@@[[@)J;9C@@@@@[@@J;;C@@J;.G@@@@@AV )@@G@@H@@J;9G/@@@[G/@_7J/G@[%'/@@[%'C/@@C0H@@J;.[@@J;;C@@J;;H@@J;9C@)J;9T@)J/GAW )@@G@@H@)J/GG@)J/EC[@J/G;[@@@M'L@@@I[[@@@][@@@[JC/@@@[G@@J;.[@@J;.R@KJ;.C@-J3AAX )@@G@@[@+)@@8N0[: C.@@@[C[)J3AH[)J3^*@@@@M @@@@KC.)@@[G/@_7J(@@@@G @@@@M)[@@@MAY )@@G@@/>K[?#C/@@C0[@@J;"C/@@C0G@@J3^H@@J3A/G@[:-/@@[:-C@@J3AH@@J3^[@@J;"/K@[%VAZ )@@G@@C/@@@[G@@J;;[@@J;9 @@J;.C@)J;;H@)@@@/@)[?#/K@[%,C/@@@#[@@J3A/K@[?#C/@@@[BA )@@G@@[@@J;'C@)J;.G@)@@@[@)J;.G/)_7J/C)[:5/^)[?#C@)J;.G/)_7J[@)J;"(@@J;"/K@[:"BB )@@G@@/,0[ON@@@J/ @@@J;"@]KJ/CC@@J;"G@@J3^[@@J3^ @@J;./K@[:RN@0[? /K@[?A@]OJ/CBC )@@G@@R]0J/D9!)J/HR@KJ/JR@)J/KN#0J/L*4@Z/A/K@Z/A/K@[IVAA0J/D9()J/HA@KJ/JA@)J/KBD )@@G@@^#0J/LC@VK@@[@KJ/FC8FK@[[@@J/EC8FK@][^@[%1[^@[:0[^@[:$[^@[%,[^@[(S[^@[(PBE )@@G@@[^@[%DC@VK@#[@KJ/G/K@[*!/,0[OV@@@@@@@@@@@@@@@@@@@@@J/M@[#J/V*@@J/M/K@[?8BF )@@G@@N@0[??/K@[?_@[AJ/V/,0[OX@@@@@@@@@@@@@@@@@@@@@J/M@[DJ/V*@@J/M/K@[?8N@0[?7BG )@@G@@/K@[?_@[GJ/V/,0[MS@[@J/N@[HJ/V@@)J/M'^@[KA'^@[JF@[LJ/VR]0J/W*4@Z/T/K@Z/TBH )@@G@@/K@[IVAA0J/W[^@J/T/KH@@@C8@@@^/\K[!#C8FK@@[^@[?,[^@[?BI )@@G@@C8FK@][^@[?\[^@[?=/K@[?+C8@@@^/\K[!#C8FK@@[^@[?,[^@[?BJ )@@G@@C8FK@][^@[?\[^@[?=/K@[?!AA0J/-R#F@@@AB@[!1R#F@@[R#G@@@AB@J/)R#F@@]AB@J/ZBK )@@G@@AF@J/)R#F@@#AB@[!8R;@@^JAF@J/ZR#@J/Z/,0@P8/K@[!;R;@[[]/,0@QQ/K@[!.9*@@@@BL )@@G@@RB@[!1/,0@HB/K@[!8RB@[!1R#KJ/)/,0@H%/K@@@@RA0J/-/KF@@ '=@@@I'=@@@D9?@J/XBM )@@G@@/K@[!1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/,)@D\BN )@@G@@/,)@EH/,)@D+/,)@EY/,)@GB/,)@GI/,)@GR@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@USE @@@@@@@@@@@@BP )@@G@@, @]D]9ZA REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED _@@S@@BQ )@@G@@@@[]9%@EOF @]G]9?AN ATTEMPT TO WRITE AN EOF-MARK ON CARDREADER OR PRINTBR )@@G@@ER - IGNORED @#C]99ERROR DETECTED WHILE CLOSING FILE OF UNIT BS )@@G@@@BRKPT @@@@@@@)@@@@_____"@@@@@@@FREE @@@@@[@@#]'[BT )@@G@@@@]]'D@[^#G>INPUT EXPONENT TOO LARGE@@@@@@^@@@@@@@@@@@C@@@@@@@@@@@@@@@C@BU )@@G@@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@BV )@@G@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,BW )@@G@@M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&BX )@@G@@PH==5(FESV96UT(3\2B=K@I?7N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@ WARNING **UNNORMALIZED NUMBERBZ )@@G@@(S) BEING EDITED FOR OUTPUT** NL[HPM@@[@@@@@@@@@@@@@@@)@)@@@@]E#H&K^*@@@CA )@@G@@@@@@@@@@@@@@/K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@@@@@@@@CB )@@G@@@@@@@@/K@@@@@@@@@@*[F@@@@@ #SS/K@@*>@@I#SS@@@@@@@[B#I(__A#I0__D#I6__B#I_CC )@@G@@__A#JA@[F#JG__E#JRINPUT FILE $-$ HAS NOT BEEN ASSIGNED. NO PACKET SPCD )@@G@@ACE AVAILABLE INITIALLY THE NTRAN UNIT $-$ IS NOT AVAILABLE FOR STANDARDCE )@@G@@ I/O. DRUM FILE ASSIGNED TO SYMBIONT UNIT FAILURE TO ASSIGN FASTRACF )@@G@@ND FILE $-$BACKSPACE WAS ENCOUNTERED FOR THE UNASSIGNED FILE: $-$ - IGNCG )@@G@@ORED. SEQUENTIAL I/O ATTEMPTED ON UNIT DEFINED AS DIRECT ACCESS @ASG,TCH )@@G@@ ,F///5@@@@@@@@@@@K@@@@@K@@@@@C@@@@@C@@@@@D@@@@@)@@@@@( CI )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@__C#J/ABNORMAL CONDITION DETECTED IN BUFFER HANDLING @@[@@@@@@@@@CK )@@G@@_@_@@@@@E#J?@@##J-'^@@ZU@@@@@@@@@@@@@@@@@@C8K@@@/@K#KOC8)@@@[C)#KFG@)@@HCL )@@G@@P;)@@[[^)#KFC8K]'I[CK#KEG8K@MQP;K@^[[^K#KEG8K@@[C@0#K^[^Z$DBANKFK )@@G@@ @[\@@%@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@-K@@[@^@@]@C@@@@@[;K@@[@^@^8@C]@@@@[;K@@#@^@@]@G'@@@@@#K@@[@^@C/@G/FN )@@G@@@@@@@VK@@[@^@^@@P8@@@@[&@@@[@^@@P@T8@@@@[U@@@[@^@@N@UH@@@@[)@@@[@^@@4@U)FO )@@G@@@@@@[5@@@[@^@]A@VO@@@@@!@@@[@^@]Y@XU@@@@[2@@@[@^@[E@Z8@@@@@%@@@[@^@@X@-]FP )@@G@@@@@@[\@@@[@^@@W@-Z@@@@@0@@@[@^@]M@-;@@@@[]@@@[@^@@N@=H@@@@@=@@@[@^@[T@=)FQ )@@G@@@@@@[O@@@[@^@].@>9@@@@@/@@@[@^@B'@*6@@@@@/@@@#@^@@[@00@@@@@3@@@[@^@@0@01FR )@@G@@@@@@[F@@@[@^@]K@1-@@@@@_@@@[@^@A3@31@@@@[R@@@[@^@HI@'=@@@@[<@@@[@^@@<[B2FS )@@G@@@@@@[C@@@[@^@@:[CP@@@@@9@@@[@^@]9[D@@@@@[I@@@[@^@@-[F9@@@@@6@@@[@^@#+[GUFT )@@G@@@@@@[ @@@[@^@[,[J/@@@@[L@@@[@^@]<[L%@@@@[?@@@[@^@@*[OH@@@@["@@@[@^@A>[O5FU )@@G@@@@@@[8@@@[@^@DY[VU@@@@@A@@@[@^@#5[=8@@@@@D@@@[@^@#5[*!@@@@[X@@@[@^@@/[?+FV )@@G@@@@@@@M@@@[@^@@-[!Y@@@@[;0@@@@ @@5]8@@@@@[;8@@]@ @@@@#D@@@@@#0@@@@ @@H]85FW )@@G@@@@@@@V0@@]@ @@W]9]@@@@[))@@]@ @@E]9Y@@@@[5)@@]@ @@K]9*@@@@@!)@@]@ @@Q]98FX )@@G@@@@@@@$)@@]@ @MQ]'I@@@@@0)@@]@ @@.#G=@@@@@=)@@]@ @@,#H-@@@@@S)@@]@ @@C#IJFY )@@G@@@@@@@P)@@]@ @@A#IR@@@@[O)@@]@ @@^#IX@@@@@/)@@]@ @[(#I-@@@@@/)@@^@ @@%#KEFZ )@@G@@@@@@@3)@@]@ @@G#K4@@@@[F)@@]@ @[*#L@@@@@@_)@@]@ @@!#M*@@@@[R)@@]@ @@+#NPGA )@@G@@@@@@[()@@]@ @@Z#N7@@@@[<)@@]@ @@C#OQ@@@@[C)@@]@ @@I#OY@@@@@9)@@@@ @@A#O?GB )@@G@@@@@@@9)@@]@ @[I#O2@@@@@6)@@]@ @[0#Q@@@@@[ )@@]@ @[K#R0@@@@[L)@@]@ @@]#T@GC )@@G@@@@@@@Y)@@@@ @@##T]@@@@@J)@@@@ @@##T @@@@[?)@@@@ @@Y#TC@@@@@@=@@@@ GH,#T&GD )@@G@@@@@@[")@@@@ @[MJ$O@@@@["*@@]@ @@@@#D@@@@[8)@@@@ @[KJ*&@@@@[8*@@]@ @@@@#DGE )@@G@@@@@@@A)@@@@ @DIJ(6@@@@@A*@@]@ @@@@#D@@@@@D)@@@@ @DIJ3^@@@@@D*@@]@ @@@@#DGF )@@G@@@@@@[X)@@@@ @@FJ/M@@@@[X*@@]@ @@@@#D@@@@@M)@@]@ @@ J/X@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@ARRE$ @]>@@IARRN$ @]>@@JBS1BL$ @@-@@@BUF2 @[<@#-GI )@@G@@BUF3 @[&@#-B1O$ @]^@@@CFE$ @@3@#(CLOSE @]K@@[GJ )@@G@@CLOSE$ @@V@]@DRAIN$ @@Y@@@ECLOS$ @@V@@@ENDEC$ @]'@@^GK )@@G@@ERTRAN @[F@@ EXIT @]K@@^FACIL @##@@@FHS10$ @]>@@BGL )@@G@@FHS20$ @]>@@CFIELD$ @@9@@@FILECT @[?@@@FMTOP$ @]+@@XGM )@@G@@FNCTB$ @]Q@[#FPCENC$ @[]@@3IND$ @]'@[DIOCOD$ @]'@@JGN )@@G@@IOW @#@@@@LCNER$ @]K@@@LCWLK$ @]H@@]LNERT$ @]H@@@GO )@@G@@LOC @@@@@@LTINT$ @]K@@]NAB0$ @@%@@FNAB1$ @@%@@GGP )@@G@@NAB2$ @@%@@HNAB3$ @@%@@INAB4$ @@%@@JNAB5$ @@%@@KGQ )@@G@@NAB6$ @@%@@LNAB7$ @@%@@MNAVC$ @@%@@ENBFGT$ @@3@^[GR )@@G@@NBFMG$ @@3@^^NBFRL$ @@3@B*NBFRS$ @@3@BWNBI$ @@!@@@GS )@@G@@NBLNK$ @[]@@@NBTOD$ @@9@@ZNCA$ @]'@[#NCCC$ @[]@@AGT )@@G@@NCDOF$ @]K@@#NCEF$ @]:@@[NCHAR$ @]'@[]NCJNI02$ @]'@[HGU )@@G@@NCOM3$ @]+@@]NCSP$ @]'@[INC1UL0$ @]'@[ENC1UL1$ @]'@[FGV )@@G@@NDBCV$ @@$@@^NDBIN$ @]B@@'NDBI$ @@$@@@NDIG$ @]E@@NGW )@@G@@NDOUT$ @@!@@?NEE$ @[ @@-NERCR$ @@/@[JNERCT$ @@/@[HGX )@@G@@NERR$ @[L@@ZNERR2$ @[L@[%NERR3$ @[L@][NERR6$ @[L@]1GY )@@G@@NERTRN @[F@@]NERU$ @@/@@+NETF$ @]>@@GNEXIT$ @[]@H GZ )@@G@@NFAR$ @@_@ .NFCA$ @@$@@@@HPACKT$ @]'@@@HU )@@G@@POSN @[U@@APPP$ @]>@@^RDBLK$ @@M@@@READN @[U@@IHV )@@G@@REGSAV @]W@@@REST$ @@9@@QREWN @[U@@@RFTI @@D@@FHW )@@G@@RINF$ @@G@@@RPFET @@D@@,RSX1R4$ @]'@[BSINF$ @@G@@YHX )@@G@@SORTRF @[)@#%SORTX @@#@@@STRACE @]H@@[STREG$ @@9@@CHY )@@G@@SVR4$ @]'@[ASVX1$ @]'@[ TCLFL$ @]H@@^TEMP$ @]'@@_HZ )@@G@@TEXIT$ @[ @@ATNCLL$ @]H@@ UNIT$ @]'@@IUPDDA$ @@=@@@IA )@@G@@WRBLK$ @@Y@@'WRITEN @[U@@KXFOR$ @@_@AU@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL$ @@@@^@B1L$ IC )@@G@@ @@@@MQNTBSZ$ @@@@@ZPL$ @@@@@J@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@*[@@@@*SDFF*@[@@@@*MAP @#@@@@-1,1 MAP @B@@@@ IN XREF,SORTRF,BUIF )@@G@@F2,BUF3,NREAD,FILECT @#@@@@-1 MAP @[@@@@LIB F @[@@@@*NREADIG )@@G@@@#@@@@-2,17 NREAD@ @@@@ CALL READN (NIN,N,E,ST) @ @@@@ IH )@@G@@IF (ST .NE. 0) GO TO 900@]@@@@ RETURN@ @@@@ ENTRY NWRITE (NIN,II )@@G@@E,N) @ @@@@ CALL WRITEN (NIN,N,E,ST)@ @@@@ IF (ST .NE. 0) GO IJ )@@G@@TO 900@]@@@@ RETURN@#@@@@900 PRINT 500,ST@B@@@@500 FORMAT (' DRIK )@@G@@UM I/O ERROR CODE= ',I2)@[@@@@*BUF2 @#@@@@-7,7 BUF2 @^@@@@ IL )@@G@@WRITE (5,500) LF @B@@@@500 FORMAT (' ILLEGAL OP CODE = ',I4) @#@@@@IM )@@G@@-64,64 BUF2 @C@@@@C IF (NW.NE.0) CALL NTRAN(NIN,22,6,NW,22) IN )@@G@@@E@@@@ IF (NW .NE. 0) CALL POSN (NIN,NW) @ POSTION UNIT NIN @[@@@@IO )@@G@@*BUF3 @#@@@@-7,7 BUF3 @^@@@@ WRITE (6,500) LF @B@@@@500 IP )@@G@@FORMAT (' ILLEGAL OP CODE = ',I4) @#@@@@-64,64 BUF3 @C@@@@C IQ )@@G@@IF (NW.NE.0) CALL NTRAN(NIN,22,6,NW,22) @E@@@@ IF (NW .NE. 0) CALIR )@@G@@L POSN(NIN,NW) @ POSITION UNIT NIN @]@@@@*SORTRF @^@@@@-12,12 IS )@@G@@ SORTRF @B@@@@C CALL NTRAN(2,22,10) @ REWIND 2 @ @@@@ IT )@@G@@CALL REWN (2) @ REWIND 2@^@@@@-20,20 SORTRF @B@@@@C CALL NIU )@@G@@TRAN(2,22,10) @ REWIND 2 @ @@@@ CALL REWN (2) @ REWIND 2@^@@@@IV )@@G@@-33,33 SORTRF @C@@@@ ENCODE (25,BUF)A(J,5),A(J,6),LC,A(J,IW )@@G@@8) @[@@@@*XREF @#@@@@-12 XREF @#@@@@ B(I)=A(I) @#@@@@IX )@@G@@-14,15 XREF @A@@@@ FDX(K)=FD(MOD(K,6)+1,B(K/6+1))@#@@@@-17,21IY )@@G@@ XREF @^@@@@ KST=NERTRN(6,IFR2)@A@@@@ IF (KST .LT. 0) GOIZ )@@G@@ TO 110 @^@@@@ KST=NERTRN(6,IFR3)@A@@@@ IF (KST .LT. 0) GOJA )@@G@@ TO 110 @^@@@@ KST=NERTRN(6,IAG2)@A@@@@ IF (KST .LT. 0) GOJB )@@G@@ TO 110 @^@@@@ KST=NERTRN(6,IAG3)@A@@@@ IF (KST .LT. 0) GOJC )@@G@@ TO 110 @^@@@@ CALL FACIL(FCT) @#@@@@-28,28 XREF @ @@@@JD )@@G@@ FDX(K)=FD(J,FCT(I)) @#@@@@-31,31 XREF @#@@@@ FDX(K)JE )@@G@@=1R* @#@@@@-36,36 XREF @ @@@@ FDX(K)=FD(J,FCT(I)) @#@@@@JF )@@G@@-73,73 XREF @^@@@@ CALL IOW(FCT) @#@@@@-98,99 XREF JG )@@G@@@B@@@@C CALL NTRAN(2,22,10) @ REWIND 2 @B@@@@C CALL NTRAN(3JH )@@G@@,22,10) @ REWIND 3 @ @@@@ CALL REWN (2) @ REWIND 2@ @@@@ JI )@@G@@CALL REWN (3) @ REWIND 3@#@@@@-101,101 XREF @#@@@@ PRINT 500 JJ )@@G@@@ @@@@500 FORMAT (' **DONE**') @#@@@@-103,103 XREF @#@@@@94 JK )@@G@@PRINT 501 @D@@@@501 FORMAT (' NO RELOCATABLE ELEMENTS IN FILE') JL )@@G@@@#@@@@-105,110 XREF @^@@@@96 PRINT 502,NTI @#@@@@ GO TO JM )@@G@@120 @D@@@@502 FORMAT (' TOO MANY RELOCATABLE ELEMENTS ',I5) @^@@@@JN )@@G@@98 PRINT 503,ERR2 @#@@@@ GO TO 120 @A@@@@503 FORMAT (' RPJO )@@G@@FET ERROR ',O5) @^@@@@110 PRINT 504,KST @C@@@@504 FORMAT (' UNJP )@@G@@ABLE TO ASSIGN 432 FILE. ',O5)@ @@@@120 CALL ERTRAN(6,IFR2) @ @@@@JQ )@@G@@ CALL ERTRAN(6,IFR3) @]@@@@ STOP ___@@@-1 MAP JR )@@G@@@[@@@@LIB F @[@@@@*NREAD@#@@@@-2,17 NREAD)@@@I@S@@@@@)@M@C@)@@@N#JS )@@G@@@[@@@@)@,@L#@ #@^@/,)@]F/,)@[!/,)@@]A])@@!@@@@@@@@@@@@AA@@@@)@0@(#@ #@ #JT )@@G@@@ #@ #@^@@@@)@]@N@@@@@@@O'0@@^/,)@^1/,)@^P/,)@^G/,)@^ /,)@]W/,)@[)AB@@@@JU )@@G@@)@^[#@K0@K0@K0@K0@K0@K0@K0@@@@A[0@@:A[)@@%A[K@@(A[@@@*A@0@@$A@)@@&A@K@@>JV )@@G@@AA0@^0AC@@@@)@G[##@[@K0@K^@K0@K0@@@@@@@@@@D@@@@S[@@@@LC8@@@]/C@@@Q/@@@@QJW )@@G@@[@@@@SC@@@@@A]K@@?AD@@@@)@O[F#@[@^G@^[@^G@@@@@@@D8@SU)[@@@@LC8@@@[/G@@@)JX )@@G@@/@@@@)G@@@@SD8@SU)/,)@@-[@@@@SAE@@@@)@X[##@[#@[@K0@K)@K^@@@@@@@@@@H8@@@[JY )@@G@@@[&@@]@@@@@@/,0@@@ @@@@L/,)@@-[@@@@SG@@@@SAF@@@@)@>[F#@[]@[@K[#@@K0@@@@@JZ )@@G@@[@@@@[G@@@@TC8@@@[[@@@@TH8@@@[@[&@@]@@@@@@/,0@@@[@@@@UAG@@@@)@,[F#@@K0@^KA )@@G@@G@^G@[@@@@@@C8@@@[[^@@@;G8@@@[C@@@@W[@@@@WG@@@@[G@@@@SD8@@@[ @@@@VAH@@@@KB )@@G@@)@7[N#@[#@@[@[@@@@[@@@@[G^@@^0D8@@@[P8K@@[/,)@@6$8K@@@O8K@@[[@[@@@[@@@@VKC )@@G@@G@@@@VAI@@@@)[[[F#@GK0@K0@K[#@[#@@@@O8K@@[[@]@@[G@@@@VD8@@@[/^@@[ICC@@@VKD )@@G@@[@@@@VC@[@@@R^)@@@AJ@@@@)[E[M^@[#@@^@@@@@@[^@@^0G@@@@[C8@@@[[@@@@@G@@@@]KE )@@G@@D8@@@[P8)@@[/,)@[]$8)@@JO8)@@[AK@@@@)[O[]K0#K0@K0@K0@K0@K0@K0@@@@@C@@@@TKF )@@G@@[@@@@+C@@@@UA@)@@ZR@)@@SA@R@@XR 0@@@R8K@@[AL@@@@)[W[F#@@K0@K^G@@K0@@@@@@KG )@@G@@G@@@@AC@@@@+[@@@@#G@@@@[C@@@@-/,)@]%[@@@@)C8@@@[[@@@@-AM@@@@)[>[EK^G@[@KKH )@@G@@0@K0@K^G@@@@C@@@@-/,)@]U/,$@@,R 0@@=/^@@]UH8@@@[C@@@@K/,0@#>[@@@@^AN@@@@KI )@@G@@)[,[E^G@@K^G@[@@@@@@@@@@/^@@]QH8@@@[C@@@@K/,0@#>[@@@@^G@@@@AC@@@@+[@@@@#KJ )@@G@@G@@@@]AO@@@@)[7[F#@@^G@@K^G@@@@@@@@@H8@@@[C@@@@K/,0@#>[@@@@^G@@@@]C@@@@-KK )@@G@@[@@@@#G@@@@[C@@@@-AP@@@@)]@[N@^G@@K0@@@@@@P8)@@[[@#@@@C@^@@@[@@@@^G@@@@-KL )@@G@@C@@@@][@@@@#G@@@@+C@@@@ /^@@]FAQ@@@@)]E[N@^G@@K0@@@@@@O8K@@[[@#@@@C@^@@@KM )@@G@@[@@@@^G@@@@-C@@@@[[@@@@#G@@@@+C@@@@ /,)@]2AR@@@@)]O[F@K[#@[@K[#@[#@@@@@@KN )@@G@@C@@@@-[@@@@[@@@@^G@@@@AC@@@@+[@@@@#G@@@@]AT@@@@KP )@@G@@)]&[##@[#@[#@[#@[#@@K0@K0@@@@@R 0@@V[@@@@VG8@@@[D@@@@)A[R@@YR 0@@)[@@@@)KQ )@@G@@D@@@@)AU@@@@)],[F#@[#@[#@[@^G@@K@@@@/@@@]8H@@@@[C@@@@]O[K@@)A[K@@A/,)@[7KR )@@G@@ @@@@= @@@@@@[[^@@#.G8@@@[BC@@@@)#6[F#@@K0@K0@K0@K@K@@@@/,)@#,$9K@@@LA )@@G@@O9K@@[/^@@^#H@@@@OC@@@@N[@@@@OC@]@@@[@@@@NBD@@@@)#_[E^G@^[#@[#@[#@[#@[@@LB )@@G@@/@@@^DH@@@@OC@@@@N/,$@@2R 0@@L/,)@^X[@@@@KC8@@@[P9K@@[BE@@@@)^C[#@^G@^[#LC )@@G@@@[#@[#@[#@@@@@@@@@"^@@@MC@@@@N[@@@@MC@@@@O/,)@^X[@@@@KC8@@@[/G@@^FBF@@@@LD )@@G@@)^K[##@H@^G@^[@K0@K0@@@@@@@@@@@@@@@O@@@@@N/,0@#G/,)@^X[@@@@KC8@@@[/G@@^OLE )@@G@@=@@@@[BG@@@@)^S[##@[@K^[#@[#@[#@[#@@@@@@@@R[K@@RR@)@@QR@K@@P @@@@K/,)@^XLF )@@G@@/G@@^W/@@@^V[@@@@KBH@@@@)^)[E^@[@K0@K0@@@@@@@@@@R@)@@&R@K@@>[@K@^0;@K@@ELG )@@G@@;G@@@^;@K@@QC@K@^0C8@@@F/,K@@@BI@@@@)^([##@[#@[#@[#@[#@[#@[#@@@@@@/,K@@@LH )@@G@@R])@@!R]K@@?R[0@@:R[)@@%R[K@@(R[@@@*R@0@@$BJ@@@@)^1@'K[@^[@@)@[@I@S@@@@@LI )@@G@@@@@@@@)^@@@@/,)@@#[^@@@$C@F@@][^@@@+C@F@@[[^@@@HC@F@@@BK@@@@@@@@@@@[#@[@LJ )@@G@@K0@K)@K^@@@@@@@@@@H8@@@[@[&@@]@@@@@@/,0@@@ @@@@L/,)@@-[@@@@SG@@@@SAF@@@@LK )@@G@@@@^@@^@@C@@[@@E@@[@@I@@[@@E@@5@@@@^8@@@@@@@@@@@]LOC SORTX LL )@@G@@@@[@@@@@@@@@@@@@@@@@@@@@^@@@@@@]@@@@/A,B,D LM )@@G@@ *[@@@@*SDFF**[@@@@CTS@@[@B@@@@ IN XREF,SORTRF,BULN )@@G@@F2,BUF3,NREAD,FILECT _@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@[*SDFF**[@@@[CTS@[=LP )@@G@@@C@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)C[SEL C0)*[@@@[CTS@[,@@@@@@LQ )@@G@@*[@@@[CTS@[8@L@@@@G[SEL C0)G9>H1>IL-I->IS)GC)GT2H93IS)IL>G1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)*[@@@[CTS@]]@L@@@@I(,G->LS )@@G@@G1(H1>G))IT9H(+H9?IS)HD,^[-^[3I[>GT(G1(G(=^[0IL\G92GD!^[&HD?G*)I9*HDG)?*[@@@[CTS@]G@L@@@@G[KEL E[>G)?^[-H1=^[[ETNDDBD1 LU )@@G@@C),^@)E-*G*)H1-H(>IS)H9&^[4H[>^[2G(?H9^[>H->H(>H14IS)GD2G*)^@)LV )@@G@@*[@@@[CTS@]Q@L@@@@H-(IT4G(=^[-H-0H[-GL>I-(GT-H-?JC,^@)CL>IT(G->IS)G(-GT*LW )@@G@@^[>H->H(>H14^[,GD!G*?^[4H[>^[,GD!G*)H9&^[4H[>^@)*[@@@[CTS@])@K@@@@G(?G(!LX )@@G@@G(,I))G(,I-2JC)I[\HD,I-3^[-IL>^[?HD3I->G),^@)CL>IT(G->^[>GD ))*[@@@[CTS@]%@K@@@@I-*G*)H1-H(>IS)H9&^[-H-?^[2G(?H9^[>H->H(>H14IS)HD,^[4H[>^[0IL\G92GD!^[&HD?G*)I9*HDG1>IL>H1H14IL9^[0H9(H14^[-IL>^[?HD3I->G),^@)CD,^[>MB )@@G@@H->H(>H14^[>H14IL9^[0H9(H14^[(IS)^@)*[@@@[CTS@]"@L@@@@HD3^[0IL\G-5GT>G))MC )@@G@@GL9^[4H[>^[IK)H92^[-IT3G(!GL?G(2BS)HD4^[3I[>GT(G1(G(3^[4H[>^[?MD )@@G@@H9^[0IL\G92GD!^[>H->H(>H14ME )@@G@@^[2G(IS)GT\H14IL\H))H92^[(IS)H94H[>IL7HD3G*)^@)*[@@@[CTS@#M@K@@@@MF )@@G@@IL>G1>IL>H1H14IL9^[0H9(H14*[@@@[CTS@#W@L@@@@H1-H(>^[IT0H9,G-(H1$^[4MH )@@G@@H8)I-*G*)H1-H(>^[$HD6G(,^[\H0)HD4IS)ETPCLMD9PE-DD1 ^[\IK)C1PD1#E-DD9I^@)MI )@@G@@*[@@@[CTS@#&@L@@@@G->GT?GD2GD4HD\H0,^@)CD,^[5H1=G(&HD,G(=^[3JD!GL\H)) [\MJ )@@G@@IK)G(8I->IL,GD?^[2G(&G(2G(,GT> C)IL>IT5H-4IS)^@)*[@@@[CTS@#0@K@@@@G12H9!MK )@@G@@^[-^[3I(+IL\I(4HD,G*)GT-H-?^[\IK)IL>G1>IL>H1G))*[@@@[CTS@#'@^@@@@I9(I-*HD,^[4H[>^[&HD?G*,*[@@@[CTS@^^MM )@@G@@@B@@@@G1\IL!GD4BK)^@)^@)C[SEL C0)^@)B-&HD?G*,B0)*[@@@[CTS@^I@@@@@@*[@@@[MN )@@G@@CTS@^S@]@@@@I9*G(2G*'^@)*[@@@[CTS@^+@@@@@@*[@@@[CTS@^?@F@@@@B-&HD?G*"^[(MO )@@G@@IS)I-*G*)G1(H->^[4H8)GL>^[G),^@)_@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@[*SDFF**[@@@[CTS@[=MR )@@G@@@C@@@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)C[SEL C0)*[@@@[CTS@[,@@@@@@MS )@@G@@*[@@@[CTS@[8@L@@@@C[SEL C0)G9>H1>IL-I->IS)GC)GT2H93IS)IL>G1>IL>H1H14IL9^[0H9(H14IS)GD,G))^@)*[@@@[CTS@]]@L@@@@I(,G->MU )@@G@@G1(H1>G))IT9H(+H9?IS)HD,^[-^[3I[>GT(G1(G(=^[0IL\G92GD!^[&HD?G*)I9*HDG)?*[@@@[CTS@]G@L@@@@C[KEL E[>G)?^[-H1=^[[ETNDDBD1 MW )@@G@@C),^@)E-*G*)H1-H(>IS)H9&^[4H[>^[2G(?H9^[>H->H(>H14IS)GD2G*)^@)MX )@@G@@*[@@@[CTS@]Q@L@@@@H-(IT4G(=^[-H-0H[-GL>I-(GT-H-?JC,^@)CL>IT(G->^[>GD ))I-*G*)H1-H(>^[\G0)I-*G*)^@)*[@@@[CTS@])@K@@@@G(?G(!MZ )@@G@@G(,I))G(,I-2JC)I[\HD,I-3^[-IL>^[?HD3I->G),^@)CL>IT(G->^[>GD ))*[@@@[CTS@]%@K@@@@I-*G*)H1-H(>IS)H9&^[-H-?^[2G(?H9^[>H->H(>H14IS)HD,^[4H[>^[0IL\G92GD!^[&HD?G*)I9*HDG1>IL>H1H14IL9^[0H9(H14^[-IL>^[?HD3I->G),^@)CD,^[>ND )@@G@@H->H(>H14^[>H14IL9^[0H9(H14^[(IS)^@)*[@@@[CTS@]"@L@@@@HD3^[0IL\G-5GT>G))NE )@@G@@GL9^[4H[>^[IK)H92^[-IT3G(!GL?G(2BS)HD4^[3I[>GT(G1(G(3^[4H[>^[?NF )@@G@@H9^[0IL\G92GD!^[>H->H(>H14NG )@@G@@^[2G(IS)GT\H14IL\H))H92^[(IS)H94H[>IL7HD3G*)^@)*[@@@[CTS@#M@K@@@@NH )@@G@@IL>G1>IL>H1H14IL9^[0H9(H14*[@@@[CTS@#W@L@@@@H1-H(>^[IT0H9,G-(H1$^[4NJ )@@G@@H8)I-*G*)H1-H(>^[$HD6G(,^[\H0)HD4IS)ETPCLMD9PE-DD1 ^[\IK)C1PD1#E-DD9I^@)NK )@@G@@*[@@@[CTS@#&@L@@@@G->GT?GD2GD4HD\H0,^@)CD,^[5H1=G(&HD,G(=^[3JD!GL\H)) [\NL )@@G@@IK)G(8I->IL,GD?^[2G(&G(2G(,GT> C)IL>IT5H-4IS)^@)*[@@@[CTS@#0@K@@@@G12H9!NM )@@G@@^[-^[3I(+IL\I(4HD,G*)GT-H-?^[\IK)IL>G1>IL>H1G))*[@@@[CTS@#'@^@@@@I9(I-*HD,^[4H[>^[&HD?G*,*[@@@[CTS@^^NO )@@G@@@@@@@@*[@@@[CTS@^I@B@@@@G1\IL!GD4BK)^@)^@)C[SEL C0)^@)B-&HD?G*,B0)*[@@@[NP )@@G@@CTS@^S@@@@@@*[@@@[CTS@^+@]@@@@I9*G(2G*'^@)*[@@@[CTS@^?@@@@@@*[@@@[CTS@^6NQ )@@G@@@F@@@@B-&HD?G*"^[(IS)I-*G*)G1(H->^[4H8)GL>^[G),^@)NR )@@G@@_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ @EOF @COPY,IO TEMP.1026-001-001,1026-001-001. @FREE TEMP.