Sub NECsend IRout As integer, dev As integer, key As integer
'Picomite V5.08.00 version
Local integer word, d(2066), m, n = 1

word = (dev<<16) + (key<<8) + 255-key '32bit word = Device 16b + Key 8b + inverted Key 8b

Math set 13, d() 'fill array with half-cycles, 13uS = duration of a half cycle @ 38kHz
d(691) = 4500  'uS pause after 9mS of 38kHz to start

For m = 733 To 2065 Step 42  'load data after start sequence
 d(m) = (((word>>(32-n)) And 1)*2 + 1) * 562.5'convert bits to pauses (0=562uS, 1=1687uS)
 Inc n 'step to next data bit
Next

Device bitstream IRout, 2066, d() 'send the data

Pin(IRout) = 0
End Sub