BCX Console Demonstration Program s151.bas

 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