TRISA=%11111111
TRISB=%00000000
PORTB=0
I VAR BYTE
CMCON=7
OKU:
IF PORTA.3=1 THEN GOTO HEPSI
IF PORTA.2=1 THEN GOTO ORTA
IF PORTA.1=1 THEN GOTO DON
IF PORTA.0=1 THEN
GOTO SAG
ELSE
GOTO OKU
ENDIF
SAG:
PORTB.0=1
SAGADONDUR:
PAUSE 250
PORTB=PORTB<<1
IF PORTB.7=1 THEN GOTO SOLAKAYDIR
GOTO SAGADONDUR
SOLAKAYDIR:
PAUSE 250
PORTB=PORTB>>1
IF PORTB.0=1 THEN GOTO SAGADONDUR
GOTO SOLAKAYDIR
DON:
FOR I=250 TO 250
PORTB=%00000001
PAUSE I
PORTB=%00000011
PAUSE I
PORTB=%00000111
PAUSE I
PORTB=%00001110
PAUSE I
PORTB=%00011100
PAUSE I
PORTB=%00111000
PAUSE I
PORTB=%01110000
PAUSE I
PORTB=%11100000
PAUSE I
PORTB=%11000000
PAUSE I
PORTB=%10000000
PAUSE I
PORTB=%11000000
PAUSE I
PORTB=%11100000
PAUSE I
PORTB=%01110000
PAUSE I
PORTB=%00111000
PAUSE I
PORTB=%00011100
PAUSE I
PORTB=%00001110
PAUSE I
PORTB=%00000111
PAUSE I
PORTB=%00000011
PAUSE I
PORTB=%00000001
NEXT I
GOTO DON
ORTA:
FOR I=250 TO 250
PORTB=%10000001
PAUSE I
PORTB=%01000010
PAUSE I
PORTB=%00100100
PAUSE I
PORTB=%00011000
PAUSE I
PORTB=%00100100
PAUSE I
PORTB=%01000010
PAUSE I
PORTB=%10000001
PAUSE I
NEXT I
GOTO ORTA
HEPSI:
PORTB=%1111111