%begin
   %conststring(5)  SYSTEM UNIT = "SYSX_"

   %system   %routine %spec OBEY(%string(31) from, to, %string(63) parm)
   %system   %routine %spec LET (%string(63) old,  new)
   %external %routine %spec CONSOLE(%string(63) Mess)
   %external %routine %spec DO  (%string(127) line)
   %external %routine %spec LIB (%string(63) parm)
   %external %predicate %spec EXISTS(%string(31) file)
   %system   %integer %spec OPTIONS
   {Options = -1  to run subsys in diag mode}
   Console ("Process started ".DATE." ".TIME)
   Let ("C",   "Copy")
   Let ("E",   system unit. "EDITOR:HARDECCE")
   Let ("F",   "Files")
   Let ("V",   system unit. "EDITOR:VECCE")
   Let ("BE",  "Become")
   Let ("IMP",     system unit. "subsys:Compile IMP|")
   Let ("FORTRAN", system unit. "subsys:Compile FORTRAN|")
   Let ("PASCAL",  system unit. "subsys:Compile PASCAL|")
   Let ("BASIC",                "basic:basic")
   Let ("HELP",    system unit. "help:help")
   Let ("LAYOUT",  system unit. "text:layout")
   Let ("LIST",    system unit. "text:list")
   Let ("COMPARE", system unit. "text:compare")
   Let ("TELL", system unit. "relay:tell")
   Let ("MAIL", system unit. "relay:mail")
   Let ("OS32MT", "emul:os32mt")
   Obey("Startup.tmp", "Out:", "") %if exists("Startup.tmp")
%end %of %program
