id=fopen('AsYouLikeIt.txt');
DO=1;
while DO
		str=[];
	str=fgetl(id);
	if ~ischar(str),DO=0,break,end; %Test for end of file
	if length(str)~=0
	disp(str);
	str=[str,' ']; %pad string out with a space
	K=find(str==' ');
	K=[0,K];

		for k=1:length(K)-1
		L=(K(k)+1):K(k+1)-1;
		word=str(L);
	%		if upper(word)~=word
	if upper(word)==word, break, end
	
			disp(word);
	%		end
		end %for k=
	pause
	clc
	end %if length(str~=0
end %while
