Coasters by pooq

A/B:-writef(A,B).
+N:-"|%r|
"/[' ',N].
m:-prompt1(''),readln([A]),name(A,B),length(B,L),N is L+2," %r
/%r\\
"/['_',N,' ',N],+N,(N<8;+N),"| %p |
"/[A],+N,(N<8;+N),"\\\\%r/"/['_',N].

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page