24 lines
517 B
Plaintext
24 lines
517 B
Plaintext
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 ((i% + j%) AND 1) = 0 THEN
|
|
IF j% < Size% j% += 1 ELSE i% += 2
|
|
IF i% > 1 i% -= 1
|
|
ELSE
|
|
IF i% < Size% i% += 1 ELSE j% += 2
|
|
IF j% > 1 j% -= 1
|
|
ENDIF
|
|
NEXT
|
|
|
|
@% = &904
|
|
FOR row% = 0 TO Size%-1
|
|
FOR col% = 0 TO Size%-1
|
|
PRINT array%(row%,col%);
|
|
NEXT
|
|
PRINT
|
|
NEXT row%
|