@ MAILUAF 11-NOV-1992 12:15DEC Fortran T3.3-249 $BLANK$LINK$i,$CODE$$IODATA$$BSS$$DATA$(J`MAILUAF JPI$_CURPRIV SYS$GETJPI LIB$SIGNALSYS$EXIT LNM$_STRING SYS$TRNLNM DFOR$OPEN DFOR$HANDLER(J8ABORTLIB$GET_FOREIGN CLI$DCL_PARSE MAILUAF_TABLE LIB$GET_INPUT CLI$_NORMAL CLI$DISPATCH DFOR$CLOSE DFOR$EXIT DFOR$WRITE_SEQ_LIS DFOR$WRITE_SEQ_LIS_XMIT0J(ADD_USER CLI$GET_VALUE UAI$_DEFDEV UAI$_DEFDIR SYS$GETUAI CLI$PRESENT CLI$_NEGATED CLI$_PRESENT CLI$_ABSENT STR$POSITION DFOR$INQUIRESTR$TRIMLIB$CREATE_DIR DFOR$WRITE_SEQ_FMT DFOR$READ_KEY_FMT DFOR$READ_KEY_FMT_XMIT(J,DONE0J`- HELP_USERLBR$OUTPUT_HELPLIB$PUT_OUTPUT0J . MODIFY_USERLIB$RENAME_FILE DFOR$REWRITE_FMT0J c REMOVE_USER DFOR$DELETE0J@h SHOW_USER LIB$CVT_DX_DX0J~ LIST_USERS DFOR$WRITE_SEQ_FMT_XMIT DFOR$READ_SEQ_FMT DFOR$READ_SEQ_FMT_XMIT DFOR$ERRSNSOTS$MOVEOTS$FILL OTS$MOVEMOTS$STRCMP_EQLSOTS$STRCMP_EQLP =088;=Phw 7 DFOR$HANDLER=;;= P DFOR$CLOSESYS$EXIT DFOR$ERRSNS=( 8      8OTS$MOVE LIB$GET_FOREIGN=  =,$sys$system:vmsmail_profile.data DFOR$EXIT SYS$TRNLNM= LNM$FILE_DEV 7 CLI$_NORMAL7 MAILUAF_TABLE= 8= 8@= 8P LIB$SIGNAL=0x;=BLE_< 7 DFOR$HANDLER=7 LIB$GET_INPUT;(DFOR$WRITE_SEQ_LIS_XMIT DFOR$WRITE_SEQ_LIS CLI$DCL_PARSE CLI$DISPATCH= MAILUAF>7 LNM$_STRING=VMSMAIL_PROFILE SYS$GETJPI7 JPI$_CURPRIV=1)%MAILUAF-F-NOOPEN, cannot open mail fileX=8OTS$FILLp DFOR$OPEN=Mail editor is EDT.=,$No default print form is specified.=4,Mail editor is Mail is being forwarded to =!No personal name is set.=IAAutomatic copies on forward is disabledCC prompting is disabled`(DFOR$WRITE_SEQ_FMT_XMIT=-%Automatic copies on send is disabled=-%Automatic copies on reply is enabled=.&Automatic copies on reply is disabled !DFOR$READ_SEQ_FMT_XMIT7 UAI$_DEFDEV=;3Username Forwarding address@=  H= new mail messages.`=&No mail directory is defined.# LIB$CVT_DX_DX% SYS$GETUAI 'DFOR$WRITE_SEQ_FMT=Mail directory is X;=0`~;= 7 DFOR$HANDLER= .8 OTS$MOVEM+STR$TRIM= FULL(= Username is 8=0 new mail messages.P=1 new mail message.h=;3-------- ------------------7 CLI$_PRESENT -DFOR$READ_SEQ_FMT7 UAI$_DEFDIR/ CLI$PRESENT=3+Automatic deleted message purge is enabled=,$Automatic copies on send is enabled8=4,Automatic deleted message purge is disabledh=G?CC prompting is enabledAutomatic copies on forward is enabled= ".=Personal name is "=&No forwarding address is set.=Default print form is =*"Default print queue is SYS$PRINT.(=( Default print queue is 0xh;=R__ 7 DFOR$HANDLER=A9 not found in mail file%MAILUAF-E-NOFIND, user =.&%MAILUAF-E-NOSHOW, show not performed=81 CLI$GET_VALUE= USER8OTS$STRCMP_EQLS 5DFOR$READ_KEY_FMT_XMIT 7DFOR$READ_KEY_FMT=0`c;=Pw| 7 DFOR$HANDLER=:2%MAILUAF-E-NOREMOVE, remove not performed9 DFOR$DELETE=$ was removed from mail file=!%MAILUAF-I-REMOVE, user = 8 =5-%MAILUAF-E-ERACTED, error activating editor  =shr.exe; as input( =2*%MAILUAF-E-BADLEN, queue name is too longX =91%MAILUAF-E-BADFORMAT, 1st character of personal  =   =91%MAILUAF-E-BADFORMAT, personal name cannot have  =2*%MAILUAF-E-NODIRECTORY, cannot determine   ;LIB$RENAME_FILE=91*.mai;* files moved to %MAILUAF-I-MODIFY, user H =to mail directory` =LIB$CREATE_DIR= created =' already existsNOREPLYNOSEND = FORM =EDITOR 7 CLI$_NEGATED= COPY_SELF 7 CLI$_ABSENT=1)%MAILUAF-E-BADLEN, form name is too long =QUEUE =)! does not specify a subdirectory0 = ]8 =MAIL_DIRECTORYH = formP =PERSONAL_NAME` =sys$common:[syslib]x =:2*.mai;*%MAILUAF-E-NOMODIFY, modify not performed =0.;=0T__ 7 DFOR$HANDLER=;8OTS$STRCMP_EQLP=/'FORWARDforwardmail_directory =personal_name( =)!%MAILUAF-E-NOTSUBDIR, parameter P =7/%MAILUAF-E-BADLEN, forwarding name is too long =queue = copy_self = SEND = AUTO_PURGE = CC_PROMPT =editor = NOFORWARD =REPLY =%MAILUAF-I-EXISTS,  =91%MAILUAF-W-NOMOVE, unable to move *.mai;* files 0 =directory name@ =%MAILUAF-I-CREATED, `  ADFOR$REWRITE_FMT= was modified =7/- cannot determine default device or directory =%MAILUAF-I-MOVED,  C STR$POSITION=E=multiple spaces%MAILUAF-E-BADLEN, personal name is too long =name not alphabetic8=)!%MAILUAF-E-OPENIN,error opening `=& not found on sysuaf.dat file=shr.exeE DFOR$INQUIRE=0 `-;=6.PPw sys$help:mailuafhlp.hlbTOPIC GLBR$OUTPUT_HELP7LIB$PUT_OUTPUT=08,;=PTPUT 7 DFOR$HANDLER=0;= TPUT 7 DFOR$HANDLER=4,%MAILUAF-E-NOADD, add not performed=$ already exist in mail file=6.%MAILUAF-E-EXIST, user %MAILUAF-I-ADD, user =  was added to mail file =P#GG~Gx^G^G~`GG#b" H8bs"HB$@3 vH C HbG@@Zk8D GB4Gb@Zk4GbB@Zkc#aHcH0`D#C`BGb4G@Zkb&"?' "#fHh! BfH@#v`H ᳘ #bHCA@a"89#<b#@=GD}8="b@]"GGG@ZkD`  `@BGhB"G@ZkGGB@ZkG¦6 8D BGb4G@Zk4GbB@ZkbtG4GB4GbcTG@_" b"#aH8}GH}GP"X=`h=4Gp8"@Zk.`b PB"@}?"Xb_"8b"8"G@Zk @"Xb?"PB_"8b"8"G@Zk"@""Hb8]"@BtG8@Zkb @}HbG@B"8""8]"tG@Zkb#;$@$Bc PB8"8} XbG<R"GG@ZkG"8`D|%HHMG1&J&J% B1!J&1!JhbrR"1v J'tF5B8<B##@D]8"`B@""G0B0b@ZkD4pBGxb@Zk/ H$z _<$D# &`B"8B"<]"G0B8"0bGhb@Zk"D?GpBxb@ZkBGb4G@Zk4GbB@ZkB"b4G_"b"GG@Zk$z @5@eD"B4Gb@ZkBGb4G@Zk`Gx]4G]}#k#$ ~tG^^~޴>^~޵`G#XP$HG@ 8" `GGBh"hݰp="B  l=R"pbt@Zk""4Gb_"p"! BBx"(IbJ!IGG HH)Hh=p=x=}b"^@Zk" GX,IIp]""tGBh1"x=b""0Jp"@Zk GG|<$Db GBGh"@Zk["xݶ 4GB"b?"p}_"b"p"G@Zk xb"B?"p}_"b"p"G@Zk xb"xB""p}p]"tG@Zkxb!x}b GxB"p}""p]"tG@Zk"x""bp]"xBtGp=@ZkXb!x}b tGxB"p}""p]"tG@Zk0b!x} tGb"B?"p}_"b"p"G@ZkbkdIR`G8BG@b4G@ZkG"5JbG¦0J! k!@"BJC HC60vJ6HJG7J#`SHGGG@ZkG8B@Zk@B &!hBC s"pbGG"Cp]"p}GtGGG@Zk?$񂧲! DU "Bx4Gb"pݵ?"_"b"p"G@Zk x"b?"B_"pݵb"p"G@Zk x"b""xBp]"pݵtG@Zk`!xݵGb"xB""pݵp]"tG@Zkx"b""xBp]"p=tG@Zk8!xݵGb"xB""pݵp]"tG@Zk0!xݵbtGB"pݵ?"_"b"p"G@Zk¥ΥIb#9"@8F (B4G0b@Zk4G@b8B@Zk%B !pݱbx" t=p"4G@Zk¥%񂧈"B !@b4G.5Apݱx|x"@Zkx"""񂧀"B4G @b'Cx=@Zk D %B`B!k!BP!]"}="bXR"tG@Zk"XD,IIh/GBGG1&J7JG&JJGpB"G@ZkGG?#BGGGGpB"G@ZkGGBGGB"G@ZkGGBG#8GGGGB"G@ZkGGBGGhB"G@Zk`"GB0GGGG4GGB"G@ZkG?G`BG"BG]="}XR"btG@Zk¥DX,II G 4G|4GܱG`G%B"b!ݱ"4G@Zk D%BB!ݱ!B9!]"="bpR"tG@Zk GB"xB4G9"@Zk?"G8B@ZkpBx ݰ"b4G@Zk  D@%ݰ!B !"⥈="b8]"tGC!@Zk8ݡ.II øB"xB4GC"@Zk?"G8B@ZkG$B ݰb!"4G@Zk D%ݰ!Bk!1!}"b="P]"tG@ZkP%HH /B"xB4G1"@Zk?"G8B@ZkG$B b!"4G@Zk  D% Bk!ݰ/!}"b="X]"tG@ZkX,II /B"xB4G/"@Zk?"G8B@Zk G%B !b(B!]"4G@Zk D%k!B ݰ}"b="bH]"tG3k!}@ZkH/II /B"xB4G3"@Zk?"G8B@ZkG%B!bB!]"4G@Zk  D %k!BX ݰ}"b="b@]"tG;k!}@Zk@=)&I&I /B"xB4G;"@Zk?"G8B@Zk G G-II Fb!B 4G}"b?"]_"b""G@Zk b"B?"]_"b""G@Zk"b""xB]"]tG@Zk ݴGb"xB""]"tG@Zk0b!}b tGB"}?"_"b""G@ZkBJDIl@L L"8B4G@bܰ@Zk G+fIfIK!F@ B4G"b?"ݴ_"b""G@Zk b"B?"ݴ_"b""G@Zk"b""xB]"ݴtG@Zk( Gb"xB""]]"tG@Zk0 btGB"?"_"b""G@Zk¤ƤH%L L"8B4G@b@ZkG&HH CnB/ /J! vH !1@B1@AA4GGB"G@Zk^B"4Gb"ݴ?"_"b""G@Zk "b?"B_"ݴb""G@Zk "b""xB]"ݴtG@Zk Gb"xB""ݴ]"tG@ZkG] HbxB"H"" H]"tG@ZkB!]"b""xB]"ݴtG@Zk0B!] tGb"B?"]_"b""G@Zk¤ƤH(_!8B("@b4G\@Zk G*FIFI G" B4G="b?"ݴ_"b""G@Zk b"B?"ݴ_"b""G@Zk b"xB""ݴ]"tG@Zk ݴbGxB"ݴ""]"tG@Zk0 ݴtGb"B?"ݴ_"b""G@Zk¤ƤHnL 8BL"@b4G@Zk C3 , H"!" 9,@]+@8 D2DR@b"B} 4Gb"?"_"b""G@Zk "b?"B_"b""G@Zk "b""xB]"tG@Zk0! Gb"xB""]"tG@Zk!b tGxB"""]"tG@Zk0! tGb"B?"_"b""G@ZkI  8B "@b4G@Zko AI?$ HB_&b vH3"@=R"]h""="TG@Zk HH<WTR ԈB" = 4Gb"?"_"b""G@Zk "b?"B_"b""G@Zk "b""xB]"tG@Zkp! Gb"xB""]"tG@Zk!b GxB"""]"tG@Zk0! tGb"B?"_"b""G@ZkI[  8B "@b4G@ZkG HH G "B 4G"b?"_"b""G@Zk b"B?"_"b""G@Zk b"xB""]"tG@Zk!b 4GxB"""]"tG@Zk0! tGb"B?"_"b""G@ZkIL 8BL"@b4G@Zk(IGBIh!  GGGG@ZkG8B@Zk4G"xKxB " "h'h'! GTGvIE@ZkTGqKxB(!6JGvJF! "TG@Zk# "GxBTG@ZkqKGxBvJF% "TG@ZkxK0`DxBvJGF' "TG@ZkpG8KK`= GxvJxBr`HtG2F) "GTG@Zk&Gצ8KtGxBKvJy KCF׶+ "GTG@Zkh$&HxKxBHv`H6@xDh- "GTG@Zk/ "BG"B/R"@ZkG8B@ZkH`0@9&KGB&KvJ0 C!&HvJ&HF0 @#fH%HfHH0`@'H91 CHG0@8K!9@ GG#1`@K@BGGG@ZkG8B@Zk($Jk`IBHv KG81C'@G+G(!@BGGG@ZkG8B@ZkGBGBBG1R""@ZkG8B@ZkH0@6J7/IBJG0B%HIH61B 0@+fIv HfIgH0`A9&KG&K%@0 C =#fH GG+1`A'D7fH*CBGGG@ZkG8B@Zk$Hj@IBHvHG#1`@9+CGD8@BGGG@ZkG8B@ZkGBGBBG3R""@ZkG8B@Zkp/II CE0@w%HB GHv`H0@&H%1@Hk`I0@!&HG&H&@0 @'HGH!1 @ 0@*FIkDwFI@BGGG@ZkG8B@Zkh$KyIBH v`IG*1@A'@G yEh%@BGGG@ZkG8B@ZkGBGBBG9R""@ZkG8B@ZkG&HHH0@8KB4GKvH0C#fHgHfH)&I 0`@+fIDfI&I0`A9&K81C&KG0 C!&H#x@GG+1`A&H&CBGGG@ZkG8B@Zk$HHfHHB v@IG!1 @9+CG FEH)@BGGG@ZkG8B@ZkBGGBBG;R""@ZkG8B@ZkG8KKH0@7#fHB.IfH G0`@%HIH#1`@0@&Hv HHk`I0@'HGH%@ 0@*FIGG&1@+D7FI @BGGG@ZkG8B@Zk$&IhxKHB v`IG*1@A'@G xEh9@BGGG@ZkG8B@ZkBGGBBGCR""@ZkG8B@ZkpA.IxB8B"Ih"#qA0AAGtG@ZkGG8B@Zk"%H"B9)!HGG"@ZkG8B@Zk.I%1@IBG.AGBGXB"G@ZkG8B@ZkxGp"?"hB_"pbb""p"G@ZkG4G 4G\4Gܰ4Gܰܠ&HHG&HH}B!x4Gb"p?"_"b"p"G@Zkb x}"b?"B_"pb"p"G@Zk"x}""bp]"xBtGp@Zk!xb GxB"p]""p]"tG@Zk/Ix="b""xBp]"ptG@Zkb x} Gb"B?"p}_"b"p"G@Zk8 xbtGxB"p""p]"tG@Zk"x=""bp]"xBtGp@Zk!xݵb4GxB"pݵ""p]"tG@Zk0b!x} tGb"B?"p}_"b"p"G@ZkI?%񂧒)!8B@bG<4G@ZkG%HH⥠$¤ c B`"`}p=" BdݰR"p}tGbtݰ@Zkbk`%"@!B`"`p=")!Bd=R"ptGbt=@Zkb,I4GIcGGB!$fHBGH#1`@@&q@&H$1@H'1@+@0@'H&HHHhJ!G'1@&1@GTBGG@ZkG8B@ZkG"G4GB)!BGG%1@GTBG@ZkG8B@ZkBGGGB4GB/R" @GGTBG@ZkG8B@Zk&B"`ݲ`"Bp="d]R"pݲtGbt]@Zk$`"@b""8BGGGG(IGI/I/I/vIA`d]@Zk G!<( B"xGb?"p_"b"p"G@Zkx](Ib"xB""pp]"tG@ZkH xbGxB"p""p]"tG@Zk1G 4G\p 8 E( !BxݵtGb"pݵ?"_"b"p"G@Zk"""bp]"xBtGx]'HH'Hp@ZkX!xGb"xB""pp]"tG@ZkGb#6@Ӹ"xB4Gb_"b"xp"G/Ip⥨!"@ZkGb#@Ӑ!BxݵGb"pݵ?"_"b"p"G@Zk"b""bp]"xBtG c x}hp@Zk!h Gb"xB""`}`]"tG@Zk 4G`G]]}ݤ=]}ݥ #kT`D*`D`=/?aDx.bD,ð#4G_"~G8^G@^H`GG"XBHb"`b@Zkb"4GB@ZkG`@]8]HP#k#$~ ^tG(^0~8@GG8"@$@Bc @B=" }"HbR"@Zk@?&1"P b"@B]"GHbG HH}=}="}"@Zk8D `BGb4G@Zk4GbB@ZkG ](]0}8@P#kG#4G~^^~޴>^~޵ `GG#bB"Boc G@Zk?"GB@ZkB"4GB G@Zk?"GB@ZkB"04GBG@Zk?"GB@Zk_%X_&PJ!HR"@@"8 G`!hGpGx]="|x"]tGbB0B8bHcs"}bR"@Zk""_""b"b"b! Hc1"¦%H`BhbGH"G HH Hx==4G"޶@Zk"Gb$HH􂧀]""tGPBbg1"=Xb""0J"@ZkGG||dDZ "B 4Gb"=?"_"b""G@Zk "b?"B_"=b""G@Zk "b""B]"=tG@Zk"!= Gb"B""=]"tG@Zk""b""B]"Hc)!=x=tG=@Zk"!=b GB"=""]"tG@Zk"!= 4Gb"B?"=_"b""G@Zk")$I 4G<6 `Pb#y@Ӏ"GbHBg)!Hcc GG@Zk_" =B4Gb"}?"_"b""G@Zk "b?"B_"}b""G@Zk "b""B]"}tG@Zkb }Gb"B""}]"tG@Zkb"b""B]"Hcc }x}tG}@Zkb }bGB"}""]"tG@Zkb }4Gb"B?"}_"b""G@ZkbcdHk`$􂧲 BbG4G@ZkG"5Jb¦P0Jb! bc "hc"XBJC HC60vJ6HJG7J8c#Hc9#`SHGGGG@ZkGB@Zk@BB_' b"bR"bC6CV Z#]GBG]"GGGG@Zk$􂧲c D B"B4Gb"G@ZkGGB@ZkB"¦4GBb"G@ZkGGB@Zk⦀bb G4G|d 8DPb#@Ӏb?$ ! =="BtGb"`B="hbbR"@Zkb?$@! =="BtGb"`B="hbbR"@Zkb @P@p@XB!&H0J0@&HJ6&J!1 @GG5Bb"GJGTBGG@ZkGB@Zk@7/" HXBY7K⦀H&K81@@GG6Bb"G!1 @GTBGG@ZkGB@Zk/"!&HXBXK⦁&H 1@?"G6 @w"GK0 @GTBG?"@ZkGB@Zk&&H8GH#XG'xGCGQGW G]@Gc`Gi8Gq@XGw`xG} GGGGG0?"B"@Zk7!&H&Hb<?"`}GG HGHPD0DDXGDGD`}h]8FFDFFFDFh] G GGhÀ"GB?"! G@ZkG0¦?"BG@ZkX=p=X0GB?""@ZkP=P0GB?""@ZkH=H0GB?""@ZkAG0GB?""@Zk9G0GB?" "@Zkb^~޵`G#G8"b$B B@="<P/c @8"b.R"D}@Zk""4G_".@" /! 8=@}"$HbBGHbG HH%HHPX}b"8"@ZkG" /"BtGGBCb1!J/R"@]8]"8=""@ZkGDX "pB@ 4Gxb"8=?"_"b"8"G@Zk @"xb?"pB_"8=b"8"G@Zk @"hb""`B8]"8=tG@ZkH"!@= Ghb"`B""8=8]"tG@Zk@}"hb""`B8]"8tG@Zk0"!@= Ghb"`B""8=8]"tG@Zkh"!@=xb GpB"8=?"_"b"8"G@Zk")$I 4G<Gb# @"GBG/)!G@Zk\" @=pB4Gxb"8?"_"b"8"G@Zk @"xb?"pB_"8b"8"G@Zk @"hb""`B8]"8tG@ZkH @Ghb"`B""8=8]"tG@Zk@}"hb""`B8]"8tG@Zk0 @Ghb"`B""8=8]"tG@Zkh @xbGpB"8=?"_"b"8"G@ZkHR?$! BG(b4G<@Zk"G5J"1&JB$/"¦&J!&H1v JBp/J!/"CC7"J&HVJG@/#aS HGGGG@ZkG B@Zkb$@6B &/k!PBC s"XbGG(/"C8]"8}G<GGG@Zk?$! D "$/(/4G8Db#^ @$/?$B ! 8=8"B@="<]$/R"@=tGbD]@Zk(/?$B@! 8=8"B@="<}(/R"@=tGbD}@Zk8!@GHݱGPGXG`G TG_GC @ P@p@B0J1&JJ&J0@51B65B7FJGG/#GJGTBGG@ZkG B@Zk@8,#6JB91@A8HJ&HGG7BB/!G81BGTBGG@ZkG B@Zk-/!8KBY-KK61B?"G7C7!G&K0CGTBG?"@ZkG B@Zk K8 GH#X G'x GC GI GO  GU@ G[`!Ga8!Gi@X!Go`x!Gu!G{!G!G!G?G?"`BHX"@Zk 8KK/ͦ?"8]@}6JHJ0FPF8FFFX G8]1G@}P]FFHFX}FFFFFP]X}hG`B?"H@"@ZkG`G`B?"HB"@ZkGXG`B?"HD"@ZkGPG`B?"HF"@ZkIGG`B?"HH"@ZkAGG`B?"HJ"@Zk/<7GG`B?"HL"@ZkG.G`B?"HN"@Zk'GG`B?"HP"@ZkGG`B?"HR"@ZkGG`B?"HT"@Zk`=G`B?"HV"@ZkGC @?pB#p 4Gxb"h?"_"b"h"G@Zk pGxb"pB?"hݴ_"b"h"G@Zkp}"hb""`Bh]"htG@Zk"!p="hb""`Bh]"htG@Zk/ lGh,`Ij= !DHDh< ._&qI R"@BPJHb0/!F>h"p]p="BtGt,/R"@Zk BGb4G@Zk4G(b B@Zk/%HH8Db p}tGh "?"pB_"xbb",/ܠh"pG&Hhݴ@Zk ptGhb"`B""hh]"tG@ZkG pGhݴpB"xb?"_"b"h"G@Zk(/$/@A E+pb pBTGp}"xb?"hݴ_"b"h"G@ZkG$Hhb`B"H@!ph""h]"tG@Zkj b pB Gp}"xb?"h_"b"h"G@Zk\G1%1@p pB%HpݴxbTGHhݴ"?"_"b"h"G@Zkj "hb""`Bh]"$/tGp},1A,Ih@Zk%1@k p}hb%H`B"h""h]"tG@Zk'1@'HI@!ph"pBp pTGxb"hݴ?"_"b"h"G@ZkJ!"hb""`Bh]"$/tGp],1A,Ih@Zkk!(/p}%1@%Hh`B"hb""h]"tG@Zk$ pB tGp"xb?"h]_"b"h"G@Zk(Ihb"`B""HB!phh]"tG@Zkp="hb""`Bh]"htG@ZkGpB pGxb"h?"_"b"h"G@Zk&pb pB TGp}"xb?"h_"b"h"G@Zkb/Ihb"`B""HDk!p}hh]"tG@Zkh phbTG`B"h""h]"tG@ZkGpBb p}Gxb"h?"_"b"h"G@Zk/$b!pB"p} Gxb?"h}_"b"h"G@Zk%Hhb"`B""HJ phh]"tG@Zkp="hb""`Bh]"htG@ZkG@!pBp tGxb"h?"_"b"h"G@Zk$!pB"pGxb?"h_"b"h"G@Zk.Ihb"`B""HL phݵh]"tG@Zkp="hb""`Bh]"htG@ZkGpBb!p} 4Gxb"h?"_"b"h"G@Zk`#!pBpGxb"h?"_"b"h"G@Zk'Hb"hb""`B`]"HTc h}`tG@Zk"h=""hb`]"`BtG`@Zk pBX h tGxb"`?"_"b"`"G@Zk8]@!htG`0 hݴ G`}pB"xb?"_"b"`"G@Zk"h=""hb`]"`BtG`@Zk@]@Xb @}G8ݵG @ݴG8ݴpB"xb?"_"b"8"G@Zk"@=""hb8]"`BtG8@ZkH]@b @}TG8ݵG @tG8ݴpB"xb?"_"b"8"G@Zk"@=""hb8]"`BtG8@ZkP]@@b @}G8ݵG @G8ݴpB"xb?"_"b"8"G@Zk"@=""hb8]"`BtG8@ZkX]@(b @}G8ݵG @G8ݴpB"xb?"_"b"8"G@Zk"@=""hb8]"`BtG8@Zk 4G\`Gx]]}ݤ=]}ݥ#k/i, ID HDif #$ ~4G`^h^p~x޴>^~޵`G#GP"8B<b8"@Zk"hD 88B"B 8ݰH]TGb" =@?"_"hb"@"G@Zk H"b?"B_"@hb"@"G@ZkG`"4GB_"b @pb"@"GG@Zk G`@]"`"tG B1"H=(bh""0J@"@Zk GhGh) < h0b#@`B&`""@BtGJ!Hb )!  )I @"*H="ʦ2OJ2OJJFʶ`B@D]HL]R"@Zk G@ G!HGGGGGG_`< @ P@`p@8B0J1&JJ&J0@51B65B7FJGG#GJGTBGG@ZkGB@Zk@8,#6J`8B91@A8HJ&HGG7BB!G81BGTBGG@ZkGB@Zk(/!8K8BY(K`K61B?"G7C !G&K0CGTBG?"@ZkGB@Zk K8 GH#X G'x GC GI GO  GU@ G[`!Ga8!Gi@X!Go`x!Gu!G{!G!G!G?G`?"B,"@Zk`8KKȦ?"@}GG6JGJG0FPFFFF8FX GFFF1GFFFF G@} G GGh`GB?""@ZkG``GB?""@ZkH=X`GB?""@ZkGP`GB?""@ZkIG`GB?""@ZkAG`GB?""@Zk`<7G`GB?" "@ZkG.`GB?"""@Zk'G`GB?"$"@ZkG`GB?"&"@ZkG`GB?"("@ZkG`GB?"*"@Zk`< @?8R`G"G0G`"ܢ`!&H`7J`"9#6J8B&H!x CJCJ !v H)!wSJ!"HGG@ZkGB@ZkB`(@& s"8 BC`GbGP]""CGP}GT=GG@Zk?%h)!  D `"`8D0b#v@`") $`B PP"@BX="TR"XtGHb\@Zk`") $`B@ PP"@BX="TR"XtGHb\@ZkB X 4Gb"P=?"_"hb"P"G@ZkX XGb"B?"P=_"pb"P"G@Zk`"bp""BP]"tGX] HH HP@Zk0 Xb"Bh""P=P]"tG@Zk`TG TGP=.r=HR}"Q=J2FP=>_"`.uSJ`&`B "TJBb!F>XݲP"\X="R"tG@Zkh BGb4G@Zk4GhbB@Zk` HH8D "XtGP=$` HH"`?"B_"bpb". SJT JF>ð#4G_"~G8^G@^H`GG"PB@b"Xb@Zk0BG0GpBG0"R"xb"@Zk0"0"GC CGC@CG08bG`BChb4G@Zk`G@]8]HP#k4dG SYS$GETJPI4b#` SYS$GETJPI4@ SYS$GETJPI4G LIB$SIGNAL4b#` LIB$SIGNAL4@ LIB$SIGNAL4b#`SYS$EXIT4GSYS$EXIT4@SYS$EXIT4GSYS$EXIT4b#`SYS$EXIT4@SYS$EXIT4 (G SYS$TRNLNM4|b#` SYS$TRNLNM4 @ SYS$TRNLNM4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4G LIB$SIGNAL4b#` LIB$SIGNAL4@ LIB$SIGNAL4b#`SYS$EXIT4G SYS$EXIT4@ SYS$EXIT4Gp DFOR$OPEN4 b#` DFOR$OPEN4l@p DFOR$OPEN<GDFOR$WRITE_SEQ_LIS<b#`DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#`DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#`DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT< b#`DFOR$WRITE_SEQ_LIS_XMIT<(GDDFOR$WRITE_SEQ_LIS_XMIT<@@DDFOR$WRITE_SEQ_LIS_XMIT4 \GLIB$GET_FOREIGN4 lb#`LIB$GET_FOREIGN4 @LIB$GET_FOREIGN4b#` CLI$DCL_PARSE4 G( CLI$DCL_PARSE4$@( CLI$DCL_PARSE4<GL CLI$DISPATCH4Db#` CLI$DISPATCH 4H@L CLI$DISPATCH4G CLI$DCL_PARSE4b#` CLI$DCL_PARSE4@ CLI$DCL_PARSE4G CLI$DISPATCH4b#` CLI$DISPATCH4@ CLI$DISPATCH4G LIB$SIGNAL4b#` LIB$SIGNAL4@ LIB$SIGNAL4b#`SYS$EXIT4G SYS$EXIT4@ SYS$EXIT4 G0 DFOR$CLOSE4b#` DFOR$CLOSE4,@0 DFOR$CLOSE4 TGd DFOR$EXIT4 \b#` DFOR$EXIT4 `@d DFOR$EXIT4hG|SYS$EXIT4pb#`SYS$EXIT4x@|SYS$EXIT41PGp CLI$GET_VALUE42db#( CLI$GET_VALUE41l@p CLI$GET_VALUE<7GDFOR$READ_KEY_FMT<8b#(DFOR$READ_KEY_FMT<7@DFOR$READ_KEY_FMT<5G8DFOR$READ_KEY_FMT_XMIT<6 b#(DFOR$READ_KEY_FMT_XMIT<54@8DFOR$READ_KEY_FMT_XMIT43pGOTS$STRCMP_EQLS43|@OTS$STRCMP_EQLS<GDFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT< @DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT< G<DFOR$WRITE_SEQ_LIS_XMIT<8@<DFOR$WRITE_SEQ_LIS_XMIT<Hb#(DFOR$WRITE_SEQ_LIS_XMIT<PG`DFOR$WRITE_SEQ_LIS_XMIT<\@`DFOR$WRITE_SEQ_LIS_XMIT<hb#(DFOR$WRITE_SEQ_LIS_XMIT<pGDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4GSYS$EXIT4b#(SYS$EXIT4@SYS$EXIT4)$ Gl OTS$MOVEM4)h @l OTS$MOVEM4p Gx OTS$FILL4t @x OTS$FILL4% G SYS$GETUAI4& b#( SYS$GETUAI4% @ SYS$GETUAI< G4 DFOR$WRITE_SEQ_LIS< b#(DFOR$WRITE_SEQ_LIS<0 @4 DFOR$WRITE_SEQ_LIS<@ b#(DFOR$WRITE_SEQ_LIS<H Gd DFOR$WRITE_SEQ_LIS<` @d DFOR$WRITE_SEQ_LIS<p b#(DFOR$WRITE_SEQ_LIS_XMIT<x G DFOR$WRITE_SEQ_LIS_XMIT< @ DFOR$WRITE_SEQ_LIS_XMIT< b#(DFOR$WRITE_SEQ_LIS_XMIT< G DFOR$WRITE_SEQ_LIS_XMIT< @ DFOR$WRITE_SEQ_LIS_XMIT< b#(DFOR$WRITE_SEQ_LIS_XMIT< G DFOR$WRITE_SEQ_LIS_XMIT< @ DFOR$WRITE_SEQ_LIS_XMIT< b#(DFOR$WRITE_SEQ_LIS_XMIT< G DFOR$WRITE_SEQ_LIS_XMIT< @ DFOR$WRITE_SEQ_LIS_XMIT< b#(DFOR$WRITE_SEQ_LIS< G< DFOR$WRITE_SEQ_LIS<8 @< DFOR$WRITE_SEQ_LIS4d Gt LIB$SIGNAL4l b#( LIB$SIGNAL4p @t LIB$SIGNAL4| b#(SYS$EXIT4 G SYS$EXIT4 @ SYS$EXIT4/ G CLI$PRESENT40 b#( CLI$PRESENT4/ @ CLI$PRESENT4/ G CLI$PRESENT40 b#( CLI$PRESENT4/ @ CLI$PRESENT4/ G, CLI$PRESENT40 b#( CLI$PRESENT4/( @, CLI$PRESENT41T G CLI$GET_VALUE42l b#( CLI$GET_VALUE41| @ CLI$GET_VALUE4? G OTS$STRCMP_EQLP4? @ OTS$STRCMP_EQLP4? G OTS$STRCMP_EQLP4? @ OTS$STRCMP_EQLP4? G( OTS$STRCMP_EQLP4?$ @( OTS$STRCMP_EQLP4?0 GX OTS$STRCMP_EQLP4?T @X OTS$STRCMP_EQLP4?` Gx OTS$STRCMP_EQLP4?t @x OTS$STRCMP_EQLP4? G OTS$STRCMP_EQLP4? @ OTS$STRCMP_EQLP41 G CLI$GET_VALUE42 b#( CLI$GET_VALUE41 @ CLI$GET_VALUE4/HGl CLI$PRESENT40Pb#( CLI$PRESENT4/h@l CLI$PRESENT41G CLI$GET_VALUE42b#( CLI$GET_VALUE41@ CLI$GET_VALUE4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4/G CLI$PRESENT40b#( CLI$PRESENT4/@ CLI$PRESENT414Gh CLI$GET_VALUE42Pb#( CLI$GET_VALUE41d@h CLI$GET_VALUE4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4/G CLI$PRESENT40b#( CLI$PRESENT4/@ CLI$PRESENT41G CLI$GET_VALUE42b#( CLI$GET_VALUE41@ CLI$GET_VALUE48GHOTS$MOVE4D@HOTS$MOVE4PGXOTS$FILL4T@XOTS$FILL4/`G CLI$PRESENT40lb#( CLI$PRESENT 4/@ CLI$PRESENT41G CLI$GET_VALUE42b#( CLI$GET_VALUE41@ CLI$GET_VALUE4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4 @OTS$FILL4/G< CLI$PRESENT40$b#( CLI$PRESENT4/8@< CLI$PRESENT41XG CLI$GET_VALUE42tb#( CLI$GET_VALUE41@ CLI$GET_VALUE4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4/G CLI$PRESENT40b#( CLI$PRESENT4/@ CLI$PRESENT41GD CLI$GET_VALUE42,b#( CLI$GET_VALUE41@@D CLI$GET_VALUE4`GpOTS$MOVE4l@pOTS$MOVE4xGOTS$FILL4|@OTS$FILL<GDFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS_XMIT< G DFOR$WRITE_SEQ_LIS_XMIT<@ DFOR$WRITE_SEQ_LIS_XMIT<,b#(DFOR$WRITE_SEQ_LIS_XMIT<4GLDFOR$WRITE_SEQ_LIS_XMIT<H@LDFOR$WRITE_SEQ_LIS_XMIT<Tb#(DFOR$WRITE_SEQ_LIS<\GDFOR$WRITE_SEQ_LIS<|@DFOR$WRITE_SEQ_LIS4GSYS$EXIT4b#(SYS$EXIT4@SYS$EXIT<GDFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<G(DFOR$WRITE_SEQ_LIS<$@(DFOR$WRITE_SEQ_LIS<0b#(DFOR$WRITE_SEQ_LIS_XMIT<8GLDFOR$WRITE_SEQ_LIS_XMIT<H@LDFOR$WRITE_SEQ_LIS_XMIT<Xb#(DFOR$WRITE_SEQ_LIS_XMIT<`GxDFOR$WRITE_SEQ_LIS_XMIT<t@xDFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4GSYS$EXIT4b#(SYS$EXIT4@SYS$EXIT4? G,OTS$STRCMP_EQLP4?(@,OTS$STRCMP_EQLP<0GdDFOR$WRITE_SEQ_LIS<@b#(DFOR$WRITE_SEQ_LIS<`@dDFOR$WRITE_SEQ_LIS<pb#(DFOR$WRITE_SEQ_LIS<xGDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<(b#(DFOR$WRITE_SEQ_LIS_XMIT<0GDDFOR$WRITE_SEQ_LIS_XMIT<@@DDFOR$WRITE_SEQ_LIS_XMIT<Pb#(DFOR$WRITE_SEQ_LIS<XGxDFOR$WRITE_SEQ_LIS<t@xDFOR$WRITE_SEQ_LIS4GSYS$EXIT4b#(SYS$EXIT4@SYS$EXIT<GDFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<G DFOR$WRITE_SEQ_LIS<@ DFOR$WRITE_SEQ_LIS<(b#(DFOR$WRITE_SEQ_LIS_XMIT<0GHDFOR$WRITE_SEQ_LIS_XMIT<D@HDFOR$WRITE_SEQ_LIS_XMIT<Pb#(DFOR$WRITE_SEQ_LIS_XMIT<XGtDFOR$WRITE_SEQ_LIS_XMIT<p@tDFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4GSYS$EXIT4b#(SYS$EXIT4@SYS$EXIT<GDDFOR$WRITE_SEQ_LIS< b#(DFOR$WRITE_SEQ_LIS<@@DDFOR$WRITE_SEQ_LIS<Pb#(DFOR$WRITE_SEQ_LIS<XGtDFOR$WRITE_SEQ_LIS<p@tDFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS<G(DFOR$WRITE_SEQ_LIS<$@(DFOR$WRITE_SEQ_LIS4@GXSYS$EXIT4Hb#(SYS$EXIT4T@XSYS$EXIT4ClG STR$POSITION4Dtb#( STR$POSITION4C@ STR$POSITION<GDFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS<G4DFOR$WRITE_SEQ_LIS<0@4DFOR$WRITE_SEQ_LIS<@b#(DFOR$WRITE_SEQ_LIS_XMIT<HG\DFOR$WRITE_SEQ_LIS_XMIT<X@\DFOR$WRITE_SEQ_LIS_XMIT<hb#(DFOR$WRITE_SEQ_LIS_XMIT <pGDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS4GSYS$EXIT4b#(SYS$EXIT4@SYS$EXIT<0G`DFOR$WRITE_SEQ_LIS<@b#(DFOR$WRITE_SEQ_LIS<\@`DFOR$WRITE_SEQ_LIS<hb#(DFOR$WRITE_SEQ_LIS<pGDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS_XMIT<GDFOR$WRITE_SEQ_LIS_XMIT<@DFOR$WRITE_SEQ_LIS_XMIT<b#(DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS40GHSYS$EXIT48b#(SYS$EXIT4D@HSYS$EXIT4)XG| OTS$MOVEM4)x@| OTS$MOVEM4GOTS$FILL4@OTS$FILL4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4 GOTS$MOVE4@OTS$MOVE4$G@OTS$MOVE4<@@OTS$MOVE4LGlOTS$MOVE4h@lOTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4 G4OTS$MOVE40@4OTS$MOVE4)DGP OTS$MOVEM4)L@P OTS$MOVEM4TG\OTS$FILL4X@\OTS$FILL4)pG OTS$MOVEM4)@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4)GD OTS$MOVEM4)@@D OTS$MOVEM4HGPOTS$FILL4L@POTS$FILL4)`Gt OTS$MOVEM4)p@t OTS$MOVEM4xGOTS$FILL4|@OTS$FILL4)G OTS$MOVEM4) @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4), Gh OTS$MOVEM4)d @h OTS$MOVEM4l Gt OTS$FILL4p @t OTS$FILL4) G OTS$MOVEM4) @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4) G@! OTS$MOVEM4))b#(LIB$CREATE_DIR4=)G)LIB$CREATE_DIR4=)@)LIB$CREATE_DIR<*GD*DFOR$WRITE_SEQ_LIS<$*b#(DFOR$WRITE_SEQ_LIS<@*@D*DFOR$WRITE_SEQ_LIS<L*b#(DFOR$WRITE_SEQ_LIS_XMIT<T*Gl*DFOR$WRITE_SEQ_LIS_XMIT<h*@l*DFOR$WRITE_SEQ_LIS_XMIT<t*b#(DFOR$WRITE_SEQ_LIS_XMIT<|*G*DFOR$WRITE_SEQ_LIS_XMIT<*@*DFOR$WRITE_SEQ_LIS_XMIT<*G*DFOR$WRITE_SEQ_LIS<*b#(DFOR$WRITE_SEQ_LIS<*@*DFOR$WRITE_SEQ_LIS<*b#(DFOR$WRITE_SEQ_LIS_XMIT<+G$+DFOR$WRITE_SEQ_LIS_XMIT< +@$+DFOR$WRITE_SEQ_LIS_XMIT<0+b#(DFOR$WRITE_SEQ_LIS_XMIT<8+GP+DFOR$WRITE_SEQ_LIS_XMIT<L+@P+DFOR$WRITE_SEQ_LIS_XMIT<'h+G+DFOR$WRITE_SEQ_FMT<(p+b#(DFOR$WRITE_SEQ_FMT<'+@+DFOR$WRITE_SEQ_FMT<+G,DFOR$WRITE_SEQ_LIS<+b#(DFOR$WRITE_SEQ_LIS<,@,DFOR$WRITE_SEQ_LIS<,b#(DFOR$WRITE_SEQ_LIS_XMIT<,G8,DFOR$WRITE_SEQ_LIS_XMIT<4,@8,DFOR$WRITE_SEQ_LIS_XMIT<D,b#(DFOR$WRITE_SEQ_LIS_XMIT<L,Gd,DFOR$WRITE_SEQ_LIS_XMIT<`,@d,DFOR$WRITE_SEQ_LIS_XMIT4 -G0- DFOR$CLOSE4(-b# DFOR$CLOSE4,-@0- DFOR$CLOSE4 0-b# DFOR$EXIT4 <-GD- DFOR$EXIT4 @-@D- DFOR$EXIT41-G- CLI$GET_VALUE42-b# CLI$GET_VALUE41-@- CLI$GET_VALUE4G-G(.LBR$OUTPUT_HELP4H-b#LBR$OUTPUT_HELP4G$.@(.LBR$OUTPUT_HELP48.GL. LIB$SIGNAL4@.b# LIB$SIGNAL4H.@L. LIB$SIGNAL4T.b#SYS$EXIT4X.Gd.SYS$EXIT4`.@d.SYS$EXIT4.G/OTS$MOVE4.@/OTS$MOVE4/G/OTS$FILL4 /@/OTS$FILL4/G,/OTS$MOVE4(/@,/OTS$MOVE44/GG4> CLI$GET_VALUE42 >b# CLI$GET_VALUE410>@4> CLI$GET_VALUE4H>GX>OTS$MOVE4T>@X>OTS$MOVE4`>Gh>OTS$FILL4d>@h>OTS$FILL4/l>G> CLI$PRESENT40|>b# CLI$PRESENT4/>@> CLI$PRESENT41>G> CLI$GET_VALUE42>b# CLI$GET_VALUE41>@> CLI$GET_VALUE4>G?OTS$MOVE4?@?OTS$MOVE4?G?OTS$FILL4?@?OTS$FILL4/ ?GD? CLI$PRESENT40,?b# CLI$PRESENT4/@?@D? CLI$PRESENT41l?G? CLI$GET_VALUE42?b# CLI$GET_VALUE41?@? CLI$GET_VALUE4?G?OTS$MOVE4?@?OTS$MOVE4?G?OTS$FILL4?@?OTS$FILL4/?G@ CLI$PRESENT40?b# CLI$PRESENT4/?@@ CLI$PRESENT418@GT@ CLI$GET_VALUE42@@b# CLI$GET_VALUE41P@@T@ CLI$GET_VALUE4h@Gx@OTS$MOVE4t@@x@OTS$MOVE4@G@OTS$FILL4@@@OTS$FILL4/@G@ CLI$PRESENT40@b# CLI$PRESENT4/@@@ CLI$PRESENT41@GA CLI$GET_VALUE42@b# CLI$GET_VALUE41A@A CLI$GET_VALUE4 AG0AOTS$MOVE4,A@0AOTS$MOVE48AG@AOTS$FILL4Yb# LIB$CREATE_DIR4=YGZLIB$CREATE_DIR4=Z@ZLIB$CREATE_DIR<4ZGdZDFOR$WRITE_SEQ_LIS<DZb# DFOR$WRITE_SEQ_LIS<`Z@dZDFOR$WRITE_SEQ_LIS<lZb# DFOR$WRITE_SEQ_LIS_XMIT<tZGZDFOR$WRITE_SEQ_LIS_XMIT<Z@ZDFOR$WRITE_SEQ_LIS_XMIT<Zb# DFOR$WRITE_SEQ_LIS_XMIT<ZGZDFOR$WRITE_SEQ_LIS_XMIT<Z@ZDFOR$WRITE_SEQ_LIS_XMIT<ZGZDFOR$WRITE_SEQ_LIS<Zb# DFOR$WRITE_SEQ_LIS<Z@ZDFOR$WRITE_SEQ_LIS<[b# DFOR$WRITE_SEQ_LIS_XMIT<[G4[DFOR$WRITE_SEQ_LIS_XMIT<0[@4[DFOR$WRITE_SEQ_LIS_XMIT<@[b# DFOR$WRITE_SEQ_LIS_XMIT<H[G`[DFOR$WRITE_SEQ_LIS_XMIT<\[@`[DFOR$WRITE_SEQ_LIS_XMIT43|[G[OTS$STRCMP_EQLS43[@[OTS$STRCMP_EQLS<[G[DFOR$WRITE_SEQ_LIS<[b# DFOR$WRITE_SEQ_LIS<[@[DFOR$WRITE_SEQ_LIS<[b# DFOR$WRITE_SEQ_LIS_XMIT<[G\DFOR$WRITE_SEQ_LIS_XMIT<\@\DFOR$WRITE_SEQ_LIS_XMIT< \b# DFOR$WRITE_SEQ_LIS<(\GH\DFOR$WRITE_SEQ_LIS<D\@H\DFOR$WRITE_SEQ_LIS4)t\G\ OTS$MOVEM4)\@\ OTS$MOVEM4\G]OTS$FILL4]@]OTS$FILL4)]G@] OTS$MOVEM4)<]@@] OTS$MOVEM4D]GL]OTS$FILL4H]@L]OTS$FILL4)X]G|] OTS$MOVEM4)x]@|] OTS$MOVEM4]G]OTS$FILL4]@]OTS$FILL4)]G^ OTS$MOVEM4)^@^ OTS$MOVEM4^G ^OTS$FILL4^@ ^OTS$FILL4),^GX^ OTS$MOVEM4)T^@X^ OTS$MOVEM4\^Gd^OTS$FILL4`^@d^OTS$FILL4)|^G^ OTS$MOVEM4)^@^ OTS$MOVEM4^G^OTS$FILL4^@^OTS$FILL4)^GL_ OTS$MOVEM4)H_@L_ OTS$MOVEM4P_GX_OTS$FILL4T_@X_OTS$FILL4)h_G_ OTS$MOVEM4)_@_ OTS$MOVEM4_G_OTS$FILL4_@_OTS$FILL4)_G_ OTS$MOVEM4)_@_ OTS$MOVEM4_G_OTS$FILL4_@_OTS$FILL4)`Gd` OTS$MOVEM4)``@d` OTS$MOVEM4h`Gp`OTS$FILL4l`@p`OTS$FILL4)|`G` OTS$MOVEM4)`@` OTS$MOVEM4`G`OTS$FILL4`@`OTS$FILL4)`G` OTS$MOVEM4)`@` OTS$MOVEM4`G`OTS$FILL4`@`OTS$FILL4<ab# LIB$RENAME_FILE4;aGTaLIB$RENAME_FILE4;Pa@TaLIB$RENAME_FILE<laGaDFOR$WRITE_SEQ_LIS<|ab# DFOR$WRITE_SEQ_LIS<a@aDFOR$WRITE_SEQ_LIS<ab# DFOR$WRITE_SEQ_LIS_XMIT<aGaDFOR$WRITE_SEQ_LIS_XMIT<a@aDFOR$WRITE_SEQ_LIS_XMIT<ab# DFOR$WRITE_SEQ_LIS_XMIT<aGaDFOR$WRITE_SEQ_LIS_XMIT<a@aDFOR$WRITE_SEQ_LIS_XMIT<A(bG\bDFOR$REWRITE_FMT<B@bb# DFOR$REWRITE_FMT<AXb@\bDFOR$REWRITE_FMT<bGbDFOR$WRITE_SEQ_LIS<bb# DFOR$WRITE_SEQ_LIS<b@bDFOR$WRITE_SEQ_LIS<bGbDFOR$WRITE_SEQ_LIS_XMIT<bb# DFOR$WRITE_SEQ_LIS_XMIT<b@bDFOR$WRITE_SEQ_LIS_XMIT<bb# DFOR$WRITE_SEQ_LIS_XMIT<bGcDFOR$WRITE_SEQ_LIS_XMIT<c@cDFOR$WRITE_SEQ_LIS_XMIT41cGd CLI$GET_VALUE42db#  CLI$GET_VALUE41d@d CLI$GET_VALUE<7XdGdDFOR$READ_KEY_FMT<8`db# DFOR$READ_KEY_FMT<7d@dDFOR$READ_KEY_FMT<5dGdDFOR$READ_KEY_FMT_XMIT<6db# DFOR$READ_KEY_FMT_XMIT<5d@dDFOR$READ_KEY_FMT_XMIT<dG$eDFOR$WRITE_SEQ_LIS <eb# DFOR$WRITE_SEQ_LIS< e@$eDFOR$WRITE_SEQ_LIS<0eb# DFOR$WRITE_SEQ_LIS<8eGTeDFOR$WRITE_SEQ_LIS<Pe@TeDFOR$WRITE_SEQ_LIS<`eb# DFOR$WRITE_SEQ_LIS_XMIT<heG|eDFOR$WRITE_SEQ_LIS_XMIT<xe@|eDFOR$WRITE_SEQ_LIS_XMIT<eb# DFOR$WRITE_SEQ_LIS_XMIT<eGeDFOR$WRITE_SEQ_LIS_XMIT<e@eDFOR$WRITE_SEQ_LIS_XMIT<eb# DFOR$WRITE_SEQ_LIS_XMIT<eGeDFOR$WRITE_SEQ_LIS_XMIT<e@eDFOR$WRITE_SEQ_LIS_XMIT<eb# DFOR$WRITE_SEQ_LIS_XMIT<eGeDFOR$WRITE_SEQ_LIS_XMIT<e@eDFOR$WRITE_SEQ_LIS_XMIT<fb# DFOR$WRITE_SEQ_LIS<fG,fDFOR$WRITE_SEQ_LIS<(f@,fDFOR$WRITE_SEQ_LIS43TfGhfOTS$STRCMP_EQLS43df@hfOTS$STRCMP_EQLS<tfGfDFOR$WRITE_SEQ_LIS<|fb# DFOR$WRITE_SEQ_LIS<f@fDFOR$WRITE_SEQ_LIS<fb# DFOR$WRITE_SEQ_LIS<fGfDFOR$WRITE_SEQ_LIS<f@fDFOR$WRITE_SEQ_LIS<fb# DFOR$WRITE_SEQ_LIS_XMIT<fGfDFOR$WRITE_SEQ_LIS_XMIT<f@fDFOR$WRITE_SEQ_LIS_XMIT<gb# DFOR$WRITE_SEQ_LIS_XMIT< gG gDFOR$WRITE_SEQ_LIS_XMIT<g@ gDFOR$WRITE_SEQ_LIS_XMIT<,gb# DFOR$WRITE_SEQ_LIS_XMIT<4gGDgDFOR$WRITE_SEQ_LIS_XMIT<@g@DgDFOR$WRITE_SEQ_LIS_XMIT<Lgb# DFOR$WRITE_SEQ_LIS_XMIT<TgGpgDFOR$WRITE_SEQ_LIS_XMIT<lg@pgDFOR$WRITE_SEQ_LIS_XMIT<|gb# DFOR$WRITE_SEQ_LIS<gGgDFOR$WRITE_SEQ_LIS<g@gDFOR$WRITE_SEQ_LIS4gGgSYS$EXIT4gb# SYS$EXIT4g@gSYS$EXIT49gGg DFOR$DELETE4:gb#  DFOR$DELETE49g@g DFOR$DELETE<4hGdhDFOR$WRITE_SEQ_LIS<Dhb# DFOR$WRITE_SEQ_LIS<`h@dhDFOR$WRITE_SEQ_LIS<lhb# DFOR$WRITE_SEQ_LIS_XMIT<thGhDFOR$WRITE_SEQ_LIS_XMIT<h@hDFOR$WRITE_SEQ_LIS_XMIT<hb# DFOR$WRITE_SEQ_LIS_XMIT<hGhDFOR$WRITE_SEQ_LIS_XMIT<h@hDFOR$WRITE_SEQ_LIS_XMIT41piGi CLI$GET_VALUE42ib#@ CLI$GET_VALUE41i@i CLI$GET_VALUE<7iG jDFOR$READ_KEY_FMT<8ib#@DFOR$READ_KEY_FMT<7j@ jDFOR$READ_KEY_FMT<5,jGTjDFOR$READ_KEY_FMT_XMIT<64jb#@DFOR$READ_KEY_FMT_XMIT<5Pj@TjDFOR$READ_KEY_FMT_XMIT<jGjDFOR$WRITE_SEQ_LIS<jb#@DFOR$WRITE_SEQ_LIS<j@jDFOR$WRITE_SEQ_LIS<jb#@DFOR$WRITE_SEQ_LIS<jGjDFOR$WRITE_SEQ_LIS<j@jDFOR$WRITE_SEQ_LIS<jb#@DFOR$WRITE_SEQ_LIS_XMIT<jG kDFOR$WRITE_SEQ_LIS_XMIT<k@ kDFOR$WRITE_SEQ_LIS_XMIT<kb#@DFOR$WRITE_SEQ_LIS_XMIT< kG8kDFOR$WRITE_SEQ_LIS_XMIT<4k@8kDFOR$WRITE_SEQ_LIS_XMIT<@kb#@DFOR$WRITE_SEQ_LIS_XMIT<HkG\kDFOR$WRITE_SEQ_LIS_XMIT<Xk@\kDFOR$WRITE_SEQ_LIS_XMIT<hkb#@DFOR$WRITE_SEQ_LIS_XMIT<pkGkDFOR$WRITE_SEQ_LIS_XMIT<k@kDFOR$WRITE_SEQ_LIS_XMIT<kb#@DFOR$WRITE_SEQ_LIS<kGkDFOR$WRITE_SEQ_LIS<k@kDFOR$WRITE_SEQ_LIS43kGlOTS$STRCMP_EQLS43l@lOTS$STRCMP_EQLS<lG@lDFOR$WRITE_SEQ_LIS<lb#@DFOR$WRITE_SEQ_LIS<* ?* ?* A* A* A* @* A* D* E* D* E* D* E* S* S* S* U* U* W*L ()̬ ^* ^* ^* ^* ^* a* a* a* a* a* a* a* a* h*̬ * * * * * * * * * * * *  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  * * * * * * * * * * * * * * * * * * * * * + + + + + + + + + + + + + + + + + +a + + + + + + + + +P ) $= .4 = 5 = c4 4= REMOVE_USERc4=! "+ "+ "+ "+ 4 4 4 4 4 4 4̨ 4 4 4 4 4 4 ,4̨ .4 .4 .4 .4 .4 .4 .4 54 0 :4 C4 C40 $= c4 = X s= h4@4= SHOW_USERh4= H4:  H4:  H4:  H4:  = = = = = = = =̨ = = = = = =̨ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =  = = = = = = = = = = = = = = = = = = = =  = =  > > > > > > > > = m> m> m> m> m> x> x> w> > > > > > > > > > > > > > > > > > > > > >u > > > > > > > > >P m>4 $= Xi4 =  == ~44= LIST_USERS~4= >@  >@  >@  >@  H H H H "H "H "H "H "H (H *H  @H ?H ?H =H =H =H BH >H BH >H >H >H CH DH CH EH DH EH HH   [H MH MH ZH [H [H dH [H  ^H