#
# draw-pixel.icn
procedure main()
&window := open("pixel", "g", "size=320,240")
Fg("#ff0000")
DrawPoint(100, 100)
Event()
end