'Input script to extract a text filename
' search first 2 lines only
' add Input script and

if global1<2 then

    s= getIOLine
    x=instr(s,"O") 
    if x=1 then
        global1=9
         s=mid(s,x+1,100)
         'replace illegal filename characters
         s=replace(s,chr(34)," IN ")
         s=replace(s,"+","&")
         s=replace(s,"/","-")
         s=replace(s,"\","-")
         s=replace(s,"?","-")
         s=replace(s,"*","X")
         s=replace(s,":","-")
         s=replace(s,"|","-")
         s=replace(s,"<","_")
         s=replace(s,">","_")
         s=replace(s,"  "," ") 'removes double spacing

        Path=DefaultSaveDir
        Ext=DefaultExt
        if Ext=".*" then
          Ext=".nc"
        end if
       
        TriggerAutoSave(Path+s+Ext) 
       ' showmessage("="+Path+s+Ext)
    end if   

  global1=global1+1

end if