$.SmenuPL=$.Smenu.menuitems.add("Parse Code From Clipboard")
 $.SmenuPL.onclick="bbCodeParserLite()"

function bbCodeParserLite()
dim $,$!,$_,$2
 $=$m.controls.richtextbox(,$m.width,0,0,0)
 $2=$m.controls.textbox(,$m.width,0,0,0)
 $.hide
 $2.hide
 $2.multiline=1
 $.paste
 $!=split($.text,chr(13))
 for $_=1 to ubound($!)
  $![$_]=split($![$_],chr(10))
  $![$_][0]=""
  $![$_]=join($![$_],"")
 next
 $2.text=join($!,@crlf)
 $2.selstart=0
 $2.sellength=-1
 $2.copy
endfunction