%BEGIN
      %BYTEINTEGERARRAY BUF(1:255)
      %INTEGER I,J
      %STRING(80) A,B,C,D
      %EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
      DEFINE("ST02,.NULL")
      DEFINE("ST03,COPYCMD")
      SELECTINPUT(1)
      SELECTOUTPUT(2)
      %CYCLE
         %WHILE NEXTSYMBOL=10 %OR NEXTSYMBOL=13 %THEN SKIPSYMBOL
         STRING(ADDR(BUF(1)))<-""
         %CYCLE I=2,1,81
            %WHILE NEXTSYMBOL=92 %THEN SKIPSYMBOL
            %IF NEXTSYMBOL=10 %OR NEXTSYMBOL=13 %THEN %EXIT
            READSYMBOL(BUF(I))
         %REPEAT
         BUF(1)<-I-2
         %IF STRING(ADDR(BUF(1)))->A.("SUBFILE: ").B.(".").C.(" @").D %C
            %THEN %START
               SELECTOUTPUT(3)
               CLOSESTREAM(2)
               PRINTSTRING("COPY ".B.C.",STRANS_".B.C)
               NEWLINE
               DEFINE("ST02,".B.C)
               SELECTOUTPUT(2)
            %FINISH %ELSE %START
               PRINTSTRING(STRING(ADDR(BUF(1))))
               NEWLINE
            %FINISH
         %REPEAT
%ENDOFPROGRAM