database smarmotech   
 screen size 24 by 80
{
 Codigo:    [a ][b   ][c                                            ]
 Direccion: [d                                                           ]
 Ciudad:    [e                             ]
 Pais:      [f  ][p                                                           ]
 Codigo Area:    [g    ]         Telefono: [f003    ]      Fax: [f004    ]
 Contacto:       [h                             ]
 Terminos de Pago: [i                             ]
\g----------------------------------------------------------------------------\g
      Codigo         Descripcion                               Precio Unitario
\g----------------------------------------------------------------------------\g
  [j][k][l ][m  ][f001                                      ] [f002         ]  
  [j][k][l ][m  ][f001                                      ] [f002         ]
  [j][k][l ][m  ][f001                                      ] [f002         ]
}
tables
 cotb00001,
 cotb00015,cotb00018,
 intb00001,cotb00024
attributes
a    = cotb00001.cod_sp,autonext;
b    = cotb00001.cod_sp_sec,autonext;  
c    = cotb00001.nom_sp,noentry;
d    = cotb00001.dir_sp,noentry ;
e    = cotb00001.ciu_sp,noentry;
f    = cotb00001.cod_pais,noentry;
p    = cotb00018.nom_pais,noentry;
g    = cotb00001.area_sp,noentry;
f003 = cotb00001.tel_sp,noentry;
f004 = cotb00001.fax_sp,noentry;
h    = cotb00001.cont_sp,noentry;
i    = cotb00024.descrip_term,noentry;
j    = intb00001.cod_n,noentry;
k    = intb00001.cod_grupo,noentry;
l    = intb00001.cod_tipo,noentry;
m    = intb00001.cod_sec,noentry; 
f001 = intb00001.descrip_esp,noentry;
f002 = cotb00015.precio,noentry;
instructions
     screen record consart[3] (cod_n,cod_grupo,cod_tipo,cod_sec,
            descrip_esp,precio)
end