Drawing a box

This example is a suitable demonstration for Top-Down programming. How does one draw a box on a conventional screen?


\begin{elan} draw box : ask size ; draw lid ; draw sides ; draw bottom ... ... ; put ( pip ) ; line . \par pip : ''!!'' . \par blank : '' '' . \end{elan}