100 REMark CREATE using an array to pass parameters
110 DIM Fd%(5,1)
120 DIM Nm$(5,10)
130 RESTORE
140 :
150 FOR F=0 TO 5
160  READ Fd%(F,0),Fd%(F,1),Nm$(F)
170 END FOR F
180 :
190 CREATE #3;FLP2_TEST2_DBS\Fd%
200 FOR F=1 TO 6: STNAME #3;F,Nm$(F-1)
210 SAVE_NAMES #3
220 :
230 REMark Dump database information
240 PRINT FLNUM(#3);" FIELDS"
250 PRINT "TYPE","LENGTH","NAME"
260 FOR F=1 TO FLNUM(#3)
270  PRINT FLTYP(#3;F),FLLEN(#3;F),FLNAME(#3;F)
280 END FOR F
290 LIST #1;1000 TO
300 :
310 CLOSE_DATA #3
1000 REMark The parameters used
1010 DATA 1,0,"I%"
1020 DATA 2,0,"J@"
1030 DATA 3,0,"K"
1040 DATA 0,6,"L$"
1050 DATA 1,0,"M%"
1060 DATA 0,-6,"V$"
