Анимация пузырьков в колбе - 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
 
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)
 
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)
 
CIRCLE (300, 360), 3
CIRCLE (285, 370), 3
CIRCLE (326, 390), 3
CIRCLE (310, 378), 3

Решение задачи: «Анимация пузырьков в колбе»

textual
                            Листинг программы 
                        
 
                            
                        
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