*
* THIS DEFINES THE INTERFACE TO THE SCREEN HANDLING ROUTINES AND
* SHOULD BE INCLUDED IN THE SOURCE OF ANY PROGRAM USING THEM.
*
* THE COMMON AREA 'SCREEN' CONTAINS THE FOLLOWING VARIABLES:
*
*	ADDBUF	- ADDRESS OF BUFFER TO HOLD FORMATTING STRINGS
*	TOTBYT	- LENGTH OF BUFFER
*	BYTCNT	- NUMBER OF BYTES IN BUFFER ALREADY USED
*	COLNO	- COLUMN NUMBER FOR CURSOR POSITIONING (1-N)
*	ROWNO	- ROW NUMBER FOR CURSOR POSITIONING (1-N)
*	TABCNT	- TAB STOP COUNT FOR TABBING
*	LINENO	- LINE NUMBER FOR SCROLL AREA SETTING
*	OUT	- FLAG TO CONTROL OUTPUT (1=OUTPUT THE STRING)
*	LUN	- LUN FOR OUTPUT IF OUT=1
*
01	SCREEN.
  03	ADDBUF		PIC 9(4) COMP.
  03	TOTBYT		PIC 9(4) COMP VALUE IS 40.
  03	BYTCNT		PIC 9(4) COMP.
  03	COLNO		PIC 9(4) COMP.
  03	ROWNO		PIC 9(4) COMP.
  03	TABCNT		PIC 9(4) COMP.
  03	LINENO		PIC 9(4) COMP.
  03	OUT		PIC 9(4) COMP.
  03	LUN		PIC 9(4) COMP.
  03	BUFF		PIC X(40).