

(* This is a GOTOXY procedure for the Perkin-Elmer Data Systems
   1100 (Fox) terminal.  Author:
                                        Paul Gilliam
                                        P.O. Box 2202
                                        Pullman, WA 99163
                                                              *)
                                                              
PROGRAM DUMMY;  
  PROCEDURE MYGOTOXY(X,Y: INTEGER);
    VAR
      P : PACKED ARRAY [0..5] OF CHAR;  
    BEGIN
      IF X < 0 THEN X := 0;
      IF X > 79 THEN X := 79;
      IF Y < 0 THEN Y := 0;
      IF Y > 23 THEN Y := 23;
      P[0] := CHR(27);
      P[1] := 'X';
      P[2] := CHR(Y+32);
      P[3] := CHR(27);
      P[4] := 'Y';
      P[5] := CHR(X+32);
      UNITWRITE(2,P,6);
    END  { MYGOTOXY };
  BEGIN  END.

