From: Alan Sondheim <sondheim@panix.com>
To: _arc.hive_@lm.va.com.au
Subject: archaea7 flannel
Date: Wed, 6 Aug 2003 20:41:39 -0400 (EDT)



archaea7 flannel

http://www.asondheim.org/portal/archaea7.exe

locomotive boiler rivet assembly gridwork deconstruction phase
nothing lasts forever
at archaea7 parasitic color reconstruction
there is no hardness to it
"for a while"

vbcode for archaea6.exe

Private Sub Form_Click()
: Randomize
m = 0.1
z = -2
x = 0
j = z
p = 1
two:
j = z
k = x
If t < 16 Then t = t + 1 Else GoTo three
x = -(x ^ 1 / 2) + z - 1
p = p + 1
q = 15 * t / 2
Line (-k * Tan(k) / 20, j)-(x, z * 2 * Sin(z)), Point(ScaleWidth - x \ 50,
ScaleHeight - x \ 100)
b = -k * Cos(k)
bb = z * 2 * Cos(z)
Msg = (bb & Chr(13) & j & Chr(13) & b & Chr(13) & x)
GoTo two
three: x = 0
z = z + 0.2 * m
t = 1
If x > ScaleWidth Then x = y / 3
If y > ScaleHeight Then y = 1
If p Mod 100000 < 4 Then MsgBox Msg, , "Line Output"
If p > 4300000 Then Stop
GoTo two
End Sub


__