CLS
INPUT h, l
x = 1: y = -1
DIM a(h, l)
FOR i = 1 TO h * l
    xx = xx + x
    yy = yy + y
    IF xx < 1 OR xx > h OR yy < 1 OR yy > l THEN SWAP x, y
    IF xx > h THEN
       xx = h: yy = yy + 2
    END IF
    IF yy > l THEN
       yy = l: xx = xx + 2
    END IF
    IF xx < 1 THEN xx = 1
    IF yy < 1 THEN yy = 1
    a(xx, yy) = i
NEXT i
FOR i = 1 TO h
    FOR j = 1 TO l
        PRINT USING "####"; a(i, j);
    NEXT j: PRINT
NEXT i
END