Some creationists object to evolution by means of natural selection 
on the grounds  that there is an obvious direction--a constant and inexorable 
ascent toward human beings--to  the changes that have happened to living 
things over time.  Therefore Someone must have  been directing or 
steering the process.
	Evolutionists argue that direction is apparent only in hindsight.  
Looking back from our present vatage-point, there seems a clear path from 
primordial slime to us, but we cannot see all the sidepaths and backtrackings 
that demonstrate the absence of Anyone at the wheel.
	Which view is correct?  The following simple program puts a single 
dot on a computer screen and makes it take steps in random directions (that 
is, no one is steering).  Sometimes the dot stays near the center of the screen.  
Sometimes it wanders away from the center.  Sometimes it seems to display a 
genuine sense of direction despite the absence of a Director. 
	To see, save the program as a text file (RWALK.BAS) in the same 
computer directory as holds QBASIC.EXE.  (If you wish to use it with other 
varieties of BASIC, you will have to number the lines.)  Then turn on QBASIC, 
load the program, and run it.

	This program may be freely shared.
	
	Tom Easton
	Thomas College
	Waterville, ME		

-------------------- QBASIC PROGRAM FOLLOWS -------------------
SCREEN 12
RANDOMIZE TIMER
x = 320: y = 240: w = x: z = y
LINE (x, y)-(x + 5, y + 5), 12, BF
FOR n = 1 TO 500
r1 = INT(RND * 3)
r2 = INT(RND * 3)
r3 = INT(RND * 3)
IF r1 = 2 THEN st = 0
IF r1 = 1 THEN st = 8
IF r1 = 0 THEN st = 16
IF r2 = 2 THEN w = w
IF r2 = 0 THEN w = w + st
IF r2 = 1 THEN w = w - st
IF r3 = 2 THEN z = z
IF r3 = 0 THEN z = z + st
IF r3 = 1 THEN z = z - st
IF w > 640 THEN w = 1
IF z > 480 THEN z = 1
IF w < 1 THEN w = 640
IF z < 1 THEN z = 480
PSET (w, z), 15
IF ABS(x - w) < 100 AND ABS(z - y) < 100 THEN LINE (x, y)-(w, z)
x = w: y = z
FOR j = 1 TO 200
m = m + 1
NEXT j
NEXT n
LINE (x, y)-(x + 5, y + 5), 12, BF
LOCATE 19, 31: INPUT "TRY AGAIN? (Y/N)", B$
IF B$ = "Y" OR B$ = "y" THEN RUN
IF B$ = "N" OR B$ = "n" THEN CLS : END
RUN