'****************************************************************
'*  Name    : LCD test.bas.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 10/11/2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
'simple LCD program test
 Device = 12F1501
 Xtal 8


Dim I As Word 
Declare Serial_Data 8  ' Set Serout and Serin data bits to 8 (default)

SerOut PORTA.5, 16468 ,[Cls] 
DelayMS 500 
 
 Again:

 I=I + 1
 SerOut PORTA.5, 16468 ,[At 1,1, "I= ", Dec I," "]  
 DelayMS 100

 GoTo Again