X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fmandel_screen%2FOUTCFG.FT;fp=sw%2Fsrc%2Fmandel_screen%2FOUTCFG.FT;h=ede70ad972455e81cd20c150691929d00413d362;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/mandel_screen/OUTCFG.FT b/sw/src/mandel_screen/OUTCFG.FT
new file mode 100644
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