100 REMark IMPORT a file using an array to pass parameters
110 OPEN_DIN #3;FLP2_GAZET_DBS
120 EXPORT #3 TO FLP2_GAZET_EXP
130 CLOSE_DATA #3
140 :
150 DIM I%(7)
160 RESTORE
170 FOR F=0 TO 7
180  READ I%(F)
190 END FOR F
200 IMPORT FLP2_GAZET_EXP TO #3;FLP2_TEST2_DBS\I%
210 :
220 REMark Dump information about the database
230 PRINT FEXTRA(#3)
240 PRINT FLNUM(#3);" FIELDS"
250 PRINT "TYPE","LENGTH"
260 FOR F=1 TO FLNUM(#3)
270  PRINT FLTYP(#3;F),FLLEN(#3;F)
280 END FOR F
290 CLOSE_DATA #3
300 LIST #1;1000 TO
1000 REM The parameters used
1010 DATA 20
1020 DATA 12
1030 DATA 18
1040 DATA 22
1050 DATA 28
1060 DATA 1
1070 DATA 1
1080 DATA 1
