QuickStart active COG demonstrator

Following on from my Spin - TRUE, FALSE and BITWISE operators thread I have this idea that the Quickstart LED's could be used to show which COG(s) are active. I envisage this would be done with code that uses COGID commands. Anyone feel up to following up on this as my SPIN knowledge is weak.
Cheers
Cheers
Comments
dira[16+cogid] := outa[16+cogid] := 1
So, so simple to add to existing code.
Thanks