Нарисовать любой рисунок - QBasic (27384)

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

помогите пожалуиста. сделать простенький рисунок в qbasic. .

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

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

SCREEN 12
LINE (50, 100)-(100, 50)
LINE (100, 50)-(150, 100)
LINE (50, 100)-(150, 100)
LINE (50, 100)-(50, 150)
LINE (150, 100)-(150, 150)
LINE (50, 150)-(150, 150)
LINE (60, 110)-(60, 140)
LINE (60, 110)-(80, 110)
LINE (80, 110)-(80, 140)
LINE (60, 140)-(80, 140)
LINE (140, 110)-(140, 140)
LINE (140, 140)-(120, 140)
LINE (120, 140)-(120, 110)
LINE (120, 110)-(140, 110)
LINE (60, 120)-(80, 120)
LINE (70, 110)-(70, 140)
LINE (140, 120)-(120, 120)
LINE (130, 110)-(130, 140)
CIRCLE (100, 80), 10
LINE (90, 80)-(110, 80)
LINE (100, 70)-(100, 90)

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

Включаем экран 12, чтобы открыть новый экран с кодом.
Рисуем линии и окружность на экране с помощью функций LINE и CIRCLE. Примечание: Код не является оптимальным, так как использует много функций LINE для рисования простых форм. Вместо этого, более сложные формы могли бы быть нарисованы с помощью функций DRAWBEZIER и DRAWROUNDRECT.