echo "c*N"
Requestfile >env:ANIMname TITLE="Choose anim to convert"
if warn
   echo >env:msg "Operation canceled....!"
   skip end
endif
if not exists $ANIMname
   echo >env:msg "File does not exist....!"
   skip end
endif
Requestfile >env:ANIMdest TITLE="Choose destination path."
if warn
   echo >env:msg "Operation canceled....!"
   skip end
endif
Requestchoice >env:mode "" "Do you want scaling ?" Yes No
if $mode eq 1
   SmartScale ask $ANIMname
endif
assign Split: Split
delete >nil: split:#?
buildanim $ANIMname Split:PIC. SPLIT VERBOSE
echo "*N Animation successfully split."
copy >nil: gfxcon T:gfc
if val $mode eq 1
   list sort name >T:ConPics Split: lformat "t:gfc %s%s to %s%s size $xout $yout format jpeg dither"
else
   list sort name >T:ConPics Split: lformat "t:gfc %s%s to %s%s format jpeg dither"
endif
stack 30000
execute t:conpics 
list sort name >T:ConPics split: lformat "%s%s"
echo "*N"
jpeg2mov from split:pic.001 to $ANIMdest fps=60
echo >env:msg " Animation complete."
delete >nil: t:gfc t:conpics split:#? env:mode
lab end
Requestchoice >nil: "" "$msg" OK
delete >nil: env:msg env:xin env:yin env:xout env:yout env:xinh env:din env:ANIMname env:ANIMdest
endcli