%EXTERNAL %ROUTINE %SPEC  PROMPT (%STRING(15) P)
%EXTERNAL %ROUTINE %SPEC  READ LINE (%STRING(255)%NAME LINE)
%EXTERNAL %ROUTINE %SPEC  UPPER (%STRING(255)%NAME S)
%EXTERNAL %INTEGER %FN %SPEC  EXIST (%STRING(255) FILE)
%EXTERNAL %ROUTINE  E (%STRING(255) FILE)
   ! MAKES E BEHAVE AS ON VAX, IE CREATING NEW FILE ETC...
   %EXTERNAL %ROUTINE %SPEC  ECCE (%STRING(255) FILE)
   %STRING(255) IN, OUT
   IN = ""; OUT = ""
   PROMPT ("File: ")
   READ LINE (FILE) %WHILE FILE = ""
   UPPER (FILE)
   %UNLESS FILE -> IN.("/").OUT %START
      OUT = FILE
      %IF EXIST (FILE) = 0 %START
         PRINT STRING ("Creating new file ")
         PRINT STRING (OUT)
         NEWLINE
         OUT = "/".OUT
      %FINISH
   %FINISH %ELSE %START
      IN = IN."/"
   %FINISH
   ECCE (IN.OUT)
%END

%END %OF %FILE