10 REM 'STORE' TEST PROGRAM
20 OPTION BASE 1
30 DIM A(10)
40 FOR I=1 TO 10
50 A(I)=I
60 NEXT I
70 STORE A
80 FOR I=1 TO 10
90 A(I)=0
100 NEXT I
110 RECALL A
120 PRINT "'STORE' PASSED IF 1 TO 10"
130 FOR I=1 TO 10
140 PRINT A(I);
150 NEXT I
160 PRINT
999 END
