alias mods {
set %i 1
while ($read(onlinemods1.txt,%i)) {
if (@ iswm $read(onlinemods1.txt,%i)) {
if (%@s == $null) {
set %@s $read(onlinemods1.txt,%i) $+ ,
inc %i
}
elseif (%@s != $null) {
set %@s %@s $read(onlinemods1.txt,%i) $+ ,
inc %i
}
}
if ($chr(33) iswm $read(onlinemods1.txt.%i)) {
if (%!s == $null) {
set %!s $read(onlinemods1.txt,%i) $+ ,
inc %i
}
elseif (%!s != $null) {
set %!s %!s $read(onlinemods1.txt,%i) $+ ,
inc %i
}
}
if ($chr(37) iswm $read(onlinemods1.txt,%i)) {
if (%hs == $null) {
set %hs $read(onlinemods1.txt,%i) $+ ,
inc %i
}
elseif (%hs != $null) {
set %hs %hs $read(onlinemods1.txt,%i) $+ ,
inc %i
}
}
if ($chr(43) iswm $read(onlinemods1.txt,%i)) {
if (%+s == $null) {
set %+s $read(onlinemods1.txt,%i) $+ ,
inc %i
}
elseif (%+s != $null) {
set %+s %+s $read(onlinemods1.txt,%i) $+ ,
inc %i
}
}
}
return %!s %@s %hs %+s
unset %!s
unset %@s
unset %hs
unset %+s
}