Нарисовать мороженое - QBasic

Формулировка задачи:

Всем привет!Помогите пожалуйста составить программу вот такого рисунка в бэйсике Рисунок кривой слегка.Мне бы нужно, чтобы круги были более точные.Спасибо за внимание.

Решение задачи: «Нарисовать мороженое»

Листинг программы

SCREEN 12
CLS
PAINT (0, 0), 7, 7
CIRCLE (320, 100), 35, 14
PAINT (320, 100), 14, 14
CIRCLE (285, 150), 35, 10
PAINT (285, 150), 10, 10
CIRCLE (355, 150), 35, 12
PAINT (355, 150), 12, 12
LINE (255, 170)-(385, 170), 6
LINE (385, 170)-(320, 400), 6
LINE (320, 400)-(255, 170), 6
PAINT (320, 300), 6, 6

Объяснение кода листинга программы

Установка размера экрана в 12 символов.
Очистка экрана.
Рисование прямоугольника с координатами (0, 0) и размерами 7 на 7 символов.
Рисование окружности с центром в точке (320, 100) и радиусом 35 символов.
Рисование прямоугольника с координатами (320, 100) и размерами 14 на 14 символов.
Рисование окружности с центром в точке (285, 150) и радиусом 35 символов.
Рисование прямоугольника с координатами (285, 150) и размерами 10 на 10 символов.
Рисование окружности с центром в точке (355, 150) и радиусом 35 символов.
Рисование прямоугольника с координатами (355, 150) и размерами 12 на 12 символов.
Рисование линии между точками (255, 170) и (385, 170) длиной 6 символов.
Рисование линии между точками (385, 170) и (320, 400) длиной 6 символов.
Рисование линии между точками (320, 400) и (255, 170) длиной 6 символов.
Рисование прямоугольника с координатами (320, 300) и размерами 6 на 6 символов.