tell application "BBEdit"
set theLineNumber to ((startLine of selection) of text window 1)
set theColumnNumber to ((startColumn of selection) of text window 1)
set txt to ""
repeat (90 - theColumnNumber) times
set txt to (txt & "*")
end repeat
set selection to txt
tell text 1 of window 1
select insertion point after line theLineNumber
end tell
end tell
tell application "BBEdit"
set vCount to 91 - (startColumn of selection)
set vTxt to ""
if vCount > 0 then
repeat vCount times
set vTxt to vTxt & "*"
end repeat
end if
return vTxt
end tell