{ESCape-FUNKTIONEN}
{ENTNOMMEN AUS:  HANDBUCH FUER DEN PROGRAMMIERER S.74}
TYPE WORD=STRING[255];
CONST ESC=#27;
PROCEDURE PSET(X,Y:INTEGER);
BEGIN
  WRITE(ESC,'A',CHR(LO(X)),CHR(HI(X)),CHR(Y));
END;
PROCEDURE PRES(X,Y:INTEGER);
BEGIN
  WRITE(ESC,'B',CHR(LO(X)),CHR(HI(X)),CHR(Y));
END;
PROCEDURE GFARB(F:INTEGER);
BEGIN
  WRITE(ESC,'C',CHR(F));
END;
PROCEDURE LINE(X1,Y1,X2,Y2:INTEGER);
BEGIN
  WRITE(ESC,'D',CHR(LO(X1)),CHR(HI(X1)),CHR(Y1),CHR(LO(X2)),CHR(HI(X2)),CHR(Y2));
END;
PROCEDURE CIRCL(X,Y,R:INTEGER);
BEGIN
  WRITE(ESC,'E',CHR(LO(X)),CHR(HI(X)),CHR(Y),CHR(R));
END;
PROCEDURE WINDOW(N:INTEGER);
BEGIN
  WRITE(ESC,'F',CHR(N));
END;
PROCEDURE SOUND(T1,V1,T2,V2,L,Z:INTEGER);
BEGIN
  WRITE(ESC,'G',CHR(T1),CHR(V1),CHR(T2),CHR(V2),CHR(L),CHR(Z));
END;
PROCEDURE COLORZ(F,H:INTEGER);
BEGIN
  WRITE(ESC,'H',CHR(F),CHR(H));
END;
PROCEDURE WININI(N,X1,Y1,X2,Y2:INTEGER);
BEGIN
  WRITE(ESC,'L',CHR(N),CHR(X1),CHR(Y1),CHR(X2),CHR(Y2));
END;
PROCEDURE CLSG;
BEGIN
  WRITE(ESC,'M');
END;
PROCEDURE INK(F:INTEGER);
BEGIN
  WRITE(ESC,'N',CHR(F));
END;
PROCEDURE BACK(H:INTEGER);
BEGIN
  WRITE(ESC,'O',CHR(H));
END;
PROCEDURE BSMODE;
BEGIN
  WRITE(ESC,'P');
END;
PROCEDURE READ1(A:INTEGER);
BEGIN
  WRITE(ESC,'Q',CHR(LO(A)),CHR(HI(A)));
END;
PROCEDURE READN(A,N:INTEGER);
BEGIN
  WRITE(ESC,'R',CHR(LO(A)),CHR(HI(A)),CHR(N));
END;
PROCEDURE WRITE1(A,B:INTEGER);
BEGIN
  WRITE(ESC,'S',CHR(LO(A)),CHR(HI(A)),CHR(B));
END;

PROCEDURE WRITEN(A,N:INTEGER;INHALT:WORD);
BEGIN
  WRITE(ESC,'T',CHR(LO(A)),CHR(HI(A)),CHR(LO(N)),CHR(HI(N)),INHALT);
END;
PROCEDURE GOSUB(A:INTEGER);
BEGIN
  WRITE(ESC,'U',CHR(LO(A)),CHR(HI(A)));
END;
PROCEDURE CAOSBS(B:INTEGER);
BEGIN
  WRITE(ESC,'V',CHR(B));
END;
PROCEDURE USOUT2(B:INTEGER);
BEGIN
  WRITE(ESC,'W',CHR(B));
END;
PROCEDURE USOUT3(B:INTEGER);
BEGIN
  WRITE(ESC,'X',CHR(B));
END;
PROCEDURE CAOSP(N:INTEGER);
BEGIN
  WRITE(ESC,'[',CHR(N));
END;
PROCEDURE EXIT;
BEGIN
  WRITE(ESC,'\');
END;
PROCEDURE ZSATZ;
BEGIN
  WRITE(ESC,']');
END;
PROCEDURE SCRMOD;
BEGIN
  WRITE(ESC,'^');
END;
PROCEDURE KBDMOD;
BEGIN
  WRITE(ESC,'_');
END;
PROCEDURE IRMEB(S:BYTE);
BEGIN
  WRITE(ESC,'`',CHR(S));
END;
PROCEDURE IRMHI;
BEGIN
  WRITE(ESC,'a');
END;
PROCEDURE IRMLO;
BEGIN
  WRITE(ESC,'b');
END;
PROCEDURE SWITCH(M,S:INTEGER);
BEGIN
  WRITE(ESC,'c',CHR(M),CHR(S));
END;
PROCEDURE PTEST(X:INTEGER);
BEGIN
  WRITE(ESC,'d',CHR(LO(X)),CHR(HI(X)));
END;
PROCEDURE FKEY(N:INTEGER);
BEGIN
  WRITE(ESC,'e',CHR(N));
END;
PROCEDURE CLREOS(Y:INTEGER);
BEGIN
 GOTOXY(1,Y);
 WRITE(#20);
END;
{-ENDE-}