Нарисовать человека - QBasic

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

помогите составить программу человечка

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

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

SCREEN 12
 CIRCLE (320, 240), 80, 15, , , 2.5
 CIRCLE (320, 120), 25, 15
 LINE (320, 145)-(320, 160), 15
 LINE (250, 250)-(295, 190), 15
 LINE (390, 250)-(345, 190), 15
 LINE (250, 400)-(295, 290), 15
 LINE (390, 400)-(345, 290), 15

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

Открывается экран 12.
Рисуется окружность (CIRCLE) с центром в точке (320, 240) радиусом 80, 15 - это параметр, который определяет количество точек на окружности (в данном случае 15), 2.5 - это параметр, который определяет толщину линии окружности.
Рисуется окружность (CIRCLE) с центром в точке (320, 120) радиусом 25, 15 - это параметр, который определяет количество точек на окружности (в данном случае 15), 2.5 - это параметр, который определяет толщину линии окружности.
Рисуется линия (LINE) от точки (320, 145) до точки (320, 160), 15 - это параметр, который определяет количество точек на линии (в данном случае 15), 2.5 - это параметр, который определяет толщину линии.
Рисуется линия (LINE) от точки (250, 250) до точки (295, 190), 15 - это параметр, который определяет количество точек на линии (в данном случае 15), 2.5 - это параметр, который определяет толщину линии.
Рисуется линия (LINE) от точки (390, 250) до точки (345, 190), 15 - это параметр, который определяет количество точек на линии (в данном случае 15), 2.5 - это параметр, который определяет толщину линии.
Рисуется линия (LINE) от точки (250, 400) до точки (295, 290), 15 - это параметр, который определяет количество точек на линии (в данном случае 15), 2.5 - это параметр, который определяет толщину линии.
Рисуется линия (LINE) от точки (390, 400) до точки (345, 290), 15 - это параметр, который определяет количество точек на линии (в данном случае 15), 2.5 - это параметр, который определяет толщину линии.