
scnt=!recordcnt classes/$wims_class/sheets/.sheets
!for s=1 to $scnt
 ecnt=!recordcnt classes/$wims_class/sheets/.sheet$s
 !distribute item ,,, into reqs,weis
 !for e=1 to $ecnt
  r=!record $e of classes/$wims_class/sheets/.sheet$s
  !distribute lines $r into t_,t_,r_,w_
  r_=$[$r_]
  w_=$[$w_]
  reqs=!append word $r_ to $reqs
  weis=!append word $w_ to $weis
 !next e
 !ifval $s=1
  !writefile classes/$wims_class/sheets/.require $reqs
  !writefile classes/$wims_class/sheets/.weight $weis
 !else
  !appendfile classes/$wims_class/sheets/.require $reqs
  !appendfile classes/$wims_class/sheets/.weight $weis
 !endif
!next s

