database marmotech   
screen size 24 by 80
{

             Numero de Formula  [f0]
             Codigo             [a]-[b]-[c ]-[d  ]
}
end
tables
catb00001
attributes
f0 = catb00001.num_formula;
a = catb00001.cod_n_pt;
b = catb00001.cod_grupo_pt;
c = catb00001.cod_tipo_pt;
d = catb00001.cod_sec_pt;
end