$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 Deflcdchar 0 , 32 , 16 , 8 , 4 , 2 , 1 , 32 , 32 Cursor Off Do Cls Lcd " (-_-)" Wait 1 Cls Lcd Chr(0) ; "(^o^)/" Wait 1 Loop End