DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
    Busqueda De Suplidores
\g-----------------------------------------\g
 Codigo          Nombre
\g-----------------------------------------\g
[f1     ] [f2                             ]
[f1     ] [f2                             ]
[f1     ] [f2                             ]
[f1     ] [f2                             ]
[f1     ] [f2                             ]
[f1     ] [f2                             ]
}
end
tables
 cotb00001
attributes
f1  = formonly.codigo,noentry,
      comments = "Elija Este Registro Con La Tecla <Esc>";
f2  = cotb00001.nom_sp, upshift,
      comments = "<Esc> Busca Todos Los Suplidores";
instructions
   screen record s_desp3[6] (codigo,nom_sp)     
 delimiters " "
end