MACRO MODULE m_error(
        string       lang*132;
        string       pos*32;
        string       b*32;
        string       h*32;
        string       r*32;
        string       nx*32;
        string       ny*32;
var  string       errm*32);

BEGINMODULE

         errm:="0";

         if finds(lang,"english")=0 then
          if pos=" " then
              lst_ini("INDATA SAKNAS");
              lst_lin("Positionen är ej angiven !");
              lst_exi();
              errm:="1";
          endif;
          if val(b)=0 then
              lst_ini("INDATA SAKNAS");
              lst_lin("Bredden är ej angiven !");
              lst_exi();
              errm:="1";
          endif;
          if val(h)=0 then
              lst_ini("INDATA SAKNAS");
              lst_lin("Höjden är ej angiven !");
              lst_exi();
              errm:="1";
          endif;
          if val(r)=0 then
              lst_ini("INDATA SAKNAS");
              lst_lin("Ramen är ej angiven !");
              lst_exi();
              errm:="1";
          endif;
          if val(nx)=0 then
              lst_ini("INDATA SAKNAS");
              lst_lin("Antal i x-led är ej angivet !");
              lst_exi();
              errm:="1";
          endif;
          if val(ny)=0 then
              lst_ini("INDATA SAKNAS");
              lst_lin("Antal i y-led är ej angivet !");
              lst_exi();
              errm:="1";
          endif;
         else
          if pos=" " then
              lst_ini("DATA MISSING");
              lst_lin("Position isn't given !");
              lst_exi();
              errm:="1";
          endif;
          if val(b)=0 then
              lst_ini("DATA MISSING");
              lst_lin("Width isn't given !");
              lst_exi();
              errm:="1";
          endif;
          if val(h)=0 then
              lst_ini("DATA MISSING");
              lst_lin("Heigth isn't given !");
              lst_exi();
              errm:="1";
          endif;
          if val(r)=0 then
              lst_ini("DATA MISSING");
              lst_lin("Frame isn't given !");
              lst_exi();
              errm:="1";
          endif;
          if val(nx)=0 then
              lst_ini("DATA MISSING");
              lst_lin("Number in x-way isn't given !");
              lst_exi();
              errm:="1";
          endif;
          if val(ny)=0 then
              lst_ini("DATA MISSING");
              lst_lin("Number in y-way isn't given !");
              lst_exi();
              errm:="1";
          endif;
         endif;

ENDMODULE