%EXTERNALROUTINE TOVMEKPD(%STRING(63) S)
%EXTERNALROUTINESPEC COBJ(%STRING(63) SA)
%EXTERNALROUTINESPEC COPY(%STRING(63) SB)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) SC)
%EXTERNALROUTINESPEC PROMPT(%STRING(15) SD)
%STRING(20) B,C,OUTPDS,SIN
%INTEGER I
%BYTEINTEGERARRAY  BUF(1:80)

DEFINE("ST05,.IN")
DEFINE("ST06,.OUT")
SELECTOUTPUT(6)
SELECTINPUT(5)
%IF S#"" %THEN S<-S."_"
OUTPDS<-"VMEK_"
SIN<-""
PROMPT("FILE: ")
%WHILE SIN # ".END" %THEN %CYCLE
      STRING(ADDR(BUF(1)))<-""
      %CYCLE I=2,1,80
         READSYMBOL(BUF(I))
         %IF BUF(I)=10 %THEN %EXIT
         %REPEAT
      BUF(1)<-I-2
      SIN<-STRING(ADDR(BUF(1)))
      %IF I>2 %AND SIN#".END" %THEN %START
         %IF BUF(I-1)=89 %THEN %START
            BUF(1)=BUF(1)-1
            B<-STRING(ADDR(BUF(1)))
            COBJ(S.SIN.",".OUTPDS.SIN)
            PRINTSTRING(S.SIN." CONVERTED TO ".OUTPDS.SIN)
            NEWLINE
         %FINISH %ELSE %START
            COPY(S.SIN.",".OUTPDS.SIN)
           %FINISH
         %FINISH
      %REPEAT
%END
%ENDOFFILE