#100=".program"
#100.unit=widgetFunc["saveFileName","*.program","",100]
IF#100.unit==""GOTO1
#1551.title=#100.unit+"<"+[#1551.title/"<"]
#1551.description=#100

#100=#100.unit*"."+".nc"
#100.unit=widgetFunc["saveFileName","*.nc","",100]
IF#100.unit==""GOTO3
#1551.unit=#100
#1551.title=[#1551.title*"<"]+"<"+#100.unit
GOTO3
N3
widgetFunc["SysFunc",#1551.description,"saveParamItemAs1",1551]
IF#1551.unit==""GOTO4
#10=0
#1.title=""
WHILE#10<#1551.itemnumDO1
#1.title=#1.title+#1551.item[#10]+"
"
#10=#10+1
END1
widgetFunc["savefile",#1551.unit,"",#1.title]
widgetFunc["messageBox",#1104.itemtitle[61],"",""]
GOTO1
N4
widgetFunc["messageBox",#1104.itemtitle[62],"",""]
N1
