Parallax, Inc. • BS2p “Plus Pack” (#45184) • 10/2001
Page 4
LCDCMD LCDpin,cmd
Flash_Display:
cmd = DispCtrl
display = On
FOR idx = 1 TO 10 ' flash display by
display = ~display ' toggling display bit
LCDCMD LCDpin,cmd
PAUSE 250
NEXT
PAUSE 1000
Shift_Display:
FOR idx = 1 TO 16 ' shift display to right
LCDCMD LCDpin,DispRt
PAUSE 100
NEXT
PAUSE 1000
FOR idx = 1 TO 16 ' shift display back
LCDCMD LCDpin,DispLf
PAUSE 100
NEXT
PAUSE 1000
GOTO Main ' do it all over
END
' -----[ Subroutines ]----------------------------------------------------------
'