Triangular Text by clock

L S =S INPUT :S(L)
 S " " = :S(L)
 S ? LEN(X =X + 1) . OUTPUT RTAB(0) $ S :S(L)
 OUTPUT =S
END

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page