OK here is what I did to solve my issue....
LCDARRAY VAR BYTE[20]
LCD VAR BYTE
LCDHI VAR BYTE
LCDLO VAR BYTE
GOSUB CLEARLCDARRAY
LCD = X1 : GOSUB VALUE2STRING
LCDARRAY(0) = LCDHI : LCDARRAY(1) = LCDLO
LCD = X2 : GOSUB VALUE2STRING
LCDARRAY(3) = LCDHI : LCDARRAY(4) = LCDLO
LCD = X3 : GOSUB VALUE2STRING
LCDARRAY(6) = LCDHI : LCDARRAY(7) = LCDLO
LCD = X4 : GOSUB VALUE2STRING
LCDARRAY(9) = LCDHI : LCDARRAY(10) = LCDLO
LCD = X5 : GOSUB VALUE2STRING
LCDARRAY(12) = LCDHI : LCDARRAY(13) = LCDLO
LCDOUT $FE, LINE4, STR LCDARRAY{\20}
'take the value in LCD and convert it to a 2-character string in LCDHI and LCDLO (ONLY FOR 0 - 99)
VALUE2STRING:
LCDHI = 0
WHILE LCD >= 10
LCDHI = LCDHI + 1
LCD = LCD - 10
WEND
LCDHI = LCDHI + $30
LCDLO = LCD + $30
RETURN
CLEARLCDARRAY:
FOR LCDCTR = 0 TO 19
LCDARRAY(LCDCTR) = " "
NEXT LCDCTR
RETURN




Bookmarks