//sheltered
//invigorating
//quiet
forever
{
//the outside world
//random and Mod from DBN book
Number Mod X Y
{
Value (X-(Y*(X/Y)))
}
Number Random D
{
Set A 982621
Set B 82621
Set C (D*A + 1)
Set D
Value
}
set H 98
set F 106
Paper 0
Repeat E 0 150
{
set H
set F
pen 33
line H