Tigr-m2/modula2/examples/hello/hello.mod

MODULE hello;

FROM tigr IMPORT TigrPtr, tigrWindow, tigrFree, tigrClosed, tigrClear,
                tigrUpdate, TPixelType, tigrPrint, tfont, TK_ESCAPE, tigrKeyDown;
FROM helper IMPORT tigrRGB;

VAR
    screen : TigrPtr;
    bg     : TPixelType;

BEGIN
    screen := tigrWindow(320, 240, "Hello", 0);
    bg := tigrRGB(80H, 90H, 0A0H);
    WHILE (NOT (tigrClosed(screen) > 0)) AND (NOT (tigrKeyDown(screen, TK_ESCAPE) > 0)) DO
        tigrClear(screen, bg);
        tigrPrint(screen, tfont, 120, 110, tigrRGB(0FFH, 0FFH, 0FFH), "Hello, world.");
        tigrUpdate(screen);
    END;
    tigrFree(screen);
END hello.