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