If OpenWindow(0, 0, 0, 320, 240, "Rosetta Code Draw A Pixel in PureBasic")
    If CreateImage(0, 320, 240) And StartDrawing(ImageOutput(0))
          Plot(100, 100,RGB(255,0,0))
      StopDrawing()
      ImageGadget(0, 0, 0, 320, 240, ImageID(0))
    EndIf
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
  EndIf