Example 1: Simple MessageServer usage

MAIN
  CALL base.MessageServer.connect()
  MENU "test"
    COMMAND "Send F1"
      CALL base.MessageServer.send("f1")
    COMMAND KEY (F1)
      ERROR SFMT("Key F1 received at %1",CURRENT HOUR TO SECOND)
    COMMAND "quit"
      EXIT MENU
  END MENU
END MAIN