

Zamieszczam listing programu:
$regfile = "m8DEF.DAT"
$crystal = 8000000
'Configuracja urządzeń zewnętrznych
Config Lcd = 20 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.1 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.0 , Rs = Portc.5
'Zmienne używane w programie
'ustawienia portów
Config Portd=&B10001111
Portd=&B10001111
'Nadawanie Aliasów
S1 Alias Pind.7 'przycisk pierwszy podłączony do portu PD7
S2 Alias Pind.6 'przycisk drugi podłączony do portu PD6
S3 Alias Pind.5 'przycisk trzeci podłączony do portu PD5
S4 Alias Pind.4 'przycisk czwarty podłączony do portu PD4
Led_czerwona Alias Portd.3 'czerwony kolor diody podłączony do portu PD3
Led_zielona Alias Portd.2 'zielony kolor diody podłączony do portu PD2
Buzzer Alias Portd.1 'sygnalizacja dzwiękowa (buzzer) podłączona do portu PD1
Czujnik Alias Pind.0 'czujnik podłaczony do portu PD0
Prawo Alias Portb.0 'Kierunek prawo uruchamiany za pomoca portu PB0
Lewo Alias Portb.2 'kierunek lewo uruchamiany za pomoca portu PB2
Pwm Alias Pwm1a 'wysterowanie predkości za pomocą PWMA będącego wyjściem PB1
'Deklaracje funkcji i podprogramów
Declare Sub Czyszczenie
'Ustawienia pczątkowe
Call Czyszczenie
Cls
'program główny
Do
buzzer=1
waitms 250
buzzer=0
waitms=0
Loop
Sub Czyszczenie
Set Portd.0 'ustawienie czujnika w stan czuwania
Set Portd.4 'ustawienie przycisku S4 w stan czuwania
Set Portd.5 'ustawienie przycisku S3 w stan czuwania
Set Portd.6 'ustawienie przycisku S2 w stan czuwania
Set Portd.7 'ustawienie przycisku S1 w stan czuwania
End Sub