!*** MODULE FORMS$FOR_DEFINITIONS.FOR *** !*** IDENT V1.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 use in DECforms applications written ! in FORTRAN. ! ! ************************************************************************* ! ! FORMS$AR_FORM_TABLE declaration. ! INTEGER*4 forms$ar_form_table EXTERNAL forms$ar_form_table ! ! DECforms routines. ! INTEGER*4 forms$enable EXTERNAL forms$enable INTEGER*4 forms$send EXTERNAL forms$send INTEGER*4 forms$receive EXTERNAL forms$receive INTEGER*4 forms$transceive EXTERNAL forms$transceive INTEGER*4 forms$disable EXTERNAL forms$disable INTEGER*4 forms$cancel EXTERNAL forms$cancel ! ! Item codes for REQUEST_OPTIONS item lists. ! PARAMETER FORMS$K_LANGUAGE = 1 PARAMETER FORMS$K_IMAGE = 2 PARAMETER FORMS$K_TRACEFILE = 3 PARAMETER FORMS$K_TRACE = 4 PARAMETER FORMS$K_PRINTFILE = 5 PARAMETER FORMS$K_EFN = 6 PARAMETER FORMS$K_RSB = 7 PARAMETER FORMS$K_ASTADR = 8 PARAMETER FORMS$K_ASTPRM = 9 PARAMETER FORMS$K_ERROR_ROUTINE = 10 PARAMETER FORMS$K_ERROR_PARAMETER = 11 PARAMETER FORMS$K_NO_TERM_IO = 12 PARAMETER FORMS$K_SELECTION_LABEL = 13 PARAMETER FORMS$K_ERROR_ITEMS_NOT_SAVED = 14 PARAMETER FORMS$K_STACK_SIZE = 15