52 lines
1.5 KiB
Plaintext
52 lines
1.5 KiB
Plaintext
|
||
{ Copyright (c) 1985, 88 by Borland International, Inc. }
|
||
|
||
{$F+,O+}
|
||
program OvrDemo;
|
||
(*
|
||
This is a simple example of how to use the new overlay system. For
|
||
more complete documentation, refer to the overlay chapter in the
|
||
Turbo Pascal manual. Here's a quick checklist:
|
||
|
||
1. Turn "far calls" on {$F+} (to be safe, in all overlaid units and
|
||
the main program).
|
||
2. Turn "Overlays allowed" on {$O+}
|
||
3. Use Overlay unit in main program.
|
||
4. Issue separate {$O} directives for each overlaid unit.
|
||
5. Make sure to call OvrInit and pass the name of the .OVR file.
|
||
6. Test OvrResult after OvrInit calls (optional).
|
||
7. Compile to disk (cannot run in memory).
|
||
|
||
Here the overlay error returns for quick reference:
|
||
|
||
const
|
||
ovrOk = 0; { Success }
|
||
ovrError = -1; { Overlay manager error }
|
||
ovrNotFound = -2; { Overlay file not found }
|
||
ovrNoMemory = -3; { Not enough memory for overlay buffer }
|
||
ovrIOError = -4; { Overlay file I/O error }
|
||
ovrNoEMSDriver = -5; { EMS driver not installed }
|
||
ovrNoEMSMemory = -6; { Not enough EMS memory }
|
||
*)
|
||
|
||
uses
|
||
Overlay, Crt, OvrDemo1, OvrDemo2;
|
||
|
||
{$O OvrDemo1} { overlay 'em }
|
||
{$O OvrDemo2}
|
||
|
||
begin
|
||
TextAttr := White;
|
||
ClrScr;
|
||
OvrInit('OVRDEMO.OVR'); { init overlay system, reserve heap space }
|
||
if OvrResult <> 0 then
|
||
begin
|
||
Writeln('Overlay error: ', OvrResult);
|
||
Halt(1);
|
||
end;
|
||
repeat
|
||
Write1;
|
||
Write2;
|
||
until KeyPressed;
|
||
end.
|
||
|