home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / circle.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  286 b   |  14 lines
  1. 5     scnclr
  2. 10    for i% = 0 to 90
  3. 20    peno (i% mod 12) + 3
  4. 25    j% = i%*2
  5. 30    circle (160,95),i%
  6. 40    next
  7. 190   ask rgb 3, r%,g%,b%
  8. 200   for i% = 15 to 3 step -1
  9. 210   ask rgb i%, r1%,g1%,b1%
  10. 220   rgb i% ,r%,g%,b%
  11. 230   r%=r1% : b% = b1% : g% = g1%
  12. 240   next
  13. 250   goto 190
  14.