sw: Added bin folder and Kermit scripts

[pdp8.git] / sw / plot_hpgl / pdp8 / PLOT.FT

C PHILIPP'S FILE PLOTTER 2010!\r
\r
0100  DIMENSION NAME(3)\r
\r
C     565 0.01 INCH, DATA IN CM\r
      CALL PLOTS(0.0254,0)\r
\r
C     CALL PLOTS(0.004,0)\r
\r
0150  XMAX=0\r
0200  WRITE (4,300)\r
0300  FORMAT (' FILE TO PLOT:')\r
0400  READ (4,600) NAME\r
0500  CALL USR(5,NAME,2,ERR)\r
0501  IF (NAME(1) .EQ. ' ') GO TO 200 \r
0600  FORMAT (3A6)\r
\r
\r
\r
1200  CALL CHKEOF(EOF)\r
1300  READ (5,1000) PEN,X,Y\r
1000  FORMAT (A3,2F13.5)\r
1500  IF (EOF.NE.0) GO TO 7000\r
\r
C ROTATE\r
C      TMP=Y\r
C      Y=-X\r
C      X=-TMP\r
\r
      TMP=Y\r
      Y=-X\r
      X=TMP\r
\r
2000  IF (PEN.EQ.'PU,') P=3\r
2100  IF (PEN.EQ.'PD,') P=2\r
      IF (X.GE.XMAX) XMAX=X\r
      CALL XYPLOT(X,Y,P)\r
\r
1700  GO TO 1200\r
\r
7000  CALL XYPLOT(XMAX+1,0,-3);\r
      CALL PLEXIT\r
\r
9999  GO TO 150\r
\r