database marmotech  
screen size 24 by 80
{
                   Zonas
\g------------------------------------------
   Zona           Descripcion
\g------------------------------------------
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
}
end
tables
vetb00008
attributes
f0   = vetb00008.cod_zona,noentry,
       comments = "<Esc> Busca las zonas";
f001 = vetb00008.descrip, upshift, 
       comments = "<Esc> Busca las zonas";
instructions
   screen record consart[4] (cod_zona,descrip)
   delimiters " "
end