CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO 4: READ X1(I), Y1(I), X2(I), Y2(I): NEXT I
DATA 1,0,1,-1,0,1,1,1,-1,0,-1,1,0,-1,0,0
Y = 1
FOR I = N - 1 TO 0 STEP -2
  IF I = 0 THEN A(X + 1, Y) = N * N: GOTO 10
  FOR J = 1 TO 4
    FOR K = 1 TO I
      X = X + X1(J): Y = Y + Y1(J)
      S = S + 1
      A(X, Y) = S
    NEXT K
    X = X + X2(J): Y = Y + Y2(J)
  NEXT J
NEXT I
10 FOR I = 1 TO N
  FOR J = 1 TO N
    PRINT USING "####"; A(I, J);
  NEXT J: PRINT
NEXT I
END

CLS
INPUT n:k=n:DIM a(n+1,n+1):s=0
x=1:y=1
DO
  DO WHILE a(x,y)=0 AND y<=k
     s=s+1
     a(x,y)=s
     y=y+1
  LOOP
  x=x+1:y=y-1
  DO WHILE a(x,y)=0 AND x<=k
     s=s+1
     a(x,y)=s
     x=x+1
  LOOP
  x=x-1:y=y-1
  DO WHILE a(x,y)=0 AND y>=1
     s=s+1
     a(x,y)=s
     y=y-1
  LOOP
  y=y+1:x=x-1
  DO WHILE a(x,y)=0 AND x>=1
     s=s+1
     a(x,y)=s
     x=x-1
  LOOP
LOOP UNTIL s=n*n
FOR i=1 TO n:FOR j=1 TO n
    PRINT USING"####";a(i,j);
NEXT j:PRINT:NEXT i:END

?" 1  2  3 4"
?"12 13 14 5
?"11 16 15 6"
?"10  9  8 7"

CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO 4: READ X1(I), Y1(I), X2(I), Y2(I): NEXT I
DATA 1,0,1,-1,0,1,1,1,-1,0,-1,1,0,-1,0,0
Y = 1
FOR I = N - 1 TO 0 STEP -2
  IF I = 0 THEN A(X + 1, Y) = N * N: GOTO 10
  FOR J = 1 TO 4
    FOR K = 1 TO I
      X = X + X1(J): Y = Y + Y1(J)
      S = S + 1
      A(X, Y) = S
    NEXT K
    X = X + X2(J): Y = Y + Y2(J)
  NEXT J
NEXT I
10 FOR I = 1 TO N
  FOR J = 1 TO N
    PRINT USING "####"; A(I, J);
  NEXT J: PRINT
NEXT I
END