character::s(99)*99="",c*1;i=0 1 i=i+2;j=1 2 call fget(c,k);if(c<".")goto3 s(i)(j+1:j+3)="___";s(i+1)(j:)="| |";s(i+2)(j:)="|___|" 3 j=j+4;goto(1)ichar(c)-9;goto(2)1-k print'(a)',(trim(s(i)),i=2,99);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).