diff --git a/src/test/newt/newt.Mod b/src/test/newt/newt.Mod
index 9b2e59c2..f1c701c6 100644
--- a/src/test/newt/newt.Mod
+++ b/src/test/newt/newt.Mod
@@ -2,6 +2,36 @@ MODULE newt;
 
 IMPORT SYSTEM;
 
+CONST
+
+NEWTvCOLORSETvROOT *=			2;
+NEWTvCOLORSETvBORDER *=			3;
+NEWTvCOLORSETvWINDOW*=			4;
+NEWTvCOLORSETvSHADOW*=			5;
+NEWTvCOLORSETvTITLE*=			6;
+NEWTvCOLORSETvBUTTON*=			7;
+NEWTvCOLORSETvACTBUTTON*=		8;
+NEWTvCOLORSETvCHECKBOX*=		9;
+NEWTvCOLORSETvACTCHECKBOX*=		10;
+NEWTvCOLORSETvENTRY*=			11;
+NEWTvCOLORSETvLABEL*=			12;
+NEWTvCOLORSETvLISTBOX*=			13;
+NEWTvCOLORSETvACTLISTBOX*=		14;
+NEWTvCOLORSETvTEXTBOX*=			15;
+NEWTvCOLORSETvACTTEXTBOX*=		16;
+NEWTvCOLORSETvHELPLINE*=		17;
+NEWTvCOLORSETvROOTTEXT*=		18;
+NEWTvCOLORSETvEMPTYSCALE*=		19;
+NEWTvCOLORSETvFULLSCALE*=		20;
+NEWTvCOLORSETvDISENTRY*=		21;
+NEWTvCOLORSETvCOMPACTBUTTON*=		22;
+NEWTvCOLORSETvACTSELLISTBOX*=		23;
+NEWTvCOLORSETvSELLISTBOX*=		24;
+
+NEWTvARGvLAST*=				-100000;
+NEWTvARGvAPPEND*=			-1;
+
+
 TYPE Int32* = INTEGER;
      Int64* = LONGINT;
 
@@ -35,6 +65,12 @@ PROCEDURE -PushHelpLine*(VAR text: ARRAY OF CHAR)
 PROCEDURE -PopHelpLine*()
    "newtPopHelpLine()";
 
+PROCEDURE -Bell*()
+   "newtBell()";
+
+PROCEDURE -GetScreenSize*(VAR cols, rows: Int32)
+   "newtGetScreenSize(cols, rows)";
+
 BEGIN
 
 
diff --git a/src/test/newt/newttest.Mod b/src/test/newt/newttest.Mod
index bd3423c6..fdfcd25d 100644
--- a/src/test/newt/newttest.Mod
+++ b/src/test/newt/newttest.Mod
@@ -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();