widgetFunc["saveFileName","*.formula","",100]
IF#100==""GOTO1
#1550.description=#100
N2
widgetFunc["SysFunc",#1550.description,"saveParamItemAs1",1550]
widgetFunc["messageBox",#1107.itemtitle[42],"",""]
N1

