Анимация пузырьков в колбе - QBasic

SCREEN 12
 
CIRCLE (303, 310), 70, 13, , , .1
CIRCLE (303, 405), 70, 13, , , .1
CIRCLE (303, 218), 70, 15, 0, 5, .1
LINE (233, 218)-(233, 405), 13
LINE (373, 405)-(373, 270), 13
 
PAINT (303, 310), 13
PAINT (303, 405), 13
PAINT (303, 340), 13
 
LINE (233, 218)-(233, 405)
LINE (373, 405)-(373, 270)
LINE (373, 270)-(405, 240)
LINE (373, 218)-(405, 240)
LINE (322, 225)-(405, 240)
LINE (233, 370)-(250, 370)
LINE (233, 310)-(250, 310)
LINE (233, 330)-(250, 330)
LINE (233, 350)-(250, 350)
 
RANDOMIZE TIMER
N = 9 ' Количество пузырей +1
S = 2 ' Скорость пузырей
DIM A(N, 1)
FOR I = 0 TO N
    A(I, 0) = (RND * 100 - 50)
    A(I, 1) = (RND * 90)
NEXT
DO WHILE INKEY$ = ""
  FOR I = 0 TO N
     CIRCLE (A(I, 0) + 303, 405 - A(I, 1)), 3, 13
     A(I, 1) = A(I, 1) + S
     IF A(I, 1) > 90 THEN
       A(I, 1) = (RND * 10)
       A(I, 0) = (RND * 100 - 50)
     END IF
     CIRCLE (A(I, 0) + 303, 405 - A(I, 1)), 3, 15
  NEXT
  CIRCLE (303, 310), 70, 15, , , .1
  CIRCLE (303, 405), 70, 15, , , .1
  LINE (303, 405)-(310, 405)
  LINE (353, 220)-(360, 220)
  LINE (303, 405)-(353, 220)
  LINE (310, 405)-(360, 220)
LOOP