sw/plot_hpgl/pdp8/PLOT.FT

   1 C PHILIPP'S FILE PLOTTER 2010!
   2
   3 0100  DIMENSION NAME(3)
   4
   5 C     565 0.01 INCH, DATA IN CM
   6       CALL PLOTS(0.0254,0)
   7
   8 C     CALL PLOTS(0.004,0)
   9
  10 0150  XMAX=0
  11 0200  WRITE (4,300)
  12 0300  FORMAT (' FILE TO PLOT:')
  13 0400  READ (4,600) NAME
  14 0500  CALL USR(5,NAME,2,ERR)
  15 0501  IF (NAME(1) .EQ. ' ') GO TO 200
  16 0600  FORMAT (3A6)
  17
  18
  19
  20 1200  CALL CHKEOF(EOF)
  21 1300  READ (5,1000) PEN,X,Y
  22 1000  FORMAT (A3,2F13.5)
  23 1500  IF (EOF.NE.0) GO TO 7000
  24
  25 C ROTATE
  26 C      TMP=Y
  27 C      Y=-X
  28 C      X=-TMP
  29
  30       TMP=Y
  31       Y=-X
  32       X=TMP
  33
  34 2000  IF (PEN.EQ.'PU,') P=3
  35 2100  IF (PEN.EQ.'PD,') P=2
  36       IF (X.GE.XMAX) XMAX=X
  37       CALL XYPLOT(X,Y,P)
  38
  39 1700  GO TO 1200
  40
  41 7000  CALL XYPLOT(XMAX+1,0,-3);
  42       CALL PLEXIT
  43
  44 9999  GO TO 150
  45