HDR_SENTINEL>* g%k*`wG%k SETDEF0105-05)$1$DUA2:[SYSUTL.][SETDEF_NEW]SETDEF.EXE;1**SET_DEFAULT_DIRECTORYNK7x $k 7KMS$SYSUTLUSR2:[SETDEF_NEW]SET_DEFAULT_DIRECTORY.FOR;26 @=Olđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$RMSDEF WNK7x $k 7KMS$SYSUTLUSR2:[SETDEF_NEW]SET_DEFAULT_DIRECTORY.FOR;26 tNSET_DEFAULT_DIRECTORYVCHANGE_DIRECTORYIF@P~c2KMS$SYSUTLUSR2:[SETDEF_NEW]CHANGE_DIRECTORY.FOR;10 /PCHANGE_DIRECTORY CHANGE_UICC@@e N,KMS$SYSUTLUSR2:[SETDEF_NEW]CHANGE_UIC.FOR;40 @=lđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$JPIDEF C@@e N,KMS$SYSUTLUSR2:[SETDEF_NEW]CHANGE_UIC.FOR;40  fQ CHANGE_UIC S9000J $CHECK_DIR_SPECGD \g\ f0KMS$SYSUTLUSR2:[SETDEF_NEW]CHECK_DIR_SPEC.FOR;30 qSCHECK_DIR_SPECB ERROR_MESSAGEEBxwc.KMS$SYSUTLUSR2:[SETDEF_NEW]ERROR_MESSAGE.FOR;7 U ERROR_MESSAGE  FILL_IN_SPECDAQgN-KMS$SYSUTLUSR2:[SETDEF_NEW]FILL_IN_SPEC.FOR;8 B$V FILL_IN_SPEC  GET_AND_PARSE_FOREIGN_CMDRO`#j;KMS$SYSUTLUSR2:[SETDEF_NEW]GET_AND_PARSE_FOREIGN_CMD.FOR;45 WGET_AND_PARSE_FOREIGN_CMDpL=GET_DEFAULT_DIRECTORYNKJ$k7KMS$SYSUTLUSR2:[SETDEF_NEW]GET_DEFAULT_DIRECTORY.FOR;22 ?<dlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SSDEF {NKJ$k7KMS$SYSUTLUSR2:[SETDEF_NEW]GET_DEFAULT_DIRECTORY.FOR;22 @=Olđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$RMSDEF WNKJ$k7KMS$SYSUTLUSR2:[SETDEF_NEW]GET_DEFAULT_DIRECTORY.FOR;22 @= D(lđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$LNMDEF 7NKJ$k7KMS$SYSUTLUSR2:[SETDEF_NEW]GET_DEFAULT_DIRECTORY.FOR;22 3XZGET_DEFAULT_DIRECTORY6 GET_FILE_NAMEFCDg:/KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_NAME.FOR;28 PL[ GET_FILE_NAME:1 GET_FILE_UICDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4 .] GET_FILE_UICl LENSTRNKJ$k7KMS$SYSUTLUSR2:[SETDEF_NEW]GET_DEFAULT_DIRECTORY.FOR;22G  ]LENSTR '^9000@OPERATE_ON_LOGICALKH j,4KMS$SYSUTLUSR2:[SETDEF_NEW]OPERATE_ON_LOGICAL.FOR;10o i,^OPERATE_ON_LOGICALD-SIMPLE_COMMAND_MENURO`#j;KMS$SYSUTLUSR2:[SETDEF_NEW]GET_AND_PARSE_FOREIGN_CMD.FOR;45 I`SIMPLE_COMMAND_MENU0 SWING=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 @=bխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEF J=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 $aSWING` ,ATRANSLATE_LOGICALKH j,4KMS$SYSUTLUSR2:[SETDEF_NEW]OPERATE_ON_LOGICAL.FOR;10 @= D(lđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$LNMDEF 7KH j,4KMS$SYSUTLUSR2:[SETDEF_NEW]OPERATE_ON_LOGICAL.FOR;10$ KhcTRANSLATE_LOGICAL:; UPDATE_SCREEN=:Y ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8Y# @=Zbխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEFZ J=:[ ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8[& =:\'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1\ @=]0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2] =:^'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1^ F=:_ ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8_' $e UPDATE_SCREEN,D ADD_BRACESB?`!%g2+KMS$SYSUTLUSR2:[SETDEF_NEW]ADD_BRACES.FOR;5 -Xf ADD_BRACES f100 BUFFER_LASTDAHk-KMS$SYSUTLUSR2:[SETDEF_NEW]BUFFER_LAST.FOR;25 / g BUFFER_LAST&M CRT=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 @= }lđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$DVIDEF =: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 ?<\ݮlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$TTDEF =: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 @=ήlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$TT2DEF i=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8  \hCRTfDEFINE_SMG_LAYOUT=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 @=bխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEF J=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 FhDEFINE_SMG_LAYOUTR DISPLAY_LOGSRO`#j;KMS$SYSUTLUSR2:[SETDEF_NEW]GET_AND_PARSE_FOREIGN_CMD.FOR;45 0j DISPLAY_LOGS&- DRAW_SCREEN=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8^ @=bխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEF J=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8a =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8b -k DRAW_SCREEN7& EXIT_SWING=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8k =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8n l EXIT_SWINGj7 GET_ALL_LOGSDAHk-KMS$SYSUTLUSR2:[SETDEF_NEW]BUFFER_LAST.FOR;250 5m GET_ALL_LOGS,GET_XABDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4/ @=Olđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$RMSDEF WDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;45 C@WNlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4 $SYSSRVNAM DA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;46 @= CƩlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$FABDEF ADA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;47 @= 9lđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$RABDEF  DA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4 8 C@ *elđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4 $XABPRODEF  gDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4 : nGET_XABh LOAD_DISPLAY=:q ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8qE @=rbխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEFr J=:s ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8sH =:t'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1t @=u0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2u =:v'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1v F=:w ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8wI J|n LOAD_DISPLAYP LOAD_NODES=:g ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8g =:h'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1h @=i0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2i =:j'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1j F=:k ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8k kdp LOAD_NODES |r99kk : PD_DRAW_BAR@= @4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2  @= 0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2  @= @4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2  s PD_DRAW_BAR " PD_LOAD_BAR@=@4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2U @=bխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEF J@=@4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2] @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 @=@4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2^ 2s PD_LOAD_BAR.q; PD_UNDRAW_BAR@= @4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2  @= 0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2  @=@4)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.FOR;2 t PD_UNDRAW_BAR " PRINT_MESSAGE=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8  u PRINT_MESSAGEjRECORD_STRUCTURE=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 GuRECORD_STRUCTURE x99Lk rRESET_TERMINAL=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8~ ?<alđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$IODEF =: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 xRESET_TERMINAL :UPDATE_WINDOW1=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 @=bխlđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4$SMGDEF J=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 @=0WV)KMS$SYSUTLUSR2:[SETDEF_NEW]PULLDOWN.CMN;2 =:'/W&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.CMN;1 F=: ,Ef&KMS$SYSUTLUSR2:[SETDEF_NEW]SWING.FOR;8 TxUPDATE_WINDOW1 XABGETDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4` C@*elđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4 $XABPRODEF gDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4d xXABGET p! XABSETDA $k-KMS$SYSUTLUSR2:[SETDEF_NEW]GET_FILE_UIC.FOR;4 P C@*elđ"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;4 $XABPRODEF gDA $k-KMS$SYSUTLUSR2:[SETDEF_NE