; DEFINE: names for numbers and pieces of the program

DEFINE WIDTH="20",
       HEIGHT="4",
       FRAME="'#",
       STRING="CHAR ARRAY"

PROC Main()
  BYTE x, y
  STRING title="A box of WIDTH by HEIGHT"

  PrintE(title)
  FOR y=1 TO HEIGHT
  DO
    FOR x=1 TO WIDTH
    DO
      IF y=1 OR y=HEIGHT OR x=1 OR x=WIDTH THEN
        Put(FRAME)
      ELSE
        Put(' )
      FI
    OD
    PutE()
  OD

  Print("Characters in the box: ")
  PrintBE(WIDTH*HEIGHT)
RETURN