Programando PIC

' {$STAMP BS2}
' {$PBASIC 2.5}
tiempo CON 150
pinled VAR Byte (8)
indice VAR Nib
j VAR Byte
i VAR Nib
DIRL=%11111111

Inicio:
OUTL=%00000000
IF IN15=1 THEN GOTO Cortina
GOTO izqui_dere

Cortina:
i = 0
j = 0
DO WHILE i<=7
FOR indice = 0 TO 7-i
pinled(indice)= DCD indice
OUTL=pinled(indice)+j
PAUSE tiempo
NEXT
i = i+1
j = j + DCD (8-i)
LOOP
i = 0
DO WHILE i<=7
FOR indice = i TO 0
pinled(indice)= DCD indice-1
OUTL=pinled(indice)+j
PAUSE tiempo
NEXT
i = i+1
j = j - DCD i
LOOP
GOTO Inicio

Izqui_dere:
i = 4
FOR indice = i TO 7
pinled(indice)= DCD indice
pinled(7-indice)=DCD (7-indice)
OUTL=pinled(indice) + pinled(7-indice)
PAUSE tiempo
NEXT
GOTO inicio