home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / LABCREAT.OPT < prev    next >
Text File  |  1995-04-27  |  626b  |  44 lines
  1. def(i)
  2. def(j)
  3. def(k)
  4. def(l)
  5.  
  6. def(r)
  7. def(g)
  8. def(b)
  9.  
  10. BEGIN
  11.  
  12.   rem ***   Erzeugt auf einfache Art und Weise
  13.   rem ***   unendlich variierende 'Irrgärten' (weil: Irre sind menschlich)
  14.  
  15.   clearscreen(8)
  16.  
  17.   viewport(100,100,112,125)
  18.   cbox(0,7,0)
  19.   viewport(125,100,150,112)
  20.   cbox(0,7,0)
  21.   copywin(100,100,150,125)
  22.  
  23.   clearscreen(8)
  24.  
  25.   :neu
  26.  
  27.     l:=25
  28.     for j:= 0 to 17 do
  29.       for i:= 0 to 23 do
  30.         random(2,k)
  31.         loadsprite(l*k,0,i*l+20,j*l+20,l,l)
  32.       next(i)
  33.     next(j)
  34.  
  35.     random(63,r)
  36.     random(63,g)
  37.     random(63,b)
  38.     setrgbcolor(r,g,b,7)
  39.  
  40.   goto('neu')
  41.  
  42. END
  43.  
  44.