kolibrios/programs/develop/oberon07/samples/HW.ob07

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.