'uses Case function to get correct font pattern chr2lcd: SPICSOn Select Case ascval Case "A" SPISend 0x7e SPISend 0x11 SPISend 0x11 SPISend 0x11 SPISend 0x7e Case "B" SPISend 0x7f SPISend 0x49 SPISend 0x49 SPISend 0x49 SPISend 0x36 Case "C" SPISend %00111110 '3c SPISend %01000001 SPISend %01000001 SPISend %01000001 SPISend %00100010 Case "D" SPISend 0x7f SPISend 0x41 SPISend 0x41 SPISend 0x22 SPISend 0x1c Case "E" SPISend 0x7f SPISend 0x49 SPISend 0x49 SPISend 0x49 SPISend 0x41 Case "F" SPISend 0x7f SPISend 0x09 SPISend 0x09 SPISend 0x09 SPISend 0x01 Case "G" SPISend 0x3e SPISend 0x41 SPISend 0x49 SPISend 0x49 SPISend 0x7a Case "H" SPISend 0x7f SPISend 0x08 SPISend 0x08 SPISend 0x08 SPISend 0x7f Case "I" SPISend 0x00 SPISend 0x41 SPISend 0x7f SPISend 0x41 SPISend 0x00 Case "J" SPISend 0x20 SPISend 0x40 SPISend 0x41 SPISend 0x3f SPISend 0x01 Case "K" SPISend 0x7f SPISend 0x08 SPISend 0x14 SPISend 0x22 SPISend 0x41 Case "L" SPISend 0x7f SPISend 0x40 SPISend 0x40 SPISend 0x40 SPISend 0x40 Case "M" SPISend 0x7f SPISend 0x02 SPISend 0x0c SPISend 0x02 SPISend 0x7f Case "N" SPISend 0x7f SPISend 0x04 SPISend 0x08 SPISend 0x10 SPISend 0x7f Case "O" SPISend 0x3e SPISend 0x41 SPISend 0x41 SPISend 0x41 SPISend 0x3e Case "P" SPISend 0x7f SPISend 0x09 SPISend 0x09 SPISend 0x09 SPISend 0x06 Case "Q" SPISend 0x3e SPISend 0x41 SPISend 0x51 SPISend 0x21 SPISend 0x5e Case "R" SPISend 0x7f SPISend 0x09 SPISend 0x19 SPISend 0x29 SPISend 0x46 Case "S" SPISend 0x46 SPISend 0x49 SPISend 0x49 SPISend 0x49 SPISend 0x31 Case "T" SPISend 0x01 SPISend 0x01 SPISend 0x7f SPISend 0x01 SPISend 0x01 Case "U" SPISend 0x3f SPISend 0x40 SPISend 0x40 SPISend 0x40 SPISend 0x3f Case "V" SPISend 0x1f SPISend 0x20 SPISend 0x40 SPISend 0x20 SPISend 0x1f Case "W" SPISend 0x3f SPISend 0x40 SPISend 0x38 SPISend 0x40 SPISend 0x3f Case "X" SPISend 0x63 SPISend 0x14 SPISend 0x08 SPISend 0x14 SPISend 0x63 Case "Y" SPISend 0x07 SPISend 0x08 SPISend 0x70 SPISend 0x08 SPISend 0x07 Case "Z" SPISend 0x61 SPISend 0x51 SPISend 0x49 SPISend 0x45 SPISend 0x43 Case "0" SPISend 0x3e SPISend 0x51 SPISend 0x49 SPISend 0x45 SPISend 0x3e Case "1" SPISend 0x00 SPISend 0x42 SPISend 0x7f SPISend 0x40 SPISend 0x00 Case "2" SPISend 0x42 SPISend 0x61 SPISend 0x51 SPISend 0x49 SPISend 0x46 Case "3" SPISend 0x21 SPISend 0x41 SPISend 0x45 SPISend 0x4b SPISend 0x31 Case "4" SPISend 0x18 SPISend 0x14 SPISend 0x12 SPISend 0x7f SPISend 0x10 Case "5" SPISend 0x27 SPISend 0x45 SPISend 0x45 SPISend 0x45 SPISend 0x39 Case "6" SPISend 0x3c SPISend 0x4a SPISend 0x49 SPISend 0x49 SPISend 0x30 Case "7" SPISend 0x01 SPISend 0x71 SPISend 0x09 SPISend 0x05 SPISend 0x03 Case "8" SPISend 0x36 SPISend 0x49 SPISend 0x49 SPISend 0x49 SPISend 0x36 Case "9" SPISend 0x06 SPISend 0x49 SPISend 0x49 SPISend 0x29 SPISend 0x1e Case "=" SPISend 0x14 SPISend 0x14 SPISend 0x14 SPISend 0x14 SPISend 0x14 Case "," SPISend 0x00 SPISend 0x00 SPISend 0x50 SPISend 0x30 SPISend 0x00 Case "'" SPISend 0x00 SPISend 0x05 SPISend 0x03 SPISend 0x00 SPISend 0x00 Case "." SPISend 0x00 SPISend 0x60 SPISend 0x60 SPISend 0x00 SPISend 0x00 Case "-" SPISend 0x10 SPISend 0x10 SPISend 0x10 SPISend 0x10 SPISend 0x10 Case "+" SPISend 0x08 SPISend 0x08 SPISend 0x3e SPISend 0x08 SPISend 0x08 Case "(" SPISend 0x00 SPISend 0x1c SPISend 0x22 SPISend 0x41 SPISend 0x00 Case ")" SPISend 0x00 SPISend 0x41 SPISend 0x22 SPISend 0x1c SPISend 0x00 Case Else 'display a space for unrecognised ASCII SPISend 0x00 SPISend 0x00 SPISend 0x00 SPISend 0x00 SPISend 0x00 EndSelect SPISend 0x00 'one bit gap between chars on the lcd display SPICSOff Return