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