'===========================================================================
' Subject: COLOR CHOSER FOR BAR BACKGROUND   Date: 02-12-97 (15:23)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
'Color Choose 1.0
'
'Use this to choose colors for my program: BARBACK.BAS
'1/30/97
'1997 By: - Nick Kochakian -

CLS
SCREEN 13
LINE (1, 1)-(47, 20), 7, B
LOCATE 1, 9: PRINT "<- Sample"
SC = 0
EC = 0
SET = 1

GOSUB MAKECOLS:
MCOLS:
COLOR 15
LOCATE 2, 9: PRINT USING "Start col: ### End col: ###"; SC; EC
LOCATE 20, 1
PRINT "1. Display sample"
PRINT "2. Choose colors"
PRINT "Q. Quit"
DO
A$ = INKEY$
IF A$ = "2" THEN GOTO CHOOSECOLS:
IF A$ = "1" THEN GOSUB SAMP:
LOOP UNTIL UCASE$(A$) = "Q"
'''GOSUB DELCOLS:
END

'Color set 1 - 0 - 100
'Color set 2 - 101 - 255

MAKECOLS:
IF SET = 1 THEN MC = 148: COL = 0
LOCATE 4, 1
FOR COL = 0 TO MC
COLOR COL
PRINT COL;
NEXT COL
RETURN

CHOOSECOLS:
LOCATE 20, 1
PRINT "                          "
PRINT "                          "
PRINT "                          "
LOCATE 20, 1
COLOR 15
PRINT "End color has to be greater than start col!"
INPUT "Start color (0-148) >", SC
INPUT "End color (0-148) >", EC
LOCATE 20, 1
PRINT "                                                                 "
PRINT "                          "
PRINT "                          "
GOTO MCOLS:

SAMP:
X = 2
Y = 2
X2 = 2
Y2 = 19
COL = SC
FOR COL = SC TO EC
LINE (X, Y)-(X2, Y2), COL
X = X + 1
X2 = X2 + 1
NEXT COL

FOR COL = EC TO SC STEP -1
LINE (X, Y)-(X2, Y2), COL
X = X + 1
X2 = X2 + 1
NEXT COL
RETURN