''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Program:   prog001.bas
'   Autor:   W.P.      -     http://www.elektronika.qs.pl     -    2004
'   Opis:
'       W wyniku działania programu zaświeci się dioda LED podłączona do portu PB0 gdy
'       zostanie naciśnięty przycisk podłączony do PD0, zgaśnie natomiast gdy zostanie
'       naciśnięty przycisk podłączony do PD1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Config Portb = &B11111111               ' ustawienie całego Portu B jako wyjścia
       Portb = &B11111111               ' stan spoczynkowy wszystkich wyjść ustawiony na 1
Config Portd = &B1111100                ' ustawienie bitów PD0 i PD1 jako wejścia reszta Portu D jako wyjścia
       Portd = &B1111111                ' stan spoczynkowy wszystkich bitów ustawiony na 1
Do                                      ' początek nieskończonej pętli
  If Pind.0 = 0 Then Portb.0 = 0        ' jak przełącznik podłączony do PD0 jest naciśnięty
                                        ' to PB0 jest w stanie niskim i dioda LED się zaświeci
  If Pind.1 = 0 Then Portb.0 = 1        ' jak przełącznik podłączony do PD1 jest naciśnięty
                                        ' to PB0 jest w stanie wysokim i dioda zgaśnie
Loop                                    ' gdy nie ma warunku - pętla będzie się wykonywać w nieskończoność
End                                     ' koniec programu                                     '