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