home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / random-circles.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  406 b   |  16 lines
  1. 100   rem
  2. 105   rem random-circles.bas
  3. 110   rem Rick Parker
  4. 115   rem 10/14/85
  5. 120   rem
  6. 1000  screen 1,4,0:scnclr
  7. 1001  randomize
  8. 1002  input "How many circles ";howmany:scnclr
  9. 1005  for number= 1 to howmany
  10. 1006  color= int(rnd*32)
  11. 1007  peno color
  12. 1010  xaxis%=int(rnd*640):yaxis%=int(rnd*400):radius%=int(rnd*200):aspect=rnd
  13. 1020  locate (xaxis%,yaxis%)
  14. 1030  circle ,radius%,aspect
  15. 1090  next number
  16.