; A program in two files

INCLUDE "D:SHAPES.ACT"       ; the routines of shapes.act are now known

PROC Main()
  ShapeLine(12, '=)
  ShapeBox(6, 2, '#)
  ShapeLine(12, '=)
RETURN