Device 16F628A           
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE          
 
Symbol S1 = PORTB.0
Symbol S2 = PORTB.1
Symbol S3 = PORTB.2
Symbol S4 = PORTB.3
 
Symbol LED1 = PORTA.0
Symbol LED2 = PORTA.1
Symbol LED3 = PORTA.2
 
Dim teller As Word
Dim teller1 As Word
 
Symbol Aan = 0
Symbol Uit = 1
 
;        76543210           <<<Een hulpregeltje
PORTA = %00000000 
PORTB = %00000000
TRISA = %00000000         
TRISB = %11111111
 
PORTB_PULLUPS On
Clear
 
Chek:
 
    If S3 = Aan Then
           DelayMS 1000
	       If S3 = Aan Then
		      LED3 = 1
		      DelayMS 1000
		      LED3 = 0
	       EndIf
    EndIf 
    
    
    If S1 = Aan Then   
     While teller <= 50
            DelayMS 100
            Inc teller
          If S2 = Aan Then
                teller = 0 
                LED1 = 1
                DelayMS 500
                LED1 = 0
                GoTo Chek           
            EndIf
        Wend
        teller = 0 
   
 
    ElseIf S2 = Aan Then 
        While teller1 <= 50
            DelayMS 100
            Inc teller1
            If S1 = Aan Then
                teller1 = 0 
                LED2 = 1
                DelayMS 500
                LED2 = 0
                GoTo Chek  
            EndIf
        Wend
        teller1 = 0 
      EndIf
 	 
DelayMS 100
GoTo Chek
End