Data commit

Task/Zig-zag-matrix/Applesoft-BASIC/zig-zag-matrix.basic

@@ -0,0 +1,25 @@
+100 S = 5
+110 S2 = S ^ 2 : REM SQUARED
+120 H = S2 / 2 : REM HALFWAY
+130 S2 = S2 - 1
+140 DX = 1 : REM INITIAL
+150 DY = 0 : REM DIRECTION
+160 N = S - 1
+170 DIM A%(N, N)
+
+200 FOR I = 0 TO H
+210     A%(X, Y) = I
+220     A%(N - X, N - Y) = S2 - I
+230     X = X + DX
+240     Y = Y + DY
+250     IF Y = 0 THEN DY = DY + 1 : IF DY THEN DX = -DX
+260     IF X = 0 THEN DX = DX + 1 : IF DX THEN DY = -DY
+270 NEXT I
+
+300 FOR Y = 0 TO N
+310     FOR X = 0 TO N
+320         IF X THEN PRINT TAB(X * (LEN(STR$(S2)) + 1) + 1);
+330         PRINT A%(X, Y);
+340     NEXT X
+350     PRINT
+360 NEXT Y