reverse engineering the keypad module

Repeat   
          
until
 led_row2=0 and sw_col1=0  //led and sw are both =0

Dim index As Byte
//blue leds

Dim led(index) =0 To 12 As Byte
{
Dim led(0) As PORTC.0  won't compile
Dim led1 As PORTC.1
Dim led2 As PORTC.2
Dim led3 As PORTC.3
Dim led4 As PORTC.4

Dim x As Byte


Dim index(12) As Byte
 
'Dim led(0) As PORTC.0
Dim led1 As PORTC.1

led(3)= portc.1
while true

Device = 18F43k22
Clock = 8

Include "intosc.bas"
Include "setdigitalio.bas"

Dim SW_COL1 As PORTC.0
Dim LED_ROW2 As PORTB.5

SetAllDigital()

Output(LED_ROW2)
Input(SW_COL1)

Repeat   
Until
 LED_ROW2=0 and SW_COL1=0 

// get here only when LED_ROW2 is 0 and SW_COL1 is 0
LED_ROW2 = 1

While True
SW_COL1=1   SW_COL2=1   SW_COL3=1  SW_COL4=1  //TIED HIGH W/ PULLUP RESISTOR INPUTS
//#1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
//led# 1  1-1
LED_COL1=1  LED_COL2=0  LED_COL3=0 LED_COL4=0
LED_ROW1=1  //leds 1-4  led1 is on             
LED_ROW2=1  //leds 5-8     
LED_ROW3=0  //leds 9-12               
Repeat   
          
Until
 LED_ROW3=0 And SW_COL1=0  //led and sw are both =0

DelayMS(500)

Module Keypad12rev
{
Column1 = PORTX.0
Column2 = PORTX.1
Column3 = PORTX.2
PORTX.3 NC
Row1 = PORTX.4
Row2 = PORTX.5
Row3 = PORTX.6
Row4 = PORTX.7
}

// validate data port...
#option KEYPAD_PORT = PORTC  //port B for pullups
#if IsOption(KEYPAD_PORT)
   #if Not IsValidPort(KEYPAD_PORT)
      #error KEYPAD_PORT, "Invalid option. Keypad must be connected to a valid port name."
   #endif
   #option _KEYPAD_PORT_TRIS = GetTRIS(KEYPAD_PORT)   
#endif

// bring PORT and TRIS options into the module
Dim
   FKeyPort As KEYPAD_PORT,
   FKeyPortTris As _KEYPAD_PORT_TRIS


Public Function Value() As Byte
    Dim Counter As Byte
    Dim RowData As Byte
    Dim ColData As Byte
    Result = 0                           
    Counter = 0
    rowdata=0
    For Counter = 0 To 3                //
        FKeyPortTris = $FF              // Make all pins inputs
        FKeyPortTris.Bits(Counter) = 1  // Make a single Column an output
        FKeyPort.Bits(Counter) = 0      //  and set it high
        
        If (FKeyPort >> 4) <> 0 Then    // Check if any Rows are "High"
            coldata = Counter
            If FKeyPort.0 = 0 Then
                rowData = 1
            ElseIf FKeyPort.1 = 1 Then
                rowData = 11           //4 here is what it shows
            ElseIf FKeyPort.2 = 1 Then
                rowData = 7
            ElseIf FKeyPort.3 = 1 Then
                rowData = 10               
            EndIf           
            Result = Coldata + rowData    //colum and row data
            Break         
        EndIf 
    Next
End Function
Public Sub Debounce()

    While Keypad12rev.Value <> 0           // Check if key is pressed
        DelayMS(10)                     // Wait for 10mS
    Wend 
End Sub

FKeyPortTris = $FF              // Make all pins inputs
End