home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / ARROW.bas < prev    next >
BASIC Source File  |  1988-05-22  |  904b  |  28 lines
  1. 1     RANDOMIZE 1
  2. 5     RESTORE
  3. 10    SCNCLR
  4. 20    ?"RANDOM COLORS? (Y/N)";:GETKEY A$
  5. 30    SCNCLR
  6. 80    FOR Q=0 TO 15: READ R%,G%,B%: RGB Q,R%,G%,B%: NEXT Q
  7. 83    IF A$<>"Y" THEN 90
  8. 85    FOR Q=3 TO 15: R%=INT(RND(1)*16): G%=INT(RND(1)*16): B%=INT(RND(1)*16): RGB Q,R%,G%,B%: NEXT Q
  9. 90    PENA 1: PAINT (0,0),1
  10. 100   DIM A%(12)
  11. 110   FOR Q=0 TO 11: READ A%(Q): NEXT Q
  12. 120   S=12
  13. 130   FOR Q=3 TO 15: PENA Q
  14. 140   FOR QQ=0 TO 12 STEP 2: A%(QQ)=A%(QQ)+S: NEXT QQ
  15. 150   MAT AREA 6,A%()
  16. 160   NEXT Q
  17. 170   ASK RGB 15,X%,Y%,Z%
  18. 180   FOR Q=15 TO 3 STEP -1
  19. 190   ASK RGB Q-1,A%,B%,C%
  20. 200   RGB Q,A%,B%,C%
  21. 210   NEXT Q
  22. 220   RGB 3,X%,Y%,Z%
  23. 225   SLEEP (.1*10^6)
  24. 230   GET A$: IF A$<>"" THEN ERASE A%(): GOTO 1
  25. 500   GOTO 170
  26. 900   DATA  6,9,15,0,0,0,15,15,15,15,9,10,14,3,0,15,11,0,15,15,2,11,15,0,5,13,0,0,14,13,7,13,15,12,0,14,15,2,14,15,13,11,12,9,8,11,11,11
  27. 1000  DATA 50,43,60,43,80,93,60,143,50,143,70,93
  28.