home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
tot5.zip
/
DEMOV2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
902b
|
42 lines
program DemoOverlay2;
{demov2 - be sure that the OVERLAY compiler directive is enabled
in the TOTFLAGS.INC file before compiling}
{$I TOTFLAGS.INC}
Uses OVERLAY, DOS, CRT,
totSYS, totLOOK, totINPUT, totFAST, totWIN, totIO1, totMSG;
{$O totWIN}
{$O totIO1}
{$O totMSG}
Var
MsgWin : MessageOBJ;
begin
OvrInit('DEMOV2.OVR'); {initialize the overlay}
OvrInitEMS;
SYSInit; {initialize the Toolkit units}
LOOKInit;
INPUTInit;
FASTInit;
WINInit;
IO1Init;
MSGInit;
Screen.Clear(white,'░'); {paint the screen}
with MsgWin do
begin
Init(1,' Message ');
AddLine('');
AddLine('The message unit provides a');
AddLine('very easy way of displaying');
AddLine('pop-up messages in a move-');
AddLine('able window.');
AddLine('');
Show;
Done;
end;
end.