! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    !  Item list codes for TPU$INITIALIZE
      DECLARE LONG CONSTANT TPU$_CHAIN = -1  !  Chain entry - Matches other VMS CHAIN entries
      DECLARE LONG CONSTANT TPU$_ENDLIST = 0  !  End of list [*** Must be zero ***]
      DECLARE LONG CONSTANT TPU$_OPTIONS = 1  !  Command line options (see below)
      DECLARE LONG CONSTANT TPU$_FILENAME = 6  !  File name
      DECLARE LONG CONSTANT TPU$_OTHER_FILENAMES = 7  !  more filenames 
      DECLARE LONG CONSTANT TPU$_FILEIO = 14  !  File I/O routine
      DECLARE LONG CONSTANT TPU$_CALLUSER = 15  !  CALL_USER routine
      DECLARE LONG CONSTANT TPU$_JOURNALFILE = 16  !  /JOURNAL= file name
      DECLARE LONG CONSTANT TPU$_SECTIONFILE = 19  !  /SECTION= file name
      DECLARE LONG CONSTANT TPU$_OUTPUTFILE = 20  !  /OUTPUT= file name
      DECLARE LONG CONSTANT TPU$_COMMANDFILE = 21  !  /COMMAND= file name
      DECLARE LONG CONSTANT TPU$_DISPLAYFILE = 22  !  /DISPLAY= keyword -or- file name
      DECLARE LONG CONSTANT TPU$_CTRL_C_ROUTINE = 23  !  CTRL/C routine
      DECLARE LONG CONSTANT TPU$_FREEITEMLIST = 24  !  Free the item list
      DECLARE LONG CONSTANT TPU$_DEBUGFILE = 25  !  /DEBUG= file name
      DECLARE LONG CONSTANT TPU$_FILE_PARSE = 26  !  FILE_PARSE routine
      DECLARE LONG CONSTANT TPU$_FILE_SEARCH = 27  !  FILE_SEARCH routine
      DECLARE LONG CONSTANT TPU$_TERMINAL_INPUT = 28  !  Terminal input routine
      DECLARE LONG CONSTANT TPU$_KANJI_DICFILE = 29  !  /KANJI_DICTIONARY= file name
      DECLARE LONG CONSTANT TPU$_TEXT_LANGUAGE = 30  !  /TEXT_LANGUAGE= language name
      DECLARE LONG CONSTANT TPU$_DEFAULTSFILE = 31  !  /DEFAULTS= file name
      DECLARE LONG CONSTANT TPU$_PARENT_WIDGET = 32  !  DECwindows widget to use as our parent
      DECLARE LONG CONSTANT TPU$_EXTENSION = 33  !  Extension Table Entry
      DECLARE LONG CONSTANT TPU$_GET_DEFAULT = 34  !  GET_DEFAULT routine
      DECLARE LONG CONSTANT TPU$_SET_DEFAULT = 35  !  SET_DEFAULT routine
      DECLARE LONG CONSTANT TPU$_WORKFILE = 36  !  /WORK= file name
      DECLARE LONG CONSTANT TPU$_APPLICATION_CONTEXT = 37  !  Decwindows application context
      DECLARE LONG CONSTANT TPU$_CHARACTERSET = 38  !  /CHARACTER_SET= character set name
      DECLARE LONG CONSTANT TPU$_LANGUAGE = 257  !  LSE's /LANGUAGE= file name
      DECLARE LONG CONSTANT TPU$_ENVFILE = 258  !  LSE's /ENVIRONMENT= file name
      DECLARE LONG CONSTANT TPU$_INIT_FILE = 259  !  /INITIALIZATION= file name
      DECLARE LONG CONSTANT TPU$_START_LINE = 260  !  /START_POSITION= line
      DECLARE LONG CONSTANT TPU$_START_CHAR = 261  !  /START_POSITION= character
      DECLARE LONG CONSTANT TPU$_SYSTEM_ENVFILE = 262  !  LSE's /SYSTEM_ENVIROMENT= file name
    !  Item list codes for file I/O
      DECLARE LONG CONSTANT TPU$_ACCESS = 4  !  File access type (see below)
      DECLARE LONG CONSTANT TPU$_FLUSH = 5  !  Flush after Puts
      DECLARE LONG CONSTANT TPU$_FILESIZE = 7  !  File size
      DECLARE LONG CONSTANT TPU$_RECORD_ATTR = 8  !  Record attributes
      DECLARE LONG CONSTANT TPU$_RECORD_FORM = 9  !  Record format
      DECLARE LONG CONSTANT TPU$_MAXIMIZE_VER = 10  !  Maximize version number
      DECLARE LONG CONSTANT TPU$_DEFAULTFILE = 17  !  Default file name
      DECLARE LONG CONSTANT TPU$_RELATEDFILE = 18  !  Related file name
      DECLARE LONG CONSTANT TPU$_FILE_RECOVERABLE = 19  !  File available upon recovery
      DECLARE LONG CONSTANT TPU$_TRN_TPT = 20  !  File will allow truncates - journal files only
      DECLARE LONG CONSTANT TPU$_CREATE_TIME = 257  !  Creation date/time
      DECLARE LONG CONSTANT TPU$_EOF_BLOCK = 258  !  EOF block
      DECLARE LONG CONSTANT TPU$_EOF_FFB = 259  !  EOF first free byte
    !  TPU$_OPTIONS flags
      DECLARE LONG CONSTANT TPU$M_RECOVER = x'00000001'
      DECLARE LONG CONSTANT TPU$M_JOURNAL = x'00000002'
      DECLARE LONG CONSTANT TPU$M_READ = x'00000004'
      DECLARE LONG CONSTANT TPU$M_SECTION = x'00000008'
      DECLARE LONG CONSTANT TPU$M_OUTPUT = x'00000010'
      DECLARE LONG CONSTANT TPU$M_COMMAND = x'00000020'
      DECLARE LONG CONSTANT TPU$M_DISPLAY = x'00000040'
      DECLARE LONG CONSTANT TPU$M_CREATE = x'00000080'
      DECLARE LONG CONSTANT TPU$M_STARTPOS = x'00000100'
      DECLARE LONG CONSTANT TPU$M_COMMAND_DFLTED = x'00000200'
      DECLARE LONG CONSTANT TPU$M_DEBUG = x'00000400'
      DECLARE LONG CONSTANT TPU$M_NOKANJI_DIC = x'00000800'
      DECLARE LONG CONSTANT TPU$M_TEXT_LANGUAGE = x'00001000'
      DECLARE LONG CONSTANT TPU$M_DEFAULTS = x'00002000'
      DECLARE LONG CONSTANT TPU$M_NODEFAULTS = x'00004000'
      DECLARE LONG CONSTANT TPU$M_ENVIRONMENT = x'00010000'
      DECLARE LONG CONSTANT TPU$M_INIT = x'00020000'
      DECLARE LONG CONSTANT TPU$M_SYSTEM_ENV = x'00040000'
      DECLARE LONG CONSTANT TPU$M_CURRENT_FILE = x'00080000'
      DECLARE LONG CONSTANT TPU$M_WRITE = x'00100000'
      DECLARE LONG CONSTANT TPU$M_MODIFY = x'00200000'
      DECLARE LONG CONSTANT TPU$M_NOMODIFY = x'00400000'
      DECLARE LONG CONSTANT TPU$M_NOMAP = x'00800000'
      DECLARE LONG CONSTANT TPU$M_WORK = x'01000000'
      DECLARE LONG CONSTANT TPU$M_SEC_LNM_MODE = x'02000000'
      DECLARE LONG CONSTANT TPU$M_CHARSET = x'04000000'
      DECLARE LONG CONSTANT TPU$S_FILL_32_ = 4
      record FILL_32_
         variant
            case
               LONG TPU$L_OPTIONS
            case
               group TPU$R_FILL_33_
                   !  /RECOVER
                   !  /JOURNAL
                   !  /READ_ONLY
                   !  /SECTION
                   !  /OUTPUT
                   !  /COMMAND
                   !  /DISPLAY
                   !  /CREATE
                   !  /START_POSITION
                   !  /COMMAND defaulted
                   !  /DEBUG
                   !  /KANJI_DICTIONARY
                   !  /TEXT_LANGUAGE
                   !  Explicit /DEFAULTS
                   !  Explicit /NODEFAULTS
                   !  LSE's /ENVIRONMENT
                   !  /INITIALIZATION
                   !  LSE's /SYSTEM_ENVIRONMENT
                   !  LSE's /CURRENT_FILE
                   !  /WRITE
                   !  Explicit /MODIFY
                   !  Explicit /NOMODFIY
                   !  Don't map top DECwindows widget
                   !  /WORK
                   !  Section logical name mode
                   !  /CHARACTER_SET
                  LONG RECOVER_bits   ! COMMENT ADDED BY SDL - RECOVER_bits contains bits RECOVER through bit_31
               end group TPU$R_FILL_33_
         end variant
      end record FILL_32_
    
    !  Access codes for TPU$_ACCESS
      DECLARE LONG CONSTANT TPU$K_INPUT = 0  !  Open file for input only
      DECLARE LONG CONSTANT TPU$K_OUTPUT = 1  !  Open file for output only
      DECLARE LONG CONSTANT TPU$K_IO = 2    !  Open file for both input and output
      DECLARE LONG CONSTANT TPU$K_OUTPUT_DDIF = 3  !  Open file for DDIF output only
    !  Codes for file I/O
      DECLARE LONG CONSTANT TPU$K_OPEN = 0  !  Open a file
      DECLARE LONG CONSTANT TPU$K_CLOSE = 1  !  Close a file
      DECLARE LONG CONSTANT TPU$K_CLOSE_DELETE = 2  !  Close and delete a file
      DECLARE LONG CONSTANT TPU$K_PUT = 3   !  Put a record to a file
      DECLARE LONG CONSTANT TPU$K_GET = 4   !  Get a record from a file
      DECLARE LONG CONSTANT TPU$K_REWIND = 5  !  Rewind the file
    !  FILE_PARSE and FILE_SEARCH item flags
      DECLARE LONG CONSTANT TPU$M_NODE = x'00000001'
      DECLARE LONG CONSTANT TPU$M_DEV = x'00000002'
      DECLARE LONG CONSTANT TPU$M_DIR = x'00000004'
      DECLARE LONG CONSTANT TPU$M_NAME = x'00000008'
      DECLARE LONG CONSTANT TPU$M_TYPE = x'00000010'
      DECLARE LONG CONSTANT TPU$M_VER = x'00000020'
      DECLARE LONG CONSTANT TPU$M_HEAD = x'00000040'
      DECLARE LONG CONSTANT TPU$M_TAIL = x'00000080'
      DECLARE LONG CONSTANT TPU$M_REPARSE = x'00010000'
      DECLARE LONG CONSTANT TPU$S_FILL_34_ = 4
      record FILL_34_
         variant
            case
               LONG TPU$L_ITEM_FLAGS
            case
               group TPU$R_FILL_35_
                   !  Return node
                   !  Return device
                   !  Return directory
                   !  Return name
                   !  Return type
                   !  Return version
                   !  Return head (Ultrix node+dev+dir)
                   !  Return tail (Ultrix name+type+ver)
                   !  Reparse (FILE_SEARCH only)
                  LONG NODE_bits   ! COMMENT ADDED BY SDL - NODE_bits contains bits NODE through FILL_36_
               end group TPU$R_FILL_35_
         end variant
      end record FILL_34_
    
    !  Codes for terminal input
      DECLARE LONG CONSTANT TPU$K_INITIALIZE_INPUT = 0  !  Initialize terminal input
      DECLARE LONG CONSTANT TPU$K_TYPEAHEAD_COUNT = 1  !  Fetch typeahead count
      DECLARE LONG CONSTANT TPU$K_CANCEL_INPUT = 2  !  Cancel outstanding terminal input
      DECLARE LONG CONSTANT TPU$K_READ_CHARACTER = 3  !  Read a single character
      DECLARE LONG CONSTANT TPU$K_READ_STRING = 4  !  Read a string of characters
      DECLARE LONG CONSTANT TPU$K_READ_LINE = 5  !  Read a line with prompting
      DECLARE LONG CONSTANT TPU$K_TERMINATE_INPUT = 6  !  Terminate terminal input
      DECLARE LONG CONSTANT TPU$K_READ_TYPEAHEAD_NOECHO = 7  !  Read the typeahead and don't echo
    !  TPU$CLEANUP flags
      DECLARE LONG CONSTANT TPU$M_DELETE_JOURNAL = x'00000001'
      DECLARE LONG CONSTANT TPU$M_DELETE_EXITH = x'00000002'
      DECLARE LONG CONSTANT TPU$M_DELETE_BUFFERS = x'00000004'
      DECLARE LONG CONSTANT TPU$M_DELETE_WINDOWS = x'00000008'
      DECLARE LONG CONSTANT TPU$M_DELETE_CACHE = x'00000010'
      DECLARE LONG CONSTANT TPU$M_PRUNE_CACHE = x'00000020'
      DECLARE LONG CONSTANT TPU$M_EXECUTE_FILE = x'00000040'
      DECLARE LONG CONSTANT TPU$M_EXECUTE_PROC = x'00000080'
      DECLARE LONG CONSTANT TPU$M_DELETE_CONTEXT = x'00000100'
      DECLARE LONG CONSTANT TPU$M_RESET_TERMINAL = x'00000200'
      DECLARE LONG CONSTANT TPU$M_KILL_PROCESSES = x'00000400'
      DECLARE LONG CONSTANT TPU$M_CLOSE_SECTION = x'00000800'
      DECLARE LONG CONSTANT TPU$M_DELETE_OTHERS = x'00001000'
      DECLARE LONG CONSTANT TPU$M_LAST_TIME = x'00002000'
      DECLARE LONG CONSTANT TPU$M_CLOSE_KANJI_DIC = x'00004000'
      DECLARE LONG CONSTANT TPU$S_FILL_37_ = 4
      record FILL_37_
         variant
            case
               LONG TPU$L_CLEANUP
            case
               group TPU$R_FILL_38_
                   !  Delete journal
                   !  Delete exit handler
                   !  Delete buffers
                   !  Delete windows
                   !  Delete caches
                   !  Purge caches
                   !  Re-execute command file
                   !  Re-execute TPU$INIT_PROCEDURE
                   !  Delete all context
                   !  Reset terminal state
                   !  Delete subprocesses
                   !  Close section file
                   !  Delete miscellaneous
                   !  Last call
                   !  Close dictionary
                  WORD DELETE_JOURNAL_bits   ! COMMENT ADDED BY SDL - DELETE_JOURNAL_bits contains bits DELETE_JOURNAL through  &
 ! FILL_39_
               end group TPU$R_FILL_38_
         end variant
      end record FILL_37_