j.stk

su 的源代码库

set -x
integer k  j1 j2
k=2
 suaddhead<r1 ftn=1 ns=301>ou1
 sunull nt=301 ntr=252>>ou1
while((k<=26))
do
 j1=k*10-10
 j2=300-j1-48
 sunull nt=301 ntr=$j1>ou2
 suaddhead<r$k ftn=1 ns=301>>ou2
 sunull nt=301 ntr=$j2>>ou2
 susum ou1 ou2>out
 mv -f out ou1
 k=k+1
done