SCREEN 12 RANDOMIZE TIMER X = 100 Y = 100 DX = 1 DY = 1 1:X1 = X + DX IF X1 < 20 OR X1 > 620 THEN DX = -DX: DY = INT(RND * 2) Y1 = Y + DY IF Y1 < 20 OR Y1 > 450 THEN DY = -DY: DX = INT(RND * 2) LINE (X, Y)-(X + 10, Y + 10),0, B LINE (X1, Y1)-(X1 + 10, Y1 + 10), 10, B X = X1 Y = Y1 FOR I = 1 TO 3000000 'Число 3000000 можно менять, чем оно больше, тем скорость движения меньше NEXT I GOTO 1
RANDOMIZE TIMER
X = 100
Y = 100
DX = 1
DY = 1
1:X1 = X + DX
IF X1 < 20 OR X1 > 620 THEN DX = -DX: DY = INT(RND * 2)
Y1 = Y + DY
IF Y1 < 20 OR Y1 > 450 THEN DY = -DY: DX = INT(RND * 2)
LINE (X, Y)-(X + 10, Y + 10),0, B
LINE (X1, Y1)-(X1 + 10, Y1 + 10), 10, B
X = X1
Y = Y1
FOR I = 1 TO 3000000
'Число 3000000 можно менять, чем оно больше, тем скорость движения меньше
NEXT I
GOTO 1