'===========================================================================
' Subject: XOR PIXEL                         Date: 01-07-98 (19:26)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
RANDOMIZE TIMER
SCREEN 13
'XOR Pixel
'
'11/5/97 By: - Nick Kochakian -
'
'This does a pset put but after the pixel moves, it dosen't erase the
'background!
'
'If you like my XORed pixel, please use the source, but it'd be nice if you
'gave me some credit for making it! ;)
'
'e-mail: nickk@worldnet.att.net
'web page: http://www.geocities.com/siliconvalley/heights/5914/

x = 1
y = 1
oldcol = 0
newcol = 0

PAINT (0, 0), 1

FOR i = 1 TO 10000
a = INT(RND * 320) + 1
b = INT(RND * 200) + 1
c = INT(RND * 255) + 1
PSET (a, b), c
NEXT i

oldcol = POINT(x, y)

DO
PSET (x, y), oldcol
newcol = POINT(x + 1, y)
x = x + 1
PSET (x, y), 15
oldcol = newcol
FOR i = 1 TO 999
NEXT i

'
IF x > 319 THEN END
'

LOOP UNTIL INKEY$ <> ""