*******************************************************************************
*
*	uniVerse include file for PRINTERIO functions
*
*	Module	PRINTERIO.H
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************

EQUATE	PK$MAXUNITS              TO 255     

*  Keys to define the Printer IO function to be performed

EQUATE	PK$INITIALIZE            TO 1       
EQUATE	PK$FINALIZE              TO 2       
EQUATE	PK$PRINT.STRING          TO 3       
EQUATE	PK$PRINT.STRING.WITH.NEW.LINE TO 4       
EQUATE	PK$NEW.PAGE              TO 5       
EQUATE	PK$PRINT.NEW.LINE        TO 6       
EQUATE	PK$PRINT.CHARACTER       TO 7       
EQUATE	PK$PRINT.TAB             TO 8       
EQUATE	PK$PRINT.ERROR.MESSAGE   TO 9       
EQUATE	PK$INPUT                 TO 10      
EQUATE	PK$INPUT.AT              TO 11      
EQUATE	PK$GET.KEY               TO 12      
EQUATE	PK$CLEAR.INPUT           TO 13      
EQUATE	PK$ECHO.INPUT            TO 14      
EQUATE	PK$STAT.IPEDIT           TO 15      
EQUATE	PK$PACK.FKEYS            TO 16      
EQUATE	PK$IPEDIT                TO 17      
EQUATE	PK$CONTROL.SEQUENCE.ONE.ARG TO 18      
EQUATE	PK$CONTROL.SEQUENCE.TWO.ARGS TO 19      
EQUATE	PK$PRINTER.ON            TO 20      
EQUATE	PK$PRINTER.OFF           TO 21      
EQUATE	PK$PRINTER.CLOSE         TO 22      
EQUATE	PK$HEADING               TO 23      
EQUATE	PK$FOOTING               TO 24      
EQUATE	PK$HEADER.VARIABLE       TO 25      
EQUATE	PK$SET.PAGE.NUMBER       TO 26      
EQUATE	PK$GETPU                 TO 27      
EQUATE	PK$SETPU                 TO 28      
EQUATE	PK$RESET.TERMINAL        TO 29      
EQUATE	PK$RESET.ALL.PRINTUNITS  TO 30      
EQUATE	PK$SET.KILL.CHARACTER    TO 31      
EQUATE	PK$SET.ERASE.CHARACTER   TO 32      
EQUATE	PK$SET.PROMPT.CHARACTER  TO 33      
EQUATE	PK$SET.HUSH              TO 34      
EQUATE	PK$SET.ECHO              TO 35      
EQUATE	PK$SET.BREAK             TO 36      
EQUATE	PK$SET.XOFF              TO 37      
EQUATE	PK$SET.DUPLEX            TO 38      
EQUATE	PK$SCOLOUR               TO 39      
EQUATE	PK$DISLEN                TO 40      
EQUATE	PK$COMO                  TO 41      
EQUATE	PK$PRIMTV                TO 42      
EQUATE	PK$CR.IDLE               TO 43      
EQUATE	PK$SET.TERMINAL.TYPE     TO 44      
EQUATE	PK$GET.TERMINAL.TYPE     TO 45      
EQUATE	PK$CHECK.INPUT           TO 46      
EQUATE	PK$GET.PROMPT.CHARACTER  TO 47      
EQUATE	PK$GET.TERM.PAUSE        TO 48      
EQUATE	PK$SET.TERM.PAUSE        TO 49      
EQUATE	PK$SET.TERM.SUPPRESS     TO 50      
EQUATE	PK$GET.ECHO.DELAY        TO 51      

*  Values 52 to 55 are now used in P_GUI_KEYS.IT. The 'PK$' keys defined
*  in PRINTERIO.IT and P_GUI_KEYS.IT must NOT clash. Care must be taken
*  when adding new keys in future in either include file.

EQUATE	PK$KEYIN                 TO 56      

*  Options for passing to GTI input editor
*  N.B: The values represent single bits in a 16 bit value

EQUATE	IK$NON                   TO 0       ;* No keys specified
EQUATE	IK$OCR                   TO 1       ;* Output <CR>
EQUATE	IK$ATM                   TO 2       ;* Terminate edit when string = maxlen
EQUATE	IK$TCR                   TO 4       ;* Toggle cursor
EQUATE	IK$DIS                   TO 8       ;* Reserved
EQUATE	IK$HDX                   TO 16      ;* Put terminal into half duplex
EQUATE	IK$INS                   TO 32      ;* Start in insert mode
EQUATE	IK$BEG                   TO 64      ;* Separate begin/end line functions
EQUATE	IK$NEK                   TO 128     ;* Ignore OS kill and erase chars

*  Subkeys for setting the state of the command line editor

EQUATE	CLE$READ.STATUS          TO 1       
EQUATE	CLE$WRITE.STATUS         TO 2       
EQUATE	CLE$DISABLED             TO 0       
EQUATE	CLE$COMMAND.INPUT        TO 1       
EQUATE	CLE$VERB.INPUT           TO 2       
EQUATE	CLE$ALL.INPUT            TO 3       
EQUATE	CLE$INSERT.KEY           TO 0       
EQUATE	CLE$OVERLAY.KEY          TO 5       

*  Error returns from PK$STAT.IPEDIT

EQUATE	CLE$INVALID.ACTION       TO 1       
EQUATE	CLE$INVALID.STATE        TO 2       
EQUATE	CLE$INVALID.MODE         TO 3       

*  Class of GTI function keys loaded for terminal

EQUATE	P$FKEYS.NONE             TO 0       ;* No key bindings loaded
EQUATE	P$FKEYS.FUND             TO 1       ;* Fundamental key bindings loaded
EQUATE	P$FKEYS.FUNC             TO 2       ;* Function key bindings loaded

*  Options for the PK$SET.DUPLEX key

EQUATE	PK$TTY.FULL              TO 0       ;* Set terminal to full duplex
EQUATE	PK$TTY.HALF.LF           TO 1       ;* Set terminal to half duplex, do line feeds
EQUATE	PK$TTY.HALF.NOLF         TO 2       ;* Set terminal to half duplex, dont do line feeds
EQUATE	PK$TTY.TOGGLE.DUPLEX     TO 3       ;*  Toggle from FULL to HALF.NOLF or either HALF to FULL

*  Subkeys for the PK$SCOLOUR key used to provide colour
*  replacement of monochrome attributes.

EQUATE	IT$GETCOLOR              TO 3       ;* Retrieve colour settings for attributes
EQUATE	IT$SETCOLOR              TO 4       ;* Set mono attribute to specified colours
EQUATE	IT$DEFCOLOR              TO 5       ;* Set all attributes to default colours
EQUATE	IT$NORMAL.ATT            TO 10      ;* Mono normal rendition
EQUATE	IT$ULINE.ATT             TO 11      ;* Mono underline rendition
EQUATE	IT$REVERSE.ATT           TO 12      ;* Mono reverse video rendition
EQUATE	IT$HALFINT.ATT           TO 13      ;* Mono half intensity rendition
EQUATE	IT$BLINK.ATT             TO 14      ;* Mono blinking rendition

*  Subkeys for COMO support

EQUATE	COMO$ON                  TO 1       
EQUATE	COMO$INUSE               TO 2       
EQUATE	COMO$APPEND              TO 3       
EQUATE	COMO$PAUSE               TO 4       
EQUATE	COMO$CONTINUE            TO 5       
EQUATE	COMO$OFF                 TO 6       

* END-CODE