xterm.def

DEFINITION MODULE XTerm;
TYPE STRINGSEQ=ARRAY [0..12] OF CHAR;
     TERMTYPE=(INVALID,VT52,VT100,ANSI,KAYPRO,ADM31,C128,MEMOTECH,CPC,LAST);
     ESCAPE=(PLAIN,REVERSE,BLINK,NOBLINK,UNDERLINE,NOUNDERLINE,DARK,NODARK,
             CLS,HOME,CLREOL,INSLINE,DELLINE,BEEP,CURSORON,CURSOROFF,TERMRESET,
             BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW,DARKPURPLE,BROWN,
             LIGHTRED,DARKCYAN,DARKGREY,LIGHTGREEN,LIGHTBLUE,LIGHTGREY);
VAR SEQ:ARRAY ESCAPE OF STRINGSEQ;
VAR CursorXY:PROCEDURE(CARDINAL,CARDINAL);
VAR HasColors:BOOLEAN;
PROCEDURE String2TermType(name:ARRAY OF CHAR):TERMTYPE;
PROCEDURE GetTermType():TERMTYPE;
PROCEDURE SetTermType(t:TERMTYPE);
PROCEDURE PrintTermType(t:TERMTYPE);
PROCEDURE PrintLnTermType(t:TERMTYPE);
PROCEDURE PrintTermTypeList();
PROCEDURE AskTermType();
PROCEDURE ResetTerm();

PROCEDURE ClrScr();
PROCEDURE Home();
PROCEDURE ClrEol();
PROCEDURE InsLine();
PROCEDURE DelLine();
PROCEDURE ShowCursor();
PROCEDURE HideCursor();
PROCEDURE PlotBox(x1,y1,x2,y2:CARDINAL;h,v:BOOLEAN);
PROCEDURE Center(y:CARDINAL;s:ARRAY OF CHAR);
PROCEDURE InputCardinal
          (x,y:CARDINAL;VAR num:CARDINAL;l:CARDINAL):BOOLEAN;

PROCEDURE RandomizeShuffle();

END XTerm.