macgeek

    case "print"
      ' print to screen
      r.searchPattern="""([^""]*)"""
      j=6
      s=""
      m=r.Search(line,j)
      if m<>nil then
        s=s+m.SubExpressionString(1)
        j=m.SubExpressionStartB(1)+len(m.subExpressionString(1))+1
      elseif len(s)=0 then
        error(003,i)
        return
      end
      do
        m=r.Search(line,j)
        if m<>nil then
          s=s+m.SubExpressionString(1)
          j=m.SubExpressionStartB(1)+len(m.subExpressionString(1))+1
        end
      loop until j>=len(line) or m=nil
      showStandardAlert("The String:",s,false)