@CAT,P 1015-002-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-002-023,,,130017053241,000 )@@G@@**PF**@@@@%X@@@@@@@@@@@[@^?@@@]FE@@@@@@@J@@])@@@]F^ EQ@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@P@@#?@@@]F^ ;Q@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@AI )@@G@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@KAN )@@G@@BSP @@@@@@@@[@@^ @ @@@[]@@@@Y@@@@W@]V.B CNEWSPROCS AO )@@G@@@@@@@@@@]@@@ @[@@@[@@@@@C@@@@WY#4TCODSAVPROCS @@@@@@@@]@@@AP )@@G@@ @[@@@[@@@@@ @@@@W)CODBSP @@@@@@@@ @@@ AQ )@@G@@@@@@W1@@[@@A@@@@W:#8') . SAY ITDF )@@G@@'S TEMPORARY@A@@@@. EDIT SECURE BACKUP INFORMATION @[@@@@. @G@@@@DG )@@G@@PR410 JNZ A13,PR430 . IF THERE'S A BACKUP, GO GET ITDH )@@G@@@F@@@@ TNZ BMI1 . BAD MAIN ITEM SECTOR 1? DI )@@G@@@D@@@@ J PR420 . NO, CONTINUE@D@@@@ DJ )@@G@@ DL A0,('***BAD MI SE') . GET MSG @F@@@@ DS DK )@@G@@ A0,LINOUT+18 . STORE IN PRINT LINE @E@@@@ LA DL )@@G@@ A0,('C 1***') . GET END OF MSG @F@@@@ SA A0,LDM )@@G@@INOUT+20 . STORE IN PRINT LINE @G@@@@ J PR48DN )@@G@@0 . CHECK FOR LAPSES AND PRINT @[@@@@. @]@@@@. NO BDO )@@G@@ACKUP @[@@@@. @D@@@@PR420 LA A0,('*NONE*') . NO BACDP )@@G@@KUP @A@@@@ LA A1,(' ') @ @@@@ DSC DQ )@@G@@ A0,30 @A@@@@ SA,S6 A0,LINOUT+17 @E@@@@ SADR )@@G@@ A1,LINOUT+18 . STORE IN IMAGE @E@@@@ LA,U DS )@@G@@ A0,NOBCHR . GET NO-BACKUP CHAR@F@@@@ SA,S6 A0,LDT )@@G@@INOUT+6 . STORE IN PRINT LINE @G@@@@ J PR48DU )@@G@@0 . CHECK FOR LAPSES AND PRINT @[@@@@. @D@@@@. MAKEDV )@@G@@ SURE BACKUP EXISTS BEFORE TRYING TO EDIT IT @[@@@@. @G@@@@PR430 DW )@@G@@ TNZ MI1+11 . IS THERE REALLY A BACKUP? @C@@@@DX )@@G@@ J PR420 . NO @[@@@@. @H@@@@. EDITDY )@@G@@ BACKUP REEL NUMBER, FILE POSITION, BLOCK COUNT, AND CREATION TIME/DATE DZ )@@G@@@[@@@@. @^@@@@ E$SKIP 1 @D@@@@ E$COPY 6,MIEA )@@G@@1+11 . BACKUP REEL @^@@@@ E$COL 114 @E@@@@ EB )@@G@@ E$DECF 3,MI1+10,,T2 . BACKUP POSITION @^@@@@ E$EC )@@G@@COL 117 @D@@@@ E$DECF 4,MI1+9,,H2 . SEC TRACKS ED )@@G@@@^@@@@ ON DCFZ@^@@@@ E$SKIP 1 @D@@@@ EE )@@G@@ E$DCFZ 2,MI1+8,,S1 . EDIT MONTH @E@@@@ E$DCFZ EF )@@G@@ 2,MI1+8,,S2 . EDIT BACKUP DATE @^@@@@ OFF DCFZEG )@@G@@@ @@@@ ON DCFZ<1 @^@@@@ SZ A0 @G@@@@EH )@@G@@ LA,S1 A1,MI1+8 . MONTH TAPE WRITTEN (TDATE$) EI )@@G@@@F@@@@ DI,U A0,10 . GET FD DECIMAL NUMBER EJ )@@G@@@ @@@@ AA,U A0,060 @E@@@@ SA,S3 A0,LINOUT+EK )@@G@@20 . FOR OUTPUT IMAGE @ @@@@ AA,U A1,060 @A@@@@EL )@@G@@ SA,S4 A1,LINOUT+20 @G@@@@ LA,S2 A1,MI1+8 EM )@@G@@ . DAY TAPE WRITTEN (TDATE$) @^@@@@ SZ A0 EN )@@G@@@F@@@@ DI,U A0,10 . GET FD DECIMAL NUMBER EO )@@G@@@ @@@@ AA,U A0,060 @E@@@@ SA,S5 A0,LINOUT+EP )@@G@@20 . FOR OUTPUT IMAGE @ @@@@ AA,U A1,060 @A@@@@EQ )@@G@@ SA,S6 A1,LINOUT+20 @ @@@@ OFF DCFZ<1 ER )@@G@@@^@@@@ E$COL 127 @G@@@@ E$TIME MI1+8 ES )@@G@@ . EDIT IN TIME TAPE WRITTEN @G@@@@. ADD CHAR TO PRINT LINE INDICET )@@G@@ATING WHETHER BACKUP IS CURRENT OR NOT @[@@@@. @I@@@@PR460 LAEU )@@G@@,U A0,NOBCHR . ASSUME NO BACKUP - GET NO-BACKUP CHAR EV )@@G@@@F@@@@ JZ A13,PR470 . IF NO BACKUP, SAY SO EW )@@G@@@D@@@@ TP MI0+12 . UNLOADED? @G@@@@ EX )@@G@@ J PR480 . YES, BACKUP MUST BE CURRENT @G@@@@EY )@@G@@ LA,U A0,BNCCHR . GET BACKUP NOT CURRENT CHAR EZ )@@G@@@G@@@@ TZ MI0+10 . UPDATED SINCE BACKUP CREFA )@@G@@ATED? @F@@@@PR470 SA,S6 A0,LINOUT+6 . STORE BACKUP STATUFB )@@G@@S @[@@@@. @ @@@@. CHECK FOR LAPSE ENTRIES @[@@@@. @F@@@@FC )@@G@@PR480 LA,T1 A1,MI0+12 . GET DESCRIPTOR FLAGS @E@@@@FD )@@G@@ LA,U A0,LPSCHR . GET LAPSE CHAR @F@@@@ FE )@@G@@ TEP,U A1,0400 . BIT 32 (LAPSE) SET? @G@@@@ FF )@@G@@ SA,S6 A0,LINOUT+6 . YES, ADD CHAR TO OUTPUT LINE @F@@@@FG )@@G@@ LA,U A0,'D' . GET TO-BE-DROPPED CHAR @G@@@@FH )@@G@@ TEP,U A1,01 . BIT 24 SET (TO BE DROPPED)? FI )@@G@@@G@@@@ SA,S6 A0,LINOUT+6 . YES, STORE IN OUTPUT IMAFJ )@@G@@GE @[@@@@. @C@@@@. THE TIME HAS COME TO PRINT THE INFORMATION FK )@@G@@@[@@@@. @D@@@@ P$RINT POUT . PRINT LINE FL )@@G@@@G@@@@ SZ LINE2 . CLEAR NRP,NTP,NLPS,NSB FFM )@@G@@LAGS @ @@@@ ON EXTRA @[@@@@. @G@@@@. DETERMINE FN )@@G@@WHETHER OR NOT ADDITIONAL PRINT LINES ARE NEEDED TO EDIT @#@@@@. MOREFO )@@G@@ STUFF. @[@@@@. @C@@@@ TNZ TAP . FP )@@G@@TAPE? @C@@@@ J PR500 . NO @[@@@@. FQ )@@G@@@E@@@@. TAPE FILE: SECOND LINE NEEDED IF >1 REEL IN DIRECTORY @[@@@@FR )@@G@@. @G@@@@ LA,H2 A0,MI0+20 . GET NUMBER OF REELFS )@@G@@S CATALOGUED@D@@@@ A2,1 . 'SUBTRACT' 1 @D@@@@ FT )@@G@@ SN A2,INWDS . AND STORE IT @C@@@@ SSC FU )@@G@@ A0,1 . DIV BY 2 @D@@@@ S,H2 A0,TB FV )@@G@@. TRAILING BLANKS @D@@@@ LSSC A0,1 . GET IT BACFW )@@G@@K @E@@@@ AN A0,TB . GET LEADING BLANKS FX )@@G@@@D@@@@ L X4,(1,BUFR) . OUTPUT LINE @^@@@@ FY )@@G@@ AN,U A0,2@E@@@@ JN A0,$+3 . NO LEADINGFZ )@@G@@ BLANKS @D@@@@ S A4,,*X4 . PUT IN BLANKS GA )@@G@@@E@@@@ JGD A0,$-1 . MORE IF NECESSARY @G@@@@GB )@@G@@ S X4,WHERE . SAVE STARTING LOC FOR NEXT TIME GC )@@G@@@C@@@@ L,U R15,6 . (7 LINES) @E@@@@OUTP L GD )@@G@@ X4,WHERE . STARTING POS IN BUFR @E@@@@ LXM GE )@@G@@ X2,START . STARTING POS IN BUF @E@@@@OUTP1 L A2,XGF )@@G@@3 . START OF LITERALS @F@@@@ A A2,BUF,*X2GG )@@G@@ . LOCATION WITHIN LITERALS @D@@@@ L A2,,A2 GH )@@G@@ . ACTUAL CHARACTER@E@@@@ TN BLANKS . WAS GI )@@G@@'I' OPTION ON? @B@@@@ J $+5 . NOPE@B@@@@GJ )@@G@@ XOR A2,(' ') . YUP @B@@@@ L A2,AGK )@@G@@3 . BACK@F@@@@ XOR A2,BLANKS . INVERT BLAGL )@@G@@NKS AND STARS @B@@@@ L A2,A3 . BACK@E@@@@GM )@@G@@ S A2,,*X4 . INTO OUTPUT BUFFER @D@@@@ GN )@@G@@ JGD A1,OUTP1 . A1 = CHAR COUNT @D@@@@ L GO )@@G@@ A0,TB . TRAILING BLANKS @D@@@@ S A4,,*X4 GP )@@G@@ . FILL IN BLANKS @E@@@@ JGD A0,$-1 . AS MGQ )@@G@@ANY AS NECESSARY @ @@@@ P$RINT PRINT1 @ @@@@ A,GR )@@G@@U A14,1 @ @@@@ NOP ,,*X3 @ @@@@ L GS )@@G@@ A1,COUNT @ @@@@ JGD R15,OUTP @ @@@@ S,GT )@@G@@H2 X2,START @ @@@@ P$RINT PRINT2 @ @@@@ A,GU )@@G@@U A14,2 @ @@@@ TG,U A14,54 @ @@@@ J GV )@@G@@ NPAGE @ @@@@BACK TN INWDS @ @@@@ TNGW )@@G@@Z INWDS @ @@@@ J 0,X10 @^@@@@ J GX )@@G@@ DOIT@ @@@@NPAGE P$RINT PRINT0 @ @@@@ L,U GY )@@G@@ A14,7 @^@@@@ J BACK@ @@@@EOF JN A6,$GZ )@@G@@+2 @^@@@@ J EOFF@ @@@@ L,U A0,BUFR HA )@@G@@@ @@@@ L A1,(1,0) @^@@@@ ER PCT$@^@@@@HB )@@G@@ L,U A0,6@ @@@@ S A0,INWDS @^@@@@ HC )@@G@@ SZ A2 @ @@@@ SZ START @ @@@@ LMHD )@@G@@J X10,BLEAH @A@@@@ L A0,(04,ASG) @^@@@@ HE )@@G@@ ER CSF$@A@@@@ L A0,(9,ASG+2) @ @@@@ HF )@@G@@ ER FITEM$ @A@@@@ L A0,(04,FREE) @^@@@@HG )@@G@@ ER CSF$@ @@@@ DL A0,ASG+6 @ @@@@ HH )@@G@@ DS A0,BUFR @ @@@@ L,U A0,12 @ @@@@ HI )@@G@@ S A0,INWDS @^@@@@ L,U A2,1@ @@@@ SZHJ )@@G@@ START @ @@@@ LMJ X10,BLEAH @ @@@@ ERHK )@@G@@ DATE$ @ @@@@ SSL A1,12 @ @@@@ DSHL )@@G@@L A1,12 @^@@@@ SSL A2,6@A@@@@ A HM )@@G@@ A2,(':@@@@@') @ @@@@ LDSL A1,18 @ @@@@ L HN )@@G@@ A2,BLANKS @^@@@@ LDSL A1,6@ @@@@ S HO )@@G@@ A1,BUFR+1 @ @@@@ SSL A0,12 @ @@@@ DSL HP )@@G@@ A0,12 @^@@@@ SSL A1,6@A@@@@ A A1,(HQ )@@G@@'/@@@@@') @ @@@@ LDSL A0,18 @ @@@@ L HR )@@G@@ A1,BLANKS @^@@@@ LDSL A0,6@ @@@@ S A0,BHS )@@G@@UFR @ @@@@ L,U A0,12 @ @@@@ S A0,IHT )@@G@@NWDS @^@@@@ L,U A2,1@ @@@@ SZ START HU )@@G@@@ @@@@ LMJ X10,BLEAH @ @@@@EOFF P$RINT PRINT0 HV )@@G@@@ @@@@ ER EXIT$ @ @@@@ END LETRS HW )@@G@@___ JGD A2,SMEAR *[@@@@*SDFF*@D@@@@. BILL FICKEN - NYU SYSTEMS DEHX )@@G@@VELOPMENT - 23 AUG 73 @E@@@@. THIS VERSION OF CHGN WORKS ON EITHER LEVHY )@@G@@EL 27 OR LEVEL 31.@D@@@@. DEPENDING ON SITE, THE SIZE OF THE MCT BUFFER HZ )@@G@@MAY @D@@@@. HAVE TO BE CHANGED IF IT IS TOO SMALL (OR TOO LARGE)@A@@@@IA )@@G@@. IT FITS NICELY INTO ONE BLOCK NOW @[@@@@. @#@@@@ AXR$ IB )@@G@@@[@@@@$(0) @E@@@@DORK + 1*/('Z'-'D')++1*/('Z'-'K') IC )@@G@@ @B@@@@CORU + 1*/('Z'-'C')++1*/('Z'-'U') @#@@@@WATCOL + ID )@@G@@0 @#@@@@KEYLEN + 0 @#@@@@A0SAV + 0 @^@@@@MCTM 'MIE )@@G@@CT ERROR ' @A@@@@NOCHGMSG 'NO ALTERATIONS MADE' @ @@@@NOCHGS + IF )@@G@@0104,NOCHGMSG @ @@@@NONPRMSG 'NON - PRIVILEGED' @ @@@@NONPR + IG )@@G@@0103,NONPRMSG @A@@@@SPEC1ERRMSG 'SPEC 1 FIELD ERROR' @ @@@@SPEC1EIH )@@G@@RR + 0103,SPEC1ERRMSG @B@@@@FLERRMSG 'SPEC1 - BAD FILE STATUS &' II )@@G@@@B@@@@KORD 'FILE MARKED FOR DELETION.' @ @@@@DLTP + 0100+$IJ )@@G@@-KORD,KORD @A@@@@UORC 'FILE NOT CATALOGUED.' @ @@@@NOTCP + IK )@@G@@0100+$-UORC,UORC @ @@@@TMPM 'TEMPORARY FILE.' @ @@@@TMPP + IL )@@G@@0100+$-TMPM,TMPM @ @@@@ASGERR ' . REJECTED: &' @B@@@@MSCERR 'BIM )@@G@@AD STATUS FROM MSCON$ : &' @ @@@@OOPTM 'OLD OPTIONS: &' @ @@@@IN )@@G@@EPK E$PKT 12,IMAGE @B@@@@USER '@USE $CHGN$,%%%%%%%%%%%% IO )@@G@@. ' @^@@@@FITEM '$CHGN$ '@^@@@@ RES 11 @#@@@@IP )@@G@@DKEY + 035 @^@@@@ '$CHGN$ '@^@@@@ RES IQ )@@G@@ 4 @ @@@@ASG '@ASG,AYX $CHGN$' @^@@@@ASGAYX + $-ASG,ASG IR )@@G@@@ @@@@FRE1 '@FREE,AR $CHGN$' @^@@@@FREE + $-FRE1,FRE1 @#@@@@IS )@@G@@ALRASG + 1 @#@@@@FLAGNP + 1 @#@@@@FLAGAC + 1 @#@@@@IT )@@G@@FLAGKEYS + 1 @#@@@@PRIVLJ + 1 @#@@@@FLAGRK + 1 @#@@@@IU )@@G@@FLAGWK + 1 @#@@@@DPAK + 020 @^@@@@ '$CHGN$ 'IV )@@G@@@^@@@@ + 05601,DBUF @#@@@@ + 0,1,0 @^@@@@INF REIW )@@G@@S 55 @^@@@@DBUF RES 56 @#@@@@DREG + 037 @^@@@@IX )@@G@@ '$CHGN$ '@#@@@@ + 0D @#@@@@ + 0D IY )@@G@@@^@@@@ RES 3 @#@@@@DBITS + 030 @^@@@@ '$IZ )@@G@@CHGN$ '@#@@@@ + 0 @#@@@@FLAGPR + 1 @#@@@@IMAGE JA )@@G@@ RES 12 @A@@@@SINON 'NYU CHGN 05J %%/%%-%%:%%'@^@@@@SINOF + JB )@@G@@0102,ENDIT$ @^@@@@ENDIT$ 'END CHGN' @^@@@@PRINT1 + 0114,IMAGE JC )@@G@@@^@@@@MCTWD + MCTBUF . @^@@@@PRIVAT + 1*/23 . @^@@@@ JD )@@G@@ + 1*/27 . @^@@@@WRITE + 1*/24 . @^@@@@ + 1*/24 JE )@@G@@ . @^@@@@READ + 1*/25 . @^@@@@ + 1*/25 . @^@@@@JF )@@G@@INUNL + 1*/22 . @#@@@@ + 1*/28 @^@@@@GUARD + 1*/21 JG )@@G@@ . @^@@@@ + 1*/29 . @^@@@@GUARDC + 010 . @^@@@@JH )@@G@@ + 04000 . @^@@@@CONTR + 0360 . @^@@@@ + JI )@@G@@03300 . @ @@@@ASGOPTS EQUF FITEM+7 @A@@@@OLDOPTS EQUF JJ )@@G@@ DBUF+17,,S2 @A@@@@KEYSON EQUF FITEM+6,,S2 @ @@@@OLWKY JK )@@G@@ EQUF DKEY+3 @ @@@@OLRKY EQUF DKEY+4 @ @@@@NWKY JL )@@G@@ EQUF DKEY+5 @ @@@@NRKY EQUF DKEY+6 @ @@@@NEWACCJM )@@G@@T EQUF DREG+5 @ @@@@NEWPROJ EQUF DREG+3 @ @@@@NEWLASJN )@@G@@T EQUF DREG+9 @ @@@@NEWOPTS EQUF DBITS+3 @ @@@@OLPROJJO )@@G@@ EQUF DBUF+5 @ @@@@OLACCT EQUF DBUF+7 @ @@@@CATDATJP )@@G@@E EQUF DBUF+19 @ @@@@CATDATE$ EQUF DREG+8 @A@@@@NTIMESJQ )@@G@@ EQUF DBUF+15,,H2 @ @@@@NTIMES$ EQUF DREG+7,,H2@[@@@@JR )@@G@@$(2) @E@@@@MCTBUF RES 200 . *NOTE* THIS MAY HAVE TO BE CHANGED FORJS )@@G@@@B@@@@ . DIFFERENT SITES* @]@@@@/$(1) @D@@@@JT )@@G@@CHGN L A0,(55,INF) . INFOR STUFF @D@@@@ LMJU )@@G@@J X11,RINF$ . READ INFOR TABLE@C@@@@ J ERRPJV )@@G@@RT . ERROR @D@@@@ L,U A0,PRIVLJ . PRIVJW )@@G@@ILEGE WORD @C@@@@ L A1,(1,4) . FOR PCT$ @C@@@@JX )@@G@@ ER PCT$ . GET IT @E@@@@ L,S2 JY )@@G@@ A0,PRIVLJ . S2 FOR SIMPLICITY @C@@@@ TEP,U A0,0JZ )@@G@@40 . TEST IT @C@@@@ SZ FLAGPR . PRIVKA )@@G@@ILEGED@C@@@@ L,U A0,MCTWD . FOR MCT$ @C@@@@ KB )@@G@@ ER MCT$ . DO IT @E@@@@ TZ,S1 MCTWKC )@@G@@D . NORMAL COMPL TION? @B@@@@ J MCTERR KD )@@G@@ . NO @B@@@@ L,U A0,1 . @B@@@@ KE )@@G@@ LMJ X11,SELT$ . @B@@@@ J NOFIL KF )@@G@@ . @B@@@@ TNZ,S2 ELT$ . @B@@@@ KG )@@G@@ J ELTNAM . @B@@@@ DL A0,FITEM KH )@@G@@ . @B@@@@ LMJ X11,DUSE$ . @B@@@@ KI )@@G@@ J CHKIT . @B@@@@ELTNAM L,U A0,010106 KJ )@@G@@ . @B@@@@ LMJ X11,SINF$ . @B@@@@ KK )@@G@@ J NOFIL . @B@@@@ DS A0,USER+2 KL )@@G@@ . @B@@@@ L A0,(5,USER) . @B@@@@ KM )@@G@@ ER CSF$ . @B@@@@CHKIT L A0,(037777KN )@@G@@7,FITEM) . @B@@@@ ER FITEM$ . @B@@@@ KO )@@G@@ L A0,FITEM+7 . @B@@@@ AND A0,CORU KP )@@G@@ . @B@@@@ JNZ A1,NOTCAT . @B@@@@ KQ )@@G@@ TNZ,S1 FITEM+6 . @B@@@@ J CHKIT1 KR )@@G@@ . @B@@@@ SZ ALRASG . @B@@@@ KS )@@G@@ L A0,FITEM+7 . @B@@@@ TEP A0,(1*/34)KT )@@G@@ . @B@@@@ J TEMPFL . @B@@@@ KU )@@G@@ AND A0,DORK . @B@@@@ JNZ A1,DLTSET KV )@@G@@ . @B@@@@ L A0,FREE . @B@@@@ KW )@@G@@ ER CSF$ . @B@@@@ TNZ,S2 ELT$ KX )@@G@@ . @B@@@@ J ELTNAM1 . @B@@@@ KY )@@G@@ DL A0,FITEM . @B@@@@ LMJ X11,DUSE$ KZ )@@G@@ . @B@@@@ J CHKIT1 . @B@@@@ELTNAMLA )@@G@@1 L A0,(5,USER) . @B@@@@ ER CSF$ LB )@@G@@ . @B@@@@CHKIT1 L A0,ASGAYX . @E@@@@ LC )@@G@@ L,U A2,'Q' . FOR 'Q' OPT ON @ASG @D@@@@ TNLD )@@G@@Z FLAGPR . PRIVILEGED? @B@@@@ S,S3 A2,ALE )@@G@@SG+1 . YUP @B@@@@ ER CSF$ . @B@@@@LF )@@G@@ AND A0,(0761775761500) . @ @@@@ TNZ FLAGLG )@@G@@PR @B@@@@ AND A0,(0761475761500) . @B@@@@ JNLH )@@G@@Z A1,CSFERR . @D@@@@ L A0,KEYSON LI )@@G@@. SEE EQUF SECTION@D@@@@ TOP,U A0,020 . WRITE KEY LJ )@@G@@ON? @B@@@@ SZ FLAGRK . YES @D@@@@ TOLK )@@G@@P,U A0,010 . READ KEY ON? @B@@@@ SZ FLAGLL )@@G@@WK . YES @C@@@@ L,U A0,DPAK . FOR MSCON$LM )@@G@@@C@@@@ ER MSCON$ . DREAD$ @C@@@@ JNLN )@@G@@ A0,MSCONERR . ERROR? @E@@@@ L,U A0,010104 LO )@@G@@ . FOR OLD WRITE KEY @C@@@@ LMJ X11,SINF$ LP )@@G@@. GET IT @C@@@@ L A0,(' ') . NOT GIVEN @D@@@@LQ )@@G@@ S A0,OLWKY . STORE IT AWAY @D@@@@ TNLR )@@G@@E A0,(' ') . IS KEY BLANK? @E@@@@ SZ FLAGLS )@@G@@RK . YES - SAY IT WAS ON @D@@@@ L,S4 A0,ELT$ LT )@@G@@ . LENGTH IN CHARS @C@@@@ S,H1 A0,KEYLEN . STORLU )@@G@@E IT @D@@@@ L,U A0,010105 . OLD WRITE KEY @C@@@@LV )@@G@@ LMJ X11,SINF$ . GET IT @C@@@@ L LW )@@G@@ A0,(' ') . NOT GIVEN @C@@@@ S A0,OLRKY LX )@@G@@. STORE IT @D@@@@ TNE A0,(' ') . IS KEY BLANK? LY )@@G@@@E@@@@ SZ FLAGWK . YES - SAY IT WAS ON @C@@@@LZ )@@G@@ L,S5 A0,ELT$ . LENGTH @C@@@@ S,H2 MA )@@G@@ A0,KEYLEN . STORE IT @C@@@@ L,U A0,2 MB )@@G@@. SPEC 2 @C@@@@ LMJ X11,SELT$ . GET IT @C@@@@MC )@@G@@ J NOCHG . NOT THERE @D@@@@ SZ MD )@@G@@ FLAGKEYS . CHANGE IN KEYS @D@@@@ L,U A0,010204 ME )@@G@@ . NEW READ KEY @C@@@@ LMJ X11,SINF$ . GET MF )@@G@@IT @C@@@@ L A0,(' ') . NOT THERE @D@@@@ MG )@@G@@ TNE A0,OLWKY . ANY CHANGE? @B@@@@ L MH )@@G@@ A0,('//////') . NO @C@@@@ S A0,NWKY . STORMI )@@G@@E IT @D@@@@ L,U A0,010205 . NEW WRITE KEY @C@@@@MJ )@@G@@ LMJ X11,SINF$ . GET IT @C@@@@ L MK )@@G@@ A0,(' ') . NOT THERE @D@@@@ TNE A0,OLRKY ML )@@G@@. ANY CHANGE? @B@@@@ L A0,('//////') . NO @C@@@@MM )@@G@@ S A0,NRKY . STORE IT @E@@@@ J MN )@@G@@ NEXT1 . JUMP OVER THIS STUFF @E@@@@NOCHG L A0,(MO )@@G@@'//////') . SLASHES FOR NO CHANGE @B@@@@ S A0,NWKY MP )@@G@@ . @B@@@@ S A0,NRKY . @E@@@@NEXT1 MQ )@@G@@ L,U A0,010306 . NEW ACCOUNT NUMBER @C@@@@ LMMR )@@G@@J X11,SINF$ . GET IT @C@@@@ J $+5 MS )@@G@@ . NOT THERE @D@@@@ TZ FLAGPR . PRIVILEGEDMT )@@G@@? @C@@@@ J NONPRIV . NO - ERROR@D@@@@ MU )@@G@@ SZ FLAGAC . YES - SET FLAG @D@@@@ DS MV )@@G@@ A0,NEWACCT . STORE IT AWAY @D@@@@ L,U A0,010406 MW )@@G@@ . NEW PROJECT @C@@@@ LMJ X11,SINF$ . GET MX )@@G@@IT @C@@@@ J $+5 . NOT THERE @D@@@@ MY )@@G@@ TZ FLAGPR . PRIVILEGED? @C@@@@ J MZ )@@G@@ NONPRIV . NO - ERROR@C@@@@ SZ FLAGNP NA )@@G@@. SET FLAG @C@@@@ DS A0,NEWPROJ . STORE NAME@F@@@@NB )@@G@@ ER TDATE$ . TIME AND DATE FOR LAST REF @C@@@@NC )@@G@@ S A0,NEWLAST . STORE IT @D@@@@ L ND )@@G@@ A0,INF . OPTIONS WORD @C@@@@ SZ A2 NE )@@G@@ . CLEAR A2 @E@@@@ LM,T2 A3,MCTBUF+5 . 0 IF LEV27NF )@@G@@, 1 IF LEV31@C@@@@ TG,U A3,2 . > 1 ? @F@@@@NG )@@G@@ L,U A3,1 . ASSUME NO CHGS AFTER 31 @D@@@@NH )@@G@@ TOP A0,(1*/('Z'-'P')) . WAS IT THERE @D@@@@ A NI )@@G@@ A2,PRIVAT,A3 . NO - SET PRIVATE@C@@@@ TEP A0,(NJ )@@G@@1*/('Z'-'W')) . THERE? @D@@@@ A A2,WRITE,A3 . SE NK )@@G@@WRITE ONLY @C@@@@ TEP A0,(1*/('Z'-'R')) . THERE? @D@@@@NL )@@G@@ A A2,READ,A3 . SET READ ONLY @D@@@@ TENM )@@G@@P A0,(1*/('Z'-'V')) . WAS IT THERE @E@@@@ A A2,INN )@@G@@NUNL,A3 . YES - SET V OPTION @D@@@@ TEP A0,(1*/('ZNO )@@G@@'-'G')) . G OPTION @B@@@@ A A2,GUARD,A3 . NP )@@G@@@D@@@@ TNZ FLAGPR . PRIVILEGED? @E@@@@ NQ )@@G@@ A A2,GUARDC,A3 . PUT CONTROL BIT IN A2 @F@@@@ A NR )@@G@@ A2,CONTR,A3 . CONTROL BITS FOR ALL BUT 'G'@D@@@@ S NS )@@G@@ A2,NEWOPTS . AND PUT IT AWAY @E@@@@ L A0,INT )@@G@@NF . OPTION WORD AGAIN @F@@@@. FOLLOWING SECTION IS TO PREVNU )@@G@@ENT MONKEY BUSINESS BY FOLKS PUTTING@C@@@@. ON WRITE AND READ KEYS WHERENV )@@G@@ THEY DON'T BELONG@D@@@@ L A0,OLPROJ . CURRENT PRNW )@@G@@OJECT @D@@@@ TE A0,('//////') . DOES HE HAVE IT?@G@@@@NX )@@G@@ J GOOD . EITHER HAS IT OR IS PRIVILEGED NY )@@G@@@E@@@@ DL A0,OLWKY . GET OLD WRITE KEY @E@@@@NZ )@@G@@ DL A2,NWKY . GET NEW WRITE KEY @E@@@@ OA )@@G@@ TE A0,(' ') . WAS THERE AN OLD ONE? @B@@@@ J OB )@@G@@ $+3 . YES @G@@@@ TE A2,('//////') OC )@@G@@. NO - IS HE TRYING TO CHANGE IT? @E@@@@ LMJ X11,INTPRIOD )@@G@@V . IS HE PRIVILEGED? @D@@@@ TE A1,(' ') OE )@@G@@. ANY WRITE KEY? @B@@@@ J $+3 . YES @E@@@@OF )@@G@@ TE A2,('//////') . TRYING TO CHANGE IT? @D@@@@ OG )@@G@@ LMJ X11,INTPRIV . PRIVILEGED? @B@@@@GOOD ER OH )@@G@@ DATE$ . @B@@@@ SSL A0,12 . OI )@@G@@@B@@@@ S,T3 A0,SINON+2 . @B@@@@ SSL OJ )@@G@@ A0,12 . @B@@@@ S,S3 A0,SINON+2 . OK )@@G@@@B@@@@ SSL A0,6 . @B@@@@ S,S2 OL )@@G@@ A0,SINON+2 . @B@@@@ SSL A1,12 . OM )@@G@@@B@@@@ S,T3 A1,SINON+3 . @B@@@@ SSL ON )@@G@@ A1,12 . @B@@@@ S,S3 A1,SINON+3 . OO )@@G@@@B@@@@ SSL A1,6 . @B@@@@ S,S2 OP )@@G@@ A1,SINON+3 . @B@@@@ P$RINT (0104,SINON) . OQ )@@G@@@E@@@@ E$DIT EPK . NO - GET OLD OPTS @C@@@@OR )@@G@@ E$MSG OOPTM . START LINE@D@@@@ L OS )@@G@@ A7,OLDOPTS . OPTION WORD @B@@@@ L,U A0,'R' OT )@@G@@ . @D@@@@ TEP,U A7,1 . 'R' OPTION? OU )@@G@@@B@@@@ LMJ X11,ECHAR$ . YES @B@@@@ L,U OV )@@G@@ A0,'W' . @D@@@@ TEP,U A7,2 . 'W' OW )@@G@@OPTION? @B@@@@ LMJ X11,ECHAR$ . YES @B@@@@ OX )@@G@@ L,U A0,'P' . @E@@@@ TOP,U A7,010 OY )@@G@@ . 'P' OPTION? (PUBLIC) @B@@@@ LMJ X11,ECHAR$ OZ )@@G@@. YES @B@@@@ L,U A0,'V' . @D@@@@ TEPA )@@G@@P,U A7,020 . 'V' OPTION? @B@@@@ LMJ X11,PB )@@G@@ECHAR$ . YES @B@@@@ L,U A0,'G' . @D@@@@PC )@@G@@ TEP,U A7,040 . 'G' OPTION? @B@@@@ LMPD )@@G@@J X11,ECHAR$ . YES @C@@@@ E$DITX PE )@@G@@. END EDIT @B@@@@ L A1,(' NONE') . @E@@@@ PF )@@G@@ L A0,IMAGE+2 . NON-BLANK IF ANY OPTS @C@@@@ TNPG )@@G@@E A0,(' ') . ANY OPTS? @D@@@@ S A1,IMAGE+2PH )@@G@@ . NOPE - SAY SO @D@@@@ P$RINT PRINT1 . PRINPI )@@G@@T IT OUT @^@@@@. NOW, TO DO THE WORK @F@@@@DOIT TZ FLAGPJ )@@G@@KEYS . WAS THERE A KEY CHANGE? @B@@@@ J BITSPK )@@G@@ . NO @D@@@@ L,U A0,DKEY . DKEY$ PACKPL )@@G@@ET @C@@@@ ER MSCON$ . DKEY$ @C@@@@ PM )@@G@@ JN A0,MSCONERR . ERROR? @D@@@@BITS L,U A0,DPN )@@G@@BITS . DBITS$ PACKET @C@@@@ ER MSCON$ PO )@@G@@. DBITS$ @C@@@@ JN A0,MSCONERR . ERROR? @D@@@@PP )@@G@@ TZ FLAGPR . PRIVILEGED? @D@@@@ J PQ )@@G@@ OUTT . NO - ALL DONE @D@@@@ DL A0,OPR )@@G@@LPROJ . GET OLD PROJECT @F@@@@ TZ FLAGNP PS )@@G@@. IS THERE A NEW PROJECT? @G@@@@ DS A0,NEWPROJ PT )@@G@@. NO - PUT THE OLD ONE IN THE PACKET@E@@@@ DL A0,OLACCT PU )@@G@@ . OLD ACCOUNT NUMBER @F@@@@ TZ FLAGAC PV )@@G@@. WAS THERE A NEW NUMBER? @F@@@@ DS A0,NEWACCT PW )@@G@@. NO - PUT IN THE OLD ONE @D@@@@ L A0,CATDATE PX )@@G@@. CATALOG DATE @D@@@@ S A0,CATDATE$ . INTO PACKEPY )@@G@@T @D@@@@ L,U A0,DREG . DREG$ PACKET @C@@@@PZ )@@G@@ ER MSCON$ . DREG$ @C@@@@ JN QA )@@G@@ A0,MSCONERR . ERROR? @]@@@@ERREND . @F@@@@OUTT L QB )@@G@@ A0,FREE . FREE IMAGE FOR DIRECTORIES @C@@@@ ER QC )@@G@@ CSF$ . DO IT @F@@@@ TZ ALRASG QD )@@G@@. WAS IT PREVIOUSLY ASSIGNED? @B@@@@ J ENDIT QE )@@G@@. NO @B@@@@ E$DIT EPK . @B@@@@ E$QF )@@G@@COPY 4,('@ASG ') . @B@@@@ L A7,FITEM+7 QG )@@G@@. @B@@@@ LSSL A7,10 . @B@@@@ JZQH )@@G@@ A7,FNAM . @B@@@@ L,U A8,'A' QI )@@G@@. @B@@@@ L,U R4,25 . @B@@@@ E$QJ )@@G@@CHAR ',' . @B@@@@OP1 JPS A7,OP2 QK )@@G@@. @B@@@@ L A0,A8 . @B@@@@ LMQL )@@G@@J X11,ECHAR$ . @B@@@@OP2 A,U A8,1 QM )@@G@@. @B@@@@ JGD R4,OP1 . @B@@@@FNAM E$QN )@@G@@SKIP 1 . @B@@@@ E$FD2 FITEM+4 QO )@@G@@. @B@@@@ E$CHAR '*' . @B@@@@ E$QP )@@G@@FD2 FITEM+2 . @B@@@@ E$CHAR '/' QQ )@@G@@. @B@@@@ TZ FLAGRK . @B@@@@ J QR )@@G@@ WKY . @B@@@@ L,U A0,NWKY QS )@@G@@. @B@@@@ L,S4 A1,ELT$ . @B@@@@ L QT )@@G@@ A6,,A0 . @B@@@@ TE A6,('//////') QU )@@G@@. @B@@@@ J $+3 . @B@@@@ L,QV )@@G@@U A0,OLWKY . @B@@@@ L,H1 A1,KEYLEN QW )@@G@@. @B@@@@ LMJ X11,ECOPY$ . @B@@@@WKY E$QX )@@G@@CHAR '/' . @B@@@@ TZ FLAGWK QY )@@G@@. @B@@@@ J REDOIT . @B@@@@ L,QZ )@@G@@U A0,NRKY . @B@@@@ L,S5 A1,ELT$ RA )@@G@@. @B@@@@ L A6,,A0 . @B@@@@ TERB )@@G@@ A6,('//////') . @B@@@@ J $+3 RC )@@G@@. @B@@@@ L,U A0,OLRKY . @B@@@@ L,RD )@@G@@H2 A1,KEYLEN . @B@@@@ LMJ X11,ECOPY$ RE )@@G@@. @B@@@@REDOIT E$COLN . @B@@@@ A,RF )@@G@@U A0,5 . @B@@@@ DSL A0,36 RG )@@G@@. @B@@@@ DI,U A0,6 . @B@@@@ LSRH )@@G@@SL A0,18 . @B@@@@ LXM,U A0,IMAGE RI )@@G@@. @B@@@@ L A1,INF . @B@@@@ TERJ )@@G@@P,U A1,1 . @B@@@@ ER PRINT$ RK )@@G@@. @B@@@@ ER CSF$ . @C@@@@ENDIT P$RL )@@G@@RINT SINOF . BYE-BYE @D@@@@ ER EXIT$ RM )@@G@@ . AND GO AWAY @D@@@@NOFIL P$RINT SPEC1ERR . ERRORN )@@G@@R IN SPEC1 @B@@@@ ER EXIT$ . @D@@@@MCTERRRO )@@G@@ L,S1 A0,MCTWD . GET RRO CODE @C@@@@ A,U RP )@@G@@ A0,060 . FIELDATA @B@@@@ S,S5 A0,MCTM+1 RQ )@@G@@. @B@@@@ P$RINT (0102,MCTM) . @B@@@@ ERRR )@@G@@ EXIT$ . @C@@@@CSFERR S A0,A0SAV RS )@@G@@. STORE A0 @B@@@@ E$DIT EPK . EDIT@E@@@@ RT )@@G@@ E$COPY 10,ASG . PUT IN @ASG CARD;. @B@@@@ E$RU )@@G@@FD2 FITEM+4 . @B@@@@ E$CHAR '*' RV )@@G@@. @B@@@@ E$FD2 FITEM+2 . @B@@@@ E$RW )@@G@@CHAR '/' . @B@@@@ L,S4 A1,ELT$ RX )@@G@@. @B@@@@ L,U A0,ELT$+7 . @B@@@@ LMRY )@@G@@J X11,ECOPY$ . @B@@@@ E$CHAR '/' RZ )@@G@@. @B@@@@ L,S5 A1,ELT$ . @B@@@@ L,SA )@@G@@U A0,ELT$+8 . @B@@@@ LMJ X11,ECOPY$ SB )@@G@@. @B@@@@ E$MSG ASGERR . @C@@@@ E$SC )@@G@@OCTF 12,A0SAV . ERROR CODE@B@@@@ E$DITX SD )@@G@@ . @C@@@@ P$RINT PRINT1 . PRINT IT @B@@@@SE )@@G@@ J ERREND . @B@@@@TEMPFL P$RINT TMPPSF )@@G@@ . @B@@@@ ER EXIT$ . @B@@@@SG )@@G@@DLTSET P$RINT DLTP . @B@@@@ ER EXITSH )@@G@@$ . @B@@@@NOTCAT P$RINT NOTCP . @B@@@@SI )@@G@@ ER EXIT$ . @C@@@@MSCONERR S A0,ASJ )@@G@@0SAV . SAVE A0 @B@@@@ E$DIT EPK . SK )@@G@@@C@@@@ E$MSG MSCERR . ERROR MSG @C@@@@ E$SL )@@G@@OCTF 12,A0SAV . ERROR CODE@B@@@@ E$DITX SM )@@G@@ . @B@@@@ P$RINT PRINT1 . @B@@@@ SN )@@G@@ J NOCEND . @E@@@@INTPRIV TNZ FLAGPR SO )@@G@@ . IS HE PRIVILEGED? @B@@@@ J 0,X11 SP )@@G@@. YES @D@@@@NONPRIV P$RINT NONPR . NON PRIVILEGED @B@@@@SQ )@@G@@ J ERREND . @D@@@@ERRPRT ER PRINSR )@@G@@T$ . OUT FOR RINF$ @D@@@@NOCEND P$RINT NOCHGS SS )@@G@@. BYE-BYE FOOL @^@@@@ END CHGN___O - PUT IN THE OLD ONST )@@G@@E @D@@@@ L A0,CATDATE . CATALOG DATE @D@@@@SU )@@G@@ S A0,CATDATE$ . INTO PACKET @D@@@@ L,SV )@@G@@*[@@@@*SDFF*@ @@@@. THE @BACK PROCESSOR @[@@@@. @E@@@@. SW )@@G@@ DOUBLE-BUFFERED FILE-BACKER-UPPER (MASS STORAGE TO@^@@@@. MASX )@@G@@SS STORAGE) @[@@@@. @A@@@@. USE: @BACK<,OPTIONS> @#@@@@SY )@@G@@. . @F@@@@. UP TO 25 CARDS SPECIFYING REMOVASZ )@@G@@BLE DISC PACKIDS @#@@@@. . @^@@@@. @EOF TA )@@G@@@E@@@@. NEWQUAL (NEW QUALIFIER FOR ALL THE FILES) @#@@@@TB )@@G@@. . @F@@@@. ANY NUMBER OF FILE CARDS (SAME FTC )@@G@@ORMAT AS FOR @OUT)@#@@@@. . @^@@@@. @EOF TD )@@G@@@[@@@@. @[@@@@. @E@@@@. OPTIONS: A - DON'T ERROR OFF IFTE )@@G@@ AN @ASG FAILS @F@@@@. D - DELETE EACH FILE AFTER ITF )@@G@@T HAS BEEN COPIED @F@@@@. G - CATALOGUE EACH NEW FILE TG )@@G@@WITH A 'G' OPTION @B@@@@. N - DON'T PRINT KEYS @[@@@@TH )@@G@@. @[@@@@. @F@@@@. IF FILES ARE TO BE CATALOGUED ON REMOVTI )@@G@@ABLE DISCS, THEN @F@@@@. ANY G-OPTION FILES ARE MADE NON-G-OPTITJ )@@G@@ON. OTHERWISE, @G@@@@. ALL PERTINENT INFORMATION REMAINS THE TK )@@G@@SAME FOR THE NEW FILE. @[@@@@. @[@@@@. @E@@@@. TL )@@G@@ R. DUFF KURLAND @G@@@@. TM )@@G@@ UHMC COMPUTER CENTER - SYSTEMS @E@@@@. TN )@@G@@ NEW YORK UNIVERSITY @D@@@@. TO )@@G@@ DECEMBER, 1973@[@@@@/. @#@@@@ AXR$ @[@@@@TP )@@G@@$(0) @F@@@@SP40 EQU 1 . SET NONZERO IF REMTQ )@@G@@OVABLE@G@@@@ . 8440 DISC PACKS HATR )@@G@@VE UNIQUE @G@@@@ . PACKIDS, TO TS )@@G@@DIFFERENTIATE @F@@@@ . THEM FTT )@@G@@ROM 8414 PACKS. @G@@@@ . IF SETTU )@@G@@ NONZERO, @BACK WILL @G@@@@ . TV )@@G@@ONLY CATALOG REMOVABLE FILES @F@@@@ TW )@@G@@ . ON 8440 IF PACKIDS OF @F@@@@ TX )@@G@@ . THE CORRECT SORT ARE @H@@@@ TY )@@G@@ . GIVEN. IF SET ZERO, BACK WILL @G@@@@ TZ )@@G@@ . NOT CATALOGUE REMOVABLE FILES @D@@@@ UA )@@G@@ . ON 8440. @[@@@@. @E@@@@SP24 EQU UB )@@G@@ 1 . SAME, FOR 8424/25 @[@@@@. @^@@@@ ONUC )@@G@@ SP40@G@@@@SP40F + 'PK4' . WHAT 8440 PAUD )@@G@@CKIDS LOOK LIKE @^@@@@ OFF SP40@^@@@@ ON UE )@@G@@ SP24@G@@@@SP24F + 'PK2' . WHAT 8424 PACKIDS UF )@@G@@LOOK LIKE @^@@@@ OFF SP24@ @@@@ ON SP40UG )@@G@@++SP24@G@@@@SPPART EQU H1 . PORTION OF PACKID UH )@@G@@TO CHECK @ @@@@ OFF SP40++SP24@[@@@@. @[@@@@$(1). UI )@@G@@@[@@@@START.@E@@@@ L,U A0,START2 . GET FORK$ ADUJ )@@G@@DR @F@@@@ ER FORK$ . FORK MAJOR SET ACTUK )@@G@@IVITY @F@@@@ ER EXIT$ . EXIT ORIGINAL ACTIUL )@@G@@VITY @A@@@@START2 L A0,(0102,QUAL) @D@@@@ ER UM )@@G@@ PRINT$ . SIGN ON @A@@@@ L A0,(ERROR,UN )@@G@@BUF) @ @@@@ ER READ$ @ @@@@ TEP A0,(UO )@@G@@1*/30)@^@@@@ J $-3 @^@@@@ L,U A1,1@^@@@@UP )@@G@@ ER OPT$@B@@@@ TEP A0,(1*/('Z'-'A')) UQ )@@G@@@D@@@@ S A1,AOPT . A OPTION SET@B@@@@ UR )@@G@@ TEP A0,(1*/('Z'-'D')) @D@@@@ S A1,DOPT US )@@G@@ . D OPTION SET@B@@@@ TEP A0,(1*/('Z'-'G')) UT )@@G@@@D@@@@ S A1,GOPT . G OPTION SET@B@@@@ UU )@@G@@ TEP A0,(1*/('Z'-'N')) @D@@@@ S A1,NOPT UV )@@G@@ . N-OPTION SET@^@@@@ SZ A5 @A@@@@READ1 L UW )@@G@@ A0,(EOF1,PACKID)@ @@@@ A A0,A5 @D@@@@ UX )@@G@@ ER READ$ . READ PACKID @ @@@@ L,U UY )@@G@@ A0,0,A0 @E@@@@ TE,U A0,1 . ONE WORD REAUZ )@@G@@D? @G@@@@ ER EABT$ . NO, IMPROPER PACKIVA )@@G@@D CARDP @^@@@@ A,U A5,1@ @@@@ J READVB )@@G@@1 @ @@@@EOF1 TG,U A5,26 @F@@@@ ER EABTVC )@@G@@$ . LIMIT IS 25 PACKIDS @ @@@@ S A5,NVD )@@G@@PACKS @ @@@@ ON SP40++SP24@F@@@@ JZ A5,AVE )@@G@@ROUND . IF NO PACKS, SKIP TEST @G@@@@ L,SPPART A0,PVF )@@G@@ACKID . GET PORTION OF 1ST PACKID @^@@@@ ON VG )@@G@@ SP40@E@@@@ TE A0,SP40F . REM 8440 PACK? VH )@@G@@@G@@@@ SZ F40OK . NO, DONT TRY TO CAT ON RVI )@@G@@EM F40@^@@@@ OFF SP40@^@@@@ ON SP24@E@@@@VJ )@@G@@ TE A0,SP24F . REM 8424/25 PACK? @C@@@@ VK )@@G@@ SZ F24OK . NO @^@@@@ OFF SP24VL )@@G@@@]@@@@AROUND . @ @@@@ OFF SP40++SP24@A@@@@ L VM )@@G@@ A0,(ERROR,QUAL) @D@@@@ ER READ$ . VN )@@G@@READ NEWQUAL@ @@@@ L,U A4,0,A0 @^@@@@ TZ VO )@@G@@ A4 @^@@@@ TG,U A4,3@F@@@@ ER EABT$ VP )@@G@@ . IMPROPER NEWQUAL CARD @G@@@@ JZ A5,FREAD VQ )@@G@@ . IF NO PACKS, DON'T ASG TEMP$ @ @@@@ L A1,PVR )@@G@@ACKID @ @@@@ LMJ X11,ZOWIE @E@@@@ TNE,U A5,1VS )@@G@@ . MORE THAN 1 PACK? @E@@@@ J F40CHK VT )@@G@@ . NO, ASG TEMP$ @E@@@@ AN,U A5,2 VU )@@G@@ . YES, MAKE LIST @ @@@@PKS L A1,SLASH @ @@@@ VV )@@G@@ LMJ X11,ZOWIE @ @@@@ L A2,A5 @A@@@@ VW )@@G@@ L A1,PACKID+1,A2 @ @@@@ LMJ X11,ZOWIE @ @@@@VX )@@G@@ JGD A5,PKS @]@@@@F40CHK . @^@@@@ ON VY )@@G@@ SP40@B@@@@ L,U A5,'40' . @D@@@@ TZVZ )@@G@@ F40OK . 8440 PACK?@F@@@@ S,T2 A5,FWA )@@G@@ILE+2 . YES, CHANGE ASG IMAGE @^@@@@ OFF SP40WB )@@G@@@^@@@@ ON SP24@B@@@@ L,U A0,'24' WC )@@G@@ . @E@@@@ TZ F24OK . 8424/25 PACK? WD )@@G@@@F@@@@ S,T2 A0,FILE+2 . YES, CHANGE ASG IMAGE WE )@@G@@@^@@@@ OFF SP24@ @@@@TMPASG L,U A5,14 @ @@@@WF )@@G@@ TE,U A5,14 @^@@@@ J $+3 @E@@@@ WG )@@G@@ LMJ X11,PRINT1 . @ASG,T TEMP$. @^@@@@ J WH )@@G@@ $+2 @ @@@@ LMJ X11,CSF1 @E@@@@ JP WI )@@G@@ A0,FREAD . IF ASG OK, GO ON @F@@@@ AND A0,(WJ )@@G@@0200000,0) . CHECK NO-SUCH-EQUIP BIT @H@@@@ JZ A1,DWK )@@G@@WAIT . IF NOT THAT, WAIT AND TRY AGAIN @C@@@@ LAWL )@@G@@ A0,(0102,('FIELD ERROR ')) @D@@@@ ER PRINT$ WM )@@G@@ . PRINT MSG @D@@@@ ER EABT$ . WN )@@G@@AND GET OUT @A@@@@FREAD L A0,(EXIT,CARD+1)@E@@@@ ERWO )@@G@@ READ$ . READ FILE CARD @ @@@@ L,U WP )@@G@@ A0,1,A0 @^@@@@ TLE,U A0,3@E@@@@ ER EABTWQ )@@G@@$ . IMPROPER FILE CARD@ @@@@ S,S3 A0,LINE2 WR )@@G@@@ @@@@ASG L,U R3,14 @A@@@@ L A0,('@ASG,WS )@@G@@A') @ @@@@ S A0,CARD @D@@@@ LMJ X11,WT )@@G@@PRINT2 . ASG,A FILE. @ @@@@ SSC A0,18 @^@@@@WU )@@G@@ TEP,U A0,1@ @@@@ J TWAIT @ @@@@ WV )@@G@@ LSSC A0,18 @B@@@@ L A2,(0221774403000) WW )@@G@@@ @@@@ AND A0,A2 @E@@@@ JNZ A1,FACREJ WX )@@G@@ . IF NO GOOD, FACREJ@B@@@@USE DL A0,('@USE $$I.WY )@@G@@,') @ @@@@ DS A0,CARD @E@@@@ LMJ X11,WZ )@@G@@CSF2 . USE $$I.,FILE @ @@@@ L,U A0,020 XA )@@G@@@ @@@@ S A0,BUF+50 @ @@@@ DL A0,INPK XB )@@G@@@ @@@@ DS A0,BUF+51 @A@@@@ L A0,(03400,XC )@@G@@BUF) @ @@@@ S A0,BUF+53 @ @@@@ SZ BUF+XD )@@G@@54 @ @@@@ L,U A0,BUF+50 @F@@@@ ER MSCOXE )@@G@@N$ . DREAD$ FOR LEAD ITEM @^@@@@ TP A0 XF )@@G@@@G@@@@ ER EABT$ . MSCON$ ERROR - STATUS INXG )@@G@@ A0 @B@@@@ DL A0,('@ASG,ADY ') @ @@@@ DSXH )@@G@@ A0,FILE @ @@@@ DL A0,QUAL @ @@@@ DSXI )@@G@@ A0,FILE+2 @^@@@@ L,U A0,4@E@@@@ TNE,U XJ )@@G@@ A4,1 . IS QUAL 1 WORD? @G@@@@ L,U A0,3XK )@@G@@ . YES, MAKE THAT IMAGE SHORTER! @ @@@@ S,S3 XL )@@G@@ A0,LINE @A@@@@ L A1,('* ') @ @@@@ LMXM )@@G@@J X11,ZOWIE @E@@@@ L A1,BUF+3 . FILE NXN )@@G@@AME (WORD 1)@ @@@@ LMJ X11,ZOWIE @E@@@@ L XO )@@G@@ A1,BUF+4 . FILE NAME (WORD 2)@ @@@@ LMJ X11,XP )@@G@@ZOWIE @C@@@@ L A5,INPK+1 . BLANKS@D@@@@ XQ )@@G@@ TNE A5,BUF+7 . READ KEY? @C@@@@ J XR )@@G@@ WKEY . NONE @ @@@@ L A1,SLASH @ @@@@XS )@@G@@ LMJ X11,ZOWIE @D@@@@ L A1,BUF+7 XT )@@G@@ . ADD READ KEY@ @@@@ LMJ X11,ZOWIE @^@@@@ J XU )@@G@@ $+5 @D@@@@WKEY TNE A5,BUF+8 . WRITE KEY? XV )@@G@@@C@@@@ J PAST . NOPE @F@@@@ L XW )@@G@@ A1,SLASH . YUP, BETTER ADD A SLASH @ @@@@ LMXX )@@G@@J X11,ZOWIE @D@@@@ TNE A5,BUF+8 . WRITE XY )@@G@@KEY? @C@@@@ J PAST . NONE @ @@@@ XZ )@@G@@ L A1,SLASH @ @@@@ LMJ X11,ZOWIE @E@@@@ YA )@@G@@ L A1,BUF+8 . ADD WRITE KEY @ @@@@ LMYB )@@G@@J X11,ZOWIE @E@@@@PAST L,S3 A0,BUF+10 . GET EQYC )@@G@@UIP SUBCODE @D@@@@ S A0,SUBCOD . STORE IT YD )@@G@@@^@@@@ L,U A0,1@ @@@@ S,S3 A0,BUF+53 @ @@@@YE )@@G@@ L,U A0,BUF+50 @F@@@@ ER MSCON$ YF )@@G@@ . DREAD$ FOR MAIN ITEM @^@@@@ TP A0 @G@@@@ YG )@@G@@ ER EABT$ . MSCON$ ERROR - STATUS IN A0 @ @@@@YH )@@G@@ L,S1 A0,BUF+17 @ @@@@ TLE,U A0,040 @ @@@@YI )@@G@@ TLE,U A0,030 @H@@@@ ER EABT$ YJ )@@G@@ . FILE IS NOT IN MASS STORAGE FORMAT @A@@@@ L A1,(YK )@@G@@'. ') @ @@@@ LMJ X11,ZOWIE @F@@@@ LMJ YL )@@G@@ X11,CSF1 . @ASG,AYD NEWQUAL*FILE. @B@@@@ DL YM )@@G@@ A0,('@FREE ') @ @@@@ DS A0,FILE @F@@@@ YN )@@G@@ LMJ X11,CSF1 . @FREE NEWQUAL*FILE. @ @@@@ YO )@@G@@ L,S3 A0,LINE @^@@@@ AN,U A0,1@A@@@@ L YP )@@G@@ A1,FILE-1,A0 @ @@@@ DS A0,BUF+100@A@@@@ YQ )@@G@@ L A0,('@ASG,C') @ @@@@ S A0,FILE @ @@@@YR )@@G@@ SZ STORE @E@@@@ L,S2 A1,BUF+17 YS )@@G@@ . GET CAT OPTIONS @ @@@@ L,U A0,025 @^@@@@ YT )@@G@@ TOP,U A1,8@D@@@@ S,S1 A0,STORE . PUBLICYU )@@G@@ FILE @ @@@@ L,U A0,027 @^@@@@ TEP,U A1,1YV )@@G@@@E@@@@ S,S2 A0,STORE . READ-ONLY FILE @ @@@@YW )@@G@@ L,U A0,034 @^@@@@ TEP,U A1,2@E@@@@ YX )@@G@@ S,S3 A0,STORE . WRITE-ONLY FILE @ @@@@ L,YY )@@G@@U A0,033 @ @@@@ TEP,U A1,020 @G@@@@ S,YZ )@@G@@S4 A0,STORE . UNLOAD-INHIBIT (V OPTION) @E@@@@ ZA )@@G@@ TZ GOPT . IS G OPTION SET? @F@@@@ J ZB )@@G@@ SETG . YES, CAT WITH G OPTION @F@@@@ TOZC )@@G@@P,U A1,040 . IS ORIG FILE GUARDED? @F@@@@ J ZD )@@G@@ NOG . NO, DON'T ADD G OPTION @]@@@@SETG . ZE )@@G@@@B@@@@ L,U A0,014 . @D@@@@ TNZ ZF )@@G@@ NPACKS . TO REM DISC?@G@@@@ S,S5 A0,STORE ZG )@@G@@ . NO, OKAY TO HAVE G OPTION @]@@@@NOG . @ @@@@ ZH )@@G@@ L A0,STORE @C@@@@ L A1,INPK+1 . ZI )@@G@@BLANKS@ @@@@ SZ STORE @^@@@@ L,U R3,5ZJ )@@G@@@ @@@@SHIFT S,S6 A0,STORE @ @@@@ TZ STORE ZK )@@G@@@^@@@@ J $+3 @^@@@@ SSC A0,6@^@@@@ ZL )@@G@@ J $+2 @^@@@@ DSC A0,6@ @@@@ JGD ZM )@@G@@ R3,SHIFT @F@@@@ S A1,FILE+1 . STORE OPTS IZN )@@G@@N IMAGE @E@@@@ L,S1 A0,BUF+17 . GET EQUIP TYZO )@@G@@PE @E@@@@ TZ NPACKS . TO REMOVABLE DISC?ZP )@@G@@@C@@@@ J TOREM . YES @E@@@@ L ZQ )@@G@@ A1,FTYP-030,A0 . GET FD EQUIP TYPE @D@@@@ TZ ZR )@@G@@ SUBCOD . SUBCODE? @D@@@@ TE,U A0,035 ZS )@@G@@ . OF F14? @C@@@@ J FIXED . ZT )@@G@@NO @E@@@@ L A1,(',F24/ ') . YES, CHANGE TO F24ZU )@@G@@@D@@@@ J FIXED . CONTINUE @D@@@@TOREM ZV )@@G@@ L A1,(',F14/ ') . 8414 DISC @^@@@@ ON ZW )@@G@@ SP40@F@@@@ TZ F40OK . REM 8440 PACK GIVEZX )@@G@@N? @E@@@@ L A1,(',F40/ ') . YES, ASSUME F40 ZY )@@G@@@^@@@@ OFF SP40@^@@@@ ON SP24@F@@@@ ZZ )@@G@@ TZ F24OK . 8424/25 PACK GIVEN? @E@@@@ AA )@@G@@ L A1,(',F24/ ') . YES, ASSUME F24 @^@@@@ OFAB )@@G@@F SP24@ @@@@FIXED LMJ X11,ZOWIE @E@@@@ L,H1 AC )@@G@@ A2,BUF+20 . INITIAL RESERVE @ @@@@ LMJ X11,AD )@@G@@CN @ @@@@ LMJ X11,ZOWIE @A@@@@ L A1,(AE )@@G@@'/TRK/ ') @D@@@@ TP BUF+13 . GRANULARITY AF )@@G@@@A@@@@ L A1,('/POS/ ') @ @@@@ LMJ X11,AG )@@G@@ZOWIE @D@@@@ L,H1 A2,BUF+21 . MAX GRANULES@ @@@@AH )@@G@@ L A1,A2 @E@@@@ LSSL A1,6 AI )@@G@@ . MULTIPLY BY 64 @F@@@@ TP BUF+13 . AJ )@@G@@POSITION GRANULARITY? @E@@@@ LSSL A1,6 . AK )@@G@@MULTIPLY BY 64 @ @@@@ S A1,HIEST @ @@@@ LMAL )@@G@@J X11,CN @ @@@@ LMJ X11,ZOWIE @D@@@@ TNAM )@@G@@Z NPACKS . NO PACKIDS? @G@@@@ J ASGCAN )@@G@@ . THEN @ASG,C WITHOUT THEM! @ @@@@ L AO )@@G@@ A1,COMMA @ @@@@ LMJ X11,ZOWIE @G@@@@ L AP )@@G@@ A1,PACKID . ADD PACKIDS TO ASG,C IMAGE @ @@@@ LMAQ )@@G@@J X11,ZOWIE @ @@@@ L A5,NPACKS @D@@@@ TNAR )@@G@@E,U A5,1 . ONE PACK? @D@@@@ J ASGCAS )@@G@@ . YES, ASGC @E@@@@ AN,U A5,2 AT )@@G@@ . NO, ADD THE OTHERS@ @@@@PKS2 L A1,SLASH @ @@@@ AU )@@G@@ LMJ X11,ZOWIE @ @@@@ L A2,A5 @A@@@@ AV )@@G@@ L A1,PACKID+1,A2 @ @@@@ LMJ X11,ZOWIE @ @@@@AW )@@G@@ JGD A5,PKS2 @G@@@@ASGC LMJ X11,PRINT1 AX )@@G@@ . @ASG,C NEWQUAL*FILE....... @^@@@@ TP A0 @F@@@@AY )@@G@@ ER EABT$ . @ASG,C FAILURE - SEE A0 @B@@@@AZ )@@G@@ DL A0,('@USE $$O.,') @ @@@@ DS A0,FBA )@@G@@ILE @ @@@@ DL A0,BUF+100@A@@@@ S A1,FBB )@@G@@ILE-1,A0 @ @@@@ S,S3 A0,LINE @F@@@@ LMJ BC )@@G@@ X11,CSF1 . @USE $$O.,NEWQUAL*FILE.@[@@@@/. @ @@@@. DOUBBD )@@G@@LE-BUFFERED I/O ROUTINE @[@@@@. @A@@@@ L A0,(1792,BBE )@@G@@UF) @ @@@@ S A0,INPK+4 @A@@@@ L A0,(BF )@@G@@1792,BUF2) @ @@@@ S A0,OUTPK+4@ @@@@ SZ BG )@@G@@ INPK+5 @ @@@@FR L,U A0,INPK @D@@@@ ER BH )@@G@@ IOW$ . READ TRACK @ @@@@ TNZ,S1 INPK+3 BI )@@G@@@^@@@@ J IO-1@ @@@@ L,S1 A0,INPK+3 @D@@@@BJ )@@G@@ TE,U A0,5 . EMPTY TRACK?@F@@@@ ERBK )@@G@@ EABT$ . NO, ERROR READING TRACK @F@@@@ L BL )@@G@@ A0,INPK+5 . YES, TRY NEXT TRACK @ @@@@ A,BM )@@G@@U A0,64 @D@@@@ TNE A0,HIEST . REACHEBN )@@G@@D MAX?@C@@@@ J NXTFIL . YES @C@@@@ BO )@@G@@ S A0,INPK+5 . NO @^@@@@ J FR BP )@@G@@@E@@@@ SZ A2 . A2 = TRACKS COPIED@E@@@@BQ )@@G@@IO L A0,INPK+4 . SWITCH BUFFERS @ @@@@ BR )@@G@@ L A1,OUTPK+4@ @@@@ S A1,INPK+4 @ @@@@ BS )@@G@@ S A0,OUTPK+4@ @@@@ L A0,INPK+5 @ @@@@ BT )@@G@@ S A0,OUTPK+5@ @@@@ L,U A0,OUTPK @D@@@@ BU )@@G@@ ER IO$ . WRITE TRACK @ @@@@ L BV )@@G@@ A0,INPK+5 @D@@@@ A,U A0,64 . NEXT TRACK BW )@@G@@@C@@@@ TNE A0,HIEST . MAX? @E@@@@ J BX )@@G@@ LW . YES, LAST WRITE @ @@@@ S BY )@@G@@ A0,INPK+5 @ @@@@RD L,U A0,INPK @E@@@@ ER BZ )@@G@@ IOW$ . READ NEXT TRACK @ @@@@ TNZ,S1 INPKCA )@@G@@+3 @D@@@@ J OK . INPUT OK @ @@@@CB )@@G@@ L,S1 A0,INPK+3 @^@@@@ TE,U A0,5@F@@@@ CC )@@G@@ ER EABT$ . ERROR READING TRACK @G@@@@ CD )@@G@@ L A0,INPK+5 . TRACK EMPTY - TRY NEXT ONE @ @@@@CE )@@G@@ A,U A0,64 @C@@@@ TNE A0,HIEST CF )@@G@@ . MAX? @E@@@@ J LW . YES, LAST WRCG )@@G@@ITE @ @@@@ S A0,INPK+5 @^@@@@ J RD CH )@@G@@@ @@@@OK TP OUTPK+3 @F@@@@ ER WAIT$ CI )@@G@@ . WAIT FOR WRITE TO FINISH@ @@@@ TZ,S1 OUTPK+3 CJ )@@G@@@F@@@@ ER EABT$ . ERROR WRITING TRACK CK )@@G@@@^@@@@ A,U A2,1@^@@@@ J IO @ @@@@LW CL )@@G@@ TP OUTPK+3 @F@@@@ ER WAIT$ . CM )@@G@@WAIT FOR LAST WRITE @ @@@@ TZ,S1 OUTPK+3 @F@@@@ CN )@@G@@ ER EABT$ . ERROR WRITING TRACK @^@@@@ CO )@@G@@ A,U A2,1@B@@@@NXTFIL DL A0,('@FREE $$O.') @ @@@@CP )@@G@@ DS A0,FILE @^@@@@ L,U A0,2@C@@@@ CQ )@@G@@ S,S3 A0,LINE A0,2 @E@@@@ LMJ X11,CR )@@G@@CSF1 . FREE OUTPUT FILE @ @@@@ LMJ X11,CN CS )@@G@@@ @@@@ S A1,TRACKS @A@@@@ L A0,(0104,TCT )@@G@@RACKS)@G@@@@ ER PRINT$ . PRINT NO. OF TRACKCU )@@G@@S WRITTEN @B@@@@ DL A0,('@FREE $$I.') @E@@@@ CV )@@G@@ TZ DOPT . IS D OPTION SET? @F@@@@ DLCW )@@G@@ A0,('@FREE,D $$I.') . YES, DO A @FREE,D $$I. @ @@@@ DSCX )@@G@@ A0,FILE @E@@@@ LMJ X11,CSF1 . FREE ICY )@@G@@NPUT FILE. @ @@@@ J FREAD @[@@@@/. @^@@@@. WAITCZ )@@G@@ FOR FACILITIES @[@@@@. @ @@@@DWAIT L,U A1,20000 @ @@@@DA )@@G@@ ER TWAIT$ @A@@@@ JGD A5,TMPASG+1 DB )@@G@@@ @@@@ L A2,NPACKS @ @@@@ LMJ X11,CN DC )@@G@@@ @@@@ SSC A1,18 @A@@@@ S,H1 A1,FILWAT+DD )@@G@@2 @^@@@@ SZ BUF @ @@@@ L,U A0,30 DE )@@G@@@ @@@@ LSSL A0,18 @ @@@@ LXM,U A0,FILWAT DF )@@G@@@ @@@@ S A0,BUF+1 @ @@@@ SZ BUF+2 DG )@@G@@@ @@@@ L,U A0,BUF @H@@@@ ER COM$ DH )@@G@@ . 'WAITING FOR XX REM DISC DRIVES' @ @@@@ J DI )@@G@@ TMPASG @ @@@@TWAIT L,U A1,20000 @ @@@@ ER DJ )@@G@@ TWAIT$ @ @@@@ JGD R3,ASG+1 @ @@@@ L DK )@@G@@ A2,CARD+1 @ @@@@ DL A0,FILWAT @ @@@@ DS DL )@@G@@ A0,CARD @^@@@@ SZ BUF @ @@@@ L,S3 A0,LDM )@@G@@INE2 @^@@@@ MSI,U A0,6@ @@@@ LSSL A0,18 DN )@@G@@@ @@@@ LXM,U A0,CARD @ @@@@ S A0,BUF+1 DO )@@G@@@ @@@@ SZ BUF+2 @ @@@@ L,U A0,BUF DP )@@G@@@F@@@@ ER COM$ . 'WAITING FOR FILE' MSG DQ )@@G@@@ @@@@ S A2,CARD+1 @^@@@@ J ASG @^@@@@DR )@@G@@FACREJ L,U A3,1@^@@@@ L,U R2,5@ @@@@ S DS )@@G@@ A1,A2 @^@@@@ DSL A0,3@^@@@@ SSL DT )@@G@@ A1,3@ @@@@ JGD R2,$-2 @ @@@@ JGD A3,$DU )@@G@@-5 @B@@@@ DA A1,('000000000000') @F@@@@ DSDV )@@G@@ A1,BUF+10 UF+9) @B@@@@ DLDW )@@G@@ A0,(' FAC: ON ') @ @@@@ S A0,BUF+9 @ @@@@DX )@@G@@ S A1,BUF+12 @^@@@@ SZ BUF @A@@@@ DY )@@G@@ L A0,(21,BUF+9) @ @@@@ S A0,BUF+1 @ @@@@DZ )@@G@@ SZ BUF+2 @ @@@@ L,U A0,BUF @G@@@@EA )@@G@@ TNZ AOPT . IF A OPTION SET, SKIP COM$ EB )@@G@@@F@@@@ ER COM$ . DISPLAY FACREJ CODE EC )@@G@@@A@@@@ L A0,(0103,BUF+9) @E@@@@ ER PRINED )@@G@@T$ . PRINT FACREJ CODE @E@@@@ TZ AOPT EE )@@G@@ . IS A OPTION SET? @F@@@@ J FREAD EF )@@G@@ . YES, GET NEXT FILE CARD @F@@@@ L,S3 A0,LINE2 EG )@@G@@ . NO, GET GUILTY ASG IMAGE@^@@@@ MSI,U A0,6@ @@@@ EH )@@G@@ LSSL A0,18 @ @@@@ LXM,U A0,CARD @ @@@@ EI )@@G@@ S A0,BUF+1 @ @@@@ L,U A0,BUF @F@@@@ EJ )@@G@@ ER COM$ . DISPLAY GUILTY ASG IMAGE@G@@@@ EK )@@G@@ ER EABT$ . NO A OPTION, AND FAC REJECTED.@[@@@@EL )@@G@@. @G@@@@. BINARY-TO-FIELDATA DECIMAL CONVERSION -- INPUT IN A2, OUTEM )@@G@@PUT IN A1 @[@@@@. @ @@@@CN L A3,INPK+1 @^@@@@CNVRT EN )@@G@@ SZ A1 @ @@@@ DI,U A1,10 @ @@@@ A,EO )@@G@@U A2,060 @^@@@@ DSL A2,6@ @@@@ L EP )@@G@@ A2,A1 @ @@@@ JNZ A1,CNVRT @ @@@@ S EQ )@@G@@ A3,A1 @ @@@@ J 0,X11 @[@@@@/. @G@@@@. CSF$ER )@@G@@ IMAGE FORMATION ROUTINE -- LMJ X11,ZOWIE WITH A1 = NEW STUFF @[@@@@ES )@@G@@. @F@@@@ZOWIE L,S3 A2,LINE . CURRENT IMAGE LENGET )@@G@@TH @C@@@@ L A0,INPK+1 . BLANKS@F@@@@ EU )@@G@@ TNE A0,FILE-1,A2 . IS LAST WORD BLANK? @C@@@@ EV )@@G@@ J R . YES @E@@@@ A,U A2,1EW )@@G@@ . NO, ADD A WORD @ @@@@ S,S3 A2,LINE EX )@@G@@@F@@@@R S A0,FILE,A2 BLANK OUT NEXT WORD EY )@@G@@@F@@@@ L A0,FILE-2,A2 . LAST NON-BLANK WORD EZ )@@G@@@^@@@@ L,U A3,5@ @@@@RSHIFT S A0,STORE @E@@@@FA )@@G@@ TE,S6 A3,STORE . LAST CHAR BLANK? @G@@@@ FB )@@G@@ J LSHIFT . NO, FINISHED SHIFTING TO RIGHT@G@@@@FC )@@G@@ SSC A0,6 . YES, SHIFT ONE CHAR TO RIGHT FD )@@G@@@ @@@@ J RSHIFT @ @@@@LSHIFT S A0,STORE FE )@@G@@@A@@@@ DS A0,FILE-2,A2 @F@@@@ TE,S1 A3,SFF )@@G@@TORE . IS FIRST CHAR BLANK? @F@@@@ J 0,X1FG )@@G@@1 . NO, FINISHED -- RETURN @E@@@@ LDSC A0,6FH )@@G@@ . YES, SHIFT LEFT @ @@@@ J LSHIFT FI )@@G@@@[@@@@. @A@@@@. GENERAL CSF$ AND PRINT$ ROUTINES @[@@@@. @E@@@@FJ )@@G@@PRINT1 TZ NOPT . IS N-OPTION SET? @F@@@@ FK )@@G@@ J CSF1-1 . YES, SO DON'T PRINT. @^@@@@ FL )@@G@@ L,U A0,2@ @@@@ S,T1 A0,LINE @ @@@@ L FM )@@G@@ A0,LINE @ @@@@ ER PRINT$ @^@@@@ SZFN )@@G@@,T1 LINE@ @@@@CSF1 L A0,LINE @^@@@@ J FO )@@G@@ $+9 @E@@@@PRINT2 TZ NOPT . IS N-OPTION SET? FP )@@G@@@F@@@@ J CSF2-1 . YES, SO DON'T PRINT. FQ )@@G@@@^@@@@ L,U A0,2@ @@@@ S,T1 A0,LINE2 @ @@@@FR )@@G@@ L A0,LINE2 @ @@@@ ER PRINT$ @ @@@@FS )@@G@@ SZ,T1 LINE2 @ @@@@CSF2 L A0,LINE2 @^@@@@FT )@@G@@ ER CSF$@ @@@@ J 0,X11 @F@@@@ERROR FU )@@G@@ ER EABT$ . DATA ERROR OF SOME SORT @E@@@@EXIT FV )@@G@@ TNZ NPACKS . TEMP$ ASSIGNED? @D@@@@ ERFW )@@G@@ EXIT$ . NO, EXIT. @B@@@@ DL A0,(FX )@@G@@'@FREE TEMP$.') @ @@@@ DS A0,FILE @^@@@@ L,FY )@@G@@U A0,2@ @@@@ S,H1 A0,LINE @D@@@@ LMJ FZ )@@G@@ X11,PRINT1 . FREE TEMP$ @E@@@@ ER EXIT$ GA )@@G@@ . EXIT NORMALLY. @[@@@@$(0). @G@@@@QUAL 'NYU BACK 1.6'GB )@@G@@ . INITIALLY HOLDS SIGNON LINE @B@@@@FILWAT 'WAITINGGC )@@G@@ FOR REM DISC DRIVES'@A@@@@TRACKS ' TRACKS COPIED '@#@@@@GD )@@G@@SLASH '/ '@#@@@@COMMA ', '@E@@@@FLAGS + 0,0,GE )@@G@@0,0,1,1 . OPTION FLAGS, ETC.@ @@@@AOPT EQUF FLAGS,,S1 GF )@@G@@@ @@@@DOPT EQUF FLAGS,,S2 @ @@@@GOPT EQUF FLAGS,,S3 GG )@@G@@@ @@@@NOPT EQUF FLAGS,,S4 @ @@@@F24OK EQUF FLAGS,,S5 GH )@@G@@@ @@@@F40OK EQUF FLAGS,,S6 @^@@@@NPACKS + 0 @^@@@@GI )@@G@@SUBCOD + 0 @#@@@@FTYP ',F2/ '@^@@@@ + GJ )@@G@@ 0 @#@@@@ ',F4/ '@#@@@@ ',F8/ '@#@@@@ ',GK )@@G@@F17/ '@#@@@@ ',F14/ '@#@@@@ ',F40/ '@#@@@@ ',GL )@@G@@FCS/ '@^@@@@PACKID RES 25 @^@@@@HIEST + 0 @^@@@@GM )@@G@@STORE + 0 @ @@@@LINE + 3,FILE @ @@@@FILE GN )@@G@@ '@ASG,T TEMP$,F14, '@^@@@@ RES 37 @ @@@@LINE2 + GO )@@G@@ 0,CARD @^@@@@CARD RES 10 @^@@@@INPK '$$I GP )@@G@@' @^@@@@ + 0 @ @@@@ + 020,0,0 GQ )@@G@@@ @@@@ + 1792,BUF @^@@@@ + 0 @^@@@@GR )@@G@@BUF RES 1792@^@@@@OUTPK '$$O ' @^@@@@ + GS )@@G@@ 0 @ @@@@ + 010,0,0 @ @@@@ + GT )@@G@@ 1792,BUF2 @^@@@@ + 0 @^@@@@BUF2 RES 1792GU )@@G@@@ @@@@ END START ___ NOPT . IS N-OGV )@@G@@@@@@E)@I7@C@^'>^@@@I7^'>@@@@C@@@@@@[@@@@@@@@@@@Q@@8@@W@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@A8@C@@@U^@@@@E^@3@@P^[Y@@E^X\@@1^95@@@___@@@___GY )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___R;@@C#'=@@@F'=@@@DR#@^95HA )@@G@@'=@@@IR#@^96'=@@@H=@@^97/K@@C R;K@@['=@@@3=@@^98A7K^@J=@@^99A3K^@J=@@^9'HB )@@G@@A\K^@J=@@^9;A:K^@J @@@@LR#@^9/O#@@@L'=@@@HR;G@@@%8@@@['=@@@QG9K@@[/K@@COHC )@@G@@!9K@@U'=@@@Q[[K^@K/[K@C>RF@^@U%@@^@@ )@^@J%@@^@[ =@^@JR#@^9.'=@@@HC9G@@@HD )@@G@@*@@@@K!9@@@#'=@@@Q/[K@DDR#K^@U/,0@IC:9K@@[/K@@C7H9K@@]R#K^@H/,0@ICR#)@@LHE )@@G@@R#Y^@V/,0@IC8^K@C1C9K@40*)@^@J[TK^@8R;@@24*=@^@JAV@^@8C9K@@I%9K@@I/K@@D]HF )@@G@@/,0@IW/K@@D#/,0@I;@@@@M=8@@@[/K@@HJ;)@@@MR#)^'^HH )@@G@@+@@@@I/^K@H)9?@^' 9*@^[Z/,0@I?R;@@@KA#@^]-9?@^[(9*@^]+R#@^'BA#@^]= @@^]>HI )@@G@@R;@^]-'=@@[P0@@@@G'=@@@Q9?@^'C9*@^@69?@^@]9*@^@8R;@@@^:9@@@[R;@@@#A\@^@5HJ )@@G@@R#K^'E/,0@ICR#K^[2/,0@ICR#K^[3/,0@ICC[K^[%:[K^[6/K@@D"R#K^@H/,0@ICR#K^[6HK )@@G@@/,0@IC/K@@E]:[K^[7/K@@ECR#K^@H/,0@IC:[K^[7/K@@ECR#K^@H/,0@ICR#K^[7/,0@ICHL )@@G@@R\@^[9A#@^@LR;@@@[A\@^]=R;@^]-'=@@[P0@@@@G'=@@@QR7@^]@?8@@@)?8@@@S'=@@@QHM )@@G@@R#K^'F/,0@IC/,0@I<9?@^'G9*@^@6/,0@I8K@@CA7@^@4R;@@@R=8K@@[A3@^@4R;@@@W=8K@@]A\@^@4R;@@@VHO )@@G@@=8K@@KA:@^@4*?@^@J/K@@E2>8K@@)/K@@E5R;@@@G(@@^@KA$@^@4R#@^@4R#K^[% @@^@4HP )@@G@@N80@@ A<@^@4*@@^@4/K@@E";@@@@A/K@@E_;^@@@A8K0@E9A#K^@7R7@^]@*@@^@K/K@@FEHQ )@@G@@R#W#_'*@@^@L%8@@@X/K@@FJR#K^'J/K@@FJR#K^'K*)@^@JR#K^'L*=@^@JR#K^'J/,0@ICHR )@@G@@RF)^]#/,0@H_/,0@ICR#K^'M0@@^[/R#K^'N/,0@ICRF)^]^R#K@@I;*K@@A0@@^[/;*K@@AHS )@@G@@A#K^@3/,0@H_/,0@IC(@@^@K/K@@F\R#K^@I/,0@ICR#K^@U/,0@ICC[K^@K:9K@@[/K@@F\HT )@@G@@H9K@@]R#K^@H/,0@ICR#)@@LR#Y^@V/,0@IC8^K@F(/,0@IW0@@@@G'=@@@Q9?@^'O9*@^@6HU )@@G@@9?@^#NA#W^@5A\@^@5/,0@IR7@^[?%8@@@ '=@@@QR#@^[,O;@@[@:@@^@3/K@@G:A#@^[,HY )@@G@@/K@@GS0@@^X2'=@@@A*4@^X2'=@@@QO;)@@[/K@@GF0@@^X2'=@@@A*4@^X2'=@@@QO;)@@[HZ )@@G@@9?@^'R9*@^@6R;@@@]A\@^@5/,0@I@#@@@@FTYP ',R]@^MFIW )@@G@@@^@@@@ + R_S@@@ 0 @#@@@@ /K@^LZERU$ K@@@@^J--E[DIX )@@G@@BACK @@]@@@N'* E@'&^@@@A8@C@ ',F14/ '@#@@@@ ',IY )@@G@@F40/ '@#@@@@ ',FCS/ '@^@@@@PACKID RES 25 @^@@@@HIEST IZ )@@G@@*[@@@@*SDFF*@E@@@@THE LONG VERSION OF THIS ITEM DESCRIBES THE @BACK PROCJA )@@G@@ESSOR,@D@@@@UHMC'S CATALOGUED MASS STORAGE FILE BACKER-UPPER. @[@@@@JB )@@G@@******@[@@@@ @^@@@@DESIGN CONSIDERATIONS: @[@@@@ @E@@@@1. @BAJC )@@G@@CK SHOULD BE CAPABLE OF SAVING REMOVABLE DISC FILES. @B@@@@2. IT SHOULDJD )@@G@@ BE VERY SMALL, AND VERY FAST.@F@@@@3. IT SHOULD BE POSSIBLE TO USE @BACJE )@@G@@K TO MAKE BACKUPS OF AN ENTIRE@#@@@@ SET OF FILES. @ @@@@4. IT SHOULDJF )@@G@@ DO NO TAPE I/O. @[@@@@ @G@@@@AS WITH @OUT, THE @BACK PROCESSOR DOJG )@@G@@ES VERY LITTLE IN TERMS OF ERROR @E@@@@RECOVERY, PREFERRING TO ER EABJH )@@G@@T$ RATHER THAN GIVING YOU MUCH@G@@@@IN THE WAY OF DIAGNOSTIC INFORMATIONJI )@@G@@. THIS WAS DONE TO KEEP THE SIZE @]@@@@A MINIMUM. @[@@@@ @E@@@@JJ )@@G@@SINCE NO TAPE I/O IS DESIRED (USE @OUT, ETC FOR THAT), @BACK@E@@@@SAVES JK )@@G@@FILES BY CATALOGUING NEW ONES, WITH THE SAME NAME (BUT@F@@@@DIFFERENT QUJL )@@G@@ALIFIER). NO EQUIVALENT OF @IOCHK OR @IN IS THUS @F@@@@NEEDED, SINCJM )@@G@@E THE VERY EXISTENCE OF A MASS STORAGE FILE ENSURES @F@@@@THAT ALL ITSJN )@@G@@ ADDRESSES ARE WITHIN LIMITS, ETC., AND SINCE YOU @F@@@@CAN USE FURPJO )@@G@@UR TO RESTORE THE FILE (OR IN THE CASE OF REMOVABLE @A@@@@DISC FILES, JP )@@G@@JUST REGISTER THE PACK).@[@@@@ @G@@@@THE FILES @BACK THUS CREATES MJQ )@@G@@AY BE CATALOGUED ON REMOVABLE DISC, IF @B@@@@DESIRED, OR ON REGULAR FJR )@@G@@IXED MASS STORAGE.@[@@@@ @]@@@@THE CALL IS:@[@@@@ @ @@@@ JS )@@G@@ @BACK(,OPTIONS) @#@@@@ PACK1 @#@@@@ PACK2 JT )@@G@@@]@@@@ . @]@@@@ . @]@@@@ . @#@@@@ PAJU )@@G@@CKN @#@@@@ @EOF @#@@@@ NEWQUAL @^@@@@ JV )@@G@@ FILE1. @ @@@@ X QUAL*FILE2. @ @@@@ XD FIJW )@@G@@LE3//WKEY. @]@@@@ . @]@@@@ . @]@@@@ . @B@@@@JX )@@G@@ QUAL*FILEN/RKEY/WKEY. @#@@@@ @EOF @[@@@@JY )@@G@@ @A@@@@THE ALLOWABLE PROCESSOR OPTIONS ARE:@[@@@@ @E@@@@ JZ )@@G@@ A - DO NOT ER EABT$ IF A FILE IS UNASSIGNABLE. @E@@@@ D KA )@@G@@- DELETE EACH FILE AFTER IT HAS BEEN COPIED TO @ @@@@ THE KB )@@G@@NEW FILE. @F@@@@ G - CATALOGUE EACH NEW FILE WITH A 'G' OPTIOKC )@@G@@N. @BACK @G@@@@ WILL IGNORE THIS OPTION IF ANY PACKID'S KD )@@G@@WERE SPECIFIED. @G@@@@ N - INHIBITS PRINTING OF THE GENERATEDKE )@@G@@ @ASG IMAGES. USE THIS @D@@@@ OPTION ONLY IF SECURITY SO DKF )@@G@@ICTATES. @G@@@@ THE ONLY PRINTING WILL THEN BE THE TRACKKG )@@G@@S COPIED, AND ANY @A@@@@ FAC REJECT CODES. @[@@@@ KH )@@G@@@F@@@@FOLLOWING THE PROCESSOR CALL STATEMENT YOU MAY HAVE UP TO 25 CARDSKI )@@G@@@G@@@@SPECIFYING REMOVABLE DISC PACKS. IF ANY OF THESE CARDS ARE PRESENKJ )@@G@@T, @F@@@@@BACK WILL USE THESE PACKID'S WHEN CATALOGUING THE NEW FILESKK )@@G@@. @G@@@@IF YOU HAVE MORE THAN ONE PACKID CARD, THE FILES WILL BE CATKL )@@G@@ALOGUED @E@@@@AS MULTI-PACK FILES. IF YOU DO NOT WISH TO HAVE THE NKM )@@G@@EW @G@@@@FILES ON REMOVABLE DISC, THEN THE @EOF CARD SHOULD IMMEDIATEKN )@@G@@LY FOLLOW @^@@@@THE PROCESSOR CALL CARD.@[@@@@ @E@@@@FOLLOWING THKO )@@G@@E @EOF CARD, YOU SHOULD HAVE A CARD CONTAINING A@G@@@@NEW QUALIFIER, WHIKP )@@G@@CH WILL BE USED BY @BACK WHEN CREATING @ASG,C CARDS @E@@@@FOR EACH OF KQ )@@G@@THE NEW FILES. THIS NEW QUALIFIER MUST BE 1-12 @^@@@@CHARACTERS IN LENGKR )@@G@@TH. @[@@@@ @G@@@@AFTER THE NEWQUAL CARD, YOU MAY HAVE ANY NUMBER KS )@@G@@OF CARDS SPECIFYING @G@@@@THE FILES YOU WANT SAVED. THE FORMAT FOR KT )@@G@@THESE CARDS IS THE SAME AS @G@@@@FOR THE @OUT PROCESSOR (ANY SPECIAL KU )@@G@@@ASG,A OPTIONS YOU WANT FOR THE @G@@@@FILE IN COLUMNS 1-5, AND THE FKV )@@G@@ILENAME, OR QUALIFIER*FILENAME OF THE FILE@G@@@@YOU WANT TO BACK UP, STAKW )@@G@@RTING IN COLUMN 7.) IF THE FILE HAS READ OR @G@@@@WRITE KEYS, YOU MUKX )@@G@@ST SPECIFY THEM, SINCE @BACK ATTEMPTS TO CREATE AN @H@@@@EXACT DUPLICKY )@@G@@ATE OF THE ORIGINAL FILE, INCLUDING ITS @CAT OPTIONS (PUBLIC, @C@@@@KZ )@@G@@UNLOAD-INHIBIT, ETC.), ITS GRANULARITY, ETC. @F@@@@EXCEPTION: IF YOULA )@@G@@ HAVE THE FILE ASSIGNED, WITH THE KEYS, PRIOR TO@F@@@@CALLING @BACK, THELB )@@G@@N THEY ARE NOT REQURED ON THE DATA CARD. NOTE, @G@@@@HOWEVER, THAT @BACLC )@@G@@K ALWAYS FREES EACH FILE WHEN IT IS THROUGH WITH IT. @[@@@@ @F@@@@LD )@@G@@IF NO PACKID'S WERE SPECIFIED, @BACK WILL CREATE THE NEW FILES @E@@@@LE )@@G@@ON FIXED MASS STORAGE, USING THE SAME EQUIPMENT TYPE IN ITS @F@@@@@ASG,CLF )@@G@@ OF THE NEW FILE AS IT DETERMINES THE ORIGINAL FILE WAS. @F@@@@IF PACLG )@@G@@KID'S WERE SPECIFIED, HOWEVER, THE EQUIPMENT TYPE WILL BE @E@@@@DETERMLH )@@G@@INED BY THE FORMAT OF THE PACKID CARDS GIVEN AS DATA. @G@@@@IF ALL THE PLI )@@G@@ACKID CARDS ARE OF THE F40 TYPE, THEN ALL THE NEW FILES @F@@@@WILL BLJ )@@G@@E CREATED ON THOSE F40 PACKS. F24 PACKS ARE HANDLED IN A @F@@@@SIMILALK )@@G@@R FASHION. IF NEITHER OF THESE CASES IS TRUE, THEN TYPE F14@D@@@@WILL BLL )@@G@@E ASSUMED FOR THE NEW REMOVABLE DISC FILES. @[@@@@ @C@@@@IT IS LM )@@G@@NOT A GOOD IDEA TO HAVE A G-OPTION ON A @F@@@@REMOVABLE DISC FILE, SO LN )@@G@@@BACK AUTOMATICALLY PREVENTS THIS FROM @F@@@@OCCURRING, EVEN IF THE ILO )@@G@@NPUT FILE (ON FIXED MASS STORAGE) WAS @F@@@@CATALOGUED WITH THE G-OPLP )@@G@@TION. LEVEL 1.1 OF @BACK FIXES A BUG @ @@@@IN THIS AREA IN LEVEL 1.LQ )@@G@@0 @[@@@@ @F@@@@IF @BACK CANNOT ASSIGN A FILE BECAUSE IT IS ASSILR )@@G@@GNED TO SOMEONE @E@@@@ELSE, IT WILL WAIT FOR THE FILE, PUTTING UP CONSLS )@@G@@OLE MESSAGES@E@@@@EVERY FIVE MINUTES TO LET THE OPERATOR KNOW. IF AN ASLT )@@G@@SIGN @F@@@@FAILS FOR ANY OTHER REASON, @BACK WILL ER EABT$ (UNLESS THE LU )@@G@@'A' @E@@@@OPTION IS SET). @BACK WILL ALSO ERROR IF IT ENCOUNTERS ANY LV )@@G@@@#@@@@I/O ERROR, ETC. @[@@@@ @E@@@@@BACK ASSIGNS EACH INPUT FILE LW )@@G@@WITH THE OPTIONS YOU GIVE IT. @G@@@@IT THEN DOES AN @ASG,ADY AND A @FREELX )@@G@@ OF EACH NEW FILE BEFORE IT @ASG,C'S@G@@@@IT, THUS ENSURING THAT THE FILLY )@@G@@E WILL GET CATALOGUED IF THE COPYING GOES @G@@@@OKAY. WHEN THE FILE HASLZ )@@G@@ BEEN COPIED, @BACK FREES BOTH FILES, DELETING @F@@@@THE ORIGINAL ONE IMA )@@G@@F YOU USED THE 'D' OPTION, OR IF YOUR FILE CARD @C@@@@SPECIFIED THE 'D' MB )@@G@@OPTION IN THE OPTIONS FIELD. @[@@@@ @F@@@@THE PRINTED OUTPUT WILL MC )@@G@@SHOW EACH @ASG,A IMAGE, AS WELL AS EACH @F@@@@@ASG,C IMAGE THAT WAS GEMD )@@G@@NERATED. THESE ARE PRINTED BEFORE CSF$ IS@F@@@@CALLED, SO IF THE PROCESME )@@G@@SOR ERRORS, IT WILL BE ON THE LAST CARD @F@@@@PRINTED. FAC REJECT CODMF )@@G@@ES WILL BE PRINTED, IF NECESSARY, AND, @G@@@@IF THE 'A' OPTION IS NOTMG )@@G@@ SET, THEY WILL ALSO BE DISPLAYED ON THE SYSTEM @]@@@@CONSOLE. @[@@@@MH )@@G@@ @F@@@@IF YOU SPECIFIED ANY PACKID'S, A TEMPORARY FILE CALLED 'TEMPMI )@@G@@$' @G@@@@WILL BE ASSIGNED ON THOSE PACKS BY @BACK, TO GET THE PACKS MMJ )@@G@@OUNTED: @D@@@@WHEN @BACK TERMINATES NORMALLY, IT FREES THIS FILE. MK )@@G@@@[@@@@ @G@@@@IF @BACK ERRORS FOR ANY REASON, YOU CAN FIND OUT WHY FML )@@G@@ROM THE TABLE @ @@@@BELOW (FOR @BACK LEVEL 1.6). @[@@@@ @A@@@@MM )@@G@@ REENT ADDR CAUSE @B@@@@ 001032 IMPROPER PMN )@@G@@ACKID CARD. @A@@@@ 001036 >25 PACKIDS @B@@@@ 00MO )@@G@@1053 IMPROPER NEWQUAL CARD.@F@@@@ 001111 FIELD ERROR ON AMP )@@G@@SG OF TEMPORARY REM DISC FILE.@B@@@@ 001116 IMPROPER FILE CAMQ )@@G@@RD. @F@@@@ 001150 MSCON$ ERROR READING LEAD ITEM - STATUS MR )@@G@@IN A0.@E@@@@ 001220 MSCON$ ERROR READING MAIN ITEM - SEE A0 MS )@@G@@@G@@@@ 001224 INPUT FILE IS NOT FASTRAND FORMAT MASS STORAGEMT )@@G@@. @C@@@@ 001362 @ASG,C FAILURE - SEE A0. @B@@@@ MU )@@G@@ 001404 ERROR READING TRACK @B@@@@ 001437 ERROR READMV )@@G@@ING TRACK @B@@@@ 001451 ERROR WRITING TRACK. @B@@@@ MW )@@G@@ 001457 ERROR WRITING TRACK @F@@@@ 001577 @ASG,A FACMX )@@G@@ REJECTED, AND 'A' OPT NOT SET. @A@@@@ 001660 DATA INPUTMY )@@G@@ ERROR@[@@@@ ___SO @BACK AUTOMATICALLY PREVENTS THIS FROM @F@@@@MZ )@@G@@OCCURRING, EVEN IF THE INPUT FILE (ON FIXED MASS STORAGE) WAS @F@@@@NA )@@G@@*[@@@@*SDFF*@F@@@@THE LONG VERSION OF THIS ITEM DESCRIBES THE @OUT, @IN,NB )@@G@@ AND @IOCHK @F@@@@PROCESSORS, WHICH CONSTITUTE UHMC'S FILE SAVE/RESTORE NC )@@G@@PACKAGE. @[@@@@******@[@@@@ @G@@@@(THE FOLLOWING DOCUMENTATION IND )@@G@@S FOR @OUT 2.4, @IOCHK 2.3, AND @IN 2.4). @[@@@@ @H@@@@THIS FILESAVNE )@@G@@E SYSTEM IS COMPOSED OF THREE PROCESSORS: @IN, @OUT, AND @IOCHK. @[@@@@NF )@@G@@ @ @@@@SYSTEM DESIGN CONSIDERATIONS: @C@@@@ 1. THE PROCESSORS ANG )@@G@@RE AS SMALL AS POSSIBLE @H@@@@ 2. ALL THREE PROCESSORS ARE MULTI-ACTNH )@@G@@IVITY: THEY CAN WRITE (READ) MORE @ @@@@ THAN ONE TAPE AT ONCE.NI )@@G@@@H@@@@ 3. IT IS POSSIBLE TO USE THIS PACKAGE TO MAKE TAPE COPIES OF NJ )@@G@@AN ENTIRE @^@@@@ SET OF FILES. @H@@@@ 4. THE @IN PROCESSONK )@@G@@R CAN RESTORE THE FILES FROM THE TAPES PRODUCED BY @I@@@@ @OUTNL )@@G@@ WHETHER OR NOT THE FILES ARE CATALOGUED AT THE TIME @IN IS CALLED. NM )@@G@@@G@@@@ 5. THE USER MAY RESTORE ANY SINGLE FILES HE WISHES USING @COPNN )@@G@@Y,G. @G@@@@ 7. @IN IS NOW CAPABLE OF SUBSTITUTING A NEW QUALIFIER ONO )@@G@@N EACH FILE @G@@@@ ON THE TAPE, AND/OR OF CATALOGUING ALL THE FILNP )@@G@@ES ON A SPECIFIED @B@@@@ REMOVABLE DISC PACK OR PACKS. @G@@@@NQ )@@G@@ 6. THE USER MAY USE @IOCHK TO CHECK THE TAPES PRODUCED BY @OUT FOR NR )@@G@@@A@@@@ HARDWARE OR FORMAT ERRORS. @[@@@@ @G@@@@SINCE ONE OFNS )@@G@@ THE MOST IMPORTANT CONSIDERATIONS WAS PROGRAM SIZE, THESE @H@@@@PROCESNT )@@G@@SORS HAVE MINIMAL DIAGNOSTIC ABILITIES: MOST ERRORS WILL CAUSE THEM TO NU )@@G@@@H@@@@ABORT, THE ERROR CONDITION BEING POSSIBLE TO FIND FROM THE REGISTENV )@@G@@R DUMP. @[@@@@ @G@@@@REMOVABLE DISC FILES MAY BE SAVED AND RESTNW )@@G@@ORED. THIS INCLUDES MULTI- @A@@@@PACK FILES (UP TO 5 PACKS/FILE). NX )@@G@@@[@@@@ @E@@@@IT IS SUGGESTED THAT AN UP-TO-DATE COPY OF THIS NEWS INY )@@G@@TEM BE@E@@@@KEPT ON HAND IN CASE OF PROBLEMS, SINCE THE TABLES OF ERROR NZ )@@G@@@F@@@@ADDRESSES FOUND ON THE FOLLOWING PAGES MAY CHANGE FROM TIME TO OA )@@G@@@E@@@@TIME AS THE PROCESSORS ARE REWRITTEN. ANY FUTURE REWRITES @E@@@@OB )@@G@@WILL BE DONE WITH AN EYE TOWARD COMPATIBILITY WITH PREVIOUS @]@@@@LEVELSOC )@@G@@. @[@@@@ @[@@@@ @[@@@@*****^@G@@@@------------------------OD )@@G@@----- @OUT -----------------------------@[@@@@ @G@@@@THIS IOE )@@G@@S THE FILE SAVING PROCESSOR. @OUT DOES NOT DYNAMICALLY ASSIGN ANY@H@@@@OF )@@G@@TAPES: THIS IS LEFT TO THE USER. TAPE FILES SHOULD BE ASSIGNED WITH NAMOG )@@G@@ES @G@@@@LIKE 'SVTPX,' WHERE X IS AN ACTIVITY NUMBER. THESE ROUTINESOH )@@G@@ ARE NOW @G@@@@LIMITED TO NO MORE THAN 2 ACTIVITIES, SO YOU'LL ALWAYSOI )@@G@@ USE A FILENAME OF@F@@@@'SVTP1,' AND, IF 2 ACTIVITIES ARE DESIRED, ASSIGOJ )@@G@@N 'SVTP2,' ALSO. @[@@@@ @G@@@@IT IS NOT NECESSARY TO HAVE THE TAPEOK )@@G@@S POSITIONED AT LOAD-POINT WHEN @OUT@H@@@@IS CALLED, SINCE @IOCHK AND @IOL )@@G@@N WILL SEARCH THE ENTIRE TAPE AND USE ONLY THOSE@B@@@@FILES WHICH HAVE BOM )@@G@@EEN WRITTEN BY @OUT. @[@@@@ @H@@@@THE CALL IS THEN SIMPLY @OUTON )@@G@@, FOLLOWED BY A DATA CARD SPECIFYING HOW MANY @I@@@@ACTIVITIES ARE DESOO )@@G@@IRED (1 OR 2). THIS NUMBER SHOULD BE IN COLUMN 1 OF THE DATA @H@@@@OP )@@G@@CARD. FOLLOWING THAT CARD MAY BE ANY NUMBER OF DATA CARDS SPECIFYING THOQ )@@G@@E @G@@@@FILES TO BE SAVED. THE FILENAME SHOULD BEGIN IN COLUMN 7 ONOR )@@G@@ EACH CARD. @G@@@@COLUMNS 1-6 ARE FOR ANY SPECIAL OPTIONS DESIRED ON THEOS )@@G@@ @ASG,A STATEMENT @G@@@@THAT @OUT WILL GENERATE. FOR INSTANCE, IF THE FOT )@@G@@ILE IS TO BE ASSIGNED @E@@@@EXCLUSIVELY, AN X SHOULD BE IN COLUMN 1 OFOU )@@G@@ THE DATA CARD. @H@@@@AFTER THE DATA CARDS SPECIFYING THE FILES TO BE OV )@@G@@SAVED, THERE SHOULD BE AS @B@@@@MANY @EOF CARDS AS THERE ARE ACTIVITOW )@@G@@ES. @[@@@@ @^@@@@ EXAMPLE RUNSTREAM: @[@@@@ @B@@@@ OX )@@G@@ @RUN SAVE,ACCOUNT,PROJECT-ID @B@@@@ @ASG,T SVTP1.,T,REOY )@@G@@EL1/REEL3 @C@@@@ @ASG,T SVTP2.,T,REEL2/REEL4/REEL5 @#@@@@OZ )@@G@@ @OUT @]@@@@ 2 @ @@@@ FIRST*FILE. PA )@@G@@@B@@@@ X SECOND*FILE/REDKEY/WRTKEY.@B@@@@ X ANPB )@@G@@Y-OLD*FILE-NAME//$. @ @@@@ LAST*FILE. @#@@@@ PC )@@G@@ @EOF @#@@@@ @EOF @#@@@@ @FIN @[@@@@ PD )@@G@@@D@@@@NOTE THAT A PERIOD NEED NOT FOLLOW THE FILE NAME. @[@@@@ PE )@@G@@@G@@@@IF A FILE HAS READ OR WRITE KEYS, AND IS ASSIGNED TO THE RUN WITH PF )@@G@@THE @F@@@@KEYS SPECIFIED (OR IF THE RUN IS PRIVILEGED) THE KEYS NEED NPG )@@G@@OT BE @F@@@@SPECIFIED ON THE FILE CARD. IN FACT, YOU COULD USE THE INTEPH )@@G@@RNAL @C@@@@NAME ATTACHED TO THE FILE BY A @USE STATEMENT. @G@@@@IF THEPI )@@G@@ ABOVE IS NOT TRUE, AND A READ KEY OR WRITE KEY EXISTS BUT IS @F@@@@PJ )@@G@@NOT SPECIFIED ON THE FILE CARD, @OUT WILL ABORT, BECAUSE @IN WOULD@F@@@@PK )@@G@@REQUIRE THE KEY(S) TO BE ABLE TO RESTORE THE FILE TO THE SAME @ @@@@PL )@@G@@CONDITION IN WHICH IT EXISTED.@[@@@@ @F@@@@WHEN SPECIFYING THAT A RPM )@@G@@EMOVABLE DISC FILE IS TO BE SAVED, DO NOT @E@@@@INCLUDE THE PACKID ON THPN )@@G@@E DATA CARD. IN ALL CASES, THE FILE@F@@@@NAME (PLUS WRITE KEY, READ KEYPO )@@G@@, AND/OR F-CYCLE IF NEEDED) SHOULD @C@@@@NOT BE FOLLOWED BY ANYTHING ELPP )@@G@@SE ON THAT CARD. @[@@@@ @G@@@@IF IT IS POSSIBLE THAT ANY ACTIVITY PQ )@@G@@WILL NEED MORE THAN ONE TAPE, THE @H@@@@REEL NUMBER MUST HAVE BEEN SPEPR )@@G@@CIFIED IN THE @ASG STATEMENT. THE PACKAGE WILL @I@@@@WORK FOR ANY SIZE PS )@@G@@MULTI-REEL FILE, BUT IF THE NEXT REEL NUMBER IS NOT SPECIFIED, @H@@@@PT )@@G@@THE @OUT PROCESSOR WILL ABORT, DUE TO THE NEED TO WRITE THE NUMBER OF THPU )@@G@@E NEXT@H@@@@REEL ON THE END OF THE PRESENT TAPE SO THAT @IN AND @IOCHK WPV )@@G@@ILL KNOW WHAT TAPE@B@@@@TO USE NEXT WHEN THEY READ THE TAPES. @[@@@@PW )@@G@@ @G@@@@IT IS NOT PREDICATABLE WHICH FILE WILL BE SAVED ON WHICH TAPPX )@@G@@E, BUT THE @H@@@@PRINTOUT WILL SPECIFY WHICH FILES ARE ON WHICH TAPES APY )@@G@@T WHAT POSITIONS. THE @F@@@@FILES ARE WRITTEN IN @COPY,GM FORMAT, ALLOPZ )@@G@@WING THE USER TO RESTORE@ @@@@SELECTED FILES USING FURPUR. @[@@@@ QA )@@G@@@H@@@@A MESSAGE WILL BE PRINTED BEFORE THE DYNAMIC @ASG OF EACH FILE, SHQB )@@G@@OWING THE @F@@@@TAPE FILE AND POSITION IT WILL OCCUPY AFTER BEING SAVEQC )@@G@@D. THUS, IF@H@@@@THE PROGRAM ERRORS, THE ACTIVITY WHICH ERRORED WAS WORQD )@@G@@KING ON THE LAST FILE IT@H@@@@PRINTED. IF A FILE IS ROLLED OUT, OR UNAVQE )@@G@@AILABLE DUE TO AN EXCLUSIVE USE @G@@@@CONFLICT WITH ANOTHER RUN, @OUQF )@@G@@T WILL WAIT FOR THE FILE INDEFINITELY, @D@@@@PUTTING UP CONSOLE MESSAQG )@@G@@GES EVERY FIVE MINUTES TELLING@^@@@@WHAT IT'S WAITING FOR. @[@@@@ QH )@@G@@@ @@@@THE RECOGNIZED OPTIONS ARE: @[@@@@ @C@@@@ A - DON'QI )@@G@@T ERROR IF AN @ASG FAILS. @H@@@@ N - INHIBIT PRINTING OF THQJ )@@G@@E NAMES OF THE SAVED FILES. IN THIS CASE,@D@@@@ ONLY THE TQK )@@G@@APE NUMBER AND POSITION WILL @G@@@@ BE PRINTED. USE THIS QL )@@G@@OPTION ONLY IF SECURITY SO DICTATES.@[@@@@ @G@@@@USE OF THE 'A' OPTQM )@@G@@ION ON THE PROCESSOR CALL CARD WILL PREVENT @OUT FROM @G@@@@ERRORING ON QN )@@G@@A FAC REJECT OF A FILE. @OUT'S NORMAL ACTION IN THIS CASE @F@@@@IS TO QO )@@G@@DO AN ER EABT$, BUT THE 'A' OPTION ALLOWS CONTINUATION OF @E@@@@THE PRQP )@@G@@OGRAM. INSTEAD OF ABORTING, @OUT WILL PRINT A MESSAGE@D@@@@SHOWING THE QQ )@@G@@FAC REJECT CODE AFTER THE GUILTY @ASG @G@@@@IMAGE. IT WILL THEN REAQR )@@G@@D THE NEXT DATA CARD, AND CONTINUE FROM THERE. @G@@@@IF THE 'A' OPTION QS )@@G@@IS NOT SET, THE FAC REJECT CODE AND THE @ASG IMAGE @G@@@@WHICH CAUSEDQT )@@G@@ IT WILL BE DISPLAYED ON THE SYSTEM CONSOLE, AS WELL AS @A@@@@BEING QU )@@G@@PRINTED, BEFORE @OUT ABORTS. @D@@@@NOTE THAT THE TAPE POSITION THIS FILQV )@@G@@E WOULD HAVE TAKEN@ @@@@WILL BE USED BY THE NEXT FILE.@[@@@@ @H@@@@QW )@@G@@WHEN @OUT IS FINISHED SAVING A PARTICULAR FILE, IT DYNAMICALLY @FREE'S IQX )@@G@@T, @H@@@@BUT WHEN IT'S FINISHED WITH EVERYTHING IT DOES NOT FREE OR RQY )@@G@@EWIND ITS TAPES. @H@@@@THE TAPES WILL BE LEFT IN A POSITION SUCH THAT AQZ )@@G@@NY FURTHER @OUT'ING OR OTHER @E@@@@TAPE WRITING PROCESS MAY TAKE PLACE RA )@@G@@WITHOUT ANY TROUBLE. @[@@@@ @E@@@@IF @OUT FINDS IT NECESSARY TO RB )@@G@@SWAP TO THE NEXT REEL FOR ANY @F@@@@ACTIVITY, IT DOES SO, ACCORDING TO TRC )@@G@@HE REEL NUMBERS SPECIFIED @E@@@@ON THE USER'S @ASG CARD FOR THAT TAPRD )@@G@@E FILE. TO AID FILE @E@@@@RESTORATION, A MESSAGE IS PRINTED AT THE TRE )@@G@@IME, SHOWING WHICH@^@@@@ACTIVITY DID THE SWAP. @[@@@@ @E@@@@IF @OURF )@@G@@T DOES AN 'ER EABT$' YOU CAN FIND OUT WHY FROM THE @E@@@@FOLLOWING TARG )@@G@@BLE (THIS TABLE IS RELATIVE TO @OUT LEVEL 2.4): @[@@@@ @A@@@@ RH )@@G@@ REENT ADDR CAUSE @F@@@@ 040026 IMPROPER NUMRI )@@G@@BER OF WORDS ON DATA CARD. @D@@@@ 040070 @ASG FAILURERJ )@@G@@ - STATUS IN A0. @G@@@@ 040113 MSCON$ ERROR READING LEARK )@@G@@D ITEM SECTOR 0 OF FILE.@G@@@@ 040122 MSCON$ ERROR READIRL )@@G@@NG MAIN ITEM SECTOR 0 OF FILE.@D@@@@ 040126 FILE IS NOT RM )@@G@@FASTRAND FORMAT. @E@@@@ 040170 I/O ERROR READING TRACK RN )@@G@@FROM DRUM. @E@@@@ 040206 I/O ERROR WRITING TRACK ON TAPRO )@@G@@E. @G@@@@ 040215 NEXT REEL NEEDED, BUT NO REEL NUMBERRP )@@G@@ SPECIFIED @C@@@@ ON SVTP @ASG STATEMENT. @C@@@@RQ )@@G@@ 040323 NO DATA CARDS SUPPLIED. @G@@@@ 041447 RR )@@G@@ IMPROPER FIRST DATA CARD (NO. OF ACTIVITIES). @G@@@@ 041RS )@@G@@455 USER ATTEMPTED TO RUN @OUT WITH >2 ACTIVITIES. @[@@@@ RT )@@G@@@[@@@@ @[@@@@*****^@G@@@@----------------------------- @IN RU )@@G@@ -----------------------------@[@@@@ @H@@@@THE FILE RESTORATION PRORV )@@G@@CESS UTILIZES THE @IN PROCESSOR. A TAPE FILE CALLED @G@@@@'SVTP1' SHOURW )@@G@@LD BE ASSIGNED, THE REEL NUMBER BEING THAT OF THE FIRST TAPE@H@@@@WRITTERX )@@G@@N BY ANY @OUT ACTIVITY (NOT NECESSARILY THE FIRST ACTIVITY). NO DATA RY )@@G@@@H@@@@CARDS ARE READ BY @IN, NORMALLY: IT FIGURES OUT HOW MANY ACTIVITIERZ )@@G@@S TO START @H@@@@AND DYNAMICALLY ASSIGNS THE CORRECT TAPES FOR EACH ADDSA )@@G@@ITIONAL ACTIVITY, USING @B@@@@INFORMATION WHICH @OUT WROTE ON EACH TAPE.SB )@@G@@@[@@@@ @G@@@@NOTE: THE ADDITIONAL TAPES, IF ANY, ARE ASSUMED TO BE SC )@@G@@THE SAME EQUIPMENT@ @@@@TYPE AS THE 'SVTP1' TAPE. @[@@@@ @]@@@@SD )@@G@@ EXAMPLE@[@@@@ @B@@@@ @RUN RESTOR,ACCOUNT,PROJECT-ID SE )@@G@@@A@@@@ @ASG,T SVTP1.,T,REEL2 @#@@@@ @IN @#@@@@SF )@@G@@ @FIN @[@@@@ @H@@@@USING THE EARLIER EXAMPLE FOR @OUT ASG )@@G@@S A BASIS, @IN WOULD THEN DYNAMICALLY @G@@@@ASSIGN THE FIRST TAPE FOSH )@@G@@R THE OTHER ACTIVITY WHICH WAS ACTIVE DURING THE@E@@@@CORRESPONDING @OUTSI )@@G@@ RUN: IN THIS CASE, TAPE NUMBER 'REEL1'. @[@@@@ @G@@@@EACH ACTIVITSJ )@@G@@Y OF @IN WILL THEN PROCEED TO DELETE, IF NECESSARY, AND @H@@@@RECATASK )@@G@@LOG EACH @OUT FORMAT FILE ON IT IN THE SAME FORMAT AND WITH THE SAME SL )@@G@@@H@@@@OPTIONS IT HAD WHEN IT WAS SAVED BY @OUT, AND WILL FREE EACH FILESM )@@G@@ WHEN IT IS @H@@@@FINISHED COPYING THE TEXT BACK TO THE FASTRAND (OR WHASN )@@G@@TEVER DEVICE THE FILE @H@@@@IS MEANT TO BE ON). THE @ASG,C STATEMENT SO )@@G@@USED WILL BE PRINTED OUT, PRECEDED @G@@@@BY THE ASSOCIATED ACTIVITY. TSP )@@G@@HIS, AGAIN, WILL BE DONE BEFORE THE @ASG @C@@@@STATEMENT IS PROCESSED, SQ )@@G@@TO AID TROUBLE-SHOOTING.@[@@@@ @ @@@@THE RECOGNIZED OPTIONS ARE: SR )@@G@@@[@@@@ @G@@@@ A - DELETE AND RECATALOGUE ONLY THOSE FILES WHICH SS )@@G@@RETURN A NON-ZERO @F@@@@ STATUS WHEN @ASG,AY'ED. THIS COULD BE BST )@@G@@ECAUSE THE FILE @G@@@@ IS DISABLED, HARDWARE DISABLED, OR DOES SU )@@G@@NOT CURRENTLY EXIST. @[@@@@ @G@@@@ EXCEPTION: IF THE FILESV )@@G@@ IS ASSIGNED TO SOMEONE ELSE, @IN WILL @F@@@@ LEAVESW )@@G@@ IT ALONE, AND GO ON TO THE NEXT FILE. @[@@@@ @F@@@@ W - SAMESX )@@G@@ AS 'A' OPTION, BUT IF THE FILE IS JUST 'WARNING ONLY'@G@@@@ DISASY )@@G@@BLED, @IN WILL JUST TELL YOU SO, AND WILL NOT FOOL AROUND @#@@@@ SZ )@@G@@ WITH IT. @[@@@@ @F@@@@ F - IF THE 'F' OPTION IS SET AND @IN RTA )@@G@@UNS ACROSS A FILE WHICH @G@@@@ IS DESCRIBED ON THE TAPE AS BEING TB )@@G@@A REMOVABLE DISC FILE, IT @G@@@@ WILL IGNORE THIS FACT AND RETC )@@G@@STORE THE FILE TO REGULAR FIXED @G@@@@ MASS STORAGE. @IN'S NTD )@@G@@ORMAL ACTION IS TO RESTORE THE FILE TO @C@@@@ ITS ORIGINAL REMTE )@@G@@OVABLE DISC PACK(S). @[@@@@ @F@@@@ N - SUPPRESSES PRINTING OFTF )@@G@@ READ/WRITE KEYS. IF THIS OPTION IS@H@@@@ SET, THE @ASG,C STATMETG )@@G@@NT AS PRINTED WILL STOP AFTER THE FILENAME: @G@@@@ HOWEVER, TTH )@@G@@HE STATMENT WHICH IS ACTUALLY PROCESSED WILL INCLUDE @B@@@@ ALL TI )@@G@@THE NECESSARY INFORMATION. @[@@@@ @G@@@@ Q - SUBSTITUTE A NEWTJ )@@G@@ QUALIFIER ON ALL THE FILES. THE NEW QUALIFIER @G@@@@ MUST THEN TK )@@G@@BE SUPPLIED IN COLUMNS 1-12 OF A DATA CARD IMMEDIATELY@F@@@@ FOLLTL )@@G@@OWING THE PROCESSOR CALL STATEMENT. AS AN EXAMPLE, @[@@@@ @#@@@@TM )@@G@@ @IN,Q @^@@@@ NEW-QUAL @[@@@@ @G@@@@ TN )@@G@@ THIS WOULD SUBSTITUE A QUALIFIER OF 'NEW-QUAL' WHEN RESTORING @B@@@@TO )@@G@@ ALL THE FILES ON THE INPUT TAPES. @[@@@@ @F@@@@ R - ASSUTP )@@G@@ME THAT ALL FILES ARE TO BE RESTORED TO REMOVABLE DISC@G@@@@ (OPPTQ )@@G@@OSITE OF THE 'F' OPTION). THE DISC PACKS TO BE USED MUST BE@H@@@@ TR )@@G@@ SPECIFIED ON A DATA CARD IMMEDIATELY FOLLOWING THE PROCESSOR CALL TS )@@G@@@G@@@@ STATEMENT, UNLESS THE 'Q' OPTION IS ALSO SET, IN WHICH CASTT )@@G@@E THE @D@@@@ NEW-QUALIFIER CARD COMES FIRST. EXAMPLES: @[@@@@TU )@@G@@ @#@@@@ @IN,R @#@@@@ PK6666@[@@@@ @G@@@@TV )@@G@@ THIS WOULD RESTORE ALL THE FILES TO REMOVABLE DISC PACK PK666. TW )@@G@@@[@@@@ @#@@@@ @IN,QR@^@@@@ MY-QUAL @^@@@@TX )@@G@@ PK6666PK7777@[@@@@ @H@@@@ THIS WOULD PUT ALL THETY )@@G@@ FILES ON PACKS PK6666 AND PK7777 AS MULTI-PACK @G@@@@ FILES, ANDTZ )@@G@@ WOULD USE A QUALIFIER OF 'MY-QUAL' ON ALL OF THEM. @H@@@@ NOTEUA )@@G@@: THE NUMBER OF PACKS SPECIFIED IS LIMITED TO FIVE. THEY MUST @D@@@@UB )@@G@@ BE SITUATED STARTING IN COLUMNS 1, 7, 13, ETC.@[@@@@ @F@@@@UC )@@G@@ Y - SINCE @IN READS THE ENTIRE TAPE (UP TO ANY DOUBLE-EOF), @G@@@@UD )@@G@@ IT FREES THE TAPES WHEN IT'S DONE. IF YOU DON'T WANT IT TO, USEUE )@@G@@@^@@@@ THE 'Y' OPTION. @[@@@@ @G@@@@ Z - FORCES JUST ONE UF )@@G@@ACTIVITY: INHIBITS THE DYNAMIC ASSIGN OF THE @G@@@@ OTHER TAPEUG )@@G@@S IF THE GIVEN SVTP1 TAPE WAS WRITTEN BY A MULTI- @A@@@@ ACTIUH )@@G@@VITY @OUT EXECUTION. @[@@@@ @[@@@@ @[@@@@ @G@@@@IF @INUI )@@G@@ IS UNABLE TO DYNAMICALLY ASSIGN A TAPE DUE TO A LACK OF AVAILABLE@H@@@@UJ )@@G@@TAPE DRIVES, IT WILL WAIT 20 SECONDS AND TRY AGAIN. IF FIVE MINUTES PASUK )@@G@@S @H@@@@WITHOUT SATISFYING THE FACILITY REQUEST, THE PROGRAM WILL PUUL )@@G@@T A MESSAGE ON @G@@@@THE SYSTEM CONSOLE, SAYING 'T-HOLD' -- THIS ALERUM )@@G@@TS THE OPERATOR THAT @H@@@@THE PROGRAM DOES NEED ANOTHER TAPE, AND HEUN )@@G@@ CAN MAKE A TAPE DRIVE AVAILABLE. @[@@@@ @G@@@@IF @IN RUNS ACROSSUO )@@G@@ A FILE WHICH WAS NOT WRITTEN BY @OUT, IT WILL PUT UP @F@@@@ANOTHER MESSUP )@@G@@AGE ON THE CONSOLE, SAYING 'SKIPPING NON-OUT FILE' @G@@@@-- AND THAT'UQ )@@G@@S WHAT IT DOES. IF THE END OF A REEL IS ENCOUNTERED, AND @H@@@@THE FIUR )@@G@@LE AT THAT POINT WAS WRITTEN BY @OUT, @IN WILL KNOW WHICH TAPE IT NEEDS US )@@G@@@B@@@@NEXT, AND WILL DO AN ER RSWAP$ TO GET IT.@[@@@@ @G@@@@@IN AUUT )@@G@@TOMATICALLY ASSIGNS ANY TAPES IT NEEDS, WITHOUT RINGS. IF IT FINDS@H@@@@UU )@@G@@AN @OUT-FORMAT FILE, BUT SEES THAT THE TAPE NUMBER IS INCORRECT, IT LETSUV )@@G@@ THE @D@@@@OPERATOR KNOW, AND CALLS FOR THE CORRECT TAPE AGAIN. @[@@@@UW )@@G@@ @F@@@@THE @IN PROCESSOR ATTEMPTS TO TREAT ALL ERRORS INTELLIGENTLYUX )@@G@@, @F@@@@WITHOUT ABORTING. I/O ERRORS GENERATE CONSOLE MESSAGES STATUY )@@G@@ING @E@@@@THE ERROR CODE AND THE FILE IT OCCURRED ON. IF A FILE LABELUZ )@@G@@@E@@@@WAS BEING READ FROM TAPE AT THE TIME, THE DEFAULT FILE NAME @F@@@@VA )@@G@@WILL BE 'READING LABEL' AND THE DEFAULT FILE NAME WHEN SKIPPING @F@@@@VB )@@G@@A FILE IS 'SKIPING FILE'. UNRECOVERABLE TAPE ERRORS ENCOUNTERED @F@@@@VC )@@G@@WHILE READING IN THE TEXT OF A FILE FROM TAPE WILL BE TREATED @E@@@@VD )@@G@@AS EOF'S, AND @IN WILL LOOK FOR THE NEXT GOOD FILE LABEL. @[@@@@ VE )@@G@@@F@@@@IF, FOR SOME REASON, THE DYNAMIC @ASG,C OF A FILE IS REJECTED, VF )@@G@@@E@@@@@IN WILL DISPLAY THE FOLLOWING MESSAGES ON THE CONSOLE: @[@@@@VG )@@G@@ @A@@@@ FAC: XXXXXXXXXXXX ON @ @@@@ (ASG IMAVH )@@G@@GE HERE) @A@@@@ (ACT NO) SKIPPING FILE @[@@@@ @E@@@@VI )@@G@@WHERE XXXXXXXXXXXX IS THE FAC REJECT CODE, AND ACT NO IS THE@E@@@@ACTIVIVJ )@@G@@TY NUMBER. SEVERAL OTHER ERROR MESSAGES ARE SELF- @]@@@@EXPLANATORY.VK )@@G@@@[@@@@ @E@@@@IF @IN DOES DO AN 'ER EABT$' THE REASON MAY BE DETERMIVL )@@G@@NED @B@@@@FROM THE OUTPUT AND THE FOLLOWING TABLE: @[@@@@ @A@@@@VM )@@G@@ REENT ADDR CAUSE@F@@@@ 040063 ASG OFVN )@@G@@ ADDITIONAL TAPE FAILED - SEE A0. @D@@@@ 042325 SVTP1 VO )@@G@@IS NOT A TAPE FILE. @F@@@@ 042407 ERROR READING DATAVP )@@G@@ CARD OR INFOR TABLE TO @D@@@@ SATISFY 'Q' OR 'R'VQ )@@G@@ OPTION. @[@@@@ @[@@@@*****^@G@@@@----------------------------- VR )@@G@@ @IOCHK -----------------------------@[@@@@ @H@@@@IOCHK IS A HVS )@@G@@ARDWARE AND FORMAT CHECKING ROUTINE FOR @OUT. IT IS USED IN THE @G@@@@VT )@@G@@SAME MANNER AS @IN, BUT IT DOES NOT DELETE ANY FILES, AND DOES NOT COPY VU )@@G@@@G@@@@THE TEXT BACK INTO A FILE. IT READS THE ENTIRE TAPE, THEREBY CHECVV )@@G@@KING @E@@@@FOR PARITY ERRORS, AND ALSO CHECKS THREE IMPORTANT THINGS: VW )@@G@@@[@@@@ @G@@@@ 1. THAT THE FILE DESCRIBED ON THE TAPE DESCRIBES VX )@@G@@A FILE WHICH IS @ @@@@ CURRENTLY CATALOGUED. @G@@@@ 2. THATVY )@@G@@ THE FILE CONFROMS TO @OUT FORMAT, AND CAN BE READ BY @IN. @H@@@@ 3VZ )@@G@@. AND THAT ALL TRACK ADDRESSES ARE WITHIN THE LIMITS SET BY THE FILE'S WA )@@G@@@B@@@@ GRANULARITY AND MAXIMUM RESERVE. @[@@@@ @F@@@@FAILURWB )@@G@@E OF AN @OUT-FORMAT FILE TO MEET EITHER OF THE FIRST OR LAST@H@@@@REQUIRWC )@@G@@EMENTS WILL CAUSE THE PROGRAM TO ABORT. @IOCHK WILL SKIP OVER ANY NON- WD )@@G@@@E@@@@ @OUT-FORMAT FILES, PUTTING UP CONSOLE MESSAGES AS DOES @IN.@E@@@@WE )@@G@@HOWEVER, @IOCHK ABORTS IF IT ENCOUNTERS ANY TYPE OF ERROR. @H@@@@IT SHOWF )@@G@@ULD BE NOTED THAT @IN AND @IOCHK WILL READ IN THE ENTIRE SET OF TAPES WG )@@G@@@G@@@@PRODUCED BY @OUT, AND WILL LEAVE THEM POSITIONED AFTER THE LAST EOWH )@@G@@F. @E@@@@THEREFORE, HAVING MANY NON-OUT TYPE FILES ON A SET OF TAPES WI )@@G@@@#@@@@IS NOT DESIREABLE.@[@@@@ @E@@@@ @IOCHK PRODUCES A PRINTED LISWJ )@@G@@TING OF EACH FILE IT TRIED TO @F@@@@ @ASG,AY -- AS WITH @OUT AND @IN, TWK )@@G@@HE PRINTOUT OCCURS BEFORE @A@@@@ THE FACT TO AID TROUBLE-SHOOTING. WL )@@G@@@[@@@@ @ @@@@ AVAILABLE OPTIONS: @[@@@@ @H@@@@ WM )@@G@@ A - DON'T TRY TO DO AN @ASG,AY OF EACH FILE - USE THIS IF THE FILES WN )@@G@@@A@@@@ MAY NOT BE CATALOGUED.@[@@@@ @F@@@@ D WO )@@G@@- DELETES ALL THE FILES DESCRIBED IN @OUT FORMAT ON @F@@@@ WP )@@G@@ THE TAPE(S), AFTER CHECKING THE ENTIRE TAPE(S). @F@@@@ WQ )@@G@@ IF @IOCHK ABORTS, NONE OF THE FILES WILL BE DELETED.@[@@@@ @E@@@@WR )@@G@@ N - SUPPRESSES PRINTING OF ANY READ/WRITE KEYS. @[@@@@ WS )@@G@@@H@@@@ Y - @IOCHK NORMALLY FREES ITS TAPES WHEN IT'S DONE. THEWT )@@G@@ 'Y' OPTION @ @@@@ PREVENTS THIS. @[@@@@ @ @@@@ WU )@@G@@ Z - SAME AS FOR @IN @[@@@@ @F@@@@IF @IOCHK SHOULD DO AN 'ER EABWV )@@G@@T$' THE REASON MAY BE DETERMINED @ @@@@FROM THE FOLLOWING TABLE: WW )@@G@@@[@@@@ @A@@@@ REENT ADDR CAUSE @D@@@@ 040WX )@@G@@106 SVTP1 IS NOT A TAPE FILE. @F@@@@ 040201 WY )@@G@@UNABLE TO ASSIGN ADDITIONAL TAPE - SEE A0.@G@@@@ 040352 WZ )@@G@@TAPE TRACK ADDRESS EXCEEDS MAXIMUM FOR FILE. @E@@@@ 040356 XA )@@G@@ I/O ERROR READING TRACK FROM TAPE. @E@@@@ 040407 XB )@@G@@I/O ERROR READING TAPE (NOT EOF). @D@@@@ 040431 I/O ERXC )@@G@@ROR WHILE SKIPPING FILE @G@@@@ 040531 @ASG,AY OF FILE FAXD )@@G@@ILED (BUT A-OPTION NOT SET). @[@@@@ @[@@@@ @F@@@@DIRECT ANY QXE )@@G@@UESTIONS TO THE PROGRAMMING ASSISTANCE PEOPLE IN 26A. ___OT DELETE ANY FXF )@@G@@ILES, AND DOES NOT COPY @G@@@@THE TEXT BACK INTO A FILE. IT READS THE EXG )@@G@@*[@@@@*SDFF*@ @@@@. THE @OUT PROCESSOR @[@@@@. @E@@@@. XH )@@G@@ MULTI-ACTIVITY FILE SAVER (MASS STORAGE TO TAPE) @[@@@@. @[@@@@XI )@@G@@. @C@@@@. USE: @ASG,T SVTP1,T,REEL#/REEL#... @C@@@@. XJ )@@G@@ @ASG,T SVTP2,T,REEL#/REEL#... @#@@@@. . @#@@@@XK )@@G@@. . @C@@@@. @ASG,T SVTPN,T,REEL#/REEL#... XL )@@G@@@ @@@@. @OUT<,OPTIONS>@C@@@@. (NUMBER OXM )@@G@@F ACTIVITIES) @#@@@@. . @#@@@@. . @F@@@@XN )@@G@@. ANY NUMBER OF CARDS SPECIFYING FILES TO BE SAVED. @F@@@@XO )@@G@@. FILENAME SHOULD START IN COLUMN 7, AND ANY SPECIAL@E@@@@XP )@@G@@. @ASG OPTIONS SHOULD START IN COLUMN 1.. @#@@@@. XQ )@@G@@ . @#@@@@. . @A@@@@. @EOF (N OF TXR )@@G@@HEM). @[@@@@. @[@@@@. @D@@@@. OPTIONS: A - DON'T ERROR XS )@@G@@IF AN @ASG FAILS @F@@@@. N - DON'T PRINT KEYS WHEN PRXT )@@G@@INT ASG IMAGE @[@@@@. @[@@@@. @E@@@@. XU )@@G@@ R. DUFF KURLAND @G@@@@. XV )@@G@@ UHMC COMPUTER CENTER - SYSTEMS @E@@@@. XW )@@G@@ NEW YORK UNIVERSITY @D@@@@. XX )@@G@@ JANUARY, 1973 @[@@@@/. @[@@@@. @D@@@@. CONTENTS OF BUXY )@@G@@FFER ON FIRST WRITE (FOR EACH FILE) @[@@@@. @E@@@@. XZ )@@G@@ :-----------------------------------: @E@@@@. -2 : YA )@@G@@ 'COPYG ' : @E@@@@. :---------YB )@@G@@--------------------------: @E@@@@. -1 : '@YC )@@G@@OUT ' : @E@@@@. :---------------------YD )@@G@@--------------: @E@@@@. 0 : LEAD ITEM SECTOR 0 YE )@@G@@ : @E@@@@. : YF )@@G@@ : @E@@@@. 27 : : YG )@@G@@@E@@@@. :-----------------------------------: @E@@@@YH )@@G@@. 28 : LIST OF REEL NUMBERS : @E@@@@. YI )@@G@@ : (EQUAL IN LENGTH TO NO. : @E@@@@. YJ )@@G@@ N : OF ACTIVITIES) : @E@@@@. YK )@@G@@ :-----------------------------------: @E@@@@. : YL )@@G@@ : @E@@@@. :---------YM )@@G@@--------------------------: @E@@@@. 40 : FILE NAYN )@@G@@ME, ETC FROM : @E@@@@. : DATA CARDYO )@@G@@ : @E@@@@. : YP )@@G@@ : @E@@@@. N : YQ )@@G@@ : @E@@@@. :-----------------------------------: YR )@@G@@@E@@@@. : : @E@@@@YS )@@G@@. :-----------------------------------: @E@@@@. YT )@@G@@ 70 : MAIN ITEM SECTOR 0 : @E@@@@. YU )@@G@@ : : @E@@@@. 97 YV )@@G@@ : : @E@@@@. :---YW )@@G@@--------------------------------: @E@@@@. 98 : MYX )@@G@@AIN ITEM SECTOR 1 : @E@@@@. : YY )@@G@@ : @E@@@@. 125 : YZ )@@G@@ : @E@@@@. :---------------------------ZA )@@G@@--------: @[@@@@. @[@@@@. @[@@@@$(2) $ @@@@-68 ZB )@@G@@ @@@@@@@E@@@@MAXACT EQU 2 . MAX ACTIVITIZC )@@G@@ES @[@@@@. @ @@@@AWAIT L,U A0,074000 @G@@@@ ERZD )@@G@@ AWAIT$ . WAIT FOR MAIN ACT TO FINISH @ @@@@READ ZE )@@G@@ LXI,U A0,EOF @ @@@@ LXM,U A0,FILE+1 @H@@@@ ZF )@@G@@ ER READ$ . READ DATA CARD (FILE AND OPTIONS) ZG )@@G@@@E@@@@ L,U A0,1,A0 . GET WORDS READ+1 @ @@@@ZH )@@G@@ TLE,U A0,11 @^@@@@ TLE,U A0,3@G@@@@ ZI )@@G@@ ER EABT$ . IMPROPER NO. OF WORDS READ @F@@@@ZJ )@@G@@ S,S3 A0,LINE,X11 . WORD COUNT FOR CSF$ @G@@@@ZK )@@G@@ A,U A0,1 . ONE MORE WORD FOR PRINTING ZL )@@G@@@E@@@@ S A0,FILE-2 . STORE IN PRINT PKT@E@@@@ZM )@@G@@ L A0,TAPE,X11 . GET TAPE NAME @F@@@@ ZN )@@G@@ S A0,FILE . STORE IN PRINT IMAGE @G@@@@ ZO )@@G@@ L A4,FILE+1 . GET ASG OPTIONS FROM INPUT @F@@@@ZP )@@G@@ A,U A5,1 . INCREMENT FILE COUNT @ @@@@ZQ )@@G@@ S A5,A1 @F@@@@ LMJ A3,CN ZR )@@G@@ . CONVERT TO FD DECIMAL @^@@@@ SSC A2,6@G@@@@ ZS )@@G@@ S A2,FILE+1 . STORE FILE COUNT THIS ACT @ @@@@ZT )@@G@@ LXI,U A0,0202 @G@@@@ LXM,U A0,FILE ZU )@@G@@ . DON'T PRINT FILE NAME, ETC @F@@@@ TNZ NOPT ZV )@@G@@ . IF N-OPTION IS SET. @A@@@@ L A0,LINE,X1ZW )@@G@@1 @H@@@@ ER PRINT$ . PRINT TAPE NUMBER ZX )@@G@@AND FILE NAME $ @@@@-94,94 @@@@@[@F@@@@CHKPRV LAZY )@@G@@,U A3,'QY' . GET Q AND Y OPTIONS @E@@@@ TZZZ )@@G@@ PRIV . IS RUN PRIVILEGED?$ @@@@-96,96 AA )@@G@@ @@@@@[@F@@@@ DSL A3,12 . YES, ADD QY AB )@@G@@OPTIONS @G@@@@ L,U A2,14 . SET UP FOR 5AC )@@G@@-MINUTE TWAIT @A@@@@ASG L A3,('@ASG,A') @E@@@@ AD )@@G@@ DS A3,FILE . OPTIONS ARE IN A4 @A@@@@ASGAGN LXAE )@@G@@I,S3 A0,LINE,X11 @ @@@@ LXM,U A0,FILE @D@@@@ AF )@@G@@ ER CSF$ . ASSIGN FILE @E@@@@ TEP AG )@@G@@ A0,(1*/18) . WAIT BIT SET? @D@@@@ J TWAIAH )@@G@@T . YES, WAIT @D@@@@ LA A4,(022177440300AI )@@G@@0) . GET BIT MASK@E@@@@ TZ PRIV . IS RUNAJ )@@G@@ PRIVILEGED?@H@@@@ LA A4,(0221474403000) . YES, FORGET AK )@@G@@KEY CHECK ON ASG,AQY @ @@@@ AND A0,A4 $ @@@@-109,1AL )@@G@@10 @@@@@]@E@@@@ JZ A1,USE . AM )@@G@@IF OK, DO @USE @F@@@@ TNZ AOPT . YES - AN )@@G@@IS 'A' OPTION ON? @E@@@@ ER EABT$ . NO, STAO )@@G@@ATUS IN A0 @G@@@@ J FACREJ . YES, DISPLAYAP )@@G@@ FACREJ AND CONT. @E@@@@USE DL A0,('@USE $$X.,') . SET UPAQ )@@G@@ @USE IMAGE @E@@@@ DS A0,FILE . OVERLAY @ASGAR )@@G@@ IMAGE@F@@@@ S,S4 R2,FILE+1 . ADD ACTIVITY NUMBEAS )@@G@@R @A@@@@ LXI,S3 A0,LINE,X11 @ @@@@ LXM,U AT )@@G@@ A0,FILE @E@@@@ ER CSF$ . @USE $$X.,AU )@@G@@FILE @E@@@@ LA,U A0,020 . SET UP FOR DREAD$ AV )@@G@@@B@@@@ SA A0,TEMP1 . @F@@@@ DL AW )@@G@@ A0,DRUM,X11 . SET UP FOR INPUT FILE @B@@@@ DS AX )@@G@@ A0,TEMP1+1 . @F@@@@ LXI,U A0,03400 . AY )@@G@@SET UP FOR LEAD ITEM @F@@@@ LXM,U A0,LI0 . AZ )@@G@@PUT IT IN BUFFER (+0) @B@@@@ SA A0,TEMP1+3 . BA )@@G@@@F@@@@ SZ TEMP1+4 . SET UP FOR SECTOR 0 BB )@@G@@@B@@@@ LA,U A0,TEMP1 . @E@@@@ ER BC )@@G@@ MSCON$ . DO THE DREAD$ @D@@@@ TP A0 BD )@@G@@ . HOW'D IT GO?@F@@@@ ER EABT$ BE )@@G@@ . NO GOOD - MSCON$ ERROR @H@@@@ LXI,U A0,07001 BF )@@G@@ . NOW GET MAIN ITEM SECTORS 0 AND 1 @F@@@@ LXM,U A0,MBG )@@G@@I0 . PUT IT IN BUFFER+70 @B@@@@ SA A0,TBH )@@G@@EMP1+3 . @B@@@@ LA,U A0,TEMP1 . @E@@@@BI )@@G@@ ER MSCON$ . DO THE DREAD$ @D@@@@ BJ )@@G@@ TP A0 . HOW'D IT GO?@F@@@@ ER BK )@@G@@ EABT$ . NO GOOD - MSCON$ ERROR @E@@@@ LA,S1 BL )@@G@@ A0,MI0+17 . GET EQUIPMENT CODE@B@@@@ TLE,U A0,0BM )@@G@@40 . @B@@@@ TLE,U A0,030 . @F@@@@BN )@@G@@ ER EABT$ . NOT FASTRAND FORMAT! @E@@@@BO )@@G@@ LA,H1 A0,MI0+21 . GET MAX GRANULES @E@@@@ BP )@@G@@ LSSL A0,6 . MULTIPLY BY 64 @F@@@@ TPBQ )@@G@@ MI0+13 . POSITION GRANULARITY? @F@@@@ LSBR )@@G@@SL A0,6 . YES, MULTIPLY BY 64 $ @@@@-147,147 BS )@@G@@ @@@@@[@E@@@@ SA A0,HIEST,X11 . STORE BT )@@G@@MAX SECTORS @G@@@@ L A0,EACHTP,X11 . GET THIS ACTBU )@@G@@IVITY'S REEL NO. @E@@@@ SA A0,RLST . STORE BV )@@G@@IN RLST @G@@@@ SZ RLST+1 . SET UP FOR JBW )@@G@@UST 1 ACTIVITY @F@@@@ L A0,ACTS . GET NOBX )@@G@@. OF ACTIVITIES @G@@@@ L A1,X11 . FORM RBY )@@G@@LST TABLE OF FIRST REELS@F@@@@ LXI,U A1,1 . BZ )@@G@@ FOR EACH ACTIVITY @B@@@@ SZ A2 . CA )@@G@@@F@@@@ L A4,X11 . GET THIS ACTIVITY INDEX CB )@@G@@$ @@@@-156,157 @@@@@]@G@@@@REELS MSI,U A2,BUFSIZ CC )@@G@@ . ADD THE OTHER REELS TO RLST @E@@@@ TNE A2,ACD )@@G@@4 . THIS ACTIVITY? @G@@@@ J $+4 CE )@@G@@ . YES, ALREADY HAVE THIS ONE @F@@@@ L A3,ECF )@@G@@ACHTP,A2 . GET NEXT REEL NUMBER @D@@@@ S A3,RCG )@@G@@LST2+1,A1 . ADD TO RLST @F@@@@ SZ RLST2+2,*A1 CH )@@G@@ . SET UP FOR NO MORE REELS@^@@@@ A,U A2,1@D@@@@ CI )@@G@@ JGD A0,REELS . GET THE REST@F@@@@ DL CJ )@@G@@ A0,('COPYG @OUT ') . GET COPYG-OUT SENTINEL @E@@@@ DS CK )@@G@@ A0,BUFFER-2,X11 @ @@@@WRITE L,U A1,WCL )@@G@@$ @E@@@@ LMJ A3,IOXI . WRITE HEADER BLOCKCM )@@G@@@F@@@@ LMJ X10,TAPERR . IO ERROR - CHECK FOR EOTCN )@@G@@@G@@@@ SZ DRUM+5,X11 . START READING FROM SECTOCO )@@G@@R 0 @F@@@@IN L,U A0,DRUM,X11 . GET ADDR READ IO PCP )@@G@@ACKET @F@@@@ ER IOXI$ . READ ONE TRACK OF CQ )@@G@@FILE @ @@@@RINT TNZ,S1 DRUM+3,X11@D@@@@ J OUT CR )@@G@@ . INPUT OKAY @A@@@@ L,S1 A0,DRUM+3,X11 CS )@@G@@@^@@@@ TE,U A0,5@E@@@@ ER EABT$ CT )@@G@@ . INPUT NO GOOD! @G@@@@ J CNTNU . CU )@@G@@SKIP THIS TRACK - IT'S EMPTY @ @@@@OUT L,U A1,W$ @F@@@@CV )@@G@@ LMJ A3,IOXI . COPY ONE TRACK TO TAPE @F@@@@CW )@@G@@ LMJ X10,TAPERR . ERROR RETURN FROM IOXI @E@@@@CX )@@G@@CNTNU L A0,DRUM+5,X11 . GET DRUM ADDR @E@@@@ CY )@@G@@ A,U A0,64 . MOVE TO NEXT TRACK@G@@@@ TNCZ )@@G@@E A0,HIEST,X11 . REACHED MAX GRANULES YET? @F@@@@ DA )@@G@@ J NXTFIL . IF SO, GO TO NEXT FILE @F@@@@ DB )@@G@@ S A0,DRUM+5,X11 . IF NOT, READ NEXT TRACK @^@@@@ DC )@@G@@ J IN @F@@@@TAPERR L,S1 A0,TAPE+3,X11 . TAPE EDD )@@G@@RROR WRITING TRACK@E@@@@ S X10,SX10,X11 . SAVE RDE )@@G@@ETURN ADDR @F@@@@ TE,U A0,2 . END-OF-TAPE DF )@@G@@MARKER? @E@@@@ ER EABT$ . NO, ERROR OFDG )@@G@@F @E@@@@ L A0,DRUM+5,X11 . YES, GET DRUM ADDRDH )@@G@@@F@@@@ S A0,TEMP1 . AND SAVE IT FOR LATER DI )@@G@@@B@@@@ L,U A1,WEF$ . @E@@@@ LMJ DJ )@@G@@ A3,IOXI . WRITE ONE EOF MARK$ @@@@-196,196 DK )@@G@@@@@@@[@F@@@@ NOP . IGNORE ERROR STATUDL )@@G@@S @F@@@@ TNZ NEXTAP,X11 . NEXT TAPE SPECIFIEDM )@@G@@D? @I@@@@ ER EABT$ . NO, HOW WILL IN/IODN )@@G@@CHK KNOW WHAT TO DO? @F@@@@OK L,U A0,'?I' . DO )@@G@@GET CONTINUATION MARK @G@@@@ S,T1 A0,BUFFER-2,X11 . DP )@@G@@STORE IN BUFFER FOR WRITE $ @@@@-201,201 @@@@@[@F@@@@DQ )@@G@@ LA A1,NEXTAP,X11 . GET NEXT REEL NUMBER @E@@@@DR )@@G@@ S A1,BUFFER,X11 . STORE THAT TOO @ @@@@ DS )@@G@@ L,U A1,W$ @G@@@@ LMJ A3,IOXI . DT )@@G@@WRITE CONTINUATION SENTINEL $ @@@@-205,205 @@@@@[@E@@@@DU )@@G@@ NOP . IGNORE BAD STATUS @A@@@@TSWAP DV )@@G@@ L,U A0,TAPE,X11 @F@@@@ ER TSWAP$ DW )@@G@@ . SWITCH TO NEXT TAPE @E@@@@PRSWAP LA A0,PRINT DX )@@G@@ . GET 'TSWAP' MSG @E@@@@ LA A1,TAPE,X11 . DY )@@G@@AND TAPE NAME @E@@@@ DS A0,TEMP2 . SET UPDZ )@@G@@ PRINT IMAGE@ @@@@ LXI,U A0,0202 @E@@@@ LXM,U EA )@@G@@ A0,TEMP2 . TELL USER THAT @E@@@@ ER PRINEB )@@G@@T$ . TSWAP OCCURED @A@@@@ DL A0,TAPE,X1EC )@@G@@1 @G@@@@ DS A0,TEMP2 . SET UP FOR FITEM$ ED )@@G@@OF TAPE FILE@G@@@@ SZ NEXTAP,X11 . INITIALIZE NEE )@@G@@EXT TAPE NUMBER @ @@@@ LXI,U A0,13 @ @@@@ LXEF )@@G@@M,U A0,TEMP2 @E@@@@ ER FITEM$ . DO THEEG )@@G@@ FITEM$ @H@@@@ L A0,TEMP1 . GET DRUM ADDEH )@@G@@R WHERE WE LEFT OFF @F@@@@ S A0,DRUM+5,X11 . EI )@@G@@PUT IT BACK IN IO PKT @F@@@@ LA A0,TEMP2+12 . EJ )@@G@@PICK UP NEXT REEL NUMBER@H@@@@ S A0,NEXTAP,X11 . EK )@@G@@STORE AS NEXT TAPE FOR THIS ACT $ @@@@-224,226 @@@@@#EL )@@G@@@F@@@@ SZ A5 . START COUNTING AGAIN EM )@@G@@@E@@@@ L,H2 X10,SX10,X11 . GET RETURN ADDR @C@@@@EN )@@G@@ J 0,X10 . RETURN@ @@@@NXTFIL L,U EO )@@G@@ A1,WEF$ @ @@@@ LMJ A3,IOXI $ @@@@-229,229 EP )@@G@@ @@@@@[@#@@@@ NOP @ @@@@ L,U A1,WEF$ EQ )@@G@@@E@@@@ LMJ A3,IOXI . WRITE 2 EOF MARKS $ @@@@ER )@@G@@-232,232 @@@@@[@#@@@@ NOP @ @@@@ L,ES )@@G@@U A1,MB$ @G@@@@ LMJ A3,IOXI . BACKSPET )@@G@@ACE OVER ONE EOF MARK $ @@@@-235,235 @@@@@[@#@@@@ EU )@@G@@ NOP @A@@@@FREE LA A0,('@FREE ') @E@@@@ LAEV )@@G@@ A1,DRUM,X11 . GET FILE NAME @ @@@@ DS EW )@@G@@ A0,FILE @^@@@@ LXI,U A0,2@ @@@@ LXM,U A0,FEX )@@G@@ILE @D@@@@ ER CSF$ . @FREE FILE @D@@@@EY )@@G@@ J READ . GET ANOTHER @ @@@@TWAIT L,EZ )@@G@@U A1,20000 @F@@@@ ER TWAIT$ . WAITINFA )@@G@@G FOR FACILITIES @D@@@@ JGD A2,ASGAGN . TRY AGFB )@@G@@AIN @ @@@@ L A2,FILE+1 @ @@@@ DL A0,FFC )@@G@@ILWAT @ @@@@ DS A0,FILE @ @@@@ SZ TEMPFD )@@G@@1 @F@@@@ L,S3 A0,LINE,X11 . GET ASG IMAGE WORDFE )@@G@@ COUNT@F@@@@ MSI,U A0,6 . CONVERT TO CHAR COFF )@@G@@UNT @ @@@@ LSSL A0,18 @ @@@@ LXM,U A0,FFG )@@G@@ILE @ @@@@ S A0,TEMP1+1@ @@@@ SZ TEMPFH )@@G@@1+2 @ @@@@ L,U A0,TEMP1 @G@@@@ ER COM$FI )@@G@@ . DISPLAY 'WAITING FOR FILE' MSG@ @@@@ S FJ )@@G@@ A2,FILE+1 @ @@@@ J ASG-1 @G@@@@IOXI S,T1 FK )@@G@@ A1,TAPE+3,X11 . GENERAL TAPE I/O SUBROUTINE @A@@@@ S FL )@@G@@ A3,STORE,X11 @A@@@@ L,U A0,TAPE,X11 @ @@@@FM )@@G@@ ER IOXI$ @A@@@@INT L A3,STORE,X11 FN )@@G@@@ @@@@ TZ,S1 TAPE+3,X11@^@@@@ J 0,A3@^@@@@FO )@@G@@ J 1,A3@F@@@@EOF ER EXIT$ . FP )@@G@@NORMAL EXIT AT @EOF @G@@@@ERROR ER EABT$ . FQ )@@G@@ERROR EXIT FROM FIRST READ$ @[@@@@. @F@@@@. IF A-OPTION IS NOT SETFR )@@G@@, DISPLAY FAC REJECT CODE (AND @ASG IMAGE @F@@@@. WHICH CAUSED IT) ON THFS )@@G@@E SYSTEM CONSOLE. IN ANY CASE, PRINT THE @#@@@@. FAC REJECT CODE.@[@@@@FT )@@G@@. @^@@@@FACREJ L,U A3,1@F@@@@ L,U A4,5 FU )@@G@@ . CONVERT TO FIELDATA @ @@@@ S A1,A2 FV )@@G@@@^@@@@ DSL A0,3@^@@@@ SSL A1,3@ @@@@ FW )@@G@@ JGD A4,$-2 @ @@@@ JGD A3,$-5 @B@@@@ FX )@@G@@ DA A1,('000000000000') @F@@@@ DS A1,FILE-3 FY )@@G@@ . STORE IN COM$ PACKET @B@@@@ DL A0,(' FAC:FZ )@@G@@ ON ') @ @@@@ S A0,FILE-4 @ @@@@ S GA )@@G@@ A1,FILE-1 @ @@@@ SZ TEMP1 @ @@@@ LXI,U GB )@@G@@ A0,21 @ @@@@ LXM,U A0,FILE-4 @ @@@@ S GC )@@G@@ A0,TEMP1+1@ @@@@ SZ TEMP1+2 @ @@@@ L,U GD )@@G@@ A0,TEMP1 @G@@@@ TNZ AOPT . IF A-OPTION GE )@@G@@IS SET, SKIP COM$ @F@@@@ ER COM$ . DISPLAGF )@@G@@Y FAC REJECT CODE @ @@@@ LXI,U A0,0103 @ @@@@ LXGG )@@G@@M,U A0,FILE-4 @E@@@@ ER PRINT$ . PRINT GH )@@G@@IT, TOO. @E@@@@ TZ AOPT . IS A-OPTION GI )@@G@@SET? @F@@@@ J FREAD . YES, GET NEXT FILEGJ )@@G@@ CARD @A@@@@ L,S3 A0,LINE,X11 @^@@@@ MSI,U GK )@@G@@ A0,6@ @@@@ LSSL A0,18 @ @@@@ LXM,U A0,FGL )@@G@@ILE @ @@@@ S A0,TEMP1+1@ @@@@ L,U A0,TGM )@@G@@EMP1 @G@@@@ ER COM$ . DISPLAY THE GUILTYGN )@@G@@ ASG IMAGE @^@@@@FREAD AN,U A5,1@^@@@@ J READGO )@@G@@@[@@@@. @G@@@@. BINARY-TO-FD-DECIMAL CONVERSION ROUTINE - INPUT IN AGP )@@G@@1, OUTPUT IN A2 @[@@@@. @C@@@@CN L A2,TAPE+1,X11 GQ )@@G@@ . BLANKS@B@@@@CNVRT SZ A0 . @E@@@@ GR )@@G@@ DI,U A0,10 . CONVERT TO DECIMAL@F@@@@ A,GS )@@G@@U A1,060 . CONVERT TO FIELDATA @E@@@@ DSGT )@@G@@L A1,6 . STORE ONE CHAR @ @@@@ L GU )@@G@@ A1,A0 @C@@@@ JNZ A0,CNVRT . MORE? @C@@@@GV )@@G@@ J 0,A3 . RETURN@^@@@@FILWAT 'WAITINGGW )@@G@@ FOR '$ @@@@-321,325 @@@@@ @#@@@@PRINT 'TSWAP '@E@@@@GX )@@G@@FLAGS + 0,0,0,0,0,0 . VARIOUS FLAGS @[@@@@. GY )@@G@@@G@@@@. THE BUFFER AND DATA AREA FOR EACH ACITIVITY 2-N IS A DUPLICATE OGZ )@@G@@F @B@@@@. THE FOLLOWING, STARTING WITH EACHTP. @[@@@@. @#@@@@HA )@@G@@EACHTP + 0 @#@@@@NEXTAP + 0 @F@@@@SX10 + 0 HB )@@G@@ . RETURN ADDR FOR TAPERR @E@@@@TAPE 'SVTPX ' HC )@@G@@ . OUTPUT IOW$ PACKET@#@@@@ + 0 @^@@@@ HD )@@G@@ + 010,0,0 $ @@@@-332,332 @@@@@[@G@@@@ + HE )@@G@@1794,BUFFER-2 . 1794 WDS SO 9-TRK TAPES OK @#@@@@HIEST HF )@@G@@ + 0 @E@@@@DRUM '$$X ' . INPUT IOW$ PHG )@@G@@ACKET @#@@@@ + 0 @^@@@@ + 020,0,0 @^@@@@ HH )@@G@@ + 1792,BUFFER @#@@@@ + 0 @#@@@@FILLER '@OUT' @^@@@@HI )@@G@@BUFFER RES 500 $ @@@@-339 @@@@@@@[@@@@. HJ )@@G@@@D@@@@. INITIALIZATION CODE, OVERLAYED BEFORE FIRST WRITE @[@@@@. HK )@@G@@@F@@@@INIT + 0102,SIGNON . SIGNON PRINT$ PACKET HL )@@G@@@F@@@@ + ERROR,BUFFER . INITIAL READ$ PACKET HM )@@G@@@D@@@@ + 1*/30 . INFOR BIT @D@@@@ HN )@@G@@ + 28,BUFFER . PCT$ PACKET @E@@@@ + 1*/('ZHO )@@G@@'-'A') . FOR A-OPTION CHECK@G@@@@ + 01300,FIRST HP )@@G@@ . MAIN ACTIVITY FORK$ PACKET $ @@@@-346,346 HQ )@@G@@ @@@@@[@^@@@@SIGNON 'NYU OUT 2.5' @#@@@@START AXR$ @^@@@@HR )@@G@@ SZ X11 @E@@@@ LA A0,INIT . HS )@@G@@GET PRINT$ PACKET @C@@@@ ER PRINT$ . SIGNONHT )@@G@@@E@@@@ LA A0,INIT+1 . GET READ$ PACKET @ @@@@HU )@@G@@ ER READ$ @F@@@@ TEP A0,INIT+2 HV )@@G@@ . CHECK FOR INFOR BIT @^@@@@ J $-3 @E@@@@ HW )@@G@@ LA A0,INIT+3 . GET PCT$ PACKET @D@@@@ ERHX )@@G@@ PCT$ . GET PCT ITEM@F@@@@ LA,S2 A0,BHY )@@G@@UFFER+4 . GET ABORT$ INDICATOR @E@@@@ TEP,U A0,0HZ )@@G@@40 . IS RUN PRIVILEGED?@E@@@@ SA A0,PRIV IA )@@G@@ . YUP, SET INDICATOR@^@@@@ ER OPT$@^@@@@ IB )@@G@@ L,U A1,1@E@@@@ TEP A0,INIT+4 . CHECK IC )@@G@@FOR A-OPTION@E@@@@ S A1,AOPT . A-OPTION IS ID )@@G@@SET @A@@@@ TEP,U A0,1*/('Z'-'N') @E@@@@ S IE )@@G@@ A1,NOPT . N-OPTION IS SET @E@@@@ LA A0,IIF )@@G@@NIT+5 . GET FORK$ PACKET @ @@@@ ER FORK$ IG )@@G@@@ @@@@ ER EXIT$ @E@@@@FIRST LA A0,INIT+1 IH )@@G@@ . GET READ$ PACKET @H@@@@ ER READ$ II )@@G@@ . READ DATA CARD FOR NO. OF ACTS. @ @@@@ L,U A0,0IJ )@@G@@,A0 @^@@@@ TNZ A0 @F@@@@ ER EABT$ IK )@@G@@ . INCORRECT DATA CARD @ @@@@ L,S1 A1,BUFFER IL )@@G@@@ @@@@ AN,U A1,061 @ @@@@ JZ A1,BEGIN IM )@@G@@$ @@@@-377,378 @@@@@]@D@@@@ TN A1 IN )@@G@@ . NON-NUMERIC,@F@@@@ TG,U A1,MAXACT . IO )@@G@@OR MORE THAN MAX ACTS? @C@@@@ ER EABT$ . IP )@@G@@YES @ @@@@ S A1,A0 $ @@@@-380,382 IQ )@@G@@@@@@@#@H@@@@ MSI,U A0,BUFSIZ . CALCULATE AMOUNT OIR )@@G@@F CORE NEEDED @ @@@@ A,U A0,LASTD$ @G@@@@ ERIS )@@G@@ MCORE$ . EXPAND DATA AREA FOR MORE ACTS@ @@@@BEGIN IT )@@G@@ S A1,R1 @ @@@@ S A1,ACTS @^@@@@ IU )@@G@@ L,U A2,1@F@@@@LOOP1 ANU,U A2,1 . A2 IS IV )@@G@@ACTIVITY NUMBER $ @@@@-389,391 @@@@@#@F@@@@ MSIW )@@G@@I,U A3,BUFSIZ . FORM ACTIVITY INDEX @ @@@@ S IX )@@G@@ A3,X11 @^@@@@ SZ A5 @ @@@@ A,U IY )@@G@@ A2,060 @G@@@@ S A2,R2 . R2 IS FIELDAIZ )@@G@@TA ACTIVITY NUMBER@ @@@@ AN,U A2,060 @ @@@@ L JA )@@G@@ A0,A2 @ @@@@ LSSL A0,24 @ @@@@ LXJB )@@G@@M,U A0,AWAIT @F@@@@ ER FORK$ . CREATEJC )@@G@@ A NEW ACTIVITY @ @@@@ LXI,U A1,0200 @ @@@@ LXJD )@@G@@M,U A1,FILE @A@@@@ S A1,LINE,X11 @G@@@@ JE )@@G@@ DL A0,DRUM . GET DRUM FILE NAME ($$) @A@@@@JF )@@G@@ DS A0,DRUM,X11 @F@@@@ S,S3 R2,DRUM,X1JG )@@G@@1 . SET TO ACT NUMBER @G@@@@ DL A0,TAPE JH )@@G@@ . GET TAPE FILE NAME (SVTP)@A@@@@ DS A0,TJI )@@G@@APE,X11 @ @@@@ DS A0,TEMP1 @F@@@@ S,S5 JJ )@@G@@ R2,TEMP1 . SET TO ACT NUMBER @A@@@@ S,S5 JK )@@G@@ R2,TAPE,X11 @ @@@@ SZ NEXTAP,X11@ @@@@ LXJL )@@G@@I,U A0,13 @ @@@@ LXM,U A0,TEMP1 @F@@@@ ERJM )@@G@@ FITEM$ . FITEM$ OF TAPE FILE @F@@@@ DLJN )@@G@@ A0,TEMP1+11 . PICK UP FIRST REEL NO. @A@@@@ DSJO )@@G@@ A0,EACHTP,X11 @D@@@@ L,U A0,02305 . JP )@@G@@ADD AN 'N' @A@@@@ S,T3 A0,EACHTP,X11 @ @@@@ L,JQ )@@G@@U A0,INT @A@@@@ S A0,TAPE+2,X11 $ @@@@-422,4JR )@@G@@22 @@@@@[@ @@@@ LXI,U A0,1794 @A@@@@ JS )@@G@@ LXM,U A0,BUFFER-2,X11 @A@@@@ S A0,TAPE+4,X11 JT )@@G@@$ @@@@-424 @@@@@@@ @@@@ LA A0,FILLER JU )@@G@@@E@@@@ SA A0,BUFFER-1,X11 . SET FILLER WORD @ @@@@JV )@@G@@ L,U A0,RINT @A@@@@ S A0,DRUM+2,X11 JW )@@G@@@ @@@@ L,U A0,020 @A@@@@ S,T1 A0,DRUM+3,JX )@@G@@X11 @ @@@@ LXI,U A0,1792 @A@@@@ LXM,U A0,BJY )@@G@@UFFER,X11 @A@@@@ S A0,DRUM+4,X11 @^@@@@ A,JZ )@@G@@U A2,1@G@@@@ JGD R1,LOOP1 . MORE ACTIVITKA )@@G@@IES TO CREATE? @F@@@@ ER EXIT$ . END ORKB )@@G@@IGINAL ACTIVITY @A@@@@ RES 1792-($-BUFFER) $ @@@@-435 KC )@@G@@ @@@@@@@#@@@@LINE + 0 @#@@@@STORE + 0 KD )@@G@@@ @@@@BUFSIZ EQU $-EACHTP $ @@@@-438 @@@@@@KE )@@G@@@[@@@@. @D@@@@AOPT EQUF FLAGS,,S1 . A-OPTION KF )@@G@@@D@@@@NOPT EQUF FLAGS,,S2 . N-OPTION @F@@@@PRIV KG )@@G@@ EQUF FLAGS,,S3 . SET IF RUN PRIVILIEGED @F@@@@ACTS KH )@@G@@ EQUF FLAGS,,S4 . NUMBER OF ACTIVITIES @[@@@@. KI )@@G@@@E@@@@LI0 EQUF BUFFER,X11 . LEAD ITEM SECTOR 0@E@@@@KJ )@@G@@MI0 EQUF BUFFER+70,X11 . MAIN ITEM SECTOR 0@E@@@@MI1 KK )@@G@@ EQUF BUFFER+98,X11 . MAIN ITEM SECTOR 1@F@@@@TEMP1 EQKL )@@G@@UF BUFFER+400,X11 . TEMPORARY PACKET AREA @F@@@@TEMP2 EQKM )@@G@@UF BUFFER+500,X11 . TEMPORARY PACKET AREA @D@@@@RLST EQKN )@@G@@UF BUFFER+28,X11 . REELS LIST @F@@@@RLST2 EQU BUFFKO )@@G@@ER+28 . NEEDED FOR FAMCY STUFF @G@@@@FILE EQUF BUFFKP )@@G@@ER+38,X11 . @ASG IMAGE FROM DATA CARD @ @@@@ END KQ )@@G@@ START ___) @A@@@@ DS A0,DRUM,X11 @F@@@@ KR )@@G@@ S,S3 R2,DRUM,X11 . SET TO ACT NUMBER @G@@@@ KS )@@G@@@@@@B8@B_@C@^)N^@@@B_^)N@@@^GI@@@@@[@@@@@@@@@@@K@@8@@W@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@^M^@@@[Y^GA@@]^)M@@@___@@@___@@@___@@@___@@@___KV )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___KW )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@ASG,A@@[@@@MJ/)S@MG/)S@KX )@@G@@@USE $$X.,COPYG @OUT @FREE 000000000000 FAC: ON R;@B)@'=@@[W&;@^#MKY )@@G@@Q;F^^9'=@@@HR;G@@[?8@@@F?8@@@#'=@@@QA\F^)MO;@@@[A#F^^6R#F^^ A#F^^8C[F^^9KZ )@@G@@G9K@@[[[K@@H/\0^#6;@)@@AA#:^^9&;@@]]Q;F^^8(0@^^[R#F^)M'=@@@IC80@QY*?@^^[LA )@@G@@;G0@@GR;)@@IR#0^@@9*;^^8&\F^)MQ;F^^8'=@@@J=@@^@[/K@^]9C[@^@]*?@^^[C[@^@#LB )@@G@@+@@@@K/@K^@9(4@^^['=@@@Q/K@^#O9?@^@^9*F^^8^*:^^9&\F^)MQ;F^^8'=@@@JC8@@@KLC )@@G@@[@F^E+9?F^^F9*F^E<&;@@W@Q;F^^M[@F^E> @F^E&C8F^E+'=@@[P0@@@@G'=@@@Q&;@@8[LD )@@G@@Q;F^ S[@F^E>C8F^E+'=@@[P0@@@@G'=@@@QC4F^ (?8@@@)?8@@@S'=@@@QCCF^ !;*@@@ALE )@@G@@0@F^ >;*@@@A[@F^^ER#F^^][@F^^, @F^^\R:@^^[R#K@@F&;K@@[ @@@@IC[@@@FT8)@WMLF )@@G@@:@)@@K/K@^[(R#"^^]A#.^^\ @H=^0O;)@@[8#@^[<9?@^@A9*F^^KR;K@@C/\0^#E/,)^]]LG )@@G@@ @F^^KR;F^^F'=@@@P(4F^^I/K@^[9R7F^^I%8@@@ '=@@@Q/K@^[/R;K@@C/\0^#E/,)^]]LH )@@G@@R#F^^KO;@@[@:@F^^E/K@^](A#F^^K/K@^[1R7F^^CA]:^^^%8@@@]'=@@@QR#F^^KA#F^E+LI )@@G@@R;K@@D/\0^#E/S@@@@(@F^^#'=@@@QR;@@?IAZF^^KC@V^^#A#V^^MR;K@@C/\0^#E/S@@@@LJ )@@G@@R;F^^ '=@@[XC@@^^@C@V^^ 9*F^GA&;@@]]Q;F^GA'=@@@I9?F^^ 9*F^GA @F^^#&;@@@HLK )@@G@@Q;F^GA'=@@@UR#F^E+A#F^^KC@F^GMA#F^^# @@@@LRA:^^^/KE@@@R;K@@D/\0^#E/S@@@@LL )@@G@@R;K@@D/\0^#E/S@@@@R;K@@(/\0^#E/S@@@@C@@^@CC@V^^F9*F^^8&;@@@]Q;F^^8'=@@@JLM )@@G@@/K@^@JR;K^8)'=@@@08#)^@?R#:^^99?@^#"9*F^^8 @F^E+R\F^)MT8@@@A;*@@@MQ;F^^8LN )@@G@@A#F^E< @F^E=R;F^E+'=@@@CA#:^^9/K@^@(AZV^^CA#;^)NR;F^^ '=@@@PR#;^)N*4F^^CLO )@@G@@/KJ@@@/KJ@@['=@@@D'=@@@QR;0@@[C9@@@ A#K@@I;G@@@#;CK@@#8^@^#R8#0^#P9)K^@DLP )@@G@@9*V^^59?@^@FA#F^^4A#V^^7 @F^E+&;@@@PQ;F^^4A#F^E< @F^E=R;F^E+(4@^^['=@@@CLQ )@@G@@&;@@[#Q;F^^4'=@@@I*4@^^[/K@^#4R\F^)MT8@@@A;*@@@MQ;F^^8A#F^E FLAGS,,S2 R]@^MFMF )@@G@@N-OPTION @F@@@@R_S@@@ EQUF FLAG/K@^LZERU$ K@@@@^J--E[DMG )@@G@@OUT @@#@@@I(L XE@@H^@@@@@@@@@)B^@HS,,S4 . NUMBER OF ACMH )@@G@@TIVITIES @[@@@@. @E@@@@LI0 EQUF BUFFER,X11 . MI )@@G@@*[@@@@*SDFF*@ @@@@. THE @IN PROCESSOR @[@@@@. @B@@@@. MJ )@@G@@ MULTI-ACTIVITY FILE RESTORE @[@@@@. @B@@@@. USE: @AMK )@@G@@SG,T SVTP1,T,REEL# @ @@@@. @IN<,OPTIONS> @[@@@@. ML )@@G@@@E@@@@. OPTIONS: A - DELETE & RECATALOGUE ONLY FILES @F@@@@MM )@@G@@. WHICH RETURN NON-ZERO STATUS ON @ASG,AY @E@@@@MN )@@G@@. (EXCEPT IF ASG'D TO SOMEONE ELSE). @F@@@@. MO )@@G@@ W - SAME AS 'A', BUT IGNORES WARNING-ONLY @B@@@@. MP )@@G@@ DISABLES, TOO. @F@@@@. F - RESTORMQ )@@G@@E ALL FILES TO FIXED MASS STORAGE, @G@@@@. EVEN IMR )@@G@@F A FILE SAYS IT BELONGS ON REM DISC. @F@@@@. N - MS )@@G@@SUPPRESSES PRINTING OF READ/WRITE KEYS. @F@@@@. Q - MT )@@G@@SUBSTITUTE A NEW QUALIFIER FOR EACH FILE. @G@@@@. R - MU )@@G@@RESTORE ALL FILES TO SPECIFIED REM DISC PACK @D@@@@. MV )@@G@@ Y - DON'T FREE TAPES WHEN DONE. @H@@@@. Z - RUN ONMW )@@G@@LY ONE ACTIVITY: IF SVTP1 TAPE IS FOUND TO @F@@@@. MX )@@G@@ HAVE BEEN WRITTEN BY MULTI-ACITIVITY @OUT,@H@@@@. MY )@@G@@ @IN WILL NORMALLY DYNAMICALLY ASSIGN THE OTHER TAPES @G@@@@. MZ )@@G@@ AND START THE NECESSARY ADDITIONAL ACTIVITIES. @[@@@@NA )@@G@@. @[@@@@. @#@@@@. NOTES: @[@@@@. @E@@@@. ATNB )@@G@@ NYU, WE NORMALLY USE 4-DIGIT TAPE REEL NUMBERS,@F@@@@. AND ATTANC )@@G@@CH AN 'R' AT THE END IF WE DESIRE A RING, AND @E@@@@. AN 'N' IND )@@G@@F NO RING IS DESIRED ('N' IS NORMALLY @F@@@@. ASSUMED BY OURNE )@@G@@ OPERATORS. @IN STORES AN 'N ' IN T3 @F@@@@. OF THE REEL NUNF )@@G@@MBER BEFORE REQUESTING A NEW TAPE VIA @G@@@@. CSF$ (FOR ANOTNG )@@G@@HER ACTIVITY) OR VIA RSWAP$ IF SWAPPING TAPES. @[@@@@. @E@@@@. NH )@@G@@ R. DUFF KURLAND @G@@@@. NI )@@G@@ UHMC COMPUTER CENTER, SYSTEMS @E@@@@. NJ )@@G@@ NEW YORK UNIVERSITY @D@@@@. NK )@@G@@ DECEMBER, 1973@[@@@@/. @#@@@@ AXNL )@@G@@R$ @H@@@@MAXACT EQU 2 . MAXIMUM NO. OF ACTNM )@@G@@IVITIES (<10) @[@@@@. @F@@@@SP40 EQU 1 NN )@@G@@ . SET NONZERO IF REMOVABLE@G@@@@ NO )@@G@@ . 8440 DISC PACKS HAVE UNIQUE @G@@@@ NP )@@G@@ . PACKIDS, TO DIFFERENTIATE @F@@@@ NQ )@@G@@ . THEM FROM 8414 PACKS. @F@@@@ NR )@@G@@ . IF SET NONZERO, @IN WILL@G@@@@ NS )@@G@@ . ONLY CATALOG REMOVABLE FILES @G@@@@ NT )@@G@@ . ON 8440 DUE TO THE R-OPTION @E@@@@ NU )@@G@@ . IF PACKIDS OF @G@@@@ NV )@@G@@ . THE CORRECT SORT ARE GIVEN. @[@@@@. @E@@@@NW )@@G@@SP24 EQU 1 . SAME, FOR 8424/25 @[@@@@. NX )@@G@@@^@@@@ ON SP40@G@@@@SP40F + 'PK4' NY )@@G@@ . WHAT 8440 PACKIDS LOOK LIKE @^@@@@ OFF SP40@^@@@@NZ )@@G@@ ON SP24@G@@@@SP24F + 'PK2' . OA )@@G@@WHAT 8424 PACKIDS LOOK LIKE @^@@@@ OFF SP24@ @@@@ OB )@@G@@ ON SP40++SP24@G@@@@SPPART EQU H1 . OC )@@G@@PORTION OF PACKID TO CHECK @ @@@@ OFF SP40++SP24@[@@@@OD )@@G@@. @[@@@@$(2) @ @@@@AWAIT LA,U A0,074000 @H@@@@ EROE )@@G@@ AWAIT$ . WAIT FOR MAIN ACTIVITY TO FINISH @F@@@@OF )@@G@@ LA A2,R2 . GET ACTIVITY NUMBER @E@@@@OG )@@G@@ TNE,U A2,061 . FIRST ACTIVITY? @G@@@@ OH )@@G@@ J RIGHT . YES, IT'S GOT ITS TAPE ALREADY@B@@@@OI )@@G@@ DL A0,('@ASG,T SVTPX') @ @@@@ DS A0,BOJ )@@G@@UF @ @@@@ S,S6 R2,BUF+1 @F@@@@ LA A0,TOK )@@G@@APTYP . GET TAPE EQUIPMENT TYPE @F@@@@ LA A1,EOL )@@G@@ACHTP-061,A2 . GET REEL NO. FOR ASG @E@@@@ DS A0,BOM )@@G@@UF+2 . STORE IN ASG IMAGE@E@@@@ LXI,U A0,0204 ON )@@G@@ . SET UP PRINT$ PKT @E@@@@ LXM,U A0,BUF OO )@@G@@ . TO PRINT ASG IMAGE@C@@@@ ER PRINT$ . OP )@@G@@DO IT @G@@@@ LA,U A2,14 . SET UP FOR 5-MINUTOQ )@@G@@E TWAIT @^@@@@ASG LXI,U A0,4@ @@@@ LXM,U A0,BOR )@@G@@UF @E@@@@ ER CSF$ . ASG CORRECT TAPE OS )@@G@@@G@@@@ JP A0,CHEKTP . IF OK, CHECK FOR @OUT LAOT )@@G@@BEL @E@@@@ ANA,U A2,1 . TAPE ASG FAILED...OU )@@G@@@H@@@@ TOP A0,(1*/18) . IS IT BECAUSE NO DRIVES OV )@@G@@ARE AVAIL? @G@@@@ ER EABT$ . NO, SOME OTHOW )@@G@@ER REASON - SEE A0@F@@@@TWAIT JZ A2,$+4 . YES, SOX )@@G@@O WAIT FOR A DRIVE@ @@@@ LA,U A1,20000 @E@@@@ EROY )@@G@@ TWAIT$ . WAIT 20 SECONDS @E@@@@ J OZ )@@G@@ ASG . NOW TRY AGAIN @F@@@@ LA,U A0,TPA )@@G@@HOLDPKT . WE HAVE WAITED 5 MINUTES@F@@@@ ER COM$PB )@@G@@ . DISPLAY 'T-HOLD' MSG @F@@@@ J ASG-PC )@@G@@1 . RESET AND TRY AGAIN @ @@@@CHEKTP LA,U A1,0PD )@@G@@20 @G@@@@ LMJ A3,IOXI . READ FIRST RECORD PE )@@G@@ON TAPE @F@@@@ LMJ A2,TAPERR . TAPE ERROR -PF )@@G@@- IS IT EOF?@F@@@@RDLBL DL A0,RL . GET 'READINGPG )@@G@@ LABEL' MSG @H@@@@ DS A0,FILMSG,X11 . PUT IN I/O EPH )@@G@@RROR MSG JUST IN CASE @E@@@@ LA A0,RL+2 . PI )@@G@@GET THE REST OF IT@E@@@@ SA A0,FILMSG+2,X11 . STORE PJ )@@G@@THAT, TOO @A@@@@ SZ FILMSG+3,X11 @E@@@@ SZPK )@@G@@ FILMSG+4,X11 . BLANK OUT FILENAME@G@@@@ SZ PL )@@G@@ HIEST,X11 . INITIALIZE HIGHEST TRACK ADDR @G@@@@ DLPM )@@G@@ A0,OUTLBL . OK -- CHECK FOR @OUT LABEL @E@@@@ PN )@@G@@ DTE A0,BUF-2 . WRITTEN BY @OUT? @F@@@@ J PO )@@G@@ SKIP-3 . NOPE, SKIP THIS FILE @G@@@@OK2 LAPP )@@G@@ A2,R2 . LABEL OK, NOW CHECK TAPE NO. @ @@@@ PQ )@@G@@ LA,U A0,02305 @ @@@@ SA,T3 A0,RLST @A@@@@ PR )@@G@@ LA A0,EACHTP-061,A2@ @@@@ TNE A0,RLST @D@@@@PS )@@G@@ J RIGHT . CORRECT TAPE@E@@@@ SAPT )@@G@@ A0,RLST . INCORRECT TAPE @A@@@@ LA,U PU )@@G@@ A0,WRONGPKT @F@@@@ ER COM$ . DISPLAPV )@@G@@Y 'WRONG TAPE' MSG@ @@@@ DL A0,TAPE @ @@@@ DSPW )@@G@@ A0,RLST-2 @^@@@@ LXI,U A0,2@ @@@@ LXM,U PX )@@G@@ A0,RLST-2 @E@@@@ ER RSWAP$ . GET CORRECT PY )@@G@@TAPE @E@@@@ J CHEKTP . CHECK IT AGAIN PZ )@@G@@@D@@@@RIGHT DL A0,LI0+1 . GET QUAL @E@@@@ QA )@@G@@ TZ QOPT . IS Q-OPTION SET? @E@@@@ DLQB )@@G@@ A0,QUAL . YES, REPLACE QUAL @E@@@@ DS QC )@@G@@ A0,FILE+3 . STORE IN IMAGE @F@@@@ LA,U A0,5QD )@@G@@ . SET INITIAL WORD COUNT @E@@@@ TNE A1,BQE )@@G@@LANKS . IS QUAL 1 WORD? @E@@@@ LA,U A0,4 QF )@@G@@ . YES, REDUCE COUNT @ @@@@ SA,S3 A0,LINE @E@@@@QG )@@G@@ AA A0,X11 . ADD ACTIVITY INDEX@E@@@@ QH )@@G@@ SA A0,X10 . SAVE IMAGE INDEX @E@@@@ LAQI )@@G@@ A1,('* ') . ADD AN ASTERISK @ @@@@ LMJ QJ )@@G@@ X9,ZOWIE @F@@@@ LA A1,LI0+3 . ADD FILENAMEQK )@@G@@ (1ST WORD) @ @@@@ LMJ X9,ZOWIE @F@@@@ LA QL )@@G@@ A1,LI0+4 . ADD FILENAME (2ND WORD) @ @@@@ LMJ QM )@@G@@ X9,ZOWIE @F@@@@BLNK LA A0,BLANKS . SET UP ANOTHQN )@@G@@ER AREA WITH@F@@@@ LA,U A2,4 . JUST QUAL*FIQO )@@G@@LE (NO KEYS)@G@@@@ LXI,U A1,1 . FOR @USE ANDQP )@@G@@ FOR N-OPTION @ @@@@ LXM A1,X11 @F@@@@ SAQQ )@@G@@ A0,WOKEYS+3,*A1 . FIRST BLANK OUT IMAGE @ @@@@ JGQR )@@G@@D A2,$-1 @G@@@@ LA,S3 A2,LINE . GET CUQS )@@G@@RRENT IMAGE WORD COUNT @^@@@@ AN,U A2,2@^@@@@ LXQT )@@G@@I,U A1,1@ @@@@ LXM A1,X11 @G@@@@ LA QU )@@G@@ A0,IMIJ+3,A1 . COPY Q*F FROM IMIJ TO WOKEYS @A@@@@ SAQV )@@G@@ A0,WOKEYS+3,*A1 @ @@@@ JGD A2,$-2 @C@@@@ QW )@@G@@ LA A5,BLANKS . BLANKS@D@@@@ TNE A5,LQX )@@G@@I0+7 . READ KEY? @C@@@@ J WKEY QY )@@G@@ . NOPE @E@@@@ LA A1,SLASH . YES, ADD A SQZ )@@G@@LASH @ @@@@ LMJ X9,ZOWIE @D@@@@ LA A1,LRA )@@G@@I0+7 . ADD READ KEY@ @@@@ LMJ X9,ZOWIE @^@@@@RB )@@G@@ J $+5 @G@@@@WKEY TNE A5,LI0+8 . RC )@@G@@WRITE KEY WITH NO READ KEY? @C@@@@ J PAST RD )@@G@@ . NO @E@@@@ LA A1,SLASH . YES, ADD A SRE )@@G@@LASH @ @@@@ LMJ X9,ZOWIE @D@@@@ TNE A5,LRF )@@G@@I0+8 . WRITE KEY? @C@@@@ J PAST RG )@@G@@ . NOPE @F@@@@ LA A1,SLASH . YUP, BETTER RH )@@G@@ADD A SLASH @ @@@@ LMJ X9,ZOWIE @E@@@@ LA RI )@@G@@ A1,LI0+8 . ADD WRITE KEY @ @@@@ LMJ X9,ZRJ )@@G@@OWIE @ @@@@ LA A1,BLANKS @ @@@@ LMJ X9,ZRK )@@G@@OWIE @E@@@@PAST LA,S3 A0,LI0+10 . GET EQUIP SUBCODE RL )@@G@@@D@@@@ SA A0,SUBCOD . SAVE IT @E@@@@ RM )@@G@@ TNZ AOPT . IS A OPTION SET? @G@@@@ J RN )@@G@@ DEL . NO, DELETE + RESTORE EACH FILE@B@@@@ RO )@@G@@ DL A0,('@ASG,AY ') @G@@@@ DS A0,FILE+1 RP )@@G@@ . YES, TRY @ASG,AY'ING FILE @ @@@@ LMJ A3,CRQ )@@G@@SF @ @@@@ SA A0,A2 @F@@@@ AND A0,ARR )@@G@@MASK . IS IT ASG'D ELSEWHERE? @B@@@@ TZ A1 RS )@@G@@ . @E@@@@ SZ A2 . YES, SRT )@@G@@KIP FILE. @G@@@@ AND A0,DMASK . IS FILE DISARU )@@G@@BLED OR NOT THERE?@E@@@@ JZ A1,WODIS . IF NOTRV )@@G@@, SKIP FILE @ @@@@FREFIL DL A0,FREE @ @@@@ DS RW )@@G@@ A0,FILE+1 @D@@@@ LMJ A3,CSF . FREE FILE RX )@@G@@@G@@@@ JZ A2,MOVEIT . IF @ASG,AY WENT OKAY, DORY )@@G@@N'T @G@@@@ . BOTHER RESTORING TRZ )@@G@@HIS FILE. @B@@@@DEL DL A0,('@ASG,ADQY ') . @B@@@@ SA )@@G@@ DS A0,FILE+1 . @D@@@@ LMJ A3,CSF SB )@@G@@ . ASG FILE @ @@@@ DL A0,FREE @B@@@@ SC )@@G@@ DS A0,FILE+1 . @E@@@@ LMJ A3,CSF SD )@@G@@ . AND DELETE IT @ @@@@ SZ TEMP1 @G@@@@SE )@@G@@ LA,S2 A1,MI0+17 . RETRIEVE NEEDED @ASG,C OPTIONSSF )@@G@@@ @@@@ LA,U A0,025 @^@@@@ TOP,U A1,8@F@@@@SG )@@G@@ SA,S1 A0,TEMP1 . PUBLIC FILE (P OPTION) @ @@@@SH )@@G@@ LA,U A0,027 @^@@@@ TEP,U A1,1@G@@@@ SI )@@G@@ SA,S2 A0,TEMP1 . READ-ONLY FILE (R OPTION) @ @@@@SJ )@@G@@ LA,U A0,034 @^@@@@ TEP,U A1,2@G@@@@ SK )@@G@@ SA,S3 A0,TEMP1 . WRITE-ONLY FILE (W OPTION) @ @@@@SL )@@G@@ LA,U A0,033 @ @@@@ TEP,U A1,020 @G@@@@SM )@@G@@ SA,S4 A0,TEMP1 . UNLOAD INHIBIT (V OPTION) SN )@@G@@@ @@@@ LA,U A0,014 @F@@@@ TOP,U A1,040 SO )@@G@@ . IS THIS A G-OPTION FILE?@F@@@@ J $+3 SP )@@G@@ . NO, SKIP THIS STUFF @G@@@@ TNZ ROPT SQ )@@G@@ . YES, DON'T ALLOW G-OPTION FILE@F@@@@ SA,S5 A0,TSR )@@G@@EMP1 . IF R-OPTION IS SET. @ @@@@ LA A0,TSS )@@G@@EMP1 @ @@@@ LA A1,BLANKS @ @@@@ SZ TEMPST )@@G@@1 @D@@@@ LA,U A2,5 . FOR 6 CHARS @H@@@@SU )@@G@@SHIFT SA,S6 A0,TEMP1 . LEFT-JUSTIFY OPTS AND SPACE FISV )@@G@@LL @E@@@@ TZ TEMP1 . GOT A LETTER? SW )@@G@@@C@@@@ J $+3 . YES @F@@@@ SSSX )@@G@@C A0,6 . NO, GET THE NEXT CHAR @^@@@@ J SY )@@G@@ $+2 @D@@@@ DSC A0,6 . STORE LETTERSZ )@@G@@@E@@@@ JGD A2,SHIFT . GET NEXT CHAR @A@@@@TA )@@G@@ LA A0,('@ASG,C') @G@@@@ DS A0,FILE+1 TB )@@G@@ . STORE AS PART OF @ASG,C IMAGE @G@@@@ LA,S1 A0,MTC )@@G@@I0+17 . CREATE CORRECT MEDIA FIELD @E@@@@ TZ TD )@@G@@ ROPT . IS R-OPTION SET? @C@@@@ J TORETE )@@G@@M . YES @E@@@@ L A1,FTYP-030,A0 . TF )@@G@@GET FD EQUIP TYPE @D@@@@ TZ SUBCOD . SUBCODTG )@@G@@E? @D@@@@ TE,U A0,035 . OF F14? @C@@@@TH )@@G@@ J FIXED . NO @E@@@@ L TI )@@G@@ A1,(',F24/ ') . YES, CHANGE TO F24@D@@@@ J FIXETJ )@@G@@D . CONTINUE @D@@@@TOREM L A1,(',F14/ ') TK )@@G@@ . 8414 DISC @^@@@@ ON SP40@F@@@@ TZ TL )@@G@@ F40OK . REM 8440 PACK GIVEN? @E@@@@ L TM )@@G@@ A1,(',F40/ ') . YES, ASSUME F40 @^@@@@ OFF SP40TN )@@G@@@^@@@@ ON SP24@F@@@@ TZ F24OK TO )@@G@@ . 8424/25 PACK GIVEN? @E@@@@ L A1,(',F24/ ') TP )@@G@@ . YES, ASSUME F24 @^@@@@ OFF SP24@ @@@@FIXED LMTQ )@@G@@J X9,ZOWIE @E@@@@ LA,H1 A2,MI0+20 . INITIATR )@@G@@L RESERVE @G@@@@ LMJ X9,CN . CONVERT TO FTS )@@G@@IELDATA DECIMAL @F@@@@ LA A1,('/TRK/ ') . CREATETT )@@G@@ GRANULARITY FIELD@G@@@@ TP MI0+13 . POSITITU )@@G@@ON GRANULARITY FILE? @C@@@@ LA A1,('/POS/ ') . TV )@@G@@YES @E@@@@ LMJ X9,ZOWIE . ADD TO ASG IMAGE TW )@@G@@@E@@@@ LA,H1 A2,MI0+21 . MAXIMUM RESERVE @ @@@@TX )@@G@@ LA A0,A2 @E@@@@ LSSL A0,6 TY )@@G@@ . MULTIPLY BY 64 @G@@@@ TP MI0+13 . TZ )@@G@@POSITION GRANULARITY FILE? @G@@@@ LSSL A0,6 UA )@@G@@ . YES, MULTIPLY BY 64 AGAIN @G@@@@ SA A0,HIEST,XUB )@@G@@11 . SAVE HIGHEST SECTOR REFERENCED@G@@@@ LMJ X9,CUC )@@G@@N . CONVERT TO FIELDATA DECIMAL @E@@@@ TZ UD )@@G@@ FOPT . IS F OPTION SET? @G@@@@ J GOTIUE )@@G@@T . YES, IGNORE REMOVABLE DISC @E@@@@ TZ UF )@@G@@ ROPT . IS R-OPTION SET? @G@@@@ J NEWPUG )@@G@@AK . YES, PUT 'EM ALL ON REM PACKS @F@@@@ LA,T1 UH )@@G@@ A0,MI0+12 . GET DESCRIPTOR FLAGS @G@@@@ TEP,U UI )@@G@@ A0,8 . IS THIS A REMOVABLE DISC FILE?@D@@@@ J UJ )@@G@@ REMPAK . YES, REMPAK @G@@@@GOTIT LMJ A3,PUK )@@G@@RINT . @ASG,C FILE WITH OPTIONS, ETC.@F@@@@ JN UL )@@G@@ A0,FACREJ . IF ASG FAILS, J FACREJ @G@@@@ DL UM )@@G@@ A0,('@USE $$X.,') . IF NOT, SET UP @USE IMAGE @ @@@@ DSUN )@@G@@ A0,WOKY+1 @ @@@@ S,S4 R2,WOKY+2 @^@@@@ LXUO )@@G@@I,U A0,8@ @@@@ LXM,U A0,WOKY+1 @E@@@@ ER UP )@@G@@ CSF$ . @USE $$.,FILE@ @@@@B LA,U A1,0UQ )@@G@@20 @H@@@@ LMJ A3,IOXI . READ ONE TRACK OF UR )@@G@@FILE FROM TAPE @D@@@@ LMJ A2,TAPERR . I/O ERUS )@@G@@ROR @E@@@@ LA,U A0,DRUM . I/O WENT OKAY UT )@@G@@@F@@@@ ER IOXI$ . WRITE ONE TRACK TO DRUM UU )@@G@@@E@@@@WINT TZ,S1 DRUM+3 . HOW'D THE I/O GO? @D@@@@UV )@@G@@ LMJ A3,DRUMERR . NO GOOD @F@@@@ J UW )@@G@@ B . OKAY, GET ANOTHER TRACK @F@@@@REMPAK TNUX )@@G@@Z,T3 MI1+17 . CHECK FOR PACKID ENTRIES@G@@@@ J UY )@@G@@ GOTIT . NO PACKID ENTRIES - DON'T @H@@@@ UZ )@@G@@ . TREAT THIS AS A REM DISC FILE VA )@@G@@@D@@@@ LA A1,COMMA . GET A COMMA @E@@@@ VB )@@G@@ LMJ X9,ZOWIE . ADD TO ASG IMAGE @E@@@@ LAVC )@@G@@ A1,MI1+18 . GET FIRST PACKID @E@@@@ LMJ VD )@@G@@ X9,ZOWIE . ADD TO ASG IMAGE @G@@@@ LA,T3 A0,MVE )@@G@@I1+17 . PICK UP NO. OF PACK ENTRIES @F@@@@ TNE,U VF )@@G@@ A0,1 . MORE THAN ONE PACK? @ @@@@ J VG )@@G@@ GOTIT @H@@@@ ANA,U A0,2 . @OUT WORKS WVH )@@G@@ITH UP TO 5 PACKS/FILE @ @@@@ SA A0,R1 @ @@@@ VI )@@G@@ LX X8,X11 @ @@@@PACKS LA A1,SLASH @E@@@@ VJ )@@G@@ LMJ X9,ZOWIE . ADD TO ASG IMAGE @^@@@@ AXVK )@@G@@,U X8,2@E@@@@ LA A1,BUFFER+116,X8 . GET NEXT PACVL )@@G@@KID @E@@@@ LMJ X9,ZOWIE . ADD TO ASG IMAGE VM )@@G@@@D@@@@ JGD R1,PACKS . GET THE REST@ @@@@ VN )@@G@@ J GOTIT @D@@@@NEWPAK LA A1,COMMA . VO )@@G@@GET A COMMA @E@@@@ LMJ X9,ZOWIE . ADD TO ASG IVP )@@G@@MAGE @E@@@@ LA A1,PACKID . GET FIRST PACKID VQ )@@G@@@E@@@@ LMJ X9,ZOWIE . ADD TO ASG IMAGE @E@@@@VR )@@G@@ LA A0,NPACKS . GET NO. OF PACKIDS@F@@@@ VS )@@G@@ TNE,U A0,1 . MORE THAN ONE PACK? @E@@@@ VT )@@G@@ J GOTIT . NO, THAT'S ALL @E@@@@ ANVU )@@G@@A,U A0,2 . YES, SET UP LOOP @ @@@@ SA VV )@@G@@ A0,R1 @ @@@@ LXM,U X8,PACKID @D@@@@NWPAKS LA VW )@@G@@ A1,SLASH . GET A SLASH @E@@@@ LMJ X9,ZOWIE VX )@@G@@ . ADD TO ASG IMAGE @^@@@@ AX,U X8,1@E@@@@ VY )@@G@@ LA A1,0,X8 . GET NEXT PACKID @E@@@@ LMVZ )@@G@@J X9,ZOWIE . ADD TO ASG IMAGE @D@@@@ JGD WA )@@G@@ R1,NWPAKS . GET THE REST@D@@@@ J GOTIT WB )@@G@@ . FINISHED @E@@@@WODIS SZ A2 . WC )@@G@@SET TO SKIP FILE @E@@@@ TZ WOPT . IS W OWD )@@G@@PTION SET? @F@@@@ TOP,U A0,0200 . YES, IS IT WWE )@@G@@-O DISABLED?@E@@@@ J FREFIL . NO, NEITHER WF )@@G@@ONE @B@@@@ DL A0,('DISABLED, WA') @ @@@@ DSWG )@@G@@ A0,FILE-1 @B@@@@ DL A0,('RNING ONLY: ') @ @@@@WH )@@G@@ DS A0,FILE+1 @ @@@@ LA,S3 A0,LINE @ @@@@WI )@@G@@ LSSL A0,18 @A@@@@ AA A0,(0201,0) WJ )@@G@@@ @@@@ LXM,U A0,FILE-1 @E@@@@ ER PRINT$ WK )@@G@@ . PRINT MESSAGE @D@@@@ J FREFIL WL )@@G@@ . GO FREE FILE@[@@@@. @B@@@@. TAPE ERROR HANDLER -- LMJ A2,TAWM )@@G@@PERR @[@@@@. @E@@@@TAPERR LA,S1 A0,TAPE+3 . GET I/WN )@@G@@O STATUS @E@@@@ TE,U A0,1 . IS IT AN EOFWO )@@G@@? @C@@@@ J NEOF . NO @B@@@@ WP )@@G@@ LA,U A1,020 . @F@@@@ LMJ A3,IOXI WQ )@@G@@ . YES, READ NEXT RECORD @G@@@@ J SEOF WR )@@G@@ . ERROR - IS IT A SECOND EOF? @E@@@@ LA,U A0,'WS )@@G@@?' . I/O OKAY THIS TIME@G@@@@ TE,S1 A0,BUF-2 WT )@@G@@ . SO CHECK FOR CONTIN. MARK @G@@@@ J NEXTWU )@@G@@ . NOT CONT, SO IT'S ANOTHER FILE@F@@@@ DL WV )@@G@@ A0,TAPE . CONTINUED ON NEXT TAPE @G@@@@ DS WW )@@G@@ A0,BUF-2 . GET TAPE FILE NAME FOR RSWAP$ @F@@@@ LAWX )@@G@@,U A0,02305 . ADD AN 'N' TO REEL NO. @ @@@@ SAWY )@@G@@,T3 A0,BUF @D@@@@ LA A1,R2 . GET ACWZ )@@G@@T. NO.@E@@@@ ANA,U A1,061 . STRIP OFF FIELDATAXA )@@G@@@F@@@@ LXI,U A0,2 . SET UP RSWAP$ PACKET XB )@@G@@@ @@@@ LXM,U A0,BUF-2 @E@@@@ ER RSWAP$ XC )@@G@@ . GET NEXT REEL @D@@@@ J B XD )@@G@@ . AND CONTINUE@D@@@@NEXT LMJ A2,FREEIT . FREE FXE )@@G@@ILE @E@@@@ J RDLBL . AND GET NEXT ONE XF )@@G@@@E@@@@SEOF LA,S1 A0,TAPE+3 . GET I/O STATUS @F@@@@XG )@@G@@ TNE,U A0,1 . IS IT A SECOND EOF? @F@@@@XH )@@G@@ J EXIT . YES, SO EXIT NORMALLY @F@@@@XI )@@G@@ DL A0,RL . NO, SO TELL OP AND USER @F@@@@XJ )@@G@@ DS A0,FILMSG,X11 . THAT I/O ERROR OCCURRED @F@@@@XK )@@G@@ LA A0,RL+2 . WHILE READING FILE LABEL@A@@@@XL )@@G@@ SA A0,FILMSG+2,X11 @A@@@@ SZ FILMSG+3,XXM )@@G@@11 @A@@@@ SZ FILMSG+4,X11 @ @@@@ SZ XN )@@G@@ HIEST,X11 @D@@@@ LMJ A3,ERRCOM . TELL THEM XO )@@G@@@F@@@@ J RDLBL . CONTINUE CHECKING TAPE XP )@@G@@@F@@@@NEOF LMJ A3,ERRCOM . TAPE ERROR, NOT EOF XQ )@@G@@@F@@@@ LA,H2 A0,TAPE+3 . GET NO. OF WORDS READ XR )@@G@@@E@@@@ TE,U A0,1794 . EQUAL TO 1794? @E@@@@XS )@@G@@ J EOFMSG . NO, ASSUME EOF @F@@@@ XT )@@G@@ LA A0,BUF-2 . YES, GET TRACK ADDR @H@@@@ XU )@@G@@ TNG A0,HIEST,X11 . GREATER THAN FILE'S HIGHEST ADDR? XV )@@G@@@G@@@@ J 0,A2 . NO, TRY TO FINISH UP ANYXW )@@G@@HOW @E@@@@EOFMSG LA A0,(11,ASUM) . SET UP COM$ PACKETXX )@@G@@@G@@@@ SA A0,COM+1 . TO LET OP KNOW WE'RE GOIXY )@@G@@NG @G@@@@ LA,U A0,COM . TO ASSUME THAT WASXZ )@@G@@ AN EOF @C@@@@ ER COM$ . DO IT @E@@@@YA )@@G@@ LMJ A2,FREEIT . FREE THE FILE @F@@@@ YB )@@G@@ J RDLBL . FIND NEXT FILE ON TAPE @[@@@@. YC )@@G@@@C@@@@. DRUM I/O ERROR ROUTINE -- LMJ A3,DRUMERR @[@@@@. @E@@@@YD )@@G@@DRUMERR LA,S1 A0,DRUM+3 . GET I/O STATUS @F@@@@ERRCOMYE )@@G@@ DSL A0,3 . CONVERT ERROR CODE TO FD@^@@@@ YF )@@G@@ LSSL A0,3@^@@@@ LDSL A0,3@ @@@@ AA,U YG )@@G@@ A0,06060 @F@@@@ SA,T2 A0,ERRMSG+1,X11 . STORE ERROR YH )@@G@@CODE IN MSG @E@@@@ LA,U A0,COM . LOAD COM$ PAYI )@@G@@CKET @D@@@@ ER COM$ . TELL THE OP @C@@@@YJ )@@G@@ J 0,A3 . RETURN@ @@@@FREEIT LA YK )@@G@@ A0,FREE @G@@@@ LA A1,DRUM . FORM '@FREE YL )@@G@@ $$' IMAGE @D@@@@ DS A0,FILE+1 . STORE YM )@@G@@IT @E@@@@ LXI,U A0,2 . SET UP CSF$ PACKETYN )@@G@@@ @@@@ LXM,U A0,FILE+1 @E@@@@ ER CSF$ YO )@@G@@ . FREE THE FILE @C@@@@ J 0,A2 YP )@@G@@ . RETURN@[@@@@. @G@@@@. GENERAL TAPE I/O ROUTINE -- LMJ A3,IYQ )@@G@@OXI WITH FUNC. CODE IN A1 @[@@@@. @G@@@@IOXI SA,T1 A1,TYR )@@G@@APE+3 . STORE FUNC. CODE IN I/O PACKET@H@@@@ DS YS )@@G@@ A2,STORE . SAVE A2 AND A3: IOXI$ LOSES THEM @F@@@@ YT )@@G@@ LA,U A0,TAPE . GET TAPE I/O PACKET @C@@@@ YU )@@G@@ ER IOXI$ . DO IT @E@@@@INT DL A2,SYV )@@G@@TORE . RETRIEVE A2 AND A3@E@@@@ TZ,S1 TAPE+3 YW )@@G@@ . HOW'D THE I/O GO? @C@@@@ J 0,A3 YX )@@G@@ . BADLY @C@@@@ J 1,A3 . GOODLY@[@@@@YY )@@G@@. @I@@@@. BINARY-TO-FD-DECIMAL CONVERSION -- LMJ X9,CN WITH INPUTYZ )@@G@@ IN A2: OUTPUT IN A1 @[@@@@. @E@@@@CN LA A3,BLANKS ZA )@@G@@ . START WITH BLANKS @^@@@@CNVRT SZ A1 @E@@@@ ZB )@@G@@ DI,U A1,10 . CONVERT TO DECIMAL@F@@@@ AAZC )@@G@@,U A2,060 . CONVERT TO FIELDATA @E@@@@ DSZD )@@G@@L A2,6 . STORE CHAR IN A3 @ @@@@ LA ZE )@@G@@ A2,A1 @D@@@@ JNZ A1,CNVRT . CONTINUE ZF )@@G@@@D@@@@ SA A3,A1 . RESULT IN A1@E@@@@ ZG )@@G@@ J ZOWIE . ADD TO ASG IMAGE @[@@@@. @F@@@@ZH )@@G@@. PRINT FAC REJECT CODE AND DISPLAY IT ON CONSOLE -- J FACREJ @[@@@@ZI )@@G@@. @^@@@@FACREJ LA,U A3,1@^@@@@ LA,U A4,5@ @@@@ZJ )@@G@@ SA A1,A2 @^@@@@ DSL A0,3@^@@@@ ZK )@@G@@ SSL A1,3@ @@@@ JGD A4,$-2 @ @@@@ JGZL )@@G@@D A3,$-5 @E@@@@ DA A1,('000000000000') . CONVERZM )@@G@@T CODE TO FD@E@@@@ DS A1,FILE-3 . STORE IT IN ZN )@@G@@MSG @B@@@@ DL A0,(' FAC: ON ') @ @@@@ SAZO )@@G@@ A0,FILE-4 @ @@@@ SA A1,FILE-1 @ @@@@ SZZP )@@G@@ TEMP1 @E@@@@ LXI,U A0,21 . SET UPZQ )@@G@@ COM$ PACKET@ @@@@ LXM,U A0,FILE-4 @ @@@@ SA ZR )@@G@@ A0,TEMP1+1@ @@@@ SZ TEMP1+2 @F@@@@ LA,U ZS )@@G@@ A0,TEMP1 . GET COM$ PACKET ADDR @G@@@@ ER ZT )@@G@@ COM$ . DISPLAY THE FAC REJECT CODE @F@@@@ LXZU )@@G@@I,U A0,0103 . SET UP PRINT PACKET @ @@@@ LXZV )@@G@@M,U A0,FILE-4 @G@@@@ ER PRINT$ . PRINT ZW )@@G@@FAC REJECT CODE, TOO @F@@@@ LA,S3 A0,LINE . ZX )@@G@@GET ASG IMAGE WORD COUNT@^@@@@ ANA,U A0,1@G@@@@ MSZY )@@G@@I,U A0,6 . CONVERT TO CHARS FOR COM$ @ @@@@ ZZ )@@G@@ LSSL A0,18 @E@@@@ LXM,U A0,FILE+1 . AA )@@G@@SET UP COM$ PACKET@ @@@@ SA A0,TEMP1+1@F@@@@ LAAB )@@G@@,U A0,TEMP1 . GET COM$ PACKET ADDR @F@@@@ ERAC )@@G@@ COM$ . PRINT GUILTY ASG IMAGE @F@@@@ SZAD )@@G@@ MSG+2,X11 . ZERO OUT 'NON-OUT' IN @F@@@@ SZAE )@@G@@,T1 MSG+3,X11 . 'SKIPPING FILE' MSG @E@@@@ J AF )@@G@@ SKIP . SKIP THE FILE @[@@@@. @#@@@@. SKIPAG )@@G@@PING FILES @[@@@@. @ @@@@ DL A0,NON @H@@@@ AH )@@G@@ SA A0,MSG+2,X11 . MAKE MSG SAY 'SKIPPING NON-OUT FILE'AI )@@G@@@A@@@@ SA,T1 A1,MSG+3,X11 @ @@@@SKIP SZ TEMPAJ )@@G@@1 @E@@@@ LXI,U A0,24 . SET UP COM$ PACKETAK )@@G@@@ @@@@ LXM,U A0,MSG,X11@ @@@@ SA A0,TEMP1+1AL )@@G@@@ @@@@ SZ TEMP1+2 @F@@@@ LA,U A0,TEMP1 AM )@@G@@ . GET COM$ PACKET ADDR @H@@@@ ER COM$ AN )@@G@@ . DISPLAY 'SKIPPING NON-OUT FILE' MSG @ @@@@MOVEIT SZ AO )@@G@@ HIEST,X11 @F@@@@ DL A0,SK . GET 'SKIPPINAP )@@G@@G FILE' MSG @H@@@@ DS A0,FILMSG,X11 . STORE FOR POAQ )@@G@@SSIBLE USE IF I/O ERROR @E@@@@ DSL A0,72 . AR )@@G@@ZERO OUT A0, A1 @G@@@@ DS A0,FILMSG+2,X11 . ZERO OAS )@@G@@UT WORDS 2 AND 3 OF MSG @E@@@@ SZ FILMSG+4,X11 . AT )@@G@@SAME WITH 4TH WORD@F@@@@ L,U A1,050 . SET TOAU )@@G@@ MOVE FORWARD @C@@@@ LMJ A3,IOXI . DO IT AV )@@G@@@E@@@@ LMJ A2,TAPERR . ERROR - MAY BE EOF@D@@@@AW )@@G@@ J $-3 . KEEP MOVING @[@@@@. @A@@@@AX )@@G@@. PRINT ASG IMAGE BEFORE ER CSF$ @[@@@@. @E@@@@PRINT LA AY )@@G@@ A0,TAPE . GET TAPE NAME @E@@@@ TZ NOPTAZ )@@G@@ . IS N-OPTION SET? @F@@@@ J NSET BA )@@G@@ . YES, PRINT FILE W/O KEYS@F@@@@ SA A0,FILE BB )@@G@@ . NO, STORE IN PRINT IMAGE@ @@@@ LA A0,LINE BC )@@G@@@ @@@@ ER PRINT$ @D@@@@ J CSF BD )@@G@@ . DO THE CSF @D@@@@NSET SA A0,WOKY . BE )@@G@@N-OPTION SET@F@@@@ DL A0,FILE+1 . PRINT FILE WBF )@@G@@/O KEYS @ @@@@ DS A0,WOKY+1 @ @@@@ LXI,U BG )@@G@@ A0,0210 @ @@@@ LXM,U A0,WOKY @C@@@@ ER BH )@@G@@ PRINT$ . DO IT @[@@@@. @^@@@@. GENERAL CSF$ ROUTINE BI )@@G@@@[@@@@. @G@@@@CSF LA,S3 A0,LINE . GET NO. OF WBJ )@@G@@ORDS IN IMAGE @F@@@@ ANA,U A0,1 . SUBTRABK )@@G@@CT 1 FRO SVTP@E@@@@ LSSL A0,18 . SET UPBL )@@G@@ CSF$ PACKET@ @@@@ LXM,U A0,FILE+1 @C@@@@ ER BM )@@G@@ CSF$ . DO IT @C@@@@ J 0,A3 BN )@@G@@ . RETURN@[@@@@. @F@@@@. IMAGE FORMATION ROUTINE -- LMJ X9,ZOWIE BO )@@G@@WITH A1 = NEW STUFF @[@@@@. @F@@@@ZOWIE LA,S3 A2,LINE BP )@@G@@ . CURRENT IMAGE LENGTH @C@@@@ LA A0,BLANKS BQ )@@G@@ . BLANKS@F@@@@ TNE A0,IMIJ-1,X10 . IS LASBR )@@G@@T WORD BLANK? @C@@@@ J R . YES BS )@@G@@@E@@@@ AA,U A2,1 . NO, ADD A WORD @ @@@@BT )@@G@@ SA,S3 A2,LINE @ @@@@ AX,U X10,1 @F@@@@BU )@@G@@R SA A0,IMIJ,X10 . BLANK OUT NEXT WORD @F@@@@BV )@@G@@ LA A0,IMIJ-2,X10 . LAST NON-BLANK WORD @^@@@@BW )@@G@@ LA,U A3,5@ @@@@RSHIFT SA A0,STORE @F@@@@ BX )@@G@@ TE,S6 A3,STORE . IS LAST CHAR A BLANK? @G@@@@ BY )@@G@@ J LSHIFT . NO, FINISHED SHIFTING RIGHT @G@@@@BZ )@@G@@ SSC A0,6 . YES, SHIFT ONE CHAR TO RIGHT CA )@@G@@@ @@@@ J RSHIFT @A@@@@LSHIFT DS A0,IMIJ-2,CB )@@G@@X10 @F@@@@ TE,S1 A3,STORE . IS 1ST CHAR A BLANCC )@@G@@K? @F@@@@ J 0,X9 . NO, FINISHED -- RECD )@@G@@TURN @E@@@@ LDSC A0,6 . YES, SHIFT LEFT CE )@@G@@@ @@@@ SA A0,STORE @ @@@@ J LSHIFT CF )@@G@@@G@@@@EXIT LMJ A2,FREEIT . FREE THE FILE THAT'S ASSCG )@@G@@IGNED @E@@@@ TZ YOPT . IS Y-OPTION SET? CH )@@G@@@F@@@@ J ENDIT . YES, DON'T FREE TAPES CI )@@G@@@ @@@@ LA A0,FREE @E@@@@ LA A1,TAPE CJ )@@G@@ . GET TAPE NAME @F@@@@ DS A0,FILE CK )@@G@@ . STORE IN @FREE IMAGE @^@@@@ LXI,U A0,2@ @@@@ CL )@@G@@ LXM,U A0,FILE @D@@@@ ER CSF$ . CM )@@G@@FREE TAPE @D@@@@ENDIT LA A0,R2 . GET ACT. NO.CN )@@G@@@E@@@@ TE,U A0,061 . IS IT ACT. NO. 1? @E@@@@CO )@@G@@ ER EXIT$ . NO, EXIT NORMALLY @E@@@@ CP )@@G@@ LA,U A0,0774 . LOAD ACTIVITY MASK@G@@@@ ERCQ )@@G@@ AWAIT$ . WAIT FOR OTHER ACTS TO TERM. @F@@@@ CR )@@G@@ LA A0,(0201,OFF) . SET UP PRINT PACKET @D@@@@ CS )@@G@@ ER PRINT$ . SIGNOFF @E@@@@ ER CT )@@G@@ EXIT$ . EXIT NORMALLY @E@@@@OPTWRD + 0,0,CU )@@G@@0,0,0,0 . OPTION FLAGS, ETC.@B@@@@ + 0,0,0,0,1,CV )@@G@@1 . @#@@@@FTYP ',F2/ '@^@@@@ + 0 @#@@@@CW )@@G@@ ',F4/ '@#@@@@ ',F8/ '@#@@@@ ',F17/ '@#@@@@CX )@@G@@ ',F14/ '@#@@@@ ',F40/ '@#@@@@ ',FCS/ '@G@@@@CY )@@G@@TAPTYP + 0 . TAPE EQUIPMENT TYPE OF FIRST CZ )@@G@@@G@@@@ . TAPE (SVTP1): WILL BE USDA )@@G@@ED IN @G@@@@ . DYNAMIC ASG'S FOR DB )@@G@@2ND-NTH ACT.@D@@@@OUTLBL 'COPYG @OUT ' . @OUT LABEL DC )@@G@@@G@@@@QUAL RES 2 . NEW QUALIFIER FOR Q-OPTIDD )@@G@@ON @#@@@@PACKID RES 5 @#@@@@NPACKS + 0 @^@@@@FREE '@DE )@@G@@FREE '@A@@@@TAPMSG 'TAPE ASG FAILED: SEE A0' @G@@@@AMASK + DF )@@G@@01100000 . FILE-ASG'D ELSEWHERE MASK @E@@@@DMASK DG )@@G@@ + 010000700 . DISABLED MASK @D@@@@OFF 'EDH )@@G@@ND IN' . SIGNOFF MSG @^@@@@ASUM 'EOF ASSUMED' DI )@@G@@@ @@@@SK 'SKIPPING FILE' @ @@@@RL 'READING LABEL@@@@@'DJ )@@G@@@^@@@@NON 'NON-OU T '@#@@@@SLASH '/ '@#@@@@COMMA ',DK )@@G@@ '@E@@@@THOLD 'T-HOLD' . TAPE-HOLD MESSAGE DL )@@G@@@#@@@@THOLDPKT + 0 @^@@@@ + 6,THOLD @#@@@@ + DM )@@G@@0 @E@@@@WRONG 'WRONG TAPE' . WRONG-TAPE MESSAGEDN )@@G@@@#@@@@WRONGPKT + 0 @^@@@@ + 10,WRONG @#@@@@ + DO )@@G@@0 @F@@@@EACHTP RES MAXACT . STORAGE OF REEL NUDP )@@G@@MBERS @F@@@@INPK 'SVTP1 ' . INPUT PACKET (TAPEDQ )@@G@@) @#@@@@BLANKS ' '@H@@@@ + TINT DR )@@G@@ . INITIAL INTERRUPT RETURN LOCATION @F@@@@ + 020,0,0 DS )@@G@@ . READ FUNCTION INITIALLY @^@@@@ + 500,BUFFER-2DT )@@G@@@E@@@@ERRMSG 'I/O ERR XX ' . I/O ERROR MSG @G@@@@DU )@@G@@FILMSG RES 5 . FILENAME FOR I/O ERROR MSG DV )@@G@@@F@@@@WOKEYS RES 2 . FOR @USE AND N-OPTION DW )@@G@@@E@@@@ + 1*/('Z'-'A') . FOR A-OPTION CHECK@E@@@@DX )@@G@@ + 1*/('Z'-'F') . FOR F-OPTION CHECK@F@@@@ DY )@@G@@ + NOPACK,PACKID . PACKID READ$ PACKET @E@@@@ DZ )@@G@@ + ERROR,BUFFER . QUAL READ$ PACKET @G@@@@ + EA )@@G@@01300,LABEL+2 . MAIN ACTIVITY FORK$ PACKET @D@@@@ EB )@@G@@ + 24,MSG . FOR INIT. @E@@@@COMBUF RES 3 EC )@@G@@ . COM$ PACKET AREA @G@@@@HIEST + 0 ED )@@G@@ . HIGHEST SECTOR REFERENCED @E@@@@SUBCODE + 0 EE )@@G@@ . EQUIP SUBCODE @A@@@@MSG '1 SKIPPING @@EF )@@G@@@@@@@ FILE'@F@@@@OUTPK '$$X ' . OUTPUT PACKEEG )@@G@@T (DRUM) @G@@@@ + WINT . IOXI$ INT. REH )@@G@@ETURN AFTER WRITE @E@@@@ + 010,0,0 . WRITE EI )@@G@@FUNCTION @^@@@@ + 1792,BUFFER @F@@@@ + 0 EJ )@@G@@ . DRUM ADDR READ FROM TAPE@C@@@@ + 0 EK )@@G@@ . FILLER@F@@@@BUFFER ' ' . EL )@@G@@(FOR READING IN QUAL) @#@@@@ RES 35 @#@@@@IMIJ RES 500EM )@@G@@@G@@@@TAPTBL '.,8C,' . THIS STUFF ISN'T NEEDED EN )@@G@@AFTER @G@@@@ '.,6C,' . INIT, SO IT CAN GEEO )@@G@@T OVERLAYED @#@@@@ '.,8CB,'@#@@@@ '.,6CB,'@#@@@@ EP )@@G@@ '.,8C9,'@#@@@@ '.,6C9,'@#@@@@ '.,4C,' @#@@@@ EQ )@@G@@ '.,4CB,'@#@@@@ '.,12,' @#@@@@ '.,16,' @#@@@@ ER )@@G@@ '.,12N,'@#@@@@ '.,16N,'@#@@@@ '.,20N,'@#@@@@ ES )@@G@@ '.,3A,' @#@@@@ '.,2A,' @[@@@@START.@E@@@@ LA ET )@@G@@ A0,PLIN . GET PRINT PACKET @E@@@@ ER PRINEU )@@G@@T$ . PRINT SIGNON LINE @D@@@@ ER OPT$ EV )@@G@@ . GET OPTIONS @^@@@@ LA,U A1,1@E@@@@ TEEW )@@G@@P A0,WOKEYS+2 . CHECK FOR A-OPTION@G@@@@ SA EX )@@G@@ A1,AOPT . YES, SET IGNORE-FAC-REJ FLAG @E@@@@ TEEY )@@G@@P,U A0,1*/('Z'-'Y') . CHECK FOR Y-OPTION@G@@@@ SA EZ )@@G@@ A1,YOPT . YES, SET DON'T-FREE-TAPES FLAG@E@@@@ TEFA )@@G@@P,U A0,1*/('Z'-'N') . IS N-OPTION SET? @G@@@@ SA FB )@@G@@ A1,NOPT . YES, SET DON'T-PRINT-KEYS FLAG@E@@@@ TEFC )@@G@@P A0,WOKEYS+3 . CHECK FOR F-OPTION@G@@@@ SA FD )@@G@@ A1,FOPT . YES, TREAT REM. FILES AS FIXED@E@@@@ TEFE )@@G@@P,U A0,1*/('Z'-'Q') . CHECK FOR Q-OPTION@G@@@@ SA FF )@@G@@ A1,QOPT . YES, SET TO CHANGE QUALIFIERS @E@@@@ TEFG )@@G@@P,U A0,1*/('Z'-'R') . CHECK FOR R-OPTION@G@@@@ SA FH )@@G@@ A1,ROPT . YES, ALL FILES GO TO REM DISC @D@@@@ TEFI )@@G@@P,U A0,1 . Z-OPTION SET@E@@@@ SA A1,ZFJ )@@G@@OPT . YES, SET FLAG @E@@@@ TOP,U A0,1*/('Z'FK )@@G@@-'W') . IS W-OPTION SET? @C@@@@ J $+5 FL )@@G@@ . NO @H@@@@ SA A1,WOPT . YES, DON'T TFM )@@G@@OUCH WRN-ONLY DIS. FILES@F@@@@ SA A1,AOPT . FN )@@G@@SET A-OPT FLAG, TOO @ @@@@ LA,U A0,0500 @G@@@@ FO )@@G@@ SA,T3 A0,DMASK . DON'T CHECK FOR WARNING-ONLY @D@@@@FP )@@G@@ TNZ QOPT . IF Q-OPTION @F@@@@ TZFQ )@@G@@ ROPT . OR R-OPTION IS SET, @F@@@@ J FR )@@G@@ $+2 . READ THE INFOR TABLE @E@@@@ J FS )@@G@@ NOCARD . IF NOT, DON'T @E@@@@ LA FT )@@G@@ A0,STORIT . GET READ$ PACKET @C@@@@ ER READFU )@@G@@$ . DO IT @D@@@@ TEP A0,STORIT+1 . FV )@@G@@INFOR TABLE?@F@@@@ J $-3 . YES, READ SOFW )@@G@@ME MORE @E@@@@ TNZ QOPT . IS Q-OPTION FX )@@G@@SET? @F@@@@ J NOQ . NO, DON'T READ QUAFY )@@G@@L CARD@E@@@@ LA A0,WOKEYS+5 . GET READ$ PACKET FZ )@@G@@@E@@@@ ER READ$ . READ QUAL CARD @E@@@@GA )@@G@@ LA,U A0,0,A0 . GET WORDS READ @C@@@@ GB )@@G@@ TNZ A0 . ZERO? @E@@@@ J ERROGC )@@G@@R . YES, STOP IT HERE @D@@@@ DL A0,BUFFER GD )@@G@@ . GET QUAL @D@@@@ DS A0,QUAL . GE )@@G@@STORE IT @E@@@@NOQ TNZ ROPT . IS R-OPTION GF )@@G@@SET? @C@@@@ J NOCARD . NO @G@@@@ GG )@@G@@ LA A0,WOKEYS+4 . YES, GET PACKID READ$ PACKET @C@@@@GH )@@G@@ ER READ$ . DO IT @E@@@@ LA,U GI )@@G@@ A0,0,A0 . GET WORDS READ @D@@@@ TG,U A0,6GJ )@@G@@ . MORE THAN 5?@G@@@@ J ERROR GK )@@G@@ . YES, ONLY HAVE ROOM FOR 5 @ @@@@ ON SP40++SP24GL )@@G@@@F@@@@ JZ A0,AROUND . IF NO PACKS, SKIP TEST GM )@@G@@@G@@@@ L,SPPART A1,PACKID . GET PORTION OF 1ST PACKIGN )@@G@@D @^@@@@ ON SP40@E@@@@ TE A1,SP40F GO )@@G@@ . REM 8440 PACK? @G@@@@ SZ F40OK GP )@@G@@ . NO, DONT TRY TO CAT ON REM F40@^@@@@ OFF SP40@^@@@@GQ )@@G@@ ON SP24@E@@@@ TE A1,SP24F . GR )@@G@@REM 8424/25 PACK? @C@@@@ SZ F24OK . NO GS )@@G@@@^@@@@ OFF SP24@]@@@@AROUND . @ @@@@ OFF GT )@@G@@ SP40++SP24@C@@@@ TNZ A0 . ZERO? @E@@@@GU )@@G@@NOPACK SZ ROPT . YES, KILL R-OPTION@E@@@@ GV )@@G@@ SA A0,NPACKS . STORE NO. OF PACKS@E@@@@NOCARD LAGW )@@G@@ A0,WOKEYS+6 . GET FORK$ PACKET @F@@@@ ER GX )@@G@@ FORK$ . FORK MAIN ACTIVITY (#13)@C@@@@ ER GY )@@G@@ EXIT$ . EXIT @ @@@@LABEL LA,U A0,020 @ @@@@GZ )@@G@@ SA,T1 A0,INPK+3 @E@@@@ SZ X11 HA )@@G@@ . INITIALIZE X11 @ @@@@ LA,U A0,INPK @F@@@@ HB )@@G@@ ER IOXI$ . READ 1ST RECORD OF TAPE @E@@@@TINT HC )@@G@@ TZ,S1 INPK+3 . DID I/O GO OKAY? @G@@@@ J HD )@@G@@ ISEOF . NO, CHECK FOR EOF CONDITION @F@@@@ HE )@@G@@ DL A0,NON . GET 'NON-OU T ' MSG @ @@@@ HF )@@G@@ SA A0,MSG+2 @ @@@@ SA,T1 A1,MSG+3 @F@@@@ HG )@@G@@ DL A0,SK . GET 'SKIPPING FILE' MSG @ @@@@ HH )@@G@@ DS A0,FILMSG @ @@@@ DL A0,OUTLBL @F@@@@ HI )@@G@@ DTE A0,BUFFER-2 . FILE WRITTEN BY @OUT? @E@@@@ HJ )@@G@@ J $+2 . NOPE, SKIP IT @D@@@@ J HK )@@G@@ OK . YES, OKAY @ @@@@ SZ TEMPHL )@@G@@1 @E@@@@ LA A0,WOKEYS+7 . SET UP COM$ PACKETHM )@@G@@@ @@@@ SA A0,TEMP1+1@ @@@@ SZ TEMP1+2 HN )@@G@@@F@@@@ LA,U A0,TEMP1 . GET COM$ PACKET ADDR HO )@@G@@@F@@@@ ER COM$ . DISPLAY 'SKIPPING' MSG HP )@@G@@@F@@@@ LA,U A1,050 . GET SET TO MOVE AHEAD HQ )@@G@@@C@@@@ LMJ A3,IOXI . DO IT @F@@@@ J HR )@@G@@ ISEOF . ERROR - CHECK FOR EOF @E@@@@ J HS )@@G@@ $-3 . CONTINUE MOVING @E@@@@ISEOF LA,S1 HT )@@G@@ A0,TAPE+3 . GET I/O STATUS @E@@@@ TE,U A0,1HU )@@G@@ . IS IT AN EOF? @F@@@@ LMJ A3,ERRCOM HV )@@G@@ . NO, SOME OTHER ERROR @F@@@@ J LABEL HW )@@G@@ . TRY AGAIN, NEXT FILE @E@@@@OK LA A0,RLST2 HX )@@G@@ . GET FIRST REEL NO.@D@@@@ SA A0,EACHTP HY )@@G@@ . SAVE IT @^@@@@ SZ A0 @D@@@@ TZ HZ )@@G@@ ZOPT . Z-OPTION SET@F@@@@ J ACTS IA )@@G@@ . YES, USE ONLY THIS TAPE @D@@@@TEST TNZ RLST2+1,A0IB )@@G@@ . MORE REELS? @C@@@@ J ACTS . IC )@@G@@NO @E@@@@ LA A1,RLST2+1,A0 . YUP, GET 'EM! ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@ ENP @@]@@@@@@GXEIP )@@G@@ENPS @@]@@@@@@GXEINC @@]@@@@@@G)#SAVR @@#@@@@@@G)%IQ )@@G@@RSTORR @@#@@@@@@G-=UNOPT @[X@#MVTOT @@@@@#XOPT IR )@@G@@@[5@#HXXOPT @[X@]FZOPT @[5@#A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@DB1 @@@@@ DIRSIZ @@@@@@EQUCDL IU )@@G@@@@@@@CFJUMPS$ @@@@@[FJUMP$ @@@@@]FLOP$STOP @@@@@@FSKIP$ IV )@@G@@@@@@@[FTIO$ @@@@@[IB1 @@@@@^LASTD$ @@@ 1^RPRL IW )@@G@@@@@@@ SLT$ @@@^@@U1110T @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@[PK1031]@@X5A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@)@@[S@@@@@@@C?]@@[C0]@@[C4]@@[C)]@@@C=]@@@C*]@@@C?]@@@C0]@@@C4]@@@@@@@@IIZ )@@G@@@@)@@BAA@@@])@F[C@[]@.]@.]@/@@@@@@@@ ?@@@@ 0@@@@ 4@@@@ED IVILEGNON-PRJA )@@G@@C)]@@[C=]@@[C*]@@[AB@@@])@O[[]@.]@.]@.]@.]@.]@.]@.]@/@ =@@@[ *@@@[ ?@@@[JB )@@G@@ 0@@@[ 4@@@[ )@@@@ =@@@@ *@@@@AC@@@])@W[D]@/* @*]@)C]^]@@@@@[=@@@@CO@@@$JC )@@G@@CS@@@$CW@@@$@@@@@@@[Q@[O@[Q@@"@]Q@@* )@@@[AD@@@])@>@L][[][@@)@*@8@@@@@@@JD )@@G@@T TOTAHIGHESLAST NO. MAX [*@@@@[)@@@@AE@@@])@\[S@@@@@@@JE )@@G@@LOG CATA L AF@@@]JF )@@G@@)@'[S@@@@@@@ACK TRREF. ASG QUP OPT EGRAN ATED CRE TAPE JG )@@G@@BACKUPAG@@@])[ [S@@@@@@@TE N DAOJECT PRUNT ACCO<<<<< E<<<<>>>>F >>>>>AH@@@])[K[S@@@@@@@++++++++++++++++++++++++++++++++++++JI )@@G@@++++++ TIME K DATEPOS BLUMBER AI@@@])[V[S@@@@@@@++++++++++++++++++++++++JJ )@@G@@++++++++++++++++++++++++++++++++++++++++++AJ@@@])[&[K@])O#A@G*@@@@DATE: JK )@@G@@ENTER @@.@@$@[]@[,@[[@@$/S@@@@++++++++++++++++++++++++AK@@@])[0[@@@@@@@@JL )@@G@@)@@@F#@@@@@@C@@@[8ROR TER ERPARAMEROR PEC ERDATE STER: PARAMEAL@@@]JM )@@G@@)@[[#][D][^K)#K0@K)OK)PK0@@@@@+@@@@@C@@@@@'=@@@@C@@@[9^:0@@@=8@@@)C0@@@^JN )@@G@@'=@@@@AM@@@])@D[#@K)#K^C[4C =G@^C]^C 0@@@@[@@@@@0W@@@NC@@@[%/,0@@@*)@@@@JO )@@G@@/K@@#O(*@@@@/@K@@GAN@@@])@L[F][)K)CK)S^C]^CAL]@)0W@@@LC8@@@=[4@@@@0W@@@#JP )@@G@@C8@@@![C@@@@0W@@@IO;@@^@CC@@@@AO@@@])@U[#][(]@-][?K)CK)WK)CK)X@@@@[4@@@@JQ )@@G@@0W@@@A[4@@@@0W@@@OC8@@@0[4@@@@0W@@@P[4@@@@AP@@@])@+[#]@-@K)CK^@()@-@/@@@JR )@@G@@@@@@@@[@@@@H'=@@@@C8@@[?/K@@[N/K@@[[*W@@@L/K@@@$*W@@@#AQ@@@])@%[N#@[][/^JS )@@G@@@K0@@@;CK@@Y;G@@@AH8@@00')I@@-C8)@@]/K@@@.%8@@@[C8H@@@'=@@@@R#@@[:AR@@@]JT )@@G@@)@4[E@K0@K^C]^[@@@@@@@@@/K@@[N/K@@[[*W@@@L8#)@@0')I@@=H8@@[@:8)@@]G@@@@HJU )@@G@@T8@@@EAS@@@])@.[##@[]][#@[]]@()@-)@O^G@@@@[C@@[!C8@@@_[^@@[?C8@@[0/K@@@@JV )@@G@@C@@@[;/K@@@@C@@@['AT@@@])[ [E()@-@/CS@CKJ))CS@@@RF@@@$/K@@@_%8@@@[C8H@@@JW )@@G@@'=@@@@R#@@[:[@@@@H'=@@@@C8@@[?AU@@@])[I[]([]-)@-[^)CK#*S@]^[@@@@@@*W@@@MJX )@@G@@C90@@[C@K@[/[=K@@@/K@@@_2CH)@@C@K@[/N8K@@@AV@@@])[Q[F@^C]^@K0@K0@K^CC0@@JY )@@G@@[?)@@@/K@@[V*@H@@X[?!)@XC8)@@G/K@@[&*W@@@F:;)@@^/K@@[UAW@@@])[Z[F]]K[]@)JZ )@@G@@K)CK)CK)C@@@*W@@@D(W@@@B[W@@@B @@@@G*W@@@BC8@@@[Q;K@@@ @@@@N[?)@@@AX@@@]KA )@@G@@)[*[#@K^C]^C]^[@K0@K)Z@@@@@@@@'=@@@@C@H)@X/K@@[2/K@@[,*W@@@M*W@@@Q/ 0@[,KB )@@G@@/K@@[2AY@@@])[0[F#@[@K)#K[]@X]@GK0@@R@K@[/P;K@@[R\K@@@[?@@@@C8@@@]/K@@]IKC )@@G@@(?@@@@/K@@[,*@H@@XAZ@@@])[9[F]]OK[]]SK)$K)*K)$@@[40@@@C40@@@C4)@@@P;L)@[KD )@@G@@/,)@@@(@@@@H/K@@]#%8@@@-C4@@@@BA@@@])]][F]])([ECS@@-[G@@@@@@O#0@@GT80@@EKE )@@G@@/,)@@@0@@@@GP;@@@0')[)@] @@@@JR8)@@@[4)@@@BB@@@])]F[#@EKO*[M](]@)([Q-[S-KF )@@G@@@K@@@@*W@@@S9*)@@@C8)@@@*W@@@OC8)@@@/K@@]LC8)@@@8#K@]BBC@@@])]N[F]@-]@H@KG )@@G@@K0@[]@X]@-@@/K@@#H2WF)@@[?@@@@C8@@@[N8K@@UR]0@[//K@@#H*4@@@@^Z0@@]BD@@@]KH )@@G@@)]W[F'@)([UC[M]4K) K]= 0R90@@B/K@@]&^70@@@C80@@]R90@@ /K@@]+C80@@LR90@@[KI )@@G@@/KFZ_"BE@@@])]>[]K)LK)\K)\K)\EKR*K^C@@@@@@/,0@#1*W@@@]R8)@@D9%K@@D9,K@@DKJ )@@G@@*4@@@[9,Z@@@C80@@NBF@@@])]![F]@-@K)#K]=A]@-@+)C@/K@@]1/K@@#O9"Z@@@/K@@#XKK )@@G@@R'K@@@/K@@]3(*@@@@/K@@]1(W@@@JBG@@@])]6[#]@O([Y-[Y)CKR*KN CF0@@@@@9,M@@@KL )@@G@@R8)@@D/,)@@@(4@@@[/K@@].*0@@@@R8)@@^^70@@@BH@@@])]"[#]@-@K)CK^C^OCF4CF4CKM )@@G@@F0@@@@*)@@@@9?@@@]*4@@@@9?@@@]/K@@#C*W@@@C/,0@#1*W@@@]BI@@@])#A[#][ ][^(KN )@@G@@[UO)1K]=AM@O)2@@@@R'K@@@/K@@#XR'K@@@/K@@#XR'K@@@R90@@#9*@@@@9?@@@LBJ@@@]KO )@@G@@)#I[](@M C]=CG2=A+@-)@-[@@@@@@/K@@@@C@@@[./K@@#XR'K@@@'=@@@@R;K@@@&;@)@@KP )@@G@@R;@@@@BK@@@])#Q[#]].]]T]]/K)\K)\EKU>C]0@@@R;K@@@R'K@@@C])@@F*0@@@[ @@@@QKQ )@@G@@C]K@@D/,)@@@(4@@@[BL@@@])#Y[F]#S(@Q]^AU^[]@-[,@@@@@@@@/,0@@@/K@@#$(W@@@HKR )@@G@@'=@@@@R;K@@@&;@)@@R;@@@@/,0@@@BM@@@])#$[#]#-]#=/S]@0/S#@@/S@]=[*@@&;@)@@KS )@@G@@R;@@@@@@@@@@@@@@#?@@@@@[@@@@@@/K@@@@/,0@@@BN@@@])#\[](@W-[&CS@]A@]@-@Y@@KT )@@G@@@@@@@@+])@@[8#K@#2')H@@L:8@@@$')H@@]C8K@@F'=@@@@R;K@@@BO@@@])#7@;]@.@K)\KU )@@G@@[]@X]]S@@@@@@@@@8@@@@@@@/,)@@@[?@@@@C8@@@[/KF@@@9%)@@D9')@#;+]K@@@BP@@@]KV )@@G@@)[8@0(@+O)NE[K])@@@@@@@@@@@@@@@@@@@@@@@@@@@[#@@I@@[@@@@[#@[5@[#@[2@@E@@@KW )@@G@@@@P@@@BQ@@@]@@@@@@@@@@@@)@@@F#@@@@@@C@@@[8ROR TER ERPARAMEROR PEC ERKX )@@G@@DATE STER: PARAMEAL@@@]@@^@@]@@A@@'@['@@D@]Y@@@@@@@["@@@@#"CNT1 KY )@@G@@CNT2 FLAGS MRFLGS LINE2 FLAG3 FLAG4 KZ )@@G@@FLAG5 OPTIONS QFSEG QF000 DIRSEG ECODE LA )@@G@@CHEKPRTSG MFD100 ACMASK DATREF PCT PCT$ LB )@@G@@PROJPK FITEM$ OPTWRD POLTRAN REVT REVO LC )@@G@@REVD REVR REVV UNCHEK REVG TREAD$ LD )@@G@@PRINT$ MFD900 RPRL RPR POUT EDPACK LE )@@G@@SIZE SPECER SZLOD SZBAK SZCHK NSZOPT LF )@@G@@UNOPT SZOPT LI0 MI0 MFD$ AAOPT LG )@@G@@FFOPT GBU LOAD$ XXOPT KKOPT DSEG LH )@@G@@DIREND DIRINT DIRECERR IN2000 @@[@@@@@@@@@GOON LI )@@G@@@@[@@@@@@@]UQOPT @@[@@@@@@@]XPOPT @@[@@@@@@@])AOPT LJ )@@G@@@@[@@@@@@@]=FOPT @@[@@@@@@@]6ZOPT @@[@@@@@@@#FXOPT LK )@@G@@@@[@@@@@@@#MKOPT @@[@@@@@@@#QG9K@@[C9@@M5![U@#H/?K YG! U@@#[ U@@#LL )@@G@@R;K@@#/,0 X-/K@ E[R'W@@@)@@[S@@@@@@@?? ?? 1004 9300 ?? MHSP LM )@@G@@HSP ?? PTP ?? CARD AA@@@])@F[S@@@@@@@?? ?? ?? ?? LN )@@G@@?? CONSOL0770 ?? ?? ?? ?? AB@@@])@Q[S@@@@@@@MI0 ARB LO )@@G@@?? ?? ?? C/SP CTMC WTS CTS ?? ?? AC@@@])@-[@(@&CKNCLP )@@G@@KNCKNCKNCKNCKN@@@@[=@@@@[)@@@@[4@@@[[*@@@[[?@@@[[0@@@[@@@@@@@@W@@@AD@@@]LQ )@@G@@)@(@-]]T]]T]]T]]S@)@@@+K)NK)N@;C@@@G[WI@@MCCI@@MC8)@@[[4@@@@[0@@@@[?@@@@LR )@@G@@[*@@@@AE@@@])@^[#][H@K)#K^CD1]]X]@C@@@@@@@(0@@@@A]0@@@O'0@@[R]0@@@/K@@@TLS )@@G@@*0@@@@8#)@@[[?I@@MAF@@@])@G[F@K)[^C@O[@K)XK^CE@@R]0@@@/K@@@R(@@@@F/#K@@RLT )@@G@@/[0@@RAE0@@@O'0@@[RE0@@@/K@@@KAG@@@])@P[#][5]]-]@-]]=(@Y-@M-@G-@^@*0@@@@LU )@@G@@(*@@@@/,0@@@C/@@@@/K@@@@*W@@@DA]0@@@OA0@@DAH@@@])@X[F@K)N^C^L][GK)FK)N@@LV )@@G@@C0K@@L/,0@@@C8@@@P0@@@@HC8@@@T/,0@@@C8K@@^CC@@@P/K@@@>AI@@@])@&[F#@@^G@@LW )@@G@@K0@@@@@@@@@@=8K@@KC8@@@V')I)@<=8K@@[C8@@@R')I)@<>8K@@CC8@@@PC@)@@!AJ@@@]LX )@@G@@)@\[F#@@^G@@K0@K)NK)A@@@*4@@@@CS@@@L')I)@<=8K@@]C8@@@W')I)@<=8K@@)C8@@@GLY )@@G@@')I)@K]4 SQ)?K)>^G@@+@K@@,R#Y@@@O\)@@ER;)__":8@@@SR;)__"/K@@[,(?@@@EMF )@@G@@/K@@[,AQ@@@])[\[F][G^[][5@K)XK0@@@@@;^K@@YC@)@@\C@K@@M/K@@[6(^@@@L/#)@[6MG )@@G@@R#K@@I=8@@@CR7@@@HAR@@@])[8[F]]T]]SK)GK)N^C^L]@0/,0@@@C/@@@Q/,0@@@C8K@@^MH )@@G@@C^@@@J/,0@@@C/@@@L[@)@@][)K@@[AS@@@])][[#][H][P]@D@K)AK[]@0@@@@@@@/,0@@@MI )@@G@@C/@@@=/K@@]Y**@@@@/K@@]R*0@@@@/,0@@@C@@@@MAT@@@])]D[F][H@K0@K)UK^C^1][^@MJ )@@G@@C/@@@Z/,0@@@C8K@@^C^@@@I/K@@]Y/,0@@@C@@@@0/K@@]I1@@@@GAU@@@])]M[F]@1][GKMK )@@G@@)LK^C^4@K)G@/,0@@@C/@@@Z/K@@]Y(^@@@O/K@@]Y/,0@@@C8K@@^CC@@@R/,0@@@AV@@@]ML )@@G@@)]V[F][GK)V^C#[][H@K)N@@C4K@@F/K@@]:1@@@@FC8@@@ /,0@@@C/@@@%/,0@@@C8K@@AMM )@@G@@C8@@@UAW@@@])]=[M[]@C[]@!][H@@/,0@AZ9?)@@[/,0@@@C8@@@!=8K@@KC8@@@#*)@@@@MN )@@G@@C8@@@#=8K@@^C8@@@?AX@@@])],[](@&-@6CK *KD*[M[H][?@@@@@/,0@@@C8@@@#/,0@AZMO )@@G@@9?)@@#/,0@@@C/@@@*/,0@@@C8@@@[AY@@@])]6[]K)FK)NK)T^C]4C]^CFK@@@@@@/K@@@@MP )@@G@@*W@@@Q/,0@@@C/@@@)/,0@@@CO@@@L/,0@@@C/@@@(AZ@@@])]"[F@K)NK)&^C#^C^1][?@@MQ )@@G@@C/@@[+/,0@@@C8K@@GC8@@@ /,0@@@C/@@[P9*@@@G9?@@@B/[0@#.BA@@@])#B[#]@1]@T@MR )@@G@@K)NK)PK^G@@@@@@@@@C8K@@AC8@@@1/K@@#K/,0@@@C@@@@N/K@@#H*)@@@@/,0@@@BB@@@]MS )@@G@@)#J[#][!@K)]K^G@^CD=G@^CD)@@@@[@@@@OC@@@@49*@@@M9?@@@2/K@@#S()@@@@/BK@#)MT )@@G@@/,0@@@BC@@@])#R[F@K0@K0@^CD=CD-]]T@@/K@@^^[)@@@AC8@@@"[@K@@M[)@@@L;^@@@YMU )@@G@@C@K@@\C@@@@5/K@@^^BD@@@])#)[F][5@^C#OCBL][?K)G@@/,0@@@C/@@[2/,0@@@C8K@@AMV )@@G@@C8@@@F/,0@@@C/@@@[/K@@#S(@@@@FBE@@@])#([F][4K)L^C#^CBL][^@@@C/@@@[/,0@@@MW )@@G@@C8K@@^C^@@@D/,0@@@C/@@[5/,0@@@C8K@@#CS@@@EBF@@@])#2[F]@5][4K)MK)X^C^-]@0MX )@@G@@/,0@@@C/@@[_/,0@@@C8K@@]C0@@@C/,0@@@C8K@@]C4@@@C/,0@@@BG@@@])#;[F][5][KKMY )@@G@@^C^4@K)NK)&@[)@@@A*@@@@EC8@@@^/K@@^^0@@@@G/#K@^#C8@@@"/,0@@@C@@@@CBH@@@]MZ )@@G@@)^^[F][G^CD)K)&K),K)\@@@'=@@@@R#@@@@[)@@@A=8K@@[C8@@@D[)@@@A=8K@^@C8@@@\NA )@@G@@CWK@@GBI@@@])^H[#]@L]@D@K)NK[]@L@@@@@@@@@@/K@@^$[O@@@@P;@@@[/@@@^$C^@@@ONB )@@G@@/K@@^P(0@@@@ @@@@@BJ@@@])^P[F]@D@K^CBO@K)^K^@@@@/#K@^+/[0@^$[4@@@@P;@@@[NC )@@G@@/@@@^WCO@@@L/#)@^W/K@@^$*)@@@@BK@@@])^Y[F][5@^C[^C^1@K)XK)^@[0@@@@CS@@@BND )@@G@@/K@@^$>8@@@^C4@@@G[S@@@@P;@@@[/@@@^$C0@@@BBL@@@])^$[#]@L]@T@K]=#0O)ZK)0@NE )@@G@@@@@@@@'=@@@@R;K@@@&;@)@@R;@@@@/K@@^\/K@@^:*0@@@@(@@@@@BM@@@])^\[#]@D]@H@NF )@@G@@EKB*K^+^[+A@@@@@@@C8@@@6/,0@@@C/@@@ /,0@@@C/@@@@/K@@ )()@@@@(0@@@@BN@@@]NG )@@G@@)^7[EK)VK)NK)T^C^1]@!][G0@@@@G/,0@@@C8@@@P0@@@@HC8@@@T/,0@@@CC@@@O/,0@@@NH )@@G@@C8K@@GBO@@@]) @[F][H@K^G@[][?K)NK@@@/K@@ X(^^@@OR9@@@B/,0@@@C8K@@GC8@@@8NI )@@G@@/K@@ Y/K@@ #*^@@@IBP@@@]) D[F]]^@K^CF=CF2=[8@@@@C/@@@@'=@@@@R#@@@@/K@@ PNJ )@@G@@?@@@@HC8K@@"(@@@@NC8K@['/,0@@@BQ@@@]) M[#]@=K)GK)8)@@]'=@@@@BV@@@]) '[N]#GK^C@=@^[@@C8@MI1/K@@AD/K@@A#*@@@@T(@@@@UNQ )@@G@@/K@@AD*)@@@@/K@@AD>8)@@^'=@@@@BW@@@])A^[##@@(@'-)@O0@K)3K)#K@@@@@@>8)@@CNR )@@G@@/K@@AW*0@@@@'=@@@@C8@@@)[^@@@-C8@@@@[C@@@)BX@@@])AG[#@^G@]=]UA@]^]U@-[+@NS )@@G@@@@@@@@/,0@@@/K@@AW0@@@@@[^@@@-C8@@@@[C@@@)C8@GTB/K@@AWBY@@@])AO@;]#C/S]]NT )@@G@@K/S][G/S][GES@CKT)@@@@@@'=@@@@C8@@@)@@@@@@@@@@@@@@@@@@@@@@@@/K@@@@BZ@@@]NU )@@G@@)AV[N@K0@K)\K)(@@@;G)@@AP;K@@[/KF@@@%9@@@ +80@@_R;K@@G/K@@@@'=@@@@R#@@@'NV )@@G@@/K@@ALCA@@@])A>@F@@@@@@@)@![@@@@@@@@C 1*** MI SE***BAD*UNL* NW )@@G@@._____@@[@@@/K@@A)CB@@@]R#0^#?Q#0^#*R#)^#?QB)^#,AF)^#\M#\)@@AF0^#,RB@^#,NX )@@G@@R])^GS/,0@H,RB@^#,RFK^#*)CK^#$AF?@@@R;)@@@RB0^#,PF0^#1W^)^#1OF)^#0/K@@W;NY )@@G@@/,0@@@/K@@Y3/S@@@@;G)@@[/@)@XV/C0@X[RNY@@@ABI@@@/K@@X#RJY@@@AFI@@@/@K@W;NZ )@@G@@1@H@@@/,0@@@/K@@W;R#@@@H/K@@W;RBK^#,RB!@@@/@:@@@RJ0^#\AB)^#,?80@@[/K@@WVOA )@@G@@P#0^HXNGK^#\!80@@[N@K^HXAJ0^#\O#)^#?R#0^#?QF0^#,M#\)@@AF0^#,/K@@XD/,0@XDOB )@@G@@R;0@X&AB0@W/R#0@X0A#0@W7R;0@V#AB0@YSAB@^#0R#0^#R'^@[D,/K@@ZC/,0@XDRBK^#-OC )@@G@@/,0@@@/K@@VG/S@@@@AB@^#0R#0^#RR#@^#-'^JK@#R#K^#?Q#K^#-RB@^#0RF?@@@+8)Z__OD )@@G@@AF0^#-:C@^#\/K@@ZKO#@^#?/K@@X;N@K@@J!^0^HXN^K^HXPB0^HXM#W)@@Q#G@@@!80@@[OE )@@G@@/K@@X9RB)^#0RBK^#,AB)^#,RJ0^#\?80@@[/K@@WVP#0^HXNGK^#\!80@@[N@K^HXAJ0^#\OF )@@G@@AB!@@@O#)^#?R#0^#?QF0^#,M#\)@@AF0^#,RB0^#,R;)@@@PF0^#1W^)^#1OF)^#0;G)@@[OG )@@G@@/@)@V@/C0@YX ^I@@@RNI@@@/K@@YZ CI@@@RJI@@@/@@@YRR#/@@@-@0^#$/D@@W;/K@@Y$OH )@@G@@/,0@@@/K@@Y$R#@@@H;G)@@[/@)@Y7/C0@Y!RNY@@@ABI@@@/K@@Y\RJY@@@AFI@@@/@K@Y$OI )@@G@@0@H@@@/K@@Y=/K@@XBRF0^#*)^0^#$[DG@@@/K@@Y$/,0@XDAB@^#0R#0^#RR#@^#-'^JK@#OJ )@@G@@R#@@Y0R#K@X^A#K@Y0A#@@X^R#@^#$;@@@@MA#@^#$R#0^#R'^JK@ R#)^I;O;)@@[A#)^I;OK )@@G@@RB0^#RRZJ@@#%8@@@[/K@@X\R;@@@@R;0^#R'^@[C'/K@@X\N@K^HXAB@^#,O#@^#?M#W)@@OL )@@G@@P#0^HX?80@@[/K@KWWN@K@@JQ#@^#*O#@^HXM#W)@@/K@KWW/K@@ZW @@^#\R;@@Z)AB@@WWOM )@@G@@RB0^#, ^J@@@/K@@YN/S@@@@RA0@Z;^@@@=/,0OHY/K@@Z7RB0@&3R#\@@HO#)^H@A#\@@HR#@@@HO#@^^4/K@@)]R#@@@HOO )@@G@@/K@@)P/,0@Z>/K@@)]C9@@Z"[ @@)P/K@@Z_'^@@+GRB)^^6C[@^^4/\0@+ R#K^^5RF!@@SOP )@@G@@O;)@@[AF!@@SRB.@@S:^\@@['^@@>DR'0^^_/\)@CS(@@@@G/K@@)GA#K^^5/K@@)IC9@@)MOQ )@@G@@[ @@)I/K@@)PRBK^^6/,0OGR/K@@%>/K@@)P/K@@)Q/S@@@@RA0@)RR#0@@G;C0@@M+@@^^9OR )@@G@@)@0@@HP#@@@HRBK^^\[[H@@@K8K@@[K^!@@@O;0@@[?^0^^0/K@@-F[[@^^;K8)@@@O;0@@[OS )@@G@@?^0^^0/K@@)0RB0O^';@0@@MA#.@@@'^@@+NC[@^^;/K@@)YL^)^^0O;0@@]K^0^^;)[@^^9OT )@@G@@[[K^^;H H@@@] H@@@(@@@@J/K@@)_E[@@@JRF0^^0O;0@@[AF0^^0/\0@+ P#)^^8RB.@@@OU )@@G@@;@0@@MA#"@@@O;)@@['^@@+NC[@^^;[[H@@@K8K@@[K^)^^;O;0@@[!^0^^0/K@@)0ABK^^'OV )@@G@@/K@@-_C9@@-K[ @@)P/K@@-L'^@@+GL8@@@[C H@@@RFX@@@RB)^^6/\0@+ /K@@-QP#@@@KOW )@@G@@L8@@@[C[H@@@/,0@)Y(^G@@@/K@@-ZO;@@@[/K@@)DR#K^^5RB.@@S'^@@>DL8@@@[*@@@@GOX )@@G@@1@H@@@/K@@)DC H@@@[[@^^;R#K^^'K H@@@[ X@@@RB)^^\/,0@-B/K@@-VAFK^^6(^G@@@OY )@@G@@/K@@-3O;@@@[/K@@)DAB)@-;RBK^^5RB.@@S'^@@>DL8@@@[*@@@@G1@H@@@/K@@)DR;)@@@OZ )@@G@@C H@@@/\0@+ /K@@-\RF0^^0O;0@@[AF0^^0/\0@+ AB)^^\/KF@@@O#@^^8O#)^^8+D@^^9PA )@@G@@N@K@@LM#?)@@P#@^^8/KJ@@@/S@@@@AB@@+LRB0K&3R#@^^6'^JK@#R;@@@@/K@K+G/S@@@@PB )@@G@@AB@@+7AA0@+8RBK^A0PB)^A0K8)@@[AF.@@@C @O^1G9@@@[[ @O^1[ H@@@/K@@+ZRF@^^0PC )@@G@@ABH@@[?80@[&R;0@[&AF0^A0*^@@&A/K@@+!P;)@@#O;K@@]O#K^^8 @@@@KG[H)@@8#)@+%PD )@@G@@[[H@@@'^@@<]C[@^A0R#K^A1[[@^A6AZK^A2R;@^A2'=@@@[RFK^^\RB)^A0/\@@+'R;@@@@PE )@@G@@R'0@@@/K@K+NAF)^^\A#K^A0K8K@@@A#)^^0 @H@@[O;K@@]ABK^^\/KG@@@/S@@@@0@@^A5PF )@@G@@'=@@@A(4@^A5/K@K<]C9@@@]%5@^A5/K@@%2/K@@!R;0@)JAB0@)IR;@@@@RBK^GRR'0^ 7/\)@C#RB@@=^RBK^GRR'0^^_/\)@C#PL )@@G@@/K@K*^H@@0'^@@=!O;K@@[!@K^A\:@K^A\PM )@@G@@/K@@=JR#K^^1(^@^A;/K@@=(:8K@@@/K@@=<'^@@=!RBK@=WRF!@@@A#K^^1A#)^A1R;K@@@PN )@@G@@/K@@=,R#!@@0P#)^^8A#!@@0/K@@=PR#!@@0O#)^^8A#!@@0/K@@=I/S@@@@ABK@=/(^@^A;PO )@@G@@/K@@=_'^@@>2/,0@>W/S@@@@R#K^^5R'0^ 7/\)@COR#K^^5R'0^^_RBH@@SO;@@@@/\)@COPP )@@G@@R;K@@@(@@@@H/K@@>AA#K^^5'^@@>%RBK@>!OFK^A;ABK@>!R#K^^5/K@K=!R;)@)DA#)@>DPQ )@@G@@/K@@>M/S@@@@AB0@>!D8@@@@A#H@@S*4J@@[/K@K>D'^@@>2/,0@>W/K@@>UR'0^ 7/\)@CSPR )@@G@@*@@@@G'^@@>%R#0^^5R#J@@SOB@@='/K@K>DR#K^^5/K@@>PR#K^^5A#!@@SR#@@@J*4I@@[PS )@@G@@/K@@>)/K@@>-P#@^^4O;@@@[/KF@@[PFG@@@L8@@@[1@H@@@/KF@@[/KF@@@/S@@@@RF!@@@PT )@@G@@AZ)^A7R;0@@@AB0^A;R;@^A7'=@@@[/K@K>%/S@@@@0@@^A''=@@@ARBK^A'R7)^A'/@)@>_PU )@@G@@%8)@@^/K@@%\R\)^A'/@)@>_%8)@@ /K@@%\P;K@@[RB)^A;:CY@@@/K@@&A!CY@@@%8K@[&PV )@@G@@/K@@%(RFY@@@(8@@@@/K@@&FK@)@@HP;0@@]/K@@&NP;K@@^K8)@@[O#0^^8 @@@@KG[J)@[PW )@@G@@8#K@&J%[J@@[/K@@%:C @O^5G9@@@[% I@@@/K@@%/[ @O^5/K@K>2/S@@@@R;K^B$ABK@&XPX )@@G@@/,0@&+R;K@@@:@K^A\/K@K&TO;K@@[/K@@&VR;0@@)RF!@@@0@@^A_'=@@@AAZ)^A/ ^H@@@PY )@@G@@A30^A_R;@^A/'=@@@[/KF@@@/S@@@@RBK^A0O;K@@]%^K^^\'^I@@@'^@@<]R#@^HZR;0@@@PZ )@@G@@/K@K&?/S@@@@R;)@$K'^@@&??4J@@[/K@[D_R#J@@A'^@[DJ'^@@&T/,0@&.R#K^A\A#K^^1QA )@@G@@A#K^^2RF!@@@A#)^A1R;)@<)'^@@*$QL )@@G@@R#J@@A'^@[DJ'^@@&T @@^^7/K@K*9/S@@@@R;K@+ZABK@+Y(@@^HX/K@@(WC[K^HX[[K^^4QM )@@G@@[ K@)&C9K@)P[ K@)QC[Z@@E[[K^^6R'0@)RR;@@>C9@@%]C9K@(./K@@(*QN )@@G@@C[K^H@[[K^^4C9K@)P*@@^HYC9K@Z![ K@)QR'0@Z+C9@@(9C9K@(5QO )@@G@@AB@@-[ @@%Y[ K@&.AA_@@# ^@@&AR;K@@0/,0@89/K@@(4*?G@@@ABK@&AQP )@@G@@/K@K(DC9K@Z9C[@^^/[[@@Z$/K@@%@C[@@+N[[@@Z$C9@@Z;/K@@% C9@@-R[ @@-QC9K@-LQQ )@@G@@[ K@)P/KF@@@C9@@-,[ @@-QC9@@-HAA0@%J @@^^1[ @@)PC9@@<9[ @@)GRB0@&3C J@@EQR )@@G@@[[@^^6R#_@@@'^@[D,/K@@%JRFZ@@CK^Z@@D/\@@+' 4@^A5/KF@@@A#K^^1CDKO^1[[K^A1QS )@@G@@C9K@%<[ K@3ABK@>%R#K^BNP;K@@[(@@@@H/K@@>\QX )@@G@@#@K^B^R;)@@(1@@@@HR;)@@*A3)^B#R;@^B@'=@@@#(4@^B#/K@@>\R;)@A8C5@^B#RZ0^B@QY )@@G@@/K@@%5/S@@@@; @@@#'L@^GK;(@@@#;!@@@#G9@@@0[T@^BGAZ0^BUR;@^BU'=@@[RE )@@G@@AB)@?\R;K@@U/,0@89/K@@?,'^@@\7/K@@?\'^@@8,R#K@?\A#K^D/RBK^A0ABK@>!R;K^B$RF )@@G@@A#K^^5'^@@1^RFY@@ ABK@+/R#K^^5'^@@19R#K^E+A#K^E8R;@^F)'=@@@CR;K@@X/,0@89RG )@@G@@/K@@!:RBK^A0(@H@@A/K@@!BR\!@@]%8)@@A/K@@!DR;)@E3/K@@%&C H@@[H9@@@[*@@@@KRH )@@G@@/K@@!ZR#!@@AA#!@@]C H@@ RZ!@@#P;)@@[AZ!@@#CPX@@#H9K@@[RZ.@@^P3.@@[1@@@@JRI )@@G@@/K@@!XCTX@@#O\.@@^R\!@@^AV!@@#[PX@@#AZ.@@^H9@@@[[ H@@[ @H@@AR#!@@BA#!@@CRJ )@@G@@ @H@@BRB!@@^AB)@8J/\0@8&R;K@8HABK@+Y/K@@!\RBK^A0RB!@@[P;)@@[AB!@@[RB@^A0RK )@@G@@C9@@[>[DG@@@R;)^C\/\0@+ AB@@6,'^@@6*RFK^C1P;K@@[ABK@5XR3K^C0%^K@=^/K@@83RL )@@G@@(@@^C7/K@@0\R\K^C7O;K^B$ABK@8TRBK^C7ABK@8URZK^C7ABK@8XRBK@)PABK@8)R;K@8QRM )@@G@@ABK@)PR;K@Z5*@@^HXR;K@8/\0@+ RN )@@G@@R;K^C\/\0@8&R;K@@V/,0@89/K@@,V'^@@\7/K@@,W'^@@8,R#K^C1%@K^E_/K@@85/,0K%YRO )@@G@@/K@@!9R;K@@G/,0@89/K@@,2'^@@\7R;K@@V/,0@89/K@@,?R#K^E_A#K^C1/,0K%Y/K@@0\RP )@@G@@R#K^GMO#K^C1A#K^C1/,0@7Y'^@@6*/K@@0\C9K@@@C9@@@@R;0@3!R;K@@T/,0@89/K@@,9RQ )@@G@@/\)@\RAB0@3+R;0@3UR;K@@D/,0@89/K@@\[R#K^^>T^W@@@A#K^^>R;K@@C/,0@89/K@@?ZRR )@@G@@R#G@@@+@@^GLT@K^^4+@K^GLA#)^^>AB0@3N[ @@2+[[K^C3/\)@\UR;0^^ZR#@^^>'^@[DJRS )@@G@@R;K@@AAFK^C\R;K@@AA\K^C1R#K@+NA#K@7H/K@K:4R;0@6LAB0@3+/KI@@@C K^^*R;K@@FRT )@@G@@/,0@89/K@@\)! W@@@C W@@@R#K^H@O;K@@#*@@^HXO;K@@]?8K@[&R;K@[&?[K@@H/K@@\0RU )@@G@@?8K@J*/K@@\?C[K@@H/K@@\,!9K@J*C9K@J*[DK^C4/KI@@@R;)@E0/K@@%&9*K^FW[>@^FVRV )@@G@@R#@^GN'=@@@J/KF@@@/S@@@@C9@@$DR;0^B*R;K@@G/,0@89/K@@\'R#)^BOAB@@0#R#WK@@RW )@@G@@A#Z@]P[DJ@@@/,0@\2R;@@0#R;K@@G/,0@87/K@@0EG9@@@[O;0@@[/K@@\"AB0^A\P;0^B$RX )@@G@@AB0@=^A30^C0'^@@0Q/\)@\R/\0@0)'^@@2:/,0K&.C9K@3W[ K@)G/K@K\7/S@@@@R;K^^ZRY )@@G@@ABK@&3R;K@[>AFK^C\R;K@2CABK@>)R#K^GOA#K@7H/K@K0QRFK^^$R;@@@@RB)@=^O;)@@#RZ )@@G@@W@@@@IAB@^^*AF@^A;P;)@@]T@@@@IOB@^^$AF@^^$RB@^^$AB@@=@/\)@\U/KJ@@@'^@@0@@^A''=@@@A9?K^A'9*K^FYSD )@@G@@RZK^A7ABK@1!R;@^F<'=@@@CRBK^^5'^@@>%0@@^A''=@@@ARB)^A;R#Y@@]A#K^E,RBI@@[SE )@@G@@/,0^#2[ K^E?R#K^E$%@K^E,/K@@12RBK^E>%^K^E?/K@@12'^@@>2RF0^C4RB)^A;?C"@@ SF )@@G@@/K@@7WR;K@@@AZK^A79?@^FY9*@^A'/K@K1^R#K^E+A#K^E*R#K^^5'^@@7[R;@^F&'=@@@CSG )@@G@@/K@@1Q/S@@@@C[H@]P[[@^E4R#H@["/,0^#2[ K^E2R#K^^5'^@@7[RZ0^A/'^@@:-A#0^E\SH )@@G@@R;@^F('=@@@CR#K^^5/K@K19AA0@<)AB@@2RC H@@@[DH@@0'^@@19RB!@@SC9@@@8:5I@@[SI )@@G@@/K@@<) CI@@[R;@^A/'=@@[XRBK^^5'^@@1^RA0@<)R;@@@@/K@@>-/S@@@@'^@@2:R#)^HNSJ )@@G@@:@)^C3/K@K2TR#0^C3O;0@@[A#0^C2A#)^C3R;@@@@O;@@@[AB@@2+O;@@J*/,0^#2[ K^C1SK )@@G@@/,0@7Y'^@@6*/K@K2T/S@@@@RF)^C4AB)@+/RFK^^$OF)^^$/\@@+' 4@^A5 ^@^C0R;K^B$SL )@@G@@A#K^^1RFX@@@A#K^A1R;K@6MABK@'^@[DJR;0^^ZR#K^^4SO )@@G@@ABK@)&/K@[D_C9K@@A/K@@3Z'^@@K^F ;[K@@A[TK^F R;@^F5'=@@@CR;@^F8ST )@@G@@'=@@@C*8@@4P/K@@4YRFK^FSAFK^FPO;K@@[AFK^FSRBK@4'ABK@4- ^@@4'RB@@4PO;@@@[SU )@@G@@AB@@4P:8@@4- ^@@4PO;@@J*/,0^#2[ K^FPR;@@4&RFW^B*AVK^FOO;@@@[AB@@4&:8@@4:SV )@@G@@/K@@40R;@^F;'=@@@C/K@@4P(^@@4P*^@@4'/K@@4'R#K^E_A#K^FSR;K@ AVK^FRR;@^F"SW )@@G@@'=@@@C/K@@5^R;@@4'O;@@@[AB@@4'O;@@J*/,0^#2[ K^FSR;@^G['=@@@CRBK@=^/K@@4CSX )@@G@@C9K@@@ @@^C3 ^@^C0R;)^B*[ K@5) @I@["*W@^C3/K@@5PRFK^C1ABK@5XO;K@@[AFK^C1SY )@@G@@RVK^C2A\K^C3RRK^C2AVK^C2 O@^C2RZ@^C3O;@@@[AZ@^C3:S@^C2 W@^C3O;@@J*/,0^#2SZ )@@G@@[ Y@]PR;0@5XAF"@]PO;)@@[C9K@5)H9K@@[*@@@@L/K@@5CRZ@^C2O;@@@[AZ@^C2/,0^#2TA )@@G@@[>K^F ;[K@@A[TK^F *W@^C3/K@@5\(O@^C2/K@@3YRR@^C2O;@@@[AR@^C2O;@@J*/,0^#2TB )@@G@@[ K^C1R;@^G^'=@@@C(O@^C2/K@@,*/K@@,\'^@@K^E/R;@^GB'=@@@C/K@[G]RFK^^\*4H@@[/K@K<]RBK^A0*4H@@[/K@@+,TE )@@G@@R;)@@*A7!@@[RBK@+NABK@6$R;K@6RA0@+8AA0@6&/K@@+,'^@@7 TF )@@G@@'^@@6*R;@@@@R'0@@@/K@@6$/S@@@@R#K^^1RBK^C0O;K@@[ABK^C0AFK^^0R;)@@@'^@@+NTG )@@G@@RF@^^\O;@@@7R;)^C8C9@@@,/\0@+ '^@@<]RZ0^A2'^@@:-A#0^EWR#K^C1A#K^E-RB@^C0TH )@@G@@/,0^#2[ K^EZR;@^GE'=@@@C/K@K6*/S@@@@R;0@@-/,0@&PBJ@@SAZ@^C7R;@^B*RBK^A0C[@^C6C[K^C7TM )@@G@@[[H@@B[[X@@CC[G@]PC[W@["(@@@@K/K@@8ARB/@@@!80@@]/K@@8#*@@@@JH9K@@[H9K@@[TN )@@G@@(@G@@SC9@@@@[[H@[I[[X@@7:@@^A\/K@K7=O;@@@[O;K@@[/K@@7'0@H@@[/K@@8N%9@@@@TO )@@G@@/K@@+ZC9@@@*[5H@@[C9@@6@[ @@+N/K@@+ZC9K@8S[ K@)IC X@@@:8K@@@%9K@@@/K@@8VTP )@@G@@C X@@SG9K@@@%[K@@G/K@@8VC9K@@@[ K@)P/K@@)JL8@@@[OBH@@@/K@@-VR;)@@!C9@@@@TQ )@@G@@C[X@@D[[H@@D[[X@@7O;K@@[8#)@8*/KJ@@@/S@@@@'^@@3R7W@@A?8K@@K/K@@.G?8K@@Q/K@@/.?8K@@S/K@[G5!8K@@)/K@[G5UM )@@G@@RB?@@CT8)@W@*?G@@AT8)@[@!C)^H]:C)^H]/K@@.>*@@^I@/K@@/_9*K^H_9?K^H49*K^I[UN )@@G@@/K@@.>R#?@@C/K@@/4*@@^I^/K@@.>?@)^I@/K@@.B9*K^I#9?K^H49*K^I /K@@.>9?0^H_UO )@@G@@9*0^I#9?0^I[9*0^I /K@@/9N8K@@JR]0^JL24V=IB/K@[G5R3:^IA*4@^IB/K@@.QA7)^IRUP )@@G@@AA0^IR/K@@.S%4)^IR/K@@.(R7)^IBO;)@@[!8)@@T/K@@.>A7)^IBRB)^IBAB)^ITO;)@[@UQ )@@G@@AB)^IB9?0^H49*0^IUR;@^IS'=@@@JR;K@@N/,0@87/K@@",/K@@/-R30^IB!80@@K/K@@.>UR )@@G@@C G@@@[[J^IXO;0@@[A30^IB/K@@.>R;@@@@R#K@@LW@@@@IO;@@@]R#K@@JP;K@@G;GK@@=US )@@G@@W@K@@GP;K@@B*@@^HXP;K@@[P;@@@[!@K^H@/K@@"]!8@@@#/K@@.5/KF@@@*@@^HX/K@@"RUT )@@G@@;GK@@=W@K^H@T@K^H@K8K@@#A#)@@J?9@@@X/K@@"KO;0@[\;G0@@=W80@[0T80@[0/K@@">UU )@@G@@?9@@@S/K@@">O;0@@V;G0@@=W80@@WT80@@W/K@@">O;K@@[R#)@@HL@)^H@?@0^H@;G)@@>UV )@@G@@K8K@@#R#K@@JO;0@@#?9@@@X/K@@"![@@@SO;0@@TC9@@@@W[@@@JT[@@@HUW )@@G@@R;0@[0T@0@@GO#0@@IP#0@@LH[@@@J/KF@@[ @@^HVR;K@@S/,0@89/K@@"3AFK^HVR;K@@TUX )@@G@@/,0@89/K@@"9*C@^HV/K@[G1AFK^HVR;K@@U/,0@89/K@@"_*C@^HV/K@[G1AFK^HVR;K@@VUY )@@G@@/,0@89/K@@_ *C@^HV/K@[G1AFK^HVR;K@@W/,0@89/K@@_DABK^HVR;K@@X/,0@89/K@@_JUZ )@@G@@*^@^HV/K@[G1ABK^HVR;K@@Y/,0@89/K@@_P*^@^HV/K@[G1ABK^HVR;K@@Z/,0@89/K@@_VVA )@@G@@*^@^HV/K@[G1ABK^HVR;K@@$/,0@89/K@@_-*^@^HV/K@[G1ABK^HVRB0^HVCD@^HVC5K^IBVB )@@G@@:80@@W/K@@_':80@@Y/K@@_':80@@X/K@@_5:80@@Z/K@@_5%80@@$/K@[@#:9@@@V/K@[@CVC )@@G@@%9@@@S/K@[G1?9K@@#/K@[G1/K@[@C:9@@@S/K@@_2:9@@@U/K@[@C/K@[G1:9@@@S/K@[@@VD )@@G@@%9@@@T/K@[G1/[K[G1/K@[@>?9K@@#/K@[G1/K@[@>*@@@@K:9@@@S/K@[@>:9@@@T/K@@_"VE )@@G@@R#0^H?[DZ@@DR#K^H!ABZ@@@RBK^H[PBK^HCABZ@@CP#K^H@ABZ@@ERBK^HCAFZ@@CR;)@@ZVF )@@G@@A#)^HZ'^JK@[/K@[@QRA0^IRS8)@@SRBF^IAS8@@@#O#0@@HRBF^IAS?F^IAS8K[F@R;K@@@VG )@@G@@W@K@@JS8K@@DW8K@@ES@K@@L/K@[@QC5K^IBG1K^IB C@^HE/[K[[.*@@^HX/K@[@3R;K@#CVH )@@G@@;GK@@=W@K^H@*@@@@IO;K@@[T@K^H@O;K@@^/K@[@7R#K^H@O;K@@A?8K@#CR;K@#CABK[@/VI )@@G@@G9K@@]RB@^HC;G@@@=W@@@@L!8@@@@/K@[[ERB@^HC;G@@@=W^@[@/P;@@@]?4@^IB/K@[[BVJ )@@G@@P7@^IBA3@^IB/K@[[DA7@^IB 0@^IBRB@[@/R#K^H@O;K@@A?8K@J*/K@[[KR#@@@H/K@[[MVK )@@G@@!8@@J*R;@@J**@@^HX/K@[[TP;@@@^;G@@@=W@@^H@T@@^H@O;@@@^AF@^HER#)@@GC[K@@GVL )@@G@@H9K@@^*@@^HXH9K@@]'^@[@QA#)^HFC[@^I^/ @[[&C[@^I@(@@@@KC @^HCC5K^IBG1K^IBVM )@@G@@[PK^HA?9K@@]/K@[[.%9K@@]/K@[[6RF0^HV:80@@T/K@[[.R#)^HFO#)^HF![@@@I/K@[[.VN )@@G@@RFK^H:/K@[] H9K@@[?[@^HF/K@[[_R#)^HFT@)@@L?[@@@I/K@[[4 @@^H%/K@[]PR#)@@KVO )@@G@@T@)@@L!@)^HF/K@[[4R#)^HFRBK^H:A#K^H%A#)^HQ(0@^IB/K@[]P @@@@I9?"OIX9*0^IUVP )@@G@@RB0^IBAB0^ITO;0@[@AB0^IBR;@^IS'=@@@JO;)@@[%0)^IB/K@[]E W@^HA C@^HJRB0^HCVQ )@@G@@PF0^HEPF0^HEC[K^I^/[K[]4;DK@@[?[K^I@[[K^I@R#)^I@RF@^H]T8@@@#?@)@@G/K@[#VVR )@@G@@9!@^I#/,0@.1/K@[#ZAZ@^HAAF)^HG[[@^H 9?@^I 9*@^IUR;K$B,ABK^ITR;@^IS'=@@@JVS )@@G@@RB0^HCT8)@@#P#0@@IPZ0^HAAB0[#H9!@^H_/[K[#-RB)^HCS@)^H"W8)@@FRB0[#H/,0@.1VT )@@G@@/K@[#T:C@^HJ/K@[#MAF@^HJAB)^HG[[@^HIRB0^HCT8)@@#P#0@@IPZ0^HAP#0@@GAF0^HHVU )@@G@@S@0^H"W80@@ET@0@@G!@0^HI/K@[#MR;0@@@9!@^H_/,0@.4/K@[#K/K@[].9?@^I[9*@^IUVV )@@G@@R;K$A,ABK^ITR;@^IS'=@@@J/K@[#+(@@^I^/K@[#-9!@^I#9(@^H_9!@^I 9(@^I[ @@^I^VW )@@G@@/K@[]4AF0^HHC9K@@[[[K^I;R#0^H*[5Z@@[R;@@@[A7J@@]RB@^H[PB@^HCRFK^HHABZ@@DVX )@@G@@K@K@@GP#@^H@A#@^H-R;@@@@C[@^H@G9@@@[W@@@@KS@@^H@A#Z@@AC9@@@](C@^HJ/K@[^NVY )@@G@@R#@^H(ABJ@@@A#0@@HA#@@@JAFZ@@@G9K@@[[5Z@@[[5J@@]AF\@@CRB@^HGABJ@@DRF@^HJVZ )@@G@@AFJ@@DR#@^HIA#J@@ARB@^H[PZ@^HAPF@^HJAFJ@@J @@@@IR#K^H_!8K@@SR;)@@[!8K@@XWA )@@G@@R;)@@]A\\@@EG9@@@[(W@^HA/K@[^2R;@^];ABJ@@@A#0@@HR#0@@GAFZ@@@G9K@@[[5Z@@[WB )@@G@@[5J@@]RB@^H[PZ@^HAAFJ@@JRFK^HGABZ@@DT8K@@#P#@@@HAFJ@@CR#K^H A#Z@@ARZK^HAWC )@@G@@AFZ@@D @@@@IR#K^I#!8K@@SR;)@@[!8K@@XR;)@@]A\\@@E%9@@@#C9@@@#R#@^H%(@@@@GWD )@@G@@/K@[ BR#@^H%ABJ@@@A#0@@HA#@@@JAFZ@@@G9K@@[[5Z@@[[5J@@]RB)^H[PF)^HEPF)^HEWE )@@G@@AF\@@CRF@^HEABJ@@DRR@^HAAFJ@@DR#@^HFA#J@@ARF@^HVR7)^IB:8@@@T/K@[ I!8)@@#WF )@@G@@%8@@@S/K@[ .R#@^H?ABJ@@@A#0@@HA#@@@JAFZ@@@RFK^HV%8K@@S/K@[ TAF\@@DR#@^H!WG )@@G@@ABJ@@@G9K@@[[5K^HL[5Z@@[R;@@@#A7J@@]R;K@@F/,0@89/K@[ 4RB?@@@!C)^HE/K@[ 4WH )@@G@@(@@^HX/K@[ (L8)@@AA#0@@L/K@[ \P;)@@^R;K@@@W@K^H@S@K^H@A#)@@LO;)@@^AB)^HEWI )@@G@@'^@[@QR#0^H?RBK^HE/K@[ 6RFK^HER#)^HFABZ@@DA#)^HKRB)^H[PB\@@DPB\@@DAF\@@CWJ )@@G@@/K@[A[[5K^HLR#@^H!ABJ@@@AF/@@@R#K^JMA#K^HPAB0^HR @@^HOAB0^HLC[K^JM[[Z@@GWK )@@G@@ @J@@H 0J@@[R#@^H-ABJ@@EO#@^H@ABJ@@C'^JK@[RB0^HLR7J@@[RF_@@@%8@@@[/K@[A WL )@@G@@R#K[C<(^@^HV/K@[A!R;K@@%/,0@89/K@[GKRR?@@@A#)^H)R;K@@*/,0@89/K@[GKR#W@@@WM )@@G@@A#K^HS 4@^HSC K^HVR#)^JM%9K@@W/K@[A:R;K@@(/,0@89/K@[GKR#W@@@+@K^JNA#)^HTWN )@@G@@R#K^JOA#K[B' @@^H^(C@^HV/K@[A9R;K@@C/,0@89/K@[A9R#W@@@A#K^H^ 4@^H^R#K^H^WO )@@G@@A#K^H#'=@@@NA#@^I' @@^HN @@^H/K@[H] @@^L&/K@[JC:8)@@'/K@[J-:8)@@,YH )@@G@@/K@[J%:8)@@./K@[J7:8)@@;/K@[J" @@^L> @@^L&[@0^L=9!@^L*; @@[]9(@^L*A<)^L(YI )@@G@@/K@[JC*@@^L?/K@[J$[@0^L?[@0^L> @@^L&/K@[JC @@^L?[@0^L>/K@[J9(@@^L&/K@[J\YJ )@@G@@ @@@@H @@@@I/K@[JB[@0^L&*@@^L>/K@[J5*@@^L=/K@[J9/K@[JC @@^L>/K@[JC(@@^L=YK )@@G@@/K@[H]9?K^L* @@^L= @@^L* @@^L(/K@[JB'^@[K@/K@[JC/K@[K@(@@^L @@^L& @@^L* @@^L(R]@^M@R#@^L"/K@[K@C8)@@S[4:)@@'^@[K>/K@[H]C8)@@TYN )@@G@@[4:)@@'^@[K>'^@[JB(@@@@I/K@[H]'^@[M0&;)F@@[@:)@@/K@[H]/K@[K>'^@[K4'^@[JBYO )@@G@@(@@@@I/K@[K!'^@[M0&;)C@@[@:)@@'^@[JB(@@@@I/K@[H]'^@[M0&;)D@@[@:)@@/K@[K>YP )@@G@@/K@[K4'^@[JB&;)E@@[@:)@@/K@[K4C8)@@U[4:)@@'^@[K4'^@[JB[@K^L%*4@^L%/K@[L#YQ )@@G@@;?K@@AG8)@@ /K@[K.C^0^LD&;0H@@[@;)@@&;0@@[[@Z)@@[@\)@@[^0^LD'^@[LK/K@[H]YR )@@G@@C8)@@V[4:)@@'^@[LK/K@[H]/K@[LK'^@[JB[@)^L+C^)^LD&;)G@@[@:)@@C@K^LDC@)^L+YS )@@G@@[@!)@@[@K^LD/K@[LLC8)@@W[4:)@@'^@[L*'^@[JB'^@[M0A#:@@@R;)@@(A7:)@@/K@[H]YT )@@G@@C8)@@Y[4:)@@'^@[L*/K@[H]/K@[L*'^@[JB'^@[M0&;)%@@[@:)@@'^@[JB'^@[M0A#:@@@YU )@@G@@R;)@@*A7:)@@/K@[L*C8)@@Z/K@[L6C8)@@X[4:)@@/K@[L8'^@[JB[@)^L!'^@[JB'^@[M0YV )@@G@@[@)^L,C8)^L!&;):@@[@:)@@/K@[H]C8)@@$[4:)@@C8)^C\[@)^L:C^)^JU @@@@H'^@[M0YW )@@G@@[@)^LERFK^J>A#K^LZ @@^L)R#@^L)O;@@@[A#@^L)A]0^L-/,0^#2R]0^L-%XK^J&/K@[M$YX )@@G@@R#)^LER;K@@E!@K^LE/K@[M(H8)@@E[@)^LEN8K@@EC8K^JVC^)^L:G@K^M[G@)^M[M#!)@@YY )@@G@@(@@^LE/K@[M?[@)^L:'^@[K@R#)^LZ:C)^J>/K@[MGC9@@K9/K@@9+N@K@@I @@^LE/K@[MVYZ )@@G@@C8)^C\&;)?@@[@:)@@/K@[H]/K@[M0[@@^L-[@K@@G[@)@@HC9@@@F;G)@[C;^@@[][@K^L$ZA )@@G@@C))^L$:8)@@ /K@[N^(@@@@I/K@[N^H8)@@00@@@@I/K@[NQ!8)@@E/K@[NQT80@@EG@0@@IZB )@@G@@ @@@@I8^@[M6C@)@@JC@@^L-/K@[M0[@@^L-A]0^L$C^@^K#G@@^M[[^@^GQC8)@@'/,0@8'ZC )@@G@@/K@[NN[4?@@@/K@[NJC@@^L-R]0^L$/KE@@@R;@^LQ'=@@@C'=@@@)C@0^L\[^;@@@C8)@@9ZD )@@G@@[4:@@@R;W@@@:8K@@A/K@[N+R;@^LT'=@@@CRB0^L\/K@@;LR;@^LW'=@@@C'=@@@)R#W@@DZE )@@G@@R#?@@EA#!)@@;K)@@S/C)[N!R3?@@EAB?@@BR#?@@CA#W@@DC G@@DG G@@BC W@@AGDW@@^ZF )@@G@@H[@@@L/D@[N'N^W@@BM#Y)@@A#W@@D/KF@@[C W@@BH[K@@KN@K@@LM#Y)@@[ G@@B0@G@@#ZG )@@G@@'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[ZH )@@G@@R#W@@D/K@[N0RBW@@AABW@@DC[W@@ HDW@@B[[W@@ CDW@@BT9K@@W[DW@@^/KF@@@0@G@@#ZI )@@G@@'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/ V@@@RBW@@AABW@@^RBW@@DD8)___AF!@@@PBW@@AZJ )@@G@@O;K@@[;GK@@=W8K@@W/@)[O(O;K@@[R#)@@HT8)@@WAF?@@^O#W@@ '=@@@#A#W@@ C5W@@#ZK )@@G@@/ V@@@/KF@@[C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K[P#C8)@@:')]-Q8;G@@@=W8@@@/ZL )@@G@@C8?@@@C8H@@@/\K[P#C8)@@:')]-Q8C8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')]-Q8C8\@@0ZM )@@G@@')]-Q8/KH@@@;C@@@M+8@_@@;GK@@0/\K[P#C8)@@/')]-Q8+8@@_@;GK@@%/\K[P#C8)@@/ZN )@@G@@')]-Q8+8@@@_C8!@[@/\K[P#/KF@@@;C@@@M+8@@_@;GK@@%/\K[P#+8@_@@;CK@@FC@![P_ZO )@@G@@C80@@^;@)@@Y')]-Q88#0[P-+8@@@_C8!@[@/\K[P#/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@ZP )@@G@@;CK@@F9?H[P_/,0[RSC8)@@ ')]-Q8C@K@[[+8K@_@;G)@@%W8)@@E/@)[P8G8)@@0')]-Q8ZQ )@@G@@C8\@@0')]-Q8C8)@@,')]-Q8+8K@@_C8I@Y?C8K@@ RE1@@#/K@[SX JAN UARY FEB RZR )@@G@@UARY MAR CH APR IL MAY JUN E JUL Y AUG UZS )@@G@@ST SEP TEMBER OCT OBER NOV EMBER DEC EMBER A^W@@#A@?@@^A@/@@ ZT )@@G@@Q8W@@@N?L@@@R@)[S4R^1@@@&80@@[C8@[S5M@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^ZU )@@G@@A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@ZV )@@G@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)[Q"[)<)@@A^-@@]ZW )@@G@@Q8)@@@/K[K@]C8?@@@')]-Q8/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@ZX )@@G@@C8N@@@H^L@@@T8K@@AG8H@@@/K@[R C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@[RTZY )@@G@@C80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@[RZ')]-Q88#0[RT/KF@@@&"0__"/K@[R=&'0@@@ZZ )@@G@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[8#0[R:/KF@@@')G-R_0@@@@F%8)@@@')]-Q8/K@[R(AA )@@G@@C?[@@[C^L@@[/K@[R5;G@@@M;CK@@M&;@@@[&;K@@[')G-R_:0-@@@/K@[R/')]-Q8/K@[R7AB )@@G@@[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@[S C)!)@@[^[@@]Q;@@@@AC )@@G@@/K[K@]C80@@@;G@@@#/@@[SLG80@@[;G@@@#/^@[SGC8)@@0')]-Q8C8)@@@;=K@@#G8)@@0AD )@@G@@')]-Q88#0[SL/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@[SLC8K@@@N8X@@@C80@@@;O@@@=AE )@@G@@W8@@@EE/X@@@;?)@@AG8.@@08KK[S>/^@[SZ/C@[S%;?)@@AG80@@-8KK[S%C@K@@IC8)@@ AF )@@G@@/K@[S,')]-Q88KK[S!C@)@@J')]-Q8;GK@@A/^)[S0/KF@@@@@[@@@ A]0^X3A#@^Q!AG )@@G@@R;@^Q*/,0@'8/K@[WXN8K@@DR;@^QRR#K^X6M#W)@@R;@^Q*/,0@9&/K@[WX/K@[V7R#@^Q2AH )@@G@@/G@[S_R#@^QQO;@@@[A#@^QQR3@^Q2!8@@@JR;@@@IL8@@@I]@K@[[Q;G^QT&;@@@[R;K^QSAI )@@G@@M#H)@@R#@^X7R#K^X8;G0@[CN80@[A')H)@@/[K[WJ%9K@@./K@[T-')H)@@%9K@@ /K@[U6AJ )@@G@@R#@^QJO;@@@EA#@^QJ/K@[U6')H)@@!9K@@0!9K@@'/K@[T>/K@[T$%9K@@ /K@[T(8K0[T)AK )@@G@@/K@[U6R#)@[#P;)@[B]@)^X5N8K@@F/K@[T\')H)@@!9K@@A!9K@@)/K@[T7;(K@@Y;?0@@AAL )@@G@@;D@@@A;!@@@A8KK[T,N8K@[#R]0^X92@;)@^/K@[U6A]0^X4N@:@@[%[@@[]/K@[T9*?F@@#AM )@@G@@/K@[U R#0^X5%80@@[/K@[U6/K@[UCR#0^X5??;@@#/K@[U6RB;@@]/KJ@@@R]0^X4RB:@@#AN )@@G@@RFF@@]O#?@@@A#?@@@/K@[U6:9K@@,/K@[UE%9K@@ /K@[U6/K@[UE%9K@@$/K@[U6')H)@@AO )@@G@@/K@[UMN8K@@]R;0^QM/K@[UX')H)@@:9K@@(R;0^QL8KK[UWR]0^X4C[J@@@G F@@#[[J@@@AP )@@G@@/K@[U6N8K@@]/K@[U*')H)@@:9K@@(/K@[UE8KK[U$/K@[U6N8K@@ /K@[U\')H)@@;(K@@YAQ )@@G@@;!@@@A8KK[U,R;0^QM:[@^X'R;0^QK/K@[U)R#@^X7R#K^X8')H)@@:9K@@C/K@[VCN8K@@^AR )@@G@@/K@[U"')H)@@:9K@@ /K@[V#!9K@@0!9K@@'/K@[V 8KK[U./K@[VCR#0^QLP;0@[=A#0^QLAS )@@G@@R#@^X7R#K^X8N8K@[B')H)@@:9K@@;/K@[VO:9K@@$/K@[VO8KK[VFR#0^QMP;0@@^A#0^QMAT )@@G@@C5K^QT:9K@@ /K@[V=:9K@@./K@[V=:9K@@$/K@[V=:9K@@//K@[V=!9K@@A!9K@@)/K@[V-AU )@@G@@/K@[V=R#0^QJP;0@[=A#0^QJR#@^X7R#K^X8N8K@@ ')H)@@:9K@@ /K@[V!!9K@@0!9K@@'AV )@@G@@/K@[V38KK[V$')H)@@:9K@@-/K@[V6:9K@@ /K@[V6R#0^QKP;0@[=A#0^QK/K@[S_R;@^Q*AW )@@G@@/,0@;F @@@@IR;K@@BR;H@@[R;.^QI!@!^QI/K@[W]R;H@@[R#!^QIR;.^QI8#K[V.R#K^QQAX )@@G@@!@K@@IR;@@@[;C)@@[ @J@@@N8K@@CR#K^X65@!)@@/K@[WHR;@@@[R]0^X3/KF@@[R;@^Q*AY )@@G@@/,0@;FR;@@@[R]0^X3/KF@@[C5W@@@C1W@@@C!W@@@C(W@@@C>W@@@/,0[WUQ;K[WOC-W)@@AZ )@@G@@/KF@@@R;@^Q*R]0^X3/KF@@@C/@^_Z/,0[QTC8@^Z6/,0[R3'=@@@?A#@^X;/,0[PEC/@@@#BA )@@G@@/,0[RFR#@^X;/,0[O2R#@ [B'=@@@IR#@ [C @@@@H!8K@[8/K@[=\'=@@@HO;W@@@>@@ [DBB )@@G@@/K@[=\>@@ [E/K@[W'R#@ [CO;H@@@/K@[W\A#K^Z3R;@[#[/,0[=L9*@^-XR;@[#]/,0[=LBC )@@G@@9*@^-ZR;@[#^/,0[=LA#@^--R;@[# /,0[=LA#@^-+R;@[][/,0[=L9*@^-PR;@[]]/,0[=LBD )@@G@@9*@^-RR;@[]^/,0[=LA#@^-TR;@[] /,0[=LA#@^-UR;@[[]/,0[=L9*@^-JR;@[[[/,0[=LBE )@@G@@9*@^-HR;@[[^/,0[=LA#@^-LR;@[[ /,0[=LA#@^-MC/@^_Z/,0[QTC8@^->/,0[R3R9)^-HBF )@@G@@/!K[]R#K^X;>@K [J/K@[X.+@@ [K/@K[X.R#@ [L'=@@@IR#@^X;+@@ [MBH )@@G@@A#K^X;R#@^X;+@@ [N/^K[$8R;@^+E'=@@@JR;@^-!'=@@@JR;@^-1'=@@@JR;@^-5'=@@@JBI )@@G@@R;@^R;@^@@ [Q/K@[YQBJ )@@G@@R#) @;A#) @?>@@ [R/K@[Y&C/@^_Z/,0[QTC8@ [^/,0[R3R;@[^]/,0[=L/K@[Y)/K@[Y>BK )@@G@@9*@^@) [X/K@[Y8R;@[]B/,0[=L9*@^-VR;@[#B/,0[=L9*@^- !8@@@S!8@@@)BN )@@G@@/K@[(%R;@^+:'=@@@#/,@[$E9?@^@@ [)/K@[ZQC/@^_Z/,0[QTBO )@@G@@C8@ [-/,0[R3/!K[=AC/@@@./,0[R]/!K[<#RB@^<-A#@^+0R;@@^SAF@^+\R;@^+:'=@@@#BP )@@G@@/,@[$ERB@^>(A#@^Z3R#@^+0O;@@@ A#@^+0N;@@@VR;@^+:'=@@@#/,@[$ER@K [@K [J/K@[)2(@@^Z5/K@[)2R;@@@CAZ@^+,R;@^+:'=@@@#/,@[$E/K@[)2BR )@@G@@P;@@@[A#@^Z30@[@@#/K@[)ZR\[@@#!8@@@ /K@[)Z%8@@@[/K@[)LR7L@@BR#)^X;=@) [=BS )@@G@@R;K@@[=@) [>/K@[)B/@K[)L?8K@@DR;H@@A/K@[)L!8K@@]/K@[)^R#[@@C/,0[S6/K@[$WBT )@@G@@A7[@@BA]0^Z5R#K@@G @@@@G/K@[)^A#@^@K [Y/K@[)RD@@^Z3/K@[)SR\G @FBU )@@G@@A#@^@@ [J/K@[), @@^Z5R;@@@CAZ@^+,R;@^+:'=@@@#/,@[$ER;@@@KAZ@^+,R#@^+0O;@@@EBW )@@G@@A#@^+0/K@[Z+/,0[C4R#@^-J%@@ [&/K@[);R#@^-H%@@ [$/K@[);R#@ [$A#@^-JC/@^_ZBX )@@G@@/,0[QT/,0[E\@@@[+TR[@@@GR#@^X;>@@ [*/K@[-CC8@ [(/,0[R3/!K[<#C/@^_Z/,0[QTBY )@@G@@R#@^X;=@@ [:/K@[-OR;@ @6/,0[R3R9)^-H/!K[<3R;@ @9/,0[R3/!K[<#C/@^_Z/,0[QTBZ )@@G@@R#@^X;=@@ [?/K@[+@R]O@@[R#K^X;>@K [!/K@[-YR3( @F%8)@@]R'K@@BRBD @F/,0[R3CA )@@G@@R9)^-H/!K[@@ [,/K@[-7C/@@@,/,0[R]R9)^-X/!K[@@ [1/K@[);CE )@@G@@C/@^_Z/,0[QTC8@ @//,0[R3R9)^-H/!K[@K [I'=@@@JR;@^+]*@@^+)R;@^+A'=@@@J*@@^_;/K@[+6R;@^-9'=@@@JR;@^-/'=@@@JCH )@@G@@R;@^-_'=@@@JC/@^_Z/,0[QTC8@^Z'/,0[R3*@@^_;/K@[<@C@@^Z4/,0[SWC8@^Z//,0[R3CI )@@G@@R#@ [B'=@@@I'=@@@DR;@^C/@@@//,0[R]C@A@@^CL )@@G@@/,0[RQ9?A@@^:@K [$/K@[<0%@@ [$/K@[X;C@@@Y:8@@@*/K@[&?R#@^-C/@^_Z/,0[QTC8@ ["/,0[R3/!K[=AC/@@@./,0[R]C8@ ]@/,0[R3/!K[<#C/@^_ZCW )@@G@@/,0[QTC8@ ]]/,0[R3C[)^X;+[) ]^;(0@@E/[0[>8C/@@@,/,0[R]R90@@AN9K@@T'D0[>6CX )@@G@@C8B@@@/,0[R]O90@@[8LK[>3C/@@@[/,0[RF9?@ ] /,0[RSR#@^-R:@@ [$/K@[&[R9)^-PCY )@@G@@/!K[/,0[RSC/@@@*/,0[R]9?@^+[8-A8&]@+B@$]CBS%])&B):]*$DW )@@G@@B*?]0*B0!]8(B8E#@%CB6#C:CC,#K,CK\#S\[KE#)@[SF#*@[)G#0@[*H#8@[0I^@@[8J^K@DX )@@G@@]@K^S@]CL^)@]KM^*@]SN^0@D*'^8'D0; @;D8/ C/E@. K.EC" S"[K_ )_EK@ *@[S@ 0@DY )@@G@@[)@ 8@[*@@@@[0@@@@[8@@@@]@@@@@]C@@@@]K@@@@]S@@@@"8@@@@_@@@@@_C@@@@_K@BK@DZ )@@G@@_S@BS@_)@B)@_*@B*@_0@B0@_8@C@@ES@ES@E)@E)@E*@E*@E0@E0@E8@E8@F@@F@@FC@FC@EA )@@G@@FK@FK@FS@FS@F)@F)@F*@F*@F0@F0@F8@F8@G@@G@@GC@GC@GK@GK@GS@GS@G)@G)@G*@G*@EB )@@G@@G0@G0@G8@G8@H@@H@@HC@HC@HK@HK@HS@HS@H)@H)@H*@H*@H0@H0@H8@H8@I@@I@@IC@IC@EC )@@G@@IK@IK@IS@IS@I)@I)@I*@I*@I0@I0@I8@I8@J@@J@@JC@JC@JK@JK@[K@@@@J)@J)@"0@@@@ED )@@G@@@@[@@@@@#__/%[@@@L/K@@H*/KF@@])@@@@@@@[@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@EE )@@G@@@@@@@@C[@^]V/S@@@@PB@@NJ@@@@@#C[@@@G[ I)@@[DI@@@&BG)@@^CK^]KPFG@@@@@[@@]EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@L\@@@@M)@@@@M6D@@@O6@@@@OS@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@$A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L\@@@@M)@@@@M6F@@@O6@@@@OSEH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ EI )@@G@@@@@@@@@K@@@@@@@@@@@@@@@@ @@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@SAEJ )@@G@@@@@@@@@#@@@@@@@@@@@@@@VE@@@@@@@@@@@@@@[@@@/C@@@@/G@@@@@@[@@@)@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@R;0@[C9!@^#.;G@@@=W8@@@EO;K@@:'TK@@H; @@@AP;0@@A/^@^#4EL )@@G@@; J@@@/KF@@@ @@@@@@@@@@*^@@@@*BZ_@@@@@@@@&5@@@@$K@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*N@@@@*Y@@@@@@EN )@@G@@@@@@$B@@@@$0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@:4@@@@2T@[@@@@@@@@2/@@@@2/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@[@@@___@@@@@@@@@@@@@@@A#)^^6@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ER )@@G@@ @@@@@@@C@@@@@@@@@@ @@@@@@@K@@@@@@@@@@ @@@@@@ES )@@G@@@@@@@@ @@@@@@@@@@@@@@@@@@@[@@@@@@Y^BP@@@@@@@[@@@@@@%^BF@@]^BMET )@@G@@ / SORT READ ERROR A . (NO OR GO)@@@@@@@@@@@@ EU )@@G@@SORT ERROR CODE A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@EW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CYC NO. . RECORD NOSEX )@@G@@. - LABEL: REEL OF MOUNT EY )@@G@@ REEL OF LABEL ERROR: REEL OF EZ )@@G@@DISMOUNT REEL OF + MOUNT BLANK MOUNT BLANKEND RFA )@@G@@EDO END PART FINAL MERGE(S) REQUIRED:START MRG NO. : INPUT FILESFB )@@G@@ OUTPUT FILE UNIT LABEL UNIT LABEL FC )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@I@@@@@@@@@@@]@@J@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@QT )@@G@@@@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@A@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@^@@@@@@@@@@@D@@[@@@@@@@@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@^@@SRFTI @@^@@@@@@@@@RB )@@G@@RPFET @@^@@@@@@@@@ETNL @@^@@@@@@@@@FUNCE @@D@@@@@@@@@RC )@@G@@OPTWRD @@D@@@@@@@@@UPDATE @@D@@@@@@@@@TODAY @@D@@@@@@@@@RD )@@G@@KOPT @@D@@@@@@@@@UDATE @@D@@@@@@@@@DOPT @@D@@@@@@@@@RE )@@G@@FOPT @@D@@@@@@@@@SOPT @@D@@@@@@@@@LOPT @@D@@@@@@@@@RF )@@G@@VOPT @@D@@@@@@@@@DEMAND @@D@@@@@@@@@TYPED @@D@@@@@@@@@RG )@@G@@PRT @@E@@@@@@@@@SAVREG @@E@@@@@@@@@EPKT @@E@@@@@@@@@RH )@@G@@NONEWS @@E@@@@@@@@@IMAGE @@E@@@@@@@@@SDFFCT @@E@@@@@@@@@RI )@@G@@BUFF @@E@@@@@@@@@ASCII @@E@@@@@@@@@@#@@@@-546,550 INIT1 RJ )@@G@@@E@@@@IN1700 TZ,S2 ELT$+1 . VERSION GIVEN? @D@@@@RK )@@G@@ LMJ X10,SPECER . YES, ERROR @#@@@@-552 INRL )@@G@@IT1 @E@@@@ LA,S1 A3,ELT$+1 . ELT CHAR COUNT RM )@@G@@@E@@@@ TE,U A3,6 . 6 CHARS (MMDDYY) ?@G@@@@RN )@@G@@ J IN1707 . NO, MIGHT BE RELATIVE DATE RO )@@G@@@#@@@@-586 INIT1 @[@@@@. @D@@@@. SPEC MIGHT BE MONTH, DAY, ORRP )@@G@@ YEAR-RELATIVE DATE @[@@@@. @C@@@@DATJ NOP 0,0,0 RQ )@@G@@ . DAY @C@@@@ J IN1708 . MONTH RR )@@G@@@C@@@@ J IN1709 . YEAR @[@@@@. @E@@@@RS )@@G@@IN1707 TG,U A3,2 . CAN BE 1-4 DIGITS @F@@@@ RT )@@G@@ TG,U A3,6 . PRECEDED BY M, D, OR Y @D@@@@ RU )@@G@@ LMJ X10,SPECER . NO GOOD @F@@@@ LA,S1 RV )@@G@@ A2,ELT$+9 . GET FIRST CHAR OF ELT @C@@@@ TE,U RW )@@G@@ A2,'M' . MONTH?@C@@@@ TNE,U A2,'D' RX )@@G@@ . DAY? @E@@@@ J $+3 . ONE OF THE ARY )@@G@@BOVE @D@@@@ TE,U A2,'Y' . OR YEAR? @D@@@@RZ )@@G@@ LMJ X10,SPECER . NO, ERROR @E@@@@ SSSA )@@G@@L A2,3 . D=1, M=2, Y=3 @G@@@@ AN,U SB )@@G@@ A3,2 . ONE LESS CHAR, -1 FOR JGD @F@@@@ LXSC )@@G@@ X1,(1,1) . START WITH 2ND CHAR @D@@@@ LXSD )@@G@@,U X2,ELT$+9 . SPEC ADDR @E@@@@ SZ A1 SE )@@G@@ . INITIALIZE TOTAL @G@@@@ LMJ X11,IN1752SF )@@G@@ . CONVERT DEC NUMBER TO BINARY @E@@@@ LMJ X10,SG )@@G@@SPECER . NOT DEC NUMBER @[@@@@. @D@@@@. SPEC IS CONVERTESH )@@G@@D TO BINARY - RESULT IS IN SPEC4,X7 @[@@@@. @G@@@@BIN EQUF SI )@@G@@ SPEC4,X7 . TEMP STORAGE FOR RELATIVE DATE@G@@@@TD EQSJ )@@G@@UF SPEC4+1,X7 . TEMP STORAGE FOR TODAY'S DATE @E@@@@ SK )@@G@@ ER TDATE$ . GET TODAY'S DATE @E@@@@ DSSL )@@G@@L A0,24 . GET MON,DAY IN A0 @E@@@@ SA,T3 SM )@@G@@ A0,TD . STORE MON,DAY @D@@@@ SSL A1,3SN )@@G@@0 . GET YEAR @G@@@@ SA,S4 A1,TD SO )@@G@@ . STORE YR IN YR,MON,DAY FMT @H@@@@ EX DATJ-1,A2 SP )@@G@@ . JUMP TO PROPER ROUTINE FOR M/D/Y @[@@@@. @[@@@@. DAY SQ )@@G@@@[@@@@. @E@@@@ LA A0,BIN . GET DAYS SPESR )@@G@@C'D @E@@@@ DSL A0,36 . PREPARE FOR DIVIDESS )@@G@@@G@@@@ DI,U A0,30 . DIVIDE BY # OF DAYS IN MST )@@G@@ONTH @D@@@@ LA,S6 A2,TD . CURRENT DAY @E@@@@SU )@@G@@ AN A2,A1 . SUBTRACT # OF DAYS@D@@@@ SV )@@G@@ TG,U A2,1 . NEG OR ZERO?@C@@@@ J SW )@@G@@ $+3 . NO @G@@@@ A,U A2,30 SX )@@G@@ . YES, SET FOR PREVIOUS MONTH @F@@@@ A,U A0,1 SY )@@G@@ . ADD 1 TO MONTH COUNT @E@@@@ SA A0,BIN SZ )@@G@@ . STORE MONTH COUNT @E@@@@ SA,S6 A2,TD TA )@@G@@ . STORE NEW DAY @[@@@@. @]@@@@. MONTH @[@@@@. @D@@@@TB )@@G@@IN1708 LA A0,BIN . MONTH COUNT @E@@@@ DSTC )@@G@@L A0,36 . SET FOR DIVIDE @G@@@@ DI,U TD )@@G@@ A0,12 . DIVIDE BY # OF MONTHS IN YEAR @E@@@@ LATE )@@G@@,S5 A2,TD . CURRENT MONTH @F@@@@ AN TF )@@G@@ A2,A1 . SUBTRACT # OF MONTHS @D@@@@ TG,U TG )@@G@@ A2,1 . NEG OR ZERO?@C@@@@ J $+3 TH )@@G@@ . NO @G@@@@ A,U A2,12 . YES, STI )@@G@@ET FOR PREVIOUS YEAR @F@@@@ A,U A0,1 . TJ )@@G@@ADD 1 TO YEAR COUNT @E@@@@ SA A0,BIN . TK )@@G@@STORE YEAR COUNT @D@@@@ SA,S5 A2,TD . NEW MOTL )@@G@@NTH @[@@@@. @[@@@@. YEAR@[@@@@. @D@@@@IN1709 LA,S4 A2,TTM )@@G@@D . CURRENT YEAR@F@@@@ AN A2,BIN TN )@@G@@ . SUBTRACT # OF YEARS @C@@@@ TP A2 TO )@@G@@ . NEG? @D@@@@ LMJ X10,SPECER . YES, ERROR TP )@@G@@@E@@@@ SA,S4 A2,TD . STORE NEW YEAR @F@@@@TQ )@@G@@ LA,H2 A0,TD . GET ABSOLUTE YR,MON,DAY @E@@@@TR )@@G@@ SA A0,SPEC4,X7 . STORE IN SPEC @F@@@@ TS )@@G@@ J IN1840 . GO ON FOR NEXT SPEC @[@@@@*INIT2TT )@@G@@@#@@@@-139 INIT2 @F@@@@ SA A0,A1 . TU )@@G@@SAVE INPUT WORD COUNT @#@@@@-141,141 INIT2 @E@@@@ LA,U TV )@@G@@ A0,,A1 . INPUT WORD COUNT @#@@@@-172 INIT2 @F@@@@TW )@@G@@ SA A0,A1 . SAVE INPUT WORD COUNT @#@@@@TX )@@G@@-173 INIT2 @E@@@@ LA,U A0,,A1 . INPUT TY )@@G@@WORD COUNT @D@@@@ TE,U A0,1 . ONE WORD? TZ )@@G@@@D@@@@ J PRMEER . NO, EEROR @[@@@@*MFD UA )@@G@@@#@@@@-201,201 MFD @D@@@@KEYL EQU 7+(NSSP<6)*(2*NSSP)+(NUB )@@G@@SSP>5)*(2*5)@^@@@@ADDKEYS* RES KEYL@[@@@@*PRINT@#@@@@-414 PRUC )@@G@@INT @E@@@@ JZ A13,PR515 . SKIP IF NO BACKUP UD )@@G@@@#@@@@-419,419- PRINT @#@@@@/ /PR515/ @[@@@@*QF @]@@@@-128 UE )@@G@@ QF@E@@@@ SZ FITEM+10 . INITIALIZE SUBCODEUF )@@G@@___ . CURRENT DAY @E@@@@ AN A2,A1 . SUBTRAUG )@@G@@CT # OF DAYS@D@@@@ TG,U A2,1 )@@[S@@@@@@@C=]@@[C*]@@[UH )@@G@@C?]@@[C0]@@[C4]@@[C)]@@@C=]@@@C*]@@@C?]@@@C0]@@@C4]@@@AA@]@@)@F[CK)XK)UKUI )@@G@@)Y^CA)@@@@@@@@@@@@@@@@@@LI0@@@9/@@@@______%@@@@@C@@@@@C@@@@@C)]@@[AB@]@@UJ )@@G@@)@O[S@@@@@@@@@@@@@MI0@@@_@ @[C#AA[@@PRO@@ _@#@[C#AA[@@FIL@@#_@[@[C#AA[@@UK )@@G@@QUA@@[AC@]@@)@Z[S@@@@@@@FCY BL_@L@@A#BA[@@EQUHBL_@I@@M#BAN@@SIZ[FI_@B@[CUL )@@G@@#AA[@@ACC@@B@@@@@@AD@]@@)@%[S@@@@@@@_@U@@=#AA[@@REE@BU_@N@@M#BA[@@CAT]DNUM )@@G@@_@M@@M#BA[@@REF]DM_@L@@G#BAT@@AE@]@@)@5[S@@@@@@@#AA[@@BAC@BF_@&@@G#BAH@@UN )@@G@@BFPABE_@>@@M#BAN@@BTB[FD@@@@@@@@@@@@MI1@@@AF@]@@)[@[S@@@@@@@TE %@@TOP>@@UO )@@G@@TEP=@@TN 1@@TP 0@@TNZ(@@TZ *@@_@,@@=#AA[@@PAC@BM_@$@@=AG@]@@)[F[S@@@@@@@UP )@@G@@T2 T3 XH1 XH2 H1 H2 W TG !@@TNG?@@TLE?@@TNE:@@AH@]@@UQ )@@G@@)[Q[S@@@@@@@ ERROROPTION@@@@@@@@@@@@S1 S2 S3 S4 S5 S6 UR )@@G@@T1 AI@]@@)@@[EK)Z^G@^[]@)K^C]@@@@*W@@@[/K@@@^$'0@@T^Z;@@@'DK@@AR]0@[-US )@@G@@;(K@@E[[K@@@N;0@@[AJ@]@@)@D[F]@O^G@^CCL@^CC)@@@@/,0@@@C8@@[A/[0@@O[@@@@NUT )@@G@@/,0@@@C@@@[+ @@@@N[[@@@U^30@@@AK@]@@)@M[#@K)LEKB*K^*KC*KC]^[*@@@@@/,0@@@UU )@@G@@C/@@@[/,0@@@9?@@@@/,0@@@C/@@@@9*@@@@/K@@@OAL@]@@)@U[#][P][KK)HK)^Z0@@N[0K@@@/,)@@@2@H)@@N8K@@JC@K@[-AT@]@@VE )@@G@@)[X[F#@[]@WK[]@X]]5@K),@(4@@@@/K@@BW/,0@@@[?@@@@O;@@@[/K@@BW:8@@@MC?@@@@VF )@@G@@ @@@[XAU@]@@)[&[#@K),K0@K^C[OG@^[#@@@@@@@@%@@@[$/K@@[2^#0@[X^30@@@/K@@[!VG )@@G@@%@@@[&C@@@@]/K@@[2AV@]@@)[,[#@K0@K^CF^CF=[]]9#@@@@@@@@(@@@[YCC@@@^/K@@BBVH )@@G@@(0@@@@/,)@@@/K@@[2^#0@[Y/K@@[1AW@]@@)[6[N@^@K)#K)#K[@@C8@@@J/K@@]]%8@ALLVI )@@G@@/K@@[W[=K@@@)=@@@@C8@@@C/K@@[.%8@GTB/K@@]]AX@]@@)]@[F]@H@^G@^G@^CF@K@@@@VJ )@@G@@/K@@]G!8K@@GR;X@@@/,)@@@2CH)@OR#K@[*N8K@@3/K@@[W[=@@@@AY@]@@)]D[E([@C@) VK )@@G@@CBL@EKR)@@@@R'0@@@/K@@]NC8)@@]R'0@@@/K@@]L!8K@@=/K@@]NC8)@@[R'0@@@AZ@]@@VL )@@G@@)]M[EK0@K^C@4C@4G@^@K)C@]WK@@N:8K@@M/K@@]&(@@@[X[=0@@@)=)@@@/K@@]R(@@@[YVM )@@G@@C8)@@^BA@]@@)]V[F]@-@[@^[#@[]]0@@@@@/,)@@@(@H@@M/K@@]&:8K@@S/K@@]&:8K@@AVN )@@G@@%8K@@#/K@@]+(W@@@[BB@]@@)]=[##@[]#[#@[@K0@K),K^CF)@@@@(4@@@[/K@@]3**@@@@VO )@@G@@O+.@@L/K@@]3()H@@L9*()@@9?!@@MBC@]@@)]?[#@K0@^[#@[]]9]]9]]8@@@@@@@**@@@@VP )@@G@@^:0@@@[C@@@BCCI@[#/@)@]1C8@DTEC=!@@L/K@@]5BD@]@@)]4[F@K0@K^G@^[]]1]@O@@@VQ )@@G@@;*@@@[[@@@@AC*@@@@/,)@@@/K@@[W*@@@[X/K@@[W*@@@[Y/K@@]'BE@]@@)].[]K0@K)1KVR )@@G@@0@^CG=G@^CG0@@@@@@[@A@@@C@@@@I[@A@@@G@@@@BC@@@@H[@A@@@C@@@@G[@@@@BBF@]@@VS )@@G@@)# [#]@X]#L]#OK)BK),K@@@@@@@@@!8@@@#/@@@#TC?@@@@[*@@@@O;@@@[ @G@@@[@A@@@VT )@@G@@C*@@@@BG@]@@)#H[F]]1]]8^CF[@^CF)@@@@C0@@@AT8)@@E/K@@#S:8@@@[/,)@@@0@@@@IVU )@@G@@P;)@@0C4)@@A/,)@@@BH@]@@)#Q[E[]# ]]9]]8K)UK),@@@CC@@@B9*$@@@;G)@[C(4@@@[VV )@@G@@9?)@@DAA6@@@O]0@@IO#)@@GP;@@@0BI@]@@)#Z[]K^CF=CF^G@[]#H]#C@@@@@@@@ @A@@@VW )@@G@@[@A@@@G@@@@BC@@@@K/,)@@@*=@@@@/K@@#:%8@DTEBJ@]@@)#$[F]#T@K)1K[#@@K)?@@@@VX )@@G@@C^J@@@/,)@@@2CJ)@[C@0@[(N8K@@F/K@@^C[CA@@@CC@@B= @A@@@BK@]@@)#0[F]#GK]&@VY )@@G@@]^AM^ 2@-)@@[@@@@IC*H@@L/K@@#;*=@@@@[@A@@@?80@[CC@@@B%C8_@@@[CA@@@BL@]@@VZ )@@G@@)#9[F@K^CF-#@[#@[]]0@@@@[@@@@IC8H@@@/,)@@@2@H)[KC@K@[%N8K@@IC@@@@C/K@@^]WA )@@G@@/@@@^ BM@]@@)^][EK)1K)1]&@]@-[WCKQ@@/,)@@@(@@@@JC40@@[/K@@A??80@[C9*)@@PWB )@@G@@[CQ@@@)CA@@@;*@@@CBN@]@@)^F[F]]8^[@K),K)?K0@K)6@[@A@@@C@@@@J/,)@@@*0@@@[WC )@@G@@/K@@ !/K@@^K:8@CAT%8@REFCC@@@^BO@]@@)^O[F]]8K^CA+= 2A@]@@@@@!8K@@H!8K@@[WD )@@G@@/,0@^:R@K@[-R8)@@D @B@@@/K@@^9%80@@AC40@@[BP@]@@)^X[F]]1][(@[]]1][(@@@@@WE )@@G@@P;K@[@/,0@^:[)R@@@/,)@@@!8K@@)!8K@@[/,0@^:[=R@@@/,)@@@BQ@]@@)^&[M^CF^CA=WF )@@G@@@^G@@@!8@@@'!8@@@0')[)@@C80@@[ @@@@H/K@@B#[*R@@@/,)@@@!8K@@T!8K@@@BR@]@@WG )@@G@@)^0[N]]0[@[@K@@@@@!80@@]/K@@ >/K@@ U/S@@@@/KF@@@8#0@^!O#K@@GT8K@@EP;@@@0WH )@@G@@/,)@@@BS@]@@)^'[MK)?K),[@^CF@@P;0@@];C)@@#/,)@@@%8)@@Y/K@@ ]:8)@@D%8)@@MWI )@@G@@C4)@@D/,)@@@!80@@ABT@]@@C@@^H-[@@^R\C/)@[MH@)^R?[@)^DP/,0@R\@@@^DD@@@^DKWJ )@@G@@@@@^ML@@@^R?@@@^DP@@@^RY/K@@3,G/@__"[@@^R!G@@^R?[@@^R,D@)^R!/C)@19/^)@2KWK )@@G@@/,0@D=@@@^R?@@@^DD@@@^RY@@@^DE@@@^R1[@@^MNC/@@@[C/)@@VH@)^MM(@@@@I @@@@GWL )@@G@@C/)@@[C.@@@ H[@^R1(@@@@K @@@@I)@@@@I/)K@2J/,0@GL@@@^DH@@@^RY/K@@2&C/@@@GWM )@@G@@H@@^R!/C@@2R/@@@2R/,0@GL@@@^DH@@@^RYC@@^R\T/@@@#N8W^HY^^K@2)/,0@D=@@@^R?WN )@@G@@@@@^R!@@@^RY@@@^DD@@@@2)[@@^MNC@)^R\T/)@@#C[@^R![5I^HXC/@@@[H@@^MK/^@@2\WO )@@G@@C@@^R\T/@@@#C/)@@[[0?^HX[0)^H+/K@@21C/@@@[[4@^H+C@@^R\T/@@@#C@)^MM[*?^HXWP )@@G@@*@@^RU/K@@3=D@@^R!/C@@3 /@@@3 /,0@T\@@@^DF@@@^DD@@@^MJ@@@^R,@@@^DD@@@^RYWQ )@@G@@/K@@3!G@@^R,[@@^R?/K@@1WC/@@@H[@@^MNC/@@[^H@@^R,/C@@3I/@@@3IC/@@[MH@@^R,WR )@@G@@[@@^MN/,0@T\@@@^DG@@@^DD@@@^MJ@@@^R,@@@^MN@@@^RY/K@@3!G@@^R,[@@^R?G/@__"WS )@@G@@[@@^DP/,0@T\@@@^DF@@@^DD@@@^MJ@@@^DP@@@^DD@@@^RY/K@@3![@@^MN/K@@1WC@@^R\WT )@@G@@T/@@@#[@@^DPD@@^RU/C@@3!/@@@3!C/@@@[R@K^DP[?[^HX/K@@31/,0@GL@@@^DH@@@^RYWU )@@G@@R20^DCR@K^DQ/K@ODCAA0^DCA@K^DQ/K@@1F/K@@!- @@^DS @@^DTC/@@@#[@@^DRC/@@@IWV )@@G@@H@@^MM/^@@4[C/@@@[[@@^DRC/@@@[G@@^R2[@@^R,C/)@@[[@)^R\C.@@@A[[@^R0R/K@@]WW )@@G@@R/)@@[N_0@@RA@)^RVC/@@@ H@@^RV/^@@4NC/@@@][@@^R\C/)@@ [@)^R0N8M^FI^^K@4VWX )@@G@@C/@@[MH@@^R2[@@^D:/,0@T\@@@^R\@@@^R0@@@@4V@@@^R2@@@^D:@@@^RY/K@@5B[@@^MNWY )@@G@@C/@@@IH@@^MM/^@@4&C/@@@[[@@^DTC/@@@PH@@^RV/C@@4%/^@@40C=[^F&G/@__//@@@4\WZ )@@G@@C@@^DR[=[^F&/K@@5BC/@@@M[@@^DUC/@@@RH@@^RV/^@@47C/@@@#[@@^DUC/@@@SH@@^RVXA )@@G@@/^@@4/C/@@@P[@@^DUC@@^DUG/@__"R/0@@][@@@[IC=#^F&G/@__//@@@5 C@@^DR[=#^F&XB )@@G@@O/0@@]8N)@5@O/K@@]O/)@@[8N0@4FC/@@@[H@@^DT/^@@5PR/0@@]N_0@@O*=#^F&/K@@5NXC )@@G@@C/@@@][=#^F&O/0@@]8N0@5JC@@^R,G/@__"[@@^D:C/@@[MH@@^R,[@@^D?/,0@T\@@@^DZXD )@@G@@@@@^D)@@@^DV@@@^D:@@@^D?@@@^RY/K@@69G@@^R,G/@@@][@@^R?H/@@[M]@@^D?/,0@T\XE )@@G@@@@@^D-@@@^DZ@@@^MJ@@@^R?@@@^D?@@@^RY/K@@7XG@@^R?G/@__"[@@^R?C/@@@IH@@^MMXF )@@G@@/^@@58C/@@@[[@@^DS @@^R\C@@^D+[@@^RX/,0@9NC@@^R0[@@^R\/,0@T\@@@^D)@@@^DZXG )@@G@@@@@^MJ@@@^R,@@@^DZ@@@^RY/K@@6FG@@^R,[@@^R?C@)^D<[@)^RX/,0@9NC@@^R0H@@^R\XH )@@G@@;K@@@[C#)^R\[@@@[J[#)^MLC@@^ML;O@@@=W/@@@=[@K^MQC@)^MLG/)__"S@)^D=;K)@@^XI )@@G@@G/)@@[[@)^MOR@K^MOA@K^D?R@)^D?C@]^MS;)@OMQ;C@@@+G/@__//@@@6?C/@@@]G@@^MQXJ )@@G@@E@@@@GC@)^DRC@2^MS;)/@@@;G)@@];@0OMQ[@2^MSG_)@@]8N0@6K/,0@T\@@@^D>@@@^DZXK )@@G@@@@@^MJ@@@^R,@@@^DZ@@@^RY/K@@5PG@@^R,[@@^R?/K@@58C/@@@[H@@^DS/^@@7WC_)@@]XL )@@G@@N#0^D&[#)^MLC@@^ML;O@@@=W/@@@=[@K^MQC@)^MLG/)__"S@)^D=;K)@@^G/)@@[[@)^MOXM )@@G@@R@0^MOA@0^D?R@K^D?C@[^MS;)@OMQ;C@@@+*@@@@G/K@@7UC/@@@]G@@^MQE@@@@GC/)@@]XN )@@G@@C@1^MS;)/@@@;G)@@];@0OMQ[@1^MSG_)@@]8N0@6"/K@@7)/,0@GL@@@^D)@@@^RYR20^DXXO )@@G@@9\)^D!R@K^D\R@)^D0R@0^D1N#0^D2N#)^D3/K@ODXAA0^DX9:)^D!A@K^D\A@)^D0A@0^D1XP )@@G@@^#0^D2^#)^D3/K@@9P/,0@R\@@@^DZ@@@^D$@@@^RX@@@^R?@@@^D>@@@^RY/K@@9IG/@__"XQ )@@G@@[@@^R!C/@@@[C/)@@AH@)^R!*@@@@I1@@@@I @@@@GC/)@@[D[@^R!/D@@8 *@@@@K @@@@IXR )@@G@@)@@@@I/)K@8E/,0@GL@@@^D)@@@^RYC@@^R!G@@^R?[@@^R,C@)^D*[@)^MLC.@@@BH[@^R!XS )@@G@@[[@^D4/,0@D=@@@^R?@@@^R!@@@^RY@@@^D4@@@^ML[@@^MNC@)^MLH@)^D(/@)@9 /,0@R\XT )@@G@@@@@^D-@@@^D%@@@^PD@@@^R?@@@^R!@@@^RY/K@@8*[@@^MN/,0@GL@@@^D)@@@^RY/,0@E$XU )@@G@@@@@^ML@@@^R0C@@^R0;@@@@<[@@^R0C/@[Y)H@@^R0/C@@84/@@@84C/@[Y)[@@^R0C/@@@[XV )@@G@@D@)^R0/C)@89*@@@@I @@@@GC/)@@[C[@^R0H[@^R\*@@@@K1@@@@K @@@@I)@@@@I/)K@9^XW )@@G@@/,0@GL@@@^D)@@@^RY/K@@9LC@@^RXH@@^DI^PEYJ )@@G@@[!G^R5CDI^PE[ G^R5C@@^RW[@@^HZC.@@@[H[@^RT/ @@;%CD,^P^+9)Z__[D"^P^C/)@@[YK )@@G@@[@)^RSD@@^[X/C@@;4/@@@;4C@@^RRT/@@@EN8W^P[^^K@;2/,0@Z(@@@@;2@@@^[H/K@@;5YL )@@G@@R20^D59!)^D'R@K^D//K@OD5AA0^D59()^D'A@K^D//K@@9QC@@^HZH@@^R3C#)^R3[@@@[JYM )@@G@@[#)^[_C@@^[_[@@^RRD@@^HK/C@@/C/@@@/C/,0[D< @@^EOC@@^RRT/@@@A @@^EP @@^R2YN )@@G@@C4?^R0[@)^MKC@)^MK;@)@@^^K@/V/,0@D=YO )@@G@@@@@^EW@@@^EX@@@@/V@@@^EY@@@^ML[@@^MNR@K^MKC@)^MK;@)@@N8L^R6YQ )@@G@@^^K@/8/,0@T\@@@^EX@@@^EZ@@@^MJ@@@^EW@@@^E>@@@@/8/K@@//G/@@@][@@^EK @@^MLYR )@@G@@R@K^ERN8L^R6^^K@.#/,0@D=@@@^EK@@@^EX@@@@.#@@@^EY@@@^ML[@@^MNC@)^MLH@)^EMYS )@@G@@/^)@.HC/)@@[[@)^EQ/K@@"\C/@@@[C@)^MLH@)^EJ(@@@@I @@@@GC/)@@[C[@^MLH[@^EFYT )@@G@@(@@@@K @@@@I+@@@@I/=K@.XC/@@@][@@^EQ[@@^R2/K@@"\C@@^MLH@@^EG/^@@.D@@^EP/C@@"6/@@@"6C@@^EPZB )@@G@@[@@^EQR@K^E>CC[^G'[@@^R\C/@@@[[@@^EK/K@[@KR@K^MKC/@@@]H@@^R2/@@@_SC/@@@[ZC )@@G@@[@@^R2[@@^R0[@@^R1CC-^GK[@)^R\D@)^R\/C)@_D/^)@_H/,0[^\@@@^E+@@@^ES/K@@_PZD )@@G@@R@K^R\C^[^R4[@@^E>N8L^R6^^K@_O/,0[^\@@@^E>@@@@_O/,0@FM@@@^E<@@@^D.R@K^MKZE )@@G@@CC[^G>[@@^R\C/@@@[[@@^EK/K@[@\R@K^MKC^[^GK[@@^R\ @@^R2C@@^EQ[@@^R1C/)@@[ZF )@@G@@[@)^R0(@@^R\/K@@_1R@K^R\C [^R4[[@^E>N8L^R6^^K@_\/,0[^\@@@^E>@@@@_\/K@@_'ZG )@@G@@C@@^MK;@@@@N8W^F>^^K@_9/,0[^\@@@^E>@@@@_9R@K^MKA@K^E>C/@@@[ZH )@@G@@C/)@@[H@)^R1/C)[@]*@@@@I @@@@GC/)@@[C.@@@[H[@^EO*@@@@K @@@@I+@@@@I/)K[@GZI )@@G@@C@@^P]G/@__"[@@^P]R@K^E>C^[^G'[@@^R\ @@^EKD@@^R\/C@[@*/@@[@*/,0@E;@@@^D.ZJ )@@G@@R@K^R\C^[^R4[@@^E>N8L^R6^^K[@X/,0@D=@@@^EZ@@@^E>@@@[@X@@@^EZ@@@^D.[@@^MNZK )@@G@@/,0@FW@@@^E<@@@^D.R@K^R\CC[^R5[@@^R\/K@[@KR@K^MKC/@@@[H@@^EK/@@@"/C^[^G>ZL )@@G@@[@@^R\ @@^EKC/@@@][@@^R2(@@^R\/K@[[FR@K^R\CC-^R4[@)^R1A@K^E>C@@^R1G/@__"ZM )@@G@@/C@[@./@@[@.C/@@@[[@@^R1R@K^E>C)[^R5[@@^R0C^[^R4[@@^E&N8L^R6^^K[[A/,0[^\ZN )@@G@@@@@^E&@@@[[AR@K^R\CC[^R5[@@^R\/K@[@\C/@@@[H@@^EK/@@@_YG_)@@[8N0@/[/K@[[LZO )@@G@@R20^EU9\)^E$R@K^E(N#0^E%/K@OEUAA0^EU9:)^E$A@K^E(^#0^E%/K@[^;/,0@E;@@@^D.ZP )@@G@@C@@^R0G/@__"C_0@@[[@@@[J[#0^RV/,0@D=@@@^EZ@@@@@@@@@@@@@@@^EZ@@@^D.[@@^MSZQ )@@G@@C/)@@[H@)^R2/@)[[.C@)^[RG@)^MO[@)^EL/,0@CR@@@^MS@@@^EL@@@^D.C@@^[RG/@__"ZR )@@G@@[@@^E:/,0@D=@@@^EZ@@@^E:@@@^[I@@@^MS@@@^D.[@@^MSC@@^R1G/@__"C_)@@[[@@@[IZS )@@G@@[#)^RUC/@@@[G@@^MO[@@^EL/,0@CR@@@^MS@@@^EL@@@^D.C/@@@[H@@^R2/@@[]N/,0@D=ZT )@@G@@@@@^EX@@@^EZ@@@^MJ@@@^MS@@@^D.[@@^MSC@@^RRT/@@@AN8W^R1^^K[]U/,0@D=@@@^EZZU )@@G@@@@@^MO@@@[]U@@@^MS@@@^D.[@@^MS(@@^HV/K@[#[C/)@@[H@)^R2/^)[]*C/)@@[H@)^EQZV )@@G@@/C)[#[/@)[#[/K@[]:C/@@@[H@@^RU/@@[#[C@@^HQH@@^E=/@@[#U/,0@D=@@@^E+@@@^EZZW )@@G@@@@@^MJ@@@^MS@@@^D.[@@^MS/,0@CR@@@^MS@@@^HV@@@^D./,0@D=@@@^EZ@@@^HV@@@^HQZX )@@G@@@@@^MS@@@^D.[@@^MS/K@[#UD@@^MP/C@[#U/@@[#U/,0@D=@@@^E+@@@^EZ@@@^MJ@@@^MSZY )@@G@@@@@^D.[@@^MS/,0@CR@@@^MS@@@^MP@@@^D.C@@^RRT/@@@AN8W^R3^^K[#Q/,0@D=@@@^EZZZ )@@G@@@@@^MP@@@[#Q@@@^MS@@@^D.[@@^MSC/@@@[H@@^R2/@@[^$C@@^R1H@@^RU/@@[^^/,0@D=AA )@@G@@@@@^EY@@@^EZ@@@^MJ@@@^MS@@@^D.[@@^MSC/)@@[C.@@@[H[@^RU(@@@@K @@@@IC.@@@[AB )@@G@@*@@^[E @@@@K)@)@@K/=0[^]C@)^[EG@)^MO[@)^EL/,0@CR@@@^MS@@@^EL@@@^D.C@@^[EAC )@@G@@G/@__"[@@^E:/,0@D=@@@^EZ@@@^E:@@@^[[@@@^MS@@@^D.[@@^MSG_)@@[8N)[][R@K^R\AD )@@G@@C/@@@]H@@^R2/^@[^+C=[^R5[@@^MND@@^MN/C@[^+/@@[^+/,0@D=@@@^EY@@@^EZ@@@^MJAE )@@G@@@@@^MS@@@^D.[@@^MS/,0@CR@@@^MS@@@^MN@@@^D.R@K^R\C*[^R5[@@^E:/,0@D=@@@^E:AF )@@G@@@@@^MN@@@@@@@@@^MS@@@^D.[@@^MS/,0@FW@@@^E<@@@^D.G_0@@[8N0[[-/K@[^*R20^EVAG )@@G@@9!)^E?9\)^E,R@K^E0N#0^E1N#)^E2/K@OEVAA0^EV9()^E?9:)^E,A@K^E0^#0^E1^#)^E2AH )@@G@@C8FK@@[^@[[=C8FK@[[^@[[>[^@[^Y/K@[[V/K@@;. @@^R? @@^R, @@^R\ @@^R0C/@@@[AI )@@G@@[@@^MMC/@@@[G@@^MM[@@^MMT/@@@#C4?^HX[@)^MPC*?^HXG/)__?/^)[ MC@@^RWT/@@@AAJ )@@G@@C0?^R0[@)^MOC/@@@][@@^ML/K@[ SC@@^RWT/@@@AC??^R0[@)^MOC/@@@^[@@^MLC@@^MPAK )@@G@@H@@^MO/C@[ W/^@[AQD@@^MP/C@[AD/@@[ADC@@^MPG/@__"C_)@@[[@@@[J[#)^RUC@@^MMAL )@@G@@T/@@@#[@@^E6R@K^E6N8L^HY^^K[ !/,0@D=@@@^RU@@@^E4@@@[ !@@@^E5@@@^R\[@@^MNAM )@@G@@C@)^RWT/)@@AG@)^MLC.@@@*H[@^R\/[@[ABC[@^MOH[@^RU/D@[ ;/ @[AQN8Y^R\^^K[A@AN )@@G@@/,0@D=@@@^RU@@@^E4@@@[A@@@@^E5@@@^R0[@@^MNC@)^R0H@)^R\/^)[AQG_)@@[8N0[ ^R\HC&^R\/@)[DB/G)[DM/K@[DJC^>^R\H^&^R\BE )@@G@@/@)[DG/G)[DM/K@[DJO.@@@[8N)[CJ/K@[DMC@@^E;[@@^RR[@@^E"O/K@@AO/)@@AG_)@@[BF )@@G@@8N0[C]/K@[DRR20^E_9!)^F#9\)^F R@K^FBR@)^FCR@0^FDR[@^FER[K^FFR[)^FGN#0^FHBG )@@G@@N#)^FI/K@OE_AA0^E_9()^F#9:)^F A@K^FBA@)^FCA@0^FDA[@^FEA[K^FFA[)^FG^#0^FHBH )@@G@@^#)^FI/K@[B-@@F@@@E%%%%:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@F@@@E%%%%:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HDG @@@@@WBJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@[@@@@@]@@@@@#@@@@@N@@@@@ONO INPBK )@@G@@UT ELEMENTS FOUND ______@@F@@@@@@@@C@@@@@]**PF**@@@@@DWWWWWX@@@@@^@@@@@FBL )@@G@@@@@@@[@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^-HDELETION FLABM )@@G@@GS IN ELEMENT TABLE ERASED @[B^BL@]D@@@FILE WORD : @@@@@@@@@@@@BN )@@G@@@[^^BVELEMENT TABLE ITEM@@@@@@@[^^B) (SYM) (REL) (ABS)@@@@@]@@@@@[@@@@@@BO )@@G@@ 1. BP )@@G@@ @@F@@@@@@@@[@@@@[O@@@@@A@@@@@K@@@@@]@@@@@E@@@@@^BQ )@@G@@_____"@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@F@@@@@F@@@ ADDIMG@@@@@X@@@@@[_____"@@@@@]@@@@@V@@@@@^BS )@@G@@@@@@@G@@@@@E@@@@@#E%%%%:S R A O TN V D@@@@@@@@@@@@@@@@@@BT )@@G@@@@F@@@_____"@@@@@[@@@@@A@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@F@@@@@F@@@@@@@@[@@@@@A@@@@@ _____"@@@@@^ / ) @@@@@]BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SEQ ______BW )@@G@@@@F@@@@@F@@@@@@@@[@@@@@^_____" /, / WWWWWX@@@@@ @@@@\J@@@@@# BX )@@G@@ EOF@@@@@E@@F@@@@@@@@B@@@@@[@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@CHG@@@DEL@@@HDG@@@MSG@@@COP@@@@@@@@@@@@@@@PRT@@@MAP@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@HDG ______@@F@@@@]F@@@@@@@@]@@@@@#@@@@@^@@@@@[@@@@@F@PREP @@@@@ CA )@@G@@@@@@@I @@F@@@@@@@@[@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@F@@@ ASMP COBP FORP SYMU ELT ASM COB FOR ALG CC )@@G@@ MAP DOC SEC SSG APL BAS LSP PLS PL1 REL ABS OMN CD )@@G@@ SYM PDP ALL @PDP,L ]@B@PDP,LC ]@C@PDP,LF ]@C@PRT [@ @ELT,LCE )@@G@@ ]@B@ASM,S #@B@COB,S #@B@FOR,S #@B@ALG,S #@B@MAP,S #@B@DOC,SCF )@@G@@ ]@B@PRT [@ @PRT [@ @PRT [@ @PRT [@ @PRT [@ @PRT CG )@@G@@ [@ @PL1,S #@B@MSG,N [@B@MSG,N [@B@MSG,N [@B@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@CN )@@G@@@PACK @PRT,TL @@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =.,/(@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ABCDEFGHIJKLMNOPQRSTUVWXEC )@@G@@YZ,.+-1234567890=*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ EP )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@D\@?-@@@___@@E^G_@]6^I?)[<^HD@@@___@@@___@@@___ES )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___ET )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___C@@^A7[@@^HA[@@^HB/,0@56EU )@@G@@@@@^I?@@@^I!C/@@@[C/)@@HH@)^I?/C)@?!*@@@@I @@@@GC/)@@[C[@^I?G.@__4/D@@?3EV )@@G@@*@@@@K @@@@I+@@@@I/=K@,MC/@@@[C/)@@EH@)^I?/C)@?;*@@@@I @@@@GC/)@@[C[@^I?EW )@@G@@G.@__8/D@@![*@@@@K @@@@I+@@@@IC/)@@[C.@@@^H[@^I?/D@@!C*@@@@K @@@@IC.@@@[EX )@@G@@C[)^I?G.)__"/D)@!I*@@@@M @@@@K+@)@@K;^@@@=)@@@@J/=K@!1C/@@@[C/)@@AH@)^I?EY )@@G@@*@@@@I @@@@GC/)@@[C.@@@ H[@^I?*@@@@K @@@@I)@@@@I/=K@,#C/@@@[C/)@@IH@)^I?EZ )@@G@@*@@@@I @@@@GC/)@@[C.@@@JH[@^I?*@@@@K @@@@I)@@@@I/=K@,W/,0@F^@@@^[.@@@^JHFA )@@G@@@@@^I5C/@@@[[@@^H@/K@@1:C@@^JI[@@^H C/@@@[H@@^I!/^@@!8C@@^JJ[@@^H^C/@@@]FB )@@G@@H@@^I!/^@@!.C@@^JK[@@^H^C/@@@#H@@^I!/^@@,]C@@^JL[@@^H^/K@@,)C@@^JM[@@^H FC )@@G@@C@)^JN[@)^H^C/@@@[H@@^I!/^@@,GC@@^JO[@@^H^C/@@@]H@@^I!/^@@,LC@@^JP[@@^H^FD )@@G@@/K@@,)C@@^JM[@@^H C@)^JQ[@)^H^C/@@@[H@@^I!/^@@,VC@@^JN[@@^H^/K@@,)C@@^JRFE )@@G@@[@@^H C@)^JS[@)^H^/,0@UDC@@^A7H@@^A'C#)^A']@@@[J[#)^[_C/@@@[G@@^H][@@^H]FF )@@G@@C/@@^%H@@^H]/^@@,0/,0@F^@@@^[.@@@^JT@@@^J@C/@@^(H@@^H]/C@@,4/^@@\CC/@@@[FG )@@G@@G@@^H#[@@^H#C/)@@[C.@@#BH[@^H](@@@@K @@@@IC.@@@[C.)@[=H[)^H](@@@@M @@@@KFH )@@G@@+@)@@K/=0@\CC/)@@GG@)^H[[@)^H[C.@@@[[[@^H# @@^I, @@^I\/,0@T;@@@^A6@@@^JUFI )@@G@@@@@^A5@@@^A4(@@^A6/K@@04C/@@@[C/)@@]H@)^A6*@@@@I @@@@GC/)@@[C.@@@[H[@^A6FJ )@@G@@*@@@@K @@@@I)@@@@I/=K@0;C/@@@DH@@^A6/@@@0/K@@1?R20^JG9!)^J)9\)^J+R@K^J=N#0^J>/K@OJGAA0^JG9()^J)9:)^J+FW )@@G@@A@K^J=^#0^J>/K@@?-*@@^H@/K@@48C@@^A'H@@^HA[@@^LSC@@^G_G/@_"V/C@@2#/@@@2#FX )@@G@@C@@^G_[@@^J&C/@@@[G@@^H][@@^H]C/)@@[G@)^H#[@)^H#C#)^HAN#0^LS[#)^[_C@@^H]FY )@@G@@G/@__"[@@^H]G/@_;Q/G@@2M/^@@22C@@^H#G/@__"[@@^H#C/)@#AH@)^H]/^)@2WC/)@@GFZ )@@G@@[@)^H[C.@@[<[[@^H#C/@@[K@3WC/@@@EH@@^A6/@@@3O/,0@F^@@@^[.@@@^LL@@@^J(C/@@@EGE )@@G@@H@@^A6/^@@3V/,0@F^@@@^[.@@@^LM@@@^J8/K@@3)/,0@F^@@@^[.@@@^LN@@@^KAR@K^J&GF )@@G@@C@[^HB;C@@@VC/)@@[H@@^[_(@@@@G @@@@IC/@@@[D[@^J&/D@@3?*@@@@K @@@@G)@)@@GGG )@@G@@/=0@4JR@K^J&C@[^HB;)@@@D;C@@@VC/)@]V"O)@@G;^)@@="C)^H C/@@]VC^L^HB"O@@@HGH )@@G@@;^@@@="G@^H^"@)@@G"C)^LK"K)@@I?/)@[WC80@@@D@)@@I;)0@@C;K"@]<[@0^J*/,0@5?GI )@@G@@@@@^J*@@@^KQ/,0@F^@@@^[.@@@^LO@@@^KKC@@^J&G/@__"[@@^J&/K@@3)G_)@@[8N0@2FGJ )@@G@@C@@^HBH@@^A'/C@@4+/@@@4+/,0@ET@@@^HB@@@^K+/,0@ET@@@^A'@@@^K>/,0@5?@@@^C-GK )@@G@@@@@^K$/,0@F^@@@^[.@@@^LP@@@^KWC/@@@[H@@^G_/C@@4!/@@@4!/,0@ET@@@^G_@@@^K(GL )@@G@@/,0@F^@@@^[.@@@^LQ@@@^K(C/@@[=H@@^G_/C@@45/@@@45/,0@F^@@@^[.@@@^LR@@@^K0GM )@@G@@C@@^HBH@@^A7/@@@5#/,0@T"C_)@@[N_0@J&[#)^[_C@@^[_H@@^A7/C@@5C/@@@5C/,0@U GN )@@G@@G_)@@[8N0@4;/,0@U@C/@@@]H@@^A6/^@@5C/,0@T"/,0@F^@@@^[.@@@^LN@@@^L#/K@@5HGO )@@G@@R20^LI9!)^LT9,@^LV9\)^LXR@K^LZN#0^L)/K@OLIAA0^LI9()^LT9%@^LV9:)^LXA@K^LZGP )@@G@@^#0^L)/K@@55/,0@ET@@@@@@@@@^J$C@@^J$;)@@@A;C@@@GC@K@@@;)K@@S;G@@@S[@K@@@GQ )@@G@@C/@@@.[=@@@@C@)^J$[))@@@/K@@5%R20^LJ/K@OLJAA0^LJC8FK@@[^@@5WC8FK@[[^@@5-GR )@@G@@[^@@5=[^@@5&[^@@5*/K@@5V/K@@18C@@^L-'=@@@UC4K^]<[@VK@@C@@^]>:8K@@D/K@@6CGS )@@G@@:8K@@E/K@@6C:8K@@F/K@@6G:8K@@G/K@@6G:8K@@H/K@@6G;@@@@I;C@@@+/K@@6I;@@@@KGT )@@G@@;C@@@+O;@@@[/K@@6I;@@@@G;C@@@<[@FK@[/KF@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB-FUNC STATUS RETGV )@@G@@URN OF EQUIP TYPES OTHER THAN 01-017 NOT IMPLEMENTED FOR B-OPTION GW )@@G@@______B-OPTION CALCULATES MAX 297 FILES ______B-KEYIN ENCOUNTERED GX )@@G@@______@@F@@@@@@@@EJ?@@@@LIK@@@LWQ@@@LYK@@@J&T&T&L=E%%%LOE%%%LX2%%&L?E%%%GY )@@G@@J>PPPOL=@8@@@@@@@A@@@___@@@@@ @@@@@^K>K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@[=@@@@@@@@@@@@APPROXIMATE TAPE-LENGTH FROM RB-FUNCHA )@@G@@ ERROR POSITION TO EOF IN FILE FEET APPROXIMATE TAPE-LHB )@@G@@ENGTH FROM B-KEYIN POSITION TO EOF IN FILE FEET APPROXHC )@@G@@IMATE TAPE-LENGTH OF FILE FEET 1 RECORD SKIPPED DHD )@@G@@UE TO G-KEYIN AT FEET BEFORE EOF IN FILE APPROXIMATE TAPE-LHE )@@G@@ENGTH OF FILES THROUGH FEET RECORHF )@@G@@DS SKIPPED DUE TO G-KEYINS ONLY THE FIRST 100 G-KEYIN TAPE POSITIONS HG )@@G@@ARE SPECIFIED FROM END OF LAST THROUGH TO START OF FIRST FILE ______HH )@@G@@TAPE IS NOW POSITIONED WHERE CONTROL WAS TAKEN OVER BY TOC ______@@F@@@HI )@@G@@@]F@@@K>K@@@@@@@@J@@@@@I@@@@@E@@@@@G@@@@@H@@@@@B@@@@@M@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D^]X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q)@Q[@@@___@BA^ 0)@D^G6HM )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___HO )@@G@@/,0@YA@@@^[UD@@^[-/C@@QA/^@@TGD@@^[=/C@@QG/@@@QG/,0@FW@@@^AU@@@^[;C/@@@[HP )@@G@@D@)^A9*@@@@I1@@@@I @@@@GC/)@@[C[@^A8H[@^A9/D@@QR*@@@@K @@@@I+@@@@I/=K@TGHQ )@@G@@C@@^A8[@@^A/*@@^A8/K@@Q\/,0@FM@@@^AV@@@^[(/K@@Q\/,0@U C/@@@[D@)^A9*@@@@IHR )@@G@@1@@@@I @@@@GC/)@@[C[@^A8H[@^A9/D@@Q!*@@@@K @@@@I+@@@@I/=K@TKC/@@@[G@@^A8HS )@@G@@[@@^A8/,0@ET@@@^A8@@@^@.C@@^A8G@@^A7G/@__"[@@^A'/,0@T9@@@^A6@@@^A4@@@^A5HT )@@G@@@@@^A"(@@^A6/K@@S0C/@@@[H@@^A6/@@@R4C/@@@[(@@^[< @@@@GC/)@@[C.@@@^H[@^A6HU )@@G@@(@@@@K @@@@I)@@@@I/=K@RM @@^A6C/@@@[G@@^A5[@@^A5/K@@S0/,0@ET@@@^A'@@@^['HV )@@G@@/,0@F^@@@^["@@@^AW@@@^[8/,0@U6@@@^A6@@@^A#/,0@F^@@@^[.@@@^AX@@@^ _C/@@@DHW )@@G@@H@@^A6/@@@R>/,0@GL@@@^AY/,0@U C/@@@[D@)^A9*@@@@I1@@@@I @@@@GC/)@@[C[@^A8HX )@@G@@H[@^A9/D@@R1*@@@@K @@@@I+@@@@I/=K@TK/K@@Q\C/@@@[C/)@@ H@)^A;(@@@@I @@@@GHY )@@G@@C/)@@[C.@@@AH[@^A;(@@@@K @@@@I+@@@@IC/)@@[C.@@@DH[@^A;(@@@@K @@@@I+@)@@HHZ )@@G@@/=0@SE/,0@UD/,0@?R/K@@Q+/K@@Q-C/@@@[D@)^A9/C)@SJ*@@@@I @@@@GC/)@@[C.@@@[IA )@@G@@H[@^A8*@@@@K1@@@@K @@@@I+@@@@I/=K@SR#FK@[A#@^A&R;@^A-'=@@@#/K@KT0C8@@@K/K@@T/C8@@@L/\)@F@@@^A"@@@^C+/K@@WBC@@^C-G/@_"K/@@@WB/,0@F^@@@^[.@@@^DE@@@^C9C/@@[\IW )@@G@@[@@^C-/K@@WBD@@^[)/C@@X_/@@@X_/,0@D=@@@^DF@@@^@9@@@^@0@@@^DG@@@^ 0G/@@@^IX )@@G@@[@@^ "[@@^C>C_)@@^R@K^DLN_0@@D[#)^C&C@@^C:;)@OC&;C@@@<(@@@@G/K@@W9N8L@@@IY )@@G@@^^K@W4/,0@D=@@@^C&@@@@W4@@@^C*@@@^ "@@@^ 0[@@^ "O/K@@[G_)@@[8N0@W%C/@@@#IZ )@@G@@[@@^C&C@@^ "H@@^C>/@@@X#C/@@@^[@@^C&C@@^C>G/@__;[@@^DM/,0@D=@@@^DF@@@^C&JA )@@G@@@@@^C?@@@^DM@@@^ 0[@@^C>C/)@@[G@)^ "[@)^ "C[@^[E[[@^C$D[)^[Z/D)@XP/ )@XUJB )@@G@@/H@@XR/ @@X%C[@^DH[[@^[[/K@@X*/,0@D=@@@^DF@@@^DI@@@^C_@@@^ "@@@^ 0[@@^ "JC )@@G@@C/)@@][@)^C,D[@^[E/D@@X&/ @@X%C[@^DJ[[@^[[C/@@@ [@@^C$C/@@@ G@@^C$[@@^C&JD )@@G@@/,0@Y-/,0@D=@@@^DF@@@^C$@@@^[[@@@^ "@@@^ 0[@@^ "/,0@D=@@@^C,@@@^DE@@@^D[JE )@@G@@@@@^ "@@@^ 0[@@^ "/,0@T>@@@^ 0@@@^C@@@^ 0@@@^C/^@@Y?JI )@@G@@C/@@@[[@@^A;/K@@)9C@@^A"H@@^D&/^@@Y2C/@@@ [@@^A;/K@@)7C@@^A"H@@^D$/^@@Y8JJ )@@G@@C/@@@A[@@^A;/K@@)7*@@^A;/K@@Z@C@@^A"H@@^DT/^@@)#C/@@@D[@@^A;/K@@)7C/@@@DJK )@@G@@H@@^A;/^@@ZDC@@^A"H@@^DT/^@@)6C/@@@E[@@^A;/K@@)9C/@@@ H@@^A;/^@@Z&C/@@@[JL )@@G@@C@)^A_H@)^DT(@@@@I @@@@GC/)@@[C[@^B@H[@^DT(@@@@K @@@@I+@@@@I/=K@ZVC/@@@#JM )@@G@@[@@^A;/K@@)9C@@^B[H@@^D*/@@@ZC?[^A.G/@__%/@@@-+C?[^A.JX )@@G@@G/@__7/^@@->C/@@@[[@@^A./K@@-=C/@@@][@@^A./K@@-?C/)@@]/,0@-$8#)@-(/K@@GDJY )@@G@@!0)^D=/K@@GD[0)^D=R20^D=R@K^D\/K@OD=&'0@]FA]0^D=A@K^D\C@VK@@[@K^D,/K@@-DJZ )@@G@@/K@@Y&/,0@E;@@@^ 0 4@^ 0/,0@D=@@@^D;@@@^@9@@@^@0@@@^D/@@@^ 0G/@@@^[@@^ "KA )@@G@@[@@^D1C_)@@[R@K^E@N_0@@H[#)^D0C/@@@#H@@^D0/@@@+MN8L@@@^^K@+H/,0@D=@@@^D0KB )@@G@@@@@@+H@@@^D2@@@^ "@@@^ 0[@@^ "O/K@@[G_)@@[8N0@+ C/@@@#[@@^D0C@@^ "H@@^D1KC )@@G@@/@@@+WC/@@@^[@@^D0C@@^D1G/@__;[@@^E[/,0@D=@@@^D;@@@^D0@@@^D5@@@^E[@@@^ 0KD )@@G@@[@@^D1C/)@@[G@)^ "[@)^ "/,0@CR@@@^ "@@@^[R@@@^ 0/,0@D=@@@^D;@@@^[R@@@^[IKE )@@G@@@@@^ "@@@^ 0[@@^ "/,0@D=@@@^D.@@@^D;@@@^D5@@@^ "@@@^ 0[@@^ "/,0@CR@@@^ "KF )@@G@@@@@^[E@@@^ 0/,0@D=@@@^D;@@@^[E@@@^[[@@@^ "@@@^ 0[@@^ "/,0@D=@@@^D.@@@^D;KG )@@G@@@@@^D5@@@^ "@@@^ 0[@@^ "C/)@@H[@)^D0/,0@CR@@@^ "@@@^D0@@@^ 0/,0@=(@@@^@;KH )@@G@@/,0@D=@@@^D"@@@^D;@@@^D5@@@^ "@@@^ 0[@@^ "/,0@=(@@@^@//,0@D=@@@^D"@@@^D/KI )@@G@@@@@^D5@@@^ "@@@^ 0[@@^ "/,0@D=@@@^D"@@@^D;@@@^@"@@@^ "@@@^ 0[@@^ "/,0@=(KJ )@@G@@@@@^@./,0@FW@@@^D_@@@^ 0C@@^C+G/@__'/C@@<5/^@@=]C@@^C+G/@__'C_)@@ [@@@[JKK )@@G@@[#)^D0/,0@T?@@@^A"@@@^D0/,0@FW@@@^D_@@@^A"G_)@@[8N0@<9/K@@=#R20^D99\)^E]KL )@@G@@R@K^E^N#0^E /K@OD9AA0^D99:)^E]A@K^E^^#0^E /K@@=0C)@@@@H@@^D7/@@@=&C/@@@[KM )@@G@@[@@^D8C=@@@@H@@^D7/@@@=RC/@@@][@@^D8C*@@@@H@@^D7/@@@=WC/@@@#[@@^D8C/@@@BKN )@@G@@H@@^D8[@@^EA/,0@D=@@@^EA@@@^D8@@@@@@@@@^ "@@@^ 0[@@^ "/K@@=$R20^D'/K@OD'KO )@@G@@AA0^D'C8FK@@[^@@=H[^@@=M[^@@=R[^@@=+/K@@=HC8FK@@[@@^E@/K@@-6/,0@UD@@@^A6KP )@@G@@C/@@@]H@@^A6/@@@=9/,0@U C/@@@[D@)^A//C)@="*@@@@I @@@@GC/)@@[C.@@@1H[@^@"KQ )@@G@@(@@@@K @@@@I+@@@@I/)K@>C/,0@FW@@@^F-@@@^E>/,0@ET@@@^A'@@@^ED/,0@FM@@@^F+KR )@@G@@@@@^EBC/@@@[H@@^A./^@@>O/,0@FM@@@^F<@@@^E*C/@@@]H@@^A./^@@>U/,0@FM@@@^F=KS )@@G@@@@@^E\D@@^[Z/C@@>X/^@@>-C@@^[E[@@^E=/G@@>-/^@@>7C/@@@[D@)^A//C)@>&*@@@@IKT )@@G@@ @@@@GC/)@@[D[@^[Y/D@@>:*@@@@K @@@@I)@@@@I/)K@>0/,0@FW@@@^F>@@@^E5C/@@@ KU )@@G@@[@@^E=D@)^[Z/C)@>5/^)@>7C@)^F&[@)^[[ @@^A.C/@@@EH@@^A;/^@@>"C@@^F$[@@^EOKV )@@G@@/K@@&TC/@@@[H@@^A;/@@@&TC@@^F*[@@^EOC@)^F([4)^EPC/@@@]H@@^A;/@@@&RC@@^F%KW )@@G@@[4@^EPC.@@@#H[@^A;/[@@&TC.@@@^H[@^A;/[@@&RC[@^F:[[@^EOC[)^F?[5)^EPC.@@@BKX )@@G@@H[@^A;/[@@&TC/@@@[[@@^A./,0@D=@@@^F!@@@^[R@@@^[I@@@^F,@@@^EO[@@^E/,0@F^@@@^G:@@@^G0@@@^F"/K@@%(/,0@F^@@@^G:@@@^G1@@@^F;LU )@@G@@/,0@F^@@@^G2@@@^G2@@@^G(C@@^A5G/@__"C/)__1[@)^G$R/K@@[[@@@[IA@K^GLW )@@G@@C.@@@[[[@^G&C_)@@[N_K@@F[#)^G=C@@^G>G/@__-/C@@:E/^@@:IC/@__9[@@^G>C/)@@]LX )@@G@@[@)^G&C/@@@AG@@^G>[@@^G>R@)^G&G/@@@AC@)^G=G/)__"C[[^A.;-I@@@;D@@@-G.@@@0LY )@@G@@E@@@@GC[M^G);-W@@@;H@@@A;[KOG>[[M^G)G_)@@#8NK@: /,0@D=@@@^G2@@@^G4@@@^G-LZ )@@G@@@@@^G$@@@^GH[@@^G*C/)@@[C[@^G8@@@^ =@^@P/,)^*M/,)@KK^=0^@M/K@@P$R3K^@LR#@^@@>8@@^@/^K^YAR#@^@@HM )@@G@@=@@^1(/K@^W"R#@^@@)8@@^@*[S@@@*SDFF*@#@@@@ENP* PROC . @#@@@@ENPS* HN )@@G@@ NAME . @C@@@@EN* EQUF 0,8 . ELEMENT NAME@C@@@@HO )@@G@@DF* EQUF 3,8 . DELETE FLAG @A@@@@OPN* EQUF HP )@@G@@ 3,8,S2 . @A@@@@ETYP* EQUF 7,8,S1 . @ @@@@STYP* HQ )@@G@@ EQUF 3,8,S3 @C@@@@VN* EQUF 4,8 . VERSIOHR )@@G@@N NAME@E@@@@VNDAT* EQUF 4,8 . DATE$ EXPIRATION DATE HS )@@G@@@D@@@@VNTYP* EQUF 5,8 . NEWS ITEM TYPE @D@@@@CCYC* HT )@@G@@ EQUF 6,8,T2 . CURRENT CYCLE NO. @E@@@@TXLEN* EQUF HU )@@G@@ 7,8,H2 . LENGTH OF TEXT IN ELT @D@@@@TXLOC* EQUF 8,8 HV )@@G@@ . SDF LOCN OF TEXT @D@@@@ETIM* EQUF 9,8,H1 . HW )@@G@@TIME ELT ADDED @D@@@@EDAT* EQUF 9,8,H2 . DATE ELT ADDHX )@@G@@ED @D@@@@EMO* EQUF 9,8,S4 . MONTH ELT ADDED @D@@@@HY )@@G@@EDY* EQUF 9,8,S5 . DAY ELT ADDED @D@@@@EYR* EQHZ )@@G@@UF 9,8,S6 . YEAR ELT ADDED @D@@@@ELTIME* EQUF 9,8,IA )@@G@@H1 . TIME ELT ADDED @D@@@@ELTDAT* EQUF 9,8,H2 .IB )@@G@@ DATE ELT ADDED @#@@@@ END . @[@@@@. @[@@@@. @#@@@@IC )@@G@@INC* PROC . @A@@@@ LA A0,INC(1,1) . @ @@@@ ID )@@G@@ AA,U A0,1 . @A@@@@ SA A0,INC(1,1) . @#@@@@IE )@@G@@ END . ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@*[S@@@*SDFF*@^@@@@S PROC . @^@@@@SAVR* NAME . IG )@@G@@@A@@@@ SX X1,S(1,1) .@A@@@@ SX X2,SIH )@@G@@(1,1)+1 .@B@@@@ LX X1,(1,+S(1,1)+2) . @A@@@@ II )@@G@@ LX X2,(1,3) .@A@@@@ LR,U R1,29 .IJ )@@G@@@A@@@@ BT X1,,*X2 .@^@@@@ END . IK )@@G@@@^@@@@S PROC . @#@@@@RSTORR* NAME . @A@@@@ LXIL )@@G@@ X1,(1,3) .@A@@@@ LX X2,(1,+S(1,1)+2)@A@@@@IM )@@G@@ LR,U R1,29 .@A@@@@ BT X1,,*X2 IN )@@G@@ .@A@@@@ LX X1,S(1,1) .@A@@@@ LX IO )@@G@@ X2,S(1,1)+1 .@]@@@@ END . ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@@0@/V]@@@)@@@U@@@@@@@IR )@@G@@9?Z@@@ @J@@EC@0@@G@@@@@@@@^@@@@@@@@@@@@@@@ FILE AA@@@@)@#[##@@K0@EIS )@@G@@S@CK@*S@C@@@@@@@@@C@J@@A/K@@@I*4@@@#'=@@@@C8@@@@[^@@@^G8@@@A9*K@@@AB@@@@IT )@@G@@)@F[N#@[@@@@@@@@@@CCJ@@E;@)@@MC@)@@HC@0@@G/KF@@[[CJ@@EC8@@]G/KF@@[/K@@@IIU )@@G@@%@@@@AAC@@@@)@P[E[#@[#@@K0@ES@CK@)@@'=@@@@C8@@@@[@@@@ C8@@@[[^)@@^[C@@@^IV )@@G@@C8@@]G/KF@@[:8@@]GAD@@@@)@Y[F#@@^@K0@^G@@@@@@@@@C8)@^S[^)@@^G8)@]GC^)@@^IW )@@G@@[@Z@@]/@K@@IC^Y@]F/KF@@@*4@@@#AE@@@@)@$[N#@@^@@@@@@@@@G8@@@AT8@@@EC[)@@GIX )@@G@@[@Z@@ C8K@@WP;@@@[/^K@@!W8@@@W @@@@G[C)@@^AF@@@@)@1[F#@@@K0@]&@]^@C@@@@@IY )@@G@@'=@@@@C8@@@@[@Z@@#G^K@@^T8K@@EP;K@@[[[\@@AH9)@@[[@@@@ AG@@@@)@'[V#@@@@@@IZ )@@G@@!@K@@KG9@@@[C[J@@]/KF@@@?8K@@[C8@@@GN@\@@ C@0@@G/KF@@[/KF@@@*4@@@#AH@@@@JA )@@G@@)[ [UK^@@@@@[[\@@AL9K@@[C[Z@@A/KF@@[[@Z@@#L8@@@EC@J@@#^@\@@ /K@@[H8K)@[CJB )@@G@@/KF@@@AI@@@@)[K[E^G@]&@]^@EA@@@@@@@@[@J@@ C8@@@W/KF@@@*4@@@#'=@@@@C8@@@@JC )@@G@@[[K@@ G9K@@AT9K@@EAJ@@@@)[T@+[@@@@@@)@A@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@**PF**/K@@@"[@\@@#G8)@^SC@\@@#AK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@]@@E@@#@@Q@@@JF )@@G@@@@@@@B@@@@[XR$ IOW$ RFTI @@[@@@@@@@@@RPFET JG )@@G@@@@[@@@@@@@@LETNL @@[@@@@@@@@. 74 13 13 00 0 000000 EXJH )@@G@@*[@@@@*SDFF*@G@@@@THE @NEWS PROCESSOR ALLOWS STORAGE AND RETRIEVAL OF USJI )@@G@@EFUL INFORMATION @E@@@@AND DOCUMENTATION CONCERNING AVAILABLE PROCESSORJJ )@@G@@S, FIXED @E@@@@SYSTEM BUGS, PROCEDURES, ETC. THE LONG VERSION OF THIJK )@@G@@S ITEM@D@@@@CONTAINS FURTHER DOCUMENTATION ON @NEWS. TO GET IT, @[@@@@JL )@@G@@ @^@@@@ @NEWS,L NEWS @[@@@@******@[@@@@ @C@@@@AS OF JM )@@G@@@NEWS 2.9, THE AVAILABLE OPTIONS ARE: @[@@@@ @F@@@@ D JN )@@G@@- LIST EVERYTHING ENTERED ON OR AFTER DATE SPECIFIED. @C@@@@ JO )@@G@@ (ASSUMED IF FIRST SPEC IS A DATE).@B@@@@ F - LIST NEWS FLASHEJP )@@G@@S ONLY. @A@@@@ K - LIST HEADLINES ONLY. @C@@@@ L JQ )@@G@@- LIST LONG VERSIONS OF NEWS ITEMS. @E@@@@ M - FOR MANUALS AND JR )@@G@@OTHER LENGTHY LISTINGS -- @E@@@@ INSTRUCTS @NEWS TO SEAJS )@@G@@RCH SECONDARY NEWS FILE.@B@@@@ O - LIST ARCHIVE ITEMS ONLY. JT )@@G@@@C@@@@ S - LIST SHORT VERSIONS OF NEWS ITEMS.@A@@@@ V JU )@@G@@- INCLUDE VERSION NAMES @[@@@@ @F@@@@ MOST ITEMS IN THE @NEWS CJV )@@G@@ONTAIN A SHORT AND A LONG VERSION. @F@@@@ THE SHORT VERSION GIVES A BRIJW )@@G@@EF DESCRIPTION OF THE NEWS ITEM AND @F@@@@ SOME IDEA OF WHAT IS CONTAINEJX )@@G@@D IN THE LONG VERSION. THE LONG @F@@@@ VERSION CONTAINS COMPLETE INFJY )@@G@@ORMATION. EACH ITEM IS PRECEEDED BY @F@@@@ A HEADLING CONTAINING THE NAMJZ )@@G@@E OF THE ITEM AND THE DATE IT WAS @^@@@@ ENTERED. THE CALL: @[@@@@KA )@@G@@ @#@@@@ @NEWS @[@@@@ @F@@@@ WILL CAUSE THE SHORT VEKB )@@G@@RSION OF EVERY CURRENT ITEM TO BE PRINTED.@F@@@@ THE 'K' OPTION CAUSES OKC )@@G@@NLY HEADLINES (NO TEXT) TO BE PRINTED. @F@@@@ THUS ENABLING YOU TO SEKD )@@G@@E WHAT ITEMS ARE AVAILABLE WITHOUT USING @F@@@@ UP VERY MANY PAGES. THEKE )@@G@@ 'D' OPTION, IN CONNECTION WITH A DATE @E@@@@ (FORM MMDDYY) IN SPEC FKF )@@G@@IELD 1, WILL CAUSE ONLY NEWS ENTERED@F@@@@ SINCE THE SPECIFIED DATE TO BKG )@@G@@E OUTPUT. THIS IS GENERALLY A GOOD @E@@@@ THING TO DO, TO AVOID GETTINGKH )@@G@@ THE SAME INFORMATION OVER AND@F@@@@ OVER AGAIN. FOR EXAMPLE, IF THE LASKI )@@G@@T TIME YOU LOOKED AT THE NEWS @E@@@@ WAS AUGUST 28, 1971, THE NEXT TIME KJ )@@G@@YOU SHOULD USE THE CARD:@[@@@@ @^@@@@ @NEWS,D 082871 @[@@@@KK )@@G@@ @F@@@@ IN ORDER TO GET NEW NEWS. NAMES OF ITEMS MAY BE SPECIFIED IKL )@@G@@N @E@@@@ FIELDS 2 THROUGH N, OR, IF YOU DID NOT USE THE 'D' OPTION, KM )@@G@@@E@@@@ FIELDS 1 THROUGH N. THIS WILL CAUSE ONLY THOSE ITEMS TO BE @F@@@@KN )@@G@@ PRINTED. FOR EXAMPLE, NEWS ABOUT FORTRAN IS ALWAYS KEPT IN AN @F@@@@KO )@@G@@ ITEM NAMED 'FOR'. IF YOU WANT TO GET THE SHORT VERSIONS OF ALL @D@@@@KP )@@G@@ CURRENT NEWS ABOUT FORTRAN, YOU WOULD USE THE CARD: @[@@@@ @^@@@@KQ )@@G@@ @NEWS FOR @[@@@@ @F@@@@ THE L OPTION CAUSES THE LKR )@@G@@ONG VERSION OF EACH NEWS ITEM TO BE @F@@@@ PRINTED. IF YOU DO THIS FOR AKS )@@G@@LL CURRENT NEWS, THE PRINTOUT MIGHT @F@@@@ RUN TO CONSIDERABLE LENGTH ANKT )@@G@@D CONTAIN QUITE A BIT OF INFORMATION@F@@@@ WHICH DOESN'T CONCERN YOU. ITKU )@@G@@ WOULD BE GENERALLY A GOOD IDEA TO @F@@@@ GET ALL THE SHORT VERSIONS FIKV )@@G@@RST, READ THEM, AND THEN GET THE @F@@@@ LONG VERSIONS OF JUST THOSE WKW )@@G@@HICH INTEREST YOU. FOR EXAMPLE, IF @F@@@@ YOU READ THE SHORT VERSIONS, KX )@@G@@AND THEN DECIDE THAT YOU WANT TO SEE@F@@@@ THE LONG VERSIONS OF THOSE ITKY )@@G@@EMS ENTERED SINCE SEPT 1 NAMED 'FOR'@D@@@@ 'EXEC8, AND 'ANSI', YOU WOULDKZ )@@G@@ USE THE FOLLOWING CARD:@[@@@@ @B@@@@ @NEWS,DL 090171,FOLA )@@G@@R,EXEC8,ANSI@[@@@@ @A@@@@ IF YOU DIDN'T CARE ABOUT THE DATE: @[@@@@LB )@@G@@ @A@@@@ @NEWS,L FOR,EXEC8,ANSI @[@@@@ @F@@@@ LC )@@G@@IF YOU USED THE 'L' OPTION, AND A PARTICULAR NEWS ITEM HAD @B@@@@ NO LOLD )@@G@@NG VERSION, @NEWS WILL TELL YOU SO. @[@@@@ @F@@@@ NEWS ITEMS WILE )@@G@@LL SOMETIMES HAVE EXPIRATION DATES. MOST ITEMS @E@@@@ RELATING TO CHANGLF )@@G@@ES TO THE EXEC OR LIBRARIES WILL EXPIRE IN@F@@@@ ABOUT 2 MONTHS; MINOR CLG )@@G@@HANGES IN 1 MONTH, VERY MAJOR CHANGES IN @F@@@@ 3. ITEMS WILL NEVER EXPLH )@@G@@IRE IN MORE THAN 2 MONTHS OR LESS THAN @F@@@@ 1 WEEK. IN ORDER TO KEELI )@@G@@P FULLY INFORMED, YOU SHOULD CHECK IT AT @^@@@@ LEAST ONCE A MONTH. LJ )@@G@@@[@@@@ @]@@@@EXAMPLES: @[@@@@ @#@@@@ @NEWS,KO@[@@@@LK )@@G@@ @F@@@@WILL LIST THE HEADLINES OF ALL 'ARCHIVE' ITEMS. THESE ARE ILL )@@G@@TEMS @D@@@@WHICH ARE NOT NECESSARILY CURRENT, BUT ARE KEPT FOR @^@@@@LM )@@G@@REFERENCE PURPOSES. @[@@@@ @#@@@@ @NEWS,KM@[@@@@ LN )@@G@@@E@@@@THIS WILL PRINT THE HEADLINES OF ALL THE NEWS ITEMS IN THE @D@@@@LO )@@G@@SECONDARY NEWS FILE. THESE ARE MANUALS OR OTHER ITEMS@C@@@@CONTAINING ALP )@@G@@ FAIRLY LARGE AMOUNT OF PRINTOUT. @[@@@@ @^@@@@ @NEWS,O LQ )@@G@@ EXEC8@[@@@@ @E@@@@WILL LIST THE SHORT VERSION OF THE ARCHIVE ITEM LR )@@G@@'EXEC8'. @[@@@@ @^@@@@ @NEWS,OLM EDQ@[@@@@ @G@@@@LS )@@G@@WILL LIST THE LONG VERSION OF THE ARCHIVE ITEM 'EDQ' FROM THE SECONDARY LT )@@G@@@F@@@@NEWS FILE. ITEMS WHICH WILL GENERATE A LARGE AMOUNT OF PRINTOUT LU )@@G@@@E@@@@AND ARE SELDOM REFERENCED WILL BE PUT IN THIS FILE TO AVOID @E@@@@LV )@@G@@HOGGING SPACE IN THE REGULAR NEWS FILE, WHICH IS A SPECIAL @^@@@@UNLOADLW )@@G@@-INHIBITED FILE. @[@@@@ @ @@@@ @NEWS,DK 062972 @[@@@@LX )@@G@@ @F@@@@WILL LIST THE HEADLINES OF ALL NEWS ITEMS ENTERED ON OR AFTELY )@@G@@R @#@@@@JUNE 29, 1972. @[@@@@ @#@@@@ @NEWS,F @[@@@@LZ )@@G@@ @E@@@@WILL LIST THE ITEM 'FLASH' (FOR NEWS FLASHES, OF COURSE). MA )@@G@@@[@@@@ @#@@@@ @NEWS,VK@[@@@@ @F@@@@WILL LIST THE HEADMB )@@G@@LINES OF ALL CURRENT ITEMS, WITH VERSION NAMES. @[@@@@ @G@@@@THE 'KMC )@@G@@' OPTION, IF USED IN CONJUNCTION WITH THE 'S' OR 'L' OPTIONS, @ @@@@MD )@@G@@WILL CANCEL THOSE OPTIONS. @[@@@@ @G@@@@........................ME )@@G@@................................................@[@@@@ @D@@@@WE SUGMF )@@G@@GEST YOU DO A @NEWS OPERATIONS AND A @NEWS,F @E@@@@EVERY SO OFTEN, SIMG )@@G@@NCE IMPORTANT BULLETINS REGARDING ANYTHING@C@@@@FROM NEW SOFTWARE OR PROMH )@@G@@CEDURES, TO NEW CENTER @E@@@@OPERATING HOURS OR MAINTENANCE TIMES, ARE MI )@@G@@OFTEN FOUND HERE. ___S, *[@@@@*SDFF*@D@@@@C CONVERSION PROGRAM FOR DMJ )@@G@@OC >>> ELT SYMBOLICS @[@@@@C @F@@@@C WRITES IN UNITS 4 AND 7,MK )@@G@@ UNIT 7 WILL CONTAIN FINAL OUTPUT. @[@@@@C @^@@@@C USE AS FOLLOML )@@G@@WS: @[@@@@C @^@@@@C @ASG,T 4,F///300 @^@@@@C @ASG,T 7,F/MM )@@G@@//300 @]@@@@C @XQT @D@@@@C >> DOC SYMBOLICS (FIRST CARD SHOULD MN )@@G@@BE TITLE) @]@@@@C @EOF @D@@@@C NOW PUT FILE '7' WHEREVER YOU MO )@@G@@WANT IT TO GO. @[@@@@ @[@@@@ @ @@@@ IMPLICIT INTEGER (MP )@@G@@A-Z) @ @@@@ PARAMETER NUMCOM = 12 @A@@@@ DIMENSION A(80), CMQ )@@G@@OM(NUMCOM) @^@@@@ DIMENSION N(2) @ @@@@ DIMENSION TITLE(11MR )@@G@@) @G@@@@ DATA EJECT/'*****^'/,CARDS/1/,COL/1/,CONTNT/50/,LINES/MS )@@G@@50/,LIST/1/ @D@@@@ DATA PG/1/,TC/1/,SPACNG/1/,UNIT1/4/,UNIT2/7/ MT )@@G@@@^@@@@ DATA BL/' '/,COM/ @#@@@@ *'EJECT ', @#@@@@ *'SPACEMU )@@G@@ ', @#@@@@ *'COLUMN', @#@@@@ *'REMAIN', @#@@@@ *'HYPHEMV )@@G@@N', @#@@@@ *'INSERT', @#@@@@ *'LIST ', @#@@@@ *'UNLISMW )@@G@@T', @#@@@@ *'SINGLE', @#@@@@ *'DOUBLE', @#@@@@ *'UNHYPMX )@@G@@H', @#@@@@ *'RIGHTM'/ @#@@@@ UNIT = UNIT2@^@@@@ READ 4MY )@@G@@, TITLE @ @@@@1 READ (5,2,END=999) A @^@@@@2 FORMAT (80A1MZ )@@G@@) @ @@@@ IF (LIST .EQ. 0) GO TO 1@^@@@@ ASSIGN 1 TO NEW NA )@@G@@@ @@@@ CALL COMPZ(6,A,FIRST) @^@@@@ DO 3 I = 1,NUMCOM@G@@@@NB )@@G@@3 IF (FIRST.EQ.COM(I)) GO TO (40,50,49,45,1,66,77,88,75,76,1,1), I NC )@@G@@@^@@@@ CALL COMPZ(1,A,T) @C@@@@ IF((T.EQ.6H4 ).OR.(T.EQ.6HND )@@G@@3 ).OR. @G@@@@ *(T.EQ.6H2 ).OR.(T.EQ.6H1 ).OR.(T.EQ.6H0 NE )@@G@@ )) GO TO 60 @A@@@@ IF (T .EQ. 6H ) GO TO 80 @^@@@@ NF )@@G@@DO 9 I = 1,COL @^@@@@ DO 7 J = 80,2,-1 @^@@@@7 A(J) = A(J-1NG )@@G@@) @#@@@@ A(1) = BL @A@@@@ IF (A(80) .EQ. BL) GO TO 9 NH )@@G@@@^@@@@ PRINT 8, CARDS, A @D@@@@8 FORMAT ('0CARD',I5,' - TOO LONNI )@@G@@G:',/,1H ,80A1) @#@@@@9 CONTINUE @#@@@@ GO TO 80 @#@@@@NJ )@@G@@40 PG = PG + 1 @ @@@@41 WRITE (UNIT,4) EJECT @A@@@@ WRITE NK )@@G@@(UNIT,4) TITLE, CH, PG @ @@@@4 FORMAT (11A6,I2,'-',I3) @^@@@@ NL )@@G@@CARDS = CARDS + 2 @#@@@@ LINES = 50 @^@@@@ CALL SPACES(3) NM )@@G@@@#@@@@ LINES = 50 @#@@@@ GO TO NEW @^@@@@45 READ (0,51) NN )@@G@@N @^@@@@ L = N(1) - 48 @B@@@@ IF (N(2) .NE. 5) L = 10*NO )@@G@@L + N(2)-48 @ @@@@ IF (N(1) .EQ. 5) L = 0 @A@@@@ IF (LINES .GNP )@@G@@E. L) GO TO 1 @#@@@@ GO TO 40 @#@@@@49 READ (0,5) N@^@@@@NQ )@@G@@5 FORMAT (7X,2R1) @^@@@@ COL = N(1) - 48 @C@@@@ IF (N(NR )@@G@@2) .NE. 5) COL = 10*COL + N(2)-48 @ @@@@ IF (N(1) .EQ. 5) COL = 2NS )@@G@@@^@@@@ COL = COL - 1 @ @@@@ IF (COL .EQ. 0) COL = 1 @#@@@@NT )@@G@@ GO TO 1 @^@@@@50 READ (0,51) N @^@@@@51 FORMAT (6X,2NU )@@G@@R1) @^@@@@ SP = N(1) - 48 @C@@@@ IF (N(2) .NE. 5) SP = 10NV )@@G@@*SP + N(2)-48 @ @@@@ IF (N(1) .EQ. 5) SP = 1 @ @@@@ IF (SPNW )@@G@@ .EQ. 0) GO TO 1 @^@@@@ CALL SPACES(SP) @#@@@@ GO TO 1 NX )@@G@@@ @@@@60 H = FLD(0,6,T) - 48 @#@@@@ A(1) = BL @C@@@@ NY )@@G@@IF ((H .EQ. 0) .OR. (H .GT. 4)) GO TO 80 @A@@@@ IF (UNIT .EQ. UNITNZ )@@G@@1) GO TO 609@^@@@@ ASSIGN 607 TO NEW @#@@@@ GO TO 40 @^@@@@OA )@@G@@607 WRITE (UNIT2,608) @A@@@@608 FORMAT (' TABLE OF CONTENTS') @#@@@@OB )@@G@@ CALL NEXT2 @^@@@@ CALL SPACES(3) @ @@@@ CONTNT = CONOC )@@G@@TNT - 3 @#@@@@ UNIT = UNIT1@]@@@@ PG = 0@ @@@@609 GO TO OD )@@G@@(61,62,63,64), H @ @@@@61 IF (CH .NE. 0) GO TO 611@^@@@@ ASSIGNOE )@@G@@ 611 TO NEW @]@@@@20 CH = 1@]@@@@ PG = 0@#@@@@ GO TO 40 OF )@@G@@@ @@@@611 IF (L2 .EQ. 0) L2 = 1 @ @@@@ IF (L3 .EQ. 0) L3 = 1 OG )@@G@@@#@@@@ L4 = L4 + 1 @B@@@@ WRITE (UNIT,111) CH, L2, L3, L4, A OH )@@G@@@#@@@@ CALL NEXT(1)@#@@@@ GO TO 1 @^@@@@62 CALL SPACES(OI )@@G@@1) @ @@@@ IF (CH .NE. 0) GO TO 621@^@@@@ ASSIGN 621 TO NEW OJ )@@G@@@#@@@@ GO TO 20 @ @@@@621 IF (L2 .EQ. 0) L2 = 1 @#@@@@ OK )@@G@@L3 = L3 + 1 @]@@@@ L4 = 0@A@@@@ WRITE (UNIT,112) CH, L2, L3, AOL )@@G@@@#@@@@ CALL NEXT(1)@^@@@@ CALL SPACES(1) @E@@@@ WRITE OM )@@G@@(UNIT2,122) CH, L2, L3, (A(M), M = 1,50), CH, PG@#@@@@ CALL NEXT2 ON )@@G@@@#@@@@ GO TO 1 @^@@@@63 CALL SPACES(2) @ @@@@ IF (CHOO )@@G@@ .NE. 0) GO TO 631@^@@@@ ASSIGN 631 TO NEW @#@@@@ GO TO 20 OP )@@G@@@#@@@@631 L2 = L2 + 1 @]@@@@ L3 = 0@]@@@@ L4 = 0@A@@@@ OQ )@@G@@WRITE (UNIT,113) CH, L2, A @#@@@@ CALL NEXT(1)@^@@@@ CALL SOR )@@G@@PACES(2) @E@@@@ WRITE (UNIT2,123) CH, L2, (A(M), M = 1,50), CH, OS )@@G@@PG @#@@@@ CALL NEXT2 @#@@@@ GO TO 1 @#@@@@64 CH = COT )@@G@@H + 1 @]@@@@ PG = 1@E@@@@ IF ((LINES .LT. 1) .OR. (LINES .EQ. OU )@@G@@50)) GO TO 65 @^@@@@ ASSIGN 65 TO NEW @#@@@@ GO TO 41 OV )@@G@@@]@@@@65 L2 = 0@]@@@@ L3 = 0@]@@@@ L4 = 0@ @@@@ WRITE OW )@@G@@(UNIT,114) CH, A @#@@@@ CALL NEXT(1)@^@@@@ CALL SPACES(3) OX )@@G@@@D@@@@ WRITE (UNIT2,124) CH, (A(M), M = 1,50), CH, PG @#@@@@ OY )@@G@@CALL NEXT2 @#@@@@ GO TO 1 @B@@@@66 WRITE (UNIT2,2) (A(M), MOZ )@@G@@ = 8,80) @#@@@@ CALL NEXT2 @#@@@@ GO TO 1 @#@@@@75 PA )@@G@@SPACNG = 1 @#@@@@ GO TO 1 @#@@@@76 SPACNG = 2 @#@@@@ PB )@@G@@GO TO 1 @#@@@@77 LIST = 1 @#@@@@ GO TO 1 @A@@@@80 PC )@@G@@IF (SPACNG .EQ. 1) GO TO 81 @^@@@@ CALL SPACES(1) @^@@@@81 PD )@@G@@WRITE (UNIT,2) A @#@@@@ CALL NEXT(1)@#@@@@ GO TO 1 @#@@@@PE )@@G@@88 LIST = 0 @#@@@@ GO TO 1 @^@@@@999 ENDFILE UNIT1 PF )@@G@@@#@@@@ REWIND UNIT1@A@@@@2000 READ (UNIT1,2,END=3000) A @^@@@@PG )@@G@@ WRITE (UNIT2,2) A @#@@@@ GO TO 2000 @^@@@@3000 CARDS = CARDPH )@@G@@S - 1 @^@@@@ ENDFILE UNIT2 @^@@@@ PRINT 1000, CARDS @A@@@@PI )@@G@@111 FORMAT (1H 4(I2,1H.),2H 80A1)@A@@@@112 FORMAT (1H 3(I2,1H.),2H PJ )@@G@@ 80A1)@A@@@@113 FORMAT (1H 2(I2,1H.),2H 80A1)@A@@@@114 FORMAT (1H 1PK )@@G@@(I2,1H.),2H 80A1)@C@@@@122 FORMAT (5X,3(I2,1H.),1H 50A1,I2,1H-I3) PL )@@G@@@C@@@@123 FORMAT (5X,2(I2,1H.),1H 50A1,3X,I2,'-',I3)@A@@@@124 FORMATPM )@@G@@ (I3,2H. 50A1,I6,1H-I1) @B@@@@1000 FORMAT ('0GENERATED ',I4,' CARDS') PN )@@G@@@]@@@@ STOP @[@@@@ @[@@@@ @^@@@@ SUBROUTINE NEXT(P)PO )@@G@@@^@@@@ DO 4 R = 1,P @^@@@@ CARDS = CARDS + 1 @^@@@@ PP )@@G@@LINES = LINES - 1 @A@@@@ IF (LINES .NE. 0) GO TO 4 @#@@@@ PQ )@@G@@PG = PG + 1 @ @@@@ WRITE (UNIT,42) EJECT @A@@@@ WRITE (UNIT,PR )@@G@@42) TITLE, CH, PG @ @@@@42 FORMAT (11A6,I2,'-',I3) @A@@@@ WRITE PS )@@G@@(UNIT,43) (BL, M = 1,3) @#@@@@43 FORMAT (A1) @#@@@@ LINES = 50 PT )@@G@@@^@@@@ CARDS = CARDS + 5 @#@@@@4 CONTINUE @]@@@@ RETURNPU )@@G@@@[@@@@ @[@@@@ @^@@@@ SUBROUTINE NEXT2 @^@@@@ CARDS PV )@@G@@= CARDS + 1 @ @@@@ CONTNT = CONTNT - 1 @A@@@@ IF (CONTNT .PW )@@G@@NE. 0) RETURN @#@@@@ TC = TC + 1 @ @@@@ WRITE (UNIT2,52) EPX )@@G@@JECT @A@@@@ WRITE (UNIT2,52) TITLE, TC @ @@@@52 FORMAT (11A6PY )@@G@@,3H 0-I3) @A@@@@ WRITE (UNIT2,53) (BL, M = 1,3)@#@@@@53 FORMATPZ )@@G@@ (A1) @#@@@@ CONTNT = 50 @^@@@@ CARDS = CARDS + 5 @]@@@@ QA )@@G@@RETURN@[@@@@ @[@@@@ @ @@@@ SUBROUTINE SPACES(P) @A@@@@QB )@@G@@ IF (LINES .LT. P) GO TO 96 @^@@@@ DO 94 M = 1,P @^@@@@QC )@@G@@ WRITE (UNIT,95) BL@^@@@@ CARDS = CARDS + 1 @^@@@@ LINES QD )@@G@@= LINES - 1 @#@@@@94 CONTINUE @A@@@@ IF (LINES .EQ. 0) GO TO QE )@@G@@96 @#@@@@95 FORMAT (A1) @]@@@@ RETURN@#@@@@96 PG = PG + 1 QF )@@G@@@ @@@@ WRITE (UNIT,97) EJECT @A@@@@ WRITE (UNIT,97) TITLE, CQG )@@G@@H, PG @ @@@@97 FORMAT (11A6,I2,'-',I3) @A@@@@ WRITE (UNIT,95) (BQH )@@G@@L, M = 1,3) @#@@@@ LINES = 50 @^@@@@ CARDS = CARDS + 5 @]@@@@QI )@@G@@ RETURN@]@@@@ END ___L SPACES(3) @#@@@@ LINES = 50 QJ )@@G@@@#@@@@ GO TO NEW @@@[Y/[PV@C@^-7^@@[PV^-7@@@[D*@@@@@[@@@@@@@@@@#KQK )@@G@@@#/@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^E@C@[D@@GW@@E^@@@@J^@)QM )@@G@@@^^^M1@#\^R^@['^U.@@>^X>@@G^ZU@@G^Z3@[<^)I@@@___@@@___@@@___@@@___@@@___QN )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___QO )@@G@@C@@^X\;GK@@=W8K@@E[@?=@D/^K@C[[@@^@AC @^@A/KJ@@@ ^@^@Z>@0^@)")0^@#98;@@@QP )@@G@@"0@@@JH8@@K@/@F@@@S@@^@ AA0@C*/^@@COE@@@@G/K@@CS[^@^@ZD@K@@G/,0@HXRJ@^@ZQQ )@@G@@9?K^@@9=K@@J98K@C&/GK@CZ"*0^@-H8@@@[/K@@CS9?K^@]9=K@@J98K@C8(@@@[[/K@KDQQZ )@@G@@C8)@@[[4?@@C/K@@D%/K@@@@*@G@@D/K@@E9'^@@>;^^W@@D^^W@@^(?G@@C/K@@EPC8)@@KRA )@@G@@[0?@@#'^@@DQ ?G@@CC0W@@C/K@@E" @G@@E CG@@G @G@@FN@)^W6^0?@@CC^?@@C!C?@@DRB )@@G@@'^@@DQC^?@@DC@K^W6%8K@@[/K@KEBG^?@@C*@G@@E/K@KEBNC,@@@^C?@@GN@,@@@^@?@@ERC )@@G@@C G@@CG9@@@[[ G@@CC(W@@E!9K@@]/K@@E1CDW@@E?9K@#"/K@KEBG9@@@V[ G@@CC5G@@ERD )@@G@@%9@@@_/K@@%, CG@@GC8K@@[/K@@("C0W@@C:8K@@[/K@@E"%8K@@]/K@@F&:@K^W6/K@@EURE )@@G@@'^@@(L @G@@EC^?@@C!C?@@D'^@@DQC^?@@CK^?@@DC@K^W6%8K@@]/K@@FQC*Z@@@;@K@@#RF )@@G@@?8K@@ 8#K@ES @@@@HW8K@@W/@)@%%D@)@@IG8)@@WG@0@@IG^?@@C/K@@FZC*Z@@@?8K@@]RG )@@G@@/K@@ES%8K@@)/K@@%,G0\@@@G8)@@[G0_@@@G80@@[[^?@@C?C?@@D/K@@F C[K^W6[1W@@CRH )@@G@@'^@@DQ/K@@F @G@@EC0W@@#%8K@@(/K@@G#0@G@@#'=@@@A'^@@(LC@0^W5C0Z^T(!8K@@KRI )@@G@@/K@@F/C8)@@*[0?@@#C W@@#'=@@@#[ W@@#C1W@@C/-K@F9 CG@@D*4G@@#'^@@(\/K@@ESRJ )@@G@@C W@@#[DW@@^C0W@@CC[X^P3[1W@@#'^@@M$/K@@ES'^@[#;C@@^@<&;KK@@Q#K^W5[@K^W?RK )@@G@@/\K@%'/KI@GD @@^N: @@^N? @@^N*/KF@@@*4@^N:/K@@G0+8)@@JR#)^N?T8)@@EO#0@@IRL )@@G@@A#0^N?R#)^N:(4@^N?/@:@@@T8)@@EO7)^N? 4@^N?R#0^N?A#)^N:/KF@@@R#)^N*O;)@@[RM )@@G@@A#)^N*9?)^N:/KF@@@/K@@@@9!@^N:'^@@G_/ KKG5C9K@@[/K@KG5/K@@@@9!@^N('^@@G_RN )@@G@@/K@KG;/K@@@@/[@KG_!9@@@)/K@@HA;(K@@A;H@@@A/K@KG_RB)@G_:8)@G8/K@@@@'^@[#;RO )@@G@@R#)^W!&;)A@@A#)^W?D@@^S>/\K@%/ 4@^W:/K@KG_/K@@@@ @@^N!/,0@GW'^@@HQ/K@KHLRP )@@G@@/K@@@@9?)^N:9*)^N(R#)^N*A#)^N$/,0@GW/K@KHQ @@@H>AA0@H+N@K^X9 @@^X9/K@@H"RQ )@@G@@/K@@@@ ^@@H>/K@@H&/K@@@@9!@^N:'^@@G_*?@^N!D[K@@LR#K@@LPJK^N!O#K^N$E[K@@HRR )@@G@@!9K@AK/K@@I+N@K^X9 @@^X99?0^N(980@H;;(@@@A;W0@@J;G0@@[R;)@K7P#)@@L9)0^M'RS )@@G@@"4)@@J*4@^N!900@@J980@IL/@K@ILR;@@@@/CK@I#R;@@@[E@K@@H;GK@@=!8)@@EW8K@@ERT )@@G@@/@)@II;*)@@[[@0^N&')G@I*%@0^N&/K@@II;G0@[C/K@@IL/@K@ILG8@@@]/K@@I#*^@@H>RU )@@G@@/K@@IP'^@@IY/K@KH+980@IW"0)@@J9)0^M60@@@@J9=0^M8"4)@@J"/0@@J'^@@IY/K@KH>RV )@@G@@/K@@@@C[K^X9^@K^X9/[K@IY'^@[#;C@@^W!&;@B@@A#@^W?D@@^M1/\K@%'"*"^M'"?"^M'RW )@@G@@"*"^NG"?"^NG"*"^NY"?"^NYC8F@@#[@@^UC @@@@JC8;K@@[@0@J*[@0@J;C@_@@@[@0^W5RX )@@G@@C^J^T(/@F@@#1@J^T(/K@@JXC@?@@[[@)^N9C[J^T(R#@^O^'=@@@J/G@@JV;D@@@+/>@@JFRY )@@G@@R;@^N9 @@@@JC8;K@[ 4G@@#*@J@@@'=@@@#(4G@@#/KF@@#/K@@JVC8K@@6%4Z^T(/KF@@#RZ )@@G@@ ^J^T([@)^O@C@@^O '=@@@J/^@@JV;@)@@SC1@^N9:9@@@ ;@)@@A[^)^O]C@@^OA'=@@@JSA )@@G@@/@F@@#/\0@K[/KF@@#*?G@@]/KF@@#9!G@@C99@@J2C0/@@#C1G@@C%80@@(?9@@@#/K@@J2SB )@@G@@A]0^N"/,0@;=@@@@@@@@@@@@R]0^N"0@G@@#'=@@@A(4G@@#/K@@J2C4/@@#%80@@]/\0@K@SC )@@G@@ @@@@JC8:K@[C@0^W5C^J^T( 4G@@#(@I@@@/K@@J"A]0^N"/,0@'2@@@@@@@@@@@@R]0^N"SD )@@G@@/\)@(>/KF@@#RF?@@@[@)^N6'^@[#;C@@^N, ^@^UD'=@@@I0@@^N.'^@[#N/KJ@@@/K@@@@SE )@@G@@C@0^N./C0@KJC80@@Y*^J^T(/K@@KL8#0@KH/K@KKDC^J^T(C5J^T(%9@@@Q/K@@K)(4G@@ASF )@@G@@/K@@KJ 4G@@A0@G@@#'=@@@A*4G@@#'^@@(\C9@@@C[1G@@#'=@@@[/K@@KJ[@0^N./,0@I0SG )@@G@@@@@^N.@@@^O[@@@@@@C@0^N./K@@KJ/K@@@@C^W@@CC0?@@CC9K@@#%8)@@[C9K@@^[1W@@CSH )@@G@@C[I^P3[1G@@#%9K@@#/K@KK$H8K@@[?8K@@[/K@KK$C@)^W6:8)@@ /K@KK$C^?@@C[C?@@DSI )@@G@@'^@@L6/K@KK$/K@@@@C@0^W5C1G@@C%9@@@#/K@@LYC^W@@DK^W@@CC[W@@F[[Y@@@C[W@@GSJ )@@G@@G9K@@[[[W@@G[[Y@@[[[W@@E[[X@@@CDW@@G CG@@G @G@@FG8)@@]G9K@@# @@@@KW9@@@WSK )@@G@@/[K@LTD[K@@LG9K@@W8^K@LQ&;)@@[ @I)@@8^K@LRH^?@@D[C?@@D[^?@@C'^@@L6/K@KK/SL )@@G@@C^?@@CG^?@@DC W@@C @@@@KW9@@@W/[K@LTD[K@@LG9K@@WH9K@@[C1G@@E[!I@@@[1Y@@@SM )@@G@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)[5I@@@[(I@@@C[I@@@[[G@@EG8)@@[/[K@LT/K@@LPSN )@@G@@/K@@@@0@G@@#'=@@@A*4G@@#'^@@(\C8K@@C[0W@@#'^@@M$N^W@@^C@?@@D[@?@@^*4G@@CSO )@@G@@^^W@@D*CG@@^'=@@@[/K@KL6/K@@@@C8K@@([0W@@# 4G@@#C1J^T(!9@@@K/K@@MV0@G@@#SP )@@G@@'=@@@A*4G@@#'^@@(\N80@^@^C/@@^N^/@@#C1G@@C/-@@MR @@@[#'=@@@#^^/@@#*4G@@#SQ )@@G@@/K@@M-N^/@@#^C/@@^(@G@@ /K@@M>'^@@M$/K@KMAC5G@@#!9@@@#'^@@(\/K@KMA CG@@^SR )@@G@@/K@KMA/K@@@@C1J^T(?9@@@K/K@KM$CCW@@^+8KB__/@)KM$0@G@@#'=@@@A?9@@@S/K@@M5SS )@@G@@ @@@@HW8K@@W;GK@@=C0W@@#:8K@@(D@)@@IG@?@@ [@?@@ CG@@^/C)KM$ @G@@ !9@@@SST )@@G@@T8)@@WOB?@@#AB?@@#AB?@@C/K@KM$/K@@@@C@0^W50@G@@#'=@@@A*4G@@#'^@@(\C8)@@KSU )@@G@@[0?@@#'^@@M$C8)@#)C0W@@C:8K@@]/K@@NNC8)@#/?9@@@KC8)@^@[C?@@^'=@@@[/K@KN#SV )@@G@@/K@@@@C[@^OC[ @^RA[[@^XI[[@^W!C@@^W&C1J^T(:9@@@)/K@@%L0@J^T(/K@@N&:9@@@=SW )@@G@@/K@@N4:9@@@-/K@@N1/K@@N;%9@@@=:9@@@>/K@@N,%9@@@-/K@@N;C9K@O_N8K@[L/K@@N6SX )@@G@@C9K@PAN8K@] /K@@N6C9K@Z;N8K@[L/K@@N6C9K@Z%N8K@] [ K[ J[ K[ N^^K^TH^^K^W2SY )@@G@@/K@KNQC[@^OD[[@@1X(@G@@D/K@@OAC0W@@C/@K@OH:8K@@^/K@@OQ%8K@@#/K@@O1/K@@OWSZ )@@G@@'^@@>;C@@^W&^^W@@D^^W@@^N8K@#)^CW@@D/K@@N_RBW@@DC[@^OBC[K^X\ @H@@[[[H@@@TA )@@G@@[[G@@E[[X@@]C9@@@][ G@@CC9K@PIN8K@@^^0W@@C ^G@@GN8K@] /K@@N6C9@@@_[1G@@ETB )@@G@@*4G@@C/K@@O?'^@@>8C@@^W&(@@@[[/K@@O?C8K@@[[4W@@C^^W@@D ^G@@CN8K@#)^CW@@DTC )@@G@@'^@@(L/K@@OQ0@G@@#'=@@@A*4G@@#'^@@(\/K@@O$'^@@M$(?G@@C'^@@MA*4G@@C'^@@MATD )@@G@@ ?G@@CC0?@@CC9K@@_:8)@@[[1W@@EC[I^P3[1G@@#'^@@(L/K@@OQ/K@@@@C[@^OEC@@^W&TE )@@G@@[[G@@@'=@@[>C^K@O_/K@@Z7/K@@@@'^@@QTC@@^W&C[@^OJ[[G@@@'=@@[=C^K@PA/K@@Z7TF )@@G@@/K@@@@C80@@PC@)^X3:@\^XJ8#0@PLG80@@[A]@^X&C@@^W& 4G@@E[@0@[]C0?@@E[??@@ETG )@@G@@[0/@@ER]@^X\C G@@G[ G@@EG9@@@[[ G@@GC8)@@C[*?@@EN@/@@E/K@@P>N@8=XJC^W@@CTH )@@G@@?CW@@D/K@@P5'^@@K/C8K@#)[CW@@D*4G@@C/K@@P4'^@@>8*@@@[[/K@@P"0@G@@#'=@@@ATI )@@G@@*4G@@#'^@@(\ ^G@@CC^W@@CK^W@@D^@"@@@G8K@@[[^W@@C8K)@P=C^K@PIR]@^X&/K@@Z7TJ )@@G@@C8K@@[[4W@@C^^W@@D/K@@P4C@0^W5C^J^T((4G@@C/K@@QJ0@G@@#'=@@@A*4G@@#'^@@(\TK )@@G@@C G@@^'^@@(X 4G@@CC G@@D[ G@@^C[@^X2[[@@1X/\)@>+/K@L S9!@^X3C@@^O-N8)@@ETL )@@G@@9(G)@@8K)@QQ/KI@@@/K@@@@C4K^XJ 4@^OJ:8K@@ /K@@Q=:8K@@0/K@@Q&:8K@@1/K@@Q*TM )@@G@@:8K@@+/K@@Q:C8)@@[/K@@Q?C8)@@]/K@@Q?C8)@@_[4)^OJ/K@@Q?C8)@@@[0)^OJC8K@@ TN )@@G@@[4K^XJ/K@KQT/K@@UY/K@@UY/K@@W4/K@@UR/K@@T(/K@@RX/K@@U@/K@@ZF/K@@ZY/K@@Z$TO )@@G@@/K@@@@RB0^XIC@K^W6:8K@@H/K@@RK!80^X>/K@KQ'CCK^XI')H@1H8#K@RBO;0@@[R;K@@ TP )@@G@@AB0^XIAFK^XIC@K^W6%8K@@H/K@KQ'?^0^OR/K@KQ'C@K^XI[@K^OR/K@KQ'*@@^OS/K@@RPTQ )@@G@@!^0^OU/K@KQ'/K@@R[?^0^OU/K@@R[%^0^OU/K@KQ'!CK^OU:CK^OU/K@KQ'/K@@R[[[K^OYTR )@@G@@%9K@@T/K@@R2C K^TA*@@@@LH9K@@[[DK^TIC[@^W6:9@@@H/K@@S\C9@@@@W9@@@A;[@@@MTS )@@G@@D[K@@LG9K@@ ; @@@MG @^X>[[@^XI C@^TF'^@@1Y/K@@R)'^@@1YC[K^OY%9K@@L/K@@R_TT )@@G@@C9K^OWC^)^W$C@,@@@+8)@@[(@@@@JC9K^OX[ K^W$C9K@@]/K@@S@C9K@@B[[K^OQC K^TATU )@@G@@C1@^W$%9@@@#/K@@SUC[@^OY:9@@@R/K@@SU?9K@@H/K@@SJH9K@@HC8)@@ '^@@Q'8^K@SGTV )@@G@@C9K@@GC^)^W$C[I@@[C@I@@@/K@@SO'^@@Q'C@0@@G;^0@[][@0@@GC))@@K8^K@SN/K@@S:TW )@@G@@?[K^OQ/K@@S+H[K^OQR;)@@ '^@@Q'8^K@SXC[K^OQH9K@@[C^)^W$C@,@@@C[@^OY:9@@@RTX )@@G@@/K@@T+/K@@S('^@@Q';@)@@Y8^K@S*C4)^T :8)@@^/K@@UR/K@@R2C^0^OT*@@^OS/K@@S'TY )@@G@@ @@@@KW9@@@A*@@@@KG@0@@KH9K@@ *@@@@LD[K@@L/K@@TCCCK^OT:8K@@ /K@@S2G8K@@[TZ )@@G@@H[K@@H*@@@@LG80@@[*@@@@L/DK@S2/HK@TAC9K@@ /K@@TCD[K@@LH9K@@[[DK^OV[^0^OVUA )@@G@@C @^OV% @^OR/K@@TSCD@^OVHD@^OR/D@@TZD[@@@KC[K^OR[[K^XIH9@@@[C8)@@ '^@@Q'UB )@@G@@8^@@TP/K@@TZ? @^OR/K@@TZC@0^OR[@0^XIC8)@@ '^@@Q'/K@@TEC@0^OV[@0^XI/K@@R\UC )@@G@@C@K@@LT8K@@A;@!@@@/K@@S(R7K^T :8K@@^/K@@UR'^@@1YC^K^W$C@X@@@/CK@T,D@K@@HUD )@@G@@/\0@C@[ @^@XH @^TA/[@@T4D[@@@K/H@@T"C^)^W$(@I@@@/K@@T90@I@@@/[@@T"C)0^T@UE )@@G@@:80@@J'^@@Y4'^@@X!/K@@T&'^@@Z^/K@@T&'^@@1YC K^TA?9K@@H/K@@UDH9K@@HR;)@@ UF )@@G@@'^@@Q'8^K@U C9K@@GR;K@@#T@K@@LC^)^W$C[I@@@;[H@@@H9K@@[R#)@@K;[@@@-;G)@@=UG )@@G@@R;)@@A;^)@[ '^@@Q'8^K@UJ/K@@U@'^@@1YR3K^W$:8K@@[/K@@T%:8K@@ /K@@R6/K@@UZUH )@@G@@'^@@1YDHK^TI] K^@X/HK@U@K^O=/K@@YG/K@@YF(@@@@H/K@@YG/K@@YF>@K^O>/K@@YGC8)@@-'^@@Q'CH@^@XVB )@@G@@/H@@Y:(^@@X0/K@@YP'^@@Y)/K@KX0/K@@@@ ^@@X!R#@@@K/K@@YWR#?^@D!@@^O&R;)@@@VC )@@G@@O;)@@0'^@@Q'8#@@YR*^@@X!/K@KX!/K@KYN/K@@@@R#@^@A/K@@Y*R#?=@D!@@^O$R;)@@@VD )@@G@@O;)@@0'^@@Q'8^@@YH[@@@E&')@@[C[K^X3[[U)@@8^@@-A'^@[^U[@0^P;C@@^QQ'=@@@UR#0^W5R;@@@[A7J^T(VW )@@G@@R7@^Q[*0J^T(/@@@=4*^@^QN/K@@+N/K@^QXR;K@@& @H^QX8#K@+LR#0^W5R7@^Q[R3Z^T(VX )@@G@@;C@@@#:8@@@]/^K@>SCD@^QUR;)@@H*@@@@HR;)@@#K[@@@IC8@^QUC^K^QUG8K@@[!@K@@LVY )@@G@@/K@@<@CD@^QVK[@@@IC8@^QVC^K^QVG8K@@[!@K@@L/K@@<@C8K@@*P;K@@[C8)@@R!C!^QWVZ )@@G@@/K@@+3CC.^QWG80@@H?^.^QW/K@@<_8#K@+!'^@@>;^CX^QWC8)@^@G@)@[[H8)@@[[^!^QWWA )@@G@@^@K@@KC8H^QWK9@@@H @I@@@%@)@[[8#)@+.C@0^W5AB@@<+[ J^T([DW@@@[[@^W&R#@@@KWB )@@G@@C5K^Q[C[@^W6:9@@@Q/K@@I?9@@@A/K@@=Y:9@@@A/K@@=R:9@@@C/K@@=YWH )@@G@@'^@[#;CCK^P;[^K^P-C@K^W5&;KR@@[@K^W?C@@^O4'=@@@I'^@[#NC@0^W5C^J^T(C^)@<+WI )@@G@@[CI@@@ @J^T(RA0^UC/KF@@@C@@^P;;@@@@SC0K^P;:8K@@ ;@@@@A[^@^P\C@@^QR'=@@@JWJ )@@G@@/^@@>XC@0^W5C9@@@T1@J^T([1J^T(C@K^W& @H@@#R#Z^T(A#K^W&C0Z^T(C^@^O,?8K@@)WK )@@G@@/KG@@[/KG@@@C8K@@6%0Z^T(/K@@=!CCK^P;[^K^P2C@@^QS'=@@@J/^@@>XC8K@@T[4K^Q[WL )@@G@@/K@@+HC8@@@Q%4J^T(/K@@=,:@@^W6/KF@@AC@@^O5/K@@>QC@K^W6:8K@@C/K@@=!'^@[#;WM )@@G@@CC!@@@[^)^P C@@^O1/K@@>Q'^@[#;CCK^P;AFK^O8C@@^O\ ^J^T(/K@@>Q'^@[#;C@@^O0WN )@@G@@'=@@@I/K@[#N'^@[#;CCK^P;AFK^PMR#@^O2/K@@>Q'^@[#;C@@^O3RFK^P;ABK^PS/K@@>QWO )@@G@@C1J^T(?9@@@K/KI@@@CDW@@^?9@@@S/K@@>: @@@@KW9@@@W;H@@@=G[W@@ C G@@B[ W@@BWP )@@G@@H[K@@K!DW@@B[DW@@BC G@@BGDG@@BH G@@A/HI@@@C9K@@[[5W@@A/KI@@@/K@@@@ @@^QOWQ )@@G@@/K@@>"/K@@@@C@K@>;[@K^QOC^K^QN @@@[[P;K@@[(CH^QW/K@@&R8#K@&[C^)^QV/@)@&GWR )@@G@@P;)@^@CC0^QV?@)@@J/K@@&G[^)^QV/K@@&MC^)^QUP;)@^@CC0^QU?@)@@J/K@@&Z[^)^QUWS )@@G@@C@K^QNG8)@@[[^!=QW[@K^QNP;K@@[C[@^W6[DH^QWN^X^QWC@0^W5C^J^T((@@^QO/K@K>8WT )@@G@@/K@K>;C@0^W5(@@^QO/K@K>8 @@^Q @@^QA @@^QB @@^QD @@@@JC^J^T(/@@@*^(?G@@]WU )@@G@@0@J^T(/K@@*^(0G@@A/K@@&1(^G@@^/K@@*^/K@@&4*@G@@D*?G@@C/K@@*^N^W@@^'^@@( WV )@@G@@CC!^QW*0G@@A/K@@$#!8)@@ /K@@(H/KI@&//K@@&R/K@@$S/K@@$(/K@@$?[C0^Q [^K^Q WW )@@G@@/K@@*^%8)@@P/K@@$C[C0^QD[^K^QD/K@@*^0@G@@#'=@@@A*4G@@#'^@@(\*4G@@A/K@@$LWX )@@G@@ ^G@@^ ^G@@D/K@@&R 4G@@AC9@@@C[1G@@#'=@@@#*4G@@#'^@@(\/K@@$I*4G@@C/K@@$XWY )@@G@@[C0^QA[^K^QA/K@@*^0@G@@#'=@@@A*4G@@#'^@@(\'^@@M$'^@@MAN^W@@^C G@@D[ G@@^WZ )@@G@@ 4G@@C'^@@( /K@@&R[C0^QB[^K^QB/K@@*^C1G@@#:9@@@(/K@@$60@G@@#'=@@@A*4G@@#XA )@@G@@'^@@(\ @G@@D ^G@@C/K@@&R[C0^QC[^K^QCC G@@C/[@@$3C0Z^T(?8K@@K/K@@*^[DG@@^XB )@@G@@C9@@@C[1G@@#'^@@M$CC0^QCC^K^QC/K@@$3G80@@[?80@@Z/K@@&$C[@^Q /[@@*&CC0^Q XC )@@G@@C^J^T(0@G@@#'=@@@A*4G@@#'^@@(\C[@^W5[[@^X&[@0^W5C1W@@#:9K@@(/K@@*)'^@@K/XD )@@G@@0@G@@#'=@@@A*4G@@#'^@@(\ ^G@@C @G@@DR#0^X&A#0^W5C^K^Q /K@@&R'^@@L6'^@@M$XE )@@G@@'^@@MAC9@@@[[!G@@C/K@@*VC[@^QA/ @@*,C[@^QB/[@@*_CC0^QBC^J^T(N^K^QB/K@@*1XF )@@G@@CC0^QAC^J^T(N^K^QA0@G@@#'=@@@A*4G@@#'^@@(\C1G@@#:9@@@(/K@@*''^@@M$'^@@MAXG )@@G@@C9@@@[[!G@@CR#K@[[ @G@@D/K@@&RC[@^QD/[@@(HCC0^QDC^J^T(C^K^QD/K@@$C/K@@@@XH )@@G@@ @@@@HC H^QW:[@@[[/K@K( G8K@@[?8K@@*/K@@(B'^@[#;C@@^QE'=@@@I/K@[#N/K@@@@XI )@@G@@N^W@@^'^@@( C[K^W6[DX^QW(0G@@A(4G@@C/K@K(LN^W@@D'^@@( [DX^QW/K@K(L/K@@@@XJ )@@G@@N8K@@$C@K^X\% H=QW8KK@()P#K^X0 CH^QW/K@K(X(4G@@C/K@@((C G@@D'^@@(XC G@@^XK )@@G@@/[I@@@'^@@(X @G@@C @G@@D/KI@@@/K@@@@'^@[#;C4W@@#[CK^R^ 4G@@#:8K@@ /K@@%SXL )@@G@@:8K@@]/K@@%)%8K@@[/K@@(/C[K^R [[W@@E!8K@@ @@@@HC@H^RBR#)^W5&;)#@@(@@^W0XM )@@G@@/K@@% &;,F@@Q#)^W\A#)^W?*@@@@H!8K@@#/\K@%;O;K@@OA7K^W?%8K@@Q/K@@%JC[K^X2XN )@@G@@[[K@1XC9K@@]/K@@%.'^@[#;C@@^RGRB)^UC&;)O@@Q#,@@@A#)^W?/\K@%; @@^U2*0G@@AXO )@@G@@/K@@%YC^W@@#[CW@@^/@K@("C@K^U5/K@K(\ @@^U2[4W@@AC@K^U5/K@K(\'^@[#;C@@^SBXP )@@G@@&;KN@@Q#K^W5[@K^W?/\K@%''^@[#;C@@^SJ&;KL@@/K@@%$'^@[#;C@@^SS&;KM@@/K@@%$XQ )@@G@@;C@@@O'0@@[8#)@:[:9K@@]/K@@:+/C)@:VC[K@@GE@@@@GXS )@@G@@'=@@@I/DK@:KR#@^S-'=@@@IR#@^RA'=@@@ICG@^W&/@@@:S0@@^W&R;G@@[RFG@@@AB@^S^XT )@@G@@R#@^S+'=@@@I(^@^R^/G)@:Z/G)[#N ^@^R^ @@^W0 @@^U2/KI@@@ @@^U2'^@[#N/KH@@@XU )@@G@@/C)@:W'=@@@I/K@[#NC@:@@@/K@@: 4@^W$ 0@^W$ @@^W* @@^T @@^TIC9K@,N[ K@HCXV )@@G@@C[K^T[[DK^W:C9K@1N[ K[ RC9K[ X[ K[ WC9K[ 2[ K[ !C[K^T][[K^T^/,0@0"%8)@@(XW )@@G@@/K@@:8C[K^T^[[K^TBR;@@@@ @@^TA *@^T /,0@GWC9@@@@/,0@0"/KI@?^/KG@!E/KG@!EXX )@@G@@/KG@!E/KG@!E/KG@!E/KG@!I/K@@!^/KG@!E/KG@!E/KG@!Q/KG@!Q/KG@!M/KG@!M/KG@!UXY )@@G@@/K@@!C/K@@!C/KG@!E/K@@!^/KG@!E/KG@!E/KG@!/K@@,0/K@@,/YF )@@G@@/K@@GV/K@@\O/K@@\T/K@@\W/K@@GV/K@@\Y/K@@\+/K@@\>/K@@GV/K@@\"/K@@\./K@@0&YG )@@G@@/K@@GV/K@@0*/K@@,N/K@@,N/K@@GQ/K@@\$/K@@\8/K@@\;/K@@GV/K@@\#/K@@\#/K@@\#YH )@@G@@/K@@GT/K@@0L/K@@0:/K@@0!/K@@GV/K@@,N/K@@0\/K@@,N/K@@GR/K@@:./K@@,Z/K@@,-YI )@@G@@/K@@GP/K@@:./K@@,Z/K@@,-/K@@GU/K@@\K/K@@\J/K@@\M/K@@GV'^@[#;C8Y@[@;*K@@SYJ )@@G@@G^K^TAA#K^W?[@@@@JD@@^S<*0@^W:/\K@%/ 0@^W:C@@@@J/K@@?]/,0@03/K@@:.'^@@07YK )@@G@@/K@@:.R;0@@ /K@@,(R;0@@B/K@@,(;G)@@#;C0@@-A70^T '^@@G5[DK^TFR;@@@[/K@@?@YL )@@G@@R;0@@ /K@@,4R;0@@B/K@@,4;G)@@#;C0@@-A30^T /,0@03R30^T A70^T C9K@@[/K@@,:YM )@@G@@R;0@@ /K@@\@R;0@@B/K@@\@;G)@@#;C0@@-A30^T '^@@07/K@@,6/,0@G)/K@@?]'^@@G5YN )@@G@@/,0@2BH9K@@[R;)@@H/K@@GL/,0@03C9K@@[/K@@\A'^@@07/K@@\F/,0@03R;)@@'/K@@GLYO )@@G@@'^@@07/K@@\KC[K^N?**@^T D[K@@L[ K^TI/K@@:./,0@03C9K@@[/K@@\R'^@@07/K@@\UYP )@@G@@'^@@G5/,0@2BH9K@@[/K@@GM/,0@03C9K@@[/K@@\Z'^@@07/K@@\<'^@@G5R$)^T !8)@@]YQ )@@G@@R;)@@[R#0^T^H9K@@[A#"^TC[ Y^TEO;)@@[A$)^T !8)@@]/K@@:. 4@^T A<)^T A#0^TBYR )@@G@@[DK^TE/K@@:./,0@03C9K@@[/K@@\*'^@@07/K@@\9/,0@03R$)^T /@)@0 C Y^TDP;)@@[YS )@@G@@8^K@0+A$)^T /K@@:.C4)^T /@)@GN'^@[AMC@)^W$[@)^W*C[K^TB[[K^T^R<)^T A$)^T YT )@@G@@/@)@0LCDK^TE[ K^TE'^@[ IC @^TH%9@@][/K@@:.C9@@@@C[K^T^/,0@0"%8)@@//K@@0WYU )@@G@@G9@@@[/K@@0Q[[K^T^/[@@:.[1@^TJC@@^TJ'=@@@I/K@@:.[ Y^TEC[Y^TC[[K^T^/K@@:.YV )@@G@@'^@@07/K@@\"R;)@@[A:)^T /K@@?@/,0@03/K@@0L'^@@07/K@@0L'^@@G5[ K^TAR;@@@]YW )@@G@@/K@@?@AA0@07'^@@G5[ K^TA/K@@0;/K@@@@9!@^N:'^@@G_[DK^TAC-K^T@R7)^T /K@@GDYX )@@G@@RFK^T^RB0^T^')H@1B8#K@1 R;K@@ O;0@@[AB0^T^AFK^T^/KF@@@R<\@@@R$\@@@R:\@@@YY )@@G@@R\\@@@R3\@@@R7\@@@A<\@@@A$\@@@A:\@@@A\\@@@A3\@@@A7\@@@AB@^W$P;)@@[RFI@@@YZ )@@G@@;@@@@C;C@@@)A3@^W$:8@@@^A7@^W$/K@LAM'^@[ I/K@L S/K@J__CC)^TF/@)K07P;)@@[ZA )@@G@@[C)^TFC@)^W*/@)@1*[@)^W$ @@^W*/K@@1('^@[AMR3)^W$P;)@@[AB)^T#R#)^W6%8)@@HZB )@@G@@/K@@15RB)^X%AB)@14RB)^TAO#)^X(A#)^X(A#)@@@RF)^TIOB)^TA?@)^TH/K@@2 AF)^TIZC )@@G@@R;)@@]'^@[#;C@@^THR#)^W!&;?]@@A#)^W?D@@^S=*?@^W:/\K@%/RF)^TI ?@^W:AF)^TIZD )@@G@@/K@K1YC[@^W6%9@@@H/K@@2KC @^X%[ @@2JC[@@@LG[@^X([[@^X([[@@@@CD@^TIG[@@@LZE )@@G@@[D@^TI/KF@@@/K@@6B/K@@6B/K@@6B/K@@5_/K@@5 /K@@2//K@@5W/K@@86/K@@9T/K@@9YZF )@@G@@/KH@78/KH@7./KH@8]/KH@8B/KH@8G/KH@8L/KH@8Q/K@@7DRF@^W7RB0^W7')G@1B8#@@2!ZG )@@G@@O;0@@[R;@@@ AB0^W7AF@^W7C@0^W6%80@@H/KF@@@C^0^W7?^0^TP/KF@@@%^0^TP/K@@29ZH )@@G@@CC0^W7HC0^TP/C;@@@C@0^W7[@0^TP/KF@@@[[K^TO%9K@@T/K@@3KC K^TA*@@@@LH9K@@[ZI )@@G@@[DK^TIC[@^W6:9@@@H/K@@4( @@@@KW9@@@A;[@@@MD[K@@LG9K@@ ; @@@MG @^W,[[@^W7ZJ )@@G@@ C@^TF'^@@1Y'^@@1YC K^TAC[@^TO:9@@@L/K@@4OC00^W$%80@@#/K@@36:9@@@R/K@@36ZK )@@G@@?9K@@H/K@@3)H9K@@H/,0@2&8^K@3XC9K@@GH9K@@[C8K@@ C@@^T[C@K^T[ @@@@K;=@@@AZL )@@G@@[@@^T=;@K@@A/,0@2&C@@^T=;@)@@A;=K@@AG9@@@A8^K@3>H9@@[CE[@@@KC@)@@K*@@@@IZM )@@G@@;=I@@@C^0^W$9*J@@@/K@@4J @@@@K?9K@@B/K@@4[H9K@@B/,0@2&8^K@3'C9K@@ /,0@2&ZN )@@G@@;@)@@A;=K@@AG9@@@A8^K@3.R#@@@KR#)^T[C[@^TO:9@@@R @@@@I;^W@@@RBK^W$%9@@@RZO )@@G@@/K@@4IC @^TA?9@@@A;)?@@@A#!@@@R7K^T :8K@@^/K@@5_/K@@3KAA0^TKH9K@@[D8K@@[ZP )@@G@@/,0@2&:8)@@,/K@@4$/CK@4+P;)@@MF@K@@I%/K__8/K@@4+RBK^W$D@)@@I;C)@@*4@^W:/\K@%/ZU )@@G@@ 4@^W:'^@@G;*4@^N!D[K@@LRBK^W$[[X@@@R7K^T :8K@@^/K@@5_/K@@5 '^@@1YC K^TAZV )@@G@@C9@@@@?9K@@H/K@@5'H9K@@H/,0@2&8^K@5+C9K@@F/,0@2&;G)@@=:80@@ R;0@@0;G0@@#ZW )@@G@@:80@@A/K@@59'^@[#;[ K^TA;?0@@#R;Z@^@;G0@@#;*K@@SQBK^W!A#K^W?D@@^S>*4@^W:ZX )@@G@@/\K@%/C K^TA 4@^W:;[@@@Y8^K@5>;[@@@#RBK^W$[[H@@@/K@@5W'^@@1YC K^TAR3K^W$ZY )@@G@@:8K@@[/K@@5A:8K@@ /K@@4O/K@@6I'^@@1YR30^W$C5@^T %9@@@[/K@@6I%80@@#/K@@6\ZZ )@@G@@RB0^TA[@0@[#'^@@6;'^@@6QR7K^T :8K@@^/K@@5_/K@@6B/K@@@@R#K^N$C5K^T (@@^T:9@@@#/K@@6:/K@@6$:9@@@#AB )@@G@@/K@@6:'^@@H>RBK^W$A#.@@@/K@K6Q'^@@H+RBK^W$9*.@@@/K@K6Q'^@[#;C40^T ;*0@@AAC )@@G@@O30^W$AF0^W?RB0^W$AB0^W?D@@^TS*4@^W:/\K@%/ 4@^W:/K@@6I/K@@@@'^@@HLC9K@@@AD )@@G@@C9@@@@R;K@@@/K@@7#G9K@@[/,0@G)8K0@7 /KH@8Q/,0@2&[@)^TLR;@@@#/KI@?^'^@[#;AE )@@G@@/^)@7JC@@^W8;C@@@A:@@^T>/\K@%2G8)@C@;*)@@SQ#)^W!A#)^W?D@@^S>*4@^W:/\K@%/AF )@@G@@R3)^W? 4@^W:/K@@8>[ K^N!R;)@@[A\)^N!/K@@7Y[ K^N!'^@@HQR;K@@#/K@@7#R;)@@[AG )@@G@@A7)^N!/K@@7#R;)@@[A\)^N!/K@@7#R;)@@[A#)^N?/K@@7ZR;)@@[A3)^N!R;K@@]C9K@@@AH )@@G@@/K@@7#R;K@@[/K@@7]R;K@@^[@K^T'^@@8:[ K^N!/K@@8>'^@@8:/K@K6;'^@@8:*4@^TK/K@K6;/K@@8(/,0@2&8K0@8*AM )@@G@@/K@K6;/K@@@@?8K@@#'^@@HQR#)^TL:8)@@,*4@^TK/K@K8:/K@@7DR;)@@[A7)^N!/K@K6;AN )@@G@@A#)^TO%8)@@'/K@@9DRFK^T^RB0^T^')H@1B%8)@@'/K@@9A8#K@9[O;0@@[R;K@@ ')H@1BAO )@@G@@%8)@@'/K@@9RR;)@@ ')H@1HR#)^TIO;)@@[A#)^TI/,0@2&CCK^T^RB0^T^')H@1H8#K@9LAP )@@G@@O;0@@[R;K@@ AB0^T^AFK^T^R#)^TO:8)@@'/K@@898^K@9D/K@@:./,0@0"/K@@:./,0@2&AQ )@@G@@8^K@9T/K@@:.'^@[ I/K@@9Z'^@[AMR;0@[KPF0^TI?80@@[/K@@9WAB0^TAA#0@[#R;K@@^AR )@@G@@A7K^T A7K^TKC1@^W$:9@@@ /K@@' '^@@6;/,0@9'!8K@@]/K@@98'^@@G;*4@^N!D[K@@LAS )@@G@@RBK^W$[[X@@@C0@^W$:8@@@#[[X@@[/K@@9Y'^@@6Q/K@@9Y 4@^TK0@@@[# @@@[#RB)^TAAT )@@G@@P#)@[#OF)^TIAF)^TIR3)^W$P;)@@[AB)^T#/KF@@@C[K@[#/,0@4N[[K@[#/,0@9'/K@@9YAU )@@G@@@@@@@@/\)@'KC@@^T&'=@@@H/\)@'Q/K@K'E9!@^X3C@@^T$N8K@@E9(G)@@8KK@'N/KI@@@AV )@@G@@C[K^T*[[K^W7[ K^W![ K^W,/KI@@@R#V@@@R;@^UGR#X@@@A#K^UF%@K^UJ'=@@@C/S@@@@AW )@@G@@*^@^UD'=@@@D*@@^U2'^@[^D'=@@@Q @@@@G'=@@[['=@@@6;C@@@Y(@@@@G'=@@@Q'=@@@)AX )@@G@@ ^@^UD/K@@'-C8F@@][@@^UC/\)[A0[@K@@JC9@@@AC@_@@@[[@^W6/\@@-9/K@@;XC^J^T(AY )@@G@@0@G@@#'=@@@A*4G@@#'^@@(\(@G@@D/K@@;I(^G@@C/K@@;GC1G@@C?9@@@#/K@@;GC1G@@#AZ )@@G@@%9@@@('^@@K/0@G@@#'=@@@A*4G@@#'^@@(\ CG@@^/\)@(>C1J^T(!9@@@K/K@@;VC8K@@)BA )@@G@@[0W@@# 4G@@#'=@@@[ @G@@E @G@@C @G@@^ 4G@@A @G@@B/KF@@] @G@@ /K@@;P'^@[#;BB )@@G@@C@@^UK'=@@@I'^@[#N/KF@@]C8F@@][@@^UC/\)[A0[@K@@JC9@@@ C@_@@@[[@^W6/\@@-9BC )@@G@@/K@@.^C^J^T((?G@@C/K@@;4'^@@>;C@@^W&^^W@@^^^W@@D'^@@N# ?G@@CC1J^T(?9@@@KBD )@@G@@/K@@.S*^G@@D/K@@;"'^@@>;C@0^W5C^J^T(^^W@@D^^W@@^'^@@M$C1G@@C*4G@@C/K@@/ABE )@@G@@0@G@@#'=@@@A*4G@@#/K@@.PC9K@@_=9@@@[[1W@@E!9@@@#/K@@/I'^@@MA*4G@@C'^@@MABF )@@G@@RBW@@CR3?@@C:8)@@^%CW@@D/K@@/='^@@K/C8K@#)AFW@@D*4G@@C/K@@/<'^@@>8*@@@[[BG )@@G@@/K@@/)0@G@@#'=@@@A*4G@@#'^@@(\/K@@//KF@@]'^@[#;C@@^UX'=@@@I'^@[#N/KF@@]*^@@KDBL )@@G@@/KF@@]'^@@(\(@G@@D/K@@.YC1G@@C:9@@@^'^@@K//\)@((0@G@@#'=@@@A*4G@@#'^@@(\BM )@@G@@C9@@@D[1G@@#'=@@@[/KF@@]/\)[A0N8:K@[C@.@@@&'0@@#/\)[AUN8K@@^^@K^W6/\@@-9BN )@@G@@/K@@.5/@K@%LC^@^W&(4G@@A/K@@.5C8K@@]/K@@("C9K@1W[ K[ T^^)^T]/\)@QNN8K@@EBO )@@G@@C@K^OMC@)^ONM#!)@@'^@@NQC1J^T(C9K@@(?9@@@)%1W@@#/K@@:$0@G@@#'=@@@A 0G@@#BP )@@G@@/K@@:$C9K@@G/K@@"6C9K@@H&'0@@#C^:@@@/K@@"-C9K@@H&'0@@[C@@@@F(0G)@[/K@@"KBQ )@@G@@H@@@@F&'/@@[C8K^X:[^K^X%/\)[A?%8@@@]/K@@"$N@)@@HC8:K@[CCV@@@:8K@[[/K@@")BR )@@G@@>8K@@)/K@@"+^@)@@IN8:K@[C8K@] [^K@_O[^)^OT @@^OS/K@@"9N8:K@[^@)^W%C@X@@@BS )@@G@@C8:K@][@K^OS[^)^OTG8K@@[[^K@_O%8@@@^/K@@"9C8VK@# @@^X([^K^X%/K@@"9C9K@@FBT )@@G@@/\)[A0N@)@@H&'0@@][[K^W6/\)[AU @@^W&C9K@1W[ K[ T^^)^T]/\)@QNN8K@@EC@K^OMBU )@@G@@C@)^ONM#!)@@C[@^U%[ @^RA[[@^XI[[@^W!AA0[ PC[@^W6:9@@@F/K@@_):9@@@H/K@@_NBV )@@G@@%9@@@G/K@@%LC9K@Z;N8K@[L/K@@_+C9K@_>N8K@] [ K[ JC8K@@ C^0^OT[CK^OT[^0^W!BW )@@G@@[^0^RAC@K^OT[@K^XI[@K^OR/\@[@D/K@@_/KH@@@*@@^OSCA )@@G@@/K@[@JC K^ORG9K@@Q[ K^OU/KG@@@C[K^OSCCK^OTC^0^OT:8K@@ /K@[@VH9K@@[H[K@@HCB )@@G@@/DK[@VG9K@@[*@@@@LD[K@@L/K@[@$ @@@@KW9@@@A*@@@@KG@0@@K%8K@@ G80@@[(@@@@LCC )@@G@@D9K@@ %[K^U:H9K@@ *@@@@LD[K@@L[DK^OU[^0^OU/KG@@@'^@[#;R;F@@@L8@@@[RB!@@@CD )@@G@@?8)K@@/K@[@2H8)K@@RB,@@@P;)@@[RB,@@@N@"@@@R#K@@GRF!@@@/^)[@'O;K@@[/K@[@6CE )@@G@@:8)/K@/K@[@8P#K@@GABK[@%/K@[[F'^@[#;C@@^WM/K@[[B'^@[#;C@@^WN/K@[[B'^@[#;CF )@@G@@C@@^WO'=@@@I/K@[@:/K@[@%'^@[#;R;V@@@OBKL[DA#K^U!^@0^V[^@0^V^RFX@@@R#@^WPCG )@@G@@'=@@@IR#@@@HN80@#C'^@[^MA#@^VERBK^U!9!@^U,0@H@@@/K@[]](^H@@@/K@[]ARBH@@@CH )@@G@@RF/@@[?80@[@9!@^U09(@^VBR#G@@@A#@^VGR#@^WQ'=@@@IR#@^VGA#@^V^RBK^U!RBX@@@CI )@@G@@CCH@@[?8@@[@/K@[[7R#@@@HP;@@@]RBG@@@P;@@@[O;K@@[RBX@@@O#K@@GRFH@@@8K0[]@CJ )@@G@@/K@@',8#@[[1O;K@@[R#X@@@RFH@@@/@@[["%8@/K@/K@[[4O;K@@[/K@[['[@K^U!/K@[[PCK )@@G@@9!@^U09(@^VBC@@^WR/K@[]H9(@^VBC^K^U!C@X@@@[@K^U!R#@^WSA#@^VGR#@^WT'=@@@ICL )@@G@@'^@[#G(^@^U!/K@@',C@@^WU'=@@@I'=@@@Q/K@@@@'^@[#;C^@[]O'K@^WV*4G)@[/K@[]SCM )@@G@@[^@[]ORF@L]O'^@[^MA#@^VUR#@^WWRBKL]O/@K[]('=@@@IL8K@@]N@.@@@RA.@@[RB,@@@CN )@@G@@P;)@@[AB)[@%/K@[[F&;@@]K/K@[]H'^@[#;/\0[#:A#@^V=A#@^U?R#@^WX'=@@@I/K@[]"CO )@@G@@'^@[#;/\0[#:A#@^V?9?@^V!/K@[];'^@[#;/\0[#:A#@^V?9?@^V\9*@^V>R#@^WY'=@@@ICP )@@G@@(^@^U!/K@[#[(^H@@[/K@[]ER#@^WZ'=@@@I'^@[#GR#@^VGA#@^V^N80@#C*@@^U?/K@[#)CQ )@@G@@RBK^U!/K@[[%/K@@@@RB@[#N/@@L#GAB@[#G ^@[#N'^@[^D/K@L#G/S@@@@'^@[#;RB@^UCCR )@@G@@P;@@@[R#K^W)N@/@@@/\0[#?/K@[]"/K@[#XN@0L#V'^@[#;R#K^W-/K@[#TR]0^U3 @@^U?CS )@@G@@*CF@@@*4F@@@/K@[#(R;V@@@RFF@@@A#K^U!/K@[[PO'0@@[/K@[#+R#K^W+A#K^V^R#@^W[[K^W![[K^W7/K@L AR#@^W? @@^W?/KF@@]DB )@@G@@/K@@@@'^@@@@ C@^TI/K@L I/K@@@@'^@@@@/K@L M/K@@@@C^)[ P/K@@@@/K@@@@/K@@@@DC )@@G@@@@@@@@C^)[ U/K@@@@A@K^X?^[@^X!N I@@[8L@[ -R^Y@@@&CY@@[CCI@@@;*@@@W;@@@@EDD )@@G@@ @@^X5:@@^X6[@@^X5G@@^X1[@@[ ?C/[)@@@@@@@@8L@@@@R@K^X?N[@^X!C^@[ U/KG@@]DE )@@G@@C/[)@@[^@^W$C8@@@[*@@^X5[4@^W$/K@LAMRB@[ P*4G@@@/KG@@@R;?@@[ @@@@JC8GK@@DF )@@G@@AB)[ P/K@L R[@@^W4 C@^W4P;)@@[C[I@@@;(@@@E;D@@@)%9@@@#:9@@@^[D@^W4/KJ@@@DG )@@G@@C[I@@@[[@^X,CDI@@[C Y@@[:9@@@];-K@@[[DK^X,/KF@@@/K@@@@(4@^W$/K@[ 8RB@^W$DH )@@G@@O;@@@[AB@^W$ 4@^W$/K@LAMC1V@@@/ K[A)C!V@@@!9K@@JH9K@@J*@@@@LH9K@@[/SF)@@DI )@@G@@[DK^UCAA0^UCO]0@@LAA0[ P/KI@@@RA0^UCCDK^UCO]0@@LAA0^W0/KI@@@C?V@@@!8K@@)DJ )@@G@@H8K@@)/K@[A1C?V@@@!8K@@J/K@[A5C^V@@@/KI@@@ @@@@JC9@@@J[!@^W(C^V@@@[^K^W(DK )@@G@@C8K^W(C8XK@@/KI@@@C9K@@H&'0@@#C^:@@@/K@[BPC9K@@H&'0@@[C@@@@F(0G)@[/K@[B^DL )@@G@@H@@@@F&'/@@[C8K^X:[^K^X%/\)[A?%8@@@]/K@[BWN@)@@HC8:K@[CCV@@@:8K@[[/K@[BODM )@@G@@>8K@@)/K@[BQ^@)@@IN8:K@[C8K@] [^K[C [^)^X7 @@^X( @@^TR/K@[B\N8:K@[C@X@@@DN )@@G@@C8:K@][@K^TR[^)^X7 @@^X8 @@^X(G8K@@[[^K[C %8@@@^/K@[B\C8VK@# @@^X([^K^X%DO )@@G@@/K@[B\C9K@@E/\)[A0&'0@@]N@)@@H[[K^W6/\)[AU @@^W&C9K[ S[ K[ T^^)^T]N8K@@MDP )@@G@@C@K^TMC@@^TNM#H)@@C9K^W8[ K^RAC@0^W6:80@@H/K@[C^C9K@'EN8K@[L[ K[ J^@K^THDQ )@@G@@'^@[ I/K@@:$C9K[CBN8K@] /K@[C@/K@@@@*@@^X(/K@[CUC8K@@ C^0^X7(@@^TR/K@[CLDR )@@G@@C[@^X8G[@^TR[[@^X8[CK^W7[^0^W7[^0^RA[^0^W![^0^W,C@0^W7[@0^TQ[@0^TP/K@LCBDS )@@G@@*@@^TR/K@[C+C^0^TPCCK^TP%8K@@ G80@@[C8K@@ /K@[CL @@@@JC[@^X8W80@@AG^0^X7DT )@@G@@C8K@@ H@K@@K/K@[CG@@@@@@@@@@@@A#@^X;R\@[C(P;@@@^:8@@@#/K@@'$%8@@@A/K@[D@DU )@@G@@C@@^X;'^@[#;R7@[C('^@[^MAF@^Y@R3@[C('^@[^MAF@^Y]RB@[C('^@[^MA#@^Y R#@^YADV )@@G@@'=@@@I/K@@',')G^X;RB@[C(O;@@@['=@@[@AB@[DAR#@^X;/K@@@@C@@^YB'=@@[[/KF@@[DW )@@G@@R#@^YDA#@^YCC[FK@@H9@@@[R;)@@@*CF@@]/K@[DNR#:@@]&;)@@[R#;@@[&;0@@[R;K@@ DX )@@G@@R#@^YC;*@@@AO7J)@@8^@[DV/K@[DZ8#K[DR/@:@@#[@I)@@/D@[DP(@@^YC/K@[D>/@K[D>DY )@@G@@T8K@@A;)H@@@ @@^YC/@:@@#[@I@@@/KF@@^/,0[DB@@@@@@C@@^Z.[@@^Z_/,0[B:@[@^)QDZ )@@G@@@[S@@@'^@[ U@^K^Z*@@[@@F'^@[ S/,0[^:@]@^-O@@@^)I@[V@@@@@][L7'^@[ U@^K^YEEA )@@G@@@@[@[K'^@[ S(@@^Z8/K@[D3N8K[D3^@K^)@/,0[DE@@@^-P@@@^YE@@@^)[@[+@@@R/K@@[EB )@@G@@N_0@@FA@K^)]C@[^ZTH@@^)[*@@@@G/K@[EXC@)^)]?8)@@H/C,[EJ'^@[]O/K@[F)/K@[H@EC )@@G@@/K@[GY/K@[F_/K@[D3/K@[LG/K@[LZ/K@[L5/K@[LT/K@[LW/K@[D3/K@[D3@[$@@@O/K@@[ED )@@G@@8N0[EB/,0[DE@@@^-Q@@@^YE@@@^)#@[(@@@C/@@@[C@)^)#H@)^-R*@@@@I @@@@GC/)@@[EE )@@G@@C[@^)#H[@^-S*@@@@K @@@@I)@@@@IC/)@@[C[@^)#H[@^-T*@@@@K @@@@I;^@@@=)@@@@IEF )@@G@@C/)@@[C[@^)#H[@^-U*@@@@K @@@@I;^@@@=)@@@@IC/)@@[C[@^)#H[@^-V*@@@@K @@@@IEG )@@G@@;^@@@=)@@@@I/=K[H)C/@__"G@@^Z5C@)^)#H@)^-W(@@@@I/K@[L+[@@@[JR@K^-XN_)@[IEH )@@G@@C@[^YC[@[=YD8N)[FIC@)^Z"[@)^YEH@)^ZT(@@@@I/K@[FY/,0@"5@[@^)J@[9@@@@@K^Z4EI )@@G@@'^@[ U@^K^YE@@[@[K'^@[ S8N0[FG/K@[L+C/@@@[G@@^Z9[@@^Z9/,0@.&@[@^Z_@@@^)QEJ )@@G@@@]]@@@@@K^Z3'^@[ S/,0@.&@[@^Z_@@@^)Q@] @@@'^@[ U@^K^Z*@@[@@FC/@^) '^K[ PEK )@@G@@@@K^Z9'^@[ SC/@@@]G@@^Z4[@@^Z4C/)@@2[@)^Z7/,0[PR@@@^-Y@]H@@@C/@@@2[@@^Z7EL )@@G@@/K@O)@/,0[^:@[@^-Z@@@^)V@]K@@@'^@[ U@^K^Z&@@[@@]'^@[ SC@@^Z&G/@__J[@@^)AEM )@@G@@C@@^Z$G/@__'(@@@@G/K@[GNC@@^)AT/@@@EG@@^Z$G/@__J[@@^)AC@@^Z&G/@__'*@@@@GEN )@@G@@/K@[GS @@^)AC@@^Z7H@@^)A*@@@@G1@@@@G/K@[D3/K@[F)/,0[^:@[@^-Z@@@^)T@]V@@@EO )@@G@@'^@[ U@^K^Z&@@[@@]'^@[ SC@@^Z&G/@__J[@@^Z5C@@^Z$G/@__'(@@@@G/K@[G2C@@^Z5EP )@@G@@T/@@@EG@@^Z$G/@__J[@@^Z5C@@^Z&G/@__'*@@@@G/K@[G8C/@@@][@@^Z5C/@@@[H@@^Z5EQ )@@G@@]@@^Z5*@@^Z5/K@[G_C/@@@[[@@^Z5/K@[D3/,0[^:@[@^-Z@@@^)V@]*@@@'^@[ U@^K^Z&ER )@@G@@@@[@@]'^@[ SC@@^Z&G/@__J[@@^)BC@@^Z$G/@__'(@@@@G/K@[HOC@@^)BT/@@@EG@@^Z$ES )@@G@@G/@__J[@@^)BC@@^Z&G/@__'*@@@@G/K@[HUC/@@@[[@@^)B(@@^)B/K@[D3/,0[PR@@@^)BET )@@G@@@]3@@@/K@[D3C4@^)#G/@__J[@@^)CC@)^Z"[@)^YEC.@@@[G/@__;*@@@@G0@@@@G @@@@KEU )@@G@@C/@@@[*@@^)C @@@@G)[@@@G/>K[L+C@@^Z_H@@^Z/(@@@@G/K@[IAN8K[H6^@K^)@/K@[F)EV )@@G@@/,0@.&@[@^Z.@@@^)X@].@@@'^@[ S/,0[OK@#@@@@/,0[PR@@@^-Y@#[@@@C/@@@#H@@^Z6EW )@@G@@]@@^Z6C@)^Z/[@)^Z_ @@^Z9C@)^)C?8)@@ /C,[ID'^@[]O/K@[IJ/K@[I2/K@[J&/K@[KPEX )@@G@@@# @@@*@@^) /K@[IRN8K[IR^@K^)@C/@@@[[@@^) @@^Z9/K@[F)*@@^)D/K@[IVC/@@@[EY )@@G@@[@@^)D*@@^)E/K@[IZC/@@@[[@@^)EC/@@@[G@@^)F[@@^)F/,0@.&@[@^Z_@@@^)-@#L@@@EZ )@@G@@@@K^) @@K^)D@@K^)E@@K^)F'^@[ U@^K^YE@@[@[K'^@[ S/,0[NQ@@@^-Q@#S@@@/K@[D3FA )@@G@@/,0[PR@@@^-Q@#U@@@*@@^) /K@[I'N8K[I'^@K^)@/K@[IN*@@^)D/K@[I"C/@@@[[@@^)DFB )@@G@@C/@@@[G@@^)E[@@^)E @@^)F/,0@.&@[@^Z_@@@^)>@#<@@@@@K^) @@K^)D@@K^)E'^@[ UFC )@@G@@@^K^YE@@[@[K'^@[ S/,0[NQ@@@^-Q@#(@@@/,0[PR@@@^-Q@#%@@@/,0@.&@[@^Z.@@@^)1FD )@@G@@@#:@@@@@K^) @@K^)D@@K^)ER@K^-)N_0@@1C/[=YD'^K[ P8N0[JWC/@^) '^K[ P@@K^Z9FE )@@G@@'^@[ S/,0[OK@#6@@@/K@[D3/,0[PR@@@^--@#8@@@*@@^) /K@[J,N8K[J,^@K^)@/K@[INFF )@@G@@C/@@@[G@@^)D[@@^)D @@^)E @@^)F/,0@.&@[@^Z_@@@^)(@^@@@@@@K^) @@K^)D'^@[ UFG )@@G@@@^K^YE@@[@[K'^@[ S/,0[NQ@@@^-Q@^ @@@/,0[PR@@@^--@^A@@@/,0@.&@[@^Z.@@@^)7FH )@@G@@@^B@@@@@K^) @@K^)DR@K^-)N_0@@1C/[=YD'^K[ P8N0[KFC/@^) '^K[ P@@K^Z9'^@[ SFI )@@G@@/,0[OK@^L@@@/K@[D3C/@@@[G@@^) [@@^) C/)@@[[@)^Z9C[@^Z7G.@__"*@@@@K1@@@@KFJ )@@G@@ @@@@IC.@@@[C.)@@2H[)^Z7*@@@@M @@@@K)@)@@K/=0[K(N8K[K(^@K^)@/K@[F< @@^)DFK )@@G@@ @@^)E @@^)F/,0@.&@[@^Z_@@@^)!@^W@@@@@K^) '^@[ U@^K^YE@@[@[K'^@[ S/,0[NQFL )@@G@@@@@^-Q@^)@@@/,0[PR@@@^-Y@^-@@@/,0@.&@[@^Z.@@@^)"@^+@@@@@K^) R@K^-)N_0@@1FM )@@G@@C/[=YD'^K[ P8N0[L]C/@^) '^K[ P@@K^Z9'^@[ S/,0[OK@^:@@@/K@[D3/,0@.&@[@^Z.FN )@@G@@@@@^)I@^!@@@R@K^-+N_0@[CC/[=YD'^K[ P8N0[LM'^@[ S/,0[OK@^3@@@/K@[D3C/@@@[FO )@@G@@[@@^Z;/K@[D3C/@@@][@@^Z;/K@[D3C/@@@[[@@^Z8/K@[D3C/@@@[H@@^Z;(@@@@G/K@[L(FP )@@G@@/,0[PR@@@^-Q@^.@@@/,0@.&@[@^Z_@@@^)I@^"@@@'^@[ U@^K^YE@@[@[K'^@[ S/,0[NQFQ )@@G@@@@@^-Q@ [@@@/K@[D3 @@^Z8/K@[D3/,0@;+@[@^Z/@ @@@/,0@'0@[@^Z/@ A@@@/,0[^:FR )@@G@@@]@^Z/@@@^)I@ B@@@@@][MJ'^@[ U@^K^YE@@[@[K'^@[ S/,0@.&@[@^Z.@@@^)I@ E@@@FS )@@G@@'^@[ U@^K^YE@@[@[K'^@[ S/K@[L.C/@@@[H@@^Z4]@@^Z4/,0@;+@[@^Z.@ J@@@/,0@"5FT )@@G@@@[@^-]@ K@@@@@K^Z4'^@[ S/,0@'V@@@^-/K@O->/K@[]:AA0^-*^#0^-3^#)^-4C@VK@@[@K^-2/K@[MYC/@@@[G@@^Z4FZ )@@G@@[@@^Z4C/)@@[H@)^Z6]@)^Z6(@@^Z6/K@[N$N@0[N&/K@[OF@A]^-:C/@@@[G@@^Z'[@@^Z'GA )@@G@@/,0@.&@[@^Z.@@@^-G@A^^-:@@K^Z3'^@[ S/,0@.&@[@^Z.@@@^-G@AB^-:'^@[ U@^K^Z*GB )@@G@@@@[@@FC/@^Z''^K[ P'^@[ S/,0@.&@[@^Z.@@@^-J@AG^-:N_0@@]C/@^Z"'^K[ P8N0[N_GC )@@G@@'^@[ SC/@@@2[@@^Z6C/)@@ G@)^Z4[@)^Z4N@0[OE/K@[OF@AP^-:R]0^-?N#0^-5*4@O-(GD )@@G@@/K@O-(/K@[]:AA0^-?^#0^-5/K@[NWC@@^Z7H@@^-6/C@[OS*@@@@G/K@[O!C/@__"G@@^-6GE )@@G@@[@@@[J/,0@.&@[@^Z_@@@^-K@AY^-\@@K^Z"'^@[ SC/@@@[G@@^Z4[@@^Z4C/)@@[H@)^Z7GF )@@G@@]@)^Z78N0[OV(@@^Z7/K@[O!N@0[O?/K@[PM@A*^-\C/@@@[G@@^Z9[@@^Z9/,0@.&@[@^Z_GG )@@G@@@@@^-L@A%^-\@@K^Z3'^@[ S/,0@.&@[@^Z_@@@^-L@A!^-\'^@[ U@^K^Z*@@[@@FC/@^) GH )@@G@@'^K[ P@@K^Z9'^@[ S/,0@.&@[@^Z_@@@^-K@A3^-\N_0@@]C/@^Z"'^K[ P8N0[PA'^@[ SGI )@@G@@C/@@@2[@@^Z7C/)@@ G@)^Z4[@)^Z4N@0[PL/K@[PM@A;^-\R]0^-0N#0^-7*4@O-!/K@O-!GJ )@@G@@/K@[]:AA0^-0^#0^-7C@VK@@[@K^-6/K@[ONJ.3G3G3G3G3GK[)@@@@@@@@@@@@@@@NL[HPMGK )@@G@@@@[@@@@@@@@@@@@@@@@@@@@@)@)@@@K^*@@@@@@@@@@_F^@=READ AFTER WRITE ATTEMPTGL )@@G@@ED WITHOUT INTERVENING BACKSPACE OR REWIND@[^^M2INPUT EXPONENT TOO LARGEGM )@@G@@@@@@@@^@@@@@@@@@@@C@@@@@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@GN )@@G@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@GO )@@G@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6E_G=3LNC$4/$D-YUC=GP )@@G@@N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7NGQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#C^N\ERROR DETECTED WHIGR )@@G@@LE CLOSING FILE OF UNIT @BRKPT @@@@@@@)@@@@_____"GS )@@G@@@@@@@@@FREE @SYM ,,PR @@#^N7@@]^N_@@#^O[*[F@@@@@ ^XJ/K@@Q]GT )@@G@@@@I^XJ@@@@@@@@@@@@TRACE$ @@Q^XJ(1P6G13.5) @@[@Q0@@[@GE@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T F @@@@@@@@@@@@@@@@@@@@]^XJGV )@@G@@M@@@@@I@@@@@)^@@@@)@)@@@@@[@@O@@[@@P@@ ^XJ@@I^XJ_@@@@@*@@@@@)@@@@@@%2^W8GW )@@G@@@@@@@@@[B^O6@_A^O.@_D^P#@_B^PG@_A^PN@[F^PT__E^P=INPUT FILE $-$ HAS NOT GX )@@G@@BEEN ASSIGNED. NO PACKET SPACE AVAILABLE INITIALLY THE NTRAN UNIT $-$GY )@@G@@ IS NOT AVAILABLE FOR STANDARD I/O. DRUM FILE ASSIGNED TO SYMBIONT UNIT GZ )@@G@@ FAILURE TO ASSIGN FASTRAND FILE $-$BACKSPACE WAS ENCOUNTERED FOR HA )@@G@@THE UNASSIGNED FILE: $-$ - IGNORED. SEQUENTIAL I/O ATTEMPTED ON UNIT DEFHB )@@G@@INED AS DIRECT ACCESS @ASG,T ,F///5@ASG,CP @@@@@@@@@@@K@@@@@KHC )@@G@@@@@@@C@@@@@C@@@@@D@@@@@)@@@@@( @@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_C^QFABNORMAL CONDITIONHE )@@G@@ DETECTED IN BUFFER HANDLING @@[@@@@@@@@@_@_@@@@@E^P;@@#^P,@@]^P1'^@@KDHF )@@G@@@@@@@@@@@@@@@@@@@@C8K@@@/@K^Q=C8)@@@[C)^QVG@)@@HP;)@@[[^)^QVC8K^@\[CK^QUHG )@@G@@G8K@M]P;K@^[[^K^QUG8K@@[C@0^QN[^Z=QWCC)^QUC^K^QUG8)@@H[@0^QNC@@^QT[@@@'-HH )@@G@@!@)@@H/K@@>O/K@@+K@@@@@@_@@@@@@[Q@@@@_A^R?@_F^RH@_G^RS@_F^RH@_C^R=@_#^R2HI )@@G@@EXECUTION TERMINATED BY AN ATTEMPT TO READ PAST AN END-OF-FILE. EXECUTHJ )@@G@@ION TERMINATED BY AN ATTEMPT TO PASS END OF TAPE/DRUM OR FASTRAND A NON HK )@@G@@INTEGRAL BLOCK WAS READ FROM MAGNETIC TAPEABNORMAL I/O CONDITION DETECTEHL )@@G@@D INAPPROPRIATE UNITTHE FOLLOWING RECORD IS ERRONEOUS OR DOES NOT COHM )@@G@@RRESPOND TO FORMAT SPECIFICATIONS: I/O UNIT IS IN ERROR@_B^SCUNRECOHN )@@G@@GNIZABLE CONTROL WORD ENCOUNTERED @_C^SKFORMATTED READ ATTEMPTED ON NOHO )@@G@@N-FORMATTED DATA @_C^STNON-FORMATTED READ ATTEMPTED ON FORMATTED DATA HP )@@G@@@[I^R5@[^^S#@]D^S&@]C^S\@]D^S7ILLEGAL FORMAT CHARACTERS WERE ACCEPTED ASHQ )@@G@@ BLANKS. RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTY. THE INTERPREHR )@@G@@TATION OF MEANINGLESS INPUT WAS ATTEMPTED.@@@@@@ @@ @@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NBMSG$@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@[@2O@@[@GE@@@@@@@@@@@@@@@@@@@@@@@@@]E^TTERROR - TYPE IN FORMAT IHU )@@G@@S NOT THE SAME AS THE INTERNAL TYPE.@@@@@@@@@@@@@@EOF @%2^W8@@]^W8@@ ^W8HV )@@G@@@@[@@@@-@@@@@@@@@@@@@@@@@@@@@@@)@@@@@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@[STOP @@@@@@HY )@@G@@@@G^UE@@@@@@ @]D^ULA REWIND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGHZ )@@G@@NORED _@@S@@@@[^UW@EOF @]G^UYAN ATTEMPT TO WRITE AN EOF-MARK ON CARDREAIA )@@G@@DER OR PRINTER - IGNORED @@ ^XJ_____'@@@@@@@@@@@@ SEQUENCE N LINIB )@@G@@E N@@@@@@ ERROR TERMINATION IN ROUTINE CALLED AT IC )@@G@@ SEQUENCE NUMBER OF ROGRAMA COMPUTED GO TO THAT WAS OUT ID )@@G@@OF RANGE WAS DETECTED AT SEQUENCE NUMBER OF MAIN PROGRAM. ILLEGAIE )@@G@@L OP AT SPECIFIED RETURN FROM RETURN VARIABLE SPECIFIIF )@@G@@ED IN OUT OF RANGE NEGATIVEFORTRAN V ERROR TERMINATION: ARGUMEIG )@@G@@NT UNNORMALIZED OR OUTSIDE ALLOWABLE RANGE CAUSING ARGUMENT OUTSIDE AIH )@@G@@LLOWABLE RANGE CAUSING OVERFLOW CAUSED ROFR PROGRAM ERROR RESULTED III )@@G@@N A WALK BACK @]E^V6@]B^W@@]#^WB@]B^U.@]D^V^@]B^V^MAIN P@[E^V^@]C^WEIJ )@@G@@@@[__"@]H^VI@]B^VY@]C^V>@[D^V^ I/O RETN 0RETN K@] ^V1 @@ ^W8______IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^XJ@@@@@@@@@@@@@@@@@@@@@@@@^X:^X:@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@[@@@@@[@@['^@[ P/K@L S @@@@@@@[@@@@@@ @@@@@@@@@IN )@@G@@@@@@@@#C@^X9@@@@@@#^@^X9ERROR MODE: TYPE= , CODE= , ERR.ADDRESS= IO )@@G@@ @]D^X.DO@[C(@@@@@@ EJECT SPACE COLUMNREMAINHYPHENINSERTLIST IP )@@G@@UNLISTSINGLEDOUBLEUNHYPHRIGHTM*****^@@@@@[@@@@@[@@@@@2@@@@@2@@@@@[@@@@@[IQ )@@G@@@@@@@[@@@@@[@@@@@^@@@@@B (80A1)(005H0CARD,I5,012H - TOO LONG:,/,1H IR )@@G@@,80A1)(11A6,I2,001H-,I3)(7X,2R1) (6X,2R1) (018H TABLE OF CONTENTS)IS )@@G@@(1H 4(I2,1H.),2H 80A1) (1H 3(I2,1H.),2H 80A1) (1H 2(I2,1H.),2H 80A1) IT )@@G@@(1H 1(I2,1H.),2H 80A1) (5X,3(I2,1H.),1H 50A1,I2,1H-I3) (5X,2(I2,1H.IU )@@G@@),1H 50A1,3X,I2,001H-,I3) (I3,2H. 50A1,I6,1H-I1) (011H0GENERATED ,IIV )@@G@@4,006H CARDS) (11A6,I2,001H-,I3)(A1) (11A6,3H 0-I3) (A1) (A1) IW )@@G@@(11A6,I2,001H-,I3)@@@@@ @@@@@A@@@@@[3 4 2 1 0 IX )@@G@@__"@[K@@@@@#@@@@@@@@[@@[@@@@@]@@[@@C @@F@@]@@@@@@NEXT @ ;C];IY )@@G@@@@F@@[@@@@@@NEXT2 @APC];@@F@@]@@@@@@SPACES@A;C];@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @#W@@@@@@@@[JB )@@G@@ECK --XXXXXX. R#0@@NNS@@@@K/@@@@@@@@@@G.0@@=@@^@@@ERROR @@@@@@/]0^L>JC )@@G@@*R-OPT8@@@@@@@@@@@R]@^MF@@@@@@@@@@@@@@@@@@R_S@@@@@@@@@@@@@@[@@@@@@/K@^LZJD )@@G@@NBDCV$ K@#@@BE!]EDB@@@@@@@[Q@C@@@<^@@NFTCH$ K@#@@INVC^ D@@@@@@JE )@@G@@@]3@DQ@@G^@NU6^ DJL )@@G@@@@@@@@@B6@-9@[?^O,@@@@@@@@%^QUNIOER$ K@#@[?NVQ^ D@@@@@@@[8@(\@[Z^R^JM )@@G@@NFMT$ K@#@[3NU_^ D@@@@@@@A!@:$@@!^SNIER$ K@#@]/NVF^ D@@@@@@@[2[ F@[L^W&NISYM$ K@#@##NVX^ DJT )@@G@@@@@@@@@[?[A.@@]^X7NINTR$ K@#@#ENVM^ D@@@@@@@@-[C(@@J^X9COMPZ JU )@@G@@K@]@#KN^ZBEC@@]^YC@@Y[DEBLANK$COMMONC@[@#PO.^ GE@@@^YEDOC-CONVERT @@#@@@JV )@@G@@O/9 GE@#,^YE@F4[D*)#K@@@ @@^%Y[^K^%Z/K@[K(C9K@@F*[@@@@*SDFF*@#@@@@ JW )@@G@@ AXR$ @#@@@@ ENPS . @[@@@@$(1) .@[@@@@PRT* .@B@@@@ JX )@@G@@ SAVR SAVREG . @E@@@@ SX X11,SAV11 JY )@@G@@ . SAVE RETURN INDEX @E@@@@ TZ KOPT JZ )@@G@@ . K-OPTION SET? @C@@@@ J KSET . KA )@@G@@YES @^@@@@ TNZ LOPT@ @@@@ J NOLOPT KB )@@G@@@E@@@@ DL A0,EN . GET ELEMENT NAME @E@@@@KC )@@G@@ DS A0,HDG+6 . PUT IN NEADING @A@@@@ KD )@@G@@ L A0,(10,HDG) @E@@@@ LA A1,ETYP KE )@@G@@ . GET PROCESSOR TYPE@C@@@@ J LOPTON . KF )@@G@@GO ON @G@@@@. NOLOPT L A0,(1,PRTCN+1) . NO L-OPTION, SO KIKG )@@G@@LL PRIOR HDG@D@@@@. J LOPTON+2 . GO ON KH )@@G@@@E@@@@LOPTON TNE,U A1,7 . DOC SYMBOLIC? @H@@@@KI )@@G@@ L A0,(2,PRTCN) . YES, HOME PAPER, AND TURN OFF KJ )@@G@@HDG @ @@@@ ER PRTCN$ @]@@@@NOLOPT. @E@@@@KSET KK )@@G@@ LA A0,ELTIME . GET TIME ELT ADDED@E@@@@ LAKL )@@G@@ A1,ELTDAT . GET DATE ELT ADDED@F@@@@ SA,H1 KM )@@G@@ A1,EDATE . STORE IN TDATE FORMAT @B@@@@ SA,H2 KN )@@G@@ A0,EDATE . @D@@@@ E$DIT EPKT . KO )@@G@@ENTER EDIT @D@@@@ E$FD2 EN . ELT NAME KP )@@G@@@E@@@@ LA A6,OPTWRD . GET OPTION WORD @E@@@@KQ )@@G@@ TNZ VOPT . V-OPTION SET? @F@@@@ KR )@@G@@ J DNOVER . NO - SKIP VERS NAME @C@@@@ KS )@@G@@ E$CHAR '/' . YES @E@@@@ E$FD2 VN KT )@@G@@ . PRINT VERS NAME @^@@@@ E$SKIP 2 @ @@@@KU )@@G@@ J DNOVE2 @B@@@@DNOVER E$COL 14 KV )@@G@@ . @D@@@@DNOVE2 E$DAY2 EDATE . ELT DATE @G@@@@KW )@@G@@ LA A0,(0110,IMAGE) . IF K-OPT, SINGLE SPACE TOC KX )@@G@@@D@@@@ TNZ KOPT . TEXT, TOO? @F@@@@ KY )@@G@@ LA A0,(0210,IMAGE) . YUP, SKIP A LINE FIRST @E@@@@ KZ )@@G@@ ER PRINT$ . NAME AND DATE @D@@@@ TZLA )@@G@@ KOPT . IS THAT ALL?@E@@@@ J EXITLB )@@G@@ . YES - WE'RE DONE @B@@@@ LA A0,(0101,BLC )@@G@@LANK) . @F@@@@ ER PRINT$ . SKIP A LINE LD )@@G@@BEFORE TEXT @^@@@@ SZ NOEL@H@@@@OPNSDF LA A0,TLE )@@G@@XLOC . YES - GET DRUM ADDR OF SDF TEXT @F@@@@ SALF )@@G@@ A0,SDFFCT+5 . STORE IN SDFID PACKET @G@@@@ L,LG )@@G@@U A0,22 . ASSUME FIELDATA IMAGE LENGTH @E@@@@ LH )@@G@@ TZ ASCII . ASCII ELEMENT? @F@@@@ LALI )@@G@@,U A0,33 . YES, CHANGE FOR ASCII @E@@@@ SALJ )@@G@@,H2 A0,SDFFCT+7 . SAVE IMAGE LENGTH @B@@@@ LA,U LK )@@G@@ A0,SDFFCT . @D@@@@ LMJ X11,SDFIO . LL )@@G@@OPEN SESAME @B@@@@ J SDFERR . @B@@@@ LM )@@G@@ LA,U A0,SDFFCT . @E@@@@ LMJ X11,SDFI LN )@@G@@ . GET FIRST IMAGE @B@@@@ J SDFERR LO )@@G@@ . @E@@@@ J PRMEOF . PREMATURE EOF LP )@@G@@@D@@@@ J GOTIM . CONTINUE @E@@@@DMPRT LQ )@@G@@ LA,U A0,SDFFCT . GET NEXT IMAGE @B@@@@ LMLR )@@G@@J X11,SDFI . @B@@@@ J SDFERR LS )@@G@@ . @E@@@@ J EXIT . END OF THIS ELT LT )@@G@@@E@@@@GOTIM TZ,T2 SDFFCT+10 . DELETED IMAGE? @D@@@@LU )@@G@@ J DMPRT . YES, SKIP IT@E@@@@ TPLV )@@G@@ SDFFCT+10 . CONTROL IMAGE? @F@@@@ J LW )@@G@@ DMPRT . YES, SKIP THOSE, TOO @G@@@@ DL LX )@@G@@ A0,IMAGE . GET FIRST TWO WORDS OF IMAGE @ @@@@ TZLY )@@G@@ ASCII @ @@@@ J NOTFD @#@@@@ FILZ )@@G@@ELDATA@F@@@@ TNE A0,('******') . START OF LONG ITEMMA )@@G@@? @C@@@@ J STARS6 . YES @D@@@@ MB )@@G@@ TNE A0,('*****^') . PAGE EJECT? @E@@@@ J MC )@@G@@ UPARO . YES, HANDLE IT @G@@@@ DSL A0,6MD )@@G@@6 . GET FIRST CHAR ALONE IN A1 @E@@@@ TNE,U ME )@@G@@ A1,'/' . / IN COLUMN 1? @E@@@@ J UPARMF )@@G@@O . YES, PAGE EJECT @E@@@@ J NEITHER MG )@@G@@ . NO, NORMAL IMAGE @#@@@@ ASCII @F@@@@NOTFD DTMH )@@G@@E A0,('****** ') . START OF LONG ITEM? @F@@@@ J MI )@@G@@ $+2 . NO, CHECK FOR PAGE EJECT@E@@@@ J MJ )@@G@@ STARS6 . YES, HANDLE IT @D@@@@ DTE MK )@@G@@ A0,('*****^ ') . PAGE EJCT? @E@@@@ J $+2 ML )@@G@@ . NO, CHECK / TOO @F@@@@ J UPARO MM )@@G@@ . YES, HANDLE PAGE EJECT @G@@@@ DSL A0,63 MN )@@G@@ . GET FIRST CHAR ALONE IN A1 @E@@@@ TE,U A1,'/' MO )@@G@@ . / IN COLUMN 1? @E@@@@ J NEITHER MP )@@G@@ . NO, NORMAL IMAGE @#@@@@ FIELDATA@E@@@@ L,U MQ )@@G@@ A1,'/' . GET FIELDATA / IN A1@A@@@@UPARO L A0,(MR )@@G@@1,PRTCN) @D@@@@ ER PRTCN$ . DO PAGE EJECT MS )@@G@@@F@@@@ TE,U A1,'/' . DONE BY SLASH IN COL1? MT )@@G@@@B@@@@ J STARS6 . NO@E@@@@ L,S2 MU )@@G@@ A0,SDFFCT+10 . GET IMAGE LENGTH @F@@@@ TG,U A0,2MV )@@G@@ . MORE THAN ONE WORD? @H@@@@ J SLPRMW )@@G@@T . YES, REMOVE SLASH, AND PRINT IMAGE @H@@@@ L MX )@@G@@ A0,IMAGE . JUST ONE WORD...IS SLASH ONLY CHAR? @E@@@@MY )@@G@@ L A1,('/ ') . CHECK FOR / ONLY @D@@@@ MZ )@@G@@ TZ ASCII . ASCII ELT? @#@@@@ ASCII NA )@@G@@@G@@@@ L A1,('/ ') . YES, CHECK AGAINST ASCIINB )@@G@@ CHARS@#@@@@ FIELDATA@D@@@@ TNE A0,A1 NC )@@G@@ . SLASH ONLY? @F@@@@ J STARS6 . YES, DND )@@G@@ON'T PRINT IMAGE @D@@@@SLPRT TZ ASCII . ASCII ELNE )@@G@@EMENT?@F@@@@ J REMSLSH . YES, REMOVE ASCII SLNF )@@G@@ASH @D@@@@ L,U A0,' ' . GET BLANK @G@@@@NG )@@G@@ S,S1 A0,IMAGE . BLANK OUT SLASH IN FIELDATA IMGENH )@@G@@@G@@@@ J NEITHER . NOW TREAT AS NORMAL IMAGNI )@@G@@E @F@@@@REMSLSH L A0,IMAGE . GET FIRST WORD OF IMNJ )@@G@@AGE @#@@@@ ASCII @E@@@@ L,U A1,' ' NK )@@G@@ . GET ASCII BLANK @#@@@@ FIELDATA@E@@@@ LSSL NL )@@G@@ A0,9 . SHIFT WORD OVER @E@@@@ DSC A0,9NM )@@G@@ . PUT BLANK IN FRONT @F@@@@ S A0,IMAGE NN )@@G@@ . STORE IT BACK IN IMAGE @G@@@@ J NEITHER NO )@@G@@ . NOW HANDLE LIKE NORMAL IMAGE @^@@@@STARS6 TNZ LOPTNP )@@G@@@^@@@@ J EXIT@ @@@@ S A0,SOPT @ @@@@NQ )@@G@@ S A0,NOEL @ @@@@ J DMPRT @^@@@@NR )@@G@@NEITHER TNZ SOPT@ @@@@ J DMPRT @E@@@@ NS )@@G@@ L,S2 A0,SDFFCT+10 . GET IMAGE LENGTH @E@@@@ LSNT )@@G@@SL A0,18 . FORM PRINT PACKET @A@@@@ A NU )@@G@@ A0,(64,IMAGE) @F@@@@ TNZ UPDATE . UPDATE INV )@@G@@NDICATION WANTED? @B@@@@ J NOUP . NO@F@@@@NW )@@G@@ AH A0,(1,-1) . YES, RESET FOR EXTRA WORD @G@@@@NX )@@G@@ L A1,('** ') . GET FIELDATA UPDATE INDICATOR NY )@@G@@@E@@@@ L A2,(' ') . GET FIELDATA BLANKS @E@@@@NZ )@@G@@ TNZ ASCII . IS IMAGE ASCII? @B@@@@ OA )@@G@@ J NOTASC . NO@#@@@@ ASCII @G@@@@ OB )@@G@@ L A1,('** ') . YES, GET ASCII UPDATE INDICATOR @E@@@@OC )@@G@@ L A2,(' ') . GET ASCII BLANKS @]@@@@NOTASCOD )@@G@@. @#@@@@ FIELDATA@D@@@@ S A2,IMAGE-1 OE )@@G@@ . STORE BLANKS @D@@@@ TZ,S5 SDFFCT+10 . NEW IMAGOF )@@G@@E? @E@@@@ S A1,IMAGE-1 . YES, STORE INDICATOROG )@@G@@@E@@@@ TNZ CCYC . CURRENT CYCLE = 0?@F@@@@OH )@@G@@ J NOUP . YES, SKIP CYCLE TEST @G@@@@OI )@@G@@ L,S6 A2,SDFFCT+10 . GET CYCLE THIS IMAGE ADDED OJ )@@G@@@D@@@@ TNE A2,CCYC . THIS CYCLE? @G@@@@ OK )@@G@@ S A1,IMAGE-1 . YES, SET UPDATE INDICATOR @[@@@@OL )@@G@@NOUP. @ @@@@ TNZ ASCII @^@@@@ J $+3 OM )@@G@@@ @@@@ ER APRINT$ @ @@@@ J DMPRT ON )@@G@@@ @@@@ ER PRINT$ @ @@@@ J DMPRT OO )@@G@@@B@@@@SDFERR LA A0,(0202,ESDF) . @B@@@@ ER OP )@@G@@ PRINT$ . @B@@@@ J FUNCE . OQ )@@G@@@B@@@@PRMEOF LA A0,(0204,PREMES) . @B@@@@ ER OR )@@G@@ PRINT$ . @B@@@@ J FUNCE . OS )@@G@@@B@@@@EXIT LA,U A0,SDFFCT . @B@@@@ LMJ OT )@@G@@ X11,SDFIC . @F@@@@ LX X11,SAV11 . OU )@@G@@RESTPRE RETURN ADDRESS @B@@@@ LX X11,SAV11 . OV )@@G@@@^@@@@ TZ LOPT@^@@@@ TZ NOEL@^@@@@ OW )@@G@@ J OUT @A@@@@ L A0,(0203,NOELM) @F@@@@ OX )@@G@@ ER PRINT$ . NO LONG VERSION EXISTS @B@@@@OUT OY )@@G@@ J 0,X11 . @[@@@@. @[@@@@. @[@@@@. OZ )@@G@@@D@@@@NONEWS* E$DIT EPKT . OPEN EDIT @E@@@@ PA )@@G@@ E$MSG NONWSM . EDIT 'THERE'S NO' @D@@_@ LAPB )@@G@@ A1,OPTWRD . GET OPTIONS @G@@_@ LA,U A0,CPC )@@G@@URMSG . GET ADDR OF 'CURRENT' MSG @E@@_@ TEP,U PD )@@G@@ A1,1*/('Z'-'O') . O-OPTION SET? @G@@_@ LA,U A0,APE )@@G@@RCMSG . YES, CHANGE TO 'ARCHIVE' MSG @E@@_@ E$MSG PF )@@G@@ . EDIT CORRECT WORD @E@@_@ E$MSG NONWPG )@@G@@S2 . ADD 'NEWS ABOUT' @D@@@@ E$FD2 A6 PH )@@G@@ . EDIT SPEC @D@@_@ LA A1,OPTWRD . PI )@@G@@GET OPTIONS @G@@_@ LA,U A0,PRIMSG . GET ADDR OF PJ )@@G@@'PRIMARY' MSG @E@@_@ TEP,U A1,1*/('Z'-'M') . M-OPTIPK )@@G@@ON SET? @H@@_@ LA,U A0,SECMSG . YES, GET ADDPL )@@G@@R OF 'SECONDARY' MSG @E@@_@ E$MSG . PM )@@G@@EDIT CORRECT WORD @B@@@@ LA A0,(0214,IMAGE) . @E@@@@PN )@@G@@ ER PRINT$ . PRINT MESSAGE @C@@@@ PO )@@G@@ J 0,X8 . RETURN@]@@@@/$(0) . @ @@@@NONWSMPP )@@G@@ 'THERE''S NO &' @^@@@@ARCMSG 'ARCHIVE &' @^@@_@CURMSG 'CPQ )@@G@@URRENT &' @^@@@@NONWS2 'NEWS ABOUT &'@B@@_@SECMSG ' IN SECONDARYPR )@@G@@ NEWS FILE.&' @A@@_@PRIMSG ' IN PRIMARY NEWS FILE.&' @E@@@@NOEL PS )@@G@@ + 0 . LONG VERSION FLAG @ @@@@NOELM 'NPT )@@G@@O LONG VERSION. '@G@@@@EDATE +0 . DATE EPU )@@G@@LT ADDED (TDATE$ FORMAT)@B@@@@SAV11 +0 . PV )@@G@@@B@@@@SAVREG* RES 40 . @D@@@@EPKT* E$PKT PW )@@G@@ 22,IMAGE . EDIT PACKET @D@@@@SDFFCT* 'DAILY$PLANET' PX )@@G@@ . SDFIO PACKET@^@@@@ +0 . @B@@@@ +0PY )@@G@@2000,0 . @E@@@@ +224,0 PZ )@@G@@ . BUFFER LENGTH @E@@@@ +0 . QA )@@G@@SDF DRUM ADDRESS @D@@@@ +BUFF,BUFF+224 . TWO BUQB )@@G@@FFERS @H@@@@ +8,22 . BUFFER SIZE (SECTOQC )@@G@@RS), IMG LENGTH @E@@@@ +1,IMAGE . IMAGE QD )@@G@@ADDRESS @B@@@@ +1,0 . @B@@@@ QE )@@G@@ +0 . @E@@@@BUFF* RES 1794 QF )@@G@@ . SDFIO BUFFERS @B@@@@ESDF 'SDFIO ERROR' QG )@@G@@ . @#@@@@BLANK ' '@^@@@@FLAG RES 1 @^@@@@ASCII*QH )@@G@@ + 0 @]@@@@HDG . @#@@@@ 'H,,1, '@^@@@@ QI )@@G@@ DO 7 , ' ' . @#@@@@ ' .'@#@@@@PRTCN 'L,0 .'@#@@@@QJ )@@G@@ 'H,N,,.'@A@@@@PREMES 'PREMATURE END OF FILE' @^@@@@ QK )@@G@@ RES 1 @G@@@@IMAGE* RES 33 . ENOUGHQL )@@G@@ ROOM FOR ASCII IMAGE @^@@@@ END . ___ . EDIT 'THERE'QM )@@G@@S NO' @D@@_@ LA)@@[##@[#@@K0@K)IK0@K0@K0@@@@@[[K@]6[@@@]5[@@@#9QN )@@G@@'=@@@@[[K@@^=9K@@)[[K@@#[[@@@[AA@@@@)@C[F#@[]@.#@@^G@^G@[@@@/K@@@O>8@@^@QO )@@G@@C@@@@#[@@@^ :9@@@^C8@@@_ @@@^ '=@@@@C@@@G2AB@@@@)@L[F#@@K0@EK#CK@CS@]^@8QP )@@G@@C/@@@#/,0@@@C8K@@GC8@@@*/,0@@@C/@@@@[@K@^ -8@@@_C@@@^ AC@@@@)@U[#]@L]@9]QQ )@@G@@@?K)^K)IK)DK0@@@@@C@@@G3/,0@@@'=@@@@/,0@@@C/@@@]/,0@@@'=@@@@/,0@@@AD@@@@QR )@@G@@)@+[#][^K0@K0@K0@K0@K0@@@@@@@@=8@@]@[@)@^[=@@@G5[@)@#_=@@@G4C@@@@#C8)@__QS )@@G@@'=@@@@AE@@@@)@%[##@[#@[#@@K0@K0@K0@K0@@@@@ @@@#.*@@@^@(@@@^[[@)@^]=8@@@KQT )@@G@@[@)@#.=@@@G6[@)@^@AF@@@@)@2[##@[@K0@K0@K0@K0@K)LK0@@@@9?@@^@'=@@@@*@@@#.QU )@@G@@C@@@G7[@)@^@(@@@#./K@@@6*@@@^[AG@@@@)@'[##@[#@[][D#@@()@-)@ G@@@@@R;@@]VQV )@@G@@=8K]@@R#K@@#C8@@]O @@@]7/,0@@@C@@@G89*@@^#AH@@@@)[][F][H@[#@@()@-@&)C@@@QW )@@G@@/,0@ 3/G@@]V'=@@@@C8@@]+A7@@]<>8K@@]R;@@@E/G@@]N'=@@@@AI@@@@)[F[F#@@K[#@QX )@@G@@@^C @@@@@@@@C')[]A/,0@@@C8@[[AC')[[A(@@@#"C')[]A/K@@ I=8@@@[C@@@@#AJ@@@@QY )@@G@@)[O[F#@[#@@K0@[][L@@@@@@R;%@@@/K@@[8@@]@C@@@@#/K@@#1*@@@^*/K@@#.AZ@@@@)#$[F#@[@^G@^[#@@K^CA)@@RR )@@G@@/,0@@@/K@@[7%@C@@@C@@@H /K@@#;*@@@#">8@@)@/K@@#;*@@@#.BA@@@@)#0[F@K0@K0@RS )@@G@@K0@K^[#@@@@@9/C@@@/S#)@@9?])^(/K@@[78K)@#6R@0@@BR@)@@AN@)@^*/K@@ IBB@@@@RT )@@G@@)#9[F@K0@K)UK[#@[@K0@K@@/K@@^#%@)@HA/K@@^B(@@@#_9?*@@@/K@@[7/,0@@@[^#@@BRU )@@G@@/K@@#4BC@@@@)^][#@K0@K^G@^G@^G@^G@^G@@@@@@9*@@@AC@K@G/C@@@G99*@@^@9?@@^#RV )@@G@@/K@@[7(@@@^*/K@@^ BD@@@@)^E[F#@@K^[#@[#@[#@@K0@@[@@@#'G@@@@HC0K@#9C@H@^BRW )@@G@@C4K@#9/K@@^:/K@@^$=8@@)@C@@@@#BE@@@@)^N[MK0@[#@[#@@^@@H@@@@H/K@@^)!@K@@GRX )@@G@@C)S@@DC?@@#9[@@@#;G@@@@HC=S@@DC@H@^BC*S@@DBF@@@@)^X[]K0@K0@K0@K0@K0@^G@@RY )@@G@@@@@@@@!@@@#/C8@@@I[@@@#/H@@@#;C@@@#'[@@@#'G@@@#'T8@@ !BG@@@@)^>[F@K[#@[@RZ )@@G@@K[#@[#@@@@@@:[0@@99.0@@79!8@@^/K@@#)/K@@[79.0@@'9!8@@^/K@@[7/K@@#)BH@@@@SA )@@G@@)^,[F@K0@K^@K0@K^[#@@@@@R]0@@>/K@@ F/,0@]XA]0@@>C@C@@^/K@@[7/K@@^29.0@@'SB )@@G@@/K@@#)BI@@@@)^7[##@[#@[#@[#@[#@[#@[#@[#@@@[*@@@[C?@@#9[=@@@[C4@@#9[)@@@[SC )@@G@@C0@@#9 @@@@[[@@@@&BJ@@@@)^_[##@[#@[#@[#@[#@[#@[#@[#@@@[*K@@[C)K@@&[=K@@[SD )@@G@@C*K@@&[)K@@[C=K@@& @@@@[C@@@@[BK@@@@) B[##@@K^[#@[@K)LK0@@@@@@@@@@C@K@@#SE )@@G@@'=@@@@/K@@^IR]0@@>/K@@[7/K@@#)!@K@@GC@K@@[BL@@@@) J[]()@-@&C[N@[][GK0@@@SF )@@G@@@@@@@@A7@@]$C8@@@E'=@@@@C8@@](/K@@ %=8K@@]'=@@@@C8@@#TBM@@@@) R[]()@-@&)SG )@@G@@ G@^CA4G@[#@@@@@@@[^K@]3G8K@@[C^K@]3'=@@@@C8@@#J/G@@ %'=@@@@C8@@]&BN@@@@SH )@@G@@) Z[](@8-)@CS@ G@^CA4G@]&@@@@@C8@@#J[@K@#O'=@@@@C8@@#J[C@@#NC8@@@W[W@@#MSI )@@G@@C8@@@@BO@@@@) $[#][?()@-@&-)@-)@CKI*S@@@@@C@@@HC'=@@@@=8K^@@C@@@HBC@K@@#SJ )@@G@@'=@@@@C8@@]0'=@@@@BP@@@@) \[##@[#@[][ ][9#@@K)OK@@@@@@/K@@AW/,0@@@C8@[[ASK )@@G@@A]0@^A'=@@@@'=@@@@R#@@HD(@@@^ BQ@@@@) 7[EK^G@@K^[#@[#@@@@@@@R$@@#"[@@@#"SL )@@G@@/K@@AW/,0@]X @@@@K @@@@H9*@@]7/K@@AW%80@@ABR@@@@)A@[EK0@K0@^G@@K@@@@@@@@SM )@@G@@!8K@@A/GK@AF/@V@@@P:S@@DC4K@#9/KF@@@R]0@^AA$@@#"P;@@@[BS@@@@)AD[N@@[#@[#SN )@@G@@@@K0@@9/@@@'/KF@@@:@@@@99/@@@79?C@@^/KF@@@!8K@@BE@K@@H/KF@@@/K@@AIBT@@@@SO )@@G@@)AN[F@[#@@K0@ES@CKJ)@@@@/KF@@@'=@@@@C8@@^)9*K@^&9?S@@^9*K@^+9?S@@@/KF@@@SP )@@G@@/K@@APBU@@@@)AW@N#@[@@@@)@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@H,N,,./K@@[F @@@#"BV@@@@)@B@C@)@=[C@@@@@@@TANCE ASSIS>> FORWS 3.5NYU NESR )@@G@@<*> @@@@@@@@@@@@@@@@@@@@@@@@BW@@@@)@![@@@@@@@@)@7@K@L ETERNA6. SS )@@G@@84-252212) 5CALL (TION, NFORMATHER IOR FURBX@@@@)@9@)@@@@@@@)]O@*@@@@@@@ST )@@G@@NEWS$/,UHMC*PLANETDAILY$@USE L,0. E ARCHIV BY@@@@)]T[S@@@@@@@SU )@@G@@ DAIL@ASG,A. /DYD. EWS$M/UHMC*NLANET,AILY$P@USE D. /DYD. BZ@@@@SV )@@G@@)]=[S@@@@@@@RACK .KEEP/TUSAGE/NEWS$*UDIT$,@USE AT$ . AUDI@ASG,AET . SW )@@G@@Y$PLANCA@@@@)]\@)@@@@@@@)#J@)@/V]@4@@@@@@@@@@@@@@@@@@@ AUDIT$ . SX )@@G@@AUDIT$@FREE CB@@@@)#N[K*@@@@@@@@@@@@ET . Y$PLANB DAIL@FREE,ROR SY )@@G@@ASG ERROR USE ER@@@@@@@@[@]3CC@@@@)#9[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD@@@@)^^[S@@@@@@@@@@@]5@@@@]RTA )@@G@@@@@@[8@@@@[U@@@@@;@@@@@Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE@@@@)^J[S@@@@@@@TB )@@G@@@@@JUN@@@MAY@@@APR@@@MAR@@@FEB@@@JAN@@@@ I@@@@^0@@@@^L@@@@#3@@@@#OCF@@@@TC )@@G@@)^U[@@@@@@@@)^>@C@@@@@@@@@[@@@PLANETDAILY$@@@DEC@@@NOV@@@OCT@@@SEP@@@AUGTD )@@G@@@@@JULCG@@@@)^*[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@CH@@@@)^3[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI@@@@)^"[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ@@@@) D[S@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK@@@@) O[S@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL@@@@TJ )@@G@@) Z[S@@@@@@@@@@@@@@@@@@@PLANETDAILY$@@@@@@WS OOD NES IS GNO NEW@@@@@@TK )@@G@@@@@@@@CM@@@@) %[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@CN@@@@) 5[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO@@@@)A@[@@@@@@@@)G?@K@ROR BSP ER@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP@@@@)G,[K@E[M[@@*@@@@@@[[@G,TO )@@G@@@@@C@@@@@^@@@@^@@@@]C@@@@@[@]4TER AIN LATRY AG CQ@@@@)G8[K*[)@* @TP )@@G@@* @*@@@]#@G\@]]@G?@]^@ -@]]@#R@]]@#P@@[@@@_____"@AC@A=@@]@@@@[R@@.CR@@@@TQ )@@G@@)H][@@])O])@@@@@@@@@@@@@@@@@@@@#F@@%@][@@$@@[@@@FLASH NEWS @@[@@[@@]@@]TR )@@G@@XXXXXXCS@@@@0@@@]@])O])@@@@@@@@@@@@@@@@@@@@#F@@%@][@@$@@[@@@FLASH NEWS TS )@@G@@@@[@@[@@]@@]XXXXXXCT@@@@@@^@@]@@A@@)@[A@@H@['@@@@@@@HE@@@@AYEDIT$ TT )@@G@@EDITR$ ECHAR$ ECOL$ ESKIP$ ECLR$ EPKT TU )@@G@@ECOPY$ EPACK$ ETIME$ EDAY1$ EDAY2$ EDAY3$ TV )@@G@@RDL$ TDATE$ PCT$ IMAGE PRINT$ RINF$ TW )@@G@@CSF$ SINF$ RFTI RPFET ETNL NONEWS TX )@@G@@ASCII PRT IOW$ W$ PRTCN$ EXIT$ TY )@@G@@PFD$ FUNCE @@[@@@@@@@ IOPTWRD @@@@@@@@@@@#UPDATE TZ )@@G@@@@@@@@@@@@@^TODAY @@@@@@@@@@#9KOPT @@@@@@@@@@#.UDATE UA )@@G@@@@@@@@@@@@#"DOPT @@@@@@@@@@#"FOPT @@@@@@@@@@#_SOPT UB )@@G@@@@@@@@@@@@^@LOPT @@@@@@@@@@^[VOPT @@@@@@@@@@^]DEMAND UC )@@G@@@@@@@@@@@@^ TYPED @C@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@)@@[##@[#@[#@[#@@^G@^C#@@@@@@@*@@@@@A]0@@QM@M)@@N8K@@XR@)@YDR@K@YCA@)@@SUF )@@G@@A@K@@RAA@@@@)@C[F@K)HK[#@[#@@K@@@@@@:8K@@B/K@@@KC4S@@BR#@@YE9*@@XX9?C@@@UG )@@G@@/K@@@N(@@@@@/K@@@NAB@@@@)@L[F#@[]@8^G@^G@]&@]^@@9?C@@@/,0@@@C/@@@_[^@@@PUH )@@G@@[CK@@PC^S@@DCCC@@D'=@@@@R#@@YFAC@@@@)@U[F]@T]@.][[@^C@-]@S@@C/@@@]/,0@@@UI )@@G@@9?C@@^/,0@@@C/@@@//K@@@>(@@@@@C[)@@@/,0@@@AD@@@@)@<[#]@L@^C@4G@^C]OG@^C#UJ )@@G@@@@@@@@(@@@@@C@@@YG/,0@@@C@@@@P/,0@@@C/@@@I/K@@@$/,0@@@AE@@@@)@:[##@[][ ]UK )@@G@@@1@K0@K)LK0@@@@@@@C@C@@C @@@@L'=@@@@C@@@YI/K@@]W*@@@@@'=@@@@C@@@YHAF@@@@UL )@@G@@)@3[##@@K0@^G@]&@]^]M@@@@@@@@@/K@@]Q/,0@@@C8@@[ [^@@[GC8@@@-*@@@XQR;@@@QUM )@@G@@[@@@[EAG@@@@)@;[E()@-@&)C]@O0@K)NK^@/K@@]W/K@@]Q/,0@@@C8@@[ /K@@[^/K@@]TUN )@@G@@/K@@]Q/,0@@@C8@@[ AH@@@@)[^[##@[@K0@K^G@^G@^[#@@@@@@@@:@@@YJ/K@@[N*@@@XQUO )@@G@@9?@@X$/K@@[@0@@@[J/K@@[@*S@@[JAI@@@@)[G[F@K0@K@K^[#@[@@@@@@@/K@@[Q9/@@YLUP )@@G@@/K@@['/K@@[X:8K@@/;G@@[]/K@@[X:@@@YK/K@@[5AJ@@@@)[P[F@K0@K^@^@K0@@@@@@@@UQ )@@G@@R#@@YPR;K@@//K@@['%8K@@\;G@@@_/K@@[X/K@@[T9/@@YN/K@@[5AK@@@@)[Y[F]@8K^G@UR )@@G@@[@K0@K0@K0@@*@@@XQR#K@YQR#@@X$/K@@[%!8@@@]R3@@[J/K@@[5%8K@@/'=@@@@AL@@@@US )@@G@@)[$[F#@@K^G@^@K0@K^G@@@@R#@@X$/K@@['A7@@X$R;@@@ /K@@[\*@@@XQ/K@@[5:@@@@HUT )@@G@@R#K@YRAM@@@@)[0[E[#@[@K)HK^C ^G@@@@@A#@@@LA#@@@@/K@@]W(@@@@@/K@@['A#@@X$UU )@@G@@;^@@@D;*@@@DR;K@@)AN@@@@)[9[#@K)OK^G@[#@[][P@@@@@@@@@@/K@@]K(@@@@@O#@@YSUV )@@G@@;*@@@MR3@@[J/K@@[@(@@@@@/K@@[@AO@@@@)][[##@[#@[#@[#@[@K0@K0@K0@@@@A#)@X&UW )@@G@@R#)@YXR#K@YW/K@@]C(@@@XQR#)@YVR#K@YU'K@@YTAP@@@@)]D[F#@[#@@K^G@[#@[#@[@@UX )@@G@@/K@@]O(@@@XQA#K@X&:S*@@AR<)@[J/K@@]K(SC@@AA#K@X&*=@@[JAQ@@@@)]M[#][T@K)LUY )@@G@@K^G@^C^OC 4G@@@@@@C@@@YZ/K@@@@'=@@@@C@@@YY/K@@[@'=@@@@/K@@[@'=@@@@AR@@@@UZ )@@G@@)]U[#][ ][W()@-@0-)@-)@-@U-)@@*@@@@L*@@@@@R]0@@QR]0@@Q/,0@@@C8@@[ /K@@@@VA )@@G@@'=@@@@AS@@@@)]+[#@K0@K)L]&@]^@]A@]^[S@@@@@/,0@@@C8@@@@/,0@@@C/@@@_/KF@@@VB )@@G@@'=@@@@R#@@Y)/K@@]>AT@@@@)]%[#]@/()@ G@^C]4G@^C]0@@@@@@9?@@@M/,0@@@C8@@@AVC )@@G@@/,0@@@C8@@@]=8K@)@C8@@@^C@K@@@AU@@@@)]2[#]@T]@/()@ G@^C]4G@^C^K@@@'=@@@@VD )@@G@@C@@@Y-/,0@@@C8@@@C=8K]@@C8@@@HC@K@@@/,0@@@AV@@@@)]'@E@)@@[C@@@@@@@ IN SEVE )@@G@@BOUT &NEWS AT & CURRENE & ARCHIVS NO &THERE'/KC@@@AW@@@@)@D[S@@@@@@@VF )@@G@@G VERSNO LON@@@@@@ILE.& NEWS FIMARY IN PR& FILE.Y NEWSCONDARAX@@@@VG )@@G@@)@O@S@)@_@8*@@@@@@DAILY$@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@@&Q@X$@@@@@@@@@@@@VH )@@G@@ION. AY@@@@)[A[K@#[E@O@@@@@@@@@@@@@@@[@@@@@[@X$@@C@@Q@[K@^0@@@@@@@#)@@@VI )@@G@@@K@@@@@@@@@@PLANETAZ@@@@)XM@S@)XQ@8@@@@@@@ VJ )@@G@@H,,1, @@@@@@ ERROR SDFIO BA@@@@)XX[C@@@@@@@@@@[C@@@@@@@ILE D OF FVK )@@G@@URE ENPREMATH,N,,.L,0 . . BB@@@@)YC[K*[KE[KE[K@@@@ K% K%VL )@@G@@*****^******@[[@XO@]C@X$@[C@X$@@]@X)@@E@XR@@[@@#@@[@@TBC@@@@)YM[S@*@O@@@VM )@@G@@ K%^@) ** @@[__"@[@@X$ 8)^@)/ @@[@X) LY^@) K% K% K%^@)BD@@@@VN )@@G@@)YX@*E[KE[K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@X$@]#@@M@]^@X+@]]@XMVO )@@G@@^@)^@)BE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@T@@8@@C@[S@@@@@@@Y+@@@@];EDIT$ VQ )@@G@@EDITR$ ECHAR$ ECOL$ ESKIP$ ECLR$ EFD2$ VR )@@G@@ETIME$ EDAY1$ EDAY2$ EDAY3$ EMSG$ KOPT VS )@@G@@LOPT PRTCN$ OPTWRD VOPT PRINT$ SDFIO VT )@@G@@SDFI SOPT UPDATE APRINT$ FUNCE SDFIC VU )@@G@@PRT @@[@@@@@@@@@SAVREG @@@@@@@@@@@REPKT @@@@@@@@@@@_VV )@@G@@NONEWS @@[@@@@@@@]&IMAGE @@@@@@@@@@X$SDFFCT @@@@@@@@@@[ VW )@@G@@BUFF @@@@@@@@@@[KASCII @@@@@@@@@@XQ^@)^@)^@)^@)CTFD(JELH^@,VX )@@G@@@[@@@@ 0)^@)@[@@@@ 0)^@)@[@@@@ 0)^@)@D@@@@EL EDDD(^^@,^@)D9PE-KE(O^[DES)VY )@@G@@EL CD^FC) *)C- D([D1^^@)@N@@@@^@)^@)^@)^@)^@)E-U======@@^@@ @@@@@@@@@@@@VZ )@@G@@@@ @RE@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX$F#E70-1 @@@[@@WA )@@G@@@@@@[]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@A@@A@@S@[;@@@@@@@@^@@@@-K@@@@@@WB )@@G@@@^@@@]@^@#@[@ @@@]K^@A@)ETNCDBC*)^@)@I@@@@ 0)ETDD1#C*)E[MDDIE)=^[DD1OC(MWC )@@G@@C1[CT ^[MC(HD9QC(N^[OEL[DDGDDIC8)CLGCDIDTN^[DE))DDN^@)@J@@@@ 0)D1 CT ETNWD )@@G@@CDMFC)E-J^[#D9HE[[EL ^[R@P*@C@)]S@X*@@@___@@E^@@@@R^@V@@L^[U@@O^X!@@(^YG)#2^?I@@@___@@@___@@@___@@@___@@@___R#W@@DR#?@@CR#.)@@A#/@@EWG )@@G@@A#W@@D @@@[] @@@[#;C0@@Y%80@@_/K@@CHP;K@@[A#W@@D/KF@@[R#/@@E;K0@@S/C0@CLWH )@@G@@R3/@@E!^/@@BRB/@@BC G@@DG[@@@JC W@@AGDW@@^H[@@@L/D@@D7N@K@@JM#!)@@A#W@@DWI )@@G@@*@@@[]/K@@D\R#/@@E;K0@@S/C0@C+R3/@@EPB/@@B/G0@C_C G@@DG[@@@J[ G@@DC W@@AWJ )@@G@@GDW@@^H[@@@L/H@@C_P#0@@K0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@C7%9K@@ WK )@@G@@/KF@@@(^G@@#/KF@@@C[W@@A[ W@@^;[K@@M[[W@@A[ W@@D'=@@@[R#0@@K/K@@C=R#W@@DWL )@@G@@C5X@@@%9K@@(/KF@@]0@G@@E/K@@DBR;0@Z_/K@@DCR;0@@_C[W@@E;LK@@S/DK@DGC1W@@EWM )@@G@@![K@@J/K@@D4! W@@B/K@@D4C[@@@LG1H@@@?@0@@K/K@@DY? G@@B/K@@DWC[K@@KH W@@BWN )@@G@@H1X@@@D@0@@LC G@@B/K@@D>R3.@@@/K@@D>!^/@@B/K@@DQC[K@@KH[K@@JH1X@@@C[@@@JWO )@@G@@D@0@@L[1G@@E0@G@@E/K@@D%;D@@@A[5G@@EN0!@@@N@0@@JO;K@@[A#W@@D/K@@CNR#0@[]WP )@@G@@P#0@[#/@0@C_/G0@C_/K@@C=R3.@@@O;0@@[/K@@C=P#0@@KN@K@@JM#!)@@R#0@@K0@G@@#WQ )@@G@@'=@@@AC[W@@ GDW@@B[[W@@ C5W@@#/[K@EA%9K@@ /KF@@@(^G@@#/KF@@@C[W@@A[ W@@^WR )@@G@@;[K@@M[[W@@A[ W@@D'=@@@[R#W@@D/K@@CN @@@@HOBW@@AABW@@DR#W@@AABW@@^;@K@@MWS )@@G@@'=@@@#C[W@@ GDW@@B[[W@@ C5W@@#/[K@EY%9K@@ /KF@@@(^G@@#/KF@@@ABW@@^;@K@@MWT )@@G@@A#W@@A'=@@@[/KF@@[0@G@@#'=@@@AC[W@@ GDW@@B[[W@@ /KF@@@[@@^@@C8W@@@KCK^@@WU )@@G@@H8)@@[&;K@E_C@@@@H'=@@@HG8W@@@ @H@@@>@@@IN/K@@E/>@@@IO/KF@@[C8H@@@?8I@@@WV )@@G@@/K@@E,C@@@IMC8K@@#/KF@@@C@@@IBC8K@@[/KF@@@C@@@IHC8K@@]/KF@@@L8@@@[C@)^@@WW )@@G@@G8)@@[*@I@@@?CY@@@/K@@FEG),@@@/K@@F^%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@WX )@@G@@9?I@@[?80@@BC@K@IP/KF@@[N8W@@@C^@^@@G8@@@[C9K@@[ @@^@IN8)@@@(@G@@@/K@@F_WY )@@G@@(4G@@@/K@@F\%1W@@@/K@@F_C?W@@@!8K@@A/K@@F2%(K^@I @@^@H[(K^@I9??@@[C-G@@@WZ )@@G@@:9@@@[C@0@IP')H@G\H9@@@[T9@@@AG>G@@@')H@G7G)G@@@G8@@@[/K@@FU:9K@@[/K@@F7XA )@@G@@C*?@@@:8)@@.N8)@@[%[K@[[/K@@F\/K@@F&%@)@IP[5@^@H:@)@IP[-K^@H/K@@F\(@@@[]XB )@@G@@:(K^@I/K@@G^[(K^@I @@^@H:[K@[[/K@@GGG9K@@[*@G@@@/K@@FT @@^@H @@^@I/KF@@@XC )@@G@@:(K^@I *@^@I9?K^@H98V@@@C8@@@-[=@^@I(?@^@I/KF@@[C@@^@UD8)@@@C80@@@C!@^@IXD )@@G@@8^@@GZ1@@@@I!8)@[@C80@@E[))^@I[=0^@I/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0/K@@G%XE )@@G@@(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@GS/^0@GV%8K@@+:8K@@-C8.@@@/@0@GV/K@@GSXF )@@G@@9*)^@J9*)^@L[@)^@N[@)^@O[@)^@P9*)^@Q9*)^@S[@)^@U/K@@F'[1@^@H[!@^@H[(@^@HXG )@@G@@[>@^@H[5@^@I[1@^@I[!@^@IC80@@F+8K@@_:8)@@ ;^@@@A8#0@H[9*@^@]C@@@IQC@K@IRXH )@@G@@C8)@@BC@0@IP[@"^@ 8#)@HEN4K^@H9!@^@J/\)@H8C9K@@*(4@^@H*)@^@H')H)@@N0K^@HXI )@@G@@9!@^@L*@@@[[/K@@HTC[@@ISN8K@@^/\)@H8N?K^@H(@@@[[/K@@H@@@A')H)@@XL )@@G@@8KK@H6/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@I@[-W)@@Q;K@H'/KJ@@@PROCESXM )@@G@@SOR CALL ERROR @[^@I#ABNORMAL RETURN FROM READ$ @[ @ICTOO MANY SPEXN )@@G@@CIFICATIONS @[^@II]@@@@@[@@@@@ @@[^@ @@[@H'TPF$ @@G^@[C8G@@@;G@@@=XO )@@G@@W8@@8KC8?@@@C8H@@@/\K@I:C8)@@:')])K);G@@@=W8@@@/C8?@@@C8H@@@/\K@I:C8)@@:XP )@@G@@')])K)C8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')])K)C8\@@0')])K)/KH@@@;C@@@M+8@_@@XQ )@@G@@;GK@@0/\K@I:C8)@@/')])K)+8@@_@;GK@@%/\K@I:C8)@@/')])K)+8@@@_C8!@[@/\K@I:XR )@@G@@/KF@@@;C@@@M+8@@_@;GK@@%/\K@I:+8@_@@;CK@@FC@!@J$C80@@^;@)@@Y')])K)8#0@JDXS )@@G@@+8@@@_C8!@[@/\K@I:/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@;CK@@F9?H@J$/,0@LBC8)@@ XT )@@G@@')])K)C@K@[[+8K@_@;G)@@%W8)@@E/@)@J)G8)@@0')])K)C8\@@0')])K)C8)@@,')])K)XU )@@G@@+8K@@_C8I@Y?C8K@@ RE1@@#/K@@MI JAN UARY FEB RUARY MAR CH APR IXV )@@G@@L MAY JUN E JUL Y AUG UST SEP TEMBER OCT OXW )@@G@@BER NOV EMBER DEC EMBER A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)@M0R^1@@@XX )@@G@@&80@@[C8@@M1M@/)@@Q^1@@@ ?[@@]/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[XY )@@G@@&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@XZ )@@G@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@K&[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])K)YA )@@G@@/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@YB )@@G@@/K@@K!N?L@@@Q^1@@@C8@@M1M@/)@@Q8)@@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@YC )@@G@@/KF@@@C80@@ /K@@LCC80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@LI')])K)8#0@LC/KF@@@YD )@@G@@&"0__"/K@@LN&'0@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[8#0@LU/KF@@@')G)L,0@@@@FYE )@@G@@%8)@@@')])K)/K@@LSC?[@@[C^L@@[/K@@L=;G@@@M;CK@@M&;@@@[&;K@@[')G)L,:0-@@@YF )@@G@@/K@@L:')])K)/K@@L&[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@L4YG )@@G@@C)!)@@[^[@@]Q;@@@@/K[K@]C80@@@;G@@@#/@@@M@G80@@[;G@@@#/^@@L;C8)@@0')])K)YH )@@G@@C8)@@@;=K@@#G8)@@0')])K)8#0@M@/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@M@&"0__"YI )@@G@@/K@@MJC8K@@@&'0@@@N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@MR/^@@MLYJ )@@G@@/C@@MY0@@@@F/K@@MY;?)@@AG80@@-8KK@MYC@K@@I0@@@@F1@@@@G/K@@M>R;)@@-')])K)YK )@@G@@8KK@M>C8)@@ 0@@@@FC8)@@0/K@@M%')])K)8KK@M(C@)@@J')])K);GK@@A/^)@M?/KF@@@YL )@@G@@@@[@@@ A@K^@2A@)^@3R@K^YC4S@@B/K@@N]:8K@@BR#@^Y&'=@@[ZCCC@@DC^S@@D[CK^@0YN )@@G@@[^@^@0C/@^[U/,0@K[9?C@@@/,0@LBC[)^ZB(@@^R;@@@Q*@@^X1C8@@@-[^@^[$C8@^[)/,0@EIYQ )@@G@@/K@@PCC8@^[)/,0@C@/K@@PC/K@@PF/K@@N6C8@^[)/,0@C@/K@@PC/K@@PI*S@^[%/K@@N2YR )@@G@@0@@^[%/K@@N29?@^Y]*@@^X1/K@@O :@@^Y%/K@@O$:@@^Y:/K@@OJ;G@@[]:8K@@//K@@OJYS )@@G@@/K@@O?9/@^Y?/K@@OC/K@@O$9/@^Y,/K@@OF/K@@OJ;G@@@_%8K@@\/K@@O?R;K@@/R#@^Y0YT )@@G@@'=@@[Z%8K@@//K@@O$R3@^[%!8@@@]/K@@OWR#@^Y]R#K^Y1*@@^X1R#K^Y2:@@@@H/K@@O$YU )@@G@@*@@^X1/K@@O-R;@@@ A7@^Y]/K@@O?R#@^Y]R;K@@);*@@@D;^@@@DA#@^Y]/K@@O?(@@^< YV )@@G@@/K@@PIA#@^<^A#@^@?/K@@N2(@@^<^/K@@N2R3@^[%;*@@@MO#@^Y3(@@^ZC/K@@P]'K@^Y4YW )@@G@@R#K^Y5R#)^Y6(@@^X1/K@@O'R#K^Y7R#)^Y8A#)^Y[*=@^[%A#K^Y[(SC@@A/K@@P]R<)^[%YX )@@G@@:S*@@AA#K^Y[(@@^X1/K@@PA'=@@@8/K@@N2'=@@@I/K@@N2C@@^Y9'=@@@I/K@@WSC@@^Y'YY )@@G@@'=@@@I/K@@WSC8@^[)/,0@E8@@^@/K@@RYC@@^8K@@]A7@^-$C8@^-&'=@@@J/G@@T>/,0@W.C@@^ZB=8@@@[/K@@WSZP )@@G@@C')[]A(@@^<]C')[[AC8@[[A/,0@F]C')[]AR])^:.*@@^<]O')@@]R@K^:. @@@@PC@@@@QZQ )@@G@@/,0@F]/K@@S!R;%@@@?8)@@V9*E=-;9*[=8@@]@*@@^< /K@@V (@@^<#*@@^<[/K@@V >8@@)@AC )@@G@@*@@^<]/K@@V C@@^?D%@C@@@/K@@T[/,0@M2/K@@WSN@)^ NYU NEWS 3.4>> FOR ASSISTANCE BB )@@G@@OR FURTHER INFORMATION, CALL (212) 584-2526. @@@@@@@@@@@@ETERNAL BC )@@G@@ ARCHIVE L,0. @@@@@@@@@@@@@@@@@@@@@@@@@USE DAILY$PLANET,UHMC*BD )@@G@@NEWS$//DYD. . @USE DAILY$PLANET,UHMC*NEWS$M//DYD. . @ASG,A DAILBE )@@G@@Y$PLANET . @ASG,A AUDIT$ . @USE AUDIT$,NEWS$*USAGE/KEEP/TRACK . BF )@@G@@@FREE AUDIT$ . AUDIT$ @@@@@@@P@@@@@@[^-7@@@@@@USE ERROR ASG ERBG )@@G@@ROR @FREE,B DAILY$PLANET . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@;@@@@[UBI )@@G@@@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3@@@@^L@@@@^0@@@@ I@@@JAN@@@FEB@@@MAR@@@APRBJ )@@G@@@@@MAY@@@JUN@@@JUL@@@AUG@@@SEP@@@OCT@@@NOV@@@DECDAILY$PLANET@@@@@@@@@@@@BK )@@G@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@NO NEWS IS GOOD NEWS @@@@@@DAILY$PLANET@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@BSP ERROR TRY AGAIN LATER @@[^-8@]C^Y]BT )@@G@@@@^@@@@@@^@@@@@C@@@[[^:2@[R^)[@@]@@@^>G@A=_____"@@[@@@@]]^+T@]]^+V@]^^=>BU )@@G@@@]]^:0@]#^:3XXXXXX@@]@@]@@[@@[NEWS FLASH @@[^Z^@][^Z:@#F^Z,@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]BX )@@G@@@@@#@ @@@@@] LA,S4 A1,EXPIRE . GET EXPIRATION MONTH BY )@@G@@@B@@@@ SA,S5 A1,TEMP . @F@@@@ LA,S6 BZ )@@G@@BSP #80 , SZ BUF+4 @A@@@@ DO AUDIIS )@@G@@T<1 , NOP @B@@@@ LA,U A0,USE . @ @@@@ IT )@@G@@ L A1,OPTWRD @A@@@@ TEP,U A1,1*/('Z'-'M') @ @@@@IU )@@G@@ L,U A0,USEM @H@@@@ ER CSF$ IV )@@G@@ . @USE DAILY$PLANET.,SITE*NEWS$. @B@@@@ JN A0,UIW )@@G@@SERR . @ @@@@ ON UOMEOP @D@@@@ L,IX )@@G@@U A0,'E' . GET E-OPTION@F@@@@ TOP,U A1,1IY )@@G@@*/('Z'-'Y') . AND USE IT, IF Y-OPTION @D@@@@ S,S1 A0,AIZ )@@G@@SGA+1 . IS NOT SET @#@@@@ OFF @B@@@@ LAJA )@@G@@,U A0,ASGA . @E@@@@ ER CSF$ JB )@@G@@ . ASSIGN NEWS FILE @A@@@@ JN A0,TRYLATER @ @@@@JC )@@G@@ LMJ X11,GETDAT@ @@@@GOTIT LA A0,OPTWRD @A@@@@JD )@@G@@ TEP,U A0,1*/('Z'-'Z') @ @@@@ J FUNCE JE )@@G@@@ @@@@ LA,U A10,010206@^@@@@ TNZ DOPT@ @@@@JF )@@G@@ LA,U A10,010106@ @@@@ LA,U A0,010106 @ @@@@JG )@@G@@ LMJ X11,SINF$ @ @@@@ LA,U A10,010206@ @@@@JH )@@G@@ ON AUDIT @ @@@@ LX X10,(2,0) @E@@@@JI )@@G@@ TZ DOPT . D-OPTION SET? @E@@@@ JJ )@@G@@ AX,U X10,2 . YUP, BUMP X10 @#@@@@ OFJK )@@G@@F @E@@@@ LX X1,(2,0) . SPEC. LIST POINTERJL )@@G@@@F@@@@ SZ A9 . ZERO OUT NO. OF SPECS JM )@@G@@@E@@@@NSP LA A0,A10 . PICK UP SPEC NO @E@@@@JN )@@G@@ LMJ X11,SINF$ . LOOK FOR SPEC @D@@@@ JO )@@G@@ J NOMORS . GOT NONE @ @@@@ ON JP )@@G@@ AUDIT @G@@@@ L,U A2,0,X10 . GET MODIFIERJQ )@@G@@ PORTION OF X10 @E@@@@ TLE,U A2,27 . DO WE JR )@@G@@HAVE ROOM? @F@@@@ DS A0,BUF+4,*X10 . NO, STORE SPJS )@@G@@EC FOR AUDIT@#@@@@ OFF @E@@@@ DS A0,SPECS,*JT )@@G@@X1 . GOT ONE - SAVE IT @^@@@@ AA,U A9,1@E@@@@ JU )@@G@@ AA,U A10,0100 . BUMP TO NEXT SPEC @E@@@@ J JV )@@G@@ NSP . GO LOOK FOR MORE @B@@@@NOMORS SA JW )@@G@@ A9,NSPECS . @^@@@@ TNZ DOPT@B@@@@ ANJX )@@G@@A,U A9,1 . @^@@@@ TP A9 @^@@@@ JY )@@G@@ AA,U A9,1@G@@@@ SA A9,DNSPECS . ONE LEJZ )@@G@@SS THAN NO OF SPECS @B@@@@GETFCT LA,U A0,FCT . KA )@@G@@@F@@@@ LMJ X11,RFTI . READ FILE TABLE INDEX KB )@@G@@@B@@@@ J BSPERR . @B@@@@ LA KC )@@G@@ A1,(TBUF,TLEN) . @B@@@@ LA,U A0,FCT . KD )@@G@@@E@@@@ LMJ X11,RPFET . READ ELEMENT TABLE@B@@@@KE )@@G@@ J BSPERR . @B@@@@ LA,H1 A0,FKF )@@G@@CT+10 . @F@@@@ TNE,U A0,0214 . IS NEWKG )@@G@@S FILE EMPTY ? @ @@@@ J EMPTY @A@@@@ LAKH )@@G@@,H2 A0,TBUF+139 @ @@@@ LXM X9,A0 @ @@@@ KI )@@G@@ LXI X9,(-1) @^@@@@ AX,U X9,1@^@@@@NEXTE TLKJ )@@G@@EM,U X9,2@G@@@@ J CIESWD . CHECK IF EACKK )@@G@@H SPEC WAS DONE @ @@@@ DL A0,SOP @ @@@@ DSKL )@@G@@ A0,SOPT @ @@@@ LA,U A1,,X9 @F@@@@ LAKM )@@G@@,U A0,FCT . ADDR OF FCT INTO A0 @F@@@@ LMKN )@@G@@J X11,ETNL . READ ELT TABLE ENTRY @G@@@@ J KO )@@G@@ EOELTS . NO MORE ENTRIES IN ELT TABLE @ @@@@ KP )@@G@@ SA A0,X8 @ @@@@ LA A1,STYP @^@@@@ KQ )@@G@@ TE,U A1,1@C@@@@ J NEXTE . NO KR )@@G@@@ @@@@ LMJ X11,HOWOLD@G@@@@ LMJ X11,QUALFYKS )@@G@@ . GOT AN ELT - DO WE WANT IT ? @F@@@@EOELTS TE,U A0,0KT )@@G@@14 . REALLY END OF TABLE ? @C@@@@ J BSPEKU )@@G@@RR . NO @D@@@@CIESWD TNZ NSPECS . KV )@@G@@ANY SPECS? @G@@@@ J FUNCE . NO, QUIT WHIKW )@@G@@LE YOU'RE AHEAD @E@@@@ LX X9,(2,0) . GET SPKX )@@G@@EC POINTER @F@@@@ LX X10,(1,0) . GET SPEC-USEKY )@@G@@D POINTER @F@@@@ LR R2,NSPECS . GET NUMBER OKZ )@@G@@F SPECS @E@@@@NXSPC JGD R2,$+2 . ANY MORE SPELA )@@G@@CS? @D@@@@ J FUNCE . NO - GO AWAY@F@@@@LB )@@G@@ DL A6,SPECS,*X9 . GET SPEC, JUST IN CASE @F@@@@LC )@@G@@ TZ SPU,*X10 . HAS SPEC BEEN USED? @E@@@@LD )@@G@@ J NXSPC . YES, TRY NEXT ONE @G@@@@ LE )@@G@@ LMJ X8,NONEWS . JUMP TO MESSAGE ROUTINE IN PRT@ @@@@LF )@@G@@ J NXSPC @F@@@@USERR LA A0,(0202,USEMES)LG )@@G@@ . CANNOT ESTABLISH @USE @E@@@@ J FUNCE-1 LH )@@G@@ . DIE VERY QUIETLY @B@@@@ASGERR LA A0,(0202,ASGMES) . LI )@@G@@@E@@@@ J FUNCE-1 . I GIVE UP - WHAT ?@E@@@@LJ )@@G@@EMPTY LA A0,(0204,EMPMES) . NEWS IS EMPTY ! @B@@@@ LK )@@G@@ J FUNCE-1 . @D@@@@BSPERR LA A0,(0202,BLL )@@G@@EMES) . BSP ERROR @B@@@@ J FUNCE-1 . LM )@@G@@@A@@@@TRYLATER LA A0,(0203,TLATE) @ @@@@ J FUNCLN )@@G@@E-1 @[@@@@/. @[@@@@. @F@@@@. LA A0,(FD DATLO )@@G@@E) REGISTERS USED: A0-A4 @A@@@@. LMJ X11,DCON LP )@@G@@@A@@@@. (ERROR RETURN) @A@@@@. (NORLQ )@@G@@MAL RETURN) @[@@@@. @[@@@@. @F@@@@DCON TNE A0,('XXXXXLR )@@G@@X') . IS THERE A DATE HERE @D@@@@ J 0,X11 LS )@@G@@ . NO - GO HOME@E@@@@ DSL A0,12 . LT )@@G@@YES - GET FD YEAR @E@@@@ SSL A1,24 . INTO ALU )@@G@@1 LOWER @E@@@@ AND,U A1,01717 . STRIP THE JULV )@@G@@NK @F@@@@ DSL A2,6 . LAST DIGIT OF YEARLW )@@G@@ TO A3@C@@@@ SSL A3,30 . LOWER @B@@@@ LX )@@G@@ MSI,U A2,10 . @E@@@@ AA A3,A2 LY )@@G@@ . BINARY YEAR IN A4 @B@@@@ LA A4,A3 LZ )@@G@@ . @D@@@@ TLE,U A4,64 . YEAR OK ? @C@@@@MA )@@G@@ J 0,X11 . NO @E@@@@ ANA,U MB )@@G@@ A4,64 MAKE YEAR MOD 64 @D@@@@ DSL A0,1MC )@@G@@2 . NOW THE DAY @C@@@@ SSL A1,24 MD )@@G@@ . TO A1 @D@@@@ AND,U A1,01717 . STRIP BITS ME )@@G@@@D@@@@ DSL A2,6 . LAST DIGIT @D@@@@ MF )@@G@@ SSL A3,30 . TO A3 LOWER @C@@@@ MSI,U MG )@@G@@ A2,10 . TENS @D@@@@ AA A3,A2 MH )@@G@@ . ADD DIGITS @D@@@@ TG,U A3,32 . VALID MI )@@G@@DAY ? @C@@@@ J 0,X11 . NO @D@@@@ MJ )@@G@@ LSSL A3,6 . DAY TO S5 @B@@@@ OR MK )@@G@@ A3,A4 . @F@@@@ DSL A0,12 . ML )@@G@@AND LASTLY THE MONTH @D@@@@ SSL A1,24 . MM )@@G@@INTO A1 @C@@@@ AND,U A1,01717 . STRIP @F@@@@MN )@@G@@ DSL A2,6 . LAST DIGIT OF MONTH TO @D@@@@MO )@@G@@ SSL A3,30 . A3 LOWER @B@@@@ MSMP )@@G@@I,U A2,10 . @D@@@@ AA A3,A2 MQ )@@G@@ . BOTH BINARY @D@@@@ TG,U A3,13 . GOOD MMR )@@G@@ONTH ?@C@@@@ J 0,X11 . NO @D@@@@ MS )@@G@@ LSSL A3,12 . MONTH TO S4 @E@@@@ OR MT )@@G@@ A3,A4 . WITH DAY AND YEAR @D@@@@ LA A0,AMU )@@G@@4 . BACK TO A0 @ @@@@ J 1,X11 @[@@@@MV )@@G@@/. @[@@@@. @[@@@@. @[@@@@. @F@@@@. CHECK TO SEE WMW )@@G@@HETHER OR NOT ELEMENT OBTAINED FROM ELT @F@@@@. TABLE QUALIFIEMX )@@G@@S FOR PRINTING ACCORDING TO USER OPTIONS @ @@@@. AND SPECIFICATMY )@@G@@IONS @[@@@@. @[@@@@QUALFY@ @@@@ SX X11,X11RR @G@@@@MZ )@@G@@ TP DF . IS ELT MARKED FOR DELETION ? NA )@@G@@@ @@@@ J NEXTE @ @@@@ L A0,OPN NB )@@G@@@E@@@@ AND,U A0,020 . MASK OUT ASCII BIT@G@@@@NC )@@G@@ S A1,ASCII . SET/CLEAR ASCII FLAG IN PRT ND )@@G@@@G@@@@ TNZ DOPT . NO - WAS DATE SPECIFIED NE )@@G@@? @C@@@@ J NODAT . NO @B@@@@ NF )@@G@@ LA A0,DNSPECS . @B@@@@ SA A0,NSPECS NG )@@G@@ . @B@@@@ LA A0,(2,2) . @D@@@@ NH )@@G@@ LA A1,(1,1) . FOR SPUPTR @B@@@@ DS NI )@@G@@ A0,SPPTR . @E@@@@ LA A0,EYR . NJ )@@G@@YES - GET OUR YEAR@E@@@@ MSI,U A0,12 . CONVERNK )@@G@@T TO MONTHS @D@@@@ LA,S6 A1,UDATE . GET HIS YEARNL )@@G@@@E@@@@ MSI,U A1,12 . CONVERT TO MONTHS @E@@@@NM )@@G@@ LA A2,EMO . GET OUR MONTH @E@@@@ NN )@@G@@ AA A0,A2 . ADD TO OUR YEAR @D@@@@ LANO )@@G@@,S4 A2,UDATE . GET HIS DATE@E@@@@ AA A1,ANP )@@G@@2 . ADD TO HIS YEAR @E@@@@ TNE A0,A1 NQ )@@G@@ . BOTH THE SAME ? @C@@@@ J MEQL NR )@@G@@ . YES @H@@@@ TG A1,A0 . NO - OUR MONNS )@@G@@TH GREATER THAN HIS ? @ @@@@ J NEXTE @ @@@@ NT )@@G@@ J NODAT @G@@@@MEQL LA,S5 A0,UDATE . NU )@@G@@MONTHS EQUAL - GET HIS DATE @G@@@@ TG A0,EDY NV )@@G@@ . OUR DAY GREATER THAN HIS ? @ @@@@ J NEXTE NW )@@G@@@ @@@@ J NODAT @[@@@@DATOK.@H@@@@ TZ NX )@@G@@ NSPECS . YES WE WANT IT - ANY SPECS GIVEN ? @G@@@@ NY )@@G@@ J GOTS . YES, CHECK IF = THIS ELEMENT @D@@@@NZ )@@G@@ LA A0,OPTWRD . GET OPTIONS @D@@@@ TOOA )@@G@@P,U A0,1*/('Z'-'S') . S-OPTION, OR@E@@@@ TZ LOPTOB )@@G@@ . L-OPTION SET? @F@@@@ J VERCHK OC )@@G@@ . YES, LIST ALL ELEMENTS @C@@@@ TNZ FOPT OD )@@G@@ . F- OR @E@@@@ TZ KOPT . K-OPTIOE )@@G@@ON SET? @F@@@@ J VERCHK . YES, DO ALL OF )@@G@@ELEMENTS @D@@@@ TOP,U A0,1*/('Z'-'O') . ARCHIVES? OG )@@G@@@D@@@@ TZ DOPT . DATE GIVEN? @G@@@@ OH )@@G@@ J VERCHK . YES, DON'T DO JUST 'NEWS' @G@@@@OI )@@G@@ LA A0,('NEWS ') . NO, JUST PRINT SHORT VERSION OJ )@@G@@@F@@@@ TE A0,EN . OF 'NEWS' NEWS ITEM OK )@@G@@@F@@@@ J NEXTE . THIS ISN'T NEWS NEWS OL )@@G@@@D@@@@ LMJ X11,PRT . PRINT IT @E@@@@ OM )@@G@@ J FUNCE . AND THAT'S ALL @[@@@@GOTS. @F@@@@ON )@@G@@ LR R2,NSPECS . YES - GET NO. USER SPECS@B@@@@OO )@@G@@ LX X2,SPPTR . @F@@@@ LX X3,SOP )@@G@@PUPTR . GET SPU TABLE POINTER @E@@@@NTSP JGD R2,$OQ )@@G@@+2 . ANY MORE SPECS ? @ @@@@ J NEXTE OR )@@G@@@D@@@@ DL A0,SPECS,*X2 . GET A SPEC @F@@@@ OS )@@G@@ NOP 0,0,*X3 . INCREMENT SPU POINTER @E@@@@ OT )@@G@@ DTE A0,EN . DO WE WANT IT ? @C@@@@ J OU )@@G@@ NTSP . NO @E@@@@ SA,H2 A0,SPU-1,XOV )@@G@@3 . SET SPEC-USED FLAG@ @@@@VERCHK LMJ X11,PRT @ @@@@OW )@@G@@ J NEXTE @ @@@@NODAT DL A2,EN @^@@@@OX )@@G@@ TNZ FOPT@ @@@@ J FLRTN @A@@@@ OY )@@G@@ TE A2,('FLASH ') @^@@@@ J $+2 @^@@@@ OZ )@@G@@ J $+3 @ @@@@ TNZ NSPECS @ @@@@ J PA )@@G@@ NEXTE @ @@@@ DL A0,SOP @ @@@@ DSPB )@@G@@ A0,SOPT @ @@@@FLRTN LA A0,(2,0) @D@@@@ LAPC )@@G@@ A1,(1,0) . FOR SPUPTR @B@@@@ DS A0,SPD )@@G@@PPTR . @E@@@@ LA A0,OPTWRD . GET OPPE )@@G@@TION WORD @E@@@@ TEP,U A0,1*/('Z'-'O') . IS 'OLD' OPTPF )@@G@@ION ON@H@@@@ J OCHK . YES - IGNORE EXPIRPG )@@G@@ATION DATE CHECK @G@@@@ J EDCHK . NO - CPH )@@G@@HECK EXPIRATION DATE @E@@@@SEQDAT LA,S1 A1,TODAY . PI )@@G@@GET CURRENT MONTH @E@@@@ LA A0,MNTHS,A1 . CONVERPJ )@@G@@T TO DAYS @E@@@@ LA,S2 A1,TODAY . GET CURRENT PK )@@G@@DAY @E@@@@ AA A0,A1 . DAY SINCE JAN 1 PL )@@G@@@E@@@@ SA A0,NOW . SAVE IT FOR LATER @E@@@@PM )@@G@@ LA A1,EMO . GET ELT MONTH @E@@@@ PN )@@G@@ LA A0,MNTHS,A1 . CONVERT TO DAYS @D@@@@ LAPO )@@G@@ A1,EDY . GET ELT DAY @E@@@@ AA A0,APP )@@G@@1 . DAYS SINCE JAN 1 @E@@@@ SA A0,THEN PQ )@@G@@ . SAVE IT FOR LATER @E@@@@ LA,S3 A0,TODAY PR )@@G@@ . GET CURRENT YEAR @D@@@@ LA A1,EYR . PS )@@G@@GET ELT YEAR@G@@@@ TG A1,A0 . CURRENT YEARPT )@@G@@ GREATER ELT YEAR @C@@@@ J YROK . NO PU )@@G@@@F@@@@ ANA A0,A1 . YES . GET DIFFERENCE PV )@@G@@@E@@@@ MSI,U A0,365 . CONVERT TO DAYS @E@@@@PW )@@G@@ AA A0,NOW . ADD CURRENT DAYS @E@@@@ PX )@@G@@ SA A0,NOW . AND SAVE THEM @E@@@@YROK LAPY )@@G@@ A0,NOW . GET CURRENT DAYS @E@@@@ ANA PZ )@@G@@ A0,THEN . SUBTRACT ELT DAYS @G@@@@ SA A0,DQA )@@G@@AYS . SAVE DIFFERENCE BETWEEN TWO @F@@@@ LA,U QB )@@G@@ A0,EXPD . GET EXPIRATION LIMI @ @@@@ TG QC )@@G@@ A0,DAYS @F@@@@ J DATOK . ELT HAS NOT QD )@@G@@EXPIRED @ @@@@ J NEXTE @[@@@@. @ @@@@OCHK QE )@@G@@ DL A7,VN @ @@@@ DTE A7,ARCHIVE@ @@@@ QF )@@G@@ J NEXTE @ @@@@ J DATOK @]@@@@EDCHK QG )@@G@@. @ @@@@ DL A7,VN @ @@@@ DTE A7,EQH )@@G@@TERNAL@G@@@@ TNE A7,NOVERS . BLANK VERSION SAMEQI )@@G@@ AS ETERNAL @ @@@@ J DATOK @ @@@@ DTE QJ )@@G@@ A7,ARCHIVE@^@@@@ J $+2 @ @@@@ J NEXTQK )@@G@@E @G@@@@ LA A0,VNDAT . GET SPECIFIED EXPIQL )@@G@@RATION DATE @F@@@@ SX X11,SAVM11 . SAVE OUR RETQM )@@G@@URN INDEX @F@@@@ LMJ X11,DCON . CONVERT DATEQN )@@G@@$ TO TDATE$ @G@@@@ J SEQCHK . NO DATE SPECQO )@@G@@IFIED - CHECK AGE @F@@@@ LX X11,SAVM11 . RESTORQP )@@G@@E RETURN INDEX @G@@@@ SA A0,EXPIRE . SAVE TQQ )@@G@@DATE$ EXPIRATION DATE @B@@@@ SZ TEMP . QR )@@G@@@E@@@@ LA,S2 A0,TODAY . GET CURRENT DAY @B@@@@QS )@@G@@ SA,S6 A0,TEMP . @E@@@@ LA,S1 A0,TQT )@@G@@ODAY . GET CURRENT MONTH @B@@@@ SA,S5 A0,TEMP QU )@@G@@ . @E@@@@ LA,S3 A0,TODAY . GET CURRENT QV )@@G@@YEAR @B@@@@ SA,S4 A0,TEMP . @F@@@@ LAQW )@@G@@ A0,TEMP . A0=CURRENT YR,MO,DY @B@@@@ SZQX )@@G@@ TEMP . @E@@@@ LA,S5 A1,EXPIRE QY )@@G@@ . GET EXPIRATION DAY@B@@@@ SA,S6 A1,TEMP . QZ )@@G@@@F@@@@ LA,S4 A1,EXPIRE . GET EXPIRATION MONTH RA )@@G@@@B@@@@ SA,S5 A1,TEMP . @F@@@@ LA,S6 RB )@@G@@ A1,EXPIRE . GET EXPIRATION YEAR @B@@@@ SA,S4 RC )@@G@@ A1,TEMP . @F@@@@ LA A1,TEMP . RD )@@G@@A1=EXPIRATION YR,MO,DY @G@@@@ TG A1,A0 . RE )@@G@@IS NOW GREATER EXPIRE DATE @E@@@@ J DATOK RF )@@G@@ . NO - WE WANT IT @ @@@@ J NEXTE @[@@@@. RG )@@G@@@]@@@@SEQCHK . @F@@@@ LX X11,SAVM11 . RESTORRH )@@G@@E OUR RETURN INDEX@F@@@@ J SEQDAT . CHECK RI )@@G@@AGE OF NEWS ITEM @F@@@@ ER PRINT$ . PRINT RJ )@@G@@THE ERROR MESSAGE @D@@@@FUNCE* LA A1,OPTWRD . GET OPRK )@@G@@TIONS @ @@@@ LA,U A0,FREEC @F@@@@ ER CSF$RL )@@G@@ . @FREE DAILY$PLANET. . @ @@@@ ON AUDIRM )@@G@@T @A@@@@ TEP,U A1,1*/('Z'-'Y') @ @@@@ J RN )@@G@@ ENDITAL @E@@@@ LA,U A0,AUDUSE . GET USE IMAGRO )@@G@@E @F@@@@ ER CSF$ . @USE AUDIT$,NEWS$*RP )@@G@@USAGE @ @@@@ ON UOMEOP @D@@@@ LA,U A0,'RQ )@@G@@E' . GET E-OPTION@E@@@@ S,S1 A0,AUDASG+1 RR )@@G@@ . STORE IN ASG IMAGE@ @@@@ OFF UOMEOP @E@@@@ RS )@@G@@ LA,U A0,AUDASG . ASSIGN NEWS$*USAGE@B@@@@ ERRT )@@G@@ CSF$ . @H@@@@ JN A0,ENDITAL RU )@@G@@ . NO GOOD? GET THE HELL OUT OF HERE @G@@@@ LA,U A0,ARV )@@G@@UDIO . I/O PACKET IS SET UP FOR RDL$ @F@@@@ ER RW )@@G@@ IOW$ . OF 1 WORD FROM SECTOR 0.@E@@@@ LA,H2 RX )@@G@@ A1,BUF . GET SECTOR NUMBER @E@@@@ AA,U A1,1RY )@@G@@ . INCREASE BY 1 @E@@@@ SA,H2 A1,BUF RZ )@@G@@ . STORE BACK IN BUF @E@@@@ LA,U A0,W$ SA )@@G@@ . SET FOR WRITE @E@@@@ SA,T1 A0,AUDIO+3 . SB )@@G@@STORE IN IO PACKET@E@@@@ LA,U A0,28 . SET FOSC )@@G@@R 28 WORDS @E@@@@ SA,H1 A0,AUDIO+4 . STORE IN IO SD )@@G@@PACKET@E@@@@ LA,U A0,AUDIO . GET IO PACKET SE )@@G@@@F@@@@ ER IOW$ . WRITE BACK SECTOR 0 SF )@@G@@@F@@@@ SA A1,AUDIO+5 . STORE NEW SECTOR NUMBER SG )@@G@@@D@@@@ LA,U A0,AUDIO . IN IO PACKET@E@@@@ SH )@@G@@ ER IOW$ . AND WRITE INTO IT @E@@@@ LASI )@@G@@,U A0,AUDFRE . GET @FREE IMAGE @D@@@@ ER SJ )@@G@@ CSF$ . @FREE AUDIT$@#@@@@ OFF @E@@@@ENDITASK )@@G@@L LA A1,OPTWRD . GET OPTIONS AGAIN @F@@@@ LASL )@@G@@ A0,(1,NOHDG) . TURN OFF THE HEADING @F@@@@ TESM )@@G@@P,U A1,1*/('Z'-'L') . ONLY IF L-OPTION WAS SET@D@@@@ ERSN )@@G@@ PRTCN$ . YES, DO IT @G@@@@ LA A0,(SO )@@G@@0201,WHOOZIT) . GET READY TO PRINT WHOOZIT @E@@@@ TNZ SP )@@G@@ DEMAND . WERE WE DEMAND @G@@@@ L A0,(SQ )@@G@@ASTLEN+0300,ASTMSG) . NO, PRINT ASTMSG INSTEAD @B@@@@ ER SR )@@G@@ PRINT$ . @D@@@@ ER EXIT$ . SS )@@G@@NOW GO AWAY @]@@@@GETDAT . @ @@@@ SX X11,X11RR @ @@@@ST )@@G@@ LA,U A0,010106 @ @@@@ LMJ X11,SINF$ @ @@@@SU )@@G@@ J NOTDATE @^@@@@ TE,U A3,6@ @@@@ SV )@@G@@ J NOTDATE @ @@@@ ON AUDIT @D@@@@ SW )@@G@@ DS A0,BUF+4 . STORE DATE @#@@@@ OFF SX )@@G@@@^@@@@ SZ A1 @^@@@@ SZ A4 @ @@@@ SY )@@G@@ LMJ X11,DCON @ @@@@ J NOTDATE @ @@@@ SZ )@@G@@ SA A0,UDATE @ @@@@ L,S5 A0,UDATE @^@@@@ TA )@@G@@ AN,U A0,1@ @@@@ S,S5 A0,UDATE @ @@@@ LXTB )@@G@@ X11,X11RR @ @@@@ J 0,X11 @D@@@@HOWOLD LATC )@@G@@,S1 A1,TODAY . TODAYS MONTH@D@@@@ AN A1,ETD )@@G@@MO . ITEM MONTH @C@@@@ JZ A1,0,X11 TE )@@G@@ . OK @G@@@@ JN A1,NEGI . NEGATIVE DIFTF )@@G@@FERENCE LAST YEAR @E@@@@ TG,U A1,ERSD . SHOULDTG )@@G@@ BE ERASED? @ @@@@ J DELETE @ @@@@ J TH )@@G@@ 0,X11 @ @@@@NEGI LM A1,A1 @E@@@@ TG,U TI )@@G@@ A1,ERSDA . SHOULD BE ERASED @C@@@@ J 0,X1TJ )@@G@@1 . OK @ @@@@DELETE DL A0,VN @ @@@@ TK )@@G@@ DTE A0,ETERNAL@G@@@@ TNE A0,NOVERS . TL )@@G@@NO VERSION SAME AS ETERNAL @ @@@@ J 0,X11 @ @@@@TM )@@G@@ DTE A0,ARCHIVE@^@@@@ J $+2 @ @@@@ TN )@@G@@ J 0,X11 @ @@@@ DL A1,EN @A@@@@ TO )@@G@@ DS A1,DELPKT+2 @ @@@@ DL A1,VN @A@@@@TP )@@G@@ DS A1,DELPKT+6 @ @@@@ LA,U A0,DELPKT TQ )@@G@@@^@@@@ ER PFD$@ @@@@ J 0,X11 @^@@@@TR )@@G@@NOTDATE SZ DOPT@ @@@@ J GOTIT @]@@@@/$(0) TS )@@G@@. @#@@@@NOHDG 'H,N,,.'@F@@@@TEMP + 0D TT )@@G@@ . MISC. TEMPORARY STORAGE @D@@@@OPTWRD* + 0 TU )@@G@@ . OPTION WORD @F@@@@UPDATE* + 0 . UPDATETV )@@G@@ INDICATION WANTED@E@@@@OPT1 + 0 . MISC. TW )@@G@@OPTION FLAGS@D@@@@SPPTR + 0 . SEC POINTER TX )@@G@@@G@@@@SPUPTR + 0 . POINTER INTO SPEC-USED TTY )@@G@@ABLE @E@@@@SPU RES 28 . SPEC-USED TABLE TZ )@@G@@@B@@@@DNSPECS + 0 . @B@@@@SAVM11 + UA )@@G@@ 0 . @B@@@@EXPIRE + 0 . UB )@@G@@@B@@@@WHOOZIT '<*>' . @ @@@@ ON UC )@@G@@ 1-SIAC @#@@@@BVER 'NYU NE'@B@@@@ + 0343005000UD )@@G@@000++NVERS @#@@@@ OFF @^@@@@ ON SIAC@B@@@@UE )@@G@@BVER + 'NEWS @'+NVERS*/-12 @B@@@@ + 0770UF )@@G@@50505++NVERS*/24 @#@@@@ OFF @D@@@@ASTMSG '>> FOR ASSISTUG )@@G@@ANCE OR FURTHER INFORMATION, '@^@@@@ ON SIAC@C@@@@ UH )@@G@@ 'SEE THE APPLICATIONS SUPPORT GROUP' @#@@@@ OFF @^@@@@UI )@@G@@ ON UHMC@A@@@@ 'CALL (212) 584-2526.' @#@@@@UJ )@@G@@ OFF @A@@@@ ON 1-(SIAC++UHMC) @G@@@@LOOKHEUK )@@G@@RE EQU 08 . NOW THAT I HAVE YOUR ATTENTION@E@@@@UL )@@G@@ 'FIND SOMEONE TO HELP YOU.' . PUT THE LAST HALF @F@@@@ UM )@@G@@ . OF YOUR BATCH SIGNOFF MESSAGE HERE. TELL THEM WHO @B@@@@ UN )@@G@@ . CAN ANSWER THEIR QUESTIONS. @#@@@@ OFF @ @@@@ASTLENUO )@@G@@ EQU $-ASTMSG @^@@@@VERSN RES 2 @^@@@@ETERNAL 'EUP )@@G@@TERNAL '@#@@@@NOVERS ' '@^@@@@ARCHIVE 'ARCHIVE '@#@@@@UQ )@@G@@PRTCN 'L,0. '@ @@@@INF RES 3+3*28 @ @@@@ISIZ EQUR )@@G@@U $-INF @ @@@@USE '@USE DAILY$PLANET'@B@@@@ + US )@@G@@ 0560000000050++SITE*/6@B@@@@ 'NEWS$//DYD. . ' UT )@@G@@ . @ @@@@USEM '@USE DAILY$PLANET,'@A@@@@ + 0502UU )@@G@@3++SITE*/12 @B@@@@ 'EWS$M//DYD. . ' . @B@@@@ASGA UV )@@G@@ '@ASG,A DAILY$PLANET . ' . @ @@@@ ON AUDIT UW )@@G@@@ @@@@AUDASG '@ASG,A AUDIT$ . ' @D@@@@AUDUSE '@USE AUDIT$,NEWS$*UUX )@@G@@SAGE/KEEP/TRACK . ' @ @@@@AUDFRE '@FREE AUDIT$ . ' @D@@@@BUF UY )@@G@@ RES 28 . AUDIT BUFFER@^@@@@AUDIO 'AUDIT$ UZ )@@G@@' @^@@@@ + 0 @F@@@@ + RDL$,0,0 VA )@@G@@ . SET FOR READ-AND-LOCK @E@@@@ + 1,BUF VB )@@G@@ . ONE WORD TO BUF @E@@@@ + 0 VC )@@G@@ . FROM SECTOR 0 @#@@@@ OFF @^@@@@USEMES 'USE ERRVD )@@G@@OR' @^@@@@ASGMES 'ASG ERROR' @B@@@@FREEC '@FREE,B DAILY$PLANEVE )@@G@@T . ' . @^@@@@JUNK RES 28 @B@@@@TODAY* + 0 VF )@@G@@ . @B@@@@NOW + 0 . @B@@@@VG )@@G@@THEN + 0 . @B@@@@DAYS + 0 VH )@@G@@ . @^@@@@KOPT* + 0 @]@@@@UDATE* . @B@@@@VI )@@G@@DOPT* + 0 . @B@@@@FOPT* + 0 VJ )@@G@@ . @B@@@@SOPT* + 0 . @B@@@@VK )@@G@@LOPT* + 0 . @^@@@@VOPT* + 0 VL )@@G@@@^@@@@SOP + 0 @^@@@@LOP + 0 @B@@@@DEMANDVM )@@G@@* + 0 . @^@@@@X11RR + 0 @B@@@@VN )@@G@@TYPED* EQU 4 . @B@@@@MNTHS + 0D VO )@@G@@ . @B@@@@ + 31 . @B@@@@VP )@@G@@ + 59 . @B@@@@ + 90 VQ )@@G@@ . @B@@@@ + 120 . @B@@@@VR )@@G@@ + 151 . @B@@@@ + 181 VS )@@G@@ . @B@@@@ + 212 . @B@@@@VT )@@G@@ + 243 . @B@@@@ + 273 VU )@@G@@ . @B@@@@ + 304 . @B@@@@VV )@@G@@ + 334 . @ @@@@MTAB + 'JANVW )@@G@@' @ @@@@ + 'FEB' @ @@@@ + 'MARVX )@@G@@' @ @@@@ + 'APR' @ @@@@ + 'MAYVY )@@G@@' @ @@@@ + 'JUN' @ @@@@ + 'JULVZ )@@G@@' @ @@@@ + 'AUG' @ @@@@ + 'SEPWA )@@G@@' @ @@@@ + 'OCT' @ @@@@ + 'NOVWB )@@G@@' @ @@@@ + 'DEC' @^@@@@DELPKT 'DAILY$PLANET'WC )@@G@@@^@@@@ RES 3 @#@@@@ 01,0 @^@@@@ REWD )@@G@@S 2 @^@@@@NSPECS + 0 @]@@@@SPECS . @ @@@@I WE )@@G@@ DO 28 , + 0D @A@@@@EMPMES 'NO NEWS IS GOOD NEWS' @^@@@@WF )@@G@@SAV11 + 0 @E@@@@FCT 'DAILY$PLANET' . WG )@@G@@FILE CONTROL TABLE@B@@@@ DO 32 , + 0 . @ @@@@WH )@@G@@TBUF RES 140+280 @ @@@@TLEN EQU $-TBUF @^@@@@WI )@@G@@BEMES 'BSP ERROR' @#@@@@BLANKS ' '@ @@@@TLATE 'TRY AGAWJ )@@G@@IN LATER' @^@@@@ END ST ___ . AUDIT BUFFERWK )@@G@@@^@@@@AUDIO 'AUDIT$ ' @^@@@@ + 0 @F@@@@ WL )@@G@@*[@@@@*SDFF*@B@@@@. @AUDIT - NEWS USAGE MONITOR @[@@@@. WM )@@G@@@G@@@@. LISTS INFORMATION ABOUT ALL CALLS ON @NEWS (AS OF @NEWS WN )@@G@@2.8) @[@@@@. @B@@@@. CALL: @AUDIT<,OPTIONS> @[@@@@WO )@@G@@. @^@@@@. LEGAL OPTIONS:@[@@@@. @A@@@@. N - DON'WP )@@G@@T PRINT ANYTHING @A@@@@. U - JUST PRINT USAGE COUNT@F@@@@. WQ )@@G@@ X - CLEAR AUDIT FILE AFTER PRINTING INFO (IF N NOT SET) @D@@_@. WR )@@G@@ R - LIST ALL REFERENCES BY RUNID @E@@_@. D - LISTWS )@@G@@ ALL REFERENCES ON DATE (MMDDYY) @C@@_@. S - LIST ALL RWT )@@G@@EFERENCES TO SPEC @[@@_@. @D@@_@. THE N OPTION OVERRIDWU )@@G@@ES ALL LISTING OPTIONS @[@@_@. @F@@_@. THE D, R, AND S OPTIWV )@@G@@ONS MAY BE USED ONLY ONE AT A TIME @A@@_@. IF NONE OF THEM ARE WW )@@G@@USED, @F@@@@. SPEC, IF PRESENT, MAY BE A NUMBER N SPECIFYING THAWX )@@G@@T @E@@@@. ONLY THE LAST N REFERENCE ARE TO BE LISTED. IF WY )@@G@@@D@@@@. NOT PRESENT, ALL REFERENCES WILL BE LISTED. @[@@@@. WZ )@@G@@@F@@@@. TO INITIALIZE THE AUDIT$ FILE FOR THE FIRST TIME, USE XA )@@G@@@^@@@@. @AUDIT,NX @[@@@@. @[@@@@. @A@@@@. XB )@@G@@ R. DUFF KURLAND @B@@@@. UHMC COMPUTER CENTER XC )@@G@@@B@@@@. NEW YORK UNIVERSITY @A@@_@. XD )@@G@@ 04 NOV 1974 @[@@@@. @#@@@@ AXR$ @C@@@@SIGNON 'NXE )@@G@@YU NEWS USAGE MONITOR, VERSION 1.2' @B@@@@SPK + 0200+($-SIXF )@@G@@GNON),SIGNON@^@@@@DOPT + 0 @^@@@@NOPT + 0 XG )@@G@@@^@@@@ROPT + 0 @^@@@@SOPT + 0 @^@@@@UOPT XH )@@G@@ + 0 @^@@@@XOPT + 0 @^@@@@RUN + XI )@@G@@ 0 @^@@@@DATE + 0 @^@@@@SPEC + 0D @ @@@@XJ )@@G@@EPK E$PKT 22,IMG @^@@@@IMG RES 22 @E@@@@P XK )@@G@@ 'RUNID DATE TIME OPTIONS SPECS' @A@@@@PL + XL )@@G@@ 0200+($-P),P @^@@@@CLEAR 'CLEARED!' @A@@@@AM 'CXM )@@G@@ANNOT ASSIGN AUDIT$' @A@@@@AML + 0200+($-AM),AM @ @@@@XN )@@G@@EM 'FILE IS EMPTY' @A@@@@EML + 0200+($-EM),EM XO )@@G@@@#@@@@IT 'END' @^@@@@BUF RES 28 @^@@@@PK 'AXP )@@G@@UDIT$ ' @^@@@@ + 0 @ @@@@ + R$,0XQ )@@G@@,0 @ @@@@ + 28,BUF @^@@@@ + 0 XR )@@G@@@ @@@@ASG '@ASG,A AUDIT$ . '@D@@@@USE '@USE AUDIT$,NEWS$*UXS )@@G@@SAGE/KEEP/TRACK . ' @ @@@@FRE '@FREE AUDIT$ . ' @A@@@@STOR XT )@@G@@ S,S1 A1,OPTWRD,X10 @A@@@@ S,S2 A1,OPTWRD,X10 XU )@@G@@@A@@@@ S,S3 A1,OPTWRD,X10 @A@@@@ S,S4 A1,OXV )@@G@@PTWRD,X10 @A@@@@ S,S5 A1,OPTWRD,X10 @ @@@@ LMXW )@@G@@J X9,$+1 @ @@@@ L X11,(1,0) @A@@@@ S,XX )@@G@@S6 A1,OPTWRD,*X10 @^@@@@ J 0,X9@^@@@@OPTWRD REXY )@@G@@S 5 @A@@@@REFM ' REFERENCES SINCE &' @D@@@@INFOR REXZ )@@G@@S 28 . INFOR BUFFER@]@@@@/$(1) . @[@@@@ST . YA )@@G@@@E@@@@ L,U R15,1 . GET CONSTANT +1 @F@@@@YB )@@G@@ TEP,U A5,1*/('Z'-'X') . IS THE X-OPTION SET[!? @F@@@@YC )@@G@@ S R15,XOPT . YES, SET XOPT FLAG @F@@@@YD )@@G@@ TEP,U A5,1*/('Z'-'N') . IS THE N-OPTION SET[!? @F@@@@YE )@@G@@ S R15,NOPT . YES, SET NO-PRINT FLAG @E@@@@YF )@@G@@ TEP,U A5,1*/('Z'-'U') . U-OPTION SET? @E@@@@ YG )@@G@@ S R15,UOPT . YUP, SET FLAG @E@@@@ TEYH )@@G@@P A5,(1*/('Z'-'D')) . D-OPTION SET? @E@@@@ S YI )@@G@@ R15,DOPT . YES, SET FLAG @D@@@@ TEP,U A5,1YJ )@@G@@*/('Z'-'R') . R-OPTION? @C@@@@ S R15,ROPT YK )@@G@@ . YES @D@@@@ TEP,U A5,('Z'-'S') . S-OPTION? YL )@@G@@@C@@@@ S R15,SOPT . YES @ @@@@ L,YM )@@G@@U A0,USE @F@@@@ ER CSF$ . USE AUYN )@@G@@DIT$,NEWS$*USAGE @ @@@@ L,U A0,ASG @D@@@@ ERYO )@@G@@ CSF$ . ASG,A AUDIT$@E@@@@ JN A0,FYP )@@G@@AIL . NO GOOD? J FAIL @ @@@@ L A0,SPK YQ )@@G@@@D@@@@ ER PRINT$ . SIGN ON @D@@@@ YR )@@G@@ TZ NOPT . N-OPTIN SET?@G@@@@ J YS )@@G@@ OUT . YES, DON'T BOTHER PRINTING @ @@@@ L,YT )@@G@@U A0,PK @E@@@@ ER IOW$ . READ SYU )@@G@@ECTOR 0 @^@@@@ TZ,S1 PK+3@D@@@@ ER EABTYV )@@G@@$ . NO GOOD @E@@@@ TNZ BUF YW )@@G@@ . ANYTHING THERE? @C@@@@ J EMPTY . YX )@@G@@NOPE @^@@@@ E$DIT EPK @F@@@@ E$DECV BUF,,H2 YY )@@G@@ . EDIT REFERENCE COUNT @^@@@@ E$MSG REFM@G@@@@YZ )@@G@@ E$DAY1 BUF . EDIT DATE FILE LAST CLEARED ZA )@@G@@@A@@@@ L A0,(0226,IMG) @D@@@@ ER PRINZB )@@G@@T$ . PRINT IMAGE @D@@@@ TZ UOPT ZC )@@G@@ . USAGE ONLY? @D@@@@ J OUT . YES,OUZD )@@G@@T NO@E@@@@ L,H2 A11,BUF . GET NO. OF SECTORSZE )@@G@@@E@@@@ JZ A11,OUT . IF NONE, GO AWAY @ @@@@ZF )@@G@@ L A0,PL @E@@@@ ER PRINT$ ZG )@@G@@ . PRINT HEADING @E@@@@ L A0,(28,INFOR) . ZH )@@G@@GET INFOR PACKET @E@@@@ LMJ X11,RINF$ . READ IZI )@@G@@NFOR TABLE @C@@@@ NOP . NONE @B@@@@ZJ )@@G@@ L,U A0,1 . @D@@@@ LMJ X11,ZK )@@G@@SELT$ . GET SPEC 1 @C@@@@ J NOSPEC ZL )@@G@@ . NO @D@@@@ DL A0,ELT$+9 . GET SPEC ZM )@@G@@@D@@@@ TZ ROPT . R-OPTION? @C@@@@ ZN )@@G@@ J RUNOPT . YES @C@@@@ TZ DOPTZO )@@G@@ . D-OPT?@C@@@@ J DATOPT . ZP )@@G@@YES @C@@@@ TZ SOPT . S-OPT?@C@@@@ ZQ )@@G@@ J SPECOP . YES @D@@@@ SZ A2 ZR )@@G@@ . CLEAR SUM @D@@@@ SZ A3 ZS )@@G@@ . MULT FACTOR @D@@@@ L,U R3,5 . 6 CHARZT )@@G@@S @D@@@@CV DSL A0,6 . GET A CHAR @D@@@@ZU )@@G@@ SSL A1,30 . MOVE IT DOWN@E@@@@ TGZV )@@G@@,U A1,060 . CHECK FOR NUMERIC @B@@@@ TG,U ZW )@@G@@ A1,072 . @C@@@@ J ECV . ZX )@@G@@NO @F@@@@ AN,U A1,060 . YES, STRIP OFF FIEZY )@@G@@LDATA @E@@@@ TZ A3 . ANY CHARS YET? ZZ )@@G@@@F@@@@ MSI,U A3,10 . YES, NEXT POWER OF TEN AA )@@G@@@E@@@@ TNZ A3 . ANY CHARS YET? @E@@@@AB )@@G@@ L,U A3,1 . NO, START WITH 1 @F@@@@ AC )@@G@@ MSI A1,A3 . MULTIPLY BY POWER OF TEN@F@@@@ AD )@@G@@ A A2,A1 . ADD TO RESULT IN A2 @E@@@@ECV AE )@@G@@ JGD R3,CV . GET NEXT CHAR @E@@@@ JZAF )@@G@@ A2,OUT . IF SPEC=0, GO AWAY@F@@@@ AN,U AG )@@G@@ A2,1 . ADJUST TOTAL SLIGHTLY @F@@@@ TG AH )@@G@@ A2,A11 . SPEC .GE. WHAT'S THERE? @F@@@@ J AI )@@G@@ NOSPEC . YES, TREAT AS NO SPEC @E@@@@ L AJ )@@G@@ A7,A11 . GET TOTAL IN A7 @D@@@@ AN A7,AAK )@@G@@2 . MINUS SPEC @D@@@@ J L AL )@@G@@ . GO TO IT @F@@@@RUNOPT S A0,RUN . STORE AM )@@G@@SPEC IN RUNID @C@@@@ J NOSPEC . GO ON AN )@@G@@@E@@@@SPECOP DS A0,SPEC . STORE SPEC AS SPEC@ @@@@AO )@@G@@ J NOSPEC @ @@@@DATOPT LA,T1 A0,ELT$+9 @ @@@@AP )@@G@@ AN,U A0,'00' @^@@@@ DSL A0,6@ @@@@ AQ )@@G@@ MSI,U A0,10 @ @@@@ SSL A1,30 @ @@@@ AR )@@G@@ A A0,A1 @ @@@@ S,S4 A0,DATE @ @@@@ AS )@@G@@ L,T2 A0,ELT$+9 @ @@@@ AN,U A0,'00' @^@@@@ AT )@@G@@ DSL A0,6@ @@@@ MSI,U A0,10 @ @@@@ SSAU )@@G@@L A1,30 @ @@@@ A A0,A1 @ @@@@ S,AV )@@G@@S5 A0,DATE @ @@@@ L,T3 A0,ELT$+9 @ @@@@ ANAW )@@G@@,U A0,'00' @^@@@@ DSL A0,6@ @@@@ MSI,U AX )@@G@@ A0,10 @ @@@@ SSL A1,30 @ @@@@ A AY )@@G@@ A0,A1 @ @@@@ AN,U A0,64 @ @@@@ S,S6 AZ )@@G@@ A0,DATE @F@@@@NOSPEC L,U A7,1 . START WITH SBA )@@G@@ECTOR 1 @E@@@@L S A7,PK+5 . STORE IN IO BB )@@G@@PACKET@ @@@@ L,U A0,PK @E@@@@ ER IOW$BC )@@G@@ . READ A SECTOR @D@@@@ TNZ ROPT BD )@@G@@ . R-OPTION? @C@@@@ J NOR . BE )@@G@@NO @ @@@@ L A0,BUF+1 @D@@@@ TE A0,RBF )@@G@@UN . RIGHT ONE? @F@@@@ J NEXSEC BG )@@G@@ . NO, GET NEXT SECTOR @C@@@@ J GOTONE BH )@@G@@ . YES @D@@@@NOR TNZ DOPT . D-OPTION? BI )@@G@@@C@@@@ J NOD . NO @D@@@@ L,BJ )@@G@@H1 A0,BUF+2 . GET DATE @F@@@@ TE A0,DBK )@@G@@ATE . CHECK AGAINST SPEC DATE @C@@@@ J NEXSBL )@@G@@EC . NOPE @C@@@@ J GOTONE . BM )@@G@@YUP @C@@@@NOD TNZ SOPT . S-OPT?@C@@@@ BN )@@G@@ J GOTONE . NOPE @ @@@@ L X10,BO )@@G@@(2,0) @[@@@@CHKSP.@A@@@@ DL A0,BUF+4,*X10 @ @@@@ BP )@@G@@ JZ A0,NEXSEC @ @@@@ DTE A0,SPEC @ @@@@ BQ )@@G@@ J CHKSP @]@@@@GOTONE. @D@@@@ E$DIT EPK BR )@@G@@ . OPEN EDIT @D@@@@ E$FD1 BUF+1 BS )@@G@@ . EDIT RUNID @^@@@@ E$COL 7 @D@@@@ E$DAY1 BT )@@G@@ BUF+2 . EDIT DAY @^@@@@ E$COL 16 @D@@@@BU )@@G@@ E$TIME BUF+2 . EDIT TIME @^@@@@ E$BV )@@G@@COL 26 @H@@@@ L,U R1,25 . SET FOR UP TBW )@@G@@O 26 OPTION LETTERS @E@@@@ L,U A1,6 . BX )@@G@@START WITH 'A' @ @@@@ L X10,(1,0) @ @@@@ L BY )@@G@@ X11,(1,0) @E@@@@ L A0,BUF+3 . GET OPBZ )@@G@@TION WORD @F@@@@ LSSL A0,10 . SHIFT 'A' TOCA )@@G@@ BIT 35 @ @@@@LP JPS A0,ELP @F@@@@ EX CB )@@G@@ STOR,*X11 . STORE THE CHARACTER @D@@@@ELP A,U CC )@@G@@ A1,1 . NEXT LETTER @ @@@@ JGD R1,LP CD )@@G@@@E@@@@ L,U A1,'&' . EDIT STOP CHAR @ @@@@CE )@@G@@ EX STOR,*X11 @D@@@@ E$MSG OPTWRD CF )@@G@@ . EDIT OPTIONS@^@@@@ E$COL 35 @F@@@@ SZ CG )@@G@@ A8 . SET FOR FIRST TIME THRU @ @@@@ L CH )@@G@@ X10,(2,0) @]@@@@SPECS . @D@@@@ DL A0,BUF+4,X10 CI )@@G@@ . GET A SPEC @E@@@@ JZ A0,SPECEND . NO MORCJ )@@G@@E SPECS? @C@@@@ L,U A0,',' . COMMA @D@@@@CK )@@G@@ TZ A8 . FIRST TIME? @C@@@@ E$CL )@@G@@CHAR . NOPE @^@@@@ A,U A8,1@D@@@@CM )@@G@@ DL A0,BUF+4,*X10 . GET SPEC @D@@@@ E$CN )@@G@@FD2 . EDIT SPEC @E@@@@ J SPECCO )@@G@@S . GO GET MORE SPECS @]@@@@SPECEND . @A@@@@ L CP )@@G@@ A0,(0126,IMG) @E@@@@ ER PRINT$ . CQ )@@G@@PRINT THE IMAGE @]@@@@NEXSEC. @E@@@@ TG A7,A11 CR )@@G@@ . REACHED MAX YET? @D@@@@ J OUT CS )@@G@@ . YUP, QUIT @E@@@@ A,U A7,1 . NO, TRCT )@@G@@Y ANOTHER @^@@@@ J L @[@@@@OUT . @E@@@@ TNCU )@@G@@Z XOPT . X-OPTION SET? @E@@@@ J CV )@@G@@ OUT2 . NO, SKIP REL$ @G@@@@ SZ PK+5CW )@@G@@ . SET FOR WRITE INTO SECTOR 0 @F@@@@ ER CX )@@G@@ TDATE$ . GET TODAY'S DATE IN A0 @F@@@@ LXM,U CY )@@G@@ A0,0 . SET FOR NO REFERENCES @D@@@@ S CZ )@@G@@ A0,BUF . STORE IN BUF@E@@@@ L,U A0,W$ DA )@@G@@ . SET FOR WRITE @G@@@@ S,T1 A0,PK+3 DB )@@G@@ . STORE FUNCTION IN IO PACKET @E@@@@ L,U A0,PK DC )@@G@@ . GET IO PACKET @E@@@@ ER IOW$ DD )@@G@@ . AND DO THE IO @^@@@@ TZ,S1 PK+3@D@@@@ ERDE )@@G@@ EABT$ . NO GOOD @A@@@@ L A0,(DF )@@G@@0202,CLEAR) @F@@@@ ER PRINT$ . PRINT 'CLEARDG )@@G@@ED!' MESSAGE@[@@@@OUT2 .@E@@@@ L A0,(0201,IT) . DH )@@G@@GET 'END' MESSAGE @G@@@@ TNZ XOPT . DID WEDI )@@G@@ ALREADY SAY 'CLEARED!'?@E@@@@ ER PRINT$ . DJ )@@G@@NO, PRINT 'END' @E@@@@FREEIT L,U A0,FRE . GET @FDK )@@G@@REE IMAGE @E@@@@ ER CSF$ . FREE THE FILDL )@@G@@E @F@@@@ ER EXIT$ . WELL, THAT'S IT FODM )@@G@@LKS! @ @@@@EMPTY L A0,EML @G@@@@ ER PRINDN )@@G@@T$ . PRINT 'FILE IS EMPTY' MESSAGE @G@@@@ J DO )@@G@@ FREEIT . NOW FREE FILE AND GO AWAY @D@@@@FAIL L DP )@@G@@ A0,AML . ASG,A FAILED@E@@@@ ER PRINDQ )@@G@@T$ . PRINT MESSAGE @F@@@@ J FREEIT DR )@@G@@ . FREE FILE AND GO AWAY @^@@@@ END ST ___RU DS )@@G@@*[@@@@*SDFF*@A@@@@ @AUDIT - A @NEWS USAGE MONITOR @ @@@@4@AUDIT - NEDT )@@G@@WS USAGE MONITOR @[@@@@SPACE @F@@@@ LISTS INFORMATION ABOUT ALL CALLS ODU )@@G@@N @NEWS (AS OF @NEWS 2.8) @[@@@@SPACE @A@@@@ CALL: @AUDIT<,OPTIONS> DV )@@G@@ @#@@@@3LEGAL OPTIONS: @[@@@@SPACE @]@@_@COLUMN 6 @ @@@@DW )@@G@@ N - DON'T PRINT ANYTHING @ @@@@ U - JUST PRINT USAGE COUNT @E@@@@DX )@@G@@ X - CLEAR AUDIT FILE AFTER PRINTING INFO (IF N NOT SET) @B@@@@ R - LDY )@@G@@IST ALL REFERENCES BY RUNID @C@@@@ D - LIST ALL REFERENCES ON DADZ )@@G@@TE (MMDDYY)@B@@@@ S - LIST ALL REFERENCES TO SPEC @[@@@@EA )@@G@@SPACE @]@@_@COLUMN 2 @C@@@@ THE N OPTION OVERRIDES ALL LISTING OPTIONEB )@@G@@S @[@@@@SPACE @E@@@@ THE D, R, AND S OPTIONS MAY BE USED ONLY ONE ATEC )@@G@@ A TIME @ @@@@ IF NONE OF THEM ARE USED, @D@@@@ SPEC, IF PRESENT,ED )@@G@@ MAY BE A NUMBER N SPECIFYING THAT @C@@@@ ONLY THE LAST N REFERENCE AREEE )@@G@@ TO BE LISTED. IF@C@@@@ NOT PRESENT, ALL REFERENCES WILL BE LISTED. EF )@@G@@@[@@@@SPACE @D@@@@ TO INITIALIZE THE AUDIT$ FILE FOR THE FIRST TIME, USEEG )@@G@@@]@@@@ @AUDIT,NX @[@@@@SPACE @[@@@@SPACE @ @@@@ R. DUFF KURLAEH )@@G@@ND @A@@@@ UHMC COMPUTER CENTER @ @@@@ NEW YOREI )@@G@@K UNIVERSITY@^@@@@ 04 NOV 1974 ___EL ET D1O ))CDGD))EL C1 EL EJ )@@G@@D1#C(N^[RDDGD))CL ^[GDDNE- C),@]@@@@ETKCD#C*)^@)@I@@@@^[OD8)DDIDDODD[D-DEK )@@G@@FL ^[OD[ ^[[E(^DDO^))C1DD- ^[AD9M^[OD[ ^[ADDMETO)@@[S@@*@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@]A@@@N 1.2 VERSIOITOR, GE MONWS USANYU NEAA@@@@)@F[S@@*@@@@EM )@@G@@@@@@@@@@@@@@[[@@@@@@@@@@@&Q@@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB@@@@EN )@@G@@)@Q@C@)@![C@@])@@@@]C@@!S SPECNS OPTIOTIME E DATRUNID EO )@@G@@@@@@@@AC@@@@)@6[S@@*@ @@@]#@@.Y S EMPTFILE I@]^@@8T$ N AUDI ASSIGEP )@@G@@CANNOTD! CLEAREAD@@@@)[[@C@)[Y[@@/V]@@*@@@@@@ AUD@ASG,A@@@@@@@@W@[]EQ )@@G@@@@@@@@@@@@@@ AUDIT$END AE@@@@)[&[S@@@@@@@ . AUDIT$@FREE ER )@@G@@RACK .KEEP/TUSAGE/NEWS$*UDIT$,@USE AIT$ . AF@@@@)[1[D@K^[@K^[@K@@@@@@@@@ES )@@G@@/KD@@@A[#][ #@[@K0@K^G@^C^OGEZ )@@G@@@@@@@@R#@@]<'=@@@@R#@@@5/]0@]0CA0@[]/K@@]0*@@@@F'=@@@@AM@@@@)@![F][K^C OFA )@@G@@[][T#@[@K0@@*@@@@B/K@@[K*@@@@D9?@@@D/K@@[%/,0@@@R;@@@[/S@@@@/,0@@@AN@@@@FB )@@G@@)@6[N@K0@K@@@@@@@@!8K@@'!8K@@0;CK@@Y;G@@@AN80@@ @@@@J @@@@I/K@@[M*@@@@EFC )@@G@@/K@@[OAO@@@@)[@[V@@@^[@@P;)@@[/@)@]08K0@@/O#)@@HT@K@@JR;0@@[(@@@@JT80@@EFD )@@G@@*@@@@JP;K@@0/K@@[CAP@@@@)[F[EK@K^G@^[#@[@@@@@@@@/K@@[%9*@@@J/K@@[%A#@@@HFE )@@G@@/K@@[:H[0@@IC[0@@R/K@@[%!@)@@RAQ@@@@)[O[N][S@^G@^C )@@;G@@@AP;@@00RV@@@DFF )@@G@@A:@@@IO#@@@H;CK@@YT8@@@E;G@@@AP;@@00CW@@@DAR@@@@)[Y[M[#@[][S@@@@@@O#@@@HFG )@@G@@;CK@@YT8@@@E;G@@@AP;@@00RR@@@DA$@@@IO#@@@H;CK@@YT8@@@EAS@@@@)[*[]K0@^G@]FH )@@G@@&@]^]MA@]@@@@@@@@@/K@@[4(@@@@D'=@@@@R;@@[Y[[0@[/K@@]-/,0@@@9?E)[AG'@@@[/,0@@@FQ )@@G@@*@@@@OBA@@@@)]![F@^[#@[@K0@K)R^G@@@@A#@@[]Q;@@@@'=@@@@ @@@[@@@F%/K@@CN>@@@F:/KF@@[C8H@@@?8I@@@/K@@C C@@@F(C8K@@#/KF@@@C@@@FYGO )@@G@@C8K@@[/KF@@@C@@@F=C8K@@]/KF@@@L8@@@[C@)^@@G8)@@[*@I@@@?CY@@@/K@@C-G),@@@GP )@@G@@/K@@CV%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@F?/KF@@[N8W@@@GQ )@@G@@C^@^@@G8@@@[C9K@@[ @@^@IN8)@@@(@G@@@/K@@DQ(4G@@@/K@@DA%1W@@@/K@@DQC?W@@@GR )@@G@@!8K@@A/K@@DD%(K^@I @@^@H[(K^@I9??@@[C-G@@@:9@@@[C@0@F?')H@EAH9@@@[T9@@@AGS )@@G@@G>G@@@')H@EIG)G@@@G8@@@[/K@@C1:9K@@[/K@@DIC*?@@@:8)@@.N8)@@[%[K@[[/K@@DAGT )@@G@@/K@@C.%@)@F?[5@^@H:@)@F?[-K^@H/K@@DA(@@@[]:(K^@I/K@@DV[(K^@I @@^@H:[K@[[GU )@@G@@/K@@D@^@H[5@^@I[1@^@I[!@^@IC80@@FGZ )@@G@@+8K@@_:8)@@ ;^@@@A8#0@ES9*@^@]C@@@F!C@K@F,C8)@@BC@0@F?[@"^@ 8#)@E-N4K^@HHA )@@G@@9!@^@J/\)@FJC9K@@*(4@^@H*)@^@H')H)@@N0K^@H9!@^@L*@@@[[/K@@E0C[@@F\N8K@@^HB )@@G@@/\)@FJN?K^@H(@@@[[/K@@E'C9K@@(')H)@@C[@^@N/\)@FJC9K@@)')H)@@(*@^@H*=@^@HHC )@@G@@/K@@F@C@@@F0'=@@@J/KF@@@C9K@@/')H)@@N*K^@HC[@^@O/\)@FJN=K^@H(@@@[[/K@@E.HD )@@G@@C9K@@/')H)@@C[@^@P/\)@FJ/K@@E.;>@@@A')H)@@8KK@FH/KI@@@[5W@@@[1W@@@[!W@@@HE )@@G@@[(W@@@[>W@@@/\0@FR[-W)@@Q;K@FL/KJ@@@PROCESSOR CALL ERROR @[^@FUABNORMHF )@@G@@AL RETURN FROM READ$ @[ @FZTOO MANY SPECIFICATIONS @[^@F>]@@@@@[@@@@@HG )@@G@@ @@[^@ @@[@FLTPF$ @@G^@[C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@G]C8)@@:HH )@@G@@')])H7;G@@@=W8@@@/C8?@@@C8H@@@/\K@G]C8)@@:')])H7C8?@@@C8V@@@;G)@@=W8)@@EHI )@@G@@G8)@@0')])H7C8\@@0')])H7/KH@@@;C@@@M+8@_@@;GK@@0/\K@G]C8)@@/')])H7+8@@_@HJ )@@G@@;GK@@%/\K@G]C8)@@/')])H7+8@@@_C8!@[@/\K@G]/KF@@@;C@@@M+8@@_@;GK@@%/\K@G]HK )@@G@@+8@_@@;CK@@FC@!@G"C80@@^;@)@@Y')])H78#0@G)+8@@@_C8!@[@/\K@G]/KF@@@AE1@@#HL )@@G@@;C@@@M[@@@[[+8@_@@;CK@@F9?H@G"/,0@IYC8)@@ ')])H7C@K@[[+8K@_@;G)@@%W8)@@EHM )@@G@@/@)@G7G8)@@0')])H7C8\@@0')])H7C8)@@,')])H7+8K@@_C8I@Y?C8K@@ RE1@@#/K@@J>HN )@@G@@ JAN UARY FEB RUARY MAR CH APR IL MAY JUN E HO )@@G@@ JUL Y AUG UST SEP TEMBER OCT OBER NOV EMBER DEC EMBER HP )@@G@@A^W@@#A@?@@^A@/@@ Q8W@@@N?L@@@R@)@KBR^1@@@&80@@[C8@@KCM@/)@@Q^1@@@ ?[@@]HQ )@@G@@/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[HR )@@G@@P^1@@@A01@@[C8[@@@Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@HS )@@G@@/?)@H.[)<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])H7/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@HT )@@G@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@I^N?L@@@Q^1@@@C8@@KCM@/)@@HU )@@G@@Q8)@@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@IZC80@@F;^@@[]HV )@@G@@+8K@@_%8)@@ :8)@@@/K@@I>')])H78#0@IZ/KF@@@&"0__"/K@@I%&'0@@@C8.@@@;G@@@MHW )@@G@@;CK@@M&;@@@[&;K@@[8#0@I1/KF@@@')G)J 0@@@@F%8)@@@')])H7/K@@I\C?[@@[C^L@@[HX )@@G@@/K@@I;;G@@@M;CK@@M&;@@@[&;K@@[')G)J :0-@@@/K@@J]')])H7/K@@I.[?[@@[[^L@@[HY )@@G@@/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@JFC)!)@@[^[@@]Q;@@@@/K[K@]C80@@@HZ )@@G@@;G@@@#/@@@JRG80@@[;G@@@#/^@@JMC8)@@0')])H7C8)@@@;=K@@#G8)@@0')])H78#0@JRIA )@@G@@/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@JR&"0__"/K@@J&C8K@@@&'0@@@N8X@@@C80@@@IB )@@G@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@J,/^@@J*/C@@J50@@@@F/K@@J5;?)@@AG80@@-IC )@@G@@8KK@J5C@K@@I0@@@@F1@@@@G/K@@J/R;)@@-')])H78KK@J/C8)@@ 0@@@@FC8)@@0/K@@K[ID )@@G@@')])H78KK@K@C@)@@J')])H7;GK@@A/^)@K#/KF@@@@@[@@@ N;0@@[=9K@@^^#0^@$IE )@@G@@=9K[@@^#0^@<=9K@@)^#0^@&=[K^];^#0^@+=9K@^@^#0^@==9K^]/^#0^@>R;@^]]'=@@@JIF )@@G@@R;@^[_'=@@@J/G@@NKR#@^@-'=@@@I*@@^@/K@@LV @@@@I @@@@JN80@@ ;G@@@A;CK@@Y!8K@@0IJ )@@G@@!8K@@'/K@@LLP;K@@0*@@@@JT80@@E(@@@@JR;0@@[T@K@@JO#)@@H8K0@L /@)@M9P;)@@[IK )@@G@@!@)@@R/K@@L3C[0@@RH[0@@I/K@@L4A#@^@*/K@@L39*@^@%/K@@L3CW@^@QP;@@00;G@@@AIL )@@G@@T8@@@E;CK@@YO#@@@HA:@^@(RV@^@QP;@@00;G@@@AT8@@@E;CK@@YO#@@@HA$@^@(RR@^@QIM )@@G@@P;@@00;G@@@AT8@@@E;CK@@YO#@@@HP;@@[@A<@^@(C90@@[[[0^["R;@^[9'=@@@#(@@^@=IN )@@G@@/K@@L.R#@^[Y%@@^@*/K@@M5/K@@ME(@@^@+/K@@M#RF@^[Z%@@^@(/K@@M5/K@@ME(@@^@>IO )@@G@@/K@@MER])^]_9?E=[-/@@@M59/@^@%/K@@MAC/@^@?/,0@HSC@@^[Y/,0@IWC/@@@B/,0@I^IP )@@G@@C@@^[Z/,0@GDC/@@@K/,0@I^C@@^[Z/,0@F1C/@@@U/,0@I^N8K@@TR;K@@AR])^]'R]0^]'IQ )@@G@@R#@^[);*@@@E'C@@M)')F=]GO;K@@[8KK@MYR;K@@&')F=]GC8@^]P/,0@I9C/@@@@@@@@Y0@@^@ @ /^T]@@@@@Y0@@A@ @IC^Y"@@@@@0)@@[@ @[<^!A@@@@@MLL )@@G@@)@@[@ @@)^,(@@@@@S0@@[@ @[$^\D@@G@@A)@@[@ @^U^00@@G@@9)@@[@ @A>^5E@@O@[LLM )@@G@@)@@[@ @@"^00@@K@@/)@@[@ @^>^00@@W@@D)@@[@ @#'^;\@@W@@J)@@[@ @]<^_(@@W@@GLN )@@G@@)@@[@ @@) ]G@@S@@_)@@[@ @^:^;\@@C@@%)@@[@ @#9^00@@^@@$)@@[@ @BF^00@@^@@=LO )@@G@@0@@[@ @#5^7;@@)@[O)@@[@ @@U ]?@@)@[C0@@[@ @[! #A@@=@[F)@@[@ @@* ^3@@=@@6LP )@@G@@0@@[@ @[E V@@=@@#0@@[@ @C4 A>@@=@[]0@@[@ @A+ JT@@=@@30@@[@ @B& P;@@=@@!LQ )@@G@@0@@[@ @@2 X-@@=@@@0@@[@ @M2 YN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[PK1096]@@B]=LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AAOPT @[X