home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / rgbtest.bas < prev    next >
BASIC Source File  |  1988-05-22  |  652b  |  26 lines
  1. 10    goto 2041
  2. 1000  scnclr
  3. 1010  ask mouse h%,v%,b%
  4. 1020  if b%= 0 then 1010
  5. 1025  ? at (0,0) h%,v%;
  6. 1030  goto 1010
  7. 2000  scnclr
  8. 2001  pena 7
  9. 2005  for h%=0 to 650 step 10
  10. 2010  locate (h%,0)
  11. 2020  draw (to h%, 188)
  12. 2030  next h%
  13. 2040  rem ask mouse h%,v%,b% : if b%= 0 then 2040
  14. 2041  screen 0,5,0:pena 7:scnclr:box (10,10; 50,50),1
  15. 2042  circle (200,100),70: locate (200,100):paint (200,100),0
  16. 2050  for red%= 0 to 15
  17. 2051  for green%= 0 to 15
  18. 2052  for blue%=0 to 15
  19. 2055  rgb 7,red%,green%,blue%
  20. 2056  ? at (0,0) red%,green%,blue%;
  21. 2059  rem for timer%=0 to 1000: next timer%
  22. 2060  sleep 50000
  23. 2063  next blue%
  24. 2064  next green%
  25. 2065  next red%
  26.