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 ;