Hi, I often use something like this for ftest 100 DEFine FuNction ftest2(file$) 110 LOCal dad$,ded$,prd$,a 120 dad$=DATAD$ 130 ded$=DESTD$ 140 prd$=PROGD$ 150 DATA_USE "" 160 DEST_USE "" 170 PROG_USE "" 180 a=FTEST(file$) 190 DATA_USE dad$ 200 DEST_USE ded$ 210 PROG_USE prd$ 220 RETurn a 230 END DEFine ftest2 240 :
HTH Wolfgang _______________________________________________ QL-Users Mailing List
