database marmotech   
 screen size 24 by 80
{
 Codigo:[a][b][c ][d  ] [a1                             ] [a2 ]
\g----------------------------------------------------------------------------\g
     Codigo               Suplidor                          Precio Unitario
\g----------------------------------------------------------------------------\g
    [p1][p2  ][k1                                           ][n           ]
     Terminos de Pago[f002                          ]
    [p1][p2  ][k1                                           ][n           ]
     Terminos de Pago[f002                          ]
    [p1][p2  ][k1                                           ][n           ]
     Terminos de Pago[f002                          ]
    [p1][p2  ][k1                                           ][n           ]
     Terminos de Pago[f002                          ]
    [p1][p2  ][k1                                           ][n           ]
     Terminos de Pago[f002                          ]
}
tables
 cotb00001
 cotb00015,cotb00024,
 intb00001
attributes
a    = intb00001.cod_n,autonext;
b    = intb00001.cod_grupo,autonext ;  
c    = intb00001.cod_tipo,autonext;      
d    = intb00001.cod_sec,autonext;
a1   = intb00001.descrip_esp,noentry;
a2   = intb00001.unidad_med,noentry;
p1   = cotb00001.cod_sp,noentry;
p2   = cotb00001.cod_sp_sec,noentry;
k1   = cotb00001.nom_sp,noentry;
f002 = cotb00024.descrip_term,noentry;
n    = cotb00015.precio,noentry;
instructions
   screen record consart[5] (cod_sp,cod_sp_sec,descrip_term,precio,nom_sp)
end