PROGRAM T
	CALL PSEUDO
	CALL HOME
	CALL TOUTIN( 'FILE?', 5, X, 4, '$' )
	STOP
	END