$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.1 , Rs = Portc.0


Config Lcd = 16 * 2
Dim X As Word
Declare Sub Losowo
Declare Sub Stopp

Cls

X = 1




Glowna:
Do


       If Pinb.0 = 1 Then
          Gosub Losowo
       Elseif Pinb.0 = 0 Then
          Gosub Stopp


End If
Waitms 5


Loop



End



'------------------------------------
Sub Losowo                                                  'nazwa podprogramu
X = X + 1                                                   'Zwieksz zmienną x o 1
If X = 10000 Then X = 1                                     'Jeśli x wyniesie 25 zmien x na 1
Cls                                                         'wyczyść lcd
Lcd ; X ;                                                   'Wyświetl liczbę X na lcd

Waitms 10                                                   'poczekaj 10milisekund

End Sub
'--------------------------------------







'----------------------
Sub Stopp
Waitms 100
Cls
Lcd "Liczba to:"
Lowerline
Lcd ; X ;
Wait 5
Cls
Lcd "Losowanie: "
Lowerline
Lcd "Nacisnij STOP"
Goto Glowna



End Sub