programming a byte on one pin

{
*****************************************************************************
*  Name    : UNTITLED.BAS                                                   *
*  Author  : [select VIEW...EDITOR OPTIONS]                                 *
*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS]              *
*          : All Rights Reserved                                            *
*  Date    : 11/12/2012                                                     *
*  Version : 1.0                                                            *
*  Notes   : Burts knight rider                                                               *
*          :                                                                *
*****************************************************************************
}
Device = 18F2420
Clock =20
//Config OSC = INTIO67
//Include "intio8.bas"
Include "shift.bas"
Include "utils.bas"
Include "convert.bas"
 
Dim SDI As PORTC.4
Dim CLK As PORTc.5
Dim LE As PORTC.3
Dim OE As PORTC.2

 
Dim DataPin As SDI  
Dim ClockPin As CLK
Dim ResetPin As OE 
Dim index As Byte 
Dim X As Byte
Dim row0 As PORTC.6
Dim row1 As PORTC.7 
Dim row2 As PORTb.0 
Dim row3 As PORTb.1
Dim row4 As PORTB.2
Dim row5 As PORTB.3
Dim row6 As PORTB.4
Dim row7 As PORTB.5       
 
Const data(8)As Byte =(%10000001, %010000010 ,%00100100, %00011000, %00011000, %00100100, %01000010, %10000001)
 
Sub StartScan()
    
    
    LE = 0
    ResetPin = 1
    Shift.Out(MSB_FIRST, X, 8)
    LE = 1
    DelayUS(10)
    ResetPin = 0
End Sub
Shift.SetOutput(DataPin)
Shift.SetClock(ClockPin)
ADCON1 = $07 
Output(ResetPin)
Output (LE)
Output (row0)
While true     
 For index = 0 To Bound (data)
      DelayMS(100)
      X = (data(index))
      StartScan
      DelayMS(100)
 Next
 High(row0)  // enable row1
 Wend
 End

{
*****************************************************************************
*  Name    : UNTITLED.BAS                                                   *
*  Author  : [select VIEW...EDITOR OPTIONS]                                 *
*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS]              *
*          : All Rights Reserved                                            *
*  Date    : 11/12/2012                                                     *
*  Version : 1.0                                                            *
*  Notes   : Burts knight rider                                                               *
*          :                                                                *
*****************************************************************************
}
Device = 18F2420
Clock =20
//Config OSC = INTIO67
//Include "intio8.bas"
Include "shift.bas"
Include "utils.bas"
Include "convert.bas"
 
Dim SDI As PORTC.4
Dim CLK As PORTc.5
Dim LE As PORTC.3
Dim OE As PORTC.2

 
Dim DataPin As SDI  
Dim ClockPin As CLK
Dim ResetPin As OE 
Dim index As Byte 
Dim X As Byte
Dim row0 As PORTC.6
Dim row1 As PORTC.7 
Dim row2 As PORTb.0 
Dim row3 As PORTb.1
Dim row4 As PORTB.2
Dim row5 As PORTB.3
Dim row6 As PORTB.4
Dim row7 As PORTB.5       
 
Const data(8)As Byte =(%00000001, %000000010 ,%00000100, %00001000, %00010000, %00100000, %01000000, %10000000)
 
Sub StartScan()
    
    
    LE = 0
    ResetPin = 1
    Shift.Out(lSB_FIRST, X, 8)
    LE = 1
    DelayUS(10)
    ResetPin = 0
End Sub
Shift.SetOutput(DataPin)
Shift.SetClock(ClockPin)
ADCON1 = $07 
Output(ResetPin)
Output (LE)
output(row1)  // enable row1
output(row2)
output(row3)
output(row4)
output(row5)  // enable row1
output(row6)
output(row7)
While true     
 For index = 0 To Bound (data)
      DelayMS(1000)
      X = (data(index))
      StartScan
      DelayMS(1000)
 Next
 High(row1)  // enable row1
 High(row2)
 High(row3)
 High(row4)
 High(row5)  // enable row1
 High(row6)
 High(row7)

 Wend
 End