database marmotech   
screen
{
               Codigo Producto [a]
               Tipo Venta [v]
               Ano        [p   ]
               Mes        [k ]
               Porciento Mayor o Igual a [p1    ]
               Desea Imprimir Trimestres [a1]
}
end
tables
intb00006
attributes
a   = formonly.cod_n,comments = "Digite Nivel Producto Terminado";
v   = formonly.ventas type char;
k   = formonly.mes1;
p   = formonly.ano1;
p1  = formonly.p_porciento;
a1  = formonly.impresion type char,include=("S","N");
  instructions
     delimiters " "
end