home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOTDEMO.ZIP / DEMOV1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  957 b   |  46 lines
  1. program DemoOverlay1;
  2. {demov - 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 totSYS}
  11. {$O TOTLOOK}
  12. {$O totINPUT}
  13. {$O totFAST}
  14. {$O totWIN}
  15. {$O totIO1}
  16. {$O totMSG}
  17.  
  18. Var
  19.    MsgWin : MessageOBJ;
  20.  
  21. begin
  22.    OvrInit('DEMOV1.OVR');   {initialize the overlay}
  23.    OvrInitEMS;
  24.    SYSInit;                 {initialize the Toolkit units}
  25.    LOOKInit;
  26.    INPUTInit;
  27.    FASTInit;
  28.    WINInit;
  29.    IO1Init;
  30.    MSGInit;
  31.    Screen.Clear(white,'░'); {paint the screen}
  32.    with MsgWin do
  33.    begin
  34.       Init(1,' Message ');
  35.       AddLine('');
  36.       AddLine('The message unit provides a');
  37.       AddLine('very easy way of displaying');
  38.       AddLine('pop-up messages in a move-');
  39.       AddLine('able window.');
  40.       AddLine('');
  41.       Show;
  42.       Done;
  43.    end;
  44. end.
  45.  
  46.