database marmotech 
screen size 24 by 80
{
                  Paises
\g------------------------------------------
   Pais           Descripcion
\g------------------------------------------
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
}
end
tables
cotb00018
attributes
f0   = cotb00018.cod_pais,noentry,
       comments = "<Esc> Busca los paises";
f001 = cotb00018.nom_pais,upshift, 
       comments = "<Esc> Busca los paises";
instructions
   screen record consart[4] (cod_pais,nom_pais)
   delimiters " "
end