_ExportMPF: procedure expose PDFFiles.
    MergeFile = arg(1)
    call lineout MergeFile, 'program 'VRGet("Main","HintText")
    call lineout MergeFile, 'files 'PDFFiles.0
    do I = 1 to PDFfiles.0
        call lineout MergeFile, PDFFiles.I
    end
    ok = stream(MergeFile,'c','close')
return 1