/*

trace r

*/

arg domain p1 p2 p3 p4 p5 p6 p7

select
   when domain = "?" then 
     do
       say    
       say  'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
       say	'³ 0 maina000  ³'
       say	'³ 1 maina001  ³'
       say	'³ 5 maina005  ³'
       say	'³ 6 is        ³'
       say  'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'
       say
       exit (1)
     end
   when domain = ''    then call mf (maina000 P1 p2 p3 p4 p5 p6 p7)
   when domain = 'NET' then call mf (maina000 NET P1 p2 p3 p4 p5 p6 p7)
   when domain = 0     then call mf (maina000 p1 p2 p3 p4 p5 p6 p7)
   when domain = 1     then call mf (maina001 p1 p2 p3 p4 p5 p6 p7)
   when domain = 5     then call mf (maina005 p1 p2 p3 p4 p5 p6 p7)
   when domain = 6     then call mf (maina006 p1 p2 p3 p4 p5 p6 p7)
   otherwise                call mf (maina000 domain p1 p2 p3 p4 p5 p6 p7)
end

RETURN

mf: procedure

arg dOMAIN P1 p2 p3 p4 p5 p6 p7

say 'Executing...'

 'net admin \\' || Domain '/c'  p1 p2 p3 p4 p5 p6 p7

Return