while(Exit)
   ------- Some OS routines here

    ---- Begin of Event link
   buffer:captureDataFromKeyPad()            --  (N) some underground routines to catch events
   if buffer.charInput ~= "" then            --  (N)
      on.charIn(buffer.charInput)
      buffer.charInput= ""            --  (N)
   end
   if buffer.arrowKey ~= "" then            --  (N)
      on.arrowKey(buffer.arrowKey)
      buffer.arrowKey = ""            --  (N)
   end
   ----- etc ...    
   if platform.window.isInvalidate then
       platform.gc():purge()           --  (N) Empty buffer before starting to draw
      on.paint(platform.gc())         -- save all the things we have to draw
       platform:paint()             --  (N) draw all those things
      platform.window.isInvalidate = false    -- say that the window has been drawn
   end
   ----- End of Event link
end