Copy & run this program from SHARK.EXE. This is a SHARK program,not an html page! In your Shark system, remove the html <pre> & </pre> formatting tags, and save this file as "COLORS.PRG" or "colors.prg". It shows the usable color range of about 300 color combinations available on your monitor. It's most unlikely that you will enjoy working with hundreds of colors, instead choosing to use 3 or 4 favorites.

At the Shark prompt, after saving the file, type "do colors" or "chain colors" to run.

DO WHILE T; outer loop
ON ESCAPE
BREAK
ENDON

DO WHILE T; inner loop
cls

ON ESCAPE
BREAK
ENDON

*list all color values from 1 to 260
cls
r=3
c=2
n=1
DO WHILE n<21
mn=str(n,3)
@ r,c SAY mn
COLOR n,r,c,r,7

r=r+1
n=n+1
ENDDO
*
c=6
r=3
n=21
DO WHILE n<41
mn=str(n,3)
@ r,c SAY mn
COLOR n,r,c,r,11


r=r+1
n=n+1
ENDDO

*
c=12
r=3
n=41
DO WHILE n<61
mn=str(n,3)
@ r,c SAY mn
COLOR n,r,c,r,16
r=r+1
n=n+1
ENDDO
*
c=17
r=3
n=61
DO WHILE n<81
mn=str(n,3)
@ r,c SAY mn
COLOR n,r,c,r,21
r=r+1
n=n+1
ENDDO
*
c=22
r=3
n=81
DO WHILE n<101
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,26
r=r+1
n=n+1
ENDDO
*
c=27
r=3
n=101
DO WHILE n<121
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,31
r=r+1
n=n+1
ENDDO
*
c=32
r=3
n=121
DO WHILE n<141
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,36
r=r+1
n=n+1
ENDDO
*
c=37
r=3
n=141
DO WHILE n<161
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,41
r=r+1
n=n+1
ENDDO
*
c=42
r=3
n=161
DO WHILE n<181
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,46
r=r+1
n=n+1
ENDDO
*
c=47
r=3
n=181
DO WHILE n<201
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,51
r=r+1
n=n+1
ENDDO
*
c=51
r=3
n=201
DO WHILE n<221
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,56
r=r+1
n=n+1
ENDDO

*
c=56
r=3
n=221
DO WHILE n<241
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,60
r=r+1
n=n+1
ENDDO
*
c=61
r=3
n=241
DO WHILE n<261
mn=str(n,3)
@ r,c+1 SAY mn
COLOR n,r,c,r,65
r=r+1
n=n+1
ENDDO


@ 1,24 SAY "Shark COLOR COMMAND Syntax:"
@ 2,10 SAY "'COLOR N,R,C,R,C' where N=value, R=row#, C=col#"


@ 24,0 SAY "Press  to continue . . ."
minky=inkey()
break
cancel


ENDDO