home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 189.img / TCS120S.ZIP / INITOVR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-26  |  496b  |  23 lines
  1. {$R-,S-,I-,D-,F+,V-,B-,N-,L+ }
  2. {$M 65500,0,0 }
  3.  
  4. unit initovr;
  5.  
  6. interface
  7. implementation
  8.  
  9. uses crt,dos,overlay,
  10.      gentypes,configrt,modem,statret,gensubs,subs1,windows,subs2,textret,
  11.      mailret,userret,flags,mainr1,ansiedit,lineedit,chatstuf,
  12.      mainr2,overret1;
  13.  
  14. begin
  15.   ovrinit ('TCS.OVR');
  16.   if ovrresult <> 0 then overlayerror;
  17. { if valu(ovrmaxsize)>0 then
  18.    ovrsetbuf (valu(ovrmaxsize)) else
  19.    ovrsetbuf (80000);
  20.   if ovrresult <> 0 then overlayerror; }
  21. end.
  22.  
  23.