!++
!
! MODULE:			QMSPRINT Command Definition
!
! SOURCE CODE FILE:		ARC_CDU_FILES:QMSPRINT.CLD
!
! VERSION:			2-001
!
! FACILITY:			QMS Laser Printer Font Driver
!
! ABSTRACT:			Defines the DCL command TEST to run
!				the test version of the QMS Laser Printer
!				Font Driver.
!
! ENVIRONMENT:			User Mode, AST Reentrant
!
! AUTHOR:			Don Stevens-Rayburn
!
! COPYRIGHT:			Applied Research Corporation
!
! CREATION DATE:		08-Aug-1988
!
! MODIFICATION HISTORY:
!
! FUNCTIONAL DESCRIPTION:
!
!	This command definition file is used as input to the VAX/VMS 
!	Command Definition Utility.  It defines the verb QMSPRING which 
!	will invokes the font driver for the QMS Kiss Laser Printer.
!
!	Before you can use this file, you must edit it.	Change the 
!	device/directory specification on the "IMAGE" line to point 
!	to the directory that QMSPRINTV2.EXE resides in.
!
!	Note that the device specification is required unless the image 
!	resides in a subdirectory of SYS$SYSROOT.
!
!	Finally, add the following command line to either the user's 
!	LOGIN.COM or to SYLOGIN.COM.
!
!		$ SET COMMAND [font driver directory]TEST
!
!--

DEFINE VERB QMSPRINT

	IMAGE "ARC_EXECUTE:QMSPRINTV2.EXE"

        QUALIFIER MENU, SYNTAX=MENU_INTERFACE

	PARAMETER P1, LABEL=FILESPEC, PROMPT="File",
		  VALUE(LIST,REQUIRED,TYPE=$FILE)
	QUALIFIER FONT, VALUE(DEFAULT="7",TYPE=$NUMBER)
        QUALIFIER COPIES, VALUE(DEFAULT="1",TYPE=$NUMBER)
        QUALIFIER HEADER
	QUALIFIER FILL
	QUALIFIER WRAP
	QUALIFIER JUSTIFY
	QUALIFIER LOG
	QUALIFIER RUNNING_PAGE
	QUALIFIER TRANSLATE, DEFAULT
	QUALIFIER PRINT, DEFAULT
	QUALIFIER DELETE, DEFAULT
	QUALIFIER TOP, VALUE(DEFAULT="6",TYPE=$NUMBER)
	QUALIFIER BOTTOM, VALUE(DEFAULT="6",TYPE=$NUMBER)
	QUALIFIER LEFT, VALUE(DEFAULT="10",TYPE=$NUMBER)
	QUALIFIER RIGHT, VALUE(DEFAULT="10", TYPE=$NUMBER)
	QUALIFIER LPI, VALUE(DEFAULT="6", TYPE=$NUMBER)
	QUALIFIER CPI, VALUE(DEFAULT="10", TYPE=$NUMBER)
	QUALIFIER PAGES, VALUE(LIST,TYPE=$NUMBER)
	QUALIFIER TITLE, VALUE

DEFINE	SYNTAX	MENU_INTERFACE
	PARAMETER P1, LABEL=FILESPEC, PROMPT="File",
		  VALUE(LIST,TYPE=$FILE)