$regfile = "8515def.dat" $crystal = 6000000 $baud = 9600 Config Porta = Output $lib "EA+DIP204.LIB" Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.7 , Rs = Portc.5 Config Lcd = 20 * 4 Initlcd Cls Dim X As Byte X = 100 Lcd X Do loop