I did delete these two lines

ARRAYWRITE LCD_Buff,[" LCD PCF8574"] : LCD_WriteBuff

ARRAYWRITE LCD_Buff,[$FE,$C0,"Count = ",DEC LoopCount," "] : LCD_WriteBuff

and Change this line

ARRAYWRITE LCD_Buff,[$FE,$C0,CustChar] : LCD_WriteBuff ' $C0 was $9D