D SETDEFV1.0-130-DEC-1992 14:08DEC C V1.2-001  $$$VERSION @ $$$COPYRIGHT $READONLY$$BSS$$DATA$$LINK$t $LITERAL$iT$CODE$ $ABS$DECC$GA_RMS_NAMDECC$GA_RMS_FABDECC$GA_RMS_RAB DECC$GA_RMS_XABALL DECC$GA_RMS_XABDAT DECC$GA_RMS_XABFHC DECC$GA_RMS_XABKEY DECC$GA_RMS_XABPRO DECC$GA_RMS_XABRDT DECC$GA_RMS_XABSUM DECC$GA_RMS_XABTRMLIB$DO_COMMANDLIB$GET_FOREIGNLIB$PUT_OUTPUTLIB$SET_LOGICALLIB$STOP STR$PREFIX SYS$GETUAI SYS$PARSE CLI$_PRESENT CLI$_NEGATED CLI$_NOCOMDDECC$GA_STDERR DECC$GA_STDINDECC$GA_STDOUT DECC$GSPRINTF DECC$MEMCMP DECC$STRLEN DECC$TOLOWERDECC$GA___CTYPE0  $$$COPYRIGHT0 $$$VERSION(JhMAIN0J CLI_GET_VALUE0JP8 CLI_PRESENT SETDEF_CLD CLI$PRESENT CLI$GET_VALUE CLI$DCL_PARSE SYS$SETDDIR(J__MAIN DECC$EXIT DECC$MAINOTS$MOVE '=V1.0-1 \=D<Copyright 1992, Matthew D. Madison. All Rights Reserved. =0 ;=P<  DECC$STRLEN CLI$PRESENT CLI$GET_VALUE=08;=   DECC$MEMCMP7 CLI$_NEGATED7 CLI$_PRESENT;= SETDEF %s;= SETDEF X;= SYS$DISK CLI$DCL_PARSE= 000000. SYS$SETDDIR=CHECK;=USER0 LIB$PUT_OUTPUT=SET_PROMPTX8OTS$MOVE7DECC$GA___CTYPE=0h;=CTYP 7DECC$GA_RMS_NAM7DECC$GA_RMS_FABLIB$STOP= DECC$GSPRINTF= DEFSPEC LIB$GET_FOREIGN= VERSION SYS$PARSE STR$PREFIX7 SETDEF_CLD7LIB$GET_FOREIGN8;=_Where: P;` LIB$SET_LOGICAL SYS$GETUAI7 CLI$_NOCOMDLIB$DO_COMMAND! DECC$TOLOWER=0;=0D # DECC$EXIT% DECC$MAIN =$ SET PROMPT="[%s]$ "=!$ SET PROMPT="[..%s]$ "8=$abcdefghijklmnopqrstuvwxyzX=$ABCDEFGHIJKLMNOPQRSTUVWXYZ =\T0#TG~4Gh^p^x~޴>^~GG#HJ""H} PXG=vHK"H=sPJxBbv HH=K=.X"Q0J3F0>H"J.bUJF>"T=\}ݲ`b"G }L@Zk="bGTGB@ZkG"tGBxBb@ZkbGCF`0F 4G8B@b@ZkB"@Zk`HP=4GS="bsqHBv HG DP=S].R"wJP"RQJ4GSFQ>R.b"VJF>T}@Zk "CDDh XB0""BG`btG@ZkGB@ZkP=`HS]"bR"Bv J4G FP=S}.4Gt2JSrJtFr>R.GwJVJF>TP G@Zk("BG@ZkT=`HP}S"R"BbGv`J`FP}4GS.vtJUJF>GR/yJXKG?4G@ZkmGh.h Bh PJ>.h}.JS}JtJh"tFh}>@Zk`H`ݦc"b= []#vJZ"F`ݶc/4GyJ`JXK` G?b=.Gr!Kx5KQ!J4G2F!>XGp@JvJFX[}/h"G[zK`Gz?Z.BbWJF>d\@ZkG0D BX="bP]"GtG@ZkG0DP=!v H@!.Q!J!>0DmB"@Zk`H`}c"b"[ v`JZ}#`F`}c.4GvtJzgJUJ` F>b/GyJrJXKG?GX=q K4Gv H1DX=[.""PJF>GZ,B@HD0D'0Gr@Jb3"vJ2#F04G3.wJ=" ]"VJGF>2=/GzJY8K:GxB8?tG4@Zk0D  vH ݠ&vHCh',A'Hh'"R/XKG?T4G@ZkG¤"BC@8D@Zk`HP=S]"GbR"Bv JxJ FP=S}.4Gt2JP"SrJ4GtFr>R."WJF>T@Zk@CJ`Bh !"@Zk`=`Hc]"b"v J[" F`=c}.4Gt2J{0JSrJZ tFr>b.GwJrJVJ`=!F>X="wJv K7GX=[]/"#ZPK[GP?GZ=,BbA H2D h =.i ]"Q2J'Ju*Bh}.}JU` &@"ݲP"='h]#{#}] GGB=@Zk`H0=4G3"bvTJBv J2" F0=3}.0]"GGStJGvFt>2.GxJ}"UJGF>4G@Zk 0D 8BG@b4G@ZkP,Q]!h-i=!Bh"DHH IHIDED@?DGQ]"@ZkGGBi]"@Zk@.WJ>("BGG@ZkGB@Zk`H =!="BG\6 H D==G@ZkG-"/y7KB IbG?EhIG6HGDh!GtG@Zk 0D@G=TG8B@b@ZkC,C <]H @E EE @D=,D"0H!  E]"E=.2J1" 8B&@b̄"4G@ZkB,B]!H!P@!B"bGGtG@Zk!@%v HJ!"P=51@h.i"BQ.TJQJGv]JGFh>@ZkCh/XKh?A=/A @=,h}!H]h"B K=HLG9@aAG@Zk*vKGGBG@ZkCh6,A6Hh6<>EA C #(8vKBh " G<Bh "Gh]"@Zk  CGBGh]"@Zk"GBG@ZkxKݠ" GB6H<Dݰݲ=G@Zk .GbGBGWJ>tG@Zk 0D G=TG8B@b@Zk@iHC B"vH;"D@C, 4Ga&Iw5I@H:=#D8_"r@J8!vJ@ F8;.h#(="GVJGF>:]/ZYK[GY?BtGDb<@Zk0D 8BG@b4G@Zk@=j@IC"Br0Ibv HB}"*D@=C=.TGQ0J2F0>GB.uSJ"GTJF>D}@Zk G 0@E`(ݠG8GBtG&vHbvJfHF8G@Zk@bG4G8B@Zk`C@ 8`EDh 7@H" G DA@2 ,@HHD R"G B2.r"Q3J'J%F?G B4B4@@"41B4vJ TG"F C9v KYBy/[yKy?e `TG#Q@#v`H }@ -HI= G%Q@%vH @e!e,CkHk<"D"XBG`btG@Zk Gh ,HG .j PJ|JFe@e- KeIgI 0`E `8BG@b4G@Zk H,HcHGHD<,J!HBG@Zk`H0=3]"t2I0b2"(Bv J0" F0=3}.4GSrJtFr>G2.wJVJF>4ݰ@Zk0D`G@b4G8B@ZkGh]p]4Gx}ݤ=]}#k#G~G ^(^0~8@HGGG B@Zk`H4G21@B]#vJs:JF}/G"r@J[zK sGz?}.zH4GSpJzFp>"z0JvJF}.]"{HSpJzFp>.G0BTJF>=8b}@ZkG0D ="@B]"HbGtG@ZkG0D]"v@Hb@.PJ>G ]G(]0}8@HP#kG#G~G^GAG@Zk`H4G ]#vJsZJF }/  4G[zKsGz? .Gt`KAaPJF> ="@ZkG] #k#4G~^ ^(G#G 0B =  >8b@Zkb#6_(bG4G B@ZkG ]](0#k4GLIB$GET_FOREIGN4b#hLIB$GET_FOREIGN4@LIB$GET_FOREIGN4b#h STR$PREFIX4G STR$PREFIX4@ STR$PREFIX4 G  CLI$DCL_PARSE4 b#h CLI$DCL_PARSE4 @  CLI$DCL_PARSE4@GLLIB$STOP4Db#hLIB$STOP4H@LLIB$STOP4LGX DECC$STRLEN4T@X DECC$STRLEN4hb#h CLI$PRESENT4pG CLI$PRESENT4@ CLI$PRESENT4G DECC$GSPRINTF4b#h DECC$GSPRINTF4@ DECC$GSPRINTF4G DECC$STRLEN4@ DECC$STRLEN4b#hLIB$PUT_OUTPUT4 GdLIB$PUT_OUTPUT4 `@dLIB$PUT_OUTPUT4hGt DECC$STRLEN4p@t DECC$STRLEN4 GLIB$PUT_OUTPUT4b#hLIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4G DECC$STRLEN4@ DECC$STRLEN4G CLI$PRESENT4b#h CLI$PRESENT4@ CLI$PRESENT4G CLI$GET_VALUE4b#h CLI$GET_VALUE4@ CLI$GET_VALUE4(G4 DECC$STRLEN40@4 DECC$STRLEN4G CLI$PRESENT4b#h CLI$PRESENT4@ CLI$PRESENT4G CLI$GET_VALUE4b#h CLI$GET_VALUE4@ CLI$GET_VALUE4Lb#hLIB$GET_FOREIGN4GLIB$GET_FOREIGN4@LIB$GET_FOREIGN4G DECC$STRLEN4@ DECC$STRLEN4b#h CLI$PRESENT4GP CLI$PRESENT4L@P CLI$PRESENT4\Gp DECC$STRLEN4l@p DECC$STRLEN4b#h CLI$PRESENT4G CLI$PRESENT4@ CLI$PRESENT4G DECC$STRLEN4@ DECC$STRLEN $4G CLI$PRESENT4b#h CLI$PRESENT4@ CLI$PRESENT4G CLI$GET_VALUE4b#h CLI$GET_VALUE4@ CLI$GET_VALUE4TGh DECC$STRLEN4d@h DECC$STRLEN4xb#h SYS$GETUAI4G SYS$GETUAI4@ SYS$GETUAI4G LIB$STOP4b#hLIB$STOP4@ LIB$STOP4 GH OTS$MOVE4D @H OTS$MOVE4P G\ OTS$MOVE4X @\ OTS$MOVE4t G OTS$MOVE4 @ OTS$MOVE4 G DECC$STRLEN4 @ DECC$STRLEN4 G OTS$MOVE4 @ OTS$MOVE4 G0 SYS$PARSE4 b#h SYS$PARSE4, @0 SYS$PARSE4D GP LIB$STOP4H b#hLIB$STOP4L @P LIB$STOP4 G LIB$STOP4 b#hLIB$STOP4 @ LIB$STOP4 G DECC$MEMCMP4 b#h DECC$MEMCMP4 @ DECC$MEMCMP4 G4 OTS$MOVE40 @4 OTS$MOVE4\ G OTS$MOVE4| @ OTS$MOVE4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVE4 @ OTS$MOVE40 GT OTS$MOVE4P @T OTS$MOVE4` b#h SYS$PARSE4h G SYS$PARSE4 @ SYS$PARSE4 G LIB$STOP4 b#hLIB$STOP4 @ LIB$STOP4 T Gl SYS$SETDDIR4 ` b#h SYS$SETDDIR4 h @l SYS$SETDDIR4t G LIB$STOP4| b#hLIB$STOP4 @ LIB$STOP4 G LIB$SET_LOGICAL4 b#hLIB$SET_LOGICAL4 @ LIB$SET_LOGICAL4 G0 SYS$SETDDIR4 b#h SYS$SETDDIR4 ,@0 SYS$SETDDIR40b#hLIB$STOP4<GDLIB$STOP4@@DLIB$STOP4hG| DECC$GSPRINTF4pb#h DECC$GSPRINTF4x@| DECC$GSPRINTF4!G DECC$TOLOWER4"b#h DECC$TOLOWER4!@ DECC$TOLOWER4G DECC$STRLEN4@ DECC$STRLEN4 $b#hLIB$DO_COMMAND4,GtLIB$DO_COMMAND4p@tLIB$DO_COMMAND4b#hLIB$STOP4GLIB$STOP4@LIB$STOP4G  DECC$STRLEN4@  DECC$STRLEN4G CLI$PRESENT4b# CLI$PRESENT4@ CLI$PRESENT4G CLI$GET_VALUE4b# CLI$GET_VALUE4@ CLI$GET_VALUE4PG` DECC$STRLEN4\@` DECC$STRLEN4G CLI$PRESENT4a#P CLI$PRESENT4@ CLI$PRESENT4%G  DECC$MAIN4&b# DECC$MAIN4%@  DECC$MAIN4$(b# DECC$EXIT4#4G< DECC$EXIT4#8@< DECC$EXIT