The enclosed routine will blank the current AREV screen and draw a wandering
snake. The snake is made up of characters that you specify. A delay may be 
specified to tailor the speed of the snake to your specific computer.

1. Compile and catalog the SNAKE.SUB subroutine.

2. Compile and run the SNAKE program for a demonstration.

3. Edit the SNAKE program to include your own text or include the subroutine
   call in an existing program.

4. The longer the snake, the slower it wanders so don't use really long
   text entries.

I have written this routine to be included in a as yet to be written screen
saver for Advanced Revelation and it's completion depends on the reaction I 
receive from this early release.

If you wish to use this routine in any commercial venture, please contact me 
first. If it is for your own personal use have fun, but *please* do send me
a post card with a quick note on how you are using it.

Have fun!

David Kirk
6305 Thornridge Dr.
Grand Blanc, MI  48439

Compuserve ID: 70233,3465