Prueba con este pequeño programa:
'LCD test
'INCLUDE "modedefs.bas"
pause 1000 'Wait 1 second for LCD to initialize
serout portb.1, 2,[254,1] 'Clear screen
pause 40
MAIN:
serout portb.1, 2,[254,$80]
serout portb.1, 2,["TEST LCD"] 'Print message
serout portb.1, 2,[254,192] 'Move to line 2
serout portb.1,2,["SERIAL"]
pause 400
GOTO MAIN
end
El 2=T9600 baudios
Saludos.