line input""a$ for i=1to len(a$)b$=mid$(a$,i,1) d=1-d g=b$=" " if g d=0:c$=c$+"___":d$=d$+" | ":e$=e$+" | ":f$=f$+"_|_" if!g c$=c$+"_":d$=d$+chr$(32+92*d):e$=e$+b$:f$=f$+chr$(124-29*d) next ?" ",c$,"__ | ",d$," | | ",e$," | |_",f$,"_|"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).