I have successfully sent varying pulses depending on which of the 3 buttons on the Bot Board II are pressed. 8)
[code]cha1 var word
cha2 var word
cha3 var word
cha4 var word
cha5 var word
cha6 var word
intest var bit
xx var byte
a_key var bit
b_key var bit
c_key var bit
sound 9, [100\880, 100\988, 100\1046, 100\1175]
low 3
input 12
input 13
input 14
start: ; find the beginning.
intest = in0
if intest = 1 then start
for xx=1 to 10
intest = in0
if intest = 1 then start
pauseus 500
next
start2:
intest = in0
if intest = 0 then start2
pauseus 500
pulsin 0,1,cha1
pauseus 500
pulsin 0,1,cha2
pauseus 500
pulsin 0,1,cha3
pauseus 500
pulsin 0,1,cha4
pauseus 500
pulsin 0,1,cha5
pauseus 500
pulsin 0,1,cha6
pauseus 500
;serout S_OUT,i57600,[dec5 cha1\5," "]
a_key = in12
b_key = in13
c_key = in14
cha5 = 1400
if a_key = 1 then next1
cha5 = 1500
next1:
if b_key = 1 then next2
cha5 = 1600
next2:
if c_key = 1 then next3
cha5 = 1700
next3:
cha1=cha12
cha2=cha22
cha3=cha32
cha4=cha42
;cha5=cha52
cha6=cha62
;serout S_OUT,i57600,[dec5 cha5\5," "]
makepulses:
high 3
pauseus 740
pulsout 3,cha1
pauseus 740
pulsout 3,cha2
pauseus 740
pulsout 3,cha3
pauseus 740
pulsout 3,cha4
pauseus 740
pulsout 3,cha5
pauseus 740
pulsout 3,cha6
pauseus 740
low 3
goto start2[/code]