EXPORT a QMF QUERY or PROC from temporary storage

1 EXPort
2! panelname (1) 
2?
2 QUERY
2 PROC
3 To  filename
4!objecttype (2)  A
4?
4 filetype
4.1! A
4 filetype fm
4?  (
4.1? 
4.1 CONfirm
4.1.1! =
4.1.2! profile (3) 
4.1.2 Yes
4.1.2 No
4.1.3? )