BCX Console Demonstration Program s147.bas

 DIM DYNAMIC Buf$ [10]
 
 Buf$[0] = "Zero"
 Buf$[1] = "One"
 Buf$[2] = "Two"
 Buf$[5] = "Five"
 
 CALL Foo(Buf$)
 
 SUB Foo(A$ AS STRARRAY)
   LOCAL i
   WHILE ISPTR(A$[i])
     IF A$[i] > "" THEN PRINT A$[i]
     INCR i
   WEND
 END SUB