Дан целочисленный двумерный массив n на m. удвоить каждый элемент данного массива. полученный массив вывести на экран. !

Пишу на QBasic
CLS
DIM A(N,M)
...
Здесь заполнение массива
...
FOR I = 1 TO M
 FOR J = 1 TO N
  A(I,J)=2*A(I,J)
  PRINT A(I,J);
  PRINT  (" ");
 NEXT J
PRINT (" ")  
NEXT I