Как нарисовать прямоугольник в qbasic?

@josie 

line (x1,y1)-(x2,y2),color,b

x1,y1 – координаты начальной точки диагонали прямоугольника

x2,y2 – координаты конечной точки диагонали прямоугольника