$regfile = "m8def.dat"		'inicjalizacja parametrów urządzenia
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portc.5 = Output		'konfiguracja portu C5 jako wyjście (dioda)
Config Portc.3 = Output		'konfiguracja portu C3 jako wyjście (dioda)

Config Portc.2 = Output		'konfiguracja portu C2 jako wyjście (dioda)
Config Portc.1 = Output		'konfiguracja portu C1 jako wyjście (dioda)

Config Portb.1 = Input		'konfiguracja portu B1 jako wejście (przycisk)
Config Portb.2 = Input		'konfiguracja portu B2 jako wejście (przycisk)
Portb.1 = 1					'ustawienie stanu portu B1 na wysoki, przycisk będzie reagował na stan niski
Portb.2 = 1					'ustawienie stanu portu B2 na wysoki, przycisk będzie reagował na stan niski

Do							'rozpoczęcie pętli
							'dioda podpięta do portu C5, reaguje na przycisk po lewej
   If Pinb.1 = 0 Then		'instrukcja mówiąca, że jeśli przycisk B1 zostanie naciśnięty wtedy wykonają się poniższe instrukcje
	Portc.5 = 1				'ustawienie stanu portu C5 na wysoki - zapalenie diody
	Waitms 100				'odczekanie 100 milisekund, przez ten czas dioda jest zapalona
	Portc.5 = 0				'ustawienie stanu portu C5 na niski - zgaszenie diody
	Waitms 100				'odczekanie 100 milisekund
   Else						'jeśli przycisk B1 nie jest naciśnięty wtedy wykona się poniższa instrukcja
	Portc.5 = 0				'ustawienie stanu portu C5 na niski - dioda wyłączona
   End If					'koniec instrukci IF-THEN
   If Pinb.2 = 0 Then		'instrukcja mówiąca, że jeśli przycisk B2 zostanie naciśnięty wtedy wykonają się poniższe instrukcje
	Portc.3 = 1				'zapalenie diody C3
	Portc.2 = 1				'zapalenie diody C2
	Portc.1 = 1				'zapalenie diody C1
	Waitms 100				'odczekanie 100 milisekund
	Portc.3 = 0				'zgaszenie diody C3
	Portc.2 = 0				'zgaszenie diody C2
	Portc.1 = 0				'zgaszenie diody C1
	Waitms 100				'odczekanie 100 milisekund
   Else						'jeśli przycisk B2 nie jest naciśnięty wtedy wykona się poniższa instrukcja
	Portc.5 = 0				'dioda C5 zgaszona
	Portc.3 = 1				'zapalenie diody C3
	Waitms 500				'odczekanie 500 milisekund
	Portc.2 = 1				'zapalenie diody C2
	Waitms 500				'odczekanie 500 milisekund
	Portc.1 = 1				'zapalenie diody C1
	Waitms 500				'odczekanie 500 milisekund
	Portc.1 = 0				'zgaszenie diody C1
	Waitms 500				'odczekanie 500 milisekund
	Portc.2 = 0				'zgaszenie diody C2
	Waitms 500				'odczekanie 500 milisekund
	Portc.3 = 0				'zgaszenie diody C3
   End If					'koniec instrukcji IF-THEN
							'jeśli naciśniemy przycisk B2 to 3 diody zapalają się na chwilę po czym gasną
							'jeśli nie naciśniemy przycisku B2 to diody zapalają się po kolei od lewej do prawej
							'po czym gasną po kolei od prawej do lewej

Loop						'koniec pętli

End							'koniec programu