ARS Literati $10,000 Challenge

From: ralph@scientology.at (Ralph Hilton)
Subject: Re: ATTN a.r.s. literati entrants -- permission to publish
Date: Fri, 01 Oct 1999 01:17:04 GMT
Message-ID: <37fe08b3.50109825@news.magnet.at>

On Thu, 30 Sep 1999 18:11:12 -0400, Stacy Brooks <stacyb1@ix.netcom.com> wrote:

>Congratulations to all who participated in the First Annual A.R.S. Literati
>Contest!
>
>I thought that all of the essays were extremely thoughtful, well-written,
>intriguing and educational. Each one provides a valuable perspective about
>Scientology, and I would like to make the full set available by creating a
>booklet which can be distributed to former Scientologists, current
>Scientologists, parents, friends and family members of Scientologists, and to
>anyone else who would like to know more about this cult.
>
>Therefore I am asking for permission from each of the writers to publish their
>essays. It will be one of the first officials actions of the Lisa Foundation.
>Hopefully I will be able to get the booklet published in time for it to debut
>in Clearwater during the Lisa McPherson Memorial Week. I'll try!
>
>I would also need your permission to do minor copy editing - for misspellings
>and minor grammatical and syntax errors only. If you wish, I will be happy to
>send you the final edited draft before it is published. Once the editing is
>finished, the copy will be professionally typeset, printed and bound.

Yes, this would be fine with me. The final version of mine is webbed on http://www.fzint.org/essays/rhilton.htm Its reformatted and probably easier to use. I had connection problems for the last few days of the contest so this version never made it to Bob in time.

For reformatting entries there is a pascal program I wrote on my website or if you have MS word then you could use the following macro:

Sub cleanupparas()

'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "`````"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "`````"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "    "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "  "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

--

Ralph Hilton http://Ralph.Hilton.org Freezone International: http://www.fzint.org