begin
  constinteger Max Lines = 20, Max Line Width = 80
  byte integer array AA, BB (1:Max Lines*Max Line Width)
  byte integer array     CC (1:Max Lines*Max Line Width)
endofprogram