LCD.CreateChar:
b0 = 0 * 8 | $40 ; Program User Defined Character 0
GOSUB LCDSendCommand
b0 = %01110 : GOSUB LCDSendData ; ###
b0 = %10001 : GOSUB LCDSendData ; # #
b0 = %10001 : GOSUB LCDSendData ; # #
b0 = %10001 : GOSUB LCDSendData ; # #
b0 = %10001 : GOSUB LCDSendData ; # #
b0 = %01010 : GOSUB LCDSendData ; # #
b0 = %01010 : GOSUB LCDSendData ; # #
b0 = %11011 : GOSUB LCDSendData ;
b0 = 1* 8 | $40 ; Program User Defined Character 1
GOSUB LCDSendCommand
b0 = %00000 : GOSUB LCDSendData ; .....
b0 = %01000 : GOSUB LCDSendData ; .x...
b0 = %01100 : GOSUB LCDSendData ; .xx..
b0 = %01110 : GOSUB LCDSendData ; .xxx.
b0 = %01111 : GOSUB LCDSendData ; .xxxx
b0 = %01110 : GOSUB LCDSendData ; .xxx.
b0 = %01100 : GOSUB LCDSendData ; .xx..
b0 = %01000 : GOSUB LCDSendData ; .x...
b0 = %10000000 : gosub LCDSendCommand ; Re-select DDRAM
return