Add README.md
[pdp8.git] / sw / src / mandel_screen / OUTCFG.FT
1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
2 CCCCCC EINSTELLUNGEN AUSGEBEN
3 SUBROUTINE OUTCFG
4 C
5 INTEGER MAXI,WIDTH,CR,LF
6 COMMON /PARAM2/MAXI,WIDTH,CR,LF
7 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
8 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
9 C
10 WRITE (4,20)
11 20 FORMAT (10H SETTINGS:)
12 WRITE (4,30) LOWX, HIGHX
13 30 FORMAT (13H X-WERTE VON ,1F8.5,5H BIS ,1F8.5)
14 WRITE (4,40) LOWY, HIGHY
15 40 FORMAT (13H Y-WERTE VON ,F8.5,5H BIS ,F8.5)
16 WRITE (4,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
17 50 FORMAT ( 5H MAX:,I3,
18 + 8H MAXVAL:,F8.5,
19 + 7H XSTEP:,F8.5,
20 + 7H YSTEP:,F8.5,
21 + 7H WIDTH:,I2)
22 RETURN
23 END
24 C
25 C