'===========================================================================
' Subject: TADA SCREEN SAVER                 Date: 06-03-00 (01:43)       
' Author:  Caleb Cassel                      Code: QB, QBasic, PDS        
' Origin:  ryuse@tcgcs.com                 Packet: GRAPHICS.ABC
'===========================================================================
'
'       Here's a nice screensaver/eye entertainer that I wrote.  Feel free to
'look at my source code and modify the program as you wish (but I think it's
'fine the way it is :)
'
'                               Caleb Cassel
'                              ryuse@tcgcs.com
SCREEN 7, , 1, 0
x1% = 130
y1% = 110
x2% = 190
y2% = 110
OUT &H3C8, 7
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0
DO
FOR i% = 5 TO 250 STEP 10
CIRCLE (x1%, y1%), i%, 7
CIRCLE (x2%, y2%), i%, 7
NEXT i%
20 PCOPY 1, 0
WAIT &H3DA, 8
IF dir = 0 THEN
x1% = x1% - 2
x2% = x2% + 2
y1% = y1% - n%
y2% = y2% + n%
IF x1% = 120 THEN dir = 1
GOTO 10
END IF
IF dir = 1 THEN
x1% = x1% + 2
x2% = x2% - 2
y1% = y1% + n%
y2% = y2% - n%
IF x1% = 140 THEN dir = 0
END IF
IF l% = 0 THEN
n% = n% + 1
IF n% = 5 THEN l% = 1
END IF
IF l% = 1 THEN
n% = n% - 1
IF n% = 0 THEN l% = 0
END IF
10 CLS
IF r% = tr% AND g% = tg% AND b% = tb% THEN
FOR a% = 1 TO INT(RND * 100)
    tr% = INT(RND * 63)
    tg% = INT(RND * 63)
    tb% = INT(RND * 63)
NEXT a%
END IF
IF r% < tr% THEN r% = r% + 1
IF r% > tr% THEN r% = r% - 1
IF g% < tg% THEN g% = g% + 1
IF g% > tg% THEN g% = g% - 1
IF b% < tb% THEN b% = b% + 1
IF b% > tb% THEN b% = b% - 1
OUT &H3C8, 0
OUT &H3C9, br%
OUT &H3C9, bg%
OUT &H3C9, bb%
OUT &H3C8, 7
OUT &H3C9, r%
OUT &H3C9, g%
OUT &H3C9, b%
LOOP UNTIL LEN(INKEY$)
SYSTEM