PROGRAM REWIND
C
C
	LOGICAL*1 IOSB(4)
C
C
	CALL ASSIGN(1,'MM:')
	CALL QIO("2400,1,1,,IOSB)
	CALL WAITFR(1)
	CALL EXIT
	
	END