try something like :

Code:
  
var %l
while (%cs.increase <= %cs.cheatulines) {
  %l = $read(%cs.cheatu,n,%cs.increase)
  if (%l != $null) {
    if (;* iswm %l) && $&
       ($read(%cs.cheat,w,%l) == $null) {
      write %cs.cheat %l
    }
   elseif ($read(%cs.cheat,w, $&
                         * $+ $gettok(%l,2,58) $&
                        $+ * $+ $gettok(%l,3,58) $&
                        $+ * $+ $gettok(%l,4,58) $&
                        $+ * $+ $gettok(%l,5,58) $+ *) == $null) {
    write %cs.cheat %l
     }
  }
  else {
    write -i %cs.cheat
  }
inc %cs.increase
}