; echo in Orthogonal (by-word version) ; written by Brian Raiter, 6/96 :set ArgRow = 20 :set MaxArgs = 128 :set aY = ArgRow :set End = MaxArgs [0,0] 0 End L 1 - @ @ ? cw $ ret cw ccw ? = ~ aY cw 1 + L nop @ aY cw - ~ 1 = cw J $ cw ? @ ~ cw c nop ' ' @ s ? cw cw '\n' c 0 ret