22 lines
408 B
Text
22 lines
408 B
Text
Size = 5
|
|
DIM array(Size-1, Size-1)
|
|
|
|
i = 1
|
|
j = 1
|
|
FOR e = 0 TO Size^2-1
|
|
array(i-1, j-1) = e
|
|
IF and((i + j), 1) = 0 THEN
|
|
IF j < Size then j = j + 1 ELSE i = i + 2 end if
|
|
IF i > 1 i = i - 1
|
|
ELSE
|
|
IF i < Size then i = i + 1 ELSE j = j + 2 end if
|
|
IF j > 1 j = j - 1
|
|
ENDIF
|
|
NEXT e
|
|
|
|
FOR row = 0 TO Size-1
|
|
FOR col = 0 TO Size-1
|
|
PRINT array(row,col) USING "##";
|
|
NEXT col
|
|
PRINT
|
|
NEXT row
|