widgetFunc["saveFileName","*.program","",100]
IF#100==""GOTO1
widgetFunc["SysFunc","/env/falcon/code/tmp","saveParamItemAs",#10]

#11=0
#12="/env/falcon/code/tmp"
WHILE#11<^10.itemnumDO1
IF^10.itemversion[#11]==0GOTO2
IF^10.itemunit[#11]==""GOTO2
#12=#12+"<<"+^10.itemunit[#11]
N2
#11=#11+1
END1

widgetFunc["SysFunc",#100,"zipWriter",#12]

widgetFunc["messageBox",#1107.itemtitle[42],"",""]
N1
