Lavadora Speed Queen Timer

Lavadora de ropa comercial Speed Quenn donde se daño el timer electromecánico y se diseño uno con PIC16f876a, este programa esta en PBP.

'****************************************************************
'* Name : speed queen .BAS *
'* Author : Cristobal Zelaya Morales *
'* Notice : Copyright (c) 2011 marzo 18*
'* : All Rights Reserved *
'* Date : 27/03/2011 *
'* Version : 1.0 *
'* Notes : *
'* : *'****************************************************************
inicio
fn var porta.0 ;fin
dr var portb.0 ;drenaje
wc var portb.1 ; valbula agua fria
whc var portb.2 ; valbula de agua tibia
wh var portb.3 ; valbula de agua caliente
gd var portb.4 ; giro de motor a la derecha
sp var portb.5 ; spin
gi var portb.6 ; giro de motor a la izquierda
pr var portc.1 ; prsostato
s1 var portc.4 ; selector de agua fria
s2 var portc.5 ; selectorde agua tibia
s3 var portc.6 ; selector de agua tibia
s4 var portc.7 ; selector de agua caliente
pause 500
if portc.0=1 then enciende ; pulsador de encendido
goto inicio
enciende
high porta.1
stam
pause 500
if s1=1 and s2=0 and s3=0 and s4=0 then dk ; teclas de selecion de funciones
if s1=0 and s2=1 and s3=0 and s4=0 then nw
if s1=0 and s2=0 and s3=1 and s4=0 then pp
if s1=0 ands2=0 and s3=0 and s4=1 then hs
pause 500
goto stam
dk
pause 1000
if s1=1 and pr=0 then llenado1; presostato cerrado ya que no hay agua, seleccionado dk
pause 500
goto dk
stam1
llenado1
pause 1000
high dr ; drenaje encendido para sellar
pause 1000
high wc ; valbulas de agua fria
pause 1000
high gd ; motor giro derecho
pause 1000
if s1=1 and pr=1 then prewash ; india que el tanquese lleno
pause 1000
goto stam1 ; pregunta se lleno el tanque?
nw
pause 1000
if s2=1 and pr=0 then nivelb; presostato cerrado ya que no hay agua, seleccionado dk
pause 500
goto nw
nivelb
pause 1000
high dr ; drenaje encendido para sellar
pause 1000
high WHC; valbulas de agua fria y caliente
pause 1000
high gd ; motor giro derecho
pause 1000
if s2=1 and pr=1 then prewash
pause 1000goto nivelb
pp
pause 1000
if s3=1 and pr=0 then nivelc; presostato cerrado ya que no hay agua, seleccionado dk
pause 500
goto pp
nivelc
pause 1000
high dr; drenaje encendido para sellar
pause 1000
high WHC; valbulas de agua fria y caliente
pause 1000
high gd ; motor giro derecho
pause 1000
if s3=1 and pr=1 then prewash
pause 1000
goto nivelc
hs
pause 1000
if s4=1 andpr=0 then niveld; presostato cerrado ya que no hay agua, seleccionado dk
pause 500
goto hs
niveld
pause 1000
high dr ; drenaje encendido para sellar
pause 1000
high wH ; valbulas de agua caliente
pause 1000
high gd ; motor giro derecho
pause 1000
if s4=1 and pr=1 then prewash
pause 1000
goto niveld
prewash ; prelavado numero 1
pause 500
low wc:LOW WHC:LOW wh ; apagaalimentacion de agua fria
pause 3000
low gd ; apagamos giro derecho
pause 3000
high gi ; enciende motor con giro a la izquierda
pause 12000 ; doce segundo de giro a la izquierda
low gi
pause 3000
high gd
pause 12000
low gd
pause 3000
high gi ; enciende motor con giro a la izquierda
pause 12000 ; doce segundo de giro a la izquierda
low gi
pause 3000
high gd
pause 12000
low gd
pause3000
high gi ; enciende motor con giro a la izquierda
pause 12000 ; doce segundo de giro a la izquierda
low gi
pause 3000
high gd
pause 12000
low gd
pause 3000
high gi ; enciende motor con giro a la izquierda
pause 12000 ; doce segundo de giro a la izquierda
low gi
pause 3000
high gd
pause 12000
low gd
pause 3000
low dr ; apaga motor de drenaje para descargar
pause 500
high...