!
! 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
!
10	MAP	(SCREEN)  ADDBUF%,TOTBYT%,BYTCNT%,COLNO%,ROWNO%,&
			  TABCNT%,LINENO%,OUT%,LUN%,BUFF$=40
20	OUT% = 1%
30	LUN% = 13%
40	TOTBYT% = 40%
50	CALL	GETADR BY REF(ADDBUF%,BUFF$)