! *** 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
    
    
    ! 
    !  DEFINE GENERIC CODES FOR VERBS
    ! 
    !  DEFINE VERB QENERIC CODES 
      DECLARE LONG CONSTANT CLI$K_VERB_ALLO = 1  !  ALLOCATE 
      DECLARE LONG CONSTANT CLI$K_VERB_ANAL = 2  !  ANALIZE 
      DECLARE LONG CONSTANT CLI$K_VERB_ASSI = 3  !  ASSIGN 
      DECLARE LONG CONSTANT CLI$K_VERB_BASI = 4  !  BASIC 
      DECLARE LONG CONSTANT CLI$K_VERB_BLIS = 5  !  BLISS 
      DECLARE LONG CONSTANT CLI$K_VERB_COBO = 6  !  COBOL 
      DECLARE LONG CONSTANT CLI$K_VERB_CONT = 7  !  CONTINUE 
      DECLARE LONG CONSTANT CLI$K_VERB_COPY = 8  !  COPY 
      DECLARE LONG CONSTANT CLI$K_VERB_CREA = 9  !  CREATE 
      DECLARE LONG CONSTANT CLI$K_VERB_DATA = 10  !  DATA 
      DECLARE LONG CONSTANT CLI$K_VERB_DEAL = 11  !  DEALLOCATE 
      DECLARE LONG CONSTANT CLI$K_VERB_DEAS = 12  !  DEASSIGN 
      DECLARE LONG CONSTANT CLI$K_VERB_DEBU = 13  !  DEBUG 
      DECLARE LONG CONSTANT CLI$K_VERB_DEFI = 14  !  DEFINE 
      DECLARE LONG CONSTANT CLI$K_VERB_DELE = 15  !  DELETE 
      DECLARE LONG CONSTANT CLI$K_VERB_DEPO = 16  !  DEPOSIT 
      DECLARE LONG CONSTANT CLI$K_VERB_DIFF = 17  !  DIFFERENCE COMMAND 
      DECLARE LONG CONSTANT CLI$K_VERB_DIRE = 18  !  DIRECTORY 
      DECLARE LONG CONSTANT CLI$K_VERB_DISM = 19  !  DISMOUNT 
      DECLARE LONG CONSTANT CLI$K_VERB_EDIT = 20  !  EDIT 
      DECLARE LONG CONSTANT CLI$K_VERB_EOD = 21  !  EOD 
      DECLARE LONG CONSTANT CLI$K_VERB_EXAM = 22  !  EXAMINE 
      DECLARE LONG CONSTANT CLI$K_VERB_EXIT = 23  !  EXIT 
      DECLARE LONG CONSTANT CLI$K_VERB_FORT = 24  !  FORTRAN 
      DECLARE LONG CONSTANT CLI$K_VERB_GOTO = 25  !  GOTO 
      DECLARE LONG CONSTANT CLI$K_VERB_HELP = 26  !  HELP 
      DECLARE LONG CONSTANT CLI$K_VERB_IF = 27  !  IF 
      DECLARE LONG CONSTANT CLI$K_VERB_INIT = 28  !  INITIALIZE 
      DECLARE LONG CONSTANT CLI$K_VERB_INQU = 29  !  INQUIRE 
      DECLARE LONG CONSTANT CLI$K_VERB_LINK = 30  !  LINK 
      DECLARE LONG CONSTANT CLI$K_VERB_LOGO = 31  !  LOGOUT 
      DECLARE LONG CONSTANT CLI$K_VERB_MACR = 32  !  MACRO 
      DECLARE LONG CONSTANT CLI$K_VERB_MCR = 33  !  MCR 
      DECLARE LONG CONSTANT CLI$K_VERB_ON = 34  !  ON 
      DECLARE LONG CONSTANT CLI$K_VERB_PRIN = 35  !  PRINT 
      DECLARE LONG CONSTANT CLI$K_VERB_RUN = 36  !  RUN 
      DECLARE LONG CONSTANT CLI$K_VERB_SET = 37  !  SET 
      DECLARE LONG CONSTANT CLI$K_VERB_SHOW = 38  !  SHOW 
      DECLARE LONG CONSTANT CLI$K_VERB_STAR = 39  !  START 
      DECLARE LONG CONSTANT CLI$K_VERB_STOP = 40  !  STOP 
      DECLARE LONG CONSTANT CLI$K_VERB_SUBM = 41  !  SUBMIT 
      DECLARE LONG CONSTANT CLI$K_VERB_TYPE = 42  !  TYPE 
      DECLARE LONG CONSTANT CLI$K_VERB_MOUN = 43  !  MOUNT 
      DECLARE LONG CONSTANT CLI$K_VERB_PATC = 44  !  PATCH 
      DECLARE LONG CONSTANT CLI$K_VERB_REPL = 45  !  REPLAY 
      DECLARE LONG CONSTANT CLI$K_VERB_UNLO = 46  !  UNLOCK 
      DECLARE LONG CONSTANT CLI$K_VERB_APPE = 47  !  APPEND COMMAND 
      DECLARE LONG CONSTANT CLI$K_VERB_DUMP = 48  !  DUMP 
      DECLARE LONG CONSTANT CLI$K_VERB_PURG = 49  !  PURGE 
      DECLARE LONG CONSTANT CLI$K_VERB_RENA = 50  !  RENAME 
      DECLARE LONG CONSTANT CLI$K_VERB_CANC = 51  !  CANCEL 
      DECLARE LONG CONSTANT CLI$K_VERB_LIBR = 52  !  LIBRARY 
      DECLARE LONG CONSTANT CLI$K_VERB_SORT = 53  !  SORT 
      DECLARE LONG CONSTANT CLI$K_VERB_REQU = 54  !  REQUEST 
      DECLARE LONG CONSTANT CLI$K_VERB_SYNC = 55  !  SYNCRONIZE 
      DECLARE LONG CONSTANT CLI$K_VERB_CORA = 56  !  CORAL 
      DECLARE LONG CONSTANT CLI$K_VERB_PASC = 57  !  PASCAL 
      DECLARE LONG CONSTANT CLI$K_VERB_PLI = 58  !  PL/1 
      DECLARE LONG CONSTANT CLI$K_VERB_MESS = 59  !  MESSAGE 
    !  DEFINE VERB QENERIC CODES 
      DECLARE LONG CONSTANT CLI$K_VERB_FORE = 255  !  FOREIGN COMMAND