This is a routine I came up with about 8 years or so ago.

' ************************************************** ******************
CHARTABLR: '5 x 7 CHARACTER LOOK-UP TABLE FOR ROWS (LSB=RIGHT) (ROW1 = TOP)
' ************************************************** ******************
IF CHARACTER < 31 OR CHARACTER > 127 THEN CHARACTER = 63 '?
' " ","!",""","#","$","%","&","'","(",")","*","+", ",",
'"-",".","/","0","1","2","3","4","5","6","7","8","9",":",";", "<","=",">","?",
'"@","A","B","C","D","E","F","G","H","I","J","K"," L","M","N","O","P","Q","R",
'"S","T","U","V","W","X","Y","Z","[","\","]","^","_","`","a","b","c","d","e",
'"f","g","h","i","j","k","l","m","n","o","p","q"," r","s","t","u","v","w","x",
'"y","z","{","|","}","~"]

ROW1:
LOOKUP CHARACTER - 32,[$00,$04,$0A,$0A,$04,$18,$0C,$0C,$04,$04,$00,$00,$0 0,_
$00,$00,$00,$0E,$04,$0E,$1F,$02,$1F,$06,$1F,$0E,$0 E,$00,$00,$02,$00,$08,$0E,_
$0E,$0E,$1E,$0E,$1C,$1F,$1F,$0E,$11,$0E,$07,$11,$1 0,$11,$11,$0E,$1E,$0E,$1E,_
$0F,$1F,$11,$11,$11,$11,$11,$1F,$1C,$00,$07,$04,$0 0,$08,$00,$10,$00,$01,$00,_
$06,$00,$10,$04,$01,$10,$0C,$00,$00,$00,$00,$00,$0 0,$00,$08,$00,$00,$00,$00,_
$00,$00,$04,$04,$04,$00],ROW_DAT(0)

ROW2:
LOOKUP CHARACTER - 32,[$00,$04,$0A,$0A,$0F,$19,$12,$04,$08,$02,$04,$04,$0 0,_
$00,$00,$01,$11,$0C,$11,$02,$06,$10,$08,$01,$11,$1 1,$0C,$0C,$04,$00,$04,$11,_
$11,$11,$11,$11,$12,$10,$10,$11,$11,$04,$02,$12,$1 0,$1B,$11,$11,$11,$11,$11,_
$10,$04,$11,$11,$11,$11,$11,$01,$10,$10,$01,$0A,$0 0,$04,$00,$10,$00,$01,$00,_
$09,$0F,$10,$00,$00,$10,$04,$00,$00,$00,$00,$00,$0 0,$00,$08,$00,$00,$00,$00,_
$00,$00,$08,$04,$02,$00],ROW_DAT(1)

ROW3:
LOOKUP CHARACTER - 32,[$00,$04,$0A,$1F,$14,$02,$14,$08,$10,$01,$15,$04,$0 0,_
$00,$00,$02,$13,$04,$01,$04,$0A,$1E,$10,$02,$11,$1 1,$0C,$0C,$08,$1F,$02,$01,_
$01,$11,$11,$10,$11,$10,$10,$10,$11,$04,$02,$14,$1 0,$15,$19,$11,$11,$11,$11,_
$10,$04,$11,$11,$11,$0A,$11,$02,$10,$08,$01,$11,$0 0,$02,$0E,$16,$0E,$0D,$0E,_
$08,$11,$16,$0C,$03,$12,$04,$1A,$16,$0E,$1E,$0D,$1 6,$0E,$1C,$11,$11,$11,$11,_
$11,$1F,$08,$04,$02,$05],ROW_DAT(2)

ROW4:
LOOKUP CHARACTER - 32,[$00,$04,$00,$0A,$0E,$04,$08,$00,$10,$01,$0E,$1F,$0 0,_
$1F,$00,$04,$15,$04,$02,$02,$12,$01,$1E,$04,$0E,$0 F,$00,$00,$10,$00,$01,$02,_
$0D,$11,$1E,$10,$11,$1E,$1E,$17,$1F,$04,$02,$18,$1 0,$15,$15,$11,$1E,$11,$1E,_
$0E,$04,$11,$11,$15,$04,$0A,$04,$10,$04,$01,$00,$0 0,$00,$01,$19,$10,$13,$11,_
$1C,$11,$19,$04,$01,$14,$04,$15,$19,$11,$11,$13,$1 9,$10,$08,$11,$11,$11,$0A,_
$11,$02,$10,$04,$01,$0A],ROW_DAT(3)

ROW5
LOOKUP CHARACTER - 32,[$00,$00,$00,$1F,$05,$08,$15,$00,$10,$01,$15,$04,$0 C,_
$00,$00,$08,$19,$04,$04,$01,$1F,$01,$11,$08,$11,$0 1,$0C,$0C,$08,$1F,$02,$04,_
$15,$1F,$11,$10,$11,$10,$10,$11,$11,$04,$02,$14,$1 0,$11,$13,$11,$10,$15,$14,_
$01,$04,$11,$11,$15,$0A,$04,$08,$10,$02,$01,$00,$0 0,$00,$0F,$11,$10,$11,$1F,_
$08,$0F,$11,$04,$01,$18,$04,$15,$11,$11,$1E,$0F,$1 0,$0E,$08,$11,$11,$15,$04,_
$0F,$04,$08,$04,$02,$00],ROW_DAT(4)

ROW6
LOOKUP CHARACTER - 32,[$00,$00,$00,$0A,$1E,$13,$12,$00,$08,$02,$04,$04,$0 4,_
$00,$0C,$10,$11,$04,$08,$11,$02,$11,$11,$08,$11,$0 1,$0C,$04,$04,$00,$04,$00,_
$15,$11,$11,$11,$12,$10,$10,$11,$11,$04,$12,$12,$1 0,$11,$11,$11,$10,$12,$12,_
$01,$04,$11,$0A,$15,$11,$04,$10,$10,$01,$01,$00,$0 0,$00,$11,$11,$11,$11,$10,_
$08,$01,$11,$04,$09,$14,$04,$11,$11,$11,$10,$01,$1 0,$01,$09,$13,$0A,$15,$0A,_
$01,$08,$08,$04,$02,$00],ROW_DAT(5)

ROW7:
LOOKUP CHARACTER - 32,[$00,$04,$00,$0A,$04,$03,$0D,$00,$04,$04,$00,$00,$0 8,_
$00,$0C,$00,$0E,$0E,$1F,$0E,$02,$0E,$0E,$08,$0E,$0 E,$00,$08,$02,$00,$08,$04,_
$0E,$11,$1E,$0E,$1C,$1F,$10,$0F,$11,$0E,$0C,$11,$1 F,$11,$11,$0E,$10,$0D,$11,_
$1E,$04,$0E,$04,$0A,$11,$04,$1F,$1C,$00,$07,$00,$1 F,$00,$0F,$1E,$0E,$0F,$0E,_
$08,$0E,$11,$0E,$06,$12,$0E,$11,$11,$0E,$10,$01,$1 0,$1E,$06,$0D,$04,$0A,$11,_
$0E,$1F,$04,$04,$04,$00],ROW_DAT(6)
RETURN

Enjoy....