this is the code i am trying to run , it works fine on bs2
i var byte
j var byte
a var word(4) 'activation
r var byte(4) 'repitions
a(0) = %0000011010010110 ^ %0000110010011100
a(1) = %0000010000010100 ^ %0000110010011100
a(2) = %0000100101101001 ^ %0000110010011100
a(3) = %0000000101000001 ^ %0000110010011100
r(0) = 15
r(1) = 14
r(2) = 15
r(3) = 14
dirs = $FFFF
outs = 0
for i = 0 to 50
outs = $FFFF
pulsout 12, 100
outs = %0000110010011100
pulsout 12, 2000
outs = 0
pause 20
next
loop:
for i = 0 to 3
for j = 1 to r(i)
outs = $FFFF
pulsout 12, 100
outs = a(i)
pulsout 12, 2000
outs = 0
pause 17
next
next
goto loop
end