Problem runing my code

[Mus.me]

this is wat i want to do but the serin cuz the 7seg leds blinkin and not working look at the quote #3 up u will see the schematic and the code to

@ DEVICE WDT_ON, PWRT_ON,MCLR_ON,CPD_OFF, BOD_OFF, PROTECT_OFF,INTRC_OSC_NOCLKOUT
      Include "modedefs.bas"
DEFINE OSC 4
 

intcon = 0		
vrcon = 0
CMCON = 7	     

SDO  Var PortB.4
SCLK Var PortB.5
BTM  Var PortB.6
BTN VAR PORTB.7
SEG var byte 
Digit var byte[4] 
index var byte 
B0 var word
D0 var byte 

PORTA = %00001
PORTB = %11000000
TRISA = %00001
TRISB = %11000000

B0 = 0

loop:
''''' i tryed clock  but it cuz problem to 
''''if i put here anythings so 7seg doesnt works,,,just blinkin

MAIN:
serin porta.0,n2400,[],b0  this serin cuzin delays   so the 7seg led blink and 'stops
if btN = 0 then b0 = b0 - 1
if btm = 0 then  b0 = b0 +1
D0 = B0 DIG 0                    
READ D0,DIGIT[0]
D0 = B0 DIG 1
READ D0,DIGIT[1]
D0 = B0 DIG 2
READ D0,DIGIT[2]
D0 = B0 DIG 3
READ D0,DIGIT[3]

for index = 0 to 3
seg = digit [index]
SHIFTOUT SDO,SCLK,0,[SEG\8]
PORTB.0[index] = 1
PAUSEUS 999
PORTB=0
NEXT INDEX

GOTO MAIN  ' return  not workling????

END
data @0,3,159,37,13,153,73,65,31,1,9

[/QUOTE]