|
- 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
|