DIM DYNAMIC a$[20]
 REDIM a$[10]
 
 a$[0] = "this"
 a$[1] = "is"
 a$[2] = "a"
 a$[3] = "test"
 
 REDIM PRESERVE a$[20]
 
 ?  a$[0]
 ?  a$[1]
 ?  a$[2]
 ?  a$[3]
 
 DIM b$ * 10
 b$ = "1234567890"
 ?  b$
 
 REDIM b$ * 14
 b$ = b$ & "ABCD"
 ?  b$
 
 REDIM PRESERVE b$ * 20
 b$ = b$ & "EFGHIJKLMNOPQRST"
 ?  b$
 
 KEYPRESS