00100	BEGIN
00200	STRING DATA; INTEGER ABRCHAR,AEOF;
00250	INTEGER CHARCNT;
00300	
00400	OPEN(1,"DSK",'14,2,0,0,ABRCHAR,AEOF);
00500	LOOKUP(1,(DATA←INCHWL),AEOF);
00600	IF AEOF THEN 
00700	    BEGIN
00800		OUTSTR("CANNOT FIND " & DATA & "
00900	");
00905		OUTCHR('141); OUTCHR('172);
01000		CALL(0,"EXIT");
01100	    END;
01150	OUTCHR('141);
01200	DO
01300	    BEGIN
01400		INTEGER WORD,BP,C;
01500		INTEGER I;
01600		WORD←WORDIN(1);
01700		IF AEOF THEN DONE;
01800		BP←POINT(6,WORD,-1);
01900		FOR I←1 STEP 1 UNTIL 6 DO
02000		    BEGIN
02100			OUTCHR(ILDB(BP)+'40);
02105			CHARCNT←CHARCNT+1;
02110			IF (CHARCNT MOD 60)=0 THEN OUTSTR("
02115	");
02200		    END;
02300	    END UNTIL AEOF;
02400	OUTCHR('172);  COMMENT SEND A SMALL Z;
02500	RELEASE(1);
02600	END;