Очень прошу,помогите!!рисунок в Qbasic

В программе можно кое-что улучшить, но, в общем, цель достигнута - новый год и анимация. =) Здесь елка с мигающими шарами.

SCREEN 12

'Елка
LINE (60, 10)-(30, 40), 2
LINE (60, 10)-(90, 40), 2
LINE (30, 40)-(50, 40), 2
LINE (70, 40)-(90, 40), 2
LINE (50, 40)-(20, 70), 2
LINE (70, 40)-(100, 70), 2
LINE (20, 70)-(40, 70), 2
LINE (80, 70)-(100, 70), 2
LINE (40, 70)-(10, 100), 2
LINE (80, 70)-(110, 100), 2
LINE (10, 100)-(110, 100), 2
PAINT (60, 60), 2

LINE (50, 101)-(70, 130), 6, BF

'Нитки
LINE (30, 41)-(30, 45), 15
LINE (90, 41)-(90, 45), 15
LINE (20, 71)-(20, 75), 15
LINE (100, 71)-(100, 75), 15
LINE (10, 101)-(10, 105), 15
LINE (110, 101)-(110, 105), 15

'Шары (анимация)
RANDOMIZE (TIMER)

DIM shary(2, 6) AS INTEGER
DATA 30,50,90,50,20,80,100,80,10,110,110,110
FOR i = 1 TO 6
READ shary(1, i), shary(2, i)
NEXT i

DO
FOR i = 1 TO 6
scolor = INT(RND * 15) + 1
CIRCLE (shary(1, i), shary(2, i)), 5, scolor
PAINT (shary(1, i), shary(2, i)), scolor
NEXT i
'Пауза 1 сек
starttimer = TIMER
DO
LOOP UNTIL TIMER - starttimer > 1
'Выход по ESC
LOOP UNTIL INKEY$ = CHR$(27)