RosettaCodeData/Task/Draw-a-pixel/Oberon/draw-a-pixel.oberon
2023-07-01 13:44:08 -04:00

9 lines
138 B
Text

MODULE pixel;
IMPORT XYplane;
BEGIN
XYplane.Open;
XYplane.Dot(100, 100, XYplane.draw);
REPEAT UNTIL XYplane.Key() = "q"
END pixel.