input""n$
for i=1to 10k=asc(mid$(n$,i))-48
if i=1s$=f$(k,2)
s$=a$+left$(f$(k,0),2)+f$(asc(mid$(n$,i+1))-48,2)+"
"+a$+f$(k,1)+"
"+s$
a$=a$+" "next
?s$
sub f$(u,v)return mid$("/\\ \\ \\ \\/ \\ \\ /\\ / \\//\\ /\\ / \\ \\/\\ / \\/\\ // \\/\\ \\//\\ \\ /\\ \\/\\ \\//\\ \\/\\ ",9*u+3*v+1,3)end sub
Note that non-ascii characters in the above source code will be escaped (such as \x9f).