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 / CPM / TURBOM2 / TELE.LBR / TELE.DZF / TELE.DEF
Text File  |  2000-06-30  |  2KB  |  82 lines
  1. DEFINITION MODULE Tele;
  2.  
  3. (* Some graphics functions for the Televideo 955 terminal *)
  4. (* Glenn Brooke 6/17/87 *)
  5.  
  6. PROCEDURE GraphicModeOn;
  7. (* turns on graphics characters *)
  8.  
  9. PROCEDURE GraphicModeOff;
  10. (* back to ASCII characters *)
  11.  
  12. PROCEDURE HalfIntensity;
  13. (* select half intensity characters -- until de-selected *)
  14.  
  15. PROCEDURE FullIntensity;
  16.  
  17. PROCEDURE Bell;
  18. (* rings bell at keyboard *)
  19.  
  20. PROCEDURE LockKeyboard;
  21. (* prevents keyboard use *)
  22.  
  23. PROCEDURE UnlockKeyboard;
  24. (* releases keyboard to user *)
  25.  
  26. PROCEDURE Columns(x : CARDINAL);
  27. (* select 80 or 132 columns *)
  28.  
  29. PROCEDURE EraseToEndOfPage;
  30. (* erases screen from cursor position to end of screen *)
  31.  
  32. PROCEDURE CharAttribOff;
  33.   (* terminal attributes set to not take up a character space *)
  34.   (* CALL THIS BEFORE GRAPHICS CHARACTER WORK! *)
  35.  
  36. PROCEDURE CharAttribOn;
  37.  
  38. PROCEDURE LightBackground;
  39. (* entire screen goes to dark letters on light background *)
  40.  
  41. PROCEDURE DarkBackground;
  42. (* light letters on dark background -- the usual default *)
  43.  
  44.  
  45. PROCEDURE CursorAttrib(p : CARDINAL);
  46. (*  sets cursor style
  47.        p = 0   cursor not displayed
  48.            1   blinking block cursor
  49.            2   steady block cursor
  50.            3   blinking underscore cursor
  51.            4   steady underscore cursor      *)
  52.  
  53.  
  54. PROCEDURE ReverseBackground;
  55. (* background goes to opposite of current background; remains so until
  56.    this procedure is called again.  Use this to write simple messages. *)
  57.  
  58. PROCEDURE Underline;
  59. (* subsequent text will appear underlined with continuous line *)
  60.  
  61. PROCEDURE ReverseUnderline;
  62. (* subsequent text displayed underlined and in reverse contrast *)
  63.  
  64. PROCEDURE ReverseBlink;
  65. (* good for error messages -- subsequent text blinks in reverse contrast *)
  66.  
  67.  
  68. PROCEDURE Invisible;
  69. (* for passwords, etc -- subsequent text is not displayed onscreen *)
  70.  
  71. PROCEDURE BoxScreen(Heavy : BOOLEAN; Bright : BOOLEAN);
  72. (* draws box around entire screen *)
  73. (*  --- suggest you call ClearScreen first! *)
  74. (* set Heavy = TRUE for thick box, FALSE for thin line box *)
  75. (* set Bright = TRUE for normal intensity, FALSE for half intensity *)
  76.  
  77.  
  78. PROCEDURE WriteReversed(s : ARRAY OF CHAR);
  79. (* write string s in reversed mode of background -- good for error msgs *)
  80.  
  81. END Tele.
  82.