Subversion Repositories wimsdev

method=list

per=$[$per]
!bound $per between 0 and 100 default 0

!for i=1 to $uucnt
  l_=!record $i+1 of wimshome/log/classes/$wims_class/.grades
  n_=!item 1 of $l_
  n_=!hex $n_
  g_$n_=$l_
!next i
t=!record 1 of wimshome/log/classes/$wims_class/.grades
t=!replace line number 1 by $per in $t
!writefile wimshome/log/classes/$wims_class/.grades :$t
!for u=1 to $ucnt
  t_=!item $u of $ulist
  t_=!hex $t_
  !appendfile wimshome/log/classes/$wims_class/.grades :$(g_$t_)
!next u
!read var.init