Try this:

*!* Begin Code Sample

PUBLIC x
x = CREAT([oForm1])
x.SHOW

DEFINE CLASS oForm1 AS FORM
	AUTOCENTER = .T.
	ADD OBJECT button1 AS BUTTON
	button1.LEFT = 150
	button1.TOP = 200
	button1.HEIGHT = 30
	button1.CAPTION = [Quit]
	ADD OBJECT CreatFileButton AS CreateFile
	CreatFileButton.AUTOSIZE = .T.
	CreatFileButton.LEFT = 100
	CreatFileButton.TOP = 75
	CreatFileButton.CAPTION = [Click to create the qlp file.]
	ADD OBJECT txtbox1 AS TEXTBOX
	txtbox1.VALUE = [54990]
	ADD OBJECT txtbox2 AS TEXTBOX
	txtbox2.VALUE = [22]
	txtbox2.TOP = 25
ENDDEFINE

DEFINE CLASS BUTTON AS COMMANDBUTTON
	CANCEL = .T.
	PROC CLICK
		RELEASE THISFORM
	ENDPROC
ENDDEFINE

DEFINE CLASS CreateFile AS COMMANDBUTTON
	PROC CLICK
		STRING = ALLTRIM(THISFORM.txtbox1.VALUE) + CHR(10) + ;
			ALLTRIM(THISFORM.txtbox2.VALUE)
		STRTOFILE(STRING,[MyFile.qlp])
		MODI FILE MyFile.qlp NOWAIT
	ENDPROC
ENDDEFINE

*!* End Code Sample

>I have a new application that needs to write the information showing in txt boxes on the form to a text file.
>
>example;
>
>txtbox1 shows part "54990"
>txtbox2 shows quantity "22"
>
>each must be printed to a separate line, and the file must be created in a queue subdirectory with a .qlp extension(not a special file type just a name that another program will recognize)
>
>Thanks ahead of time.
>
>Brad.