autobin: Added the glorious autobin loader

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

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