 %begin
   %record(parmfm) p
   %string(15) owner name
   %integer unit, owner, pass
   %include "newsrc:command.inc"
   %externalstring(17)%spec Command prompt
   owner name = command_in1
   %if owner name = "" %start
      p_dact = 27;  p_p2 = 0;  p_p6 = 0;  svc(20, p)
      %if p_p6 # 0 %start
         printstring("*Be fails -- ".p_text)
         newline
      %else
         Command prompt = "Command: "
      %finish
      %stop
   %finish
   owner name = owner name.":"
   string(addr(p_sact)) = owner name
   svc(17, p)
   unit = p_p1;  owner = p_p2
   %if owner <= 0 %start
      printstring("Invalid owner name ")
      printstring(ownername)
      newline
      %stop
   %finish
   pass = 0
   %if command_in2 # "" %start
      string(addr(p_sact)) = command_in2.":"
      svc(17, p)
      pass = p_p2
      %if pass <= 0 %start
         printstring("Illegal password ")
         newline
         %stop
      %finish
   %finish
   p_p1 = unit;  p_p2 = owner;  p_p3 = pass;  p_p6 = 0
   p_dact = 27;  svc(20, p)
   %if p_p6 # 0 %start
      printstring("*Become fails -- ".p_text)
      newline
   %else
      Command prompt = owner name
   %finish
%endofprogram