DEFINITION MODULE VT52;


(*#
#  All codes below are for use in VT52 compatibility mode.
#

altkeypad             Enter alternate keypad mode            ^[=
numkeypad             Exit alternate keypad mode             ^[>

setgr                 Use special graphics character set     ^[F
resetgr               Use normal US/UK character set         ^[G

cursorup              Move cursor up one line                ^[A
cursordn              Move cursor down one line              ^[B
cursorrt              Move cursor right one char             ^[C
cursorlf              Move cursor left one char              ^[D
cursorhome            Move cursor to upper left corner       ^[H
cursorpos(v,h)        Move cursor to v,h location            ^[Y<v><h>
revindex              Generate a reverse line-feed           ^[I

cleareol              Erase to end of current line           ^[K
cleareos              Erase to end of screen                 ^[J

ident                 Identify what the terminal is          ^[Z
identresp             Correct response to ident              ^[/Z

Cursor positioning
The ESC Y code was used to position the cursor anywhere on the screen, using two parameters
representing the X and Y coordinates of the cursor position, with the upper left corner of the screen being
position 1,1. These numbers were sent as ASCII characters of that value, adding 31. For instance, to
position the cursor at column 30 and line 20, you would add 31 to each value to get 61 and 51, then look
up those ASCII characters, = and 3 . The complete command would then be ESC Y 3 = (note the
row, column ordering, not X, Y).[10] Adding 31 ensures that the characters are shifted out of the control
range into the printable character range, so they will transmit properly.

Terminal identifier codes
The ESC Z command allowed the host computer to identify the capabilities of the terminal. There were
eight possible responses.
ModelWithout printerWith printer
VT50ESC / A(not available)
VT50HESC / HESC / J
VT52ESC / KESC / L
VT55ESC / EESC / E

Enter/exit ANSI mode (VT52)   ESC <

*)

PROCEDURE vt52;

PROCEDURE altkeypad; 
PROCEDURE numkeypad;

PROCEDURE setgr;
PROCEDURE resetgr; 

PROCEDURE cursorup;
PROCEDURE cursordn;
PROCEDURE cursorrt;
PROCEDURE cursorlf; 
PROCEDURE cursorhome;
PROCEDURE cursorpos(X : CARDINAL; y : CARDINAL); 
PROCEDURE revindex;

PROCEDURE cleareol;
PROCEDURE cleareos;

PROCEDURE ident;
PROCEDURE identresp;

PROCEDURE cls;

END VT52.