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
}