home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adav313.zip / gnat-3_13p-os2-bin-20010916.zip / emx / gnat / examples / screen.ads < prev    next >
Text File  |  2000-07-19  |  746b  |  34 lines
  1. --::::::::::
  2. --screen.ads
  3. --::::::::::
  4. package Screen is
  5.  
  6.   -- simple ANSI terminal emulator
  7.   -- Michael Feldman, The George Washington University
  8.   -- July, 1995
  9.  
  10.   ScreenHeight : constant Integer := 24;
  11.   ScreenWidth : constant Integer := 80;
  12.  
  13.   subtype Height is Integer range 1..ScreenHeight;
  14.   subtype Width  is Integer range 1..ScreenWidth;
  15.  
  16.   type Position is record
  17.     Row   : Height := 1;
  18.     Column: Width := 1;
  19.   end record;
  20.  
  21.   procedure Beep; 
  22.   -- Pre:  none
  23.   -- Post: the terminal beeps once
  24.   
  25.   procedure ClearScreen; 
  26.   -- Pre:  none
  27.   -- Post: the terminal screen is cleared
  28.   
  29.   procedure MoveCursor (To: in Position);
  30.   -- Pre:  To is defined
  31.   -- Post: the terminal cursor is moved to the given position
  32.   
  33. end Screen;   
  34.