MACRO MODULE m_help(
       string    fil*132
       );

       int       n;

       string       rad*132;

       file       in;

BEGINMODULE

       n:=1;

       open(in,"R",fil);

       if iostat(in)<>0 then 
       
       lst_ini(fil);
       lst_lin("io="+str(iostat(in),4,0));
       goto stop;endif;

       lst_ini("*** HELP ***");

nyrad: rad:=inlin(in);

       if iostat(in)<>0 then goto stop;endif;

       lst_lin(rad);

       n:=n+1;
       goto nyrad;

stop:  lst_exi();

       close(in);


ENDMODULE