home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / TOT11.ZIP / TOTDEM11.ZIP / DEMWI2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  415b  |  24 lines
  1. program DemoWindowTwo;
  2. {DEMWI2 - a moveable window}
  3.  
  4. Uses DOS,CRT,
  5.      totFAST, totINPUT, totWIN;
  6.  
  7. var
  8.   MyWindow: MoveWinOBJ;
  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.       Draw;
  17.       Screen.WriteLn('Hello Mum');
  18.       Repeat
  19.          WinGetKey(K,X,Y);
  20.       until (K = 600) or (K= 27);
  21.       Done;
  22.    end;
  23. end.
  24.