home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / TOTDEM.ZIP / DEMWI3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  545b  |  29 lines
  1. program DemoWindowThree;
  2. {DEMWI3 - WinOBJ settings}
  3.  
  4. Uses DOS,CRT,
  5.      totFAST, totINPUT, totWIN;
  6.  
  7. var
  8.   MyWindow: WinOBJ;
  9.   K: word;
  10.   X,Y: byte;
  11. begin
  12.    Screen.Clear(white,'░'); {paint the screen}
  13.    with MyWindow do
  14.    begin
  15.       Init;
  16.       SetSize(5,5,25,10,3);
  17.       SetTitle(' Greetings ');
  18.       SetClose(false);
  19.       SetRemove(false);
  20.       SetColors(94,95,89,80);
  21.       Draw;
  22.       Screen.WritePlain(1,1,'Hello Mum');
  23.       Repeat
  24.          WinGetKey(K,X,Y);
  25.       until (K=27);
  26.       Done;
  27.    end;
  28. end.
  29.