C	TITLE:	TEST.FTN
C
C	AUTHOR:	T.G. Kelly
C		Dept. of Chemistry
C		MICH
C		Michigan State University
C		E. Lansing, MI 48824
C
C		This program is the test program
C		used in CEM 838 experiment RX1.
C
C		The following set of files is necessary
C		for RX1:
C
C		TEST.FTN;1
C		TEST.FTN;2
C		TEST.CMD
C
	TYPE 1000
5	DO 10 I=1,10
10	TYPE 1100,I
	TYPE 1200
	DO 20 I=1,10
20	TYPE 1100,I
	TYPE 1300
	DO 30 I=1,10
30	TYPE 1100,I
	TYPE 1400
	DO 40 I=1,10
40	TYPE 1100,I
	TYPE 1500
	DO 50 I=1,10
50	TYPE 1100,I
	TYPE 1600
	GO TO 5
1000	FORMAT (1X,'CONGRATULATIONS!',//,1X,'YOU HAVE SUCCESSFULLY
	1 COMPILED, TASK BUILT, AND RUN THIS FILE'//,1X,'NOW CAN
	2 YOU TERMINATE THIS TASK?'/1X,'THIS PROGRAM WILL RUN
	3 IN AN INFINITE LOOP.',//,' YOUR MISSION IS TO GET OUT OF THIS
	4 TASK!')
1100	FORMAT (I5)
1200	FORMAT (1X,'YOU STILL HAVE NOT ABORTED THIS TASK YET?')
1300	FORMAT (1X,'HINT: CONTROL Z WILL NOT WORK BECAUSE
	1 THIS PROGRAM'/' IS NOT EXPECTING TERMINAL INPUT.')
1400	FORMAT (1X,'HINT: USE THE MCR COMMAND ABORT')
1500	FORMAT (1X,'HINT: ABORT MUST BE TYPED TO MCR.'/'  HOW DO YOU
	1 GET AN MCR PROMPT?')
1600	FORMAT (1X,'AND AROUND WE GO!!!')
	END