!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!        PERKIN ELMER CURSOR ADDRESSING ROUTINES

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

%EXTERNALROUTINESPEC PROMPT(%STRING (15) S)
%CONSTINTEGER ESC = 27


%EXTERNALROUTINE PEHOME
   PRINTCH(ESC);  PRINTSYMBOL('H')
%END


%EXTERNALROUTINE PECLEAR
   PRINTCH(ESC);  PRINTSYMBOL('K')
%END


%EXTERNALROUTINE PEUP
   PRINTCH(ESC);  PRINTSYMBOL('A')
%END


%EXTERNALROUTINE PEDOWN
   PRINTCH(ESC);  PRINTSYMBOL('B')
%END


%EXTERNALROUTINE PERIGHT
   PRINTCH(ESC);  PRINTSYMBOL('C')
%END


%EXTERNALROUTINE PELEFT
   PRINTCH(ESC);  PRINTSYMBOL('D')
%END


%EXTERNALROUTINE PEPOS(%INTEGER X, Y)
   PRINTCH(ESC);  PRINTSYMBOL('X');  PRINTCH(X+31)
   PRINTCH(ESC);  PRINTSYMBOL('Y');  PRINTCH(Y+31)
%END


%EXTERNALROUTINE PECLINE(%INTEGER X)
   PEPOS(X,1)
   PRINTCH(ESC);  PRINTSYMBOL('I')
%END


%EXTERNALROUTINE PEPROMPT(%INTEGER X, Y, %STRINGNAME S)
%STRING (15) Q
   Q <- TOSTRING(27)."X".TOSTRING(X+31)
   Q <- Q.TOSTRING(27)."Y".TOSTRING(Y+31).S
   NEWLINE
   PROMPT(Q)
%END

%ENDOFFILE
/DOC