Untitled6.pbp

       
       TRISB =%00001100        'TRISB=% B7,B6,B5,B4,B3,B2,B1,B0'
                               'TRISB=0 veya TRISB=$00
                               'PortB=0                 
                               ' PortB.0=0
                               ' PortB.1=0
       
       SYMBOL sari=PortB.0
       SYMBOL yesil=PortB.1
       SYMBOL sapsari=PortB.2
       SYMBOL yemyesil=PortB.3
       
       i VAR BYTE    'bit 0-1
                     'byte 0-255
                     'word 0-65562
       j VAR BYTE
       sari=0 : yesil=0
       
       neolsun:
               'sari=1 : yesil=0 : PAUSE 1000
               'sari=0 : yesil=1 : PAUSE 1000
               
               IF sapsari=0 THEN i=i+1
               IF i=1 THEN sari=1
               IF i=2 THEN sari=0 : i=0
               WHILE yemyesil=1
                    WHILE yemyesil=1
                    WEND
                    j=j+1
               WEND
       
               IF j=1 THEN yesil=1
               IF j=2 THEN yesil=0 : j=0
               
       GOTO neolsun