Parallax, Inc. • BS2p “Plus Pack” (#45184) • 10/2001
Page 10
PAUSE 100
NEXT
GOTO Main
END
' -----[ Subroutines ]----------------------------------------------------------
'
Update_CC: ' update custom character
LCDCMD LCDpin,(CGRam + (cNum * CLines)) ' point to character map
FOR idx = 0 TO (CLines - 1)
READ (addr + idx),char ' get data for character line
LCDOUT LCDpin,NoCmd,[char] ' write to LCD CGRAM
NEXT
RETURN