//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