A large commit.

[pdp8.git] / sw / src / mandel_screen / OUTCFG.FT

diff --git a/sw/src/mandel_screen/OUTCFG.FT b/sw/src/mandel_screen/OUTCFG.FT
new file mode 100644 (file)
index 0000000..ede70ad
--- /dev/null
+++ b/sw/src/mandel_screen/OUTCFG.FT
@@ -0,0 +1,25 @@
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+CCCCCC EINSTELLUNGEN AUSGEBEN
+       SUBROUTINE OUTCFG
+C
+       INTEGER        MAXI,WIDTH,CR,LF
+       COMMON /PARAM2/MAXI,WIDTH,CR,LF
+       REAL           LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
+       COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
+C
+       WRITE (4,20)
+  20   FORMAT (10H SETTINGS:)
+       WRITE (4,30) LOWX, HIGHX
+  30   FORMAT (13H X-WERTE VON ,1F8.5,5H BIS ,1F8.5)
+       WRITE (4,40) LOWY, HIGHY
+   40  FORMAT (13H Y-WERTE VON ,F8.5,5H BIS ,F8.5)     
+       WRITE (4,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
+   50  FORMAT (   5H MAX:,I3,
+     +        8H MAXVAL:,F8.5,
+     +         7H XSTEP:,F8.5,
+     +         7H YSTEP:,F8.5,
+     +         7H WIDTH:,I2)
+       RETURN
+       END
+C
+C