'===========================================================================
' Subject: SHADED BAR BACKGROUND             Date: 02-12-97 (15:23)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
DECLARE SUB SHADEBARS (SC!, EC!, WAY!)
'Bar background
'
'This program should make a nice shaded bar background. Use this routine
'as you wish.
'
'Any questions or comments should goto:
'
'nickK@worldnet.att.net
'
'1/30/97
'1997 By: - Nick Kochakian -

SCREEN 13

SC = 16 'Starting color
EC = 30 'Ending color

CALL SHADEBARS(SC, EC, 1)

SUB SHADEBARS (SC, EC, WAY)

X = 1
Y = 1
X2 = 1
Y2 = 200

DIRS = 1
COL = SC
DO
LINE (X, Y)-(X2, Y2), COL

IF DIRS = 1 THEN COL = COL + 1
IF DIRS = 2 THEN COL = COL - 1
IF COL >= EC THEN DIRS = 2
IF COL <= SC THEN DIRS = 1

X = X + WAY
X2 = X2 + WAY

LOOP UNTIL X > 316 AND X2 > 316

END SUB