Преобразовать массив по правилу: программа выдает нули - QBasic

Формулировка задачи:

кажется что просто, но что бы не делал выводио нули =( вот я сделал преобрахование переменной Х в массив М по уравнению

     DIM M0(3,4)
     OPEN “d:\data0\dx0.dat” FOR INPUT AS #1
     INPUT #1, X
     PRINT “X=”; X
     OPEN “d:\data0\dm0.dat” FOR OUTPUT AS #2
     FOR i = 1 TO 3
     FOR j = 1 TO 4
     M0(i,j) = (SIN(X-3) / COS(X-3)) / (j^2 – 5*i)
     WRITE #2, M0 (i, j)
     PRINT “M0(“; i; “,”; j; “)=”; M0(i, j)
     NEXT j
     NEXT i
     CLOSE #1
     CLOSE #2

__________ как видно записал массив в dm0.dat открываю блокнотом все там есть все 12 числе =) ___

сейчас задача

преобразовать этот массив M0 в массив M1 по уравнению M1(i,j,) = ] tg ( M0(i,j) ) + SQR(2*j - i) [ ___ я застрял на выводе на экран массива M0 того что в файле dm0.dat =) что бы не делал выводит двенадцать нулей =( хотя если не указывать размеры массива выыодит первое число из файла...

Решение задачи: «Преобразовать массив по правилу: программа выдает нули»

textual
                            Листинг программы 
                        

                            DIM m0(3, 4), m1(3, 4)
OPEN "dm0.dat" FOR INPUT AS #1
PRINT "ishodnyj massiv"
FOR i = 1 TO 3
FOR j = 1 TO 4
INPUT #1, m0(i, j)
PRINT m0(i, j);
NEXT
PRINT
NEXT
CLOSE
OPEN "dm1.dat" FOR OUTPUT AS #2
PRINT "novyj massiv"
FOR i = 1 TO 3
FOR j = 1 TO 4
m1(i, j) = ABS(TAN(m0(i, j)) + SQR(2 * j + i))
PRINT m1(i, j);
PRINT #2, m1(i, j);
NEXT
PRINT
PRINT #2, ""
NEXT
CLOSE
                        