alias pfind {
var %tbl = pinfo, %tsize = $hget(%tbl,0).item, %win = @pinfo_srt, %win2 = @pinf_srtd
; add to window
/window -h %win
/window -h %win2
var %p = 1
while (%p <= %tsize) {
/aline %win $+($hget(%tbl,%p).item,$chr(9),$hget(%tbl,$hget(%tbl,%p).item))
/inc %p
}
; sort
if ($1 == size) /filter -tuww 6 9 %win %win2
else if ($1 == score) /filter -tuww 7 9 %win %win2
; Output
var %lines = $line(%win2,0), %l = %lines - 5, %c = 1
if (%l < 0) var %l = 0
while (%lines > %l) {
/echo -s $+(%c,.) $line(%win2,%lines)
/inc %c
/dec %lines
}
/window -c %win
/window -c %win2
}