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

!        PERKIN ELMER CURSOR ADDRESSING ROUTINES

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

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


%EXTERNALROUTINE PEHOME
PRINTCH(12)
%END


%EXTERNALROUTINE PECLEAR
   PRINTCH(1)
%END


%EXTERNALROUTINE PEUP
   PRINTCH(14)
%END


%EXTERNALROUTINE PEDOWN
   PRINTCH(11)
%END


%EXTERNALROUTINE PERIGHT
   PRINTCH(9)
%END


%EXTERNALROUTINE PELEFT
   PRINTCH(8)
%END


%EXTERNALROUTINE PEPOS(%INTEGER X, Y)
      %IF X = 10 %START
         PRINTCH(24); PRINTCH(9); PRINTCH(Y); PERIGHT
         %RETURN
      %FINISH
      %IF Y = 10 %START
         PRINTCH(24); PRINTCH(X); PRINTCH(9); PEDOWN
         %RETURN
      %FINISH
      PRINTCH(24); PRINTCH(X); PRINTCH(Y)
%END


%EXTERNALROUTINE PECLINE(%INTEGER X)
  %INTEGER I
   PEPOS(X,1)
      SPACES(72)
%END


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

%ENDOFFILE
/DOC