Rev 23 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
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