home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tot5.zip / DEMOV2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  902b  |  42 lines

  1. program DemoOverlay2;
  2. {demov2 - be sure that the OVERLAY compiler directive is enabled
  3.  in the TOTFLAGS.INC file before compiling}
  4.  
  5. {$I TOTFLAGS.INC}
  6.  
  7. Uses OVERLAY, DOS, CRT,
  8.      totSYS, totLOOK, totINPUT, totFAST, totWIN, totIO1, totMSG;
  9.  
  10. {$O totWIN}
  11. {$O totIO1}
  12. {$O totMSG}
  13.  
  14. Var
  15.    MsgWin : MessageOBJ;
  16.  
  17. begin
  18.    OvrInit('DEMOV2.OVR');   {initialize the overlay}
  19.    OvrInitEMS;
  20.    SYSInit;                 {initialize the Toolkit units}
  21.    LOOKInit;
  22.    INPUTInit;
  23.    FASTInit;
  24.    WINInit;
  25.    IO1Init;
  26.    MSGInit;
  27.    Screen.Clear(white,'░'); {paint the screen}
  28.    with MsgWin do
  29.    begin
  30.       Init(1,' Message ');
  31.       AddLine('');
  32.       AddLine('The message unit provides a');
  33.       AddLine('very easy way of displaying');
  34.       AddLine('pop-up messages in a move-');
  35.       AddLine('able window.');
  36.       AddLine('');
  37.       Show;
  38.       Done;
  39.    end;
  40. end.
  41.  
  42.