Pic16f84 7 segment voltmeter picbasic pro need help!!!!!

HERE IS CODE:
FONT Var Byte
Value2 VAR BYTE
Value1 Var Byte
Value Var Word
TRISA = 0 : TRISB = %10000000

mainloop:
FOR VALUE = 0 TO 9
FOR Value1 = 0 TO 9
FOR VALUE2 = 0 TO 9
PORTA.0 = 0 : PORTA.1 = 1 : PORTA.2 = 1
PORTB = FONT[VALUE2]
GOSUB DIS
Pause 100
NEXT VALUE2
PORTA.0 = 1 : PORTA.1 = 0 : PORTA.2 = 1
PORTB = FONT[VALUE1]
GOSUB DIS
NEXT VALUE1
PORTA.0 = 1 : PORTA.1 = 1 : PORTA.2 = 0
PORTB = FONT[VALUE]
GOSUB DIS
NEXT VALUE
goto mainloop

DIS:
FONT[0] = %1000000
FONT[1] = %1111001
FONT[2] = %0100100
FONT[3] = %0110000
FONT[4] = %0011001
FONT[5] = %0010010
FONT[6] = %0000010
FONT[7] = %1111000
FONT[8] = %0000000
FONT[9] = %0010000
RETURN

HERE IS PROTEUS FILE: