code

> plots[display]([
plot({[[0,0],[10,0]],[[5,0],[7,5]]},thickness=3,color=blue),
plots[textplot]({[0,0.2,`A`],[5.3,0.2,`B`],[10,0.2,`C`],[7.2,5,`D`]},color=black)
],axes=none);

>