INPUT PORTB.0
INPUT PORTB.1
INPUT PORTB.2
OUTPUT PORTB.3
OUTPUT PORTB.4
OUTPUT PORTB.5
OUTPUT PORTB.6
SYMBOL SOLCNY =PORTB.0
SYMBOL ORTACNY =PORTB.1
SYMBOL SAGCNY =PORTB.2
SYMBOL SOLILERI=PORTB.3
SYMBOL SOLGERI =PORTB.4
SYMBOL SAGILERI=PORTB.5
SYMBOL SAGGERI =PORTB.6
BASLANGIC:
GOTO DUZGIT
ANA:
IF SOLCNY=1 THEN SOLA_DON
IF SAGCNY=1 THEN SAGA_DON
IF ORTACNY=1 THEN DUZGIT
GOTO ANA
SOLA_DON:
HIGH SAGILERI
LOW SAGGERI
LOW SOLILERI
LOW SOLGERI
GOTO ANA
SAGA_DON:
HIGH SOLILERI
LOW SOLGERI
LOW SAGILERI
LOW SAGGERI
GOTO ANA
DUZGIT:
HIGH SOLILERI
HIGH SAGILERI
LOW SOLGERI
LOW SAGGERI
GOTO ANA
END