Нарисовать смайлик - QBasic

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

1) 2) 3)

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

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

CLS
CONST pi = 3.141593
SCREEN 11
WINDOW (-12, 9)-(12, -9)
 
CIRCLE (0, 0), 6
CIRCLE (0, -.5), 1, , , , 3
CIRCLE (2, 2), 1, , , , .3
CIRCLE (-2, 2), 1, , , , .3
CIRCLE (0, 0), 5, , pi + .8, 2 * pi - .8
 
LINE (0, 6)-(0, 4)
LINE (0, 6)-(1, 4)
LINE (0, 6)-(-1, 4)
END

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

Установка начального окна программы: WINDOW (-12, 9)-(12, -9)
Рисует круг с центром в точке (0,0) радиусом 6: CIRCLE (0, 0), 6
Рисует круг с центром в точке (0,-.5) радиусом 1 и толщиной линии 3: CIRCLE (0, -.5), 1, , , , 3
Рисует круг с центром в точке (2,2) радиусом 1 и толщиной линии .3: CIRCLE (2, 2), 1, , , , .3
Рисует круг с центром в точке (-2,2) радиусом 1 и толщиной линии .3: CIRCLE (-2, 2), 1, , , , .3
Рисует круг с центром в точке (0,0) радиусом 5 и толщиной линии pi+.8: CIRCLE (0, 0), 5, , pi + .8, 2 * pi - .8
Рисует отрезок с концами (0,6) и (0,4): LINE (0, 6)-(0, 4)
Рисует отрезок с концами (0,6) и (1,4): LINE (0, 6)-(1, 4)
Рисует отрезок с концами (0,6) и (-1,4): LINE (0, 6)-(-1, 4)
Код не помещается в окно, дополнительно вставьте 10 пробелов для каждого символа