home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / color.bas < prev    next >
Encoding:
BASIC Source File  |  1997-01-05  |  340 b   |  28 lines
  1.  
  2. LIBRARY "GEMVDI"
  3.  
  4. DEFINT a-z
  5.  
  6. DIM test (2,15)
  7. DIM rgb (2)
  8.  
  9. FOR a=0 TO 15
  10. vq_color a,0,rgb()
  11. test (0,a)=rgb(0)
  12. test (1,a)=rgb(1)
  13. test (2,a)=rgb(2)
  14. NEXT a
  15.  
  16. FOR a=1000 TO 0 STEP -1
  17. FOR b=0 TO 15
  18. vs_color b,a,a,a
  19. NEXT b
  20. NEXT a
  21.  
  22. DO
  23. LOOP UNTIL INKEY$<>""
  24.  
  25. FOR a=0 TO 15
  26. vs_color a,test(0,a),test(1,a),test(2,a)
  27. NEXT a
  28.