Заполнение массива через DATA- QBasic(Бейсик)

CLS
DIM A(4, 4)
DATA 0,0,1,1
DATA 0,0,2,2
DATA 3,3,0,0
DATA 4,4,0,0
FOR i = 1 TO 3
    FOR j = 1 TO 3
        READ A(i, j)
        PRINT A(i, j);
    NEXT j
    PRINT
NEXT i