//hand-drawn DBN
//lines that cover 25%-->50%-->75% of the page

norefresh
forever
{
   //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 J 1 3
   {
      set K (J*3)

      //let's draw some lines
      Repeat E 0 (K*25)
      {

         set H 
         set F 
         line  (100-H) (100-F) 
         refresh
      }
      pause 200
      paper 0
      refresh
   }

}