;@modern
; CONST: named values worked out by the compiler

CONST WIDTH=20, HEIGHT=3
CONST CELLS=WIDTH*HEIGHT     ; a constant may use earlier ones
CONST SIZE=5+5
CONST CHAR FRAME='#

PROC Main()
  BYTE x, y

  FOR y=1 TO HEIGHT
  DO
    FOR x=1 TO WIDTH
    DO
      Put(FRAME)
    OD
    PutE()
  OD

  Print("Cells: ")
  PrintBE(CELLS)
  Print("SIZE*2: ")
  PrintBE(SIZE*2)            ; 20 - with DEFINE it would be 15
RETURN