DIM n
            n = 7
            DIM k, x, y, x_new, y_new, fi,f
            x_new = 0
            fi = 0
            f = 1
            DIM mass(7,7)

            FOR i = 1 TO 7
              FOR j = 1 TO 7
                mass(i,j) = 0
              NEXT j
            NEXT i

            FOR i = 1 TO 49
             IF fi >= 5 THEN
              f = f+1
              fi = 0
             END IF
              fi = fi+1
              x = x_new + x
              y = y_new + y
              IF x < 0 OR y < 0 OR x > n-1 OR y > n-1 OR NOT mass(y,x) = 0 THEN
                x = x_new - x
                y = y_new - y
                IF k = 4 THEN
                  k = 0
                END IF
                IF k = 0 THEN
                  x_new = 1
                  y_new = 0
                END IF
                IF k = 1 THEN
                  x_new = 0
                  y_new = 1
                END IF
                IF k = 2 THEN
                  x_new = -1
                  y_new = 0
                END IF
                IF k = 3 THEN
                  x_new = 0
                  y_new= -1
                END IF
                x = x_new + x
                y = y_new + y
              END IF
            NEXT i

            FOR g = 1 TO 7
              FOR j = 1 TO 7
                PRINT( mass(i,j) )
              NEXT j
            PRINT
            NEXT g