DEFINITION MODULE VT52Esc;

FROM SYSTEM IMPORT ADDRESS , BYTE , CODE , SETREG , REGISTER;

EXPORT QUALIFIED VT52Up, VT52Down, VT52Right, VT52Left, VT52Clear,
                 VT52Home, VT52UpInsert, VT52ClearBelow, VT52ClearRestLine,
                 VT52InsertLine, VT52DeleteLine, VT52Position,
                 VT52SelectCharColor, VT52SelectBackColor, VT52ClearToCursor,
                 VT52EnableCursor, VT52DisableCursor, VT52SavePosition,
                 VT52RestorePosition, VT52ClearLine, VT52ClearFromStart,
                 VT52ReverseOn, VT52ReverseOff, VT52OverflowOn,
                 VT52OverflowOff; 


PROCEDURE VT52Up ( number : CARDINAL );      (* VT52 Emulator esc "A" *)

PROCEDURE VT52Down ( number : CARDINAL );    (* VT52 Emulator esc "B" *)

PROCEDURE VT52Right ( number : CARDINAL );   (* VT52 Emulator esc "C" *)

PROCEDURE VT52Left ( number : CARDINAL );    (* VT52 Emulator esc "D" *)

PROCEDURE VT52Clear ();                      (* VT52 Emulator esc "E" *)

PROCEDURE VT52Home ();                       (* VT52 Emulator esc "H" *)

PROCEDURE VT52UpInsert ( number : CARDINAL );
                                             (* VT52 Emulator esc "I" *)

PROCEDURE VT52ClearBelow ();                 (* VT52 Emulator esc "J" *)

PROCEDURE VT52ClearRestLine ();              (* VT52 Emulator esc "K" *)

PROCEDURE VT52InsertLine ();                 (* VT52 Emulator esc "L" *)

PROCEDURE VT52DeleteLine ();                 (* VT52 Emulator esc "M" *)

PROCEDURE VT52Position ( line, column : CARDINAL );
                                             (* VT52 Emulator esc "Y" *)

PROCEDURE VT52SelectCharColor ( color : CARDINAL );
                                             (* VT52 Emulator esc "b" *) 

PROCEDURE VT52SelectBackColor ( color : CARDINAL );
                                             (* VT52 Emulator esc "c" *)

PROCEDURE VT52ClearToCursor ();              (* VT52 Emulator esc "d" *)

PROCEDURE VT52EnableCursor ();               (* VT52 Emulator esc "e" *)

PROCEDURE VT52DisableCursor ();              (* VT52 Emulator esc "f" *)

PROCEDURE VT52SavePosition ();               (* VT52 Emulator esc "j" *)

PROCEDURE VT52RestorePosition ();            (* VT52 Emulator esc "k" *)

PROCEDURE VT52ClearLine ();                  (* VT52 Emulator esc "l" *)

PROCEDURE VT52ClearFromStart ();             (* VT52 Emulator esc "o" *)

PROCEDURE VT52ReverseOn ();                  (* VT52 Emulator esc "p" *)

PROCEDURE VT52ReverseOff ();                 (* VT52 Emulator esc "q" *)

PROCEDURE VT52OverflowOn ();                 (* VT52 Emulator esc "v" *)

PROCEDURE VT52OverflowOff ();                (* VT52 Emulator esc "w" *)




END VT52Esc.

 offgibit(bitmask : integer); xbios(30);
procedure