Code:
TRISA=0:TRISB=0:PORTA=0:PORTB=0:x var byte:z var byte:X=0
start:     gosub scan:porta=1:portb=z:pauseus 150:x=x+1:gosub scan:porta=2:portb=z
pauseus 150:x=x+1:gosub scan:porta=4:portb=z:pauseus 150:x=x+1:gosub scan
porta=8:portb=z:pauseus 150:x=x+1:gosub scan:porta=16:portb=z:pauseus 150
IF x>4 then X=0
GOTO START
scan:  lookup x,[$60,$50,$48,$47,$40],z : return
Well, there's nothing in your code to make it slide left to right, up to down, or otherwise...
Think about it. You're displaying 'chunks' of this character. You need to make the 'chunks' appear in different spots.
How could you do that?