Runs fine here. I've included the FB file info 
header. Run it with the header and see if it 
works.

Ken


'~'A
'                           Processor : cpuPPC
'                         Code Format : PreCarbon
'                             Runtime : Rntm Appearance.Incl
'                            Debugger : No
'                          CALL Req'd : No
'                    No Re-dim'd Vars : Yes
'                     dim'd Vars Only : Yes
'                        Debug Labels : Yes
'                           QB Labels : No
'                       Optimize STR# : Yes
'                 Ary Bounds Checking : Yes
'                       Show Warnings : Yes
'                       Register Vars : No
'               Make Line Start Table : No
'~'B

KILL RESOURCES "plst",0

DIM @gfileName$, @gFileVol%

APPEARANCE WINDOW #80,"Field Identification for the File",¬
(0,0)-(600,450),_kDocumentwindowClass

// gFBUseNavServices = _zTrue // New-style dialog
// gFBUseNavServices = _false // Old-style dialog

gFileVol% = 0
gFileName$ = FILES$( _fOpen,"",,gFileVol% )

// APPEARANCE WINDOW #80,"Field Identification for the File",¬
// (0,0)-(600,450),_kDocumentwindowClass

LONG IF ( gFileName$ )
APPEARANCE BUTTON 107, _activeBtn,0,0,1,¬
"Cancel",(431,415)-(501,435),_kControlPushButtonProc
APPEARANCE BUTTON 108, _activeBtn,0,0,1,¬
"Finish",(348,415)-(418,435),_kControlPushButtonProc
APPEARANCE BUTTON 109, _activeBtn,0,0,1,¬
"Help",(514,415)-(584,435),_kControlPushButtonProc
XELSE
// User canceled, file dialog closes
END IF

print "File selected is:"; gFileName$, gFileVol%

do
handleevents
until gFBQuit