[Paul Swindells]

sub ToggleRedLed;
  RedLed=not(RedLed);
  if RedLed=1 then
    UDP1TxTestStr='RedOn'
  else
    UDP1TxTestStr='RedOff';
  UDP_SEND(1,UDP1TxTestStr);
subend;
sub ToggleBlueLed;
  BlueLed=not(BlueLed);
  if BlueLed=1 then
    UDP1TxTestStr='BlueOn'
  else
    UDP1TxTestStr='BlueOff';
  UDP_SEND(1,UDP1TxTestStr);
subend;