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 >
Wrap
BASIC Source File
|
1988-05-22
|
904b
|
28 lines
1 RANDOMIZE 1
5 RESTORE
10 SCNCLR
20 ?"RANDOM COLORS? (Y/N)";:GETKEY A$
30 SCNCLR
80 FOR Q=0 TO 15: READ R%,G%,B%: RGB Q,R%,G%,B%: NEXT Q
83 IF A$<>"Y" THEN 90
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
90 PENA 1: PAINT (0,0),1
100 DIM A%(12)
110 FOR Q=0 TO 11: READ A%(Q): NEXT Q
120 S=12
130 FOR Q=3 TO 15: PENA Q
140 FOR QQ=0 TO 12 STEP 2: A%(QQ)=A%(QQ)+S: NEXT QQ
150 MAT AREA 6,A%()
160 NEXT Q
170 ASK RGB 15,X%,Y%,Z%
180 FOR Q=15 TO 3 STEP -1
190 ASK RGB Q-1,A%,B%,C%
200 RGB Q,A%,B%,C%
210 NEXT Q
220 RGB 3,X%,Y%,Z%
225 SLEEP (.1*10^6)
230 GET A$: IF A$<>"" THEN ERASE A%(): GOTO 1
500 GOTO 170
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
1000 DATA 50,43,60,43,80,93,60,143,50,143,70,93