sub main() dim bufferout(1 to 100) as byte dim bufferin(1 to 100) as byte call openqueue(bufferout,100) call openqueue(bufferin,100) call definecom3(0,20, bx0100_1000) call opencom(3,9600, bufferin, bufferout) call putqueuestr(bufferout, chr(255)&chr(1)&chr(200)) ' esto mueve el servo 1 en a la posicion 200 emulando la minisscii call putqueuestr(bufferout, "#0 p1000 t3000"&chr(13)) ' esto mueve el servo o a la posicion 1000 en 3 segundos sin emulacion end sub