Как нарисовать паровоз в qbasic?

@jaren 

В QBASIC можно нарисовать паровоз, используя команду LINE, которая позволяет рисовать линии на экране. Чтобы создать форму паровоза, вам потребуется рисовать несколько линий разных размеров и форм. Например, вот как можно нарисовать простейший паровоз с помощью команд LINE:

1
2
3
4
5
6
7
8

SCREEN 13
LINE (10,10)-(20,20),4,BF
LINE (20,10)-(10,20),4,BF
LINE (10,20)-(50,20),4,BF
LINE (50,20)-(60,10),4,BF
LINE (60,10)-(50,0),4,BF
LINE (50,0)-(10,0),4,BF
LINE (10,0)-(10,10),4,BF

Команда SCREEN 13 устанавливает режим цветного экрана, а команда LINE принимает параметры, определяющие начальную и конечную точки линии, цвет линии и способ заполнения. В этом примере цвет линии установлен в 4, а способ заполнения - BF (заполнение цветом фона). Вы можете изменить размеры и цвета линий, чтобы создать более сложный и реалистичны