Matrix Keypad routine

[cesar35]

HI
ABOUT THE ROUTINE WRITTEN BY MR MISTER_E.
I NEED HELP HOW TO MAKE THE NUMBERS ARE IN SERIES EXAMPLES 12345566
AND THEN PRESS THE BUTTON # SEND VIA SERIAL A SEQUECIA.

#CONFIG
    __config _HS_OSC & _WDT_OFF & _PWRTE_OFF & _CP_OFF & _LVP_OFF & _WRT_OFF   
#ENDCONFIG

DEFINE OSC 4 

TRISA=%00000011
TRISB=%00000000
TRISC=%11111110
ADCON0=%11000000
ADCON1=%00000111 
INCLUDE "KeyPad2.bas"         

'                      
'    Hardware connection
'    ===================

DEFINE KEYPAD_ROW		4      
DEFINE KEYPAD_ROW_PORT   	PORTC   
DEFINE KEYPAD_ROW_BIT	0
DEFINE KEYPAD_COL        	3
DEFINE KEYPAD_COL_PORT   PORTC
DEFINE KEYPAD_COL_BIT    	4
DEFINE KEYPAD_DEBOUNCEMS 200     'debounce delay = 200 mSec
define KEYPAD_AUTOREPEAT 1       'use auto-repeat
    
' LCD Display
' -----------
' Adjust these to suit your chosen LCD pinout
'
'----DEFINIR   LCD--------------------------------------------------------------
DEFINE LCD_DREG PORTB     ' LCD data port
DEFINE LCD_DBIT 4         ' LCD data starting bit
DEFINE LCD_RSREG PORTB    ' LCD register select port
DEFINE LCD_RSBIT 2        ' LCD register select bit
DEFINE LCD_EREG PORTB     ' LCD enable port
DEFINE LCD_EBIT 3         ' LCD enable bit
DEFINE LCD_BITS 4         ' LCD data bus size
DEFINE LCD_LINES 2        ' Number lines on LCD
DEFINE LCD_COMMANDUS 5000 ' Command delay time in us
DEFINE LCD_DATAUS 50      ' Data delay time in us

mykey   VAR BYTE
myvar   var byte
array   var byte[5]
index   var byte
i       var byte
word_v  var word
 
LCDOUT $FE,1,  "  FONTE DIGITAL   "
PAUSE 1000
LCDOUT $FE,1
    '    ---------------------------------[Program Start]----------------------------------------------
start:
    @ READKEYPAD _myvar
	gosub lcddisp
    goto start

lcddisp:
    LCDOUT $FE,$C0,DEC4 myvar 
    pause 60
    return
    end