main: Call setorientation(1) size = 0 Call wr_str2(0, 0, msg1, black, white) Call setorientation(1) size = 1 Call wr_str2(0, 10, msg1, blue, yellow) Call setorientation(1) size = 2 Call wr_str2(0, 30, msg1, white, red) Call setorientation(1) size = 3 Call wr_str2(0, 60, msg1, white, blue) waitms 500 got main 'writes the msg To the lcd, ( xp,yp,msg,color,bg) 'smallest font * size Proc wr_str2(xp As Word, yp As Word, msg1 As String, color As Word, bg As Word) sx = xp sy = yp lcd_mode = 0 'SPI set Char x,y start pixel location ss = 0 spi8 = SSPBUF SSPBUF = xp While Not SSPSTAT.BF Wend spi8 = SSPBUF SSPBUF = yp While Not SSPSTAT.BF Wend sx = xp str_len = Len(msg1) 'num chrs in str bit_len = str_len * 6 'num of bytes to read lcd_mode = 1 'data For wr_chr = 1 To str_len 'select char for display ascval = MidStr(msg1, wr_chr, 1) Gosub chr2tft 'get array bytes from font table For fnt1 = 0 To 5 ''bit_len chr_bit = ary(fnt1) 'get all bytes in chr font sequence For xrpt = 0 To size 'font size sy = yp For bit_cnt = 0 To 7 If chr_bit.bit_cnt = 1 Then For yrpt = 0 To size Call drawpixel(sx, sy, color) sy = sy + 1 Next yrpt Else For yrpt = 0 To size Call drawpixel(sx, sy, bg) sy = sy + 1 Next yrpt Endif Next bit_cnt sx = sx + 1 Next xrpt Next fnt1 Next wr_chr ss = 1 End Proc