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

MODULE Essai2;

IMPORT helper, tigr;

VAR
    a      : tigr.TPixelType;
    screen : tigr.TigrPtr;

BEGIN
    a := helper.tigrRGB(80H, 90H, 0A0H);
    screen := tigr.tigrWindow(200, 200, "Essai2", 0);
    tigr.tigrClear(screen, a);
    tigr.tigrUpdate(screen);
    WHILE (NOT (tigr.tigrClosed(screen) > 0)) AND
          (NOT (tigr.tigrKeyDown(screen, tigr.TK_ESCAPE) > 0)) DO
    END;
    tigr.tigrFree(screen)
END Essai2.