home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / armbob / !ArmBob / progs / main / Circles < prev   
Text File  |  1994-02-26  |  143b  |  13 lines
  1. /* Circles */
  2. main()
  3. {
  4.  local r;
  5.  mode(28);
  6.  seed(time());
  7.  for(r=500;r>20;r-=10)
  8.    {
  9.     gcol(0,rnd()%16);
  10.     circlefill(640,512,r);
  11.    }
  12. }
  13.