database rayovac   
screen size 24 by 80
{
            Seleccione Impresor
\g------------------------------------------------------------------------
    Impresora                      Codigo Puerto          Prog Pipe Codigo
\g------------------------------------------------------------------------
  [f0                           ][c1 ][p1                ][b      ][a] [p]
  [f0                           ][c1 ][p1                ][b      ][a] [p]
  [f0                           ][c1 ][p1                ][b      ][a] [p]
}
end
tables
prttb00001
attributes
f0   = prttb00001.nombre;
c1   = prttb00001.codigo;
p1   = prttb00001.puerto;
p    = prttb00001.prtcodigo;
a    = prttb00001.lppipe;
b    = prttb00001.lpprog;
instructions
   screen record s_prt[3] (nombre,codigo,puerto,lpprog,lppipe,prtcodigo)
   delimiters " "
end