Для рисования дерева с яблоками в программе QB64 можно использовать команду CIRCLE для рисования кругов (яблок) и команду LINE для рисования ствола дерева. Ниже приведены координаты для примерного рисунка дерева с яблоками:

SCREEN 12
' Рисуем ствол дерева
LINE (320, 400)-(320, 300), 10
' Рисуем кроны дерева
CIRCLE (320, 250), 50, 2
CIRCLE (270, 200), 50, 2
CIRCLE (370, 200), 50, 2
CIRCLE (320, 150), 50, 2
' Рисуем яблоки на дереве
CIRCLE (320, 250), 10, 14
CIRCLE (270, 200), 10, 14
CIRCLE (370, 200), 10, 14
CIRCLE (320, 150), 10, 14
DO
LOOP UNTIL INKEY$ <> ""

В этом примере дерево нарисовано в центре экрана (320, 400), с яблоками на каждой вершине кроны дерева. Вы можете изменить координаты и размеры, чтобы нарисовать дерево по вашему вкусу.