@øJTGLMSK 29-MAR-1999 20:31!Digital Fortran 77 V7.1-107 ؈$DATA$ˆH$BSS$ˆ($IODATA$ix$CODE$ˆÈ$LINK$(J€JTGLMSK SYS$TRNLNM SYS$GETTIM SYS$GETSYIWQSUB DFOR$EXITFINDACEQADDREPLENT0J8¸JTPRTSYI DFOR$WRITE_SEQ_FMT DFOR$HANDLER(J˜8 KGETKI H–=0(6 Your system string is:\7 Ì–=€xÀÿÞ#~· ^·(^´0~´8¾·þGðÿÞ#þ·ûG¶4àG "¦1°”âG ¤¦vJr@JF¶TàG "¤!¦–!J`SH F!¶ ¤D ¦ ° B¦ÌÿR" "¤$A²”àG ¤$¦Jq“ JF$¶´àG "¤$A¦XJ`ÓH@F$A¶ ¤Èÿ ¦,° "¦Ìÿ1" "¤0!² B¦4ò³ ¤8à³ ¦<ð³H" Ðÿ""_&R"]²áC=°$ °ñC=²ÿG="]" b¦ ‚¦”"´àG`B§hb§@Zk "¤° ¦¢°5Bæ "¦Èÿ1¢±¹ B ö B¦DR¦2CJ’EJ@BS&GUs"²SB @æ ‚¦D”¦4†J”†J€B¾°”"€öôÿGݦ¶²8 ãGqàÃáG §”8§v KwàJ7G”8·¿ÿ" B§”z§–aKwSàJwG”z· â¦Üÿ÷" "¤˜á² ¦Øÿ" "¦œ²”àG B¦œ’¦†Js“`J“Fœ’¶ _" ¢¦œÕ¦ØJrÓ@JÒFœÕ¶ B¦èÿR" ¤¤@² §Øÿ# "§¨³ B§ìÿú³TàG "¤¬á¦vàJ{`KûF¬á¶ ? ¦¬0¦–!JaS H!F¬0¶ "¤ìÿ! b¦°3° ‚¦Øÿ”" ¢¦´•²”àG ¤´@¦FJv“ÀJVF´@¶e §´8§8K`ÓH G´8· ¤äÿ B§¼° â¦Øÿ÷" b§Àû² ¦Äð³ "¦Èñ³ "¤Ìá³ ¦¼ÿ"4àGÀÿB§Èÿb§@Zk "¤°þ·4àGÿGÿG b¦”s" ‚¦Ðÿ”"ÿGôàGàÿB§èÿb§@Zk "¤° ¦Üÿ" "¦¼ÿ1" B¦ðÿR"tàG0B§8b§@Zk ¤ôÿ ø@"4àGðÿB§øÿb§@Zk ¤äÿ r,?$†P! @ ¦Äÿ°°ÿ" "¦D1" B¦ÄÿR"tàG B§¨b§@Zk "¤°4àG "¦ ² B¦ R¢”@N b¦ s¢”`N ‚§“C@s¢ ‚§’C@r² ‚¦ ”¢0€B ¢¦ •² ¦ Ö¢¶]ÁBëÿßö â¦÷¢·5àBqàæ §X£ "§øÿ³ B§\Z£ b§üÿ[³ ¤`  "¤° ¦d¢ "¦² B¦hR¢ b¦S² ‚¦øÿ”¢Ä¿&‡Wµ"4•B ¦øÿ–² â¦üÿ÷¢m'xÎ#7øB "§üÿù² B§Z£0'È){#:[C ¤@³ "¤! r,&†P"!0@ "¦1° B¦R¢ñ&Îs"2SB ¢¦U² ‚¦”¢ ¦èÿÖ¢´–B€öˆÿ"4àGðÿB§øÿb§@Zk ¤  "¤äÿ!  @ô°"4àGðÿB§øÿb§@Zk ¤  "¤ìÿ!  @ô€ÿ"4àGðÿB§øÿb§@Zk ¤øÿ  "¤üÿ! DSä ¦¼ÿ" "¦øÿ1" B¦ðÿR"tàG0B§8b§@Zk ¤ôÿ Fø"4àGðÿB§øÿb§@Zk@àà ¤ðÿà³]#? ¦ôÿ0° ¦¼ÿ" "¦ðÿ1" B¦øÿR"tàG ÿB§¨ÿb§@Zk $·® "¤T° ¦øÿ¢Ä?&‡W1"B B¦X² b¦üÿs¢mŸ&xΔ"tB ¢¦\u² ¦èÿÖ¢0ÿ&È)÷"×B §`ز "§äÿ9£r,_'†PZ#:C b§d;³ ¤ìÿ ñ?$Î! @ "¦h°p"ÿ"" B¦DR" b¦Äÿs"”àG€B§ˆb§@Zk ¤T  ?$¸®! @¦°8 ãGýG ]§(]¤0}¤8½§@Þ#€úk€ÿÞ#þ·~·`^·h^´p¾·ÿcþGðÿÞ#þ·ûGáGhÿ"¤$¦vJ`HF$¶¿ hÿ"¦$Q¦–AJ`SH@F$Q¶hÿ¤ð hÿ"¤(°hÿ¦ì"hÿ"¦,²”àGhÿ¤, ¤&Hr“@J2D, ´  hÿ¦,0¦8J`ÓH F,0¶hÿ¤ü hÿ"¤4°hÿB¦ìR"hÿ¦8P²hÿ"¦ñ³TàGhÿ"¤<¦vJ`HF<¶  hÿB¦<2¦–!J`SH F<2¶hÿ¤ hÿ"¤@°hÿ¦ì"hÿ"¦D²”àGhÿ¤D ¤&Hr“@J2DD ´e hÿ¦D0¦8J`ÓH FD0¶hÿ¤ø hÿ"¤L°hÿB¦ìR"hÿ¦PP²hÿ"¦Tñ³hÿ¤Xà³hÿ"¤\á³hÿ¦Ü"4àGÿB§ÿb§@Zkhÿ"¤°þ·4àGÿGÿGhÿb¦$s"hÿ‚¦ä”"ÿGôàG(ÿB§0ÿb§@Zkhÿ"¤°hÿ¦ð"hÿ"¦Ü1"hÿB¦R"tàGxÿB§€ÿb§@Zkhÿ¤ ø@"4àG8ÿB§@ÿb§@Zkhÿ¤Ü ¹4?$Æ! @hÿ¦ °hÿ"¦à1¢K _&ÉØR"2Bhÿb¦3²hÿ‚¦ü”¢Q¿&답"hÿ¦ÜÖ¢–B•Bhÿ⦗²hÿ§ø£}?'Ïr9#hÿB§ÜZ£CChÿb§³hÿ"¤! ñ$~¦ hÿ¦Ü¢0@ @hÿB¦ °0b"hÿ"¦ 1"@=¶áG8½¶hÿâ¦÷"Hý¶hÿ"§9#P=·hÿb§ {#X}·"ÔàG_&€ÿR"8"X¢¦ÔàGHB§Pb§@ZkÿcýG`]§h]¤p½§€Þ#€úkÐÿÞ#~·^·^´~´ ¾·þGðÿÞ#þ·ûGðGáGÿ"¦¼Q¦v@Ja HAF¼Q¶¿? ÿ¤¼¦–JaS HF¼¶ÿ¤€ ÿ"¦À°ÿB¦|R"ÿ"¤ÄA²”àGÿ¤Ä ¦&Jp“J0FÄ ¶  ÿ"¤ÄA¦XJ`ÓH@FÄA¶ÿ¤Œ ÿ¦Ì°ÿ"¦|1"ÿ"¤Ð!²ÿB¦ò³TàGÿ¦Ô0¤v H`H DÔ0´  ÿ"¦ÔQ¦–AJ`SH@FÔQ¶ÿ¤ ÿ"¤Ø°ÿ¦|"ÿ"¦Ü²”àGÿ¤Ü ¤&Hr“@J2DÜ ´e ÿ¦Ü0¦8J`ÓH FÜ0¶ÿ¤ˆ ÿ"¤ä°ÿB¦|R"ÿ¦èP²ÿ"¦ìñ³ÿ¤ðà³ÿ"¤ôá³ÿ¦l"4àG¨þB§°þb§@Zkÿ"¤œ°þ·4àGÿGÿGÿb¦¼s"ÿ‚¦t”"ÿGôàGÈþB§Ðþb§@Zkÿ"¤œ°ÿ¦ˆ¢r,?&†P1"BÿB¦ ²˜þ"ÿ"¦¼1"ÿB¦ R"tàGˆÿB§ÿb§@Zkÿ"¤¤°4àGÿ"¦¨²ÿB¦¨R¢”@Nÿb¦¨s¢”`Nÿ‚§“C¸s¢ÿ‚§’C¸r²ÿ‚¦¨”¢0€Bÿ¢¦¨•²ÿ¦¨Ö¢¶]ÁBëÿßö㢹4'Æ#7øBÿ"§”ù²C£K 'ÉØ{#:[Cÿ¤˜@³# Q&ë‹"ÿ"¦”1¢!1@!0@ÿB¦¬2° c¢}Ÿ&Ïr”"ÿ¢¦”µ¢3uB3tBÿ¦°v²£ñÿ&~¦÷"ÿ"§”9£8C7Cÿb§´û² _'©&Z#ÿ"¦”1¢ @ @ÿ¦Ì°ÿ"¤”! Ä_&‡WR"2@ÿ¢¦Ð5°ÿ‚¦˜”¢m&xÎs"“Bÿ¦Ôv²ÿ"§¬9£0'È)#8Cÿâ¦Ø³ÿb§°{£r,?&†P1"qCÿB§Ü:²ÿ¤´ ñ&Î"@ÿB¦à°(" ""ÿB¦¼R"ÿb¦ s"”àGhÿB§pÿb§@ZkýG]§]¤}¤ ½§0Þ#€úkÍ4 LÿGX SYS$TRNLNM Ñ4 Pb#€ SYS$TRNLNMÓ4 T@ÓX SYS$TRNLNMÍ4dÿGp SYS$GETTIMÑ4hb#€ SYS$GETTIMÓ4l@Óp SYS$GETTIMÍ4 ÿG¬ SYS$GETSYIWÑ4¤b#€ SYS$GETSYIWÓ4¨@Ó¬ SYS$GETSYIWÍ, ÐÿGÜQSUBÑ, Ôb#€QSUBÓ, Ø@ÓÜQSUBÍ4ðÿGü DFOR$EXITÑ4ôb#€ DFOR$EXITÓ4ø@Óü DFOR$EXITÍ,0ÿG<FINDACEÑ,4b#€FINDACEÓ,8@Ó<FINDACEÍ4°ÿG¼ DFOR$EXITÑ4´b#€ DFOR$EXITÓ4¸@Ó¼ DFOR$EXITÍ4ÜÿGè DFOR$EXITÑ4àb#€ DFOR$EXITÓ4ä@Óè DFOR$EXITÍ4ÿG DFOR$EXITÑ4 b#€ DFOR$EXITÓ4@Ó DFOR$EXITÍ, HÿGTQSUBÑ, Lb#€QSUBÓ, P@ÓTQSUBÍ4hÿGt DFOR$EXITÑ4lb#€ DFOR$EXITÓ4p@Ót DFOR$EXITÍ,¨ÿG´QADDÑ,¬b#€QADDÓ,°@Ó´QADDÍ, lÿGxREPLENTÑ,pb#€REPLENTÓ, t@ÓxREPLENTÍ4p ÿG| SYS$GETTIMÑ4t b#8 SYS$GETTIMÓ4x @Ó| SYS$GETTIMÍ4¬ ÿG¸ SYS$GETSYIWÑ4° b#8 SYS$GETSYIWÓ4´ @Ó¸ SYS$GETSYIWÍ, Ü ÿGè QSUBÑ, à b#8QSUBÓ, ä @Óè QSUBÍ4ü ÿG DFOR$EXITÑ4 b#8 DFOR$EXITÓ4 @Ó DFOR$EXITÍ< ÿG DFOR$WRITE_SEQ_FMTÑ< b#8DFOR$WRITE_SEQ_FMTÓ< @Ó DFOR$WRITE_SEQ_FMTÍ4ð ÿGü SYS$GETTIMÑ4ô b#˜ SYS$GETTIMÓ4ø @Óü SYS$GETTIMÍ4, ÿG8 SYS$GETSYIWÑ40 b#˜ SYS$GETSYIWÓ44 @Ó8 SYS$GETSYIWÍ,t ÿG€ FINDACEÑ,x b#˜FINDACEÓ,| @Ó€ FINDACEÍ, PÿG\REPLENTÑ,Tb#˜REPLENTÓ, X@Ó\REPLENT \–= ”! # –ÉQADD=@–É SYS$GETTIM=SYE$_SPLCRSMDL`–É SYS$GETSYIWÉ DFOR$EXIT=‰0 ;=@ D;°–É QSUB=(#LNM$SYSTEM_TABLEà–É SYS$TRNLNM=(W–É REPLENT=# –ÉFINDACE=#=Ù0`¸;=€  7 DFOR$HANDLER=     x–=8É DFOR$WRITE_SEQ_FMT;=‰08 ;=( 0 !+