alias sockbuf {
var %buf = $null, %string = $2-, %num = 0
while (%string) {
%buf = $gettok(%string,1,32)
%string = $deltok(%string,1,32)
if (%num != 0) { %buf = $+ $chr(32) $+ $+ %buf }
while ($len(%buf) < 75 && %string) {
%buf = %buf $gettok(%string,1,32)
%string = $deltok(%string,1,32)
}
if ($len(%buf) > 75) { %string = $instok(%string,$gettok(%buf,$numtok(%buf,32),32),1,32) | %buf = $deltok(%buf,$numtok(%buf,32),32) | sockwrite -n $1 %buf }
else { sockwrite -n $1 %buf }
inc %num
}
}