@CAT,P 1015-007-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-007-023,,,130042053241,000 )@@G@@**PF**@@@[C$@@@@@@@@@@@[@^6@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@@@]F^ ;Q@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@CAJ )@@G@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@^@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@LAN )@@G@@FURPUR25 @@@@@ @@[@@@ @ @@@[@@@@G_@@@@W@LJ&[RFBONES AO )@@G@@@@@@@@@@A@@@ @!O@R%^@@@[9@@@@*_]-']CDNEWSKEL @@@@@@@@[@@@AP )@@G@@ @ @@@[[@@@@E@@@@%8DSKC#DGENSKEL @@@@@@@@[@@@ AQ )@@G@@@ @@@[[@@@@D@@@@:]IQHD^DFLAP3-0A @@@@@@@@[@@@ @ @@@[@@@@@#AR )@@G@@@@@@:FLD$EQDSEC16-3 @@@@@@@@[@@@ @ @@@[[@@@#>@@@@:IH)6DGEAS )@@G@@MAP26-2 @@@@@@@@[@@@ @ @@@[@@@@@]@@@@,3K3ZG#ENUALG6-2 AT )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@#@@@@,5L NG#ESSG15 @@@@@@@@[@@@AU )@@G@@ @ @@@[@@@@@J@@@@,8I\NGHESEC18 @@@@@@@@[@@@ AV )@@G@@@ @@@[@@@@@B@@@@\BJ/V[AFPANIC88 @@@@@@@@[@@@ @ @@@[[@@@@^AW )@@G@@@@@@\ILN_[KFEDQMANUAL @@@@@@@K[@@@ @ @@@[@@@@@H@@@@\MM1U[RFAX )@@G@@RECERR @@@@@@@@[@@L @ @@@[[@@@@R@@@@\ZND/[XFFURPUR AY )@@G@@@@@@@@@@A@@J @^VEFURPUR @@@@@@@@[@@@AZ )@@G@@NEWS @ @@@[[@@@[H@@@@8I[,(]]FSECURE @@@@@@@@A@@@ BA )@@G@@=@@]@@@@@@EP@@@@9VK#9[AFRECERR @@@@@@@@A@@@ )@@]@@@@@@^7BB )@@G@@@@@[#0N]=[RFIF(X(10).EQ.0.AND.X(25).EQ.0.AND.X(26).EQ.0.AND.X(15).EQ.0)GBC )@@G@@OTO220@B@@@@ CALL SINF @ PICK UP SPEC FIELD@E@@@@ IF (X(BD )@@G@@10) .EQ. 1) GO TO 220 @ A-OPTION (ACCOUNT) @E@@@@ IF (X(15) .EBE )@@G@@Q. 1) GO TO 219 @ F-OPTION (FILE) @^@@@@ QUAL1 = ACCT(1) BF )@@G@@@#@@@@ ACCT(1) = 0 @^@@@@ QUAL2 = ACCT(2) @#@@@@ ACCT(2BG )@@G@@) = 0 @E@@@@ IF (X(26) .EQ. 1) GO TO 220 @ Q-OPTION (QUALIFIER)BH )@@G@@@^@@@@ PROJ1 = QUAL1 @#@@@@ QUAL1 = 0 @^@@@@ PROJ2 BI )@@G@@= QUAL2 @#@@@@ QUAL2 = 0 @#@@@@ GO TO 220 @^@@@@219 BJ )@@G@@QUAL1 = ACCT(1) @^@@@@ QUAL2 = ACCT(2) @^@@@@ PROJ1 = ACCTBK )@@G@@(3) @^@@@@ PROJ2 = ACCT(4) @C@@@@220 CALL DRECGT @ SEABL )@@G@@RCH THE DIRECTORY @F@@@@ IF (X(33).EQ.0.OR.X(34).EQ.1.OR.X(35).EQ.0BM )@@G@@) CARE = .TRUE. @G@@@@ IF((X(15).EQ.1.OR.X(25).EQ.1.OR.X(26).EQ.1BN )@@G@@).AND.X(10).EQ.0)CARE= @#@@@@ * .FALSE. @D@@@@ 17 DO 100 I = 1BO )@@G@@,ACX @ FOR EACH ACCOUNT FOUND @#@@@@ II = I*2 - 1@D@@@@ BP )@@G@@A = FLD(0,6,ACNOS(II)) @ GET FIRST CHAR @D@@@@ B = FLD(0,24BQ )@@G@@,ACNOS(II)) @ GET FIRST 4 CHARS @ @@@@ IF (.NOT.CARE) GO TO 10 BR )@@G@@@D@@@@ IF (X(10) .EQ. 0) GO TO 18 @ A-OPTION? @G@@@@ BS )@@G@@IF (ACNOS(II).NE.ACCT(1).OR.ACNOS(II+1).NE.ACCT(2)) GO TO 100 @^@@@@BT )@@G@@ FLAG = .TRUE. @#@@@@ GO TO 10 @E@@@@ 18 IF (X(12) .EBU )@@G@@Q. 1) GO TO 30 @ C-OPTION (ROCKEFELLER) @D@@@@ IF (X(14) .EQ. 1) BV )@@G@@GO TO 85 @ E-OPTION (EXEC) @E@@@@ IF (X(17) .EQ. 1) GO TO 10 @ BW )@@G@@H-OPTION (IN-HOUSE) @D@@@@ IF (X(18) .EQ. 1) GO TO 80 @ I-OPTIBX )@@G@@ON (OTHER) @E@@@@ IF (X(20) .EQ. 1) GO TO 60 @ K-OPTION (STUDENTSBY )@@G@@) @E@@@@ IF (X(22) .EQ. 1) GO TO 20 @ M-OPTION (MED CENTER) BZ )@@G@@@F@@@@ IF (X(24) .EQ. 1) GO TO 40 @ O-OPTION (SPONSORED RESEARCH) CA )@@G@@@G@@@@ IF (X(27) .EQ. 1) GO TO 50 @ R-OPTION (UNSPONSORED RESEARCHCB )@@G@@) @B@@@@ GO TO 100 @ NONE OF THE ABOVE@C@@@@ 10 IF (ACCC )@@G@@NOS(II) .NE. '0-0040') GO TO 110 @^@@@@ FLAG = .TRUE. @B@@@@CD )@@G@@ SUM(1,5) = SUM(1,5) + NFILES(I) @G@@@@ SUM(1,1) = SUM(1,1CE )@@G@@) + F2(I) + F4(I) + F17(I) + F14(I) + F40(I) @A@@@@ SUM(1,2) = SCF )@@G@@UM(1,2) + REM(I) @C@@@@ SUM(1,3) = SUM(1,3) + VOP(I) + GOP(I) CG )@@G@@@A@@@@ SUM(1,4) = SUM(1,4) + SEC(I) @ @@@@ 110 IF (X(17).EQ.1)GO CH )@@G@@TO 80 @ @@@@ 20 IF (A .NE. 56) GO TO 120@^@@@@ FLAG = .TRUE. CI )@@G@@@G@@@@ SUM(2,1) = SUM(2,1) + F2(I) + F4(I) + F17(I) + F14(I) + F40(CJ )@@G@@I) @B@@@@ SUM(2,5) = SUM(2,5) + NFILES(I) @A@@@@ SUM(2,CK )@@G@@2) = SUM(2,2) + REM(I) @C@@@@ SUM(2,3) = SUM(2,3) + VOP(I) + GOP(ICL )@@G@@) @A@@@@ SUM(2,4) = SUM(2,4) + SEC(I) @ @@@@ 120 IF (X(22).EQCM )@@G@@.1)GO TO 80 @ @@@@ 30 IF (A .NE. 23) GO TO 130@^@@@@ FLAG = .TRUECN )@@G@@. @G@@@@ SUM(3,1) = SUM(3,1) + F2(I) + F4(I) + F17(I) + F14(I) CO )@@G@@+ F40(I) @B@@@@ SUM(3,5) = SUM(3,5) + NFILES(I) @A@@@@ CP )@@G@@SUM(3,2) = SUM(3,2) + REM(I) @C@@@@ SUM(3,3) = SUM(3,3) + VOP(I) +CQ )@@G@@ GOP(I) @A@@@@ SUM(3,4) = SUM(3,4) + SEC(I) @ @@@@ 130 IF (X(CR )@@G@@12).EQ.1)GO TO 80 @A@@@@ 40 IF (B .NE. 6H@@0-55) GO TO 140@^@@@@ CS )@@G@@FLAG = .TRUE. @G@@@@ SUM(4,1) = SUM(4,1) + F2(I) + F4(I) + F17(CT )@@G@@I) + F14(I) + F40(I) @B@@@@ SUM(4,5) = SUM(4,5) + NFILES(I) CU )@@G@@@A@@@@ SUM(4,2) = SUM(4,2) + REM(I) @C@@@@ SUM(4,3) = SUM(4,3CV )@@G@@) + VOP(I) + GOP(I) @A@@@@ SUM(4,4) = SUM(4,4) + SEC(I) @ @@@@CW )@@G@@ 140 IF (X(24).EQ.1)GO TO 80 @A@@@@ 50 IF (B. NE. 6H@@0-05) GO TO 150CX )@@G@@@^@@@@ FLAG = .TRUE. @G@@@@ SUM(5,1) = SUM(5,1) + F2(I) + CY )@@G@@F4(I) + F17(I) + F14(I) + F40(I) @B@@@@ SUM(5,5) = SUM(5,5) + NFCZ )@@G@@ILES(I) @A@@@@ SUM(5,2) = SUM(5,2) + REM(I) @C@@@@ SUM(5,DA )@@G@@3) = SUM(5,3) + VOP(I) + GOP(I) @A@@@@ SUM(5,4) = SUM(5,4) + SEDB )@@G@@C(I) @ @@@@ 150 IF (X(27).EQ.1)GO TO 80 @F@@@@ 60 IF (A .NE. 25 .ANDDC )@@G@@. A .NE. 26 .AND. A .NE. 12) GO TO 160 @^@@@@ FLAG = .TRUE. DD )@@G@@@G@@@@ SUM(6,1) = SUM(6,1) + F2(I) + F4(I) + F17(I) + F14(I) + F40(DE )@@G@@I) @B@@@@ SUM(6,5) = SUM(6,5) + NFILES(I) @A@@@@ SUM(6,DF )@@G@@2) = SUM(6,2) + REM(I) @C@@@@ SUM(6,3) = SUM(6,3) + VOP(I) + GOP(IDG )@@G@@) @A@@@@ SUM(6,4) = SUM(6,4) + SEC(I) @ @@@@ 160 IF (X(20).EQDH )@@G@@.1)GO TO 80 @G@@@@ 85 IF (ACNOS(II) .NE. '@@@@@@'.AND.ACNOS(II) .NE. 'DI )@@G@@INSTAL') GO TO 80 @^@@@@ FLAG = .TRUE. @G@@@@ SUM(7,1) = SDJ )@@G@@UM(7,1) + F2(I) + F4(I) + F17(I) + F14(I) + F40(I) @B@@@@ SUM(7,DK )@@G@@5) = SUM(7,5) + NFILES(I) @A@@@@ SUM(7,2) = SUM(7,2) + REM(I) DL )@@G@@@C@@@@ SUM(7,3) = SUM(7,3) + VOP(I) + GOP(I) @A@@@@ SUM(7,DM )@@G@@4) = SUM(7,4) + SEC(I) @B@@@@80 IF (CARE.AND.X(18).NE.1) GO TO 90 DN )@@G@@@G@@@@ IF(ACNOS(II).EQ.'@@@@@@'.OR.ACNOS(II).EQ.'INSTAL'.OR.ACNOS(IDO )@@G@@I).EQ.@^@@@@ *'0-0040')GO TO 90 @D@@@@ IF (B.EQ.6H@@0-05.OR.B.EDP )@@G@@Q.6H@@0-55) GO TO 90 @G@@@@ IF(A.EQ.12.OR.A.EQ.23.OR.A.EQ.25.OR.DQ )@@G@@A.EQ.26.OR.A.EQ.55.OR.A.EQ.56)@#@@@@ *GO TO 90 @^@@@@ IF (FLDR )@@G@@AG) GO TO 90@^@@@@ FLAG = .TRUE. @G@@@@ SUM(8,1) = SUM(8,1DS )@@G@@) + F2(I) + F4(I) + F17(I) + F14(I) + F40(I) @B@@@@ SUM(8,5) = SDT )@@G@@UM(8,5) + NFILES(I) @A@@@@ SUM(8,2) = SUM(8,2) + REM(I) @C@@@@DU )@@G@@ SUM(8,3) = SUM(8,3) + VOP(I) + GOP(I) @A@@@@ SUM(8,4) = SDV )@@G@@UM(8,4) + SEC(I) @ @@@@ 90 IF (.NOT.FLAG) GO TO 100@^@@@@ FLAG =DW )@@G@@ .FALSE. @B@@@@ IF (NFILES(I) .EQ. 0) GO TO 100 @E@@@@ DX )@@G@@TOTFIX = F2(I) + F4(I) + F17(I) + F14(I) + F40(I) @ @@@@ TOTAL DY )@@G@@= TOTAL + TOTFIX @ @@@@ TOTREM = TOTREM + REM(I)@ @@@@ TOTV =DZ )@@G@@ TOTV + VOP(I) @ @@@@ TOTG = TOTG + GOP(I) @A@@@@ TFILESEA )@@G@@ = TFILES + NFILES(I) @ @@@@ TOTSEC = TOTSEC + SEC(I)@B@@@@ EB )@@G@@IF (UNTIL .AND. .NOT. LONG) GO TO 99@G@@@@ IF (SETC) PUNCH 2000, DAEC )@@G@@TE,TIME,ACNOS(II),ACNOS(II+1),NFILES(I),TO@G@@@@ *TFIX,REM(I),SEC(I)ED )@@G@@,VOP(I),GOP(I),F2(I),F4(I),F17(I),F14(I),F40(I) @G@@@@ PRINT 1003, EE )@@G@@ACNOS(II), ACNOS(II+1), NFILES(I), TOTFIX, REM(I), @G@@@@ * SEC(IEF )@@G@@), VOP(I), GOP(I), F2(I), F4(I), F17(I), F14(I), F40(I) @ @@@@ EG )@@G@@PRINTD = PRINTD + 1 @#@@@@ GO TO 100 @G@@@@ 99 PRINT 1004, EH )@@G@@ACNOS(II), ACNOS(II+1), NFILES(I), TOTFIX, REM(I), @G@@@@ * SEC(IEI )@@G@@), VOP(I), GOP(I), F2(I), F4(I), F17(I), F14(I), F40(I) @ @@@@ EJ )@@G@@PRINTD = PRINTD + 1 @#@@@@ 100 CONTINUE @A@@@@ IF (PRINTD .EK )@@G@@LE. 1) GO TO 7777 @#@@@@ L = 1H, @G@@@@ IF (OPTION.EQ.5) PEL )@@G@@RINT 1005, TFILES, TOTAL, TOTV, TOTSEC, TOTREM, @^@@@@ *TOTG, L, UNLEM )@@G@@TOT @G@@@@ IF (OPTION.NE.5) PRINT 1005, TFILES,TOTAL,TOTV,TOTSEC,EN )@@G@@TOTREM,TOTG @C@@@@ IF (UNTIL .OR. OPTION .NE. 5) GO TO 7777 @#@@@@EO )@@G@@ PRINT 1006 @G@@@@ PRINT 1007, ((LABEL(J,K),J=1,4),SUM(K,5),(EP )@@G@@SUM(K,L),L=1,4),K=1,8) @A@@@@ 7777 IF (PRINTD .LE. 1) PRINT 1008 @]@@@@EQ )@@G@@ STOP @[@@@@ @[@@@@ @E@@@@ 1000 FORMAT (' GBILL 3.4',3X,ER )@@G@@'DATE: ',A6,', TIME: ',A6,//)@[@@@@ @G@@@@ 1001 FORMAT (13X,'TOTALES )@@G@@ TRACKS',20X,'FIXED TRACK DISTRIBUTION',/, @D@@@@ *' ACCT',T14ET )@@G@@,'FILES FIXED REM SEC VOP GOP',@E@@@@ *T49,'F2',T54,'F4',T58,'FEU )@@G@@17',T64,'F14',T70,'F40',/, @ @@@@ *' -----',11('------'),/)@[@@@@EV )@@G@@ @C@@@@ 1002 FORMAT (15X,'TOTAL ',5(3X,'TOT TRKS'),6X, @E@@@@ *EW )@@G@@'>>>>>>>>> FIXED TRACK DISTRIBUTION <<<<<<<<<',/,@G@@@@ *' ACCEX )@@G@@OUNT',T16,'FILES',T26,'FIXED',T37,'REMOV',T46,'SEC TAPES', @F@@@@ *EY )@@G@@T58,'V-OPTION',T69,'G-OPTION',T84,'F2',T95,'F4',T105,'F17', @E@@@@ *EZ )@@G@@T116,'F14',T127,'F40',/,' -----',21('------'),/,) @[@@@@ @ @@@@FA )@@G@@ 1003 FORMAT (1X,2A6,I6,10I11)@[@@@@ @B@@@@ 1004 FORMAT (1X,2A6,I4,FB )@@G@@I7,I6,6I5,2I6) @[@@@@ @D@@@@ 1005 FORMAT ('0FILES:',I6,', FIXEDFC )@@G@@ TRACKS:',I6, @E@@@@ *', V-OPT TRACKS:',I6,', SECURE BACKUP BLFD )@@G@@OCKS:',I6,/,@C@@@@ *16X,'REMOV TRACKS:',I6,', G-OPT TRACKS:',@ @@@@FE )@@G@@ *I6,A1,' UNLOADED:',I6) @[@@@@ @C@@@@ 1006 FORMAT(1H1,'SUMMARFF )@@G@@Y BY BILLING AREA: ', @E@@@@ *3X,'FILES (F) TRACKS (R) V/G-OPFG )@@G@@T SEC TAPES'/) @[@@@@ @A@@@@ 1007 FORMAT(1H0,4A6,4I9,3X,I9) FH )@@G@@@[@@@@ @ @@@@ 1008 FORMAT ('0END GBILL') @[@@@@ @ @@@@ 2000 FI )@@G@@FORMAT(4A6,I4,10I5,'GB')@[@@@@ @]@@@@ END ___ F1RE BACKUP BLFJ )@@G@@)@@@F]S@@@@@)@#@C@)@]@C@)[G@C@)@#@IS)@?@C@IN HOU@@@@@[@@@@@@@@@@@@@@@@@@FK )@@G@@/,0@@@AA@@@F)@![S@@@@@@@ /AMC ORNELLROCK/C ER L CENTMEDICAFL )@@G@@ SE AB@@@F)@8[S@@@@@@@,G) ACT (T,USTUDENCH RESEARSORED FM )@@G@@UNSPON SEARCHRED RESPONSOAC@@@F)[#[C@@@@@@@)@[@E@@@@@@@ FN )@@G@@ OTHER EXEC CTS AD@@@F)@][F#L#L#L#L] #@K3@@@@@FO )@@G@@;)@@@PC@@@@]@[=@@@@@@@[H/,0@@@ @@[X4 @@[X3 @@[X2 @@[X1AE@@@F)@F[M[@^G^G1FP )@@G@@#H#G@@C@@@@][^0@@]+8);__C^)@@][@@@@#C/@@@[/K@@@L*@@@@GG/@__";C@@@9K@@]A#K@@P=9K@]@>9K@@]A#K@@N=[K@^!UM )@@G@@A#K@@L=[K@^%A#K@@TAB@@@@)@M[D@K0 K^G[O[#@O*C]^]K'=@@@@R#K@^\R;@@[#A#K@@MUN )@@G@@=[K@^,A#K@@H>[K@^:A#K@@O=[K@^?AC@@@@)@V[KKM+-@&)C@)C]@9/0@[C#C)@[BOF)@[BUO )@@G@@D8)@@[ @@@[A/@)@@='=@@@@R;@@B@9*0@B@9?/@@@AD@@@@)@>[D@K^[][L@K)PK^C =@@@UP )@@G@@R#@@[]'=@@@@R#@@@9'=@@@@R#@@[ '=@@@@R#@@[B/K@@@((C@@[BAE@@@@)@,[L][SK)RKUQ )@@G@@)S@@@@LINK PITIAL TO INTURNEDREP RE 7.1.0'=@@@@'=@@@@ @@@@G'=@@@@AF@@@@UR )@@G@@)@8[SE@@@ @@@[C@@'UTION.R EXECFURTHEE FOR AILABLNOT AV CODE EDITOR@]A@@3US )@@G@@OINT. AG@@@@)[#[S@E@]@)@/KF@@[ @@@@@AB@@[ORBF@@@ LIB$ @@]@[#CONFR$UT )@@G@@EDN$ @@@@@@@@@@@@AH@@@@)[I[K*]@CS]*S@*@C@9*@@#X@@@@@@@@@@@@/K@@]1/K@@L3UU )@@G@@ @@@@WP'0@@#RA0@[OR;@@@ R;K@^XAI@@@@)[S[L@^[@K[@[@@@@@R#H@#QR;K@@#!8K@@^UV )@@G@@/K@@[!%8@@@CR7K@[PR\@@[PAB@@[PO;@@@[RB@@[PAJ@@@@)[+[D][SK])-@2)CS]+@@@@@UW )@@G@@/K@@]S%8K@@](@@@@Q/K@@]S'=@@@@R;@@#U/K@@[*%8K@@['=@@@@AK@@@@)[:[L#@P@K[@UX )@@G@@^@^@@@/K@@]W!8@@@>!8@@@)/K@@]W%8K@@^/K@@[9:8K@@[R3@@[P/K@@]SA#K@@ AL@@@@UY )@@G@@)[5[L#@P@^@^[@K])@%8K@#,RBK@[Q/K@@]^/K@@[.:8@@@M%8@@@ /K@@]TD8@@@@/K@@]WUZ )@@G@@*@@@@QAM@@@@)[_[L@K^C -#@^@K@@AV@@]8O;@@00;?@@@#;*@@@#;G@@@#/K@@K3R;H@@@VA )@@G@@'=@@@@R#@@#E/K@@]^AN@@@@)]D[D@^[@K)QK^[#@P@@@@@@/K@@]1*@@@@R/K@@[I:@K@^YVB )@@G@@'=@@@@R#@@]'A#K@]9R#W@@@RB@@[QAO@@@@)]M[D#@OK^[][T@K^[@@@@@@ C@@[PR#K@#YVC )@@G@@R#@@#X/K@@]1'=@@@@R#@@# A3@@#^O;@@@,R#@@@]AP@@@@)]V[T@@[@@@@O;@@00;?@@@#VD )@@G@@;*@@@#;?@@@YAV@@]"O;@@00;?@@@#;*@@@#;G@@@#;*K@@#/K@K[PAQ@@@@)]&[D@K^C =[VE )@@G@@#@OK^@@@@@@@!8@@@#R3@@[P/K@@]K%8@@@](@@@@QR7@@[P'=@@@@R#@@]_AR@@]/AR@@@@VF )@@G@@)]\[D@K[][X#@P#@^()A-)]@I/O ER/K@@^8R8K@^N/K@@^7(@@@@R'=@@@@ @@@@G/K@@]KVG )@@G@@/K@K[OAS@@@@)]8[S])@ @@@ILE WANPUT FLAST I@[^@];E $$ , CODYPE $$ERR: TVH )@@G@@@[#@]7FILE$$R $$: AT@@@@)##[S])@ @@@VE. N ACTINYU ED@[^@#ANEL. SENTIVI )@@G@@UT EOFNO INP@[ @#@$$ S EDN$AU@@@@)#I[S@@@* @@@[#@#L@[#@#IRPT. ME INTVJ )@@G@@MAX TIVED. RECEIINTRPTRPT. OR INTOPERATAV@@@@)#T[S*[K@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@,A ,A @@@@@@@@@@@@@@@@@@@@J@#F@@@@@@@[#@#OAW@@@@)#=[S@@@@@@@VL )@@G@@SI$ _____"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@______AX@@@@VM )@@G@@)#\[K#1?C@@G^*@@@@@@@@@@@@[@@@@@[@@@@@K@@Q@^(@F(@@@@@@@B@@@@@@@@@@@@@@@@VN )@@G@@ AY@@@@)#9[K@JA0)[@02+@@@@@[@@@@@K@@Q@@@@B@@@@@@@@B@@@@@@@@@@@@@@@@VO )@@G@@ SO$ _____"AZ@@@@)^#[K@@/V]@^#[E@@@@M(@T(@@@@@@@B@@@@@@@@@@@@@@@@VP )@@G@@ EDN$$1_____"@@@@@@@@[@@@BA@@@@)^H[K@@#1?C@K@@@@@@B@@@@@@@@@@@@@@@@VQ )@@G@@ EDN$$2_____"@@@@@@@@[@@@@@[@@@@@K@@QBB@@@@)^R[KG^*@@@@@@@@@@@@@@@@VR )@@G@@ SPLIT$_____"@@@@@@@@[@@@@@[@@@@@K@@Q@^(@F(@@@@@@BC@@@@)^-[K/V]@^##VS )@@G@@EC@O@@@@@)@@E@@@[P@@@@@@@@[@@@@@[@@@@@K@@Q@@@@B@@@@@@@@B@@@@@@@@@@BD@@@@VT )@@G@@)^:[S@@@@@@@ NOT FR. D ERRON FIELICATIOSPECIF@@]@[C@@K@@@@]@@@@@@@^@@VU )@@G@@@[@@@@BE@@@@)^6[S@@@@@@@1.,F// EDN$$@ASG,TED. RETAIN ONLY CYCLELATESTVV )@@G@@PTY.& IS EMOUND.&BF@@@@) [[S@@@@@@@INPUT $. . O$.,SI@USE S. /9999 VW )@@G@@2.,F// EDN$$@ASG,T. /9999 BG@@@@) G[S@@@@@@@ FILE OUTPUTFILE. OGRAM VX )@@G@@T A PR IS NOOUTPUTILE. GRAM F A PROIS NOTBH@@@@) R[S@@@@@@@ING SCASSIGNVY )@@G@@ERROR E. LT NAMEEDS EFILE NINPUT ME. ELT NANEEDS BI@@@@) +[S@@@@@@@VZ )@@G@@STATUSLABLE T AVAI IS NOSPLIT$UT. LLED O IS ROSPLIT$FILES.RATCH BJ@@@@WA )@@G@@) ![S@@@@@@@OUTPUTORAGE.ASS ST NOT MOUTPUTRAGE. SS STONOT MAINPUT . WB )@@G@@--HEREBK@@@@) 8[S@@@@@@@FILE NINPUT IGNED.LE ASSPUT FIG! OUTWARNINKEY. WC )@@G@@WRITE NEEDS FILE BL@@@@)A#[S@@@@@@@CT & C REJE . FA. E-ONLYS WRITWD )@@G@@FILE IINPUT Y. EAD KEEEDS RBM@@@@)AI@S@))1@C@));@*EC @@@@@@@@)(@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@REPLY:@@TPF$@@@@@@ BN@@@@)-@[S*@ ^@@@TYPE: @@@@@@WF )@@G@@@@@@@@@@@@@@[[@@@@@@@@@@@&I@B@@@@@@@@@@@@@@@@@@@@@2@)2BO@@@@)-F[C@#1)@/SWG )@@G@@@JA@#1)@@@@@@@@@^L@@@@^ @@@@#9@@@@#!@@@@@@@@@@@@@@@@@@@@@@@[ BP@@@@WH )@@G@@)-O[K/S@@JA0)@E@@@$. . SI@ASG,A@@@@@@@@[@T(@@@@@@@@@@@@ SI$ WI )@@G@@@@@@^XBQ@@@@)-Y[K@@@*@@@@@@@@@@[#@-=DLE. EDN I$$$$$$SPLIT$ @CAT,PWJ )@@G@@$. . SO@ASG,ABR@@@@)-.@S@)B@@/@@@@@@@ @@A@@@@@@@@@ CONFR$WK )@@G@@@@@@@@@@@@@@PFP @@@@@@@@@@@@BS@@@@)BB@?@@@@@@@)@@@&@*@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ BT@@@@)@^[Y@*@@@@@@@@ADD@@@@@@WM )@@G@@ LED N. FIEND ED@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU@@@@)@J[Y@*@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV@@@@WO )@@G@@)@U@Y@*@@@@@)@@@6@S*@O@@@@@@@@@@@@^>@@@PON@@@@@@@@@@^>______@@@@@@@@@@@@WP )@@G@@_____"BW@@@@)@A[Q@S*@O@E@@@@@@@@MSG*@@@@@@@@@@^>@@@MSG@@@@@@@@@@^>@@INITWQ )@@G@@@@@@@@@@@@^>@@SAVEBX@@@@)@K[Q@U)[K@*@O@@@@@@@@^>@@POFF@@@@@@@@@@^>@CONFRWR )@@G@@@@@@@@[@@@^&@@AUTO@@@@@@@@@@^>BY@@@@)@U[Q@SE@ @])@@@@@@@@@@[@@@@^>@@@@HDWS )@@G@@@@@@@@@@@@^>@@@@HL@@@@@@@@@@^>@@SPL!@@@@@@BZ@@@@)@=[Q@S*@O@E@@@@@@@@@@CCWT )@@G@@@@@@@[@@@@^>@@@@CH@@@@@@@@@@^>@@@@PH@@@@@@@@@@^>@@WHATCA@@@@)@,[Q@U)[K@*WU )@@G@@@O@@@@@@@@^>@@@RON@@@@@@@@@@^>@@@TAB@@@@@[@@@@^>@@@@CN@@@@@@@@@@^>CB@@@@WV )@@G@@)@8[Q@SE@ @])@@@@@@@@@@@@@@@^>@@TCHA@@@@@@@@@@^>@@@SET@@@@@@@@@@^>@@ROFFWW )@@G@@@@@@@@CC@@@@)[][Q@S*@O@E@@@@@@@TCHCX@@@@@@@@@@^>@@TCHL@@@@@@@@@@^>@@TCHCWX )@@G@@@@@@@@@@@@^>@@TCHFCD@@@@)[G[Q@U)[K@*@O@@@@@@@@^>@@FILE@@@@@@@@@@^>@@@ENDWY )@@G@@@@@@@@@@@@^>@TCHLX@@@@@@@@@@^>CE@@@@)[Q[Q@SE@ @])@@@@@@@@@@@@@@@^>@@@@NLWZ )@@G@@@@@@@@@@@@^>@@@@BR@@@@@@@@@@^>@@@MSP@@@@@@CF@@@@)[)[Q@S*@O@E@@@@@@@@@ADDXA )@@G@@@@@@@@@@@@^>@@TYPE@@@@@@@@@@^>@@@@SC@@@@@@@@@@^>@@@@LNCG@@@@)[%[Q@U)[K@*XB )@@G@@@O@@@@@@@@^>@@@@LD@@@@@@@@@@^>@@@@LC@@@@@@@@@@^>@@@@@L@@@@@[@@@@^>CH@@@@XC )@@G@@)[4[Q@SE@ @])@@@@@@@@@@@@@@@^>@@@@@V@@@@@[@@@@^>@@@@LX@@@@@@@@@@^>@@@@LPXD )@@G@@@@@@@[CI@@@@)["[Q@S*@O@E@@@@@@@@@@@X@@@@@@@@@@^>@@@@@T@@@@@@@@@@^>@@@@TDXE )@@G@@@@@@@@@@@@^>@@@@@ECJ@@@@)]C[Q@U)[K@*@O@@@@@@@@^>@@@@P!@@@@@@@@@@^>@@@@@BXF )@@G@@@@@@@[@@@@^>@@@@@C@@@@@@@@@@^>CK@@@@)]M[Q@SE@ @])@@@@@@@@@@@@@@@^>@@LNONXG )@@G@@@@@@@@@@@@^>@SQOFF@@@@@@@@@@^>@@SQON@@@@@@CL@@@@)]W[Q@S*@O@E@@@@@@@@@PLMXH )@@G@@@@@@@@]@@@^>@@@COL@@@@@@[@@@^>@@@@@G@@@@@@@@@@^>@LNOFFCM@@@@)]&[Q@U)[K@*XI )@@G@@@O@@@@[[+@^>@@@@@F@@@@@[[[+@^>@@@@IB@@@@@@[@@@^$@@@SAV@@@@@@[@@@^$CN@@@@XJ )@@G@@)]0[Q@SE@ @])@@@@@@@@@@@[[+@^>@@@@FP@@@@@[[[+@^>@@@@FD@@@@@@[[+@^>@@@@FCXK )@@G@@@@@@@@CO@@@@)]'[Q@S*@O@E@@@@@@@@@@@R@@@@@[[[+@^>@@@@@I@@@@@[[[+@^>@@@@@SXL )@@G@@@@@@@[[[+@^>@@@@FXCP@@@@)#^[Q@U)[K@*@O@@@@]@@@^>@@@CTC@@@@@[#@@@^>@@@@CTXM )@@G@@@@@@@[[[+@^>@@@@@A@@@@@[[[+@^>CQ@@@@)#I[Q@SE@ @])@@@@@@@@@@@@@@@^>@@@@EHXN )@@G@@@@@@@@[@@@^&@@@@@U@@@@@@[@@@^&@@@@@N@@@@@[CR@@@@)#S[Q@S*@O@E@@@@@@@@@SPDXO )@@G@@@@@@@@[@@@^>@@@SPL@@@@@@]@@@^>@@@@@P@@@@@@]@@@^>@@@@CSCS@@@@)#+[Q@U)[K@*XP )@@G@@@O@@@@[@@@^>@@@@AH@@@@@[[@@@^>@@@@RH@@@@@[[@@@^>@@@@IH@@@@@[[@@@^>CT@@@@XQ )@@G@@)#?[Q@SE@ @ED<@AOKPREV M@KK@@@@[I@@@@@@@@[]@@@^>@@@@@D@@@@@[[@@@^>@@@IHBXR )@@G@@@@@@@[CU@@@@)#6[Y@S@@@@@OUTPUTREPLY.G FOR WAITING. REV MSG ON PWAITINXS )@@G@@. ANS'DSG NOTCV@@@@)^[[Y@S@@@@@DED. DISCARMAGES @ADD IDE. NLY MOXT )@@G@@READ-O. D-ONLYIS REA FILE CW@@@@)^G[Y@S@@@@@OR. IT ERRN. INEND EDXU )@@G@@T. OUTPUN. NOEND ED & 7.1.0NYU EDCX@@@@)^R[Y@S@E@@@MS STA SYSTEXV )@@G@@Y UHMC NOTIFPLEASE@# @^RE. AM FIL PROGRREP INWRONG CY@@@@)^+@Y@S*@@@@XW )@@G@@)@@@:#@[#@GK^^@@@@9*@@@@/K@@@G:@@@@HR#K@^=R#@@@2 7.1.0@]A@^XFF. CZ@@@@XX )@@G@@)@ [##@H][T#@H][T#@H][T][-#@@@R#@@^('=@@@@'=@@@@R#@@^<'=@@@@R#@@^*'=@@@@XY )@@G@@R#@@^WDA@@@@)@H[#][X#@H][(@^CA4[#@@@@@@@@@9?@@#,/K@@AJ/,0@@@R;@@@[/K@@ PXZ )@@G@@/,0@@@R#@@^('=@@@@DB@@@@)@P[#][0K0@K0@K0@ES@CKI*S@@@@@R7@@-''=@@@@R;@@-4YA )@@G@@9*@@-49?@@#,/K@@]10@@@@G/,0@@@DC@@@@)@X[EK[#@@()@-@/C[N@@@@@R;@@-4/G@@AMYB )@@G@@A#@@[C'=@@@@R;@@-V^CK@#ZN8K,AR/^@@@* @@@[CDD@@@@)@&[F][5#@@^[#@@K@@@@@@@YC )@@G@@;)@@@#/=@@AD;@@@@^R3@@-'/K@@ "!8@@@)!8@@@SR7@@-''=@@@@DE@@@@)@\[#@K)ZK^CYD )@@G@@B4G@^[][.@@@@@@@@@/@@@@8R3@@@[9?K@C?9*@@-%9?@@@D/@@@ RR7@@@[/=@@AADF@@@@YE )@@G@@)@7[#][.#@@K0@K0@K0@ES@CKD)@@@'=@@@@R;@@-*9*@@-*9?@@#,A\@@-!R;@@@[9*K@-,YF )@@G@@9?K@@FDG@@@@)@_[#@K0 K0@K0@K^G@4C =G@@@@@@R#@@-2'=@@@@R#@@^%/@@@[AAN@@#=YG )@@G@@RV@@-0 @@@@J/^)@#(DH@@@@)[B[##@[#@[#@[#@@K)ZK)VK@@@@@@/K@@[L/,0@@@9\)@@@YH )@@G@@R;@@@]A#@@#&R7@@-1A#@@#3A#@@#*DI@@@@)[J[]K^CB4G@^CB[#@[#@@@@@@@@@@9?@@#'YI )@@G@@/K@@]10@@@@G/,0@@@9?@@#'9:)@@@/K@@[M @@@[CDJ@@@@)[R[##@@()@-@'-)@)]A@[N@YJ )@@G@@@@@@@@R;@@-Y^^K@#ZN8K,AR/^@@[$R7@@-''=@@@@R;@@-49*@@-4DK@@@@)[Z[#][8K^G@YK )@@G@@^G@]&@]^#%A@@@@@@@R7@@-''=@@@@R;@@-49*@@-49?@@#'/G@@AMA#@@[C'=@@@@DL@@@@YL )@@G@@)[$[M^[#@@KK^@@@@@/=@@A^C;@@@D>;K@^@ @@@@SC#K@@@;@@@@#R3@@-'/K@@A[!8@@@)YM )@@G@@!8@@@SDM@@@@)[1[]K^CB4[#@[][.#@[][/@@@@@@@R3@@@[9*@@#)9?@@@D G@@#=/@@@ 2YN )@@G@@R7@@@[/=@@#U;)@@@[DN@@@@)[9[#@K)ZK0@ES@CKKC]A@]A@@@@@@A#K@#_A#K@#(/^)@^GYO )@@G@@'=@@@@R;@@#'9*@@#+9?@@@F/@@@[/DO@@@@)][[F#@OK0#^C =^K]+@@@@@R;@@@@/,0@#&YP )@@G@@=8@@^@R#@@@@'=@@@@=@K@[CR#@@^:R;KC@@ @@@@BDP@@@@)]E[F#@@*C]A@@)CS[*KF@@@YQ )@@G@@C9)@@R'=@@@@R#@@^?/)K@]M)@@@@H9?@@-./K@@A%Q'0@]GAB@@-^DQ@@@@)]N[EK0@KM+-YR )@@G@@@'C[N@[][8@@'=@@@@R;@@^"/K@@]Y*4G@@A'=@@@@R;@@@@9*@@@@9?@@^AC90@@ZDR@@@@YS )@@G@@)]W[F@K[@K0@KM+-@'@@@@@@*4G@@A'=@@@@R;@@@@9*@@@@9?@@^M/K@@AG,5?@@A/K@@])YT )@@G@@/G@@AGDS@@@@)]>[F@ES@CKJC]@C[N@[#@G@R#K@^!R;@@-=/K@@AG,5?@@A/K@@]?/G@@AGYU )@@G@@'=@@@@R;@@ #/K@@]%DT@@@@)],[#][D#@[[EE^#*)CS[)@@@@@@@@R#@@^,/K@@#O*4G@@AYV )@@G@@'=@@@@R;@@@@9*@@@@9?@@^Y'=@@@@DU@@@@)]6[#][9#@H]] @K0#K0@K0#K)Y@@@'=@@@@YW )@@G@@R#@@^,9*K@--9?K@^1/)@@];'=@@@@9?K@^\'=@@@@DV@@@@)]"[#@K0#K^G@^@/S#@@/S#@YX )@@G@@@/S#@G@@@@^4@@@@ ?@@@@ =/,0@D]A#@@ =/K@@#F=@@@^3/C@@#IDW@@@@)#A[]/S#@GK0YY )@@G@@#K)QK^G@4C =@@@@@@/K@@#Q'=@@@@R#@@^7/K@@#Q'=@@@@R#@@^6/S@@@@@@@@^5DX@@@@YZ )@@G@@)#I[F#@H#@[#@H][9@K[@@@@R;@@@^/K@@AG,5?@@A/K@@#Q/G@@AG'=@@@@R#@@^,9*@@--ZA )@@G@@9?@@^8DY@@@@)#R[##@[#@P]]D#@H#@P#@@K@@@@@@/=)@#))@K@@I9?K@-.A#@@@CR#@@^'ZB )@@G@@/K@@@@A#@@@M0G@@#=DZ@@@@)#Z[EK)QK0@E]@-)A-@?CS])A#@@@BR;@@@['=@@@@R#@@^;ZC )@@G@@/#@@#&R'0@]D/=)@]1'=@@@@*@@@@SEA@@@@)#*[E^@K^G@4C =G@@@@@@@@R;@@@[/K@@]1ZD )@@G@@'=@@@@R#@@^//K@@#0:8)@@[/K@@^L:8)@@]/KF@@@EB@@@@)#1[##@@()@-@C-)@-[ACK#CZE )@@G@@S@@@@@9?@@-6/,0@@@R;@@@*/,0@@@9?@@-8/,0@@@R;@@-^A#@@-.EC@@@@)#9[#]]GK)AKZF )@@G@@0@K)G@@@@@R;@@ CA#@@@JR;@@@[/,0@@@R;@@^5/,0@@@9?@@-,ZH )@@G@@/,0@@@EE@@@@)^D[F][9#@[@^[#@H][T#@@@;G)@@#/K@@]1'=@@@@R#@@^./K@@^L:8)@@]ZI )@@G@@/K@@[+/G@@]1'=@@@@EF@@@@)^M[E[#@[#@H][T#@@K@@@@@')H@C9C9K@@./K@@]1'=@@@@ZJ )@@G@@R#@@^"AR)@-_G8)@00;?)@@#;*)@@#EG@@@@)^V[##@@()E)CS@CS@CS@CS@CS@@@@9*@@-*ZK )@@G@@9?@@#'9*@@-,9?@@#+9*@@-%98@@^8R8K@@D9?@@#)EH@@@@)^<[]K0@K0@K0@K0#K0@K0@KZL )@@G@@0@@@@@R#K@#(R#@@#$A#@@-0R#@@^_A7@@-1R#@@#&A\@@-!R;@@@[EI@@@@)^:[]K0@K0@KZM )@@G@@0@ES@CKM*]A@@@@@@@R#K@#$/^)@^L'=@@@@R;@@-* @@@-3A#K@-2AB@@-1P#@@@HEJ@@@@ZN )@@G@@)^3[]()@-[G)C[N@H#@H#@[#@@@@@@A#@@-YA#@@-VR#@@ @R8K@^J/K@@^8/^)@^L'=@@@@ZO )@@G@@R;@@#'EK@@@@)^;[F#@[#@@K0@K0#K]&@]@@0@G@@#/K@@ A$;@@#9/K@@ #R#@@ [AF@@-WZP )@@G@@;@@@@MAF@@-ZR#@@#ZEL@@@@) ^[#]]X@ES@CKJ G@^CB=G@^@@@@@/K@@ N(@@@-]'=@@@@ZQ )@@G@@R;@@-Y'=@@@@R;@@-V/K@@ ['=@@@@EM@@@@) G[##@H][T#@H#@@()@-@2-[K@@@@R;[@@@ZR )@@G@@'=@@@@'=@@@@R;@@);A#@@)/R#@@ #'=@@@@R#@@ ]EN@@@@) O[EK)QK)KES@CKO+@CS@@@ZS )@@G@@/K@@]1%8@@@ /@@@ (R7G@@#'=@@@@R;@@-P'=@@@@'=@@@@&;@@[^EO@@@@) X[##@@()@-ZT )@@G@@@C-)@-[ACK#CS@@@@@9?@@-6/,0@@@R;@@@*/,0@@@9?@@-8/,0@@@R;@@-^A#@@-"EP@@@@ZU )@@G@@) >[#]]G()@-[C)CS@CS[*@@@@@@@@D8@@@[/K@@ \:@@@ ^R#@@T(/K@@^A/,0@@@R;@@^7ZV )@@G@@/,0@@@EQ@@@@) ![##@[@K0#K)QK0@K0@K0@ES@@@@R;@@-P9*@@-P9?@@#'/K@@]1'=@@@@ZW )@@G@@R#@@ /K@@[FAN@@#=ER@@@@) 5[#]]=K0@K0@K0#K^G@4C )@@@@@'=@@@@R#@@ A/K@@][ZX )@@G@@%@@@ ^R#@@T(AJ@@#=D8@@@['=@@@@ES@@@@) .[##@[#@H][T#@[#@H][T#@[#@G@R#@@ DZY )@@G@@/K@@]1'=@@@@R#@@ C/K@@]1'=@@@@R#@@ B/K@@]1ET@@@@)A [#@K0#K)QK0@K0#K)QK0@ZZ )@@G@@K0#@@@R#@@ G/K@@]1'=@@@@R#@@ F/K@@]1'=@@@@R#@@ E/K@@#VEU@@@@)AH[#][T#@[#AA )@@G@@@H][T#@@()@-@C-)@@R#@@-V/,0@@@R;@@-^/K@@]1'=@@@@R#@@ H/K@@]1'=@@@@EV@@@@AB )@@G@@)AP[F[^C[4CB4[][.]]GK)A@/,0@@@R;@@@*/,0@@@9?@@@]/@@@AYR7@@@@/,0@@@R;@@@CAC )@@G@@A#@@B@EW@@@@)AY[#][.][.#@[]]G()@-[C@@@@@@@R;K@@GR#@@[C/,0@@@R;@@AF/,0@@@AD )@@G@@9?@@AJ(0@@@@9?@@@^EX@@@@)A&[#]](#@H][T#@[#@@()@-@CO0#@R;@@^G/,0@@@R;@@-^AE )@@G@@AA0@-J/K@@]1'=@@@@R#@@^?/,0@@@EY@@@@)A,[#]]L#@P@K):K0@K0@K)E@@@@@@R;@@@/AF )@@G@@/,0@@@R7@@#>A#@@#>'=@@@@/K@@BH(@@@@H/,0@@@EZ@@@@)A6[F]@T#@[]@*K)AK0@@@@@AG )@@G@@;H@@@=W9@@@/ @@@@KC K@#>/,0@@@R;@@@-/,0@@@R3@@#>/,0@@@FA@@@@)A_[M@K)E^C[AH )@@G@@)K)A@@/,0@@@?9K@@ER;@@@0/,0@@@R;@@@:/,0@@@R;@@@S(@@@@GR#@@@KW9@@@/FB@@@@AI )@@G@@)BD[EK)E^C[-]@T#@[@K0@@@RN@@#=/K@@BO0K@@#=/,0@@@R;@@@(/,0@@@R;@@@-/,0@@@AJ )@@G@@R#@@@LFC@@@@)BM[F]@(@K0@K[]@SK)AK0@@0G@@#=/,0@@@R;@@@,/,0@@@R;@@@D/K@@BSAK )@@G@@(K@@#=/K@@BS/,0@@@FD@@@@)BV[F@K0@K)EK^G@^@K)A@@@R;@@@)/,0@@@R;@@@D/K@@BY@@@C(Y@@@AU )@@G@@C!Y@@@C1Y@@@C5Y@@@000000000000 /KF@@A8^@@C)FM@@@@)C5[N@^G@0@^AV )@@G@@@@@@@@/,)@C_[>W@@@[(W@@@[!W@@@[1W@@@[5W@@@/KE@@@R#0@ JC-Y)@@/,)@C6FN@@@@AW )@@G@@)C_[MK0#^@^[@@@@@@C9)@@[R;K@@:9!@@C?/K@@DD @@@@MR;K@@@9!@@C,/KE@@@R#K@ JAX )@@G@@[-W)@@FO@@@@)DD[U@^@^@@@W8)@@E;G)@@=/K@@DO;C)@@#+8)@@B/ )@DM @@@@GE@)@@IAY )@@G@@*@@@@MR#:K@@ @@@@JFP@@@@)DO[U@K@K@@@P;@@[CT8@@@AR#)@@G/^)@DXE@:K@] @@@@JAZ )@@G@@/^)@DIG8@@@[; @@@AG9Z@@@G8.@@@FQ@@@@)DZ[U@@@@@@@*@@@@GE@FK@#; I@@@W8K@[CBA )@@G@@ @@@@HI@)@@GT8)@@AH9)@@[C[)@@IR_)@@G!8)@@HFR@@@@)D%[U@@K^@@@ @@@@J/KF@@ BB )@@G@@8^)@D0')H)C9;>@@@AO;FK@[&;K@@[&;@@@[W8@@@A;G@@@=P;@@@[FS@@@@)D5[U@@[@@@@BC )@@G@@[[K@@G')J)C0R#0@@LO;:K@@ @@@@JC[K@@JW8)@@A;G)@@=P;)@@[*@@@@IR#:K@[FT@@@@BD )@@G@@)E@[U@@[@@@@/KF@@^')H)C9C-VK@@O;FK@[W8@@@A;G@@@=P;@@@[*@@@@GR#FK@] @@@@JBE )@@G@@/KF@@#FU@@@@)EF[U@@@@@@@@@@APL@@@SSG@@@SEC@@@DOC@@@MAP@@@ALG@@@FOR@@@COBBF )@@G@@@@@ASM@@@ELT@@@SYMFV@@@@)EQ[M@@[#@@@@@@@@@1G@@#=@@@***@@@NPL@@@NRL@@@NORBG )@@G@@@@@ADD@@@RUN@@@PLS@@@LSP@@@BASFW@@@@)E)[N@^G@^G@^@@K@@/K@@E1:8K RBVK@@BH )@@G@@R;@@@[ @@@@J/K@@E50K@@#=(G@@#=R;KDF /K@@E>FX@@@@)E%[N#@GK@K0@^G@@@R;K@@NBI )@@G@@!8K@@NRBK@#&/KF@@]AB)@#& @@@@G/KF@@]2@Y)EGN8K@@NR#)@ KFY@@@@)E4[F@K0@K0#BJ )@@G@@K)Q[@K)QK@@@R#@@FF'=@@@@R#@@F^/KF@@] @@@@G'=@@@@R#@@ LAFK@-FR#X@EFFZ@@@@BK )@@G@@)E.[N][S@@*@@@@@@@EXIT' USE '*@] @E_E. OSSIBLNPUT PTHER INO FUR/K^@@@BL )@@G@@'=@@@@GA@@@@)FB[M@E]@-@?@@@@@@ENCE SCONFER/KF@@]'=@@@@R#@@FP@[A@F E. BM )@@G@@FERENCVE CONTO LEAGB@@@@)FL[M@E]A@]@CS]*@@/K@@FX*@@@@H @@@@K/K@@FG(@@@[ABN )@@G@@@[A@FJE. AILABLNOT AVYSTEM GC@@@@)FV[M^G[L@KK@@@@@@?8K@@A?8K@@);=@@@ABO )@@G@@ @@@@HR#@@@[/K@@F:?8K@@]R#K@@K;G0@@]R;0@@#GD@@@@)F>[F@@^@K0 K)!@@@@@@@@@BP )@@G@@'=@@@@A#@@@QR;@@@]/^@@F-)@0@@K;*.@@ZD@K@@HR;0@@[/K@@F%GE@@@@)F,[F#@H#@@@BQ )@@G@@K0@K),K@@@@@/G@@E''=@@@@R#@@[AR[@@@F @H@@][[H@@@A#!@@[R#)@-[R#K@ MGF@@@@BR )@@G@@)F7[##@P@ES@CK]CS[*K *S]*K @@@/,0@@@C@@@@S/,0@@@C@@@ N/,0@@@C/@@-^/K@@G]BS )@@G@@*@@@@TGG@@@@)F_[#]@1#@H][SK0 K0#K)JK)\@@@@'=@@@@'=@@@@R#@@ O @@@@QR'4@@[BT )@@G@@'=@@@@R#@@#3/,0@@@GH@@@@)GB[##@@^G@4CG^G[OC^^@@@@@@@@@'C)@GF'=@@@@*@@@@QBU )@@G@@'=@@@@R#)@^!R;K]WK/KF@@[A#@@-HGI@@@@)GJ[F#@[@K)\^G@[@K0@K0@@R#@@-$[[@@-HBV )@@G@@/K@@GE?9K:/)L[@@-HC[@@@G'=@@@@/K@@GE(@@@-GGJ@@@@)GS[F][T@ES@CS])@@@@@@@@BW )@@G@@ @G@@@AFW@@[T8K@@AR;K@@C!8K@@DR#K@@KR;@@);/K@@GE'=@@@@GK@@@@)G-[#][=K0@KBX )@@G@@^G@4C -#@@@@@@@@@@AA0@-]/KF@@['=@@@@R#@@ P/K@@G*(@@@-]/KF@@['=@@@@GL@@@@BY )@@G@@)G([F#@P#@H#@G@E]^[8@@@@'=@@@@R;@@G3M#!)@@N@K@@JR;0@@C!80@@DR#)@ RR#K@ QBZ )@@G@@R#0@@KGM@@@@)G2[MES@@CKG)@@@@@W8@@@A;G@@@=O;@@@ RBG@@@'=@@@@ @G@@@AF/@@[CA )@@G@@T80@@AR;@@)"/KF@@[GN@@@@)G/[]K0#K)QK0@K0 K)KK0@K)1@@@@'=@@@@R#@@-['=@@@@CB )@@G@@(@@@@Q @@@-]'=@@@@'K@@ S;*@@@MGO@@@@)H^[N][@@@K@@@@@@@R;G@@@/G0@HYP;0@@[CC )@@G@@;K0@@MR#0@@G @@@@IQ;FK@@&#FK@[ @@@@J'=@@@@GP@@@@)HI[M^[@K^@@@@@@@@R#H@@@CD )@@G@@R;0@@ T@)@@JR_)@@A/K@@HY8#0@HI/K@@HO%[@@C?C[H@@@K8J@@@GQ@@@@)HS[V@@K@@@@CE )@@G@@R#G@@@R#FK@@ @@@@J/KF@@#R;I@@@G8\@@[8#0@HT:8K@@ +8@@@_;C@@@A/K@@HUGR@@@@CF )@@G@@)H<[M@@^@@@@@@@@@@N@VK@C8#K@H% @G)@@C[0@@HP;K@@[R#VK@A&;@@@[R;FK@ @@@@JCG )@@G@@/KF@@]GS@@@@)H![V#@@@@@@W8)@@A;G)@@=P;)@@[R'VK@ P#@@@I/KF@@[!@)@@GG8@@@[CH )@@G@@R#:K@^R#FK@#AA0@-JGT@@@@)H8[U@@@@@@@C')@@[D'@@@[ @@@@M @@@@KR;K@@[R#0@@LCI )@@G@@&;)@@[O;:K@] @@@@JC[K@@J&;0@@[GU@@@@)I#[N@K^@^@@@@@@@@G[@@@LT9@@@EH9K@@0CJ )@@G@@C'@@@[/K@@II!9K@@'!9K@@0/K@@I:/,0@I./,@@J#GV@@@@)IH[N@^@^[#@@^@@@@/K@@I^CK )@@G@@D])@@Q%9K@@+/K@K-J/K@@IO:9K@@-%9K@@+/A@@IR1@@@@O/K@@I^GW@@@@)IR[M^@@[#@@CL )@@G@@@@@@@@/K@K-J(@@@@CR'@@@[:9K@@+R'@@@#:9K@@- @@@@C/K@@I?:9K@@ %9K@@,GX@@@@CM )@@G@@)I-[U^@K@[@@ @@@@N/K@@I^C')@@[ @@@@KR;S@@@H[)@@K/K@@I$G[)@@K/KH@I(@@@@T(@@@@ @@@@ /K@@JK[[)@-GC[:K@[ @@@@JHC@@@@)JO[]()@-@C-CS )@@G@@)E-@OCK +^[S@@@@@@/,0@@@R#@@@M/,0@@@R#@@@M/,0@@@R#@@@S/,0@@@R;@@-^HD@@@@CT )@@G@@)JW[#]@1#@@()A-[=CKR*S@@@@@@@@R#@@@HA#@@-H'=@@@@R#K@@G'=@@@@R;@@#3Q]0@-JCU )@@G@@/,0@@@HE@@@@)J=[F@K0#K)3^CF4G@[#@@@@&;K@@@ @@@-GR#@@@HA#@@-H'=@@@@R#K@@GCV )@@G@@'=@@@@R#@@#4/K@@J:HF@@@@)J![##@H@K0@K0 K^G[OG@^@@@@@@@/K@@J8 @@@-#A#@@@ACW )@@G@@/K@@JK*@@@@ A#@@-#/K@@J5>@@@ THG@@@@)J5[F@K0 K^G[OG[O@K^^@@@R7@@@@/K@@KECX )@@G@@:9)@*_/@K@KE @@@@ A#K@@K/K@@JJ*@@@@ /^K@J8HH@@@@)J"[]K^G@^G[OG@4G@4[#@O@CY )@@G@@@@@@@@N@K@@K/K@@KDR#K@ QR#@@ U^@K@@KN@K@@@/K@@K %8@@@/HI@@@@)KA[##@[#@H#CZ )@@G@@@GK0@^G@4C )@@@@@@'=@@@@R#@@ V/KF@@#(@@@-#M#W)@@R#K@ UR#@@ Q^@K@@@HJ@@@@DA )@@G@@)KI[F#@@^G@[@^CF4G@@@@@@A#@@-H'=@@@@ @@@@J/K@@JK/CF@@@ @@@-G;*@@@]/KF@@#DB )@@G@@ @@@-#HK@@@@)KR[F#@@^G@4C )^G@@@@@@@R#X@-JR#VK@@ @@@@J/KF@@#'=@@@@'K@@^$DC )@@G@@&#FK@[Q;FK@@ @@@-GHL@@@@)K)[E^G@^G@[@^CH^@@@@@@@/K@@K7/,0@@@R;H@@[/,)@LODD )@@G@@0@H@@@AA0@-JA#K@-IABH@@DR;FK@[HM@@@@)K([N@^[#@[@^@K0@@/KF@@^Q]0@-JRZG@@EDE )@@G@@/K@@K$**G@@E/K@@K00K@@#=/K@@K$0@G@@E/K@@K3HN@@@@)K3[F#@@K)$^G@[#@@@@@@@@DF )@@G@@R#VK@@ @@@@J/K@@[9R#@@@LAB@@[Q/KF@@]'=@@@@0@G@@#Q]0@-JHO@@@@)K/[N#@@^G@[DG )@@G@@@@@@@@R;H@@[A#H@@F;*@@@SR#FK@]/,)@LE0@H@@@AA0@-JABH@@DR;FK@[R#X@-JHP@@@@DH )@@G@@)LA[F]#P@K0@^G@]=@CCKV@@/,0@@@R;H@@[AZH@@^R;@@@@A#K@-I/KF@@^Q]0@-J/K@@K7DI )@@G@@/,0@@@HQ@@@@)LJ[F#@[#@@@(@@]^A8@@@@@/,0@@@R;H@@[AZH@@^R;@@@@/KE@@@ @@@@JDJ )@@G@@ @H@@@Q]0@-JR#K@-IHR@@@@)LS[F@K0@K0@@[#@@@@@@@@@R#X@-JR#VK@@ @@@@J/KE@@@DK )@@G@@ @@@@J @H@@@Q]0@-JR#K@-I/K@@K7HS@@@@)L-[F#@[#@@K[@^CI^@@@@@@/K@@K7/,0@@@DL )@@G@@R;H@@[/,)@LE0@H@@@/K@@L,*@FK@[AA0@-JA#K@-IHT@@@@)L%[F#@@K0@K@K)$K0@@@@@@DM )@@G@@R#FK@@Q]0@-J'=@@@@0@G@@#R;H@@[/K@@L1A#@@#$R#H@@AR#K@-IHU@@@@)L3[F#@@[#@GDN )@@G@@K0#@@@@@@@@@/KF@@#A#H@@CR#@@ XA#H@@ R#@@ WA#H@@@R_@__"A#H@@AR#G@#$HV@@@@DO )@@G@@)L/[##@P@K0@ES@CK] G@1]@C@@@@@/,0@@@R;K@@BR;@@^@/,0@@@R;@@-^AA0@-J/K@@M+DP )@@G@@*@@@@CHW@@@@)M^[##@[]]GK)AK0@K)@&@S]+@@@@]]@@@@[@@@@_"@@@@@@@@@@DY )@@G@@/KF@@#RRFK@[/KF@@#RVFK@[/KF@@#IE@@@@)^([I@U+O0@ES@ ^ES@@@@@@@ASG,AD DZ )@@G@@@ASG,A@@^@--@@[@@[@[I@B@@[ @ /@[ @^9@#_@@@IF@@@@)^2[Q@S@()@O0@@* @@[#@^ EA )@@G@@@[ @^@PLIT$,@USE S@[^@ =@[B@ *@@@@@[@@@@@G@@]@@@ IG@@@@)^/[I@U&@[N@EB )@@G@@@()@[N@@* @@**PF**@@M@#.@[^@#9__3@^Y@ FREE@ @@@[@[[@-_@[ @ K@[ @ FIH@@@@EC )@@G@@) @"@U&@[N@@()@O0@ES@ G@]&@@@@@@@@@@[ @A[@[ @AA@[ @ 7@[^@ 3@[^@ \@[ @ PED )@@G@@@[ @ UII@@@@) G[I@U&@[N@@@()@OK()]@@@[@@GD@EDIT:@I@@@@@[]@-E@@[__"@@[@@@EE )@@G@@ CONFR@[ @^0@[ @ ZIJ@@@@) P[I@U)OM&@[N@@ES@ @@@@@@K@@Q@B@@@@@[^@^C@@[@@[EF )@@G@@K@@@@@@[[@)1@@[@)(@@[@@@@[^@#5IK@@@@) Y@I@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#__/IL@@@@@@^@@A@@E@@9@[/@@<@^C@@]EH )@@G@@@@@@+@@@@@NA@@@@I@@@@@ Z@@@@@@@@@@@XR$ W$ ECOPY$ EI )@@G@@EPACK$ EDIT$ EDITR$ ECHAR$ ECOL$ ESKIP$ EJ )@@G@@EOCTV$ EDECV$ EFD1$ EDITX$ ECOLN$ EMSGR$ EK )@@G@@FORK$ EXIT$ NAME$ PCT$ PFS$ RLIST$ EL )@@G@@RLINK$ PRINT$ IALL$ ERR$ COM$ RINF$ EM )@@G@@SELT$ DUSE$ FACIL$ CSF$ ELT$ PFWL$ EN )@@G@@OPT$ FORMAIN$ EFD2$ EMSG$ PFI$ PFUWL$ EO )@@G@@WAIT$ DACT$ IOW$ EOCTF$ TDATE$ EABT$ EP )@@G@@AWAIT$ LINK$ TIME$ TWAIT$ ACT$ TREAD$ EQ )@@G@@READ$ SDFI SDFO SDFOO SDFIO SDFOC ER )@@G@@EDN @@@@@@@@@@@@NINTR$ @@@@@@@@@@[EEDN$ @@[@@@@@@@@@ES )@@G@@FILE @@[@@@@@@@^TNOFIL1 @@[@@@@@@@^7IDL @@[@@@@@@@A%ET )@@G@@BLKR @@[@@@@@@@B0BXFR @@[@@@@@@@B6CSF @@[@@@@@@@B_EU )@@G@@NSTOP$ @@[@@@@@@@C NERR2$ @@[@@@@@@@C NERR3$ @@[@@@@@@@C EV )@@G@@NERR4$ @@[@@@@@@@C COPY @@[@@@@@@@CASQOPY @@[@@@@@@@CCEW )@@G@@EOCT @@[@@@@@@@D]EDEC @@[@@@@@@@DAGETC @@[@@@@@@@D4EX )@@G@@PUTC @@[@@@@@@@E[TYPER @@[@@@@@@@EZCONFR @@[@@@@@@@FQEY )@@G@@IDLER @@[@@@@@@@G^MSG1 @@[@@@@@@@GUMSG2 @@[@@@@@@@GTHIRD @@[@@@@@@@M/INFO ]@@@@@@ @@@@FD )@@G@@DYN ]@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@*[S@@@*SDFF*@C@@@@ COMPILER(CONT=0,$256),(FLD=T),(ADR=IND) @ @@@@FF )@@G@@ IMPLICIT INTEGER(A-Z) @F@@@@ DIMENSION LINE(22),HOLD(22),SEFG )@@G@@TS(10),PREL(2),IBLIN(22),M3(2)@F@@@@ DIMENSION COMM(14),M1(22),M2(2FH )@@G@@2),SCALE(22),XOPS(3),ENDMSF(4)@G@@@@ DIMENSION STRING(139),PATRN(13FI )@@G@@9),PATRR(139),TMPOUT(125),HZ(2) @F@@@@ EQUIVALENCE(PREL(2),LINEFJ )@@G@@(1)),(IBLIN(1),M3(2)),(PREI,M3(1)) @A@@@@ EQUIVALENCE(HOLD(1),HZ(2FK )@@G@@)) @G@@@@ EQUIVALENCE(XOPS(1),OP),(XOPS(2),OP2),(XOPS(3),OP3),(OFL )@@G@@P,ECOL) @G@@@@ COMMON/INFO/INPT,OUTPT,IUNIT,OUNIT,SPAD,RBKF,ADDFM )@@G@@FF,RONLY,RONLX, @F@@@@ 1 ENDMSF,PR,COM,IMODE,INPL,IOPT,X,AOPT,LNSWFN )@@G@@,SQUSW,TERM,IOVER,@A@@@@ 2 LINO,PROMPT,AUTOF,AUTOC,SFG @G@@@@ FO )@@G@@COMMON/DYN/COMM,M1,M2,ALL,CCNT,CHAR,CHARSO,CIDX,CURLN0,C1,C2,DESC,@G@@@@FP )@@G@@ 1 END,F,FF,G,I,IJK,INPC,K,L,LOCX,M,MAX,MEND,MFL,MFX,N,NPATC,OOP, FQ )@@G@@@G@@@@ 2 PATC,PATRN,PATRR,POS,POSS,PRE,S,STPS,STRC,STRING,TMPOUT,TRMFR )@@G@@X, @ @@@@ 3 TT,TTR,WORDSO,Y,Y0 @G@@@@ DATA CFLG,CUR,CURLFS )@@G@@NG,DEL,ECOL,HLN,LINO,LNSW,NUML,OP2,OP3/11*0/ @E@@@@ DATA SFG,SPAFT )@@G@@DSW,SQUSW,XNUML,SCAN,TERM/6*0/,OP3/1/ @F@@@@ DATA CSS/1/,TRM/13FU )@@G@@2/,PLN/14/,SAVC/14/,PR/0/,MSP/61/,TAB/59/ @D@@@@ DATA TCH,TCHFC,TCHFV )@@G@@F,TCC,TCX,TCHLX,SVLINO/7*0/ @B@@@@ DATA SETS/11,21,37,0,0,0,0,0,0FW )@@G@@,0/ @G@@@@ DATA INPT,OUTPT,IUNIT,OUNIT,SPAD/1,2,3,4,5/,MODE/'EDITFX )@@G@@'/,AUTO/0/ @F@@@@ DATA PREL/6H :,1H /,PREI/6H :/,HZ/6H> > FY )@@G@@> ,1H / @E@@@@ DATA COMM/14*1H /,M1/22*1H /,M2/22*1H /,HOLD/22*FZ )@@G@@1H / @G@@@@ DATA SCALE/'123456789.123456789.123456789.123456789.12GA )@@G@@3456789.1234@G@@@@ 156789.123456789.123456789.123456789.123456789.12GB )@@G@@3456789.123456789.@^@@@@ 2123456789.12'/ @#@@@@ CALL IDLER GC )@@G@@@^@@@@ IF(X.EQ.0)GOTO5 @]@@@@ PLN=22@#@@@@ SAVC=22 GD )@@G@@@ @@@@5 IF(IMODE+AOPT.NE.0)GOTO2@A@@@@4 CURLNG=XSDFI(INPT,LINE,$GE )@@G@@2) @A@@@@ CALL XSDFO(IUNIT,LINE,CURLNG) @#@@@@ NUML=NUML+1 GF )@@G@@@]@@@@ GOTO4 @ @@@@2 CALL XENDF(IUNIT,0) @^@@@@ CALL XGG )@@G@@ENDF(INPT,1)@#@@@@ IOVER=0 @ @@@@ IF(AOPT.NE.0)GOTO7790 GH )@@G@@@B@@@@ IF(IMODE.NE.0.OR.PR.EQ.0)GOTO33 @]@@@@ GOTO32@^@@@@GI )@@G@@3 IF(PR.EQ.0)GOTO31 @#@@@@32 IBLIN(2)=1H @A@@@@ CALL EDEC(NUGJ )@@G@@ML,IBLIN,0,7) @^@@@@ IBLIN(1)=6HLINES: @ @@@@ CALL XPRINT(GK )@@G@@IBLIN,2) @ @@@@31 IF(COM.NE.3RADD)GOTO1000@#@@@@33 XNUML=NUML GL )@@G@@@ @@@@ IF(IOPT.EQ.0)GOTO37 @B@@@@ IF(PR.NE.0)CALL XPRINT('GM )@@G@@INPUT',1) @#@@@@ GOTO2501 @B@@@@37 IF(IMODE.EQ.0.OR.PR.EQ.0GN )@@G@@)GOTO1000 @ @@@@ CALL XPRINT('EDIT',1) @#@@@@ GOTO1000 GO )@@G@@@#@@@@34 RONLY=1 @#@@@@ GOTO1000 @ @@@@35 IF(RONLX.NE.GP )@@G@@0)GOTO14 @#@@@@ RONLY=0 @F@@@@1000 IF(AUTOF.GT.0.AND.AUTOC.GQ )@@G@@GE.AUTOF.AND.ADDFF.EQ.0)GOTO8888 @ @@@@ CALL XREAD($99,2815) GR )@@G@@@]@@@@ AUTO=0@]@@@@ SFG=0 @ @@@@1101 IF(INPL.EQ.0)GOTO250 GS )@@G@@@ @@@@ INPC=TRIM(COMM,INPL) @^@@@@ F=FLD(0,6,COMM(1))@]@@@@GT )@@G@@ ECOL=1@ @@@@ IF(F.EQ.1R*)GOTO966 @]@@@@ X=2 @]@@@@GU )@@G@@ OP3=0 @]@@@@ OOP=0 @]@@@@ OP2=0 @#@@@@ COM=1RN GV )@@G@@@^@@@@ IF(F.EQ.1R+)GOTO10@#@@@@ COM=1RU @^@@@@ IF(F.EGW )@@G@@Q.1R-)GOTO10@]@@@@ X=1 @#@@@@ COM=1RG @D@@@@ IF((F.GX )@@G@@GE.1R0.AND.F.LE.1R9).OR.F.EQ.5)GOTO10 @^@@@@ Y=MIN0(INPC,7) GY )@@G@@@#@@@@ DO 915 X=2,Y@^@@@@ FF=GETC(COMM,X) @D@@@@915 IF(FF.GZ )@@G@@EQ.5.OR.FF.EQ.1R+.OR.FF.EQ.1R.)GOTO914 @]@@@@ X=Y+1 @^@@@@914 HA )@@G@@IF(X.GT.7)GOTO14 @A@@@@ COM=FLD(0,(X-1)*6,COMM(1)) @#@@@@ HB )@@G@@STPS=X+1 @^@@@@10 CIDX=LOOKUP(COM,Y)@#@@@@ DESC=ABS(Y) @^@@@@HC )@@G@@ S=FLD(0,6,DESC) @G@@@@ IF(S.EQ.0.OR.(FLD(6,6,DESC).NE.0.ANDHD )@@G@@.FF.NE.FLD(12,6,DESC)))GOTO15 @D@@@@ CALL NSCAN($14,$917,COMM,INPC,HE )@@G@@X,XOPS,S,STPS,1R.)@ @@@@917 FF=IND(FLD(18,18,DESC)) @#@@@@ DO 916HF )@@G@@ I=1,S@^@@@@ F=THIRD(I,FF) @^@@@@ IF(F.LT.0)GOTO916 @ @@@@HG )@@G@@ IF(XOPS(I).LT.F)GOTO14 @#@@@@916 CONTINUE @ @@@@ IF(Y.LHH )@@G@@T.0)OP=MAX0(OP,1) @^@@@@15 SCAN=NUML-LINO @E@@@@ GO TO ( 16,HI )@@G@@ 1212, 7797, 110, 8001, 8002, 8003, 8004,@G@@@@ 1 1213, 7796, 769,HJ )@@G@@ 769, 3098, 6562, 540, 5383, 539, 170, 34,@G@@@@ 2 35, 171,HK )@@G@@ 179, 5319, 4020, 1311, 4021, 1131, 99, 99, 12,@G@@@@ 3 163,HL )@@G@@ 32, 256, 1021, 11, 7794, 773, 773, 773, 773, 773,@G@@@@ 4HM )@@G@@ 164, 850, 988, 400, 110, 700, 259, 503, 508, 558, 507,@G@@@@HN )@@G@@ 5 557, 854, 279, 88, 1943, 605, 773, 773, 773, 773,HO )@@G@@@G@@@@ 6 773, 447, 600, 760, 780, 538, 438, 202, 302, 663,HP )@@G@@ 113,@F@@@@ 7 500, 7793, 7793, 656, 656, 781, 609, 7777 ) , CIHQ )@@G@@DX @A@@@@16 CALL XPRINT('COMMAND ERR.',2) @#@@@@ GOTO1000 HR )@@G@@@A@@@@14 CALL XPRINT('SYNTAX ERR.',2) @#@@@@ GOTO1000 @^@@@@HS )@@G@@1943 SAVC=MIN0(22,OP) @#@@@@ GOTO1000 @#@@@@3098 CALL WHAT HT )@@G@@@#@@@@ GOTO1000 @#@@@@1212 PROMPT=1 @#@@@@ GOTO1000 HU )@@G@@@#@@@@1213 PROMPT=0 @#@@@@ GOTO1000 @^@@@@11 FLD(18,18,X)HV )@@G@@=3R @ @@@@ IF(INPC.NE.8)GOTO112 @A@@@@ FLD(18,6,X)=FLD(30HW )@@G@@,6,COMM(1)) @A@@@@ FLD(24,12,X)=FLD(0,12,COMM(2))@ @@@@112 IF(TYPHX )@@G@@ER(X).NE.0)GOTO14 @#@@@@ GOTO1000 @^@@@@88 PLN=MIN0(OP,22) HY )@@G@@@#@@@@ GOTO1000 @^@@@@279 IF(OP.EQ.0)OP=CSS @ @@@@ IF(OP2HZ )@@G@@.EQ.0)OP2=TRM @ @@@@ IF(OP2.LT.OP)GOTO14 @]@@@@ CSS=OPIA )@@G@@@#@@@@ TRM=OP2 @#@@@@ GOTO1000 @ @@@@12 MSP=FLD(24,6IB )@@G@@,COMM(1)) @#@@@@ GOTO1000 @^@@@@113 OP=MIN0(OP,132) @ @@@@IC )@@G@@ IF(OP2.NE.0)GOTO1132 @ @@@@ IF(OP.GT.72)OP2=133-OP @ @@@@ID )@@G@@ IF(OP.LE.72)OP2=73-OP @ @@@@1132 OP2=MIN0(OP2,133-OP) @ @@@@IE )@@G@@ CALL BLKR(IBLIN,22) @B@@@@ CALL COPY(SCALE,1,IBLIN,OP,OP2IF )@@G@@) @ @@@@ CALL XPRINT(IBLIN,22) @#@@@@ GOTO1000 @ @@@@IG )@@G@@170 TAB=FLD(24,6,COMM(1)) @#@@@@ GOTO1000 @D@@@@171 CALL NIH )@@G@@SCAN($14,$1000,COMM,INPC,5,SETS,10,X,1R.) @#@@@@1131 TCHLX=0 @#@@@@II )@@G@@ GOTO1000 @#@@@@1311 TCHLX=1 @#@@@@ GOTO1000 @ @@@@IJ )@@G@@4020 TCC=FLD(30,6,COMM(1)) @]@@@@ TCX=1 @#@@@@ GOTO1000 IK )@@G@@@]@@@@4021 TCX=0 @#@@@@ GOTO1000 @ @@@@179 TCH=FLD(30,6,COMM(IL )@@G@@1)) @#@@@@ GOTO1000 @ @@@@5319 TCHFC=FLD(30,6,COMM(1)) @#@@@@IM )@@G@@ GOTO1000 @]@@@@163 PR=0 @#@@@@ GOTO1000 @]@@@@164 IN )@@G@@PR=1 @#@@@@ GOTO1000 @ @@@@250 IF(PROMPT.NE.0)GOTO2501 @^@@@@IO )@@G@@ IBLIN(1)=6HINPUT: @#@@@@ IBLIN(2)=1H @A@@@@ CALL EDEC(LIIP )@@G@@NO,IBLIN,0,7) @ @@@@ CALL XPRINT(IBLIN,2) @]@@@@2501 CFLG=1IQ )@@G@@@#@@@@ COM='INPUT' @#@@@@ MODE=COM @]@@@@ ECOL=1@F@@@@IR )@@G@@252 IF(AUTOF.GT.0.AND.AUTOC.GE.AUTOF.AND.ADDFF.EQ.0)GOTO8888 @ @@@@IS )@@G@@ CALL XREAD($99,2623) @A@@@@ IF(INPL+ADDFF.EQ.0)GOTO256 IT )@@G@@@A@@@@ IF(AUTOF.GT.0)AUTOC=AUTOC+1 @#@@@@ CALL PUTLIN @D@@@@IU )@@G@@ IF(FLD(0,6,COMM(1)).EQ.MSP)FLD(0,6,COMM(1))=1R@ @]@@@@ STPS=1IV )@@G@@@^@@@@ CALL TABMOV(LINE) @#@@@@ LINO=LINO+1 @#@@@@ NUML=NIW )@@G@@UML+1 @]@@@@ CUR=1 @]@@@@ DEL=0 @#@@@@ GOTO252 @#@@@@IX )@@G@@256 MODE='EDIT' @ @@@@ IF(PROMPT.NE.0)GOTO1000 @^@@@@ IBLIN(IY )@@G@@1)=6HEDIT: @#@@@@ IBLIN(2)=1H @A@@@@ CALL EDEC(LINO,IBLIN,0,6IZ )@@G@@) @ @@@@ CALL XPRINT(IBLIN,2) @#@@@@ GOTO1000 @ @@@@JA )@@G@@259 IF(NUML.EQ.LINO)GOTO250 @#@@@@ OP=NUML-LINO@#@@@@ GOTO20JB )@@G@@0 @^@@@@202 IF(OP.GE.0)GOTO200@#@@@@ COM=1RU @#@@@@ JC )@@G@@OP=ABS(OP) @#@@@@ GOTO300 @^@@@@200 DO 201 I=1,OP @ @@@@JD )@@G@@ IF(RBKF.NE.0)GOTO256 @#@@@@ CALL PUTLIN @^@@@@ CALL GJE )@@G@@ETLIN($100) @]@@@@ DEL=0 @#@@@@ LINO=LINO+1 @]@@@@ CUR=1 JF )@@G@@@#@@@@201 CONTINUE @ @@@@ IF(COM.EQ.1RD)GOTO7776 @ @@@@ JG )@@G@@IF(COM.EQ.1RP)GOTO501 @ @@@@ IF(COM.EQ.1RC)GOTO706 @ @@@@ JH )@@G@@IF(COM.EQ.1RB)GOTO250 @ @@@@203 IF(COM.NE.4RSAVE)GOTO204@A@@@@205 JI )@@G@@IF(MODE.EQ.'INPUT')GOTO2501 @ @@@@ IF(AUTO.NE.0)GOTO1000 @#@@@@JJ )@@G@@ GOTO256 @ @@@@204 IF(PR.NE.0)CALL WRITER @#@@@@ GOTO10JK )@@G@@00 @]@@@@110 CFLG=0@#@@@@ NUML=XNUML @^@@@@400 CALL TOP($25JL )@@G@@6) @ @@@@ IF(COM.EQ.4RSAVE)GOTO205@A@@@@ IF(COM.NE.4RINIT)GJM )@@G@@OTO1000 @]@@@@ NUML=0@#@@@@ IOVER=1 @]@@@@ IOPT=0JN )@@G@@@]@@@@ AOPT=0@#@@@@ COM=3RADD @#@@@@ IUNIT=3 @#@@@@JO )@@G@@ OUNIT=4 @D@@@@ IF(PR.NE.0)CALL XPRINT('TEXT INITIALIZED.'JP )@@G@@,3) @]@@@@ GOTO5 @#@@@@100 CALL EOF @ @@@@ IF(PR.EQ.0)GJQ )@@G@@OTO1000 @B@@@@ IF(COM.EQ.1RG.OR.COM.EQ.1RN)GOTO109 @#@@@@1021 JR )@@G@@IBLIN(2)=1H @^@@@@ IBLIN(1)=6HSCAN: @A@@@@ CALL EDEC(SCAN,IBLJS )@@G@@IN,0,6) @ @@@@ CALL XPRINT(IBLIN,2) @ @@@@ IF(COM.EQ.2RJT )@@G@@SC)GOTO1000 @^@@@@109 IBLIN(1)=6HEOF: @#@@@@ IBLIN(2)=1H @A@@@@JU )@@G@@ CALL EDEC(NUML,IBLIN,0,5) @ @@@@ CALL XPRINT(IBLIN,2) JV )@@G@@@#@@@@ GOTO1000 @^@@@@302 IF(OP.GE.0)GOTO300@#@@@@ COM=1RJW )@@G@@N @#@@@@ OP=ABS(OP) @#@@@@ GOTO200 @ @@@@300 OP=LINJX )@@G@@O-MAX0(OP,1)+DEL @^@@@@ IF(OP.LE.0)GOTO400@ @@@@ IF(DEL.EQ.0)JY )@@G@@GOTO854 @#@@@@ GOTO853 @#@@@@508 SQUSW=1 @#@@@@ JZ )@@G@@GOTO1000 @#@@@@558 SQUSW=0 @#@@@@ GOTO1000 @]@@@@507 KA )@@G@@LNSW=1@#@@@@ GOTO1000 @]@@@@557 LNSW=0@#@@@@ GOTO1000 KB )@@G@@@^@@@@503 CALL TOP($256) @#@@@@ OP=NUML+1 @#@@@@ GOTO50KC )@@G@@2 @ @@@@500 IF(OP2.EQ.0)GOTO502 @#@@@@ GOTO200 @ @@@@KD )@@G@@501 OP=MAX0(OP2-OP+1,1) @#@@@@502 CALL WRITER @ @@@@ IF(RBKKE )@@G@@F.NE.0)GOTO256 @ @@@@ IF(OP.EQ.1)GOTO1000 @#@@@@ OP=OP-KF )@@G@@1 @#@@@@ CALL PUTLIN @^@@@@ CALL GETLIN($100) @]@@@@ KG )@@G@@CUR=1 @]@@@@ DEL=0 @#@@@@ LINO=LINO+1 @#@@@@ GOTO502 KH )@@G@@@B@@@@656 IF(COM.EQ.2RRH.AND.CUR.EQ.0)COM=2RIH@ @@@@ IF(COM.EQ.2RKI )@@G@@RH)GOTO658 @#@@@@ CALL PUTLIN @#@@@@ LINO=LINO+1 @#@@@@ KJ )@@G@@NUML=NUML+1 @]@@@@ DEL=0 @]@@@@658 CFLG=1@#@@@@ INPL=HLN KK )@@G@@@A@@@@ CALL BXFR(HOLD,COMM,INPL) @]@@@@ STPS=1@]@@@@ KL )@@G@@CUR=1 @^@@@@ CALL TABMOV(LINE) @#@@@@ GOTO1000 @ @@@@6562 KM )@@G@@CALL XPRINT(HZ,HLN+1) @#@@@@ GOTO1000 @^@@@@663 CALL BLKR(HOKN )@@G@@LD,22)@]@@@@ HLN=0 @ @@@@ IF(INPC.LT.STPS)GOTO1000@ @@@@ KO )@@G@@HLN=(INPC-STPS+6)/6 @C@@@@ CALL COPY(COMM,STPS,HOLD,1,INPC-STPSKP )@@G@@+1) @#@@@@ GOTO1000 @#@@@@438 OP3=OP2 @]@@@@ OP2=OPKQ )@@G@@@]@@@@ OP=0 @B@@@@538 IF(CUR.EQ.0.OR.CURLNG.EQ.0)GOTO5389 @ @@@@KR )@@G@@ X=TRIM(LINE,CURLNG) @^@@@@ FF=MIN0(OP2,X) @ @@@@ KS )@@G@@IF(COM.EQ.3RCTC)FF=X-FF @#@@@@ X=X-OP-FF @^@@@@ IF(X.GT.0)GOKT )@@G@@TO5381@#@@@@ CURLNG=0 @#@@@@ LINE(1)=1H @#@@@@ GOTO53KU )@@G@@88 @A@@@@5381 CALL BXFR(LINE,IBLIN,CURLNG) @ @@@@ CALL BLKR(LIKV )@@G@@NE,CURLNG) @A@@@@ CALL COPY(IBLIN,OP+1,LINE,1,X)@^@@@@ CURLNGKW )@@G@@=(X+5)/6 @]@@@@5388 CFLG=1@ @@@@5389 IF(PR.NE.0)CALL WRITER @ @@@@KX )@@G@@ IF(RBKF.NE.0)GOTO256 @ @@@@ IF(OP3.LE.1)GOTO1000 @#@@@@KY )@@G@@ OP3=OP3-1 @#@@@@ CALL PUTLIN @^@@@@ CALL GETLIN($100) KZ )@@G@@@#@@@@ LINO=LINO+1 @]@@@@ DEL=0 @]@@@@ CUR=1 @#@@@@ LA )@@G@@GOTO538 @ @@@@5383 IF(CUR.EQ.0)GOTO1000 @ @@@@ X=TRIM(LINE,LB )@@G@@CURLNG) @#@@@@ IBLIN(2)=1H @^@@@@ IBLIN(1)=6HCHARS: @ @@@@LC )@@G@@ CALL EDEC(X,IBLIN,0,7) @ @@@@ CALL XPRINT(IBLIN,2) @#@@@@LD )@@G@@ GOTO1000 @ @@@@539 IF(CUR.EQ.0)GOTO1000 @ @@@@ IF(INPLE )@@G@@C.LT.STPS)GOTO1000@^@@@@ X=INPC-STPS+1 @^@@@@ IF(X.LE.0)GOLF )@@G@@TO1000@#@@@@ GOTO5401 @ @@@@540 IF(CUR.EQ.0)GOTO1000 @ @@@@LG )@@G@@ IF(HLN.EQ.0)GOTO1000 @ @@@@ CALL BXFR(HOLD,COMM,HLN)@]@@@@LH )@@G@@ STPS=1@^@@@@ X=TRIM(HOLD,HLN) @ @@@@5401 Y=TRIM(LINE,CURLNGLI )@@G@@) @G@@@@ IF(X.GT.SAVC*6-Y.AND.PR.NE.0)CALL XPRINT('IMAGE TRUNCALJ )@@G@@TED.',3) @^@@@@ X=MIN0(X,SAVC*6-Y)@^@@@@ IF(X.LE.0)GOTO1000LK )@@G@@@]@@@@ CFLG=1@B@@@@ CALL BLKR(LINE(CURLNG+1),22-CURLNG) @B@@@@LL )@@G@@ CALL COPY(COMM,STPS,LINE,Y+1,X) @^@@@@ CURLNG=(X+Y+5)/6 LM )@@G@@@#@@@@ GOTO1000 @]@@@@600 DEL=0 @#@@@@ CALL PUTLIN @^@@@@LN )@@G@@ CALL TABMOV(LINE) @]@@@@ CUR=1 @]@@@@604 CFLG=1@#@@@@ LO )@@G@@NUML=NUML+1 @#@@@@ LINO=LINO+1 @#@@@@ GOTO1000 @^@@@@605 LP )@@G@@CURLN0=CURLNG @^@@@@ CALL TABMOV(IBLIN)@A@@@@ CALL XSDFO(OLQ )@@G@@UNIT,IBLIN,CURLNG)@^@@@@ CURLNG=CURLN0 @#@@@@ GOTO604 LR )@@G@@@ @@@@609 CALL BXFR(HOLD,COMM,HLN)@#@@@@ INPL=HLN @^@@@@ LS )@@G@@CURLN0=CURLNG @]@@@@ STPS=1@^@@@@ CALL TABMOV(IBLIN)@A@@@@LT )@@G@@ CALL XSDFO(OUNIT,IBLIN,CURLNG)@^@@@@ CURLNG=CURLN0 @]@@@@LU )@@G@@ CFLG=1@#@@@@ LINO=LINO+1 @#@@@@ NUML=NUML+1 @#@@@@ LV )@@G@@GOTO1000 @ @@@@700 CALL CSCAN($14,$256) @]@@@@ F=0 @^@@@@LW )@@G@@ IF(OOP.GT.1)F=1 @ @@@@706 IF(CUR.EQ.0)GOTO707 @G@@@@ LX )@@G@@CALL SCANR(LINE,CURLNG,M1,C1,M2,C2,LINE,22,CSS,TRM,G,MFL,TCX,TCC, @#@@@@LY )@@G@@ 1 CURLN0,MFX)@ @@@@ IF(MFX.NE.0)GOTO708 @A@@@@ IF(F.ELZ )@@G@@Q.1.OR.ALL.EQ.1)GOTO707 @D@@@@ IF(PR.NE.0)CALL XPRINT('PATTERN NOT MA )@@G@@FOUND.',3) @#@@@@ GOTO1000 @G@@@@708 IF(CURLN0.GT.SAVC.AND.PRMB )@@G@@.NE.0)CALL XPRINT('IMAGE TRUNCATED.',3) @ @@@@ CURLNG=MIN0(CURLN0MC )@@G@@,SAVC)@]@@@@ CFLG=1@ @@@@ IF(PR.NE.0)CALL WRITER @ @@@@707 MD )@@G@@IF(RBKF.NE.0)GOTO256 @ @@@@ IF(OOP.GT.1)GOTO709 @^@@@@ ME )@@G@@IF(ALL.NE.0)GOTO3 @#@@@@ GOTO1000 @#@@@@709 OOP=OOP-1 @]@@@@MF )@@G@@ OP=1 @#@@@@ GOTO200 @ @@@@760 IF(CUR.EQ.0)GOTO600 MG )@@G@@@^@@@@763 CALL TABMOV(LINE) @]@@@@ CFLG=1@#@@@@ GOTO1000 MH )@@G@@@#@@@@988 CALL IDL @#@@@@ GOTO1000 @^@@@@966 OP=CSF(COMM,MI )@@G@@INPL) @C@@@@ IF(OP.NE.0.OR.FLD(0,1,OP).NE.0)GOTO9661 @E@@@@ MJ )@@G@@IF(PROMPT.EQ.0.AND.PR.NE.0)CALL XPRINT('READY',1) @#@@@@ GOTO10MK )@@G@@00 @^@@@@9661 IBLIN(1)='FAC ST' @^@@@@ IBLIN(2)='ATUS ' @A@@@@ML )@@G@@ CALL EOCT(OP,IBLIN(3),12,1) @ @@@@ CALL XPRINT(IBLIN,4) MM )@@G@@@#@@@@ GOTO1000 @ @@@@769 IF(CUR.EQ.0)GOTO1000 @#@@@@ MN )@@G@@HLN=CURLNG @A@@@@ CALL BXFR(LINE,HOLD,CURLNG) @ @@@@ IF(COMMO )@@G@@.EQ.2RHL)GOTO1000 @#@@@@ COM=1RD @]@@@@ OP=1 @#@@@@ MP )@@G@@GOTO770 @#@@@@8888 COM=4RSAVE @A@@@@ CALL XPRINT('AUTO SAVE.'MQ )@@G@@,2) @]@@@@ AUTO=1@#@@@@7797 SVLINO=LINO @^@@@@7796 CALL TOP($25MR )@@G@@6) @#@@@@ OP=NUML+1 @#@@@@ AUTOC=0 @A@@@@7793 CALL XMS )@@G@@SDFO(SPAD,'*SDFF*',2R*[)@]@@@@ SFG=1 @#@@@@ SPADSW=0 @ @@@@MT )@@G@@ IF(COM.NE.3RSPD)GOTO7792@]@@@@ DEL=1 @B@@@@ IF(CUR.NE.0)MU )@@G@@LINO=MAX0(LINO-1,0) @]@@@@ CFLG=1@B@@@@ IF(CUR.NE.0)NUML=MMV )@@G@@AX0(NUML-1,0) @#@@@@ GOTO7792 @ @@@@7791 NUML=MAX0(NUML-1,0MW )@@G@@) @C@@@@7792 IF(CUR.NE.0)CALL XSDFO(SPAD,LINE,CURLNG) @B@@@@ MX )@@G@@IF(RBKF.NE.0.OR.OP.EQ.1)GOTO7799 @#@@@@ OP=OP-1 @A@@@@ MY )@@G@@IF(COM.NE.3RSPD)CALL PUTLIN @^@@@@ CALL GETLIN($100) @A@@@@ MZ )@@G@@IF(COM.NE.3RSPD)LINO=LINO+1 @]@@@@ CUR=1 @ @@@@ IF(COM.EQ.3RNA )@@G@@SPD)GOTO7791@]@@@@ DEL=0 @#@@@@ GOTO7792 @ @@@@7799 CALL XNB )@@G@@ENDF(SPAD,SPADSW) @ @@@@ IF(COM.EQ.3RSPD)CUR=0 @]@@@@ SFG=0 NC )@@G@@@ @@@@ IF(RBKF.NE.0)GOTO256 @A@@@@ IF(COM.EQ.4RSAVE)GOTO779ND )@@G@@8 @ @@@@ IF(COM.EQ.4RSPL!)GOTO3 @ @@@@ IF(COM.NE.3RADD)GONE )@@G@@TO1000@ @@@@ IF(OP3.NE.0)GOTO7800 @ @@@@ IF(PR.EQ.0)GOTO100NF )@@G@@0 @#@@@@ IBLIN(2)=1H @^@@@@ IBLIN(1)=6HADDED: @ @@@@ NG )@@G@@CALL EDEC(X,IBLIN,0,7) @ @@@@ CALL XPRINT(IBLIN,2) @#@@@@ NH )@@G@@GOTO1000 @^@@@@7800 CALL TOP($256) @ @@@@ IF(PR.EQ.0)GOTO100NI )@@G@@0 @#@@@@ COM=4RAOPT @]@@@@ GOTO32@#@@@@7798 OP=SVLINO NJ )@@G@@@#@@@@ GOTO854 @B@@@@7790 CALL XPRINT('AUTO RECOVERY.',3) NK )@@G@@@]@@@@7794 X=0 @]@@@@ SFG=1 @#@@@@ SPADSW=1 @ @@@@7795 NL )@@G@@IF(RBKF.NE.0)GOTO7799 @A@@@@ OP=XSDFI(SPAD,IBLIN,$7799) @]@@@@NM )@@G@@ X=X+1 @#@@@@ CALL PUTLIN @ @@@@ CALL BXFR(IBLIN,LINE,OP)NN )@@G@@@]@@@@ CUR=1 @#@@@@ LINO=LINO+1 @#@@@@ NUML=NUML+1 @]@@@@NO )@@G@@ CFLG=1@#@@@@ CURLNG=OP @]@@@@ DEL=0 @#@@@@ GOTO77NP )@@G@@95 @ @@@@7777 IF(OP2.EQ.0)GOTO770 @#@@@@ GOTO200 @ @@@@NQ )@@G@@7776 OP=MAX0(OP2-OP+1,1) @]@@@@770 DEL=1 @B@@@@ IF(CUR.NE.0)NR )@@G@@LINO=MAX0(LINO-1,0) @]@@@@ CFLG=1@ @@@@ IF(CUR.NE.0)NUML=NNS )@@G@@UML-1 @]@@@@ CUR=0 @#@@@@ GOTO772 @#@@@@771 NUML=NUML-1 NT )@@G@@@^@@@@772 NUML=MAX0(NUML,0) @ @@@@ IF(OOP.EQ.1RX)GOTO7703 @ @@@@NU )@@G@@ IF(OOP.EQ.1RD)GOTO774 @ @@@@ IF(RBKF.NE.0)GOTO256 @ @@@@NV )@@G@@ IF(OP.EQ.1)GOTO1000 @#@@@@ OP=OP-1 @^@@@@ CALL GNW )@@G@@ETLIN($100) @#@@@@ GOTO771 @ @@@@773 IF(STPS.GT.INPC)GOTO14 NX )@@G@@@]@@@@ OP3=0 @B@@@@ IF(GETC(COMM,STPS-1).EQ.1R.)OP3=1 @D@@@@NY )@@G@@ IF(COM.EQ.1RL.OR.FLD(24,6,COM).EQ.1RL)GOTO776 @]@@@@ TCHF=1NZ )@@G@@@#@@@@ TRMX=132 @]@@@@ POS=1 @#@@@@ X=TCHFC @^@@@@OA )@@G@@ FLD(24,6,X)=X @^@@@@ FLD(12,12,X)=X @^@@@@ FLD(0,OB )@@G@@12,X)=X @^@@@@ DO 7731 I=1,22 @#@@@@7731 M1(I)=X @^@@@@OC )@@G@@ CURLN0=CURLNG @#@@@@ CURLNG=0 @^@@@@ CALL TABMOV(OD )@@G@@M1) @]@@@@ C1=Y0 @^@@@@ CURLNG=CURLN0 @#@@@@ GOTO77OE )@@G@@02 @#@@@@776 TCHF=TCHLX @^@@@@ POS=COMPL(CSS) @#@@@@ OF )@@G@@TRMX=TRM @^@@@@ C1=INPC+1-STPS @A@@@@ CALL COPY(COMM,STPOG )@@G@@S,M1,1,C1) @^@@@@7702 OOP=FLD(30,6,COM) @#@@@@ TALLY=0 @E@@@@OH )@@G@@7703 IF((OOP.EQ.1RX.OR.OOP.EQ.1RD).AND.NUML.EQ.LINO)GOTO3 @ @@@@ OI )@@G@@IF(OOP.EQ.1RD)GOTO770 @ @@@@774 IF(RBKF.NE.0)GOTO256 @#@@@@ OJ )@@G@@CALL PUTLIN @^@@@@ CALL GETLIN($1777)@#@@@@ LINO=LINO+1 @]@@@@OK )@@G@@ CUR=1 @]@@@@ DEL=0 @A@@@@ IF(OOP.EQ.1RP)CALL WRITER OL )@@G@@@G@@@@ CALL SCANR(LINE,CURLNG,M1,C1,TT,0,TT,0,COMPL(POS),TRMX,0,MFLOM )@@G@@,TCHF @^@@@@ 1 ,TCHFC,0,MFX) @ @@@@ IF(MFX.EQ.OP3)GOTO7703 ON )@@G@@@G@@@@ IF((OOP.EQ.1RF.OR.OOP.EQ.1RL.OR.OOP.EQ.1RD).AND.PR.NE.0)CALLOO )@@G@@WRITER@^@@@@ TALLY=TALLY+1 @C@@@@ IF(OOP.NE.1RC.AND.OOP.NEOP )@@G@@.1RX)GOTO1000 @ @@@@ IF(PR.EQ.0)GOTO1778 @]@@@@ X=LNSWOQ )@@G@@@]@@@@ LNSW=1@#@@@@ CALL WRITER @]@@@@ LNSW=X@ @@@@1778 OR )@@G@@IF(OOP.EQ.1RX)GOTO770 @#@@@@ GOTO7703 @ @@@@1777 IF(OOP.NE.1ROS )@@G@@C)GOTO100 @^@@@@ IBLIN(1)=6HTALLY: @#@@@@ IBLIN(2)=1H @A@@@@OT )@@G@@ CALL EDEC(TALLY,IBLIN,0,7) @ @@@@ CALL XPRINT(IBLIN,2) OU )@@G@@@#@@@@ GOTO100 @ @@@@447 IF(CUR.EQ.0)GOTO1000 @#@@@@ OV )@@G@@CALL PUTLIN @#@@@@ COM=1RA @#@@@@ LINO=LINO+1 @#@@@@ OW )@@G@@NUML=NUML+1 @]@@@@ DEL=0 @ @@@@780 IF(CUR.EQ.0)GOTO1000 @^@@@@OX )@@G@@ CALL TABMOV(LINE) @]@@@@ CFLG=1@#@@@@ GOTO1000 @ @@@@OY )@@G@@781 IF(CUR.EQ.0)GOTO1000 @]@@@@ STPS=1@#@@@@ INPL=HLN OZ )@@G@@@A@@@@ CALL BXFR(HOLD,COMM,INPL) @#@@@@ COM=1RA @#@@@@PA )@@G@@ GOTO780 @ @@@@8001 FLD(0,24,COMM(1))=0 @#@@@@ CALL MPB )@@G@@SG1 @#@@@@ GOTO1000 @ @@@@8002 FLD(0,30,COMM(1))=0 @#@@@@PC )@@G@@ CALL MSG2 @#@@@@ GOTO1000 @^@@@@8004 CALL CONFR($99) PD )@@G@@@#@@@@ GOTO1000 @#@@@@8003 AUTOF=OP @#@@@@ AUTOC=0 PE )@@G@@@#@@@@ GOTO1000 @#@@@@850 COM=1RG @#@@@@ OP=NUML PF )@@G@@@^@@@@854 IF(OP.EQ.0)GOTO400@ @@@@ IF(OP.NE.LINO)GOTO855 @ @@@@PG )@@G@@ IF(DEL.EQ.1)GOTO853 @#@@@@ GOTO203 @ @@@@855 IF(OP.PH )@@G@@GT.LINO)GOTO856 @^@@@@853 CALL TOP($256) @#@@@@856 OP=OP-LINO PI )@@G@@@#@@@@ GOTO200 @]@@@@99 TERM=1@C@@@@ IF(COM.EQ.3REND.ORPJ )@@G@@.RONLY.NE.0)CALL NOFIL1 @C@@@@ IF(NUML.EQ.0.AND.COM.NE.4RFILE)CALL PK )@@G@@NOFIL1@^@@@@ CALL TOP($256) @B@@@@ CALL XSDFO(OUTPT,'*SDFF*PL )@@G@@',2R*[) @^@@@@9998 CALL GETLIN($9999)@A@@@@ CALL XSDFO(OUTPT,LPM )@@G@@INE,CURLNG) @#@@@@ LINO=LINO+1 @#@@@@ GOTO9998 @ @@@@9999 PN )@@G@@CALL XENDF(OUTPT,0) @A@@@@ CALL EDEC(LINO,ENDMSF,0,17) @#@@@@PO )@@G@@ CALL FILE @ @@@@ SUBROUTINE TABMOV(B) @ @@@@ IMPLICPP )@@G@@IT INTEGER(A-Z) @^@@@@ DIMENSION B(1) @]@@@@ S=132 @D@@@@PQ )@@G@@ IF(COM.EQ.1RF.OR.FLD(24,6,COM).EQ.1RF)GOTO1 @#@@@@ S=SAVCPR )@@G@@*6 @ @@@@ IF(COM.NE.1RA)CURLNG=0 @B@@@@ CALL BLKR(B(CURLNGPS )@@G@@+1),22-CURLNG) @]@@@@1 TT=0 @^@@@@ Y=MAX0(ECOL-1,0) @]@@@@PT )@@G@@ Y0=0 @ @@@@ IF(ECOL.GT.S)GOTO126 @ @@@@ MAX=TRIM(COMPU )@@G@@M,INPL) @ @@@@ IF(MAX.LT.STPS)GOTO125 @^@@@@ DO 123 X=STPPV )@@G@@S,MAX @]@@@@ Y=Y+1 @]@@@@ Y0=Y @^@@@@ CHAR=GETC(COMM,X) PW )@@G@@@B@@@@ IF(CHAR.EQ.TAB.AND.TAB.NE.5)GOTO3 @C@@@@ IF(COM.EQ.1RPX )@@G@@A.AND.CHAR.EQ.TCH)GOTO122 @ @@@@ CALL PUTC(CHAR,B,Y0) @#@@@@PY )@@G@@ GOTO122 @#@@@@3 TT=TT+1 @B@@@@ IF(TT.GT.10.OR.SETPZ )@@G@@S(TT).EQ.0)GOTO122@ @@@@ IF(SETS(TT).LE.Y0)GOTO3 @#@@@@ Y=SETSQA )@@G@@(TT)-1@^@@@@122 IF(Y.GE.S)GOTO124 @#@@@@123 CONTINUE @#@@@@ QB )@@G@@GOTO125 @ @@@@124 IF(X.EQ.MAX)GOTO125 @D@@@@126 IF(PR.NE.0)CQC )@@G@@ALL XPRINT('IMAGE TRUNCATED.',3) @#@@@@125 Y=(Y0+5)/6 @A@@@@ QD )@@G@@CURLNG=MAX0(CURLNG,MIN0(Y,22))@]@@@@ ECOL=1@]@@@@ RETURN@ @@@@QE )@@G@@ SUBROUTINE CSCAN($,$) @]@@@@ ALL=0 @]@@@@ C1=0 @]@@@@QF )@@G@@ C2=0 @ @@@@ F=FLD(12,6,COMM(1)) @^@@@@ IF(F.EQ.5)GOQG )@@G@@TO999 @]@@@@ G=0 @]@@@@ OOP=0 @]@@@@ X=4 @^@@@@1000 QH )@@G@@CHAR=GETC(COMM,X) @ @@@@ IF(CHAR.EQ.F)GOTO100 @#@@@@ C1=C1+QI )@@G@@1 @ @@@@ CALL PUTC(CHAR,M1,C1) @ @@@@ IF(X.GE.INPC)GOTO9QJ )@@G@@99 @]@@@@ X=X+1 @#@@@@ GOTO1000 @ @@@@100 IF(X.GE.INPCQK )@@G@@)GOTO999 @]@@@@ X=X+1 @^@@@@1001 CHAR=GETC(COMM,X) @ @@@@ QL )@@G@@IF(CHAR.EQ.F)GOTO101 @#@@@@ C2=C2+1 @ @@@@ CALL PUTC(CHQM )@@G@@AR,M2,C2) @ @@@@ IF(X.GE.INPC)GOTO999 @]@@@@ X=X+1 @#@@@@QN )@@G@@ GOTO1001 @ @@@@101 IF(X.GE.INPC)GOTO5000 @]@@@@102 X=X+1 QO )@@G@@@^@@@@ CHAR=GETC(COMM,X) @ @@@@ IF(CHAR.EQ.5)GOTO102 @ @@@@QP )@@G@@103 IF(CHAR.EQ.1RA)GOTO2000 @ @@@@ IF(CHAR.EQ.1RG)GOTO3000 @D@@@@QQ )@@G@@104 CALL NSCAN($999,$1041,COMM,INPC,X,OOP,1,X,1R ) @ @@@@1041 IF(X.GQR )@@G@@T.INPC)GOTO5000 @^@@@@105 CHAR=GETC(COMM,X) @]@@@@ X=X+1 @ @@@@QS )@@G@@ IF(CHAR.EQ.5)GOTO105 @ @@@@ IF(CHAR.NE.1RG)GOTO999 @]@@@@QT )@@G@@3000 G=1 @^@@@@5000 OOP=MAX0(OOP,1) @]@@@@ RETURN@]@@@@2000 QU )@@G@@G=1 @^@@@@ CALL TOP($2001) @]@@@@ ALL=1 @#@@@@ OOP=NUQV )@@G@@ML+1 @]@@@@ RETURN@#@@@@2001 RETURN 2 @#@@@@999 RETURN 1 QW )@@G@@@G@@@@ SUBROUTINE SCANR(IN,WI,PF,WF,PR,WR,OUT,WO,POS,TRM,GLOBAL,PREQX )@@G@@, @ @@@@ 1 TCHF,TCH,RETWO,MFLAG) @C@@@@ DIMENSION IN(WI),PQY )@@G@@F(WF),PR(WR),OUT(WO) @ @@@@ DEFINE C(I)=FLD(6,6,I) @]@@@@ QZ )@@G@@PRE=0 @#@@@@ MFLAG=0 @#@@@@ TTR=TRM @ @@@@ IF(TTRRA )@@G@@.LE.0)TTR=132 @^@@@@ STRC=TRIM(IN,WI) @^@@@@ TTR=MIN0(STRRB )@@G@@C,TTR)@#@@@@ PATC=WF @C@@@@ IF(PATC.GT.MAX0(ABS(POS),1)-1+RC )@@G@@TTR)RETURN @B@@@@ CALL UNPACK(IN,WI,STRC+1,STRING) @B@@@@ RD )@@G@@CALL UNPACK(PF,WF,PATC+1,PATRN) @^@@@@ IF(WO.EQ.0)GOTO101@#@@@@RE )@@G@@ NPATC=WR @B@@@@ CALL UNPACK(PR,WR,NPATC+1,PATRR) @ @@@@RF )@@G@@101 IF(PATC.EQ.0)GOTO12 @ @@@@ N=MAX0(ABS(POS),1)+1 @ @@@@RG )@@G@@100 IF(N-1.GT.TTR)GOTO99 @A@@@@1 IF(N.GT.TTR-PATC+2)GOTO99 RH )@@G@@@C@@@@ IF(TCHF.NE.0.AND.C(PATRN(2)).EQ.TCH)GOTO2 @B@@@@ IF(C(SRI )@@G@@TRING(N)).EQ.C(PATRN(2)))GOTO2@]@@@@ N=N+1 @]@@@@ GOTO1 @#@@@@RJ )@@G@@2 POSS=N-1 @^@@@@ IF(PATC.EQ.1)GOTO5@]@@@@ N=N+1 @]@@@@RK )@@G@@ M=3 @]@@@@ CCNT=1@^@@@@ DO 3 M=2,PATC @D@@@@ RL )@@G@@IF(TCHF.NE.0.AND.C(PATRN(M+1)).EQ.TCH)GOTO8 @C@@@@ IF(C(STRING(RM )@@G@@N)).NE.C(PATRN(M+1)))GOTO4 @#@@@@8 CCNT=CCNT+1 @ @@@@ IF(CCNRN )@@G@@T.EQ.PATC)GOTO5 @]@@@@ N=N+1 @ @@@@ IF(N.GT.TTR+1)GOTO99 RO )@@G@@@#@@@@3 CONTINUE @]@@@@ GOTO99@C@@@@5 IF(POS.LT.0.AND.PORP )@@G@@SS.NE.ABS(POS))RETURN @#@@@@ PRE=POSS @#@@@@ MFLAG=1 RQ )@@G@@@^@@@@ IF(WO.EQ.0)RETURN @^@@@@ MEND=POSS+1+PATC @C@@@@ RR )@@G@@IF(MEND-1.GT.STRC.AND.NPATC.EQ.0)MEND=PRE @C@@@@ CALL LINKUP(PRE,STRS )@@G@@RING,MEND,PATRR,NPATC) @ @@@@ CHARSO=STRC+1-PATC+NPATC@ @@@@ RT )@@G@@WORDSO=(CHARSO+4)/6 @C@@@@ CALL REPACK(STRING,WORDSO,CHARSO,TMPRU )@@G@@OUT) @B@@@@ IF(GLOBAL.EQ.0.OR.POS.LT.0)GOTO11 @^@@@@ N=PRE+RV )@@G@@1+NPATC @^@@@@ STRC=CHARSO-1 @^@@@@ TTR=TTR-PATC+NPATCRW )@@G@@@C@@@@ CALL UNPACK(TMPOUT,WORDSO,CHARSO,STRING) @#@@@@ GOTO10RX )@@G@@0 @ @@@@12 WORDSO=(STRC+NPATC+5)/6 @^@@@@ TMPOUT(WORDSO)=1H RY )@@G@@@A@@@@ CALL COPY(PR,1,TMPOUT,1,NPATC)@B@@@@ CALL COPY(IN,1,TMPRZ )@@G@@OUT,1+NPATC,STRC) @#@@@@ MFLAG=1 @^@@@@11 CALL BLKR(OUT,WO) SA )@@G@@@ @@@@ RETWO=MIN0(WO,WORDSO) @A@@@@ CALL BXFR(TMPOUT,OUT,RETSB )@@G@@WO) @]@@@@ RETURN@#@@@@4 N=POSS+2 @]@@@@ GOTO1 @^@@@@SC )@@G@@99 IF(PRE.NE.0)GOTO11@]@@@@ RETURN@D@@@@ SUBROUTINE UNPACK(SD )@@G@@INPUT,NOWDS,NOCHRS,OUTPUT) @C@@@@ DIMENSION INPUT(NOWDS),OUTPUT(SE )@@G@@NOCHRS) @^@@@@ DO 60 L=1,NOCHRS @#@@@@60 OUTPUT(L)=0 @E@@@@SF )@@G@@ IF(NOCHRS.EQ.1)GOTO71 @ NOCHRS=NUMBER OF CHARS + 1 @]@@@@ SG )@@G@@I=1 @]@@@@ K=1 @B@@@@ FLD(18,18,OUTPUT(1))=LOC(OUTPUT(2)) SH )@@G@@@^@@@@ DO 70 IJK=2,NOCHRS@C@@@@ FLD(6,6,OUTPUT(IJK))=FLD(6*I-6SI )@@G@@,6,INPUT(K))@C@@@@ FLD(18,18,OUTPUT(IJK))=LOC(OUTPUT(IJK+1)) @]@@@@SJ )@@G@@ I=I+1 @^@@@@ IF(I.EQ.7)I=1 @^@@@@ IF(I.EQ.1)K=K+1 SK )@@G@@@#@@@@70 CONTINUE @A@@@@71 FLD(18,18,OUTPUT(NOCHRS))=511 @]@@@@SL )@@G@@ RETURN@D@@@@ SUBROUTINE REPACK(INPUT,NOWDS,NOCHRS,OUTPUT) SM )@@G@@@C@@@@ DIMENSION INPUT(NOCHRS),OUTPUT(NOWDS) @ @@@@ CALL BSN )@@G@@LKR(OUTPUT,NOWDS) @]@@@@ I=1 @]@@@@ K=1 @ @@@@ LOCX=FSO )@@G@@LD(18,18,INPUT(1))@#@@@@ END=NOCHRS-1@^@@@@ DO 70 IJK=1,END SP )@@G@@@B@@@@ IF(FLD(18,18,LOCX).EQ.511)RETURN @C@@@@ FLD(6*I-6,6,SQ )@@G@@OUTPUT(K))=FLD(6,6,IND(LOCX)) @A@@@@ LOCX=FLD(18,18,IND(LOCX)) SR )@@G@@@]@@@@ I=I+1 @^@@@@ IF(I.EQ.7)I=1 @^@@@@ IF(I.EQ.1)K=SS )@@G@@K+1 @#@@@@70 CONTINUE @]@@@@ RETURN@D@@@@ SUBROUTINE LST )@@G@@INKUP(IDXP,STRING,IDXE,RPAT,CPAT) @B@@@@ DIMENSION STRING(IDXE),RSU )@@G@@PAT(CPAT) @^@@@@ IF(CPAT.EQ.0)GOTO6@B@@@@ FLD(18,18,STRING(ISV )@@G@@DXP))=LOC(RPAT(2))@C@@@@ FLD(18,18,RPAT(CPAT+1))=LOC(STRING(IDXE)) SW )@@G@@@]@@@@ GOTO7 @C@@@@6 FLD(18,18,STRING(IDXP))=LOC(STRING(IDXE)) SX )@@G@@@D@@@@7 IF(IDXP.EQ.IDXE)FLD(18,18,STRING(IDXP))=511 @]@@@@ SY )@@G@@RETURN@^@@@@ SUBROUTINE EOF @ @@@@ CALL XENDF(IUNIT,1) SZ )@@G@@@ @@@@ IF(LINO+DEL.EQ.0)GOTO1 @ @@@@ CALL XENDF(OUNIT,0) TA )@@G@@@^@@@@ IF(CFLG.EQ.0)GOTO1@#@@@@ X=IUNIT @#@@@@ IUNIT=TB )@@G@@OUNIT @#@@@@ OUNIT=X @]@@@@1 LINO=0@#@@@@ XNUML=NUML TC )@@G@@@]@@@@ CUR=0 @]@@@@ CFLG=0@^@@@@ IF(SFG.EQ.0)RETURN@ @@@@TD )@@G@@ CALL XENDF(SPAD,SPADSW) @]@@@@ SFG=0 @]@@@@ RETURN@^@@@@TE )@@G@@ SUBROUTINE TOP($) @^@@@@ IF(CFLG.EQ.0)GOTO2@B@@@@1 IF(RBKTF )@@G@@F.NE.0.AND.TERM.EQ.0)RETURN 1 @#@@@@ CALL PUTLIN @^@@@@ CALL GTG )@@G@@ETLIN($2) @]@@@@ DEL=0 @#@@@@ LINO=LINO+1 @]@@@@ CUR=1 TH )@@G@@@]@@@@ GOTO1 @#@@@@2 CALL EOF @]@@@@ RETURN@ @@@@ TI )@@G@@SUBROUTINE GETLIN($) @A@@@@ CURLNG=XSDFI(IUNIT,LINE,$1) @]@@@@TJ )@@G@@ RETURN@#@@@@1 RETURN 1 @^@@@@ SUBROUTINE PUTLIN @C@@@@TK )@@G@@ IF(CUR.NE.0)CALL XSDFO(OUNIT,LINE,CURLNG) @]@@@@ RETURN@^@@@@TL )@@G@@ SUBROUTINE WRITER @^@@@@ IF(CUR.EQ.0)RETURN@ @@@@ IF(SQUTM )@@G@@SW.NE.0)GOTO1 @C@@@@ IF(LNSW.NE.0)CALL EDEC(LINO,PREL,5,1) TN )@@G@@@E@@@@ IF(COM.EQ.2RLX.OR.COM.EQ.2RFX)FLD(0,6,PREL(1))=1RD @D@@@@TO )@@G@@ CALL XPRINT(LINE(1-LNSW),MIN0(PLN,CURLNG)+LNSW) @]@@@@ RETURNTP )@@G@@@ @@@@1 CALL BLKR(IBLIN,22) @C@@@@ IF(LNSW.NE.0)CALL EDEC(LTQ )@@G@@INO,PREI,5,1) @D@@@@ CALL SQOPY(LINE,1,IBLIN,1,MIN0(PLN,CURLNG)TR )@@G@@*6) @D@@@@ IF(COM.EQ.2RLX.OR.COM.EQ.2RFX)FLD(0,6,PREI)=1RD @A@@@@TS )@@G@@ CALL XPRINT(IBLIN(1-LNSW),22) @]@@@@ RETURN@]@@@@ END TT )@@G@@___UTPUT(IJK))=FLD(6*I-6,6,INPUT(K))@C@@@@ FLD(18,18,OUTPUT(IJK))=LTU )@@G@@OC(OUTPUT(IJK+1)) @]@@@@)@@@F]W@@@@@)@)@)@@@@@@@)]3@C@)@=@C@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/,0@@@AA@@@F)@S@IA@@@@@@)@O@IA@@@@@@)@>@C@)]4@K@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB@@@F)@W@IA@@@@@@)@&@C@)@P@IATX )@@G@@@@@@@@)@$@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC@@@F)@Q@IA@@@@@@TY )@@G@@)]5@C@)@(@)@@@@@@@@@@@)@@@@@@@@@@@@I@@@@@I@@@@]^@@@@@[@@@@@[@@@@@@AD@@@FTZ )@@G@@)@H@IA@@@@@@)@![@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@@@@.UA )@@G@@@@@@@@AE@@@F)@5@C@)@@[C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>UB )@@G@@@@@@@P@@@@@F@@@@@@AF@@@F)@D@C@)@@@,A@@@@@@)@6@K@@@@@@@@@@@@@EDIT @@@@@ UC )@@G@@@@@@@^@@@@@#@@@@@]@@@@@[@@@@@@AG@@@F)[,@K@)] @C@)]W@K@)@@@YC@@@@@@ UD )@@G@@ > > > : :AH@@@F)@#[YC@@@@@@ UE )@@G@@ AI@@@F)@I[YC@@@@@@UF )@@G@@ AJ@@@FUG )@@G@@)@T[YC@@@@@@ UH )@@G@@ AK@@@F)@=[YC@@@@@@ UI )@@G@@ AL@@@F)@\[YC@@@@@@ UJ )@@G@@ AM@@@F)]X[S@@@@@@@ UK )@@G@@ AN@@@F)]*[S@@@@@@@ UL )@@G@@ AO@@@F)@E[S@@@@@@@UM )@@G@@12345656789.9.1234345678789.1212345656789.9.1234345678789.12123456AP@@@FUN )@@G@@)@P[S@@@@@@@789.1212345656789.9.1234345678789.1212345656789.9.1234345678UO )@@G@@789.12AQ@@@F)@[[F@K)[##K[#@K0^GG@@@@C@@@@N[@@@@?[@@@@:C/@@@Q/K@@@D(@@@@MUP )@@G@@@]A@@@/,0@@@@)@@D,AR@@@F)@E[F##^[][K04G[@^G@@@@@[@@@@+@]H@@@/K@@@W@@@@[\UQ )@@G@@@@@@@@/,0@@@/K@@@W*@@@@GG@@@@JAS@@@F)@N[F]]K04G[#@[#@K0^@@@@/K@@@H[@@@@>UR )@@G@@G@@@@>C/@@@[@]I@@@@@@@@+@@@@[\@@@@@]/,0@@@AT@@@F)@W[F]#K04G@K)4GH#@^GG@@US )@@G@@ @@@@R@]M@@@@@@@]7@@@@@@/,0@@@@]L@@@@@@@]6@@@@@]/,0@@@AU@@@F)@>[N##K[##[UT )@@G@@##[@@@/=K@[^)@@@@I @@@@I(@@@@JC/)@@[ @@@@G*@@@@HC/@@@[/K@@R;*@@@@NAV@@@FUU )@@G@@)@\[F@K04[#@K0^CL#@K0^G@@@@@]6@@@@]A@@@@@>/,0@@@[@@@]BC@@@]8/K@@[@(@@@@HUV )@@G@@/K@@@2AW@@@F)@8[F#@^G[#@K-OG[#@^GG@@C@@@@I@]Y@@@@@@@];@@@@]A/,0@@@[@@@]AUW )@@G@@C@@@]'@]W@@@@@@@]9AX@@@F)[[@2^[#@K0^GG@@@@)@9@K@@@@@@@______INPUT (@@@@LUX )@@G@@[@@@@$C@@@@>/K@@[+*@@@@GG/@966AY@@@F)[B[F@K04[] K0^G@K@@@@@@C/@@@[/K@@C1UY )@@G@@@]>@@@@@@@]7@@@@@9/,0@@@/K@@[I(@@@@H/K@@[JAZ@@@F)[K@3##[##@@)@;@K@@@@@@@UZ )@@G@@@@@@@@______EDIT )@@@@I @@@@I*@@@@JC/)@@[ @@@@G*@@@@HBA@@@F)[Q[F@K-OG[#VA )@@G@@@^@K04@@@@@@/K@@[+[@@@@BC/@@@[/K@@[+@](@@@@@@@]7@@@@@;/,0@@@/=K@[+BB@@@FVB )@@G@@)[Z[F##K^GGK04GH@@@@@@@@ @@@@G*@@@@I/C)@[*H@)@@UC@)@@VC/@@@[ @@@@B/K@@AGVC )@@G@@*@@@@CBC@@@F)[*[MK00@K00@@@@@@;^@@@= @@@@I*@@@@AC/)@@[+@@@@I @@@@I1@@@@KVD )@@G@@*@@@@KD[@@@UC/)@@[BD@@@F)[2[EK^CT@K0[#@K04GG@@@@(@@@@K @@@@W @@@@7@]2@@@VE )@@G@@@@@@]//K@@YF/,0@@@/=K@PZ+@@@@IBE@@@F)[;[F@K-4GL##^GL#^K1@@@@C/)@@[[@)@[^VF )@@G@@C4)@@@[@@@[D@]7@@@@@@@@K@@@@@@/,0@@@/K@@C-BF@@@F)]^[F#@K1@K[##K0^GK@@@@@VG )@@G@@ @@@[O @@@]5[@@@@MC/@@@]/K@@O+(@@@@GG/@__RC@@@[^[@)@]3BG@@@F)]H[F#@^GH#^VH )@@G@@[@^GG@@@@@@@[@)@@IC/)@@U/K@@#$(@@@@IG/)__XC@)@[^[@@@@IC/@@@N @@@]4BH@@@FVI )@@G@@)]Q[N#^[@^GGK01#^@H]@@[^C"@@@9[[)@@IC.)@@G[[@@@MC.@@@[/K@@#$(@@@@KG.@__YVJ )@@G@@C[@@[^BI@@@F)])[N@@K1[@@@@@@@@+[@@@O @@@@O*@@@@Q/E)@](G")__JC])@[^C"@@@[VK )@@G@@ @@@@K*@@@@O/E@@]BY@@@F)^7[F@K^[@K^WC )@@G@@[@K^@@@@@@@@/K@@PH/K@@P(/K@@AY/K@@X*/K@@X?/K@@X+/K@@XW/K@@FA/K@@P$BZ@@@FWD )@@G@@) @[F@K^[@K^[@K^@@@@@@@@/K@@[Z/K@@[W/K@@B//K@@K)/K@@KE/K@@K\/K@@ID/K@@ASWE )@@G@@/K@@PHCA@@@F) D[F@K^[@K^[@K^@@@@@@@@/K@@YF/K@@YF/K@@CE/K@@CO/K@@CG/K@@CJWF )@@G@@/K@@CT/K@@CQ/K@@B_CB@@@F) M[F@K^[@K^[@K^@@@@@@@@/K@@TZ/K@@TZ/K@@R_/K@@A)WG )@@G@@/K@@F6/K@@D,/K@@@2/K@@CW/K@@BECC@@@F) V[F@K^[@K^[@K^@@@@@@@@/K@@M7/K@@FAWH )@@G@@/K@@FD/K@@OZ/K@@X0/K@@CY/K@@TZ/K@@TZ/K@@TZCD@@@F) =[F@K^[@K^[@K^@@@@@@@@WI )@@G@@/K@@A1/K@@A8/K@@X4/K@@G6/K@@G3/K@@G1/K@@G,/K@@G8/K@@E[CE@@@F) ![F@K^[@K^WJ )@@G@@[@K^@@@@@@@@/K@@L./K@@W9/K@@TZ/K@@TZ/K@@TZ/K@@TZ/K@@TZ/K@@MH/K@@ALCF@@@FWK )@@G@@) 6[F@K^[@K^[@K^@@@@@@@@/K@@G_/K@@BH/K@@IL/K@@GR/K@@ED/K@@I!/K@@I2/K@@XAWL )@@G@@/K@@ORCG@@@F) _[#@K^[@K^[@@@@@)@_@C@COMMAN@#:@@@/K@@S+/K@@MU/K@@XI/K@@H)WM )@@G@@/K@@H)/K@@P0/K@@P0CH@@@F)[@@K@)AB@:] K0^G@K@@@@@)[]@C@SYNTAX/K@@[+@#?@@@WN )@@G@@@@@@];@@@@@_/,0@@@______D ERR.CI@@@F)[#@K@)AG@;] K0^G@K@@@@@C@)@@GC/@@@QWO )@@G@@/K@@[+@#,@@@@@@@];@@@@[]/,0@@@______ ERR. CJ@@@F)AN[F#@^G[#@K^C4K@@@@@@@WP )@@G@@C/@@@[/K@@[+@#2@@@/,0@@@/K@@[+[@@@@?C@@@]31@@@@IH@)@]3CK@@@F)AW[F##K^GH@WQ )@@G@@^GGK1@@@@@@@*@@@@IH@)@[DC/)@@C[^@@@MC/@ /K@@[+ @@@@T/K@@[+[@@@@TCL@@@FWR )@@G@@)A>[F@K1^GH#^^GH]IK00@@@@#.@@@@@@@@M/,0@@@[O)@@M;C)@@SC@)@@[[*)@@MC))@@@WS )@@G@@/K@@A:CM@@@F)A,[MK^[#@@^G[@@@@/K@@[+[@@@@:C/@@@Q1@@@@IG/)__(C@)@@GC@@@]3WT )@@G@@/K@@[+/K@@AG*@@@@GCN@@@F)A8[F#@K^G[#@K0^[#@K0^G@C@@@]4[@@@]4C@@@@%/K@@B@WU )@@G@@*@@@]4[@@@]3C@@@@(/K@@A/*@@@]3CO@@@F)B[[F#@K[@K0^G[#@K0^@@@@/K@@[+[@)@@%WV )@@G@@C@)@]4[@@@@(C@@@]3/K@@AG*@@@@G/C@@B H@@@]3CP@@@F)BE[F#^K0^[#@@^G@@@@@@@@WW )@@G@@[@@@]3C/@@]^1@@@@IG/)_.;C@)@@GC@@@]3/K@@[+[@@@@!C=@@@@CQ@@@F)BN[F#@K[#@[WX )@@G@@@^G@@@@@@@@@H@@@]3C/@@] /K@@BX1@@@@G*@@@@GH@@@]3C/@@[C/K@@B>*@@@]4CR@@@FWY )@@G@@)BW[F#@^G[@^@K0^G@@@@@@@[@@@]4H@@@]3C/@@[D/K@@B>*@@@@G/C@@B+H@@@]3C/@@[CWZ )@@G@@[@@@]4CS@@@F)B>[EK0[#@^G[#@K<4G@@@@@@@@@]A/,0@@@[@@@]4C@@@]41@@@@IH@)@]4XA )@@G@@C@)@@GH@@@]3C/@@] CT@@@F)B,[F#@^D[#@K0^G[#@K0@@@@^Q@@@@@@@]4@@@@]3@@@@]AXB )@@G@@@@@@]7@@@@@E/,0@@@@^P@@@@@@@].CU@@@F)B7[#] K0^G@K^GL#@K@@@@@@@@@@@/K@@[+XC )@@G@@[@@@@,C=@@@@/K@@[+@^R@@@@@@@].@@@@]A/,0@@@CV@@@F)[ @K@)B_@3]EK^[#^K1^G@@XD )@@G@@@@@@@@@@@@]"@@@@[D@@@@@@/K@@[+/K@@AG/,0@@@______@@@@@.CW@@@F)C [F#@K0^GHXE )@@G@@#@^G[@^G@@@@[@@@@4C/@@@[/K@@[+ @@@@4@^V@@@@@@@[ @@@@@M@@@@]_@@@@@@CX@@@FXF )@@G@@)CI[F@K1^G@K0^[#@K^GK@@@C)@@@@/K@@[+ @@@@3/K@@[+[@@@@3C/@@@[[@@@@2C)@@@@XG )@@G@@/K@@[+CY@@@F)CR[F#@K^GL#@K^GH@^GG@@@[@@@@HC/@@@[/K@@[+ @@@@H/K@@[+[@@@@0XH )@@G@@C)@@@@/K@@[+[@@@@\CZ@@@F)C)[F@K04[#@K0^G[#@K-^GG@@@@@S/,0@@@[@)@]BC@)@]8XI )@@G@@[@@@]AC@@@#@/K@@C1*@@@@T/K@@[+DA@@@F)C([F#@K0^G@K-OG[#@@@@@@C/@@@[@^2@@@XJ )@@G@@@@@@];@@@@]A/,0@@@@^1@@@@@@@]9@@@@]6@@@@]ADB@@@F)C2[F#@K0^GH#@K0[##@@@@@XK )@@G@@1@@@@I*@@@@ID@)@@UC/@@@[[@@@]3[@)@@6[@)@@IC@)@#[[@@@@)DC@@@F)C;[M^GH##K@XL )@@G@@[##@@@*@@@@AC/)@@[+@@@@I @@@@I*@@@@K/D@@D]H[@@@UC[@@@VC/)@@[ @@@@GDD@@@FXM )@@G@@)D [E^[]AK^G@K04GG@@@@@@G@@@@AC@@@@K@^9@@@@@@@#]/K@@YF/,0@@@/=0@PZ+@)@@HXN )@@G@@ @@@@IDE@@@F)DI[MK^GG^@K04GH@@/,0@0@[@@@@VG@@@@VC/@@@[/K@@DR1@@@@G*@@@@GXO )@@G@@D@@@@U/K@@D,(@@@@GDF@@@F)DS[EK1^G@K[#^^GK@@@@@@@[@@@ 0C/@@@[[4@@@@C/@@@@XP )@@G@@/K@@DZ*@@@@GH@@@@!C4@@@@@^"@@@DG@@@F)D-[F@K0@K04GGK0^G@@@@@@[@)@@>G@)@@>XQ )@@G@@C/)@@[[@@@@SG@@@@SC/@@@[@ ]@@@@@@@[\/,0@-,DH@@@F)D%[EK0^G[@K0^G[##K^G@@@XR )@@G@@C@)@#^/K@@[+*@@@@T[@@@@6C@@@##/K@@C7 @@@@<[[@@@-C.@@@[DI@@@F)D3[F#@K0^G[XS )@@G@@]^K04G[#@K0@@ H@@@@@@@# @@@@]6@@@@]A@@@@@S/,0@@@[@@@]BC@@@]8[@)@]ADJ@@@FXT )@@G@@)D/[F] K0^G@K^G[##^@@@@@/K@@C-(@@@@GH@@@@SC@@@@>/K@@[+@ I@@@@@@@];@@@@]AXU )@@G@@/,0@@@DK@@@F)E [F#@K04G[@K0@K@@@@@@@C/@@@U/K@@EM0@@@@G*@@@@GD@@@]3/K@@EMXV )@@G@@[@@@]3H@@@@SC@@@@>DL@@@F)EI[F##K0^G[@^G@^GK@@@@@[#)@[B[@@@[JC_)@@[G@@@]3XW )@@G@@C/@__"/K@@G)[@)@]3E@)@]3[@@@@IDM@@@F)ER[F##K^@K^@K0@@@@@@@@@C/@@@[ @@@@DP@@@FYA )@@G@@)E3[E^[##K0[@K0^G@@@@@@@H@@@#[C@@@@6/K@@F[*@@@@GH@@@#AC@@@@I/K@@C-(@@@@KYB )@@G@@G.@__8DQ@@@F)E/[EK^G[@K^GH@K@@@@@@@@@ 5@@@/,0@1\/K@@F (@@@@H/K@@D,/K@@[+YC )@@G@@*@@@@7/K@@C1(@@@@GDR@@@F)F [F@K0^G[#@K^@K04G@@@@H@@@#AC@@@@I@ 9@@@/K@@D,YD )@@G@@/,0@\N[@@@@>C@@@@$ @@@@)/K@@[+DS@@@F)FI[EK^GH#@^[#@^GG@@@@@@[@@@@RC/@@@[YE )@@G@@ @@@@>/K@@[+*@@@@GH@@@#BC@@@@I/K@@E'(@@@@GDT@@@F)FR@;##K01##^GG@@@)[B@K@YF )@@G@@NITIALTEXT IC.)@@^[[@@@]C.@@@#[@)@@IC/)ADD @@@@N @@@@LDU@@@F)[D@K@)FY@3#YG )@@G@@#K04[] K0^G@@@@@@@@@@@#C@@@@[B/,0@@@/K@@F>(@@@@H[[)@@#______IZED. DV@@@FYH )@@G@@)F=[MK^@K04@K00@@@*@@@@IG/)__?C@)@@IC/@@@[/K@@[+(@@@@H@AC@@@/,0@,(/K@@@DYI )@@G@@@AA@@@DW@@@F)F,[M^GG@K^G[#@@@@[@@@]BC@@@]8/=K@GC)@@@@I @@@@I*@@@@KG.@__3YJ )@@G@@C[@@@IC/)@@[ @@@@GDX@@@F)F8[F#@K0^CL#@K0^G[#@^CO/,0@@@@AJ@@@@@@@# @@@@]6YK )@@G@@@@@@]A@@@@@*/,0@@@[@)@]AC@)@#DDY@@@F)G[[F#@K0[##[@K0^G@@@@@@[@@@]AC@@@#EYL )@@G@@/K@@[+(@@@@GG/@_$7C@@@@I@AK@@@@@@@];@@@@]ADZ@@@F)GE[F#@K0^CL#@K0^G[#@^COYM )@@G@@/,0@@@@AP@@@@@@@]"@@@@]6@@@@]A@@@@@>/,0@@@[@)@]BC@)@]8EA@@@F)GN[F#@K0[@KYN )@@G@@0@K@@@@@@@@@C/@@@N/K@@G)0@@@@G*@@@@GD@@@]3/K@@[+@AQ@@@@@@@];@@@@]AEB@@@FYO )@@G@@)GW[F##K0^G[@K0@@@@@@@@@C/@@@[0@@@@IG/)__"C@)@@GC@@@]3/K@@EM[@)@]3E@)@]3YP )@@G@@[@@@@IEC@@@F)G>[F##K0^G@^[#@K^@@@@@@/K@@Y^/K@@X4(@@@@C/@@@[@A:@@@/K@@D,/,0@\N/K@@[+EF@@@F)H@[N@K^G[#@@[#@@@[@@@]3YT )@@G@@C/@@@[0@@@@IG/)__"C@)@@GG/@@@[H@@@]3C@@@]4/K@@EM/K@@HEEG@@@F)HE[N@^GH@^GYU )@@G@@@K[#@@H@@@]3C/@@@[/K@@[+(@@@@GH@@@]3C/@@@[/K@@D,*@@@@ @A2@@@/,0@1\EH@@@FYV )@@G@@)HO[F#@K[@K@K0^G@@@@@@@@ @@@@<[@@@@-C/@@@[@A9@@@/K@@F&/,0@\!@A8@@@/,0@0@YW )@@G@@]@@@]3EI@@@F)HX[N##K04@K0@K00@*@@@@KG.@_*2C[@@@IC/)@@[ @@@@G*@@@@-C/@@@[YX )@@G@@/K@@HE[@@@@SG@@@@SEJ@@@F)H$[M^@K04GG^[@@@@/,0@0@/K@@H9(@@@@GG/@_*2C@@@@IYY )@@G@@[@@@@IC/@@IH/)K@H?+@@@@I @@@@IEK@@@F)H1[E^GH##^G[#@K0@@@@@@@C/@@@[ @@@@G@)@@>C/)@@[[@@@@SG@@@@SC/@@@[@B]@@@EL@@@F)H'[F#@K0^GH]LK0^GL##@@@ZA )@@G@@C/@@@[@BC@@@@@@@@K@@@@@@@@@@]X/,0@@@[@)@@KC@)@@=[@@@@)EM@@@F)I#[F#^K0^[#ZB )@@G@@@^@K0^G@@@@@[@@@^CG@@@@=C/@@@[/K@@[+@BF@@@@@@@[\/,0@-,[@@@@-[@@@ 0EN@@@FZC )@@G@@)IG[F] K0^G@K^C.#@K0@@@@@BJ@@@@@@@].@@@@]X/,0@@@/K@@[+@BH@@@@@@@^C@@@@]WZD )@@G@@/,0@@@EO@@@F)IP[F#@K1^GL@^[#^K1^G@@@[@@@^CH@@@[DC@@@ 0/K@@[+*@@@@G/C@@IVZE )@@G@@H@@@ 0C@@@[D @@@@=EP@@@F)IY[E[#@K0[#@K=^GK@@@@@@@@@@@@/,0@@@]@)@^CG/)__"ZF )@@G@@C@)@^C]@@@@=W/@@@A;O@@@=G/@__9EQ@@@F)I$[F#^K0^G[#@^[#@K0^G@@C@)@]3[@@@]5ZG )@@G@@C@@@]4/K@@[+@BO@@@@@@@^C@@@@]7@@@@]X@@@@ 0ER@@@F)I0[N#@K0[#@[#@[@@/=K@J0ZH )@@G@@)@@@@I @@@@I*@@@@-C/)@@[ @@@@G*@@@@+C/@@@[ @@@]3[@)@]4ES@@@F)I'[F]BK0^G@ZI )@@G@@K01#@^G@@@@@C@@@]41@@@@IH@)@]4C@)@@G[@@@@M@BV@@@@@@@@+@@@@[\/,0@@@ET@@@FZJ )@@G@@)J#[F#^K00K^GL##K1^GG@@@C@@@@M]@@@[ H@@@@MC@@@[ /K@@JF*@@@@GG/@7&7C@@@@IZK )@@G@@[@@@[ EU@@@F)JG[F#@K1^GH@^[#@K0^G@@@[@@@[\C@@@]8 @@@@+/K@@JQ*@@@@G/G@@JMZL )@@G@@[@@@@MH@@@[ H@@@]3EV@@@F)JP[F@K=OG[#@K0[]JK0^G@@@@@@@+@@@@[\/,0@@@@B>@@@ZM )@@G@@@@@@@+@@@@]A@@@@[\/,0@@@/K@@J,EW@@@F)JY[E^G[#@K=^G[#@K0^G@@@@@@@]7@@@@[\ZN )@@G@@@@@@^C@@@@]A/,0@@@[@@@^CG@@@]3C/@@@[@B&@@@EX@@@F)J$[F##[##[#@^G@@@@@@@@@ZO )@@G@@[@@@@)C/@@@[[@@@@+W/@@@A;O@@@=G@@@@MC/@@@ @B$@@@@@@@@MEY@@@F)J0[N##K^@K0ZP )@@G@@4@K0@@1@@@@G*@@@@GH@@@]5C/@@@[/K@@D,*@@@@ @B:@@@/,0@1\/K@@J4(@@@@HEZ@@@FZQ )@@G@@)J'[N@^G[#@K[@K@@@C/@@@[@B2@@@/K@@F&/,0@\!@B1@@@/,0@0@]@@@]5H@@@]5C/@@@[ZR )@@G@@/K@@[+FA@@@F)K^[F##K04G@K0^[#@K^CW@@/,0@@@/K@@[+(@@@@-/K@@I2[@)@@-C/)@@[ZS )@@G@@ @@@@<[@@@@SG@@@@SFB@@@F)KH[F#@K0[##K0^G[#@K0^CK/,0@@@[@@@]AC@@@#F[@)@]BZT )@@G@@C@)@]8[@@@@M@B9@@@@@@@@+@@@@[\FC@@@F)KQ[F##K0^G[#@^CP#@K0@@@@B.@@@@@@@];ZU )@@G@@@@@@]A/,0@@@@B/@@@@@@@]9@@@@]6@@@@]A@@@@@MFD@@@F)KZ[F@K0^[#^K1^@K^GK@@@@ZV )@@G@@C@@@ 0/K@@[+*@@@@G/C@@K$H@@@ 0C@@@[D/K@@[+(@@@@-/K@@[+FE@@@F)K*[F#^^GG^[ZW )@@G@@@K0^@@@@@@@@/K@@[+(@@@@-/K@@K_/K@@[+1@@@@G*@@@@G]@@@@MG/@__"H@@@[DFF@@@FZX )@@G@@)K1[F#@K^D #@K1^G@^GK@@@[@@@ 0C/@@@[@CF@@@@@@@@=@@@@@@@@@@]X/,0@@@/K@@[+ZY )@@G@@(@@@@=FG@@@F)K'[F]BK0^G@K04CX#@K0@@@@CI@@@@@@@@+@@@@[\/,0@@@[@@@@M@CH@@@ZZ )@@G@@@@@@@=@@@@]X/,0@@@FH@@@F)[F@)@@@@@@@)L#@<#^^GG@@@@@@@@ @@@@G(@@@@HC/@@@[AA )@@G@@[@@@D"______TED. TRUNCAIMAGE FI@@@F)LB[N#@^GKK00[@@@@/)K@LP+@@@@K @@@@KAB )@@G@@1@@@@I*@@@@IH@)@@MC.@@@[H@)@D"T/)@@AC@)@@?FJ@@@F)LL[F] K0^G@K0[#^^GG@@@@AC )@@G@@H@)@@MC@)@@GH@@@D"T/@@@AC@@@@?@CK@@@@@@@#C@@@@[F/,0@@@FK@@@F)LU[MK04GH#@AD )@@G@@[@^G@@C/)@@Q[@@@@)C/@@@[/K@@[+0@@@@G*@@@@GR@K@@+[@@@@MC@@@@M1@@@@IFL@@@FAE )@@G@@)L=[F#@K0^G[#@K<4G[#@@@@C/@@@[@CP@@@@@@@^C@@JK^D/,0@@@^@K@^DN8L@[\[@)@^CAF )@@G@@H@)@@+FM@@@F)L![F#^K0^D[#^K1^G[#@K00@CQ@@@@@@@@M@@@@^C@@@@[\@@@@ 0@@@@@@AG )@@G@@/,0@@@[@@@^CG@@@D"FN@@@F)L6[F#^K00^G[@K0^@@@@@@@/,0@0@ @@@@[@@@@)AI )@@G@@C/@@@[[@@@@-C/@@@[@CV@@@@@@@[\/,0@-,@CU@@@FP@@@F)MC[F#@^GH##K^G[#^K^G@@@AJ )@@G@@@@@@]A/,0@-,[@@@@_C@@@@+/K@@[+[@)@@SG@)@@SC/)@@[[@@@@>FQ@@@F)ML[EK)=GH#@AK )@@G@@K0[#^K0^@@@@/K@@M [@@@@+C@@@@_@C<@@@@@@@@+@@@@]A@@@@@#/,0@@@@C+@@@FR@@@FAL )@@G@@)MU[F]LK0^GL#@^G[##K0^GK[@)@@_C@)@@+[@@@@KC@@@@=@C&@@@@@@@@=@@@@@@@@@@]XAM )@@G@@/,0@@@FS@@@F)M<[EK1^[#@^CD##K0^G@@@@@@@@@+@@@@]A@@@@@#/,0@@@@C%@@@@@@@]AAN )@@G@@/,0@-,[[@@ 0C.@@@[FT@@@F)M?[EK1^G@K0^GH##^G@@@@@G[@@@>C.@@@[[@)@@SG@)@@SAO )@@G@@[@)@@)C/)@@[[@@@@+C@@@@_@C:@@@FU@@@F)M5[F#@K^[@K[#^^GK@@@@@@H@@@[OC/@@@[AP )@@G@@ @@@[^@C1@@@/K@@D,/K@@AG/,0@=W/K@@[+[[@@@>FV@@@F)M"[E^@K1^G[@K^G@@@@@@@@AQ )@@G@@@@@@[\/,0@(K@O"GK@@@F)O'[F#@K0[@K0^G[#@K0^DK@/,0@@@[@)@]BC@)@#H[@@@]AC@@@#G/K@@[+BI )@@G@@@DU@@@@@@@]7@@@@[RGL@@@F)P#[F#@K0^G[#@^CP#@K0@@@@DZ@@@@@@@#J@@@@]A/,0@@@BJ )@@G@@@DY@@@@@@@]7@@@@#I@@@@]C@@@@]3GM@@@F)PG[F@K0^[#@K0^D #@K0^G@@@@@@+@@@@]XBK )@@G@@@@@@[\/,0@@@[@@@@=C@@@@+/K@@[+(@@@@-/K@@[+GN@@@F)PP[MK00K[##^G[@@@/K@@S!BL )@@G@@[@)@]3C/)@@[[@@@@IC/@@@D/K@@[+(@@@@GG/@_2,C@@@@I@D=@@@GO@@@F)PZ@F#@@@@@@BM )@@G@@)[T@S@)P)@V##K-OG@@@@@@@@@@@[T/,0@@@[@@@@I______AVE. AUTO SC@@@#AGP@@@FBN )@@G@@)P<[F#@[#@K04G[@K@@@@@@@@D,@@@/K@@D,/,0@\N[@@@@5C@@@@S[@@@@7C/@@@[@D:@@@BO )@@G@@@@@@];GQ@@@F)P?@+K0^G[##@@@@@@)[W@)@@@@@@@______@@@@*[______*SDFF* @@@@VBP )@@G@@[@@@]3G@@@@>C/@@@[GR@@@F)P0[F]]K04G[#@[##K0^GG@@C@)@@I @@@@&[@@@@WC/@@@[BQ )@@G@@@D1@@@@@@@[Y@@@@[W@@@@@^/,0@@@GS@@@F)P9[F#@^[#@K0^@K00@@@@@@C@)@@GH@@@@SBR )@@G@@C/@@@[/K@@QA(@@@@-[@@@@BS )@@G@@C/@@@[/K@@QL(@@@@-[@@@@)C/@@@[]@@@@SD/@@@@1@@@@IH/)___GU@@@F)QG[M@K0^@K0BT )@@G@@@@@@@@H/)___C@)@@GH@@@@>C/@@@[/K@@QT]@@@@>D/@@@@1@@@@IH/)___C@)@@GGV@@@FBU )@@G@@)QQ[E^G[#@K^CD##K0^G@@@@@@@@@+@@@@[\@@@@@^/,0@@@/K@@Q)(@@@@-]@@@@>D/@@@@BV )@@G@@1@@@@IGW@@@F)QZ[M[#@@K00@@@@@@)@@@@I @@@@I(@@@@ C/)@@[ @@@@G*@@@@IH@)@]3BW )@@G@@C/)@@[C/@@@[@D_@@@GX@@@F)Q([F@^G[#@K04G@K^@@@@@@/,0@0@/K@@Q3(@@@@GH@@@#KBX )@@G@@C@@@@I]@@@]3H@@@]3C/@@@[/=K@R GY@@@F)Q2[MK^@K04G@K[##@G@@@@SC/@@@[/K@@Q.BY )@@G@@(@@@@GH@@@#KC@@@@I@E @@@/K@@F&/,0@\!@E^@@@GZ@@@F)Q/[F##^G[##K0[@K0^@@@@@BZ )@@G@@/K@@QT @@@@G@)@@>C/)@@[[@@@@SHL@@@F)S-[N@K0^[@K0^G@@@0@@@@ICN )@@G@@G/)__"C@)@@GG/@@@[H@@@]3C@@@]4/K@@EM/K@@S!(@@@]4/K@@S#HM@@@F)S:[MK0[#@K0CO )@@G@@^@K00@H/)___C@)@@GH@@@@SC/@@@[/K@@S8(@@@@-[@@@@C/@@@[/K@@S_(@@@@-[@@@@)C/@@@[]@@@@SD/@@@@CQ )@@G@@1@@@@IHO@@@F)S"[F#@K0^@K0^G[#@@@@@@@G/)___C@)@@GC@@@@>]@@@@>H@@@@>C/@@@[CR )@@G@@/K@@T^ @@@@-]@@@@>HP@@@F)TB[M^G[#^[@K1@@@@(@@@@IG/)__6C@)@[O/K@@U!(@@@@ICS )@@G@@G/)__+C@)@[O[@@@@>C/@@@@0@@@@IHQ@@@F)TL[F@K04@K0[@^G@@@@@@@@H@)@]3C/)@@[CT )@@G@@/K@@[+(@@@@IH@)@]3C/)@@[/K@@D,*@@@@ /K@@V^HR@@@F)TU[F#@K^@K^GL#^K@@@@@@@CU )@@G@@*@@@@G/C@@T=H@@@ 0C@@@[D/K@@T[@FL@@@/K@@F&/,0@\!]@)@]3HS@@@F)T<[F@K0[#^KCV )@@G@@0^C-#^K0@@@@@FQ@@@@@@@^C@@@@@@/,0@@@]@@@^CH@@@ 0C/@@@[ @@@]5/K@@AGHT@@@FCW )@@G@@)T?[M^@K0[##@@@@@@ @@@@G*@@@@IG/)__,C=)@@IC/@@@[[@@@]5C/@@@[/K@@T1*@@@@GCX )@@G@@G/@__]HU@@@F)T6[MK00[@^G@@@@@@C/)@]^[@@@@1C/@@@[/=K@UT)@@@@I @@@@I*@@@@KCY )@@G@@G.@__,C[@@@IC/)@@[HV@@@F)U@[##^K1^G[##K04GH##K00@@@@@@C[@@@M[T@@@MC[@@@MCZ )@@G@@[>@@@M[[@@@MC[@@@0[@@@ ?[@)@D'HW@@@F)UC[F##K0[##K1^[#@K1^G@@ @@@@+[@)@@_DA )@@G@@C@)@@+8N0@UF[@[)@HC@@@@MN_0@@PR@K@#O[X@@@MHX@@@F)UL[F@K1[#^K1^GL#@K^G@@@DB )@@G@@C@@@@4/K@@U%[@)@@+C@)@@_[@@@[@C@@@D_@F*@@@@@@@@I/,0@-,HY@@@F)UU[F#@K0^GLDC )@@G@@#@K1[#^K1^GK[[)@[@H[)@ 0G[)@[DC.)@@[[[@@D'C[@@@%[@)@ ?D@)@@([@@@@1HZ@@@FDD )@@G@@)U<[F]KK1^GL#^K0^GKK04GK[@@@[OC)@@@I@F0@@@@@@@[@@@@@]7@@@@@I@@@@ 0@@@@@@DE )@@G@@/,0@@@IA@@@F)U?[N#@^GK@K1@@@@@*@@@@KG.@__6C[@@[OC/)@@[ @@@@G*@@@@IG/)__+DF )@@G@@C@)@[OC/@@@[ @@@@8IB@@@F)U6[M[#@K00[@@@@@@/=K@@0+@@@@I;^@@@= @@@@I*@@@@KDG )@@G@@H[@@@SC[@@@>C/)@@[)@@@@I @@@@IIC@@@F)V@[N#^[@K04[@^[@@/K@@W&/,0@\!@F9@@@DH )@@G@@/,0@0@/K@@D,*@@@@ /K@@S!(@@@@GG/@__6C@@@[OID@@@F)VE[E^GH##^G[#@K1@@@@@@@DI )@@G@@G/@__%C@@@[O @@@@<[@)@@-C/)@@[[@@@@SG@@@@SC/@@@[@F'@@@IE@@@F)VN[EK^@K1^GDJ )@@G@@[@K0^G@@@@@@@@@@@+@@@@[\/,0@(<[@@@^CD@@@ ?@F_@@@/,0@1\/K@@VR*@@@@GIF@@@FDK )@@G@@)VW[##^K1^GL#@K1^G[#@K1@@@@@@@@@@@D'@@@@^C@@@@]6@@@@D;@@@@]6@@@@D;@@@@[@DL )@@G@@@@@@@IIG@@@F)V=[F#@K1^G[#@K0^GKK1^G@H@@@]5C@@@[L@G@@@@@@@@[L@@@@]6@@@@@0DM )@@G@@@@@@@1@@@@[K@@@@]6IH@@@F)V![MK[#^@^GK@@@@@G.@__4C[@@[OC/)@@[ @@@@G*@@@@IDN )@@G@@G/)__,C@)@[OC/@@@[/K@@U!(@@@@GII@@@F)V7[M@K1@@@@@@@@@@C/@@@[)@)@@H @@@@IDO )@@G@@*@@@@KG.@__6C[@@[OC/)@@[)@@@@I @@@@I*@@@@KIJ@@@F)W[[N##@K^@^G[#@@@[@@@@8DP )@@G@@G@@@@8C/@@@[@G^@@@/,0@1\/)0@WC+@)@@G;^)@@= @@@@G(@@@@HIK@@@F)WF[MK1@[#^@DQ )@@G@@@@@@@@ @@@@K(@@@@MG.)__7C[)@[OC.@@@[ @@@@I(@@@@KG.@__+C[@@[OC/)@@[IL@@@FDR )@@G@@)WP[EK^GH@K04GGK04@@@@@@/,0@1\[[@@@OC.@@@[[@)@@MC@)@@O/K@@W-(@@@@H/=0@[+DS )@@G@@+@)@@KIM@@@F)WY[EK04GH#^[@K^GK@@@@@@C@@@[O/K@@U!/K@@S!(@@@@GG/@__+C@@@[ODT )@@G@@[@@@@OC@@@@M@GG@@@IN@@@F)W$[E^[#@K0^G[#@K-^G@@@@@@@@@8/,0@@@[@)@]BC@)@]8DU )@@G@@[@@@]AC@@@#P/K@@F&*@@@@GG/@__7IO@@@F)W0[F#@K0^G@K-OG[#@^@@@@/K@@F&@GQ@@@DV )@@G@@@@@@];@@@@]A/,0@@@@GP@@@@@@@]9@@@@]6@@@@]AIP@@@F)W9[F#@K^@^GGK04GG@@@@@@DW )@@G@@[@)@@SG@)@@SC/)@@[[@@@@IC/@@@A@GU@@@/,0@0@/K@@[+(@@@@-IQ@@@F)X][EK0^G[#@DX )@@G@@K0^[@K0@@@@@@G-@@@@@@@[\/,0@-,/K@@[+(@@@@- @@@@<[[@@@>G[@@@>C.@@@[IR@@@FDY )@@G@@)XF[EK0^[#@K[#^K0^GG@@@@[@)@@KC@)@@=[@@@ 0C/@@@[/K@@[+(@@@@-/K@@[+[@@@@)DZ )@@G@@C/@@@[IS@@@F)XO[F]LK0^GL##[##K^GK@@@C@)@@@/K@@XA[@@@@IC/@@@A@G*@@@@@@@@KEA )@@G@@@@@@@@@@@@]X/,0@@@IT@@@F)XX[F#@K1^DOK^GL#@K1^DS@/,0@@@[@0@@@+@)@#RC@)@@@EB )@@G@@/K@@[+@G?@@@/,0@@@[@0@@@+@)@#QIU@@@F)X&[EK^DX@^[#@K04GG@@@@@ @@@@V[@@@@UEC )@@G@@C@@@]3/K@@[+@G1@@@/K@@YF/,0@@@/K@@[+@G\@@@IV@@@F)X\[F@^GH#@K0^G[@K04G@@@ED )@@G@@H@@@]3C@@@@S/K@@FD(@@@]3[@)@]3C@)@@>[@@@@IC/@@@G/K@@[+IW@@@F)X8[EK[#@^[@EE )@@G@@K04G@@@@@@@@H@@@]3C@@@@S/K@@E6/K@@Y^(@@@@GH@@@@+@@@@I @@@@I*@@@@>C/)@@[JB@@@F)[=@)@@@@@@@)Y$@+K)=GH#@EK )@@G@@@@@@@@@@@@[=@@@@@[/,0@@@@HD@@@______@@@@*[______*SDFF*JC@@@F)Y:[F#@^[@^CEL )@@G@@D##K0^G@@@@@@@@@@+@@@@[\@@@@@[/,0@@@@HF@@@/K@@Y9/,0@\!@HE@@@@@@@[&JD@@@FEM )@@G@@)Y4[E^GH##K^CH##K0@@@@@@@HJ@@@@@@@]6@@@@@[/,0@@@/K@@Y![@@@@SG@@@@SC/@@@[EN )@@G@@@HG@@@JE@@@F)Y.[F]^K04GH#@K0[]T^D8@@/,0@@@@HL@@@/,0@@@@HK@@@@@@@#T@@@@]6EO )@@G@@@@@@@D@@@@@S/,0@@@JF@@@F)ZA[N#@^GKK00[##@@C>)@@IC.@@@[ @@@@I*@@@@KG.@__4EP )@@G@@C[@@@IC/)@@[[@@@ \C/@@]^@@@@#UJG@@@F)ZK[M@K^G@K1^GG@@@G/@__9C@@@@I[@)@ \EQ )@@G@@T/)@@AC@)@@?/=0@Z*)@)@@K @@@@K*@@@@MG.)__4JH@@@F)ZU[EK^G[#@K0[#@K0@@@@@@ER )@@G@@N8L@@@[@@@^FH@@@@+C/@@@QO@K@^ER@K@@+ @@@@+/K@@ZX(@@@@GJI@@@F)Z<[F#@K<4G[ES )@@G@@#@K0^GKK0@@@C@)@@GH@@@]3C/@@@[ @@@D;@HX@#X@@@@^F@@JK^G/,0@@@^@K@^GJJ@@@FET )@@G@@)Z?[E[#^K1^GL#@K@@@@@@@@*@@@@I/C)@Z6H@)@]3C@)@ \ @@@D_]@@@D"D/@@@@1@@@@IEU )@@G@@H/)___JK@@@F)Z5[F@K-4GL##K0^GL#^K@@@*@@@@G/C@@Z_H@@@ 0[@@@[I@H<@#X@@@@@KEV )@@G@@@@@@@@/,0@@@/K@@-HJL@@@F)Z"[F@K1^GL#^^GGK1^GK@@@[@@@D"G@@@D"C/@@@[[#)@@MEW )@@G@@[@@@[JC#)@ 0G@@@[ID@@@ 0/K@@-NJM@@@F))B[F#^K+^GL##K0^GK^G@@@H[@@@,C.@@@ EX )@@G@@C/)@@[[@@@@/@H:@#X@@@@@M@@@@@@/,0@@@[@@@D_JN@@@F))K[M[#@@K[#@@@@@@C@)@@\EY )@@G@@C/@@@[/=0@)%+@)@@K @@@@K*@@@@GH@@@@,C.@@@[ @@@@I(@@@@KJO@@@F))U[N#^@K00[EZ )@@G@@@@@@@@/=K@-[+@@@@I @@@@I*@@@@KG.@__9C[@@@IC/)@@[ @@@@G*@@@@IH@)@@/JP@@@FFA )@@G@@))=[F]UK1^G[#^K0^@K1^GK@[@@@D;G@@@D;C/@@@[/K@@-[@H0@#X@@@@D_@@JK^E@@@@@/FB )@@G@@/,0@@@JQ@@@F))![N#^B?@@@@@@@@@)@)@@K @@@@K0@@@@G*@@@@GG/@__5C.@@@[ @@@@IFC )@@G@@*@[J_"C/)@@[R@K@D;JR@@@F))7[F@K1^GL;@[@Y0@@@@@@@G/@__"C@[J_"/K@@)%1@@@@GFD )@@G@@*@@@@GH@[J_"C@@@D_R@K@D;/=0@-[JS@@@F)-@[F#^K1^GK^@K^@@@@@@@@/K@@-N8N0@)#FE )@@G@@G_)@@[/K@@-D1@@@@G*@@@@GH@@@ \C@@@D"[@@@D"JT@@@F)-D@<##K1[@@)[*@)@@@@@@@FF )@@G@@@@@@@@______TED. TRUNCAIMAGE /K@@-N(@@@@GH@@@[IC@@@@MJU@@@F)-H[F##K^CP#FG )@@G@@@K0^G@K1@@@@;O@@@=G@@@D_C/@@@ @I@@#X@@@@#C@@@@[*/,0@@@/K@@-N(@@@@HJV@@@FFH )@@G@@)-Q[MK1@@K0[#@@@@@C@@@@+0@@@@IH@)@@+C@)@@GC/@@@Q1@@@@IG/)__(C@)@@G[@@@D"FI )@@G@@W/@@@AJW@@@F)-)[F#@^G[@K^G[#@K0^G@@@9\)@^J9!)@^HR]0@#Y@I^@#X/K@@-&N@0@->FJ )@@G@@[@)@]3C/)@@[[@@@@+JX@@@F)-(@V#@K0^G@)#V@C@)-?@N#@K$0@@)#X@C@TABMOV/K@@@@FK )@@G@@/K@K#V@@F@@]*4@K#VN#0@^MR@K@^LJY@@@F)#Y@C@)-,@;#@K0^G[#@K0@@@@@@@@C8FK@@FL )@@G@@ @@@@J^#0@^MA@K@^L9:)@^J9()@^HAA0@#Y@I^C];JZ@@@F)-5[F#@K^GL#^K1^GL#^^GK@FM )@@G@@H@@@[^C/@@@ [@@@[^C?@@@@ @@@[[ @@@[@ @@@@'/K@@ZB[@@@^EKA@@@F)-"[EK^GL#^^FN )@@G@@GH]CK1^GG@@@@@@@@M@@@@@@/,0@@@[@@@@MC/@@@^ @@@[O @@@[A/K@@=K(@@@@GKB@@@FFO )@@G@@)+B[F#@K1^GKK[#^K1^D*@@@/,0@@@[@@@[@G@@@[@C/@@@[/K@@+X(@@@@GH@@@[^[@@@@/FP )@@G@@@IL@#-KC@@@F)+K[F#^K1^GL#@K04GK^@@@@/K@@=K1@@@@G*@@@@GH@@@[DC@@@@M@IP@#-FQ )@@G@@@@@@[@@@@@@I@@@@@/KD@@@F)+T[EK04GH@K04GK^@@@@@@@/K@@=K1@@@@G*@@@@GH@@@[DFR )@@G@@C@@@@M/K@@+^[@@@@MG@@@@MC/@@@[KE@@@F)++[EK04GH]CK1^GH#@K1^GKH@@@[^[@@@@/FS )@@G@@@IX@#-@@@@@M@@@@@@/,0@@@[@@@@MG@@@@MC/@@@[KF@@@F)+:[EK[#^K1^D(#^K1^GK@@@FT )@@G@@@@@@[[@@@@@=@@@@@//,0@@@[@@@[[G@@@[[C/@@@[/K@@+"(@@@@GKG@@@F)+4[F#@K04GKFU )@@G@@^@K04GG@@@@@[@@@@MG@@@@MC/@@@[/K@@=K1@@@@G*@@@@GH@@@[DC@@@@M@I-@#-KH@@@FFV )@@G@@)+.[F@K04GK^@K04GG@@@@@@[@@@@MG@@@@MC/@@@[/K@@<71@@@@G*@@@@GH@@@[DC@@@@MFW )@@G@@/K@@+>KI@@@F)[@@@@'C/@@@[@I.@#-/K@@=GKQ@@@F)=G[EK^[#@^[@K0^G@@@@@@@!^)@#Z@J]@#-GG )@@G@@/K@@=ON@0@=NC8)@@[@J[@#-/K@@=ON@0@=JC8)@@]KR@@@F)=P@:])^G[#@K0@@@@)#Z@C@GH )@@G@@)=U@F#@@@@@@/K@K#Z@@F@@@*4@K#ZR]0@#+[^)@#ZH8)@@[/K@@@@KS@@@F)=V@F]Z@@@@@GI )@@G@@)#-@K@)=W@%K0^G@K@/K@@-7 @@@@J[^@@#ZAA0@#+C8@@@#@J]C];CSCAN /K@@@@KT@@@FGJ )@@G@@)=-[F#@K0^G[#^K1^@K@@@@@C/@@]^/K@@=:*@@@@G/C@@=(D@@@D/[@@@D/C@@@^P @@K^OGK )@@G@@ @@K^NKU@@@F)=%[F#^K-4G[#@K0^GKK1@@@1@@@@IH@)@D/C@)@@G[@@@ 1@JH@#>@@JK^RGL )@@G@@@@JK^Q/,0@@@[@@@D/KV@@@F)=3[F#^K1^G[#^K0@@@@@@@@C/@@@[0@@@@IG/)__"C@)@@GGM )@@G@@E@@@^T[@)@[PC@)K^S[@@@D/C@@@D/KW@@@F)=/[MK1^GK^[@K^G@@C/@@@[@JL@#>/K@@(SGN )@@G@@N@0@>^/K@@> 1@@@@G*@@@@GH@@@[PG@@@D/G/@__"KX@@@F)>A[F#^K0^[#@K0^G[#^K0@@GO )@@G@@C/@@@[@JM@#>@@@@ 2@@@@^U@@JK^R@@JK^Q/,0@:V[@@@^UG@@@ 1KY@@@F)>J[##^K0^[#GP )@@G@@@K0^G[#^K0@@@@@@@@@JN@#>@@@@[Q@@@@^U@@JK^S@@JK^V/,0@:V[@@@^UG@@@[PKZ@@@FGQ )@@G@@)>R[F#@K^G[#^^G[@K0^G@@@@@JK^X@@JK^Y/,0@:V[@@@^UG/@@@[[@@@[NC@@K^X/K@@>)[F#@K1^G[#^K^G@@@@@@@0@@@@IG/)__"C@)@@GE@@@^T/K@@*-(@@@[PGS )@@G@@@JR@#>@@@@#-@@@@^ULB@@@F)>([E^GKK1^GL@^@@@@@@@@@/K@@(N*@@@@G/C@@>2G@@@D/GT )@@G@@H@@@[MC/@@@[[@@@[MG/@@@[C/@@@[LC@@@F)>2[F#^K1[#^K[@K1@@@@@@@C/@@@[R@K@[MGU )@@G@@/K@@(N*@@@@G/C@@>9H@@@[MG/@@@]H@@@[PC@@@D/LD@@@F)>;[N#^K0@^G@^[#^@C0@@[RGV )@@G@@/=0@&G+@)@@G @@@@I(@@@^)C/)@@[ @@@@G*@@@@IH@)@^ZC0)@[RLE@@@F)& [F#^^@K1^GW )@@G@@GL@^GK@@@@@@H@@@[MC/@@@[/K@@>2[@@@[MG@@@[MC/@@@[/K@@&G(@@@@GH0[@ 1LF@@@FGX )@@G@@)&I[F#^^GKK[#^K1@@@@@@@@C.@@@[[@)@[MG@)@[MC/)@@[/K@@$ (@@@@IH@)@[PC/)@@[GY )@@G@@]@@@ !LG@@@F)&R[F#^^G@^GKK1@@@@@@@@@C_@__.[])@@;C")@@[[]@@[HC"@@@# @@@@MGZ )@@G@@(@@@^)C.)@@[G[@@D/LH@@@F)&)[F#^[#@K0^GL#^K0@@@@@C/@@@[A@)@^+R@)@[MA@K@[HHA )@@G@@[[)@^-[[@@^U[#@@[JR/K@@]G#@@[PLI@@@F)&([F#^K0@K0[@K1^G@@@@@@R@)@^+C0[@[QHB )@@G@@/=0@&5+@)@@GC@)@^- @@@@G*@@@@IH@)@^ZC0-@[QLJ@@@F)&2[F#^^@K1^GL#^^@@@@@@@HC )@@G@@/K@@$ (@@@@GH@@@[P[@@@@;G@@@@;C/@@@[/K@@(J*@@@@GH0]@ 1LK@@@F)&;[EK1^GL#@HD )@@G@@K[@^@@@@@@@@8N0@&>O/K@@[/K@@(N*@@@@G/G@@$]H@@@^U[@@@[MG@@@[MC/@@@[LL@@@FHE )@@G@@)$^[N@K0[#^@K0@@@@0@@@@K*@@@@KD[@@^TC/@@@[ @@@@I(@@@@GH@@@ !C/)@@[E@@@^THF )@@G@@/K@@(NLM@@@F)$I[E^[@K^G[#^K0@@@@@@@@C/)@@[[@@K^NC@@@ !@J/@#>/K@@(SN@0@$NHG )@@G@@/)0@$O+@)@@G @@@@GLN@@@F)$R[F#@K0^[@K^G@K1^GK@@@G@@@[PG@@@ !C/@@@[@K@@#>HH )@@G@@/K@@(SN@0@$W/K@@$X*@@K^W[@)K^OLO@@@F)$)[N#^^GK^GKK1@@@1@@@@I*@@@@IG@)@ 1HI )@@G@@C.@@@[H@)@[JC/)@@[ @@@@G*@@@[NC/@@@[[@@@[JLP@@@F)$%[E^[#@K1^[#@K1^GK@@@@HJ )@@G@@@@@@[J@@@@ 2@@JK^N/,0@!1[@@@[JC@@K^N/)K@$\+@@@@K @@@@KLQ@@@F)$3[F#^K1^G@HK )@@G@@K1^GL#^K1@@@G/@@@^[@@@@.G@@@[NH@@@[PG@@@ 1C/@@@[@K^@#>@@@@[N@@@@#-LR@@@FHL )@@G@@)$/[E^GL@K1^GL#^K1^G@@@@@KB@#>@@@@B.@@@@@.@@@@D.@@@@ 2/,0@?8[@@@D.W/@@@AHM )@@G@@;O@@@=LS@@@F)* [MK0@K0@[@@@@@@/=K@*.)@@@@I @@@@I0@@@@K*@@@@KD[@@^TC/)@@[HN )@@G@@ @@@@G*@@@^?@KH@#>HP )@@G@@@@@@ 2@@@@@.@@@@D.@@@@B./,0@:V[[@@D/G[@@[NLV@@@F)*-[F#^K1@^GL#^K0^GK@@@@HQ )@@G@@[@+@B/C@)@]8R@)@D.[@@@D.W/@@@A;O@@@=G/@@@ G@@@[NC@@@ 1LW@@@F)*%[F]KK0^G[HR )@@G@@#^K0^GL#@^GKG@@@[NC/@@@[@KL@#>@@@@[N@@@@]7@@@@B.@@@@]7@@JK^Y/,0@@@LX@@@FHS )@@G@@)*3[F#@K=^G[#@K1^G[#^K0@C/@@@[@KM@#>@@@@ 1@@@@^U@@@@B.@@@@]7@@JK^Q/,0@@@HT )@@G@@[@@@^ULY@@@F)*/[F#@K<4G[#@K0^G@K1@@@1@@@@IH@)@D.C@)@@GC@@K^W@KO@#>@@JK^WHU )@@G@@@@JK^=/,0@@@[@@K^OLZ@@@F)( [F#^K0^D #^K0^G[#@K^@/K@@(SN@0@(I@KQ@#>@@JK^>HV )@@G@@@@JK^=@@@@B./,0@@@[@@K^>C@@@D.MA@@@F)(I[F#@^GL#^K^G[@K^@@@@@/K@@(SN@0@(RHW )@@G@@/K@@*.*@@K^N/K@@>2[@@@[MG@@@ !C/@@@]@KR@#>MB@@@F)(R[##@K0^G[#@K0^G[#@K0@HX )@@G@@@@@@@@R@)@^\R@K@^,9\@@^?9,)@^%9,@@^*9!)@^&R]0@#&@KW@#>MC@@@F)(Z@N#@K0@@@HY )@@G@@)#<@C@)(-@N#@K$0@@)#>@K@@KWC];SCANR /K@@@@/K@K#<@@F@@L*4@K#C8FK@I[@K@^ZMI@@@F)%K[F#@^G[#@IF )@@G@@^G@K0^G@@@@@Q@)@^3R@)@#$G.@@@]C[@@^3G/)__"C@)@^4R@K@^3G/@@@[C@@@^3MJ@@@FIG )@@G@@)%T[F#@K0^G[#@^@K0@@@@@@(@@@@GH@@@^2C/@@@[8N0@%X @])@@[[@@^7[@)@^6[@@@^5IH )@@G@@N#0@^1MK@@@F)%+[F@^GL#^@K0^G@@@@@@@@R@)@^5G@)@^2C/)__.[^-@@@C8-@@[[@@@[EII )@@G@@[@@@[BC/@@@[/K@@:FML@@@F)%:[N#@^GL#@K1@@@@;C)@@Y;)?@@@C@<@@@G/@__9T/@@@AIJ )@@G@@C@@@[BO@0@^6R@0@[E[@)@[JR@K@^7MM@@@F)%5[M@K1^GKK1[@@@@/K@@:[*@@@@GH@@@[BIK )@@G@@C/@@@B[@@@[BG@@@[BC/@@@[[^]@@@C8[@@@[0+@@@MN@@@F)%_[MK1[#^^@K1^GK@O/)@@[IL )@@G@@[@@@[EG@@@[EC/@@@[/K@@:C*@@@@GH@@@[BC/@@@[[@@@[BC/@@@[MO@@@F):D[MK[#@K0@IM )@@G@@K^[#@@@K8@#%/K@@:NN@0@:M[^#@@@C/@@B_O@0@^2O@0@^3R/0__"8N0@%!O/K@@[MP@@@FIN )@@G@@):N@3#@K0^G[#@K0^G@@@@@@)#*@C@@@@@@@@@F@@ *4@K#*N#0@^;R@0@^'R@)@^9R@K@^8IO )@@G@@R]0@#:MQ@@@F):T@N#@K$0@@)#%@K@):V@V#@K0^G@@@@@@@A@)@^9A@K@^8AA0@#:@K8C];IP )@@G@@UNPACK/K@@@@/K@K#*MR@@@F):Y[F#@K0@K0[#@^G@@@@@@@[@@@^3C8FK@#[@K@^2C@VK@]IQ )@@G@@[@@@^4C8FK@@ @@@@J^#0@^;A@0@^'MS@@@F):$[F@K<4G[#@K0[#^K1^G@@R@K@^"[@@@[EIR )@@G@@[@@@[BC/@@@[@K.@#,@@JK^.@@JK^//,0@@@/K@@%HMT@@@F):0[EK1^G[#^K0@@@@@@@@@@IS )@@G@@]@@@[JC_)@@[H/@__"G/)__"C@)@ @]@@@[#H@@@^_[@)@[GC^-@@@MU@@@F):9[F#@K1^GKIT )@@G@@K0[#^K0^G@@@[@@@ #O@K@ [R@K@[EG/@__9[@@@ ]T/@@@AC@@@[B[#)@[C[@)@ [MV@@@FIU )@@G@@)?][F#@K1@K^[@K0^C?@@@@@/,0@@@@LA@#,/K@@?1N@0@?D/K@@?E*@@@@GG/@_8@C^@@[GIV )@@G@@A@K@ ^MW@@@F)?F[F#^K0^G[#@K0^G@@@@@@;G@@@A;)Y@@@C@L@@@R@K@ ^C0@@ ][@@@ ]IW )@@G@@E@)@ ]@LB@#,@@@@[GMX@@@F)?O[F#@^C!#^K0^G[#@K1@@@C/@@@[[@@@[GC^@@ #[@@@ #IX )@@G@@@LC@#,@@@@[G/,0@@@[@L@@@;@KK #MY@@@F)?X[F#^K1[#^^@K1@@@@@@@@C/@@@[[@@@[BIY )@@G@@C/@@@[/K@@?>*@@@@GH@@@[BC/@@@B[@@@[BG@@@[BMZ@@@F)?&[F#^^@K1^GKK^@@@@@@@@IZ )@@G@@N@0@?08N0@:'G_)@@[[@@@[EG@@@[EC/@@@[/K@@??*@@@@GH@@@[BNA@@@F)?\@;@K0^G[#JA )@@G@@@K0^G[#@@@@@)#?@C@@@F@@ *4@K#?N#0@ CR@K@ B9\)@ R]0@#\@LK@#,/K@@?1NB@@@FJB )@@G@@)?6@N#@K$0@@)#,@K@)?8@V#@K0^G@@@@@@@A@K@ B9:)@ AA0@#\@LKC];REPACK/K@@@@JC )@@G@@/K@K#?NC@@@F)?;[F#@[#@^G@K0@@@@@@@@@C8FK@#[@K@^_C@VK@][@@@^.C8FK@[[@@@^"JD )@@G@@C8FK@@ @@@@J^#0@ CND@@@F)!^[F#@K0^[#@K^G[#@^G@@@R@)@ GG/@__"C@@@ ER@K@ FJE )@@G@@/K@@!R(@@@ D/K@@:*[@@@ @[@@@^/NE@@@F)!H[M[#@K0^G@[@@@@/K@@!Z[^[@@@C8]@@@JF )@@G@@O@)@@GR@)@ HO@K@ FR@K@ D[^+@@@C8-@@[O@)@@GNF@@@F)!R[F#@^G@K0@^G@@@@@@@@@JG )@@G@@C@@@ H[^]@@@C8[@@@O@K@@GR@K@ HO@)@@GR@)@ GG/@__"C@@@ ENG@@@F)!)[N#@^@K0^JH )@@G@@G@^[@@/K@@!:N@0@!%[^[@@@C/@@B_O@K@ GO@K@ ER/K__"/K@@!**@@@@GH@@@ GNH@@@FJI )@@G@@)!%@:#@K0^G[#@K0@@)#0@C@)!\@F#@@@@@@/K@K#0@@F@@A*4@K#0R@)@ JR@K@ IR]0@#3JJ )@@G@@@LX@#2NI@@@F)!0@F]Z@@@@@)#2@K@)!1@<#@K0^G@@@@@@@ @@@@JA@)@ JA@K@ IAA0@#3JK )@@G@@@LXC];LINKUP/K@@@@NJ@@@F)!5[EK0[#@^G@K0@@@@@@@@@C@VK@^[@@@ FC8FK@#[@K@ HJL )@@G@@C@VK@][@@@ EC8FK@[[@K@ GC@VK@@NK@@@F)!"[F#@K^CH##K0^G[#@K00@(@@@@GG@@@@SJM )@@G@@C@@@@<@L-@#6@@@@]7@@@@@]/,0@@@/K@@!B[@K@ DNL@@@F),B[F@K)4GH#@K0^G[@K04GGJN )@@G@@[@@@@MC@@@@]/K@@,N(@@@@)@L=@#6@@@@]6@@@@@#/,0@@@/K@@,NNM@@@F),K[###K04GHJO )@@G@@##K0^G[#@K0@@@@@@@ @@@@) @@@@-[@@@@$C@@@@> @@@@S[@@@@#[@)@@]C@)@@#NN@@@FJP )@@G@@),S[F##K^[@K0^CH##K0^G@@@L0@#6@@@@@&@@@@@^/,0@@@@L\@#6/K@@,>N@0@,W/K@@,XJQ )@@G@@*@@@@WNO@@@F),-@3##K^[#@K0^G@@)#4@C@@@@@@@@@@@@@@@F@@[*4@K#4R]0@#7@L2@#6JR )@@G@@/K@@,>N@0@,= @@@@WNP@@@F),$@N#@K$0@@)#6@K@),(@<#@^[#@@(@@@@)/K@@,@ @@@@JJS )@@G@@AA0@#7@L2C];EOF /K@@@@/K@K#4NQ@@@F),![N@^GG^GG^@@@@@C8)@@[/)K@,'+@@@@IJT )@@G@@ @@@@I*@@@@QC/)@@[ @@@@G(@@@@ C/@@@[/K@@\ANR@@@F),7[F@K^G[@K0^[@K0^G@@@@JU )@@G@@ @@@@<@L;@#'/K@@\A/,0@\!@L'@#'/,0@0@@L9@#'/K@@\FN@0@,9NS@@@F)\@[EK04GGK0JV )@@G@@^[@K0^@@@@@@N@0@\E@M@@#'/,0@,(/K@@,,[@)@@-C/)@@[[@@@@SG@@@@SC/@@@[NT@@@FJW )@@G@@)\D[#@K0^G[])^G[#@K0@@@@@@@@@@*4@K#8R]0@#;[^)@#8H8)@@[/K@@@@!^)@#8@M[@#'JX )@@G@@/K@@\JNU@@@F)#8@C@)\L@N#@K$0@@)#'@K@)\N@MK0@@@@@AA0@#;C8@@@]@M[C];TOP JY )@@G@@/K@@@@/K@K#8@@F@@@NV@@@F)\P[F#@^[][K04G[@K0^G@@@[@@@@+@M @#"/K@@\-@@@@[\JZ )@@G@@@@@@@]/,0@@@/K@@,? @@@@J[^@@#8NW@@@F)\Y[F@K^G@K^[#@K0^E@@@@@/K@@@@!^)@#/KA )@@G@@@MB@#"/K@@\>N@0@\=C8)@@[@MA@#"/K@@\(N@0@\)NX@@@F)\$@+K0^G[#@@@@@@@)#/@C@KB )@@G@@)\:@N#@K$0@@/K@@@@/K@K#/@@F@@@*4@K#/R]0@#_[^)@#/H8)@@[NY@@@F)#"@K@)\!@'KKC )@@G@@0^G@K^G[@@@@/K@@\9(@@@@-/K@@\S @@@@J[^@@#/AA0@#_C8@@@]@MBC];GETLINNZ@@@FKD )@@G@@)\4[F]]K04G[#@K0^[@K0^G@R]0@^#@MH@^]/K@@\/N@0@\;@MG@^]@@@@@+@@@@[\@@@@@#KE )@@G@@/,0@@@OA@@@F)\.@F#@@@@@@)^@@C@)\"@N#@K$0@@)^]@K@@@@@@@@MHC];PUTLIN/K@@@@KF )@@G@@/K@K^@@@F@@[*4@K^@OB@@@F)0@[F#@^[#@K^[@K0^GG@@@@*@@@@P@MM@^A/K@@1%N@0@0BKG )@@G@@/K@@0C*@@@@-/K@@\2 @@@@JAA0@^#OC@@@F)0D[F@K04[]^K04G[#@K0^G@@MQ@^A@@@@]7KH )@@G@@@@@@]"@@@@[,@@@@@S/,0@@@/K@@0M(@@@@O/K@@05OD@@@F)0M[MK00[##K0^G@@@C/@@@[KI )@@G@@A@K@ L[@@@ KP@K@@OR/K@@@ @@@@G*@@@@IG/)_,+C@)@@IC/@@@[OE@@@F)0W[N##@K0^@KJ )@@G@@K0^G@@C@)@@GC@@@@:[4@@[,C/@@@D/)K@0=)@@@ K @@@@G*@@@@IG/)_4+C@)@@IOF@@@FKK )@@G@@)0&[F#@^G[##K0^G[#@K0^CO/,0@@@^@K@ MN8L@[\R@K@ L[@@@ KG@@@@OC@@@@+1@@@@IKL )@@G@@H@)@@+OG@@@F)0\[F#@K0^G[@K^G[]JK0^G@@@@@].@@@@]A/,0@@@@MU@^A/K@@1%N@0@04KM )@@G@@@MT@^A@@@@ K@@JK MOH@@@F)08[##@K04[]^K04G[#@K0@@@@@@@@@@@@]7@@@@]"@@@@] KN )@@G@@@@@@@S/,0@@@/K@@1[(@@@@O@MV@^AOI@@@F)1@[F#@K0[#@^G@K0^D?@@@@/,0@@@[@@@ LKO )@@G@@T/@@@AC@@@@+1@@@@IH@)@@+C@)@@GC@@@@:@MX@^AOJ@@@F)1D[F#@K0^G[#@K0^G@K04G@KP )@@G@@A@K@ LP@K@@OR/K@@@@MY@^A@@@@ L@@@@]7@@@@]A@@@@]7@@@@[\OK@@@F)1M[MK00[##@KQ )@@G@@@@@@@@ @@@@I*@@@@KG.@_,+C[@@@IC/)@@[ @@@@G*@@@@IG/)_4+C@)@@IC/@@@[OL@@@FKR )@@G@@)1W[EK[#@K0^G[#@K-OG@@@@@@JK K/,0@@@^@K@ KN8L@]AR@K@ L[4@@] C/@@@D/)K@1)KS )@@G@@)@@@@IOM@@@F)1>[##@K0^[@K0^G[#@K0@@@@@@@@@*4@K^^R@K@ NR]0@^B@M+@^A/K@@1%KT )@@G@@N@0@1(@M-@^A@@@@].ON@@@F)^^@C@)1!@N#@K$0@@)^A@K@)1\@N#@K0@@@A@K@ NAA0@^BKU )@@G@@@M+C];WRITER/K@@@@/K@K^^@@F@@[OO@@@F)11@MK@@@@@@)]6@8@@@@@@@@@@@:_@@@@@]KV )@@G@@LINES:@@@@@B @@@@@[@@@@@@/K@@0# @@@@JOP@@@F)].[S@@@@@@@@@INIT@@SAVEKW )@@G@@@@@@@AEDIT: EDIT @@@@*_INPUT INPUT:@@@@@E@@@@@ @@@@@QOQ@@@F)#C[S@@@@@@@KX )@@G@@ADDED:@@SPL!@@@SPD@@@@@^@@@@@GATUS FAC STCHARS:EOF: SCAN: @@@@@#OR@@@FKY )@@G@@)#N[@@@@@@@@)#$@C@@@@@@@@@[@@@ @@@@@L@@FILE@@@@@_@@@@__TALLY:@@[@@[KZ )@@G@@@@AOPTOS@@@F@@@@@@@@@@@@)#$@C@@@@@@@@@[@@@ @@@@@L@@FILE@@@@@_@@@@__LA )@@G@@TALLY:@@[@@[@@AOPTOT@@@F@@^@@ @@D@@-@[F@@[@[N@@]@@A@ O@C@@13@@@@@@@@@@@XLB )@@G@@@@@@E@IDLER XSDFI XSDFO XENDF EDEC XPRINTLC )@@G@@ XREAD TRIM GETC LOOKUP NSCAN IND LD )@@G@@ THIRD WHAT TYPER BLKR COPY BXFR LE )@@G@@ IDL CSF EOCT MSG1 MSG2 CONFR LF )@@G@@ NOFIL1 FILE PUTC SQOPY NINTR$ NERR2$LG )@@G@@ NSTOP$ NERR3$ NERR4$ FORMAIN$ @@[@@@@@@@@@@@@@@@LH )@@G@@ ^@@@C@@]@@@@INFO ]@@@C@@#@@@@DYN ]@@@C@@^@@@@ -1 -1LI )@@G@@2 21.61 85.25 31 55 -1.52 @D@[@@ 319 0 -12 21.94 LJ )@@G@@ 85.24 42 53 -1.53 @D@[@@ 319 0 -1@@@[PO[WT@C@#__^@@[WT^6FLK )@@G@@@@@@C@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@[OU@C@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LO )@@G@@@@@___@@@___@@@___@@@___R#@^@2R#K@Z%:@@@@H/K@@CG9*@^$OR#@@Z+'=@@@IR#@@Z,LP )@@G@@'=@@@IR#@@Z('=@@@I'=@@@)R#@^^('=@@[[R#@@Z\/,0[S(/K@@HPR;@@@[/,0[TO/K@@IJLQ )@@G@@9?@^#,/,0[V@0@@@@G/K@^]19?@^#,9*@^-4R;@^-4'=@@[GR7@^-' @@@[C/^@@C*N8K,ARLR )@@G@@^CK^#ZR;@^-V'=@@@JA#@@[C/G@@IMR;@^-4'=@@[GR7@^-'!8@@@S!8@@@)/K@@H"R3@^-'LS )@@G@@;@@@@^/=@@ID;)@@@#/=@@IAR7@^5_/@@@HR9?@^6B9*@^-%9?K@K?R3@^5_/@@@C89?K^6DLT )@@G@@9*K^-,R;@@@[A\@^-!9?@^#,9*@^-*R;@^-*'=@@[ /^)@F( @@^5;K@^@C;@@@D/=@@I^;)@@@[/=@@FUR7@^5_LY )@@G@@/@@@H2 G@^#=9?@^6B9*@^#)R3@^5_/@@@D/9?@^6D9*@^#+R;@^#''=@@[C/^)@GGA#K^#(LZ )@@G@@A#K^#_ @@^5VR;KC@@R#@@Z1=@K@[C'=@@@IR#@^$O=8@@^@/,0@F&R;@^$OAB@^-^Q'0@EGMA )@@G@@/K@@I%9?@^-.)@@@@H/)K@EMR#@@Z2'=@@@IC9)@@RC90@@Z9?@^^A9*@^$OR;@^$O'=@@[GMB )@@G@@*4G@@A/K@@EYR;@^^"'=@@@J/G@@IG/K@@E),5?@@A/K@@IG9?@^^M9*@^$OR;@^$O'=@@[GMC )@@G@@*4G@@A/K@@E%R;@^ #'=@@@J/G@@IG/K@@E?,5?@@A/K@@IGR;@^-=R#K@Z3'=@@@49?@^^YMD )@@G@@9*@^$OR;@^$O'=@@[G*4G@@A/K@@FOR#@@Z4'=@@@J9?K@Z5'=@@@3/)@@E;9?K@Z79*K^--ME )@@G@@R#@@Z4'=@@@J/C@@FI=@@@Z9/K@@FFA#@^ =/,0@L]@@@^ =@@@^ ?@@@@Z'@@@@Z;/S@@@@MF )@@G@@R#@@Z/'=@@@I/K@@FQR#@@Z.'=@@@I/K@@FQ9?@@Z"9*@^--R#@@Z4'=@@@J/G@@IG/K@@FQMG )@@G@@,5?@@A/K@@IGR;@@@^0G@^#=A#@^5&/K@@)>R#@@)@A#@^5W9?K^-.)@K@@I/=)@F)*@@@@SMH )@@G@@'=@@@I/=)^]1R'0@ED/#@@F&R#@@)['=@@@IR;@@@[A#@^5V/KF@@@:8)@@]/K@@GL:8)@@[MI )@@G@@/K@@F0R#@@)]'=@@@I/K@^]1R;@@@[A#@^-.R;@^-^/,0[QG9?@^-8/,0[RFR;@@@*/,0[Q5MJ )@@G@@9?@^-6/,0[RFR;@@@./,0[Q59?@^-%/,0[RF(0@^5_/K@@G^R;@@@//,0[Q59?@^-,/,0[RFMK )@@G@@R;@^^5/,0[R&R;@@@[A#@^5R7@^#>/,0[SJR;@@@//,0[Q5R3@^#>MZ )@@G@@/,0[SJR;@@@-/,0[Q5C K^#> @@@@KW9@@@/;H@@@=W9@@@/R#@@@K(@@@@GR;@@@S/,0[SJNA )@@G@@R;@@@:/,0[Q5R;@@@0?9K@@E/,0[Q5R#@@@L/,0[SJR;@@@-/,0[Q5R;@@@(/,0[Q50K@^#=NB )@@G@@/K@@JORN@^#=/,0[SJ/K@@JS(K@^#=/K@@JSR;@@@D/,0[Q5R;@@@,/,0[Q50G@^#=/K@@JZNC )@@G@@RJ@^#=/,0[SJ/K@@J<(G@^#=/K@@JY@@@/,)@K6C-Y)@@R#0@)P/KE@@@[5W@@@[1W@@@[!W@@@NK )@@G@@[(W@@@[>W@@@/,)@K_[-W)@@R#K@)P/KE@@@9!@@K,R;K@@@ @@@@M/K@@LD9!@@K?R;K@@:NL )@@G@@C9)@@[ @@@@JR#:K@@*@@@@ME@)@@I @@@@G/ )@LM+8)@@B;C)@@#/K@@LO;G)@@=W8)@@ENM )@@G@@G8.@@@G9Z@@@; @@@AG8@@@[/^)@LI @@@@JE@:K@]/^)@LXR#)@@GT8@@@AP;@@[C!8)@@HNN )@@G@@R_)@@GC[)@@IH9)@@[T8)@@AI@)@@G @@@@HW8K@[C; I@@@E@FK@#*@@@@GP;@@@[;G@@@=NO )@@G@@W8@@@A&;@@@[&;K@@[O;FK@[;>@@@A')H)K98^)@L0/KF@@ @@@@JR#:K@[*@@@@IP;)@@[NP )@@G@@;G)@@=W8)@@AC[K@@J @@@@JO;:K@@R#0@@L')J)K0[[K@@G/KF@@# @@@@JR#FK@]*@@@@GNQ )@@G@@P;@@@[;G@@@=W8@@@AO;FK@[C-VK@@')H)K9/KF@@^@@@SYM@@@ELT@@@ASM@@@COB@@@FORNR )@@G@@@@@ALG@@@MAP@@@DOC@@@SEC@@@SSG@@@APL@@@BAS@@@LSP@@@PLS@@@RUN@@@ADD@@@NORNS )@@G@@@@@NRL@@@NPL@@@***1G@^#=/K@@M>R;KDF (G@^#=0K@^#=/K@@M5 @@@@JR;@@@[RBVK@@NT )@@G@@:8K /K@@M1R#)@)QN8K@@N2@Y)MG/KF@@] @@@@GAB)^#&/KF@@]RBK^#&!8K@@NR;K@@NNU )@@G@@R#X@MFAFK^-FR#@@)R'=@@@I @@@@G/KF@@]R#@@N^'=@@@IR#@@NF'=@@@I/K^@@@NO FURNV )@@G@@THER INPUT POSSIBLE. @] @M_USE '*EXIT' TO LEAVE CONFERENCE. @[A@N NW )@@G@@R#@@NP'=@@@I/KF@@]CONFERENCE SYSTEM NOT AVAILABLE. @[A@NJ(@@^[A/K@@NGNX )@@G@@ @@@@K*@@^5-/K@@NXR;0@@#;G0@@]R#K^5=?8K@@]/K@@N:R#@^$P @@@@H;=@@@A?8K@@)NY )@@G@@?8K@@A/K@@N%R;0@@[D@K@@H;*.@@Z)@0@@K/^@@N-R;@@@]A#@^5%'=@@[WR#K@)SR#)^-[NZ )@@G@@A#!@@[[[H@@@ @H@@]R[@@@FR#@^[A'=@@[9/G@@M'*@@^5!/K@@O]C/@^-^/,0[QGC@@@)TOA )@@G@@/,0[RDC@@^5?/,0[SJ/,0[QAA0^-JOS )@@G@@R;@^-^/,0[QGR#@^5?/,0[SJR#@@@M/,0[RDR#@@@M/,0[RD/,0[Q@@@)Z/K@@R5A#@^-#*@@^5T/K@@RKA#@^5U @@^-#/K@@R8/^K@R8*@@^5T/K@@RJOV )@@G@@A#K^5= @@^5T/@K@SE:9)@*_/K@@SER7@^$O%8@@@//K@@S N@K^@@^@K^5=R#@@))R#K@)WOW )@@G@@/K@@SDN@K^5=^@K^@@R#@@)WR#K@))M#W)@@(@@^-#/KF@@#R#@@)-'=@@@I @@^-#/KF@@#OX )@@G@@;*@@@] @@^-G/CF@@@/K@@RK @@@@J'=@@@NA#@^-H @@^-GQ;FK@@&#FK@['K@@Z!'=@@@IOY )@@G@@/KF@@# @@@@JR#VK@@R#X^-JR;FK@[ABH@@DA#K^-IAA0^-J0@H@@@/,)@TOR;H@@[/,0[MSOZ )@@G@@/K@@S7/K@@S30@G@@E/K@@S$0K@^#=/K@@S0**G@@E/K@@S$RZG@@EQ]0^-J/KF@@^Q]0^-JPA )@@G@@0@G@@#'=@@@A/KF@@]AB@^[QR#@@@L/K@^[9 @@@@JR#VK@@R#X^-JR;FK@[ABH@@DAA0^-JPB )@@G@@0@H@@@/,)@TER#FK@];*@@@SA#H@@FR;H@@[/,0[P[/K@@S7Q]0^-J/KF@@^A#K^-IR;@@@CPC )@@G@@AZH@@^R;H@@[/,0[P*R#K^-IQ]0^-J @H@@@ @@@@J/KE@@@R;@@@KAZH@@^R;H@@[/,0[O&PD )@@G@@/K@@S7R#K^-IQ]0^-J @H@@@ @@@@J/KE@@@ @@@@JR#VK@@R#X^-JA#K^-IAA0^-J*@FK@[PE )@@G@@/K@@T,0@H@@@/,)@TER;H@@[/,0[P1/K@@S7R#K^-IR#H@@AA#@^#$/K@@T1R;H@@[0@G@@#PF )@@G@@'=@@@AQ]0^-JR#FK@@R#G^#$A#H@@AR_@__"A#H@@@R#@@)+A#H@@ R#@@)[@@^+>/K@@)2/,0@TY@@@^5Q@@@^=6QS )@@G@@@]L@@@/,0@TY@@@^5O@@@^=7@]M@@@ @@^5:*@@^5$/K@@8)C/@@@[*@@^5- @@@@GC/)@@[QT )@@G@@(@@^5< @@@@I)@@@@I/=K@-(/K@@-R(@@^5-/K@@->C@@^=8[@@^=B/,0@LA@@@^+>@@@^=AQU )@@G@@@@@^=6@@@^=9@]W@@@C@@^='[@@^=A/,0@SO@@@^=A@@@^=;@]Y@@@C@@^5+G/@966*@@@@GQV )@@G@@/K@@+BC@@^+>[@@^+$(@@^5>/K@@-4(@@^5-/K@@-3/,0@SO@@@^+9@@@^=7@]>@@@/K@@(QQW )@@G@@C/@@@[*@@^5- @@@@GC/)@@[*@@^5< @@@@I)@@@@I/=K@+B/,0@SO@@@^+;@@@^=7@](@@@QX )@@G@@/K@@+BC/@@@[[@@^5V/K@@+B*@@^5W/K@@&1 @@^5VC/@@@[C@)^5\H@)^5,/C)@+H*@@@@IQY )@@G@@ @@@@GC/)@@[D[@^5,*@@@@K1@@@@K @@@@I+@@@@IC/)@@[*@@^5U @@@@I;^@@@=+@@@@IQZ )@@G@@/=K@6^/,0@RE/K@@"0@@@^=/@]2@@@ @@^+7 @@^50(@@^5=/K@@(A/,0@P @@@^$O@@@^5=RA )@@G@@@]7@@@[@@^*XC4)^$O[@)^*SC/)@@[[@)^=3C@@^*SG/@__R(@@@@G/K@@5BC/@@@][@@^5&RB )@@G@@ @@^=5 @@^** @@^=4C/@@@N[@@^5+C@)^*SG/)__X(@@@@I/K@@=GC/)@@U[@)^5+C[@^*SRC )@@G@@G.@__Y(@@@@K/K@@=GC.@@@[[[@^5&C.)@@G[[)^5+C"@@@9H]@^*S/E@@@@@^5+@@@^1M@#R@@@RJ )@@G@@[@@^*ME@)^1M[@)^*QC4)^*Q[@)^!#C/)@@[(0@^*Q @@@@IC.@@@[C!)^*QH[)^*T(@@@@MRK )@@G@@ @@@@K+@)@@KC.@@@[*@@^!# @@@@K;^)@@=)@)@@K/=0@>N/,0@P=/K@@&1/K@@=\@@@^$ORL )@@G@@@@@^*X@@@^5&@@@^=3@@@^!#@@@^!^@@@^+.@#W@@@C^@^*Q[@@^&C/,0@P)@@@^&C@#X@@@RM )@@G@@[@@^*TC/)__"G@)^!#R/K@@[[@)@[JA@K^*V/,0@U/@@@^*V@@@^*T@#-@@@[@@^*S/C@@>]RN )@@G@@*@@@@G/K@@>BC@[^=2H@@^*S/C@@>B*@@@@G/K@@&1O/K@@[8N0@=9D@@^1M*@@@@G0@@@@GRO )@@G@@/K@@>NC@@^=3C@)@@GG/)__"0@@@@IC/@@@[[@@^=3C@@^+>H@@^5?[@@^+*C@)^*M?8)@[MRP )@@G@@/C,@>T'^@@K /K@@&?/K@@$@/K@@6G/K@@::/K@@"[/K@@"B/K@@"L/K@@"H/K@@$#/K@@6IRQ )@@G@@/K@@52/K@@52/K@@&./K@@,,/K@@1O/K@@0\/K@@1 /K@@*-/K@@+[/K@@+^/K@@*=/K@@*;RR )@@G@@/K@@*"/K@@*4/K@@*1/K@@*9/K@@*\/K@@"0/K@@"0/K@@$\/K@@([/K@@-R/K@@%N/K@@?VRS )@@G@@/K@@$ /K@@8=/K@@'^/K@@'^/K@@'^/K@@'^/K@@'^/K@@(#/K@@"P/K@@5^/K@@:,/K@@::RT )@@G@@/K@@3W/K@@%&/K@@!X/K@@!N/K@@!Q/K@@!S/K@@!V/K@@"T/K@@$X/K@@$Q/K@@&6/K@@22RU )@@G@@/K@@'^/K@@'^/K@@'^/K@@'^/K@@'^/K@@.Y/K@@2+/K@@4//K@@.:/K@@\R/K@@\M/K@@%,RV )@@G@@/K@@?//K@@,6/K@@$2/K@@!=/K@@6P/K@@6P/K@@, /K@@, /K@@.3/K@@2_/K@@9B@#:@@@RW )@@G@@/,0@SO@@@^+_@@@^=;@#?@@@/K@@+B/,0@SO@@@^<]@@@^=;@#,@@@/K@@+BC/@@@QC@)@@GRX )@@G@@H@)^=31@@@@IC@@^=3[@@^+?/K@@+B/,0@T/@#2@@@/K@@+BC/@@@[[@@^5!/K@@+B @@^5!RY )@@G@@/K@@+BC/@ [^@^5&C/)@@CH@)^*X*@@@@I/K@@$KC))^$O[*)^5&C@)^$P;C)@@S[O)^5&RZ )@@G@@/,0@MZ@@@^5&@#.@@@*@@@@G/K@@&1/K@@+BC@@^=3C@)@@GG/)__(1@@@@IC/@@@Q[@@^+:SA )@@G@@/K@@+B*@@^=3/K@@$-C@@^+([@@^=3*@@^=4/K@@$>C@@^+%[@@^=4C@@^=4H@@^=3/C@@$%SB )@@G@@*@@@@G/K@@&1C@@^=3[@@^+(C@)^=4[@)^+%/K@@+BC=@^$O[@@^+!/K@@+BC@@^=3C@)@@GSC )@@G@@G/)_.;1@@@@IC/@@]^[@@^=3*@@^=4/K@@*EC/@@[CH@@^=3*@@@@G1@@@@G/K@@*]C/@@] SD )@@G@@H@@^=3[@@^=4C/@@[CH@@^=3/C@@*B*@@@@G/K@@*EC/@@[DH@@^=3[@@^=4C/@@] H@@^=3SE )@@G@@C@)@@GH@)^=41@@@@IC@@^=4[@@^=4/,0@J0@@@^=A@@@^=.@^P@@@/,0@KA@@@^+E@@@^=7SF )@@G@@@@@^=A@@@^=3@@@^=4@^Q@@@/,0@SO@@@^=A@@@^=.@^R@@@/K@@+BC=@^$O[@@^+,/K@@+BSG )@@G@@/,0@P=/K@@&1/K@@+B@@@^$O@@@^*X@@@^="@@@^+@@@@^=_@@@^5&@@@^< @^V@@@ @@^+4SH )@@G@@/K@@+BC/@@@[[@@^+4/K@@+BC)@^$O[@@^+2C/@@@[[@@^+3/K@@+B @@^+3/K@@+BC)@^$OSI )@@G@@[@@^+\/K@@+BC)@^$O[@@^+0/K@@+B @@^5-/K@@+BC/@@@[[@@^5-/K@@+B*@@^5!/K@@(QSJ )@@G@@C@@^>@[@@^=AC@)^=8[@)^=B/,0@LA@@@^5?@@@^=A@@@^=6@@@^=9@^1@@@/,0@SO@@@^=ASK )@@G@@@@@^=;@^2@@@C/@@@[[@@^+)C@)^>[[@)^5+[@)^+6[@@^=3C/@@@[D@)^5,*@@@@I1@@@@ISL )@@G@@ @@@@GC/)@@[C[@^5\H[@^5,/D@@($*@@@@K @@@@I+@@@@IC/)@@[*@@^5U @@@@I+@)@@HSM )@@G@@/=0@6^/,0@RE/K@@"0@@@^>]@^9@@@C@@^5=G@@^5U(@@@@G/K@@%ND@@^5,*@@@@G1@@@@GSN )@@G@@/K@@(/C/@@@[G@@^5\[@@^5\/,0[K>@^"@@@C4@^$OH@@^+!*@@@@G/K@@%^C/@@@@[4@^$OSO )@@G@@C/@@@[[@@^!^/,0[]N@@@^<\@ ]@@@C/@@@[G@@^5?[@@^5?C/)@@[G@)^+>[@)^+>C.@@@[SP )@@G@@[[@^+- @@^+#[@@^+6*@@^5!/K@@+BC@)^>^[@)^=AC@@^=8[@@^=B/,0@LASQ )@@G@@@@@^5?@@@^=A@@@^=6@@@^> @ H@@@/,0@SO@@@^=A@@@^=;@ I@@@/K@@+BC@@^+>H@@^5?SR )@@G@@(@@@@G/K@@(AC@@^+>H@@^5?[@@^=3/K@@%7D@@^=3*@@@@G0@@@@G/K@@%7C/@@@U[@@^5+SS )@@G@@E@)^=3[@)^=3/K@@! C/@__"G@@^=3C_)@@[[@@@[J[#)^*V*@@^5T/K@@%N/,0[K>@ Y@@@ST )@@G@@/,0[KM/K@@?F@ Z@@@ @@^+A*@@@@G/K@@:&C@@^+6H@@^>[(@@@@G/K@@(Q*@@^+7SW )@@G@@/K@@+B/K@@%N(@@^5-/K@@:%/,0[MO@ 5@@@/K@@+B @@^+)C@@^+$[@@^+>/,0[J8/K@@%NSX )@@G@@@ 9@@@C@@^5+H@@^>A(@@@@G/K@@:ZC@@^5+H@@^>B*@@@@G/K@@+B @@^+>C/@@@[[@@^5:SY )@@G@@ @@^5> @@^5$C/)ADD[@)^5+C.@@@#[[@^5QC.)@@^[[)^5R(@@^5-/K@@?E/,0@SO@@@^C@AA@@@/K@@),/,0[JI@AC@@@(@@^5-/K@@+BC/@@@[C@)^5+G/)__?*@@@@I @@@@GTA )@@G@@C/)@@[C[@^5+G.@__3*@@@@K @@@@I)@@@@I/=K@?!C@@^=8[@@^=BC@)^>D[@)^=A/,0@LATB )@@G@@@@@^+*@@@^=A@@@^=6@@@^> @AJ@@@/,0@SO@@@^=A@@@^=;@AK@@@C@@^5+G/@_$7(@@@@GTC )@@G@@/K@@+BC@@^>E[@@^=AC@)^=8[@)^=B/,0@LA@@@^+>@@@^=A@@@^=6@@@^="@AP@@@/,0@SOTD )@@G@@@@@^=A@@@^=;@AQ@@@/K@@+BD@@^=3*@@@@G0@@@@G/K@@! C/@@@N[@@^5+E@)^=3[@)^=3TE )@@G@@/K@@%7C@@^=3C@)@@GG/)__"0@@@@IC/@@@[H@@^5?H@@^+<]@@^=3*@@@@G1@@@@G/K@@:,TF )@@G@@(@@^+[@@^=3/K@@!\(@@^=4/K@@!\/K@@%7C@@^=4TH )@@G@@H@@^=3G/@@@[C@)@@GG/)__"0@@@@IC/@@@[[@@^=3/,0[MO@A2@@@*@@^5T/K@@%NC/@@@[TI )@@G@@H@@^=3(@@@@G/K@@+BC/@@@[H@@^=3]@@^=3/,0[K>@A8@@@/,0[KM/K@@?F@A9@@@C/@@@[TJ )@@G@@[@@^+- @@^+@B]@@@C/@@@[TL )@@G@@G@@^5?[@@^5?C/)@@[G@)^+>[@)^+> @@^+@@@/,0@J0@@@^<\@@@^++@B&@@@TU )@@G@@C/@@@[G@@^=3[@@^&C/,0@KA@@@^=A@@@^&C@@@^<\@@@^=7@@@^5&@B$@@@C/@@@ G@@^5&TV )@@G@@;O@@@=W/@@@A[@@^++C/@@@[[@@^+)(@@^5-/K@@0T/,0[MO@B:@@@*@@^5T/K@@%NC/@@@[TW )@@G@@H@@^=5*@@@@G1@@@@G/K@@+BC/@@@[H@@^=5]@@^=5/,0[K>@B1@@@/,0[KM/K@@?F@B2@@@TX )@@G@@C/@@@[G@@^5?[@@^5? @@^+F[@@^=A/,0@LA@@@^5&@@@^=A@@@^=6@@@^=9@B/@@@TZ )@@G@@/,0@SO@@@^=A@@@^=;@B.@@@/K@@+B(@@^+-/K@@+BC@@^*XH@@^!^/C@@1G*@@@@G/K@@+BUA )@@G@@C@@^!^H@@^*XG/@__"]@@^5&*@@@@G1@@@@G/K@@+B/K@@1=(@@^+-/K@@+B(@@^+=/K@@+BUB )@@G@@/,0@J6@@@^=X@@@^$O@@@^+=@CF@@@C/@@@[[@@^!^/,0@P @@@^=X@@@^+=@CH@@@[@@^5&UC )@@G@@/,0@P @@@^<\@@@^++@CI@@@[@@^1MC/@@@[(@@^5- @@@@GC@)^+?T/)@@AH@)^1MC.@@@[UD )@@G@@H@)^5&*@@@@I1@@@@I @@@@K+@@@@K/)K@1'/,0@SO@@@^C@CK@@@C@@^+?T/@@@AUE )@@G@@H@@^1MC@)@@GH@)^5&1@@@@IC@@^5&[@@^5&R@K^++*@@@@G0@@@@G/K@@+BC/@@@[[@@^+)UF )@@G@@C/)@@QH@)^++[@)^&CN8L^<\^@K^&D/,0@J0@@JO&D@@@^&C@CP@@@C/@@@[G@@^1M[@@^&CUG )@@G@@/,0@KA@@@^$O@@@^!^@@@^<\@@@^&C@@@^5&@CQ@@@C@@^1MG@@^5&G/@@@ ;O@@@=W/@@@AUH )@@G@@[@@^++/K@@+B @@^+@CU@@@/,0[]N@@@^<\@CV@@@C/@@@[[@@^+-C/@@@[[@@^+)UI )@@G@@G@@^+>[@@^+>C/)@@[G@)^5?[@)^5?/K@@+BC@@^++[@@^*N/,0[]N@@@^=A@C+@@@/,0@S'UJ )@@G@@@@@^5R@@@^=A@@@^++@C<@@@C@@^*N[@@^++/K@@2%/,0@J6@@@^=X@@@^$O@@@^+=@C&@@@UK )@@G@@C@@^+=[@@^5=C@)^++[@)^*NC.@@@[[[@^!^/,0[]N@@@^=A@C%@@@/,0@S'@@@^5R@@@^=AUL )@@G@@@@@^++@C:@@@C@@^*N[@@^++C/)@@[[@)^+)G@)^5?[@)^5?C.@@@[G[@^+>[[@^+>/K@@+BUM )@@G@@/,0[ [/K@@&1/K@@%N@C1@@@ @@^*SC/@@@[H@@^***@@@@G1@@@@G/K@@3*C/@@@[[@@^*SUN )@@G@@(@@^+-/K@@4?/,0[EC@@@^<\@@@^++@@@^$+@@@^*O@@@^$8@@@^*P@@@^<\@@@^=.@@@^+(UO )@@G@@@@@^+%@@@^*U@@@^*=@@@^+3@@@^+2@@@^*N@@@^*>@C7@@@*@@^*>/K@@4LC/@@@[C/)@@[UP )@@G@@H@)^*I*@@@@I @@@@GC/)@@[C.@@@[H[@^*S*@@@@K @@@@I)@@@@I/=K@4?(@@^5-/K@@4KUQ )@@G@@/,0@SO@@@^C@C.@@@/K@@+BC/@@@[C@)^+?H@)^*N*@@@@I1@@@@I @@@@GC/)@@[UR )@@G@@(@@^5- @@@@I+@@@@I/)K@4)/,0@SO@@@^C@D@@@@C@@^*NC@)@@GH@)^+?1@@@@IUS )@@G@@C@@^+?[@@^++C/)@@[[@)^+)(@@^5-/K@@4?/,0[MO@D^@@@*@@^5T/K@@%NC/@@@[H@@^**UT )@@G@@/C@@43*@@@@G/K@@46*@@^*I/K@@-P/K@@+BC/@@@[H@@^**]@@^**C/)@@[[@)^=3/K@@%7UU )@@G@@(@@^+-/K@@2+/,0[]N@@@^<\@DL@@@C/@@@[[@@^+)/K@@+B/,0@I%@DO@@@/K@@+B/,0@J_UV )@@G@@@@@^$O@@@^5=@DQ@@@[@@^=3C@)^=3;C)@@K@5G[@@^=AC@)^>H[@)^=B/,0@L]@@@^=3@@@^=C@@@^>I@@@^=7UY )@@G@@@DY@@@/,0@SO@@@^=A@@@^>J@DZ@@@/K@@+B(@@^+-/K@@+BC@@^++[@@^+=/,0@J6@@@^<\UZ )@@G@@@@@^=X@@@^++@D=@@@C@@^5+G/@_2,(@@@@G/K@@+BC/@@@D[@@^5+C/)@@[[@)^=3/K@@9MVA )@@G@@C@@^>A[@@^5+/,0@SO@@@^[@@^=3 @@^5\/,0@S'@@@^5S@@@^K*@@@@I/K@@6"[@@^+<(@@^+-/K@@6:C/@@@[H@@^5?C@)@@GH/)___VD )@@G@@1@@@@ID/@@@@]@@^5?C/@@@[[@@^+)(@@^+-/K@@66C/@@@[H@@^+>C@)@@GH/)___1@@@@IVE )@@G@@D/@@@@]@@^+>/K@@6"C/@@@[H@@^+>C@)@@GH/)___1@@@@ID/@@@@]@@^+>(@@^+-/K@@7 VF )@@G@@/,0@S'@@@^5S@@@^<\@@@^++@D_@@@C/@@@[C/)@@[H@)^=3*@@@@I @@@@GC/)@@[(@@^5TVG )@@G@@ @@@@I)@@@@I/=K@7%C/@@@[H@@^=3]@@^=3C@@^5+H@@^>K(@@@@G/K@@7S/,0[K>@E^@@@VH )@@G@@/,0[KM/K@@?F@E @@@C@@^5+H@@^>K(@@@@G/K@@7+C/@@@[G@@^5?[@@^5?C/@@@[[@@^+-VI )@@G@@C@)^5+H@)^>K(@@@@I/K@@67 @@^+KVJ )@@G@@*@@@@G/K@@73 @@^+- @@^50*@@^5T/K@@%NC@@^5+H@@^>A(@@@@G/K@@8XC@@^5+H@@^>LVK )@@G@@(@@@@G/K@@-PC@@^5+G/@966*@@@@G/K@@+B*@@^=5/K@@8P(@@^5-/K@@+BC@@^=8[@@^=BVL )@@G@@C@)^>M[@)^=A/,0@LA@@@^5&@@@^=A@@@^=6@@@^=9@EZ@@@/,0@SO@@@^=A@@@^=;@E)@@@VM )@@G@@/K@@+B/,0[J8/K@@%N@E+@@@(@@^5-/K@@+BC@@^>N[@@^5+/K@@-RC@@^+5[@@^=3/K@@"TVN )@@G@@/,0@SO@@@^<)@@@^>C@E(@@@ @@^5&C/@@@[[@@^50[@@^+&*@@^5T/K@@7%/,0@SX@@@^5SVO )@@G@@@@@^=A/K@@7%@E\@@@[@@^=3C/)@@[G@)^5&[@)^5&/,0[K>@E1@@@/,0@J6@@@^=A@@@^<\VP )@@G@@@@@^=3@E2@@@C/@@@[[@@^+-G@@^5?[@@^5?C/)@@[G@)^+>[@)^+>C.@@@[[[@^+)C[)^=3VQ )@@G@@[[)^++ @@^+]@@^+> @@^+-/K@@9(C/@@@[H@@^+>VT )@@G@@]@@^+>C@@^+>C@)@@GG/)___0@@@@IC/@@@@[@@^+>C@)^**G/)__+(@@@@I/K@@;MC@)^**VU )@@G@@G/)__6(@@@@I/K@@;(*@@^5T/K@@%NC/)@@[H@)^=3(@@@@I/K@@+BC/)@@[H@)^=3]@)^=3VV )@@G@@/,0[KM/K@@?F@FL@@@/K@@9&C@@^*XH@@^!^/C@@'D*@@@@G/K@@&1 @@^=5C/@@@[H@@^!^VW )@@G@@]@@^&C/,0@L4@@@^$O@@@^&C@FQ@@@G/@__]*@@@@G/K@@'QC/@@@[[@@^=5C/@@@[C=)^5+VX )@@G@@G/)__,*@@@@I @@@@GC/)@@[C[@^5+G.@__,*@@@@K @@@@I)@@@@I/=K@'"C/@@@[[@@^+1VY )@@G@@C/)@]^[@)^1I[@@^!@C[@^+0[[@^5&[>@^5&C[@^5&[T@^5&C[@^5&[X@^5&R@K^>ON_0@@PVZ )@@G@@C@@^5&[@[=$-8N0@'0C@)^++[@)^*N @@^++/,0[]N@@@^$+@F*@@@C@@^1N[@@^*OC@)^*NWA )@@G@@[@)^++/K@@;JC@@^+4[@@^+1D@)^+([@)^!@C[@^+%[[@^1IC.)@@[G[)^*XH[)^!^[[)^*OWB )@@G@@/,0@KA@@@^$O@@@^!^@@@^$+@@@^=7@@@^*O@F0@@@C)@^5+[@@^** @@^+8C/@@@[C@)^**WC )@@G@@G/)__+*@@@@I @@@@GC/)@@[C[@^**G.@__6*@@@@K @@@@I)@@@@IC/)@@[C[@^+>H[@^5?WD )@@G@@*@@@@K @@@@I;^@@@=+@@@@I/=K@-PC@@^**G/@__6(@@@@G/K@@9M*@@^5T/K@@%N/,0[K>WE )@@G@@@F9@@@/,0[KM/K@@.F@F'@@@C/@@@[G@@^5?[@@^5?C/)@@[[@)^+- @@^+@G@@@@WH )@@G@@C@@^*>H@@^=5(@@@@G/K@@;MC/@@@[C@)^**G/)__,*@@@@I @@@@GC/)@@[C[@^**G.@__4WI )@@G@@*@@@@K @@@@I)@@@@IC/)@@[C[@^**G.@__6*@@@@K @@@@I)@)@@HC/@@@[(@@^5- @@@@GWJ )@@G@@;^)@@=+@)@@G/)0@/!/,0[MO@G^@@@C/@@@[G@@^+8[@@^+8C/)@@[C[@^**G.@__+(@@@@KWK )@@G@@ @@@@IC.@@@[C[)^**G.)__7(@@@@M @@@@K+@)@@K/=0@+B(@@^5-/K@@.AC@)^5*[@)^5&WL )@@G@@C.@@@[[[@^5*/,0[MO@GG@@@C@@^5&[@@^5*C@@^**G/@__+(@@@@G/K@@9M/K@@;MC@@^**WM )@@G@@G/@__7*@@@@G/K@@?FC@@^>P[@@^=AC@)^=8[@)^=B/,0@LA@@@^+8@@@^=A@@@^=6@@@^=9WN )@@G@@@GP@@@/,0@SO@@@^=A@@@^=;@GQ@@@/K@@?F(@@^+-/K@@+B/,0[K>@GU@@@C/@@@A[@@^5+WO )@@G@@C/)@@[G@)^5?[@)^5?C.@@@[G[@^+>[[@^+> @@^+<(@@^+-/K@@+B/,0[]N@@@^<\@G-@@@WP )@@G@@C/@@@[[@@^+)/K@@+B(@@^+-/K@@+BC/@@@[[@@^!^C@)^+=[@)^5=/,0@J6@@@^=X@@@^$OWQ )@@G@@@@@^5=@G*@@@C/@@@A[@@^5+/K@@.:C@)^$O+@)^>Q[@0^$O/,0@OU@G?@@@/K@@+BC@)^$OWR )@@G@@+@)^>R[@0^$O/,0@O<@G\@@@/K@@+B/,0@NQ/K@@"0@G1@@@/K@@+BC@@^=3[@@^5, @@^5\WS )@@G@@/K@@+BC/@@@G[@@^5+C@)^+>[@)^=3(@@^=3/K@@:,C@@^5?H@@^=3*@@@@G/K@@"=C/@@@[WT )@@G@@H@@^+<(@@@@G/K@@"(/K@@:VC@@^5?H@@^=3/C@@"(*@@@@G/K@@"?/,0[J8/K@@%N@H[@@@WU )@@G@@C@@^5?H@@^=3]@@^=3/K@@%7C/@@@[[@@^5%C/@@@[(@@^5V @@@@GC/)@@[C[@^5+G.@5?6WV )@@G@@*@@@@K @@@@I)@@@@I/)K@""/,0@G7@HA@@@C/@@@[C@)^5+H@)^>S(@@@@I @@@@GC/)@@[WW )@@G@@*@@^+> @@@@I+@@@@I/)K@_E/,0@G7@HC@@@/,0[J8/K@@%N@HD@@@/,0@S'@@@^5P@@@^<=WX )@@G@@@@@^<&@HE@@@/,0[KM/K@@_Y@HF@@@/,0@S'@@@^5P@@@^<\@@@^++@HG@@@C/@@@[G@@^5?WY )@@G@@[@@^5?/K@@_M/,0@TY@@@^5P@@@^=6@HJ@@@/,0@LA@@@^5?@@@^5X@@@^=6@@@^>T@HK@@@WZ )@@G@@/,0@GT@HL@@@/,0@K @@@^>UC/@@]^[@@^!#C/)@@[C[@^5+G.@__4*@@@@K @@@@IC.@@@[XA )@@G@@C>)^5+G.)__4*@@@@M @@@@K)@)@@K/=0[@HC@)^+?T/)@@A[@)^!#C@@^5+G/@__9(@@@@GXB )@@G@@/K@[@] @@^++R@K^++O@K^&EC/@@@QH@@^++[@@^&FN8L@@@^@K^&G/,0@J0@@JO&G@@@^&FXC )@@G@@@HX^>X @@^1JC/@@@[H@@^=3C@)@@GH/)___1@@@@ID/@@@@]@@^1M @@^1NC@)^!#H@)^=3XD )@@G@@/C)[@V*@@@@I/K@[[2/,0@P @@@^$O@@@^5=@H<^>X[@@^*+H@@^!^/C@[@=*@@@@G/K@[[8XE )@@G@@D@@^!^G@@^*+C#)^!^[@@@[J[#)^5&C/@@@[G@@^1M[@@^1M[@@^1N/,0@L4@@@^$O@@@^5&XF )@@G@@@H:^>X[@@^*KC/)@@[C.@@@ H[@^+,(@@@@K @@@@IC.@@@[H@@^+,*@@@@G @@@@K+@)@@KXG )@@G@@/=0[[JC/@@@[C@)^+\H@)^*K*@@@@I @@@@GC/)@@[C[@^5+G.@__9*@@@@K @@@@I+@@@@IXH )@@G@@/=K[[&/,0@M[@@@^*K@@JO&E@@@^1N@H0^>X/K@[[&C/@@@[G@@^1J[@@^1JR@K^1JC/)@@[XI )@@G@@*@[^-_ @@@@IC.@@@[G/@__5*@@@@G0@@@@G @@@@K)@)@@K/=0[[&R@K^1JC@@^1NH@[^-_XJ )@@G@@*@@@@G1@@@@G/K@[[JC@[^-_G/@__"[@@^1MC@@^1MH@@^!#*@@@@G1@@@@G/K@[[,G_)@@[XK )@@G@@8N0[@*/K@[[8C@@^5&H@@^*+(@@@@G/K@[[8(@@^5-/K@[[8/,0@SO@@@^<*@@@^>C@I@^>XXL )@@G@@C/@@@ G@@^1N;O@@@=W/@@@A[@@^1MC@)@@GG/)__(1@@@@IC/@@@QC@)@@GH@)^++0@@@@IXM )@@G@@C@@^++[@@^++C/)@@[[@)^=3N@0[]E/K@[]F@I^^>XR]0^>Y9!)^&H9\)^&JR@K^&LN#0^&MXN )@@G@@*4@O>V/K@O>V/K@@K AA0^>Y9()^&H9:)^&JA@K^&L^#0^&M @@@@JC8FK@@[@@^&E/K@@_?XO )@@G@@ @@^*I @@^*O @@^*PC?@^$O[@@^*SC/@@@ H@@^*S(@@@@G/K@[^5 @@^*U @@^**C/@@@^XP )@@G@@[@@^5&/,0@L4@@@^$O@@@^5&@IL^>-[@@^*KH@@^*S(@@@@G/K@[#]C/@@@[G@@^*O[@@^*OXQ )@@G@@/,0@M[@@@^*K@@@^$+@@@^*O@IP^>-C@@^5&H@@^*X*@@@@G1@@@@G/K@[^5C/@@@[G@@^5&XR )@@G@@[@@^5&/K@[](C@@^5&H@@^*X*@@@@G1@@@@G/K@[^5C/@@@[G@@^5&[@@^5&/,0@L4@@@^$OXS )@@G@@@@@^5&@IX^>-[@@^*KH@@^*S(@@@@G/K@[#-C@@^5&H@@^*X*@@@@G1@@@@G/K@[^5C/@@@[G@@^5&[@@^5&/K@[#EC@@^5&XU )@@G@@H@@^*X*@@@@G1@@@@G/K@[^WC/@@@[G@@^5&[@@^5&/,0@L4@@@^$O@@@^5&@I(^>-[@@^*KXV )@@G@@G/@__'(@@@@G/K@[#*C@@^*KG/@__9(@@@@G/K@[^>C@@^*KG/@__3(@@@@G/K@[^U/,0@P=XW )@@G@@/K@[^5/K@[^A@@@^$O@@@^*X@@@^5&@@@^**@@@^=7@@@^5&@@@^-C@@^*XH@@^5&XX )@@G@@/C@[^F*@@@@G/K@[^W/,0@L4@@@^$O@@@^5&@I3^>-[@@^*KC/)@@[G@)^5&[@)^5&G/@__'XY )@@G@@(@@@@G/K@[^FC@@^*KG/@__3*@@@@G/K@[^5C/@@@[[@@^*UC@@^**C@)@@GG/)__"0@@@@IXZ )@@G@@C/@@@[[@@^**N@0[^=/K@[^.@I;^>-C/@@@[[@@^*U/,0[J8/K@[^1@I.^>-C/@@@[[@@^*IYA )@@G@@G@@^+>[@@^**N@0[^0/K@[^.@J@^>-C8)@@]N@0[^4/K@[^9@J[^>-C8)@@[N@0[^8/K@[^9YB )@@G@@@J]^>-!^)^>Z/K@@K H8)@@[[^)^>ZR]0^>+*4@O>Z/K@O>Z/K@@K C8@@@#AA0^>+[^@^>ZYC )@@G@@ @@@@J/K@[]W @@O&N @@O&OC@@^&P[@@^1KD@@^1K/C@[ I*@@@@G/K@[ KC/@@]^[@@^1KYD )@@G@@/,0@P @@JO&Q@@JO&R@JH^>>[@@^! C@)@@GH@)^1K1@@@@IC@@^1K[@@^1KC@)O&S[@)^*(YE )@@G@@E@@^&TC@)@@GG/)__"0@@@@IC/@@@[G/@__"G@@^1KH@@^*(*@@@@G1@@@@G/K@[ %N@0[ (YF )@@G@@/K@[D.@JL^>>C/@@@[G@@^! [@@^&U/,0[G@@@JO&Q@@JO&R@@@^&U@@@^!A@JM^>>C/@@@[YG )@@G@@G@@^*([@@^&U/,0[G@@@JO&V@@JO&S@@@^&U@@@^*%@JN^>>(@@O&W/K@[ACC@@O&X[@@^*$YH )@@G@@G/@@@[[@@^&U/,0[G@@@JO&Y@@JO&X@@@^&U@@@^%5@JR^>>(@@^*(/K@[DAE@@^&TC@)@@GYI )@@G@@G/)__"0@@@@IC/@@@[G/@@@[[@@^*&C/@@@[H@@^*&G@@^1K/C@[AR*@@@@G/K@[D8C@@^1KYJ )@@G@@H@@^*(G/@@@]H@@^*&/C@[AY*@@@@G/K@[D8R@K^*&C/@@@[C0)^*:H@)^&Z*@@@@I @@@@GYK )@@G@@C/)@@[(@@^&) @@@@I+@)@@G/=0[A1C0@^*:H0[^! (@@@@G/K@[A1C/@@@[G@@^*&[@@^*&YL )@@G@@/K@[ARC/@@@[H@@^*&]@@^![C/)@@[H@)^*((@@@@I/K@[B%C/)@@[G@)^*&[@)^*&C.@@@[YM )@@G@@G[@^1KC.)@@[(@@^&) @@@@MC"@@@#[]@^*-C")@@[[])^*JC_@__.G#@^*(R/K@@][#@@[JYN )@@G@@[[@^&U[[)^&-A@K^*-R@)^*&A@)^&+C/@@@[C0-^*%H@)^&Z*@@@@I @@@@GC@)^&-+@)@@GYO )@@G@@/=0[BUC0[^*%R@)^&+H0]^! *@@@@G/K@[D4C/@@@[G@@^*J[@@^*JH@@^*((@@@@G/K@[B%YP )@@G@@C/@@@[G@@^*&[@@^*&H@@^&U/G@[B$*@@@@G/K@[D8O/K@@[8N0[BE/K@[D8E@@^&TC/)@@[YQ )@@G@@H@@^![(@@@@G @@@@IC/@@@[D[@^&T*@@@@K0@@@@K @@@@G+@)@@G/)0[B9N@0[B8/K@[D.YR )@@G@@@J/^>>C@@^![[@@O&NC/)@@[[@)O&O*@@O&W/K@[C]N@0[C[/K@[D.@K@^>>C/@@@[G@@^![YS )@@G@@G@@^*([@@^*>C/@@@[YU )@@G@@G@@^! H@@^*(G@@^*$[@@^*LG/@@@^;O@@@=W/@@@A[@@^1L/,0[HX@@@^!A@@@^1L@@@^*LYV )@@G@@@@@^\L@KB^>>C/@@@[*@@^&< @@@@GC/)@@[D[@^&T*@@@@K0@@@@K @@@@I)@@@@I/=K[D+YW )@@G@@C/@@@[G@@O&NG@@^*$[@@^*&C/)@@[H@)^*L]@)^! C[@^1KH[@^*(G[@^*$[[@^1K/,0[G@YX )@@G@@@@@^\L@@@^1L@@@^*L@@@^!A@KH^>>/K@[ALC@@^! G@@^*$G/@@@ ;O@@@=W/@@@A[@@^1LYY )@@G@@R@)^1LC@)^=8[@+^\K/,0@KA@@JO&Y@@@^=7@@@^\L@@@^=7@@@^*$@KL^>>C/@@@[G@@^*$YZ )@@G@@[@@^&U/,0@KA@@JO&Q@@@^=7@@@^\L@@@^&U@@@^! @KM^>>C/@@@[[@@O&O/,0@J0@@JO&=ZA )@@G@@@@JO&W@KO^>>C@@O&WC@)@@GH@)^1L1@@@@IC@@^1L[@@O&>/,0@J6@@@^\L@@JO&=@@JO&>ZB )@@G@@@KQ^>>N@0[D3/K@[D.@KR^>>C/@@@]G@@^![[@@^*&/K@[AR*@@O&N/K@[D+N@0[D//K@[D.ZC )@@G@@@KW^>>R]0^>&9!)^&&9,@^&*9,)^&%9\@^&?R@K^&,R@)^&\N#0^&0*4@O>&9()^&&9%@^&*9%)^&%9:@^&?A@K^&,A@)^&\^#0^&0 @@@@JC8FK@@[@@^&QC8FK@[ZE )@@G@@[@@^&RC8FK@][@@^&VC8FK@#[@@^&SC8FK@^[@@^&YC8FK@ [@@^&XC8FK@A[@@^&=C8FK@BZF )@@G@@[@@^&WC@VK@C[@K^&TC@VK@D[@K^&PC@VK@E[@K^&C8FK@J[@@^&O/K@[ AC/@__"G@@^&2[@@^&1C@@^&3G/@@@[R@K^&3ZH )@@G@@C@)^&4G/)__"C[@^&3G.@@@]R@)^>$Q@)^&3N#0^&1[@@^&5[@)^&6[[@^&7 @])@@8N0[F]ZI )@@G@@C/@@@[H@@^&2(@@@@G/K@[F0C/@@@[[@@^*V[@@^*YC8-@@[[^-@@@C/)__.G@)^&2R@)^&5ZJ )@@G@@R@K^&7[@)@[JR@0^*YO@0^&6C@@^*VT/@@@AG/@__9C@<@@@;)?@@@;C)@@Y[0+@@@C8[@@@ZK )@@G@@[^]@@@C/@@@[G@@^*V[@@^*VC/@@@BH@@^*V*@@@@G/K@[F&C/@@@[[@@^*VC/@@@[H@@^*VZL )@@G@@*@@@@G/K@[F!C/@@@[G@@^*Y[@@^*YO/)@@[O/K@@[8N0[FMR/0__"O@0^&3O@0^&2C/@@B_ZM )@@G@@[^#@@@N@0[F7/K@[F8@K8^>%R]0^>:R@K^&8R@)^&9R@0^&'N#0^&;*4@O>*/K@O>*/K@@K ZN )@@G@@AA0^>:A@K^&8A@)^&9A@0^&'^#0^&; @@@@JC8FK@@[@@^&4C@VK@][@K^&2C8FK@#[@@^&3ZO )@@G@@/K@[E2/,0@J0@@JO&/@@JO&.@K.^>,C/@@@[[@@^*V[@@^*YR@K^&"C^-@@@[@)^*)H@@^&_ZP )@@G@@]@@^*RC@)^$@G/)__"H/@__"C_)@@[]@@@[J[@)^$[[#)^*WC@@^*VT/@@@A[@@^$]G/@__9ZQ )@@G@@R@K^*YO@K^$[[@@^$#A@K^$^C^@^*)G/@_8@*@@@@G/K@[G\N@0[G,/K@[HQ@LA^>,/,0@P)ZR )@@G@@@@@^*)@LB^>,E@)^$][@@^$]C0@^$]R@K^$^C@L@@@;)Y@@@;G@@@A;@KO$#[@L@@@/,0@P)ZS )@@G@@@@@^*)@LC^>,[@@^$#C^@^$#[@@^*)C/@@@[G@@^*V[@@^*VC/@@@BH@@^*V*@@@@G/K@[HEZT )@@G@@C/@@@[[@@^*VC/@@@[H@@^*V*@@@@G/K@[HLC/@@@[G@@^*Y[@@^*YG_)@@[8N0[GZN@0[HPZU )@@G@@/K@[HQ@LK^>,R]0^>\9\)^$ R@K^$BN#0^$C*4@O>?/K@O>?/K@@K AA0^>\9:)^$ A@K^$BZV )@@G@@^#0^$C @@@@JC8FK@@[@@^&"C8FK@[[@@^&.C@VK@][@K^&_C8FK@#[@@^&/[@@^$@/K@[GHZW )@@G@@(@@^$D/K@[H/R@K^$FC@@^$EG/@__"R@)^$GO@)@@GC8-@@[[^+@@@R@K^$DO@K^$FR@)^$HZX )@@G@@O@)@@GC8]@@@[^[@@@/K@[I^C@@^$EG/@__"R@)^$GO@)@@GR@K^$HO@K@@GC8[@@@[^]@@@ZY )@@G@@C@@^$HH@@^$G*@@@@G/K@[IHR/K__"O@K^$EO@K^$GC/@@B_[^[@@@N@0[IJ/K@[IK@LX^>2ZZ )@@G@@R]0^>3R@K^$IR@)^$J*4@O>0/K@O>0/K@@K AA0^>3A@K^$IA@)^$J @@@@JC@VK@@[@K^$GAA )@@G@@C8FK@[[@@^$EC@VK@][@K^$HC8FK@#[@@^$FC@VK@^[@K^$D/K@[H?/,0@TY@@@^5Q@@@^=7AB )@@G@@@L-^>6C@@^+6(@@^+)/K@[I8C@@^5QAC )@@G@@[@@^5&C@)^5R[@)^5Q[@@^5R @@^5?C@@^+>[@@^+$ @@^+- @@^+)*@@^50/K@[J]N@0[J[AD )@@G@@/K@[JE@L\^>6/,0@TY@@@^5S@@@^+&@L0^>6 @@^50N@0[JD/K@[JE@L2^>6R]0^>7*4@O>4AE )@@G@@/K@O>4/K@@K AA0^>7 @@@@J/K@[I>(@@^+)/K@[J:C/@@@[(@@^5T @@@@GC/)@@[*@@^5%AF )@@G@@ @@@@I+@@@@I/)K[JZC8)@@[N@0[JY/K@[J0@L9^>'/,0[K>@L'^>'/,0[KM/K@[J:@L;^>'AG )@@G@@ @@^+'N@0[J\/K@[J4@M[^>'AH )@@G@@!^)^>8/K@@K H8)@@[[^)^>8R]0^>;*4@O>8/K@O>8/K@@K C8@@@]AA0^>;[^@^>8 @@@@JAI )@@G@@/K@[JL/,0@SX@@@^5Q@@@^<\/K@[KA@M ^>"[@@^++N@0[K /K@[KI@MA^>"C8)@@[N@0[KDAJ )@@G@@/K@[KE@MB^>"!^)^>//K@@K H8)@@[[^)^>/R]0^>_*4@O>//K@O>//K@@K C8@@@]AA0^>_AK )@@G@@[^@^>/ @@@@J/K@[J.(@@^+-/K@[KY/,0@S'@@@^5R@@@^<\@@@^++@MG^&]N@0[K)/K@[K-AL )@@G@@@MH^&]R]0^&#*4@O&@/K@O&@/K@@K AA0^&# @@@@J/K@[KR*@@^+-/K@[K!N@0[K?/K@[MJAM )@@G@@@MM^&A*@@^5(/K@[LU(@@^5*/K@[K7/,0@LA@@@^5?@@@^<,@@@^="@@@^=7@MQ^&AC/@@@[AN )@@G@@C@)^5+G/)_,+*@@@@I @@@@GR/K@@@P@K^5*[@@^$KA@K^$LC/@@@[C@)^5+G/)_4+*@@@@IAO )@@G@@ @@@@G)@@^$K/)K[LDC/@@@D[4@^<,C@@^+:C@)@@GH@)^++1@@@@IC@@^++G@@^5*[@@^$KAP )@@G@@R@K^$LN8L^<\^@K^$M/,0@SO@@JO$M@@@^$K@MT^&AN@0[LT/K@[MJ@MU^&A/,0@J0@@@^=AAQ )@@G@@@@@^=.@MV^&A(@@^5*/K@[L&/,0@LA@@@^5?@@@^= @@@^="@@@^=7@MX^&AC@@^+:C@)@@GAR )@@G@@H@)^++1@@@@IC@@^++T/@@@A[@@^$L/,0@KC@@@^<\@@@^=7@@@^=A@@@^=7@@@^$L@MY^&AAS )@@G@@R/K@@@P@K^5*A@K^$LC/@@@[C@)^5+G/)_4+*@@@@I @@@@GC/)@@[C[@^5+G.@_,+*@@@@KAT )@@G@@ @@@@I)@@@@I/)K[M C/@@@D[4@^= R@K^$LN8L^=A^@K^$K/,0@SO@@JO$K@@@^=.@M-^&AAU )@@G@@N@0[MI/K@[MJ@M+^&AR]0^&BR@K^$N*4@O&^/K@O&^/K@@K AA0^&BA@K^$N @@@@J/K@[K*AV )@@G@@R#W@@DR#?@@CR#.)@@A#/@@EA#W@@D @@@[] @@@[#;C0@@Y%80@@_/K@[M>P;K@@[A#W@@DAW )@@G@@/KF@@[R#/@@E;K0@@S/C0[M(R3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@LAX )@@G@@/D@[OJN@K@@JM#!)@@A#W@@D*@@@[]/K@[OBR#/@@E;K0@@S/C0[M'R3/@@EPB/@@B/G0[NRAY )@@G@@C G@@DG[@@@J[ G@@DC W@@AGDW@@^H[@@@L/H@[NRP#0@@K0@G@@#'=@@@AC[W@@ GDW@@BAZ )@@G@@[[W@@ C5W@@#/[K[NJ%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DBA )@@G@@'=@@@[R#0@@K/K@[M/R#W@@DC5X@@@%9K@@(/KF@@]0@G@@E/K@[NZR;0@Z_/K@[N)R;0@@_BB )@@G@@C[W@@E;LK@@S/DK[N=C1W@@E![K@@J/K@[OG! W@@B/K@[OGC[@@@LG1H@@@?@0@@K/K@[N6BC )@@G@@? G@@B/K@[N4C[K@@KH W@@BH1X@@@D@0@@LC G@@B/K@[N.R3.@@@/K@[N.!^/@@B/K@[N,BD )@@G@@C[K@@KH[K@@JH1X@@@C[@@@JD@0@@L[1G@@E0@G@@E/K@[O];D@@@A[5G@@EN0!@@@N@0@@JBE )@@G@@O;K@@[A#W@@D/K@[M:R#0@[]P#0@[#/@0[NR/G0[NR/K@[M/R3.@@@O;0@@[/K@[M/P#0@@KBF )@@G@@N@K@@JM#!)@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K[OY%9K@@ /KF@@@BG )@@G@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@[M: @@@@HOBW@@ABH )@@G@@ABW@@DR#W@@AABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K[O6%9K@@ /KF@@@BI )@@G@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ BJ )@@G@@/KF@@@R#W@@DR#?@@EA#!)@@;K)@@S/C)[PBR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BBK )@@G@@C W@@AGDW@@^H[@@@L/D@[PON^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@BL )@@G@@[ G@@B0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@ABM )@@G@@[ W@@D'=@@@[R#W@@D/K@[PERBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^BN )@@G@@/KF@@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___BO )@@G@@AF!@@@PBW@@AO;K@@[;GK@@=W8K@@W/@)[Q#O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#BP )@@G@@A#W@@ C5W@@#/ V@@@/KF@@[A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)[S$R^1@@@&80@@[BQ )@@G@@C8@[S*M@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[BR )@@G@@Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@BS )@@G@@[0<@@@[?<@@@[*<@@@[=<@@@/?)[Q1[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')]-Q:/KF@@@BT )@@G@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@[Q8BU )@@G@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@[RGC80@@F;^@@[]+8K@@_%8)@@ :8)@@@BV )@@G@@/K@[RM')]-Q:8#0[RG/KF@@@&"0__"/K@[RR&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[BW )@@G@@8#0[RY/KF@@@')G-R20@@@@F%8)@@@')]-Q:/K@[RWC?[@@[C^L@@[/K@[R*;G@@@M;CK@@MBX )@@G@@&;@@@[&;K@@[')G-R2:0-@@@/K@[R\')]-Q:/K@[R%[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@BY )@@G@@C?!@@@C*!@@@C=!@@@/\@[R8C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#/@@[S^G80@@[BZ )@@G@@;G@@@#/^@[R_C8)@@0')]-Q:C8)@@@;=K@@#G8)@@0')]-Q:8#0[S^/KF@@@C8.@@@T8K@@#CA )@@G@@;GH@@@H80@@[/K@[S^C8K@@@N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK[SSCB )@@G@@/^@[SM/C@[SX;?)@@AG80@@-8KK[SXC@K@@IC8)@@ /K@[S-')]-Q:8KK[S)C@)@@J')]-Q:CC )@@G@@;GK@@A/^)[S@@[WN/K@[S/>@@[WO/KF@@[C8H@@@?8I@@@/K@[S,C@@[WMC8K@@#/KF@@@CE )@@G@@C@@[WBC8K@@[/KF@@@C@@[WHC8K@@]/KF@@@L8@@@[C@)^51G8)@@[*@I@@@?CY@@@/K@[TECF )@@G@@G),@@@/K@[T^%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K[WP/KF@@[CG )@@G@@N8W@@@C^@^51G8@@@[C9K@@[ @@^5_N8)@@@(@G@@@/K@[T_(4G@@@/K@[T\%1W@@@/K@[T_CH )@@G@@C?W@@@!8K@@A/K@[T2%(K^5_ @@^5"[(K^5_9??@@[C-G@@@:9@@@[C@0[WP')H[U\H9@@@[CI )@@G@@T9@@@AG>G@@@')H[U7G)G@@@G8@@@[/K@[TU:9K@@[/K@[T7C*?@@@:8)@@.N8)@@[%[K@[[CJ )@@G@@/K@[T\/K@[T&%@)[WP[5@^5":@)[WP[-K^5"/K@[T\(@@@[]:(K^5_/K@[U^[(K^5_ @@^5"CK )@@G@@:[K@[[/K@[UGG9K@@[*@G@@@/K@[TT @@^5" @@^5_/KF@@@:(K^5_ *@^5_9?K^5"98V@@@CL )@@G@@C8@@@-[=@^5_(?@^5_/KF@@[C@@^6FD8)@@@C80@@@C!@^5_8^@[UZ1@@@@I!8)@[@C80@@ECM )@@G@@[))^5_[=0^5_/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0/K@[U%(@@@@JC80@[@H8K@@0T8)@@ECN )@@G@@G8!@@@/K@[US/^0[UV%8K@@+:8K@@-C8.@@@/@0[UV/K@[US9*)^6@9*)^6][@)^6^[@)^6 CO )@@G@@[@)^6A9*)^6B9*)^6D[@)^6F/K@[T'[1@^5"[!@^5"[(@^5"[>@^5"[5@^5_[1@^5_[!@^5_CP )@@G@@C80@@F+8K@@_:8)@@ ;^@@@A8#0[V[9*@^53C@@[WQC@K[WRC8)@@BC@0[WP[@"^568#)[VECQ )@@G@@N4K^5"9!@^6@/\)[V8C9K@@*(4@^5"*)@^5"')H)@@N0K^5"9!@^6]*@@@[[/K@[VTC[@[WSCR )@@G@@N8K@@^/\)[V8N?K^5"(@@@[[/K@[V@@@A')H)@@8KK[V6/KI@@@[5W@@@[1W@@@CU )@@G@@[!W@@@[(W@@@[>W@@@/\0[W@[-W)@@Q;K[V'/KJ@@@PROCESSOR CALL ERROR @[^[W#CV )@@G@@ABNORMAL RETURN FROM READ$ @[ [WCTOO MANY SPECIFICATIONS @[^[WI]@@@@@CW )@@G@@[@@@@@ @@[^56@@[[V'TPF$ @@G^52@@@@@@@@@@@@@@@@H=@B_@C@^6F^@@[WT^6FCX )@@G@@@@@^@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@AL^@@@@7^)1@[3^-.@@E^= @[0^=W@@'^$O@@G^,O@@+^5O@@@___@@@___@@@___@@@___DA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DB )@@G@@@@@___@@@___@@@___@@@___&;@@][Q;@^@^'=@@@F'=@@@DR;@EDN'=@@[&A#@^-[R;K@@[DC )@@G@@=9K@K@A#K^5!=[K^^%A#K^5>=[K^^!A#K^5$>9K@@]=9K@]@A#K^5(>9K@@]=[K^^?A#K^5*DD )@@G@@>[K^^:A#K^5-=[K^^,A#K^5&R;@^[#R#K^^\'=@@@49?/@@@9*0^,OR;@^,O'=@@[ /@)^@=DE )@@G@@ @@^[AD8)@@[OF)^[B#C)^[B9/0^[C(C@^[B/K@^@(R#@^[B'=@@[.R#@^[ '=@@['R#@^@9DF )@@G@@'=@@@IR#@^[]'=@@@I @@@@G'=@@[['=@@@) 7.1.0REP RETURNED TO INITIAL LINK PDG )@@G@@OINT. @]A^@3EDITOR CODE NOT AVAILABLE FOR FURTHER EXECUTION.@[C^@'@@@@@@DH )@@G@@@@@@@@EDN$ CONFR$@@]^[#LIB$ RBF@@@AB@^[O @@^@@/KF@@[R;K^^XR;@@@ DI )@@G@@RA0^[OP'0@@# @@^50/K@@T3/K@^]1@@@@@@@@@@@@9*@^#XRB@^[PO;@@@[AB@^[PR\@^[PDJ )@@G@@R7K^[P%8@@@C/K@^[!!8K@@^R;K@@#R#H^#Q'=@@@I%8K@@[/K@^[*R;@^#U'=@@@C/K@^]SDK )@@G@@(@@^5%%8K@@]/K@^]SA#K^5T/K@^]SR3@^[P:8K@@[/K@^[9%8K@@^/K@^]W!8@@@)!8@@@>DL )@@G@@/K@^]W*@@^5%/K@^]WD8@@@@/K@^]T%8@@@ :8@@@M/K@^[./K@^]^RBK^[Q%8K^#,/K@^]^DM )@@G@@R#@^#E'=@@@IR;H@@@/K@@S3;G@@@#;*@@@#;?@@@#O;@@00AV@^]8RB@^[QR#W@@@A#K^]9DN )@@G@@R#@^]''=@@@I:@K^^Y/K@^[I*@@^5:/K@^]1R#@^5QO;@@@,A3@^#^R#@^# '=@@@I/K@^]1DO )@@G@@R#@^#XR#K^#Y C@^[P/K@O[P;*K@@#;G@@@#;*@@@#;?@@@#O;@@00AV@^]";?@@@Y;*@@@#DP )@@G@@;?@@@#O;@@00AR@^]/R#@^]_'=@@@IR7@^[P(@@^5%%8@@@]/K@^]KR3@^[P!8@@@#/K@O[ODQ )@@G@@/K@^]K @@@@G'=@@[[(@@^5:/K@@G7R8K@ZT/K@@G8I/O ERR $$: FILE$$@[#^]7ERR: TDR )@@G@@YPE $$, CODE $$ @[^^];LAST INPUT FILE WAS EDN$$$ @[ ^#@NO INPUT EOFDS )@@G@@ SENTINEL. @[^^#ANYU EDN ACTIVE. OPERATOR INTRPT. INTRPT RECEIVED. DT )@@G@@MAX TIME INTRPT. @[#^#I@[#^#L@[#^#O@@@@@@@@J^#F@@@@@@@@@@@@@@@@@@,A ,A DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@______@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@_____"SI$ @@@@@@@K@@@@@B@@@@@@@@@@^^(^F(@@K@@Q@@[@@@@@[@@@DW )@@G@@@@@@@@_____"SO$ @@@@@@@C@@@@@B@@@@@@@@@@^$O^,O@@K@@Q@@[@@@@@[@@@DX )@@G@@@@@@@@_____"EDN$$1 @@@@@@@C@@@@@B@@@@@@@@@@^M(^T(@@K@@Q@@[@@@@@[@@@DY )@@G@@@@@@@@_____"EDN$$2 @@@@@@@C@@@@@B@@@@@@@@@@^^(^F(@@K@@Q@@[@@@@@[@@@DZ )@@G@@@@@@@@_____"SPLIT$ @@@@@@@C@@@@@B@@@@@@@@@@^$O^,O@@K@@Q@@[@@@@@[@@@EA )@@G@@@@@@@@E@@^[P@@@)@@@[@@@@@@@^@@@]@@@@@@K@@@@@]@[CSPECIFICATION FIELD ERROEB )@@G@@R. NOT FOUND.& IS EMPTY.& LATEST CYCLE ONLY RETAINED. @ASG,T EDN$$EC )@@G@@1.,F///9999 . @ASG,T EDN$$2.,F///9999 . @USE SO$.,SI$. . INPUT ED )@@G@@IS NOT A PROGRAM FILE. OUTPUT IS NOT A PROGRAM FILE. OUTPUT FILE NEEDS EE )@@G@@ELT NAME. INPUT FILE NEEDS ELT NAME. ERROR ASSIGNING SCRATCH FILES.EF )@@G@@SPLIT$ IS ROLLED OUT. SPLIT$ IS NOT AVAILABLE STATUS--HERE. INPUT EG )@@G@@NOT MASS STORAGE. OUTPUT NOT MASS STORAGE.OUTPUT FILE NEEDS WRITE KEY. EH )@@G@@WARNING! OUTPUT FILE ASSIGNED.INPUT FILE NEEDS READ KEY. INPUT FILE IEI )@@G@@S WRITE-ONLY. . FAC REJECT & @@@@@@@@TPF$REPLY:@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^$O@@@@@@@@@@@@@@@^)(EK )@@G@@@@2^)2@@@@@@@@@@@@@@@@@@@&I^,O@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@TYPE: EL )@@G@@@@@@@[@@@@@@@@@@@@@@@@@@@@@^#!@@@^#9@@@^^ @@@^^L@@@^^XSI$ @@@@@@EM )@@G@@@K@@@@@@[^T(@@@@@@@ASG,A SI$. . @ASG,A SO$. . @CAT,P SPLIT$EN )@@G@@$$$$$$ EDN IDLE. @[#^-=@@@@@@@@@@@@PFP @@@@@F@@@@@P@@@@@>@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@123456789.123456789.123456789.123456789.12EP )@@G@@3456789.123456789.123456789.123456789.123456789.123456789.123456789.1234EQ )@@G@@56789.123456789.12@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@[@@@@]^@@@@@I@@@@@I@@@@@.@@@@@;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@EDIT @@@@@@@@@@@@INPUT ______EDIT ______@@@@@.______COMMAND ERR.ET )@@G@@______SYNTAX ERR. ______@@@@@.______TEXT INITIALIZED. ______IMAGE TRUNCAEU )@@G@@TED. ______PATTERN NOT FOUND.______IMAGE TRUNCATED. ______READY ______EV )@@G@@AUTO SAVE. ______*SDFF*______@@@@*[______AUTO RECOVERY. ______*SDFF*EW )@@G@@______@@@@*[______IMAGE TRUNCATED. ______@@@@@ ______ : :EX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@> > > EY )@@G@@ EZ )@@G@@ @@@@@@@@@@@@@@@@@[@@@@@@FA )@@G@@@@@@@[ @@@@@BLINES:@@@@@]@@@@:_@@@@@Q@@@@@ @@@@@EINPUT:INPUT @@@@*_FB )@@G@@EDIT EDIT: @@@@@A@@SAVE@@INIT@@@@@#SCAN: EOF: CHARS:FAC STATUS @@@@@GFC )@@G@@@@@@@^@@@SPD@@SPL!ADDED:@@AOPT@@[@@[TALLY:@@@@__@@@@@_@@FILE@@@@@L FD )@@G@@@@F@@]@@@@@@TABMOV@I^C];@@F@@@@@@@@@CSCAN @J]C];@@F@@L@@@@@@SCANR @KWC];FE )@@G@@@@[@@@@@F@@ @@@@@@UNPACK@K8C];@@F@@ @@@@@@REPACK@LKC];@@F@@A@@@@@@LINKUPFF )@@G@@@LXC];@@F@@[@@@@@@EOF @L2C];@@F@@@@@@@@@TOP @M[C];@@F@@@@@@@@@GETLINFG )@@G@@@MBC];@@F@@[@@@@@@PUTLIN@MHC];@@F@@[@@@@@@WRITER@M+C];@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@ FI )@@G@@ FJ )@@G@@ FK )@@G@@ FL )@@G@@ @@@@@@FM )@@G@@@@@@@@CONFR$ @@@@@@@@A@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@[FN )@@G@@@@@@@]@@@@@#@@@@@^@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@END EDN. FILED FO )@@G@@@@@@@@@@@ADD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@FP )@@G@@@@@@@@_____"@@@@@@@@@@@@@@@@@@@USE @@@@@@@@@@@@, @@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@4^@'8@C@#__^@@@'8^H$@@@@C@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@29@C@@@@___@@@___@@@___@@@___@@@___@@@___@@@___FU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___FV )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___/K@@GGIDENT: _ ***FW )@@G@@ CLIST$ STATEMENT IGNORED - RETYPE *** @#C@C#@ASG,AZE CONFR$*CONFERENFX )@@G@@CE$/ @@ @CG@FREE CONFR$*CONFERENCE$@@^@CMEND CONFERENCE @[#@CRNO DESFY )@@G@@TINATION SPECIFIED@[^@CVMEMORANDA:_ @]]@C)NYU CONFERENCE ACTIVE INTERRFZ )@@G@@UPT RECEIVED@[#@C$CONFERENCE SYSTEM ERROR @#^@C:SORRY - IDENT ALREADY ACGA )@@G@@TIVE. @] @C0CONFERENCE SYSTEM NOT AVAILABLE - SORRY @#B@C6@@@@@@@@@@@@GB )@@G@@@@@@@@@\@@@@@@@@@@@@@@@@/K@@FLCTNGCY8@]___@@@@@@/S@@@@[-G)@@Q;K@@@/KEK@EGC )@@G@@/S@@@@C-I)@@Q;0@@@/KEK@I@\@@@@CTNGCY TYPE: @@ CODE: @@ REENTRY ADDR: GD )@@G@@@@@@@@CONFERENCE$ @@@@@@@K@@@@@@]___@@@@@@CONFERENCE$ @@@@@@@K@@@@@@B___GE )@@G@@@@@@@@CONFERENCE$ @@@@@@@K@@@@@@W___@@@@@@CONFERENCE$ @@@@@@@@@@@@@@B___GF )@@G@@@@@@@@CONFERENCE$ @@@@@@@@@@@@@@W___@@@@@@CONFERENCE$ @@@@@@@C@@@@@@W___GG )@@G@@@@@@@@CONFERENCE$ @@@@@@@@@@@@@[0___@@@@@^$$$$$$ INVALID IDENT NYU COGH )@@G@@NFERENCE - $$/$$-$$:$$ (VERS. &06C)-& @@@@@@@@S@C<@@@@@@OPERATOR INTGI )@@G@@ERRUPT. CON$FR @@@@@@@K@@@@@[0@@@@@@@@@______@@^@@T@@[___GJ )@@G@@@@[@@@@@@@@@CON$FR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CON$FRGK )@@G@@ @@@@@@@@[@@@ @@@@@@@@@@@@@@@@@@@@@@@@$$$$$$GL )@@G@@ IN CONFERENCE @[]@C[@J2___@@@@@@@@@___@@@___@&T___@@@@@@[[@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@[T___@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@^0@@@@@FREE,A CONGN )@@G@@$FR . A#E@@DR;@@@[R#'@@^'=@@[\R;J@@@!8@@8J!@@@'8/K@@FUN@0@[^R#@@@J;C@@@SGO )@@G@@%8@@^):8@@^+/K@@GD&;@@@[Q;E@@^'=@@[[R#@@C\/,0@Q@R#@@@J;C@@@M+8@@@_R#)@R+GP )@@G@@:8K@@ER#)@R<:8K@@[R#)@R=:8K@@]R#)@R>A#%@@NR;)@@#R#@@@J;C@@@S;G@@@#;CK@@#GQ )@@G@@8#)@F2;?@@@GO;@@00AVE@@P;?@@@GO;@@00AZE@@RR;J@@@R;)@@ ;G@@@#;CK@@#8#)@F.GR )@@G@@;?@@@MO;@000;?@@@MO;@000A#E@@UR;E@@N&;@@[C/,0@Q@/K@@M3D/@@@@R#U@@^/KH@@[GS )@@G@@R'!@@@R;E@@@?8@@'9/K@@KP;CK@@M?8K@HI/K@@KKN8K@]JR#@@R&R;U@@^&;K@@[M#W)@@GT )@@G@@R;@@R$N8K@E;M#W)@@R;E@@^ABE@@CR;E@CNABE@@ZR;E@DOABE@@>R;E@DWABE@@:R;E@F*GU )@@G@@ABE@@1R;E@F\ABE@@7R;E@CYABE@@.R;E@A9K@^@/K@@H0R;E@["*^E@H (CE@H /,0@QW/K@@H3HA )@@G@@R;E@C+R#K@R%'=@@@4/K@@H3R;E@C+R#K@R:'=@@@4R;E@@V'=@@@#R#U@CN!8K@@9R;K@@8HB )@@G@@A#U@CN;*K@@NQ;U@D8A#W@@^R;K@@CA#W@@ '=@@@#*^E@H /K@@IOR;U@D6&;K@@]R#E@C+HC )@@G@@N@U@CN2@H)@]/K@@P6A#E@CYA#E@[9'=@@@?A#E@CZ&;K@@@P;U@D8A#U@CP;CK@@[R;X@@KHD )@@G@@A#U@@&R;E@@-'=@@@#/K@@IXR#@@R?A@@[A#?@@ '=@@@#HZ )@@G@@[]E@F1R;)@@CAZ?@@#'=@@@[/K@@MZ[] @@@ @ @@][] @@[R;E@@!R;K@@CAZW@@#R#P@@]IA )@@G@@O;K@@[A#P@@]'=@@@[/KD@@@'=@@@B/K@@LYR#@@CF'=@@@I%8@@@"/K@@M2R#E@CNO;@@@JIB )@@G@@A#E@CQ/K@@LYA#E@GP*@E@CT/K@@P_D8@@@[R#K@[#;)H@@@+@E@HGR#@@@HA#E@CT 4E@DVIC )@@G@@*@@@@G'=@@[WR#E@@['=@@[$/K@@P_;/E@DVR;E@@^&;@C#['=@@[[(@E@DS/K@@NVR#E@@@ID )@@G@@=8@]@@/K@@NVR;E@@-R;K@@K0@G@@#'=@@@AAZW@@#'=@@@#R#U@DSD;0@@[ @@@@U/K@@N3IE )@@G@@R#U@DY/^K@N3/#)@NUR#@@R\/,0@Q@/K@@NV/,K@)> 4E@DVC;0@@[R#0@R:*@E@CS/K@@P*IF )@@G@@;/E@DV @E@HHR;E@@-0@G@@#'=@@@AR;K@@PAZW@@#'=@@@#(@E@DP/K@@PC/@@@(/,0@\>R7E@CWR;K@@]/,0@1TC/@@@//,0@\>R3E@CWIK )@@G@@R;K@@]/,0@1TC/@@@-/,0@\>RBE@CW;G@@@=W8@@8KR;K@@]/,0@1TC/@@@:/,0@\>RBE@CWIL )@@G@@;G@@@=W8@@8K @@@@GW8@@@/R;K@@]/,0@1TC/@@@)/,0@\>/,0@\4;G@@@=O;K@@ W8@@@AIM )@@G@@&;G@]@Q;E@C'/,0@Q@/,0@\N/KD@@@R#'@CX @E@HHR/,0@\NR#G@@@(@E@]N/K@@YZR#U@]N&;H@[@/,0@Q@/K@@YZKD )@@G@@C@^@@@/,0@\9/,0@\4!8@@[@/K@@X]C/@@@,/,0@\>C/@@@ /,0@\>/K@@W=O;@@@ ;O@@@=KE )@@G@@W8@@@A&;G@[@Q;E@C'/,0@Q@C/E@]#/,0@,//K@@W=*^E@H /K@@?7/,0@K7P;K@@EA#U@DNKF )@@G@@ @@@[ /,0@V#/K@@YPR9E@D6&9@@@]N@U@CN2@^)@]/K@@?\/,K@XXR#E@AY:8@@@,/K@@XKKG )@@G@@/K@@YZC/E@]#/,0@,/C@^@@@/,0@\9C/@@@B/,0@\*R#U@DN!@O@@[/K@@X(9?@@,+/,0@\;KH )@@G@@/K@@YH*@^@@[/K@@X3*@@@[ /K@@YHR#E@AX:@E@[./KD@@@9?@@,=/,0@\;/K@@YHC/@@@*KI )@@G@@/,0@\>R3^@@[R;K@@]/,0@1TC/@@@//,0@\>R\^@@[R;K@@]/,0@1TC/@@@-/,0@\>RB^@@[KJ )@@G@@;G@@@=W8@@8KR;K@@]/,0@1TC/@@@:/,0@\>RB^@@[;G@@@=W8@@8K @@@@GW8@@@/R;K@@]KK )@@G@@/,0@1T/,0@\4O;@@@ ;O@@@=W8@@@A&;G@[@Q;E@C'/,0@Q@/KD@@@R#E@AY:8@@@*N9K@@[KL )@@G@@R9E@D6&9@@@]N[E@CN/K@@YY/S^)@@/,K@XX8L@@YW 4E@DV CE@CS @E@HH/K@@LY @@@@VKM )@@G@@/,0@V#/K@@Y$/K@@Y,R#E@AY:8@@@+C;0@@[:8@@@-D;0@@[/#0@ZM/K@@Y0 @E@GW/K@@Y2KN )@@G@@/,0@V#/K@@YZN@U@CNR;U@D6&;K@@]2@H)@]/K@@)@P;U@D8R;H@@@;C@@@[O;@@@KR;U@GVKO )@@G@@&;K@@]N@U@GW2@H)@]/K@@ZE/F0@Y0K8K@@]R#@@[[;*@@@[A#@@[[M#Y)@@R#U@GWP;K@@[KP )@@G@@A#U@GW/K@@Y0/J0@Y0R#%@GW!8)@@O/K@@Z.A#H@@]O;)@@[A#%@GW/K@@Y0:8@@@ /K@@ZSKQ )@@G@@%8@@@*/K@@?5 @E@GW/K@@YZR#@@,*/,0@Q@(@E@GW/K@@YZN[E@GWR9E@GX&9@@@]8L@@Z)KR )@@G@@C/E@]#/,0@,/R#^)@@P;@@@K;*@@@[O;E@D8C@G@@@/,0@\9/,0@\4!8@@[@/K@@Z4C/@@@,KS )@@G@@/,0@\>C/@@@ /,0@\>8L@@Z+C/@__./,0@\,C/@@@ /,0@\>/,0@\4O;@@@ ;O@@@=W8@@@AKT )@@G@@&;G@[@Q;E@C'/,0@Q@8L@@Z)/K@@YZR#@@,:/,0@Q@/K@@YZA#E@[ R;E@[ &;@@[^/,0@Q@KU )@@G@@/K@@Y0R;E@C+/,0@TJR9U@F(R9E@GX&9@@@]N[E@GW/,0@![8L@@)I/K@@)L/,0@!IA#O)@[KV )@@G@@/K@@)G/,0@!"Q9E@GXN[E@GW8L@@)Q/K@@)YR;E@@!R#O@@@C]^)@[0@G@@#'=@@@AA#W@@ KW )@@G@@/,K@M^/K@@)O0@E@@0'=@@@A/K@@YZ*^E@H /K@@?7/,K@)>/K@@YZR;E@@-0@G@@#'=@@@AKX )@@G@@R;K@@PAZW@@#'=@@@#C]E@DS/]@@-@ @E@DS @E@DT @E@DU0@E@@%'=@@@A/,0@![R;E@@$KY )@@G@@[]G@@ '=@@@#R#@@@OC]E@DY/,0@!:/A@@)3R;E@@-R;K@@CAZW@@#'=@@@[/,0@!"/KD@@@KZ )@@G@@R;K@@QAZW@@#'=@@@[/KD@@@R9U@F?/,0@V#/K@@-Y/,0@UJ/K@@?\&;K@@@P;U@D8;CK@@[LA )@@G@@R;X@@KA#U@DN/,0@-*R;E@C+/,0@TJRFE@GPAFE@C-R#U@DNR;E@@!0@G@@#'=@@@AA#W@@ LB )@@G@@/,0@![/,0@!IC]@@@H/,0@!"/,K@M^/K@@YZ/,0@-*R;E@C+/,0@TJRFE@GPAFE@C-R#U@CQLC )@@G@@/^K@-O(@E@GW/K@@?3/K@@)C @E@GPR#E@AY:8@@@,/KF@@@%8@@@*/K@@?5A]0@[A/,0@V4LD )@@G@@/K@@?5A3E@GP/,0@V4/K@@?5A\E@GPR#E@AY%8@@@,/K@@?5R]0@[A/KF@@@C;)@@[/K@@-.LE )@@G@@D;)@@[R;E@]K'=@@@JR;E@C+&#E@AVR;U@]YR;%@]N/,0@4./K@@<6C/E@]#/,0@,/C8@@,?LF )@@G@@C8K@@ /,0@0A9?E@[=/,0@\;C/@@@,/,0@\>R;%@]ZR;@[[[/,0@7_/K@@+QR;I@@[/,0@0ALG )@@G@@C/@@@*/,0@\>R;%@]ZR;@[[]/,0@7_/K@@+XR;I@@[/,0@0A/K@@+ZC@@@,!/,0@\9R;%@]ZLH )@@G@@R;@[[#/,0@7_/K@@+%N@Y@@[C/@@@(/,0@\>C@@@[[/,0@\9C/@@@)/,0@\>N8K@@[R;%@]ZLI )@@G@@R;@[[^/,0@7_/K@@+69*U@]NC/@@@//,0@\>9?U@]NR;I@@[/,0@0A @@@[[R;%@]ZR;@[[ LJ )@@G@@/,0@7_/K@@<[9*U@]NC/@@@//,0@\>8KK@+;9?U@]NR;I@@[/,0@0A/,0@\4O;@@@ ;O@@@=LK )@@G@@W8@@@AA#E@]N/,0@\NR#G@@@&#E@]N'=@@@J/G@@?5R;E@[='=@@[GR;K@@ *4E@[%/K@@T9!I@@[?8K@@BC[U@[.9(E@[\R;@[[B/,0@7_LN )@@G@@/K@@<%/K@@UA#E@]NR3E@]N!8@@@[!8@@@#/K@@=LC/E@]#/,0@,/C/@@@]/,0@\,RBE@]NLP )@@G@@R;K@@]/,0@1TC8@@S%/,0@0QC?E@]N/,0@\>/,0@\4O;@@@ ;O@@@=W8@@@AO;@@[@A#E@]NLQ )@@G@@/,0@\NR;E@C'&#E@]N/,0@Q@/K@@YZR#@@,0/,0@Q@/K@@YZA#E@]N/,K@=,C8@@SU/,0@0QLR )@@G@@C@E@]NC8K@@G/,0@0'/K@@=9?E@[&/,0@\;/KD@@@A#%@]N/,K@=,R#%@]N:8)@@[/K@@> LU )@@G@@:8)@@]/K@@>N:8)@@#/K@@>QC8@@S /,0@0QC@E@]N/,0@0?/K@@=9?E@[\LV )@@G@@/,0@\;R#E@[3:@E@[./K@@>KC/@@@//,0@\>9?E@[3/,0@\;C8@@R7/,0@0Q/K@@=\R#I@@[!8K@@B/K@@?\/,0@UJ/K@@?\&;K@@@P;U@D8LY )@@G@@;CK@@[R;X@@K/K@@>/R#U@CQ/^K@>/(@E@GW/K@@?3 @@@@UN[U@GWR9E@GX&9@@@]8LK@>9LZ )@@G@@/K@@YZR#E@]NA#E@[YR#O)@@R;E@@!0@G@@#'=@@@AA#W@@ R;K@@PAZW@@#'=@@@[/,0@![MA )@@G@@/,0@!IA#U@]OA#U@]PN[@@[#R;E@[T/,0@'X/K@@$+/,0@8J/K@@$+/K@@$2N@0@[^R#K@,1MB )@@G@@%@W@@E/K@@&+/,K@=,C8@@SI/,0@0Q/,0@\4O;@@@ ;O@@@=W8@@@AR;G@[@A#E@]N/,0@\NMC )@@G@@R#G@@@&#E@]N/,0@Q@ @@@[ R;E@[T/K@@$2R7W@@E:8K@@*/K@@&%R#@@ST/,0@Q@ @E@AUMD )@@G@@R;E@[T/K@@&2R7/K@@YZ*@E@GN/,0@V4/K@@?5R#E@AXAFE@GOR#U@AY%8K@@,MN )@@G@@/K@@?5R;K@@[A$U@GL/K@@(N/,0@![/,0@!IA#U@@"R#'@F1A#U@F1A#'@C)(@@@@JA#U@F%MO )@@G@@9!%@CY9!E@F\9(E@CYR;E@C+/,0@TJ/,0@!"R;E@@9'=@@@[R;E@@3R;)@@CAZ?@@#'=@@@[MP )@@G@@0@E@@/'=@@@A9(%@CYR#E@F:O;@@@[A#E@F: @E@C)RFE@GNO;@@@[AFE@GN/K@@(_N9)@@[MQ )@@G@@^-%@GL/K@@(B )E@GL(@E@GN/K@@%^/,0@V4/K@@?5R#E@AXAFE@GOR#U@AY%8K@@,/K@@(NMR )@@G@@/,0@V4/K@@%]R#E@AX!CE@GN:CE@GN/K@@(R/K@@%]PFE@GO/G@@%]ABE@GO(@E@GO/K@@%^MS )@@G@@RBU@GN/K@@%RA#U@F1R;E@@3R;K@@KAZW@@#NCU@GON^%@GO/K@@(?R#U@F1/@K@(_A#W@@ MT )@@G@@'=@@@#R#%@F\%@%@CY/K@@(>8KK@(>*=E@GL/K@@*=R#U@F2)@K@,2*)E@GL+@K@,3A#%@F2MU )@@G@@R;K@@CAZW@@#'=@@@#R;K@@KAZW@@#R#U@F:P;K@@[*)E@GLO;K@@]A#U@F:8K)@(> @E@GOMV )@@G@@ @E@GL/K@@?N @E@GO/K@@?5 @E@GO @E@GM/K@@?5 CE@GN @E@GO/,0@V#/K@@%PR;U@D6MW )@@G@@&;K@@]N@U@CN2@H)@]/K@@?\&;K@@@P;U@D8;CK@@[R;X@@K/K@@%RR#U@CQ/@K@?3R;E@@!MX )@@G@@0@G@@#'=@@@AA#W@@ ABU@GNR;K@@PAZW@@#'=@@@#R#U@F(A#U@DY*@E@GO/K@@(YC#'@AYMY )@@G@@;JK@[C%;0@@*/K@@%\9?%@AZN@U@AW8KK@%:/K@@%_')J),Q9*%@AZ[[E@AY^@U@AWR#E@AYMZ )@@G@@%8@@@,/K@@%_/,0@V4/S@@@@C#K@@GR#E@AY%8@@@,/K@@%9/,0@V4 @@@@GC#)@@G?#)@@TNA )@@G@@C#)@@T*@@@@TH;K@@[R;E@@$R#U@DY/@K@?MA#W@@ '=@@@#9!E@DW%[E@CY/K@@%_RFE@GNNB )@@G@@O;@@@[AFE@GN0@E@DZ:;0@@*/K@@:I/K@@%_9;K@:L,FU@GN/K@@%_9.E@CV/K@@:O/K@@:RNC )@@G@@ @E@HH9(E@CV/,K@OIR#E@DZ=8@@@)/K@@:6C/E@]#/,0@,/CCE@GNC8K@@#/,0@1@R;@@@.ND )@@G@@0@E@DZR;@@@D/,0@\>C/@@@ /,0@\>RG@@@'^E@@EC5I@@@C1I@@@C!I@@@C(I@@@C>I@@@'^E@@I@@]@T$@@[@@[@@[@@@ACTIVENT )@@G@@:_ @[]@,Z@@@@*ACTIVE**NEVER* PARTY LINE: @[]@,&PARTY OVERFL@[]@,(NU )@@G@@@USE @@TPF$SEND SYNTAX.@[]@,,**PF**)@@@@@Z_____SYNTAX ERR. @[]@,4COMMANNV )@@G@@D ERR.@[]@,7ABORT @#[@,'A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)@1RR^1@@@&80@@[NW )@@G@@C8@@1SM@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[NX )@@G@@Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@NY )@@G@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@\-[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])\V/KF@@@NZ )@@G@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@\*OA )@@G@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@\/C80@@F;^@@[]+8K@@_%8)@@ :8)@@@OB )@@G@@/K@@0]')])\V8#0@\//KF@@@&"0__"/K@@0B&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[OC )@@G@@8#0@0I/KF@@@')G)0+0@@@@F%8)@@@')])\V/K@@0GC?[@@[C^L@@[/K@@0S;G@@@M;CK@@MOD )@@G@@&;@@@[&;K@@[')G)0+:0-@@@/K@@0Z')])\V/K@@0U[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@OE )@@G@@C?!@@@C*!@@@C=!@@@/\@@0*C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#/@@@04G80@@[OF )@@G@@;G@@@#/^@@0\C8)@@0')])\VC8)@@@;=K@@#G8)@@0')])\V8#0@04/KF@@@C8.@@@T8K@@#OG )@@G@@;GH@@@H80@@[/K@@04C8K@@@N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@1COH )@@G@@/^@@1]/C@@1H;?)@@AG80@@-8KK@1HC@K@@IC8)@@ /K@@1L')])\V8KK@1KC@)@@J')])\VOI )@@G@@;GK@@A/^)@1N/KF@@@@@[@@@ N8X@@@R;0@@@;O@@@=W8@@@EE/X@@@;?)@@AO;.@@0OJ )@@G@@8KK@1-/^@@1V/K@@1>;?)@@AO;0@@08KK@10@@@@F%8)@@@')])2)/K@@3JC?[@@[C^L@@[OT )@@G@@/K@@3V;G@@@M;CK@@M&;@@@[&;K@@[')G)3>:W-@@A/K@@3+')])2)/K@@3X[?[@@[[^L@@[OU )@@G@@/KF@@@CW!@@@CK!@@@CS!@@@/\@@3(CO!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#/@@@35OV )@@G@@G80@@[;G@@@#/^@@30C8)@@0')])2)C8)@@@;=K@@#G8)@@0')])2)8#0@35/KF@@@C8.@@@OW )@@G@@T8K@@#;GH@@@H80@@[/K@@35C8K@@@N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@DG8.@@0OX )@@G@@8KK@4D/^@@4#/C@@4I;?)@@DG80@@!8KK@4IC@K@@IC8)@@)/K@@4M')])2)8KK@4LC@)@@JOY )@@G@@')])2);GK@@D/^)@4O/KF@@@______@@[@@@^@)^@)@@J_@CF____@@@@@@H@@J_@@S@@@@@OZ )@@G@@@@@@@B_/__\______Z@@@@@B@ *[@@@* ]@@@*.]@@@ .]@@@*/]@A@ /]@A@*(][#@ (][#PA )@@G@@@(.#@@@(/#@A@( @@@@/.^@@@//^@A@/. @@@/ @@@@. A@@@./A@@@.(A[#@ A@@@ /A@@PB )@@G@@@ (A[#@/ B@@@/(B[#@( C@@ A["@@@R9"@@@A]B@@[A]R@@]A]$@@#9($@@^C9K@@UPC )@@G@@ @H@@@[5X@@@ABR@@ER'H@@[&'@@@[;G@@@M;CK@@M/@@@6!O;H@@@P;@@@[ABB@@DAFR@@DPD )@@G@@&;K@@[R#)@8DC9)@[@')I)@@%8@@@*/K@@64R;@@@ A3B@@E ?B@@E9*R@@AA]B@@CR')@@@PE )@@G@@R#0@8EN8K@@S')I)@@%8@@@ /K@@5=*?B@@E/K@@6!/K@@5Y/G@@6!C90@@@R]K@8F:9)@]@PF )@@G@@/K@@7F9!E@4V;HG@@@/-K@50G90@@[')D)@@')I)@@/C@@5(%8@@@:/K@@54:9)@[@/K@@5YPG )@@G@@(=J@@@/K@@58:8@@@)')I)@@A7B@@E/G@@5;:8@@@,R;@@@ C1B@@EA3B@@E;(@@@AG9G@@@PH )@@G@@2DJ)@[/K@@64(*J@@@/K@@7]!['@4X/K@@62/ 0@6J:9@@ .[!B@@E%8@@@*/K@@6YC[K@4/PI )@@G@@[[S@@[[[S@@]C90@@G @C@@@C!B@@E[(C@@@ ?B@@EC9@@@[!90@@BC9@@@][-C@@@!90@@BPJ )@@G@@H90@@A[>8@@@K(\@@@[D8@@@O+C@@@O'@@@[R+\@@@R7B@@E/G@@6!:8@@@ /K@@6$%8@@@,PK )@@G@@/K@@5YG9)@[@/K@@5Q;D)@@G;()@@GG9)[[@:9)][@/K@@6!/K@@5Q @C@@@PAB@@ER;C@@@PL )@@G@@O'0@@[/K@@6;&;G@[@/K@@65&;G@]@R;X@@@PFR@@DT8K@@AP;)@7XO;Y@@@Q;H@@@R]B@@[PM )@@G@@R]R@@]R]$@@#9!$@@^R;$@@@R["@@@/KF@@@R;@@@ A3B@@E9?R@@AR]B@@CR')@@@R]K@8FPN )@@G@@R#0@8GN8K@@D/K@@5YRA$@@EN8K@@U!8@@@A!8@@@)/K@@64C[@@8H;DG@@@)[E@@@[[U@@@PO )@@G@@')I)@@/G@@7U:8@@@ /K@@7U8KK@7F/K@@62A7B@@E/K@@6Y/\,@@@R7H@@@R3H@@@R\H@@@PP )@@G@@R:H@@@R$H@@@/\,@@@D8@@@[RC[K@@KQB )@@G@@H[K@@JH1X@@@C[@@@JD@0@@L[1G@@E0@G@@E/K@@99;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[QC )@@G@@A#W@@D/K@@8+R#0@[]P#0@[#/@0@9I/G0@9I/K@@83R3.@@@O;0@@[/K@@83P#0@@KN@K@@JQD )@@G@@M#!)@@R#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@'P%9K@@ /KF@@@(^G@@#QE )@@G@@/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@8+ @@@@HOBW@@AABW@@DQF )@@G@@R#W@@AABW@@^;@K@@M'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K@'!%9K@@ /KF@@@(^G@@#QG )@@G@@/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@QH )@@G@@@@@@'8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@G@@@@ EDN IQJ )@@G@@S A REENTRANT (MEANING MORE THAN ONE USER MAY EXECUTE EDN WITHOUT @G@@@@QK )@@G@@ CAUSING EXEC 8 TO RELOAD THE PROGRAM) TEXT EDITOR FOR THE UNIVAC 1108 QL )@@G@@@G@@@@ DEVELOPED BY THE NEW YORK UNIVERSITY SYSTEMS DEVELOPMENT STAFF. QM )@@G@@EDN @G@@@@ PROVIDES A WIDE AND VARIED COMMAND REPERTOIRE WITH A SMALL QN )@@G@@UTILIZATION @G@@@@ OF CORE MEMORY. (THE EDN IBANK IS ABOUT 5K., AND THEQO )@@G@@ DBANK IS UNDER @G@@@@ 4K. BECAUSE EDN IS A REENTRANT PROCESSOR, IN MQP )@@G@@ANY CASES ONLY THE DATA @G@@@@ PORTION NEED BE LOADED, AND ITS SMALL SIZQQ )@@G@@E WILL CAUSE THE USER TO EX- @G@@@@ PERIENCE QUITE FAST EXECUTION.) EDQR )@@G@@N WAS CONCEIVED AS AN ENHANCEMENT @G@@@@ TO EXISTING EDITORS BY COMBINQS )@@G@@ING THE BEST OF THEIR COMMANDS, PLUS SOME @G@@@@ NEW ONES, AND BY PROVIDQT )@@G@@ING AN ERROR RECOVERY MECHANISM WHICH WILL SAVE @G@@@@ THE USER THE AGGRQU )@@G@@AVATION OF HAVING TO DUPLICATE AN EDITING SESSION BE- @E@@@@ CAUSE OF A QV )@@G@@TELETYPE TRANSMISSION ERROR OR A MISTYPE. @[@@@@ @E@@@@ THE EQW )@@G@@DN PROCESSOR CALL STATEMENT HAS THE FOLLOWING FORM: @[@@@@ @D@@@@QX )@@G@@ @EDN[,OPTIONS] SPEC1[,SPEC2] @[@@@@ @G@@@@QY )@@G@@ 'SPEC1' NAMES THE INPUT DATAFILE OR SYMBOLIC ELEMENT, AND MUST ALWAYS QZ )@@G@@@G@@@@ APPEAR. 'SPEC2' IS OPTIONAL, AND NAMES THE OUTPUT DATAFILE OR SYRA )@@G@@M- @F@@@@ BOLIC ELEMENT. IF THE EDITED TEXT IS TO BE FILED INTO THE RB )@@G@@SAME @G@@@@ FILE OR ELEMENT AS THE INPUT, 'SPEC2' MAY BE OMITTED. EITHRC )@@G@@ER 'SPEC1' @G@@@@ OR 'SPEC2' MAY NAME A FILE OR ELEMENT--THUS, AN ELEMERD )@@G@@NT MAY BE EDITED @G@@@@ INTO A DATAFILE, OR A DATAFILE MAY BE EDITED INRE )@@G@@TO AN ELEMENT. EDN @G@@@@ WILL MAKE THE NECESSARY INTERNAL ADJUSTMERF )@@G@@NTS. IF 'SPEC1' NAMES AN @G@@@@ ELEMENT WHICH IS NOT FOUND IN THE IRG )@@G@@NPUT PROGRAM FILE, EDN WILL CREATE @G@@@@ AN ELEMENT WITH THIS NAME. LRH )@@G@@IKEWISE, IF 'SPEC1' NAMES AN EMPTY FILE, @F@@@@ WITH NO ELEMENT NAME SPRI )@@G@@ECIFIED, THE DATAFILE WILL BE INITIALIZED.@G@@@@ IF EDN IS CALLED UPON TRJ )@@G@@O CREATE AN ELEMENT OR INITIALIZE A DATAFILE, @G@@@@ AND 'SPEC2' IS GIRK )@@G@@VEN, IT IS IGNORED. IF 'SPEC2' (OR 'SPEC1' IF IT IS @G@@@@ THE ONLY SPRL )@@G@@ECIFICATION) NAMES A FILE THAT IS READ ONLY, OR THAT HAS @G@@@@ A WRIRM )@@G@@TE KEY WHICH WAS NOT SPECIFIED, EDN ENTERS READ ONLY MODE, AND @G@@@@RN )@@G@@ WILL IN NO CASES ATTEMPT TO FILE ANY OUTPUT. IF THE OUTPUT FILE IS RO )@@G@@@G@@@@ READ ONLY TO EDN, AND THE ELEMENT SPECIFIED DOES NOT EXIST, OR THRP )@@G@@E @F@@@@ DATAFILE IS EMPTY, EDN TERMINATES WITH AN APPROPRIATE MESSARQ )@@G@@GE. @[@@@@ @G@@@@ EDN RECOGNIZES AND REACTS TO SIX OPTION LETTERSRR )@@G@@, NONE OF WHICH ARE @]@@@@ REQUIRED. @[@@@@ @G@@@@ THE 'A' OPTRS )@@G@@ION IS USEFUL AFTER A SYSTEM FAILURE, WHEN EDN HAS NOT BEEN @G@@@@ ABLE RT )@@G@@TO FILE THE EDITED TEXT. IF AN 'SAVE' COMMAND WAS EXECUTED (SEE @F@@@@RU )@@G@@ BELOW), THE 'A' OPTION TELLS EDN TO RECOVER THE EDITED TEXT FOUND@G@@@@RV )@@G@@ IN ITS INTERNAL FILE 'SPLIT$'. THIS ALLOWS THE USER TO RECOVER ALL RW )@@G@@@G@@@@ CHANGES MADE UP TO THE TIME OF THE 'SAVE'. 'SPLIT$' IS A CATALOGRX )@@G@@UED @F@@@@ FILE, AND IS AUTOMATICALLY ASSIGNED BY EDN DURING INITIALIZRY )@@G@@ATION.@[@@@@ @G@@@@ THE 'B' OPTION CAUSES EDN TO ENTER BRIEF MODE IRZ )@@G@@NITIALLY. IN BRIEF @B@@@@ MODE ONLY REQUESTED PRINTING IS DONE. SA )@@G@@@[@@@@ @G@@@@ THE 'D' OPTION CAUSES EDN TO TREAT AN ELEMENT NAMED ISB )@@G@@N 'SPEC1' AS A @F@@@@ DATAFILE INSOFAR AS IMAGE LENGTH IS CONCERNED, SC )@@G@@THUS ALLOWING @G@@@@ AN ELEMENT WITH IMAGES LONGER THAN 14 WORDS TO SD )@@G@@BE EDITED WITHOUT RE- @G@@@@ QUIRING THE EXECUTION OF A 'PLM' AND/OR 'SE )@@G@@SAV' COMMAND (SEE BELOW). @E@@@@ THE 'D' OPTION IS ASSUMED IF THE INSF )@@G@@PUT FILE IS A DATAFILE. @[@@@@ @F@@@@ THE 'I' OPTION INSTRUCTS EDN SG )@@G@@TO ENTER INPUT MODE AT LINE 0 AFTER @#@@@@ INITIALIZATION. @[@@@@ SH )@@G@@@A@@@@ THE 'L' SETS LINE NUMBERING MODE. @@@@@@@E@@@@ THE 'P' OPTION TUSI )@@G@@RNS ON PROMPTING. SEE 'PON' COMMAND. @@@@@@@G@@@@ THE 'R' OPTION CASJ )@@G@@USES EDN TO ENTER 'FALSE' READ ONLY MODE. THIS MEANS @G@@@@ THAT UNLESSSK )@@G@@ A 'ROFF' COMMAND IS EXECUTED, NO OUTPUT WILL BE FILED. @F@@@@ THIS SL )@@G@@OPTION IS ASSUMED AND MAY NOT BE OVERRIDEN IF THE OUTPUT @^@@@@ FILE SM )@@G@@IS READ ONLY. @[@@@@ @C@@@@ THE 'S' OPTION SETS SQUEEZE MODE FOSN )@@G@@R PRINTING. @@@@@@@G@@@@ THE 'Y' OPTION CAUSES EDN TO INITIALLY ENTER LISO )@@G@@NE NUMBERING AND SQUEEZE@C@@@@ MODES. (COMBINATION OF 'L' AND 'S' OPTIONSP )@@G@@S.) @[@@@@ @G@@@@ THE FOLLOWING PARAGRAPHS DEFINE 10 BROAD CATEGOSQ )@@G@@RIES OF EDN COMMANDS, @ @@@@ AND DESCRIBE EACH COMMAND. @[@@@@ SR )@@G@@@G@@@@ THE SYNTAX OF EDN IS SIMILAR TO THAT OF MOST OTHER EDITORS, NOTABSS )@@G@@LY @G@@@@ UNIVAC'S ED. THEREFORE, IN THE FOLLOWING DESCRIPTIONS, SYNST )@@G@@TAX WILL @G@@@@ NOT BE DISCUSSED UNLESS IT DIFFERS FROM 'NORMAL', OR SU )@@G@@UNLESS THE COM- @ @@@@ MAND IS ONE UNIQUE TO EDN. @[@@@@ @F@@@@SV )@@G@@ NOTE: IN THE FOLLOWING PARAGRAPHS, A NUMBER MEANS ANY STRING OF @G@@@@SW )@@G@@ DIGITS, OPTIONALLY PRECEDED BY A '+' OR '-', IF THE SYNTAX REQUIRES. SX )@@G@@@F@@@@ ADDITIONALLY, A NUMERIC FIELD SUCH AS 66+3-22 IS VALID. HOWEVER,SY )@@G@@@G@@@@ PLUS AND MINUS ARE THE ONLY AVAILABLE OPERATORS. NUMERIC FIELDS SZ )@@G@@MAY BE@G@@@@ SEPARATED BY BLANKS OR COMMAS. IF THE COMMAND IN QUESTION TA )@@G@@ALLOWS MORE @G@@@@ THAN ONE FIELD AND A PRECEDING FIELD IS TO BE OMITTEDTB )@@G@@, THE INCLUDED @E@@@@ FIELD(S) MUST BE PRECEDED BY COMMA(S) TO AVOID TC )@@G@@CONFUSION. @@@@@@@@@@@@@@@@@@@ @@@@ 1. LINE CURSOR CONTROL @[@@@@TD )@@G@@ @G@@@@ G THE 'G' COMMAND INSTRUCTS EDN TO GO TO A LINE WHOSTE )@@G@@E NUMBER @G@@@@ IS GIVEN. IF THE NUMBER IS LARGER THAN THE TF )@@G@@CURRENT TEXT SIZE,@F@@@@ EDN SAYS SO AND PERFORMS AN AUTOMATIC TG )@@G@@TOP. IF A NUMBER @F@@@@ OR SPACE STARTS AN EDN COMMAND, IT IS TH )@@G@@ASSUMED TO BE 'G'.@@@@@@@G@@@@ N THE 'N' COMMAND CAUSES THE LINE TI )@@G@@POINTER TO BE ADVANCED TO @G@@@@ THE NEXT NTH LINE. IF THETJ )@@G@@ NUMBER GIVEN IS NEGATIVE, THE LINE @G@@@@ CURSOR IS BACKED UP TK )@@G@@OVER THAT NUMBER OF LINES. IF THE CHAR- @G@@@@ ACTER '+' APPETL )@@G@@ARS IN COLUMN 1 OF AN EDN COMMAND, THE COMMAND @A@@@@ IS ASSUMTM )@@G@@ED TO BE 'N'. @[@@@@ @F@@@@ U THE 'U' COMMAND BEHAVES LITN )@@G@@KE THE 'N' COMMAND WITH A @F@@@@ NEGATIVE NUMBER SPECIFIED.TO )@@G@@ LIKEWISE, IF THE NUMBER @G@@@@ SPECIFIED ON THE 'U' COMMATP )@@G@@ND LINE IS NEGATIVE, THE COMMAND @G@@@@ BEHAVES LIKE A NORMATQ )@@G@@L COMMAND. THE CHARACTER '-' IN COL- @F@@@@ UMN 1 IS THE STR )@@G@@AME AS A 'U'. NOTE: 'U' AND 'N' WITH A @G@@@@ NEGATIVE NUMBETS )@@G@@R CAUSE AN AUTOMATIC TOP THEREBY FILING ANY @C@@@@ CHANGES TT )@@G@@MADE SINCE THE LAST TOP.) @[@@@@ @G@@@@ T THE 'T' COMMANTU )@@G@@D CAUSES EDN TO GO TO LINE 0. 'G 0', AND '0' @C@@@@ ARE EQUITV )@@G@@VALENT. CHANGES ARE FILED. @[@@@@ @G@@@@ X 'X' CAUSES EDNTW )@@G@@ TO GO TO LINE 0, BUT CHANGES MADE SINCE THE @F@@@@ LAST TOPTX )@@G@@ WAS PERFORMED ARE FORGOTTEN. IF YOU MAKE SOME @G@@@@ ERRONEOUTY )@@G@@S CHANGES AND WISH TO DISCARD THEM, THE 'X' COMMAND @ @@@@ ISTZ )@@G@@ VERY USEFUL. @[@@@@ @F@@@@ E THE 'E' COMMAND SENDS EDN UA )@@G@@TO THE LAST LINE OF TEXT. @B@@@@ THE EDITOR REMAINS IN EDITUB )@@G@@ MODE.@[@@@@ @@@@@@@@@@@@@^@@@@ 2. INPUT MODE @[@@@@ UC )@@G@@@G@@@@ IN INPUT MODE, EDN ACCEPTS INPUT IMAGES AS DATA RATHER TUD )@@G@@HAN @G@@@@ AS COMMANDS, AND INSERTS THEM INTO THE TEXT MUCH AUE )@@G@@S THE 'ELT' @G@@@@ OR 'DATA' PROCESSORS DO. TO ENTER INPUT MODUF )@@G@@E FROM EDIT MODE, @F@@@@ SIMPLY ENTER A BLANK LINE. TO RETURN UG )@@G@@TO EDIT MODE FROM @C@@@@ INPUT MODE, ENTER ANOTHER BLANK LINE. UH )@@G@@@[@@@@ @F@@@@ IN ADDITION, THE 'B' COMMAND CAUSES EDN TO GUI )@@G@@O TO THE END@F@@@@ OF TEXT AND ENTER INPUT MODE, ALLOWING INPUTUJ )@@G@@ IMAGES TO @ @@@@ APPEND THE TEXT. @[@@@@ @@@@@@@@@@@@UK )@@G@@@A@@@@ 3. TERMINATION OF EDITING @[@@@@ @E@@@@ FILE 'FUL )@@G@@ILE' CAUSES EDN TO FILE ANY OUTPUT, IF NOT IN @F@@@@ READ ONLUM )@@G@@Y MODE, AND TERMINATE. THE NUMBER OF LINES @ @@@@ FILES ISUN )@@G@@ DISPLAYED. @[@@@@ @F@@@@ END 'END' CAUSES EDN TO TERMINATE OMUO )@@G@@ITTING ANY CHANGES. @[@@@@ @F@@@@ IN ADDITION, IF AN EUP )@@G@@XEC 8 CONTROL CARD OR @EOF CARD @G@@@@ IS ENTERED IN EDIT OUQ )@@G@@R INPUT MODE, EDN WILL TERMINATE, FILING @C@@@@ THE OUTPUT IF UR )@@G@@NOT IN READ ONLY MODE. @[@@@@ @@@@@@@@@@@@@^@@@@ 4. LINE EDIUS )@@G@@TING @[@@@@ @F@@@@ I INSERT A LINE INTO THE TEXT FOLLOWING UT )@@G@@THE CURRENT LINE. @[@@@@ @F@@@@ IB INSERT A LINE INTO THE TEXUU )@@G@@T BEFORE THE CURRENT LINE. @[@@@@ @C@@@@ R REPLACE THE CUUV )@@G@@RRENT LINE WITH ANOTHER.@[@@@@ @E@@@@ A OVERLAY THE CURRENT UW )@@G@@LINE WITH AN IMAGE PROVIDED. @E@@@@ ANY POSITION CONTAINING THUX )@@G@@E 'A' COMMAND'S TRANS- @D@@@@ PARENT CHARACTER (INITIALLY '@')UY )@@G@@ WILL NOT BE@#@@@@ ALTERED.@@@@@@@F@@@@ S SAVE (FILE) THUZ )@@G@@E CURRENT, THEN PERFORM AN 'A' COMMAND @E@@@@ OPERATION. 'SVA )@@G@@' WITH NO IMAGE SPECIFIED WILL DUP- @E@@@@ LICATE THE CURRENT LVB )@@G@@INE. THE 'A' COMMAND TRANS- @B@@@@ PARENT CHARACTER IS MEANINVC )@@G@@GFUL. @[@@@@ @F@@@@ CN CONCATENATE THE CURRENT LINE WITH THE VD )@@G@@IMAGE PROVIDED. @@@@@@@F@@@@ CTC CUT THE CURRENT LINE AT (DISCARDVE )@@G@@ ALL CHARACTERS AFTER) @F@@@@ THE COLUMN POSITION SPECIFIED ASVF )@@G@@ THE FIRST NUMBER. IF @G@@@@ A SECOND NUMBER APPEARS ON THE CVG )@@G@@OMMAND, CONTINUE FOR THAT @A@@@@ NUMBER MINUS 1 LINES. VH )@@G@@@[@@@@ @F@@@@ CT GENERAL LINE CUTTER. 'CT' ACCEPTS TWO COLUMVI )@@G@@N NUMBERS: @F@@@@ THE FIRST SPECIFIES THE NUMBER OF COLUMNS TOVJ )@@G@@ DELETE @G@@@@ FROM THE BEGINNING OF THE LINE, THE SECOND SVK )@@G@@PECIFIES THE NUM- @G@@@@ BER OF COLUMNS TO TAKE OFF THE END OF VL )@@G@@THE LINE. IF A THIRD @G@@@@ NUMBER IS GIVEN, CONTINUES FOR TVM )@@G@@HAT NUMBER MINUS 1 LINES. @F@@@@ IF EITHER OF THE FIRST TWOVN )@@G@@ NUMBERS ARE OMITTED OR 0, @D@@@@ THE RESPECTIVE END OF THE VO )@@G@@LINE IS UNCHANGED.@[@@@@ @E@@@@ D DELETE THE NUMBER OF LINESVP )@@G@@ SPECIFIED, STARTING @D@@@@ WITH THE CURRENT LINE. IF A SECVQ )@@G@@OND FIELD IS@E@@@@ GIVEN, DELETE THE N1TH LINE THROUGH THE N2THVR )@@G@@ LINE,@B@@@@ RELATIVE TO THE CURRENT LINE. @@@@@@@E@@@@ C VS )@@G@@ CHANGE - THE FORMAT OF THE CHANGE COMMAND IS: @[@@@@ @ @@@@VT )@@G@@ C /STRING1/STRING2/ @[@@@@ @G@@@@ THE '/' IS A GVU )@@G@@ENERAL DELIMITER, AND MAY BE REPLACED BY ANY @E@@@@ CHARACTEVV )@@G@@R NOT APPEARING IN 'STRING1' OR 'STRING2'.@F@@@@ IF THE LETTER VW )@@G@@'G' FOLLOWS THE THIRD DELIMITER, ALL OC- @F@@@@ CURRANCES OF 'VX )@@G@@STRING1' IN THE CURRENT LINE ARE CHANGED @F@@@@ 'STRING2'. IFVY )@@G@@ A NUMBER FOLLOWS THE THIRD DELIMITER, THE@F@@@@ CHANGE COMMANDVZ )@@G@@ CONTINUES FOR THAT NUMBER MINUS 1 LINES. @E@@@@ IN ADDITION, 'WA )@@G@@G' MAY FOLLOW A NUMBER SO SPECIFIED.@F@@@@ IF THE LETTER 'A' FOWB )@@G@@LLOWS THE THIRD DELIMITER, EDN PER- @F@@@@ FORMS A TOP, THEN CHWC )@@G@@ANGES ALL OCCURRANCES OF 'STRING1' @B@@@@ TO 'STRING2' IN THE WD )@@G@@ENTIRE TEXT.@[@@@@ @@@@@@@G@@@@ ADDITIONAL INFORMATION ON WE )@@G@@THE 'I', 'IB', 'R', 'A' AND 'S' @G@@@@ COMMANDS: THE FORMAWF )@@G@@T 'COMMAND+NUMBER' CAUSES THE NEW CHAR- @E@@@@ ACTERS (LINE) WG )@@G@@TO BE STORED STARTING AT THE COLUMN @G@@@@ NUMBER SPECIFIED. TWH )@@G@@HUS, 'I+5 ABC' CAUSES THE STRING 'ABC' TO @F@@@@ BE INSERTED ASWI )@@G@@ A NEW LINE OF TEXT, STARTING AT COLUMN 5.@@@@@@@@@@@@@[@@@@ @^@@@@WJ )@@G@@ 5. BLOCK EDITING @[@@@@ @E@@@@ SPL THE NUMBER OF LINES WK )@@G@@SPECIFIED ARE COPIED INTO AN @F@@@@ INTERNAL FILE. THEY MAY BWL )@@G@@E ADDED LATER. THE TEXT IS @^@@@@ UNCHANGED. @[@@@@ WM )@@G@@@E@@@@ SPD THE NUMBER OF LINES SPECIFIED ARE COPIED AS IN @F@@@@WN )@@G@@ THE CASE OF 'SPL', HOWEVER, THEY ARE ALSO DELETED FROM @^@@@@WO )@@G@@ THE TEXT. @@@@@@@E@@@@ SPL! A TOP IS PERFORMED, AND THWP )@@G@@E ENTIRE TEXT IS COPIED.@[@@@@ @G@@@@ SAVE SAME AS 'SPL!', EXCEWQ )@@G@@PT THE EDITOR RETURNS TO THE LINE THAT @F@@@@ THAT WAS BEINGWR )@@G@@ EDITED WHEN THE 'SAVE' WAS EXECUTED. @@@@@@@G@@@@ AUTO SPECIFIEWS )@@G@@S THE NUMBER OF CORRECTIONS TO BE APPLIED BEFORE AN @G@@@@ AUWT )@@G@@TOMATIC SAVE OF THE EDITED TEXT IS PERFORMED, AS IF A 'SAVE'@G@@@@ WU )@@G@@ COMMAND HAD BEEN EXECUTED. IF THE NUMBER SPECIFIED IS LESS @G@@@@WV )@@G@@ THAN OR EQUAL TO ZERO, AUTO MODE IS TURNED OFF. IT IS RECOM- WW )@@G@@@G@@@@ MENDED THAT BLOCK EDITING VIA 'SPL' TYPE COMMANDS NOT BEWX )@@G@@ USED @G@@@@ IF IN AUTO MODE, AS THE SAME FILE ('SPLIT$') IS USWY )@@G@@ED FOR BOTH.@G@@@@ IF IN INPUT MODE, AN AUTO SAVE IS DONE AFTERWZ )@@G@@ THE GIVEN NUMBER @G@@@@ OF LINES HAS BEEN INPUT. AUTO MODE ISXA )@@G@@ SUSPENDED IF IN AN @ADD@#@@@@ FILE. @@@@@@@F@@@@ ADD THXB )@@G@@E LAST BLOCK SPLIT FROM THE TEXT IS INSERTED INTO @G@@@@ THXC )@@G@@E TEXT FOLLOWING THE CURRENT LINE. THE NUMBER OF LINES @F@@@@ XD )@@G@@ ADDED IS DISPLAYED. THE 'A' OPTION ON THE EDN CALL CARD@G@@@@ XE )@@G@@ CAUSES AN 'ADD' COMMAND TO BE FORCED DURING INITIALIZATION. @F@@@@XF )@@G@@ THUS, IF DURING EDITING AN 'SAVE' IS EXECUTED SAVING @G@@@@XG )@@G@@ THE EDITED TEXT AND THE SYSTEM CRASHES, THE EDITED TEXT MAY XH )@@G@@@G@@@@ BE RESTORED WITH ONLY THOSE CHANGES MADE AFTER THE 'SAVEXI )@@G@@' @ @@@@ HAVING BEEN LOST. @]@@@@ @@@@@@@@@@@@XJ )@@G@@@A@@@@ 6. SAVING INDIVIDUAL LINES @[@@@@ @E@@@@ HL SAXK )@@G@@VES THE CURRENT LINE IN AN INTERNAL EDN ARRAY. @F@@@@ THE LINEXL )@@G@@ MAY BE REENTERED LATER ANYWHERE IN THE TEXT. @[@@@@ @G@@@@ HD XM )@@G@@ SAME AS 'HL', BUT THE LINE IS ALSO DELETED FROM THE TEXT. @[@@@@XN )@@G@@ @E@@@@ EH ENTERS A LINE INTO THE HOLD AREA FROM THE COMMAND,XO )@@G@@@A@@@@ RATHER THAN FROM THE TEXT.@@@@@@@D@@@@ PH DISPLAYSXP )@@G@@ ON THE TERMINAL THE LAST LINE HELD.@[@@@@ @E@@@@ IH INSERTS XQ )@@G@@THE LAST LINE HELD INTO THE TEXT FOLLOWING@ @@@@ THE CURRENT LIXR )@@G@@NE. @[@@@@ @D@@@@ IHB INSERTS A HELD LINE BEFORE THE CURRENTXS )@@G@@ LINE.@[@@@@ @D@@@@ RH REPLACES THE CURRENT LINE WITH A HELD XT )@@G@@LINE. @[@@@@ @E@@@@ AH PERFORMS AN 'A' OPERATION ON THE CURREXU )@@G@@NT LINE WITH@ @@@@ THE LAST LINE HELD. @[@@@@ @E@@@@ CH XV )@@G@@ CONCATENATES THE CURRENT LINE WITH THE LINE IN THE@^@@@@ HOXW )@@G@@LD AREA. @[@@@@ @G@@@@ IF A NUMBER APPEARS ON THE 'IH',XX )@@G@@ 'IHB', 'RH', OR 'AH COMMANDS,@G@@@@ THE REQUESTED OPERATION WIXY )@@G@@LL START AT THE COLUMN SO SPECIFIED.@[@@@@ @@@@@@@@@@@@@^@@@@ 7. XZ )@@G@@ TEXT SEARCHING@[@@@@ @G@@@@ THE COMMANDS 'L' AND 'F' AYA )@@G@@RE THE BASIC TEXT SEARCHING COM- @G@@@@ ANDS. EACH SCANS ALLYB )@@G@@ LINES FOLLOWING THE CURRENT LINE FOR A @G@@@@ MATCH ON THE SYC )@@G@@TRING APPEARING ON THE COMMAND LINE. THE DIF- @G@@@@ FERENCE YD )@@G@@BETWEEN THE TWO IS THAT 'L' WILL FIND THE SUBJECT @G@@@@ STYE )@@G@@RING ANYWHERE IN THE TEXT, WHILE 'F' MUST MATCH STARTING AT @G@@@@ YF )@@G@@ THE COLUMN NUMBER ON THE COMMAND RELATIVE TO THE END OF THE @ @@@@YG )@@G@@ OPERATION FIELD. @[@@@@ @#@@@@ EXAMPLE:@[@@@@YH )@@G@@ @#@@@@ L 1234 @[@@@@ @G@@@@ WILL FIND THE YI )@@G@@STRING '1234' ANYWHERE IN THE TEXT. ON THE @^@@@@ OTHER HAYJ )@@G@@ND: @[@@@@ @#@@@@ F 1234 @[@@@@ @G@@@@ WIYK )@@G@@LL FIND '1234' ONLY IF IT STARTS IN COLUMN 1. FURTHERMORE, @[@@@@ YL )@@G@@@#@@@@ F 1234@[@@@@ @G@@@@ WILL FIND '1234' ONLYM )@@G@@Y AT COLUMN 3. THE FORMAT 'F+NUMBER' IS @G@@@@ LEGAL, AND WILYN )@@G@@L FIND THE STRING STARTING AT THE COLUMN NUMBER @F@@@@ GIVEN. YO )@@G@@THIS DISTINCTION HOLDS TRUE FOR ALL SEARCHES. @[@@@@ @F@@@@ YP )@@G@@ IF THE SEARCH COMMAND OPERATION FIELD IS TERMINATED WITH@F@@@@ YQ )@@G@@ A PERIOD, OR THE OPERATION AND OPTIONAL NUMERIC FIELD @G@@@@ YR )@@G@@ FOR THE 'F' TYPE COMMANDS, THE SEARCH WILL SUCCEED AT THE @E@@@@YS )@@G@@ FIRST LINE NOT CONTAINING THE SUBJECT STRING. @@@@@@@#@@@@YT )@@G@@ EXAMPLE:@@@@@@@#@@@@ F 1234 @@@@@@@F@@@@ ASYU )@@G@@ ABOVE, FINDS THE FIRST OCCURANCE OF '1234' AT COLUMN @^@@@@ ONYV )@@G@@E, WHILE: @@@@@@@#@@@@ F.1234 @@@@@@@G@@@@ FINDS THYW )@@G@@E FIRST LINE NOT CONTAINING '1234' STARTING AT COLUMN @G@@@@ ONYX )@@G@@E. TO FIND THE FIRST BLANK LINE FOLLOWING THE CURRENT LINE,@@@@@@@#@@@@YY )@@G@@ F.@ @@@@@@@G@@@@ WILL WORK, AS LONG AS '@' RETAINYZ )@@G@@S ITS INITIAL PROPERTY AS THE @E@@@@ TRANSPARENT CHARACTER FOR ZA )@@G@@'F' AND 'L' COMMANDS. @G@@@@ LIKEWISE, TO FIND THE FIRST NON-ZB )@@G@@OCCURANCE OF A BLANK IN COL- @F@@@@ UMN ONE (AN ASSEMBLY LANGUZC )@@G@@AGE LABEL, FOR INSTANCE), @@@@@@@#@@@@ F. @ @@@@@@@^@@@@ZD )@@G@@ WILL WORK. @@@@@@@F@@@@ ** NOTE ** WHEN THE OPERAZE )@@G@@TION FIELD IS TERMINATED WITH @G@@@@ A PERIOD, THE PERIOD IS INZF )@@G@@ PLACE OF THE SPACE USUALLY USED @G@@@@ TO TERMINATE THE COMZG )@@G@@MAND FIELD. THUS 'F.1234' AND F. 1234' @G@@@@ ARE NOT EQUIVAZH )@@G@@LENT--THE FIRST FINDS THE FIRST NON-OCCURANCE OF@H@@@@ '1234' AZI )@@G@@T COLUMN ONE, AND THE SECOND FINDS THE FIRST NON-OCCUR- @G@@@@ ZJ )@@G@@ ANCE OF '1234' AT COLUMN TWO, WITH A BLANK IN COLUMN ONE. @@@@@@ZK )@@G@@@F@@@@ LP LOCATE THE STRING GIVEN, PRINTING ALL LINES EXCEPT THE ZL )@@G@@@D@@@@ CURRENT UP TO AND INCLUDING THE FOUND LINE. @[@@@@ ZM )@@G@@@D@@@@ FP SAME AS 'LP', WITH DISTINCTIONS NOTED ABOVE.@[@@@@ ZN )@@G@@@G@@@@ LD SIMILAR TO 'LP', BUT INSTEAD OF PRINTING THE LINES SCANNZO )@@G@@ED, @G@@@@ DELETE THEM. THE CURRENT LINE IS DELETED, THE FOUZP )@@G@@ND LINE IS @F@@@@ NOT. THE SCAN STOPS AT THE LAST LINE EVEN IZQ )@@G@@F NO FIND @F@@@@ IS MADE, ALLOWING THE CHANGES TO BE UNDONE BZR )@@G@@Y 'X'. THE @A@@@@ SAME HOLDS TRUE FOR 'FD'. @[@@@@ @B@@@@ZS )@@G@@ FD SAME DISTINCTION AS NOTED ABOVE.@[@@@@ @G@@@@ LC LOZT )@@G@@CATE ALL OCCURANCES OF THE GIVEN STRING FROM THE CURRENT @A@@@@ ZU )@@G@@ LINE TO THE END OF TEXT. @[@@@@ @^@@@@ FC AS ABOVE. ZV )@@G@@@[@@@@ @F@@@@ LX SAME AS 'LC', BUT THE FOUND LINES ARE DELETEZW )@@G@@D. 'LX' AND@G@@@@ 'FX' STOP AT THE LAST LINE, ALLOWING THE CHAZX )@@G@@NGES TO BE UNDONE @B@@@@ BY EXECUTING AN 'X' COMMAND. @[@@@@ZY )@@G@@ @^@@@@ FX AS ABOVE. @[@@@@ @@@@@@@@@@@@@ @@@@ 8. ZZ )@@G@@ PRINTING THE TEXT @[@@@@ @E@@@@ P PRINT THE NUMBER OF AA )@@G@@LINES REQUESTED STARTING WITH @F@@@@ THE CURRENT LINE. IF A SEAB )@@G@@COND FIELD IS GIVEN, PRINT @F@@@@ FROM THE N1TH THROUGH THE AC )@@G@@N2TH LINE, RELATIVE TO THE @^@@@@ CURRENT LINE. @[@@@@ AD )@@G@@@C@@@@ P! DOES A TOP AND PRINTS THE ENTIRE TEXT.@[@@@@ @@@@@@AE )@@G@@@@@@@@@ @@@@ 9. CONTROL FUNCTIONS @[@@@@ @G@@@@ MSG THAF )@@G@@IS COMMAND SENDS A MESSAGE TO THE 1108 CONSOLE, WITHOUT @ @@@@ AG )@@G@@ WAITING FOR A REPLY.@@@@@@@F@@@@MSG* THIS FORM OF THE MESSAGE CAH )@@G@@OMMAND SENDS THE REQUESTED @F@@@@ MESSAGE, BUT ALSO GETS A RAI )@@G@@EPLY FROM THE OPERATOR. YOU @G@@@@ CAN CONTINUE EDITING WHILEAJ )@@G@@ THE OPERATOR IS THINKING OF SOME- @F@@@@ THING TO SAY--YOU WIAK )@@G@@LL GET THE ANSWER WHEN IT IS READY. @G@@@@ HOWEVER, IF YOUR LASAL )@@G@@T MESSAGE REMAINS UNANSWERED WHEN YOU TRY @G@@@@ TO TERMINATE EAM )@@G@@DN, YOU WILL GET A MESSAGE SAYING THAT YOU ARE @G@@@@ WAITING AN )@@G@@ON AN OUTSTANDING CONSOLE MESSAGE. THE OPERATOR ALSO @G@@@@ GEAO )@@G@@TS A MESSAGE ASKING HIM TO ANSWER YOU. YOU WILL TERMINATE @C@@@@ AP )@@G@@ NORMALLY WHEN THE MESSAGE IS NSWERED.@@@@@@@D@@@@ 'REMOTE BREAK' - AQ )@@G@@INTERRUPT FOLLOWED BY A BLANK LINE. @E@@@@ THE TERMINAL USER CAAR )@@G@@N REGAIN CONTROL DURING LONG @F@@@@ SEQUENCES OF PRINTING (AN AS )@@G@@'LD' THAT WAS MISTYPED, FOR @F@@@@ INSTANCE) OR DURING AN ABNAT )@@G@@ORMALLY LONG SPLIT, OR JUST @E@@@@ WHEN SWAPPED OUT BY PRESSIAU )@@G@@NG THE REMOTE BREAK KEY @F@@@@ (CNTRL X, IN SOME CASES). THE SAV )@@G@@YSTEM RESPONDS WITH @F@@@@ 'INTRPT LAST LINE' OR SOME EQUIVAW )@@G@@ALENT MESSAGE. DE- @F@@@@ PRESSING THE CARRIAGE RETURN KEYAX )@@G@@ WITHOUT ENTERING ANY @E@@@@ CHARACTERS SENDS AN INTERRUPT TOAY )@@G@@ EDN. WHEN EDN @G@@@@ RECEIVES THE INTERRUPT, IT SAYS 'INTRPAZ )@@G@@T RECEIVED.', AND AS @F@@@@ SOON AS IT IS SAFE TO DO SO, INTBA )@@G@@ERRUPTS THE CURRENT @E@@@@ COMMAND AND RETURNS CONTROL TO EBB )@@G@@DIT MODE, AFTER @E@@@@ TELLING YOU WHAT LINE YOU ARE AT. IF BC )@@G@@THE MESSAGE,@F@@@@ 'OPERATOR INTRPT.' APPEARS, THE OPERATOR HASBD )@@G@@ II'D YOUR @E@@@@ RUN -- THIS USUALLY MEANS HE WANTS TO GET INBE )@@G@@ TOUCH@^@@@@ WITH YOU. @[@@@@ @G@@@@ IF A REMBF )@@G@@OTE BREAK INTERRUPT OCCURS WHEN EDN IS PROCESSING @F@@@@ INBG )@@G@@PUT AS A RESULT OF AN @ADD CONTROL STATEMENT, THE @E@@@@ REBH )@@G@@MOTE BREAK MESSAGE APPEARS, AND THE REMAINDER OF@E@@@@ THE @ADDBI )@@G@@'D FILE IS DISCARDED, WITH AN APPROPRIATE @#@@@@ MESSAGE.@[@@@@BJ )@@G@@ @G@@@@ INIT THE INIT COMMAND CAUSES EDN TO DISCARD ALL EDITINGBK )@@G@@ DONE SINCE @F@@@@ THE INITIAL CALL ON THE EDITOR. IF THE 'A' BL )@@G@@OPTION WAS @F@@@@ SPECIFIED, SPLIT$ IS NOT RECOVERED. RATHER,BM )@@G@@ THE TEXT @G@@@@ SPECIFIED IN 'SPEC1' IS USED TO REINITIALIZEBN )@@G@@. THIS FEATURE @G@@@@ YOU TO START EDITING AGAIN WITHOUT THEBO )@@G@@ NEED TO TERMINATE VIA @G@@@@ 'END' (OR 'RON' + CONTROL CARD) BP )@@G@@IF TOO MANY ERRONEOUS CHANGES @G@@@@ WERE MADE. LIKEWISE, IF RBQ )@@G@@ECOVERY WAS SPECIFIED AND THE LAST @G@@@@ SAVE WAS NO GOOD BECBR )@@G@@AUSE THE SYSTEM CRASHED WHILE DOING IT, @G@@@@ YOU CAN GO BACBS )@@G@@K TO THE ORIGINAL TEXT WITHOUT RELOADING EDN. @@@@@@@#@@@@ CSF$ PROCESBT )@@G@@SING @F@@@@ CERTAIN EXEC 8 CONTROL STATEMENTS MAY BE SUBMITTEDBU )@@G@@ TO @F@@@@ CSF$ FOR PROCESSING -- THESE INCLUDE FACILITY STATBV )@@G@@EMENTS@E@@@@ AND A FEW OTHERS. REFER TO THE PRM FOR DETAILS. BW )@@G@@@F@@@@ EDN IS INSTRUCTED TO PRESENT A STATEMENT TO CSF$ BY BX )@@G@@@A@@@@ TYPING A COMMAND AS SUCH: @[@@@@ @A@@@@ *CBY )@@G@@OMMAND,OPTIONS SPECS @[@@@@ @F@@@@ THE FORMAT IS THE SABZ )@@G@@ME AS AN ORDINARY CONTROL STATE- @F@@@@ MENT SUBMITTED FROM CA )@@G@@THE RUNSTREAM WITH THE EXCEPTION @F@@@@ OF THE '*' IN COLUMNCB )@@G@@ 1 REPLACING THE '@'. EDN SAYS @E@@@@ 'READY' IF THE STATECC )@@G@@MENT WAS ACCEPTED, OTHERWISE @F@@@@ THE STATUS IS RETURNED. ICD )@@G@@F A STATUS OF '777777777777' @E@@@@ IS RETURNED, EITHER THERE CE )@@G@@IS A SYNTAX ERROR IN THE@F@@@@ STATEMENT, OR THE COMMAND CANNOTCF )@@G@@ BE PROCESSED BY CSF$. @[@@@@ @F@@@@ CC THE COMMAND 'CC' TELCG )@@G@@LS YOU HOW MANY CHARACTERS ARE IN @ @@@@ THE CURRENT LINE. CH )@@G@@@[@@@@ @F@@@@ WHAT 'WHAT' TELLS YOU THE NAME OF YOUR OUTPUT FILCI )@@G@@E (ELEMENT) @ @@@@ IN CASE YOU FORGOT. @[@@@@ @B@@@@ LN CJ )@@G@@ PRINTS THE CURRENT LINE NUMBER. @[@@@@ @C@@@@ NL PRINTS TCK )@@G@@HE CURRENT SIZE OF THE TEXT. @[@@@@ @D@@@@ SC PRINTS THE NUMCL )@@G@@BER OF LINES REMAINING TO EOF.@[@@@@ @F@@@@ TD REPRINTS THE ECM )@@G@@DN CALL LINE, WITH THE CURRENT TIME/DATE. @[@@@@ @G@@@@ CS PRCN )@@G@@INTS A COLUMN NUMBER SCALE. YOU SPECIFY HOW LONG AND AT @G@@@@ CO )@@G@@ WHAT COLUMN YOU WISH IT TO START. NO SPECIFICATION GIVES A @D@@@@CP )@@G@@ A SCALE OF 72 COLUMNS, STARTING AT COLUMN 1.@[@@@@ @F@@@@CQ )@@G@@ TYPE IF A TYPE IS GIVEN, SETS THE SYMBOLIC SUB-TYPE OF THE @F@@@@CR )@@G@@ OUTPUT ELEMENT. IF NO TYPE IS GIVEN, DISPLAYS THE TYPE @F@@@@CS )@@G@@ THAT WILL BE USED WHEN THE OUTPUT IS FILED. MEANINGLESS@C@@@@CT )@@G@@ IF THE OUTPUT IS GOING TO A DATAFILE. @[@@@@ @@@@@@@@@@@@CU )@@G@@@A@@@@ 10. OTHER CONTROL FUNCTIONS @[@@@@ @E@@@@ TAB SECV )@@G@@TS THE CHARACTER SPECIFIED AS THE TAB CHARACTER.@[@@@@ @F@@@@ SET CW )@@G@@ ACCEPTS UP TO TEN NUMERIC FIELDS -- SETS TAB STOPS. @D@@@@ CX )@@G@@ TABS ARE ACTIVE ON THE FOLLOWING COMMANDS: @F@@@@ 'I', 'R'CY )@@G@@, 'IB', 'A', 'S', AND THE CORRESPONDING HOLD @E@@@@ COMMANDSCZ )@@G@@, IF THE CURRENT TAB CHARACTER IS IN THE @^@@@@ HELD LINE. DA )@@G@@@[@@@@ @G@@@@ THE DEFAULT TAB CHARACTER IS ';'. THE DEFAUDB )@@G@@LT SETTINGS ARE @^@@@@ 11, 21, 37. @@@@@@@E@@@@ PON TUDC )@@G@@RN ON PROMPT MODE. SAME EFFECT AS 'P' OPTION. @F@@@@ INPUT TODD )@@G@@ EDN IS SOLICITED WITH THE CURRENT POSITION OF @F@@@@ THE LINEDE )@@G@@ POINTER. THE NUMBER IS AFFIXED WITH A ':' IF @E@@@@ IN EDIT DF )@@G@@MODE, AND WITH A '*' IF IN INPUT MODE. @@@@@@@A@@@@ POFF TURN OFFDG )@@G@@ PROMPT MODE. @@@@@@@A@@@@ RON TURN ON THE 'R' OPTION. @@@@@@DH )@@G@@@A@@@@ ROFF TURN OFF THE 'R' OPTION. @[@@@@ @E@@@@ TCHA SEDI )@@G@@T THE TRANSPARENT CHARACTER FOR THE 'A' AND 'S' @E@@@@ COMMANDSDJ )@@G@@. THE TRANSPARENT CHARACTER FOR 'AH' IS @C@@@@ BLANK (' '), ADK )@@G@@ND IS UNCHANGEABLE. @[@@@@ @F@@@@ TCHF SET THE TRANSPARENT DL )@@G@@CHARACTER FOR THE 'F' COMMANDS. @C@@@@ IT IS INITIALLY THE DM )@@G@@'AT' SIGN ('@'). @[@@@@ @E@@@@ TCHC SPECIFY THAT A TRANSPARENTDN )@@G@@ CHARACTER IS TO BE USED@F@@@@ ON THE 'C' COMMAND, AND SET IT TDO )@@G@@O THE CHARACTER GIVEN. @[@@@@ @E@@@@ TCHCX TURN OFF USE OF THE DP )@@G@@TRANSPARENT CHARACTER FOR 'C'.@[@@@@ @F@@@@ TCHL SPECIFY THAT TDQ )@@G@@HE TRANSPARENT CHARACTER FOR 'F' COMMANDS @B@@@@ IS TO BE USED DR )@@G@@FOR 'L' COMMANDS. @[@@@@ @E@@@@ TCHLX DISCONTINUE USE OF A TRANSDS )@@G@@PARENT CHARACTER FOR 'L'@^@@@@ COMMANDS. @[@@@@ @F@@@@DT )@@G@@ MSP SET THE CHARACTER TO BE TRANSLATED TO '@' IF APPEARING @G@@@@DU )@@G@@ IN COLUMN 1 IN A LINE ENTERED IN INPUT MODE. INITIALLY '.'. DV )@@G@@@[@@@@ @ @@@@ BR SET BRIEF MODE. @[@@@@ @C@@@@ V DW )@@G@@ SET VERIFY MODE -- NORMAL PRINTING. @[@@@@ @E@@@@ SQON SEDX )@@G@@T SQUEEZE MODE -- NONSIGNIFICANT BLANKS ARE @C@@@@ SQUEEZEDDY )@@G@@ OUT OF LINES TO BE PRINTED. @[@@@@ @B@@@@ SQOFF TURN OFF THE 'DZ )@@G@@SQON' COMMAND. @[@@@@ @F@@@@ LNON LINE NUMBERING MODE -- PREEA )@@G@@FIX EACH LINE PRINTED WITH @ @@@@ ITS LINE NUMBER. @[@@@@EB )@@G@@ @C@@@@ LNOFF TURNS OFF 'LNON' LINE NUMBERING MODE. @[@@@@ EC )@@G@@@G@@@@ COL ACCEPTS TWO NUMERIC FIELDS. THE FIRST DEFINES THE COLUMED )@@G@@N @G@@@@ POSITION TO START SCANNING FOR ALL 'L' AND THE 'C'EE )@@G@@ COMMANDS. @F@@@@ THE SECOND FIELD SETS THE COLUMN NUMBER AT WEF )@@G@@HICH TO @G@@@@ STOP THE SCAN. IF EITHER FIELD IS OMITTED, EG )@@G@@THE CORRESPONDING @A@@@@ PARAMETER IS UNCHANGED. @[@@@@ EH )@@G@@@F@@@@ IDLE ALLOWS THE USER TO LEAVE THE TERMINAL FOR A FEW MOMENTS EI )@@G@@@G@@@@ WITHOUT FEAR OF TIMING OUT AND LOSING HIS WORK. ANY LINEJ )@@G@@E IN- @D@@@@ PUT OR @EOF WILL RETURN EDN TO EDIT MODE. @[@@@@EK )@@G@@ @E@@@@ PLM SETS THE MAXIMUM NUMBER OF WORDS TO PRINT WHEN A EL )@@G@@@A@@@@ LINE IS TO BE PRINTED. @[@@@@ @G@@@@ SAV SPEM )@@G@@ECIFIES THE MAXIMUM WORD SIZE TO WHICH A LINE MAY EXPAND @ @@@@ EN )@@G@@ DURING EDITING. @@@@@@@#@@@@ 11. NOTES @@@@@@@F@@@@ EO )@@G@@ A. EDN PROVIDES ERROR RECOVERY FOR CSF$ SYNTAX ERRORS, ALL @G@@@@ EP )@@G@@ SYMBIONT ERRORS, AND NON-CRITICAL I/O ERRORS, FOR INSTANCE, @F@@@@EQ )@@G@@ ON THE FILE 'SPLIT$'. SHOULD EDN ENCOUNTER AN ERROR @F@@@@ER )@@G@@ FROM WHICH IT CANNOT RECOVER, EDITING IS TERMINATED IM- @G@@@@ES )@@G@@ MEDIATELY WITHOUT FILING ANY CHANGES. THE NAME OF THE LAST ET )@@G@@@G@@@@ INPUT SCRATCH FILE IS DISPLAYED, HOWEVER, AND ALL CHANGEEU )@@G@@S UP @G@@@@ TO*[@@@@*SDFF*@]@@@@*FURPRC @^@@@@-1 EV )@@G@@ FURPRC @]@@@@MCORE* EQU 1@^@@@@-26 FURPRC @^@@@@ EW )@@G@@ CHAR '!',077 @]@@@@*COPOUT @^@@@@-21,21 COPOUT @ @@@@EX )@@G@@ L,U A15,02036 @^@@@@-24,24 COPOUT @ @@@@ EY )@@G@@ L,U A15,02037 @^@@@@-28 COPOUT @D@@@@ ANEZ )@@G@@,U A15,02000 . REMOVE X-OPT @^@@@@-32 COPOUT FA )@@G@@@B@@@@ ON MCORE . @B@@@@ L,U FB )@@G@@ A0,LASTD$ . @B@@@@ A,U A0,BUFLEN . FC )@@G@@@B@@@@ ER MCORE$ . @^@@@@ OFF FD )@@G@@ . @^@@@@-424 COPOUT @ @@@@ L A0,TSWPMSGFE )@@G@@@ @@@@ ER PRINT$ @[@@@@*COPYI@#@@@@-12,12 COPYIFF )@@G@@@ @@@@ L,U A15,02032 @#@@@@-19 COPYI@B@@@@ FG )@@G@@ ON MCORE . @B@@@@ L,U A0,LASTD$ FH )@@G@@ . @B@@@@ A,U A0,BBLOCK . @B@@@@ FI )@@G@@ ER MCORE$ . @^@@@@ OFF . @#@@@@FJ )@@G@@-113 COPYI@B@@@@ DL A0,('COPIED ') . @B@@@@FK )@@G@@ DS A0,TALK . @#@@@@-174,175 COPYI@C@@@@FL )@@G@@ L,XU A0,0775416 . SDF EOR @ @@@@ TE,T1 FM )@@G@@ A0,LABEL+1@#@@@@-176 COPYI@D@@@@ L,U A0,14 FN )@@G@@ . 14 WORD RECORD@C@@@@ TE,H2 A0,DRPKT+2 . WAFO )@@G@@S IT? @B@@@@ J NONEOR . NO@#@@@@-178 FP )@@G@@ COPYI@A@@@@ L A0,TSWPMSG . @B@@@@ ER FQ )@@G@@ PRINT$ . TELL USER @]@@@@*ENABLE @^@@@@-9,9 ENABLE FR )@@G@@@ @@@@ L,U A15,02513 @^@@@@-35 ENABLE @B@@@@FS )@@G@@ DL A0,('ENABLED! ') @F@@@@ DS A0,TFT )@@G@@ALK . SPEAK TO ME, FURPUR BABY @[@@@@*COPIN@#@@@@-35 FU )@@G@@ COPIN@C@@@@ A,U A14,02000 . X-OPTION@#@@@@-38 FV )@@G@@ COPIN@B@@@@ ON MCORE . @B@@@@ FW )@@G@@ L,U A0,LASTD$ . @B@@@@ A,U A0,BUFLEN FX )@@G@@ . @B@@@@ ER MCORE$ . @^@@@@ FY )@@G@@ OFF . @#@@@@-415,416 COPIN@C@@@@ L,XU A0,0FZ )@@G@@775416 . SDF EOR @C@@@@ TE,T1 A0,EORBLK+1 . EOGA )@@G@@T? @#@@@@-417 COPIN@E@@@@ L,U A0,14 GB )@@G@@ . 14 WORD RECORD ONLY @C@@@@ TE,H2 A0,DRPKT+2 . WAGC )@@G@@S IT? @C@@@@ J NONEOR . NOPE @#@@@@-419 GD )@@G@@ COPIN@B@@@@ L A0,TSWPMSG . TELL USER@ @@@@ GE )@@G@@ ER PRINT$ .@[@@@@*COPYP@#@@@@-10 COPYP@B@@@@ GF )@@G@@ SZ A6 . @B@@@@ SZ HWMNY GG )@@G@@ . @B@@@@ DS A6,A7 . @#@@@@-11 GH )@@G@@ COPYP@B@@@@ L A0,WCT+1 . @D@@@@ GI )@@G@@ TOP,U A0,1*/('Z'-'V') . V OPTION ON? @B@@@@ J GJ )@@G@@ PAC1 . NO@C@@@@ DL A0,WCT+13 . VEGK )@@G@@RSION @E@@@@ DS A0,INVER . SAVE INPUT VERSION GL )@@G@@@D@@@@ S A0,VOPT . SET A FLAG @D@@@@ GM )@@G@@ DL A0,VERS . OUTPUT VERSION@B@@@@ DS GN )@@G@@ A0,OVER . @#@@@@-22,22 COPYP@]@@@@PAC1 . @B@@@@GO )@@G@@ ON MCORE . @B@@@@ L,U A0,LGP )@@G@@ASTD$ . @B@@@@ A,U A0,BUFLEN . @B@@@@GQ )@@G@@ ER MCORE$ . @^@@@@ OFF . GR )@@G@@@D@@@@ L A0,WCT+1 . GET OPTIONS @E@@@@ GS )@@G@@ AND A0,(-(1*/('Z'-'X'))) . MASK OUT X OPTION@D@@@@ S GT )@@G@@ A1,WCT+1 . AND RESTORE @E@@@@ DL A0,WGU )@@G@@CT+2 . INPUT FILE NAME @#@@@@-32 COPYP@D@@@@ GV )@@G@@ L,H2 A0,FCTA+21 . LENGTH OF EPT @B@@@@ S GW )@@G@@ A0,PREPIT . @#@@@@-89 COPYP@B@@@@ S GX )@@G@@ A3,HWMNY . @#@@@@-98 COPYP@B@@@@ SZ GY )@@G@@ HWMNY . @B@@@@ L A3,LIMIT . GZ )@@G@@@#@@@@-103 COPYP@B@@@@ SZ HWMNY . HA )@@G@@@#@@@@-153,153 COPYP@D@@@@ DL A3,OVER . OUHB )@@G@@TPUT VERSION@B@@@@ JZ A3,NOSWAP . @B@@@@ HC )@@G@@ TE A3,(' ') . @D@@@@ DS A3,4,A1 HD )@@G@@ . INTO OUTPUT @ @@@@NOSWAP LMJ X11,ETIA @#@@@@-161,1HE )@@G@@61 COPYP@D@@@@ J DONE . EMPTY PF HF )@@G@@@#@@@@-276,276 COPYP@E@@@@DONE TZ COPU . ISHG )@@G@@ THIS A COPYU? @F@@@@ J RETURN . YES, GO HH )@@G@@BACK TO THERE @D@@@@ TNZ PAK . IS THIS HI )@@G@@A PACK@C@@@@ J AROUND . YES @B@@@@ HJ )@@G@@ LMJ X11,ELMCPY . NO@B@@@@ SZ TALK HK )@@G@@ . @B@@@@ J ALGONE . @B@@@@AROUNDHL )@@G@@ DL A0,('PACKED ') . @B@@@@ DS A0,TALK HM )@@G@@ . @B@@@@ALGONE DSL A0,72 . @B@@@@ HN )@@G@@ DS A0,INVER . @B@@@@ DS A0,OVER HO )@@G@@ . @B@@@@ SZ VOPT . @B@@@@ HP )@@G@@ J ZOVER . @#@@@@-330,330 COPYP@ @@@@ HQ )@@G@@ JZ A1,COUNTIT@#@@@@-332,333 COPYP@D@@@@ TEP,U HR )@@G@@ A1,1*/('Z'-'P') . P OPTION? @B@@@@ J COUNTIT HS )@@G@@ . @#@@@@-337,337 COPYP@F@@@@ J COUNTIT HT )@@G@@ . WE ARE TO COPY SOURCE @#@@@@-341,341 COPYP@G@@@@ HU )@@G@@ J COUNTIT . WE ARE TO COPY RELOCATABLE @#@@@@HV )@@G@@-345,345 COPYP@F@@@@ J COUNTIT . COPY DHW )@@G@@ATA EXIT - $+1 @#@@@@-349,349 COPYP@]@@@@COUNTIT . @D@@@@ HX )@@G@@ TNZ VOPT . V OPTION? @D@@@@ J HY )@@G@@ RESUME . NO, CONTINUE @E@@@@ DL A3,4,A0 HZ )@@G@@ . YES, CHECK VERSIONS @B@@@@ DTE A3,INVER IA )@@G@@ . @B@@@@ J SKIPN . @B@@@@RESUME L,IB )@@G@@S3 A2,3,A0 . @B@@@@ TZ HWMNY IC )@@G@@ . @B@@@@ J TEST . @D@@@@ TLID )@@G@@E,U A2,5 . SYMBOLIC? @C@@@@ A,U A7,1IE )@@G@@ . YES @D@@@@ TNE,U A2,5 . REIF )@@G@@LOCATABLE? @C@@@@ A,U A8,1 . YES @D@@@@IG )@@G@@ TNE,U A2,6 . ABSOLUTE? @B@@@@ A,IH )@@G@@U A6,1 . @B@@@@ J TEST II )@@G@@ . @[@@@@$(0) @#@@@@-352 COPYP@^@@@@HWMNY + 0 IJ )@@G@@@#@@@@-353 COPYP@B@@@@INVER + 0D . IK )@@G@@@B@@@@OVER + 0D . @B@@@@VOPT + IL )@@G@@ 0 . @B@@@@HGA + 0 . IM )@@G@@@]@@@@*DELETE @^@@@@-1 DELETE @^@@@@ FURPRC IN )@@G@@ . @^@@@@-4,4 DELETE @^@@@@-11,12 DELETE @E@@@@IO )@@G@@ L,U A15,0713 . ASSIGN WITH AYD @D@@@@ IP )@@G@@ TZ WCT+1 . ANY OPTIONS? @^@@@@-14,14 DELETIQ )@@G@@E @F@@@@ S A15,MLTSPC . SET MULTIPLE SPEC IR )@@G@@FIELD @^@@@@-16,17 DELETE @D@@@@ TZ WCT+1 IS )@@G@@ . ANY OPTIONS?@G@@@@ J DEL1 . YEIT )@@G@@S, MUST BE ELEMENT DELETE @^@@@@-23,25 DELETE @E@@@@ IU )@@G@@ JP A0,OK . FREE,D WAS DONE O.K.@E@@@@ L IV )@@G@@ A0,(3,FREEWI) . IF NOT, TRY FREE,I @G@@@@ ER IW )@@G@@ CSF$ . IN CASE FILE WAS ASG,C OR ASG,U @F@@@@ JNIX )@@G@@ A0,TSTWHY . PRINT DUMB ERROR MESSAGE @ @@@@OK SZIY )@@G@@ TSTASG @B@@@@ DL A0,('FILE DELETED') . @B@@@@IZ )@@G@@ DS A0,TALK . @F@@@@ J ZOVEJA )@@G@@R . FILE IS ALLREADY FREE'D @^@@@@-58 DELETE JB )@@G@@@B@@@@ ON MCORE . @B@@@@ L,U JC )@@G@@ A0,LASTD$ . @B@@@@ A,U A0,BUFLEN . JD )@@G@@@B@@@@ ER MCORE$ . @^@@@@ OFF JE )@@G@@ . @^@@@@-76 DELETE @B@@@@ DL A0,('DELETJF )@@G@@ED! ') . @B@@@@ DS A0,TALK . @^@@@@-119 JG )@@G@@ DELETE @ @@@@FREEWI '@FREE,I $FILEA' @[@@@@*DIAGI@#@@@@JH )@@G@@-2 DIAGI@^@@@@ FURPRC . @#@@@@-6 DIAGIJI )@@G@@@B@@@@ L,U A5,' ' . @D@@@@ EX JJ )@@G@@ STORE,*A1 . SKIP A SPACE @#@@@@-10 DIAGI@I@@@@ JK )@@G@@ SZ KEYS . NEVER PRINT KEYS *********************JL )@@G@@** @B@@@@ SZ KEYS+1 . @#@@@@-28,28 JM )@@G@@ DIAGI@E@@@@ L,S1 A7,3,X3 . SAVE STATUS IN A7 JN )@@G@@@#@@@@-100,103 DIAGI@D@@@@E1 ' END OF FILE DETECTED ON MAGNEJO )@@G@@TIC TAPE.' @C@@@@E2 ' HARDWARE END OF TAPE FOR WRITE,' @C@@@@JP )@@G@@ ' MOVE BACKWARD REACHED LOAD POINT.' @E@@@@E4 ' INCOMJQ )@@G@@PLETE TAPE BLOCK READ, WORDS READ,'@#@@@@-105,105 DIAGI@D@@@@JR )@@G@@E5 ' MASS STORAGE READ OF UNASSIGNED AREA.' @#@@@@-107,110 JS )@@G@@ DIAGI@G@@@@E12 ' TAPE LOSS OF POSITION OR ANSWER OF B TO CONSOLEJT )@@G@@ MESSAGE.' @D@@@@E20 ' WRITE ATTEMPTED ON WRITE-INHIBITED FILE.'JU )@@G@@@D@@@@ ' READ ATTEMPTED ON READ-INHIBITED FILE.' @F@@@@E22 JV )@@G@@ ' ATTEMPT TO WRITE IN UNASSIGNED AREA OF MASS STORAGE.'@[@@@@*FIND JW )@@G@@@#@@@@-35 FIND @B@@@@ DL A0,('FOUND ') JX )@@G@@@F@@@@ DS A0,TALK . SET UP MESSAGE FOR DEMAND USER JY )@@G@@@#@@@@-55,55 FIND @A@@@@ NOP . WHO CARES? @E@@@@JZ )@@G@@ L,U A0,051 . BACKSPACE AGAIN @F@@@@ KA )@@G@@ LMJ X11,INOUT . TO GET BACK INTO POSITION @D@@@@ KB )@@G@@ NOP . DON'T CARE ABOUT STATUS, REALLY @#@@@@-83 FIND KC )@@G@@@B@@@@ DL A0,('MARKED ') . @D@@@@ DS KD )@@G@@ A0,TALK . MESSAGE FOR DEMAND USE @#@@@@-115 FIND @B@@@@ KE )@@G@@ DL A0,('CLOSED ') . @ @@@@ DS A0,TALK .KF )@@G@@@B@@@@ L,XH2 A0,WCT+1 . @B@@@@ J KG )@@G@@ AROUND . @#@@@@-117,117 FIND @B@@@@ DL KH )@@G@@ A1,('REWOUND! ') . @ @@@@ DS A1,TALK .@ @@@@AROUNDKI )@@G@@ JP A0,$+5 @#@@@@-122,122 FIND @E@@@@ L KJ )@@G@@ A0,WCT+1 . GET OPTION BITS @D@@@@ TOP,U A0,1KK )@@G@@*/('Z'-'R') . R-OPTION ON? @E@@@@ J TINTL KL )@@G@@ . NO, DO A TINTL$ @E@@@@ L,U A0,REW$ . YEKM )@@G@@S, DO A REAL REW$ @C@@@@ LMJ X11,INOUT . DO IT KN )@@G@@@C@@@@ J ZOVER . NORMAL @D@@@@ LMKO )@@G@@J X11,EXIT . REW$ FAILED!? @ @@@@TINTL L,U A0,WKP )@@G@@CT+2 @#@@@@-127,128 FIND @A@@@@ L A0,('MOVED ') . KQ )@@G@@@A@@@@ L,H1 A1,WCT+20 . @ @@@@ LSSL A1,1KR )@@G@@8 .@A@@@@ A A1,('@@@ ') @ @@@@ DS KS )@@G@@ A0,TALK .@C@@@@ L A0,WCT+1 . OPTIONS @D@@@@KT )@@G@@ TEP,U A0,1*/('Z'-'R') . R-OPTION? @E@@@@ J KU )@@G@@ MOVER . YES, MOVE RECORD @F@@@@ JGD KV )@@G@@ A2,$+2 . IF ZERO OR LESS, DONT MOVE@B@@@@ J KW )@@G@@ ZOVER . @#@@@@-149,151 FIND @E@@@@MOVER JGD KX )@@G@@ A2,WIDIT . MOVER - MOVE RECORDS@E@@@@ J ZOVEKY )@@G@@R . ZERO OR LESS, RETURN@C@@@@WIDIT SZ TALK KZ )@@G@@ . SHUT UP @E@@@@ S A2,R1 . SAVE MOVLA )@@G@@E COUNT @C@@@@WHIRR L,T1 A1,WCT+1 . OPTIONS @F@@@@LB )@@G@@ L,U A0,MF$ . PREPARE TO MOVE FORWARD @B@@@@LC )@@G@@ JNB A1,$+2 . @E@@@@ L,U A0,MLD )@@G@@B$ . B - OPTION WAS ON @C@@@@ LMJ X11,INOUT LE )@@G@@ . DOIT @E@@@@ JZ A0,FARBLE . ZERO STALF )@@G@@TUS GO ON @D@@@@ TNE,U A0,4 . ALLOW AFC LG )@@G@@@B@@@@ J FARBLE . @E@@@@ TE,U LH )@@G@@ A0,1 . NOT EOF, BOMB OFF @C@@@@ LMJ X11,LI )@@G@@EXIT . BOOM @D@@@@ L A0,R1 . GELJ )@@G@@T MOVE COUNT@E@@@@ AN A0,A2 . LESS HOW FAR WLK )@@G@@E GOT @C@@@@ SLJ BTBCD1 . CONVERT @E@@@@ LL )@@G@@ S A3,MVMES+1 . STICK IN MESSAGE @B@@@@ L LM )@@G@@ A0,(0104,MVMES) . @^@@@@ ER PRINT$ . @B@@@@ LN )@@G@@ J ZOVER . @D@@@@FARBLE JGD A2,WHIRR LO )@@G@@ . COUNT DOWN @D@@@@ L A1,WCT+20 . FDLP )@@G@@ MOVE COUNT @B@@@@ S A1,MVMES+1 . @A@@@@ LQ )@@G@@ L A0,(0102,MVMES) @B@@@@ ER PRINT$ LR )@@G@@ . @C@@@@ J ZOVER . RETURN @C@@@@TSTEORLS )@@G@@ L,XU A0,0775416 . SDF EOR @ @@@@ TE,T1 A0,BLT )@@G@@UFFER @D@@@@ J NOFIND . NO MORE REELS @D@@@@LU )@@G@@ L,U A0,14 . 14 WORD RECORD@C@@@@ TELV )@@G@@,H2 A0,PKT+2 . WAS IT? @C@@@@ J NOFIND LW )@@G@@ . NOPE @#@@@@-153 FIND @A@@@@ L A0,TLX )@@G@@SWPMSG . @ @@@@ ER PRINT$ .@#@@@@-157 FIND LY )@@G@@@C@@@@ TNE,U A0,04 . AFC? @B@@@@ J LZ )@@G@@ JGD . @#@@@@-169,169 FIND @C@@@@TST1 MA )@@G@@ L,XU A0,0775416@#@@@@-171 FIND @D@@@@ MB )@@G@@ L,U A0,14 . 14 WORD RECORD@C@@@@ TE,H2 MC )@@G@@ A0,PKT+2 . WAS IT? @C@@@@ J TST2 MD )@@G@@ . NOPE @#@@@@-173 FIND @A@@@@ L A0,TSWPMSGME )@@G@@ . @ @@@@ ER PRINT$ .@#@@@@-178,178 FIND @#@@@@MF )@@G@@-180,180 FIND @A@@@@MVMES 'MOVED XXXXXX AT EOF!' @[@@@@*PCH MG )@@G@@@#@@@@-16,16 PCH @B@@@@ ON MCORE . MH )@@G@@@B@@@@ L,U A0,LASTD$ . @B@@@@ A,U MI )@@G@@ A0,BUFLEN . @B@@@@ ER MCORE$ . MJ )@@G@@@^@@@@ OFF . @E@@@@ L A0,(0220000600) MK )@@G@@ . A, D, R OR S OPTIONS@#@@@@-30,30 PCH @B@@@@ SZ ML )@@G@@ DATAFILE . @D@@@@ L A0,WCT+1 . GEMM )@@G@@T OPTIONS @E@@@@ TOP A0,(1*/('Z'-'D')) . IS D-OPTION ONMN )@@G@@? @B@@@@ J NORM . NO@C@@@@ S MO )@@G@@ A0,DATAFILE . YES @E@@@@ SZ DRPKT+5 MP )@@G@@ . YES, PUNCH DATA FILE@B@@@@ SZ COUNT MQ )@@G@@ . @B@@@@ L,U A0,BLOCK . @B@@@@ S MR )@@G@@ A0,REMAIN . @D@@@@ L,H1 A0,FACPAC+9 MS )@@G@@ . HIGHEST TRACK @E@@@@ A,U A0,1 . TO NUMBEMT )@@G@@R OF TRACKS @E@@@@ LSSL A0,6 . CONVERT TO SECMU )@@G@@TORS @B@@@@ S A0,LIMIT . @B@@@@ J MV )@@G@@ DATA . @B@@@@NORM L A1,(ELTAB,TLENG1MW )@@G@@) @#@@@@-39,39 PCH @ @@@@DATA SLJ SPACEB @#@@@@MX )@@G@@-41 PCH @D@@@@ TNZ DATAFILE . DATA FILMY )@@G@@E? @B@@@@ J LOOPUN . NO@D@@@@ L MZ )@@G@@ A0,BLOCK+1 . GET LABLE @D@@@@ TE A0,(NA )@@G@@'*SDFF*') . IS IT SDF? @C@@@@ J NOTSDF NB )@@G@@ . NOPE @#@@@@-54 PCH @B@@@@ TZ DATAFILE NC )@@G@@ . @G@@@@ J WANT . IGNORE CYCLES ND )@@G@@FOR DATAFILES @#@@@@-334,335 PCH @B@@@@PCH7 DL A0,(NE )@@G@@'PUNCHED! ') . @B@@@@ DS A0,TALK . @B@@@@NF )@@G@@ J ZOVER . @#@@@@-537 PCH @B@@@@NG )@@G@@NOTSDF L A3,(DL28,DMSG28) . @B@@@@ L,U A2,DNH )@@G@@ERR3 . @B@@@@ J ZABORT . @]@@@@NI )@@G@@$(0) . @#@@@@-573 PCH @B@@@@DATAFILE + 0 NJ )@@G@@ . @[@@@@*PREP @#@@@@-15,15 PREP @ @@@@ L,U NK )@@G@@ A15,02037 @#@@@@-18,18 PREP @B@@@@ ON MCORE NL )@@G@@ . @B@@@@ L,U A0,LASTD$ . @B@@@@ NM )@@G@@ A,U A0,BUFLEN . @B@@@@ ER MCORE$ NN )@@G@@ . @^@@@@ OFF . @B@@@@UPREP* L A1,(NO )@@G@@BUFFER,TABSIZ) @#@@@@-85,85 PREP @E@@@@ TZ COPUNP )@@G@@ . IS THISFROM COPY,U? @C@@@@ J PREPRET NQ )@@G@@ . YES @B@@@@ DL A0,('PREPARED! ') . @B@@@@NR )@@G@@ DS A0,TALK . @F@@@@ J ZOVENS )@@G@@R . EXIT TO FUR/PUR CONTROL @#@@@@-100,100 PREP @ @@@@NT )@@G@@ L,U A15,02037 @#@@@@-121,121 PREP @D@@@@ JNNU )@@G@@ A2,DONE . FINISHED. @#@@@@-138,138 PREP @D@@@@NV )@@G@@ JN A2,DONE . FINISHED. @#@@@@-141 NW )@@G@@ PREP @B@@@@DONE DL A0,('ERASED ') . @B@@@@ DSNX )@@G@@ A0,TALK . @ @@@@ J ZOVER @]@@@@NY )@@G@@*FURPURMAP @^@@@@-10 FURPURMAP @^@@@@SEG COPYQ*,(FURPUR) NZ )@@G@@@]@@@@IN COPYQ @]@@@@IN GETUSE @#@@@@SEG PACK*,(FURPUR)@]@@@@IN PACOA )@@G@@KX @^@@@@-12 FURPURMAP @^@@@@SEG PRTTD*,(FURPUR) @]@@@@OB )@@G@@IN PRTTD @^@@@@-41,41 FURPURMAP @#@@@@SEG DIAGZ,(FURPUR)@^@@@@OC )@@G@@-44 FURPURMAP @E@@@@SEG BUFF,(PREP,COPIN,COPYP,PRTT,PRTTD,PCH,OD )@@G@@COPYI,COPY,PRT,; @D@@@@ PRTG,PRTG,ENABLE,PRTF,CHG,COPYF,CYCLE,DIAGZ,DIOE )@@G@@AGIO) @]@@@@ IN BUFFER @]@@@@*FURPUR @^@@@@-12,12 FURPUR OF )@@G@@@^@@@@. * 100 USE Y-OPTION @^@@@@. * 200 USE D-OPTION @A@@@@. * 40OG )@@G@@0 FILE MUST BE CATALOGUED @^@@@@. * 1000 USE Q-OPTION @^@@@@. * 20OH )@@G@@00 USE X-OPTION @A@@@@LEVEL 'FURPUR 025F-MM/DD-HR:MN' @^@@@@-16,18OI )@@G@@ FURPUR @F@@@@ L,U A0,FREEA . FREE $FIOJ )@@G@@LEA AND $FILEB @G@@@@ ER CSF$ . TO PREVEOK )@@G@@NT HORRIBLE PROBLEMS @B@@@@ L,U A0,FREEB . OL )@@G@@@B@@@@ ER CSF$ . @B@@@@ L,U OM )@@G@@ A0,BUFF . @B@@@@ L,U A1,0 . ON )@@G@@@B@@@@ ER LOAD$ . @B@@@@ S OO )@@G@@ A4,STRA4 . @F@@@@ TE,U A4,4 . ISOP )@@G@@ THIS A DEMAND RUN? @D@@@@ SZ DEMAND . NOOQ )@@G@@, CLEAR FLAG@B@@@@ S R1,STRR1 . @B@@@@ OR )@@G@@ S R2,STRR2 . @^@@@@-69 FURPUR @E@@@@OS )@@G@@ DS A0,TALK . WIPE OUT ANY GARBAGE@^@@@@-120,1OT )@@G@@20 FURPUR @]@@@@EXIT* . @B@@@@ ON MCORE OU )@@G@@ . @B@@@@ L,U A0,LASTD$ . @B@@@@ OV )@@G@@ ER LCORE$ . @^@@@@ OFF . @B@@@@OW )@@G@@ SLJ FREASG . @^@@@@-123,123 FURPUR OX )@@G@@@^@@@@-138,138 FURPUR @B@@@@ ON MCORE OY )@@G@@ . @B@@@@ L,U A0,LASTD$ . @B@@@@ EROZ )@@G@@ LCORE$ . @^@@@@ OFF . @^@@@@-142,1PA )@@G@@42 FURPUR @B@@@@ TZ A0 . @^@@@@PB )@@G@@-143 FURPUR @B@@@@ L A4,STRA4 . PC )@@G@@@D@@@@ TNE,U A4,4 . TEST IF DEMAND@B@@@@ PD )@@G@@ L A0,TALK . @F@@@@ JZ A0,BEG0 PE )@@G@@ . NOTHING TO SAY, GO AWAY @B@@@@ L A0,(0102,TPF )@@G@@ALK) . @D@@@@ ER PRINT$ . PRINT MESSAGE PG )@@G@@@E@@@@ SZ TALK . WIPE OUT OLD MESSAGE@B@@@@PH )@@G@@ SZ TALK+1 . @C@@@@ J BEG0PI )@@G@@ . RETURN @^@@@@-219,219 FURPUR @^@@@@-221,226 PJ )@@G@@ FURPUR @^@@@@-243,243 FURPUR @^@@@@-245,245 FURPUR PK )@@G@@@B@@@@ L,U A0,1*/('Z'-'U') . @D@@@@ TOP PL )@@G@@ A0,WCT+1 . U-OPTION ON? @B@@@@ J HERE PM )@@G@@ . NO@A@@@@ L,U A0,1*/('Z'-'P') @E@@@@ S PN )@@G@@ A0,WCT+1 . YES, FAKE A P-OPTION@ @@@@ J PO )@@G@@ COPYQ @ @@@@HERE L A0,WCT+1 @^@@@@-254,254 FURPUPP )@@G@@R @E@@@@ LN A0,(0200042620) . ALLOW P,A,R,S,L,V PQ )@@G@@@^@@@@-258,258 FURPUR @E@@@@ TOP A0,WCT+1 PR )@@G@@ . CHECK IF P OPTION @C@@@@ J NOTP . NOPS )@@G@@PE @^@@@@-259 FURPUR @D@@@@ L A0,WCT+1 PT )@@G@@ . GET OPTIONS @D@@@@ TEP,U A0,1*/('Z'-'V') . PVPU )@@G@@ OPTIONS? @F@@@@ S,H2 A0,PTBSW . YES, SET SPECIPV )@@G@@AL FLAG @[@@@@NOTP .@^@@@@-261 FURPUR @D@@@@ A,PW )@@G@@U A15,02000 . SET X-OPT @^@@@@-263,264 FURPUR PX )@@G@@@B@@@@ L A0,WCT+1 . @D@@@@ TEP,U PY )@@G@@ A0,1*/('Z'-'P') . P OPTION? @^@@@@-266,266 FURPUR @D@@@@PZ )@@G@@ TZ WCT+11 . ELEMENT NAME? @C@@@@ J QA )@@G@@ COPYE . YES @B@@@@ J COPYP QB )@@G@@ . NO@A@@@@PACKX LN A0,(0200000604) @^@@@@-268,271 QC )@@G@@ FURPUR @D@@@@ L,U A15,02037 . REQUIRE X-OPT QD )@@G@@@ @@@@ LMJ X9,UNPACK @C@@@@ L A0,WCT+1 QE )@@G@@ . OPTIONS @D@@@@ TEP,U A0,1*/('Z'-'X') . X OPTIONQF )@@G@@ ON? @^@@@@ J PACK@E@@@@ J PACKXX QG )@@G@@ . NO, USE NEW PACK @^@@@@-273,280 FURPUR @F@@@@ QH )@@G@@ L A1,WCT+1 . CHECK IF ONLY 'T' OPTOIN @D@@@@ QI )@@G@@ TEP A1,(0400000) . I-OPTION? @D@@@@ J QJ )@@G@@ PRTI . YES, PRTI @D@@@@ TEP,U A1,0100 QK )@@G@@ . T OPTION ON? @B@@@@ J TESTBD . QL )@@G@@@A@@@@ TNE A1,(04000000) @^@@@@-282,282 FURPUR QM )@@G@@@ @@@@ TNE,U A1,0200 @^@@@@-289,289 FURPUR @F@@@@QN )@@G@@ J ERR . TURN OFF FULL-BLOWN PRT @^@@@@QO )@@G@@-290 FURPUR @D@@@@TESTBD AND A1,(-(1*/('Z'-'T')+1*/QP )@@G@@('Z'-'L'))) @ @@@@ JZ A2,PRTT @ @@@@ J QQ )@@G@@ PRTTD @^@@@@-292,292 FURPUR @E@@@@REWINX LN A0,(QR )@@G@@0400400) . I, R OR NO OPTIONS @^@@@@-300,300 FURPUR @F@@@@QS )@@G@@PCHX LN A0,(0223200600) . A,D,G,H,J,R,S OPTIONS @^@@@@QT )@@G@@-306 FURPUR @D@@@@ L A2,WCT+1 . GEQU )@@G@@T OPTIONS @B@@@@ TOP A2,(1*/('Z'-'D')) . @^@@@@-330,3QV )@@G@@30 FURPUR @D@@@@MOVEX LN A0,(0100000400) . B AND R QW )@@G@@OPTION@^@@@@-431 FURPUR @D@@@@ TZ PTBSW QX )@@G@@ . SPECIAL PRT?@C@@@@ J EQCHK . QY )@@G@@YUP @^@@@@-444,444 FURPUR @F@@@@EQCHK SZ PTBSW QZ )@@G@@ . CLEAR SPECIAL-PRT FLAG @H@@@@ TOP,U A15,2 RA )@@G@@ . CHECK IF EQUIPMENT TO BE ASSIGNED @^@@@@-571 FURPURB )@@G@@R @D@@@@ L A1,(' ') . SOME BLANKS @^@@@@RC )@@G@@-572 FURPUR @E@@@@ TEP,U A15,02000 . RERD )@@G@@QUIRE X-OPTION? @^@@@@-773 FURPUR @E@@@@PREPRET* J RE )@@G@@ UPREPRET . RETURN FOR COPY,U @^@@@@-823 FURPUR RF )@@G@@@E@@@@PTBSW* + 0 . SPECIAL-PRT FLAG @ @@@@RG )@@G@@FREEA '@FREE,A $FILEA . ' @ @@@@FREEB '@FREE,A $FILEB . ' @B@@@@RH )@@G@@UFILE* + 0D . @B@@@@UQUAL* + 0D RI )@@G@@ . @B@@@@URDKEY* + 0 . @B@@@@RJ )@@G@@UWKEY* + 0 . @F@@@@DEMAND* + 1 RK )@@G@@ . GENERALIZED DEMAND FLAG @^@@@@-914,914 FURPUR RL )@@G@@@B@@@@TALK* RES 2 . @ @@@@. DLOCF '@FREERM )@@G@@ MSDGET. .' @C@@@@SWAPMSG 'TAPE SWAP PERFORMED AT THIS POINT' @A@@@@RN )@@G@@TSWPMSG* P + 01,$-SWAPMSG,SWAPMSG @B@@@@MSG* '@FREE,D ' RO )@@G@@ . @B@@@@BUF* RES 14 . @B@@@@ASGOPTRP )@@G@@S* + 0 . @B@@@@USECTR* + 0 RQ )@@G@@ . @B@@@@LIST* RES 40 . @^@@@@COPU* RR )@@G@@ + 0 @B@@@@PREPIT* + 0 . @B@@@@RS )@@G@@ERROR + 0 . @[@@@@*CHG @#@@@@-20,20 RT )@@G@@ CHG @ @@@@ L,U A15,02512 @#@@@@-62,62 CHG @C@@@@RU )@@G@@ J DONE . YES. @#@@@@-113,113 CHG RV )@@G@@@D@@@@ J DONE . NO, FINISHED. @#@@@@-146,1RW )@@G@@46 CHG @C@@@@ J DONE . YES. @#@@@@RX )@@G@@-165,165 CHG @D@@@@ L,U A15,03512 . @ASG'D ARY )@@G@@Q. @#@@@@-195,195 CHG @ @@@@ L,U A15,02032 @#@@@@RZ )@@G@@-217 CHG @B@@@@ ON MCORE . @B@@@@SA )@@G@@ L,U A0,LASTD$ . @B@@@@ A,U A0,TSB )@@G@@LENG1 . @B@@@@ ER MCORE$ . @^@@@@SC )@@G@@ OFF . @#@@@@-241 CHG @C@@@@DONE DL SD )@@G@@ A0,('CHANGED! ') . @B@@@@ DS A0,TALK SE )@@G@@ . @[@@@@*COPY @#@@@@-14 COPY @D@@@@ A,U A15,SF )@@G@@02000 . SET X-OPT @#@@@@-15 COPY @B@@@@ ONSG )@@G@@ MCORE . @B@@@@ L,U A0,LASTD$ SH )@@G@@ . @B@@@@ A,U A0,BUFLEN . @B@@@@ ERSI )@@G@@ MCORE$ . @^@@@@ OFF . @#@@@@-97 SJ )@@G@@ COPY @B@@@@ L A0,(0101,('EOF ')) @D@@@@ SK )@@G@@ L A4,STRA4 . IS DEMAND? @F@@@@ TE,U SL )@@G@@ A4,4 . SHORTEN MESSAGE A BIT @#@@@@-177 COPY SM )@@G@@@E@@@@ L,U A0,020 . DREAD$ FUNCTION @B@@@@SN )@@G@@ S A0,MPKT . @F@@@@ L A0,(SO )@@G@@03401,FCTA+6) . READ MAIN ITEM INTO LABEL @B@@@@ S A0,MSP )@@G@@PKT+3 . @B@@@@ SZ MPKT+4 . @B@@@@SQ )@@G@@ L,U A0,MPKT . @H@@@@ ER MSCOSR )@@G@@N$ . DONT CHECK STATUS.. MIGHT BE TEMPORARY@#@@@@-337,337 SS )@@G@@ COPY @E@@@@ECERR L A0,(0101,('EOF ') . SHORT MESSAGE ST )@@G@@@B@@@@ L A0,STRA4 . @E@@@@ TE,U SU )@@G@@ A4,4 . TEST FOR DEMAND @B@@@@ L A0,(SV )@@G@@P 1,EML,EOFMSG) @#@@@@-516 COPY @B@@@@ L A0,TSW )@@G@@SWPMSG . TELL USER@ @@@@ ER PRINT$ @#@@@@-551,552 SX )@@G@@ COPY @C@@@@ L,XU A0,0775416 . EOR SENT@ @@@@ SY )@@G@@ TE,T1 A0,LABEL+1@#@@@@-553 COPY @E@@@@ L,U SZ )@@G@@ A0,14 . 14 WORD RECORD ONLY @C@@@@ TE,H2 A0,DTA )@@G@@RPKT+3 . WAS IT? @B@@@@ J NONEOR . NOTB )@@G@@@#@@@@-555 COPY @A@@@@ L A0,TSWPMSG . @ @@@@TC )@@G@@ ER PRINT$ .@[@@@@*COPYE@#@@@@-17 COPYE@B@@@@TD )@@G@@ ON MCORE . @B@@@@ L,U A0,LTE )@@G@@ASTD$ . @B@@@@ A,U A0,BUFLEN . @B@@@@TF )@@G@@ ER MCORE$ . @^@@@@ OFF . TG )@@G@@@B@@@@ SZ LONG . @#@@@@-52 COPYETH )@@G@@@C@@@@ L,U A0,040000 . L OPTION@E@@@@ TETI )@@G@@P A0,WCT+1 . TEST FOR L OPTION @E@@@@ S TJ )@@G@@ A0,LONG . SET COPY ALL FLAG @#@@@@-76,76 COPYE@B@@@@TK )@@G@@CYC11 DL A0,('COPIED ') . @B@@@@ TZ,S6 SWITTL )@@G@@CH . @B@@@@ DL A0,('READY ') . @B@@@@TM )@@G@@ DS A0,TALK . @B@@@@ J ZOVETN )@@G@@R . @#@@@@-89 COPYE@E@@@@ TZ LONGTO )@@G@@ . IS L OPTION ON? @G@@@@ L A2,CYCLE TP )@@G@@ . USE CYCLE FROM INPUT FOR OUTPUT @#@@@@-107 COPYE@D@@@@TQ )@@G@@ TZ LONG . L OPTION ON? @C@@@@ J TR )@@G@@ USE . YES @#@@@@-116,116 COPYE@E@@@@NOND1 TS )@@G@@ SZ,T2 0,A1 . CLEAR DELETE CYCLE @#@@@@-119,119 TT )@@G@@ COPYE@E@@@@ S,T3 A0,0,A1 . SET OUTPUT CYLE TU )@@G@@@#@@@@-122,123 COPYE@B@@@@ L,T1 A2,,A1 . TV )@@G@@@B@@@@ TP A2 . @B@@@@ L,S2 TW )@@G@@ A2,,A1 . @B@@@@ A,U A1,1,A2 . TX )@@G@@@#@@@@-140,141 COPYE@B@@@@ L,T1 A2,,A1 . TY )@@G@@@B@@@@ TP A2 . @B@@@@ L,S2 TZ )@@G@@ A2,0,A1 . @B@@@@ A,U A1,1,A2 . UA )@@G@@@#@@@@-145,145 COPYE@ @@@@ S,S1 A0,BLOCK @#@@@@-148,1UB )@@G@@48 COPYE@B@@@@ L,T1 A3,,A1 . @B@@@@ UC )@@G@@ TP A3 . @B@@@@ L,S2 A3,0,A1 UD )@@G@@ . @#@@@@-283 COPYE@B@@@@ DL A0,('COPIEUE )@@G@@D ') . @ @@@@ DS A0,TALK .@#@@@@-306,312 COPYEUF )@@G@@@D@@@@ SZ APKT+9 . TIME WORD @B@@@@ UG )@@G@@ DTE A1,WCT+11 . @B@@@@ J HERE UH )@@G@@ . @B@@@@ DTE A3,WCT+13 . @B@@@@ UI )@@G@@ J HERE . @B@@@@ L A0,WCT+15 UJ )@@G@@ . @B@@@@ TE A0,WCT+29 . @B@@@@ UK )@@G@@ J HERE . @B@@@@ S A1,LONG UL )@@G@@ . @B@@@@HERE TNZ LONG . @B@@@@ UM )@@G@@ J SHORT . @B@@@@ L A0,DATE UN )@@G@@ . @B@@@@ S A0,APKT+9 . @B@@@@ UO )@@G@@ L,U A0,1 . @E@@@@ TE,S3 A0,APKT+3 UP )@@G@@ . TEST FOR SYMBOLIC @E@@@@ J SHORT UQ )@@G@@ . IF NOT, DONT DO THIS@B@@@@ L A0,CYCWRD . UR )@@G@@@B@@@@ TZ,T2 APKT+6 . @B@@@@ S US )@@G@@ A0,APKT+6 . @ @@@@SHORT L,U A0,FCTB @#@@@@-331 UT )@@G@@ COPYE@B@@@@ L A0,6,X11 . @B@@@@ UU )@@G@@ S A0,CYCWRD . @B@@@@ L A0,9,X11 UV )@@G@@ . @B@@@@ S A0,DATE . @#@@@@-411,4UW )@@G@@14 COPYE@E@@@@CYC EQUF SWITCH,0,S6 . NON ZERO FOR CUX )@@G@@YCLE @^@@@@SLIMIT + 0 @#@@@@-417 COPYE@B@@@@CYCWRDUY )@@G@@ + 0 . @B@@@@DATE + 0 UZ )@@G@@ . @B@@@@LONG + 0 . @^@@@@DELCELVA )@@G@@ + 0 @^@@@@SEC222 + 0 @[@@@@*COPYF@#@@@@-16 VB )@@G@@ COPYF@D@@@@ A,U A15,02000 . SET X-OPT VC )@@G@@@#@@@@-17 COPYF@B@@@@ ON MCORE . VD )@@G@@@B@@@@ L,U A0,LASTD$ . @B@@@@ A,U VE )@@G@@ A0,BUFLEN . @B@@@@ ER MCORE$ . VF )@@G@@@^@@@@ OFF . @#@@@@-330,330 COPYF@E@@@@ L VG )@@G@@ A1,(8,BLOCK) . SET FOR LABEL DUMP @ @@@@ L,U VH )@@G@@ A2,DERR9 @#@@@@-359 COPYF@B@@@@ L A0,TSWPMSGVI )@@G@@ . TELL USER@ @@@@ ER PRINT$ .@#@@@@-394,395 COPYFVJ )@@G@@@C@@@@ L,XU A0,0775416 . SDF EOR @ @@@@ TEVK )@@G@@,T1 A0,LABEL+1@#@@@@-396 COPYF@D@@@@ L,U A0,1VL )@@G@@4 . 14 WORD RECORD@C@@@@ TE,H2 A0,DRPKT+2 VM )@@G@@ . WAS IT? @C@@@@ J NONEOR . NOPE @#@@@@VN )@@G@@-398 COPYF@A@@@@ L A0,TSWPMSG . @ @@@@ VO )@@G@@ ER PRINT$ .@[@@@@*CYCLE@#@@@@-1,2 CYCLE@#@@@@ VP )@@G@@ AXR$ @#@@@@-3 CYCLE@#@@@@ ITEM$ @#@@@@-11,11VQ )@@G@@ CYCLE@ @@@@ L,U A15,02512 @#@@@@-156,156 CYCLEVR )@@G@@@D@@@@ L,U A15,02512 . @ASG,AQX. @#@@@@-193,1VS )@@G@@93 CYCLE@D@@@@ L,U A15,02512 . @ASG,AQX. VT )@@G@@@[@@@@*DIAGZ@#@@@@-28 DIAGZ@B@@@@ SZ KEYS VU )@@G@@ . @I@@@@ SZ KEYS+1 . NEVER PRINT KEVV )@@G@@YS ********************** @#@@@@-144,144 DIAGZ@F@@@@ L,VW )@@G@@U A2,2 . SPEC # IF FROM COPY,U @E@@@@ TNVX )@@G@@Z COPU . ARE WE FROM COPY,U? @D@@@@ L,U VY )@@G@@ A2,1 . NO, USE SPEC 1@#@@@@-184 DIAGZ@I@@@@ VZ )@@G@@ SZ KEYS . NEVER PRINT KEYS *********************WA )@@G@@** @B@@@@ SZ KEYS+1 . @#@@@@-269 WB )@@G@@ DIAGZ@I@@@@ SZ KEYS . NEVER PRINT KEYS ***WC )@@G@@******************** @B@@@@ SZ KEYS+1 . WD )@@G@@@#@@@@-299 DIAGZ@I@@@@ SZ KEYS . NEWE )@@G@@VER PRINT KEYS *********************** @B@@@@ SZ KEYSWF )@@G@@+1 . @#@@@@-399,399 DIAGZ@A@@@@DMSG46* ' ALL ELEMENTWG )@@G@@S DELETED' @B@@@@DL46* EQU $-DMSG46 . @#@@@@-403 WH )@@G@@ DIAGZ@B@@@@DMSG49* 'HAS UNKNOWN EQUIPMENT TYPE' . @B@@@@DL49* WI )@@G@@ EQU $-DMSG49 . @[@@@@*PRTF @#@@@@-3 PRTF WJ )@@G@@@^@@@@ FURPRC . @#@@@@-5 PRTF @B@@@@ SZWK )@@G@@ DOCOMA . @B@@@@ ON MCORE WL )@@G@@ . @B@@@@ L,U A0,LASTD$ . @B@@@@ A,WM )@@G@@U A0,BUFLEN/2 . @B@@@@ ER MCORE$ WN )@@G@@ . @^@@@@ OFF . @#@@@@-10 PRTF @F@@@@ WO )@@G@@ TN FACPAC+6 . IS EQUIPMENT STRANGE? @#@@@@-63 WP )@@G@@ PRTF @I@@@@ J NOKEY . NEVER PRINT KEWQ )@@G@@YS *********************** @#@@@@-112,112 PRTF @D@@@@ EXWR )@@G@@ INTAB,*A1 . IN IMAGE AREA @#@@@@-121 PRTF @D@@@@WS )@@G@@ L A3,MPROJ,X11 . GET PROJECT ID@E@@@@ TNWT )@@G@@E A3,('//////') . IS IT SLASHED OUT? @F@@@@ J WU )@@G@@ NOPACK . YES, DONT PRINT PACK-I.D. @#@@@@-154,154 PRTF WV )@@G@@@B@@@@ DL A3,('PRIVATE ') . @#@@@@-157,158 PRTF WW )@@G@@@D@@@@ DL A3,('PUBLIC ') . NO,PUBLIC. @D@@@@ WX )@@G@@ LMJ X4,INSTWO . FILL IN LINE1.@#@@@@-161,162 PRTF WY )@@G@@@C@@@@ DL A3,(',WRITE-ONLY ') . YES @D@@@@ LMWZ )@@G@@J X4,INSTWO . FILL IN LINE1.@#@@@@-165,166 PRTF @B@@@@XA )@@G@@ DL A3,(',READ-ONLY ') @D@@@@ LMJ X4,IXB )@@G@@NSTWO . FILL IN LINE1.@#@@@@-185,186 PRTF @B@@@@ DLXC )@@G@@ A3,(',DROP-FLAG ') . @D@@@@ LMJ X4,INSTWO XD )@@G@@ . FILL IN LINE1.@#@@@@-189,190 PRTF @C@@@@ DL A3,(XE )@@G@@',UNLOADED ') . YES @D@@@@ LMJ X4,INSTWO . FIXF )@@G@@LL IN LINE1.@#@@@@-193,194 PRTF @B@@@@ DL A3,(',DISAXG )@@G@@BLED ') . @D@@@@ LMJ X4,INSTWO . FILL IN LINE1.XH )@@G@@@#@@@@-200,201 PRTF @F@@@@ DL A3,(',ASSIGNED ') . XI )@@G@@FILE ALREADY ASSIGNED @D@@@@ LMJ X4,INSTWO . FIXJ )@@G@@LL IN LINE1.@#@@@@-218,218 PRTF @D@@@@ JZ A0,$+4 XK )@@G@@ . NO,TRY FH432. @#@@@@-219 PRTF @B@@@@ LMJ XL )@@G@@ X9,COMMA . @#@@@@-222,222 PRTF @D@@@@ JZ XM )@@G@@ A0,$+4 . NO,TRY FH880. @#@@@@-223 PRTF @B@@@@ XN )@@G@@ LMJ X9,COMMA . @#@@@@-226,226 PRTF @D@@@@ XO )@@G@@ JZ A0,$+4 . NO,TRY FH1782.@#@@@@-227 PRTF XP )@@G@@@B@@@@ LMJ X9,COMMA . @#@@@@-230,230 PRTF XQ )@@G@@@D@@@@ JZ A0,$+4 . NO,TRY F14. @#@@@@-231 XR )@@G@@ PRTF @B@@@@ LMJ X9,COMMA . @#@@@@-234,2XS )@@G@@34 PRTF @D@@@@ JZ A0,$+4 . NO,TRY F40. XT )@@G@@@#@@@@-235 PRTF @B@@@@ LMJ X9,COMMA . XU )@@G@@@#@@@@-238,238 PRTF @D@@@@ JZ A0,$+4 . NOXV )@@G@@,TRY FCS. @#@@@@-239 PRTF @B@@@@ LMJ X9,COMMA XW )@@G@@ . @#@@@@-242,242 PRTF @B@@@@ JZ A0,$+4 XX )@@G@@ . NO@#@@@@-243 PRTF @B@@@@ LMJ X9,COMMA XY )@@G@@ . @#@@@@-269,274 PRTF @[@@@@. @ @@@@. TURN THE FOLLOWIXZ )@@G@@NG BACK ON @A@@@@. IF MINUTES ASSIGNED IS DESIRED @F@@@@. L YA )@@G@@ A0,MT42,X11 . MILLISECONDS ASSIGNED. @E@@@@. DIYB )@@G@@,U A0,1000 . CONVERT TO SECONDS. @E@@@@. DI,U YC )@@G@@ A0,60 . CONVERT TO MINUTES @D@@@@. SLJ BTBCYD )@@G@@D1 . CONVERT TO FD.@E@@@@. S A3,HTW+9 YE )@@G@@ . STORE IN MESSAGE. @D@@@@ L A0,( P 1,5,HTW) . PRIYF )@@G@@NT 5TH LINE.@[@@@@. @C@@@@. MAKE IMAGE LENGTH 10 FOR MINUTES ASSIGNEYG )@@G@@D @#@@@@-313 PRTF @F@@@@ S A6,DOCOMA YH )@@G@@ . SHALL WE PUT IN COMMAS? @#@@@@-319,320 PRTF @#@@@@-322 YI )@@G@@ PRTF @D@@@@COMMA . PUT IN COMMA AFTER GRANULES @D@@@@YJ )@@G@@ TNZ DOCOMA . COMMA TIME? @B@@@@ J YK )@@G@@ 0,X9 . NO@D@@@@ . IN THE INTERESYL )@@G@@T OF PRETTY OUTPUT@C@@@@ S A0,A7 . SAVE A0 YM )@@G@@@D@@@@ DL A0,INPLAC . GET POINTERS @D@@@@ YN )@@G@@ L,U A5,',' . GET THE COMMA @D@@@@ EX YO )@@G@@ INTAB,*A1 . AND PUT IT IN @E@@@@ L,U A5,' ' YP )@@G@@ . ALSO, PUT IN A SPACE@B@@@@ EX INTAB,*A1 YQ )@@G@@ . @E@@@@ DS A0,INPLAC . RESTORE POINTERS YR )@@G@@@D@@@@ L A0,A7 . RETURN A0 @C@@@@ YS )@@G@@ J 0,X9 . RETURN @#@@@@-342 PRTF @E@@@@YT )@@G@@ L A3,MPROJ,X11 . GET THE PROJECT I.D.@G@@@@ YU )@@G@@ SZ A6 . FAKE ZERO REELS, JUST IN CASE @E@@@@YV )@@G@@ TNE A3,('//////') . IS IT SLASHED OUT? @G@@@@ YW )@@G@@ J DUNREL . YES, DONT PRINT REEL NUMBERS @#@@@@YX )@@G@@-363,363 PRTF @C@@@@ J $+4 . NO. YY )@@G@@@#@@@@-470 PRTF @F@@@@ TN FACPAC+6 . ISYZ )@@G@@ THIS WIERD EQUIPMENT? @#@@@@-472 PRTF @B@@@@ TP ZA )@@G@@ FACPAC+6 . @E@@@@ J WIERD . STZB )@@G@@RANGE EQUIPMENT @#@@@@-611,611 PRTF @E@@@@WIERD L A0,(ZC )@@G@@ P 1,22,LINE1). PRINT TAPE MODES. @#@@@@-690 PRTF @B@@@@DOCOMAZD )@@G@@ + 0 . @#@@@@-702,710 PRTF @^@@@@ ZE )@@G@@ 'CRDP' . 040@ @@@@ 'UNK' . 041 @ @@@@ 'PZF )@@G@@PT' . 042 @ @@@@ 'UNK' . 043 @ @@@@ 'HZG )@@G@@SP' . 044 @ @@@@ 'MHSP' . 045 @ @@@@ 'UZH )@@G@@NK' . 046 @ @@@@ '9300' . 047 @ @@@@ '1ZI )@@G@@004' . 050 @B@@@@ DO 15 , 'UNK' . @B@@@@ZJ )@@G@@ 'CTS' . 070 . @ @@@@ 'WTS' . 07ZK )@@G@@1 @ @@@@ 'CTMC' . 072 @^@@@@ 'C/SP' . ZL )@@G@@@B@@@@ DO 3 , 'UNK' . @ @@@@ 'ARBDEV'ZM )@@G@@ . 077 @^@@@@EQUIP ' ,' . @^@@@@ '=F2/F3/F60 ' ZN )@@G@@@^@@@@ '=FB ' @^@@@@ '=F4 ' @^@@@@ ZO )@@G@@ '=F8 ' @^@@@@ '=F17 ' @^@@@@ '=F14 ZP )@@G@@ ' @^@@@@ '=F40 ' @^@@@@ '=FCS ' @[@@@@ZQ )@@G@@*PRTT @#@@@@-12 PRTT @#@@@@PRTC 'L,1' @#@@@@-16,16 ZR )@@G@@ PRTT @F@@@@ S A15,MLTSPC . SET MULTIPLE SPEC FLZS )@@G@@AG @#@@@@-17 PRTT @B@@@@ ON MCORE ZT )@@G@@ . @B@@@@ L,U A0,LASTD$ . @B@@@@ A,ZU )@@G@@U A0,BUFLEN . @B@@@@ ER MCORE$ ZV )@@G@@ . @^@@@@ OFF . @#@@@@-19 PRTT @E@@@@ ZW )@@G@@ L,H2 A0,BLOCK-1 . NUMBER OF ELEMENTS @C@@@@ S ZX )@@G@@ A0,NELTS . SAVE IT @A@@@@ L A0,(1,PRTCZY )@@G@@) @B@@@@ TNZ DEMAND . @D@@@@ ERZZ )@@G@@ PRTCN$ . DO A PAGEUP @#@@@@-24 PRTT @E@@@@AA )@@G@@ SZ KEYS . NEVER PRINT KEYS @B@@@@ AB )@@G@@ SZ KEYS+1 . @^@@@@ L,U X6,0@#@@@@AC )@@G@@-32,33 PRTT @G@@@@ TE A3,(040100) . L OPTIONAD )@@G@@ GIVEN WITH T OPTION? @#@@@@-58,60 PRTT @F@@@@ J AE )@@G@@ EXIT . YES, DONT PRINT OUT TABLES@F@@@@ L,U AF )@@G@@ A2,DERR11 . NO, PRINT OUT MESSAGE @F@@@@ J AG )@@G@@ ZABORT . 'FILE.ELEMENT NOT FOUND' @#@@@@-215,215 PRTT AH )@@G@@@D@@@@ J NOTD1 . NOT DELETED @B@@@@ AI )@@G@@ L A9,NUMDLE . @B@@@@ A,U A9,1 AJ )@@G@@ . @B@@@@ S A9,NUMDLE . @#@@@@-218,2AK )@@G@@18 PRTT @ @@@@NOTD1 DL A0,0,X11 @#@@@@-359,361 PRTT AL )@@G@@@F@@@@ TN 3,X11 . IS THIS A DELETED ITEM? AM )@@G@@@B@@@@ J NOTD . NO@B@@@@ L AN )@@G@@ A9,NUMDLE . @F@@@@ A,U A9,1 . COAO )@@G@@UNT DELETED ELEMENTS . @B@@@@ S A9,NUMDLE . AP )@@G@@@E@@@@ J SHORT+3 . GET NEXT ELEMENT @E@@@@AQ )@@G@@NOTD SLJ CLRLN . CLEAR IMAGE AREA @#@@@@-404 AR )@@G@@ PRTT @D@@@@ DS A0,SAVIT+1 . SAVE A0 & A1 AS )@@G@@@#@@@@-412,416 PRTT @B@@@@ J EXIT . AT )@@G@@@B@@@@ L,U A2,DERR11 . @E@@@@ TZ AU )@@G@@ EN . ELEMENT SPECIFIED? @F@@@@ J ZABOAV )@@G@@RT . 'FILE.ELEMENT NOT FOUND' @A@@@@ L A3,(AW )@@G@@DL46,DMSG46)@B@@@@ L,U A2,DERR4 . @E@@@@ AX )@@G@@ J ZABORT . ALL ELEMENTS DELETED@#@@@@-424,424 AY )@@G@@ PRTT @B@@@@EXIT L A0,('$FILEA') . @ @@@@ S AZ )@@G@@ A0,FACPAC @B@@@@ L,U A0,FACPAC . @B@@@@BA )@@G@@ ER FACIL$ . @D@@@@ L A5,FBB )@@G@@ACPAC+7 . OPTION WORD @D@@@@ TEP,U A5,1*/('Z'-'T') BC )@@G@@ . TEMPORARY? @C@@@@ J GOAWAY . YES BD )@@G@@@B@@@@ L A0,NUMDLE . @E@@@@ L BE )@@G@@ A1,NELTS . NUMBER OF ELEMENTS @D@@@@ SSL A1,3BF )@@G@@ . DIVIDE BY 8 @B@@@@ TG A1,A0 BG )@@G@@ . @B@@@@ J GOAWAY . @B@@@@ SLBH )@@G@@J BTBCD1 . @B@@@@ S,H1 A3,NASTY+2 BI )@@G@@ . @B@@@@ L A0,(P 2,LN,NASTY) . @B@@@@ ERBJ )@@G@@ PRINT$ . @B@@@@ L A0,(P 1,LN1,NASTBK )@@G@@Y1) . @B@@@@ ER PRINT$ . @B@@@@GOAWAY SZBL )@@G@@ NUMDLE . @B@@@@ J ZOVER BM )@@G@@ . @#@@@@-503,503 PRTT @A@@@@NOTD2 DL A0,BLOCK,A2 BN )@@G@@@#@@@@-595 PRTT @]@@@@$(2) . @#@@@@-606 PRTT @]@@@@BO )@@G@@$(1) . @#@@@@-666 PRTT @ @@@@ DO 3 , ' JUNK ' BP )@@G@@@^@@@@ ' ED PROC ' @^@@@@ ' SSG SYMB ' @^@@@@ BQ )@@G@@ ' MIM SYMB ' @^@@@@ ' OMN SYMB ' @^@@@@ ' SNO SYBR )@@G@@MB ' @^@@@@ ' CUL SYMB ' @^@@@@ ' MAD SYMB ' @^@@@@BS )@@G@@ ' BAS SYMB ' @#@@@@-685 PRTT @^@@@@ DO 3 , 'BT )@@G@@JUNK' @#@@@@ 'EDP' @#@@@@ 'SSG' @#@@@@ 'MBU )@@G@@IM' @#@@@@ 'OMN' @#@@@@ 'SNO' @#@@@@ 'CBV )@@G@@UL' @#@@@@ 'MAD' @#@@@@ 'BAS' @#@@@@-724 BW )@@G@@ PRTT @E@@@@NASTY 'THERE ARE XXX DELETED ELEMENTS IN THIS FILE' BX )@@G@@@B@@@@LN EQU $-NASTY . @ @@@@NASTY1 'PLEASE BY )@@G@@PACK IT' @B@@@@LN1 EQU $-NASTY1 . @^@@@@NUMDLEBZ )@@G@@ + 0 @^@@@@NELTS + 0 @B@@@@DFLAG + CA )@@G@@ 0 . @[@@@@*PRT @#@@@@-10 PRT @B@@@@ CB )@@G@@ ON MCORE . @B@@@@ L,U A0,LASTD$ CC )@@G@@ . @B@@@@ A,U A0,BUFLEN . @B@@@@ CD )@@G@@ ER MCORE$ . @^@@@@ OFF . @#@@@@CE )@@G@@-17,17 PRT @#@@@@-19,20 PRT @#@@@@-32,33 PRT @G@@@@CF )@@G@@ L,H1 A0,VERS . EQUIPMENT TYPE (F14,F24,F40). CG )@@G@@@F@@@@ JNZ A0,GOON . IF EQUIP GIVEN, CONTINUE CH )@@G@@@G@@@@ L,H1 A1,EN . GET FIRST 3 CHARS OF PACKICI )@@G@@D @D@@@@ TNE,U A1,'PK1' . 8414 PACKID? @F@@@@CJ )@@G@@ L,U A0,'F14' . YES, SET EQUIP TYPE TO F14@D@@@@CK )@@G@@ TNE,U A1,'PK2' . 8424 PACKID? @F@@@@ L,CL )@@G@@U A0,'F24' . YES, SET EQUIP TYPE TO F24@D@@@@ TNCM )@@G@@E,U A1,'PK4' . 8440 PACKID? @F@@@@ L,U A0,'CN )@@G@@F40' . YES, SET EQUIP TYPE TO F40@E@@@@GOON S,H1 A0,DCO )@@G@@PKASG+3 . STORE IN @ASG LINE. @#@@@@-94 PRT @B@@@@ CP )@@G@@ S A0,AZERO . @#@@@@-96 PRT @B@@@@ CQ )@@G@@ L A0,AZERO . @#@@@@-808 PRT @B@@@@AZERO CR )@@G@@ + 0 . @[@@@@*PRTE @#@@@@-14 PRTE CS )@@G@@@B@@@@ ON MCORE . @B@@@@ L,U CT )@@G@@ A0,LASTD$ . @B@@@@ A,U A0,BUFLEN . CU )@@G@@@B@@@@ ER MCORE$ . @^@@@@ OFF CV )@@G@@ . @#@@@@-197,197 PRTE @D@@@@ ER APRINT$ CW )@@G@@ . 1 LINE ASCII @#@@@@-199,199 PRTE @F@@@@OUT DL A0,(CX )@@G@@'** ') . SIGNIFY END OF TEXT @E@@@@ DS A0,TCY )@@G@@ALK . FOR DEMAND USER @E@@@@ J ZOVER CZ )@@G@@ . RETURN TO FURPUR @#@@@@-222 PRTE @B@@@@ ONDA )@@G@@ MCORE . @B@@@@ L,U A0,LASTD$ DB )@@G@@ . @B@@@@ A,U A0,BUFLEN . @B@@@@ ERDC )@@G@@ MCORE$ . @^@@@@ OFF . @#@@@@-284,2DD )@@G@@84 PRTE @F@@@@ DJZ A7,BEG0 . EXIT IF NO FILEDE )@@G@@S ASSIGNED. @#@@@@-326 PRTE @F@@@@ TP 4,X5 DF )@@G@@ . IS THIS WIERD EQUIPMENT? @G@@@@ J CHKUSE DG )@@G@@ . YES, DONT FIGURE OPTIONS ETC. @#@@@@-329,346 PRTE @G@@@@DH )@@G@@ LSSL A2,10 . MOVE FIRST OPTION BIT TO FRONT DI )@@G@@@F@@@@OPLOOP JPS A2,SKIPOP . WAS THE OPTION THERE? DJ )@@G@@@D@@@@ EX INTAB,*A1 . YES, INSERT IT@F@@@@SKIPOPDK )@@G@@ TNE,U A5,'Z' . HAVE WE REACHED THE END? @C@@@@ DL )@@G@@ J CHKUSE . YES @F@@@@ A,U A5,1DM )@@G@@ . INCREMENT OPTION LETTER @E@@@@ J OPLODN )@@G@@OP . AND GET NEXT ONE @#@@@@-371,371 PRTE @D@@@@ DO )@@G@@ J BEG0 . YES, DONE. @#@@@@-410 PRTE DP )@@G@@@^@@@@ ',CRPS' . @^@@@@ ',UNK' . @^@@@@ DQ )@@G@@ ',PPTS' . @^@@@@ ',UNK' . @^@@@@ ',HSP' DR )@@G@@ . @^@@@@ ',MHSP' . @^@@@@ ',UNK' . @^@@@@DS )@@G@@ ',9300' . @^@@@@ ',1004' . @B@@@@ DODT )@@G@@ 15 , ',UNK' . @^@@@@ ',CTS' . @^@@@@ DU )@@G@@ ',WTS' . @^@@@@ ',CTMC' . @^@@@@ ',C/SP' DV )@@G@@ . @B@@@@ DO 3 , ',UNK' . @^@@@@ ',DW )@@G@@ARB' . @[@@@@*PRTG @#@@@@-154 PRTG @I@@@@ J DX )@@G@@ NOKEY . NEVER PRINT KEYS *********************** @#@@@@DY )@@G@@-266,266 PRTG @B@@@@ DL A3,('PRIVATE ') . @#@@@@DZ )@@G@@-269,270 PRTG @D@@@@ DL A3,('PUBLIC ') . NO,PUBEA )@@G@@LIC. @D@@@@ LMJ X4,INSTWO . FILL IN LINE1.@#@@@@EB )@@G@@-273,274 PRTG @B@@@@ DL A3,(',WRITE-ONLY ') . @D@@@@EC )@@G@@ LMJ X4,INSTWO . FILL IN LINE1.@#@@@@-277,278 ED )@@G@@ PRTG @D@@@@ DL A3,(',READ-ONLY ') . FILL LINE1 @D@@@@EE )@@G@@ LMJ X4,INSTWO . FILL IN LINE1.@#@@@@-294,295 EF )@@G@@ PRTG @B@@@@ DL A3,(',DROP-FLAG ') . @D@@@@ LMEG )@@G@@J X4,INSTWO . FILL IN LINE1.@#@@@@-298,299 PRTG @C@@@@EH )@@G@@ DL A3,(',UNLOADED ') . YES @D@@@@ LMJ EI )@@G@@ X4,INSTWO . FILL IN LINE1.@#@@@@-302,303 PRTG @C@@@@ EJ )@@G@@ DL A3,(',DISABLED ') . YES @D@@@@ LMJ X4,IEK )@@G@@NSTWO . FILL IN LINE1.@#@@@@-306,307 PRTG @E@@@@ DLEL )@@G@@ A3,(',ASSIGNED ') . FILE ASSIGNED @D@@@@ LMJ EM )@@G@@ X4,INSTWO . FILL IN LINE1.@#@@@@-403,405 PRTG @#@@@@-408,4EN )@@G@@08 PRTG @E@@@@ SLJ CLRLN . CLEAR PRINTLINEO )@@G@@E @E@@@@ A,U A1,3 . INDENT 3 SPACES EP )@@G@@@#@@@@-410,418 PRTG @D@@@@ TOP A2,BKUP . BAEQ )@@G@@CKED UP? @B@@@@ J PRTONE . NO@#@@@@-697,6ER )@@G@@97 PRTG @#@@@@-730,733 PRTG @]@@@@*GETUSE @^@@@@ AXES )@@G@@R$ . @B@@@@LINK + 0 . @B@@@@OFFSETET )@@G@@ + 0 . @B@@@@PTR + 0 EU )@@G@@ . @ @@@@PCTBUF EQU BUFFER @]@@@@$(1) . @B@@@@EV )@@G@@GETUSE* L,U A0,PCTBUF . @E@@@@ L A1,(EW )@@G@@1,5) . GET QUAL LINK ENTRY @B@@@@ ER PCT$ EX )@@G@@ . @D@@@@ L,H1 A2,PCTBUF . LOOK AT IT EY )@@G@@@E@@@@ L,U A0,0161 . LEVEL 26 OFFSET @F@@@@EZ )@@G@@ TE,U A2,0305 . THIS VALUE MEANS LEVEL 26 @H@@@@FA )@@G@@ L,U A0,0241 . OTHERWISE, LEVEL 27, USE THIS OFFB )@@G@@FSET @B@@@@ S A0,OFFSET . @D@@@@ L FC )@@G@@ X3,(2,0) INDEX INTO NAME LIST @B@@@@ L,U A9,0FD )@@G@@ . @E@@@@ L,U A0,PCTBUF . WHERE TOFE )@@G@@ PUT IINFO @D@@@@ LXI,U A1,62 . GET 62 WORDS FF )@@G@@@E@@@@ LXM A1,OFFSET . FROM THIS LOCATION @C@@@@FG )@@G@@AGAIN ER PCT$ . GET INFO@F@@@@ L,H2 FH )@@G@@ A1,PCTBUF . LINK TO NEXT BLOCK, IF ANY@B@@@@ S FI )@@G@@ A1,LINK . @G@@@@ L,S3 R1,PCTBUF . NUFJ )@@G@@MBER OF ENTRIES IN THIS BLOCK @E@@@@ JGD R1,$+1 FK )@@G@@ . DECREMENT FOR JGD @E@@@@ L A0,(3,PCTBUF+1) . POFL )@@G@@INTER INTO PCT @F@@@@ L,T1 A1,2,A0 . POINTER FM )@@G@@TO EXTERNAL NAME @C@@@@ S A1,PTR . SAVE FN )@@G@@@D@@@@LOOP L,T1 A1,2,A0 . GET POINTER @E@@@@ FO )@@G@@ TNE A1,PTR . SAME EXTERNAL NAME? @D@@@@ J FP )@@G@@ GOTONE . YES, USE IT @F@@@@ NOP 0,0,FQ )@@G@@*A0 . NO, STEP TO NEXT ITEM @D@@@@ JGD R1,LFR )@@G@@OOP . AND GET IT @E@@@@ J NEXTBLOCK FS )@@G@@ . DONE WITH THIS BLOCK@F@@@@GOTONE DL A2,0,*A0 . GEFT )@@G@@T THE INTERNAL NAME @E@@@@ DS A2,LIST,*X3 . ANFU )@@G@@D PUT INTO LIST @B@@@@ A,U A9,1 . @D@@@@FV )@@G@@ JGD R1,LOOP . GET NEXT NAME @E@@@@NEXTBLOCK TNFW )@@G@@Z LINK . ANY MORE NAMES? @C@@@@ J FX )@@G@@ ALLDONE . NO, EXIT@D@@@@ L A1,OFFSET FY )@@G@@ . BASE ADDRESS @F@@@@ A A1,LINK . ADD POINFZ )@@G@@TER TO NEXT BATCH @C@@@@ LXI,U A1,62 . RESET H1GA )@@G@@@B@@@@ L,U A0,PCTBUF . @E@@@@ J GB )@@G@@ AGAIN . AND GET NEXT BLOCK @D@@@@ALLDONE S A9,UGC )@@G@@SECTR . SAVE HOWMANY @E@@@@ J 0,X11 GD )@@G@@ . RETURN TO SENDER @^@@@@ END . @]@@@@*BUFFER GE )@@G@@@^@@@@ AXR$ . @^@@@@ FURPRC . @B@@@@BUFFERGF )@@G@@* RES 28 . @A@@@@ RES BUFLEN*(MCGG )@@G@@ORE=0)@^@@@@ END . @[@@@@*PACKX@B@@@@ AXR$ GH )@@G@@ . @[@@@@$(0) @^@@@@ FURPRC . @B@@@@GI )@@G@@NSECT EQU 64 . @B@@@@ELTLEN EQU NSGJ )@@G@@ECT*28 . @B@@@@OELTLEN EQU NSECT*28 . @B@@@@GK )@@G@@ATABL EQU BUFFER . @B@@@@BTABL EQU BUFGL )@@G@@FER+ELTLEN .@^@@@@NEXTWL + 1792@B@@@@STARTAD + GM )@@G@@ 0 . @B@@@@TEXTL + 0 . GN )@@G@@@B@@@@RPKT '$FILEA ' . @B@@@@ + GO )@@G@@ 0 . @B@@@@ + R$,0,0 . GP )@@G@@@B@@@@ + NSECT*28,BTABL . @B@@@@INADR + GQ )@@G@@ 0 . @B@@@@WPKT '$FILEA ' . GR )@@G@@@B@@@@ + 0 . @B@@@@ + GS )@@G@@ W$,0,0 . @B@@@@ + NSECT*28,BTABL . GT )@@G@@@B@@@@OADR + 0 . @B@@@@REMAIN + GU )@@G@@ 0 . @B@@@@TRANS + 0 . GV )@@G@@@A@@@@RTAB . PROC INPUT ROUTINES @E@@@@ LMJ X11,GW )@@G@@RPFAPT . ASSEMBLER PROCS @D@@@@ LMJ X11,RPFCPTGX )@@G@@ . COBOL PROCS @D@@@@ LMJ X11,RPFFPT . FOGY )@@G@@RTRAN PROCS @C@@@@ J DONE . ALL GONE@A@@@@GZ )@@G@@STAB . PROC LOOKUP ROUTINES @D@@@@ LMJ X11,APTNL HA )@@G@@ . ASSEMBLER @C@@@@ LMJ X11,CPTNL . COHB )@@G@@BOL @C@@@@ LMJ X11,FPTNL . FORTRAN @A@@@@WTAB HC )@@G@@ . PROC WRITE ROUTINES @D@@@@ LMJ X11,APTIA HD )@@G@@ . ASSEMBLER @C@@@@ LMJ X11,CPTIA . COBOL HE )@@G@@@C@@@@ LMJ X11,FPTIA . FORTRAN @B@@@@FTAB . HF )@@G@@PROC TABLE WRITE ROUTINES @D@@@@ LMJ X11,WPFAPT HG )@@G@@ . ASSMENLER @C@@@@ LMJ X11,WPFCPT . COBOL HH )@@G@@@C@@@@ LMJ X11,WPFFPT . FORTRAN @]@@@@$(2) . HI )@@G@@@B@@@@TABLE EQU BTABL+OELTLEN .@F@@@@OLDSEQ EQUF HJ )@@G@@ TABLE,,H1 . OLD PROC SEQUENCE NUMBER @E@@@@NEWSEQ EQUF HK )@@G@@ TABLE,,H2 . NEW SEQUENCE NUMBER @E@@@@OLDADR EQUF TABLHL )@@G@@E+1,,H1 . OLD DRUM ADDRESS @D@@@@NEWADR EQUF TABLE+1,,HHM )@@G@@2 . NEW DRUM ADR @[@@@@$(1) @]@@@@PACKXX* .@B@@@@ ONHN )@@G@@ MCORE . @B@@@@ L,U A0,LASTD$ HO )@@G@@ . @B@@@@ A,U A0,BUFLEN . @B@@@@ ERHP )@@G@@ MCORE$ . @^@@@@ OFF . @B@@@@ HQ )@@G@@ DL A0,FCTA . @B@@@@ DS A0,FCTB HR )@@G@@ . @E@@@@ L,U A0,1792 . ASSUMED START HS )@@G@@ADDR @D@@@@ S A0,NEXTWL . INITIALIZE @B@@@@HT )@@G@@ L,U A0,R$ . @B@@@@ S,S2 A0,RHU )@@G@@PKT+3 . @B@@@@ SZ STARTAD . @B@@@@HV )@@G@@ SZ TEXTL . @B@@@@ SZ INADHW )@@G@@R . @B@@@@ SZ OADR . @B@@@@HX )@@G@@ SZ REMAIN . @B@@@@ SZ TRANHY )@@G@@S . @B@@@@ L,U A0,NSECT*28 . @B@@@@HZ )@@G@@ S,H1 A0,RPKT+4 . @B@@@@ S,H1 A0,WIA )@@G@@PKT+4 . @B@@@@ L,U X11,31 . @B@@@@IB )@@G@@ SZ FCTB+2,X11 . @F@@@@ JGD X11,IC )@@G@@$-1 . CLEAR OUTPUT CONTROL TABLE@E@@@@ DL A0,PID )@@G@@FWORD . GET THE KEY FROM BSP@F@@@@ DS A0,FCTB+6 IE )@@G@@ . MAKE IT A PROGRAM FILE @E@@@@ L,U A0,FCTA IF )@@G@@ . INPUT CONTROL TABLE @F@@@@ LMJ X11,RFTI IG )@@G@@ . READ FILE TABLE INDEX @D@@@@ LMJ X11,BSPERA IH )@@G@@ . ERROR RETURN @B@@@@ L,U A0,FCTA . @G@@@@II )@@G@@ L A1,(ATABL,ELTLEN) . TABLE ADDR, TABLE LENGTH IJ )@@G@@@E@@@@ LMJ X11,RPFET . READ ELEMENT TABLE @D@@@@IK )@@G@@ LMJ X11,BSPERA . ERROR RETURN @B@@@@ L,IL )@@G@@U A0,FCTB . @B@@@@ L A1,(BTABL,OELTLEIM )@@G@@N) .@B@@@@ LMJ X11,RPFET . @B@@@@ LMIN )@@G@@J X11,BSPERB . @E@@@@ L X1,(1,0) IO )@@G@@ . COUNTER FOR ELEMENTS@G@@@@ L X6,(2,0) . POIP )@@G@@INTER INTO PROC SAVE AREA @G@@@@ L X7,(1,0) IQ )@@G@@ . COUNTER FOR INSERTED ELEMENTS @]@@@@LOOP . @F@@@@ L,IR )@@G@@U A1,1,*X1 . SEQUENCE NUMBER OF ELEMENT@F@@@@ L,IS )@@G@@U A0,FCTA . INPUT FILE CONTROL TABLE @E@@@@ LMIT )@@G@@J X11,ETNL . NEXT ELEMENT ITEM @G@@@@ J IU )@@G@@ EOF . POSSIBLE END OF FILE, OR ERROR @E@@@@ TPIV )@@G@@ 3,A0 . IS ELEMENT DELETED? @E@@@@ J IW )@@G@@ LOOP . YES, GET NEXT ONE @D@@@@ L A3,WIX )@@G@@CT+1 . GET OPTIONS @E@@@@ JZ A3,CONTINUE IY )@@G@@ . NO OPTS, SAVE ALL @D@@@@ L,S3 A2,3,A0 . GEIZ )@@G@@T ELT TYPE @D@@@@ TOP,U A3,0200 . S-OPTION ON? JA )@@G@@@E@@@@ J NOSOR . NO, NO SYMBOLICS @F@@@@JB )@@G@@ TLE,U A2,5 . YES, IS THIS SYMBOLIC? @D@@@@JC )@@G@@ J CONTINUE . YES, KEEP IT @]@@@@NOSOR . JD )@@G@@@D@@@@ TOP,U A3,0400 . R-OPTION ON? @E@@@@ JE )@@G@@ J NORELS . NO, NO RELOCATABLES @F@@@@ TNJF )@@G@@E,U A2,5 . YES, IS IT A RELOCATABLE? @D@@@@ J JG )@@G@@ CONTINUE . YES, KEEP IT @]@@@@NORELS . @E@@@@ JH )@@G@@ SSL A3,25 . MOVE A-OPT BIT DOWN @G@@@@ JNJI )@@G@@B A3,LOOP . A-OPTION NOT ON, NO ABSOLUTES @G@@@@ JJ )@@G@@ TE,U A2,6 . A-OPTION ON, IS THIS AN ABS? @C@@@@JK )@@G@@ J LOOP . NO, SKIP@]@@@@CONTINUE . @G@@@@JL )@@G@@ NOP 0,0,*X7 . INCREMENT NEW ELEMENT COUNTER JM )@@G@@@E@@@@ L,S3 A2,3,A0 . GET ELEMENT TYPE @E@@@@JN )@@G@@ TLE,U A2,5 . CHECK TO SEE IF PROC@B@@@@ JO )@@G@@ TNE,U A2,1 . @F@@@@ J NOTP JP )@@G@@ . NOT A PROCEDURE ELEMENT @F@@@@ S A1,OLDSEQ,JQ )@@G@@X6 . SAVE OLD SEQUENCE NUMBER @F@@@@ S X7,NEWSEQ,JR )@@G@@X6 . SAVE NEWSEQUENCE NUMBER @E@@@@ L A1,8,A0 JS )@@G@@ . OLD DRUM ADDRESS @D@@@@ S A1,OLDADR,*X6 JT )@@G@@ . SAVE FOR LATER@]@@@@NOTP . @D@@@@ SZ 2,A0 JU )@@G@@ . CLEAR LINKS @F@@@@ SZ,H2 3,A0 . SOJV )@@G@@ BSP WILL RE-BUILD THEM @E@@@@ L A1,A0 . ADJW )@@G@@DRESS OF ITEM @E@@@@ L,U A0,FCTB . OUTPUT CJX )@@G@@ONTROL TABLE@F@@@@ LMJ X11,ETIA . ADD ELEMENT TOJY )@@G@@ OUTPUT FILE@C@@@@ LMJ X11,BSPERB . ERROR @E@@@@JZ )@@G@@ J LOOP . GO GET NEXT ONE @]@@@@EOF KA )@@G@@ . @D@@@@ TE,U A0,014 . EOF STATUS? @C@@@@KB )@@G@@ LMJ X11,BSPERA . NO, ERROR@D@@@@ L KC )@@G@@ A0,FCTA+7 . NEXT WRITE LOC@C@@@@ S A0,FCTB+7 KD )@@G@@ . RESTORE @D@@@@ L,U A0,FCTB . OUTPUT CKE )@@G@@ONTROL@F@@@@ LMJ X11,WPFET . WRITE OUT ELEMENT TAKF )@@G@@BLE @C@@@@ LMJ X11,BSPERB . ERROR @B@@@@ KG )@@G@@ L,U A0,FCTB . @E@@@@ LMJ X11,WFTI KH )@@G@@ . WRITE OUT INDEX @C@@@@ LMJ X11,BSPERB KI )@@G@@ . ERROR @[@@@@. @[@@@@. @E@@@@. AT THIS POINT, THE TKJ )@@G@@OC IS PACKED, BUT THE TEXT @E@@@@. IS SPREAD OUT ALL OVER THEKK )@@G@@ FILE. IF A CRASH OCCURS@E@@@@. AT THIS POINT, THIS FILE IS MOREKL )@@G@@ OR LESS INTACT, @C@@@@. BUT IT HAS A LOT OF WASTED SPACE. KM )@@G@@@F@@@@. WE WILL NOW PACK THE TEXT, CHANGING THE TEXT ADDRESS KN )@@G@@@F@@@@. IN EACH TOC ENTRY AS WE PROCESS IT. THIS WAY, IF A CRASHKO )@@G@@@F@@@@. OCCURS, THE ELEMENTS PREVIOUSLY PROCESSED ARE O.K., AND KP )@@G@@@D@@@@. THE ONES NOT YET MOVED ARE ALSO CORRECT. @G@@@@. KQ )@@G@@ ONLY THE SINGLE ELEMENT WHICH WAS IN THE PROCESS OF BEING @D@@@@KR )@@G@@. MOVED HAS ANY CHANCE OF BEING DESTROYED @F@@@@. THKS )@@G@@E BSP PARTIAL TABLE WRITE FEATURE IS USED IN THIS @^@@@@. OPKT )@@G@@ERATION. @[@@@@. @[@@@@. @B@@@@ L,U A0,FCTB KU )@@G@@ . @B@@@@ LMJ X11,RFTI . @B@@@@ KV )@@G@@ LMJ X11,BSPERA . @B@@@@ L A1,(ATABL,KW )@@G@@ELTLEN) .@B@@@@ L,U A0,FCTB . @B@@@@ KX )@@G@@ LMJ X11,RPFET . @B@@@@ LMJ X11,BSPERAKY )@@G@@ . @G@@@@ L X1,(1,0) . POINTER FOR ELKZ )@@G@@EMENT READ/INSERT @F@@@@ L X6,(2,0) . POINTER LA )@@G@@TO PROC SAVE AREA @E@@@@PFLOOP . PROCESS LB )@@G@@NEXT ELEMENT@B@@@@ L,U A0,FCTB . @E@@@@ LC )@@G@@ L,U A1,1,*X1 . SEQUENCE NUMBER @E@@@@ LMLD )@@G@@J X11,ETNL . GET NEXT ELEMENT @D@@@@ J LE )@@G@@ PFEOF . EOF OR ERROR @E@@@@ L A2,A0 LF )@@G@@ . MOVE ADDR OF ITEM @F@@@@ L A0,8,A2 LG )@@G@@ . STARTING ADDR OF TEXT @C@@@@ S A0,STARTAD LH )@@G@@ . SAVE @D@@@@ L,H2 A0,7,A2 . TEXT LENGTH LI )@@G@@@D@@@@ L,S3 A1,3,A2 . ELEMENT TYPE @D@@@@ LJ )@@G@@ TNE,U A1,5 . RELOCATABLE? @E@@@@ A,H1 LK )@@G@@ A0,7,A2 . YES, ADD IN PREAMBLE@C@@@@ S A0,TLL )@@G@@EXTL . AND SAVE@F@@@@ TLE,U A1,5 . CHLM )@@G@@ECK IF ELEMENT IS A PROC@B@@@@ TNE,U A1,1 . LN )@@G@@@B@@@@ J NOTPROC . NO@E@@@@ L LO )@@G@@ A1,NEXTWL . NEW TEXT ADDRESS @D@@@@ S A1,NLP )@@G@@EWADR,*X6 . SAVE FOR LATER@]@@@@NOTPROC . @E@@@@ LMJ LQ )@@G@@ X11,MOVE . MOVE THE TEXT UP @F@@@@ L A0,NLR )@@G@@EXTWL . PREVIOUS NEXT WRITE LOC @G@@@@ S A0,8LS )@@G@@,A2 . IS START AD OF THIS ELEMENT @E@@@@ A LT )@@G@@ A0,TEXTL . ADD TEXT LENGTH @F@@@@ S A0,NLU )@@G@@EXTWL . TO GET NEW NEXT WRITE LOC @F@@@@ L,S3 A1,3LV )@@G@@,A2 . GET ELEMENT TYPE AGAIN @F@@@@ TE,U A1,5LW )@@G@@ . IS THIS A RELOCATABLE? @B@@@@ J NOTALX )@@G@@REL . NO@D@@@@ L A0,8,A2 . TEXT STALY )@@G@@RT ADR@E@@@@ A,H2 A0,7,A2 . ADD IN TEXT LENGTH LZ )@@G@@@G@@@@ S A0,6,A2 . TO GET NEW PREAMBLE LOCATIMA )@@G@@ON @]@@@@NOTAREL . @E@@@@ TNZ TRANS . WAMB )@@G@@S A CHANGE MADE? @D@@@@ J PFLOOP . NO, GET MC )@@G@@NEXT @E@@@@ SZ TRANS . CLEAR FOR NEXT TIME MD )@@G@@@B@@@@ L,U A0,FCTB . @G@@@@ LMJ ME )@@G@@ X11,PTEWT . REWRITE CHANGED ELEMENT ENTRY @C@@@@ LMMF )@@G@@J X11,BSPERA . ERROR @D@@@@ J PFLOOP MG )@@G@@ . GET NEXT ELT @ @@@@MOVE . MOVE TEXT ROUTINE @F@@@@ MH )@@G@@ L A0,STARTAD . STARTING ADDR OF TEXT @F@@@@ MI )@@G@@ TNE A0,NEXTWL . WILL WE MOVE ANYTHING? @D@@@@ MJ )@@G@@ J 0,X11 . NO, RETURN @E@@@@ L MK )@@G@@ A1,TEXTL . GET TEXT LENGTH @H@@@@ JZ A1,0ML )@@G@@,X11 . SPECIAL KLUDGE FOR ZERO-LENGTH ELTS @E@@@@ S MM )@@G@@ X11,TRANS . SIGNAL A TRANSFER @D@@@@ S MN )@@G@@ A0,INADR . INTI IO PKT @E@@@@ L A0,NEXTWL MO )@@G@@ . WHERE TO PUT TEXT @D@@@@ S A0,OADR MP )@@G@@ . INTO IO PACKET@F@@@@ L A0,TEXTL . NUMBER OMQ )@@G@@F SECTORS TO MOVE @D@@@@ DSL A0,6 . DIVIDE BMR )@@G@@Y 64 @D@@@@ SSL A1,30 . REMAINDER @ @@@@MS )@@G@@ S A1,REMAIN @E@@@@ JZ A0,LEFTOVER MT )@@G@@ . MOVE THE SHORT PART @B@@@@ L R1,A0 . MU )@@G@@@E@@@@ JGD R1,IOLOOP . DECREMENT FOR JGD @]@@@@MV )@@G@@IOLOOP . @D@@@@ L,U A0,RPKT . INPUT PACKET MW )@@G@@@E@@@@ ER IOW$ . READ A BLOCK OF TEXT@D@@@@MX )@@G@@ L,U A0,WPKT . OUTPUT PACKET @E@@@@ ERMY )@@G@@ IOW$ . WRITE THAT BLOCK @D@@@@ L MZ )@@G@@ A0,INADR . INPUT ADDR @E@@@@ A,U A0,NSECT NA )@@G@@ . INCREMENT DRUM ADR @B@@@@ S A0,INADR NB )@@G@@ . @D@@@@ L A0,OADR . OUTPUT ADDR @E@@@@NC )@@G@@ A,U A0,NSECT . INCREMENT DRUM ADR @B@@@@ ND )@@G@@ S A0,OADR . @E@@@@ JGD R1,IOLOOP NE )@@G@@ . MOVE NEXT BLOCK @E@@@@ TNZ REMAIN NF )@@G@@ . ONE MORE SECTOR? @E@@@@ J 0,X11 . ALNG )@@G@@L DONE, RETURN @]@@@@LEFTOVER . @F@@@@ L A0,REMAIN NH )@@G@@ . MOVE REMAINDER, IF ANY @E@@@@ MSI,U A0,28 NI )@@G@@ . CONVERT TO WORDS @B@@@@ S,H1 A0,RPKT+4 NJ )@@G@@ . @B@@@@ S,H1 A0,WPKT+4 . @B@@@@ L,NK )@@G@@U A0,RPKT . @E@@@@ ER IOW$ NL )@@G@@ . READ LAST SECTORS @B@@@@ L,U A0,WPKT . NM )@@G@@@D@@@@ ER IOW$ . WRITE LAST @C@@@@ NN )@@G@@ L,U A0,NSECT*28 . RESET @B@@@@ S,H1 A0,RNO )@@G@@PKT+4 . @B@@@@ S,H1 A0,WPKT+4 . @B@@@@NP )@@G@@ L A0,INADR . @B@@@@ A A0,RNQ )@@G@@EMAIN . @B@@@@ S A0,INADR . @B@@@@NR )@@G@@ L A0,OADR . @B@@@@ A A0,RNS )@@G@@EMAIN . @B@@@@ S A0,OADR . @B@@@@NT )@@G@@ J 0,X11 . @E@@@@PFEOF NU )@@G@@ . OUT OF ELEMENTS @B@@@@ TE,U A0,014 NV )@@G@@ . @B@@@@ J BSPERA . @H@@@@ NW )@@G@@ SZ INADR . SET UP TO READ AND WRITE SECTOR 0 NX )@@G@@@B@@@@ SZ OADR . @D@@@@ L,U NY )@@G@@ A0,RPKT . INPUT PACKET @E@@@@ ER IOW$ NZ )@@G@@ . READ SECTOR ZERO @E@@@@ L A0,NEXTWL OA )@@G@@ . NEXT WRITE LOCATION @D@@@@ S A0,BTABL+1 . IOB )@@G@@NTO TOC @E@@@@ DSL A0,72 . TWO WORDS OF ZOC )@@G@@EROES @H@@@@ DS A0,BTABL+6 . CLEAR ALL PROC TABLOD )@@G@@ES FOR SAFETS SAKE@B@@@@ DS A0,BTABL+8 . @B@@@@OE )@@G@@ DS A0,BTABL+10 . @B@@@@ DS A0,BOF )@@G@@TABL+12 . @B@@@@ S A0,BTABL+14 . @B@@@@OG )@@G@@ L,U A0,WPKT . @C@@@@ ER IOW$OH )@@G@@ . RESET @[@@@@. @D@@@@. SINCE ALL THE TEXT HOI )@@G@@AS BEEN PACKED, AND THE @D@@@@. TOC HAS BEEN RE-WRITEN, ALL IS NOJ )@@G@@OW SAFE. @E@@@@. WE WILL NOW PROCEED TO RE-LINK ALL THE PROCSOK )@@G@@. @C@@@@. THIS IS SAVED FOR LAST SINCE THE PROCS@D@@@@. OL )@@G@@ CAN ALWAYS BE RECOVERED BY RE @PDP'ING THE @ @@@@. PROCEDUROM )@@G@@E ELEMENTS. @[@@@@. @[@@@@. @B@@@@ L,U A0,FCTB ON )@@G@@ . @F@@@@ LMJ X11,RFTI . RE-READ FTI FOOO )@@G@@R OUTFILE @B@@@@ LMJ X11,BSPERA . @F@@@@ OP )@@G@@ L X1,(1,0) . DETERMINE TYPE OF PROC @B@@@@PROCLOOQ )@@G@@OP . PROCESS THE PROCEDURE ENTRIES @E@@@@ L X2,(1,0) OR )@@G@@ . SEQUENCE NUMBER @D@@@@ L,U A0,FCTA OS )@@G@@ . INPUT CONTROL @B@@@@ L A1,(ATABL,ELTLEN) .@G@@@@OT )@@G@@ EX RTAB,X1 . CALL BSP FOR THIS TYPE PROC OU )@@G@@@B@@@@ LMJ X11,BSPERA . @E@@@@ TZ,H2 OV )@@G@@ ATABL+139 . ARE THERE ANY PROCS?@B@@@@ J GOTSOW )@@G@@OME . @D@@@@ NOP 0,0,*X1 . INCREMENOX )@@G@@T X1 @E@@@@ J PROCLOOP . NO, DONT BOTHER OY )@@G@@@]@@@@GOTSOME . @B@@@@ L,U A0,FCTB . @B@@@@OZ )@@G@@ L A1,(BTABL,OELTLEN) .@B@@@@ EX RTABPA )@@G@@,X1 . @B@@@@ LMJ X11,BSPERB . @B@@@@PB )@@G@@NEXTP . GET THE NEXT OF THIS TYPE @E@@@@ L,U A1,1PC )@@G@@,*X2 . SEQUENCE NUMBER @E@@@@ L,U A0,FCTA PD )@@G@@ . INPUT FILE CONTROL @D@@@@ EX STAB,X1 PE )@@G@@ . NEXT ITEM @D@@@@ J EOFP . BETTER BPF )@@G@@E EOF @E@@@@ L,H1 A1,2,A0 . SEQUENCE NUMBER LINKPG )@@G@@@H@@@@ L R1,A1 . SEQUENCE NUMBER IS ALSO MAPH )@@G@@X RPT COUNT @F@@@@ L X6,(2,0) . POINTER TO PROPI )@@G@@C SAVE INFO @F@@@@ SE A1,OLDSEQ,*X6 . SEARCH FOR OLDPJ )@@G@@ SEQ. NO. @E@@@@ J NEXTP . NOT FOUND, DELPK )@@G@@ETED @D@@@@ AN,U X6,2 . BACK UP X6 @E@@@@PL )@@G@@ L A1,OLDADR,X6 . GET OLD TEXT ADR @E@@@@ PM )@@G@@ AN A1,NEWADR,X6 . SUBTRACT NEW ADR @E@@@@ MSPN )@@G@@I,U A1,28 . CONVERT TO WORDS @D@@@@ L PO )@@G@@ A2,3,A0 . OLD PROC ADR @H@@@@ LDSC A2,2 PP )@@G@@ . DROP OFF COBOL EXTENDED NAME FLAG @C@@@@ SSL PQ )@@G@@ A2,2 . IF ANY @E@@@@ AN A2,A1 PR )@@G@@ . GET NEW PROC LOC @F@@@@ LSSL A2,2 . GEPS )@@G@@T COBOL PROC FLAG BACK @B@@@@ DSC A2,2 . PT )@@G@@@F@@@@ S A2,3,A0 . STORE BACK INTO PROC ENTRYPU )@@G@@@E@@@@ L A1,NEWSEQ,X6 . NEW SEQUENCE NUMBER @E@@@@PV )@@G@@ S,H1 A1,2,A0 . INTO PROC ENTRY @F@@@@ PW )@@G@@ L A1,A0 . LOCATION OF ENTRY IN CORE @D@@@@ PX )@@G@@ L,U A0,FCTB . OUTPUT CONTROL@E@@@@ EX PY )@@G@@ WTAB,X1 . ADD PROC TO FILE @C@@@@ LMJ X11,PZ )@@G@@BSPERB . ERROR @D@@@@ J NEXTP . GEQA )@@G@@T NEXT ONE @B@@@@EOFP . END OF PROCS FOR THIS TYPE @E@@@@ QB )@@G@@ TE,U A0,014 . WAS IT EOF STATUS? @D@@@@ LMQC )@@G@@J X11,BSPERA . NO, ERROR @G@@@@ L,U A0,FQD )@@G@@CTB . WRITE PROC TABEL FOR THIS TYPE @B@@@@ EX QE )@@G@@ FTAB,*X1 . @C@@@@ LMJ X11,BSPERB . ERQF )@@G@@ROR @E@@@@ J PROCLOOP . AND GET NEXT TYPE QG )@@G@@@]@@@@DONE . @B@@@@ L,U A0,FCTB . @C@@@@QH )@@G@@ LMJ X11,WFTI . AHA! @B@@@@ LMJ QI )@@G@@ X11,BSPERB . @[@@@@. @G@@@@. NOW THAT ALL THE TEXQJ )@@G@@T HAS BEEN PACKED, AND THE TOC RE WRITTEN @H@@@@. IT IS TIME TO QK )@@G@@RELEASE ANY UN-USED GRANULES WHICH ARE LEFT AT THE END@^@@@@. OFQL )@@G@@ THE FILE. @[@@@@. @F@@@@ L A0,(10,FCTA) . UQM )@@G@@SE FCT FOR FITEM$ PACKET@B@@@@ ER FITEM$ . QN )@@G@@@E@@@@ L A0,NEXTWL . NEXT WRITE LOCATION @G@@@@QO )@@G@@ TNZ,S3 FCTA+6 . IS FILE POSITION GRANULARITY? QP )@@G@@@F@@@@ J TRAKGRAN . NO, TRACK GRANULARITY QQ )@@G@@@F@@@@ A,U A0,07777 . ROUND UP TO NEXT POSITION QR )@@G@@@F@@@@ AND A0,(-07777) . MAKE EVEN TRACK ADDRESS QS )@@G@@@F@@@@ SSL A1,6 . MAKE SECTORS INTO TRACKS QT )@@G@@@B@@@@ J RELEASE . @]@@@@TRAKGRAN . @F@@@@QU )@@G@@ A,U A0,077 . ROUND UP TO NEXT TRACK @F@@@@QV )@@G@@ AND A0,(-077) . MAKE EVEN TRACK ADDRESS @E@@@@QW )@@G@@ SSL A1,6 . MAKE INTO TRACKS @]@@@@RELEASQX )@@G@@E . @G@@@@ L A0,A1 . MOVE INTO EXPECTED RQY )@@G@@EGISTER @H@@@@ TG,H1 A0,FCTA+9 . IS HIGHEST TRAQZ )@@G@@CK REFERENCED GREATER? @F@@@@ J NOREL . NORA )@@G@@, NOTHING TO RELEASE @E@@@@ S A0,NEXTWL . SARB )@@G@@VE START TRACK @F@@@@ LSSL A0,6 . CONVERT RC )@@G@@BACK TO SECTORS @F@@@@ S A0,INADR . STORE ADRD )@@G@@DR INTO IO PACKET @E@@@@ L,U A0,REL$ . GET RELERE )@@G@@ASE FUNCTION@D@@@@ S,S2 A0,RPKT+3 . INTO IO PACKETRF )@@G@@@G@@@@ L,H1 A1,FCTA+9 . HIGHEST TRACK TO WORRY ABORG )@@G@@UT @D@@@@ AN A1,NEXTWL . STARTING TRACK@]@@@@RH )@@G@@RELUP . @B@@@@ L,U A0,RPKT . @E@@@@ RI )@@G@@ ER IOW$ . RELEASE A TRACK @D@@@@ L RJ )@@G@@ A0,INADR . DRUM ADDR @E@@@@ A,U A0,6RK )@@G@@4 . MOVE TO NEXT TRACK @B@@@@ S A0,INADR RL )@@G@@ . @C@@@@ JGD A1,RELUP . GO DO IT@]@@@@RM )@@G@@NOREL . @B@@@@ DL A0,('PACKED ') . @B@@@@ RN )@@G@@ DS A0,TALK . @B@@@@ J ZOVER RO )@@G@@ . @]@@@@BSPERA . @B@@@@ LXI,U X11,FCTA RP )@@G@@ . @B@@@@ J ZBSP . @]@@@@BSPERB . RQ )@@G@@@B@@@@ LXI,U X11,FCTB . @B@@@@ J RR )@@G@@ ZBSP . @B@@@@ END . RS )@@G@@@[@@@@*BSP @#@@@@ AXR$ @[@@@@$(0) @H@@@@NEWSEQ + RT )@@G@@ 0 . SEQUENCE NUM OF ENTRY TO BE ADDED @G@@@@LNKWDSRU )@@G@@ + 0 . LINK WORDS FROM PACKET MODIFIED @^@@@@RV )@@G@@ + 0 @G@@@@SEQNBR + 0 . SERW )@@G@@QNBR OF LAST ENTRY LOC BY BSP @G@@@@STAT + 0 RX )@@G@@ . H1=TYPE OF PTR H2=POINTING ITEM@E@@@@ITMLOC + 0 RY )@@G@@ . DRUM ADDRESS OF ITEM@B@@@@ + 0 RZ )@@G@@ . @B@@@@X11SAV + 0 . @G@@@@FCT + SA )@@G@@ 0 . HOLD ADDR OF FCT AND A1 (PKT) @B@@@@ SB )@@G@@ + 0 . @B@@@@ADDR + 0 SC )@@G@@ . @B@@@@SAVEX8 + 0 . @B@@@@SAVEX1SD )@@G@@0 + 0 . @#@@@@$(1) LIT @ @@@@P SE )@@G@@ FORM 12,6,18 @^@@@@SKIP EQU 0 @F@@@@PFWORD* '*SF )@@G@@*PF**' . PROGRAM FILE INDICATOR @F@@@@SYSKON* SG )@@G@@ 1792 . STANDARD START FOR TEXT @^@@@@ DOSH )@@G@@ SKIP , PROC@^@@@@FCYCLE* + 5 @^@@@@SCYCLE* + 5 SI )@@G@@@^@@@@KET* + 1 @ @@@@KAPT* + 01700 @ @@@@SJ )@@G@@KCPT* + 02100 @ @@@@KFPT* + 02300 @ @@@@SK )@@G@@KEPT* + 02500 @^@@@@SPACES ' '@A@@@@ SL )@@G@@ DO 1-SKIP , PROC @#@@@@ END @B@@@@ DOSM )@@G@@ 1-SKIP , PROC @^@@@@PFTID$ EQU PROC@^@@@@PFTIA$SN )@@G@@ EQU PROC@^@@@@PTWT$ EQU PROC@^@@@@WFTI$ EQU SO )@@G@@ PROC@^@@@@WPFT$ EQU PROC@^@@@@ETIA$ EQU RES @^@@@@SP )@@G@@PFTIDX EQU END @^@@@@PFTIAX EQU END @^@@@@PTWTX EQSQ )@@G@@U END @^@@@@WPFTX EQU END @^@@@@WFTIX EQU END SR )@@G@@@^@@@@ETIAX EQU RES @A@@@@ DO SKIP , PROC SS )@@G@@@#@@@@ END @A@@@@ DO SKIP , PROC @^@@@@ST )@@G@@ETIA$ EQU RES @^@@@@PFTID$ EQU RES @^@@@@PFTIA$ EQSU )@@G@@U RES @^@@@@PTWT$ EQU RES @^@@@@WFTI$ EQU RES SV )@@G@@@^@@@@WPFT$ EQU RES @^@@@@ETIAX EQU RES @^@@@@PFTIDXSW )@@G@@ EQU RES @^@@@@PFTIAX EQU RES @^@@@@PTWTX EQU SX )@@G@@ RES @^@@@@WPFTX EQU RES @^@@@@WFTIX EQU RES @ @@@@SY )@@G@@ DO 1-SKIP , PROC @#@@@@ END @^@@@@PFTNLX EQSZ )@@G@@U RES @^@@@@UFTIX EQU RES @^@@@@PFTISX EQU RES TA )@@G@@@^@@@@RPFTX EQU RES @^@@@@PFTNL$ EQU RES @^@@@@UFTI$ TB )@@G@@ EQU RES @^@@@@PFTIS$ EQU RES @^@@@@RPFT$ EQU TC )@@G@@ RES @A@@@@. *** READ FILE TABLE INDEX *** @F@@@@RFTI* L TD )@@G@@ A5,READ . SET IO PACKET FOR READ @ @@@@ S TE )@@G@@ A5,FUNC @ @@@@ AU A0,AC628 @G@@@@ S TF )@@G@@ A1,ACW . SET READ OF 28 WORDS TO FCT+6 @F@@@@ SZTG )@@G@@ DRUMAD . THE FTI IS IN SECTOR 0 @^@@@@ ERTH )@@G@@ IOW$@ @@@@ L A5,STATUS @ @@@@ TNE TI )@@G@@ A5,NORITE @F@@@@ J NEW . FILE NOT WRITTTJ )@@G@@EN IN YET @ @@@@ JNZ A5,IOERR @^@@@@ LXI,U TK )@@G@@ A1,1@ @@@@ L,U R1,28 @ @@@@ SNE A5,0TL )@@G@@,*A1 @ @@@@ J MEXIT-3 @ @@@@ L A4,PTM )@@G@@FWORD @ @@@@ TNE A4,6,A0 @[@@@@UFTI*.@F@@@@NORMX J TN )@@G@@ 1,X11 . ------ NORMAL EXIT ------ @E@@@@NOPF L,TO )@@G@@U A0,2 . ** FILE IS NOT PF **@F@@@@ALLER J TP )@@G@@ 0,X11 . ****** ERROR EXIT ****** @ @@@@NEW L,U TQ )@@G@@ A2,25 @^@@@@ LXI,U A1,1@C@@@@ SZ 2,*ATR )@@G@@1 . ZERO FTI@ @@@@ JGD A2,$-1 @ @@@@ TS )@@G@@ DL A4,PFWORD @F@@@@ DS A4,6,A0 . SETT )@@G@@T WORDS 6 AND 7 OF FCT @ @@@@ L A5,WRITE @ @@@@MEXIT TU )@@G@@ S A5,FUNC @^@@@@ ER IOW$@ @@@@ L TV )@@G@@ A5,STATUS @ @@@@ JZ A5,1,X11 @E@@@@IOERR L,TW )@@G@@U A0,077 . ** I/O ERROR ** @^@@@@ SSC TX )@@G@@ A0,6@ @@@@ A A0,A5 @ @@@@ J 0,X1TY )@@G@@1 @#@@@@AC628 +28,6 @#@@@@ RPFT$ @A@@@@. *** READ PTZ )@@G@@ROGRAM FILE TABLE *** @ @@@@RPFET* L A3,ET @^@@@@ UA )@@G@@ J RPFT@ @@@@RPFAPT* L A3,AT @^@@@@ J UB )@@G@@ RPFT@ @@@@RPFCPT* L A3,CT @^@@@@ J UC )@@G@@ RPFT@ @@@@RPFFPT* L A3,FT @^@@@@ J RPFTUD )@@G@@@ @@@@RPFEPT* L A3,EP @ @@@@RPFT L A5,PFWORD UE )@@G@@@D@@@@ TE A5,6,A0 . FTI MUST EXIST@ @@@@ UF )@@G@@ J NOFTI @ @@@@ SSC A1,18 @G@@@@ UG )@@G@@ S,H2 A1,ACW . A1 CONTIN USER BUFFER ADDRESS @ @@@@UH )@@G@@ S A1,CSBEG @ @@@@ DSL A1,54 @ @@@@UI )@@G@@ DI,U A1,28 @G@@@@ MSI,U A1,28 UJ )@@G@@ . TRUNCATE USER BUFFER LENGTH @E@@@@ S,H1 A1,ACW UK )@@G@@ . USER BUFFER SIZE @G@@@@ TLE A1,MINSIZ UL )@@G@@ . MINSIZ IS SMALLEST BUFFER USED @ @@@@ J NOBUF UM )@@G@@@ @@@@ AU,H2 A1,ACW @E@@@@ S A2,CSEND UN )@@G@@ . END OF CORE SEGMENT @G@@@@ L A4,DSTART UO )@@G@@ . TABLE STARTING ADDRESS ON DRUM @ @@@@ JZ A4,NOTAB UP )@@G@@@ @@@@READY AU,U A4,PTSIZ2 @ @@@@ S A4,DRUMAD UQ )@@G@@@B@@@@ LSSL A5,6 . @B@@@@ A UR )@@G@@ A5,CHANGE . @B@@@@ S A5,DSBEG . US )@@G@@@D@@@@ L A1,DLENGT . TABLE SIZE @ @@@@ UT )@@G@@ TLE,H1 A1,ACW @G@@@@ S,H1 A1,ACW . ACUU )@@G@@TUAL TABLE TO READ IS SMALLER @ @@@@ TNE A1,PTSIZE @D@@@@UV )@@G@@ J ZROEYE . SIMULATE READ @ @@@@ DOUW )@@G@@ SKIP ,ZROEYE. @ @@@@ L A5,READ @ @@@@ J UX )@@G@@ MEXIT @A@@@@ DO SKIP ,NOTAB EQUF 1,X11 @ @@@@ UY )@@G@@ DO SKIP , PROC @ @@@@NOTAB L,U A2,6,A0 @ @@@@ UZ )@@G@@ L A1,KET @ @@@@ SSL A5,36 @^@@@@DO1 VA )@@G@@ A,U A2,3@ @@@@ TNE A2,A3 @^@@@@ J VB )@@G@@ DO4 @^@@@@ TNZ,H2 0,A2@^@@@@ J DO1 VC )@@G@@@ @@@@ L,H2 A1,0,A2 @ @@@@ L,H1 A5,1,A2 VD )@@G@@@ @@@@ A,U A5,2*28 @^@@@@ J DO1 @ @@@@VE )@@G@@DO4 SSL A4,36 @ @@@@ DI,U A4,28 @ @@@@VF )@@G@@ A A4,A1 @ @@@@DO2 L A5,SYSKON @ @@@@VG )@@G@@ TNE,U A2,21,A0 @^@@@@ J DO3 @^@@@@ VH )@@G@@ A,U A2,3@ @@@@ L,H2 A5,0,A2 @ @@@@ JZVI )@@G@@ A5,DO2 @ @@@@DO3 L A1,A3 @ @@@@ ANVJ )@@G@@,U A1,9,A0 @ @@@@ DSL A1,36 @^@@@@ DIVK )@@G@@,U A1,3@ @@@@ TLE A4,KET,A1 @F@@@@ L VL )@@G@@ A4,KET,A1 . USE SYSTEM DEFINED VALUE @^@@@@ AN,U VM )@@G@@ A5,7@ @@@@ TG A4,A5 @ @@@@ J NOROVN )@@G@@OM @ @@@@ L,U A5,10 @ @@@@ JZ A1,$VO )@@G@@+2 @^@@@@ L,U A5,4@ @@@@OK S A5,ITMSIZ VP )@@G@@@F@@@@ S A4,DSTART . INITIALIZE TABLE ENTRIES VQ )@@G@@@ @@@@ L A5,PTSIZE @ @@@@ S A5,DLENGT VR )@@G@@@ @@@@ L A5,PTSIZ1 @B@@@@ LSSL A5,6 VS )@@G@@ . @B@@@@ A A5,ITMSIZ . @B@@@@ VT )@@G@@ S A5,PTWORD . @ @@@@ J READY VU )@@G@@@G@@@@ZROEYE L A2,PTSIZ1 . SIMULATE READ - EMPTY TABLVV )@@G@@E @ @@@@ L A1,CSBEG @^@@@@ LXI,U A1,1VW )@@G@@@ @@@@ SZ 0,*A1 @ @@@@ JGD A2,$-1 VX )@@G@@@^@@@@ AN,U A1,1@ @@@@ L A5,ITMSIZ @ @@@@VY )@@G@@ S,H1 A5,0,A1 @ @@@@ J 1,X11 @ @@@@VZ )@@G@@ DO 1-SKIP , PROC @#@@@@ END @E@@@@NOROOM L,WA )@@G@@U A0,044 . NO ROOM FOR TABLE @ @@@@ J WB )@@G@@ 0,X11 @F@@@@NOBUF L,U A0,024 . USER BUFFER TOWC )@@G@@O SMALL @ @@@@ J 0,X11 @D@@@@NOFTIA L WD )@@G@@ X8,SAVEX8 . RESTORE X8 @F@@@@NOFTI L,U A0,012 WE )@@G@@ . ** NO FILE TABLE INDEX ** @ @@@@ J 0,X11 WF )@@G@@@#@@@@ RPFTX @#@@@@ PFTNL$ @B@@@@. *** PROGRAM FILEWG )@@G@@ TABLE NAME LOOKUP *** @ @@@@ETNL* L A3,ET @ @@@@ WH )@@G@@ J PFTNL @ @@@@APTNL* L A3,AT @ @@@@ WI )@@G@@ J PFTNL @ @@@@CPTNL* L A3,CT @ @@@@ WJ )@@G@@ J PFTNL @ @@@@FPTNL* L A3,FT @ @@@@ WK )@@G@@ J PFTNL @ @@@@EPTNL* L A3,EP @[@@@@PFTNL.WL )@@G@@@C@@@@ S X8,SAVEX8 . SAVE X8 @B@@@@ LMWM )@@G@@J X8,TABCHK . @G@@@@ L A2,CSBEG WN )@@G@@ . GET CURRENT NUMBER OF ENTRIES @A@@@@ L,H2 A2,PTSIZ3,WO )@@G@@A2 @ @@@@ TLE A2,A1 @D@@@@ J COR WP )@@G@@ . OUT OF RANGE @ @@@@ L A5,A1 @B@@@@WQ )@@G@@ LMJ X8,LOOKUP . @ @@@@ S A2,AWR )@@G@@0 @D@@@@RSTORX8 L X8,SAVEX8 . RESTOR X8 @ @@@@WS )@@G@@ J 1,X11 @E@@@@COR L,U A0,014 WT )@@G@@ . OUT OF RANGE EXIT @D@@@@RESTORX8 L X8,SAVEX8 . REWU )@@G@@STOR X8 @ @@@@ J 0,X11 @#@@@@ PFTNLX WV )@@G@@@#@@@@ PTWT$ @ @@@@. *** PART TABLE WRITES *** @ @@@@PTEWT*WW )@@G@@ L A3,ET @^@@@@ J PTW @ @@@@PTATWT* L WX )@@G@@ A3,AT @^@@@@ J PTW @ @@@@PTCTWT* L WY )@@G@@ A3,CT @^@@@@ J PTW @ @@@@PTFTWT* L A3,FWZ )@@G@@T @^@@@@ J PTW @ @@@@PTETWT* L A3,EP XA )@@G@@@[@@@@PTW. @C@@@@ S X8,SAVEX8 . SAVE X8 @B@@@@XB )@@G@@ LMJ X8,TABCHK . @D@@@@ L X8,SXC )@@G@@AVEX8 . RESTOR X8 @ @@@@ L A4,ITMLOC @ @@@@XD )@@G@@ S A4,DRUMAD @H@@@@ L A1,CORLOC XE )@@G@@ . CORE LOCATION OF LAST ITEM REFERENCED @F@@@@ ANU A1,IXF )@@G@@TMLOC+1 . DEDUCT NON SECTOR PORTION @G@@@@ S,H2 A2,AXG )@@G@@CW . SAVE RESULT ASS CORE WRITE ADDR @A@@@@ L XH )@@G@@ A5,ITMLOC+1 @ @@@@ A A5,ITMSIZ @ @@@@ L,XI )@@G@@U A2,020 @ @@@@ TEP,S1 A2,3,A1 @E@@@@ A XJ )@@G@@ A5,ITMSIZ . ENTRY IS EXTENDED @ @@@@ L,U XK )@@G@@ A1,28 @H@@@@ TG,U A5,28+1 . $T DOES ITEMXL )@@G@@ EXTEND INTO 2 SECTORS? @ @@@@ L,U A1,56 @G@@@@ XM )@@G@@ S,H1 A1,ACW . ENTRY EXTENDS INTO NEXT SECTOR @E@@@@XN )@@G@@ J MEXIT-1 . WRITE IT AND EXIT @#@@@@ XO )@@G@@ PTWTX @#@@@@ WPFT$ @A@@@@. *** WRITE PROGRAM FILE TABLEXP )@@G@@ *** @ @@@@WPFET* L A3,ET @^@@@@ J WPFTXQ )@@G@@@ @@@@WPFAPT* L A3,AT @^@@@@ J WPFT@ @@@@XR )@@G@@WPFCPT* L A3,CT @^@@@@ J WPFT@ @@@@WPFFPTXS )@@G@@* L A3,FT @^@@@@ J WPFT@ @@@@WPFEPT* L XT )@@G@@ A3,EP @[@@@@WPFT. @C@@@@ S X8,SAVEX8 XU )@@G@@ . SAVE X8 @B@@@@ LMJ X8,TABCHK . @D@@@@ XV )@@G@@ L X8,SAVEX8 . RESTOR X8 @ @@@@ L XW )@@G@@ A5,WRITE @ @@@@ TZ CHANGE @C@@@@ S XX )@@G@@ X10,SAVEX10 . SAVE X10@B@@@@ LMJ X10,WRITIT XY )@@G@@ . @D@@@@ L X10,SAVEX10 . RESTOR X10 @ @@@@XZ )@@G@@ L A5,CSBEG @E@@@@ S,H2 A5,ACW YA )@@G@@ . WRITE POINTER TABLE @ @@@@ L A5,PTSIZE @ @@@@ YB )@@G@@ S,H1 A5,ACW @ @@@@ TNE A5,DLENGT @^@@@@ YC )@@G@@ SZ 0,A3@ @@@@ L A5,DSTART @ @@@@ S YD )@@G@@ A5,DRUMAD @ @@@@ SZ CSBEG @ @@@@ SZYE )@@G@@ DSBEG @ @@@@ JZ A5,1,X11 @E@@@@ J YF )@@G@@ MEXIT-1 . WRITE IT AND GET OUT@#@@@@ WPFTX YG )@@G@@@A@@@@. *** PROGRAM FILE TABLE ITEM SEARCH@#@@@@ PFTIS$ @ @@@@YH )@@G@@ETIS* L A3,ET @ @@@@ J PFTIS @ @@@@YI )@@G@@APTIS* L A3,AT @ @@@@ J PFTIS @ @@@@YJ )@@G@@CPTIS* L A3,CT @ @@@@ J PFTIS @ @@@@YK )@@G@@FPTIS* L A3,FT @ @@@@ J PFTIS @ @@@@YL )@@G@@EPTIS* L A3,EP @C@@@@PFTIS S X8,SAVEX8 YM )@@G@@ . SAVE X8 @B@@@@ LMJ X8,TABCHK . @ @@@@ YN )@@G@@ SZ SEQNBR @G@@@@ LMJ X8,FOLD . FOYO )@@G@@LD NAME TO GET PRINTER TABLE @G@@@@ L,H2 A5,0,A2 YP )@@G@@ . QUOTIENT DETERMINE HALF TO LUSE @ @@@@ JNB A4,$+2 YQ )@@G@@@ @@@@ L,H1 A5,0,A2 @E@@@@ SSL A4,36 YR )@@G@@ . CLEAR A4, FOR LOOKUP@F@@@@ JZ A5,NOSR1+2 YS )@@G@@ . NO POINTER TABLE ENTRY @ @@@@ DO SKIP , TNZ DSTART@ @@@@YT )@@G@@ DO SKIP , J NOSR1+2 @B@@@@LOOKE LMJ X8,LOOKUP YU )@@G@@ . @ @@@@ S X11,X11S @ @@@@ LMJ X11,YV )@@G@@FINDER@ @@@@ J FIND1-1 @ @@@@NOSR1 L X11,YW )@@G@@X11S @ @@@@ JNZ A5,LOOKE @ @@@@ L A0,AYX )@@G@@4 @ @@@@ S,H1 A0,STAT @G@@@@ LSSL A0,3YY )@@G@@ . BUILD BSP NO IND STATUS CODE @ @@@@ TNE,U YZ )@@G@@ A0,030 @ @@@@ L,U A0,040 @ @@@@ SSL ZA )@@G@@ A1,36 @^@@@@ A,U A0,1@ @@@@ S,H2 A2,SZB )@@G@@TAT @ @@@@ L A2,SEQNBR @E@@@@ J RESTZC )@@G@@ORX8 . RESTOR X8 AND EXIT @ @@@@ L X11,X11S ZD )@@G@@@G@@@@FIND1 L A0,CORLOC . LOCATION OF LAST ITEM LOOKZE )@@G@@ED UP @ @@@@ DL A1,SEQNBR @E@@@@ J RSTOZF )@@G@@RX8 . RESTOR X8 AND EXIT @ @@@@FINDER DL A4,0,A1 ZG )@@G@@@ @@@@ DTE A4,0,A2 @B@@@@ J RELT ZH )@@G@@ . NO@#@@@@ PFTISX @#@@@@ ETIA$ @ @@@@ ZI )@@G@@ TE A3,ET @ @@@@ J NAMCHK @D@@@@ ZJ )@@G@@ L,S3 A5,3,A1 . DO TYPE MATCH @ @@@@ TE,S3 ZK )@@G@@ A5,3,A2 @B@@@@ J RETYP . NO@ @@@@VERCK ZL )@@G@@ DL A4,4,A1 @ @@@@ DJZ A4,$+3 @E@@@@ ZM )@@G@@ DTE A4,4,A2 . DO VERSIONS MATCH @B@@@@ J ZN )@@G@@ REVER . NO@^@@@@ TN 3,A1@E@@@@ ZO )@@G@@ TN 3,A2 . CHECK FOR DELETES @C@@@@ J ZP )@@G@@ 0,X11 . FIND @ @@@@REVER L,H1 A5,2,A2 ZQ )@@G@@@^@@@@ L,U A4,3@C@@@@ J 1,X11 ZR )@@G@@ . NO FIND @^@@@@RETYP TG,U A5,5@^@@@@ J TYPAZS )@@G@@@E@@@@ L,U A5,4 . PACKET TYPE SYMBOLIC@ @@@@ZT )@@G@@ TG,S3 A5,3,A2 @F@@@@ J VERCK ZU )@@G@@ . ENTRY TYPE SYMBOLIC TOO @D@@@@TYPA L,U A4,2 ZV )@@G@@ TRY TYPE LINK @ @@@@ L,H2 A5,3,A2 @C@@@@ J ZW )@@G@@ 1,X11 . NO FIND @#@@@@ ETIAX @#@@@@ ZX )@@G@@ PFTIS$ @]@@@@NAMCHK. @G@@@@ TE A3,CT ZY )@@G@@ . COBOL TABLE MAY NEED EXTENDED MA@ @@@@ J CONSR2 ZZ )@@G@@@ @@@@ L,S1 A4,3,A1 @ @@@@ XOR,S1 A4,3,A2 AA )@@G@@@ @@@@ TEP,U A5,020 @^@@@@ J RELT@ @@@@AB )@@G@@ TOP,U A4,020 @ @@@@ J CONSR2 @ @@@@AC )@@G@@ DL A4,4,A2 @ @@@@ DTE A4,4,A1 @^@@@@AD )@@G@@ J RELT@ @@@@ L A4,7,A2 @ @@@@ AE )@@G@@ TE A4,7,A1 @^@@@@ J RELT@F@@@@CONSR2 TPAF )@@G@@ 3,A2 . CHECK IF DELETES ALLOWED @^@@@@ TPAG )@@G@@ 3,A1@C@@@@ J 0,X11 . FIND @E@@@@AH )@@G@@RELT L,U A4,1 . TRY POINTER LINK @ @@@@ AI )@@G@@ L,H2 A5,2,A2 @C@@@@ J 1,X11 . NOAJ )@@G@@ FIND @[@@@@FOLD. @G@@@@ L A5,0,A1 . ADD LASTAK )@@G@@ HALF NAME TO 1ST HALF @ @@@@ A A5,1,A1 @ @@@@ AL )@@G@@ SSL A4,36 @ @@@@ DI A4,PTSIZ1 @ @@@@ AM )@@G@@ A A5,CSBEG @ @@@@ L A2,A5 @D@@@@ AN )@@G@@ J 0,X8 . FOLD EXIT @#@@@@ PFTISX AO )@@G@@@#@@@@ PFTIA$ @B@@@@. *** PROGRAM FILE TABLE ITEM ADD *** AP )@@G@@@ @@@@APTIA* L A3,AT @^@@@@ J PNIA@ @@@@AQ )@@G@@CPTIA* L A3,CT @^@@@@ J PNIA@ @@@@FPTIA*AR )@@G@@ L A3,FT @^@@@@ J PNIA@ @@@@EPTIA* L AS )@@G@@ A3,EP @ @@@@ J PNIA-1 @ @@@@ETIA* L AT )@@G@@ A3,ET @D@@@@ SZ,H1 2,A1 . ERSION AU )@@G@@LINK @D@@@@ SZ,H2 3,A1 . ZERO TYPE LINK@^@@@@AV )@@G@@PNIA SZ,H2 2,A1@C@@@@ S X8,SAVEX8 . SAAW )@@G@@VE X8 @ @@@@ S X11,X11SP @C@@@@ DL A4,2AX )@@G@@,A1 . ROUTINES@D@@@@ DS A4,LNKWDS . BSAY )@@G@@P USES THESE@ @@@@ TE A3,ET @ @@@@ J AZ )@@G@@ TLOOP-1 @ @@@@ DL A4,SPACES @^@@@@ TNZ BA )@@G@@ 4,A1@ @@@@ DS A4,4,A1 @G@@@@ L,U A2,0BB )@@G@@,A3 . SET A2=ADDRESS OF CURRENT TABLE @^@@@@TLOOP A,U BC )@@G@@ A2,3@F@@@@ L,H2 A5,0,A2 . NO,GT DRUM START ADDBD )@@G@@RESS @F@@@@ TNE,U A2,24,A0 . IS A2 BEYOND LAST TABE )@@G@@BLE @G@@@@ L A5,SYSKON . YES USE START OF TEXBF )@@G@@T AS NEXT TA@ @@@@ JZ A5,TLOOP @G@@@@ AN BG )@@G@@ A5,DSTART . BLE START -- YES,DEDUCT START OF@F@@@@ MSBH )@@G@@I,U A5,28 . ONE TO GET LENGTH POSS @G@@@@ S BI )@@G@@ A5,MAXLEN . AND STORE THIS LENGTH AS MAX @F@@@@ BJ )@@G@@ L A4,DLENGT . FIND IF ITEM WILL FIT @ @@@@ BK )@@G@@ A A4,ITMSIZ @ @@@@ L,U A5,020 @ @@@@ BL )@@G@@ TEP,S1 A5,3,A1 @^@@@@ A,U A4,4@ @@@@ TGBM )@@G@@ A4,MAXLEN @ @@@@ J NOROOM @ @@@@ S BN )@@G@@ A4,MAXLEN @G@@@@ L A2,CSBEG . CALCULATBO )@@G@@E SEQNBR FOR NEW ITEM @A@@@@ L,H2 A4,PTSIZ3,A2 @^@@@@BP )@@G@@ A,U A4,1@ @@@@ S A4,NEWSEQ @ @@@@ BQ )@@G@@ TEP,S1 A5,3,A1 @^@@@@ A,U A4,1@A@@@@ S,BR )@@G@@H2 A4,PTSIZ3,A2 @ @@@@ L,S1 A4,3,A1 @ @@@@ BS )@@G@@ OR,U A4,040 @ @@@@ TNE A3,EP @ @@@@ BT )@@G@@ S,S1 A5,3,A1 @ @@@@ LMJ X11,PFTIS @D@@@@ BU )@@G@@ J EANF . NO FIND EXIT @ @@@@ L BV )@@G@@ A2,A0 @ @@@@ DL A0,FCT @ @@@@ L BW )@@G@@ A4,NEWSEQ @ @@@@ TE A3,ET @ @@@@ J BX )@@G@@ PNIA2 @ @@@@ L,H1 A5,2,A2 @ @@@@ S,H1 BY )@@G@@ A5,2,A1 @ @@@@ S,H1 A4,2,A2 @^@@@@ J BZ )@@G@@ SAME@ @@@@PNIA2 L,H2 A5,2,A2 @ @@@@ S,H2 A5,2CA )@@G@@,A1 @ @@@@ S,H2 A4,2,A2 @ @@@@ TE A3,ECB )@@G@@P @^@@@@ J SAME@ @@@@ L,H2 A5,3,A2 CC )@@G@@@ @@@@ S,H2 A5,3,A1 @ @@@@ S,H2 A4,3,A2 CD )@@G@@@^@@@@ J SAMO@G@@@@SAME LMJ X8,CHGIT CE )@@G@@ . SET SEGMENT CHANGE INDICATOR @^@@@@ TN 3,A2@ @@@@CF )@@G@@ J DELIT @B@@@@ LMJ X8,LOOKUP CG )@@G@@ . @^@@@@ TP 3,A2@ @@@@ J SAMO+1 CH )@@G@@@ @@@@ LMJ X11,FINDER@B@@@@DELIT LMJ X11,DELE CI )@@G@@ . @ @@@@ J SAMO+1 @E@@@@EANF L CJ )@@G@@ X11,X11SP . NO FIND ACTION HERE @F@@@@ JN A0,ACK )@@G@@LLER . ERROR CONDITIONS ON SEARCH@ @@@@ JNB A0,ACL )@@G@@LLER @ @@@@ DL A0,FCT @ @@@@ L,H2 X11,CM )@@G@@STAT @ @@@@ L,H1 A2,STAT @ @@@@ L A5,NCN )@@G@@EWSEQ @ @@@@ JNZ A2,TRYP @G@@@@ LMJ X8,FCO )@@G@@OLD . YES-BY PTR TABLE GENERATED ORIG @ @@@@ L CP )@@G@@ A5,NEWSEQ @ @@@@ JB A4,SET2 @ @@@@ S,H2 CQ )@@G@@ A5,0,A2 @ @@@@ J SAMO+1 @ @@@@SET2 S,H1 CR )@@G@@ A5,0,A2 @ @@@@ J SAMO+1 @B@@@@SAMO LMJ CS )@@G@@ X8,CHGIT . @ @@@@ L A5,NEWSEQ @ @@@@ CT )@@G@@ L X11,X11SP @B@@@@ LMJ X8,LOOKUP . CU )@@G@@@E@@@@ LMJ X8,CHGIT . MARK SEGMENT CHANGE @^@@@@CV )@@G@@ LXI,U A1,1@^@@@@ LXI,U A2,1@ @@@@ L,CW )@@G@@S1 A4,3,A1 @ @@@@ AND,U A4,037 @H@@@@ S,CX )@@G@@S1 A5,3,A1 . CLEAR DELETE FLAG IN PACKET ENTRY @ @@@@CY )@@G@@ L R1,ITMSIZ @ @@@@ L,U A5,020 @ @@@@CZ )@@G@@ TEP,S1 A5,3,A1 @^@@@@ L,U R1,8@ @@@@ DA )@@G@@ BT A2,0,*A1 @ @@@@ L A2,CORLOC @ @@@@ DB )@@G@@ TNE A3,ET @E@@@@ TZ 9,A2 . ISDC )@@G@@ TIME ALRADY SET @ @@@@ J SKPITM @D@@@@ ERDD )@@G@@ TDATE$ . NO GO GET ONE @ @@@@ SSC A0,1DE )@@G@@8 @ @@@@ S A0,9,A2 @ @@@@SKPITM DL A0,FDF )@@G@@CT @E@@@@ DL A4,LNKWDS . RESTORE LINK WORDS DG )@@G@@@E@@@@ DS A4,2,A1 . RESTORE LINK WORDS @ @@@@DH )@@G@@ L A5,MAXLEN @D@@@@ S A5,DLENGT DI )@@G@@ . SET NEW LENGTH@ @@@@ L A1,NEWSEQ @G@@@@ TEDJ )@@G@@ A3,ET . WAS THIS AN ELEMENT TABLE INSERT@D@@@@ DK )@@G@@ J FIND1 . NO - EXIT @E@@@@ L,S3 DL )@@G@@ A4,3,A2 . GET ELEMENT TYPE @G@@@@ TNE,U A4,6DM )@@G@@ . SKIP IF IT WAS NOT ABSOLUTE @H@@@@ S DN )@@G@@ A1,25,A0 . PUT SEQUENCE NUMBER IN WD 25 OF FCT @I@@@@ DO )@@G@@ . (LAST ABSOLUTE ELEMENT IN PROGRAM FILEDP )@@G@@) @H@@@@ TE,U A4,5 . IS A RELOCATABLE ELEDQ )@@G@@MENT BEING ADDED @D@@@@ J FIND1 . NO - EXIDR )@@G@@T @H@@@@ SZ,H2 21,A0 . CLEAR STARTING LOC ODS )@@G@@F ENT POINT TABLE @H@@@@ SZ,H1 22,A0 . CLEAR LEDT )@@G@@NGTH OF ENT POINT TABLE IN FCT@C@@@@ J FIND1 DU )@@G@@ . EXIT @A@@@@TRYP EX SAVLNK-1,A2 @^@@@@ J DV )@@G@@ SAMO@]@@@@SAVLNK. @ @@@@ S,H2 A5,2,X11 @ @@@@DW )@@G@@ S,H2 A5,3,X11 @ @@@@ S,H1 A5,2,X11 @#@@@@DX )@@G@@ PFTIAX @#@@@@ PFTID$ @B@@@@. *** PROGRAM FILE TABLEDY )@@G@@ ITEM DELETE *** @ @@@@ETID* L A3,ET @ @@@@ J DZ )@@G@@ PFTID @ @@@@APTID* L A3,AT @ @@@@ J EA )@@G@@ PFTID @ @@@@CPTID* L A3,CT @ @@@@ J EB )@@G@@ PFTID @ @@@@FPTID* L A3,FT @ @@@@ J EC )@@G@@ PFTID @ @@@@EPTID* L A3,EP @ @@@@PFTID S ED )@@G@@ X11,X11SP @ @@@@ LMJ X11,PFTIS @ @@@@ J EE )@@G@@ DELER @ @@@@ L A2,A0 @ @@@@ DLEF )@@G@@ A0,FCT @B@@@@ LMJ X11,DELE . @B@@@@EG )@@G@@ L X11,X11SP . @ @@@@ TE A3,EEH )@@G@@T @G@@@@ J FIND1 . DO NOT PRINT DELETE EI )@@G@@MESSAGE @ @@@@ L A5,SEQNBR @G@@@@ TNE EJ )@@G@@ A5,25,A0 . IS THIS THE LAST ABSOLUTE IN FIL@D@@@@ SZEK )@@G@@ 25,A0 . WIPE IT OUT @C@@@@ J FINDEL )@@G@@1 . EXIT @ @@@@DELER L X11,X11SP @E@@@@ EM )@@G@@ J RESTORX8 . RESTOR X8 AND EXIT @#@@@@ PFEN )@@G@@TIDX @#@@@@ WFTI$ @A@@@@. *** WRITE FILE TABLE INDEX *** EO )@@G@@@ @@@@WFTI* L,U A3,6,A0 @F@@@@TESTM A,U A3,3 EP )@@G@@ . MOVE UP TO NEXT TABLE @ @@@@ L A5,DLENGT EQ )@@G@@@ @@@@ TE A5,PTSIZE @^@@@@ J $+3 @ @@@@ER )@@G@@ SZ CSBEG @E@@@@ SZ 0,A3 ES )@@G@@ . DSTART AND DSBEG @ @@@@ TZ CSBEG @C@@@@ ET )@@G@@ J NOWT . FAIL @ @@@@ TE,U A3,2EU )@@G@@1,A0 @ @@@@ J TESTM @ @@@@ SZ DRUMEV )@@G@@AD @ @@@@ AU A0,AC628 @ @@@@ S A1,AEW )@@G@@CW @E@@@@ J MEXIT-1 . WRITE IT AND GET OUTEX )@@G@@@G@@@@NOWT L,U A0,042 . *** ALL TABLES NOT WRITTENEY )@@G@@ *** @ @@@@ J 0,X11 @#@@@@ WFTIX @#@@@@EZ )@@G@@ PFTNL$ @#@@@@ PFTIS$ @ @@@@. **********************FA )@@G@@*** @ @@@@. *** THE LOOKUP ROUTINE *** @ @@@@. **********************FB )@@G@@*** @]@@@@LOOKUP. @ @@@@ S,H1 A4,STAT @G@@@@ FC )@@G@@ L A2,SEQNBR . ITEM THAT CONTAINED THE POINTER @D@@@@FD )@@G@@ S A5,SEQNBR . ITEM TO LOOKUP@ @@@@ S,FE )@@G@@H2 A2,STAT @^@@@@ AN,U A5,1@ @@@@ MSI FF )@@G@@ A5,ITMSIZ @ @@@@ A A5,PTSIZE @ @@@@ SSL FG )@@G@@ A4,36 @ @@@@ DI,U A4,28 @G@@@@ A FH )@@G@@ A4,DSTART . CALCULATE DRUM ADDRESS IN A4,A5 @ @@@@ DSFI )@@G@@ A4,ITMLOC @B@@@@ L A5,DSBEG . @B@@@@FJ )@@G@@ SSL A5,6 . @B@@@@ TLE A4,AFK )@@G@@5 . @F@@@@ J GETSEG . THIS ENTFL )@@G@@RY NOT IN CORE NOW@B@@@@CONTIN AN A4,A5 . @ @@@@FM )@@G@@ MSI,U A4,28 @ @@@@ A A4,CSBEG @G@@@@FN )@@G@@ A A4,PTSIZE . ADJUST WORD RELAT FOR PTR TABLE FO )@@G@@@B@@@@ A A4,ITMLOC+1 . @ @@@@ S FP )@@G@@ A4,A2 @ @@@@ S A4,CORLOC @ @@@@ A FQ )@@G@@ A4,ITMSIZ @ @@@@ TNE A3,CT @G@@@@ A,U FR )@@G@@ A4,4 . COBOL TABLE ALLOWS EXTENDED ENTR@ @@@@ L FS )@@G@@ A5,CSEND @ @@@@ TG A5,A4 @I@@@@ J FT )@@G@@ 0,X8 . ITEM WAS NOT OUTSIDE BUFFER, LOOKUP EXIT FU )@@G@@@ @@@@GETSEG L A5,WRITE @C@@@@ S X10,SAVEX1FV )@@G@@0 . SAVE X10@ @@@@ TZ CHANGE @B@@@@ LMFW )@@G@@J X10,WRITIT . @ @@@@ L A4,ITMLOC @B@@@@FX )@@G@@ LSSL A4,6 . @B@@@@ A A4,CFY )@@G@@HANGE . @B@@@@ S A4,DSBEG . @ @@@@FZ )@@G@@ L A5,READ @B@@@@ LMJ X10,READIT GA )@@G@@ . @D@@@@ L X10,SAVEX10 . RESTORE X10 @B@@@@GB )@@G@@ L A4,ITMLOC . @B@@@@ L A5,DGC )@@G@@SBEG . @B@@@@ SSL A5,6 . @ @@@@GD )@@G@@ J CONTIN @#@@@@ PFTNLX @#@@@@ PFGE )@@G@@TISX @]@@@@TABCHK. @ @@@@ DS A0,FCT @ @@@@ GF )@@G@@ L A5,PFWORD @ @@@@ TE A5,6,A0 @B@@@@ GG )@@G@@ J NOFTIA . @ @@@@ TZ CSBEG GH )@@G@@@D@@@@ J 0,X8 . TABCHK EXIT @E@@@@NOT GI )@@G@@ L,U A0,022 . TABLE NOT IN CORE @E@@@@ J GJ )@@G@@ RESTORX8 . RESTOR X8 AND EXIT @A@@@@X11S EQUF GK )@@G@@ X11SAV,0,H1 @A@@@@X11SP EQUF X11SAV,0,H2 @F@@@@CORLOCGL )@@G@@ EQUF ADDR,0,H2 . CORE LOCATION OF ITME @E@@@@MAXLENGM )@@G@@ EQUF ADDR,0,H1 . CURRENT TABLE SIZE @#@@@@ PFGN )@@G@@TIA$ @#@@@@ PFTID$ @[@@@@DELE. @ @@@@ L,S1 A4,3GO )@@G@@,A2 @ @@@@ OR,U A4,040 @ @@@@ S,S1 A5,3GP )@@G@@,A2 @E@@@@ LMJ X8,CHGIT . MARK SEGMENT CHANGE GQ )@@G@@@D@@@@ J 0,X11 . DELE EXIT @[@@@@CHGIT.GR )@@G@@@^@@@@ L,U A4,1@ @@@@ S A4,CHANGE @D@@@@GS )@@G@@ J 0,X8 . CHGIT EXIT @#@@@@ PFGT )@@G@@TIAX @#@@@@ PFTIDX @]@@@@READIT. @]@@@@WRITIT. @ @@@@GU )@@G@@ S A5,FUNC @ @@@@ L A4,DSBEG @B@@@@GV )@@G@@ SSL A4,6 . @ @@@@ S A4,DGW )@@G@@RUMAD @ @@@@ ANU A4,DSTART @ @@@@ MSI,U A5,2GX )@@G@@8 @ @@@@ L A4,DLENGT @ @@@@ AN A4,AGY )@@G@@5 @ @@@@ S,H1 A4,ACW @ @@@@ LN A4,CGZ )@@G@@SBEG @ @@@@ AN A4,PTSIZE @ @@@@ SN,H2 A4,AHA )@@G@@CW @ @@@@ A A4,CSEND @ @@@@ TLE,H1 A4,AHB )@@G@@CW @ @@@@ S,H1 A4,ACW @^@@@@ TZ,H1 ACW HC )@@G@@@^@@@@ ER IOW$@ @@@@ L A5,STATUS @ @@@@HD )@@G@@ JNZ A5,IOERR @ @@@@OUT1 SZ CHANGE @F@@@@HE )@@G@@ J 0,X10 . READIT OR WRITIT EXIT @#@@@@HF )@@G@@. ***EQUATES*** @D@@@@READ EQUF 02000,0,U . READ FUNHG )@@G@@CTION @D@@@@WRITE EQUF 01000,0,U . WRITE FUNCTION@E@@@@HH )@@G@@NORITE EQUF 05,0,U . NOT USED I/O STATUS @ @@@@PTSIZ2HI )@@G@@ EQU 140/28 @^@@@@PTSIZ3 EQU 139 @F@@@@PTSIZ1 EQHJ )@@G@@UF 139,0,U . ACTUAL USED SIZE OF TABLE @ @@@@MINSIZ EQHK )@@G@@UF 196,0,U @E@@@@PTSIZE EQUF 140,0,U . POINTER HL )@@G@@TABLE LENGTH@ @@@@ET EQUF 9,A0,U @ @@@@AT EQUF HM )@@G@@ 12,A0,U @ @@@@CT EQUF 15,A0,U @ @@@@FT EQUF HN )@@G@@ 18,A0,U @ @@@@EP EQUF 21,A0,U @D@@@@STATUS EQUF HO )@@G@@ 3,A0,S1 . IO STATUS @B@@@@FUNC EQUF 3,A0,H1 HP )@@G@@ . @E@@@@ACW EQUF 4,A0 . PACKET ACCESS HQ )@@G@@WORD @E@@@@DRUMAD EQUF 5,A0 . PACKET DRUM ADDRESS HR )@@G@@@G@@@@DSBEG EQUF 0,A3,H1 . DSBEG IS T1 DEF AS H1 FOR HS )@@G@@QTR @G@@@@DSTART EQUF 0,A3,H2 . TABLE START ADDRESS HT )@@G@@ON DRUM @G@@@@CSBEG EQUF 1,A3,H2 . ADDRESS OF USEHU )@@G@@R CORE BUFFER @G@@@@CSEND EQUF 2,A3,H2 . END ADDRHV )@@G@@ESS OF USER CORE BUFFER @E@@@@DLENGT EQUF 1,A3,H1 . CUHW )@@G@@RRENT TABLE LENGTH@D@@@@ITMSIZ EQUF 2,A3,S3 . ITMEM SIHX )@@G@@ZE @G@@@@PTWORD EQUF 2,A3,H1 . PTWORDIS T1 DEF AS HHY )@@G@@1 FOR QTR @ @@@@CHANGE EQUF 0,A3,S3 @#@@@@ END HZ )@@G@@@[@@@@*COPYQ@#@@@@ AXR$ @^@@@@ FURPRC . @^@@@@IA )@@G@@ ITEM$ . @B@@@@DEBUG EQU 0 . IB )@@G@@@B@@@@WHERE + 0 . @[@@@@$(1) @B@@@@COPYQ*IC )@@G@@ L,U X6,0 . @B@@@@ ON MCORE ID )@@G@@ . @B@@@@ L,U A0,LASTD$ . @B@@@@ IE )@@G@@ A,U A0,BUFLEN . @B@@@@ ER MCORE$ IF )@@G@@ . @^@@@@ OFF . @ @@@@ L X4,(IG )@@G@@1,BUF)@A@@@@ L A0,(' ') @ @@@@ L,U IH )@@G@@ R1,13 @ @@@@LOOP S A0,0,*X4 @ @@@@ JGD II )@@G@@ R1,LOOP @ @@@@ L,U A15,037 @ @@@@ LMJ IJ )@@G@@ X9,UNPACK @E@@@@ L,U A15,02033 . REQUIRE X OPTIIK )@@G@@ON @ @@@@ L,U X6,14 @ @@@@ LMJ X9,UIL )@@G@@NPACK @E@@@@ L A9,FACPAC+7 . SAVE ASSIGN OPTIONS IM )@@G@@@B@@@@ S A9,ASGOPTS . @ @@@@ L IN )@@G@@ A1,(1,0) @A@@@@ L A0,(1,BUF+3) @B@@@@ LMIO )@@G@@J X5,BLDFN1 . @A@@@@ L A0,('$FILEB') IP )@@G@@@ @@@@ S A0,FCTA @ @@@@ L,U A0,020 IQ )@@G@@@ @@@@ S A0,MPKT @B@@@@ L A0,(034000IR )@@G@@0,SBLOCK) @ @@@@ S A0,MPKT+3 @ @@@@ SZ IS )@@G@@ MPKT+4 @ @@@@ L,U A0,MPKT @ @@@@ ER IT )@@G@@ MSCON$ @^@@@@ TP A0 @^@@@@ J ERR IU )@@G@@@E@@@@ LMJ X11,GETUSE . GET ALL USENAMES @ @@@@IV )@@G@@ L,U X11,SBLOCK@A@@@@ DL A4,LRDKEY,X11 IW )@@G@@@E@@@@ TNE A4,('//////') . IS READ KEY SLASHES?@D@@@@IX )@@G@@ J KEYNEEDED . YES, ERROR @F@@@@ TNIY )@@G@@E A5,('//////') . IS WRITE KEY SLASHES? @D@@@@ J IZ )@@G@@ KEYNEEDED . YES, ERROR @ @@@@ A,U X11,JA )@@G@@28 @ @@@@ L,S1 A0,0,X11 @ @@@@ TOP,U A0,0JB )@@G@@020 @^@@@@ J $-3 @A@@@@ S A4,MREAD,XJC )@@G@@11 @A@@@@ S A5,MWRITE,X11 @D@@@@ DS JD )@@G@@ A4,URDKEY . SAVE KEYS . @B@@@@ DL A2,MQUAL,XJE )@@G@@11 . @B@@@@ DS A2,UQUAL . @B@@@@ JF )@@G@@ DL A2,MFILE,X11 . @B@@@@ DS A2,UFILE JG )@@G@@ . @H@@@@ SLJ CLRLN . CLEAR IMAGE ARJH )@@G@@EA FOR FACILITIES LINE @#@@@@ S X11,WHERE @A@@@@ L JI )@@G@@ A3,('@ASG,C') @ @@@@ LMJ X4,INSONE @ @@@@ L,JJ )@@G@@U A5,'P' @A@@@@ L A2,MFLG2,X11 @ @@@@ JK )@@G@@ TOP A2,PRIVAT @ @@@@ EX INTAB,*A1 @ @@@@ JL )@@G@@ L,U A5,'R' @A@@@@ L A2,MFLG2,X11 @ @@@@JM )@@G@@ TEP A2,RONLY @ @@@@ EX INTAB,*A1 @B@@@@JN )@@G@@ L,U A5,'G' . @B@@@@ L A2,MJO )@@G@@FLG2,X11 . @D@@@@ TEP A2,NOBACK . G OPTIONJP )@@G@@ FILE?@C@@@@ EX INTAB,*A1 . YES @B@@@@ JQ )@@G@@ L,U A5,'V' . @D@@@@ TEP A2,NOROLL JR )@@G@@ . V OPTION FILE?@C@@@@ EX INTAB,*A1 . YEJS )@@G@@P @ @@@@ L,U A5,' ' @ @@@@ EX INTAJT )@@G@@B,*A1 @ @@@@ LXM,U A0,IMAGE+2@B@@@@ SZ KEYSJU )@@G@@ . @B@@@@ SZ KEYS+1 . @ @@@@JV )@@G@@ LMJ X5,BLDFN1 @A@@@@ L A3,(' (+1) ') JW )@@G@@@ @@@@ LMJ X4,INSONE @B@@@@ L,U A5,'/' JX )@@G@@ . @B@@@@ EX INTAB,*A1 . @D@@@@ JY )@@G@@ L A3,MREAD,X11 . GET READ KEY @B@@@@ TZ JZ )@@G@@ A3 . @B@@@@ LMJ X4,INSONE . KA )@@G@@@B@@@@ L,U A5,'/' . @B@@@@ EX KB )@@G@@ INTAB,*A1 . @D@@@@ L A3,MWRITE,X11 . GEKC )@@G@@T WRITE KEY @B@@@@ TZ A3 . @B@@@@ KD )@@G@@ LMJ X4,INSONE . @B@@@@ L A3,('., KE )@@G@@ ') . @B@@@@ LMJ X4,INSONE . @A@@@@ KF )@@G@@ L A3,MMEDIA,X11 @ @@@@ TLE,U A3,030 @ @@@@KG )@@G@@ J TAPEIM @D@@@@ AN,U A3,030 KH )@@G@@ . GET DIFFERENCE@D@@@@ LSSL A3,1 . MULT BY KI )@@G@@2 @F@@@@ L A3,MEDIA,A3 . ASSIGNED EQUIPMENT TKJ )@@G@@YPE @F@@@@ LMJ X4,INSONE . PUT EQUIP TYPE IN IMKK )@@G@@AGE @C@@@@ L,U A5,'/' . PUT IN @E@@@@ KL )@@G@@ EX INTAB,*A1 . SLASH AFTER EQUIP @F@@@@ DSKM )@@G@@ A0,INPLAC . SAVE A0,A1 FOR INSONE @E@@@@ L KN )@@G@@ A0,MRESRV,X11 . INITIAL RESERVE @D@@@@ SLJ KO )@@G@@ BTBCD1 . CONVRT TO FD @F@@@@ DL A0,INPLAC KP )@@G@@ . RESOTR INSONE POINTERS @E@@@@ LMJ X4,INSONE KQ )@@G@@ . PUT IN IMAGE AREA @C@@@@ L,U A5,'/' KR )@@G@@ . PUT @E@@@@ EX INTAB,*A1 . SLASH IN IMAGEKS )@@G@@ AREA @D@@@@ L A5,MFLG1,X11 . GRANULARITY @F@@@@KT )@@G@@ L A3,('TRK ') . GET READY FOR GRAN TEST @D@@@@KU )@@G@@ TEP A5,POSGRN . POS GRAN? @D@@@@ L KV )@@G@@ A3,('POS ') . YES,POS GRAN @E@@@@ LMJ X4,IKW )@@G@@NSONE . STORE GRAN IN IMAGE @D@@@@ L,U A5,'/' KX )@@G@@ . PUT SLASH @D@@@@ EX INTAB,*A1 .IN KY )@@G@@IMAGE AREA @F@@@@ DS A0,INPLAC . SAVE A0,A1 FORKZ )@@G@@ INSONE @D@@@@ L A0,MGCT,X11 . GET MAX RES LA )@@G@@@D@@@@ SLJ BTBCD1 . CONVERT FD @F@@@@ LB )@@G@@ DL A0,INPLAC . RESOTR INSONE POINTERS @D@@@@ LC )@@G@@ LMJ X4,INSONE . STORE IN IMAGE@B@@@@ L LD )@@G@@ A0,(016,IMAGE) . @ @@@@ DO DEBUG=1 , ER PRINT$ @D@@@@ LE )@@G@@ ER CSF$ . EQUIP LINE @B@@@@ SLJ LF )@@G@@ CLRLN . @A@@@@ L A3,('@USE ') @B@@@@LG )@@G@@ LMJ X4,INSONE . @ @@@@ L,U A5,'LH )@@G@@ ' @ @@@@ EX INTAB,*A1 @B@@@@ DL A3,(LI )@@G@@'$FILEB, ') @B@@@@ LMJ X4,INSTWO . @B@@@@LJ )@@G@@ LMJ X5,BLDFN1 . @B@@@@ L A3,(LK )@@G@@'(+1) ') . @B@@@@ LMJ X4,INSONE . @A@@@@LL )@@G@@ L A0,(016,IMAGE) @ @@@@ DO DEBUG=1 , ER PRINT$ LM )@@G@@@B@@@@ ER CSF$ . @ @@@@ S LN )@@G@@ X11,COPU @B@@@@ J COPYP . @A@@@@RETURNLO )@@G@@* L A3,('$FILEB') @B@@@@ S A3,FCTA LP )@@G@@ . @B@@@@ S A3,DRPKT . @B@@@@ TZLQ )@@G@@ PREPIT . @C@@@@ J UPREP LR )@@G@@ . YES @B@@@@UPREPRET* DL A0,('@FREE,R ') . @^@@@@ LS )@@G@@ SZ COPU@B@@@@ DS A0,IMAGE . @A@@@@LT )@@G@@ L A0,(016,IMAGE) @ @@@@ DO DEBUG=1 , ER PRINT$ LU )@@G@@@B@@@@ ER CSF$ . @A@@@@ L LV )@@G@@ A0,(020,MSG) @ @@@@ DO DEBUG=1 , ER PRINT$ @B@@@@ ERLW )@@G@@ CSF$ . @E@@@@ SLJ CLRLN LX )@@G@@ . CLEAR IMAGE BUFFER @E@@@@ L A3,('@ASG,X') . ALLY )@@G@@WAYS AN X OPTION @B@@@@ LMJ X4,INSONE . @E@@@@LZ )@@G@@ L A9,ASGOPTS . GET OPTIONS BACK @D@@@@ MA )@@G@@ LSSL A9,10 . DROP OFF JUNK @E@@@@ L,U MB )@@G@@ R6,25 . 26 POSSIBLE OPTIONS @E@@@@ L,U A5,'MC )@@G@@A' . AND START WITH 'A' @D@@@@WHIRR JPS A9,NXTOPT MD )@@G@@ . NOT THIS ONE @E@@@@ EX INTAB,*A1 . PUME )@@G@@T THIS ONE ON @E@@@@NXTOPT A,U A5,1 . STEP TO MF )@@G@@NEXT OPTION @D@@@@ JGD R6,WHIRR . AND GO TO IT MG )@@G@@@B@@@@ L,U A5,' ' . @C@@@@ EX MH )@@G@@ INTAB,*A1 . A BLANK @B@@@@ DL A3,UQUAL MI )@@G@@ . @D@@@@ LMJ X4,INSTWO . INTO IMAGE @B@@@@MJ )@@G@@ L,U A5,'*' . @B@@@@ EX INTAMK )@@G@@B,*A1 . @D@@@@ DL A3,UFILE . FILENAMML )@@G@@E @B@@@@ LMJ X4,INSTWO . @B@@@@ L,MM )@@G@@U A5,'/' . @B@@@@ EX INTAB,*A1 MN )@@G@@ . @B@@@@ L A3,URDKEY . @D@@@@ TZMO )@@G@@ A3 . WAS THERE ONE?@C@@@@ LMJ X4,IMP )@@G@@NSONE . STASH @B@@@@ L,U A5,'/' . MQ )@@G@@@B@@@@ EX INTAB,*A1 . @B@@@@ L MR )@@G@@ A3,UWKEY . @C@@@@ TZ A3 . GOMS )@@G@@T ONE?@C@@@@ LMJ X4,INSONE . STASH @B@@@@ MT )@@G@@ L,U A5,' ' . @C@@@@ EX INTAB,*A1 MU )@@G@@ . A BLANK @C@@@@ L,U A5,'.' . A PERIODMV )@@G@@@E@@@@ EX INTAB,*A1 . INTO IMAGE FOR CSF @B@@@@MW )@@G@@ L A0,(016,IMAGE) . @ @@@@ DO DEBUG=1 , ER PRIMX )@@G@@NT$ @B@@@@ ER CSF$ . @E@@@@ L MY )@@G@@ R1,USECTR . NUMBER OF USE NAMES @E@@@@ JGD MZ )@@G@@ R1,$+1 . DECREMENT FOR JGD @C@@@@ L,U A0,'NA )@@G@@,' . A COMMA @B@@@@ S,S1 A0,BUF+2 . NB )@@G@@@E@@@@ L X3,(2,LIST) . POINTER TO USE NAMES@B@@@@NC )@@G@@ DL A0,('@USE ') @E@@@@ DS A0,MND )@@G@@SG . PUT USE INTO IMAGE @E@@@@USELOOP DL A0,0,*X3 NE )@@G@@ . GET NEXT USE NAME @E@@@@NXTCHR AND,U A1,077 NF )@@G@@ . PICK UP LAST CHAR @D@@@@ TE,U A2,' ' . WANG )@@G@@S IT BLANK? @C@@@@ J GOTIT . NO, OK @C@@@@NH )@@G@@ DSC A0,6 . JUSTIFY @D@@@@ J NI )@@G@@ NXTCHR . GET NEXT ONE @B@@@@GOTIT DS A0,BUF NJ )@@G@@ . @B@@@@ L A0,(020,MSG) . @ @@@@ DONK )@@G@@ DEBUG=1 , ER PRINT$ @B@@@@ ER CSF$ . NL )@@G@@@D@@@@ JGD R1,USELOOP . GET NEXT NAME @B@@@@ NM )@@G@@ SLJ FREASG . @B@@@@ DL A0,('@FREENN )@@G@@,D ') @ @@@@ DS A0,MSG @A@@@@ L NO )@@G@@ A0,('$FILEA') @B@@@@ S A0,FCTA . @B@@@@NP )@@G@@ S A0,DRPKT . @B@@@@ LMJ X11,NQ )@@G@@ELMCPY . @ @@@@ J ZOVER @A@@@@KEYNEEDED NR )@@G@@ . KEYS NEEDED @B@@@@ L A1,('$FILEA') . NS )@@G@@@B@@@@ S A1,FCTA . @F@@@@ S NT )@@G@@ A1,COPU . SET COPU FLAG FOR DIAGZ @E@@@@ L,U NU )@@G@@ A2,DERR1 . ERROR ROUTINE I.D. @B@@@@ J ZABONV )@@G@@RT . @[@@@@ERR. @B@@@@TAPEIM L A3,(DL31,DMSG31)NW )@@G@@ . @B@@@@ L A0,('$FILEA') . @B@@@@ S NX )@@G@@ A0,FCTA . @B@@@@ L,U A2,DERR7 NY )@@G@@ . @B@@@@ J ZABORT . @[@@@@$(0) @ @@@@NZ )@@G@@INPLAC EQU BUFFER+40 @A@@@@SBLOCK EQU BUFFER+1792 OA )@@G@@@ @@@@P FORM 12,6,18 @#@@@@MEDIA 'F2 ' @#@@@@ OB )@@G@@ 'FB ' @#@@@@ 'F4 ' @#@@@@ 'F8 ' @#@@@@ OC )@@G@@ 'F17 ' @#@@@@ 'F14 ' @#@@@@ 'F40 ' @#@@@@ OD )@@G@@ 'FC5 ' @]@@@@ END @[@@@@*PRTTD@[@@@@. @B@@@@. THIS ADDITOE )@@G@@ION TO FURPUR IS INTENDED @B@@@@. TO GIVE THE USER AN ABBREVIATED TAOF )@@G@@BLE OF@ @@@@. CONTENTS OF A PROGRAM FILE. @[@@@@. @B@@@@ FUROG )@@G@@PRC . @#@@@@ AXR$. @B@@@@R PROOH )@@G@@C . @B@@@@PFET* NAME RPFET OI )@@G@@ . @B@@@@PFAPT* NAME RPFAPT . @B@@@@PFCPT* NAMOJ )@@G@@E RPFCPT . @B@@@@PFFPT* NAME RPFFPT OK )@@G@@ . @B@@@@PFEPT* NAME RPFEPT . @B@@@@ L,UOL )@@G@@ A0,FCTA . @C@@@@ L A1,(BUFFER+196,BUOM )@@G@@FLEN-196) @B@@@@ LMJ X11,R(0,0) . @G@@@@ ON )@@G@@ J BSPERA . BSP ERRORS HANDLED BY FURPUR @B@@@@OO )@@G@@ END . @ @@@@TABLE EQU BUFFEOP )@@G@@R+196 @B@@@@A16 EQU A15+1 . @B@@@@P FOROQ )@@G@@M 12,6,18 . @E@@@@FCT EQU FCTA OR )@@G@@ . DEFINED IN FURPUR @[@@@@$(2). @B@@@@NELTS + 0 OS )@@G@@ . @B@@@@FINMS '**_ ' . @]@@@@FINMS2OT )@@G@@. @A@@@@NEPMES 'NO ENTRY POINT TABLE'. @]@@@@NEPMEZ. @ @@@@OU )@@G@@NPRMES 'NO PROC TABLES'. @]@@@@NPRMEZ. @A@@@@EPMES '*** ENTROV )@@G@@Y POINTS ***'. @[@@@@EPMEZ.@ @@@@APMES '*** ASM PROCS ***'. @[@@@@OW )@@G@@APMEZ.@ @@@@FPMES '*** FOR PROCS ***'. @[@@@@FPMEZ.@ @@@@CPMES '**OX )@@G@@* COB PROCS ***'. @[@@@@CPMEZ.@E@@@@NSTY 'THERE ARE XXX DELETED ELEOY )@@G@@MENTS IN THIS FILE' @B@@@@LNSTY EQU $-NSTY . OZ )@@G@@@ @@@@NSTY2 'PLEASE PACK IT' @B@@@@LNSTY2 EQU $-NSTY2 PA )@@G@@ . @H@@@@CLEAR1. EVERYTHING TO BE CLEARED TO ZERO GOPB )@@G@@ES FROM HERE TO CLEAR2 @#@@@@SEQNO RES 1 . @#@@@@FLAGS RES 1 . PC )@@G@@@#@@@@SFLAG RES 1 . @#@@@@APFLAG RES 1 . @#@@@@CPFLAG RES 1 . PD )@@G@@@#@@@@FPFLAG RES 1 . @#@@@@RFLAG RES 1 . @#@@@@AFLAG RES 1 . PE )@@G@@@#@@@@EPFLAG RES 1 . @#@@@@DFLAG RES 1 . @#@@@@ELTNAM RES 2 . PF )@@G@@@#@@@@VERNAM RES 2 . @#@@@@CYCLE RES 1 . @#@@@@TIME RES 1 . PG )@@G@@@#@@@@PRCNAM RES 5 . @#@@@@LINK RES 1 . @#@@@@STYPE RES 1 PH )@@G@@@#@@@@NOPROC RES 1 . @#@@@@NOEPS RES 1 . @B@@@@NUMDLE RES PI )@@G@@ 1 . @B@@@@DELFLAG RES 1 . PJ )@@G@@@]@@@@CLEAR2. @[@@@@$(2). @^@@@@CODES 'SYM' . 1 @^@@@@ PK )@@G@@ 'AP' . 2 @^@@@@ 'CP' . 3 @^@@@@ 'FP' PL )@@G@@ . 4 @^@@@@ 'REL' . 5 @^@@@@ 'ABS' . 6 @^@@@@PM )@@G@@SCODES 'ELT' . 1 @^@@@@ 'ASM' . 2 @^@@@@ 'COPN )@@G@@B' . 3 @^@@@@ 'FOR' . 4 @^@@@@ 'ALG' . 5 PO )@@G@@@^@@@@ 'MAP' . 6 @^@@@@ 'DOC' . 7 @^@@@@ PP )@@G@@ 'SEC' . 8 @^@@@@ DO 8 , 'JNK' @#@@@@ 'DEP' PQ )@@G@@@#@@@@ 'SSG' @#@@@@ 'MIM' @#@@@@ 'OMN' PR )@@G@@@#@@@@ 'SNO' @#@@@@ 'CUL' @#@@@@ 'MAD' PS )@@G@@@#@@@@ 'BAS' @B@@@@MAXTYP EQU $-SCODES . PT )@@G@@@B@@@@YEAR RES 1 . @B@@@@DAY RES PU )@@G@@ 1 . @B@@@@MONTH RES 1 . PV )@@G@@@^@@@@HOURS RES 1 @B@@@@MINS RES 1 PW )@@G@@ . @B@@@@TYPE RES 1 . @B@@@@CYCFLG RESPX )@@G@@ 1 . @E@@@@PRLINE EQU IMAGE PY )@@G@@ . RES 24 IN FURPUR @[@@@@/$(1).@E@@@@PRTTD* . PRT,T FOR DEMAND RUPZ )@@G@@NS...COME HERE FROM FURPUR. @B@@@@ ON STATISTICS QA )@@G@@ . @D@@@@ L A0,FREQUENCY+19 . USE COUNT @B@@@@QB )@@G@@ A,U A0,1 . @B@@@@ S A0,FQC )@@G@@REQUENCY+19 . @^@@@@ OFF . @E@@@@ LN QD )@@G@@ A0,(0330002700) . DEBPARTS OPTIONS @F@@@@ S A0,PQE )@@G@@TBSW . SET SPECAIL-PRT FLAG @E@@@@ SLJ TSTOQF )@@G@@PT . ANY OTHER, ILLEGAL @E@@@@ L R13,(' QG )@@G@@ ') . LEAVE BLANKS IN R13 @D@@@@ L,U A14,1 QH )@@G@@ . AND 1 IN A14 @A@@@@ L A0,(1,CLEAR1) @B@@@@ QI )@@G@@ L,U X1,CLEAR2-CLEAR1-1 @^@@@@ SZ 0,*A0@B@@@@QJ )@@G@@ JGD X1,$-1 . @B@@@@ S A14,SQK )@@G@@EQNO . @ @@@@ L,U A15,037 @E@@@@ LMJQL )@@G@@ X9,UNPACK . UNPACK INFOR TABLE @B@@@@ ON QM )@@G@@ MCORE . @B@@@@ L,U A0,LASTD$ . QN )@@G@@@B@@@@ A,U A0,BUFLEN . @B@@@@ ER QO )@@G@@ MCORE$ . @^@@@@ OFF . @F@@@@ L QP )@@G@@ A1,(BUFFER+196,BUFLEN-196) . DEFINED IN FURPUR @E@@@@ LMJQQ )@@G@@ X9,READIN . RFTI AND RPFET @C@@@@ L,H2 QR )@@G@@ A15,TABLE+139 . NO. ELTS@B@@@@ S A15,NELTS QS )@@G@@ . @D@@@@ ANU,U A15,1 . SET FOR JGD @F@@@@QT )@@G@@ L A0,WCT+1 . OPTION WORD FROM FURPUR @B@@@@QU )@@G@@ TEP,U A0,1*/('Z'-'S') . @C@@@@ S A14,SQV )@@G@@FLAG . S SET @B@@@@ TEP,U A0,1*/('Z'-'R') . QW )@@G@@@C@@@@ S A14,RFLAG . R SET @B@@@@ TOPQX )@@G@@,U A0,1*/('Z'-'P') . @^@@@@ J $+5 @C@@@@ QY )@@G@@ S A14,APFLAG . P SET @B@@@@ S A14,CQZ )@@G@@PFLAG . @B@@@@ S A14,FPFLAG . @^@@@@RA )@@G@@ J $+2 @ @@@@ S A14,NOPROC @B@@@@ RB )@@G@@ TEP A0,(1*/('Z'-'A')) . @C@@@@ S A14,AFLAG RC )@@G@@ . A SET @B@@@@ TEP A0,(1*/('Z'-'D')) . @B@@@@RD )@@G@@ S A14,DFLAG . @B@@@@ TEP A0,(1RE )@@G@@*/('Z'-'E')) . @ @@@@ S A14,EPFLAG @D@@@@ L RF )@@G@@ X1,A15 . NUMBER OF ELTS@B@@@@ AN,U X1,1RG )@@G@@ . @F@@@@ LXI,XU X1,-1 . PREPARERH )@@G@@ TO GO BACKWARD @D@@@@ TOP A0,(1*/('Z'-'B')) . B-OPTIONRI )@@G@@ NO? @D@@@@ L X1,(1,0) . NO, GO FORWARD@ @@@@RJ )@@G@@ L,H1 A0,FCT+10 @D@@@@ TNE,U A0,0214 . IF EQRK )@@G@@UAL, FILE IS EMPTY@^@@@@ J EMPTY@B@@@@ L RL )@@G@@ A0,SCYC . @B@@@@ SLJ BCDTB1 . RM )@@G@@@B@@@@ S A2,A11 . @B@@@@ S RN )@@G@@ A2,A12 . @ @@@@ELTLUP L,U A1,1,*X1 @ @@@@ RO )@@G@@ S A1,SEQNO @B@@@@ L,U A0,FCTA . RP )@@G@@@B@@@@ LMJ X11,ETNL . @B@@@@ J RQ )@@G@@ TAP . @B@@@@ S A0,X2 . RR )@@G@@@E@@@@ TN 3,X2 . TEST DELETE FLAG @B@@@@RS )@@G@@ J NODEL . @B@@@@ L A9,NRT )@@G@@UMDLE . @B@@@@ A,U A9,1 . @ @@@@RU )@@G@@ S A9,NUMDLE @B@@@@ J NXTELT RV )@@G@@ . @D@@@@NODEL L,S3 A0,3,X2 . ELT TYPE @B@@@@RW )@@G@@ L,S3 A1,3,X2 . @B@@@@ L A2,ARX )@@G@@PFLAG . @B@@@@ JNZ A2,$+3 . @B@@@@RY )@@G@@ TLE,U A1,5 . @B@@@@ L,U A1,1RZ )@@G@@ . @ @@@@ TG,U A0,MAXTYP+1 @^@@@@ J SA )@@G@@ $+3 @D@@@@ TNZ FLAGS,A1 . WANT IT? SB )@@G@@@C@@@@ J NXTELT . NOPE! @B@@@@ JZSC )@@G@@ A11,FIGR . @B@@@@ JGD A12,FIGR SD )@@G@@ . @B@@@@ J TAP . @[@@@@FIGR. @B@@@@SE )@@G@@ S A0,FLAGS . @B@@@@ SLJ PRINTSF )@@G@@ . @ @@@@NXTELT JGD A16,$+2 @^@@@@ J SG )@@G@@ TAP @ @@@@ JMGI X2,ELTLUP @ @@@@TAP TNZ SH )@@G@@ APFLAG @^@@@@ J TCP @ @@@@ S A14,SSI )@@G@@EQNO @ @@@@ L A0,FCT+13 @ @@@@ TNG,U A0,14SJ )@@G@@1 @^@@@@ J TCP @ @@@@ S A14,NOPROC SK )@@G@@@B@@@@ P$RINT (P 1,APMEZ-APMES,APMES)@#@@@@ PFAPT SL )@@G@@@D@@@@ L,H2 A15,TABLE+139 . NO OF PROCS @D@@@@ SM )@@G@@ ANU,U A15,1 . SET FOR JGD @A@@@@ L SN )@@G@@ X2,(4,TABLE+140) @E@@@@APLUP TP 3,X2 . TEST IF SO )@@G@@DELETED @B@@@@ J NXTAP . @ @@@@ SP )@@G@@ SLJ PRINTA @ @@@@NXTAP JGD A16,$+2 @^@@@@ SQ )@@G@@ J TCP @ @@@@ JMGI X2,APLUP @ @@@@TCP TNZSR )@@G@@ CPFLAG @^@@@@ J TFP @ @@@@ S SS )@@G@@ A14,SEQNO @ @@@@ L A0,FCT+16 @ @@@@ TNG,U ST )@@G@@ A0,141 @^@@@@ J TFP @ @@@@ S A14,NSU )@@G@@OPROC @B@@@@ P$RINT (P 1,CPMEZ-CPMES,CPMES)@#@@@@ PFCSV )@@G@@PT @A@@@@ L,H2 A15,TABLE+139 @^@@@@ ANU,U SW )@@G@@ A15,1@A@@@@ L X2,(4,TABLE+140) @^@@@@CPLUP TP SX )@@G@@ 3,X2 @B@@@@ J NXTCP . @ @@@@ SLJSY )@@G@@ PRINTC @ @@@@NXTCP JGD A16,$+2 @^@@@@ J SZ )@@G@@ TFP @ @@@@ JMGI X2,CPLUP @ @@@@TFP TNZ TA )@@G@@ FPFLAG @^@@@@ J EPASK@ @@@@ S A14,STB )@@G@@EQNO @ @@@@ L A0,FCT+19 @ @@@@ TNG,U A0,14TC )@@G@@1 @^@@@@ J TEP @ @@@@ S A14,NOPROC TD )@@G@@@B@@@@ P$RINT (P 1,FPMEZ-FPMES,FPMES)@#@@@@ PFFPT TE )@@G@@@A@@@@ L,H2 A15,TABLE+139 @^@@@@ ANU,U A15,1TF )@@G@@@A@@@@ L X2,(4,TABLE+140) @^@@@@FPLUP TP 3,X2 TG )@@G@@@B@@@@ J NXTFP . @ @@@@ SLJ TH )@@G@@ PRINTA @ @@@@NXTFP JGD A16,$+2 @G@@@@ J TI )@@G@@ TEP . SEE IF HE WANTS ENTRY POINTS @ @@@@ JMGTJ )@@G@@I X2,FPLUP @[@@@@EPASK.@ @@@@TEP L A0,NOPROC @ @@@@TK )@@G@@ JNZ A0,$+3 @C@@@@ L A0,(P 1,NPRMEZ-NPTL )@@G@@RMES,NPRMES)@ @@@@ ER PRINT$ @ @@@@ TNZ TM )@@G@@ EPFLAG @^@@@@ J EOF @B@@@@EPTMT L A0,FCTN )@@G@@T+22 . @ @@@@ TNG,U A0,141 @ @@@@ J TO )@@G@@ NEPPRT @ @@@@ S A14,NOEPS @C@@@@ P$TP )@@G@@RINT (P 2,EPMEZ-EPMES,EPMES). @#@@@@ PFEPT @A@@@@ TQ )@@G@@ L,H2 A15,TABLE+139 @^@@@@ ANU,U A15,1@A@@@@ TR )@@G@@ L X2,(4,TABLE+140) @^@@@@EPLUP TP 3,X2 @^@@@@ TS )@@G@@ J NXTEP@ @@@@ SLJ PRINTA @ @@@@NXTEP JGDTT )@@G@@ A16,$+2 @^@@@@ J EOF @ @@@@ JMGI TU )@@G@@ X2,EPLUP @]@@@@NEPPRT. @C@@@@ L A0,(P 1,NEPMEZ-NETV )@@G@@PMES,NEPMES)@ @@@@ ER PRINT$ @B@@@@ J TW )@@G@@ EOF . @^@@@@PRINT J $-$ @ @@@@ DL TX )@@G@@ A0,0,X2 @ @@@@ DS A0,ELTNAM @ @@@@ DL TY )@@G@@ A0,4,X2 @ @@@@ DS A0,VERNAM @ @@@@ L,TTZ )@@G@@2 A0,6,X2 @ @@@@ S A0,CYCLE @ @@@@ L UA )@@G@@ A0,9,X2 @ @@@@ S A0,TIME @ @@@@ L,SUB )@@G@@1 A0,7,X2 @ @@@@ S A0,STYPE @ @@@@ SLJUC )@@G@@ PRTELT @^@@@@ J PRINT@^@@@@PRINTA J UD )@@G@@ $-$ @ @@@@ DL A0,0,X2 @ @@@@ DS A0,PRUE )@@G@@CNAM @ @@@@ L,H1 A0,2,X2 @ @@@@ S A0,LIUF )@@G@@NK @A@@@@I DO 3 , S R13,PRCNAM+1+I @ @@@@ SLJ UG )@@G@@ PRTPRC @ @@@@ J PRINTA @^@@@@PRINTC J UH )@@G@@ $-$ @ @@@@ DL A0,0,X2 @ @@@@ DS A0,PRUI )@@G@@CNAM @ @@@@ L,H1 A0,2,X2 @ @@@@ S A0,LIUJ )@@G@@NK @B@@@@I DO 3 , S R13,PRCNAM+1+I . @ @@@@ L UK )@@G@@ A0,3,X2 @^@@@@ LSSL A0,1 @ @@@@ JP UL )@@G@@ A0,$+5 @ @@@@ DL A0,4,X2 @ @@@@ DS UM )@@G@@ A0,PRCNAM+2@ @@@@ L A0,7,*X2 @ @@@@ S UN )@@G@@ A0,PRCNAM+4@ @@@@ SLJ PRTPRC @ @@@@ J UO )@@G@@ PRINTC @B@@@@EOF L A0,('$FILEA') . @B@@@@ UP )@@G@@ S A0,FACPAC . @B@@@@ L,U A0,FACPAC UQ )@@G@@ . @B@@@@ ER FACIL$ . @B@@@@ UR )@@G@@ L A5,FACPAC+7 . @E@@@@ TEP,U A5,1*/('Z'US )@@G@@-'T') . TEMPORARY FILE? @E@@@@ J BYEBYE UT )@@G@@ . YES, DONT COMPLAIN @B@@@@ L A0,NUMDLE . UU )@@G@@@E@@@@ L A1,NELTS . NO. OF ELEMENTS @G@@@@UV )@@G@@ SSL A1,3 . DIVIDE BY AN ARBITRARY NUMBER UW )@@G@@@B@@@@ TG A1,A0 . @B@@@@ J UX )@@G@@ BYEBYE . @B@@@@ LMJ X11,CVT3BF . UY )@@G@@@B@@@@ + NUMDLE . @B@@@@ S,S5 UZ )@@G@@ A0,NSTY+1 . @B@@@@ S,S6 A1,NSTY+1 . VA )@@G@@@B@@@@ S,S1 A2,NSTY+2 . @B@@@@ P$RINT VB )@@G@@ (P 2,LNSTY,NSTY) . @B@@@@ P$RINT (P 1,LNSTY2,NSTY2) . VC )@@G@@@C@@@@BYEBYE P$RINT (P 2,FINMS2-FINMS,FINMS) . @E@@@@ J VD )@@G@@ ZOVER . RETURN TO FURPUR @ @@@@EMPTY SLJ VE )@@G@@ CLRLN .@ @@@@ L,U X6,0 .@A@@@@ LMJ VF )@@G@@ X5,BLDFN1 . @B@@@@ DL A4,('IS EMPTY ') . @ @@@@VG )@@G@@ DS A4,1,A0 .@B@@@@ L A0,(0117,IMAGE) VH )@@G@@. @B@@@@ ER PRINT$ . EMPTY FILE @ @@@@ J VI )@@G@@ EOF .@E@@@@CVT3BF . CONVERT BINARY TO 3 DIGIT FIELDATA IN VJ )@@G@@A0,A1,A2 @ @@@@ . LMJ X11,CVT3BF @C@@@@ . + ADDREVK )@@G@@SS OF NO. TO BE CONVERTED @]@@@@ . @B@@@@ L VL )@@G@@ A0,*0,X11 . @^@@@@ DSA A0,36@B@@@@ DI,VM )@@G@@U A0,100 . @^@@@@ DSA A1,36@B@@@@ VN )@@G@@ DI,U A1,10 . @B@@@@ A,U A0,060 VO )@@G@@ . @B@@@@ A,U A1,060 . @B@@@@ VP )@@G@@ A,U A2,060 . @B@@@@ J 1,X11 VQ )@@G@@ . @[@@@@GET. @ @@@@I DO 5 , L A0,0,X4,U-I@^@@@@ VR )@@G@@ SLJ $+1 @^@@@@ J $-$ @ @@@@ L,S6 VS )@@G@@ A0,0,*X4 @^@@@@ AN,U X5,6 @^@@@@ J *$-3 VT )@@G@@@[@@@@PUT. @ @@@@I DO 5 , S A0,0,X7,U-I@^@@@@ SLJ VU )@@G@@ $+1 @^@@@@ J $-$ @ @@@@ S,S6 A0,0,*X7 VV )@@G@@@^@@@@ AN,U X8,6 @^@@@@ J *$-3 @^@@@@PRTELTVW )@@G@@ J $-$ @ @@@@ L,S6 A0,TIME @^@@@@ A,UVX )@@G@@ A0,64@ @@@@ S A0,YEAR @ @@@@ L,S5 VY )@@G@@ A0,TIME @ @@@@ S A0,DAY @ @@@@ L,S4 VZ )@@G@@ A0,TIME @ @@@@ S A0,MONTH @ @@@@ L,H1 WA )@@G@@ A0,TIME @^@@@@ DSA A0,36@ @@@@ DI,U A0,36WB )@@G@@00 @ @@@@ S A0,HOURS @^@@@@ SZ A0 WC )@@G@@@^@@@@ DI,U A0,60@B@@@@ S A0,MINS WD )@@G@@ . @ @@@@ L A2,FLAGS @A@@@@ L A0,COWE )@@G@@DES-1,A2 @ @@@@ S A0,TYPE @ @@@@ SZ WF )@@G@@ CYCFLG @^@@@@ TLE,U A2,5 @ @@@@ S A14,CWG )@@G@@YCFLG @^@@@@ TE,U A2,1 @^@@@@ J PRT @ @@@@WH )@@G@@ L A0,STYPE @^@@@@ TNE,U A0,0 @^@@@@ WI )@@G@@ J PRT @A@@@@ L A0,SCODES-1,A0 @ @@@@ WJ )@@G@@ S A0,TYPE @[@@@@PRT. @E@@@@ SLJ CLRLN WK )@@G@@ . CLEAR OUTPUT LINE @ @@@@ LMJ X11,CVT3BF @#@@@@WL )@@G@@ + SEQNO @ @@@@ S,S1 A0,PRLINE @ @@@@ S,SWM )@@G@@2 A1,PRLINE @ @@@@ S,S3 A2,PRLINE @^@@@@ TNZWN )@@G@@ DFLAG@^@@@@ J NODT @ @@@@ LMJ X11,CWO )@@G@@VT3BF @#@@@@ + MONTH @ @@@@ S,S5 A1,PRLINE @ @@@@WP )@@G@@ S,S6 A2,PRLINE @^@@@@ L,U A0,' /' @ @@@@ WQ )@@G@@ S,S1 A0,PRLINE+1@ @@@@ LMJ X11,CVT3BF @#@@@@ WR )@@G@@ + DAY @ @@@@ S,S2 A1,PRLINE+1@ @@@@ S,S3 WS )@@G@@ A2,PRLINE+1@ @@@@ L,U A0,' /' @ @@@@ S,S4 WT )@@G@@ A0,PRLINE+1@ @@@@ LMJ X11,CVT3BF @#@@@@ + YEAR WU )@@G@@@ @@@@ S,S5 A1,PRLINE+1@ @@@@ S,S6 A2,PRLINE+1WV )@@G@@@ @@@@ L,U A0,' ' @ @@@@ S,S1 A0,PRLINE+2WW )@@G@@@B@@@@ LMJ X11,CVT3BF . @B@@@@ + WX )@@G@@ HOURS . @B@@@@ S,S2 A1,PRLINE+2 . WY )@@G@@@B@@@@ S,S3 A2,PRLINE+2 . @ @@@@ L,U WZ )@@G@@ A0,'@@:' @ @@@@ S,S4 A0,PRLINE+2@ @@@@ LMJ XA )@@G@@ X11,CVT3BF @^@@@@ + MINS @ @@@@ S,S5 A1,PRXB )@@G@@LINE+2@ @@@@ S,S6 A2,PRLINE+2@ @@@@ L A0,R1XC )@@G@@3 @ @@@@ S A0,PRLINE+3@ @@@@ L,H1 A0,TYXD )@@G@@PE @ @@@@ S,T2 A0,PRLINE+3@^@@@@ SSL A0,12XE )@@G@@@ @@@@ S,S2 A0,PRLINE+3@A@@@@ L X4,(1,ELTNAXF )@@G@@M) @ @@@@ L X5,(1,0) @A@@@@ L X7,(1XG )@@G@@,PRLINE+4) @ @@@@ L X8,(1,0) @ @@@@ J XH )@@G@@ GETA-1 @ @@@@NODT L,H1 A0,TYPE @ @@@@ S,S1 XI )@@G@@ A0,PRLINE+1@^@@@@ SSL A0,6 @ @@@@ S,T3 A0,PRXJ )@@G@@LINE @A@@@@ L X4,(1,ELTNAM) @ @@@@ L XK )@@G@@ X5,(1,0) @A@@@@ L X7,(1,PRLINE+1) @ @@@@ L XL )@@G@@ X8,(1,2) @^@@@@ L,U R1,11@ @@@@GETA EX XM )@@G@@ GET,*X5 @^@@@@ TNE,U A0,5 @^@@@@ J SLASHXN )@@G@@@ @@@@ EX PUT,*X8 @ @@@@ JGD R1,GETA XO )@@G@@@ @@@@SLASH L,U A0,'@@/' @ @@@@ EX PUT,*X8 XP )@@G@@@ @@@@ LXM,U X4,VERNAM @^@@@@ LXM,U X5,0 @^@@@@XQ )@@G@@ L,U R1,11@ @@@@GETB EX GET,*X5 @^@@@@ XR )@@G@@ TNE,U A0,5 @^@@@@ J LPAR @ @@@@ EX XS )@@G@@ PUT,*X8 @ @@@@ JGD R1,GETB @ @@@@LPAR TNZ XT )@@G@@ CYCFLG @B@@@@ J GOPRT . @ @@@@ XU )@@G@@ L,U A0,'@@(' @ @@@@ EX PUT,*X8 @ @@@@ XV )@@G@@ LMJ X11,CVT3BF @^@@@@ + CYCLE@^@@@@ L XW )@@G@@ A0,A1@ @@@@ TE,U A0,060 @ @@@@ EX XX )@@G@@ PUT,*X8 @^@@@@ L A0,A2@ @@@@ EX PUT,*XY )@@G@@X8 @ @@@@ L,U A0,'@@)' @ @@@@ EX PUT,*XZ )@@G@@X8 @[@@@@GOPRT.@A@@@@ P$RINT (P 1,10,PRLINE) @ @@@@ YA )@@G@@ J PRTELT @^@@@@PRTPRC J $-$ @E@@@@ SLJYB )@@G@@ CLRLN . CLEAR OUTPUT LINE @ @@@@ LMJ YC )@@G@@ X11,CVT3BF @^@@@@ + LINK @ @@@@ S,S2 A0,PRYD )@@G@@LINE @ @@@@ S,S3 A1,PRLINE @ @@@@ S,S4 A2,PRYE )@@G@@LINE @ @@@@ DL A0,PRCNAM @ @@@@ DS A0,PRYF )@@G@@LINE+1@ @@@@ DL A0,PRCNAM+2@ @@@@ DS A0,PRYG )@@G@@LINE+3@ @@@@ L A0,PRCNAM+4@ @@@@ S A0,PRYH )@@G@@LINE+5@A@@@@ P$RINT (P 1,6,PRLINE) @ @@@@ J YI )@@G@@ PRTPRC @ @@@@ END . OF PRTTD @]@@@@*FURDOC @ @@@@YJ )@@G@@ MODIFIED FURPUR LEVEL 25 @C@@@@4 CHANGES TO THE DISTRIBUTED LEVEL 2YK )@@G@@5 FURPUR @F@@@@ THE CHANGES TO THE ENCLOSED LEVEL '25A' FURPUR FOR THYL )@@G@@E UNIVAC @E@@@@ 1108 WERE PERFORMED BY THE SYSTEMS PROGRAMMING STAFF YM )@@G@@AT THE@C@@@@ UNIVERSITY OF MARYLAND COMPUTER SCIENCE CENTER.@]@@@@SPACE YN )@@G@@1 @F@@@@ THE MOST NOTICABLE CHANGES TO THE ENCLOSED VERSION OF FURPUYO )@@G@@R @F@@@@ ARE IN THE RESPONSE TO THE DEMAND USER. EACH ROUTINE ANNOUNYP )@@G@@CES @F@@@@ ITSELF AS IT COMPLETES ITS TASK, ALLOWING THE DEMAND USER TYQ )@@G@@O HAVE@H@@@@ A CLEARER GRASP OF JUST WHAT IS HAPPENING TO HIM AT HIS DEMYR )@@G@@AND TERMINAL. @F@@@@ THIS IS PARTICULARLY VALUABLE FOR PEOPLE WHO TEYS )@@G@@ND TO GET AHEAD OF@E@@@@ THE SYSTEM, AND TO FORGET JUST WHERE THEY ARE. YT )@@G@@IT CAN ALSO @F@@@@ SAVE YOUR PROGRAM FILES BY LETTING YOU KNOW WHEN THE YU )@@G@@PACK OR COPY@F@@@@ HAS BEEN COMPLETED, SO THAT YOU WONT 'EOT' IN THE MIDYV )@@G@@DLE OF IT. @]@@@@SPACE 1 @C@@@@ THE 'C' OPTION IS NOW ASSUMED FOR DYW )@@G@@EMAND USERS.@]@@@@SPACE 1 @F@@@@ CHANGES HAVE BEEN MADE TO 'PRT' TO YX )@@G@@NO LONGER ALLOW A USER TO LIST@G@@@@ THE ENTIRE DIRECTORY. IF '@PRT' IS YY )@@G@@ENTERED, A DIAGNOSTIC IS PRINTED. @F@@@@ IF '@PRT,P' WITH NO PROJECT GYZ )@@G@@IVEN, THE USERS PROJECT IS OBTAINED @D@@@@ FROM HIS PCT AND USED. THE SAZA )@@G@@ME IS TRUE FOR '@PRT,N'.@]@@@@SPACE 1 @F@@@@ CHANGES HAVE BEEN MADE ZB )@@G@@IN ALL ROUTINES WHERE NECESSARY TO PREVENT@C@@@@ FURPUR FROM EVER PRINTIZC )@@G@@NG THE KEYS TO A FILE. @F@@@@ THESE INCLUDE @PRT,F AND @PRT , AND ALL DZD )@@G@@IAGNOSTIC ROUTINES. @G@@@@ THE CHANGES ARE FLAGGED FOR EASY LOCATIONZE )@@G@@ IN THE EVENT A SITE SHOULD @ @@@@ DESIRE KEYS TO BE PRINTED. @A@@@@ZF )@@G@@4 AN IMPROVED SHORT FORM OF @PRT,T @F@@@@ TO USE IT, THE OPTIONS S,A,R,ZG )@@G@@P,D, AND E ARE AVAILABLE ON THE @^@@@@ 'PRT,T' CALL LINE. @D@@@@ZH )@@G@@ THE 'S' OPTION CAUSES LISTING OF SYMBOLIC ELEMENTS. @D@@@@ THE 'R' OPTZI )@@G@@ION CAUSES LISTING OF RELOCATABLE ELEMENTS@D@@@@ THE 'A' OPTION CAUSES LZJ )@@G@@ISTING OF ABSOLUTE ELEMENTS. @F@@@@ THE 'P' OPTION IS FOR PROCS, THE 'EZK )@@G@@' OPTION IS FOR ENTRY POINTS @D@@@@ AND THE 'D' OPTION IS FOR TIME AND ZL )@@G@@DATE OF CREATION. @F@@@@ THE OPTIONS CAN BE USED SINGLY OR IN ANY COMBINZM )@@G@@ATION WITH THE @F@@@@ EXCEPTION OF THE 'D' OPTION. IT MUST BE USED WIZN )@@G@@TH ONE OR MORE @A@@@@ OF THE 'S','A','R',OR 'P' OPTIONS. @C@@@@ THE SZO )@@G@@TRUCTURE '@PRT,DEPARTS GETS EVERYTHING. @]@@@@SPACE 1 @E@@@@ IN COZP )@@G@@NJUNCTION WITH THE 'DEPARTS' OPTIONS, A B-OPTION HAS @G@@@@ BEEN ADDED ZQ )@@G@@TO ALLOW THE USER TO LIST THE TABLE OF CONTENTS OF A FILE @G@@@@ IN REZR )@@G@@VERSE ORDER. THIS OPTION MAY ONLY BE USED WITH ONE OR MORE OF @ @@@@ZS )@@G@@ THE S, A, R OR P OPTIONS. @]@@@@SPACE 1 @G@@@@ TO MAKE THE B-OPTZT )@@G@@ION MORE USEFUL, AND FOR GENERAL UTILITY, THE ABILITY @G@@@@ TO CONTROL ZU )@@G@@THE NUMBER OF ELEMENTS PRINTED ON A GIVEN @PRT,T @G@@@@ CALL ZV )@@G@@IS ALSO AVAILABLE. TO USE THIS, THE USER ENTERS THE NUMBER OF @F@@@@ZW )@@G@@ ELEMENTS TO BE LISTED IN THE ELEMENT CYCLE FIELD OF THE PROCESSOR@]@@@@ZX )@@G@@ CALL CARD. @#@@@@ FOR EXAMPLE: @]@@@@SPACE 2 @A@@@@ ZY )@@G@@ @PRT,TSB FILE.(10) @]@@@@SPACE 2 @G@@@@ WOULD LIST THE LAST 10 ZZ )@@G@@SYMBOLIC ELEMENTS OF FILE 'FILE' IN REVERSE @]@@@@ ORDER. @[@@@@AA )@@G@@ OR: @]@@@@SPACE 2 @ @@@@ @PRT,TASR (5)@]@@@@SPACE AB )@@G@@2 @F@@@@ WOULD LIST THE FIRST 5 ELEMENTS OF ALL TYPES IN FILE 'TPF$'AC )@@G@@. @^@@@@4 THE COPY,U ROUTINE @F@@@@ A COMPLETELY NEW ROUTINE, CALAD )@@G@@LED COPY,U HAS BEEN ADDED TO FURPUR.@E@@@@ IT IS INTENDED TO MAKE UPDATIAE )@@G@@NG READ ONLY FILES SIMPLER. @A@@@@ THE CALL IS '@COPY,U FILE1,FILE2. AF )@@G@@@F@@@@ THIS CAUSES A NEW CYCLE OF THE FILE 'FILE2' TO BE CREATED, AND AG )@@G@@@G@@@@ THE CONTENTS OF FILE 'FILE1' TO BE COPIED INTO IT. AFTER IT IS CEAH )@@G@@RTAIN @G@@@@ THAT THE COPY IS COMPLETE, AND EVERYTHING IS SAFE, THE OLD AI )@@G@@CYCLE OF @ @@@@ FILE 'FILE2' IS DELETED. @]@@@@SPACE 1 @F@@@@AJ )@@G@@ THE STRUCTURE OF THE ROUTINE CAUSES THE NEW CYCLE OF THE FILE @F@@@@AK )@@G@@ 'FILE2' TO BE IDENTICAL TO THE OLD CYCLE. THE INITIAL RESERVE @F@@@@AL )@@G@@ AND MAXIMUM RESERVE WILL BE IDENTICAL, AND IF THE ORIGINAL WAS @A@@@@AM )@@G@@ READ ONLY, SO WILL THE NEW FILE. @]@@@@SPACE 1 @F@@@@ IN ADDITIONAN )@@G@@ TO THE ABOVE, IF THE INPUT FILE HAD BEEN 'PREPPED' @F@@@@ BEFORE THE AO )@@G@@@COPY,U, THEN THE SEGMENT 'PREP' WILL BE CALLED AFTER @G@@@@ THE COPY HAAP )@@G@@D BEEN PERFORMED, AND THE NEW OUTPUT FILE WILL BE PREPPED @F@@@@ ALSO.AQ )@@G@@ THIS IS NEEDED FOR CREATING NEW COPIES OF READ-ONLY LIBRARY@]@@@@ FILESAR )@@G@@. @]@@@@SPACE 1 @F@@@@ ALSO, THE ROUTINE 'GETUSE' IS USED TO RETAS )@@G@@RIEVE ALL @USE NAMES @F@@@@ WHICH MAY BE ATTACHED TO THE ORIGINAL FILAT )@@G@@E, AND TO REPLACE THEM @A@@@@ ON THE NEWLY CREATED OUTPUT FILE. @^@@@@AU )@@G@@4 A NEW AND SAFER PACK @F@@@@ AS IS PROBABLY WELL KNOWN BY NOW, THE PACAV )@@G@@K ROUTINE SUPPLIED BY @B@@@@ UNIVAC CAN BE QUITE DANGEROUS TO USE. AW )@@G@@@G@@@@ IF A SYSTEM CRASH SHOULD OCCUR, OR THE USER INADVERTANTLY TERMINAAX )@@G@@TE @G@@@@ THE PROCESS BEFORE IT COMPLETES, THE FILE IN QUESTION WILL AY )@@G@@USUALLY @ @@@@ BE COMPLETELY DESTROYED. @]@@@@SPACE 1 @F@@@@AZ )@@G@@ BECAUSE OF THIS PROBLEM, AN ENTIRELY NEW PACKING ROUTINE HAS BEEN@F@@@@BA )@@G@@ IMPLEMENTED IN THIS PROCESSOR, WHICH WHILE NOT COMPLETELY SAFE, @E@@@@BB )@@G@@ WILL DAMAGE, AT MOST, ONLY ONE ELEMENT, AND PERHAPS REQUIRE@F@@@@ THE UBC )@@G@@SER TO RE-@PDP ANY PROCEDURE ELEMENTS CONTAINED IN THE FILE.@]@@@@SPACE BD )@@G@@1 @F@@@@ IN THE EVENT A SITE DOES NOT DESIRE THIS PROTECTION, THE OLBE )@@G@@D @F@@@@ PACK ROUTINE IS STILL AVAILABLE, INASMUCH AS IT IS BUILT INBF )@@G@@TO @F@@@@ THE @COPY,P ROUTINE. IT MAY BE USED BY CALLING PACK WITH THBG )@@G@@E @E@@@@ X-OPTION. THE TEST FOR THE X-OPTION, CONTAINED IN ELEMENT BH )@@G@@@E@@@@ FURPUR MAY BE REVERSED IF A SITE WISHES TO REVERSE THE @E@@@@BI )@@G@@ ORDER OF PRIORITY, ALTHOUGH THIS IS REALLY NOT RECOMMENDED.___E RESBJ )@@G@@ 1 @@@@4/@5N@C@^R(^@@@5N^R(@@@@3:@@@@@[@@@@@@@@@@[4BK )@@G@@@]G@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@68-2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@!O@C@@[\^@@@@G^L\@@L^MLBM )@@G@@@[&^N<@@=^RA@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BO )@@G@@R#W@@DR#?@@EA#!)@@;K)@@S/C)@CAR3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@ABP )@@G@@GDW@@^H[@@@L/D@@CNN^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@BBQ )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@DBR )@@G@@'=@@@[R#W@@D/K@@CDRBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@BS )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@BT )@@G@@PBW@@AO;K@@[;GK@@=W8K@@W/@)@D]O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ BU )@@G@@C5W@@#/ V@@@/KF@@[?@@@[@?A@@[V?B@@[X?C@@@+K@@@',L@@@_BY )@@G@@-M@@@-.N@@@?/O@@[W0P@@@01Q@@@12R@@@23S@@@34T@@@45U@@@56V@@@67W@@@78X@@@8BZ )@@G@@9Y@@@9:Z@@@$;?@@@;<\@@@\=!@@@,>^@@@+?_@@[ZC[@@F$A#K@@L;G@@@M;CK@@M/@V@@@CA )@@G@@H9K@@[G[K@@HT8K@@# @@@@GW8@@@]/@K@ETO;@@@[R#0@F*;^0@@MK@@@@IP;K@@[&;K__"CB )@@G@@;*@@@MQ#@@@FR]0@@LC[K@@G;DK@@MH9K@@[&'0__"R#)@F(')I)E,RB_@DF;^0@@D/C0@E=CC )@@G@@[[H)@@C[@@F$8^K@E=;G@@@M;CK@@M/KH@@@/K@@E4R3;@@@R\;@@@R:;@@@R$;@@@R<;@@@CD )@@G@@R7;)@@Q;)@@ /K@@E>&;@@@@/@F@@@C[K@@G&#@@@FR]0@@H&;)@@[&'0@@[R#K@F%R#0@F$CE )@@G@@8^K@F[C[F)@@;=0@@D;*0@@X;C0@@X=80@[@/K@@FDR7_@DF/K@@FER3_@CF')H)FY @@@@JCF )@@G@@/D@@F]/ K@E_;G@@@M;CK@@MR]0@@GT8K@@] @@@@GW8@@@#/@V@@@O;@@@[P;K@@[R;0@@ CG )@@G@@A<"@@@A$"@@@/^V@@@A:"@@@A\"@@@/KF@@@A7"@@@A3"@@@A\"@@@A:"@@@A$"@@@/K@@F=CH )@@G@@A<")@@R#K@F%/K@@FF)@@@@@@@@^@)__"@@ @@[@@@R#W@@DR#?@@CR#.)@@A#/@@EA#W@@DCI )@@G@@;C0@@Y%80@@_/K@@F6P;K@@[A#W@@D/KF@@[R#/@@E;K0@@S/C0@F'R3/@@E!^/@@BRB/@@BCJ )@@G@@C G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@G&N@K@@JM#!)@@A#W@@DR#/@@E;K0@@S/C0@GDCK )@@G@@R3/@@EPB/@@B/G;@@]C G@@DG[@@@J[ G@@DC W@@AGDW@@^H[@@@L/HF@@]P#0@@K0@G@@#CL )@@G@@'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@GY%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^CM )@@G@@;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@GFP#0@@KN@K@@JM#!)@@R#0@@K0@G@@#'=@@@ACN )@@G@@C[W@@ GDW@@B[[W@@ C5W@@#/[K@G5%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@MCO )@@G@@[[W@@A[ W@@D'=@@@[R#W@@D/K@@F/R#W@@AABW@@^ABW@@D;@K@@M'=@@@#C[W@@ GDW@@BCP )@@G@@[[W@@ C5W@@#/[K@HF%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MA#W@@A'=@@@[/KF@@[CQ )@@G@@0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@R7<@@@R3<@@@R\<@@@R:<@@@R$<@@@R<<@@@CR )@@G@@D8)@@@/\)@H9/\)@H9/\)@H9/\)@H9/\)@H9AE1@@#')]@HQR#@@@I/KF@@@R7<@@@R3<@@@CS )@@G@@R\<@@@R:<@@@R$<@@@/?)@H2/\)@H9/\)@H9/\)@H9/\)@H9/\)@H9/\)@H9R<<)@@/K@@\2CT )@@G@@AE1@@#')])H&A#)@@G')]@HQ/KF@@@D8)@@[QE1@@#/KF@@@&'0@@@/K@@H_&]0@J7AE1@@#CU )@@G@@')]@HQ:@)@@G/K@@II')])H&/K@@I@&'0@@@/K@@IC&]0@J7AE1@@#')]@HQ%8)@@ /K@@IICV )@@G@@')])H&/K@@IDR#@@@I1@@@@F/KF@@@')])H&R#@@@I')]@HQ/KF@@@R;0@@ &]0@J7/K@@IUCW )@@G@@R;0@@F&'0@@@ @@@@HAE1@@#')])H&:8)@@ /K@@IW;?@@@AO#K@@I8#0@IW0@@@@FR#@@@HCX )@@G@@')]@HQ/KF@@@R;0@@ &]0@J7/K@@I:R;0@@F&'0@@@ @@@@HAE1@@#')])H&;?@@@AO#K@@ICY )@@G@@8#0@I!0@@@@FR#@@@H')]@HQ/KF@@@;?@@[C/K@@I8')])H&')]@HQ:8)@@ /K@@I7 ?[@@[CZ )@@G@@:8)@@+/K@@IL%8)@@-/KF@@@A\-@@[')])H&/KF@@@')])H&P;)@@0T8K@@EO#K@@I8#0@J#DA )@@G@@/KF@@@')])H&P;)@@0;?@@@#O#K@@I8#0@JD/KF@@@AE1@@#/,0@I5 @@@@J')]@HQ:8)@@0DB )@@G@@/K@@J+/K@@JTAE1@@# @@@@J/,0@I5')]@HQ!8)@@0!8)@@'/K@@J2/,0@J#/K@@JTAE1@@#DC )@@G@@ @@@@J/,0@I5')]@HQ!8)@@0!8)@@8/K@@J2/,0@JD/K@@J+AE1@@#R#0@@G/,0@I5/,0@J#DD )@@G@@/K@@J2AE1@@#R#0@@G/,0@I5/,0@JD/K@@J2*?[@@[90@@@GQE1@@#')]@HQ/KF@@@_____"DE )@@G@@R;K@@[A:K^[]/K@@J/ *@^[]A#@^@;A]0^@]*@@^@ /K@@K10@@^@//K@@KH(4@^[@(@@^@/DF )@@G@@/K@@LX()@^@^/K@@T% )@^@^C[K^@.G9K@@[[[K^@/[[K^@./K@@OM*4@^[@/K@@KOR#@^[+DG )@@G@@0@G@@@/K@@T% @@^@//K@@LXR:K^[]()@^[]A$K^[] @@^@/R#K^L0*@@^@BC@K^@C*=@^[]DH )@@G@@O;K@@[(@@^@B/K@@K-[@K^@C/K@@K=A#K^[I@@@%(I@@@%!I@@@%1I@@@%5I@@@9?K^@N9*K^@+R#@^@Z'=@@@I/K@@W"9?K^@R9*K^@+EV )@@G@@/K@@S#9?K^@T9*K^@+/K@@S#9?K^@P9*K^@+/K@@S#R#@^@Z;@@@@MO3@^[<;@@@@M'=@@@IEW )@@G@@R#@^[FR#K^[^NCK^@;M#H)@@RF)^@EC@@^@AG8@@@[[@@^@A/K@@RUC9@@@[[(@^@^9!@^@XEX )@@G@@9(@^@+R#@^@Z'=@@@IC@@^@AG8@@@[[@@^@A/K@@P^9!@^@V9(@^@+R#@^@Z'=@@@IC@@^@AEY )@@G@@G8@@@[[@@^@A @@^@/ @@^@. @@^@" @@^@_C9@@@[[(@^[[ @@^@^/K@@LX9?@^[D9?)^[FEZ )@@G@@RA0^[H/%0@S4R#@^[IAB@^[D'=@@@HR#@^[DR;K@@ RA0^[J')H@TY8#K@S7R;K@@ P'0@@[FA )@@G@@:9@@@-/K@@XQ:9@@@)/K@@TM:9@@@@/K@@S!; @@@ ;DK@@Z/>@@TF8^K@T#/K@@S!')H@TYFB )@@G@@8#K@TAR;K@@ P'0@@[')J@T=8#0@TER;0@@ /K@@T[C9@@@ 8^K@TI/K@@S!')J@T=8#0@TLFC )@@G@@R;0@@ /K@@TG9*@^[DAA0^[HR;K@@BA:K^[@R;K@@*A\K^[S%80@@ O;)@@[P#)^[FA3)^[G@@@C(G@@@C!G@@@C1G@@@C5G@@@[-I)@@[>I@@@[(I@@@[!I@@@FE )@@G@@[1I@@@[5I@@@R#@^[-R#K^[NA#K^[QR;K^[N*?@^[]R;K^[PNCK^@;M#H)@@R;@^[T/,0@F:FF )@@G@@/K@@W"/K@@XGR;)@@+C@@^[<[@@^@C0@@^[80[@[/K@@V/RB@^L\FQ )@@G@@%8@@V)/,0@YHR]0^[^/K@@V.R]0^[-R#@^[-QB@^@;NCK^@;M#F)@@ *@^[@R<)^[K^[QC9K@@-[(K^[Q @@^[OGG )@@G@@/KF@@@R;K@@[A]0^@]R;@@@KA3@^[W]@@^@/ @@^@. @@^@" @@^@_ @@^[L @@^[H @@^[BGH )@@G@@R;)@@)A7)^[BA7)^[C @@^[MR#)^P9*@@^@ R#)^P7S8)@@WA#0^@[*@@^@ /K@@)RR;)@@-GI )@@G@@A#)^[KR#)^PZ;@)@@E/))@ZPA@@@>K/K@@-9>@@@>L/KF@@[C8H@@@?8I@@@/K@@-:C@@@>JC8K@@#GW )@@G@@/KF@@@C@@@>^C8K@@[/KF@@@C@@@>EC8K@@]/KF@@@L8@@@[C@)^L6G8)@@[*@I@@@?CY@@@GX )@@G@@/K@@+BG),@@@/K@@+[%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@>MGY )@@G@@/KF@@[N8W@@@C^@^L6G8@@@[C9K@@[ @@^M^N8)@@@(@G@@@/K@@+/(4G@@@/K@@+?%1W@@@GZ )@@G@@/K@@+/C?W@@@!8K@@A/K@@+\%(K^M^ @@^M#[(K^M^9??@@[C-G@@@:9@@@[C@0@>M')H@G@@@')H@<4G)G@@@G8@@@[/K@@+R:9K@@[/K@@+4C*?@@@:8)@@.N8)@@[HB )@@G@@%[K@[[/K@@+?/K@@+<%@)@>M[5@^M#:@)@>M[-K^M#/K@@+?(@@@[]:(K^M^/K@@<[[(K^M^HC )@@G@@ @@^M#:[K@[[/K@@@^M#[5@^M^[1@^M^HH )@@G@@[!@^M^C80@@F+8K@@_:8)@@ ;^@@@A8#0@<"9*@^L8C@@@>NC@K@>OC8)@@BC@0@>M[@"^L;HI )@@G@@8#)@=BN4K^M#9!@^M /\)@=5C9K@@*(4@^M#*)@^M#')H)@@N0K^M#9!@^MB*@@@[[/K@@=QHJ )@@G@@C[@@>PN8K@@^/\)@=5N?K^M#(@@@[[/K@@=)C9K@@(')H)@@C[@^MD/\)@=5C9K@@)')H)@@HK )@@G@@(*@^M#*=@^M#/K@@=&C@@@>Q'=@@@J/KF@@@C9K@@/')H)@@N*K^M#C[@^ME/\)@=5N=K^M#HL )@@G@@(@@@[[/K@@=@@@A')H)@@8KK@=3/KI@@@[5W@@@HM )@@G@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@=.[-W)@@Q;K@=7/KJ@@@PROCESSOR CALL ERROR HN )@@G@@@[^@>@ABNORMAL RETURN FROM READ$ @[ @> TOO MANY SPECIFICATIONS @[^@>FHO )@@G@@]@@@@@[@@@@@ @@[^L;@@[@=7TPF$ @@G^L7TPF$ **EF**@@@@@@HP )@@G@@C8@@@@C4@^P?C0@^P?[4K^P?[0K^P?9?K@>R9?K^P)9?K^P!A AX AR AA0^MMHQ )@@G@@AE)^MMAAK^MLAE@^MLC@@@%O/,0@-&/K@@("C@@^M?[@@^PZ 4@^PZC8K@@@=8@)@@G8K@@[HR )@@G@@=8@@@)G8K@@]C@@@(+/KH@>8/K@@>//K@@&I/K@@&X/K@@("/,)@$C8@^P)'=@@[ C@@@($/^)@("C@@@(3C=0^MQ:80@@EHW )@@G@@/K@@("C*K^P*L)K^P*:80@@@C)K^MQ:80@@-H)K^MQ%80@@+/K@@&;C/Y@@[G)K^MQC*0^P*HX )@@G@@,@)@@H/K@@("[)K^P?/K@@&NC@@@(7/K@@("9?@^P)9*@^MTC8@^MT'=@@@#C4@^MW/@@@$JHY )@@G@@;G@@@#;CK@@-;*@@@AG8H 00[C@^N!C@@^N,/K@@("C@@@(?9?K^M+C^0^MW:80@@W9/K@>UHZ )@@G@@/K@@("CC0^M$+80@@_9?K^M=?9@@@ 9/K^P+/K@@("9?K^M*%9@@@@9/K^P&/K@@("[C0^P>IA )@@G@@9?@^M%9*@^P*/K@@&!/,K@$\[@[[@[SI@^P)/,K@$\[0[@@]SI@^P!/,K@$\]0@@@]SO@^P!IB )@@G@@/,K@$\]@[@[@SO@@@@C4D@@@AAW^MNQ,D@@@/,0@+L/%E@@@*?D@@@Q'%@@[Q+D@@@C@@^N2IC )@@G@@*=D@@@/K@@(8*?D@@@*4@^M^/K@@$_C@@^N7/K@@(8C*@^M^/^@@* *@@^M#/K@@*H(4@^M^ID )@@G@@C8@@@[C)/OMN')J@>-(@@@@H9?K@>R9*TK@[')J@>W+8@@@0/K@@(@&FD@@[G@@@%PC@K@>SIE )@@G@@9*@^M+9*DK@[/,0@<./G@@*)C8K@@[C8@^M+'=@@[GCC)^M*!8)[@@>8)@)@/K@@*W/K@@*1IF )@@G@@C8@^M)'=@@@J/C@@*:')C@>YN8K@@FN/)__89?K@%Q<@@@@H;C@@@#;^K@@A8KK@*<;^K@@=IG )@@G@@9*K^N.C@@^N_/K@@(8C8K@@]>@@@%SC8K@@#C8@^M+'=@@[GCC)^M*')C@>Y?8)K@@?8)[@@IH )@@G@@/K@@*7G8K@@K/K@@*;C@@^O#?8))@@?8)S@@/K@@(8C@@^OC=8)@]@/K@@(8=8)@^@G8K@@)II )@@G@@+0T@@@C@@^OI=8)@@KC@@^ON/^)@(8')C@>YC@0^MOC^_@@[QAD@@[9?@^MG(4@^M^9?J@@]IJ )@@G@@9*C@@]9?@@>S(0@^M^/K@@(M9?@^MI/K@@(O(4@^M^9?J@@A9*C@@AC@@^M^**D@@@[@@^MQIK )@@G@@*?@^M^**D@@@/KE@@@C@@^OU/,0@(9/KE@@@I/U-OPTION CONFLICT @[^@(YSI: ELIL )@@G@@EMENT NOT FOUND @[^@(-9*K^MT')J)>W+8@@@#/@K@%EC@H@><[@@^MSIO )@@G@@C8@^MR'=@@@J8KK@%[ C@^P?R'0@@@/K@@%JR'0@@[OA0^MMQE)^MMQAK^MLQE@^ML/KF@@@IP )@@G@@@@7^M?@@$ 000000000000C@@@@@@@[@@[C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@%:IQ )@@G@@C8)@@:')])\>;G@@@=W8@@@/C8?@@@C8H@@@/\K@%:C8)@@:')])\>C8?@@@C8V@@@;G)@@=IR )@@G@@W8)@@EG8)@@0')])\>C8\@@0')])\>/KH@@@C8G@@@&'0 AM?@@@!K/K@@%8H@@@!K&'0 PMIS )@@G@@;G@@@=W8@@8KC8?@@@C8H@@@/^)@%"C8)@@G;G)@@=W8)@@E/@)@:#G8)@@0')])\>C8\@@0IT )@@G@@')])\>C8)@@:')])\>;G@@@=W8@@@/C8?@@@C8H@@@/\K@%:C8)@@:')])\>C8?@@@/\K@%:IU )@@G@@C@@@@F;C@@@M/K@@0$;C@@@M+8@_@@;GK@@0/\K@%:C8)@@/')])\>+8@@_@;GK@@%/\K@%:IV )@@G@@C8)@@/')])\>+8@@@_K8K@[@/\K@%:/KF@@@;C@@@M+8@@_@;GK@@%/\K@%:+8@_@@;CK@@FIW )@@G@@C@X@?8#0@:%+8@@@_K8K@[@/\K@%:/KF@@@AE1@@#;C@@@MIX )@@G@@[@@@[[+8@_@@;CK@@F9?H@?C@K@[[+8K@_@;G)@@%W8)@@E/@)@?]IY )@@G@@G8)@@0')])\>C8\@@0')])\>C8)@@,')])\>+8K@@_C8I@Y?C8K@@ RE1@@# C[@@#/K@@1AIZ )@@G@@;C@@@M+8@@@_C8.@[@[C1@@#;C0@@]C@)@@GCC[@@#T8@@ !G8J@@[;G)@@G;C0@@YG@I@!#JA )@@G@@G8J@@ACCL@@# C[@@#>8K@@[=8K@@#/K@@?)?8)@@#H8@@@[;G@@@=W8@@@BC@H@?.C8KDAYJB )@@G@@/K@@0Y JAN UARY FEB RUARY MAR CH APR IL MAY JUN EJC )@@G@@ JUL Y AUG UST SEP TEMBER OCT OBER NOV EMBER DEC EJD )@@G@@MBER @@@SUN@@@MON@@TUESWEDNES@THURS@@@FRI@SATUR@@@@@@@@@@@Z@@@@@;@@@@[UJE )@@G@@@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3@@@@^L@@@@^0@@@@ I@@@E<@&'0@%U/K@@21&'0@%2JF )@@G@@/K@@21&'0@:N/K@@21&'0@:+/K@@21&'0@:2/K@@21&'0@?G/K@@21C8.@@@;G@@@M;CK@@MJG )@@G@@&;@@@[&;K@@[/K@@!>')G),J')])\>8#0@!8#0@!!/KF@@@')])\>')G),J%8)@@ /K@@!0JI )@@G@@8#0@!5/KF@@@&'0@@@C?[@@[C^L@@[/K@@,#&'0__"/K@@,[&'0@@@;G@@@M;CK@@M&;@@@[JJ )@@G@@&;K@@[')G),J:0-@@@/K@@,E')])\>/K@@, 0@@@@F/KF@@@[?[@@[[^L@@[/KF@@@C4!@@@JK )@@G@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@,PC)!)@@[^[@@]Q;@@@@/K[K@]C@K@\@C@0@@GC@@@@HJL )@@G@@/G@@,;CI@@@)8@@@[JM )@@G@@9?@@@HG8K@@[T@K@\];CK@@+;C)@@=;?!@@@G8)@@0')])\>'G@@,6'G@@,6'G@@,6;C)@@=JN )@@G@@;?)@@#/K@@,,;C@@@[/@F@@@C8)@@ ')])\>;S@@@G;*@@@[;CH@@@/K@@,(C@K@\#/K@@,UJO )@@G@@)+C*@@)@@@@@PPPPPP)@@)@@A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)@1;R^1@@@&80@@[JP )@@G@@C8@@1/M@/)@@Q^1@@@ ?[@@]/KF@@@ 4G@@[ 0G@@[A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[JQ )@@G@@Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ JR )@@G@@/KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@\1/\)@1)/\)@1)/\)@1)/\)@1)/\)@1)JS )@@G@@/\)@1)[)<)@@A^-@@]Q8,@@@C8<@@@?^-@@@/K@@\.H?-@@@!^-@@@/K@@\.R;+@@@Q8)@@@JT )@@G@@/K[K@]R;+@@@Q8)@@AP80@@[/K[K@]C8?@@@')])\>/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@JU )@@G@@Q8/@@@L?[@@@?^L@@@?^[@@@/K@@0I/KF@@@O8)@@AP80@@[/KF@@@G8]@@@C8N@@@H^L@@@JV )@@G@@T8K@@AG8H@@@/K@@0^C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@0ZC80@@F;^@@[]JW )@@G@@+8K@@_%8)@@ :8)@@@/K@@0>')])\>8#0@0Z/KF@@@C80@@ /K@@0%C80@@F;^@@[]+8K@@_JX )@@G@@%8)@@@')])\>8#0@0%/KF@@@C80@@@;G@@@#/@@@08G80@@[;G@@@#/^@@03C8)@@0')])\>JY )@@G@@C8)@@@;=K@@#G8)@@0')])\>8#0@08/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@08&'0@@0JZ )@@G@@/K@@1BC8K@@@&'0@@ N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@1J/^@@1DKA )@@G@@/C@@1O;?)@@AG80@@-8KK@1O9?@@@IC@0@@F;C0@@M/K@@1UC@)@@J')])\>8KK@1S+8K@@_KB )@@G@@')])\>;G@@@A/^K@1V/KF@@@[@@@1\C@@@1.'=@@@I(C[@@#/K@@1$RE1@@# C[@@#A^K@1,KC )@@G@@[@@@1\C8@@1!'=@@[QC8@@@@/K@@0^E$PKT 8@E@@@@@@@@@***** EDIT$: ATTEMPT TOKD )@@G@@ STORE OR LOAD OUTSIDE OF IMAGE ***** @@[@@@ @[F@10&'0@!$/K@@21KE )@@G@@&'0@!X/K@@21&'0@!'/K@@21&'0@!"/K@@21&'0@,@/K@@21&'0@,T/K@@21&'0@,U/K@@21KF )@@G@@&'0@,"/K@@21&'0@0[/K@@21&'0@0^/K@@21&'0@0L/K@@21&'0@2Q/K@@21/,0@0R[@@^O^@K^O$CC0^O+R@K^OVR@)^OWKJ )@@G@@R@0^OX/KJ@@@C@@^OC@K^O=A@K^OVA@)^OWA@0^OXR]0^O+R@K^OZR@)^O)R@0^O-KK )@@G@@C@0^O&N@K^O$/KF@@@&'0@3P/K@@21&'0@3W/K@@21&'0@3-/K@@21&'0@3=/K@@21&'0@3(KL )@@G@@/K@@21[0@^OYC?[@@@[?@^OYC^[@@@[^@^OYC@@^OY'=@@@IN?L@@@C^[@@@&;@@@[C8K^PCKM )@@G@@M#H)@@Q8)@@@Q^1@@@/KF@@@C8K@3W[^[@@@;C@@@M[?[@@@/KH@@@C8K@3-/K@@3>/,0@>$KN )@@G@@/K@@5LC@@^R)/,0@3LC8@^RA/,0@2A'=@@@?/,0@!VC/@@@,/,0@2IC/@@@[/,0@2M'=@@@?KO )@@G@@/,0@!TC@@^R-/,0@2X'=@@@?/,0@!NC8@@@[/,0@3FC@@^R<'=@@[Z/,0@Y9/K@@5LC'K@@@KP )@@G@@C')@@@C'0@@@C@@^R=/,0@J;/K@@5L/K@@5I0@@@@H/K@@4AG'0@@[C/@^RI/,0@\NC/@@@@KQ )@@G@@/,0@0^/,0@H4%8@@@*/K@@4?/,0@3H/,0@H4%8@@@.:8@@@ /K@@4V/,0@2I/K@@4P9?@^QBKR )@@G@@C@)^R>N8K@@^2@I)@@/K@@4+G')@@[/K@@4?C@)^R&N8K@@]2@I)@@/K@@4*H'K@@[/K@@4?KS )@@G@@%@@^R$/K@@4?H'K@@[C')@@[/,0@3HC/@@@ /,0@2MC@@@@RC8K@@A/,0@2$C/@@@./,0@2IKT )@@G@@C/@@@[/,0@2M/]K@4./EK@4.C/@@@L/,0@2IC'K@@@C')@@@/K@@4_C/@@@[/,0@2MC/@@@^KU )@@G@@/,0@2MC@@@@PT8@@@ !8@@[=C8@@[=/,0@2MC8@^PDC8K@[K/,0@2@C8@@@[/,0@3FG]K@@QKV )@@G@@C')@@@/K@@4A/,0@)\/K@@5L'=@@@DC@@^R('=@@@I'=@@@D@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[^],@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@[^@*@@@@@ ASCII MODE NO FIND SEPARATOR COLUMN CARD KY )@@G@@COUNT> CARD COUNT<@#C^@)SIR EDIT ERR @@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@[^[\@XQ^[\@[I^[\@[O^[\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@__"^],@@[^]\@@@@@ @@@@@@@@@@@@@@@@@@@@[^E\@@@@@ @@[^[\LC )@@G@@@@@@@ @@@@@@@W"^E\@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@^@)^@) *SDFF*LD )@@G@@ @@@@@@@@@@@@@@@@@@@K@@@@@#)@@@@@@@@@^E\^IJ@@C@@_@@[^[\@@[@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@C@@@@@#)@@@@@@@@@^#\^BJ@@C@@_@@[^]\@@[@@@@@@@@@/K@@YJLF )@@G@@*[S@@@C@@@@@^@@@@@@@[^]\@@[^[\^[IC(R@@@@@@@USE @@@@@@@@@@@@, @@@@@@LG )@@G@@@@@@@@@@@@>V@@@@@@@@@@@@@@@@@@@FREE,OPTION@@@@@@@@@@@@@@@@@@@<@@@@@@]^MYLH )@@G@@@@E^M+K@O^M&@ASG,AX XXX NOT A PROGRAM FILE @[^^N