home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SYSPC22.ZIP / TITLEPG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-08  |  445 b   |  30 lines
  1. {
  2.    Please do not modify this module!  Thanks...
  3. }
  4.  
  5. overlay procedure titlepage;
  6. var cnt:integer;
  7.  
  8. procedure interrupt;
  9. begin
  10.   window (1,1,80,25);
  11.   textcolor (normbotcolor);
  12.   clrscr
  13. end;
  14.  
  15. function interrupted:boolean;
  16. var b:boolean;
  17. begin
  18.   b:=carrier or keyhit;
  19.   interrupted:=b;
  20.   if b then interrupt
  21. end;
  22.  
  23. begin
  24.   interrupt;
  25.   setparam (usecom,defbaudrate,false);
  26.   setupmodem;
  27.   interrupt;
  28.   interrupt
  29. end;
  30.