alain said:
>   You surely misspelled 20 seconds...

open "i",#1,"sourcecode.bas"
open "o",#2,"firstfile"
while not eof(1)
   line input #1,s$
   su$=ucase$(s$)
   sf$=ucase$("clear local function")
   px=0 : px=instr(1,su$,sf$)
   long if px
      close #2
      ft$=mid$(su$,px+1,px+30)
      open "o",#2,ft$
   end if
print #2,s$
wend
close
end

took me a couple minutes for a first pass, i guess...
plus the additional time needed to correct any errors...

-bowerbird