problema al escribir en puerto COM#:

Estoy abriendo el com1: para enviar algun caracter con el proposito de
abrir un cajon de dinero. el problema es que apezar de abrilo correctamente
es inconsistenten en la accion de abrar.

si verificio la ejecion de cada linea aparentemente escribe correctamente
pero no siempre lo abre este es el codigo:
lok=fopen("com1:", 12) && para abrir el com1 con 2,12 es igual
if lok > 0
lohizo=fputs(lok,'00') && para manda abir nota : con cualquier cosa
abre '11' o '33'
lohizo=fflush(lok)
lohizo=ffclose(lok) && examinando cada linea por debuger todo
funciona bien pero aun asi no siempre lo abre
else
...
endif


he notado que si dejo el canal abierto despues del segundo o tercer intento
lo hace bien.
pero puedo mandar a abrir la gaveta desde dif. programas. lo que me oblica a
cerrarlo.

puedo recuperar el numero de coneccion que he abierto desde del entorno VFP.
Se puede ver dando un DISP STAT , pero como lo recupero o que debo hacer
para que el codigo anterior sea concistente.

Javier