NetNews Usenet Archive 1992 #16/NN_1992_16.iso/spool/comp/sys/next/misc/18210/homerow

Text File | 1992-07-27 | 178 b | 4 lines

#!/bin/csh
set rows=(aoeuidhtnsAOEUIDHTNS asdfghjklASDFGHJKL)
pword -a $1|awk \{if\(\$1\!\~/\[\^$rows[$#argv]\]/\&\&\$1\~/.../\)\{\s+=\$2\;print\ \$1\,\$2+0\}\}\;END\{print\ s\}