!*** MODULE FORMS$BAS_DEFINITIONS.BAS ***
    !*** IDENT T1.0-000 ***
    !
    ! *************************************************************************
    !                   Copyright © 1988, 1989, 1991, 1994 by                 *
    !               DIGITAL Equipment Corporation, Maynard, Mass.             *
    !                                                                         *
    !  This software is furnished under a license and may be used and  copied *
    !  only  in  accordance  with  the  terms  of  such  license and with the *
    !  inclusion of the above copyright notice.  This software or  any  other *
    !  copies  thereof may not be provided or otherwise made available to any *
    !  other person.  No title to or  ownership of  the  software  is  hereby *
    !  transferred.                                                           *
    !                                                                         *
    !  The information in this software is subject to change  without  notice *
    !  and  should  not  be  construed  as  a commitment by DIGITAL Equipment *
    !  Corporation.                                                           *
    !                                                                         *
    !  DIGITAL assumes no responsibility for the use or  reliability  of  its *
    !  software on equipment which is not supplied by DIGITAL.                *
    !                                                                         *
    ! *************************************************************************
    !
    !
    !  FACILITY:	DECforms V2.0
    !
    !  ABSTRACT:	Definitions file for DECforms applications written
    !			in BASIC.
    !
    !

    !
    !  Address of FORMS$AR_FORM_TABLE.
    !
      EXTERNAL LONG forms$ar_form_table

    !
    !  Item codes for REQUEST_OPTIONS item lists.
    !

      DECLARE LONG CONSTANT FORMS$K_LANGUAGE		    =  1
      DECLARE LONG CONSTANT FORMS$K_IMAGE		    =  2
      DECLARE LONG CONSTANT FORMS$K_TRACEFILE		    =  3
      DECLARE LONG CONSTANT FORMS$K_TRACE		    =  4
      DECLARE LONG CONSTANT FORMS$K_PRINTFILE		    =  5
      DECLARE LONG CONSTANT FORMS$K_EFN			    =  6
      DECLARE LONG CONSTANT FORMS$K_RSB			    =  7
      DECLARE LONG CONSTANT FORMS$K_ASTADR		    =  8
      DECLARE LONG CONSTANT FORMS$K_ASTPRM		    =  9
      DECLARE LONG CONSTANT FORMS$K_ERROR_ROUTINE	    =  10
      DECLARE LONG CONSTANT FORMS$K_ERROR_PARAMETER	    =  11
      DECLARE LONG CONSTANT FORMS$K_NO_TERM_IO		    =  12
      DECLARE LONG CONSTANT FORMS$K_SELECTION_LABEL	    =  13
      DECLARE LONG CONSTANT FORMS$K_ERROR_ITEMS_NOT_SAVED   =  14
      DECLARE LONG CONSTANT FORMS$K_STACK_SIZE		    =  15

    !
    !  DECforms entry point routine addresses.
    !
      EXTERNAL LONG FUNCTION  forms$enable
      EXTERNAL LONG FUNCTION  forms$send
      EXTERNAL LONG FUNCTION  forms$receive
      EXTERNAL LONG FUNCTION  forms$transceive
      EXTERNAL LONG FUNCTION  forms$disable
      EXTERNAL LONG FUNCTION  forms$cancel