@CAT,P 1029-006-006.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1029-006-006,,,130324053241,000 )@@G@@**PF**@@@@Z @@@@@@@@@@@[@AK@@@]FE@@@@@@@J@@]*@@@]F^^(%@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@P@@^C@@@]F^ 7H@@@@@[@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@@@@@@@@@@N@@@@@@@@@@@ @@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@U@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@UAN )@@G@@NGSRCE @@@@@@@@[@@@ @ @@@[]@@@@#@@@@W@JXR]QENGREL AO )@@G@@@@@@@@@@ @@@ @@@@W^@@[@@[@@@@W#FJ\#^EDUUR @@@@@@@@[@@^AP )@@G@@ @ @@@[^@@@@#@@@@W HP0BGEDUUR @@@@@@@@ @@@ AQ )@@G@@@@@@WG@@[@@^@@@@WCHP3BGEESCA @@@@@C@@[@@A @ @@@[]@@@@]AR )@@G@@@@@@WHE[>BSEESCA @@@@@@@@ @@B @@@@WL@@[@@]@@@@WJE[&BSEAS )@@G@@ESCA @@@@@@@@A@@@ )@@]@@@@@@@C@@@@WME]9BSEDELAY AT )@@G@@@@@@@@@@[@@D @ @@@[]@@@@]@@@@WUJ&BBKEDELAY @@@@@@@@ @@@AU )@@G@@ @@@@WX@@[@@[@@@@WWJ&ZBKEBATCH @@@@@@@@[@@F AV )@@G@@@ @@@[]@@@@^@@@@WYD?+BTEBATCH @@@@@@@@ @@@ @@@@W<@@[@@[AW )@@G@@@@@@W+EU_E[E3DR @@@@@P@@ @@@ @@@@XY@@]@@'@@@@W=F@VEREAX )@@G@@PRONAM @@@@@@@@[@@I @ @@@[]@@@@]@@@@X)IG7GNEPRONAM AY )@@G@@@@@@@@@@ @@@ @@@@X<@@[@@[@@@@X+IG'GNEAPR @@@@@@@@[@@KAZ )@@G@@ @ @@@[^@@@@]@@@@X=DDQ]FFAPR @@@@@@@@ @@@ BA )@@G@@@@@@X(@@[@@#@@@@X&DDT]FFASFD @@@@@@@@[@@M @ @@@[]@@@@^BB )@@G@@@@@@X%II@@[@@B@@@@YYI]@]LFDUMMYTEKX @@T@@@)@ @@@ @@@@Y%@@^@@^BG )@@G@@@@@@Y&E]]#IFDUMMYTEKX @@@@@@@@[@@@ @ @#@^]@@@@G@@@@Y,E1[ATFBH )@@G@@DUMMYTEKX @@@@@@@@ @@@ @@@@Y"@@^@@^@@@@Y'E1%ATFFORWRT BI )@@G@@@@@@@@@@ @@@ @@@@Z^@@[@@]@@@@Z]H7GCIF@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@DUMMYTEKX @@)@@@)@ @@@ @@@@ZV@@^@@^BL )@@G@@@@@@ZRGE_]LFTEKXINPUT @@@@@@@@[@@@EGO05 @ @@@[]@@@@N@@@@ZZI[_]LFBM )@@G@@TEKXINPUT @@@@@@@@ @@@EGO05 @@@@Z9@@[@@B@@@@Z2I]@]LFDUMMYTEKX BN )@@G@@@@-@@@)@ @@@ @@@@Z"@@^@@^@@@@Z'B(Q]MFDUMMYTEKX @@+@@@)@ @@@BO )@@G@@ @@@@)A@@^@@^@@@@)]GE_]LFDUMMYTEKX @@@@@@@@ @@@ BP )@@G@@@@@@)I@@^@@^@@@@)EE]]#IFTST @@@@@@)@ @@= @@@@%7@@#@[:BQ )@@G@@@@@@(GJDB]FFTST @@@@@@)@[@@> @ @@@[A@@@@[@@@@%'JDE]FFBR )@@G@@TST @@@@@@)@A@@@ )@@]@@@@@@A=@@@@%;JEI]FFTEST BS )@@G@@@@%@@@)@A@@@ )@@]@@@@@@A&@@@@1ZCP0]GFPROCS @@@@@@)@]@@@BT )@@G@@ @[@]@[@@@@@N@@@@8 C";]GFFILE @@@@@@)@[@@( BU )@@G@@@ @@@[]@@@AK@@@@8SET;]GFFILE @@@@@@)@ @@@ @@@[@F@@A@[GKX[LETEST @@7@@@)[A@@@ CE )@@G@@)@@]@@@@@@#^@@@[@\GL"[LETEST @@8@@@)@[@@@ @ @#@^^@@@@BCF )@@G@@@@@[#3GQP[LETEST @@9@@@)@ @@@ @@@[^]@@]@@C@@@[#'GQU[LECG )@@G@@TEST @@'@@@)@A@@@ )@@]@@@@@@^<@@@[^^GQ/[LETEST CH )@@G@@@@@@@@@@[@@@ @ @^@ ^@@@@B@@@[C$GR*[LETEST @@;@@@)@ @@@CI )@@G@@ @@@[C6@@]@@C@@@[C,GR?[LETEST @[[@@@)@A@@@ CJ )@@G@@)@@]@@@@@@^<@@@[C8GSB[LETEST @@/@@@)@ @@@ @@@[H<@@]@@CCK )@@G@@@@@[HVH;W[LFTEST @@@@@@@@ @@@ @@@[H!@@]@@C@@@[H>I<([LFCL )@@G@@FORRD @@@@@@@@[@@@ @ @@@[]@@@@F@@@[H\HWC[SFFORRD CM )@@G@@@@@@@@@@ @@@ @@@[H/@@[@@]@@@[H'HWE[SFFILE @[E@@@)@[@[@CN )@@G@@ @ @@@[]@@@ .@@@[H.G/D]EFFILE @[]@@@)@ @@@ CO )@@G@@@@@[PU@@A@[)@@@[N'G/*]EFTEST @[G@@@)@A@@@ )@@]@@@@@@A+CP )@@G@@@@@[P)G.8]EFFILE @[^@@@)[ @@@ @@@[XI@@A@[G@@@[W]HTZ]EFCQ )@@G@@PROCS @[A@@@)@]@@@ @[@@@[@@@@@K@@@[XOH<=]EFFILE CR )@@G@@@[B@@@)@ @@@ @@@[Z^@@A@[)@@@[X=HJ*8LK]1)R#@]2^N[K]2ADZ )@@G@@ @G>R'8LK]1=R#@]2^N[K]2B @G>\L8LK]1*R#@]2^N[K]2C @G=6'8LK]1?R#@]2^N[K]2SEA )@@G@@ @G>O!8LK]10 @@^6Y @@^6ZR#@]2TA#@^35C8@@@_[@G QU8#@]17C@@]2U[@@^6=C8@B9TEB )@@G@@O;@C+8'=@@@@FI )@@G@@N@G=&@N@G=$@N@G=*@N@G=(@N@G=%@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@ @@@@@@__)@ MB@@)@@@@@)@@@@@)@@@@@N@G=E@N@G=F@N@G=G@N@G=H@N@G=I@N@G=J@FL )@@G@@N@G=K@N@G=L@N@G=M@N@G=N@N@G=O@N@G=P@N@G=Q@N@G=R@N@G=S@N@G=T@N@G=U@N@G=V@FM )@@G@@N@G=W@N@G=X@N@G=Y@N@G=Z@N@G=)@N@G=-@N@G=+@N@G=<@@@ @@@@@@__)@^8B@@)@@@@@FN )@@G@@)@@@@@)@@@@@N@G<0@N@G<1@N@G<2@N@G<3@N@G<4@N@G<5@N@G<6@N@G<7@N@G<8@N@G<9@FO )@@G@@N@G<'@N@G<;@N@G@N@G<&@N@G<$@N@G<*@N@G<(@N@G<%@N@G<:@N@G 5? :@@@R&@D@@@@ J BADEFT )@@G@@NT . YES, REJECT :@@@R0@D@@@@ A A3,A0 FU )@@G@@ . ADD TO HOLD :@@@R'@E@@@@ MSI,U A3,10 FV )@@G@@ . MAKE ROOM FOR UNITS :@@@S^@E@@@@ LMJ X11,GETCHR FW )@@G@@ . GET UNITS OF SECONDS:@@@SI@D@@@@ TG,U A0,10 FX )@@G@@ . DIGIT > 9? :@@@SS@D@@@@ J BADENT . YEFY )@@G@@S, REJECT :@@@S+@D@@@@ A A3,A0 . ADD TO HFZ )@@G@@OLD :@@@S?@D@@@@ MSI,U A3,1000 . CONVERT TO MS GA )@@G@@:@@@S6@D@@@@ L A0,A3 . PUT INTO A0 :@@@T@GB )@@G@@@]@@@@SETTIME . :@@@TE@E@@@@ S A0,ENDTIME . SAGC )@@G@@VE END-HOLD TIME :@@@TO@]@@@@NOINFOR . :@@@TY@F@@@@ TE,U GD )@@G@@ A4,4 . IS THIS A DEMAND RUN? :@@@T*@E@@@@ ERGE )@@G@@ EXIT$ . NO, HOLD NOT USABLE :@@@T2@E@@@@ TOGF )@@G@@P OPTS,(1*/('Z'-'C')) . SCREEN CLEAR? :@@@T/@E@@@@ J GG )@@G@@ NOCLEAR . NO, BYPASS CLEAR :@@@UA@G@@@@ L GH )@@G@@ A0,(2,BUFF) . GET ORIGINAL & GENERATED RUNID :@@@UK@B@@@@GI )@@G@@ ER PCT$ . :@@@UU@E@@@@ L,U GJ )@@G@@ A0,2 . FD RUNID --> ASCII :@@@U=@D@@@@ L,U GK )@@G@@ A1,BUFF . ADDR OF DATA :@@@U,@D@@@@ L,U A2,BGL )@@G@@UFF+2 . ADDR OF RESULT:@@@U8@B@@@@ LMJ X11,FDASC$GM )@@G@@ . :@@@V]@E@@@@ A$EDIT EPKT . ENTER EDGN )@@G@@IT MODE :@@@VG@E@@@@ A$EMSG INUSE . BUILD OUGO )@@G@@TPUT MESSAGE:@@@VQ@E@@@@ DL A0,BUFF+2 . PICK UP GP )@@G@@ORIG RUNID :@@@V)@G@@@@ LXM,U A1,040040 . BLANK OUGQ )@@G@@T PART OF GEN RUNID :@@@V%@E@@@@ A$EFD2 GR )@@G@@ . PUT IN OUTPUT MSG :@@@V4@D@@@@ A$ECHAR 057 GS )@@G@@ . PUT IN '/' :@@@V"@E@@@@ DL A0,BUFF+3 . PIGT )@@G@@CK UP GEN RUNID :@@@WC@E@@@@ LDSL A0,18 . SHGU )@@G@@IFT TO UPPER PART :@@@WM@E@@@@ LXM,U A1,040040 . SPGV )@@G@@ACE OUT GARBAGE :@@@WW@D@@@@ A$EFD2 . PUGW )@@G@@T IN OUTPUT :@@@W&@F@@@@ A$ECOL 78 . FIX RIGHGX )@@G@@T SIDE OF BOX :@@@W0@F@@@@ A$EMSG INUSE2 . BUGY )@@G@@ILD REMAINDER OF OUTPUT :@@@W'@E@@@@ A$EDITX GZ )@@G@@ . LEAVE EDIT MODE :@@@X^@F@@@@ A$PRTCN (LESCO,ESCO) HA )@@G@@ . GET CONTROL OF OUTPUT :@@@XI@D@@@@ A$PRINT (LCLEAR,CLHB )@@G@@EAR) . CLEAR SCREEN :@@@XS@D@@@@ A$PRINT (LPL,PL) HC )@@G@@ . PRINT MESSAGE :@@@X+@F@@@@ A$PRTCN (LEND,END) . CUHD )@@G@@RSOR CONTROL TO SYMBIONT:@@@X?@D@@@@NOCLEAR LMJ X11,IDONLY$ HE )@@G@@ . PRINT ID LINE :@@@X6@E@@@@ TEP OPTS,(1*/('Z'-'F')) . HF )@@G@@FOREVER WAIT? :@@@Y@@C@@@@ J QUEST . YEHG )@@G@@S :@@@YE@E@@@@ L A1,ENDTIME . PICK UP END TIHH )@@G@@ME :@@@YO@C@@@@ SSL A0,36 . CLEAR A0:@@@YYHI )@@G@@@E@@@@ DI,U A0,1000 . -> TDATE FORMAT :@@@Y*HJ )@@G@@@E@@@@ S A0,TDATE . SAVE IT IN TDATE FMT:@@@Y2HK )@@G@@@F@@@@ E$DIT EPKT2 . PUT UNTIL TIME IN ID LINE HL )@@G@@:@@@Y/@B@@@@ E$TIME TDATE . :@@@ZA@B@@@@ HM )@@G@@ E$DITX . TERMINATE EDIT MODE :@@@ZK@E@@@@ J PRINHN )@@G@@TID . GO PRINT ID LINE :@@@ZU@]@@@@QUEST . :@@@Z=@D@@@@HO )@@G@@ DL A0,QMARKS . LOAD LITERAL :@@@Z,@E@@@@ HP )@@G@@ DS A0,UNTIL . PUT IN PRINTLINE :@@@Z8@B@@@@PRINTIHQ )@@G@@D P$RINT (LIDBUFF,IDBUFF) . :@@@)]@E@@@@ L,U A0,1HR )@@G@@ . SET FLAG FOR READ :@@@)G@G@@@@ S A0,CHS )@@G@@ELL . WAIT FOR READ TO RELEASE ME :@@@)Q@F@@@@ L,HT )@@G@@U A0,READ . FORK OFF READ ROUTINE :@@@))@B@@@@ HU )@@G@@ ER FORK$ . :@@@)%@]@@@@TIME . :@@@)4@E@@@@HV )@@G@@ ER TIME$ . GET DATE & TIME :@@@)"@F@@@@HW )@@G@@ A A0,RTTIME . ADD IN RETRANSMIT TIME :@@@-CHX )@@G@@@D@@@@ TG A0,(1000*60*60*24) . PAST MIDNITE?:@@@-M@E@@@@HY )@@G@@ AN,U A0,(1000*60*60*24) . YES, ADJUST FOR IT :@@@-W@E@@@@HZ )@@G@@ S A0,LASTIME . SAVE RETRANSMIT TIME:@@@-&@F@@@@IA )@@G@@WAIT L,U A1,WTTIME . WAIT FOR N MILLISECONDS :@@@-0IB )@@G@@@B@@@@ ER TWAIT$ . :@@@-'@F@@@@ TNIC )@@G@@Z CELL . HAS CELL BEEN CLEARED? :@@@+^@E@@@@ ID )@@G@@ ER EXIT$ . YES, THATS ALL FOLKS:@@@+I@F@@@@ IE )@@G@@ ER TIME$ . GET CURRENT DATE & TIME :@@@+S@E@@@@IF )@@G@@ TEP OPTS,(1*/('Z'-'F')) . WAIT FOREVER? :@@@++@F@@@@IG )@@G@@ J FOREVER . YES, BYPASS ENDTIME CHECK :@@@+?IH )@@G@@@E@@@@ TG A0,ENDTIME . TIME TO GIVEUP? :@@@+6II )@@G@@@F@@@@ J THATSALL . YES, TERMINATE PROGRAM IJ )@@G@@:@@@<@@]@@@@FOREVER . :@@@]@F@@@@ A$PRINT (PF 1,LFIN,FIN) . SEND @FIN & REIW )@@G@@TRANSMIT :@@@>G@C@@@@ ER EXIT$ . I'M DONEIX )@@G@@:@@@>Q@A@@@@NEXIT . NORMAL EXIT ROUTINE :@@@>)@E@@@@ A$IY )@@G@@PRTCN (LESCO,ESCO) . GET OUTPUT CONTROL :@@@>%@F@@@@ A$IZ )@@G@@PRINT (PF 1,LEOFM,EOFM) . SEND @EOF AND TRANSMIT :@@@>4@C@@@@ JA )@@G@@ ER EXIT$ . ALL DONE:@@@>"@E@@@@GETCHR . CONVERJB )@@G@@T SINGLE CHAR LJ IN A1 TO BINARY IN A0 :@@@&C@C@@@@ SSL JC )@@G@@ A0,36 . CLEAR A0:@@@&M@E@@@@ LDSL A0,6 JD )@@G@@ . PICK OFF 1 CHAR :@@@&W@D@@@@ SSL A1,6 JE )@@G@@ . RESTORE A1 :@@@&&@E@@@@ LDSL A1,6 JF )@@G@@ . PULL IN CHAR FROM A2:@@@&0@E@@@@ TNE,U A0,05 JG )@@G@@ . IS THIS A SPACE? :@@@&'@F@@@@ L,U A0,060 JH )@@G@@ . YES, REPLACE WITH ZERO :@@@$^@D@@@@ TNE,U A0,':' JI )@@G@@ . IS IT A COLON?:@@@$I@D@@@@ J GETCHR JJ )@@G@@ . YES, BYPASS IT:@@@$S@E@@@@ AN,U A0,060 . COJK )@@G@@NVERT TO BINARY :@@@$+@F@@@@ JN A0,BADENT . NOJL )@@G@@T NUMERIC IF EGATIVE :@@@$?@E@@@@ TG,U A0,10 JM )@@G@@ . NOT NUMERIC IF > 9 :@@@$6@B@@@@ J BADENT JN )@@G@@ . :@@@*@@C@@@@ J ,X11 . RETURN :@@@*EJO )@@G@@@C@@@@BADENT . NON-NUMERIC OR OUT OF RANGE ENTRY :@@@*O@E@@@@ JP )@@G@@ P$RINT (PF 1,LERR,ERR) . PRINT ERROR MSG :@@@*Y@D@@@@ JQ )@@G@@ ER ERR$ . ERROR OFF :@@@**@D@@@@READ R$JR )@@G@@EAD (EOF,BUFF) . READ IMAGE :@@@*2@D@@@@ J JS )@@G@@ READ . NOT @CARD :@@@*/@G@@@@EOF SZ CELLJT )@@G@@ . CLEAR FLAG FOR MAIN ACTIVITY :@@@(A@E@@@@ A$JU )@@G@@PRTCN (LEND,END) . RELEASE ALL CONTROL :@@@(K@E@@@@ A$JV )@@G@@PRINT (PF 1,LSPACE,SPACE) . PRINT BLANK LINE :@@@(U@E@@@@PF FOJW )@@G@@RM 12,6,18 . FOR PRINT COMMANDS :@@@(=@B@@@@ ERJX )@@G@@ EXIT$ . :@@@(,@B@@@@ END START JY )@@G@@ . ___ :@@@L]@D@@@@ LMJ X11,RINF$ . REJZ )@@G@@AD INFOR :@@@LG@E@@@@ J BADENT . NO INFORKA )@@G@@ RETURN :@@@LQ@D@@@@)@@[U@@@@@@@C)?C[@^@)^@)C0L@@@#1@C(JD0L@@@#1@C1DKB )@@G@@E- ELHC)?C[@D8)^@)C(NCS)C)?C[@AA@@@A)@F[U@@@@@@@#*W#*W#*W#*W#*W#*W#*W#*WKC )@@G@@#*W#*W#*W#*W[8X#)@#SF S4#T>#TH]C@@@@C(IC))AB@@@A)@Q[U@@@@@@@#SF *4#*W@@@KD )@@G@@^@&^@)C))CLT^[CC(GDDICDGE- ELH[8X#)@#SF )4#*W#*W#*W#*WAC@@@A)@-[M@@@@@@@KE )@@G@@@@@@@@^0@@@@#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W[8X#)@AD@@@AKF )@@G@@)@@@8*@@@@@@)@"@S@ R3 HOLD 2^0@@@@@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@KG )@@G@@@[*@@BAE@@@A)[[@0@@@@@@@)[D@S@@@@@@@ SPEC D TIME*** BA & UNTIL KH )@@G@@ AF@@@A)[G@0*@@@@@@)[N@S@@@@@@@@@#V,)?? ??:??:@@@@@@KI )@@G@@@@@@@@@@@@@@[[@@@@@@@@@@@&]@[ AG@@@A)[Q@C@)@:@;]@@K0@K)[K^G@^@@@@@/K@@[)KJ )@@G@@=]0@[S/K@@#E/,0@@@C@@@[R[@@@@R'=@@@@@@@'&@AH@@@A)@2[]K)]K^[]@H#@[#@[#@@@KK )@@G@@@@@@@@C@@@[T!@@@[TG@@@[P'=@@@@/K@@@;/K@@@6/,0@@@C8@[[AAI@@@A)@'[N@@K[@[@KL )@@G@@@@@@@@/,0@].T80@@EG@0@@G/K@@#E!8@@@#/,0@].;C0@@=9?K@@M9!)@@G/K@@[ZAJ@@@AKM )@@G@@)[^[MK@K[@^@@@@@@@G@0@@G/K@@#E!8@@@A/,0@].T80@@A/K@@#E!80@@SG@0@@G/K@@#EKN )@@G@@!8@@@EAK@@@A)[I[MK[@[@^@@@@@@@G@0@@G/K@@#E!8@@@A/,0@].T80@@AG@0@@G/K@@#EKO )@@G@@!8@@@E/,0@].T80@@EAL@@@A)[S[MK[@@K0@^C[@@@'=@@@@%9@@@^[@@@[CC@@@@JT80@J*KP )@@G@@G@0@@G/K@@#E!8@@@E/,0@].T80@@EAM@@@A)[+[##@[@K0@K) ]&@[N@[]@S@@@@@/,0@@@KQ )@@G@@C8)@@1C8K@@\C8@@@]'=@@@@C@@@[V/K@@]^>]0@[UAN@@@A)[%[]()@-@I)CK^CS@]^[C@@KR )@@G@@@@@@@@C/@@@\/,0@@@Q;K^@)9?@@@1/,0@@@C8@@@I/,0@@@C/@@@@AO@@@A)[2[F]@(#@@^KS )@@G@@C]L]@!@K)C@@/,0@@@C8@@@Z/,0@@@C/@@[I/,0@@@Q;K^@);?@@@M9?@@@2/,0@@@AP@@@AKT )@@G@@)[;[#]@1#@[]@5#@[]@9#@[]@9#@@@C@@@[Z'=@@@@C@@@[Y'=@@@@C@@@[X'=@@@@C@@@[WKU )@@G@@/,0@@@AQ@@@A)]#[#]@5]@.#@[@K0@[#@@@@@@@@@@[@@@[MW8@@J*;C@@@=C@K@[C/K@@]LKV )@@G@@=]0@[S/,0@@@'=@@@@AR@@@A)]F[]()@-@)-)@-@+-@=)CS@CS@@@@9*@@[ 9?@@[N/K@@]NKW )@@G@@/,0@@@/,0@@@C@@@[M/,0@@@C/@@[GAS@@@A)]N[##@[][GK0@E]^]+^@UA@@@@@@@G@@@[QKX )@@G@@'=@@@@'=@@@@C8@@#H[@@@@.C8@@@['=@@@@C@@@[)AT@@@A)]V[##@@()@-)@CKE*S@CK]CKY )@@G@@K[)@@@'=@@@@'=@@@@(@@@@.'=@@@@C8K[.@[@@@[BH8@@[T!@@@[TAU@@@A)]<[##@[@K0@KZ )@@G@@K^G@^[#@[]@4@@@@@@'=@@@@C@@@[W/K@@]Y?@@@[B/K@@],!@@@[C/K@@]$=]0@[SAV@@@ALA )@@G@@)]:[##@[]@9@K0@K^G@^G@^C#K@@@@'=@@@@>]0@[=C@@@['=@@@@C@@@[WAX@@@A)];[N]@9]@K@@K@@@@/K@@].:8@@@:C8@@@0:8@@@ ;?K@@ALD )@@G@@;CK@@A;?@@@A;C@@@='=@@@@'=@@@@AY@@@A)# [EK[@^G@^C^4C =G@@@@@C@@@[*'=@@@@LE )@@G@@'=@@@@C@@@[$/KF@@@/K@@#E!8@@@E/G@@#EH8@@@0AZ@@@A)#I[#][X@K0@K0@K)HK0@K)ILF )@@G@@K)^@@@'=@@@@'=@@@@C@@@[('=@@@@C@@@[Z @@@@./K@@#H'=@@@@BA@@@A)[R[C*@ @()]LG )@@G@@O0[E[N@^@@@@@@]@@E@@*@@B@@[@@H@@#@@@@@]@@\@@)@@@@ D>0@@@^@@@@@I@@\BB@@@ALH )@@G@@)[)[@* G@K()] G@M&@DK@@@@@@@@@@[#@[D@[]@@B@[]@@ @@C@@@@@]@@#@@@[@@@@[@@GLI )@@G@@@@D@@"BC@@@A)[*@K1)#E[N@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@[[@@D@#K@@\BD@@@A0@:@]@)#E[N@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@[[@@D@#K@@\BE@@@A@@@@@@@E@@@@ J BADELL )@@G@@NT . NO INFOR RETURN :@@@LQ@D@@@@@@^@@]@@A@@S@@6@@[@@'@@@LM )@@G@@@@E@[%@@@@#QOPT$ RINF$ SINF$ TIME$ EXIT$ LN )@@G@@PCT$ FDASC$ AEDIT$ AEMSG$ AEFD2$ AECHAR$ LO )@@G@@AECOL$ AEDITX$ APRTCN$ APRINT$ IDONLY$ EDIT$ LP )@@G@@ETIME$ EDITX$ PRINT$ FORK$ TWAIT$ ERR$ LQ )@@G@@READ$ IDBUFF @@@@@@@@@@@"E1[D-PC*)DDN^[UC(MD9N 0)@C@[@[A@0A@0LR )@@G@@A@0A@3AK2AK%A@2AC1A@0^@0AC)^[CC([C)1 0)^@)@P@[@[A@0A@0A@0A@3AK2AS%A@2AC2LS )@@G@@A@0^@)^@)^@0AK)^[#D9HE[[D1T (ICDHC*)^@)^@)^@)^@)======@@^@@ @@@@@@@@@@@@LT )@@G@@@@ @V6@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF. QK @@@@]@LU )@@G@@@@@@@9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y@@A@@A@@Y@@6@@@@@#@@^@@@@W8@@@@@@LV )@@G@@@^@@@]@^@#@[@ @@@]K^@[@)A@0A@0A@0A@3AK2A*%A@2AC4A@0^@)^@)^@0AK)^[ADDGD- LW )@@G@@EK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KDD#^[S @4B@(^[QCDGE( ^[DES)^@)@O@[@[LX )@@G@@A@0A@0A@0A@3AK2A0%A@2AC5@Q-@C@)[Z@Y-@@@___@@E^@@@@E^@W@@?^[U)@M^@E)@4^@&LY )@@G@@) '^]A@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___LZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@?@[@@@?@[V@@?@[X@@?@@@@+@@'@@,@@_@@-@@-@@.@@?@@/@[W@@0@@0@@1@@1@@2@@2@@3@@3ME )@@G@@@@4@@4@@5@@5@@6@@6@@7@@7@@8@@8@@9@@9@@:@@$@@;@@;@@<@@\@@=@@,@@>@@+@@?@[ZMF )@@G@@@@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@MG )@@G@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@MH )@@G@@@@X@@@@@Y@@@@@Z@@@@@[@@@@@\@@@@@]@@@@@^@@@@@_@@@@@@@@@@@A@@@@@B@@@@@C@@@MI )@@G@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@@@L@@@@@M@@@@@N@@@@@O@@@MJ )@@G@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@[@@@MK )@@G@@@@\@@@@@]@@@@@^@@@@@_@@@&;@@@@/@F@@@C[K@@GT8@@@#G8@@@[;C@@@[N@K@@GG@K@@LML )@@G@@H8K@@[&;K__"G@)@@GH8)@@[&;)__"/-K@EVC).@@@C[@@F9G J@C@C=.@@@;[@@@DG J@C@MM )@@G@@;[@@@D%[@@F'/K@@E5H8@@@[H8)@@[N@K@@G/K@@E6C).@@@C=H@@@C J@C@C*.@@@;[@@@DMN )@@G@@G G@C@C?H@@@;[@@@DG J@C@;[@@@DG G@C@C0.@@@;[@@@DC4H)@@H9K@@[[[I)@@C J@C@MO )@@G@@C).@@@;[@@@DG G@C@C=H@@@;[@@@DG J@C@;[@@@DG G@C@;[@@@D[[I)@@C*.@@@C?H@@@MP )@@G@@C J@C@C0.@@@;[@@@DG G@C@C4H)@@;[@@@DG J@C@;[@@@DG G@C@;[@@@DH9K@@[[[I)@@MQ )@@G@@/ K@EVC@@@[[/KF@@@&;@@@@/@F@@@A]0@[[C9W@@@&;I@@@Q;I@@@&;K@@[/,0@F0;(@@@GMR )@@G@@/[K@F-[[G@@@/,0@F0;[@@@GG G@@@[ G@@@;D@@@S;(@@@S[[G@@[/[K@F!/,0@F0[ G@@[MS )@@G@@;D@@@M[!G@@[G8@@@]/[K@F>/K@@FIG9@@ [[G@@@%[@@F;G8@@@[C8?@@@;C@@@MH8?@@@MT )@@G@@(@@@@IC8)@@[R]0@[[C8I@@@/KF@@@G[@@F/G8@@@[/K@@F+C9@@)@C@!)@@H9K@@[;))@@DMU )@@G@@+8)@[_;(@@@AGDJ@C@/D@@F3/KF@@@^@)@@@^@)^@) @@ *@@^@@/KF@@[ @@^@[MV )@@G@@[@@^@@ @@^@[C8W@@@KCK^@@H8)@@V&;K@GTC@@@@H'=@@@H(@@^@[[@@^@[G8W@@@ @H@@@MW )@@G@@>@@@J'/K@@GQ>@@@J;/KF@@[C8H@@@?8I@@@/K@@GAC@@@J9C8K@@#/KF@@@C@@@J,C8K@@[MX )@@G@@/KF@@@[@@^@[C@@@J4C8K@@]/KF@@@L8@@@[C@)^@@G8)@@[*@I@@@?CY@@@/K@@G>G),@@@MY )@@G@@/K@@GZ%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@J//KF@@[;CK@@=MZ )@@G@@;^@@@%(@@@@HG8K@@[[@K@[#;C@@@Y[@@@[[C^@^@@G8@@@[C9K@@[ @@^@JN8)@@@C@W@@@NA )@@G@@/@K@H=;CK@@Y*@@@@H?@K@[#/K@@HO%@K@[#/K@@H=%1W@@@/K@@H=C?W@@@!8K@@A/K@@HRNB )@@G@@%(K^@J @@^@I[(K^@J9??@@[C-G@@@:9@@@[C@0@J/')H@IQH9@@@[T9@@@AG>G@@@')H@IYNC )@@G@@G)G@@@G8@@@[/K@@G;:9K@@[/K@@HWC*?@@@:8)@@.N8)@@[%[K@[[/K@@HO/K@@HF%@)@J/ND )@@G@@[5@^@I:@)@J/[-K^@I/K@@HO(@@@[]:(K^@J/K@@H([(K^@J @@^@I:[K@[[/K@@H3G9K@@[NE )@@G@@(@G@@@/K@@H0!4W@@@/K@@G' @@^@I @@^@J/KF@@@:(K^@J *@^@J9?K^@I98V@@@C8@@@-NF )@@G@@[=@^@J(?@^@J/KF@@[C@@^@VD8)@@@C80@@@C!@^@J8^@@IA1@@@@I!8)@[@C80@@E[))^@JNG )@@G@@[=0^@J/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0/K@@IL(@@@@JC80@[@H8K@@0T8)@@EG8!@@@NH )@@G@@/K@@H_/^0@I]%8K@@+:8K@@-C8.@@@/@0@I]/K@@H_9*)^@K9*)^@M[@)^@O[@)^@P[@)^@QNI )@@G@@9*)^@R9*)^@T[@)^@V/K@@HZ[1@^@I[!@^@I[(@^@I[>@^@I[5@^@J[1@^@J[!@^@JC80@@FNJ )@@G@@+8K@@_:8)@@ ;^@@@A8#0@I*9*@^@#C@@@J.C@K@J"C8)@@BC@0@J/[@"^@A8#)@I1N4K^@INK )@@G@@9!@^@K/\)@JZC9K@@*(4@^@I*)@^@I')H)@@N0K^@I9!@^@M*@@@[[/K@@J@C[@@J_N8K@@^NL )@@G@@/\)@JZN?K^@I(@@@[[/K@@JEC9K@@(')H)@@C[@^@O/\)@JZC9K@@)')H)@@(*@^@I*=@^@INM )@@G@@/K@@JKC@@@K@'=@@@J/KF@@@C9K@@/')H)@@N*K^@IC[@^@P/\)@JZN=K^@I(@@@[[/K@@JHNN )@@G@@C9K@@/')H)@@C[@^@Q/\)@JZ/K@@JH;>@@@A')H)@@8KK@JX/KI@@@[5W@@@[1W@@@[!W@@@NO )@@G@@[(W@@@[>W@@@/\0@J$[-W)@@Q;K@J-/KJ@@@PROCESSOR CALL ERROR @[^@J%ABNORMNP )@@G@@AL RETURN FROM READ$ @[ @J\TOO MANY SPECIFICATIONS @[^@J5]@@@@@[@@@@@NQ )@@G@@ @@[^@A@@[@J-TPF$ @@G^@]C9K@@[/K@@K^C9K@@@&';@@@N@K@@DQ'K^[U9?(@@@NR )@@G@@C8K@@H/K@@KG;G)@@AH8K@@[+80@@_:9@@@ /K@@KE;GK@@=W8K@@AO]K@@H&'K@@[&;)@@[NS )@@G@@C[@@LIC@@@LJC80@@@+8@@@_%8K@@ /K@@KZ;C@@@AG80@@A;-@@@A')I)L /K@@KR;*J@@@NT )@@G@@C@0@@G @@@@K;=0@@A')I)L /^0@K+C9@@@ ')I)L 9?@@[](@@@@L'=@@@MC@0@@G/\@@L@NU )@@G@@C9@@@/')I)L /\@@L@C9@@@/')I)L /\@@L@C9@@@ ')I)L C@0@@H/\@@L@C9@@@:')I)L NV )@@G@@/\@@L@C9@@@:')I)L /\@@L@R]K@[[Q'0@@@/SF)@@/KF@@@;=0@@A')I)L ;=0@@A')I)L NW )@@G@@/KG@@@[5D@@@[1D@@@[!D@@@[(D@@@[>D@@@/,0@LFQ;)@@@[-D)@@/KF@@@SLIB 74R1 NX )@@G@@C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@L-C8)@@:')])R";G@@@=W8@@@/C8?@@@C8H@@@NY )@@G@@/\K@L-C8)@@:')])R"C8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')])R"C8\@@0')])R"/KH@@@NZ )@@G@@;C@@@M+8@_@@;GK@@0/\K@L-C8)@@/')])R"+8@@_@;GK@@%/\K@L-C8)@@/')])R"+8@@@_OA )@@G@@C8!@[@/\K@L-/KF@@@;C@@@M+8@@_@;GK@@%/\K@L-+8@_@@;CK@@FC@!@M3C80@@^;@)@@YOB )@@G@@')])R"8#0@L_+8@@@_C8!@[@/\K@L-/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@;CK@@F9?H@M3OC )@@G@@/,0@S'C8)@@ ')])R"C@K@[[+8K@_@;G)@@%W8)@@E/@)@MQG8)@@0')])R"C8\@@0')])R"OD )@@G@@C8)@@,')])R"+8K@@_C8I@Y?C8K@@ RE1@@#/K@@UL;C@@@M+8@@@_C8!@Y?;G)@@=W8)@[=OE )@@G@@N@K@@J/\K@L-C@)@[[/\K@L-+8@_@@;GK@@0/\K@L-+8@@_@;GK@@%/\K@L-/KF@@@;C@@@MOF )@@G@@+8@@@_C8!@[@!8)@[=H8)@[=/K@@M$ JAN UARY FEB RUARY MAR CH APR IOG )@@G@@L MAY JUN E JUL Y AUG UST SEP TEMBER OCT OOH )@@G@@BER NOV EMBER DEC EMBER A^W@@#A@?@@^A@/@@ Q8W@@@B4@@@G+8@@@D[0L@@@OI )@@G@@+/@__")8K@@CB0I@@@ ?[@@]R@)@RGQ^1@@@&80@@]C?-@@@+8)@@B;C)@@#9?@@RH/K@@N=OJ )@@G@@9*#)@@9*#)@@9*#)@@9*#)@@8#)@N)C8)@@G&80@@[N@K@@JM@")@@Q^1@@@/KF@@@A^W@@#OK )@@G@@A@?@@^A@/@@ Q8W@@@B4@@@G+8@@@D[0L@@@+/@__")8K@@CB0I@@@&8)@@[Q4-@@[&80@@[OL )@@G@@Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[B4@@@G+/@__6)0L@@@B0I@@@C8[@@@C0L@@[OM )@@G@@C8+@@@/@)@OC%8)@@^G8K@@[Q^L@@#R@?@@^R@/@@ /KF@@@[W<@@@[K<@@@[S<@@@[O<)@@ON )@@G@@[W<@@@[K<@@@[S<@@@/?)@OO[O<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])OG/KF@@@;G@@@]OO )@@G@@;CK@@+G^[@@@Q8!@@@Q8/@@@/KF@@@C8M@@@+8K@@#G@@@@IC8N@@@H^L@@@;*K@@]G8H@@@OP )@@G@@/K@@OVC8]@@@+8@@@#C8#@@@H^[@@@;*@@@]G@@@@H/KF@@@CW!@@@CK!@@@CS!@@@CO!)@@OQ )@@G@@CW!@@@CK!@@@CS!@@@/\@@O8CO!)@@[^[@@]Q;@@@@/K[K@]C80@@#/K@@O_C80@@B;^@@@_OR )@@G@@+8K@B_%8)@@):8)@@@/K@@P ')])OG8#0@O_/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[OS )@@G@@/K@@PJ')G)O0')])OG8#0@PH/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@PU')G)O0OT )@@G@@*@@@@I')])OG8#0@PR/KF@@@C?[@@[C^L@@[/K@@P-;G@@@M;CK@@M&;@@@[&;K@@[')G)O0OU )@@G@@:W-@@A/K@@P*')])OG/K@@P<[?[@@[[^L@@[/KF@@@;*@@@AC8N@@@H^L@@@C8+@@@/@)@P2OV )@@G@@%8)@@^G8K@@[G@@@@H;*@@@MQB[@@@'=@@@8/K@@N;C80@@@;G@@@#/@@@P_G80@@[;G@@@#OW )@@G@@/^@@P'C8)@@0')])OGC8)@@@;=K@@#G8)@@0')])OG8#0@P_/KF@@@C8.@@@T8K@@#;GH@@@OX )@@G@@H80@@[/K@@P_N8X@@@C80@@@/C@@QLC8)@@!')])OGD@@@@G8KK@QL;O@@@=W8@@@E;?)@@AOY )@@G@@G8.@@08KK@QQ/^@@QL9?@@@IC8)@@0/K@@QV')])OG8KK@QU+8K@@_')])OG;G@@@A/^K@QWOZ )@@G@@/KF@@@N8X@@@&'0@@@C80@@@/C@@Q*&'0@@!D@@@@G8KK@Q*;O@@@=W8@@@E;?)@@AG8.@@0PA )@@G@@8KK@Q!/^@@Q*9?@@@IC8)@@)/K@@Q2')])OG8KK@Q1C@)@@F;C)@@M*@@@@I')])OG+8K@@_PB )@@G@@')])OG;G@@@A/^K@Q7/KF@@@C80@@@/C@@R[C8)@@!')])OGD@@@@G;O@@@=W8@@@E;?)@@APC )@@G@@G8.@@0/^@@R[9?@@@I+8K@@_')])OG;G@@@A/^K@RB/KF@@@@@[@@@^@)^@)^@)^@)A^W@@#PD )@@G@@A@?@@^A@/@@ Q8W@@@ ?[@@]R@)@VCQ^1@@@&80@@]C?-@@@+8)@@B;C)@@#9?@@VD/K@@R)PE )@@G@@9*#)@@9*#)@@9*#)@@9*#)@@8#)@RWC8)@@G&80@@[N@K@@JM@")@@Q^1@@@/KF@@@A^W@@#PF )@@G@@A@?@@^A@/@@ Q8W@@@&8)@@[Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[PG )@@G@@C8[@@@C0L@@[C8+@@@/@)@R'%8)@@AG8K@@[Q^L@@#R@?@@^R@/@@ /KF@@@[4<@@@[0<@@@PH )@@G@@[?<@@@[*<@@@[=<@@@[)<)@@[4<@@@[0<@@@[?<@@@[*<@@@[=<@@@/?)@SE[)<)@@A^-@@]PI )@@G@@Q8)@@@/K[K@]C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@C)!)@@C4!@@@C0!@@@C?!@@@C*!@@@PJ )@@G@@C=!@@@/\@@SUC)!)@@[^[@@]Q;@@@@/K[K@]C8?@@@')])R"/KF@@@;G@@@=W8@@@AG^[@@@PK )@@G@@Q8!@@@Q8/@@@/KF@@@C8M@@@!8K@@AH8K@@AG@@@@HC8N@@@H^L@@@T8K@@AG8H@@@/K@@S-PL )@@G@@C8M@@@!8K@@AH8K@@AC8#@@@H^[@@@T8@@@AG@@@@H/KF@@@C80@@ /K@@S;C80@@F;^@@[]PM )@@G@@+8K@@_%8)@@ :8)@@@/K@@T[')])R"8#0@S;/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[PN )@@G@@/K@@TF')G)SI')])R"8#0@TD/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@TQ')G)SIPO )@@G@@*@@@@I')])R"8#0@TN/KF@@@C?[@@[C^L@@[/K@@TX;G@@@M;CK@@M&;@@@[&;K@@[')G)SIPP )@@G@@:0-@@@/K@@T=')])R"/K@@TZ[?[@@[[^L@@[/KF@@@C80@@@;G@@@#/@@@T\G80@@[;G@@@#PQ )@@G@@/^@@T%C8)@@0')])R"C8)@@@;=K@@#G8)@@0')])R"8#0@T\/KF@@@C8.@@@T8K@@#;GH@@@PR )@@G@@H80@@[/K@@T\N8X@@@C80@@@/C@@U[C8)@@-')])R"D@@@@G8KK@U[;O@@@=W8@@@E;?)@@APS )@@G@@G8.@@08KK@UA/^@@U[9?@@@IC8)@@0/K@@UF')])R"8KK@UE+8K@@_')])R";G@@@A/^K@UGPT )@@G@@/KF@@@N8X@@@&'0@@@C80@@@/C@@US&'0@@-D@@@@G8KK@US;O@@@=W8@@@E;?)@@AG8.@@0PU )@@G@@8KK@UX/^@@US9?@@@IC8)@@ /K@@U+')])R"8KK@U-C@)@@F;C)@@M*@@@@I')])R"+8K@@_PV )@@G@@')])R";G@@@A/^K@U$/KF@@@C80@@@/C@@U1C8)@@-')])R"D@@@@G;O@@@=W8@@@E;?)@@APW )@@G@@G8.@@0/^@@U19?@@@I+8K@@_')])R";G@@@A/^K@U7/KF@@@;*@@@AC8N@@@H^L@@@C8+@@@PX )@@G@@/@)@V#%8)@@AG8K@@[G@@@@H;*@@@MQB[@@@'=@@@I/K@@R1@@[@@@ C)?C[@PY )@@G@@C(NCS)D8)^@)C)?C[@E- ELH#1@C1DD0L@@@#1@C(JC0L@@@^@)^@)C)?C[@C(IC))]C@@@@PZ )@@G@@#T>#TH#SF S4[8X#)@#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W#SF )4QA )@@G@@[8X#)@E- ELHDDICDG^[CC(GC))CLT^@&^@)#*W@@@#SF *4[8X#)@#*W#*W#*W#*W#*W#*WQB )@@G@@#*W#*W#*W#*W#*W#*W#*W#*W#*W#*W^0@@@@'=@@@3[@@@@RC@@^[3/,0@F./K@@YP=]0^[4QC )@@G@@/K@@W:C8@[[A/,0@GX/K@@W[/K@@WA'=@@@NG@@^[1!@@^[5C@@^[5/K@@W%9!)@@G9?K@@MQD )@@G@@;C0@@=/,0@YC!8@@@#/K@@YPG@0@@GT80@@E/,0@YC!8@@@E/K@@YPG@0@@G!80@@S/K@@YPQE )@@G@@T80@@A/,0@YC!8@@@A/K@@YPG@0@@GT80@@E/,0@YC!8@@@E/K@@YPG@0@@GT80@@A/,0@YCQF )@@G@@!8@@@A/K@@YPG@0@@GT80@@E/,0@YC!8@@@E/K@@YPG@0@@GT80@J*C@@@@J[@@^[=%9@@@^QG )@@G@@'=@@@D>]0^[6/K@@XJC@@^[7'=@@@4C8@@@]C8K^[FC8)^[H/,0@E@C/@^@W/,0@NHC8@@VTQH )@@G@@/,0@PZ9?@^[HQ;K^@)/,0@O"C/@@@\/,0@OS9?@^[I;?@@@MQ;K^@)/,0@O"C/@@[I/,0@OVQI )@@G@@C8@@V%/,0@PZ/,0@N;C@@^[8'=@@@/C@@^[9'=@@@8C@@^[''=@@@8C@@^[;'=@@@//,0@K#QJ )@@G@@=]0^[4/K@@XWC@K^[=;C@@@=W8@@J*[@@^[,C/@^[*/,0@RJC@@^[,/,0@LK/,0@R1/K@@XYQK )@@G@@9?@^[\9*@^[-C@@^[/'=@@@IC8@@@[[@@^[TC8@@YS'=@@@F'=@@@NG@@^[2!@@^[5H8@^[5QL )@@G@@[@@^[]0^]@'=@@@/C@@^[8'=@@@/QN )@@G@@C@@^]['=@@@8'=@@@DC@@^[8'=@@@/C@@^]]'=@@@8'=@@@D;C@@@=;?@@@A;CK@@A;?K@@AQO )@@G@@:8@@@ C8@@@0:8@@@:/K@@YCH8@@@0/G@@YP!8@@@E/K@@YP/KF@@@C@@^]#'=@@@I'=@@@)QP )@@G@@C@@^]^'=@@@H/K@@YS @@^[TC@@^[;'=@@@/C@@^] '=@@@8'=@@@D@@@@@@@@@@@@@USE QQ )@@G@@@@@@@@@@@@@@, @@@@@@@@@@@@@@@@@@@@@@@@@[*^@<@@@@@@[[@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@^0@@@@@@@@@@@@@@@@@@@@@@HOLD 2R3 UNTIL QS )@@G@@& @@@@@@@@@@@@*** BAD TIME SPEC @&]^[-@@@@@@[[@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@??:??:?? @@#V,)@@@'&@@@I^[F@@^@@@@ D>0@@@)@@@@@]^[F@@#@VFQU )@@G@@@@[@VS@@*^@<@@]@VP@@D^[U@@[@VR@@@[@@@@]@VI@@C@@@@[]@VK@[]@VM@[#^[>@YV^[FQV )@@G@@@[[@VO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]QW )@@G@@@@@#@ @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@AEDIT$ B.KCBIEDIT$ B"UCBIEDIT$T LMWCCFERU$ LN0]WKQZ )@@G@@FDASC$ B"3CBIHOLD GF6 QKIDONLY$ B_*CBIINFOR$ M99DSGRA )@@G@@SYSLIB$ID JN7GOITABLE$ C^%CBI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@C$DBANKRD )@@G@@ @@S@@]E*)D9AD-JE8!ELOD0!C(SDDO 0)^@)@H@[@[A@0A@0A@0A@3AS2B@%A@3AC7RE )@@G@@A@0^@)^@)^[HD9QC*)E[M (NES!D1JAC)E-J^[K (NES!D1JAC,^@)@F@[@[A@0A@0A@0A@3RF )@@G@@@@@@@VK@@[@^@]@@C@@@@@@GK@@[@^@[.@E@@@@@@PK@@[@^@^^@F.@@@@@MK@@[@^@[J@K[RG )@@G@@@@@@@AK@@[@^@[.@LK@@@@@@K@@[@^@^]@NH@@@@@#K@@[@^@#/@RJ@@@@@J@@@[@^@#Q@VFRH )@@G@@@@@@@P0@@]@ @@W^@@@@@@@J)@@@@ @[%^@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AECHAR$ @@J@[FAECOL$RK )@@G@@ @@J@[IAEDITX$ @@J@@,AEDIT$ @@J@@@AEFD2$ @@J@[1AEMSG$RL )@@G@@ @@J@]MASCFDASC$ @@@@@@EDECF$ @@M@#]EDITX$ @@M@@+EDIT$ RM )@@G@@ @@M@@@EDIT$T @@M@@\EFD2$ @@M@[:ETIME$ @@G@@@FDASC$RN )@@G@@ @@#@@@IDBUFF @@V@@"IDONLY$ @@D@@]RINF$ @@A@@@SINF$ RO )@@G@@ @@A@@)@@@@@@@@@@@@SYSLIB$ID 74R1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*DP @@-BK1-$$-BK2-SCC102RR )@@G@@PGM QKGF5PGM @C__@@@MASM,S SYS$*HOLD.HOLD/CODE,RS )@@G@@SYS$*HOLD.HOLD @B@[@@MASM 3R1 RLIB 74R1 05/22/80 13:51:50 (1) @D@[@@RT )@@G@@ 100. . @I@[@@ RU )@@G@@ 110. . TERMINAL HOLD PROCESSOR RV )@@G@@@D@[@@ 120. . @K@[@@ RW )@@G@@ 130. . WRITTEN MARCH 1980 RX )@@G@@BY PATRICK MURPHY @D@[@@ 140. RY )@@G@@ . @O@[@@ 150. . TRZ )@@G@@HIS PROGRAM IS THE PROPERTY OF ODESSA COLLEGE, ODESSA TEXAS.@N@[@@ SA )@@G@@ 160. . PERMISSION IS GRANTSB )@@G@@ED FOR THE REPRODUCTION OF THIS @M@[@@ SC )@@G@@ 170. . PROGRAM AND ITS CONSTITUENTS BUT NOT FOR PRSD )@@G@@OFIT. @D@[@@ 180. . @N@[@@SE )@@G@@ 190. . THIS PROGRAM SF )@@G@@IS CAN BE USED ON ANY U100 COMPATIBLE @M@[@@ SG )@@G@@ 200. . TERMINAL. IT WILL PREVENT THE TIMING SH )@@G@@OUT OF THE @O@[@@ 210. . SI )@@G@@ TERMINAL UNTIL A GIVEN TIME. THE PROCESSOR IS TERMINATED @^@[@@SJ )@@G@@ (F@@@@ 220. . BY THE SK )@@G@@NEXT CONTROL CARD IMAGE.@D@[@@ 2SL )@@G@@30. . @O@[@@ 240. . SM )@@G@@ THIS PROCESSOR SHOULD BE CALLED IN THE FOLLOWING MANNER: @D@[@@SN )@@G@@ 250. . @H@[@@ SO )@@G@@ 260. . @HOLD,OPTS TIME @D@[@@SP )@@G@@ 270. . @L@[@@ SQ )@@G@@ 280. . THE FOLLOWING ARE IMPLEMESR )@@G@@NTED OPTIONS: @L@[@@ 290. SS )@@G@@ . C - CLEAR SCREEN BEFORE ENTERING HOLD STATE@M@[@@ ST )@@G@@ 300. . F - ALLOW AN OPEN-ENDED HSU )@@G@@OLD CONDITION (FOREVER)@N@[@@ 3SV )@@G@@10. . THERE IS NO END TIME ENFORCEMENT WITH THIS OPTION. SW )@@G@@@N@[@@ 320. . N - DO SX )@@G@@AN @EOF TYPE EXIT TO TERMINATE THE PROCESSOR @N@[@@ SY )@@G@@ 330. . X - DO AN @FIN TYPE EXIT TO TERSZ )@@G@@MINATE THE PROCESSOR @D@[@@ 3TA )@@G@@40. . @O@[@@ 350. . TB )@@G@@ IF NO OPTIONS ARE SPECIFIED, THE TERMINAL WILL BE TERMINATED @@@[@@TC )@@G@@(L@@@@ 360. . AT THE TD )@@G@@END OF THE HOLD PERIOD VIA @@TERM @D@[@@ TE )@@G@@ 370. . @L@[@@ 3TF )@@G@@80. . THE TIME SPEC IS IN THE FOLLOWING FORMAT: @D@[@@ TG )@@G@@ 390. . @F@[@@ TH )@@G@@ 400. . HHMMSS @D@[@@ TI )@@G@@ 410. . @O@[@@ TJ )@@G@@ 420. . ANY TRAILING SPACES ARE CONVERTED TO ZEROESTK )@@G@@. IF NOT GIVEN, @K@[@@ 430. TL )@@G@@ . A HOLD TIME OF 15 MINUTES IS ASSUMED.@D@[@@ TM )@@G@@ 440. . @D@[@@ TN )@@G@@ 450. . @D@[@@ 4TO )@@G@@60. . @H@[@@ 470. TP )@@G@@ AXR$ . @O@[@@ 000000000027 4TQ )@@G@@80. OPTS EQU A11 . CALL OPTIONS HOLD REGITR )@@G@@STER @F@[@@ 490. $(1) TS )@@G@@ . @H@[@@ 500. TT )@@G@@ ASCII . @K@[@@ 1 000000 104054100100 510. TU )@@G@@ ESCO 'D,@@ESC O' . @ @[@@ 000001 1051TV )@@G@@23103040 @ @[@@ 000002 117040040040 @K@[@@ 0000TW )@@G@@00000003 520. LESCO EQU $-ESCO TX )@@G@@. @L@[@@ 000003 104054100100 530. TERM TY )@@G@@ 'D,@@TERM' . FOR HOLD,T@ @[@@ 000004 1241051221TZ )@@G@@15 @K@[@@ 000000000002 540. LTERM UA )@@G@@ EQU $-TERM . @O@[@@ 000005 036 100 106 111 UB )@@G@@ 550. FIN + 036,'@','F','I' . SOE, @, UC )@@G@@ F, I, @O@[@@ 000006 116 021 000 000 560. UD )@@G@@ + 'N',021,0,0 . N, DC1, NUL, NUL UE )@@G@@@K@[@@ 000000000002 570. LFIN EQU UF )@@G@@ $-FIN . @O@[@@ 000007 036 100 105 117 UG )@@G@@ 580. EOFM + 036,'@','E','O' . SOE, @, E, UH )@@G@@ O, @O@[@@ 000010 106 021 000 000 590. UI )@@G@@ + 'F',021,0,0 . F, DC1, NUL, NUL @K@[@@UJ )@@G@@ 000000000002 600. LEOFM EQU UK )@@G@@$-EOFM . @H@[@@ 000011 040040040040 6UL )@@G@@10. SPACE ' ' . @K@[@@ 000000000001 UM )@@G@@ 620. LSPACE EQU $-SPACE . @^@[@@UN )@@G@@ 000012 1040541001(G@@@@00 630. END 'D,@UO )@@G@@@END' . @ @[@@ 000013 105116104040 @K@[@@UP )@@G@@ 000000000002 640. LEND EQU UQ )@@G@@$-END . @O@[@@ 000014 021 000 000 000 6UR )@@G@@50. SEND + 021,0,0,0 . DC1, NUL, NUL, NUS )@@G@@UL, @K@[@@ 000000000001 660. LSEND UT )@@G@@ EQU $-SEND . @M@[@@ 000015 033 145 033 115 UU )@@G@@ 670. CLEAR + 033,0145,033,0115 . HOME & CLEUV )@@G@@AR @K@[@@ 000000000001 680. LCLEAR UW )@@G@@ EQU $-CLEAR . @O@[@@ 000016 033 013 053 064 UX )@@G@@ 690. INUSE + 033,013,040+11,040+20 . ESC, VT,UY )@@G@@ Y, X, @O@[@@ 000017 017 035 034 000 700. UZ )@@G@@ + 017,035,034,0 . SI, BLINK, BLINK, NUL, VA )@@G@@@O@[@@ 000020 035 034 035 034 710. DO 8VB )@@G@@ , + 035,034,035,034 . BLINK, BLINK, BLINK, BLINK, @ @[@@ 000021VC )@@G@@ 035 034 035 034 @ @[@@ 000022 035 034 035 034 @ @[@@ 000023VD )@@G@@ 035 034 035 034 @ @[@@ 000024 035 034 035 034 @ @[@@ 000025VE )@@G@@ 035 034 035 034 @ @[@@ 000026 035 034 035 034 @ @[@@ 000027VF )@@G@@ 035 034 035 034 @C@[@@ 000030 033 013 054 064 720. VG )@@G@@(G@@@@ + 033,013,040+12,040+20 . ESC, VT, Y, XVH )@@G@@, @O@[@@ 000031 017 035 034 000 730. VI )@@G@@ + 017,035,034,0 . SI, BLINK, BLINK, NUL, @K@[@@ VJ )@@G@@000032 124105122115 740. 'TERMINAL HELD BVK )@@G@@Y &' . @ @[@@ 000033 111116101114 @ @[@@ 000034VL )@@G@@ 040110105114 @ @[@@ 000035 104040102131 @ @[@@ 000036VM )@@G@@ 040046040040 @O@[@@ 000037 035 034 000 000 750. VN )@@G@@ INUSE2 + 035,034,0,0 . BLINK, BLINK, NUL, NUL, VO )@@G@@@O@[@@ 000040 033 013 055 064 760. + 03VP )@@G@@3,013,040+13,040+20 . ESC, VT, Y, X, @O@[@@ 000041VQ )@@G@@ 017 035 034 000 770. + 017,035,034,0 VR )@@G@@ . SI, BLINK, BLINK, NUL @O@[@@ 000042 035 034 035 034 VS )@@G@@ 780. DO 8 , + 035,034,035,034 . BLINK, BLIVT )@@G@@NK, BLINK, BLINK, @ @[@@ 000043 035 034 035 034 @ @[@@ 000044VU )@@G@@ 035 034 035 034 @ @[@@ 000045 035 034 035 034 @ @[@@ 000046VV )@@G@@ 035 034 035 034 @ @[@@ 000047 035 034 035 034 @ @[@@ 000050VW )@@G@@ 035 034 035 034 @ @[@@ 000051 035 034 035 034 @M@[@@ 000052VX )@@G@@ 046 000 000 000 790. + '&',0,0,0 VY )@@G@@ . EDIT STOP CHAR @#@[@@ (C@@@@ VZ )@@G@@ 800. $(0) . @N@[@@ 0 000000 00 01 50 000007 WA )@@G@@ 810. EPKT A$EPKT LPL,PL . ASCII EDIT PACKAWB )@@G@@GE @ @[@@ 000001 00 00 00 000000 @ @[@@ 000002 01 01 00 0WC )@@G@@00000 @ @[@@ 000003 000000 000000 @ @[@@ 000004 0000000000WD )@@G@@00 @ @[@@ 000005 000000000000 @ @[@@ 000006 046 000 00WE )@@G@@0 000 @M@[@@ 000007 820. PL WF )@@G@@ RES 40 . PRINT BUFFER @K@[@@ 0000WG )@@G@@00000050 830. LPL EQU $-PL WH )@@G@@. @M@[@@ 000057 840. BUFF WI )@@G@@ RES 14 . FOR READ REQUEST@K@[@@ 0000WJ )@@G@@00000016 850. LBUFF EQU $-BUFF WK )@@G@@. @H@[@@ 860. WL )@@G@@ FIELDATA . @M@[@@ 000075 870. WM )@@G@@ CELL RES 1 . FOR WAIT LOOP @M@[@@ WN )@@G@@000076 152421110562 880. IDBUFF* 'HOLD 2R3' WO )@@G@@ . FOR ID LINE @ @[@@ 000077 276305050505 @K@[@@WP )@@G@@ 000100 050505050505 890. DO 4 , ' WQ )@@G@@ ' . @ @[@@ 000101 050505050505 @ @[@@ WR )@@G@@000102 050505050505 @ @[@@ 000103 050505050505 @H@[@@ WS )@@G@@000104 322331162105 900. 'UNTIL ' . WT )@@G@@@K@[@@ 000105 460505050505 910. UNTIL '& WU )@@G@@ ' . @ @[@@ 000106 050505050505 @K@[@@WV )@@G@@ 000000000011 920. LIDBUFF EQU WW )@@G@@$-IDBUFF . @L@[@@ 000107 9WX )@@G@@30. LASTIME RES 1 . FOR TIME @M@[@@ WY )@@G@@000110 940. ENDTIME RES 1 WZ )@@G@@ . HOLD END TIME @K@[@@ 000111 505050050706 XA )@@G@@ 950. ERR '*** BAD TIME SPEC' . @ @[@@ XB )@@G@@000112 110531162212 @ @[@@ 000113 053025121005 @K@[@@ XC )@@G@@ 000000000003 960. LERR EQU $-ERR XD )@@G@@ . @N@[@@ 000114 00 46 02 000105 970. XE )@@G@@ EPKT2 E$PKT 2,UNTIL . FOR HOLD UNTIL TIME @ @[@@XF )@@G@@ 000115 00 00 00 000000 @ @[@@ 000116 01 01 00 000000 @ @[@@XG )@@G@@ 000117 000000 000000 @ @[@@ 000120 000000000000 @ @[@@XH )@@G@@ 000121 000000000000 @N@[@@ 000122 XI )@@G@@ 980. TDATE RES 1 . TDATE FORMAT TIMXJ )@@G@@E @E@[@@ 000123 545453545453 990. QMARKS XK )@@G@@(#@@@@ '??:??:' . @H@[@@ 000124 545405050505 10XL )@@G@@00. '?? ' . @L@[@@ 000000017500 XM )@@G@@ 1010. WTTIME EQU 8000 . TWAIT TIMEXN )@@G@@@O@[@@ 000125 000003335640 1020. DEFAULTM + XO )@@G@@ 15*60*1000 . 15 MINUTE DEFAULT HOLD TIME @O@[@@ 000126XP )@@G@@ 000000724600 1030. RTTIME + 4*60*1000 XQ )@@G@@ . 4 MINUTE RETRANSMIT TIME @F@[@@ XR )@@G@@ 1040. $(1) . @F@[@@ XS )@@G@@ 1050. START . @N@[@@U 1 000053 72 11 00 00 0 00XT )@@G@@0000 1060. ER OPT$ . PICK UP CAXU )@@G@@LL OPTIONS @L@[@@ 000054 01 00 00 00 0 000027 1070. XV )@@G@@ S A0,OPTS . SAVE THEM @K@[@@ 000055 10 0XW )@@G@@0 00 00 0 000127 1080. L A0,(LBUFF,BUFF) XX )@@G@@. @L@[@@U 000056 74 13 13 00 0 000000 1090. XY )@@G@@ LMJ X11,RINF$ . READ INFOR@M@[@@ 000057 74 04 00 0XZ )@@G@@0 0 000312 1100. J BADENT . NO IYA )@@G@@NFOR RETURN @M@[@@ 1110. . YB )@@G@@. . . . SLJ TON$ . DEBUGGING ONLY @E@[@@ 000060YC )@@G@@ 44 00 13 00 0 000130 1120. (C@@@@ TEP OPTS,(YD )@@G@@1*/('Z'-'F')) . FOREVER HOLD? @P@[@@ 000061 74 04 00 00 0 000140 YE )@@G@@ 1130. J NOINFOR . YES, DON'T BOTHEYF )@@G@@R WITH ELT FIELD @M@[@@ 000062 10 16 00 00 0 010106 1140. YG )@@G@@ L,U A0,010106 . ELEMENT NAME? @K@[@@U YH )@@G@@000063 74 13 13 00 0 000000 1150. LMJ X11,SIYI )@@G@@NF$ . @M@[@@ 000064 74 04 00 00 0 000066 1160. YJ )@@G@@ J $+2 . NO FIND RETURN @M@[@@ YK )@@G@@000065 74 04 00 00 0 000073 1170. J GOTIMEYL )@@G@@ . TIME SPECIFIED @M@[@@U 000066 72 11 00 00 0 000000 YM )@@G@@ 1180. ER TIME$ . GET CURRENT TIMEYN )@@G@@@O@[@@ 000067 14 00 00 00 0 000125 1190. A YO )@@G@@ A0,DEFAULTM . ADD IN DEFAULT HOLD TIME @M@[@@ 000070YP )@@G@@ 55 00 00 00 0 000131 1200. TG A0,(1000*60*YQ )@@G@@60*24) . PAST MIDNITE? @O@[@@ 000071 10 00 00 00 0 000131 12YR )@@G@@10. L A0,(1000*60*60*24) . YES, USE THIS FOR ENDYS )@@G@@ TIME @N@[@@ 000072 74 04 00 00 0 000137 1220. YT )@@G@@ J SETTIME . BYPASS CONVERSION @F@[@@ YU )@@G@@ 1230. GOTIME . @A@[@@ 000073YV )@@G@@ 71 13 06 00 0 000014 (G@@@@ 1240. DL A6,A0 YW )@@G@@ . SAVE ELT SPEC @N@[@@ 000074 71 13 01 00 0 000022 YX )@@G@@ 1250. DL A1,A6 . PUT TIME IN A1 &YY )@@G@@ A2 @L@[@@ 000075 73 02 03 00 0 000044 1260. YZ )@@G@@ SSL A3,36 . CLEAR A3 @N@[@@ 000076 74 13 13 0ZA )@@G@@0 0 000275 1270. LMJ X11,GETCHR . GET ZB )@@G@@TENS OF HOURS @L@[@@ 000077 55 16 00 00 0 000003 1280. ZC )@@G@@ TG,U A0,3 . DIGIT > 2?@M@[@@ 000100ZD )@@G@@ 74 04 00 00 0 000312 1290. J BADENT ZE )@@G@@ . YES, REJECT @M@[@@ 000101 14 00 03 00 0 000014 13ZF )@@G@@00. A A3,A0 . ADD TO HOLD @N@[@@ZG )@@G@@ 000102 31 16 03 00 0 000012 1310. MSI,U ZH )@@G@@A3,10 . MAKE ROOM FOR UNITS @N@[@@ 000103 74 13 13 0ZI )@@G@@0 0 000275 1320. LMJ X11,GETCHR . GET ZJ )@@G@@UITS OF HOURS @L@[@@ 000104 55 16 00 00 0 000012 1330. ZK )@@G@@ TG,U A0,10 . DIGIT > 9?@M@[@@ 000105ZL )@@G@@ 74 04 00 00 0 000312 1340. J BADENT ZM )@@G@@ . YES, REJECT @M@[@@ 000106 14 00 03 00 0 000014 13ZN )@@G@@50. A A3,A0 . ADD TO HOLD @@@[@@ZO )@@G@@(M@@@@ 000107 55 16 03 00 0 000030 1360. TG,UZP )@@G@@ A3,24 . HOURS > 24? @M@[@@ 000110 74 04 00 0ZQ )@@G@@0 0 000312 1370. J BADENT . YES,ZR )@@G@@ REJECT @M@[@@ 000111 31 16 03 00 0 000006 1380. ZS )@@G@@ MSI,U A3,6 . CONVERT TO HOURS@N@[@@ 000112ZT )@@G@@ 74 13 13 00 0 000275 1390. LMJ X11,GETCHR ZU )@@G@@ . GET TENS OF MINUTES @L@[@@ 000113 55 16 00 00 0 000006 ZV )@@G@@ 1400. TG,U A0,6 . DIGIT > 5?@M@[@@ZW )@@G@@ 000114 74 04 00 00 0 000312 1410. J ZX )@@G@@BADENT . YES, REJECT @M@[@@ 000115 14 00 03 00 0 00ZY )@@G@@0014 1420. A A3,A0 . ADD TO HOLZZ )@@G@@D @O@[@@ 000116 31 16 03 00 0 000012 1430. AA )@@G@@ MSI,U A3,10 . MAKE ROOM FOR NEXT DIGIT @N@[@@ AB )@@G@@000117 74 13 13 00 0 000275 1440. LMJ X11,GEAC )@@G@@TCHR . GET UNITS OF MINUTES @L@[@@ 000120 55 16 00 00 0 00AD )@@G@@0012 1450. TG,U A0,10 . DIGIT > 9?AE )@@G@@@M@[@@ 000121 74 04 00 00 0 000312 1460. J AF )@@G@@ BADENT . YES, REJECT @G@[@@ 000122 14 00 03 0AG )@@G@@0 0 000014 1470. A (A@@@@A3,A0 AH )@@G@@. ADD TO HOLD @N@[@@ 000123 31 16 03 00 0 000006 1480. AI )@@G@@ MSI,U A3,6 . CONVERT TO MINUTES @N@[@@AJ )@@G@@ 000124 74 13 13 00 0 000275 1490. LMJ AK )@@G@@X11,GETCHR . GET TENS OF SECONDS @L@[@@ 000125 55 16 00 0AL )@@G@@0 0 000006 1500. TG,U A0,6 . DIGIAM )@@G@@T > 5?@M@[@@ 000126 74 04 00 00 0 000312 1510. AN )@@G@@ J BADENT . YES, REJECT @M@[@@ 000127 14 0AO )@@G@@0 03 00 0 000014 1520. A A3,A0 AP )@@G@@. ADD TO HOLD @N@[@@ 000130 31 16 03 00 0 000012 1530. AQ )@@G@@ MSI,U A3,10 . MAKE ROOM FOR UNITS @N@[@@AR )@@G@@ 000131 74 13 13 00 0 000275 1540. LMJ AS )@@G@@X11,GETCHR . GET UNITS OF SECONDS @L@[@@ 000132 55 16 00 0AT )@@G@@0 0 000012 1550. TG,U A0,10 . DIGIAU )@@G@@T > 9?@M@[@@ 000133 74 04 00 00 0 000312 1560. AV )@@G@@ J BADENT . YES, REJECT @M@[@@ 000134 14 0AW )@@G@@0 03 00 0 000014 1570. A A3,A0 AX )@@G@@. ADD TO HOLD @M@[@@ 000135 31 16 03 00 0 001750 1580. AY )@@G@@ MSI,U A3,1000 . CONVERT TO MS @ @[@@ AZ )@@G@@000136 10 00 00 00 0 00(H@@@@0017 1590. L BA )@@G@@A0,A3 . PUT INTO A0 @F@[@@ BB )@@G@@ 1600. SETTIME . @N@[@@ 000137 01 00 00 00 0 00BC )@@G@@0110 1610. S A0,ENDTIME . SAVE END-HBD )@@G@@OLD TIME @F@[@@ 1620. NOBE )@@G@@INFOR . @N@[@@ 000140 52 16 04 00 0 000004 1630. BF )@@G@@ TE,U A4,4 . IS THIS A DEMAND RUN? @N@[@@U BG )@@G@@000141 72 11 00 00 0 000000 1640. ER EXIT$ BH )@@G@@ . NO, HOLD NOT USABLE @M@[@@ 000142 45 00 13 00 0 00BI )@@G@@0132 1650. TOP OPTS,(1*/('Z'-'C')) . SCREEN CBJ )@@G@@LEAR? @M@[@@ 000143 74 04 00 00 0 000204 1660. BK )@@G@@ J NOCLEAR . NO, BYPASS CLEAR@P@[@@ 000144 10 0BL )@@G@@0 00 00 0 000133 1670. L A0,(2,BUFF) BM )@@G@@. GET ORIGINAL & GENERATED RUNID @K@[@@U 000145 72 11 00 00 0 00BN )@@G@@0000 1680. ER PCT$ . @N@[@@BO )@@G@@ 000146 10 16 00 00 0 000002 1690. L,U BP )@@G@@A0,2 . FD RUNID --> ASCII @M@[@@ 000147 10 16 01 0BQ )@@G@@0 0 000057 1700. L,U A1,BUFF . ADDRBR )@@G@@ OF DATA @D@[@@ 000150 10 16 02 00 0 000061 1710. BS )@@G@@(D@@@@ L,U A2,BUFF+2 . ADDR OF RESULT @K@[@@U BT )@@G@@000151 74 13 13 00 0 000000 1720. LMJ X11,FDBU )@@G@@ASC$ . @M@[@@ 000152 10 17 00 00 0 000000 1730. BV )@@G@@ A$EDIT EPKT . ENTER EDIT MODE @A@[@@ BW )@@G@@000153 74 13 13 00 0 000000 @N@[@@ 000154 10 16 00 00 0 000016 BX )@@G@@ 1740. A$EMSG INUSE . BUILD OUTPUT MESBY )@@G@@SAGE @A@[@@ 000155 74 13 13 00 0 000000 @N@[@@ 000156 71 1BZ )@@G@@3 00 00 0 000061 1750. DL A0,BUFF+2 CA )@@G@@. PICK UP ORIG RUNID @O@[@@ 000157 26 16 15 00 0 040040 17CB )@@G@@60. LXM,U A1,040040 . BLANK OUT PART OF GEN CC )@@G@@RUNID @N@[@@ 000160 74 13 13 00 0 000000 1770. CD )@@G@@ A$EFD2 . PUT IN OUTPUT MSG @L@[@@ 000161CE )@@G@@ 10 17 00 00 0 000057 1780. A$ECHAR 057 CF )@@G@@ . PUT IN '/'@A@[@@ 000162 74 13 13 00 0 000000 @N@[@@ CG )@@G@@000163 71 13 00 00 0 000062 1790. DL A0,BUFCH )@@G@@F+3 . PICK UP GEN RUNID @N@[@@ 000164 73 13 00 00 0 00CI )@@G@@0022 1800. LDSL A0,18 . SHIFT TO UCJ )@@G@@PPER PART @L@[@@ 000165 26 16 15 00 0 040040 1810. CK )@@G@@ LXM,U A1,040040 . SPACE OUT (]@@@@GARBAGE @M@[@@CL )@@G@@ 000166 74 13 13 00 0 000000 1820. A$EFD2 CM )@@G@@ . PUT IN OUTPUT @N@[@@ 000167 10 17 00 00 0 00CN )@@G@@0116 1830. A$ECOL 78 . FIX RIGHT CO )@@G@@SIDE OF BOX @A@[@@ 000170 74 13 13 00 0 000000 @O@[@@ 000171CP )@@G@@ 10 16 00 00 0 000037 1840. A$EMSG INUSE2 CQ )@@G@@ . BUILD REMAINDER OF OUTPUT @A@[@@ 000172 74 13 13 00 0 00CR )@@G@@0000 @M@[@@ 000173 74 13 13 00 0 000000 1850. CS )@@G@@ A$EDITX . LEAVE EDIT MODE @N@[@@ 000174 10 0CT )@@G@@0 00 00 0 000134 1860. A$PRTCN (LESCO,ESCO) CU )@@G@@. GET CONTROL OF OUTPUT @A@[@@U 000175 72 11 00 00 0 000000 @M@[@@CV )@@G@@ 000176 10 00 00 00 0 000135 1870. A$PRINT CW )@@G@@(LCLEAR,CLEAR) . CLEAR SCREEN @A@[@@U 000177 72 11 00 00 0 00CX )@@G@@0000 @M@[@@ 000200 10 00 00 00 0 000136 1880. CY )@@G@@ A$PRINT (LPL,PL) . PRINT MESSAGE @A@[@@U 000201 72 1CZ )@@G@@1 00 00 0 000000 @O@[@@ 000202 10 00 00 00 0 000137 1890. DA )@@G@@ A$PRTCN (LEND,END) . CURSOR CONTROL TO SYMBIONT DB )@@G@@@A@[@@U 000203 72 11 00 00 0 000000 @M@[@@U 000204 74 13 13 0DC )@@G@@0 0 000000 1900. NOCLEAR LMJ X11,IDONLY$ . PRINDD )@@G@@T ID LINE @[@[@@ (L@@@@000205 44 00 13 00 0 000130 1910. DE )@@G@@ TEP OPTS,(1*/('Z'-'F')) . FOREVER WAIT? @K@[@@ DF )@@G@@000206 74 04 00 00 0 000221 1920. J QUEST DG )@@G@@ . YES @M@[@@ 000207 10 00 01 00 0 000110 1930. DH )@@G@@ L A1,ENDTIME . PICK UP END TIME@L@[@@ DI )@@G@@000210 73 02 00 00 0 000044 1940. SSL A0,36 DJ )@@G@@ . CLEAR A0 @M@[@@ 000211 34 16 00 00 0 001750 19DK )@@G@@50. DI,U A0,1000 . -> TDATE FORMAT @N@[@@DL )@@G@@ 000212 01 00 00 00 0 000122 1960. S DM )@@G@@A0,TDATE . SAVE IT IN TDATE FMT @O@[@@ 000213 10 17 00 0DN )@@G@@0 0 000114 1970. E$DIT EPKT2 . PUT DO )@@G@@UNTIL TIME IN ID LINE @A@[@@ 000214 74 13 13 00 0 000000 @K@[@@DP )@@G@@ 000215 10 00 00 00 0 000122 1980. E$TIME DQ )@@G@@TDATE . @A@[@@ 000216 74 13 13 00 0 000000 @K@[@@DR )@@G@@ 000217 74 13 13 00 0 000000 1990. E$DITX DS )@@G@@. TERMINATE EDIT MODE @M@[@@ 000220 74 04 00 00 0 000223 20DT )@@G@@00. J PRINTID . GO PRINT ID LINE@F@[@@DU )@@G@@ 2010. QUEST . @G@[@@DV )@@G@@ 000221 71 13 00 00 0 000123 2020. DL DW )@@G@@(A@@@@A0,QMARKS . LOAD LITERAL @M@[@@ 000222 71 12 00 0DX )@@G@@0 0 000105 2030. DS A0,UNTIL . PUT DY )@@G@@IN PRINTLINE@K@[@@ 000223 10 00 00 00 0 000140 2040. PRDZ )@@G@@INTID P$RINT (LIDBUFF,IDBUFF) . @A@[@@U 000224 72 11 00 0EA )@@G@@0 0 000000 @N@[@@ 000225 10 16 00 00 0 000001 2050. EB )@@G@@ L,U A0,1 . SET FLAG FOR READ @O@[@@ EC )@@G@@000226 01 00 00 00 0 000075 2060. S A0,CELED )@@G@@L . WAIT FOR READ TO RELEASE ME @N@[@@ 000227 10 16 00 0EE )@@G@@0 0 000315 2070. L,U A0,READ . FORKEF )@@G@@ OFF READ ROUTINE @K@[@@U 000230 72 11 00 00 0 000000 2080. EG )@@G@@ ER FORK$ . @F@[@@ EH )@@G@@ 2090. TIME . @M@[@@U 000231 72 1EI )@@G@@1 00 00 0 000000 2100. ER TIME$ EJ )@@G@@. GET DATE & TIME @N@[@@ 000232 14 00 00 00 0 000126 2110. EK )@@G@@ A A0,RTTIME . ADD IN RETRANSMIT TIME@M@[@@EL )@@G@@ 000233 55 00 00 00 0 000131 2120. TG EM )@@G@@A0,(1000*60*60*24) . PAST MIDNITE? @N@[@@ 000234 15 16 00 00 0 00EN )@@G@@0131 2130. AN,U A0,(1000*60*60*24) . YES, ADJUEO )@@G@@ST FOR IT @ @[@@ 000235 01 00 00 00 0 00(I@@@@0107 2140. EP )@@G@@ S A0,LASTIME . SAVE RETRANSMIT TIME @O@[@@EQ )@@G@@ 000236 10 16 01 00 0 017500 2150. WAIT L,U ER )@@G@@A1,WTTIME . WAIT FOR N MILLISECONDS @K@[@@U 000237 72 1ES )@@G@@1 00 00 0 000000 2160. ER TWAIT$ ET )@@G@@. @N@[@@ 000240 51 00 00 00 0 000075 2170. EU )@@G@@ TNZ CELL . HAS CELL BEEN CLEARED?@N@[@@U 000241EV )@@G@@ 72 11 00 00 0 000000 2180. ER EXIT$ EW )@@G@@ . YES, THATS ALL FOLKS @O@[@@U 000242 72 11 00 00 0 000000 EX )@@G@@ 2190. ER TIME$ . GET CURRENT DATEEY )@@G@@ & TIME @M@[@@ 000243 44 00 13 00 0 000130 2200. EZ )@@G@@ TEP OPTS,(1*/('Z'-'F')) . WAIT FOREVER? @O@[@@ 000244FA )@@G@@ 74 04 00 00 0 000247 2210. J FOREVER FB )@@G@@ . YES, BYPASS ENDTIME CHECK @M@[@@ 000245 55 00 00 00 0 00FC )@@G@@0110 2220. TG A0,ENDTIME . TIME TO GIFD )@@G@@VEUP? @N@[@@ 000246 74 04 00 00 0 000256 2230. FE )@@G@@ J THATSALL . YES, TERMINATE PROGRAM@F@[@@ FF )@@G@@ 2240. FOREVER . @M@[@@ 000247FG )@@G@@ 54 00 00 00 0 000107 2250. TLE A0,LASTIME FH )@@G@@ . NEED TO TRANSMIT([@@@@? @M@[@@ 000250 74 04 00 00 0 00FI )@@G@@0236 2260. J WAIT . NO, DO IT FJ )@@G@@AGAIN @N@[@@ 000251 10 00 00 00 0 000134 2270. FK )@@G@@ A$PRTCN (LESCO,ESCO) . GET CONTROL OUTPUT @A@[@@U 000252FL )@@G@@ 72 11 00 00 0 000000 @N@[@@ 000253 10 00 00 00 0 000141 22FM )@@G@@80. A$PRINT (LSEND,SEND) . SEND TRANSMIT REQUEST FN )@@G@@@A@[@@U 000254 72 11 00 00 0 000000 @M@[@@ 000255 74 04 00 0FO )@@G@@0 0 000231 2290. J TIME . GO DFP )@@G@@O IT AGAIN @I@[@@ 2300. THFQ )@@G@@ATSALL . END OF PROCESSING @O@[@@ 000256 44 00 13 00 0 000142 FR )@@G@@ 2310. TEP OPTS,(1*/('Z'-'N')) . NORMAL EXIT REFS )@@G@@QUESTED? @M@[@@ 000257 74 04 00 00 0 000270 2320. FT )@@G@@ J NEXIT . YES, GO DO IT @N@[@@ 000260FU )@@G@@ 10 00 00 00 0 000143 2330. L A0,(LTERM,TEFV )@@G@@RM) . ASSUME TERM REQUEST @P@[@@ 000261 45 00 13 00 0 000144 FW )@@G@@ 2340. TOP OPTS,(1*/('Z'-'E')) . NORMAL TERMINAFX )@@G@@TION REQUEST? @N@[@@U 000262 72 11 00 00 0 000000 2350. FY )@@G@@ ER APRTCN$ . NO, THEN TERM HIM @G@[@@FZ )@@G@@ 000263 10 00 00 00 0 000134 2360. A$PRTCN GA )@@G@@(B@@@@(LESCO,ESCO) . GIMME OUTPUT CONTROL @A@[@@U 000264 72 1GB )@@G@@1 00 00 0 000000 @N@[@@ 000265 10 00 00 00 0 000145 2370. GC )@@G@@ A$PRINT (PF 1,LFIN,FIN) . SEND @FIN & RETRANSMIT@A@[@@GD )@@G@@U 000266 72 11 00 00 0 000000 @L@[@@U 000267 72 11 00 00 0 00GE )@@G@@0000 2380. ER EXIT$ . I'M DONE GF )@@G@@@I@[@@ 2390. NEXIT . NOGG )@@G@@RMAL EXIT ROUTINE @N@[@@ 000270 10 00 00 00 0 000134 2400. GH )@@G@@ A$PRTCN (LESCO,ESCO) . GET OUTPUT CONTROL @A@[@@GI )@@G@@U 000271 72 11 00 00 0 000000 @N@[@@ 000272 10 00 00 00 0 00GJ )@@G@@0146 2410. A$PRINT (PF 1,LEOFM,EOFM) . SEND @EOF GK )@@G@@AND TRANSMIT@A@[@@U 000273 72 11 00 00 0 000000 @L@[@@U 000274GL )@@G@@ 72 11 00 00 0 000000 2420. ER EXIT$ GM )@@G@@ . ALL DONE @M@[@@ 2430. GN )@@G@@ GETCHR . CONVERT SINGLE CHAR LJ IN A1 TO BINARY IN A0@L@[@@ GO )@@G@@000275 73 02 00 00 0 000044 2440. SSL A0,36 GP )@@G@@ . CLEAR A0 @M@[@@ 000276 73 13 00 00 0 000006 24GQ )@@G@@50. LDSL A0,6 . PICK OFF 1 CHAR @L@[@@GR )@@G@@ 000277 73 02 01 00 0 000006 2460. SSL GS )@@G@@A1,6 . RESTORE A1@]@[@@ 000300(L@@@@ 73 13 01 00 0 00GT )@@G@@0006 2470. LDSL A1,6 . PULL IN CHGU )@@G@@AR FROM A2 @M@[@@ 000301 53 16 00 00 0 000005 2480. GV )@@G@@ TNE,U A0,05 . IS THIS A SPACE?@N@[@@ 000302GW )@@G@@ 10 16 00 00 0 000060 2490. L,U A0,060 GX )@@G@@ . YES, REPLACE WITH ZERO@M@[@@ 000303 53 16 00 00 0 000053 GY )@@G@@ 2500. TNE,U A0,':' . IS IT A COLON? GZ )@@G@@@M@[@@ 000304 74 04 00 00 0 000275 2510. J HA )@@G@@ GETCHR . YES, BYPASS IT @N@[@@ 000305 15 16 00 0HB )@@G@@0 0 000060 2520. AN,U A0,060 . CONVHC )@@G@@ERT TO BINARY @N@[@@ 000306 74 03 00 00 0 000312 2530. HD )@@G@@ JN A0,BADENT . NOT NUMERIC IF EGATIVE@N@[@@HE )@@G@@ 000307 55 16 00 00 0 000012 2540. TG,U HF )@@G@@A0,10 . NOT NUMERIC IF > 9 @K@[@@ 000310 74 04 00 0HG )@@G@@0 0 000312 2550. J BADENT . HH )@@G@@@L@[@@ 000311 74 04 00 13 0 000000 2560. J HI )@@G@@ ,X11 . RETURN @L@[@@ HJ )@@G@@ 2570. BADENT . NON-NUMERIC OR OUT OF RANGE ENTRY HK )@@G@@@J@[@@ 000312 10 00 00 00 0 000147 2580. P$RIHL )@@G@@NT (PF 1,LERR,ERR) (#@@@@. PRINT ERROR MSG @A@[@@U 000313 72 1HM )@@G@@1 00 00 0 000000 @L@[@@U 000314 72 11 00 00 0 000000 2590. HN )@@G@@ ER ERR$ . ERROR OFF @L@[@@ 000315HO )@@G@@ 10 00 00 00 0 000150 2600. READ R$EAD (EOF,BUFF) HP )@@G@@ . READ IMAGE@A@[@@U 000316 72 11 00 00 0 000000 @L@[@@ HQ )@@G@@000317 74 04 00 00 0 000315 2610. J READ HR )@@G@@ . NOT @CARD @O@[@@ 000320 05 00 00 00 0 000075 26HS )@@G@@20. EOF SZ CELL . CLEAR FLAG FOR MAIN ACHT )@@G@@TIVITY@N@[@@ 000321 10 00 00 00 0 000137 2630. HU )@@G@@ A$PRTCN (LEND,END) . RELEASE ALL CONTROL @A@[@@U 000322HV )@@G@@ 72 11 00 00 0 000000 @N@[@@ 000323 10 00 00 00 0 000151 26HW )@@G@@40. A$PRINT (PF 1,LSPACE,SPACE) . PRINT BLANK LINE HX )@@G@@@A@[@@U 000324 72 11 00 00 0 000000 @N@[@@ HY )@@G@@ 2650. PF FORM 12,6,18 . FOR HZ )@@G@@PRINT COMMANDS @K@[@@U 000325 72 11 00 00 0 000000 2660. IA )@@G@@ ER EXIT$ . @K@[@@ 0000IB )@@G@@53 2670. END START IC )@@G@@. @ @[@@ 0 000127 000016 000057 @ @[@@ 000130 0000040000ID )@@G@@00 @ @[@@ 000131 000511456000 @^@[@@ 000132 0000400000IE )@@G@@([@@@@00 @ @[@@ 000133 000002 000057 @ @[@@ 000134 0000IF )@@G@@03 000000 @ @[@@ 000135 000001 000015 @ @[@@ 000136 0000IG )@@G@@50 000007 @ @[@@ 000137 000002 000012 @ @[@@ 000140 0000IH )@@G@@11 000076 @ @[@@ 000141 000001 000014 @ @[@@ 000142 0000II )@@G@@00010000 @ @[@@ 000143 000002 000003 @ @[@@ 000144 0000IJ )@@G@@10000000 @ @[@@ 000145 0001 02 000005 @ @[@@ 000146 0001IK )@@G@@ 02 000007 @ @[@@ 000147 0001 03 000111 @ @[@@ 000150 0003IL )@@G@@20 000057 @ @[@@ 000151 0001 01 000011 @@@[@@@D@[@@LOCATION COUIM )@@G@@NTERS: $(0) 000152 $(1) 000326 @@@[@@@O@[@@EXTERNAL REFERENCEIN )@@G@@S: AECHAR$ AECOL$ AEDITX$ AEDIT$ AEFD2$ IO )@@G@@ AEMSG$ APRINT$ @O@[@@ APRTCN$ EDITX$ IP )@@G@@EDIT$ ERR$ ETIME$ EXIT$ FDASC$ IQ )@@G@@ FORK$ @O@[@@ IDONLY$ OPT$ PCT$ PRIIR )@@G@@NT$ READ$ RINF$ SINF$ TIME$ @]@[@@IS )@@G@@ TWAIT$@@@[@@@B@[@@ENTRY POINTS: IDBUFF $(0) +000076 @F@]@@IT )@@G@@END MASM - LINES: 1067 TIME: 9.841 STORAGE: 5164/4/1/8236 +@@@@[IU )@@G@@@B__@[C[HCDK -N^@)^@) -NFDN^)%D[JD-^ 1CD9GC))^@)+@@@@@@A@[@@MAP 29R1 R1-IV )@@G@@EP1 05/22/80 13:51:57 @A@[@@ 1. IN SYS$*HOLD.HOLD@^@[@@IW )@@G@@ 2. END @@@[@@@]@[@@AFCM STATUS ( @@@@OF OUTPUT ELEMENT=IX )@@G@@UNKNOWN @@@]@@@F@[@@ADDRESS LIMITS 001000 003640 1441 IBANK IY )@@G@@WORDS DECIMAL @F@[@@ 040000 040205 134 DBANK IZ )@@G@@WORDS DECIMAL @^@[@@STARTING ADDRESS 003366@@@]@@@@@]@@@G@[@@ JA )@@G@@ SEGMENT $MAIN$ 001000 003640 040000 040205 @@@[@@JB )@@G@@@L@[@@TABLE$/SYS74 $(1) 001000 001177 JC )@@G@@ 07 AUG 78 09:11:06 @L@[@@FDASC$/SYS74 $(1) JD )@@G@@ 001200 001374 07 AUG 78 09:04:51 JE )@@G@@@L@[@@INFOR$/SYS73 $(1) 001375 002000 $(2) 040000 0JF )@@G@@40033 24 SEP 76 21:30:33 @L@[@@SYSLIB$ID/SYS74R1 JG )@@G@@ 20 DEC 78 17:25:11 JH )@@G@@@L@[@@IDONLY$/SYS74 $(1) 002001 002117 JI )@@G@@ 07 AUG 78 09:05:44 @L@[@@EDIT$T/SYS72 $(1) JJ )@@G@@ 002120 002314 08 AUG 75 19:40:12 JK )@@G@@@L@[@@AEDIT$/SYS74 $(1) 002315 002716 JL )@@G@@ 07 AUG 78 09:03:12 @L@[@@EDIT$/SYS74 $(1) JM )@@G@@ 002717 003312 07 AUG 78 09:04:26 JN )@@G@@@L@[@@ERU$/SYS74R1 JO )@@G@@ 28 FEB 80 19:41:36 @D@[@@HOLD $(1) JP )@@G@@ 003313 003640 $(0)(C@@@@ 040034 040205 22 MAY 80 13:JQ )@@G@@51:50 @#@[@@SYS$*RLIB$. LEVEL @^@[@@END MAP. ERRORS : NONE @[@#@@@EOF JR )@@G@@@ @[@@@EOF IGNORED - IN CONTROL MODE@[__@@@BK2,E_@____]SND<[UTO]TJCSNVD JS )@@G@@SDM]UVLE'L'0Q]0Q@IRKN]SN]SN]V[SDASKGS @@%@@R)@@WG:TEKX$ @@:@@@@@@WI+IU )@@G@@VERSION @@:@@@@@@WJ+VRSION @@:@@@@@@WJ2PAC @@:@@@@@@WJ"IV )@@G@@GSPROC @@:@@@@@@WK(IORPROC @@:@@@@@@WLIDUMP @@:@@@@@@WN9IW )@@G@@DASKGS @@:@@@@@@WO_ . $P SET SS IDLE@B@@@@-2217 IO 31.0IX )@@G@@ TPC @B@@@@ TEP,U A12,IQNMSG . @B@@@@IY )@@G@@ AN,U A12,IQNMSG . @F@@@@ S A12,IZ )@@G@@IQFLAG,X8 . CLEAR NO MESSAGE FLAG @B@@@@-2218 IO 31.0JA )@@G@@ TPC @E@@@@ JZ A3,IOABSF . $T ABSOLJB )@@G@@UTE I/O ? @E@@@@ . $A NO YES,IOABJC )@@G@@SF @]@@@@-2219,2223 @^@@@@-2290 IO 31.230 RBK @B@@@@ TOJD )@@G@@N . @F@@@@ LMJ X8,IOPOINT JE )@@G@@ . POINT TO CORRECT USER @B@@@@ TOFF JF )@@G@@ . @B@@@@-2291 IO 31.231 RBK @[@@@@. @G@@@@JG )@@G@@. THIS ROUTINE LOGS TYPE 6 LOG ENTRIES AND IS CALLED BY IONORM OR IOABN JH )@@G@@@E@@@@. ENTRY A1 = NO. OF RETRIES @C@@@@JI )@@G@@. LMJ X11,LOGIO @C@@@@. JJ )@@G@@ RETURNS FROM LOGGER ON X11 @[@@@@. @]@@@@LOGIO . @F@@@@ JK )@@G@@ TNZ STLOG,X10 . $T IS THERE A LOG BUFFER @E@@@@ JL )@@G@@ J 0,X11 . $A NO,RETURN YES @E@@@@ L JM )@@G@@ A2,STEQT,X10 . A2 = EQUIPMENT TYPE @E@@@@ JZ JN )@@G@@ A2,0,X11 . $J RETURN FOR SPU @D@@@@ TG,U A2,DJO )@@G@@ISCLOW . $T DISC ? @E@@@@ TG,U A2,DISCUP JP )@@G@@ . $A YES,RETURN NO @B@@@@ J $+2 . JQ )@@G@@@B@@@@ J 0,X11 . @E@@@@ TEP,U JR )@@G@@ A12,IQADH . $T ADH REQUEST ? @E@@@@ J 0,X1JS )@@G@@1 . $A NO YES,RETURN @E@@@@ SZ STERR,X10 JT )@@G@@ . CLEAR FIRST ERROR @F@@@@ L A0,STLOG,X10 JU )@@G@@ . A0 = LOG BUFFER ADDRESS @F@@@@ SZ STLOG,X10 JV )@@G@@ . CLEAR LOG BUFFER ADDRESS @E@@@@ S A1,ILGRTY,A0 JW )@@G@@ . $P SAVE RETRY COUNT @D@@@@ J LOGGER . $JJX )@@G@@ LOGGER @B@@@@-2312 IO 31.0 PML @E@@@@ JY )@@G@@ L X8,STIQI,X10 . GET ADDR OF IQ ITEM @D@@@@ L JZ )@@G@@ A12,STFLAG,X10 . GET FLAGS @B@@@@-2317 IO 31.0KA )@@G@@ PML @E@@@@ TZ EX8 . $T IQITEKB )@@G@@M ZERO ? @F@@@@ S A12,IQFLAG,X8 . $P PUT FLAGS IKC )@@G@@N IQITEM @]@@@@-2325 IO@G@@@@ S X11,IQUSTI,X8 KD )@@G@@ . SAVE UNIT STATUS ITEM ADDRESS @G@@@@ LN A1,STERR,XKE )@@G@@10 . A1 = NEGATIVE NO. OF RETRIES @D@@@@ LMJ X11,KF )@@G@@LOGIO . $W LOG ERROR @B@@@@-2326,2326 IO 31.0 KG )@@G@@ TPC @A@@@@-2327,2327 IO 31.230 RBK @B@@@@-2328,2328 IO KH )@@G@@ 31.0 TPC @^@@@@-2331,2331 IO @G@@@@IOABLM LMKI )@@G@@J X11,IOLMADJ . $W IOLMADJ- ADJUST LOAD LEVEL @B@@@@-2345 KJ )@@G@@ IO 31.0 TPC @G@@@@ L A0,IQUSTI,KK )@@G@@X8 . A0=UNIT STATUS ITEM ADDRESS @G@@@@ TOP,U A12,KL )@@G@@IQNMSG . $T DOES USER WANT A MESSAGE ? @D@@@@ J KM )@@G@@ IOMSGY . $A NO YES,IOMSGY@B@@@@ L,U R9,012 KN )@@G@@ . @H@@@@ S R9,IQSTAT,X8 . $P RETURN 012 KO )@@G@@STATUS TO REQUESTOR @F@@@@ LMJ X8,CLHOLD . $WKP )@@G@@ CLHOLD-SET UNIT IDLE @B@@@@ TON . KQ )@@G@@@D@@@@ LMJ X8,IOPOINT . POINT TO USER @B@@@@ KR )@@G@@ TOFF . @D@@@@ J IOUPDATE KS )@@G@@ . $J IOUPDATE @B@@@@IOMSGY . . KT )@@G@@@B@@@@ TS IOFITS . @E@@@@ L,H1 KU )@@G@@ A1,0,A0 . A1=UNIT STATUS BITS @B@@@@ OR,U A1,UKV )@@G@@STIMP . @E@@@@ S,H1 A2,0,A0 . $P SET UKW )@@G@@NIT IMPASS @B@@@@ CTS IOFITS . @]@@@@-2357 KX )@@G@@ IO@#@@@@ EON @ @@@@ TNZ IQAACW,X8 @ @@@@KY )@@G@@ TEP,U A12,IQSG @ @@@@ J IO8ABS @A@@@@KZ )@@G@@ L A5,IQBDIA,X8 @ @@@@ LMJ X8,GETBDW LA )@@G@@@A@@@@ L,H2 A5,STMACW,X10 @ @@@@ AN A5,ELB )@@G@@A6 @A@@@@ S,H2 A5,STMACW,X10 @]@@@@IO8ABS . @#@@@@LC )@@G@@ EOFF @B@@@@-2360 IO 31.0 TPC @G@@@@LD )@@G@@ S X10,IQSST,A0 . SAVE SUBSYSTEM TABLE ADDRESS LE )@@G@@@B@@@@-2377 IO 31.0 PML @G@@@@ L LF )@@G@@ A1,STDBL,X10 . $T DOUBLE INTERRUPTING DEVICE? @D@@@@ JNLG )@@G@@B A1,ABNDBL . $A YES NO,ABNDBL@B@@@@-2387 IO 31.0LH )@@G@@ PML @]@@@@ABNDBL . @B@@@@-2392 IO 31.0 LI )@@G@@ AEO @E@@@@ L A0,IQUNIT,X8 . GET CORRECT UNLJ )@@G@@IT @I@@@@ LMJ X8,DROPSWAP . $W DROPSWAP-DROP SWALK )@@G@@PLOCK ONE OR ALL UNI @B@@@@-2407 IO 31.0 AEO LL )@@G@@@H@@@@ LMJ X11,CKSSIMP . $W CKSSIMP-ON IMPASS DROP LM )@@G@@SWAPLOCKS @B@@@@-2422,2424 IO @^@@@@-2426,LN )@@G@@2426 IO @G@@@@ SZ,H2 STMPK+MSAH,X10 . $P CLEARLO )@@G@@ PRE-SEEK PACKET POINTER@B@@@@-2427,2427 IO LP )@@G@@@B@@@@-2453,2457 IO 31.0 TPC @G@@@@ L,U LQ )@@G@@ A0,0,X11 . A0=UNIT STATUS ITEM ADDRESS @F@@@@ LMLR )@@G@@J X8,CLHOLD . $W CLHOLD-SET UNIT IDLE @B@@@@-2462,2463 LS )@@G@@IO 31.0 TPC @F@@@@ S R15,IQTYPE,A0 LT )@@G@@ . SAY TO TAKE ITEM TO IOTERM@H@@@@ LMJ A2,QEXITLIST LU )@@G@@ . $W QEXITLIST-PUT ITEM ON THE EXITLIST @^@@@@-2480,2482 IO LV )@@G@@@B@@@@-2484,2510 IO 31.0 AEO @A@@@@-2516,2516 IO LW )@@G@@ 31.169 TPC @B@@@@ ON NIOC+NCSP . @A@@@@LX )@@G@@-2519,2519 IO 31.169 TPC @B@@@@ OFF NIOC+NCSP LY )@@G@@ . @^@@@@-2528,2529 IO 31.205 @H@@@@ TZ,S6 NSICLZ )@@G@@NT,X2 . $T HARDWARE FAULT OR EXPOOL TIGHT ? @E@@@@ PAMA )@@G@@IJ HWFEXT . $A NO YES,HWFEXT @^@@@@-2534 IO 31.18MB )@@G@@3 @]@@@@HWFEXT . @E@@@@ L A7,NSICNT,X2 . A7MC )@@G@@=INTERRUPTS QUEUED@E@@@@ JNB A7,NOEXPACT .$T EXPOOLMD )@@G@@ TIGHT ? @E@@@@ . $A YES NO,NOEME )@@G@@XPACT @B@@@@ AN,U A7,1 . @F@@@@ S,MF )@@G@@S6 A7,NSICNT,X2 . CLEAR EXPOOL TIGHT FLAG @D@@@@ AAMG )@@G@@IJ EXPACT . $J EXPACT @]@@@@NOEXPACT . @B@@@@ MH )@@G@@ TOP,U A7,4 . @B@@@@ TEP,U A7,2 MI )@@G@@ . @I@@@@ XER11 IOE214 . ILLEGAL BITS AMJ )@@G@@RE SET IN S6 OF NSICNT!!!! @B@@@@ ON CAUIPAR=0 MK )@@G@@ . @B@@@@ TEP,U A7,020 . @I@@@@ XEML )@@G@@R11 IOE214 . CAU/IOAU INTERFACE PARITY CODE IS NOT ON MM )@@G@@@B@@@@ OFF CAUIPAR=0 . @B@@@@ ON MN )@@G@@ CAUSTRP=0 . @B@@@@ TEP,U A7,010 . MO )@@G@@@H@@@@ XER11 IOE214 . CAU/STORAGE PARITY CODE ISMP )@@G@@ NOT ON ! @B@@@@ OFF CAUSTRP=0 . @B@@@@ MQ )@@G@@ ON CAUGRSP=0 . @B@@@@ TEP,U A7,040 MR )@@G@@ . @G@@@@ XER11 IOE214 . CAU/GRS PARITYMS )@@G@@ CODE IS NOT ON ! @B@@@@ OFF CAUGRSP=0 . @B@@@@MT )@@G@@ CAUIPON . @H@@@@ TOP,U A7,0MU )@@G@@20 . $T CAU/IOAU INTERFACE PARITY QUEUED ? @E@@@@ J MV )@@G@@ CAIONO . $A YES NO,CAIONO @]@@@@CAIONX . @H@@@@MW )@@G@@ L X8,CAUIOAUINT,X2 . X8=ADDRESS OF QUEUE WORDS FOR THMX )@@G@@IS CAU@B@@@@ LXI,U X8,1 . @F@@@@ TNMY )@@G@@Z,H1 0,X8 . $T INTERFACE A PARITY ? @G@@@@ TZMZ )@@G@@,H1 1,*X8 . $T NOT INTERFACE B PARITY ? @D@@@@ NA )@@G@@ J CAIOYA . $J CAIOYES @B@@@@ AN,U NB )@@G@@ A7,020 . @I@@@@ S,S6 A7,NSICNT,X2 . $PNC )@@G@@ CLEAR CAU/IOAU INTERFACE PARITY FLAG @C@@@@ AAIJ DISPND )@@G@@I . $J DISPI@]@@@@CAIOYA . @F@@@@ L A0,0NE )@@G@@,X8 . A0=INTERFACE QUEUE WORD @F@@@@ SZ,H1 0,X8NF )@@G@@ . CLEAR PARITY OCCURRED FLAG@B@@@@ AAIJ $+1 NG )@@G@@ . @F@@@@ L,U A2,0,X2 . A2=CAU NNH )@@G@@UMBER FOR FLTLOG @I@@@@ FSTART FLTLOG,CAIOFALT . $W FSTARNI )@@G@@T-LOG CAU/IOAU INTERFACE PARITY @D@@@@ PAIJ CAIONX NJ )@@G@@ . $J CAIONXT @]@@@@CAIONO . @B@@@@ CAUIPOFF NK )@@G@@ . @B@@@@ CAURCYON . @D@@@@NL )@@G@@ L,U A0,0,X2 . A0=CAU NUMBER @E@@@@ LXNM )@@G@@I,S6 A0,NSICNT,X2 . UPPER A0=QUEUE FLAGS@E@@@@ SZ,S6 NN )@@G@@ NSICNT,X2 . CLEAR QUEUE FLAGS @B@@@@ AAIJ $+1 NO )@@G@@ . @H@@@@ FSTART FLTLOG,T27LOG . $W FSTARNP )@@G@@T-LOG GRS OR STORAGE PARITY @C@@@@ J DISPI NQ )@@G@@ . $J DISPI@B@@@@ CAURCYOFF . @[@@@@/. NR )@@G@@@C@@@@. THIS SEARCHES THE ISI I/O INTERRUPT QUEUE @[@@@@. @^@@@@NS )@@G@@-2544 IO 31.197 @B@@@@ IORCYON . NT )@@G@@@F@@@@ TZ IOAUFALT-NINTQ,X8 . $T HARDWARE FAULT EI ? NU )@@G@@@E@@@@ J IOHWFL . $A YES,IOHWFL NO @B@@@@NV )@@G@@ IORCYOFF . @B@@@@-2562 IO 31.0NW )@@G@@ TPC @B@@@@9*?@@@O.K@@[O.)@@]G_)@@[8LK@_ZG_0@@[8L@@_AN@0[@DNX )@@G@@/K@[A5@]!DE)C/@__"G@@@@@C/)@@[G@)@@@C[@@@@T.@__.C[)@@@;[)@@[@@@[^[[)DE,RA0DEE$'0@@ NZ )@@G@@8];[@+'^@#KA@]1DE)/K@[@$/K@[@%/K@[@!/K@[@0C@ @@[[@B@@[/K@[@2"/C@@@[@B@@[OA )@@G@@/K@[@2"8 @@[9*A@@@/K@[@29?C@@@9*A@@@O.0@@[O]@DE,O[KDE!O.)@@]8L@[@YN@0[@9OB )@@G@@/K@[A5@];DE)C/@@@[H@@@@@C@)@@@T/)__.C.@__"G[@@@@C[)@@@;[)@@@@@P.K@@]P.)@@[8LK[[R[)DE$[@@@[^[#)DEGC/@@@[G@@DEGT@@DEGON )@@G@@;K@@@[[@@DEJRA0DEE$'0@@ 8];[#I'^@#KA@#+DE)/K@[#N/K@[#S/K@[#Y/K@[#@@@O.K@@]O.)@@[G_)@@[8L@[#^OQ )@@G@@N@0[#,/K@[A5@#?DE)C/@@@[G@@@@@C/)__"G@)@@@C[@@@@T.@__.C[)@@@;[)@@<[[)DE!OR )@@G@@G.)@@]C]@@@@T]@@@@H"@@@[C])DE!T])@@@H")@@][@@DE1H@@@@@G@@DE:C_@@@[G#@@@@OS )@@G@@H#@@@@G#@DE:[[@DE,G[@@@MG[@DE?C#)DE!G_)@@]G#)DE,G#)DE?R[0DE=R]@@@KR[KDE*OT )@@G@@R[)@@G[@)@[^[@)DE,[[)DE0]]@DE\]])DE2[#@DE3[#)DE4RA0DEE$'0@@ 8];[^W'^@#KAOU )@@G@@@#0DE)/K@[^-/K@[^=/K@[^$/K@[^%C@ @@[[@A@@[/K@[^?"/B@@@[@A@@[/K@[^?"8 @@[OV )@@G@@9*C@@@/K@[^?9?B@@@9*C@@@O.0@@]O]@DE0O.K@@[O[)DE18L@[^SC_0@@[R[KDE4R[)DE3OW )@@G@@N[@DE,[#0DEGC_)@@[N[KDE,[#)DEFC@@DEFH@@DEG(@@@@G/K@[ C@@@@@H@@DEQ(@@@@GOX )@@G@@/K@[ # @A@@[/K@[ 9?@DEU9* @@@O[KDE!O[)@@@G_)@@[8LK[^8O[KDE2O[)DE\G_0@@[OY )@@G@@8L@[^5N@0[ J/K@[A5@^EDE)C/@@@[H@@@@@C@)DE(G@)@@@C[@@@@;[@@@PA )@@G@@'^@#KA@^JDE)/K@[ %/K@[ \/K@[ 4/K@[ 'R[KDEJO[KDE:C@C@@[[@ @@[/K@[ _R[)DEJPB )@@G@@O[)DE:"/B@@@[@A@@[/K@[ _C@@DEJ;@@@@C8FK@^[^@@.^[^@[ N[^@[ L[^@@/2[^@[AC[^@[A^[^@[ RPL )@@G@@[^@[ O[^@[#.[^@[#'[^@@"_[^@[[][^@@"H[^@[#2[^@@"C[^@[]_[^@@.K[^@@/0[^@@/\PM )@@G@@[^@[@F[^@@/![^@@;<[^@@. [^@@;-[^@@;$[^@@.F[^@[@_[^@@"D[^@[@;[^@@/5[^@@.EPN )@@G@@[^@@;=[^@@.QC8FK@ [^@[@K[^@@"/[^@@/,[^@@;D[^@@;'[^@[@H[^@@/'[^@@/8[^@@.DPO )@@G@@[^@@_D[^@@;*[^@[@I[^@@;%[^@@_G[^@@;+[^@@.G[^@@_@[^@@;;[^@[@OC8FK@A[^@[#5PP )@@G@@[^@@/.[^@[@/[^@[#0[^@[[@[^@[ A[^@@.#[^@[^^[^@[#3[^@[]I[^@@/6[^@[[E[^@[#9PQ )@@G@@[^@@;6[^@@;5[^@@;,[^@@;?[^@@/?[^@[]7[^@@;C[^@[]P[^@[^#[^@[^@[^@@.A[^@[[HPR )@@G@@[^@[]M[^@[]K[^@@;&C8FK@B[^@@99[^@@'X[^@@9-[^@@'([^@@9![^@@'5[^@@;[[^@@'LPS )@@G@@[^@@' C8FK@C[^@@94[^@@'@[^@@'=[^@@'S[^@@9W[^@@9*[^@@'0[^@@'/[^@@'GC8FK@EPT )@@G@@[^@[AV[^@[^.[^@@9O[^@[]:/K@@85C8FK@[G/@__.C@)DG)G/)__.C[@DG-G.@__.C9:K@GPU )@@G@@G.)__.C]@DG-G"@__"C':K@]G")__.C#@DG+G_@__.C#)DGC#)DG+G_)__"[#)DG&C#)DGZG_)__.[@@DG$[@)DG*[[@DG([[)DG%[]@DG:[])DG?PW )@@G@@[#@DG![#)DG, C@EY[C@FK@S[@@DFN9?)DGA9*)DFJ9!@DGC9(@DFL @@@@@C.)@@[C"@@@[PX )@@G@@H]@@@@(@@@@O @@@@MC"@@@[C])@@@H])DGE(@@@@Q @@@@O+[)@@O/>0[GCC.)__"G[)@@@PY )@@G@@C]@@@@;]@@@C/@__"G@@@@@C@)@@@H@)DGHQE )@@G@@*@@@@I/K@[V\C_)@@[R@KDGIQ@KDGZR@)DGIQ@)DGY[@@@[^[#)DFO9?]@@@"=@DGC(@@@@GQF )@@G@@/K@[VU9?@DGA"?])@@9*[)@@G_)@@[8L@[FOC/@@@[H@@DG4(@@@@G/K@[F>N@0[F=/K@[V8QG )@@G@@@[%DGV9?@DGA9*@@@@9?)DGC9*)@@@C.@__"G[@@@@C_)@@[R@0DGY[[@@[^[#)DFO9?#@@@QH )@@G@@9*@DFJ"=@DGC(@@@@G/K@[V^9?@DFJ"*@@@@9*@@@@94)DFJ9*)DG5/,0[0-@@@DG5@[4DGVQI )@@G@@")@@@@9*@@@@O/0@@]G_)@@[8L@[F,(C@EY[/K@[G C@EY[/K@[VJN@0[GB/K@[V8@[8DGVQJ )@@G@@/,0[BC@@@@@@@@@DGJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF+@@@@@@@@@DF=QK )@@G@@@[9DGVC@@@@@H@@DGF*@@@@G/K@[G(C/@@@[[@@DFQ/,0@>^@@@DGJ@@@DGJ@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF&@@@@@@@@@DF*@[.DGV/K@[H@C@@@@@H@@DGH(@@@@GQM )@@G@@/K@[G6C@@@@@H@@DGG*@@@@G/K@[V\C/@@@[[@@DFNC/)@@#[@)DFQ/K@[H@C/@@@][@@DFQQN )@@G@@C/)__"G@)@@@R[@DGIQ[@DG)[@)@[^9?@DGA9*^)@@8L@[G.C/@__"G@@@@@C@)@@@;@)@@O/K@@]O@)DG8G_)@@[8L@[HXC@@@@@H@@DGG(@@@@GQX )@@G@@/K@[JAC/@@@[C@)@@@H@)DGH*@@@@I @@@@GC_)@@[R@0DG:R[@DG&N[@DG;[@@DG;[#)DFOQY )@@G@@C@@DFO[@#@@[C@@DG;/)@[J]C@@DFO[@^@@[O/0@@[O.@@@[G_)@@[8L@[I;C/@@@[H@@@@@QZ )@@G@@]@@DFRH/@__"C/)__"G@)@@@C[@@@@;[@@@@@@RM )@@G@@9*&)@@9* )@@8LK[L-90)DFJ9*)DFJC[@@@@H[@DGG(@@@@K/K@[MCC[@@@@H[@DGF*@@@@KRN )@@G@@/K@[M[C[@DG';[@@@M'L@DHB[[@@@ C[@DG';[@@@M'L@DHC[[@@@AN[KDG99?A@@@9*@DFDRO )@@G@@9?>@@@9*&)@@9* )@@8LK[L'/K@[MCC@^@@[[@@DFYR[KDFVO[KDG!C@>@@[[@=@@[[@ @@[RP )@@G@@C@@DFWH@@DFS(@@@@G/K@[M7C@@DFW;@@@@@@@9*$)@@9* )@@8LK[MYC@)@@@H@)DGG(@@@@I/K@[M5C@)DGKC@1@@[0@@@@JD@)@@IRS )@@G@@"))DGK9*)DFDC[A@@[[[[@@["))DGK;O)@@S#@)@@I;)"@@@[@6@@[90@DFJ9*@DFJC@@DFSRT )@@G@@;@@@@@@@]@5@@[O.K@@]G_@@@[8LK[NE(C@EY[/K@[O< C@EY[/K@[VJO/K@@[SC )@@G@@O/)@@[O@0DH[O.@@@[G_K@@[8L@[J\R[)DG79?A@@@"=@DGC(@@@@G/K@[V^(@@DFN/K@[PKSD )@@G@@9?@DFJ9*@@@@9?)DFL9*)@@@C[@DH[;[@@@M'L@DH@[[@@@BN[@DG_9?B)@@9*@DFJ"*@@@@SE )@@G@@9*@@@@94)DFJ9*)DHE/,0[0-@@@DHE@^2DGV")@@@@9*@@@@8L@[O9(C@EY[/K@[PD C@EY[SF )@@G@@/K@[VJC@@@@@H@@DGG*@@@@G/K@[PKN@0[PJ/K@[V8@^7DGVC@@@@@"^@@@@/C@[PP*@@@@GSG )@@G@@/K@[V>C@@@@@[@@DF)C@)@@@H@)DGH*@@@@I/K@[PXC@)@@@[@)DF)C/@@@[H@@@@@C/)__"SH )@@G@@G@)DF)C.@__"G[@@@@C[)@@@;[)@@/K@[QI'^@#KA@ ]DGVC@]@@[[@@DFZSL )@@G@@C@)@@@H@)DFSC[@DFS;[@@@<[[@DG'G[@DG%C[)DHET[)DFSG[)DG'G[)DH[G[)DG,C]@DHESM )@@G@@;]@@@M'M@@@M[]@@@#R[@DGIQ[@@@K[@)@[ 9?#)@@9*^)@@8LK[Q+C@@DFT;@@@@C@)DFO[@*@@[G_)@@[8L@[STG )@@G@@C@)DFO[@*@@[G_)@@[8L@[UBC_)@@[R[@DG=N[@DG7[#)DFPC/@__"G@@@@@C@)DHET@)DFPTH )@@G@@G/)@@]G@)DH[G@)DG,[@@DG7[@)DG3C@^@@[[@@DFYH@@DFP(@@@@G/K@[U'C@@DFY;@@@@[^@[HA[^@[JI[^@[P[^@[P$[^@[JM[^@[GJC8FK@NUC )@@G@@[^@[PK[^@[V?[^@[K&[^@[K$[^@[K!C8FK@O[^@[GMC8FK@P[^@[G>C8FK@Q[^@[O/[^@[VDUD )@@G@@[^@[O;[^@[F6[^@[F5[^@[F&[^@[O1C8FK@R[^@[P][^@[F.[^@[F*[^@[O3[^@[VF[^@[F/UE )@@G@@[^@[P#C@VK@S[@KDG4C8FK@T[^@[D5[^@[VQ[^@[V-/K@[DHC/@__"G@FK@^[@@DH/ @@@@@UF )@@G@@C/@@@[[@@DH@@@DH?@@@DH(@@@DH!@[ODH5N@0[ZW/K@[)AUI )@@G@@@[PDH59?[@@@"=@DH,*@@@@G/K@[Z+/K@[ZMRA0DH<$'0@@ 8];[Z>/K@[Z%/K@[Z?/K@[Z0UJ )@@G@@/K@[Z5/K@[Z;'^@#KA@[TDH5C@@DH0"G#@@@[@^@@@/K@[Z"9?@DH1"?[@@@"/@@@G[@^@@@UK )@@G@@/K@[Z"C@#@@@"8@@@G9?)DH1"?)@@G9*+@@@/K@[Z"9?@DH1"?[@@@9*]@@@O/K@@]O/)@@]UL )@@G@@O/0@@[O.@@@[8L@[ZGN@0[) /K@[)A@[(@@EO7/K@[+4C/@@@#H@@@@@*@@@@GUZ )@@G@@/K@[+:(@@EO8/K@[+4C/@@@#H@@@@@*@@@@G/K@[+1(@@EO9/K@[+4N@0[+3/K@[@[ADJK'^@#PP/,0]'^VH )@@G@@@@[DI0@[DDJK'^@#PP/,0@HT@@@@@@@@@DJH@[GDJK/,0]'^@@[DI_@[HDJKC/@EPK'^K#PLVI )@@G@@C/@EO*'^K#PLC/@EO!'^K#PLC/@EO2'^)#PLC/@EO7'^K#PLC/@EO/'^K#PLC/@EP['^)#PLVJ )@@G@@C/@EPA'^K#PLC/@EPF'^K#PL'^@#PP(@@DJN/K@[=%N@0[=(/K@[=0@[UDJK/,0]'^@@[DJDVK )@@G@@@[VDJK'^@#PP'^@#LB@[YDJKR]0DJL*4@TJI/K@TJI/K@#KSAA0DJLC8FK@@[^@[=GC8FK@[VL )@@G@@[^@[=[C@VK@][@KDJN/K@[=[C/@__"G@FK@[R@KDK.[@@DK"(@[@@@/K@[&$C/@@@[D@-@@@VM )@@G@@*@@@@I0@@@@I @@@@GC/)@@[C.@@@OH[[@@@*@@@@K1@@@@K @@@@I)@@@@I/=K[&XC@[@@@VN )@@G@@[@@DJO/,0]'^@@[DJQ@[EDK''^@#PPRA0DJO$'0@@G8];[>S/K@[>=/K@[>&/K@[>:/K@[>0VO )@@G@@/K@[>5/K@[>'/K@[>_/K@[&^/K@[&D/K@[&I/K@[&N/K@[&S'^@#KA@[HDK'/,0]'^@@[DJ>VP )@@G@@@[IDK''^@#PP/K@[&$/,0]'^@@[DJ?@[LDK''^@#PP/K@[&$/,0]'^@@[DJ4@[ODK''^@#PPVQ )@@G@@/K@[&$/,0]'^@@[DJ.@[RDK''^@#PP/K@[&$/,0]'^@@[DK#@[UDK''^@#PP/K@[&$/,0]'^VR )@@G@@@@[DKC@[XDK''^@#PP/K@[&$/,0]'^@@[DKN@[)DK''^@#PP/K@[&$/,0]'^@@[DKS@[C/@DLSC/K@@ [@@[%][@KDL$C/@@@[WV )@@G@@[@@DL!/K@[(_/,0[&_@@@DLH@@@DLH@@@DNQ@@@DLH@^)DNQRA0DNRR@KDL*R@)DL(/KF@@#WW )@@G@@/S@DN-AA0DN+A@KDN< @@DMC@;@@@N@_@@@94Z@@@>@KDO(XM )@@G@@/K@[0P"00@@H;!@@@F/S@DO>?@KDO%?@KDO:/K@[0FC@@DO@@@F;PJ@@=9)@@@K;W0@@G;O0@@[9*0@[]H@)@@LG8)@KUN/Y@@EYA )@@G@@C8@@C@0@@@@JD@@@@G;O@@@=9)0@@G"4)@@J9?@@@J/KF@@]"=@DP1"=@DP1C@0DP39!@@@GYB )@@G@@"*J(O\")JDO\"*@@@K/:0[1("0)@@G;=0@@E[@)@[[9*0@[]/KF@@]9*@DP5>@@DP4/K@[17YC )@@G@@'^@[2L@@@@##/KF@@]/@@[14'^@[2L@@@@B[/KF@@]R#V@@@R#H@@@1@H@@@/K@[2[%@@DUIYD )@@G@@/K@[2#A#@DP_/KF@@]A]0DR*A#@DP5/,0]'^@@[DQ[@@^DR$R_@DP5'^K#PL'^@#PPR]0DR*YE )@@G@@/KF@@]R#V@@@R#@DQ@A#H@@@/KF@@]/K@@@@'^@[5D'^@[5WA#)DQ>/,0]'^@@[DS%@@^DR$YF )@@G@@'^@#PP/,0]'^@@[DQ)@@ADR$'^@#PPRB@[2LR#W@@@()G@@@/K@[2$;GK@@A;C)@@Y[@KDT^YG )@@G@@C IDTQO#@DTC/K@[2:;CK@@A[@KDT^C G@@[O#@DTDAB@[6AR@KDUJO@K@@K @@@@FR;0@@ YH )@@G@@R#L)@@R;)@@ @@@@G;?@@@A/@@[2';)@@@YA#FDQ(O]0DTC8#)[228#0[20R#K@@F @@@@GYI )@@G@@W@@DUK)@KDUL)@@DUL;*)@@Y;?K@@AA#KDRIA]0DQ*O]0DTDA]0DQOR#@DTCA#@DT#R]0DUJYJ )@@G@@ @@@@[R_@@@#A#@@@ER#@DT^/@@[5&;G@@@AA#@DT^;CK@@YR#)DT#)@)DQZO#)DTCA#)DT#YK )@@G@@;?)@@0)@)DR>R#)DR(9*%DRHO])DTDRBXDTG'^H@@@/K@[3F/K@@@@'^@[3=R_1DP5R#KDR%YL )@@G@@A#V[56AB;-56^@V-56/K@[3W/K@@@@K[@DQO?[KDUM/K@[3?C[KDR2[[UDRHO])DTCC.K@@ YM )@@G@@[[KDQOA#EDRHO])DTC/K@[3=/K@@@@C.@@@GR#@DR!N@KDS.'^@[3WO@KDTC/K@[30/K@@@@YN )@@G@@C.@@@KR#@DR,N@KDS"'^@[3WO@KDTC/K@[37/K@@@@C.@@@MR#@DR\N@KDS_'^@[3WO@KDTDYO )@@G@@R#@DR0A#EDRHO])DTC/K@[3"/K@@@@'^@[4J'^@[37'^@[4R'^@[37'^@[4N/K@[4C/K@@@@YP )@@G@@R#@DR3'^@[4V/K@[4J/K@@@@R#@DR4'^@[4V/K@[4N/K@@@@R#@DR5'^@[4V/K@[4R/K@@@@YQ )@@G@@C.@@@#'^@[3=/K@[4V/K@@@@'^@[4<'^@[4*/K@[4Z/K@@@@R#@DR6C.@@@]'^@[3=/K@[4/[K[7>/,0]'^@@[DSD@@2DR$'^@#PPZF )@@G@@'^@[5N;?@@[C(@@DT^/KF@@#/K@[6A/,0]'^@@[DSP@@4DR$C/@DP_'^K#PL'^@#PP'^@[5NZG )@@G@@'^@]/B'^@[5D @@DT^R#FK@@A#@DSE(@FK@[/K@[76R#KDQ@O#KDTCA#KDQ@RB:@@]CDV@@]ZH )@@G@@/@)[7/RB"@@[A#0DT[/K@[6K[[KDQ*/,0]'^@@[DS!@@'DR$R_@DQ*'^K#PL'^@#PP/K@[7SZI )@@G@@/K@@@@R;K@(@AFW@@#RBW@@#C1JD\I!9@@@K/K@[8MC1G@@C/-@[8IR;K@@@'=@@@#ABW@@#ZJ )@@G@@*4G@@#/K@[8RAFW@@^(@G@@ /K@[8V'^@[8X/K@L8^C5G@@#%9@@@]'^@#H0/K@L8^ CG@@^ZK )@@G@@/K@L8^/K@@@@0@G@@#'=@@@AC1JD\I?9@@@K/K@L8XCC?@@^;*)@@P;C)@@P?9@@@S/K@[8:ZL )@@G@@ @@@@HW8K@@W;GK@@=C0W@@#:8K@@(D@)@@IG@?@@ [@?@@ CG@@^/C)L8X @G@@ !9@@@SZM )@@G@@T8)@@WOB?@@#AB?@@#AB?@@C/K@L8XA]0E)KC^;@@@[@0[9<[@0[92C@_@@@[@0E)?/G0#IBZN )@@G@@!80@@>/K@#IBD[@D?*+[JD\I/ V@@#C^JD\I/@F@@#1@JD\I/K@[9URF?@@[AF)D?+C[JD\IZO )@@G@@C8@D?)'=@@@J;G@@@>;D@@@+/>@[9RR;@D?+R#;@@[ 4G@@#*@J@@@'=@@@#R7G@@#98F@@#ZP )@@G@@/\0['^/KF@@#*?G@@]/KF@@#9!G@@C99@[9%C1G@@C?9@@@#/K@[9%A]0D?%/,0]]C@@@@@@ZQ )@@G@@@@@@@@R]0D?%0@G@@#'=@@@A*4G@@#/\0['#R#0E)?R#:@@[C^JD\I 4G@@#(@I@@@/K@[95ZR )@@G@@A]0D?%/,0]@D@@@@@@@@@@@@R]0D?%D[@D?*)[JD\I[[ZD\I9!G@@C99F@@#(4G@@C/K@[9"ZS )@@G@@C G@@D'^@]@[C G@@^'^@]@[ @G@@C @G@@D/KF@@#RF?@@@AF)D?ZC@@D?R[@@D?&'=@@@IZT )@@G@@0@@D?$'^@#K"/KJ@@@/K@@@@1@@D?$/K@['NA]0D?( @@D?&9*@D?:9*)D?!9(@D?\R#KD?$ZU )@@G@@G8K@@[[@KD?$!8K@@>/K@[')(^HD\I/K@['O/,0[89@@@D?$@@@D?*@@@@@@C@KD?$/K@['OZV )@@G@@*@@D?&AA0]/BR]0D?(9?@D?:9?)D?!9!@D?\/K@L'F/K@@@@C @['$[[@D!)[ @['?/K@[',ZW )@@G@@/K@@@@ @@D!)/G0#IB!80@@>/K@#IB[@0E)?C@ZD\I+@KD,%/^)[/7R;!@@@/^)[/''^@[.FZX )@@G@@A#0D!-R;@D!-'=@@[GR#0E)?R;@@@[A7JD\IR7@D!$*0JD\I/@@[/10@@[;]/K@D,#R3ZD\IZY )@@G@@;C@@@#:8@@@]/^K[.BCD@D,@R;)@@H*@@@@HR;)@@#K[@@@IC8@D,@C^KD,@G8K@@[!@K@@LZZ )@@G@@/K@[;%CD@D,[K[@@@IC8@D,[C^KD,[G8K@@[!@K@@L/K@[;%RBKD!"P;K@@[C80@@ ?C.D,]AA )@@G@@/K@[/C8#K[;VA#)@[#'^@[.ZC[@@[[K[@@[#C8)@^@G@)@[[H8)@@[[^!D,]C8HD,] @I@@@AB )@@G@@%@)@[[8#)[;$C@0E)?[ JD\I[DW@@@[[@D!ZR#@@@KC5KD!$G9K@[@C1JD\I/[@[;7;DK@@^AC )@@G@@H9K@@];(K@@E)[@@@L;(K@@A[DZD\I9?KD!-/[@[;"9*W@@[O;@@@#/K@[/ 9*W@@@;GK@[CAD )@@G@@9*W@@]9*W@@^9*W@@C9*W@@EA#W@@G*4@D!$/K@[/1/K@[/IC8HD,]CDHD,]K9@@@I? XD,]AE )@@G@@/K@[;%/K@[;XC[@E)!?9@@@#/K@[.@?9@@@A/K@[/=:9@@@A/K@[/UCCKD!-[^KD!LC@@D?4AF )@@G@@'=@@@I'^@#K"C@0E)?C^JD\IK8@@@HC8)D,@%CY@@@C8)D,[[CI@@@ @JD\IR]0E)K/KF@@]AG )@@G@@RF@D!-AB@D!PC@@D,:'=@@@J/^@[.@C@0E)?C9@@@T1@JD\I[1JD\IC@KD!Z @H@@#C^ZD\IAH )@@G@@ABKD!ZC0ZD\IC^@['?(?JD\I!8K@@)/KG@@@/KG@@[+@KD?*A#\D\I/K@[/0*@@D!)/K@[/\AI )@@G@@CC!@@@[^)D?;C@@D?2/K@[. CCKD!-[CKD?6R#0E)? @JD\IC@@D?1'=@@@I/K@#K"RFKD!-AJ )@@G@@AFKD!CR#@D?3/K@[. /K@@@@ @@@@HR#)@@JN8K@@^W8K@@EK8)@@0;G0@@A;GK@@=*@@@@IAK )@@G@@8KK[.JR;K@@ P#K@[[T8K@@AR#0D,?;?.@@@;@.@@@/K@L.F/K@@@@ @@D!_/K@[.+/K@@@@AL )@@G@@C@K[.Z[@KD!_C^KD!" @@@[[P;K@@[(CHD,]/K@[.;8#K[.>C^)D,[/@)[.0P;)@^@CC0D,[AM )@@G@@?@)@@J/K@[.0[^)D,[/K@[.6C^)D,@P;)@^@CC0D,@?@)@@J/K@["#[^)D,@C@KD!"G8)@@[AN )@@G@@[^!(,][@KD!"P;K@@[C[@E)![DHD,]N^XD,]C@0E)?C^JD\I(@@D!_/K@L.W/K@L.ZC@0E)?AO )@@G@@(@@D!_/K@L.W @@D!1 @@D!2 @@D!3R;0@@=C^JD\I/@@["T1@JD\I(@G@@D/K@["T*?G@@CAP )@@G@@/K@["TN^W@@^'^@[_:CC!D,]!8)@@ /K@[_3')ID!%&#K@@JA#Y@@@8#0["ER#0D!1/@0[_RAQ )@@G@@;C0@@MC[@E)?[[@E-XA#0E)?RBJD\I'^@]@5R#0E-XA#0E)?0@G@@#'=@@@A*4G@@#'^@#H0AR )@@G@@ @G@@D ^G@@CRBKD!1/K@[.;C G@@C(4G@@C! G@@#/K@["3[C0D!2[^KD!2/K@["T0@G@@#AS )@@G@@'=@@@A*4G@@#'^@#H0'^@[8X'^@[8^N^W@@^C G@@D[ G@@^ 4G@@C'^@[_:/K@[.;C1G@@#AT )@@G@@:9@@@(/K@[_D0@G@@#'=@@@A*4G@@#'^@#H0 @G@@D ^G@@C/K@[.;[C0D!4[^KD!4C G@@CAU )@@G@@/[@[_AC0ZD\I?8K@@K/K@["T[DG@@^C9@@@C[1G@@#'^@[8XCC0D!4C^KD!4/K@[_AC[@D!2AV )@@G@@/ @[_ZC[@D!3/[@[_3CC0D!3C^JD\IN^KD!3/K@[_+CC0D!2C^JD\IN^KD!2'^@[8XC1G@@#AW )@@G@@%9@@@('^@[8^C9@@@[[!G@@CR#K@[[ @G@@D/K@[.;/K@@@@RBKD!"P;K@@[C HD,]%[@@[[AX )@@G@@8#K[_,1@@@@H/K@L_:C@@D!5'=@@@I/K@#K"/K@@@@N^W@@D'^@[_:C[KE)![DXD,](4G@@CAY )@@G@@/K@L_6N^W@@^'^@[_:[DXD,]/K@L_6/K@@@@RBKD!"P;K@@[% HD,]8#K]@^ CHD,]/K@M@[AZ )@@G@@AA0E)KC^;@@@AB0]@RC@_@@@C9@@@A[[@E)!'^@['?/K@]@1C^JD\IC1G@@C%9@@@F?9@@@#BA )@@G@@/K@]@UA]0D,!/,0]]C@@@@@@@@@@@@R]0D,!0@G@@#'=@@@A*4G@@#'^@#H0C G@@D*@@@@KBB )@@G@@'^@]@[C G@@^*4G@@C'^@]@[C1JD\I!9@@@K/K@]@\R;K@)@AFW@@#'=@@@[ @G@@C @G@@DBC )@@G@@ @G@@E @G@@^/KF@@] @G@@ /K@]@%C@@D,7'=@@@I'^@#K"/KF@@]/K@@@@C@0E)?C^JD\IBD )@@G@@C1G@@C%9@@@#/K@][ZC^W@@CK^W@@DC[W@@F[[Y@@@C[W@@GG9K@@[[[W@@G[[Y@@[C^W@@DBE )@@G@@[[X@@@CDW@@GG8)@@]G9K@@# @@@@KW9@@@W/[K][MD[K@@LG9K@@W/[K][M @I@@@G8)@@[BF )@@G@@H9K@@[/ K][IH^?@@D[C?@@D[^?@@C'^@][6C1G@@C%9@@@#/K@M@5 @G@@FC[G@@G[[G@@EBG )@@G@@[[G@@G CG@@G/K@M@5C^?@@CC[K@@IG^?@@D @@@@KW9@@@W/[K][MD[K@@LG9K@@WH9K@@[BH )@@G@@C[@@@L;(@@@AG1G@@E[DI@@@C G@@G[ I@@@G9@@@[[ G@@GC9@@@)[(I@@@C[I@@@[[G@@EBI )@@G@@G8)@@[/K@][H/K@@@@0@G@@#'=@@@A*4G@@#'^@#H0C0W@@CC@XD!R[0W@@#'^@[8XC[G@@DBJ )@@G@@N^W@@^[[G@@^*4G@@C^^W@@D*CG@@^'=@@@[/K@M[6AA0E)KC^;@@@C@_@@@C9@@@ [[@E)!BK )@@G@@'^@['?/K@]#:C^JD\I(?G@@C/K@]]R'^@[.ZC@@D!Z^^W@@^^^W@@D'^@]^] ?G@@C*^G@@DBL )@@G@@/K@]]Y'^@[.ZC@0E)?C^JD\I^^W@@D^^W@@^'^@[8XC1G@@C*4G@@C/K@]]&0@G@@#'=@@@ABM )@@G@@*4G@@#/K@]#_C9K@@_=9@@@[[1W@@E/[@]]\!9@@@#/K@]]\'^@[8^*4G@@C'^@[8^RBW@@CBN )@@G@@R3?@@C:8)@@^%CW@@D/K@]# '^@]@5R;K@#)AFW@@D*4G@@C/K@]#^'^@[.W*@@@[[/K@]#[BO )@@G@@0@G@@#'=@@@A*4G@@#'^@#H0/K@]#^R;K@@[A7W@@C^^W@@D ^G@@CC G@@^*4G@@C'^@]@[BP )@@G@@ 4G@@CC^W@@CC1G@@E[!@D,8K^W@@DG8K@@[[^W@@CC G@@GG9@@@[[ G@@G[-@D,8;L@@@ABQ )@@G@@[>@D,8C[@D,8[[I@@@[[G@@EC1G@@C:9@@@#/K@]#/:9@@@^/K@]#-'^@]^QC1G@@C:9@@@#BR )@@G@@/K@]#+'^@]@5'^@[8X*4G@@#'^@#H0C G@@^'^@]@[ @G@@^ @G@@C @G@@D/KF@@]C1JD\IBS )@@G@@%9@@@-/K@]#80@JD\I/K@]#3C@@D,9'=@@[S/KF@@]C[@D,9RBJD\I[[G@@@'=@@[>/KF@@]BT )@@G@@C@@D\B'=@@@I'^@#K"/KF@@]C9@@@^[1G@@C/K@]#-*^@['F/KF@@]'^@#H0/K@@@@C@0E)?BU )@@G@@C^JD\I'^@[8X*4G@@#'^@#H0C0W@@CC@!D!R[0?@@#C9@@#)C0W@@C:8K@@]/K@]^NC9@@#/BV )@@G@@C0\D\I?8)@@KG9@@@^[DG@@^'=@@@[/K@M^]/K@@@@C0?@@CC9K@@#%8)@@[C9K@@^[1W@@CBW )@@G@@C[ID!R[1G@@#%9K@@#/K@M^QRB?@@C?8)@@]/K@M^Q[C?@@D'^@][6/K@M^Q/K@]BA/K@]BABX )@@G@@/K@]BA/K@]A"/K@]AJ/K@] [/K@]AY/K@]E]/K@]E>/K@]E%/KH]D]/KH]DB/KH]DG/KH]DLBY )@@G@@/KH]DQ/KH]DV/KH]D)/K@]CIRF@E)\RB0E)\')G#GG8#@]^_O;0@@[R;@@@ AB0E)\AF@E)\BZ )@@G@@/KF@@@[[KD\H%9K@@T/K@] MC KEVT*@@@@LH9K@@[[DKEV-C9@@@@W9@@@A;[@@@MD[K@@LCA )@@G@@G9K@@ ; @@@MG9@E)0[[@E)\ C@EVY'^@#HF'^@#HFC KEVTC[@D\H:9@@@L/K@] 2 @@@@KCB )@@G@@?9K@@B/K@] +H9K@@B/,0]^88^K] VC9K@@ /,0]^8;@)@@A;=K@@AG9@@@A8^K] YR#@@@KCC )@@G@@R#)EVOC[@D\H;^W@@@RBKE)O%9@@@R/K@] !C @EVT?9@@@A;)?@@@A#!@@@R7KEVS:8K@@^CD )@@G@@/K@]A"/K@] MH9K@@[D8K@@[/,0]^8:8)@@,/K@]A /CK]A@P;)@@MF@K@@I%/K__8/K@]A@CE )@@G@@RBKE)OD@)@@I;C)@@/K@]CY/K@]CU/K@]C%/K@]CI/K@]C,/K@]C,/K@]CICW )@@G@@/K@]CI/K@]CI/K@]CI/K@]C./K@]C//K@]CI/K@]CI/K@]C4/K@]CA/K@]C /K@]C6/K@]CACX )@@G@@/K@]D>/K@]D(/K@]D:/K@]D,/K@]D0'^@]D7R;)@@-A7)ET5/K@MB"'^@]D7/K@]D1'^@]D7CY )@@G@@[ KET5/K@]D1'^@]D7/K@MB"'^@]D7*4@D\C/K@MB"/K@]D5/,0]^88K0]D4/K@MB"/K@@@@CZ )@@G@@?8K@@#'^@# ^!8K@@#A$KD\CR#)D\D%8)@@,/K@MD7*4@D\C/K@MD7/K@]CIA#)D\H%8)@@'DA )@@G@@/K@]EPRFKEVRRB0EVR')H#GG%8)@@'/K@]EM8#K]EHO;0@@[R;K@@ ')H#GG%8)@@'/K@]E/K@#B DD )@@G@@'^@#PH/K@]E:'^@E)RR;0@[KPF0EV-1@@@@J(@@@@J/K@]E*A#0EVTA#0@[#R;K@@^A7KEVSDE )@@G@@A7KD\CC1@E)O:9@@@ /K@]FR[ @D\C%9@@@[ ^@D\C @@ET5'^@]B"/,0]FG/^K]F]C@)D\DDF )@@G@@%8)@@,/K@]E*()@D\C/K@]FE'^@#^!0@@ET5D[K@@LRBKE)O[[X@@@/K@]E%'^@]BW/K@]E%DG )@@G@@ 4@D\C0@@@[# @@@[#RB)EVTP#)@[#OF)EV-AF)EV-R3)E)OP;)@@[AB)EVQ/KF@@@C[K@[#DH )@@G@@/K@] 2[[K@[#/,0]FG/K@]E%R]0E)KA]0D\4'^@]F_A]0D0SR#0D1;A#0D0& @@D0>C[@EV)DI )@@G@@ @@@@JG9@@@^W80@@AA#0D\/AA0#PL/K@#PZP'0@@[A]0E)K @@D\4'^@]F_R;@]N_AB@#PQDJ )@@G@@R;@@@FA#@E)!R;@]F6AB@#PIAA0#PL/K@#PZ/S@@@@R#@D\3'=@@@HR;G@@@/@@]F7T8@@@ADK )@@G@@O;@@@[A#@EV)/K@MF6/S@@@@ @@D\' @@D0SR;@]H?AB@#PO&'0@@[RFF)@[/@@]G R#F)@@DL )@@G@@A#@D\;RFF@@@RBV)@@:8@@@#ABKD\':8@@@]AFKD\'?8@@@^/K@]GDP'0@@[/K@MF_/S@@@@DM )@@G@@9*@D\5R#@E)!!8@@@C/K@]GWR#@E)?R\GD\I:8@@@[/K@]J-A#)D\79(@D\8R;@E- A#@E)\DN )@@G@@'^@#PHR#KEV)A#KD0S @@@@GO;K@@^W8@@@AA#@D\/:8@@@Q/K@]G,&;@@@[R#0D1/A#/E)0DO )@@G@@$;@@@P/K@]G: @@@@JR]KD1;A#0D0>A]KD0&9?@D\5R#)D\79!@D\8/K@MGNR;K@@[R;@#IJDP )@@G@@'^@]J,R#@D\/A\@D\.R#@D\.'=@@@IR]0D\/R#@D1/A#FE)08]0]G_R;@@@*')DD\_R;@@@[DQ )@@G@@A3@D\.R#@D\.'=@@@I/K@#K"O8K@@Y @@E)JA4KE)JR8KE)0A^KE)J'^@]J,R#@D0VH8@@@]DR )@@G@@R#GD0PA#@D0C9*KD\59*0D\7RB0D\;RFKD\;;)K@@MR;)@@ Q;K@@A;@K@@#;=@@@A8#)]HSDS )@@G@@A#@D0I/@0]H+9?@D0M9*@D0JR#J@@@A#@D0LR#@D1.'=@@@J9?KD\59?0D\7/KB@@@R#@D0UDT )@@G@@/@F@@@:8K@@E/K@]L#/KF@@@A@KD0-A])D0+A]0D0<9()D0$9%@D0(9%)D0:[#@D0!9:KD0,DU )@@G@@9:0D00A]KD02A[0D03R#0D0>R]KD0&A#@@@E(@@D0S'^@]GN @@@@[H8)@@[R#,@@@;*)@@EDV )@@G@@;C)@@)A#)D0V/KI]I]/K@]I?/K@]KC/K@]KG/K@]K ')DD1@%8K@@ :8K@@,/K@]IS/K@]IHDW )@@G@@')DD1@:8K@@T/K@]IW:8K@@F/K@]IZ%8K@@ :8K@@,/K@]J*/%K]IG/,0]K@/K@]J*/K@]IGDX )@@G@@/%K]IB/,0]K@'^@]GN/K@]IBR;K@@[A#U@@@/K@]I) @E@@@/%K]I/K@]J$ @@D0S/H0]J&*@@@@P/[)]J>/[0]JZ0@@@@PD[0@@N[['@@@ED )@@G@@/K@]J3O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[O8K@@[RB@D\'*@@@@G/K@]HCR#[D1AEE )@@G@@'=@@@I/K@]G9@@@@@@9,)D0:C#@D0!9\KD0,R[0D039!)D0$9,@D0(9\0D00A#0D0>A]KD0&EF )@@G@@R@KD0-R])D0+R]KD02R]0D0 @@@@L:8K@@@/K@]L#/,0]H$:8K@@-/K@]K":8K@@+/K@]L[/K@]LE/A)]J>C")__"EL )@@G@@/K@]L#/A)]J>C')@@[C'0@@[/%K]LB/,0]K@/K@]J>')DD1@/K@]K9')DD1@,#0@@H/K@]LQEM )@@G@@H8K@@0T90@@EG[0@@HG9K@@[![0D1"/K@]J+/%K]LD/,0]K@/K@]MA/K@]LD%8K@@ :8K@@,EN )@@G@@/K@]MB/K@]J/AK]J>/B@]J>R90D1;/K@]KWR#@D0U:8@@@[ @E@@[ @E@@@/G@]N @E@@[/K@]M-?8)@@$ET )@@G@@/K@]M>1@@@@N/K@]J+ @E@@@/K@]N< @@@@IR[0D1; @@@@L @@@@M9(K@@G;!K@@#;?@@@[EU )@@G@@9-K@@G @@@@G')BD0'9-K@@G8KK]M2/K@]M6/(0]M(O;)@@[Q90@@ /K@]M(R;@@K/"4@@@LEV )@@G@@0@@@@P90K@@H/[0]NM @@@@T#[0@@U9!KD1_W;K@[=R#@@@T/@@]N^;)@@@["(WET& @@@@TEW )@@G@@W;K@@E[#K@@G;)@@@[*@@@@G"(WETO(@@@@U/K@]NIR#@@@U;)@@@["(WET]/H0]NL"*K@@LEX )@@G@@/K@]NM"?K@@L/%K]NP/,0]K@ @@D0SR#@D0U?8@@@[/K@]NU9*U@@@/K@]J\"/K@@HA#U@@@EY )@@G@@?9@@@D/K@]N<[@@@@H*@@D0T/K@]NF2LRV )@@G@@@[@E8,@@^JLNBBSWAP FI_F\(@#@E8+@@WFDDBSWAP E#^E M@#@E8+@@WFDGRW )@@G@@BSWAPF @@@@@@@#@E8+@@WFDLDIOLIO E35FI&@#@E8+@@WFE_DUSECT RX )@@G@@ #\]=4@#@E8+@@WFFEBUSECT @@@@@@@#@E8+@@WFFGBSUSEC @@@@@@@#@E8+RY )@@G@@@@WFF2DSUSEC #4S BP@#@E8+@@WFF4CRQABS @@@@@@@#@E8+@@WFG]CRQRIORZ )@@G@@ @@@@@@@#@E8+@@WFG9CPSLOD #MGE'\@#@E8+@@WFH?CRQRAL E'BE3RSA )@@G@@@#@E8+@@WFH'CRQRA @@@@@@@#@E8+@@WFH/DASCA @@@ B,@#]E8C@@Z@1SSB )@@G@@CCR FNBE]M@#@E8+@@WFI:RCR @@@@@@@#@E8+@@WFJ?CCMAP SC )@@G@@@@@@@@@[@E8+@@WFKDSRCORE F*[E?=@#[E8C@@Z@; BCPCHN FWCE9U@#@E8+SD )@@G@@@@WFN^BCPUCH @@@@@@@#@E8+@@WFNOSIMSO F=N N@#@E8+@@WFNZDAFAILSE )@@G@@ ^H@@@@#[E8C@@Z[#,DAPASS F^4F^9@#@E8C@@Z[#0AVLBCP @@@^_HSF )@@G@@@#]E8+@@WFQCGVDACC GBRGF4@#@E8+@@WFQ(RSI ][G[.K@#@E8+@@WFR[SG )@@G@@RSI1 [8O][L@#[E8+@@WFRNACTSC @@@@@@@#@E8+@@WFR=D"1D"6D";D_@SH )@@G@@D_ D_ED_JD_OD_YD_E2%SI )@@G@@ET5E"0E"5E"'E"_E_^E_DE_IEI;EUDEUIEUNEUSEUXEU+EU$EU?EU1EU6EU;EV@EV EVEEVJSJ )@@G@@EVOEVTEVYEVEX%EX\EX4EX9EX"EY#EYCEYHEYMEYREYWE_NE<]EF[#@C*(@@@@[RCCCID E]&F[C@#]F[[@@IJ.QEXPIMM @@@@@@SQ )@@G@@@#@F%2@@WGN5DACTSQ F8U["A@#@FE5@@WF&=CQSTRT F]XGEK@#]F6<@@^JVASR )@@G@@IQSTRT @@@@@@@#@F6<@@^JVBSEGSUP F^)EJ!@#[F5.@@Z]N3EXP$S SS )@@G@@@@@@@@[#@C4.@@@@@@NXTBCP E(:G&;@#@F@(@@WF-FSETCQU FRP^.U@#@F@(ST )@@G@@@@WFY.NXTBCA @@@@@@@#@F@(@@WF-LCHECKSIPMAP E:HFY+@#@F@J@@Z[ EC3CF@WSU )@@G@@@@@[MYF@OD[AE8CF 0[][]@@@Z^[#4@XC[MZ@VC[MZ@TC[MZ@RC[MZ@PC[MZ@NC[MZ@LD[MZSV )@@G@@F@JF@(@@@#"TF@-D[AE8PF .[;[;@@@JC#"U@HC#"U@FC#"U@DC#"U@BC#"U@ C#"U@#C#"USW )@@G@@@[D#"UF@WF@5@@@F+@F@,D]7E8+FAE]+]+@@@W^FR'@UCF+[@SCF+[@QCF+[@OCF+[@MCF+[SX )@@G@@@KDF+[F@(F[[@@@JOAF@'D]7E8,FAQ ^ ^@@@GCJN;@ECJN;@CCJN;@ACJN;@^^JN;@]CJOBSY )@@G@@@@DJOBF@5@@@@@@J.4F[AD]7E8'FA+B\B\@@@YCJ.Q@I J.QCCCLK @@@FD=@#]F@5SZ )@@G@@@@^JN_RACTCH @@@[7Q@#]F@5@@^JO@SWPS08 @@@FI0@[]F@J@@Z[A(SUS20 TA )@@G@@ @@@@@@@[@F@J@@Z[B9SUSBLD E^4FN)@#[F@(@@WFR'RACT F8AF[HTB )@@G@@@#@F@(@@WFT^BDPSRF E. @@@@#[F@(@@WFV>SDSBDT E9[EF:@#@F@(@@WFV2TC )@@G@@ADRFIX F['ESJ@#]F@(@@WFWBADRFA1 @@@@@@@#@F@(@@WFWDADRFA TD )@@G@@@@@F[5@[]F@(@@WFWTACSLP @@@F]^@#]F@(@@WFXGACSLP1 @@@@@@@#@F@(TE )@@G@@@@WFXJREACT G(+@@@@[[F@(@@WFXVRLDPSI FW#[9:@[@F@(@@WFX1DARACTTF )@@G@@ F7Y@@@@#[F@(@@WFYNDATIME EFH]3O@[@F@(@@WFYSCQLVL @@@@@@TG )@@G@@@#@F@(@@WFZ8ACTRR FH>EI1@[]F@(@@WF)HC3CLEAR @@@@@@@#@F@(@@WF)9TH )@@G@@C2CLEAR FWME_+@#]F@(@@WF)'COMSAV @@@@@@@[@F@(@@WF->COMSWD TI )@@G@@F_WE3_@[[F@5@@^JOAD"1D"6D";D_@D_ D_ED_JD_OD_YD_E[%E[\E[4E[9E["E]#E]CE]HE]ME]RE]WE]-E(_EU^F^GE24E2BTK )@@G@@E2GE2LE2QE2VE2)E2>E2%E6@F^LF^QF^VF^)F^>F^%F^\F^4F^9F^"E9AF #E_DE_IE_NE<]TL )@@G@@EEX%EX\EX4EX9EX"EY#EYCEYHEYMEYREYWE.JF HF ME.]>@@@W^F+[UA )@@G@@@UCF=4@SCF=4@QCF=4@OCF=4@MCF=4@KDF=4FAEFA+@@@JPBFAVD]7F@5FF[ B B@@@GCJOBUB )@@G@@@ECJOB@CCJOB@ACJOB@^^JOB@]CJPC@@DJPCFAQ@@@@@@J.4FA$D]7F[[FFHB2B2@@@YCJ.5UC )@@G@@@IDJ.5DCNTRY #EE B8@#@F 0@@Z[MZDCSCAT FBQFB]@[[F 0@@Z[-IMPKGETUD )@@G@@ GJ-FA8@[@F 0@@Z[-8MPKREL @@@FEQ@[]F 0@@Z[+ODCINT ]"FESEX%EX\EX4EX9UL )@@G@@EX"EY#EYCEYHEYMEYREYWE<]E@@@@@0VOL$ #M5EC][#@C6>@@@@@,IONORM GC^E29UP )@@G@@@#@G[<@@Z]93DCHANA @@@@@@@#@GO2@@^J:FDROPSWAP G^OFC2@#]G]D@@^JX@@@@@\IOPOINT UR )@@G@@FV"G]'@#@G[<@@Z#GJCOMCPUF E&\@@@@#[G]D@@^JZZCCHCOM @@@@@@@#@G[+TMSAOTUT )@@G@@ @@@](N@#]G]D@@^J>^CUPAR #CSF]?@#@G]D@@^J>;DSCERR ](I B3UU )@@G@@@#@G]D@@^J>KDISCLR FGF@@@@#[F"<@@Z]$NIOABN GFVFPX@#@G[<@@Z];/UV )@@G@@ERECOV EDYFG8@#[G]D@@^J) C3+FE*@@@[_^FE)D[AF 0FUX[C[CZ,@Z^[:A@XC[_ @VC[_ @TC[_ UX )@@G@@@RC[_ @PC[_ @NC[_ @LD[_ FEVFE5@@@#"UFE!D[AF .FU%[;[;Z:@J^#"U@HC#"V@FC#"VUY )@@G@@@DC#"V@BC#"V@ C#"V@#C#"V@[D#"VFE*FF[@@@F?(FE'D]7FAEFU7]*]*@@@W^F=4@UCF?%UZ )@@G@@@SCF?%@QCF?%@OCF?%@MCF?%@KDF?%FE5FFH@@@JR!FFAD]7FAQFV# E E@@@GCJPC@ECJPCVA )@@G@@@CCJPC@ACJPC@^^JPC@]CJR,@@DJR,FF[@@@@@@K[4FFMD]7FA+FVJB2B2@@@YCJ.5@I J.5VB )@@G@@PSR [06EI6@#@FE*@@J#"UDISTL @@@@@@@[@FF[@@^JPDMAXRTC VC )@@G@@E+AEO-[[@C3+@@@C+8COUNT X@@@[[[C3+@@@@C@IOEXIT G^*G#N@#@FEVVD )@@G@@@@Z[:FEXITNO F=6E#+@#]FEV@@Z[:FINTDST @@@@@@@#@FEV@@Z[:XDISPJPVE )@@G@@ E=#FM=@#@FEV@@Z[,PDISCRS FGAE<"@[@FEV@@Z[\LDISCRL FE]FF/VF )@@G@@@#@FEV@@Z[\MDISCRR @@@@@@@#@FEV@@Z[0GDISCH1 @@@@@@@[@FEV@@Z[0"VG )@@G@@ERSI @@@@@@@#@FEV@@Z[1;RTUSR @@@^.A@[]FEV@@Z[2MERQZ VH )@@G@@FEGFG,@[[FEV@@Z[2.LSSEXP @@@@@@@#@FEV@@Z[3'ERTPER FJ+D_T@[@FEVVI )@@G@@@@Z[4PERRAL FQT@@@@#[FEV@@Z[4QERRALA FG(FIH@#]FEV@@Z[4RERROR1VJ )@@G@@ @@@@@@@#@FEV@@Z[4YEROUT FJSFJD@#]FEV@@Z[4CACTEND @@@@@@@#@FE5@@WF&XDEACTG FHGFNQ@#@FE5@@WF&7VL )@@G@@DEACTB @@@@@@@#@FE5@@WF&7DEACSA @@@@@@@#@FE5@@WF*FDACTU VM )@@G@@@@@@@@@[@FEV@@Z[5VDLWCT AYEC6@#]FE5@@WF*IIDLWDA @@@@@@@#@FF[VN )@@G@@@@^JPNACTER FH]FNG@[]FEV@@Z[5VUSRACT E@=F^Q@#]FE5@@WF(@USACT1VO )@@G@@ #G\#M'@#@FE5@@WF(#DACT B(@@@@[[FEV@@Z[52FORKIO G&+@@@VP )@@G@@@#[FEV@@Z[62DISWAIT @@@@@@@#@FEV@@Z['2TWAITA ];WEB3@[@FEV@@Z['6VQ )@@G@@ALLSYM @@@@@@@#@FEV@@Z[/ ERRC6 FIMFO0@[]FEV@@Z[/SERRC30 VR )@@G@@@@@@@@@[@FEV@@Z[/UUPDATM @@@#3K@#]FEV@@Z[.)SUPCP ]OSFI-@#[FE5VS )@@G@@@@WF(:SUPERC @@@@@@@#@FE5@@WF:_DIQUBE @@@@@@@#@FF[@@^JP=SLOWEXVT )@@G@@ @@@@@@[#@C3+@@@@#E[%E[\E[4E[9E["E]#E]CE]HE]ME]RWB )@@G@@E]WE]-E]&E(-E(&E(:E(0EZDE(5E('FL/FM[E24FMAFMFE_6F^GFMKFMPFMUE2BE2GE2LE2QWC )@@G@@E2VE2)E2>E2%E+FEG^FMZFM=EY&EV@E<]EWF )@@G@@EX%EX\EX4EX9EX"EY#EYCEYHEYMEYREYWEI;FNGFNLE3RFNQE_IFNVE5?E51FN)FN>FN%FN\WG )@@G@@FN4FN9ET0ET5E_XFN"E;_E&VE3&E93E98FO#FOCFOHFOME#XE9PE.!E3WFORFOWF -E;&FO-WH )@@G@@FO&FO:FO0FO5FO'FO_E\4FP^FPDFPIFPNFPSFPXFP+FP$FP?FP1FP6FP;FQ@FQ FQEFQJFQOWI )@@G@@FQTFQYFQ8E>AFQ2CTS@B4@]@@@@ K=K+1 *[@@@@CTS@B"@#@@@@ 31 WJ )@@G@@CONTINUE *[@@@@CTS@CC@ @@@@ WRITE (6,15)(A(I),I=1,5)*[@@@@CTS@CMWK )@@G@@@A@@@@ 15 FORMAT(' XREF OF FILE '5A6) *[@@@@CTS@CW@^@@@@ NTI=H2WL )@@G@@(BUF(140)) *[@@@@CTS@C&@^@@@@ ILN=H1(BUF(140)) *[@@@@CTS@C0@]@@@@WM )@@G@@ IS=141*[@@@@CTS@C'@]@@@@ N=1 *[@@@@CTS@D^@ @@@@ IF (NTWN )@@G@@I.EQ.0) GO TO 94 *[@@@@CTS@DI@A@@@@ IF (6*NTI.GT.LANGT) GO TO 96 WO )@@G@@*[@@@@CTS@DS@^@@@@ DO 30 I=1,NTI *[@@@@CTS@D+@C@@@@ IF (FLWP )@@G@@D(0,1,BUF(IS+3)).EQ.1) GO TO 30 *[@@@@CTS@D?@^@@@@ TYPE=S3(BUF(WQ )@@G@@IS+3))*[@@@@CTS@D6@ @@@@ IF (TYPE.NE.5) GO TO 30 *[@@@@CTS@E@@#@@@@WR )@@G@@ A(N)=BUF(IS)*[@@@@CTS@EE@^@@@@ A(N+1)=BUF(IS+1) *[@@@@CTS@EOWS )@@G@@@^@@@@ A(N+2)=BUF(IS+4) *[@@@@CTS@EY@^@@@@ A(N+3)=BUF(IS+5) WT )@@G@@*[@@@@CTS@E*@^@@@@ A(N+4)=BUF(IS+6) *[@@@@CTS@E2@ @@@@ A(N+5)WU )@@G@@=H1(BUF(IS+7)) *[@@@@CTS@E/@]@@@@ N=N+6 *[@@@@CTS@FA@#@@@@ 30 WV )@@G@@IS=IS+ILN *[@@@@CTS@FK@]@@@@ N=N-1 *[@@@@CTS@FU@ @@@@ IF (N.WW )@@G@@EQ.0) GO TO 94 *[@@@@CTS@F=@#@@@@ REFPT=0 *[@@@@CTS@F,@#@@@@WX )@@G@@ ENTPT=0 *[@@@@CTS@F8@D@@@@ CALL BUF2(1,0,0,0) @ OPEN OUWY )@@G@@TPUT FOR UNIT 2 *[@@@@CTS@G]@D@@@@ CALL BUF3(1,0,0,0) @ OPEN OUWZ )@@G@@TPUT FOR UNIT 3 *[@@@@CTS@GG@^@@@@ DO 50 I=1,N,6 *[@@@@CTS@GQXA )@@G@@@#@@@@ KK=A(I+5)*28*[@@@@CTS@G)@#@@@@ FCT(3)=0 *[@@@@CTS@G%XB )@@G@@@#@@@@ FCT(4)=0 *[@@@@CTS@G4@^@@@@ S2(FCT(4))=16 *[@@@@XC )@@G@@CTS@G"@^@@@@ H1(FCT(5))=KK *[@@@@CTS@HC@ @@@@ H2(FCT(5))=LXD )@@G@@OC(BUF) *[@@@@CTS@HM@^@@@@ FCT(6)=A(I+4) *[@@@@CTS@HW@^@@@@XE )@@G@@ CALL IOW(FCT) *[@@@@CTS@H&@^@@@@ ERR=S1(FCT(4)) *[@@@@XF )@@G@@CTS@H0@ @@@@ IF (ERR.EQ.0) GO TO 40 *[@@@@CTS@H'@ @@@@ PRINT XG )@@G@@35,ERR,A(I),A(I+1)*[@@@@CTS@I^@A@@@@ 35 FORMAT(' IO ERROR ',O3,5X,2A6)XH )@@G@@*[@@@@CTS@II@#@@@@ GO TO 120 *[@@@@CTS@IS@^@@@@ 40 ER=H2(BUF(2)XI )@@G@@) *[@@@@CTS@I+@^@@@@ EP=H2(BUF(3)) *[@@@@CTS@I?@#@@@@ XJ )@@G@@ER=2*ER *[@@@@CTS@I6@#@@@@ EP=4*EP *[@@@@CTS@J@@ @@@@ XK )@@G@@IF (ER.EQ.0) GO TO 65 *[@@@@CTS@JE@#@@@@ L=H1(BUF(2))*[@@@@CTS@JOXL )@@G@@@^@@@@ DO 60 KK=1,ER,2 *[@@@@CTS@JY@B@@@@ CALL BUF2(2,A(I),4XM )@@G@@,1) @ OUTPUT *[@@@@CTS@J*@B@@@@ CALL BUF2(2,BUF(L+KK),2,1) @ XN )@@G@@OUTPUT*[@@@@CTS@J2@^@@@@ 60 REFPT=REFPT+1 *[@@@@CTS@J/@ @@@@ 65 XO )@@G@@IF (EP.EQ.0) GO TO 50 *[@@@@CTS@KA@#@@@@ L=H1(BUF(3))*[@@@@CTS@KKXP )@@G@@@^@@@@ DO 70 KK=1,EP,4 *[@@@@CTS@KU@B@@@@ CALL BUF3(2,A(I),4XQ )@@G@@,1) @ OUTPUT *[@@@@CTS@K=@B@@@@ CALL BUF3(2,BUF(L+KK),4,1) @ XR )@@G@@OUTPUT*[@@@@CTS@K,@^@@@@ 70 ENTPT=ENTPT+1 *[@@@@CTS@K8@#@@@@ 50 XS )@@G@@CONTINUE *[@@@@CTS@L]@C@@@@ CALL BUF2(3,0,0,0) @ CLOSE OUTPUT OXT )@@G@@N 2 *[@@@@CTS@LG@C@@@@ CALL BUF3(3,0,0,0) @ CLOSE OUTPUT ON 3 XU )@@G@@*[@@@@CTS@LQ@B@@@@C CALL NTRAN(2,22,10) @ REWIND 2 *[@@@@CTS@L)XV )@@G@@@B@@@@C CALL NTRAN(3,22,10) @ REWIND 3 *[@@@@CTS@L%@ @@@@ XW )@@G@@CALL REWN (2) @ REWIND 2*[@@@@CTS@L4@ @@@@ CALL REWN (3) @ REWIND 3XX )@@G@@*[@@@@CTS@L"@ @@@@ CALL SORTRF(REFPT,ENTPT)*[@@@@CTS@MC@#@@@@ XY )@@G@@PRINT 500 *[@@@@CTS@MM@ @@@@500 FORMAT (' **DONE**') *[@@@@CTS@MWXZ )@@G@@@#@@@@ GO TO 120 *[@@@@CTS@M&@#@@@@94 PRINT 501 *[@@@@CTS@M0YA )@@G@@@D@@@@501 FORMAT (' NO RELOCATABLE ELEMENTS IN FILE') *[@@@@CTS@M'YB )@@G@@@#@@@@ GO TO 120 *[@@@@CTS@N^@^@@@@96 PRINT 502,NTI *[@@@@YC )@@G@@CTS@NI@#@@@@ GO TO 120 *[@@@@CTS@NS@D@@@@502 FORMAT (' TOO MANYYD )@@G@@ RELOCATABLE ELEMENTS ',I5) *[@@@@CTS@N+@^@@@@98 PRINT 503,ERR2 YE )@@G@@*[@@@@CTS@N?@#@@@@ GO TO 120 *[@@@@CTS@N6@A@@@@503 FORMAT (' RPYF )@@G@@FET ERROR ',O5) *[@@@@CTS@O@@^@@@@110 PRINT 504,KST *[@@@@CTS@OEYG )@@G@@@C@@@@504 FORMAT (' UNABLE TO ASSIGN 432 FILE. ',O5)*[@@@@CTS@OO@ @@@@YH )@@G@@120 CALL ERTRAN(6,IFR2) *[@@@@CTS@OY@ @@@@ CALL ERTRAN(6,IFR3YI )@@G@@) *[@@@@CTS@O*@]@@@@ STOP *[@@@@CTS@O2@]@@@@ END _@@@@@YJ )@@G@@ 0.087035 -0.994775@E@@@@ 25.617846 278.882054 0.055073 0.YK )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@ @@@@ SUBROUTINE SORTRF(RT,EP)*[@@@@CTS@[,YL )@@G@@@^@@@@ PARAMETER LEN=5000*[@@@@CTS@[8@ @@@@ IMPLICIT INTEGER (YM )@@G@@A-Z) *[@@@@CTS@]]@A@@@@ FD(I,K)=FLD(IABS(6*I-6),6,K) *[@@@@CTS@]GYN )@@G@@@^@@@@ H1(I)=FLD(0,18,I) *[@@@@CTS@]Q@E@@@@ COMMON A(LEN,8),NDYO )@@G@@X(LEN),WORK(LEN),BUF(22),B(6),IC,IW *[@@@@CTS@])@B@@@@ IF (RT.GT.LEYP )@@G@@N.OR.EP.GT.LEN) GO TO 55*[@@@@CTS@]%@B@@@@ IF (RT.EQ.0.OR.EP.EQ.0) YQ )@@G@@GO TO 55 *[@@@@CTS@]4@C@@@@ CALL BUF2(4,0,0,0) @ START INPUT OYR )@@G@@N 2 *[@@@@CTS@]"@#@@@@ DO 10 I=1,RT*[@@@@CTS@#C@B@@@@ 10 CALL BYS )@@G@@UF2(5,A(I,1),6,LEN) @ INPUT *[@@@@CTS@#M@B@@@@C CALL NTRAN(2,22,10YT )@@G@@) @ REWIND 2 *[@@@@CTS@#W@ @@@@ CALL REWN (2) @ REWIND 2*[@@@@YU )@@G@@CTS@#&@C@@@@ CALL BUF2(1,0,0,0) @ START OUTPUT ON 2 *[@@@@CTS@#0YV )@@G@@@#@@@@ NDX(1)=1 *[@@@@CTS@#'@D@@@@ IF (RT.GT.1) CALL SORTX(YW )@@G@@-RT,NDX,WORK,A(1,5)) *[@@@@CTS@^^@#@@@@ DO 15 I=1,RT*[@@@@CTS@^IYX )@@G@@@#@@@@ N=NDX(I) *[@@@@CTS@^S@D@@@@ 15 CALL BUF2(2,A(N,1),6,LENYY )@@G@@) @ WRITE EXT. REF'S *[@@@@CTS@^+@B@@@@ CALL BUF2(3,0,0,0) @ SYZ )@@G@@TOP OUTPUT *[@@@@CTS@^?@B@@@@C CALL NTRAN(2,22,10) @ REWIND 2 ZA )@@G@@*[@@@@CTS@^6@ @@@@ CALL REWN (2) @ REWIND 2*[@@@@CTS@ @@B@@@@ ZB )@@G@@CALL BUF3(4,0,0,0) @ START INPUT *[@@@@CTS@ E@C@@@@ CALL BUF2(4,ZC )@@G@@0,0,0) @ START INPUT ON 2 *[@@@@CTS@ O@#@@@@ DO 20 I=1,EP*[@@@@ZD )@@G@@CTS@ Y@B@@@@ 20 CALL BUF3(5,A(I,1),8,LEN) @ INPUT *[@@@@CTS@ *@#@@@@ZE )@@G@@ NDX(1)=1 *[@@@@CTS@ 2@D@@@@ IF (EP.GT.1) CALL SORTX(-EP,NDZF )@@G@@X,WORK,A(1,5)) *[@@@@CTS@ /@#@@@@ CALL START *[@@@@CTS@AA@]@@@@ZG )@@G@@ KGO=1 *[@@@@CTS@AK@]@@@@ IRT=0 *[@@@@CTS@AU@#@@@@ DO 50 ZH )@@G@@I=1,EP*[@@@@CTS@A=@#@@@@ J=NDX(I) *[@@@@CTS@A,@^@@@@ LC=H1(ZI )@@G@@A(J,7)) *[@@@@CTS@A8@C@@@@ ENCODE (25,BUF)A(J,5),A(J,6),LC,A(J,ZJ )@@G@@8) *[@@@@CTS@B]@B@@@@ 25 FORMAT(1X,2A6,2X,O2,' (',O6,') (') *[@@@@ZK )@@G@@CTS@BG@#@@@@ CALL EPNAME *[@@@@CTS@BQ@^@@@@ GO TO (30,46),KGO ZL )@@G@@*[@@@@CTS@B)@#@@@@ 30 IRT=IRT+1 *[@@@@CTS@B%@ @@@@ IF (IRT.GT.RZM )@@G@@T) GO TO 50 *[@@@@CTS@B4@A@@@@ CALL BUF2(5,B,6,1) @ INPUT *[@@@@ZN )@@G@@CTS@B"@C@@@@ 46 IF (FD(1,A(J,5))-FD(1,B(5))) 45,26,30 *[@@@@CTS@CCZO )@@G@@@D@@@@ 26 IF (FLD(6,30,A(J,5))-FLD(6,30,B(5))) 45,27,30 *[@@@@CTS@CMZP )@@G@@@C@@@@ 27 IF (FD(1,A(J,6))-FD(1,B(6))) 45,28,30 *[@@@@CTS@CW@D@@@@ZQ )@@G@@ 28 IF (FLD(6,30,A(J,6))-FLD(6,30,B(6))) 45,29,30 *[@@@@CTS@C&@#@@@@ZR )@@G@@ 29 CALL INSERT *[@@@@CTS@C0@#@@@@ GO TO 30 *[@@@@CTS@C'@]@@@@ZS )@@G@@ 45 KGO=2 *[@@@@CTS@D^@#@@@@ 50 CALL FINISH *[@@@@CTS@DI@]@@@@ ZT )@@G@@RETURN*[@@@@CTS@DS@^@@@@ 55 PRINT 60,EP,RT *[@@@@CTS@D+@G@@@@ 60 ZU )@@G@@FORMAT(' ERROR ENTRY POINTS=',I6,', EXTERNAL REFERENCES=',I6) *[@@@@ZV )@@G@@CTS@D?@]@@@@ RETURN*[@@@@CTS@D6@[@@@@C *[@@@@CTS@E@@^@@@@ ZW )@@G@@SUBROUTINE INSERT *[@@@@CTS@EE@#@@@@ CALL UPCHAR *[@@@@CTS@EO@ @@@@ZX )@@G@@ FD(IC,BUF(IW))=6H , *[@@@@CTS@EY@#@@@@ DO 10 K=1,2 *[@@@@ZY )@@G@@CTS@E*@#@@@@ DO 10 I=1,6 *[@@@@CTS@E2@B@@@@ IF (FD(I,B(K)).EQ.ZZ )@@G@@'@@@@@ ') GO TO 15*[@@@@CTS@E/@#@@@@ CALL UPCHAR *[@@@@CTS@FA@A@@@@AA )@@G@@ 10 FD(IC,BUF(IW))=FD(I,B(K)) *[@@@@CTS@FK@A@@@@ 15 IF (B(3).EQ.AB )@@G@@' ') GO TO 25*[@@@@CTS@FU@#@@@@ CALL UPCHAR *[@@@@CTS@F=@ @@@@AC )@@G@@ FD(IC,BUF(IW))=6H / *[@@@@CTS@F,@#@@@@ DO 20 K=3,4 *[@@@@AD )@@G@@CTS@F8@#@@@@ DO 20 I=1,6 *[@@@@CTS@G]@B@@@@ IF (FD(I,B(K)).EQ.AE )@@G@@'@@@@@ ') GO TO 25*[@@@@CTS@GG@#@@@@ CALL UPCHAR *[@@@@CTS@GQ@A@@@@AF )@@G@@ 20 FD(IC,BUF(IW))=FD(I,B(K)) *[@@@@CTS@G)@ @@@@ 25 IF (IW.LT.19AG )@@G@@) RETURN *[@@@@CTS@G%@#@@@@ ENTRY FINISH*[@@@@CTS@G4@^@@@@ AH )@@G@@WRITE (6,30)BUF *[@@@@CTS@G"@#@@@@ 30 FORMAT(22A6)*[@@@@CTS@HC@#@@@@AI )@@G@@ ENTRY START *[@@@@CTS@HM@#@@@@ DO 35 I=1,22*[@@@@CTS@HW@#@@@@AJ )@@G@@ 35 BUF(I)=6H *[@@@@CTS@H&@]@@@@ IW=6 *[@@@@CTS@H0@]@@@@ AK )@@G@@IC=1 *[@@@@CTS@H'@]@@@@ RETURN*[@@@@CTS@I^@[@@@@C *[@@@@CTS@IIAL )@@G@@@^@@@@ SUBROUTINE UPCHAR *[@@@@CTS@IS@#@@@@ IC=IC+1 *[@@@@AM )@@G@@CTS@I+@ @@@@ IF (IC.LT.7) RETURN *[@@@@CTS@I?@]@@@@ IC=1 AN )@@G@@*[@@@@CTS@I6@#@@@@ IW=IW+1 *[@@@@CTS@J@@]@@@@ RETURN*[@@@@AO )@@G@@CTS@JE@[@@@@C *[@@@@CTS@JO@^@@@@ SUBROUTINE EPNAME *[@@@@CTS@JYAP )@@G@@@]@@@@ IW=5 *[@@@@CTS@J*@]@@@@ IC=4 *[@@@@CTS@J2@#@@@@ AQ )@@G@@DO 10 K=1,2 *[@@@@CTS@J/@#@@@@ DO 10 I=1,6 *[@@@@CTS@KA@C@@@@ AR )@@G@@IF (FD(I,A(J,K)).EQ.'@@@@@ ') GO TO 15 *[@@@@CTS@KK@#@@@@ CALL UAS )@@G@@PCHAR *[@@@@CTS@KU@A@@@@ 10 FD(IC,BUF(IW))=FD(I,A(J,K)) *[@@@@CTS@K=AT )@@G@@@B@@@@ 15 IF (A(J,3).EQ.' ') GO TO 25 *[@@@@CTS@K,@#@@@@ AU )@@G@@CALL UPCHAR *[@@@@CTS@K8@ @@@@ FD(IC,BUF(IW))=6H / *[@@@@CTS@L]AV )@@G@@@#@@@@ DO 20 K=3,4 *[@@@@CTS@LG@#@@@@ DO 20 I=1,6 *[@@@@CTS@LQAW )@@G@@@C@@@@ IF (FD(I,A(J,K)).EQ.'@@@@@ ') GO TO 25 *[@@@@CTS@L)@#@@@@AX )@@G@@ CALL UPCHAR *[@@@@CTS@L%@A@@@@ 20 FD(IC,BUF(IW))=FD(I,A(J,K)) AY )@@G@@*[@@@@CTS@L4@#@@@@ 25 CALL UPCHAR *[@@@@CTS@L"@ @@@@ FD(IC,BUF(IWAZ )@@G@@))=6H ) *[@@@@CTS@MC@#@@@@ CALL UPCHAR *[@@@@CTS@MM@]@@@@ BA )@@G@@RETURN*[@@@@CTS@MW@]@@@@ END _@@@@@345619 0.460456 -0.817636BB )@@G@@@E@@@@ 95.796085 294.778690 0.350061 0.467425 -0.811770@E@@@@BC )@@G@@*[@@@@*SDFF**[@@@@CTS@[=@A@@@@ SUBROUTINE BUF3(LF,A,NN,IX) *[@@@@BD )@@G@@CTS@[,@ @@@@ PARAMETER NIN=3,SIZE=560*[@@@@CTS@[8@A@@@@ INTEGEBE )@@G@@R TREAD,TWRITE,SWRITE *[@@@@CTS@]]@I@@@@ REAL IN(SIZE),A(IX,IX) BF )@@G@@ BUF20030 *[@@@@CTS@]G@I@@@@BG )@@G@@C 1 2 3 4 5 6 7 BH )@@G@@BUF20100 *[@@@@CTS@]Q@I@@@@ 15 IF (LF.GT.0.AND.LF.LT.8) GO TO (25,3BI )@@G@@0,55,60,70,95,100),LF BUF20110 *[@@@@CTS@])@^@@@@ WRITE BJ )@@G@@(6,500) LF *[@@@@CTS@]%@B@@@@500 FORMAT (' ILLEGAL OP CODE = ',I4) BK )@@G@@*[@@@@CTS@]4@#@@@@ RETURN 0 *[@@@@CTS@]"@I@@@@C START OUTBL )@@G@@PUT BUF20150 *[@@@@BM )@@G@@CTS@#C@I@@@@ 25 L=0 BN )@@G@@ BUF20160 *[@@@@CTS@#M@I@@@@ TWRITE=0 BO )@@G@@ BUF20170 *[@@@@CTS@#W@I@@@@BP )@@G@@ NSX=0 BQ )@@G@@BUF20180 *[@@@@CTS@#&@I@@@@ GO TO 105 BR )@@G@@ BUF20190 *[@@@@CTS@#0@I@@@@C FILBS )@@G@@L OUTPUT BUFFER BUF20200 BT )@@G@@*[@@@@CTS@#'@I@@@@ 30 NY=1 BU )@@G@@ BUF20210 *[@@@@CTS@^^@I@@@@ LRET=1 BV )@@G@@ BUF20220 *[@@@@CTS@^IBW )@@G@@@I@@@@ 35 NX=NN BX )@@G@@ BUF20230 *[@@@@CTS@^S@I@@@@ IF (NN+NSX-NY+1.GT.SIZE) NX=SIBY )@@G@@ZE-NSX BUF20240 *[@@@@CTS@^+@I@@@@ BZ )@@G@@DO 40 I=NY,NX BUF202CA )@@G@@50 *[@@@@CTS@^?@I@@@@ NSX=NSX+1 CB )@@G@@ BUF20260 *[@@@@CTS@^6@I@@@@ 40 IN(NSX)=A(1,CC )@@G@@I) BUF20270 *[@@@@CD )@@G@@CTS@ @@I@@@@ IF (NSX.NE.SIZE) GO TO 105 CE )@@G@@ BUF20280 *[@@@@CTS@ E@ @@@@ 45 CALL NWRITE(NIN,IN,NSX) CF )@@G@@*[@@@@CTS@ O@I@@@@ TWRITE=TWRITE+NSX CG )@@G@@ BUF20300 *[@@@@CTS@ Y@I@@@@ GO TO (50,105),LRECH )@@G@@T BUF20310 *[@@@@CTS@ *CI )@@G@@@I@@@@ 50 NSX=0 CJ )@@G@@ BUF20320 *[@@@@CTS@ 2@I@@@@ NY=NX+1 CK )@@G@@ BUF20330 *[@@@@CTS@ /@I@@@@ CL )@@G@@IF (NX-NN) 35,105,35 BUF203CM )@@G@@40 *[@@@@CTS@AA@I@@@@C STOP OUTPUT CN )@@G@@ BUF20350 *[@@@@CTS@AK@I@@@@ 55 LRET=2 CO )@@G@@ BUF20360 *[@@@@CP )@@G@@CTS@AU@I@@@@ SWRITE=TWRITE+NSX CQ )@@G@@ BUF20370 *[@@@@CTS@A=@I@@@@ IF (NSX) 105,105,45 CR )@@G@@ BUF20380 *[@@@@CTS@A,@I@@@@CS )@@G@@C START INPUT CT )@@G@@BUF20390 *[@@@@CTS@A8@I@@@@ 60 TREAD=0 CU )@@G@@ BUF20400 *[@@@@CTS@B]@I@@@@ NC=0 CV )@@G@@ BUF20410 CW )@@G@@*[@@@@CTS@BG@I@@@@ LRET=1 CX )@@G@@ BUF20420 *[@@@@CTS@BQ@I@@@@ NW=SIZE CY )@@G@@ BUF20430 *[@@@@CTS@B)CZ )@@G@@@ @@@@ 65 CALL NREAD(NIN,IN,NW) *[@@@@CTS@B%@I@@@@ TREAD=TREAD+DA )@@G@@NW BUF20450 *[@@@@DB )@@G@@CTS@B4@I@@@@ GO TO (105,90),LRET DC )@@G@@ BUF20460 *[@@@@CTS@B"@I@@@@C FILL INPUT BUFFER DD )@@G@@ BUF20470 *[@@@@CTS@CC@I@@@@DE )@@G@@ 70 LRET=2 DF )@@G@@BUF20480 *[@@@@CTS@CM@I@@@@ NY=1 DG )@@G@@ BUF20490 *[@@@@CTS@CW@I@@@@ 75 NX=NN DH )@@G@@ BUF20500 DI )@@G@@*[@@@@CTS@C&@I@@@@ IF (NC+NN-NY+1.GT.SIZE) NX=SIZE-NC DJ )@@G@@ BUF20510 *[@@@@CTS@C0@I@@@@ DO 80 I=NY,NX DK )@@G@@ BUF20520 *[@@@@CTS@C'DL )@@G@@@I@@@@ NC=NC+1 DM )@@G@@ BUF20530 *[@@@@CTS@D^@I@@@@ 80 A(1,I)=IN(NC) DN )@@G@@ BUF20540 *[@@@@CTS@DI@I@@@@ DO )@@G@@IF (NC.NE.SIZE.OR.SWRITE.EQ.TREAD) GO TO 105 BUF205DP )@@G@@50 *[@@@@CTS@DS@I@@@@ 85 NW=SIZE DQ )@@G@@ BUF20560 *[@@@@CTS@D+@I@@@@ IF (TREAD+SIDR )@@G@@ZE.GT.SWRITE) NW=SWRITE-TREAD BUF20570 *[@@@@DS )@@G@@CTS@D?@I@@@@ GO TO 65 DT )@@G@@ BUF20580 *[@@@@CTS@D6@I@@@@ 90 NY=NX+1 DU )@@G@@ BUF20590 *[@@@@CTS@E@@I@@@@DV )@@G@@ NC=0 DW )@@G@@BUF20600 *[@@@@CTS@EE@I@@@@ IF (NX-NN) 75,105,75 DX )@@G@@ BUF20610 *[@@@@CTS@EO@I@@@@C ENTDY )@@G@@ER NUMBER OF WORDS WRITTEN. BUF20620 DZ )@@G@@*[@@@@CTS@EY@I@@@@ 95 SWRITE=NIN EA )@@G@@ BUF20630 *[@@@@CTS@E*@I@@@@ GO TO 105 EB )@@G@@ BUF20640 *[@@@@CTS@E2EC )@@G@@@I@@@@C MOVE FORWARD ED )@@G@@ BUF20650 *[@@@@CTS@E/@I@@@@ 100 LRET=1 EE )@@G@@ BUF20660 *[@@@@CTS@FA@I@@@@ EF )@@G@@NC=NN+NC BUF206EG )@@G@@70 *[@@@@CTS@FK@I@@@@ IF (NC.LT.SIZE) GO TO 105 EH )@@G@@ BUF20680 *[@@@@CTS@FU@I@@@@ NW=NC-SIZE EI )@@G@@ BUF20690 *[@@@@EJ )@@G@@CTS@F=@C@@@@C IF (NW.NE.0) CALL NTRAN(NIN,22,6,NW,22) *[@@@@CTS@F,EK )@@G@@@E@@@@ IF (NW .NE. 0) CALL POSN(NIN,NW) @ POSITION UNIT NIN *[@@@@EL )@@G@@CTS@F8@I@@@@ TREAD=TREAD+NW EM )@@G@@ BUF20710 *[@@@@CTS@G]@I@@@@ NC=0 EN )@@G@@ BUF20720 *[@@@@CTS@GG@I@@@@EO )@@G@@ GO TO 85 EP )@@G@@BUF20730 *[@@@@CTS@GQ@I@@@@ 105 RETURN EQ )@@G@@ BUF20740 *[@@@@CTS@G)@I@@@@ END ER )@@G@@ BUF20750 ES )@@G@@_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF**[@@@@CTS@[=EU )@@G@@@A@@@@ SUBROUTINE BUF2(LF,A,NN,IX) *[@@@@CTS@[,@ @@@@ PARAMEEV )@@G@@TER NIN=2,SIZE=560*[@@@@CTS@[8@A@@@@ INTEGER TREAD,TWRITE,SWRITE EW )@@G@@*[@@@@CTS@]]@I@@@@ REAL IN(SIZE),A(IX,IX) EX )@@G@@ BUF20030 *[@@@@CTS@]G@I@@@@C EY )@@G@@ 1 2 3 4 5 6 7 BUF20100 *[@@@@CTS@]QEZ )@@G@@@I@@@@ 15 IF (LF.GT.0.AND.LF.LT.8) GO TO (25,30,55,60,70,95,100),LF FA )@@G@@ BUF20110 *[@@@@CTS@])@^@@@@ WRITE (5,500) LF *[@@@@CTS@]%FB )@@G@@@B@@@@500 FORMAT (' ILLEGAL OP CODE = ',I4) *[@@@@CTS@]4@#@@@@ FC )@@G@@RETURN 0 *[@@@@CTS@]"@I@@@@C START OUTPUT FD )@@G@@ BUF20150 *[@@@@CTS@#C@I@@@@ 25 L=0 FE )@@G@@ BUF20160 FF )@@G@@*[@@@@CTS@#M@I@@@@ TWRITE=0 FG )@@G@@ BUF20170 *[@@@@CTS@#W@I@@@@ NSX=0 FH )@@G@@ BUF20180 *[@@@@CTS@#&FI )@@G@@@I@@@@ GO TO 105 FJ )@@G@@ BUF20190 *[@@@@CTS@#0@I@@@@C FILL OUTPUT BUFFER FK )@@G@@ BUF20200 *[@@@@CTS@#'@I@@@@ 30 FL )@@G@@NY=1 BUF202FM )@@G@@10 *[@@@@CTS@^^@I@@@@ LRET=1 FN )@@G@@ BUF20220 *[@@@@CTS@^I@I@@@@ 35 NX=NN FO )@@G@@ BUF20230 *[@@@@FP )@@G@@CTS@^S@I@@@@ IF (NN+NSX-NY+1.GT.SIZE) NX=SIZE-NSX FQ )@@G@@ BUF20240 *[@@@@CTS@^+@I@@@@ DO 40 I=NY,NX FR )@@G@@ BUF20250 *[@@@@CTS@^?@I@@@@FS )@@G@@ NSX=NSX+1 FT )@@G@@BUF20260 *[@@@@CTS@^6@I@@@@ 40 IN(NSX)=A(1,I) FU )@@G@@ BUF20270 *[@@@@CTS@ @@I@@@@ IF (NSFV )@@G@@X.NE.SIZE) GO TO 105 BUF20280 FW )@@G@@*[@@@@CTS@ E@ @@@@ 45 CALL NWRITE(NIN,IN,NSX) *[@@@@CTS@ O@I@@@@ FX )@@G@@TWRITE=TWRITE+NSX BUF203FY )@@G@@00 *[@@@@CTS@ Y@I@@@@ GO TO (50,105),LRET FZ )@@G@@ BUF20310 *[@@@@CTS@ *@I@@@@ 50 NSX=0 GA )@@G@@ BUF20320 *[@@@@GB )@@G@@CTS@ 2@I@@@@ NY=NX+1 GC )@@G@@ BUF20330 *[@@@@CTS@ /@I@@@@ IF (NX-NN) 35,105,35 GD )@@G@@ BUF20340 *[@@@@CTS@AA@I@@@@GE )@@G@@C STOP OUTPUT GF )@@G@@BUF20350 *[@@@@CTS@AK@I@@@@ 55 LRET=2 GG )@@G@@ BUF20360 *[@@@@CTS@AU@I@@@@ SWRITEGH )@@G@@=TWRITE+NSX BUF20370 GI )@@G@@*[@@@@CTS@A=@I@@@@ IF (NSX) 105,105,45 GJ )@@G@@ BUF20380 *[@@@@CTS@A,@I@@@@C START INPUT GK )@@G@@ BUF20390 *[@@@@CTS@A8GL )@@G@@@I@@@@ 60 TREAD=0 GM )@@G@@ BUF20400 *[@@@@CTS@B]@I@@@@ NC=0 GN )@@G@@ BUF20410 *[@@@@CTS@BG@I@@@@ GO )@@G@@LRET=1 BUF204GP )@@G@@20 *[@@@@CTS@BQ@I@@@@ NW=SIZE GQ )@@G@@ BUF20430 *[@@@@CTS@B)@ @@@@ 65 CALL NREAD(NGR )@@G@@IN,IN,NW) *[@@@@CTS@B%@I@@@@ TREAD=TREAD+NW GS )@@G@@ BUF20450 *[@@@@CTS@B4@I@@@@ GO TO GT )@@G@@(105,90),LRET BUF20460 GU )@@G@@*[@@@@CTS@B"@I@@@@C FILL INPUT BUFFER GV )@@G@@ BUF20470 *[@@@@CTS@CC@I@@@@ 70 LRET=2 GW )@@G@@ BUF20480 *[@@@@CTS@CMGX )@@G@@@I@@@@ NY=1 GY )@@G@@ BUF20490 *[@@@@CTS@CW@I@@@@ 75 NX=NN GZ )@@G@@ BUF20500 *[@@@@CTS@C&@I@@@@ HA )@@G@@IF (NC+NN-NY+1.GT.SIZE) NX=SIZE-NC BUF205HB )@@G@@10 *[@@@@CTS@C0@I@@@@ DO 80 I=NY,NX HC )@@G@@ BUF20520 *[@@@@CTS@C'@I@@@@ NC=NC+1 HD )@@G@@ BUF20530 *[@@@@HE )@@G@@CTS@D^@I@@@@ 80 A(1,I)=IN(NC) HF )@@G@@ BUF20540 *[@@@@CTS@DI@I@@@@ IF (NC.NE.SIZE.OR.SWRITEHG )@@G@@.EQ.TREAD) GO TO 105 BUF20550 *[@@@@CTS@DS@I@@@@HH )@@G@@ 85 NW=SIZE HI )@@G@@BUF20560 *[@@@@CTS@D+@I@@@@ IF (TREAD+SIZE.GT.SWRITE) NW=SWRITE-HJ )@@G@@TREAD BUF20570 *[@@@@CTS@D?@I@@@@ GO TO HK )@@G@@65 BUF20580 HL )@@G@@*[@@@@CTS@D6@I@@@@ 90 NY=NX+1 HM )@@G@@ BUF20590 *[@@@@CTS@E@@I@@@@ NC=0 HN )@@G@@ BUF20600 *[@@@@CTS@EEHO )@@G@@@I@@@@ IF (NX-NN) 75,105,75 HP )@@G@@ BUF20610 *[@@@@CTS@EO@I@@@@C ENTER NUMBER OF WORDS WRITTHQ )@@G@@EN. BUF20620 *[@@@@CTS@EY@I@@@@ 95 HR )@@G@@SWRITE=NIN BUF206HS )@@G@@30 *[@@@@CTS@E*@I@@@@ GO TO 105 HT )@@G@@ BUF20640 *[@@@@CTS@E2@I@@@@C MOVE FORWHU )@@G@@ARD BUF20650 *[@@@@HV )@@G@@CTS@E/@I@@@@ 100 LRET=1 HW )@@G@@ BUF20660 *[@@@@CTS@FA@I@@@@ NC=NN+NC HX )@@G@@ BUF20670 *[@@@@CTS@FK@I@@@@HY )@@G@@ IF (NC.LT.SIZE) GO TO 105 HZ )@@G@@BUF20680 *[@@@@CTS@FU@I@@@@ NW=NC-SIZE IA )@@G@@ BUF20690 *[@@@@CTS@F=@C@@@@C IF (NWIB )@@G@@.NE.0) CALL NTRAN(NIN,22,6,NW,22) *[@@@@CTS@F,@E@@@@ IF (NW .NE. IC )@@G@@0) CALL POSN (NIN,NW) @ POSTION UNIT NIN *[@@@@CTS@F8@I@@@@ TREAD=ID )@@G@@TREAD+NW BUF20710 IE )@@G@@*[@@@@CTS@G]@I@@@@ NC=0 IF )@@G@@ BUF20720 *[@@@@CTS@GG@I@@@@ GO TO 85 IG )@@G@@ BUF20730 *[@@@@CTS@GQIH )@@G@@@I@@@@ 105 RETURN II )@@G@@ BUF20740 *[@@@@CTS@G)@I@@@@ END IJ )@@G@@ BUF20750 _@@@@@ 1070 BETAPIK )@@G@@ = -24.988 @^@[@@ 1071 VAZ = 90. @ @[@@ 1072 VLATT = -.0IL )@@G@@5571 @ @[@@ 1073 *[@@@@*SDFF**[@@@@CTS@[=@A@@@@ SUBROUTINE NIM )@@G@@READ(NIN,E,N) *[@@@@CTS@[,@ @@@@ CALL READN (NIN,N,E,ST) *[@@@@IN )@@G@@CTS@[8@ @@@@ IF (ST .NE. 0) GO TO 900*[@@@@CTS@]]@]@@@@ RETURNIO )@@G@@*[@@@@CTS@]G@ @@@@ ENTRY NWRITE (NIN,E,N) *[@@@@CTS@]Q@ @@@@ IP )@@G@@CALL WRITEN (NIN,N,E,ST)*[@@@@CTS@])@ @@@@ IF (ST .NE. 0) GO TO 900IQ )@@G@@*[@@@@CTS@]%@]@@@@ RETURN*[@@@@CTS@]4@#@@@@900 PRINT 500,ST*[@@@@IR )@@G@@CTS@]"@B@@@@500 FORMAT (' DRUM I/O ERROR CODE= ',I2)*[@@@@CTS@#C@#@@@@IS )@@G@@ RETURN 0 *[@@@@CTS@#M@]@@@@ END _@@@@@ -.07 .00 IT )@@G@@.00 .00 @Q@[@@ 1.400 385504. 21349.9 -29.0 .0 8.27 .100000IU )@@G@@00+01 17.72 15.1 45.00 -.10 .00 -.00)@@@F]=@@@@@)@@[@@@@@@@@IV )@@G@@@ASG,T 2,D .@ASG,T3 . @FREE 2 . @FREE /,0@@@AA@@@F)@C@K@)@[@'KIW )@@G@@)EDN@**@@@@@@[P@@@/K@@AI@@@@@+@@@@[@@@@@@@/,0@@@@@@@@@ 3,D .AB@@@FIX )@@G@@)@C[F#@**SCK>G]&@-))@@@@/C@@@M[@@@@F@[Q@@@@@@@@@@@@@[[/,0@@@[@)@[IC8)@@+IY )@@G@@[@@@@EAC@@@F)@L[F@K-ES G[#[@K^CK@@@@/,0@@@/^@@AO/C@@@T[@@@@F@[T@@@@@@@@]IZ )@@G@@@@@@[[/,0@@@/^@@AOAD@@@F)@U[E()O0^G^[@K-ES G@@@@@@@@@B@@@@[[/,0@@@/^@@AOJA )@@G@@/C@@@)[@@@@F@[W@@@@@@@@^@@@@[[AE@@@F)@<[MK0K^[]C*+A@-)C@@@[#N_0@@^R@K@[]JB )@@G@@@[+@@@@@@@@@/,0@@@/^@@AO/C@@@$[@@@@F@[Z@@@AF@@@F)@![N[K^G@[#[#[#@@S@@@[^JC )@@G@@C@@@@H[#)@@IN_)@@ C_)@@[N_0@@[R/K@@ @@@@H8N0@@?[@[-S[AG@@@F)@7[N#@@^G@KJD )@@G@@0@@@@@[@@@[KG/0@@AE@0@@J[@0@[JG/0__9T/0@@AG/0@@[W/)@@A;O)@@=C@)@@HAH@@@FJE )@@G@@)[[[N#[#@[9@K@@@@@/@)@[YG/)__';C)@@Y;)?@@@C@-J_"E@@@@GG/@__9T/@@@AC@@@@IJF )@@G@@[@0@[LAI@@@F)[F[N#@[9[#[#[#@@@R@)@[KE[@@[JE@@@[L;C)@@Y;)?@@@C@-J_"E@@@@GJG )@@G@@G/@__9T/@@@AC@@@@IAJ@@@F)[P[N[[#[#[[^G^G@@G_)@@[[@@@@HG@@@@HC/@@@[[@2[S]JH )@@G@@;@0K[J[[@@[J;G)@@A;)/@@@C@2[S]AK@@@F)[Z[N@^[#[#[#@@@@@T/0@@AG/0@@[W/)@@AJI )@@G@@;O)@@=C@)@@HS@@@[^C@@@@H8N0@@2O/K@@[8N)@@4AL@@@F)[([MK0@K0^^@@@@@@;H)@@AJJ )@@G@@;-_@@@C[/[S]C.)@@*E[@@[KE@0@@JG/0@@AE@0@@J[@0@[KG/0__9AM@@@F)[3[N#[#[[^GJK )@@G@@^G@@@@N_)@@ C_)@@[N_0@@[R/)@@#[@@@@HG@@@@HC/@@@[[[/[S];[0K[K[[@@[KAN@@@FJL )@@G@@)[.[N#[#[#[#@@^G@@[@0@[KG/0__9T/0@@AG/0@@[W/)@@A;O)@@=C@)@@HS@@@[^C@@@@HJM )@@G@@[#)@@IAO@@@F)]B[M^G^G^G@B=@@@@;)?@@@C@+J_"E@@@@GG/@__9T/@@@AC@@@@I[@0@[JJN )@@G@@[@@@[LG/0@@AE@0@@JAP@@@F)]L[M^[#@[9@@@@@@@;C)@@Y;)?@@@C@+J_"E@@@@GG/@__9JO )@@G@@T/@@@AC@@@@I/@)@]$G/)__';C)@@YAQ@@@F)]V[F#[#[#[[[#[#[[@@@@@@[@1[S];@0K[KJP )@@G@@[[@@[K;G)@@A;)/@@@C@1[S]R@K@[LE[@@[KE@@@[JAR@@@F)]=[EK0K0^@K^E+&@@@@@@@@JQ )@@G@@@[@@[[/,0@@@8N0@[;O/)@@[8N)@[.G_)@@[[@@@@HG@@@@HC/@@@[AS@@@F)]!@%()CP>^@JR )@@G@@)@V@)@@@@@@@ 5A6) F FILEXREF O(014H @@[@@ @^K[S]'^@@@@@] @@@@@@@@VAT@@@FJS )@@G@@)]2[F]1[K0KOG[#@K0@@@@@@[@)@@MC/)@@[[@@@@LC/@@]H[@@@@KCC@@]![@@@@JC^@@]!JT )@@G@@'^@@@@AU@@@F)];[N#[@K0[@K^G@@@[[@@[JG.@__"C[@@@J/ @@AC/H@@#]G.@"17T.@@@AJU )@@G@@C[@@@J/K@@A#(@@@@JAV@@@F)# [F#[#[#[#[#[[[@@@@@@@/@@@#[@+[S]AY@@@F)#-[F#[#[#[#JY )@@G@@[#[@K0^G@@@@[@)@@MG/)__"C@)@@M8N0@# [@@@@LG@@@@KC@@@@L[]@@@MG]@@@MAZ@@@FJZ )@@G@@)#%[F#[@K0K0K(@@@@T8N)@^1[@@@@OG@@@@OC/@@@[@#D@@@BK@@@F) E[N#[#@^G@KM )@@G@@KO[]K@/,0@@@^^K@ PN8M[S[[@)@[IQ@0@@GR@0@[E;K)@@]G/)__"C@)@@TG@@@@UBL@@@FKN )@@G@@) O[E()) G]&@)*]^-N@@@@@@@@@[C/,0@@@^^K@ XN8N)@-@#M@@@@@@@[ @@@@[D@@@@ PKO )@@G@@@@@@[CBM@@@F) X[N@ES G@K0K0K@@O/)@@AO/K@@A8N)@ L[@@@@PG@@@@PC/@@@[@#N@@@KP )@@G@@@@@@[ @@@@[D@@@@ XBN@@@F) $[F@K@K@)A[@:]KT )@@G@@1@K!ES@@@@@@)@$@C@(032H @#-@@@@[@@@$/,0@@@/K@@AT'^@@@@**) **DONEBR@@@FKU )@@G@@)@*@0@@@@@@@)AA@V]1@K!@@/,0@@@/K@@AT'^@@@@E) IN FILMENTS LE ELEOCATABKV )@@G@@NO RELBS@@@F)AD@%() G^F^@@@@@@)@,@S@@@@@@@NY RELTOO MA(031H /K@@AT'^@@@@KW )@@G@@@@K@@J@#>@@@@[@@@,BT@@@F)@1@)@@@@@@@)AI@<]4() G@@@@@@@@@K@@E@#%@@@@[@@@5KX )@@G@@/,0@@@,I5) MENTS LE ELEOCATABBU@@@F)AM@N]1@@@@@)@5@)@@@@@@@)AO@F]4@@@@@KY )@@G@@/,0@@@,O5) ERROR RPFET (013H /K@@AT'^@@@@BV@@@F)AP@+() G^F@)@9@*@@@@@@@KZ )@@G@@32 FILSIGN 4 TO ASUNABLE(028H '^@@@@@@K@@F@#\@@@@[@@@9BW@@@F)@"@K@)AT@;]LA )@@G@@)()O0^E]&[N@@@@@@]@@@@[[/,0@@@@#3@@@@@@@@@@@@@[[/,0@@@) E. ,O5BX@@@FLB )@@G@@)A)@%K,ESCR G@@@@@)[@@S@@@@@@@@@[@@[@@@@@A@@@[R)@@@@[H/,0@@@@@@@[G/,0@@@LC )@@G@@@#4@@@BY@@@F)[#[S@@@@@@@ @@@@@#@@^@@@@@@@@^@@@@@]@@]@@@@@@@@@LD )@@G@@@@@@@[E%%%%: BZ@@@F0@@@]@@@@@@@ @@@@@#@@^@@@@@@@@^@@@@@]LE )@@G@@@@]@@@@@@@@@@@@@@[E%%%%: CA@@@F@@@@@@[@K0[@K^G@@@[[@@[JG.@__"C[@@@JLF )@@G@@/ @@AC/H@@#]G.@"17T.@@@AC[@@@J/K@@A#(@@@@JAV@@@F@@^@@#@@B@@J@@>@@[@@(@@[LG )@@G@@@@^@[M@C@@A>@@@]&EFILECT NERTRN FACIL BUF2 BUF3 LH )@@G@@ IOW REWN SORTRF ERTRAN NINTR$ NWDU$ LI )@@G@@ NIO3$ NIO2$ NPRT$ NSTOP$ FORMAIN$ @@[@@@LJ )@@G@@@@@@@@@@@@@@ ^@@@C@@]@@@@@@@@@@@&[@@@K&[@@@Q&[@@@&&[@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[U@@@@@@@1@@@@K*@@@@KH[FK@@C.@[ICC/)@@[ @@@@GLL )@@G@@1@@@@I*@@@@IH@:K@[C/)[ICC/@@@[AA@@@F)@F[U^@@@K@@/=K@#U)@@@@I @@@@I*@FK@@LM )@@G@@C/)@@[ @@@@G*@FK@[C/@@@[/=K@#U)@@@@I @@@@IAB@@@F)@Q[F]@()O0ES G^G^G[#@@@LN )@@G@@R@K@@VG/@__"C@@@@7@[G@@>@@@@@U@@@@@U@@@@@U@@@@@T/,0@@@AC@@@F)@Z[EYO[]@()LO )@@G@@) G]&[N@@@@@@[K@@>@@@@@Y@@@@@X@@@@@=@@@@@W/,0@@@^^K@@=N8L\_"[@@@[JAD@@@FLP )@@G@@)@*[F@K-ESCSCK G]&[N@()@@@@@@U@@@@@U@@@@@U@@@@@)/,0@@@@[M@@>@@@@@Z/,0@@@LQ )@@G@@8N0@@)AE@@@F)@1[F#@KL#[@K^G^G@@@@@@@[@@@@8D@@@@7/@@@[@/C@@[@H@@@@7C/@@@[LR )@@G@@[@@D1@C/@@@[@[N@@>AF@@@F)@'[F]D#@*>^**SCS]A@@@@@R@K@@VG/@__"C@@@@7@[Q@@>LS )@@G@@@@@^8)@@@E_C@@@D1@@@@@@8/,0@@@AG@@@F)[#[EKOG^GB>@K)ESC@@@@@@@@@@[F@@@@@ZLT )@@G@@/,0@@@^^K@[FN8MJ_"R@)@@[[@@@@[C@[(0_[@@@[JAH@@@F)[G[E()O0K0K^C]&[N@()O0@LU )@@G@@@@@@@U@@@@@U@@@@@U@@@@@-/,0@@@8N0@[^@[V@@>@@@@@Y@@@@@XAI@@@F)[P[F#[]^()-LV )@@G@@)-AO0ES G]&@@@@@@U@@@@@U@@@@@U@@@@@T/,0@@@@[Y@@>@@@@@Z/,0@@@@[X@@>AJ@@@FLW )@@G@@)[Y[F#[]@()O0ES G]&]A@@@G/@__"C@@@@9@[)@@>@@@@@U@@@@@U@@@@@U@@@@@T/,0@@@LX )@@G@@@[Z@@>AK@@@F)[$[F#@YO[]G()) G]&@@@@@@@@@@Y@@@@@+@@@@[!@@@@@W/,0@@@^^K@[!LY )@@G@@N8M\_"[@@@[JR@)@@VAL@@@F)[0[F#[@^^K0K^[#@@@@@@@@D@@@@9/@@@]@/C@@]@H@@@@9LZ )@@G@@C/@@@[[@@D1@C/@@@[8N0@[(@[=@@>AM@@@F)[9[F#[]D#@*>^**SC]A@@@@@[(@@>/,0@AWMA )@@G@@@[*@@>@@@^8)@@@E_C@@@D1@@@@@@8/,0@@@[@@@@8AN@@@F)]][MK0K0K0@K0KOG@[@@@@^MB )@@G@@C@[D0_A@K@@@[@)@[JR/K@@[G/)__"C@)@@9 @@@@#[@@@@]C/@@@[AO@@@F)]G[F#[[K0K=MC )@@G@@ES #[#[[@@@C/]^8ZR@)@@^@[1@@>@@@GHK@[@@@C/,0@@@[@)@@ CC+BO\R@)@@^AP@@@FMD )@@G@@)]P@<]P[ESCC)@C@*@@@@@@@003H) (,O6,2,002H6,2X,O(1X,2A@@MC+7@@K@@ @@MAA$ME )@@G@@'^K@@@AQ@@@F)@H@C@)]T[#]T@K0K0^[]X@@/K@@]<'^@@@@/C,@]Z?8)@@#C@)@@]@[8@@>MF )@@G@@/,0@DL'^@@@@() AR@@@F)]-[F@K0^G^G^G^[@K)@@@@@/,0@@@/^@@#N/G@@](H@@@@7MG )@@G@@[@@@@#G@@@@#C/@@@[@[9@@>/K@@]\AS@@@F)]%[E()OM&[N[#[#[[KO@@@@/@@@]5H4@GH%MH )@@G@@C4]^8ZR@)@@^@[.@@>@@@@@)@@@@@X@@@GH&@@@@@WAT@@@F)]3[N@K^^^^[@@@@@@/@@@]_MI )@@G@@H@@@@I;C)@@A;))@@AC@+^8Z;C@@@A;)@@@AC@@GH%/K@@]/,0@AQ/K@@]/K@@#MM )@@G@@/,0@AT[@@@@]C/@@@]AX@@@F)#U@:])()O0K0K0@@@)@I@S@@@@@@@ENTRY ERROR (020H MN )@@G@@@@K@@7@@K@@9@]K@@>@[@@@I/,0@@@AY@@@F)@L@8@@@@@@@)#Z@N]T@@@@@N@0@#+'^@@@@MO )@@G@@=,I6) RENCESL REFEXTERNA22H, E=,I6,0POINTSAZ@@@F)#-@;@K0K0K0K0K0K0@@@@@@MP )@@G@@)@<@C@@@F@@#*4@K@/K@@##[#[#[#@@^#0@@/A@)@@;A@K@@'AA0@@&/K@@@@/K@K@<@]P MUSORTRF@@@@@@BB@@@FMR )@@G@@)#,[N@K^G^ [[#@@@@G/@@@AE@@@@G[@@@@.G/@__9T/@@@AC@@GH?R@KGH!@]T@@?/,0@A4MS )@@G@@/K@@DTBC@@@F)#8[MK0K0KK^^@@@@@N_0@@[R/K@@[[[LGHJ;[Y@@@;H@@@A;-W@@@C[LGHJMT )@@G@@C[@@@$E@)@@.E@@@@GBD@@@F)^][N#@^G^G@^^@@@@;)?@@@C@-GH>E@@@@GG/@__9T/@@@AMU )@@G@@C@@@@@[#)@@@N_)@@ C_)@@[A@K@@ABE@@@F)^G[M^[@K0KO^^G@@@[@@@@.G/@__9T/@@@AMV )@@G@@C@@GH?R@)GH!@]<@@?/,0@A4/@)@^%G/)__';C)@@YBF@@@F)^Q[M^G@^^@@@@@@@@E@@@@GMW )@@G@@;D@@@Y;-I@@@C[[GH>E@)@@IG/)__9T/)@@AC@)@@@G/@@@AE@@@@GBG@@@F)^)[N#[[@KL@MX )@@G@@^@@@@@8N0@^]O/K@@[8N)@^ G_)@@[[[MGHJ;[Y@@@;H@@@A;-W@@@C[MGHJE@)@@.BH@@@FMY )@@G@@)^%[F[K0K^[#[[KK@@@@@@@@G/@__9T/@@@AC@@GH?R@)GH!@](@@?/,0@A4/@@@ *H@@@@*MZ )@@G@@C@@GH*BI@@@F)^3[N#@[#[#[[@@@@@;[Y@@@;H@@@A;-W@@@C[MGHJC[@@@(E@)@@.E@@@@GNA )@@G@@G/@@@AE@@@@G[@@@@.BJ@@@F)^.[N[[#@^G^G@@@@@G/@__9T/@@@AC@@@@@[#)@@@N_)@@ NB )@@G@@C_)@@[A@K@@AN_0@@[R/K@@#[[MGHJBK@@@F) B[MKK^[@K0KO^@@@C@@GH?R@)GH!@]3@@?NC )@@G@@/,0@A4/@)@ *G/)__';C)@@Y;)?@@@C@-GH>E@@@@GBL@@@F) L[M^G@K0@KK@@@@@C[[GH>ND )@@G@@E@)@@IG/)__9T/)@@AC@)@@@G/@@@AE@@@@G[@@@@.G/@__9T/@@@ABM@@@F) V[M[#[[@KKNE )@@G@@@@@@@@G_)@@[[[MGHJ;[Y@@@;H@@@A;-W@@@C[MGHJE@)@@.E@@@@G;D@@@Y;-I@@@BN@@@FNF )@@G@@) >[N@^[[^[@K^[#@@@]8@@?/K@@A#N@0@ ,/@@@ \/C@@ \G/@__?C@@GH!8N0@ @O/K@@[NG )@@G@@8N)@ #BO@@@F) \[F]*()O0K0K:EC-G-)@@@R@)@@V'^@@@@@@[@@Q@^KGHK'^@@@@@]'@@?NH )@@G@@@@@@@S@[@@@X/,0@@@BP@@@F) 8@E@)@S@C@) 9@3#[[K[[@@@@@@@C.@@@[[@)GH!C/)@@ANI )@@G@@8N0@ 9[@]?HJC@@@@*(22A6)N_0@@PBQ@@@F) _[F[K^[#[#[#[#[#[#@@@@R@)@[#R@K@[]NJ )@@G@@9\)@[@9!)@@"R]0@@!@#A@@?/K@@A#N@0@A][[@GH?BR@@@F)AC@V#[#[#@@)@%@)@@@@@@@NK )@@G@@@@@@)@@@@@@@@#A MUINSERT@@@@@@@@F@@@*4@K@%N#)@[ N#0@[^BS@@@F)AF[F#[]>#[#NL )@@G@@[#[#[#[#[#@@^#0@[^A@)@[#A@K@[]9:)@[@9()@@"[^@@@%AA0@@!/K@@@@/K@K@%BT@@@FNM )@@G@@)AO[N#@^[@^[@^@@@@/\K@AHC8@@@[/K@@ \/\K@AHC8@@@[/K@@#\/\K@AHC8@@@[/KH@@@NN )@@G@@^#)@[ BU@@@F)AY[N@^ [KL@K^[@@@/K@@A0N@0@A*/@@@A(/C@@A(G/@__8C@@GH?[@@GH?NO )@@G@@G@@GH?C/@@@[/K@@ 7BV@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@]@@@@ AXR$ @#@@@@NG* TNZ,U EV )@@G@@ 1 @#@@@@ J KK @^@@@@OPT* ER OPT$ @^@@@@ SEW )@@G@@ A0,OPT @#@@@@ SZ,H2 NG @#@@@@KK SZ A3 @^@@@@EX )@@G@@ L A1,*1,X11@^@@@@ L,U A2,1 @^@@@@ L EY )@@G@@ A0,A2 @^@@@@ SSC A2,10,A1 @^@@@@ TOP A2,OPT EZ )@@G@@@#@@@@ SZ A0 @^@@@@ J 2,X11 @]@@@@ END FA )@@G@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[KK^C@^[@@@@@@@;@!@@ER#@@@IR;)@@[R#VK@[ @@@@JFC )@@G@@ ^@@@@A#@@@]'=@@@@/K@@@ (8@@@[AA@@^K)@E@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@] @@@@G>@)@@]AB@@^K@@^@@[@@ @@[@@B@@]@@J@@@FE )@@G@@@@@@@HOPT$ NG @@@@@@@@@@@@OPT @@@@@@@@@@@] FF )@@G@@ T$WR 'F' 10,LINE @#@@@@SSO1 E$OUT @ @@@@ E$A 1FG )@@G@@*[S@@@*SDFF*@B@@@@ SUBROUTINE DUUR(IT1,IT2,IH,IM,IS) @E@@@@ FH )@@G@@DEFINE K(L,M)=10*(FLD(L,6,M)-48) + FLD(L+6,6,M)-48 @G@@@@ IS=(K(FI )@@G@@0,IT2)-K(0,IT1))*3600+(K(12,IT2)-K(12,IT1))*60+K(24,IT2) @#@@@@ :FJ )@@G@@-K(24,IT1) @#@@@@ IM=IS/60 @#@@@@ IS=IS-60*IM @#@@@@ FK )@@G@@IH=IM/60 @#@@@@ IM=IM-60*IH @]@@@@ RETURN@]@@@@ END FL )@@G@@___@@@@@@@@@@@@@@@[DJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@ = .OR. .AND. .EQ. .NE. .LT. .GT. .GE. .LE. + FN )@@G@@)@@[U@@@@@@@T.@@@EG.@__JC!FK@@G/@__JG0FK@[T/)@@EG/)__JC4:K@@T/@@@EG/@__JFO )@@G@@C4FK@[AA@@@F)@F[U@@@@@@@G/)__JG0:K@@T.@@@/H[@@@MG.)__JG(:K@[T.)@@EG.)__JFP )@@G@@C!:K@[G.@__JG(FK@@AB@@@F)@Q[U@@@@@@@G/)__JC=:K@@H@@@@KG/@__JG)FK@[T/@@@EFQ )@@G@@G/@__JC=FK@[G[@@@IT/)@8KH@)@@GAC@@@F)@-[U@@@@@@@[@)@@@G@)@@@T/)@@/]@)@@@FR )@@G@@W/)@@/;O)@@=]@)@@@H@)@@GG/)__JG):K@@T/)@@EAD@@@F)@?[M@@K^[#@@@@@@@@[D@@]FS )@@G@@/K@@@6N@0@@5]@@@@@H@@@@@T/@@@/[@@@@@W/@@@/;O@@@=C@@@@@AE@@@F)@6@N#^G@@@@FT )@@G@@)@@@C@)@8@N#^C@@@@)@]@K@@[D@@^DUUR /K@@@@/K@K@@@@F@@A*4@K@@9!)@@^AF@@@FFU )@@G@@)@'[N#^G^@K^[@K@@@C8FK@^[^@@@*[^@@@?[^@@@1[^@@@2C8FK@#[^@@@\C8FK@]9()@@^FV )@@G@@AA0@@#AG@@@F)[^@<@K^[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@@FW )@@G@@[^@@@>[^@@@%[^@@@:AH@@@F@@^@@#@@B@@[@@D@@[@@H@@[@@]@@A@C@@[C@@@@@@NERR3$FX )@@G@@ DUUR @@[@@@@@@@@'@@@@@@ ^@@@C@@]@@@@*4@S6[H@@^G=@@@@@#FY )@@G@@^^@@@]@@F@@@H@[@@@@@@@@@@@@@@@/K@S6[@@@@@@/K@C6L*[S@@@*SDFF*@]@@@@ FZ )@@G@@AXR$ .@[@@@@$(0) .@#@@@@MSG 'ESCAPE' @#@@@@ESC 'D,@@ESCA' @[@@@@GA )@@G@@$(1) .@^@@@@ESCA L A0,(2,ESC) .@#@@@@ ER PRTCN$ @^@@@@ GB )@@G@@L A0,(1,MSG) .@ @@@@ ER PRINT$ . @ @@@@ ER GC )@@G@@EXIT$ . @#@@@@ END ESCA ___@]M@^B@D8@@@@@;@@7@@$@RO@#?GD )@@G@@@A.@BL@TK@]G@@5@FK@J:@[=)@@@S@)@@@:#@[]@[#@[]@ ]@C@@@@'=@@@@'=@@@@R#@@@^GE )@@G@@'=@@@@R#@@@#CA D,@@ESESCAPEAA@@@ )@#@K* @@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@]@@[AB@@@ 0@@@]@ @@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@]@@[AC@@@ @@@@@@DSIN$ GH )@@G@@ @C@@@@@@@@CCDCOTAN$ @C@@@@@@@@CDDCOTN$ @C@@@@@@@@CDDTAN$ GI )@@G@@@@^@@]@@A@@#@@G@@@@@G@@@@@@@@ @@@@@ PRTCN$ PRINT$ EXIT$ GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@======@@^@@ @@@@@@@@@@@@@@ @C@@@@@@]@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E]ZBSE70-1 @@@)]@@@@@@^@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@A@@A@@A@@A@@@@@@@@@@@^@@@@#)@@@@@@@^@@@]@^@[@[@ @@@]K^@[@)GN )@@G@@ VO@@@F-)S[S@@@@@@@GO )@@G@@ VP@@@FGP )@@G@@@@ @C@)B;@C @@@___@@ ^@@)B;^@ @@@___@@@___@@@___@@@___@@@___@@@___@@@___GQ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GR )@@G@@@@@___@@@___@@@___@@@___R#@^@#'=@@[ZR#@^@^'=@@@I'=@@@DESCAPED,@@ESCA GS )@@G@@@@]^@[@@[^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]GU )@@G@@@@@#@ @@@@@] VU@@@F--U[S@@@@@@@GV )@@G@@ VV@@@FGW )@@G@@ERU$ D1<]FEESCA E[&BSE GX )@@G@@ VW@@@F--0[S@@@@@@@ GY )@@G@@ VX@@@F$IBANK @@@@@[$DBANK @@#@@[ GZ )@@G@@ VY@@@F-+A[S@@@@@@@ HA )@@G@@ VZ@@@F@@@@@#@@@[@^@@ @C@@@@@@#HB )@@G@@)@@@@ @@ ^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@*[S@@@*SDFF*@#@@@@ AXR$ . @[@@@@$(1) .@]@@[@DELAY* . @ @@@@HE )@@G@@ L A1,*0,X11 . @ @@@@ ER TWAIT$ . @ @@@@HF )@@G@@ J 2,X11 . @#@@@@ END . ___ ;1C8)@@]/,0@48HG )@@G@@C80 ;2C8)@@]/,0@48C80 ;3C8)@@]/,0@48/,0@43N;)@D-C8@^8&/,0#V5@@@@@]C90@@XHH )@@G@@[[_@@]/,0^'U@@@@@[B[@ /UN;)@D+C8@^8&/,0#V@@@@@@])@@@UK)@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/KF@@]'=@@@@R#VK@@AA@@@^@@@@@@C[0 ;9HJ )@@G@@[[_@@]C[0 ;'[[_@@#C[0 ;P[[_@@^/,0^'U@@@@@@N;)@CYC8@^8&/,0#V&@@@@@AC[0 ;;HK )@@G@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@@@@@@@#TWAIT$ DELAY @@[@@@@@@@@@HL )@@G@@DCCDCCDCDTCUUU @I@[@@SUUUUUUUUUUUUUUUUUUUUUUUUIIIIIIIIUIGUHGGUGFEEEEUHM )@@G@@ECCCCCUCGGGGGUGEEEUETTTT*[S@@@*SDFF*@]@@@@ AXR$ .@[@@@@$(0) .@]@@@@HN )@@G@@TYPE +0 . @[@@@@$(1) .@]@@@@BATCH* . @C@@@@ L,U A0,TYPE HO )@@G@@ . SET BUFFER ADDRESS @B@@@@ L A1,(1,030) . PCT WRD 030 HP )@@G@@@A@@@@ ER PCT$ . GET IT @A@@@@ SZ A1 HQ )@@G@@ . A1=0 @C@@@@ L,S2 A2,TYPE . FETCH PROGRAM TYPE @A@@@@HR )@@G@@ TE,U A2,4 . TYPE 4 ? @B@@@@ L,U A1,1 . NO,HS )@@G@@ SET A1=1 @B@@@@ S A1,*0,X11 . STORE RESULT @A@@@@ HT )@@G@@J 2,X11 . AND EXIT @]@@@@ END ___ ?6"@I ?8"^J !@A#@ !CHU )@@G@@R#@ ?7"@I !@"@J ?8A#@ !D/,0[W8@@@ !C@@@ !D@@@ !G/S@@@@R_@@@]A#@ !G8]K[);HV )@@G@@R#@ ?6"@@ ?_A#@ ?6R#@ ?7"@@ !BA#@ ?78^)[-@R]K ?3)@@@C@)@@@'()@-)@-@@CS@@HW )@@G@@@@@@@@R;K@@[%8)@@^R3)@@@ @@@@H'=@@@@R#K@@[R;@@@@@@@@@@AA@ )@B@M@)@[@C@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@S/KF@@]A#VK@@AB@ HY )@@G@@@@^@@]@@A@@[@@C@@[@@G@@@@@@@@]@@@@@DPCT$ BATCH @@[@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[F]U]A@K0]A[#@@@@@@@@ @@[XI[[@[XHC.@@@H[@)[XGIB )@@G@@C/)@@A[@@[XFC/@@@ @@@@@@/,0@@@AA@@@F)@D[F#@-)^G]A[#@CS@@@@@@N_0@@N^@K[XNIC )@@G@@N/K@@[[]@[XMC]@[ZJ[[)[XLC.)@@[ @@[XK @@[XJAB@@@F)@M[F]W-)K0]A[#@-)K0CS@@ID )@@G@@@@K[XS@@K[XR@@K[XQ@@K[XP@@K[XO@[N@@@@@@[YG@[@[XF/,0@@@AC@@@F)@V@F#@@@@@@IE )@@G@@-YG@C@)@W@:]Y-)K0CS^G@@@G@@[XRG@@[XQG@@[XOC@@[XP'^@@@@(6I1) @@K[XTAD@@@FIF )@@G@@)@-@N#@-)@@@-YH@0@@@@@@@@@@@@@/) 0X6I2/O.I4,1TURE N-D PIC(16H13G@@[XTIG )@@G@@G@@[XSAE@@@F)@<[F#@C]^[#@-)K0] @@@@@/,0@@@@[-@@@@@@[ZL@@@[ZK@@@[ZK/,0@@@IH )@@G@@/C@@@!*@@@@G[@@[XUAF@@@F)@?[F#@-LK0CS[#@-)K0CS@@@@K[XQ@@K[XP@@K[XO@@K[XNII )@@G@@@[=@@@@@@[YH@[@[XG/,0@@@@@@[ZMAG@@@F)@5[F#@-)K0CN4G]@)CN=G@@@[@[XF/,0@@@IJ )@@G@@/G@@[K/@@@[KC@@[XO'^@@@@@@K[XT@@K[XS@@K[XRAH@@@F)@"@;#@CS[#@-MK@@@-YN@K@IK )@@G@@A2) (13A6,8N)@[]'^K@@@C/[-U8N_)@@HR@K[ZN@[0@@@@@@[YNAI@@@F)[ [F]Y-LK0CIL )@@G@@S[#@CS^EK@@@'^K@@@C/[-U8N_)@@HR@K[ZN@[7@@@@@@[YP@[@[XG/,0@@@'^@@@@AJ@@@FIM )@@G@@)[I@N@K$)@@@-YP@*@@@@@@@@@@@*@@@@@@@,A2) 5X13A6TYPE 1 DATA (//12H'^@@@@IN )@@G@@8N)@[GAK@@@F)[K[F#@)C]^9#@-)^G]A@@@@@@K[XX@@K[XW@]]@@@@@@[YU@[@[XF/,0@@@IO )@@G@@/G@@[\/@@@[\C@@[XPAL@@@F)[T@;#@-)K0CS^G]A[#@@@@@-YU@C@(2I5,5@@K[X=@@K[X@[@[XF/,0@@@IW )@@G@@A@K[X>[@@@[IR/K@@[G/@__"[@@[XVAS@@@F)]B@V#@-)K0@-Y>@0@@@@@@@I5,3E1PE 35XIX )@@G@@ATA TY(12H D3) (3E10.@@-[SY@@-[SX@@-[SWAT@@@F-Y:@C@)]E@;]Y-)K0C]@-)K0IY )@@G@@@@@@@@[@@[XIC@@[X>/C@@]"/@@@]""^@[XMC@[[SW'^@@@@5.5) AU@@@F)]L[EK^E]A[#IZ )@@G@@@]^9#@@@@@@@@[@[ZR/,0@@@N_K@@2N_)@@2R@K[ZQ@@@[ZP/,0@@@8N)@]]O/K@@[AV@@@FJA )@@G@@)]U[F#@CS^G#6[]Y)CS@@@@@'O@@@[C^@[ZS8NK@]S'^@@@@@@-\_F@@)[X$@@)[X$@]/@@@JB )@@G@@@@@[Y?AW@@@F)]<[EK^G@CN=G]A@@@@@@@@@@#D@@@@@@[Y?@[@[ZR/,0@@@N_K@@;N_)@@2JC )@@G@@R@K[ZT8N)@]R]@@@@[AX@@@F)]?[F#@-)Y0CN4[#@]@@@@@@8N)@]$]@@@@['O@@@[C^@[ZUJD )@@G@@8NK@]*'^@@@@@@-\_F@@)[X$@@)[X$AY@@@F)]5@;]W-)K0]A[#@-)@@@@@@-Y?@C@(3E10.JE )@@G@@@@)[X$@@)[X$@@)[X$@#K@@@@@@[Y?@[@[ZR/,0@@@AZ@@@F-Y!@C@)]/@;]Y)CS^[@K$CS@JF )@@G@@@@@@@@@[@[XF/,0@@@/G@@#=/@@@#=C@@[XR/K@@]"'^@@@@3) BA@@@F)##@;#@CS^G]JG )@@G@@A[#@-)@@@@@@-Y,@C@(4F10.@@K[X?@@)[X:@@)[X%@@)[X(@@)[X*@#V@@@@@@[Y,BB@@@FJH )@@G@@-Y\@C@)#E@;]Y-IK0CS[#@-)@@@@@@@@)[X,@@)[X!@#<@@@@@@[Y0@[@[XF/,0@@@'^@@@@JI )@@G@@0,I5) BC@@@F)#L@V#@-)K0@-Y0@K@)#O@V]Y-LK0@@[@[XG/,0@@@'^@@@@0) (5F10.JJ )@@G@@@@)[X1@@)[X0@@)[X\BD@@@F)#R[F#@CS^G]A[#@-)K0CS@@@@)[X\@@)[X,@@)[X!@@)[X:JK )@@G@@@@)[X%@@)[X(@@)[X*@#:@@@@@@[Y2BE@@@F)#)@<#@-)K0CN0@@@@-Y2@)@@@@@@@5X7E12JL )@@G@@TYPE 4 DATA (//12H'^@@@@@@K[X?@@)[X1@@)[X0BF@@@F-Y6@K@)#=@;#@)C] #@-)@@JM )@@G@@@#/@@@@@@[Y8@[@[XG/,0@@@/G@@^B/@@@^BC@@[XS.1,I3).4,2F7BG@@@F)#:@V]Y@@@@@JN )@@G@@-Y8@C@)#,@V#@-IK0@@@@@@@@[@[XF/,0@@@A@K[X2(//) N_)@@2R/K@@['^@@@@BH@@@FJO )@@G@@)#1@V#@CS@@@-Y9@K@)#4@V]Y-LK0@@[@[XG/,0@@@'^@@@@) (E10.4@@-[SZ@^]@@@JP )@@G@@@@@[Y9BI@@@F)#7@<#@CS^G@-Y;@*@@@@@@@.5) I5,E15PE 55XATA TY(12H D@@-[SZJQ )@@G@@@@K[X2@^A@@@@@@[Y;BJ@@@F)#;[F]Y-)K0C]@C] [#@@@@@@@@[ZV/,0@@@8N)@#,O/K@@[JR )@@G@@/C@@^^/@@@^^"^@[XMC@[[SZ'^@@@@BK@@@F)^^[EK0CS^G]@)COOG]A@@@@@@@[Z@@[@[XGJS )@@G@@/,0@@@/G@@^?/@@@^?C@@[XT]@@[XJH@@[X2C/@@@[BL@@@F)^H@+K$)@@@@-Z@@C@)^L@V#JT )@@G@@@-IK0@@[@[XF/,0@@@A@K[X>(//) N_)@@2R/K@@['^@@@@@^Q@@@BM@@@F)^O@<#@CS^G@JU )@@G@@-Z[@K@)^S@N]Y-L@@@/,0@@@'^@@@@4) (2E10.@@-[U @@-[TM@^W@@@@@@[Z[BN@@@FJV )@@G@@)^U@3#@-)^G]A[#@@@-Z#@S@PE 65XATA TY(12H D@@-[U @@-[TM@@K[X>@^-@@@@@@[Z#JW )@@G@@@[@[XGBO@@@F-ZA@K@)^)@;]Y-)K0]@C@@@@8N)@^LO/K@@[/C@@^(*@@@@G"^@[XMC@[[TMJX )@@G@@'^@@@@5.5) I5,2E1BP@@@F)^$[F])-)^G]A@K0CS@@@@@@C/)@@[]@@[X3H@@[XWC/@@@[JY )@@G@@]@@[XKH@@[X>C/@@@[@@@[ZW/,0@@@BQ@@@F)^0[F#@-)^G]A[#@CS@@@@@@C.@@]V[[)[X5JZ )@@G@@"H)@@L" )[XYC[)[X)"P@[X3C.@@]V]@)[X4H@)[XXBR@@@F)^9[F#@-)K0]A[#@-)^G@@@@KA )@@G@@D#@[X+C")@@[G[@[XPC[@[XQ[]@[X6"I@@@L"A@[XZC]@[X-"P@[X4BS@@@F) ][N#@)@CS[KB )@@G@@@@@@@@ @@@@S*@@@@K/D@@ GG.@__"[[@[Z:C_@@@[ @@@@Q*@@@@S/F@@ A"B@[ZXBT@@@FKC )@@G@@) G[M^G@@]A@@@@@@@C#@[XTC")@@[)[@@@R @@@@K1@@@@S*@@@@SG_@__"C#@[Z:C.@@@[KD )@@G@@+])@@SBU@@@F) Q[MK@[@^G@@@@@@@C")__"[[@[X7C.@@J$/-K@AR+[@@@Q; @@@= @@@@QKE )@@G@@*@@@@S/F@@ UG_@__"BV@@@F) )[F#@CS^G@COOG]A@@@@@@@@@[ZC@[@[XG/,0@@@H_)@@[KF )@@G@@T_)@@3C#)[XXG#@[XXC_@__"G])[XWBW@@@F) (@'K$*S@^G@@@@@@-ZC@K@2H0INS(///01KG )@@G@@[#@[Z?[])@[IR/K@@4C_0@@[]#)[Z:'^@@@@@^6@@@BX@@@F-ZE@K@) 0@;#@CS@^G@@@@@@KH )@@G@@"C)[X5;^)@@="O)@@GC/)@]VH@@[XVC/@@@[[#0[XVOP) IDE LOBY@@@F) 7[N#@-)^G]KI )@@G@@A@K0@@;^)@@="O)@@GC/)@]VH@@[X&C/@@@[[#)[X&N#K[Z?C_)@@[]@)[X8"^)[XYBZ@@@FKJ )@@G@@)A[[##@-)K0CKOG]A[#@-)@@@@@@@@@@@[UA@@@[TN@@@[X9@@@[X8/,0@@@]@)[X9"^)[XZKK )@@G@@"C)[X6CA@@@F)AD[F#@-)^G@)CSB?@@@@@@@O/K@@3[@-J_FC@)[ZY/C@@AL*@@@@GC@@[X7KL )@@G@@@ [@@@@@@[X7@@@[XKCB@@@F)AM[MK^G@)CS^G@C@@/C@@AYG/@__"C/)@@[G@@[XPC@@[XQKM )@@G@@8N)@ 0G_0@@[O@K[Z:8NK@ ;G_)@@[CC@@@F)AW[M[#@-)@^@@@@@@/)0@B.+@)@@G @@@@GKN )@@G@@1@@@@K*@@@@K" @[ZXD[@[X+C/@@@[ @@@@I*@@@@GCD@@@F)A&[MK0]A@@^G@@@@@G[@[XWKO )@@G@@C.@__" @@@@I1@@@@K*@@@@KG.@__"C[@[XTC/)@@[[@@[X7C/@@J$CE@@@F)A0[MK0CS@@KKP )@@G@@0CS@@@[[)[Z:[@)[Z?[[@@[IR/K@@4C_@@@[H"@@@[T"@@@3C]@[XXG[)[XXC.)__"CF@@@FKQ )@@G@@)A'[F#@-)^G@]A[#@@@@@@@@"^)[XY"C)[X5;^)@@="O)@@GC/)@]VH@@[XVC/@@@[[#@[XVKR )@@G@@]]@[Z!CG@@@F)B#[N#@CS^G@-)@K0@"C)[X6;^)@@="O)@@GC/)@]VH@@[X&C/@@@[[#)[X&KS )@@G@@N#K[Z:C_)@@[]@)[X8CH@@@F)BH[F#@-)Y0CS^[]]-)K0CS@@@@[TN@@@[X9@@@[X8/,0@@@KT )@@G@@/=@@BZC@@[Z? @[J_F]@)[X9"^)[XZCI@@@F)BQ[F#@-)K0]A@K^G#6@@@@@[@-J_FC@)[ZYKU )@@G@@/C@@BZ*@@@@GC@@[X7@ R@@@@@@[X7@@@[XK@@@[UACJ@@@F)BZ[M^[#@C]^D[KO^@@@@@@]KV )@@G@@@@@@@[@@@@@@/,0@@@8N)@A;G_@@@[O@K[Z!8NK@BAG_)@@[O/K@@3CK@@@F)B([##@-)K0CKW )@@G@@S^G]A[#@-)@@@@@@@@@@@[SX@@@[X6@@@[X5@@@[XZ@@@[XY@@@[XX@@@[XW@@@@@@CL@@@FKX )@@G@@)B1[F#@-)K0CS^G@-#K0CS@@@@@[XW@@@@@@/,0@@@@ Z@@@@@@[X<@@@[X+@@@[XI@@@[SZKY )@@G@@@@@[SYCM@@@F)B'[F#@-)^G]A[#@-)K0CS@@"C)[ZZ"@)[XZC@)[X-"C@[ZZ"@@[XYC@@[X)KZ )@@G@@@ )@@@@@@[X=@@@[XXCN@@@F)C#[##@-)K+CS^G]A[#@-)@@@@@@@@@@@[Z?@@@[Z:@@@[X1LA )@@G@@@@@[X0@@@[X\/,0@@@[@@[Z:[@)[Z?CO@@@F)CF[F#@CL^G]A[#@-)K0CS@@@@@[Z-@@@[ZXLB )@@G@@@@@[ZK@@@[ZK@@@[X,@@@[X!/,0@@@@ +@@@@@@[Z)CP@@@F)CO[EK0CS^G]A@K0]A@@@@@@LC )@@G@@G@)[XWC/)__"G@@[XXC/@__" @@[X. @@[X/ @@[X; @@[X'@ <@@@CQ@@@F)CX[N#@@]A[#LD )@@G@@@-)@@@C/@@@[[#K[XV][@[Z:[@@[Z?[@)@[IR/K@@4C_K@@[H.@@@[T.@@@3C[@[XXCR@@@FLE )@@G@@)C$[F#@-)^G@-)K0CS@@@@@@C_)@@[]@@[X8"^@[XY"C@[X5;^@@@="O@[Z!C/@@]V[@@[Z!LF )@@G@@H@@[XVCS@@@F)C0[F#@-)^G@]A[#@@@@@@@@"^)[XZ"C)[X6;^)@@="O)@@GC/)@]VH@@[X&LG )@@G@@C/@@@[[#)[X&N#K[Z?CT@@@F)C9[F#@.)K0CS[@K0CS^C)@@/,0@@@[@@[X"C@@[X!/G@@D[LH )@@G@@*@@@@G"^@[XM[@@[X"C@[J_F]@)[X9CU@@@F)D][F#@-)K0CS^G]A@K0CS@@H@@[XVC@@[XWLI )@@G@@@ 5@@@@@@[Z+@@@[Y@@@@[X_@@@[X"@@@[X9@@@[X8CV@@@F)DF[F#@)CL^G]A[#@-)K0CS@LJ )@@G@@@@@[Z+@@@[Y]@@@[Y[@@@[X!@@@[X9@@@[X8/,0@@@/^@@DPT@@[Z!CW@@@F)DO[MK0]A@K0LK )@@G@@]A@K0@C@@[Y[1@@@@I"^)[Y[C@)@@GC@@[X_1@@@@I"^)[X_C@)@@GC@@[X'@ 9@@@CX@@@FLL )@@G@@)DY[F#@-)^G@-)^G@@@@@@@@1@@@@K" @[Y]C[@@@IC@)[Y@1@@@@K" @[Y@C[@@@IC@)[X;LM )@@G@@[@@[X'CY@@@F)D$[F#@-)K0]A@K0]A@@@@@@" )[Y[C[)@@KC[@[X_0@@@@M" )[X_C[)@@KLN )@@G@@C[@[X/[@)[X;C@)[Y]CZ@@@F)D0[EK0CS^G@-)^G@@@@@@@@C]@@@MC[)[Y@0@@@@O"A@[Y@LO )@@G@@C]@@@MC[)[X.[[@[X/C[@[Y[0@@@@MDA@@@F)D9[N#@CS^G@C]A@K@8N)@C>G_K@@[O@K[Z:LP )@@G@@8NK@C1G_)@@[O/K@@3[[)[X.C[)[Y]0@@@@O"A@[Y]DB@@@F)E#[F#@-)K0]A[#@-)K0@@@@LQ )@@G@@"G@@@I"^@[X(C@@[X:"^)[X.]]@[Y#"I@@@G"A@[X*C]@[X%"^@[X/DC@@@F)EG[F#@CS[#@LR )@@G@@-)K0CS^G@@@@[@@[YA"@@[X*"C@[X']@@[Y D@@[Y#0@@@@I"@)[Y#C@)@@G]@@[Y^DD@@@FLS )@@G@@)EP[##@-)K0CS^C+A[#@-)@@@@@@@@@@@[YA@@@[X,@@@[X!/,0@@@]@)[YB"^)[X("C)[X;LT )@@G@@C@)[Y DE@@@F)EX[F#@-)K0]^P#@-)K0CS@@@@@[X)@@@[XZ@@@[XY@@@@@@/,0@@@@A @@@LU )@@G@@@@@[Z-@@@[Y @@@[YBDF@@@F)E&[F#@-)^C%A[#@-)K0CS@@@@@[XX@@@[X,@@@[X!@@@[X-LV )@@G@@@@@@@@/,0@@@@AA@@@@@@[Z)@@@[XWDG@@@F)E\[F#@]A[#@- K0CS^G@@@@@@@[X0@@@[X\LW )@@G@@@@@@@@/,0@@@[@@[Z?G@@[XWC/@__"@AB@@@@@@[Z-DH@@@F)E8[F#@-)K0@-)K0@@@@@@@@LX )@@G@@H/)@@[T/)@@3C@)[XXG@@[XXC/@__"@AC@@@@@@[Z<@@@[YC@@@[X1DI@@@F)F[[##@-)K0CLY )@@G@@S^G]A[#@-)@@@@@@@@[[@[Z:"D@[ZZ"[@[XYC[@[X)[[@[Z!"D@[ZZ"[@[XZC[@[X-DJ@@@FLZ )@@G@@)FD[##@-)K+*S^G]A[#@-)@@@@@@@@@@@[YC@@@[X!@@@[Z!@@@[Z:@@@@@@/,0@@@]@)[Z\MA )@@G@@[@@[Z,DK@@@F)FL[N#@]A[#@-)^G@@"O)@@GC/)@]VH@@[XVC/@@@[N#)[Z?R@K[ZQ^@K[XVMB )@@G@@N/K@@[@AD@@@@@@[Z=DL@@@F)FV[EK0CS^G@-)K0JS^@@@@@/^@@F&C@[J_F[#)[X&N#K[Z,MC )@@G@@C_)@@[]@)[X8"^)[XY"C)[X5;^)@@=DM@@@F)F=[F#@.)^G@]A[#@@@@@@@@"^)[XZ"C)[X6MD )@@G@@;^)@@="O)@@GC/)@]VH@@[X&C/@@@[[@-J_FC@)[Z>DN@@@F)F![F#@CSB?]A[#@C]A@@@@@ME )@@G@@C[@[X!/H@@F7*@@@@K" @[XM[[@[X"C[[J_F[@@[YDC/@@J$]@)[X9DO@@@F)F6[F#@- K0CMF )@@G@@S^G]A[#@-)@@@AW@@@@@@[Z+@@@[YD@@@[X"@@@[X9@@@[X8@@@@@@/,0@@@[[@[X"DP@@@FMG )@@G@@)F_[F#@.)[;@C]A@@@@@@@@@O"0@@[R]0[XV8NK@F-G_)@@[[@L\_F;@K@@<;G@@@[C@LJ_FMH )@@G@@C@@[YDDQ@@@F)GC[F#@-)[@K^EEA[#@@@@@@@@@[ZG@[@[XG/,0@@@/K@@G'8N)@FR[@@@@[MI )@@G@@'K@@@[C^@[Z\A]0[XVDR@@@F)GL@E@-ZG@C@)GM@3]YCS^G@@@@@@@*@@@@GG/@_./C@@[XXMJ )@@G@@[@@[X>C/@@]#'^@@@@(1H1) @A-@@@DS@@@F)GS[EK^G]A@K0CS@@@@@@@@@H/)@@[T/)@@3MK )@@G@@C@)[X>G@@[X>C/@__"[@@[X>C@@[XX/K@@GW1@@@@GDT@@@F)G-[F#@-)K0CS^G]A[;@@@@@ML )@@G@@;C@@@<;)@@@[@@@@['K@@@[C^@[Z,'^@@@@8NK@G2MO )@@G@@'^K@@@DW@@@F)G'[F]G-)K0CS[#@-)K0CL0@/,0@@@]@@[Z?"^@[X(C@@[ZZ@A8@@@@@@[Z)MP )@@G@@@@@[Z-@@@[Z-/,0@@@DX@@@F)H#[F#@-)K0CS^G]A@K=CS@@@@@@@@/,0@@@@A9@@@@@@[Z$MQ )@@G@@@@@[ZK@@@[U9@@@[Z&@@@[Z?@@@[X*DY@@@F)HG[F#@-)K0CS^G]A[#@-)@@@A'@@@@@@[XLMR )@@G@@@@@[X!@@@[X-@@@[X)@@@[XZ@@@[XY@@@[XX@@@[XWDZ@@@F)HP[#]M-)K0CS^G]A[#@-)@@MS )@@G@@@@@@@@@@@[X-@@@[X)@@@[XZ@@@[XY@@@[XX@@@[XW@@@@@@/,0@@@EA@@@F)HX[F#@-)^DMMT )@@G@@A[#@-)K0CS@@@@@[XZ@@@[XY@@@[XX@@@[XW@@@@@@/,0@@@@A;@@@@@@[XL@@@[X!EB@@@FMU )@@G@@)H&[F#@-)K0]^!#@-)K0CS@@@@@[XY@@@[XX@@@[XW@@@@@@/,0@@@@A/@@@@@@[X!@@@[X-MV )@@G@@@@@[X)EC@@@F)H\[F#@-)K0CS^G]A[#@CS@@C@@[ZO@A.@@@@@@[YF@@@[XJ@@@[YE@@@[S)MW )@@G@@@@@[X6@@@[X5@@@[XZED@@@F)H8[F#@)C]^1#@-)K0CS^G@@@@@[XZ@@@[XY@@@[XX@@@[XWMX )@@G@@@@@@@@/,0@@@/G@@ID/@@@ID"@@[X+EE@@@F)I[[F#@-)K0CS^G]A[#@CS@@C@@[Z*@B]@@@MY )@@G@@@@@[X?@@@[XI@@@[SZ@@@[SY@@@[SX@@@[X6@@@[X5EF@@@F)IE[F#@-)K)CS^G]A@K0@@@@MZ )@@G@@O"0@@[R]0[XN@B^@@@@@@[Z(@@@[ZK@@@[Z?/,0@@@[@@[Z?"@@[X%EG@@@F)IN@<#@)CO^GNA )@@G@@@@@@@@-ZJ@)@@@@@@@NORMAL@@@@J$@@@@@@Y?PPR!@@@[Z%/,0@@@8N0@@MA]0[XNEH@@@FNB )@@G@@-ZN[S@@@@@@@KG@@@@TYPE6 TYPE5 @@@@\3@@3@(X@@@@**@@@@@ @@3@@4TYPE3 J,T&T&NC )@@G@@@@[@@[EI@@@F-ZY[S@@@@@@@KQ@@@@@@@@[KJ6T&T&[&(Q>,@@@@@^@@@@@#@@@@@@@@@@@]ND )@@G@@@@@@@[K^@@@@Y?4D-XEJ@@@F-Z(@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@ _____/EK@@@F0@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ _____/EL@@@F@@^@@#@@B@@N@@!@@[@@1@@[NG )@@G@@@@ [Z0@C@@IR@@@@-/PLOT INSIDE ZGRID SMOOTH PROJ NH )@@G@@ VISIBL PLOTS SYMBOL XLINES YLINES BLINESNI )@@G@@ CON3D DATA3D NINTR$ NRDU$ NIO2$ NSTOP$NJ )@@G@@ NWDU$ NIO1$ FORMAIN$ @@[@@@@@@@@@@@@@@@ ^@@@C@NK )@@G@@@]@@@@IOK@@@IH@@@@IH@@@@*[S@@@*SDFF*@]@@@@ AXR$ . @[@@@@$(1) .@]@@@@NL )@@G@@PRONAM* . @^@@@@ LA,U A0,*0,X11 . @^@@@@ LA A1,(4,0125) . NM )@@G@@@]@@@@ ER PCT$ .@#@@@@ J 2,X11 . @[@@@@ END___@@^^0W@@C ^G@@GNN )@@G@@N8K@] /K@@R/C9@@@_[1G@@E*4G@@C/K@@S2'^@@'%C@@^Y%(@@@[[/K@@S2C8K@@[[4W@@CNO )@@G@@^^W@@D ^G@@CN8K@#)^CW@@D'^@@"#/K@@SW0@G@@#'=@@@A*4G@@#'^@@=A/K@@S!'^@@P0NP )@@G@@)@@@+K0@K)@@)@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@[P/KF@@]'=@@@@C@K@@@NQ )@@G@@C8FK@@AA@@@#@@@@@@'^@@'%(@@@[[/K@KG4C8)@@[[4?@@C/K@@HC/K@@@@*@G@@D/K@@IRNR )@@G@@'^@@'!^^W@@D^^W@@^(?G@@C@@^@@]@@A@@[@@C@@[@@G@@@@@@@@[@@@@@^PCT$ NS )@@G@@PRONAM @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@ @@@@ NU )@@G@@SUBROUTINE APR(IC,N) @^@@@@ DIMENSION IC(33) @ @@@@ WRITE(NV )@@G@@6,10)(IC(I),I=1,N)@ @@@@ 10 FORMAT((8(3X,O12))) @]@@@@ RETURNNW )@@G@@@]@@@@ END ___@@IRB,@@@/@@@P[/,0GL)/K@@O/ CJ@@BRF\@@MC1I@@E>9@@@CNX )@@G@@/K@@PERB"@@@RB\@@[/,K@PVP;0@@JRB_@@@RF\@@[C5J@@E=9@@@^/K@@PNC!J@@G+9@__\NY )@@G@@[!Z@@G/,K@PVC1J@@E+9@@@;)@@[E^GCKK0--#]A^G@@@@@@Q@K@@ER@K@@ @[^@@C@@@@@[NZ )@@G@@@[@@@^/,0@@@[@@@@FG/@__"C@FK@[AA@@@F)@D@<#@- @@@)@[@S@)@H@F]K@@@@@'^@@@@OA )@@G@@) ,O12))((8(3X8N0@@E'^K@@@C/[)@@N#0@@FAB@@@F)@I@;@K^GCSK0--#@@)@A@K@OB )@@G@@@@@@@@@@F@@#*4@K@AN#0@@HR@K@@GR]0@@D@[F@@C/K@@@LN@0@@KAC@@@F)@C@K@)@P@;#OC )@@G@@]^4GCSK0CS@@[@@@@EC8FK@@^#0@@HA@K@@GAA0@@D/K@@@@/K@K@A@[F@@^APR AD@@@FOD )@@G@@)@W@F@@@@@@@)@^@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@AOE )@@G@@/K@@@@AE@@@F@@@@@@@@@BG0@@[@@[@@]@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@]@@@@@]OF )@@G@@@@@@@]@@@@@@@@@BH/@@@@@@@@^@@#@@B@@^@@J@@[@@N@@[@@#@@I@C@@@X@@@@@@NWDU$ OG )@@G@@ NIO1$ NIO2$ NERR3$ APR @@[@@@@@@@@R@@@@@@OH )@@G@@ ^@@@C@@]@@@@L A5,72 . A5*[S@@@*SDFF*@]@@@@ OI )@@G@@AXR$ .@[@@@@$(1) .@]@@@@ASFD* . @C@@[@ S X11,SVX11 . SAOJ )@@G@@VE RETURN ADDR. @B@@@@ L A0,*2,X11 . GET BUFFER COUNT @E@@@@OK )@@G@@ L A1,0,X11 . INPUT BUFFER ADDR IN CALLING ROUTINE@F@@@@ OL )@@G@@L A2,1,X11 . OUTPUT BUFFER ADDR IN CALLING ROUTINE @C@@@@ OM )@@G@@LMJ X11,ASCFD . CALL CONVERTING ROURINE @B@@[@ LX X11,SVX11 ON )@@G@@ . RETURN ADDRESS@E@@@@ J 4,X11 . AND RETURN CONTROL TO USOO )@@G@@ERS' PROGRAM@[@@[@$(0) .@#@@[@SVX11 RES 1 . @]@@@@ END ___GQ.OP )@@G@@/K@@N@C[@@@ >[@J%6/K@@N@/\)FDD/,0GMQR;@@@#/,0GN19!@@9/9(G@@@ @G@@]C9@@@KOQ )@@G@@[XG@@#R#K@@S&;K@@WA#W@@^&9K@@@A[W@@ '=@@@#*4G@@#')@GG#/,0GQ.R#@@@ &'0@@[OR )@@G@@)@@@;#@@[]@[#@@@@@@@@@@@@@@@@@@@@@@@/KF@@^R]0@@@/,0@@@R#:@@[R#V@@@R#FK@]OS )@@G@@A]0@@@AA@@@]@@@@@@?9K@@K/K@@G@&F@@@ /,0GQ. @I@@@/]@@H7R#@@[#AB?@@^/\)FDDOT )@@G@@/,0GMQR#@@[#RB?@@^C[G@@A@@^@@]@@A@@[@@C@@[@@G@@@@@@@@[@@@@@BASCFD OU )@@G@@ASFD @@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@#@@@@ OW )@@G@@ DEF . @^@@@@PF FORM 12,6,18 . @^@@@@PFF FORM 3,15,18 . OX )@@G@@@C@@@@BLOCK EQU 560 . PLOTFILE BUFFER SIZE @C@@@@N80 EQU OY )@@G@@ 80 . MAX # OF CHARS PER LINE @D@@@@MAXCHAR EQU 131 . MAX # OOZ )@@G@@F CHARS PER IO BUFFER @[@@@@. @^@@@@XMAX EQU 1023 . )@D@@@@PA )@@G@@YMAX EQU 760 . ) MAXIMAL SCREEN COORDINATES @#@@@@TEKX$* PROCPB )@@G@@ 0,0 .@]@@@@ END @[@@@@. @^@@@@VERSION* PROC 0,4 . @A@@@@PC )@@G@@ ' VERSION EGO/05/JAN75' . @#@@@@ END . @#@@@@VRSIONPD )@@G@@* PROC 0,1 .@#@@@@ 'O/05/' . @#@@@@ END . @#@@@@PAC* PE )@@G@@PROC 1,6 .@^@@@@ LMJ X11,PACK .@A@@@@ +PAC(1,1) . BUFFEPF )@@G@@R ADDRESS @ @@@@ +PAC(1,2) . CHARACTER @^@@@@ +PAC(1,3) .PG )@@G@@ N @^@@@@ +PAC(1,4) . Q @ @@@@ +0 . WALK BACK PH )@@G@@@]@@@@ END @[@@@@. @#@@@@P PROC 1,6 @#@@@@GSPROC* NAMEPI )@@G@@ . @^@@@@ LMJ X11,ASKGS . @#@@@@ +P(1,1) . @#@@@@ PJ )@@G@@+P(1,2) . @#@@@@ +P(1,3) . @#@@@@ +P(1,4) . @]@@@@ PK )@@G@@+0 . @]@@@@ END @[@@@@. @#@@@@P PROC . @#@@@@IORPROPL )@@G@@C* NAME . @B@@@@ LA A6,NRCHAR . GET NR OF CHARS @B@@@@ PM )@@G@@ANA,U A6,1 . -1 FOR JGD-LOOP @B@@@@ TG,U A6,P(1,1) . TOO MAPN )@@G@@NY CHARS ? @ @@@@ J SYMERR . YES @^@@@@ LX X4,(1,0PO )@@G@@) . @C@@@@SYM2 LX X3,(-1,3) . 4-CHAR-PER-WRD-LOOP @[@@@@SYM3 .PP )@@G@@@A@@@@ EX SYMFET,X3 . FETCH CHAR @C@@@@ PAC NCH,A7,NNN,QUPQ )@@G@@ . PUT IT IN BUFFER @B@@@@ DO P(2,1)=1 , PAC NCH,BS,NNN,QU . PR )@@G@@@B@@@@ DO P(2,2)=1 , PAC NCH,LF,NNN,QU . @B@@@@ DO P(2,3)=1 PS )@@G@@, PAC NCH,SP,NNN,QU . @B@@@@ DO P(2,4)=1 , PAC NCH,LF,NNN,QU . PT )@@G@@@B@@@@ JGD A6,$+2 . ALL CHARS STORED ?@ @@@@ J SYM5 PU )@@G@@ . YES @D@@@@ JMGI X3,SYM3 . 4 CHARS OF THIS WRD READ ? PV )@@G@@@ @@@@ AX,U X4,1 . YES @^@@@@ J SYM2 . @[@@@@PW )@@G@@. @]@@@@SYMFET . @ @@@@ LA,Q4 A7,ASCIBUF,X4 . @ @@@@ PX )@@G@@LA,Q3 A7,ASCIBUF,X4 @ @@@@ LA,Q2 A7,ASCIBUF,X4 @ @@@@ PY )@@G@@LA,Q1 A7,ASCIBUF,X4 . @[@@@@SYM5 .@]@@@@ END @]@@@@P PROC . PZ )@@G@@@]@@@@DUMP* NAME .@#@@@@ SA A0,SN1+2 @]@@@@ L,U A0,SN1@]@@@@ ER QA )@@G@@SNAP$ @]@@@@ L,U A0,SN2@]@@@@ ER SNAP$ @]@@@@ L,U A0,SN3@]@@@@ ER QB )@@G@@SNAP$ @]@@@@ L,U A0,SN4@]@@@@ ER SNAP$ @]@@@@SN1 'SNAP1' @]@@@@ +8*/QC )@@G@@18+IC @[@@@@ +0 @]@@@@SN2 'SNAP2'@#@@@@ +10*/18+XSYMB @[@@@@ +0 QD )@@G@@@]@@@@SN3 'SNAP3'@]@@@@ +2*/18+NN @[@@@@ +0 @]@@@@SN4 'SNAP4'@#@@@@QE )@@G@@ +1*/18+ICNR @[@@@@ +0 @[@@@@ END ___@@@*[S@@@*SDFF*@#@@@@ QF )@@G@@AXR$ . @#@@@@ TEKX$ . @[@@@[$(1) .@#@@@@JOY* J 4,X11 QG )@@G@@@]@@@@POINT1* @]@@@@POINT2* @]@@@@POINT3* @]@@@@POINT4* QH )@@G@@@#@@@@ J 3,X11 @[@@@@ALPHA*@[@@@@BELL* @[@@@@ERASE*@[@@@@HOME* QI )@@G@@@[@@@@HCOPY*@]@@@@ITALIC* @[@@@@LONG* @[@@@@LOWER*@[@@@@NORM* @[@@[]QJ )@@G@@UPPER*@[@@@@WAIT* @[@@@@WAIT1*@#@@@@ J 1,X11 @[@@@@SYMB* @^@@@@QK )@@G@@ SX X11,SVX11 @C@@@@ LA A0,2,X11 . ADDRESS OF TEXTBUFFEQL )@@G@@R @^@@@@ SA A0,TEXT . @ @@@@ LA A3,*4,X11 . IOR QM )@@G@@@^@@@@SYMC LA A0,*0,X11 . X @^@@@@ SA A0,X . @^@@@@ QN )@@G@@LA A0,*1,X11 . Y @^@@@@ SA A0,Y . @^@@@@ LA A0,(0.07QO )@@G@@) . @^@@@@ SZ A1 . @^@@@@ LA A2,*3,X11 . NR@^@@@@QP )@@G@@ SA A2,NR . @ @[@@ TG,U A3,3 IOR > 2 ? @A@@@[ QQ )@@G@@TG,U A3,3 . IOR > 2 ? @B@@@@ LA A0,(0.14) . YES,SET BIGGERQR )@@G@@ SISE @^@@@@ SA A0,SIZE . @A@@@@ JB A3,$+2 . IOR = 1 QS )@@G@@OR 3 ?@A@@@@ LA A1,(-90.0) . NO,ROTATE @^@@@@ SA A1,ANGLEQT )@@G@@ . @^@@@@ LMJ X11,SYMBOL . @]@@@@ +X . @]@@@@ +Y . QU )@@G@@@#@[@@ +SIZE > @#@@@[ +SIZE . @#@@@@ +TEXT . QV )@@G@@@#@@@@ +ANGLE . @#@@@@ +NR . @]@@@@ +0 . @^@@@@QW )@@G@@ LX X11,SVX11 . @^@@@@ J 6,X11 . @[@@@@. @[@@@@QX )@@G@@SYM* @^@@@@ SX X11,SVX11 . @^@@@@ LA A0,*4,X11 . @B@@@@QY )@@G@@ LA A1,2,X11 . ADDR OF ASCII BUF @C@@@@ LA,U A2,TEXT . DEQZ )@@G@@STINATION ADDR (FOR FD) @^@@@@ LMJ X11,ASCFD . @^@@@@ LX X1RA )@@G@@1,SVX11 . @ @@@@ LA A3,*5,X11 . IOR @^@@@@ J SYMC RB )@@G@@ . @[@@@@TOF* @A@@@@ LA A0,(PF 07777,1,SPACE) . @#@@@@ RC )@@G@@ER PRINT$ .@^@@@@ J 1,X11 . @[@@@@$(0) .@]@@@@SVX11 +0 . RD )@@G@@@]@@@@X +0 . @]@@@@Y +0 . @]@@@@TEXT RES 22@]@@@@NR +0 . RE )@@G@@@]@[@@SIZE +0 / @]@@@[SIZE +0 . @]@@@@ANGLE +0 . @]@@@@SPACE ' ' . RF )@@G@@@]@@@@ END ___@C?[[J@C?C @JK0![J@C![[J@C!R;0@@I�@@HA#@@@E/K@@JURG )@@G@@R#W@@C/@V@@@ @G@@CR#@@@H;C@@@A/K@@IWRFW@@ >8KC@@*[S@@@*SDFF*@^@@@@ RH )@@G@@ AXR$ . @^@@@@ TEKX$ . @[@@@@$(1) ,@]@@@@FORRD*RI )@@G@@ . @A@@@@ LA A0,(EOF,BUF) . @D@@@@ ER RJ )@@G@@ READ$ . READ THE FD CHARS @C@@@@ LA,H2 A1,A0 RK )@@G@@ . TEST IF ONLY@C@@@@ TE,U A1,1 . 1 WRD READ RL )@@G@@@C@@@@ J EOF . NO,ERROR @F@@[@ LA,T3 A0RM )@@G@@,BUF . CHECK IF NO MORE THAN 4 CHARS HAVE BEEN GIVEN@D@@[@ TE,U A0RN )@@G@@,0505 . LAST TWO CHARS IN WRD ARE SPACE ?@ @@[@ J TOMUCH . NO,RO )@@G@@ ERROR@C@@@@ LA,S1 A0,BUF .THOUSANDS @A@@@@ LARP )@@G@@,U A2,057 . SETUP FOR THE @A@@@@ LA,U A3,071 . TW INSTR RQ )@@G@@@^@@@@ TW A2,A0 . @^@@@@ J THOUERR . @E@@@@ RR )@@G@@ ANA,U A0,060 . CONVERT FD TO INTEGER @A@@@@ MSRS )@@G@@I,U A0,1000 . @C@@@@ LA,S2 A1,BUF . HUNDRERT )@@G@@DS @^@@@@ TW A2,A1 . @^@@@@ J HUNDERR . @E@@@@RU )@@G@@ ANA,U A1,060 . CONVERT FD TO INTEGER @A@@@@ RV )@@G@@ MSI,U A1,100 . @B@@@@ AA A0,A1 . RW )@@G@@PLUGIN@B@@@@ LA,S3 A1,BUF . TENS @^@@@@ TW A2RX )@@G@@,A1 . @^@@@@ J TENSERR . @E@@@@ ANA,U A1,0RY )@@G@@60 . CONVERT FD TO INTEGER @A@@@@ MSI,U A1,10 RZ )@@G@@ . @B@@@@ AA A0,A1 . PLUGIN@B@@@@ LASA )@@G@@,S4 A1,BUF . UNITS @^@@@@ TW A2,A1 . @^@@@@ J SB )@@G@@ UNITERR . @E@@@@ ANA,U A1,060 . CONVERT FD TSC )@@G@@O INTEGER @B@@@@ AA A0,A1 . PLUGIN@C@@@@ SD )@@G@@ LA,XU A2,155 . CONVERT TO @B@@@@ LCF A2,ASE )@@G@@0 . REAL@D@@@@ FD A3,F1000 . DIVIDE BY 1SF )@@G@@000 @C@@@@ SA A3,*0,X11 . STORE RESULT@A@@@@ SG )@@G@@ J 2,X11 . @[@@@@. @D@@@@EOF LA A0,(SH )@@G@@PF 2,4,ERROR) . PF IS A PROC @A@@@@ ER PRINT$ . SI )@@G@@@B@@@@ J FORRD . RETRY @ @@@@THOUERR LA A0,(PF SJ )@@G@@2,12,THOU) .@^@@@@ ER PRINT$ . @^@@@@ J FORRD . SK )@@G@@@ @@@@HUNDERR LA A0,(PF 2,12,HUND) .@^@@@@ ER PRINT$ . @^@@@@SL )@@G@@ J FORRD . @ @@@@TENSERR LA A0,(PF 2,12,TENS) .@^@@@@ SM )@@G@@ ER PRINT$ . @^@@@@ J FORRD . @ @@@@UNITERR LA A0,(PF SN )@@G@@2,12,UNIT) .@^@@@@ ER PRINT$ . @^@@@@ J FORRD . SO )@@G@@@ @@[@TOMUCH LA A0,(PF 2,7,TOOM) . @^@@[@ ER PRINT$ . @^@@[@SP )@@G@@ J FORRD . @[@@@@. @[@@@@$(0) .@A@@@@BUF RES SQ )@@G@@ 2 . @[@@@@$(1) .@I@@@@THOU 'BAD FIRST DIGIT. MUST BE 0, ..SR )@@G@@. ,9 (GIVE SCALING FACTOR IN THOUSANDTHS)' . @I@@@@HUND 'BAD SECOND DSS )@@G@@IGIT. MUST BE 0, ... ,9 (GIVE SCALING FACTOR IN THOUSANDTHS)' . @I@@@@ST )@@G@@TENS 'BAD THIRD DIGIT. MUST BE 0, ... ,9 (GIVE SCALING FACTOR IN THOUSANSU )@@G@@DTHS)'. @I@@@@UNIT 'BAD FOURTH DIGIT. MUST BE 0, ... ,9(GIVE SCALINGSV )@@G@@ FACTOR IN THOUSANDTHS)' . @C@@[@TOOM 'TOO MANY CHARS. GIVE EXACTLY FSW )@@G@@OUR DIGITS.'@A@@@@ERROR 'BAD VALUE; GIVE OTHER' . @^@@@@F1000 +1SX )@@G@@000.0 . @#@@@@ END ___@@@CALING FACTOR IN THOUSANDTHS)'SY )@@G@@ . @C@@[@TOOM 'TOO MANY CHARS. GIVE EXACTLY FOUR DIGITS.'@A@@@@ERROR SZ )@@G@@)@@[EK0@K)@[@K0@^@@@@@@@/K@@@5%8@@ CO@@@@/K@@@&%8K@@[C^K@@G'=@@@@C@@@@]TA )@@G@@@@@@@@AA@G ")@D[N#@@[@[#@@K@@@/K@@@?,@)@@HC0K@@@T8@@J*H8@@@0/K@@@(,@)@@GTB )@@G@@C80@@9C8)@@\C4@@@@AB@G ")@N[M[#@@K@^G@@@@@C*K@@@G@@@@HT8K@@EH8K@@0/K@@@\TC )@@G@@,@)@@HC?K@@@G@@@@HT8K@[=H8K@@0AC@G ")@X[MK@[@[#@@@@@@@C@@@@#/KF@@][@;K@@TD )@@G@@"G0@[3"O)@@GC/)@]VG@@@@HH8K@@0/K@@@2,@)@@HAD@G ")@$[#]@ @K0@K)[K^G@^C@O@TE )@@G@@@@@@@@/K@@@['=@@@@C@@@@ /K@@@['=@@@@C@@@@^/K@@@['=@@@@AE@G ")@\[##@[]@ @TF )@@G@@K0@K)[K^G@^C@K@@@@'=@@@@C@@@@C/K@@@['=@@@@C@@@@B/K@@@['=@@@@C@@@@AAF@G "TG )@@G@@)@7[V@@@@@@@R IN T FACTOCALINGGIVE S. ,9 ( 0, ..UST BEGIT. MRST DIBAD FITH )@@G@@/K@@@[AG@G ")[][U@@@@@@@G FACTSCALIN(GIVE .. ,9 E 0, .MUST BIGIT. COND DTI )@@G@@BAD SEDTHS) HOUSANAH@G ")[H[U@@@@@@@CALINGGIVE S. ,9 ( 0, ..UST BEGIT. MTJ )@@G@@IRD DIBAD THNDTHS)THOUSAOR IN AI@G ")[S[U@@@@@@@GIVE S.. ,9(E 0, .MUST BTK )@@G@@IGIT. URTH DBAD FODTHS) HOUSANR IN T FACTOAJ@G ")[<[U@@@@@@@OUR DICTLY FTL )@@G@@VE EXARS. GINY CHATOO MADTHS) HOUSANR IN T FACTOCALINGAK@G ")[,@2@@@@@@@TM )@@G@@)@]@K1)#E[N@^@@@@@@]^@[\@@&@@@LR4@@@HER IVE OTLUE; GBAD VAGITS. AL@G "TN )@@G@@)@^@*()]O0[ES@>G@M&@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@]B@[*@]G@[W@]G@[K@]G@[^TO )@@G@@@]G@@8AM@G "@@@@@@NC'@@DN8K@##R#K@@IR]0@[]R7;K@[C FK@#;@K@@M!80@@D/K@@D.TP )@@G@@%80@@ :80@@A/K@@D*+8K0@@@@^@@]@@A@@]@@E@@[@@I@@@@@@@@D@@@@[4READ$ TQ )@@G@@PRINT$ FORRD @@[@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[M[#@@K0@[#@@@@C@FK@[TS )@@G@@[@@@@[C@FK@@C@;K@^[@@@@#C@F@@]A]0@@@/KF@@[/KF@@#/KF@@^AA@@@])@E[F#@[#@@^TT )@@G@@G@[#@[#@[@@@/=0@@O[@@@@UC@@@@Y!80@@#[@)@@TC@:K@# @@@@HC@@@@X[@@@@]AB@@@]TU )@@G@@)@N@;#@[#@[]@^/S#@@/S#@@/S#@@/S#@@@@@@@@@#@@@@@U@@@@@]@@@@@[/,0@@@[@K@@VTV )@@G@@C@K@@ZAC@@@])@U[]/S#@@/S#@@K0@^G@@@@@@@@@@C@V@@]C@FK@^A]0@@@/KF@@AR]0@@@TW )@@G@@@@@@@@@@@@@T@@@@@VAD@@@])@+[]()@-@^-)@C]A@]^@S@@@@@@@@/KF@@['=@@@@C@@@@)TX )@@G@@/K@@@BC@;K@ R]0@@@/,0@@@C8)@@#AE@@@])@@@S@)@T@8@@@@@@@\]R___J4Y, BJ?Y, BTY )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF@@@])@)@C*@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@__[@@WAG@@@]@@@@@@R;K[^ UA )@@G@@R;@@@C&;@)@@'=@@[DC[K^^S/K@@J@C[@^]#;(@@@#*W@^[%>9K@@^/H@@H3R;@@@@'=@@[:UB )@@G@@@@^@@]@@A@@^@@I@@P@[+@@@@@@@@-@@@@@%N037 SYMBOL ASCFD UC )@@G@@PRINT$ JOY @@[@@@@@@@@@POINT1 @@[@@@@@@@@[POINT2 UD )@@G@@@@[@@@@@@@@[POINT3 @@[@@@@@@@@[POINT4 @@[@@@@@@@@[ALPHA UE )@@G@@@@[@@@@@@@@]BELL @@[@@@@@@@@]ERASE @@[@@@@@@@@]HOME UF )@@G@@@@[@@@@@@@@]HCOPY @@[@@@@@@@@]ITALIC @@[@@@@@@@@]LONG UG )@@G@@@@[@@@@@@@@]LOWER @@[@@@@@@@@]NORM @@[@@@@@@@@]UPPER UH )@@G@@@@[@@@@@@@@]WAIT @@[@@@@@@@@]WAIT1 @@[@@@@@@@@]SYMB UI )@@G@@@@[@@@@@@@@#SYM @@[@@@@@@@@ZPAGE @@[@@@@@@@@$TOF UJ )@@G@@@@[@@@@@@@@$1075 Z(I,J)=1.E-35 UK )@@G@@ 00025100 *[S@@@*SDFF*@#@@@@ AXR$ . @#@@@@ UL )@@G@@TEKX$ . @[@@@[$(1) .@#@@@@JOY* J 4,X11 @]@@@@POINT1* @]@@@@UM )@@G@@POINT2* @]@@@@POINT3* @]@@@@POINT4* @#@@@@ J 3,X11 UN )@@G@@@[@@@@ALPHA*@[@@@@BELL* @[@@@@ERASE*@[@@@@HOME* @[@@@@HCOPY*@]@@@@ITALICUO )@@G@@* @[@@@@LONG* @[@@@@LOWER*@[@@@@NORM* @[@@@]UPPER*@[@@@@WAIT* @[@@@@UP )@@G@@WAIT1*@#@@@@ J 1,X11 @[@@@@SYMB* @^@@@@ SX X11,SVX11 UQ )@@G@@@C@@@@ LA A0,2,X11 . ADDRESS OF TEXTBUFFER @^@@@@ SA A0UR )@@G@@,TEXT . @ @@@@ LA A3,*4,X11 . IOR @^@@@@SYMC LA A0,*0,X1US )@@G@@1 . X @^@@@@ SA A0,X . @^@@@@ LA A0,*1,X11 . Y @^@@@@UT )@@G@@ SA A0,Y . @^@#@@ LA A0,(0.07) . @^@@[# LA A0UU )@@G@@,(0.10) . @^[@@@ SZ A1 . @^@@@@ LA A2,*3,X11 . NRUV )@@G@@@^@@@@ SA A2,NR . @ @[@@ TG,U A3,3 IOR > 2 ? @A@@@[UW )@@G@@ TG,U A3,3 . IOR > 2 ? @B@#@@ LA A0,(0.14) . YES,SET UX )@@G@@BIGGER SISE @B@@[# LA A0,(0.25) . YES,SET BIGGER SISE @^[@@@ UY )@@G@@SA A0,SIZE . @A@@@@ JB A3,$+2 . IOR = 1 OR 3 ?@A@@@@ UZ )@@G@@LA A1,(-90.0) . NO,ROTATE @^@@@@ SA A1,ANGLE . @^@@@@ VA )@@G@@LMJ X11,SYMBOL . @]@@@@ +X . @]@@@@ +Y . @#@[@@ +SIZE VB )@@G@@> @#@@@[ +SIZE . @#@@@@ +TEXT . @#@@@@ +ANGLEVC )@@G@@ . @#@@@@ +NR . @]@@@@ +0 . @^@@@@ LX X11,SVX1VD )@@G@@1 . @^@@@@ J 6,X11 . @[@@@@. @[@@@@SYM* @^@@@@ VE )@@G@@SX X11,SVX11 . @^@@@@ LA A0,*4,X11 . @B@@@@ LA A1,2,X11VF )@@G@@ . ADDR OF ASCII BUF @C@@@@ LA,U A2,TEXT . DESTINATION ADDR (FOVG )@@G@@R FD) @^@@@@ LMJ X11,ASCFD . @^@@@@ LX X11,SVX11 . @ @@@@VH )@@G@@ LA A3,*5,X11 . IOR @^@@@@ J SYMC . @[@@@@TOF* VI )@@G@@@A@@@@ LA A0,(PF 07777,1,SPACE) . @#@@@@ ER PRINT$ .@^@@@@VJ )@@G@@ J 1,X11 . @[@@@@$(0) .@]@@@@SVX11 +0 . @]@@@@X +0 . VK )@@G@@@]@@@@Y +0 . @]@@@@TEXT RES 22@]@@@@NR +0 . @]@[@@SIZE +0 / VL )@@G@@@]@@@[SIZE +0 . @]@@@@ANGLE +0 . @]@@@@SPACE ' ' . @]@@@@ END VM )@@G@@___@@<[X/@@#C]AK[E[]G@@ )@@[M[#@@K0@[#@@@@C@FK@[[@@@@[C@FK@@C@;K@^[@@@@#VN )@@G@@C@F@@]A]0@@@/KF@@[/KF@@#/KF@@^AA@@[%)@E[F#@[#@@^G@[#@[#@[@@@/=0@@O[@@@@UVO )@@G@@C@@@@Y!80@@#[@)@@TC@:K@# @@@@HC@@@@X[@@@@]AB@@[%)@N@;#@[#@[]@@/S#@@/S#@@VP )@@G@@/S#@@/S#@@@@@@@@@#@@@@@U@@@@@]@@@@@[/,0@@@[@K@@VC@K@@ZAC@@[%)@U[]/S#@@/SVQ )@@G@@#@@K0@^G@@@@@@@@@@C@V@@]C@FK@^A]0@@@/KF@@AR]0@@@@@@@@@@@@@@T@@@@@VAD@@[%VR )@@G@@)@+[]()@-@]-)@C]A@]^@K@@@@@@@@/KF@@['=@@@@C@@@@)/K@@@BC@;K@ R]0@@@/,0@@@VS )@@G@@C8)@@#AE@@[%)@@@S@)@T@8@@@@@@@\]R___J/@@@@J,T&T& @@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@AF@@[%)@)@C*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@__[@@WAG@@[%@@@@@@/K@@Y.R#@@Y7'=@@@I/K@@4*@[ @Y8VV )@@G@@@FIN IN ADD FILE - IGNORED R\N@@[+8K@@]/#@@ZC@@^@@]@@A@@#@@G@@O@[W@@@VW )@@G@@@@@@@-@@@@@%SYMBOL ASCFD PRINT$ JOY @@[@@@@@@@@@VX )@@G@@POINT1 @@[@@@@@@@@[POINT2 @@[@@@@@@@@[POINT3 @@[@@@@@@@@[VY )@@G@@POINT4 @@[@@@@@@@@[ALPHA @@[@@@@@@@@]BELL @@[@@@@@@@@]VZ )@@G@@ERASE @@[@@@@@@@@]HOME @@[@@@@@@@@]HCOPY @@[@@@@@@@@]WA )@@G@@ITALIC @@[@@@@@@@@]LONG @@[@@@@@@@@]LOWER @@[@@@@@@@@]WB )@@G@@NORM @@[@@@@@@@@]UPPER @@[@@@@@@@@]WAIT @@[@@@@@@@@]WC )@@G@@WAIT1 @@[@@@@@@@@]SYMB @@[@@@@@@@@#SYM @@[@@@@@@@@ZWD )@@G@@TOF @@[@@@@@@@@$@@@@@@@@[,<4@@@]S @@@^0*@@@JF]@@[,<4@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@^^K@FFN8L\"!N_)@[KN_0@[UR@K@\P'^@@@@@@K@%[@BF@@@@@@@:[LV@@@FWF )@@G@@)@@@:]^GK1#^G@@@@@)@@@S@@@@@@@: ,O1STATUS(010H @@K@@D@[#@@B@@@@@@@[@@@^WG )@@G@@/,0@@@AA@@@F)@#@C@)@ @3]O[@K1#^G@@@@)@ @C@@@F@@]*4@K@ R]0@@C@[B@@B/K@@@DWH )@@G@@N@0@@C'^@@@@2) AB@@@F)@A@S@)@F@3#^EK0K1@@@@@@/K@@@@[@K@@DC@VK@@AA0@@CWI )@@G@@/K@@@@/K@K@ @[B ]LFORWRT@@@@@@AC@@@F)@^@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AAD@@@F@@^@@#@@B@@#@@H@@[@@L@@[WK )@@G@@@@]@@E@C@@@L@@@@@@NWDU$ NIO2$ NERR3$ FORWRT @@[@@@WL )@@G@@@@@@@H@@@@@@ ^@@@C@@]@@@@ FB@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G1J@@@@@@@@]OLP@@@]S @@@AOOWN )@@G@@@@@L7A@@]OLP@@@@@@@@@@@@@@@@@@@@@@@@N#0@\:R@)@\SR/K@[LH]@@%$C"@@[MG.)__.WO )@@G@@[[)@%$G.)__"C[)@@PMD@@@F@@[@[&@[=@[=NN73120042BOLOGNA MR DIWP )@@G@@VO IT C505M000001N00N E-5 NC 00 00 00 WQ )@@G@@ WORKSHOP TECHNICIAN 01 010860INDEF 00 WR )@@G@@@@@JY$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ EH 005000000000WS )@@G@@000000030 WT )@@G@@ 000000000000000000000000000 WU )@@G@@ @@@"9@@@@IT,@@@^*3@@@@@@@@@@@@@@@@@@@@@@@@@@[L;-@@@ UL@@@[QN@@@[G#WV )@@G@@@@@]2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B/$WW )@@G@@@@@]2 @@[D"'@@@]S @@@#H?@@@E4+@@[G0_@@@@@@@@@@@@@@@@@@@@@@@@C@[@*5R@K@%!WX )@@G@@/@@@HU/C@@HUH@@@%!C/@@@^'^@@@@@@)@%?@CO@@@ML@@@F@@[@[&@[=@[=NN73120043JAWY )@@G@@NELLI MR GIOVANNI IT B510M000001N00N E-5 NS 00 00 00 WZ )@@G@@ PRINCIPAL TECHNICIAN 01 XA )@@G@@ 031060INDEF 00 @@@T]-K*NR@@@FYJ )@@G@@@@[@[&@[=@[=NN73120048FEROLETO MR GIANCARLO IT B605M020001NYK )@@G@@00N O-4 NS 00 00 00 PRINCIPAL COMPYL )@@G@@.MAINT.TECHN. 01 160261INDEF 00 @@@T)6@@@@@@@@@@@@@@@@@@YM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C)M 026000500000000000030 YN )@@G@@ 000000000000000000YO )@@G@@000000000 @@[$%S@@@R\L@@@B(HYP )@@G@@@@@@@@@@@@@@@@@@@@@@@G90@@]N/&@@@C'0@@@]V6@@@[G#@@@R6R@@@A8M@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G+(@@@Y,(@@]BT.@@@]S @@@ 3WYR )@@G@@@@@L5)@@]&C&@@@@@@@@@@@@@@@@@@@@@@@@ CORA PLOT RAYTRAYS )@@G@@ NNCOD$ PAOLA @@[@[&@[=@[=NN73120049CORTIS MR UMYT )@@G@@BERTO IT B508M010001N00N E-5 NS 00 00 00 YU )@@G@@ PRINCIPAL TECHNICIAN 01 160261INDEF 00 YV )@@G@@@@@SK @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C R 000000000000YW )@@G@@000000030 YX )@@G@@ 000000000000000000000000000 YY )@@G@@ @@[++K@@@Q=C@@@BL[@@@@@@@@@@@@@@@@@@@@@AW8@@]A4L@@@CY-@@@]I[@@@[G#YZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F8>ZA )@@G@@@@@@@@@@[';?@@@]S @@@ MZ@@@K.]@@[';?@@@@@@@@@@@@@@@@@@@@@@@@COMMON/PRFINZB )@@G@@P/VOL(KMAXT),VEL(KMAXT),DEVLOS(NOANG) @F@@@@@@[@[&@[=@[=NN73120050PEZC )@@G@@DENOVI MISSCLOTILDE IT A308S000000N00N E-3 CTS00 00 00 ZD )@@G@@ PRINCIPAL SCIENTIFIC ASSISTANT 01 ZE )@@G@@ 160261310275 00 @@@=3#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@GL[ 000000000000000000030 ZG )@@G@@ 000000000000000000000000000 ZH )@@G@@ @@]P)0@@@+JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@]7\_@@@G7G@@@#[=@@@[G#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@L^3@@@@@@@@]&:G@@@]S @@@BHQ@@@T,S@@]&:G@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@,STLINE,ARLINE,TOPLIN,UNFLIN,STDIR @A@@@@ REAL MEDIUM,ZL )@@G@@@@[@[&@[=@[=NN73120051PECCI MR GINO IT B508S000000NZM )@@G@@02N E-4 NS 00 00 00 PRINCIPAL TECHZN )@@G@@NICIAN 01 010361INDEF 00 @@@SK @@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C R 000000000000000000030 ZP )@@G@@ 000000000000000000ZQ )@@G@@000000000 @@[++K@@@Q=C@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@G90@@]A@C@@@CY-@@@]HE@@@[G#@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F7,@@@@@@@@['CU@@@]S @@@ KWZT )@@G@@@@@K.]@@['CU@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@C @E@@@@ DEFINE RNU(IZU )@@G@@6)=10.**((RINDEX(I6+1)-1@@[@[&@[=@[=NN73120052MENELLI MR MAZV )@@G@@RIO IT B507M010001N00N E-5 NS 00 00 00 ZW )@@G@@ PRINCIPAL TECHNICIAN 01 160361INDEF 00 ZX )@@G@@@@@R&<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B7- 000000000000ZY )@@G@@000000030 ZZ )@@G@@ 000000000000000000000000000 AA )@@G@@ @@[Z9)@@@P.Z@@@B^>@@@@@@@@@@@@@@@@@@@@@AW8@@]#SW@@@CK@@@@]ET@@@[G#AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F&WAC )@@G@@@@@@@@@@[72@@@@]S @@@ D7@@@K)@@@[72@@@@@@@@@@@@@@@@@@@@@@@@@K7=MMAX1 AD )@@G@@@#@@@@ K8=MMAX1 @#@@@@ NURAY=0 @@[@[&@[=@[=NN73120054TEAE )@@G@@RRENI MR GIULIANO IT C309M020001N00N E-5 NS 00 00 00 AF )@@G@@ SEAMAN 01 AG )@@G@@ 020561INDEF 00 @@@H>^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@^-? 012500000000000000030 AI )@@G@@ 000000000000000000000000000 AJ )@@G@@ @@@7FK@@@G*(@@@^W>@@@@@@@@@@@@@@@@@@@@@G90AK )@@G@@@@[PEI@@@^\2@@@[T!@@@[G#@@@AA>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@BP+@@@AA>@@[H4?@@@]S @@@#P3@@@DZ=@@[N;L@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@#@@@@ HORDIS(I)=0.@#@@@@930 CONTINUE @[@@@@C AN )@@G@@@@[@[&@[=@[=NN73120055MALTESE MR GIOVANNI IT C607M020001NAO )@@G@@00N E-5 NS 00 00 00 WORKSHOP TECHNAP )@@G@@ICIAN 01 040461INDEF 00 @@@MV3@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ADL 015000000000000000030 AR )@@G@@ 000000000000000000AS )@@G@@000000000 @@[E90@@@LD1@@@ -ZAT )@@G@@@@@@@@@@@@@@@@@@@@@@@G90@@[,Y0@@@AWT@@@[4S@@@[G#@@@D/M@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW4@@@D/M@@[>[/@@@]S @@@^PSAV )@@G@@@@@G82@@[,"I@@@@@@@@@@@@@@@@@@@@@@@@TWO LIMITING ANGLE@E@@@@C *********AW )@@G@@************************@@[@[&@[=@[=NN73120056TOGNARINI MR GIAX )@@G@@ULIANO IT B606M020001N00N E-3 NS 00 00 00 AY )@@G@@ SENIOR SCIENTIFIC ASSISTANT 01 170461INDEF 00 AZ )@@G@@@@@UK-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C0F 000000000000BA )@@G@@000000030 BB )@@G@@ 000000000000000000000000000 BC )@@G@@ @@[%?C@@@SV*@@@B7)@@@@@@@@@@@@@@@@@@@@@G90@@]R9@@@@DFV@@@])@@@@[G#BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G7YBE )@@G@@@@@@@@@@]F[+@@@]S @@@ .Q@@@MQ6@@]F[+@@@@@@@@@@@@@@@@@@@@@@@@C @E@@@@BF )@@G@@C *********************************************@@[@[&@[=@[=NN73120057CHBG )@@G@@IARABINI MR ANSELMO IT B608M020001N00N E-5 NS 00 00 00 BH )@@G@@ SENIOR SCIENTST ASSISTANT 01 BI )@@G@@ 170461INDEF 00 @@@V\'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@DJ" 030500000000000000030 BK )@@G@@ 000000000000000000000000000 BL )@@G@@ @@[0\*@@@T4S@@@CO @@@@@@@@@@@@@@@@@@@@@G90BM )@@G@@@@]Z15@@@D?0@@@]*O@@@[G#@@@YVU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@H-B@@@YVU@@]MK,@@@]S @@@ALE@@@NT)@@]0?C@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@NURAY+1 @#@@@@ NBOTRF=0 @]@@@@ IR4=0 @]@@@@BP )@@G@@@@[@[&@[=@[=NN73120062MONTANARI MR CELSINO IT B610M020001NBQ )@@G@@00N E-5 NS 00 00 00 SENIOR SCIENTIBR )@@G@@FIC ASSISTANT 01 00 @@@XJK@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D\0 000000000000000000030 BT )@@C@@ BU @EOF @COPY,IO TEMP.1029-006-006,1029-006-006. @FREE TEMP.