Hier mal mit blinkendem Cursor unter 2 Zeichen:

Code:
$regfile = "m16def.dat"
$crystal = 16000000


Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Initlcd

Deflcdchar 0 , 15 , 16 , 16 , 14 , 1 , 1 , 30 , 31          '"S" mit Unterstrich
Deflcdchar 1 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 31              '"T" mit Unterstrich

Dim Wartezeit As Integer
Wartezeit = 400

  Cls
  Cursor Off

  Lcd "TEST!"



  Do
   Locate 1 , 3
   Lcd Chr(0)
   Locate 1 , 4
   Lcd Chr(1)
   Waitms Wartezeit
   Locate 1 , 3
   Lcd "S"
   Locate 1 , 4
   Lcd "T"
   Waitms Wartezeit
  Loop
End