home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Game Collection / XULTI.ISO / 396 / cls.rpp < prev    next >
Text File  |  1996-10-19  |  92b  |  9 lines
  1. var x: number;
  2.  
  3. randomize;
  4.  
  5. loop(x=1 to 50)
  6.   cls(rand(0, 255));
  7.   delay(50);
  8. endl
  9.