Device 16F628
Xtal 4
All_Digital = TRUE
Low PORTA
Low PORTB

Symbol LED PORTA.1

Symbol CS PORTB.0
Symbol CLK PORTB.1
Symbol DAT PORTB.2 
Dim a As Byte

DAT=1:CLK=1:CS=1
High LED
DelayMS 500
Low LED
DelayMS 4000

data 0, 0, 0 
data 0, 0, 0 
data 0, 0, 0 
data 223, 51, 31 
data 68, 72, 4 
data 196, 17, 4 
data 68, 32, 4 
data 68, 72, 4 
data 196, 51, 4 
data 0, 0, 0 
data 0, 0, 0 
data 0, 0, 0 
data 0, 0, 0 
data 0, 0, 0 
data 0, 0, 0 
data 0, 0, 0 
data 255

START:
Restore
CS=0
DelayMS 10
SHOut DAT, CLK, LsbFirst_H, [101]
While 1=1
read a
If a=255 Then GoTo ENDin
SHOut DAT, CLK, LsbFirst_H, [a]
DelayMS 10
Wend

ENDin:
CS=1
LED=1