home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / programi / adaed.lzh / Ada / Examples / Dine / vtbody.ada < prev    next >
Encoding:
Text File  |  1992-03-03  |  678 b   |  29 lines
  1. with TEXT_IO; use  TEXT_IO;
  2. package body VT100 is
  3.   use ASCII;
  4. ----------------------------------------------------------
  5. -- Procedures for drawing pictures on VT100
  6. -- ClearScreen and SetCursorAt are trminal-specific
  7. ----------------------------------------------------------
  8.  
  9.   procedure ClearScreen is
  10.   begin
  11. --      PUT( ESC & "[H[J" );
  12.         PUT( FF );
  13.   end ClearScreen;
  14.  
  15.   procedure SetCursorAt(A: WIDTH; D : DEPTH) is
  16.  
  17.   begin
  18.         NEW_LINE;
  19.         PUT( ESC & "[" );
  20.         PUT( D, 1 );
  21.         PUT( ';' );
  22.         PUT( A, 1 );
  23.         PUT( 'H' );
  24.   end SetCursorAt;
  25.  
  26. end VT100;
  27.  
  28. -- .......................................................................... --
  29.