'===========================================================================
' Subject: COOL LINE                         Date: 01-07-98 (19:26)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
'Cool line
'
'This was originally made on my color casio graphing calc.

SCREEN 13

x1 = 319
y1 = 0
x2 = 319
y2 = 199

col = 16
cf = 0
cc = 16

siz = 7

colway = 2

FOR i = 1 TO 50
LINE (x1, y1)-(x2, y2), col

x2 = x2 - siz
y1 = y1 + siz
IF cf = 0 THEN col = col + 1
IF cf = 2 THEN col = col - 1
IF colway = 2 AND cf = 0 THEN cc = cc + 1
IF colway = 2 AND cf = 2 THEN cc = cc - 1
IF cc = 30 THEN cf = 2
IF cc < 16 THEN cf = 0: col = 16: cc = 16

NEXT i