LCD

Ejemplo 1 

Device 16F628A
Xtal 4

inicio:
DelayMS 200                 

Print $FE, 1,"Hola"

DelayMS 500      
Print $FE, $C0,"Proton Ide"  
GoTo inicio


Ejemplo 2

Device 16F628A
Xtal 4

'ejemplo de como utilizar la mayoría de los comandos del LCD
Dim x As Byte          ;crea la variable x de un tamaño de 255
Dim pepe As $FE        ;asigna el nombre de pepe a la constante $FE

    DelayMS 2000
Print pepe, 1      ;limpia el visor del LCD
    DelayMS 2000
Print pepe,$0F     ;muestra el cursor en casilla negra
    DelayMS 2000
Print pepe,$0E     ;subraya el cursor
    DelayMS 2000
Print pepe,$14     ;desplaza el cursor una casilla a la derecha
    DelayMS 2000
Print "MIKRO"     ;escribe mikro ,desde donde se encuentre el cursor
    DelayMS 2000
   
  For x = 1 To 3    ; repite 3 veces las siguientes instrucciones
    Print pepe,$10     ; desplaza el cursor una casilla a la izquierda
    DelayMS 1000
    Next
   
Print 67         ; envía el caracter ASCII "C"
    DelayMS 2000
Print pepe,$C0+12,"PIC"  ;escribe en la segunda línea casillero 13
                          ;esto equivale a $CC o 204
DelayMS 2000
Print pepe,2,"1"   ;vuelve al inicio de la 1era fila y escribe 1
End