database marmotech   
 screen size 24 by 80
{
  Arancel [a1         ] 
\g----------------------------------------------------------------------------\g
  Codigo              Descripcion Espanol             Descripcion Ingles  
\g----------------------------------------------------------------------------\g
[a          ] [f001                          ] [f002                          ]
[a          ] [f001                          ] [f002                          ]
[a          ] [f001                          ] [f002                          ]
[a          ] [f001                          ] [f002                          ]
[a          ] [f001                          ] [f002                          ]
[a          ] [f001                          ] [f002                          ]
[a          ] [f001                          ] [f002                          ]
}
tables
 cotb00005
attributes
a1   = cotb00005.cod_nab,picture = "##.##.##.##",autonext;
a    = formonly.codigo,noentry;
f001 = cotb00005.descrip_esp,noentry;
f002  = cotb00005.descrip_ing,noentry;
instructions
     screen record consart[7] (codigo,descrip_esp,descrip_ing)
end