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