FOpenDemo
Win3 Style File Open Demo
Form1
Demo1
FullName: 
Demo2
	ThePath: 
Demo3
TheFileName: 
Demo4
ThePattern: 
&File
FileOpen
&Open
MenuSeparator1
&Exit
FileOpen_Click
FullName
ThePattern
	FormTitle
	FOpenForm
Modal
demo1
caption
demo2
ThePath
demo3
TheFileName
demo4
Done_Click
FileOpen_Click
 Before calling FOPEN.FRM we can specify a new pattern (ThePattern) a new path
 (ThePath) and a different Form Title.  Change FullName to an empty string.a
 you can also combine patterns, e.g. ThePattern = "*.BAS;*.FRM;*.TXT"R
Demo File Open
 We want to show the form Modal and Unload it after completion (no reason to
 waste resources).
 The demo prints out the user's selection.  Note: FullName will be an empty string if
 the user cancels.  So check FullName on return from FOPEN to see whether to process
 the file.
No File Selected
FullName: 
ThePath: "
TheFileName: "
ThePattern: 
Done_Click