C	DIAGNOSTIC ROUTINE - JOY2T.FO
C	3 JUNE 1977 - A. SLATER
C
C	JOYSTICK TIMING TEST
C	TYPES "T" EVERY 600 SAMPLES
	INTEGER  ISTIKS(6)
	DUMB=4
 1	CONTINUE
	DO 20 J=1,600
	CALL JOY(ISTIKS)
	DUMB=FLOAT(ISTIKS(1))
 20	CONTINUE
	WRITE(4,900) 
 900	FORMAT(" T")
	GO TO 1
	END