EXTERNALROUTINE SNOOP(STRING (255)S) EXTERNALINTEGERFNSPEC DTRANSFER(STRING (31)FU,TU,FF,TF,INTEGER FS,TS,T) EXTERNALINTEGERFNSPEC UINFI(INTEGER N) EXTERNALSTRINGFNSPEC UINFS(INTEGER N) INTEGER J STRING (31)TO TO = "SNOOPY" UNLESS S -> S . (",") . TO J = DTRANSFER("", "", S, TO, -1, UINFI(1), 3) ! IF J = 0 C THEN PRINTSTRING("OK") C ELSE PRINTSTRING("Flag") AND WRITE(J, 1) END ENDOFFILE