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

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