Procedure from library inout.lib (see inout_lib).
inout.lib
tab(n); n integer
string of n space tabs
Example:
LIB "inout.lib"; for(int n=0; n<=5; n=n+1) { tab(5-n)+"*"+tab(n)+"+"+tab(n)+"*"; } → *+* → * + * → * + * → * + * → * + * → * + *