'===========================================================================
' Subject: BLACK HOLE                        Date: 06-08-96 (09:40)       
' Author:  John Wantland                     Code: QB, QBasic, PDS        
' Origin:  kwantlan@coffey.com             Packet: EGAVGA.ABC
'===========================================================================
REM black hole
n = 50  'number of objects pulled in
DIM x(n)
DIM y(n)
DIM s(n)
SCREEN 12
1 CLS
c = 0
RANDOMIZE TIMER
g1 = INT(RND * 640 + 1)
g2 = INT(RND * 480 + 1)
FOR i = 1 TO n
y(i) = INT(RND * 480 + 1)
x(i) = INT(RND * 640 + 1)
s(i) = 0
NEXT i
DO
FOR i = 1 TO n
PSET (x(i), y(i)), 0         'If you want to trace, take out
IF x(i) < g1 THEN x(i) = x(i) + 1
IF x(i) > g1 THEN x(i) = x(i) - 1
IF y(i) < g2 THEN y(i) = y(i) + 1
IF y(i) > g2 THEN y(i) = y(i) - 1
IF s(i) = 0 THEN PSET (x(i), y(i)), 15
IF x(i) = g1 AND y(i) = g2 AND s(i) = 0 THEN c = c + 1: s(i) = 1: IF c = n THEN 1
a$ = INKEY$: IF a$ <> "" THEN END
NEXT i
LOOP