SCREEN 13
DIM StepX(15)
RANDOMIZE TIMER
DIM StepY(15)
DIM x(15)
DIM y(15)
FOR s = 1 TO 15
x(s) = INT(RND * 100) + 1
y(s) = INT(RND * 100) + 1
NEXT s
FOR s = 1 TO 15
StepX(s) = INT(RND * 2) + 1 OR -(INT(RND * 2) + 1)
StepY(s) = INT(RND * 2) + 1 OR -(INT(RND * 2) + 1)
NEXT s
DO
LOCATE 1: PRINT "Use the up/down arrow keys."
i$ = INKEY$
IF i$ = CHR$(27) THEN END
IF i$ = CHR$(0) + CHR$(72) THEN
M = M + 1
END IF
IF i$ = CHR$(0) + CHR$(80) THEN
M = M - 1
END IF
FOR s = 1 TO 15
x(s) = x(s) + StepX(s)
y(s) = y(s) + StepY(s)
NEXT s
FOR s = 1 TO 15
IF x(s) < 0 THEN
x(s) = 0
StepX(s) = INT(RND * 2) + 1
END IF
IF x(s) > 310 THEN
x(s) = 310
StepX(s) = -(INT(RND * 2) + 1)
END IF
IF y(s) < 0 THEN
y(s) = 0
StepY(s) = INT(RND * 3) + 1
END IF
IF y(s) > 200 THEN
y(s) = 200
StepY(s) = -(INT(RND * 3) + 1)
END IF
NEXT s
N = 1
FOR s = 1 TO 15
PSET (x(s), y(s)), N
LINE (x(s), y(s))-(x(s) - M, y(s) - M), N, B
N = N + 1
NEXT s
FOR i = 1 TO 14000: NEXT i
FOR s = 1 TO 15
PSET (x(s), y(s)), 0
LINE (x(s), y(s))-(x(s) - M, y(s) - M), 0, B
NEXT s
LOOP