BCX Console Demonstration Program s148.bas

 DIM in$, i, z
 DIM ar[20]
 DIM f![20]
 DIM d#[20]
 DIM g![20,20]
 
 in$ = "1.1, 3.3, 5.5, 7.7, 9.9, 11.11"
 z = FILLARRAY(in$, vt_SINGLE, 6, f!)
 FOR i = 0 TO z
   PRINT "f["; MID$(STR$(i), 2); "] = "; f![i]
 NEXT
 
 in$ = "1, 3, 5, 7, 9, 11"
 z = FILLARRAY(in$, vt_INTEGER, 6, ar)
 FOR i = 0 TO z
   PRINT "ar["; MID$(STR$(i), 2); "] ="; ar[i]
 NEXT
 
 in$ = "1.1, 3.3, 5.5, 7.7, 9.9, 11.11"
 z = FILLARRAY(in$, vt_DOUBLE, 6, d#)
 FOR i = 0 TO z
   PRINT "d["; MID$(STR$(i), 2); "] ="; d#[i]
 NEXT
 
 in$ = "1.1, 3.3, 5.5, 7.7, 9.9, 11.11"
 z = FILLARRAY(in$, vt_SINGLE, 6, &(g![0, 0]))
 FOR i = 0 TO z
   PRINT "g[0]["; MID$(STR$(i), 2); "] = "; g![0][i]
 NEXT
 
 in$ = "3.3, 5.5, 7.7, 9.9, 11.11, 13.13"
 z = FILLARRAY(in$, vt_SINGLE, 6, &(g![1, 0]))
 FOR i = 0 TO z
   PRINT "g[0]["; MID$(STR$(i), 2); "] = "; g![0][i]; " g[1]["; _
   MID$(STR$(i), 2); "] = "; g![1][i]
 NEXT