$sim

Config Lcdpin = Pin , Db4 = P3.4 , Db5 = P3.5 , Db6 = P3.6 , Db7 = P3.7 , E = P3.3 , Rs = P3.1

Deflcdchar 0 , 2 , 4 , 14 , 8 , 14 , 2 , 14 , 32              ' replace ? with number (0-7)     ś
Deflcdchar 1 , 32 , 2 , 4 , 14 , 8 , 8 , 14 , 32              ' replace ? with number (0-7)     ć
Deflcdchar 2 , 32 , 32 , 4 , 6 , 12 , 4 , 4 , 32              ' replace ? with number (0-7)     ł
Deflcdchar 3 , 32 , 32 , 14 , 10 , 12 , 8 , 14 , 32           ' replace ? with number (0-7)

P2 = 0

Cls
Lcd "Naci" ; Chr(0) ; "nij START"

Do
   Bitwait P0.0 , Reset
   Cls
   Lcd "Nape" ; Chr(2) ; "nianie"
   P2.7 = 1
   Wait 2
   P2.7 = 0
   Cls
   Lcd "Pranie"
   P2.5 = 0
   P2.6 = 1
   Wait 1
   P2.6 = 0
   P2.5 = 1
   Wait 1
   P2.5 = 0
   P2.6 = 1
   Wait 1
   P2.6 = 0
   P2.5 = 1
   Wait 1
   P2.5 = 0
   P2.6 = 1
   Wait 1
   P2.6 = 0
   P2.5 = 1
   Wait 1
   P2.5 = 0
   Cls
   Lcd "Usuwanie wody"
   P2.4 = 1
   Wait 2
   P2.4 = 0
   Cls
   Lcd "P" ; Chr(2) ; "ukanie"
   P2.3 = 1
   Wait 2
   P2.3 = 0
   Cls
   Lcd "Wirowanie"
   P2.2 = 1
   Wait 2
   P2.2 = 0
   Cls
   Lcd "Koniec pro" ; Chr(3) ; "ramu"
   Wait 3

   P2 = 0
   P0.0 = 1

   Cls
   Lcd "Naci" ; Chr(0) ; "nij START"

Loop
End