Adding

RGB_LED.ubl

@@ -0,0 +1,63 @@
+module RGB_LED
+author unknown
+version 1 0 
+description ''
+variables SetPins 
+
+  spec ' ' 'RGBLED' 'RGB Pin _ R _ G _ B _' 'auto bool bool bool' 17 false false false
+  spec ' ' 'PickColor' 'RGB Pin _ Color _' 'num str' 17 'Empty'
+
+to PickColor Pin Color {
+  if (Color == ('[data:toString]' 'Red')) {
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin false
+  } (Color == ('[data:toString]' 'Yellow')) {
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin false
+  } (Color == ('[data:toString]' 'Green')) {
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin false
+  } (Color == ('[data:toString]' 'Purple')) {
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin true
+  } (Color == ('[data:toString]' 'Blue')) {
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin true
+  } true {
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin true
+    Pin += 1
+    digitalWriteOp Pin true
+  } else {
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin false
+    Pin += 1
+    digitalWriteOp Pin false
+  }
+}
+
+to RGBLED Pin Red Green Blue {
+  digitalWriteOp Pin Red
+  Pin += 1
+  digitalWriteOp Pin Green
+  Pin += 1
+  digitalWriteOp Pin Blue
+}
+