home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / pascal / totdem11 / plusov1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  643 b   |  29 lines
  1. program DemoOverlay1;
  2. {demov - be sure that the OVERLAYINIT compiler directive is enabled
  3.  in the TOTFLAGS.INC file before compiling}
  4.  
  5. {$I TOTFLAGS.INC}
  6.  
  7. Uses DOS, CRT,
  8.      totSYS, totLOOK, totINPUT, totFAST, totWIN, totIO1, totMSG;
  9.  
  10. Var
  11.    MsgWin : MessageOBJ;
  12.  
  13. begin
  14.    Screen.Clear(white,'░'); {paint the screen}
  15.    with MsgWin do
  16.    begin
  17.       Init(1,' Message ');
  18.       AddLine('');
  19.       AddLine('The message unit provides a');
  20.       AddLine('very easy way of displaying');
  21.       AddLine('pop-up messages in a move-');
  22.       AddLine('able window.');
  23.       AddLine('');
  24.       Show;
  25.       Done;
  26.    end;
  27. end.
  28.  
  29.