home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / GLASSTTY.DEF < prev    next >
Text File  |  1996-09-23  |  3KB  |  72 lines
  1. DEFINITION MODULE GlassTTY;
  2.  
  3.         (********************************************************)
  4.         (*                                                      *)
  5.         (*           Simple screen output routines.             *)
  6.         (*                                                      *)
  7.         (*  This module handles screen output at a very low     *)
  8.         (*  level, without supplying the advanced features      *)
  9.         (*  which may be found in, for example, module Windows. *)
  10.         (*  It is intended for things like error message        *)
  11.         (*  output, and is designed for compactness rather      *)
  12.         (*  than comprehensiveness.                             *)
  13.         (*                                                      *)
  14.         (*  Programmer:         P. Moylan                       *)
  15.         (*  Last edited:        23 September 1996               *)
  16.         (*  Status:             OK                              *)
  17.         (*                                                      *)
  18.         (********************************************************)
  19.  
  20. FROM SYSTEM IMPORT
  21.     (* type *)  CARD8, BYTE, ADDRESS;
  22.  
  23. PROCEDURE WriteChar (ch: CHAR);
  24.  
  25.     (* Writes one character. *)
  26.  
  27. PROCEDURE WriteString (text: ARRAY OF CHAR);
  28.  
  29.     (* Writes a string of characters.   *)
  30.  
  31. PROCEDURE WriteLn;
  32.  
  33.     (* Moves the screen cursor to the beginning of the next line,       *)
  34.     (* scrolling if necessary.                                          *)
  35.  
  36. PROCEDURE SetCursor (row, column: CARDINAL);
  37.  
  38.     (* Moves the screen cursor to the specified row and column.         *)
  39.  
  40. PROCEDURE SaveCursor;
  41.  
  42.     (* Remembers the current cursor position, for use by a subsequent   *)
  43.     (* call to RestoreCursor.  Note that nesting is not supported, i.e. *)
  44.     (* a call to SaveCursor destroys the information saved by any       *)
  45.     (* earlier call to SaveCursor.                                      *)
  46.  
  47. PROCEDURE RestoreCursor;
  48.  
  49.     (* Sets the cursor back to where it was at the time of the last     *)
  50.     (* call to SaveCursor.                                              *)
  51.  
  52. PROCEDURE WriteHexByte (number: CARD8);
  53.  
  54.     (* Writes its argument as a two-digit hexadecimal number.           *)
  55.  
  56. PROCEDURE WriteHexWord (number: CARDINAL);
  57.  
  58.     (* Writes its argument as a four-digit hexadecimal number.          *)
  59.  
  60. PROCEDURE WriteInt (number: INTEGER);
  61. PROCEDURE WriteCard (number: CARDINAL);
  62. (*PROCEDURE WriteLongCard (number: LONGCARD);*)
  63.  
  64.     (* Writes a number to the screen.   *)
  65.  
  66. PROCEDURE WriteAddress (addr: ADDRESS);
  67.  
  68.     (* Writes a segmented address to the screen.        *)
  69.  
  70. END GlassTTY.
  71.  
  72.