مربع جادويي
به ورودي اين برنامه طول ضلع مربع را ميدهيم البته بايد عددي فرد باشد
مثلا ما عدد سه را وارد مي کنيم خروجي ان برنامه يک مربع سه در سه خواهد بود که اعداد داخل خانه ها را هرگونه جمع کنيد يک عدد ثابتي مي شود
CLS
c = 1
INPUT n
OPTION BASE 0
DIM a(n + 1, n + 1)
IF n MOD 2 = 0 THEN END
b = n \ 2 + 1
a(c, b) = 1
FOR i = 2 TO n ^ 2
        c = c - 1: b = b + 1
        IF a(c, b) = 0 THEN
                IF c = 0 THEN k = c: c = n
                IF b = n + 1 THEN
                        q = b: b = 1
                END IF
                IF a(c, b) > 0 THEN c = k + 2: b = q - 1
        ELSE
                c = c + 2
                b = b - 1
        END IF
a(c, b) = i
NEXT i
FOR i = 1 TO n
        FOR j = 1 TO n
                PRINT USING "####"; a(i, j);
        NEXT
PRINT
PRINT
NEXT
END