bwBASIC/HB2X/MAT_READ_8.BAS

100 REM Purpose: Verify MAT READ #
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2015-08-05
130 REM
200 DIM A(2,2)
210 FILE #3, "MAT_READ_8.TXT"
220 RESTORE #3
300 PRINT "MAT READ #, DEFAULT DELIMITER"
310 REM DELIMIT #3, ","
320 MAT READ #3, A
330 MAT PRINT A
400 PRINT "MAT READ #, CUSTOM DELIMITER"
410 DELIMIT #3, "*"
420 MAT READ #3, A
430 MAT PRINT A
500 PRINT "MAT READ #, TAB DELIMITER"
510 DELIMIT #3, CHR$(9)
520 MAT READ #3, A
530 MAT PRINT A
600 PRINT "MAT PRINT, DEFAULT DELIMITER"
610 MAT PRINT A
700 PRINT "MAT PRINT #, DEFAULT DELIMITER"
710 MAT PRINT #0, A
800 PRINT "MAT WRITE, DEFAULT DELIMITER"
810 MAT WRITE A
900 PRINT "MAT WRITE #, DEFAULT DELIMITER"
910 MAT WRITE #0, A
1000 DELIMIT #0, "*"
1600 PRINT "MAT PRINT, CUSTOM DELIMITER"
1610 MAT PRINT A
1700 PRINT "MAT PRINT #, CUSTOM DELIMITER"
1710 MAT PRINT #0, A
1800 PRINT "MAT WRITE, CUSTOM DELIMITER"
1810 MAT WRITE A
1900 PRINT "MAT WRITE #, CUSTOM DELIMITER"
1910 MAT WRITE #0, A
9999 END