brouns.BAS

{* Броуновское движение *}

REM basic

' Броуновское движение



SCREEN 9 {броуновское
}3 CLS
67 x = x + 2 * RND(1) - 1
If INKEY$ = "1{ Then GoTo 3
}If x < 10 Then x = 10
If x > 600 Then x = 600
y = y + 2 * RND(1) - 1
If y < 10 Then y = 10
If y > 300 Then y = 300
CIRCLE (0 + x, 0 + y), .4, 11
PAINT (0 + x, 0 + y), 11
{CIRCLE (0 + x, 0 + y), 0.4, 0
}{PAINT (0 + x, 0 + y), 0
}GoTo 67