Codigo de LCD en Microde para hacer correr en el Proteus

CMCON=7
j var byte
i var byte
x var byte
LCDOUT $FE,1
LCDOUT $FE,2
x=16
uhh:
for i=x to x+16
lookup i,["................Hola_QUE_VIII_13................"],J
LCDOUT j
next i
if portb.7=1 then
   x=x+1
   else
   x=j+1
   x=i+1
   i=x+2
endif
if portb.6=1 then
x= x-1
endif
pause 100
LCDOUT $FE,1
goto uhh
end