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