В квадратной матрице поменять местами 1-й и 2-й столбцы- QBasic(Бейсик)

 CLS
DIM A(4, 4)
  DATA   1,   2, 0.5,    3
  DATA  -1, 0.5,   2, -1.5
  DATA 1.7, 0.3,   1,    2
  DATA   2,  -1,   0,  0.7
 ' Прочтем массив
FOR iy = 1 TO 4: FOR ix = 1 TO 4
  READ A(ix, iy)
  PRINT A(ix, iy);
NEXT: PRINT : NEXT: PRINT
 ' Поменяем столбцы местами
FOR iy = 1 TO 4
  SWAP A(1, iy), A(2, iy)
NEXT
 ' Выведем результат
FOR iy = 1 TO 4: FOR ix = 1 TO 4
  PRINT A(ix, iy);
NEXT: PRINT : NEXT