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