PROGRAM TEST
5	TYPE 10
10	FORMAT(' THIS IS A TEST----')
	TYPE 20
20	FORMAT(' FOR THE NEXT 20 LOOPS WE WILL TEST')
	TYPE 30
30	FORMAT(' THE TARGETING ROUTINES IN THE SDT')
	TYPE 40
40	FORMAT(' PROCEED COMMAND------')
	DO 50 I=1,5
	TYPE 60,I
60	FORMAT(' I=',I5)
50	CONTINUE
	GOTO5
	END