serial class

Hi !

Maybe anybody can help me .I must printing on serial pos printer and
using SERIAL CLASS
(trying FAB SERIAL CLASS also)

in my print function

IF lSerialPrint
	oSerial:=Serial{}
	oSerial:OPEN(pParams.cPrintFileName)

	ptrHandle:=FOpen(cTempPath+"SERIAL.TXT",FO_READ+FO_SHARED)

	WHILE Citaj(@[EMAIL PROTECTED]
)

            cLinija:=cLinija+CRLF
  	    oSerial:Write(cLinija)
//	    Sleep(500)
	END

    oSerial:CLOSE()
    FClose(ptrHandle)
    FErase(String2Psz(cTempPath+"SERIAL.TXT") )

ENDIF

STATIC FUNCTION Citaj(Simbol,handle, zavrsetak )

LOCAL ret_val := TRUE
LOCAL buffer
LOCAL bytes
LOCAL bufsize := 512
LOCAL tempstring
LOCAL ptrValue

buffer := Space(bufsize)
Simbol:=""
WHILE .T.
   bytes := FRead(handle, @[EMAIL PROTECTED]
 bufsize)
   tempstring := Left(buffer, bytes)
   IF ( ptrValue := At(Zavrsetak, tempstring) ) > 0
      Simbol += SubStr(tempstring, 1, ptrValue - 1)
      FSeek(handle, -(bytes - (ptrValue+1 )), FS_RELATIVE)
      EXIT
   ELSE
      Simbol += tempstring
      IF bytes < bufsize
         ret_val := .F.
         EXIT
      ENDIF
   ENDIF
END

RETURN ret_val


if not put SLEEP() printer stop printing after approx. 40 bytes but if
put sleep(500) it is to slowly

thank you

Danijel