Как нарисовать светофор в qbasic?

@clement.erdman 

В QBasic вы можете нарисовать светофор, используя команду CIRCLE для рисования окружностей и функции PAINT и LINE для заполнения цветом и рисования линий соответственно.

Вот пример кода, который рисует светофор с красным, желтым и зеленым сигналами:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

SCREEN 12

' Рисуем тело светофора
CIRCLE (100, 100), 50, 15

' Рисуем красный сигнал
CIRCLE (100, 50), 20, 4
PAINT (100, 50), 4

' Рисуем желтый сигнал
CIRCLE (100, 75), 20, 6
PAINT (100, 75), 6

' Рисуем зеленый сигнал
CIRCLE (100, 100), 20, 2
PAINT (100, 100), 2

' Рисуем опору светофора
LINE (70, 100)-(130, 100), 15

Этот код рисует светофор с центром в координатах (100, 100) и радиусом 50 пикселей. Красный, желтый и зеленый сигналы рисуются с помощью команд CIRCLE и PAINT, а опора светофора - с помощью команды LINE.