Example 1: Simple MessageServer usage

Compile the following program and start multiple instances of the program with fglrun. Then hit the "Send F1" button in one of the program instances, and check that an error message is displayed by other program instances.

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