<?xml version="1.0" encoding="windows-1252"?>
<node id="224162" title="Psalm 100" created="2003-01-03 19:08:09" updated="2005-07-19 22:10:44">
<type id="1584">
poem</type>
<author id="196475">
fredopalus</author>
<data>
<field name="doctext">
&lt;code&gt;
# Psalm 100
#
# 1. Make a joyful noise unto the
#    LORD, all ye lands.
#
# 2. Serve the LORD with gladness:
#    come before his presence with singing.
#
# 3. Know ye that the LORD he is God:
#    it is he that hath made us, and not we
#    ourselves; we are his people, and the
#    sheep of his pasture.
#
# 4. Enter into his gates with thanks-
#    giving, and into his courts with
#    praise: be thankful unto him, and
#    bless his name.
#
# 5. For the LORD is good; his mercy is
#    everlasting; and his truth endureth to
#    all generations.


MAKE:
print "a joyful \a unto the LORD";
$all{ye} = "lands";

sub serve_LORD($gladness)
{
    %come_before = (
                    his  =&gt; "presence",
                    with =&gt; "singing"
                    );
}

$know{ye}{LORD} = "God";
while($made_us ne "ourselves")
{
    $made_us="God";
}
we-&gt;are( his_people ) &amp;&amp; the-&gt;sheep( of_his_pasture );

&amp;enter_his_gates(thanksgiving) &amp;&amp; &amp;into_his_courts(praise);
be-&gt;thankful( unto_him ) &amp;&amp; bless-&gt;his( name );

for($the_LORD eq "good")
{
    while(1)
    {
    $his_mercy++;
    }
    $his_truth += $all_generations;
}
&lt;/code&gt;</field>
</data>
</node>
