0
11
RANDOMIZE TIMER
r = INT(RND * 6) + 1
IF r = 1 THEN GOTO 1
IF r = 2 THEN GOTO 2
IF r = 3 THEN GOTO 3
IF r = 4 THEN GOTO 4
IF r = 5 THEN GOTO 5
IF r = 6 THEN GOTO 6
1
SCREEN 9
COLOR 9
a = INT(RND * 200)
b = INT(RND * 200)
FOR i = 1 TO INT(RND * 400)
CLS
CIRCLE (a, b), 30
PAINT (a, b)
a = a + 1

IF a < 1 THEN LET a = 500
IF a > 600 THEN LET a = 1
IF b < 1 THEN LET b = 500
IF b > 600 THEN LET b = 1
FOR d = 1 TO 100
NEXT d
NEXT i
GOTO 0
2
FOR f = 1 TO INT(RND * 400)
CLS
SCREEN 9
CIRCLE (a, b), 30
PAINT (a, b)
b = b + 1
IF a < 1 THEN LET a = 500
IF a > 600 THEN LET a = 1
IF b < 1 THEN LET b = 500
IF b > 600 THEN LET b = 1
FOR x = 1 TO 100
NEXT x
NEXT f
GOTO 0
3
FOR t = 1 TO INT(RND * 400)
CLS
SCREEN 9
COLOR 9
CIRCLE (a, b), 30
PAINT (a, b)
a = a - 1
IF a < 1 THEN LET a = 600
IF a > 600 THEN LET a = 1
IF b < 1 THEN LET b = 600
IF b > 600 THEN LET b = 1
FOR y = 1 TO 100
NEXT y
NEXT t
GOTO 0
4
SCREEN 9
COLOR 9
FOR x = 1 TO INT(RND * 400)
CLS
CIRCLE (a, b), 30
PAINT (a, b)
b = b - 1
IF a < 1 THEN LET a = 600
IF a > 600 THEN LET a = 1
IF b < 1 THEN LET b = 600
IF b > 600 THEN LET b = 1
FOR v = 1 TO 100
NEXT v
NEXT x
goto 11
5
FOR we = 1 TO INT(RND * 400)
CLS
SCREEN 9
COLOR 9
CIRCLE (a, b), 30
PAINT (a, b)
b = b + 1
a = a + 1
IF a < 1 THEN LET a = 600
IF a > 600 THEN LET a = 1
IF b < 1 THEN LET b = 600
IF b > 600 THEN LET b = 1
FOR gb = 1 TO 100
NEXT gb
NEXT we
GOTO 0
6
FOR q = 1 TO INT(RND * 400)
CLS
SCREEN 9
COLOR 9
CIRCLE (a, b), 30
PAINT (a, b)
b = b - 1
a = a - 1
IF a < 1 THEN LET a = 600
IF a > 600 THEN LET a = 1
IF b < 1 THEN LET b = 600
IF b > 600 THEN LET b = 1
FOR ty = 1 TO 100
NEXT ty
NEXT q
GOTO 0