CLS
INPUT h, l
DIM a(h, l)
f = 0: s = 0: k1 = h - 1: k2 = l - 1
DO
  f = f + 1: s = s + 1: x = f: y = f
  a(x, y) = s
  IF s = h * l THEN EXIT DO
  FOR i = 1 TO k2
      y = y + 1: s = s + 1: a(x, y) = s
      IF s = h * l THEN EXIT DO
  NEXT i
  FOR i = 1 TO k1
      x = x + 1: s = s + 1: a(x, y) = s
      IF s = h * l THEN EXIT DO
  NEXT i
  FOR i = 1 TO k2
      y = y - 1: s = s + 1: a(x, y) = s
      IF s = h * l THEN EXIT DO
  NEXT i
  k1 = k1 - 1
  FOR i = 1 TO k1
      x = x - 1: s = s + 1: a(x, y) = s
      IF s = h * l THEN EXIT DO
  NEXT i
  k1 = k1 - 1: k2 = k2 - 2
LOOP
FOR i = 1 TO h
    FOR j = 1 TO l
        PRINT USING "####"; a(i, j);
    NEXT j
    PRINT
NEXT i
END