%EXTERNALROUTINE FORTALL(%STRING(63) S)
      %EXTERNALROUTINESPEC COPY(%STRING(63) SA)
      %EXTERNALROUTINESPEC DESTROY(%STRING(63) SB)
      %EXTERNALROUTINESPEC FORTE(%STRING(63) SC)
      %EXTERNALINTEGERFNSPEC RETURNCODE
      %STRING(63) A,B,C,INPD
      %CONSTSTRING(63) OUTPD="SLOGOY_"

      %INTEGER SLEN
      SLEN=LENGTH(S)
      %IF SLEN>2 %AND FROMSTRING(S,SLEN-1,SLEN)="FR" %THEN %START
         A=FROMSTRING(S,1,SLEN-2)

         %UNLESS A -> B.("_").C %THEN C=A
         FORTE(S.",".C."Y")
         COPY (C."Y,".OUTPD.C."Y")
         %IF RETURNCODE = 0 %THEN DESTROY(C."Y")
         %FINISH
      %END
%ENDOFFILE