=DATE 14-JUN-1994 07:22DEC Fortran V6.1-386 (o$LINK$i$CODE$$IODATA$$BSS$$DATA$(JxDATE CLI$GET_VALUE LIB$SIGNAL CLI$PRESENT LIB$DELETE_SYMBOL CLI$_NEGATEDCLI$_DEFAULTED SYS$BINTIM SYS$ASCTIM(LIB$CVT_FROM_INTERNAL_TIMELIB$DAY_OF_WEEK0JCPS_FIRST_WEEK LIB$SUB_TIMES LIB$_NEGTIM SYS$NUMTIMSYS$FAOLIB$SET_SYMBOL DFOR$WRITE_SEQ_LIS DFOR$HANDLER CLI$_PRESENT(LIB$CVT_TO_INTERNAL_TIME LIB$ADD_TIMES OTS$MOVEMOTS$FILLOTS$MOVE O=0;=P| ;0 LIB$SIGNAL=P(LIB$CVT_TO_INTERNAL_TIME SYS$BINTIM LIB$ADD_TIMES LIB$DAY_OF_WEEK LIB$SUB_TIMES= 1-JAN SYS$NUMTIM7 CLI$_NEGATED SYS$ASCTIM=DATE=!UL=PREFIX=!11%D(LIB$CVT_FROM_INTERNAL_TIME=_DAY(=_JULIAN_WEEK@ CLI$PRESENT8OTS$MOVE`SYS$FAO;=0X;= 7 DFOR$HANDLER=8 OTS$MOVEM8OTS$FILL LIB$DELETE_SYMBOLLIB$SET_SYMBOL! CLI$GET_VALUE=_DATE= 00:00:00.00=(CLEANUP 1-JAN-!UW 00:00:00.000 #DFOR$WRITE_SEQ_LIS= SYMBOLS8P7CLI$_DEFAULTED=7 LIB$_NEGTIM=OUTPUT = #?&1"~tGX^`^h~px޴>^~޵cGG$c Bx hB@"@}H D(R"H=H="pbL@Zk4G"G(%HHBb@ZkB$ @ݰ bD@"4G@ZkTG ? hB&0.r0H"pbQ0J2F0>@"@ݰH="DH0 L@Zk4GBGb@Zk DDTD B"@ݰ4GD@"b@Zk$$ 4G_G0B!&HG&HG6@<CGGGGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@Zk7vJHBGB@D=@"Pb8="8TG@ZkGG0B HGHG@<CGGGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@Zk6vJHBGPbB@ݲD=@"8="TG@ZkGG0B HGHG@<CGGGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@Zk6vJHBGPbB@ݲD=@"8="TG@ZkGG0B HGHG@<CGGGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@Zk6vJHBGPbB@ݲD=@"8="TG@Zk80@GC! Q?BG"@}D@"b4G@Zk4GHbGGE`Bb@ZkG"`,A0.`H(ChD0E(5ArIQ0J2F0>b&B"hB%hb"@c D} !H GpbL=@"H="R"tG@Zk4GBGb@Zk"TG¤B , ! P x"bG@HH0H0vJB@D=@"@Zk4GBbG@ZkXBG@@="`bGD=GG@ZkBbG4G@Zk"G0BG , ! @HGH@<CGGGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@Zk6vJBGB@ݲD=@"bGTG@Zk4GBGbG@Zk"GB"bG\1"tG@Zk4GBbG@Zk"GBTGb`1"@Zk"G`ABb4G@ZkB@"(B"G@ZkGBC"@ZkGBB"@ZkG@]"B G@Zk$c G@}@"D}b#d!G2@4GBbG@ZkGBG btGl!G@ZkTG"GEx!@ 8BG@bG@Zk4GBbG@Zk,/ ?&B1"@=@Hb"DHH}L}@" 1@3HGfJH]"G@ZkBGb4G@Zk@}@"D}Gb#@4GBGb@ZkBG bGGtG@Zk4GG BGb@ZkBbG4G@Zk""BGbtGX1"@Zk4GBGb@Zk-!b"LIXcI E 0`A G C /,A0H&H#D 8E O.o"RSJFJCF@ 4G /!.!TJJ؃F4F¦@"GH]".GGJ+'B#"@DHbL=@Zk4GBbG@Zk"%B!\cp!@@!D@"H 1"bH]"LG@Zk4GBbG@Zk"?$BG@! D8!H=Cb@"L1"H]"G@ZkBGb4G@ZkG0B.IGIGA<CGCGGAGGGG@Zk0BB"G@ZkC /  K6<C0B9&KGG&KOAGGGG@ZkG8B@Zk9!K6vJB9v KXBBG@ݲCD'CH=G!`bL@"H="R"tG@ZkBbGG4G@ZkG0BA<CGGGGGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@ZktG!v HBGXB'@@=@"DH="HR"`bL=@ZkBGbG4G@Zk G0BGG!-"!HIGA<CGGIGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@ZktG vHB(vIXB@@GDAH`b@"LH="R"@ZkBbGG4G@Zk"%H0BGH -)!GH I G A<CGGIGGG@Zk0BB"G@Zk<C0BGGGGGG@ZkG8B@ZktG-vIB(vIXB A@GD=AH`b@"LH="R"@Zk4GBGbG@ZkGGC, A CGHE C-)!IY -I$I\) -I@?&B-vIbNA !DP1" H=CL A"G!PTݱ#GC@"1"H]"P}"GG@Zk4GBGbG@ZkB =GB"b?",J!H_"b"EH@"HG%H@@ZkXcGc4GX]`]h}pxݤ=]}ݥ#k/X KG-O I EG#~^^ ~(08޴@G0,GG0Hl!v H `B?&1@=GhbTG "@Zk4G0B8bG@ZkBGbGTG@Zk4GG0B8bG@Zkà$8D #9G"PB51@Xb@"GGtG@Zk4G0B8bG@ZkBGbGGtG@ZkGPBG&@Xbð@"GGtG@Zk4G0BG8b@ZkpBGxbGGtG@ZkG0BG8b4G@ZkG]G] }(08ݤ@P#k,@ HD4!xG CLI$GET_VALUE4"b#x CLI$GET_VALUE4!@ CLI$GET_VALUE4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL4G CLI$PRESENT4b#x CLI$PRESENT4@ CLI$PRESENT4!GL CLI$GET_VALUE4"b#x CLI$GET_VALUE4!H@L CLI$GET_VALUE4TGd LIB$SIGNAL4\b#x LIB$SIGNAL4`@d LIB$SIGNAL4G CLI$PRESENT4b#x CLI$PRESENT4@ CLI$PRESENT4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G( OTS$MOVEM4$@( OTS$MOVEM4,G4OTS$FILL40@4OTS$FILL<8GdLIB$DELETE_SYMBOL<Pb#xLIB$DELETE_SYMBOL<`@dLIB$DELETE_SYMBOL4lG OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL<G LIB$DELETE_SYMBOL<b#xLIB$DELETE_SYMBOL<@ LIB$DELETE_SYMBOL4GH OTS$MOVEM4D@H OTS$MOVEM4HGX OTS$MOVEM4T@X OTS$MOVEM4\G| OTS$MOVEM4x@| OTS$MOVEM4GOTS$FILL4@OTS$FILL<GLIB$DELETE_SYMBOL<b#xLIB$DELETE_SYMBOL<@LIB$DELETE_SYMBOL4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G$ OTS$MOVEM4 @$ OTS$MOVEM4(G0OTS$FILL4,@0OTS$FILL<4G\LIB$DELETE_SYMBOL<<b#xLIB$DELETE_SYMBOL<X@\LIB$DELETE_SYMBOL 4tG CLI$PRESENT4b#x CLI$PRESENT4@ CLI$PRESENT4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL4!GT CLI$GET_VALUE4"8b#x CLI$GET_VALUE4!P@T CLI$GET_VALUE4\Gl LIB$SIGNAL4db#x LIB$SIGNAL4h@l LIB$SIGNAL4xG SYS$BINTIM4b#x SYS$BINTIM4@ SYS$BINTIM4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL4G SYS$ASCTIM4b#x SYS$ASCTIM4@ SYS$ASCTIM4G LIB$SIGNAL4b#x LIB$SIGNAL4 @ LIB$SIGNAL4GT OTS$MOVEM4P@T OTS$MOVEM4TGd OTS$MOVEM4`@d OTS$MOVEM4hG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G SYS$BINTIM4b#x SYS$BINTIM4@ SYS$BINTIM4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNALDGLIB$CVT_FROM_INTERNAL_TIMEDb#xLIB$CVT_FROM_INTERNAL_TIMED@LIB$CVT_FROM_INTERNAL_TIME4G LIB$SIGNAL4 b#x LIB$SIGNAL4@ LIB$SIGNAL4  G4LIB$DAY_OF_WEEK4 (b#xLIB$DAY_OF_WEEK4 0@4LIB$DAY_OF_WEEK4DGT LIB$SIGNAL4Hb#x LIB$SIGNAL4P@T LIB$SIGNAL4TGhOTS$MOVE4d@hOTS$MOVE4lGxOTS$MOVE4t@xOTS$MOVE4|GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL4 G  LIB$SUB_TIMES4 b#x LIB$SUB_TIMES4 @  LIB$SUB_TIMES4 (G< SYS$NUMTIM40b#x SYS$NUMTIM4 8@< SYS$NUMTIM4DGT LIB$SIGNAL4Hb#x LIB$SIGNAL4P@T LIB$SIGNAL,`GSYS$FAO,pb#xSYS$FAO,@SYS$FAO4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL4G LIB$SIGNAL4b#x LIB$SIGNAL 4@ LIB$SIGNAL4 G LIB$SUB_TIMES4 b#x LIB$SUB_TIMES4  @ LIB$SUB_TIMES4 G( LIB$SIGNAL4 b#x LIB$SIGNAL4$ @( LIB$SIGNAL4, G@ LIB$SIGNAL40 b#x LIB$SIGNAL4< @@ LIB$SIGNALDH G` LIB$CVT_FROM_INTERNAL_TIMEDP b#xLIB$CVT_FROM_INTERNAL_TIMED\ @` LIB$CVT_FROM_INTERNAL_TIME4h Gx LIB$SIGNAL4p b#x LIB$SIGNAL4t @x LIB$SIGNAL,8 G\ SYS$FAO,P b#xSYS$FAO,X @\ SYS$FAO4d Gt LIB$SIGNAL4h b#x LIB$SIGNAL4p @t LIB$SIGNAL,| G SYS$FAO, b#xSYS$FAO, @ SYS$FAO4 G LIB$SIGNAL4 b#x LIB$SIGNAL4 @ LIB$SIGNAL, G SYS$FAO, b#xSYS$FAO, @ SYS$FAO4 G, LIB$SIGNAL4 b#x LIB$SIGNAL4( @, LIB$SIGNAL40 Gt OTS$MOVEM4p @t OTS$MOVEM4t G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G, LIB$SET_SYMBOL4  b#xLIB$SET_SYMBOL4( @, LIB$SET_SYMBOL40 GH LIB$SIGNAL44 b#x LIB$SIGNAL4D @H LIB$SIGNAL4L Gx OTS$MOVEM4t @x OTS$MOVEM4x G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G LIB$SET_SYMBOL4  b#xLIB$SET_SYMBOL4 @ LIB$SET_SYMBOL4 G LIB$SIGNAL4 b#x LIB$SIGNAL4 @ LIB$SIGNAL4 GT OTS$MOVEM4P @T OTS$MOVEM4T Gd OTS$MOVEM4` @d OTS$MOVEM4h G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G LIB$SET_SYMBOL4  b#xLIB$SET_SYMBOL4 @ LIB$SET_SYMBOL4 G LIB$SIGNAL4 b#x LIB$SIGNAL4 @ LIB$SIGNAL4 G@ OTS$MOVEM4<@@ OTS$MOVEM4@GP OTS$MOVEM ( 4L@P OTS$MOVEM4TGt OTS$MOVEM4p@t OTS$MOVEM4xGOTS$FILL4|@OTS$FILL4GLIB$SET_SYMBOL4 b#xLIB$SET_SYMBOL4@LIB$SET_SYMBOL4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL,LGSYS$FAO,Tb#xSYS$FAO,@SYS$FAO4G LIB$SIGNAL4b#x LIB$SIGNAL4@ LIB$SIGNAL<#GDFOR$WRITE_SEQ_LIS<$b#xDFOR$WRITE_SEQ_LIS<#@DFOR$WRITE_SEQ_LIS4G SYS$BINTIM4b# SYS$BINTIM4@ SYS$BINTIM4G  LIB$SIGNAL4b# LIB$SIGNAL4@  LIB$SIGNAL4  G8LIB$DAY_OF_WEEK4 (b#LIB$DAY_OF_WEEK4 4@8LIB$DAY_OF_WEEK4DGT LIB$SIGNAL4Hb# LIB$SIGNAL4P@T LIB$SIGNALDGLIB$CVT_TO_INTERNAL_TIMEDb#LIB$CVT_TO_INTERNAL_TIMED@LIB$CVT_TO_INTERNAL_TIME4G LIB$SIGNAL4b# LIB$SIGNAL4@ LIB$SIGNAL4 G LIB$SUB_TIMES4 b# LIB$SUB_TIMES4 @ LIB$SUB_TIMESDGLIB$CVT_TO_INTERNAL_TIMEDb#LIB$CVT_TO_INTERNAL_TIMED@LIB$CVT_TO_INTERNAL_TIME4G  LIB$SIGNAL4b# LIB$SIGNAL4@  LIB$SIGNAL4 G< LIB$ADD_TIMES4(b# LIB$ADD_TIMES48@< LIB$ADD_TIMES4DGX LIB$SIGNAL4Lb# LIB$SIGNAL4T@X LIB$SIGNAL C==== (=8)!AS !11%D - Julian day !UL - Week no. !ULX=G?Monday Tuesday WednesdayThursday Friday Saturday Sunday @=0('DATEDEC Fortran V6.1-386 = 4x4= DATE4=SSSS X W X X ` a  g kă                       T   $= d4 =  = 44=CPS_FIRST_WEEK4=skj 6 6 ! ! ! ! ! ! !,  $= 4 =  =  x