C PHILIPP'S FILE PLOTTER 2010!

0100  DIMENSION NAME(3)

C     565 0.01 INCH, DATA IN CM
      CALL PLOTS(0.0254,0)

C     CALL PLOTS(0.004,0)

0150  XMAX=0
0200  WRITE (4,300)
0300  FORMAT (' FILE TO PLOT:')
0400  READ (4,600) NAME
0500  CALL USR(5,NAME,2,ERR)
0501  IF (NAME(1) .EQ. ' ') GO TO 200 
0600  FORMAT (3A6)



1200  CALL CHKEOF(EOF)
1300  READ (5,1000) PEN,X,Y
1000  FORMAT (A3,2F13.5)
1500  IF (EOF.NE.0) GO TO 7000

C ROTATE
C      TMP=Y
C      Y=-X
C      X=-TMP

      TMP=Y
      Y=-X
      X=TMP

2000  IF (PEN.EQ.'PU,') P=3
2100  IF (PEN.EQ.'PD,') P=2
      IF (X.GE.XMAX) XMAX=X
      CALL XYPLOT(X,Y,P)

1700  GO TO 1200

7000  CALL XYPLOT(XMAX+1,0,-3);
      CALL PLEXIT

9999  GO TO 150