autobin: Added the glorious autobin loader

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

diff --git a/sw/plot_hpgl/pdp8/PLOT.FT b/sw/plot_hpgl/pdp8/PLOT.FT
deleted file mode 100644 (file)
index ffa75b4..0000000
--- a/sw/plot_hpgl/pdp8/PLOT.FT
+++ /dev/null
@@ -1,45 +0,0 @@
-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