Sub MAIN
  'unordered List

  'create constant for carriage returns
  cr$ = Chr$(13)

  'if there's no selection...
  If Len(Selection$()) <= 1 Then
    Insert "<ul>" + cr$
    Insert "  <li>" + cr$
    Insert "</ul>" + cr$
    LineUp 2
    EndOfLine
  Else
    'otherwise...
    'replace all paragraph marks in selection with paragraph "  <li>"
    EditReplace .Find = "^p", .Replace = "^p  <li>", .Direction = 0,   .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 2, .FindAllWordForms = 0

    'store in temp, modify
    temp$ = "<ul>" + cr$
    temp$ = temp$ + "  <li>"
    temp$ = temp$ + Selection$()
    temp$ = temp$ + cr$
    temp$ = temp$ + "</ul>"
    temp$ = temp$ + cr$

    'write temp to file
    Insert temp$
  End If
End Sub