View \OVRCALL.PAS

Full Source Code To Vision Bbs System

Submitted By: WEBMASTER
Rating: (Not rated) (Rate It)

Unit OvrCall;
{$O+,F+}

Interface

Uses
Overlay,configrt;

Implementation
Begin
readconfig;
OvrInit('VISION.OVR');
if configset.usems then ovrinitems;
if (ovrresult<>ovrok) and configset.usems then begin
writeln('Not enough EMS to put Overlay into memory!');
halt(4);
end;
If OvrResult <> OvrOK then
Begin
WriteLn('Overlay file not found.');
Halt(4);
End;
End.

Home About PH Privacy Statement Contact Us Advertise Here

© 1996-2008 CommunityHeaven LLC. All rights reserved. Reproduction in whole or in part, in any form or medium without express written permission is prohibited.
Violators of this policy may be subject to legal action. Please read our Terms Of Use and Privacy Statement for more information.
North American business development: Nicolai Wadstrom. Publisher: Lars Hagelin.