Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6613 | Rev 7597 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | MODULE HW; |
1 | MODULE HW; |
Line 2... | Line 2... | ||
2 | 2 | ||
Line 3... | Line 3... | ||
3 | IMPORT sys := SYSTEM, KOSAPI; |
3 | IMPORT sys := SYSTEM, KOSAPI; |
4 | - | ||
5 | PROCEDURE WindowRedrawStatus(p: INTEGER); |
4 | |
6 | VAR res: INTEGER; |
5 | PROCEDURE WindowRedrawStatus(p: INTEGER); |
7 | BEGIN |
6 | BEGIN |
Line 8... | Line 7... | ||
8 | res := KOSAPI.sysfunc2(12, p) |
7 | KOSAPI.sysfunc2(12, p) |
9 | END WindowRedrawStatus; |
- | |
10 | 8 | END WindowRedrawStatus; |
|
11 | PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER); |
9 | |
12 | VAR res: INTEGER; |
10 | PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER); |
Line 13... | Line 11... | ||
13 | BEGIN |
11 | BEGIN |
14 | res := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
- | |
15 | END DefineAndDrawWindow; |
12 | KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
16 | 13 | END DefineAndDrawWindow; |
|
17 | PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR); |
14 | |
Line 18... | Line 15... | ||
18 | VAR res: INTEGER; |
15 | PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR); |
19 | BEGIN |
16 | BEGIN |
20 | res := KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0) |
17 | KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0) |
Line 21... | Line 18... | ||
21 | END WriteTextToWindow; |
18 | END WriteTextToWindow; |
22 | - | ||
23 | PROCEDURE WaitForEvent(): INTEGER; |
19 | |
24 | RETURN KOSAPI.sysfunc1(10) |
20 | PROCEDURE WaitForEvent(): INTEGER; |
25 | END WaitForEvent; |
21 | RETURN KOSAPI.sysfunc1(10) |
Line 26... | Line 22... | ||
26 | 22 | END WaitForEvent; |
|
27 | PROCEDURE ExitApp; |
23 | |
28 | VAR res: INTEGER; |
24 | PROCEDURE ExitApp; |