Just Another simple whois system!

RAW 319:*: {
  echo -a 4,10 $+ $2 Channels 4,1: 4,1 $+ $replace($3-,^,0^4,*,0*4,@,0@4,%,0%4,+,0+4) $+ 4
  halt
}
RAW 301:*: {
  echo -a 4 
  halt
}
RAW 311:*: {
  set -u1 %x 1
  echo -a 4,1-----------------------------0G13AoUsTiS Whois4-----------------------------
  echo -a 4,10 $+ $2 4Is 4:0 $mid($gettok($2-,2,42),2,99) $+ 
  echo -a 4,10 $+ $2  $+ 4 Address Is 4:0 $mid($address($2,1),4,99) $+ 
  halt
}
RAW 317:*: { 
  echo -a 4,10 $+ $2 4Has Signed on4:0  $replace($duration($calc($ctime - $4)),wk,4 Week4,min,4 Minute4,sec,4 Secound4,day,4 Day4,hr,4 Hour4)  
  echo -a 4,10 $+ $2 4Has been idle for 4:0 $replace($duration($3),wk,4 Week4,min,4 Minute4,sec,4 Secound4,day,4 Day4,hr,4 Hour4) 
  halt
}
RAW 318:*: 
echo -a 4,1-----------------------------0End Of G13AoUsTiS Whois4-----------------------------
halt 
} 
else { halt }

raw 307:*:{ 
  echo -a $smb 4,10 $+ $2 4Is Identified 
  halt 
}
raw 301:*:{ 
  echo -a $smb 4,1Away:0 $3- | else { echo -a  $smb $2 is Away. $sv(Reason,$3-) } | halt 
}