trying to built own LVP

I am trying to make a Low-Voltage ICSP using the Parallel Port for a 16F886. All I want it to do is write BSF 05h,1 to the Program Memory. I want to know if it will work.

dim j as ubyte
dim i(29) as ubyte
i(1)=0
i(2)=1
i(3)=0
i(4)=0
i(5)=0
i(6)=0
i(7)=0
i(8)=0
i(9)=1
i(10)=0
i(11)=1
i(12)=0
i(13)=0
i(14)=0
i(15)=0
i(16)=0
i(17)=0
i(18)=0
i(19)=1
i(20)=0
i(21)=1
i(22)=0
i(23)=0
i(24)=0
i(25)=0
i(26)=1
i(27)=0
i(28)=0


out 888,1
sleep 1000

for j = 1 to 28
out 888,3
if i(j)=1 then out 888,7
sleep 1000
if i(j)=1 then out 888,5
if i(j)=0 then out 888,1
sleep 500
out 888,1
sleep 500
next j

sleep 5000
out 888,0