PROGRAM MAIN
C
C	This routine is written for demonstration of calling sequences.
C
	WRITE (5,10)
10	FORMAT (' Program MAIN is running, about to call subroutine SUB1')
	CALL SUB1
	WRITE (5,20)
20	FORMAT (' Returned from SUB1 to MAIN, about to call SUB2')
	CALL SUB2
	WRITE (5,30)
30	FORMAT (' Returned from SUB2, all done ...')
	CALL EXIT
	END