Для того чтобы нарисовать елку в QBASIC, можно использовать следующий код:

SCREEN 12
CLS
' Рисуем ствол елки
LINE (320, 200)-(340, 280), 4, BF
' Рисуем верхушку елки
LINE (330, 140)-(310, 200), 4, BF
LINE (330, 140)-(350, 200), 4, BF
' Рисуем ветви елки
LINE (320, 170)-(380, 170), 2, BF
LINE (320, 190)-(380, 190), 2, BF
LINE (310, 210)-(390, 210), 2, BF
LINE (320, 230)-(380, 230), 2, BF
LINE (330, 250)-(370, 250), 2, BF
DO
LOOP UNTIL INKEY$ <> ""

Этот код рисует простую елку с помощью линий и блоков. Вы можете изменить размеры и позицию каждой части елки, чтобы создать уникальный вид.