% Librarian A09-16JO33!ef  h DESCREDITbINPUT+:ITMLST9REMOTEbV REMOTE_CLDdREMOTE_MAINCOMMANDS+: ADD_2_ITMLST+:ADD_2_ITMLST_WITH_RETbASSIGN_TERMINALb CTRLC_ROUTINEbDECLARE_CTRLC_AST DESCRb DESCR_DYNAMICbDISABLE_CTRLC_ASTEDIT+: END_ITMLST9EXECUTE9FILENAME  FREE_DESCRbGET_INPUT_PROMPT9ILEN+: INIT_ITMLST9MAIN9NOSHOW+: NUM_ITEMS+: QUEUE_HEADERbV REMOTE_CLDdREMOTE_MAINCOMMANDS+:SAVE_ITMLST_ADDRESS+:STORE_ITMLST_ENTRY9__MAIN  1a0Ԟ3V1.0AADESCRV1.020-AUG-1994 10:18DEC C V4.0-000  $ABS$i$CODE$ $LITERAL$$LINK$$DATA$$BSS$ $READONLY$ P(P(JDESCR DECC$MALLOC DECC$STRLEN0JP FREE_DESCR DECC$CFREE  = #4G~^^~ (0GGG0BG8b@Zk G@BGHb4Gd@ZkrH&_'1J2Fd5vJB79 K:C7dG]]} (0@#kG#4G~^ [G({@ZkG] #k40G@ DECC$MALLOC48b# DECC$MALLOC4<@@ DECC$MALLOC4HG` DECC$STRLEN4Pb# DECC$STRLEN4\@` DECC$STRLEN4G DECC$CFREE4{#P DECC$CFREE4@ DECC$CFREE =0 ;=@ 7P0 DECC$MALLOC DECC$STRLEN=0 ;=  DECC$CFREE; ;=+#"DESCRDEC C V4.0-000 = 44= descr4=2*)    ,$ $= 4: := 4=  = 4P4= free_descr4=(    $ $=  4: := 4= @ =  ww1UԞ3V1.0@@EDITV1.020-AUG-1994 10:18DEC C V4.0-000  $ABS$i$CODE$z $LITERAL$$LINK$$DATA$$BSS$ $READONLY$(J`EDIT CLI$GET_VALUEDESCR DECC$STRCPY DECC$STRNCPY SYS$TRNLNM DECC$STRLEN DECC$STRNCMP LIB$SPAWNTPU$EDITOTS$MOVEL L=#4G~^^~GGH"BPB(R"@Zk"PBGB@Zk b?$B!  8=="<@}" =bG}4G@Zk8="B0]"bGtG@Zk/Bb"4G@ZkB8="b0]"GtG@Zk0"!Bb4G@ZkGB@"b4G@Zk"pBGxbGGGG@Zk0B8bP#""TG@Zk"B4Gb@Zk@0B #"8b"TG@Zk0"@B="HbtG$HH@ZkBbh"="4GtG@Zk#@B@]J"Hb="tG@Zk@G0BTG8bC.! qHPJF>CJ"x#"@ZkBH"b4G@ZkG`B4Ghb@ZkGB"b#"tGtG@Zk"Bb4G@ZkGB"b4G@ZkGBGbTG@ZkG]]} #k40G<OTS$MOVE48@<OTS$MOVE4@GPOTS$MOVE4L@POTS$MOVE, XGDESCR, xb#`DESCR, @DESCR4G CLI$GET_VALUE4b#` CLI$GET_VALUE4@ CLI$GET_VALUE, GDESCR, b#`DESCR, @DESCR4G CLI$GET_VALUE4b#` CLI$GET_VALUE4@ CLI$GET_VALUE, GDESCR, b#`DESCR, @DESCR, G DESCR, b#`DESCR, @ DESCR4G0 SYS$TRNLNM4b#` SYS$TRNLNM4,@0 SYS$TRNLNM4 4GL DECC$STRCPY4 8b#` DECC$STRCPY4 H@L DECC$STRCPY4PG` DECC$STRLEN4Xb#` DECC$STRLEN4\@` DECC$STRLEN4 hG DECC$STRCPY4 pb#` DECC$STRCPY4 |@ DECC$STRCPY4 G DECC$STRNCPY4b#` DECC$STRNCPY4 @ DECC$STRNCPY4G DECC$STRNCMP4b#` DECC$STRNCMP4@ DECC$STRNCMP4 G DECC$STRNCPY4b#` DECC$STRNCPY4 @ DECC$STRNCPY4 G  DECC$STRCPY4 b#` DECC$STRCPY4 @  DECC$STRCPY,  G4DESCR, (b#`DESCR, 0@4DESCR48GH LIB$SPAWN4@b#` LIB$SPAWN4D@H LIB$SPAWN4PGl DECC$STRNCMP4Xb#` DECC$STRNCMP4h@l DECC$STRNCMP, tGDESCR, xb#`DESCR, @DESCR, GDESCR, b#`DESCR, @DESCR4GTPU$EDIT4b#`TPU$EDIT4@TPU$EDIT =0%P(=ZR$@  DECC$STRLENTPU$EDIT DECC$STRNCMP;@ CLI$GET_VALUE DESCR=0 ;=  ; DECC$STRCPY DECC$STRNCPY8OTS$MOVE LIB$SPAWN SYS$TRNLNM =EDIT=TPU= DEFAULT_EDIT = CALLABLE_0= LNM$FILE_DEV@= MAIL$EDITP= SYS$SYSTEM:MAILEDITh= CALLABLE_x= "" REMOTE.COM= remote.com= remote.com: :=*"!EDITDEC C V4.0-000 = 4`4= edit4= O O T T T W \ c ^  k( i  s $ $= 4: := 4=  =   `ww1RӞ3V1.0AAINPUTV1.020-AUG-1994 10:29DEC C V4.0-000  $ABS$iH$CODE$ $LITERAL$$LINK$$DATA$$BSS$ $READONLY$ FLAG(FLAG  TERM_CHAN0 TERM_CHAN  KEYBOARD_ID0 KEYBOARD_ID   KEY_TABLE_ID0 KEY_TABLE_ID  VARIABLE_INPUT0 VARIABLE_INPUT8JGET_INPUT_PROMPT SMG$READ_COMPOSED_LINE DECC$EXITSTR$TRIM DECC$STRNCPY0Jp CTRLC_ROUTINE8JDECLARE_CTRLC_ASTSYS$QIOW8JPDISABLE_CTRLC_AST SYS$CANCEL P( P0JH DESCR_DYNAMIC DECC$MALLOC0J ASSIGN_TERMINAL SYS$ASSIGNDESCR(SMG$CREATE_VIRTUAL_KEYBOARD SMG$SET_KEYPAD_MODE SMG$CREATE_KEY_TABLEP P =PH#G~^ ^ ~(08޴@HPGGG ¤ (`B =G0"8hb@Zk%!GD4GC'D1D pBGxb4G@ZkDG @BHbGGtG@ZktG PBXb @ D&G@Zkݠ@,@H<G? #GG]] }(08ݤ@HP`#k#G~^^~ Gx{GBb@Zk4GCG]]} 0#k#(;G~#_"^GG# G0![G8{G > (@ZkG] #kG# 4G~^ [G({@ZkG] #k#G~4G^^GG(B0b@Zk "' 1?J A4vJ7JB!G]] #k#84G~^^~ GG#@BHb@ZkbG BG(bGGG@ZkGh#_""G#GGBG> b(@Zkxb0"pBGxbGGGG@ZkPB""XbGTG"@Zk`B4Gphb@Zk$`bG]]} 0#k<LGlSMG$READ_COMPOSED_LINE<`b#SMG$READ_COMPOSED_LINE<h@lSMG$READ_COMPOSED_LINE4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4GSTR$TRIM4b#STR$TRIM#4@STR$TRIM4G DECC$STRNCPY4b# DECC$STRNCPY4@ DECC$STRNCPY4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4 G8SYS$QIOW4 {#SYS$QIOW4 4@8$SYS$QIOW4dG| SYS$CANCEL4t{# SYS$CANCEL4x@| SYS$CANCEL4G DECC$MALLOC4b#H DECC$MALLOC4@ DECC$MALLOC, LGXDESCR,Pb#DESCR, T@XDESCR4 `G| SYS$ASSIG%N4 hb# SYS$ASSIGN4 x@| SYS$ASSIGN4 GSYS$QIOW4 b#SYS$QIOW4 @SYS$QIOWDGSMG$CREATE_VIRTUAL_KEYBOARDDb#SMG$CREATE_VIRTUAL_KEYBOARDD@SMG$CREATE_VIRTUAL_KEYBOARD<G&SMG$SET_KEYPAD_MODE<b#SMG$SET_KEYPAD_MODE<@SMG$SET_KEYPAD_MODE<GSMG$CREATE_KEY_TABLE<b#SMG$CREATE_KEY_TABLE<@SMG$CREATE_KEY_TABLE =0 ;=` 7VARIABLE_INPUT7FLAG7 KEY_TABLE_ID7 KEYBOARD_IDSTR$TRI'M DECC$STRNCPY SMG$READ_COMPOSED_LINE DECC$EXIT=0 ;= 7 TERM_CHAN; SYS$QIOW=0  ;=0  SYS$ASSIGN=; DESCR SMG$SET_KEYPAD_MODE SMG$CREATE_KEY_TABLE(SMG$CREATE_VIRTUAL_KEYBOARD=H=(0 ;=  7P DECC$MALLOC=0 P;=  SYS$CANCEL=0 p;=0 # #= tt; ;=+#"INPUTDEC C V4.0-000 = 44=get_input_prompt4=yx )  )  1 )  1 3) 8 ; ; ; 9 90$ $= 4: := <4= p = p44= ctrlc_routinep4=)! G G G$ $= t4: := 4= ` = 44=declare_ctrlc_ast*4=5-, M M  M  M$ $= 4: := 44=  = P44=disable_ctrlc_astP4=(  ] ] ]$ $= T4: := x4= @ = 4H4= descr_dynamic+4=5-, e e e g$ $= 4: := 4=  =  44=assign_terminal 4=@87 o o0 W V V$ $= $4. .=  4=  = : := (4= (, =   ww1 1 G՞3V1.0BBITMLSTV1.020-AUG-1994 10:18DEC C V4.0-000  $ABS$i4$CODE$ $LITERAL$`$LINK$X$DATA$$BSS$ $READONLY$ SAVE_ITMLST_ADDRESS NUM_ITEMS  QUEUE_HEADER8 SAVE_ITMLST_A-DDRESS0  NUM_ITEMS0 QUEUE_HEADER   INPUT_ITMLST0 INPUT_ITMLST   ITMLST_LENGTH0 ITMLST_LENGTH0JX INIT_ITMLST LIB$GET_VM LIB$MOVC3 LIB$FREE_VM DECC$GXPRINTF DECC$EXIT0J@ ADD_2_ITMLST8J.STORE_ITMLST_ENTRY LIB$INSQTI8JADD_2_ITMLST_WITH_RET0J END_ITMLST LIB$REMQHI =<4#TG~^^~ G {GH"BbG@Zk"B0""CtGb@Zkc"B0""btG`@@ZkGbTGP BbG@ZkXG(b4G8B@bG@Zk8B0"@b4G@ZkGBb@ZkG]]} 0#k#TG/~^ ^(~0GGb"B =bG]@Zk TG=0J=!v H8b@BCbF  3@Zkpb0@G] ](}0@#k#TG~^ ^(~08GG=G"B ] bG}@Zk=C#v`H=TG!"H @pC(B#D G?F`40b@Zkb0@G] ](}08@#k#TG~^^~ (0޴8@HGGGGXB`b@@`@@@Zk0"G#1G G(BGTG0b@Zk<"#tGxBb@&@@Zk8"8BG@bTG@Zk0@@ @h"c""xBtGD@bd@d@@ZkG]]} (0ݤ8@HP#kGC2BJ1v JCQF0GpFPk44GD LIB$GET_VM48b#X LIB$GET_VM4@@D LIB$GET_VM4HG` LIB$MOVC34X1b#X LIB$MOVC34\@` LIB$MOVC34hG LIB$MOVC34pb#X LIB$MOVC34|@ LIB$MOVC34G LIB$FREE_VM4b#X LIB$FREE_VM4@ LIB$FREE_VM4 G DECC$GXPRINTF4 b#X DECC$GXPRINTF24 @ DECC$GXPRINTF4 G DECC$GXPRINTF4 b#X DECC$GXPRINTF4 @ DECC$GXPRINTF4G DECC$EXIT4b#X DECC$EXIT4@ DECC$EXIT4HG` LIB$GET_VM4Pb#@ LIB$GET_VM4\@` LIB3$GET_VM4 G LIB$INSQTI4b#@ LIB$INSQTI4 @ LIB$INSQTI4G( LIB$GET_VM4b# LIB$GET_VM4$@( LIB$GET_VM4 TG LIB$INSQTI4xb# LIB$INSQTI4 |@ LIB$INSQTI4G4 LIB$GET_VM4b# LIB$GET_VM4@ LIB$GET_VM4 @GX LIB$REMQHI4 Pb# LIB$REMQHI4 T@X LIB$REMQHI4hG| LIB$MOVC34lb# LIB$MOVC34x@| LIB$MOVC34G LIB$FREE_VM45b# LIB$FREE_VM4@ LIB$FREE_VM4G LIB$MOVC34b# LIB$MOVC34@ LIB$MOVC3  LIB$FREE_VM DECC$EXIT LIB$GET_VM=@ LIB$MOVC3;=0 ;=0  ;6;= DECC$GXPRINTF=7 ITMLST_LENGTH;=0 ;=0 ;=P 7 INPUT_ITMLST LIB$REMQHI= =0 ;=@ 0 LIB$INSQTI=0 ;=@ 7=8+ ERROR: INIT_ITMLST called before previous0=,$ ITMLST terminated with END_ITMLST.$ $= $ $= $ $ = < <=,$#ITMLSTDEC C V4.0-000 = 4X4= init_itmlst4=OGF! !%'%$ $= 84: := 4=  = 4@4= add_2_itmlst4=g_^00 00:1:1<:/</<$ $= 4. .=  4=  = : := 4=  = "494=#add_2_itmlst_with_ret4=ldcAA AA K KKMmM $ $= 4. .=  4=  = : := 4=  = 44= end_itmlst4=E=<RRVVY[ :4$ $= 4: := 4= X = 44= store_itmlst_entry4=lm$ $= 4: := ,4= , =  Xww13V2.1BBREMOTEV2.120-AUG-1994 10:30;DEC C V4.0-000  $ABS$i, $CODE$ $LITERAL$$LINK$$DATA$$BSS$ $READONLY$NOSHOWILENXFILENAME DECC$FCLOSE DECC$FOPENDECC$GXFPRINTF DECC$GXPRINTF DECC$FGETS DECC$FPUTS DECC$PERROR DECC$FGETNAME DECC$DELETE <NN( NN I( I( NOSHOW( ILEN IER( IER  AFTER_TIME0 AFTER_TIME JOBNUM(JOBNUM INPUT(INPUT0 FILENAME Q FILENAM=E10 FILENAME1 INLINE(INLINE  NODEFILE_PTR0 NODEFILE_PTR  NODENAME_PTR0 NODENAME_PTR(JMAIN LIB$GET_INPUT REMOTE_CLDLIB$GET_FOREIGN STR$CONCAT CLI$DCL_PARSE DECC$EXITASSIGN_TERMINAL CLI$GET_VALUE>DESCR DECC$MALLOC DECC$STRLEN DECC$STRNCPY DECC$STRCPY DECC$STRCAT CLI$PRESENT DISABLE_CTRLC_ASTEDIT DECLARE_CTRLC_AST DECC$STRCMP(JX@ EXECUTE GET_INPUT_PROMPT DECC$STRNCMP(J__MAIN DECC$MAIN DECC$EXIT =4 , #4G~^ ^(?GG# B  = > (b@Zkb# @BGb4G@ZkG] ](0#kGp#?$~(^! 0^4G8~@HP޴X`h>p^x~GG (bF &xB"=c &bG }@Zk="GBGbtG@ZkhBGpbtG"B@ZkGBb@ZkBGb@Zk"B4Gb@ZkG¤G8BtG@bG@Zk4GkH"G%"hB4GfpbJ)@@Zk(B`A0b0@@4G@ZketGB KiA$F b@ZkETGfBJIAbJ KA*,A*H*<P B0"@Zke#"FTGxBKiAbkjA@ZkE#"HBTGPbKHAJIA @Zk"ETG AHAJIA! B*b@Zk"xB4Gb@ZkBGb@Zke4GFBKiAbk jA*,A*H*<0B"@Zk8BG@bGGtG@Zk"TG8DHbxBb+@ZkB #"b"TG@ZkhB"pb4G@ZkiH](_I EB("b4G@ZkGB4GAb@ZkHBPb"0#"TG@Zk G `xBb8"4G@ZkBGb@ZkGBTGbG@Zk@"B4Gb@Zk8BG@bGGtG@ZktG0 "B$FGb@ZkFH#"HBGPbTG *A ,@ H <@ZkGXB`bGGGtG@ZkGBG bGTG@ZkXBG`bGGtG@ZkhBGpb4G@ZkhBpbG4G@ZkBGb@Zk8BG@b@ZkBGb@ZkHB "PbP#"TG@ZkX" GBGbTGG@Zk?@XB`bGGTG@ZkBG7Bb4G@ZkH"b# b@GXBG`bGtG@Zk GGb#@GXBG`bGtG@ZkX"b#@GB4Gb@ZkG(]0]4G8}@HPݤX`h=p]x}#khBGpb4G@ZkGB4Gb@ZkB0"b4G@ZkGBb@ZkBX"b4G@ZkGB4Gb@ZkGBb`"4G@Zk8BG@bGGtG@ZktG bB$FbG@Zkh#"GHBTGPbeAE-JEIE=@ZkG xBp"b4G@ZkCGBb@Zkh"b#H@XBG`bGGtG@Zk Gb#=@GXBG`bGtG@Zkx"b#1@ӊBx"b4G@ZkG8BG@bGtG@Zk "BtG$FbG@ZkGFb# *A -H I =@lf"" }"GfHBGPbG@ZkGfb#@G#~^^ ~(08޴@HP>X^`~hGGG" (¤0RTG =BF8B@b@BG @ZkGhBTGpb@@D @Zk" Bb4G@ZkGHBPbG@Zk"B?"btG@@@@Zk"4GBb@ZkHBGPb@ZkBH!b}!"4G@ZkGXBG`bGtG@Zk8B@b"="TG@ZkeD 0`Ae jA_G]] }(08ݤ@HP=X]`}hp#k49$GH DECC$MAIN4:<b# DECC$MAIN49D@H DECC$MAIN4 PGd DECC$EEXIT4 Xb# DECC$EXIT4 `@d DECC$EXIT4G$LIB$GET_FOREIGN4b#LIB$GET_FOREIGN4 @$LIB$GET_FOREIGN410GH STR$CONCAT428b# STR$CONCAT41D@H STR$CONCAT4HGh CLI$DCL_PARSE4Pb#F CLI$DCL_PARSE4d@h CLI$DCL_PARSE4 tG DECC$EXIT4 xb# DECC$EXIT4 |@ DECC$EXIT4/GASSIGN_TERMINAL40b#ASSIGN_TERMINAL4/@ASSIGN_TERMINAL,%GDESCR,&b#DESCR ,%@GDESCR4'G CLI$GET_VALUE4(b# CLI$GET_VALUE4'@ CLI$GET_VALUE4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN4G DECC$MALLOC4b# DECC$MALLOC4@ DECC$MALLOC4# HG@ DECC$STRNCPY4$8b# DECC$STRNCPY4#<@@ DECC$STRNCPY4LG DECC$GXPRINTF4Tb# DECC$GXPRINTF4|@ DECC$GXPRINTF4-G DECC$STRCPY4.b# DECC$STRCPY4-@ DECC$STRCPY4)G DECC$FOPEN4I*b# DECC$FOPEN4)@ DECC$FOPEN4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$PERROR4b# DECC$PERROR4 @ DECC$PERROR4 G  DECC$EXIT4 b# DECC$JEXIT4 @  DECC$EXIT,%,G`DESCR,&4b#DESCR,%\@`DESCR4'`G| CLI$GET_VALUE4(hb# CLI$GET_VALUE4'x@| CLI$GET_VALUE4-G DECC$STRCPY4.b# DECC$STRCPY4-@ DECC$STRCPYK45G DECC$STRCAT46b# DECC$STRCAT45@ DECC$STRCAT4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN,%GDESCR,&b#DESCR,%@DESCR4G CLI$PRESENT4 Lb# CLI$PRESENT4 @ CLI$PRESENT4)G, DECC$FOPEN4*b# DECC$FOPEN4)(@, DECC$FOPEN44GH DECC$PERROR48b# DECC$PERROR4D@H DECC$PERROR4 HGX DECC$EXIT4 Pb# DECC$EXITM4 T@X DECC$EXIT4`Gt DECC$FGETNAME4hb# DECC$FGETNAME4p@t DECC$FGETNAME,%xGDESCR,&b#DESCR,%@DESCR4'G CLI$GET_VALUE4(b# CLI$GET_VALUE4'@ CLI$GET_VALUE4#NG DECC$STRNCPY4$b# DECC$STRNCPY4#@ DECC$STRNCPY4)G DECC$FOPEN4*b# DECC$FOPEN4)@ DECC$FOPEN4G DECC$FGETS4b# DECC$FGETS4@ DECC$FGETS4 G8DECC$GXOFPRINTF 4(b#DECC$GXFPRINTF44@8DECC$GXFPRINTF48GT DECC$FGETS4@b# DECC$FGETS4P@T DECC$FGETS4+XGl DECC$FCLOSE4,`b# DECC$FCLOSE4+h@l DECC$FCLOSE4+lG DECC$FCLOSE4,pb#P DECC$FCLOSE4+|@ DECC$FCLOSE<7GDISABLE_CTRLC_AST<8b#DISABLE_CTRLC_AST<7@DISABLE_CTRLC_AST,GEDIT,b#EDIT,@EDIT<3GDECLARE_CTRLC_AST<4b#DECLARE_CTRLC_ASTQ<3@DECLARE_CTRLC_AST4)G DECC$FOPEN4*b# DECC$FOPEN4)@ DECC$FOPEN4G DECC$FGETNAME4b# DECC$FGETNAME4@ DECC$FGETNAME4G DECC$STRCMP4b# DECC$STRCMP4@R DECC$STRCMP4! G DECC$DELETE4"b# DECC$DELETE4!@ DECC$DELETE48GP DECC$FGETS4@b# DECC$FGETS4L@P DECC$FGETS4hG DECC$FGETS4pb# DECC$FGETS4|@ DECC$FGETS4!SG DECC$DELETE4"b# DECC$DELETE4!@ DECC$DELETE4+G DECC$FCLOSE4,b# DECC$FCLOSE4+@ DECC$FCLOSE4!G DECC$DELETE4"b# DECC$DELETE4! @ DECC$DELETE4G$ DECC$GXPRINTTF4b# DECC$GXPRINTF4 @$ DECC$GXPRINTF4 (G4 DECC$EXIT4 ,b# DECC$EXIT4 0@4 DECC$EXIT,%8GLDESCR,&@b#DESCR,%H@LDESCR4PG` CLI$PRESENT4 Xb# CLI$PRESENT4U\@` CLI$PRESENT,%dGxDESCR,&hb#DESCR,%t@xDESCR4'xG CLI$GET_VALUE4(b# CLI$GET_VALUE4'@ CLI$GET_VALUE4#G DECC$STRNCPY4$b# DECC$STRNCPY4#@ DECC$STRNCPY4)VG DECC$FOPEN4*b# DECC$FOPEN4)@ DECC$FOPEN4G DECC$PERROR4b# DECC$PERROR4@ DECC$PERROR4 G  DECC$EXIT4 b# DECC$EXIT4 @  DECC$EXIT4 G< DECC$FGETSW4(b# DECC$FGETS\ \ 48@< DECC$FGETS4PGh DECC$FGETS4Xb# DECC$FGETS4d@h DECC$FGETS,%GDESCR,&b#DESCR,%@DESCR4'G CLI$GET_VALUE4(b# CLI$GET_VALUE4'X@ CLI$GET_VALUE4#G DECC$STRNCPY4$b# DECC$STRNCPY4#@ DECC$STRNCPY< G$ GET_INPUT_PROMPT< b#GET_INPUT_PROMPT< @$ GET_INPUT_PROMPT4 G DECC$GXPRINTF4 b#X DECC$GXPRINTF4 Y@ DECC$GXPRINTF4  G DECC$FPUTS4 b#X DECC$FPUTS4  @ DECC$FPUTS4 G DECC$PERROR4 b#X DECC$PERROR4 @ DECC$PERROR4  G0 DECC$EXIT4 $ b#X DECC$EXIT4 , @0 DECC$EXIT4Z8 GT DECC$FGETS4@ b#X DECC$FGETS4P @T DECC$FGETS4d Gp DECC$PERROR4h b#X DECC$PERROR4l @p DECC$PERROR4 p G DECC$EXIT4 x b#X DECC$EXIT4 | @ DECC$EXIT4 G DECC$ST[RLEN4 b#X DECC$STRLEN4 @ DECC$STRLEN4  G DECC$STRNCMP4  b#X DECC$STRNCMP4  @ DECC$STRNCMP4 G DECC$GXPRINTF4 b#X DECC$GXPRINTF4 @ DECC$GXPRINTF$ $7 NODENAME_PTR DEC\C$FGETS DECC$STRLEN DECC$PERROR;7NN7I=0 @ ;=p ;7IER7 NODEFILE_PTR DECC$GXPRINTF DECC$EXIT DECC$STRNCMP DECC$FPUTSDECC$GXFPRINTF DECC$MALLOCEDIT GET_INPUT_PROMPT DECC$STRCMP CLI$DCL_PARSE LIB$GET_FOREIGN7 REMOTE_CLDP] DECC$FGETNAME CLI$PRESENT! DECC$DELETE# DECC$STRNCPY ;%DESCR;=0( ;= 7INPUT7INLINE' CLI$GET_VALUE) DECC$FOPEN7 FILENAME1 + DECC$FCLOSE- DECC$STRCPY /ASSIGN_TERMINAL1 STR$CONCAT=REMOTE> 7 LIB^$GET_INPUT 3DECLARE_CTRLC_AST=5 DECC$STRCAT 7DISABLE_CTRLC_AST=0 ;=0 9 DECC$MAIN = REMOTE NODE=w+=fopen => (=EDIT0=w8=fopen@_= COMMANDrP=rX=FILE`= COMMANDrp=fopenx= COMMAND%s: =fputs=fgets=%s= ::"TASK=DCLREMOTE"=H;Establishing DECNET link to node %s... ::"TASK=DCLREMOTE"= Ca`nnot connect to %s. = REMOTE.COM = REMOTE.COM0= Execution canceled.H= START$FILE X= END$FILE h= START$FILE x= END$FILE = COMMAND$DONE$ $= $ $= A A = REMOTE.COMaF6 < <=,$#REMOTEDEC C V4.0-000? ?= 4=TRANSFER$BREAK$GOb b= 44= main4= K K K K N P N  P O O P Z Z \ c d e e g g g h l k l db  d  d  d s }       q@            $ $= 4: := 4=  = @ 4X4= execute@ 4=UML      c    <$ $=  4: :=  4= ` `= 44= __main4: := `4=  =  ww1f30-044 REMOTE_CLD0-020-AUG-1994 10:42++VMS Command Definition Utility A05-118 8mman0i d REMOTE_CLD} h CLI$TABLES  = h REMO ,(T(! REMOTE,q!&P1NODENode=4!)P2COMMANDCommand, DEFAULT_EDIT$E=phDIT$FILE 4DP  \  wew1_՞30-0== REMOTE_MAINCOMMANDS0-020-AUG-1994 10:18++VMS Command Definition Utility A05-11@ @mman8i REMOTE_MAINCOMMANDS \ CLI$TABLES x x= \ REMO ,(T! REMOTE(q|!!P1NODE,=!!P2COMMAND, DEFAULT_EDIT$EDIT$=d\FILE (8D  P | ww