%begin
   %externalpredicatespec Exists(%string(31) File)
   %externalroutinespec Obey(%string(31) In, Out, %string(63) Param)
   %systemroutinespec Let(%string(31) Old, New)
   %externalroutinespec Do(%string(127) What)
   Print string ("Process started ".DATE." ".TIME);  Newline
   Let("C", "Copy")
   Let("E", "Edit")
   Let("V", "Ecce:ecce")
   Let("I", "Imp")
   Let("F", "Files")
   Do("Lib Nexe:Standard")
   Do("Lib Nexe:Batch")
   Obey("Startup.com", "Out:", "LOGIN") %if Exists("Startup.com")
%endofprogram
