home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / WINDOM2.ARC / TERMATT.DEF < prev    next >
Text File  |  1990-07-21  |  2KB  |  72 lines
  1. DEFINITION MODULE TermAtt;
  2. (*                                                             *)
  3. (*(C)Copyright 1987 Bob Catiller all commercial rights reserved*)
  4. (*                                                             *)
  5.  
  6. (* This module contains procedures for activating *)
  7. (* special terminal attributes. *)
  8. (* The module is presently set up for the Wyse 50 *)
  9. (* terminal. *)
  10.  
  11. VAR
  12.   r,c: CHAR;
  13. VAR
  14.   escape, Valid: BOOLEAN;
  15.  
  16. PROCEDURE IReadChar():CHAR;
  17. (* Time share independent routines while waiting *)
  18.  
  19. PROCEDURE RangeCard(min,max: CARDINAL):CARDINAL;
  20. (* Reads a cardinal with the selected input range. *)
  21.  
  22. PROCEDURE IReadCard():CARDINAL;
  23. (* Reads a cardinal value from the terminal. *)
  24.  
  25. PROCEDURE IReadString(VAR str: ARRAY OF CHAR);
  26. (* Reads a 2 character numeric string from the terminal. *)
  27.  
  28. PROCEDURE GetRC();
  29. (* Gets current Row (r) and Column (c) cursor *)
  30.  
  31. PROCEDURE SetRC(row,col: CHAR);
  32. (* Set selected Row (row) and Column (col) cursor address *)
  33.  
  34. PROCEDURE CursorOn();
  35. (* Turns on the terminals cursor. *)
  36.  
  37. PROCEDURE CursorOff();
  38. (* Turns off the terminals cursor. *)
  39.  
  40. PROCEDURE SetAtt(ch: CHAR);
  41. (* Set selected attribute (determined by ch) *)
  42. (* at current cursor position. *)
  43. (* See Wyse 50 user manual for character codes. *)
  44.  
  45. PROCEDURE GraphicOn();
  46. (* Turn on graphics display mode. *)
  47.  
  48. PROCEDURE GraphicOff();
  49. (* Return to normal (non-graphic) display mode. *)
  50.  
  51. PROCEDURE GraphicChar(ch:CHAR);
  52. (* Send a character (ch) as a graphic character. *)
  53.  
  54. PROCEDURE RevVideo();
  55. (* Set reverse video attribute at current cursor *)
  56. (* position on terminal. *)
  57.  
  58. PROCEDURE DimRevVideo();
  59. (* Set dim & reverse video attribute at current cursor *)
  60. (* position on terminal. *)
  61.  
  62. PROCEDURE NormVideo();
  63. (* Return to normal (non-reverse video) mode. *)
  64.  
  65. PROCEDURE Dim();
  66. (* Set dim video attribute. *)
  67.  
  68. PROCEDURE Blink();
  69. (* Set blink video attribute. *)
  70.  
  71. END TermAtt.
  72.