Device 16F628A                ;We gebruiken een 16F628A type
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
All_Digital TRUE              ;Alle ingangen digitaal

Dim Teller1 As Byte
Dim Teller2 As Byte
PortB_Pullups On 
Symbol LED1 = PORTA.1
Symbol LED2 = PORTA.2
Symbol S1 = PORTB.0

Begin:
Clear
Teller2 = 1                         ;Wis alle RAM geheugen

High LED2
Low LED1

Daarna: 

While Teller1 < 10
  Toggle LED1
  Toggle LED2
If S1 = 1 Then GoTo Begin
  DelayMS 1000 / Teller2
  Teller1 = Teller1 + 1    
Wend

If Teller2 < 128 Then Teller2 = Teller2 * 2 And Teller1 = 0
    GoTo Daarna

If Teller2 < 225 Then Teller2 = Teller2 + 25 And Teller1 = 0 
    GoTo Daarna
   
Low LED1
Low LED2
Teller1 = 0

While Teller1 < 50
  If S1 = 1 Then GoTo Begin
  DelayMS 100
Wend

 High LED1
 High LED2
  Teller1 = 0
While Teller1 < 50
  If S1 = 1 Then GoTo Begin
    DelayMS 100
Wend

Teller1 = 0
Teller2 = 1
GoTo Begin
End                           ;Einde programma