home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / misc / ada1110b.lha / Examples / Dine / vtbody.ada < prev    next >
Encoding:
Text File  |  1992-03-02  |  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.