100 REM Purpose: Verify MAT WRITE #
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2015-08-05
130 REM
200 DIM A(2,2)
210 MAT A = IDN
220 FILE #3, "MAT_WRITE_8.TXT"
230 SCRATCH #3
300 REM
310 REM DELIMIT #3, ","
320 MAT WRITE #3, A
400 REM
410 DELIMIT #3, "*"
420 MAT WRITE #3, A
500 REM
510 DELIMIT #3, CHR$(9)
520 MAT WRITE #3, A

600 REM
610 FILE #3,"*"
620 FILE #3,"MAT_WRITE_8.TXT"

700 PRINT "COMMA"
710 DELIMIT #3, ","
720 MAT READ #3, A
730 MAT PRINT A

800 PRINT "ASTERISK"
810 DELIMIT #3, "*"
820 MAT READ #3, A
830 MAT PRINT A

900 PRINT "TAB"
910 DELIMIT #3, CHR$(9)
920 MAT READ #3, A
930 MAT PRINT A

990 PRINT "TEST PASSED"
999 END
