This is the code:

TRISA=%00000000
TRISB=%00000000

PORTA=%00000000
PORTB=%00000000
x var byte
z var byte



X=0



start:


gosub scan
portA=%00000001
PORTb=z
PAUSEus 150

x= x+1

gosub scan
portA=%00000010
PORTb=z
PAUSEus 150

x= x+1

gosub scan
portA=%00000100
PORTb=z
PAUSEus 150

x= x+1

gosub scan
portA=%00001000
PORTb=z
PAUSEus 150

x= x+1

gosub scan
portA=%00010000
PORTb=z
PAUSEus 150

IF x>4 then X=0


GOTO START

scan:
lookup x,[$60,$50,$48,$47,$40],z
return

With this code i can show the character (in this case the number 7) but i can't move it
from right to left.