home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / ada / ada_lrm3.arc / LR3BVA.SRC < prev    next >
Text File  |  1989-03-28  |  384b  |  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.