OPEN(UNIT=1,NAME='FORTRAN.TXT',TYPE='NEW')
	TYPE 100
	WRITE(1,100)
 100	FORMAT(/' FORTRAN CARRIAGE-CONTROL:'/
     1	' SPACE'/'0DOUBLE-SPACE'/'$PROMPTING'/' SPACE'/
     2	'+OVERPRINT'/'1FORM FEED'///' 3 LINES')
	STOP
	END