Thanks a million Sir Darrel Taylor. My project is over.

i add this line,

Code:
If LastW0.15 = 1 then 
   E6 = $BF
    ELSE
   E6 = $FF
 ENDIF
  
        HC_Latch=0
        shiftout HC_data, HC_Clk, MSBFIRST,[E1,E2,E3,E4,E5,E6]        
        pauseus 1
         HC_Latch=1
                
        '---------------------------------------
       ' endif   
         GOTO LOOP
Now my next step is "Calibration Factor" with Pitch of machine's screw.
I will start it Using Floating Point
Thanks again.