vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 13:22:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

newt binding updated -- noch

Browse source 
Former-commit-id: 08668e2495
This commit is contained in:
Norayr Chilingarian 2015-02-21 14:23:26 +04:00
parent 3f82522841
commit a93d9cb261
2 changed files with 45 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/test/newt/newttest.Mod
View file

@ -1,13 +1,20 @@
MODULE newttest;
IMPORT newt;
VAR i : newt.Int32;
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();