'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : N.Kloppenburg                                     *
'*  Notice  : Copyright (c) 2009 Technojunk.nl                  *
'*          : All Rights Reserved                               *
'*  Date    : 11-10-2009                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
DEVICE 16F628A                ;Gebruik een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE              ;Alle ingangen digitaal

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             ;PORTA.2, PORTA.1 en PORTA.0 zijn nu uitgangen                
TRISB = %11111111             ;Alle 8 poorten van PORTB zijn ingangen

PORTB_PULLUPS ON
clear

chek:

If S1 = aan Then   
While teller <= 50
If S2 = aan Then
teller = 0 
led1 = 1
DelayMS 500
led1 = 0 
Goto chek
EndIf
DelayMS 100
wend 
EndIf

If S2 = aan Then 
While teller1 <= 50
If S1 = aan Then
teller1 = 0 
led2 = 1
DelayMS 500
led2 = 0 
Goto chek
EndIf
DelayMS 100
wend 
EndIf

if s3 = aan then
delayms 2000
	if S3 = aan then
		led3 = 1
		delayms 250
		led3 = 0
	ENDIF
	 endif 	 

goto chek
end                           ; Einde.