18 lines
279 B
Text
18 lines
279 B
Text
( out$"Number of rows? "
|
|
& get':?R
|
|
& -1:?I
|
|
& whl
|
|
' ( 1+!I:<!R:?I
|
|
& 1:?C
|
|
& -1:?K
|
|
& !R+-1*!I:?tabs
|
|
& whl'(!tabs+-1:>0:?tabs&put$\t)
|
|
& whl
|
|
' ( 1+!K:~>!I:?K
|
|
& put$(!C \t\t)
|
|
& !C*(!I+-1*!K)*(!K+1)^-1:?C
|
|
)
|
|
& put$\n
|
|
)
|
|
&
|
|
)
|