'
' lcd.bs2
' Send "hello world" to a Serial LCD connected to 
' P9 (pin 14) of a STAMP II
'
' Mark Crosbie 1998  mark@mastincrosbie.com
'

LCDPREFIX	con	254
LCDCLS	con	1
LCDHOME	con	2
LCDBLANK	con	8
LCDSCRLLEFT	con	24
LCDSCRLRT	con	28
N24N	con	16780

dir9 = 1
serout 9,N24N,[LCDPREFIX, LCDCLS]
serout 9,N24N,["Hello"]
serout 9,N24N,[" THERE"]
pause 5000

for b1 = 1 to 10
serout 9,N24N,[LCDPREFIX, LCDSCRLLEFT]
pause 100
next