the fade will take 100mS what do you expect to see ?

' Fade in LED to set brightness
FOR i = 0 to 100 ; must match ARRAY SIZE of data table above
ReadCODE (DataTable + i), DataWord
PWMDuty = DataWord

GOSUB ChngLEDBrightness

pause 1
NEXT i
this is the only write to the lcd
what else do you expect ?

#IFDEF USE_LCD_FOR_DEBUG
HSEROUT [LCD_INST, LCD_CLR]
pause 5
HSEROUT ["i=",DEC i," "]
#ENDIF
the code is doing exactly what it should do , not what you hoping for maybe