This dusty diskette from ages past was sitting in my closet. "Danger," it says, with a skull.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

61 lines
1.5 KiB

DECLARE FUNCTION around! (spot!)
CLS
SCREEN 12
RANDOMIZE TIMER
TYPE coor
x AS INTEGER
y AS INTEGER
END TYPE
DIM newspot(6) AS coor
FOR c = 1 TO 15
PALETTE c, c * 3
NEXT c
newspot(1).x = 200
newspot(1).y = 200
newspot(2).x = 200
newspot(2).y = 200
newspot(3).x = 200
newspot(3).y = 200
newspot(4).x = 200
newspot(4).y = 200
newspot(5).x = 200
newspot(5).y = 200
DO
i = i + 1
IF INKEY$ <> "" THEN SYSTEM
CIRCLE (newspot(1).x, newspot(1).y), 1, i MOD 15
CIRCLE (newspot(2).x, newspot(2).y), 1, i MOD 15
CIRCLE (newspot(3).x, newspot(3).y), 1, i MOD 15
CIRCLE (newspot(4).x, newspot(4).y), 1, i MOD 15
CIRCLE (newspot(5).x, newspot(5).y), 1, i MOD 15
oldspot = newspot(1).x
newspot(1).x = newspot(1).x + around(oldspot)
oldspot = newspot(1).y
newspot(1).y = newspot(1).y + around(oldspot)
oldspot = newspot(2).x
newspot(2).x = newspot(2).x + around(oldspot)
oldspot = newspot(2).y
newspot(2).y = newspot(2).y + around(oldspot)
oldspot = newspot(3).x
newspot(3).x = newspot(3).x + around(oldspot)
oldspot = newspot(3).y
newspot(3).y = newspot(3).y + around(oldspot)
oldspot = newspot(4).x
newspot(4).x = newspot(4).x + around(oldspot)
oldspot = newspot(4).y
newspot(4).y = newspot(4).y + around(oldspot)
oldspot = newspot(5).x
newspot(5).x = newspot(5).x + around(oldspot)
oldspot = newspot(5).y
newspot(5).y = newspot(5).y + around(oldspot)
LOOP
FUNCTION around (spot)
a = INT(RND * 3) - 1
IF spot < 100 THEN a = 200
IF spot > 300 THEN a = -200
around = a
END FUNCTION