!========================================================================
   !************************************************************************
   !************************************************************************
   !**************                                          ****************
   !************          DEFINED EXTERNAL FUNCTIONS          **************
   !**************                                          ****************
   !************************************************************************
   !************************************************************************

   ! ******************** DECLARE EXTERNAL FUNCTIONS *************************
   ! ===========================================================================
     EXTERNAL LONG FUNCTION LIB$SPAWN(STRING)
     EXTERNAL LONG FUNCTION LIB$DATE_TIME(STRING)
     EXTERNAL LONG FUNCTION LIB$DISABLE_CTRL(LONG)
     EXTERNAL LONG FUNCTION LIB$ENABLE_CTRL(LONG)
   ! ===========================================================================

   ! ===========================================================================
     EXTERNAL LONG FUNCTION OTS$CVT_L_TB(LONG,STRING,OPTIONAL LONG BY VALUE, &
                            LONG BY VALUE)  ! convert interger to binary string
     EXTERNAL LONG FUNCTION OTS$CVT_L_TO(LONG,STRING,OPTIONAL LONG BY VALUE, &
                            LONG BY VALUE)  ! convert interger to octal string
     EXTERNAL LONG FUNCTION OTS$CVT_L_TZ(LONG,STRING,OPTIONAL LONG BY VALUE, &
                            LONG BY VALUE)  ! convert interger to hex string
     EXTERNAL LONG FUNCTION OTS$CVT_TB_L(STRING,LONG,OPTIONAL LONG BY VALUE, &
                            LONG BY VALUE)  ! convert binary string to interger
     EXTERNAL LONG FUNCTION OTS$CVT_TO_L(STRING,LONG,OPTIONAL LONG BY VALUE, &
                            LONG BY VALUE)  ! convert octal string to interger
     EXTERNAL LONG FUNCTION OTS$CVT_TZ_L(STRING,LONG,OPTIONAL LONG BY VALUE, &
                            LONG BY VALUE)  ! convert hex string to interger
   ! ===========================================================================

   ! ===========================================================================
     EXTERNAL LONG FUNCTION OUTPUT_$ARRAY(STRING,REAL,STRING DIM(),REAL)
   ! ===========================================================================

   ! ===========================================================================
     EXTERNAL LONG FUNCTION SMG$CONTROL_MODE (LONG,OPTIONAL LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$CREATE_MENU (LONG, STRING DIM(),OPTIONAL LONG, &
                            LONG, LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$CREATE_PASTEBOARD (LONG,OPTIONAL STRING, LONG, &
                            LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$CREATE_VIRTUAL_DISPLAY (LONG, LONG, LONG, &
                            OPTIONAL LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$CREATE_VIRTUAL_KEYBOARD (LONG,OPTIONAL STRING, &
                            STRING, STRING, BYTE)
     EXTERNAL LONG FUNCTION SMG$DELETE_MENU (LONG,OPTIONAL LONG)
     EXTERNAL LONG FUNCTION SMG$DELETE_PASTEBOARD (LONG,OPTIONAL LONG)
     EXTERNAL LONG FUNCTION SMG$DELETE_VIRTUAL_DISPLAY (LONG)
     EXTERNAL LONG FUNCTION SMG$ERASE_DISPLAY (LONG,OPTIONAL LONG, LONG, LONG, &
                            LONG)
     EXTERNAL LONG FUNCTION SMG$LABEL_BORDER (LONG,OPTIONAL STRING, LONG, &
                            LONG, LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$PASTE_VIRTUAL_DISPLAY (LONG, LONG, LONG, LONG, &
                            OPTIONAL LONG)
     EXTERNAL LONG FUNCTION SMG$POP_VIRTUAL_DISPLAY (LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$PUT_CHARS (LONG, STRING,OPTIONAL LONG, LONG, &
                            LONG, LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$PUT_LINE (LONG, STRING,OPTIONAL LONG, LONG, &
                            LONG, LONG, LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$PUT_STATUS_LINE (LONG, STRING)
     EXTERNAL LONG FUNCTION SMG$RESTORE_PHYSICAL_SCREEN (LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$SAVE_PHYSICAL_SCREEN (LONG, LONG, &
                            OPTIONAL LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$SELECT_FROM_MENU (LONG, LONG, WORD, &
                            OPTIONAL WORD, LONG, STRING, LONG, WORD, STRING, &
                            LONG, LONG)
     EXTERNAL LONG FUNCTION SMG$UNPASTE_VIRTUAL_DISPLAY (LONG, LONG)
   ! ===========================================================================

   ! ******************** DECLARE EXTERNAL CONSTANTS *************************
     EXTERNAL LONG CONSTANT OTS$_INPCONERR  ! input conversion error
     EXTERNAL LONG CONSTANT OTS$_OUTCONERR  ! output conversion error
     EXTERNAL LONG CONSTANT LIB$M_CLI_CTRLY ! control Y mask
     EXTERNAL LONG CONSTANT LIB$M_CLI_CTRLT ! control T mask
   !========================================================================
   !************************************************************************
   !************************************************************************
   !**************                                          ****************
   !************         DEFINED EXTERNAL SUBPROGRAMS         **************
   !**************                                          ****************
   !************************************************************************
   !************************************************************************
     EXTERNAL SUB LIB$STOP (LONG BY VALUE)
     EXTERNAL SUB LIB$GET_SYMBOL (STRING BY DESC,STRING BY DESC)