рисунки в 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)