blob: 7e64961bf25de74bff7d246ebf93cb9e41e3fb47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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 ;
|
