'===========================================================================
' Subject: FAST BOX SHADE MAKER              Date: 01-16-97 (12:12)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
DECLARE SUB FASTBOX (X%, Y%, X2%, Y2%, ColorST%, ColorEN%)
'Fast box shade maker
'
'1997 By: - Nick Kochakian -
'
'This program was suposed to fill in a box... But I really didn't want
'to take TOO long to figure it out... So instead it fills the whole screen
'for you...
'
'You can edit / use this program anyway you'd like to... But, PLEASE
'give me credit where it is deserved!!!
'
'Thanks! :)

SCREEN 13

'Big Box:
X% = 1
Y% = 1
X2% = 300
Y2% = 190

CS% = 16
CM% = 30

CALL FASTBOX(X%, Y%, X2%, Y2%, CS%, CM%)
'CS% - Is the starting color
'CM% - Is the maximum color the box will go up to

SUB FASTBOX (X%, Y%, X2%, Y2%, ColorST%, ColorEN%)

C% = ColorST%
COL% = C%

DO
LINE (X%, Y%)-(X2%, Y2%), COL%, B
C% = C% + 1
IF C% > ColorEN% THEN C% = ColorST%: COL% = C%
COL% = C%
X% = X% + 1
Y% = Y% + 1
X2% = X2% - 1
Y2% = Y2% - 1
LOOP UNTIL X% >= 96 AND Y% >= 96 AND X2% >= 205 AND Y2% >= 95

END SUB