mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 09:52:24 +00:00
21 lines
436 B
Modula-2
21 lines
436 B
Modula-2
MODULE newttest;
|
|
|
|
IMPORT newt, oocIntStr;
|
|
VAR i, j, k : newt.Int32;
|
|
str : ARRAY 32 OF CHAR;
|
|
BEGIN
|
|
i := newt.Init();
|
|
newt.Cls();
|
|
str := "hello world!";
|
|
newt.DrawRootText(5, 7, str);
|
|
newt.GetScreenSize(i, j);
|
|
oocIntStr.IntToStr(i, str);
|
|
newt.DrawRootText(5, 9, str);
|
|
str := "x";
|
|
newt.DrawRootText(7, 9, str);
|
|
oocIntStr.IntToStr(j, str);
|
|
newt.DrawRootText(9, 9, str);
|
|
newt.WaitForKey();
|
|
newt.Delay(30);
|
|
i := newt.Finished();
|
|
END newttest.
|