| 0,0 → 1,50 |
|---|
| MODULE HW; |
| |
| IMPORT sys := SYSTEM, KOSAPI; |
| |
| PROCEDURE WindowRedrawStatus(p: INTEGER); |
| BEGIN |
| KOSAPI.sysfunc2(12, p) |
| END WindowRedrawStatus; |
| |
| PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER); |
| BEGIN |
| KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
| END DefineAndDrawWindow; |
| |
| PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR); |
| BEGIN |
| KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0) |
| END WriteTextToWindow; |
| |
| PROCEDURE WaitForEvent(): INTEGER; |
| RETURN KOSAPI.sysfunc1(10) |
| END WaitForEvent; |
| |
| PROCEDURE ExitApp; |
| BEGIN |
| KOSAPI.sysfunc1(-1) |
| END ExitApp; |
| |
| PROCEDURE draw_window(header, text: ARRAY OF CHAR); |
| BEGIN |
| WindowRedrawStatus(1); |
| DefineAndDrawWindow(200, 200, 200, 100, 0FFFFFFH, 51, 0, 0, sys.ADR(header)); |
| WriteTextToWindow(10, 10, 0FF0000H, text); |
| WindowRedrawStatus(2); |
| END draw_window; |
| |
| PROCEDURE Main(header, text: ARRAY OF CHAR); |
| BEGIN |
| WHILE TRUE DO |
| CASE WaitForEvent() OF |
| |1: draw_window(header, text) |
| |3: ExitApp |
| ELSE |
| END |
| END |
| END Main; |
| |
| BEGIN |
| Main("HW", "Hello, world!") |
| END HW. |