CONST
      textCmds* = 0; formCmds* = 1; otherCmds = 2;
      noModelView* = 3; modelView* = 4; complexView* = 5;
      wrapper = 6; specialContainer = 7; generalContainer = 8;
...

   PROCEDURE TranslateSubsystem (kind: INTEGER; string: ARRAY OF CHAR);
...
   BEGIN
...
      IF kind = textCmds THEN
...
      ELSIF kind = otherCmds THEN
         TranslateFile(loc, "Cmds2", new, "Cmds", string, res);
         Message(string, "Cmds", "Cmds2")
      ELSIF kind = noModelView THEN
...
      ELSIF kind = wrapper THEN
         TranslateFile(loc, "Views6", new, "Views", string, res);
         Message(string, "Views", "Views6");
         f.WriteLn;
         f.WriteView(DevCommanders.dir.New());
         f.WriteString(' "'); f.WriteString(string); f.WriteString('Views.Deposit; StdCmds.Open"'); f.WriteLn
      ELSIF kind = specialContainer THEN
         TranslateFile(loc, "Views7", new, "Views", string, res);
         Message(string, "Views", "Views7");
         f.WriteLn;
         f.WriteView(DevCommanders.dir.New());
         f.WriteString(' "'); f.WriteString(string); f.WriteString('Views.Deposit; StdCmds.Open"'); f.WriteLn
      ELSIF kind = generalContainer THEN
         TranslateFile(loc, "Models8", new, "Models", string, res);
         Message(string, "Models", "Models8");
         TranslateFile(loc, "Views8", new, "Views", string, res);
         Message(string, "Views", "Views8");
         TranslateFile(loc, "Controllers8", new, "Controllers", string, res);
         Message(string, "Controllers", "Controllers8");
         TranslateFile(loc, "Cmds8", new, "Cmds", string, res);
         Message(string, "Cmds", "Cmds8");
...
      END;
...
   END TranslateSubsystem;