database marmotech   
screen size 24 by 80
{
                   Ano  [a1  ]
                   Mes  [m1]
           Numero
           Semana    Rango de Semanaas
 \g---------------------------------------\g
          [a   ]    [b       ] [c       ]
          [a   ]    [b       ] [c       ]
          [a   ]    [b       ] [c       ]
          [a   ]    [b       ] [c       ]
          [a   ]    [b       ] [c       ]
          [a   ]    [b       ] [c       ]
          [a   ]    [b       ] [c       ]

}
end
tables
cttb00003,iptb00002
attributes
a1 = formonly.ano;
m1 = formonly.mes;
a = formonly.num_semana;
b = formonly.semana_del;
c = formonly.semana_al;
instructions
 screen record scr_seman[7] (num_semana,semana_del,semana_al)
delimiters " "
end