PACKET screen description DEFINES

     xsize, ysize, marksize, mark refresh line mode :


INT VAR xs := 80, ys := 24, ms := 1;

INT PROC xsize: xs END PROC xsize;

INT PROC ysize: ys END PROC ysize;

INT PROC marksize: ms END PROC marksize;

PROC xsize (INT CONST i): xs := i END PROC xsize;

PROC ysize (INT CONST i): ys := i END PROC ysize;

PROC marksize (INT CONST i): ms := i END PROC marksize;

 
BOOL VAR line mode := FALSE; 
 
BOOL PROC mark refresh line mode:
  line mode
END PROC mark refresh line mode;
 
PROC mark refresh line mode (BOOL CONST b): 
  line mode := b 
END PROC mark refresh line mode; 
 
END PACKET screen description ;