' Gravitation simulation ' made by Svjatoslav Agejenko ' in 2001 ' homepage: svjatoslav.eu ' email: svjatoslav@svjatoslav.eu DEFDBL A-Z SCREEN 12 x = -200 y = 0 xs = -1 ys = 3 1 CIRCLE (320, 240), 100, 3 CIRCLE (320, 240), 2, 3 x = x + xs y = y + ys v = SQR(x * x + y * y) j = 1 / v * 20 'j = .1 s = ABS(x) + ABS(y) xs = xs + (j * (-x) / s) ys = ys + (j * (-y) / s) CIRCLE (x + 320, y + 240), 2, 14 LINE (x + 320, y + 240)-(320, 240), 1 SOUND 0, .1 GOTO 1