Add README.md
[pdp8.git] / sw / src / mandel_screen / MAIN.FT
... / ...
CommitLineData
1C APFELMAENNCHEN-PROGRAMM, 02.APRIL.2006 PHILIPP HACHTMANN
2C INTERMEDIATE VERSION
3C
4C THIS VERSION SHOULD RUN A BIT FASTER BECAUSE THE SQUARE
5C ROOT IS OMMITTED.
6C
7C SWITCH SETTINGS:
8C SENSE-SWITCH 1: IF SET, ASK FOR PARAMETERS
9C SENSE-SWITCH 2: IF SET, DON'T PRINT PARAMETERS ON START
10C SENSE-SWITCH 3: IF SET, RESTORE PARAMETERS TO DEFAULT VALUES
11C
12CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
13C COMMON BLOCK DECLARATIONS
14C
15 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA
16 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA
17C
18 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
19 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
20C
21 INTEGER INIT
22 COMMON /PARAM3/INIT
23C
24 INTEGER PBUFF
25 DIMENSION PBUFF(4000)
26C
27CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
28C START MESSAGE
29 100 WRITE (4,10)
30 10 FORMAT (48H MANDELBROT-DEMO 3RC1) XX.XX.2009, PH. HACHTMANN)
31C
32C
33 CALL CLRPLT(4096,PBUFF)
34C
35CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
36C CONFIGURATION
37CCCCCC RESET DO DEFAULT VALUES?
38C 110 CALL RSW(9,I)
39 IF (I.EQ.1) CALL RST
40 CALL RST
41C
42CCCCCC ON THE FIRST START OR IF DESIRED
43 IF(INIT.EQ.0) CALL STVAL
44C
45CCCCCC DO WE HAVE TO ASK FOR PARAMETERS?
46 CALL RSW(10,I)
47 IF (I.EQ.1) CALL GETCFG
48C
49CCCCCC OUTPUT SETTINGS?
50 CALL RSW(11,I)
51 IF(I.EQ.0) CALL OUTCFG
52C
53 WRITE (4,55)
54 55 FORMAT (1H0)
55C
56 CALL CALC2
57C
58 WRITE (4, 60)
59 60 FORMAT (6H READY)
60C
61CCCCCC BREAK WITH 7 in A REG, THEN START OVER
62C CALL PWAIT
63666 R=3.76567
64 A=4543.33*R*R+4.1
65 V=A/3.456
66 GO TO 666
67 PAUSE 7
68 GO TO 100
69 END
70C END OF MAIN PROGRAM
71C
72CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
73C
74CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
75C
76C
77C
78$0