RosettaCodeData/Task/Draw-a-pixel/Oberon/draw-a-pixel.oberon
2026-02-01 16:33:20 -08:00

9 lines
149 B
Text

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