home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / ADA_LRM3.ZIP / LR3BVA.SRC < prev    next >
Encoding:
Text File  |  1989-03-28  |  384 b   |  19 lines
  1. with TEXT_IO; use TEXT_IO; 
  2.  
  3. package body MACHINE_SPECIFIC is 
  4.  
  5.  
  6.   procedure CLS is 
  7.   -- author: George C. Harrison
  8.  
  9.   begin
  10.     null;
  11.     PUT_LINE(ASCII.ESC & "[2J"); 
  12.     PUT_LINE(ASCII.ESC & "[H"); 
  13.     PUT_LINE(ASCII.ESC & "[?5l"); 
  14.   end CLS; 
  15.  
  16.  
  17.  
  18. end MACHINE_SPECIFIC; 
  19.