Example 20-1: BASIC Main Program
  PROGRAM call_fortran
        ! The BASIC main program prints the array before
        ! calling the subroutine
              EXTERNAL SUB forsub (WORD DIM(,) BY REF)
              DIM WORD array_x(1 TO 10, 1 TO 5)
              FOR column = 1 TO 5
                    FOR row = 1 TO 10
                          array_x(row,column)=(10*row + column)
                          PRINT array_x(row,column);
                    NEXT row
                    PRINT
              NEXT column
              PRINT
              CALL forsub(array_x(,) BY REF)
  END PROGRAM