%EXTERNALROUTINE FINDDATA(%STRING(255)S)
%SYSTEMROUTINESPEC CONNECT(%STRING(31)FILE,%INTEGER MODE,HOLE,PROTECT,%C
%RECORDNAME R,%INTEGERNAME FLAG)
%RECORDFORMAT RF(%INTEGER CONAD,FILETYPE,DATASTART,DATAEND)
%INTEGER LINK,I,J,K,CONAD,FLAG
%RECORD RR(RF)
%RECORDFORMAT LD9F(%INTEGER LINK,REFARRAY,L,%STRING(31)IDEN)
%RECORDNAME L9(LD9F)
CONNECT(S,0,0,0,RR,FLAG)
%IF FLAG#0 %THENRETURN
PRINTSTRING(S)
CONAD=RR_CONAD
LINK=INTEGER(CONAD+INTEGER(CONAD+24)+36)
%WHILE LINK#0 %CYCLE
L9==RECORD(LINK+CONAD)
%IF L9_IDEN="BRACE" %START
WRITE(L9_L,5)
NEWLINE
%RETURN
%FINISH
LINK=L9_LINK
%REPEAT
PRINTSTRING("  BRACE NOT FOUND")
NEWLINE
%END
%ENDOFFILE