Basic Stamp Code to tune the frequency of the IR modulation on the transmitter

 

output 0
high 0 

Basic Stamp Code to blink the IR transmitter's LED

 
output 1
again:
	low 1
        pause 1000
        high 1
        pause 1000
goto again	

Basic Stamp code for an active badge

 
I var byte
output 1
again:
for I=1 to 10 
	serout 1,19697,["{"]
next
	serout 1,19697,["R"]
        serout 1,19697,["i"]       
        serout 1,19697,["c"]
        serout 1,19697,["h"]
        serout 1,19697,["a"]
        serout 1,19697,["r"]
        serout 1,19697,["d"]
        serout 1,19697,[" "]
        serout 1,19697,["C"]
        serout 1,19697,["h"]
        serout 1,19697,["a"]
        serout 1,19697,["p"]
        serout 1,19697,["m"]
        serout 1,19697,["a"]
        serout 1,19697,["n"]
for i = 1 to 10 
     serout 1,19697,["}"]
next  
serout 1,19697,[24]
pause 1000 
goto again: