home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / hitech / vt52.def < prev    next >
Encoding:
Modula Definition  |  1988-10-03  |  2.4 KB  |  89 lines
  1. DEFINITION MODULE VT52;
  2. (*-------------------------------------------------------------------*
  3.  * Der ATARI emuliert über das BIOS das Terminal VT-52 von Digital   *
  4.  * Equipment Corporation.                                            *
  5.  * Dieses Modul umfa₧t Prozeduren zur Ansteuerung dieses Terminals.  *
  6.  * Bei der Anwendung dieses Moduls sollte der Mauszeiger abge-       *
  7.  * schaltet werden.                                                  *
  8.  * Zur Löschen des Bildschirms sollte zuerst die Prozedur ClearHome  *
  9.  * aufgerufen werden, dann darf das anwendende Programm auch *.PRG   *
  10.  * hei₧en.                                                           *
  11.  *-------------------------------------------------------------------*)
  12.  
  13. FROM SYSTEM IMPORT BYTE;
  14.  
  15. PROCEDURE CursorDownScroll;
  16. (* Cursor eine Zeile nach unten, Schirminhalt hoch, wenn in Zeile 24 *)
  17.  
  18. PROCEDURE CursorUp;
  19. (* Cursor eine Zeile nach oben *)
  20.  
  21. PROCEDURE CursorDown;
  22. (* Cursor eine Zeile nach unten *)
  23.  
  24. PROCEDURE CursorRight;
  25. (* Cursor eine Spalte nach rechts *)
  26.  
  27. PROCEDURE CursorLeft;
  28. (* Cursor eine Spalte nach links *)
  29.  
  30. PROCEDURE ClearHome;
  31. (* Löscht den Bildschirm und setzt den Cursor auf (0,0) *)
  32.  
  33. PROCEDURE CursorHome;
  34. (* Setzt den Cursor auf (0,0) *)
  35.  
  36. PROCEDURE CursorUpScroll;
  37. (* Cursor eine Zeile nach oben, BS-Inhalt runter, wenn in Zeile 0 *)
  38.  
  39. PROCEDURE EndOfScreen;
  40. (* Löscht von aktueller Cursorposition bis Ende des BS. *)
  41.  
  42. PROCEDURE EndOfLine;
  43. (* Löscht von aktueller Cursorposition bis Zeilenende. *)
  44.  
  45. PROCEDURE InsertLine;
  46. (* Fügt vor aktueller Zeile eine Zeile ein, schiebt die folgenden runter.*)
  47.  
  48. PROCEDURE DeleteLine;
  49. (* Löscht aktuelle Zeile und schiebt nachfolgende Zeilen hoch. *)
  50.  
  51. PROCEDURE GotoXY (x, y: CARDINAL);
  52. (* Positioniert den Cursor auf (0,0). *)
  53.  
  54. PROCEDURE StartOfScreen;
  55. (* Löscht von (0,0) bis zum Cursor. *)
  56.  
  57. PROCEDURE CursorOn;
  58. (* Cursor einschalten *)
  59.  
  60. PROCEDURE CursorOff;
  61. (* Cursor ausschalten *)
  62.  
  63. PROCEDURE SaveCursor;
  64. (* Position des Cursors speichern *)
  65.  
  66. PROCEDURE RestoreCursor;
  67. (* Cursor wird auf die gespeicherte Position gesetzt *)
  68.  
  69. PROCEDURE ClearLine;
  70. (* Löscht aktuelle Zeile *)
  71.  
  72. PROCEDURE StartOfLine;
  73. (* Loescht vom Zeilenanfang bis zum Cursor. *)
  74.  
  75. PROCEDURE InverseOn;
  76. (* Inverse Schrift ein *)
  77.  
  78. PROCEDURE InverseOff;
  79. (* Inverse Schrift aus. *)
  80.  
  81. PROCEDURE WrapOn;
  82. (* Schaltet den automatischen Überlauf ein. *)
  83.  
  84. PROCEDURE WrapOff;
  85. (* Schaltet den automatischen Überlauf aus. *)
  86.  
  87. END VT52.
  88.  
  89.