100 REMark EXPORT a database using a pair of arrays to pass parameters
110 OPEN_DIN #3;FLP2_GAZET_DBS
120 DIM Fnum$(2,10),Name$(2,10)
130 Fnum$(0)=1
140 Name$(0)="Count$"
150 Fnum$(1)="CONTINENT$"
160 Name$(1)="Conti$"
170 Fnum$(2)="LANGUAGE$"
180 Name$(2)="Langu$"
190 :
200 REMark Don't export any which contain a Z in the country$ field
210 EXCLUDE #3;"COUNTRY$","NC","Z"
220 :
230 EXPORT #3 TO FLP2_TEST2_EXP;Name$\Fnum$
240 CLOSE_DATA #3
250 :
260 REMark Dump contents of export file
270 OPEN_IN #3;FLP2_TEST2_EXP
280 REPeat F_Lp
290  IF EOF(#3) THEN EXIT F_Lp
300  PRINT INKEY$(#3;-1);
310 END REPeat F_Lp
320 CLOSE #3
330 :
340 PRINT
350 PRINT "The parameters used"
360 FOR F=0,1,2: PRINT Fnum$(F)TO 15;Name$(F)
