problem with 2*16 lcd

[paul borgmeier]

Try this

define lcd_dreg portd
define lcd_dbit 4
define lcd_rsreg portd
define lcd_rsbit 2
define lcd_ereg portd
define lcd_ebit 3
define lcd_bits 4
define lcd_lines 2
main:
low portd.1
lcdout $fe,1, "EMBEDED SYSTEMS pro."
pause 500
if portb.0=0 then l2
pause 500
lcdout $fe,1, "project1"
while portb.0=1
toggle portb.1
pause 200
wend
goto main
l2:
pause 500
lcdout $fe,1, "project2"
while portb.0=1
Toggle portb.1
pause 600
wend
goto main  
end

I didn't check the logic ... it should do the same thing you originally coded (except with a few errors fixed like changing your returns to gotos.