00100	BEGIN
00200	STRING DAT; INTEGER BR,EOF;
00300	
00400	OPEN(1,"DSK",0,2,0,200,BR,EOF);
00450	SETBREAK(1,'12,'15&'14,"IN");
00500	LOOKUP(1,INCHWL,BR);
00600	DO
00700	    BEGIN
00750		STRING S;
00800		LABEL SMITH;
00900		SMITH:
01000		S←INPUT(1,1);
01100	    END UNTIL EOF;
01200	RELEASE(1);
01300	END;