$regfile = "at26def.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 Config Lcdpin = Pin , Db6 = Porta.6 , Db7 = Porta.7 Config Lcdpin = Pin , E = Porta.3 , Rs = Porta.2 Config Lcd = 16 * 2 Dim N As Byte Deflcdchar 0 , 32 , 16 , 8 , 7 , 1 , 31 , 18 , 12 Deflcdchar 1 , 31 , 32 , 6 , 6 , 32 , 31 , 32 , 32 Deflcdchar 2 , 7 , 8 , 19 , 19 , 16 , 31 , 18 , 12 Deflcdchar 3 , 32 , 1 , 2 , 28 , 16 , 31 , 9 , 6 Deflcdchar 4 , 31 , 32 , 12 , 12 , 32 , 31 , 32 , 32 Deflcdchar 5 , 28 , 2 , 25 , 25 , 1 , 31 , 18 , 12 Deflcdchar 6 , 32 , 32 , 32 , 32 , 32 , 10 , 32 , 32 Cursor Off Do Cls : Lcd Chr(0) Waitms 250 Cls : Lcd Chr(1) ; Chr(0) Waitms 250 Cls : Lcd Chr(2) ; Chr(1) ; Chr(0) Waitms 250 Cls : Lcd Chr(6) ; Chr(2) ; Chr(1) ; Chr(0) Waitms 250 For N = 1 To 16 Shiftlcd Right Waitms 250 Next N Cls : Locate 1 , 16 Lcd Chr(3) Waitms 250 Cls : Locate 1 , 15 Lcd Chr(3) ; Chr(4) Waitms 250 Cls : Locate 1 , 14 Lcd Chr(3) ; Chr(4) ; Chr(5) Waitms 250 Cls : Locate 1 , 13 Lcd Chr(3) ; Chr(4) ; Chr(5) ; Chr(6) Waitms 250 For N = 1 To 16 Shiftlcd Left Waitms 250 Next N Loop End