100 REM Purpose: Verify CSAVE*
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2014-02-18
130 REM
200 OPTION BASE 1
210 DIM A(2,3)
220 FOR I = 1 TO 2
230 FOR J = 1 TO 3
240 A(I,J) = I * 10 + J
245 PRINT A(I,J)
250 NEXT J
260 NEXT I
270 CSAVE* A
280 END
