Using Nokia LCD

[ScaleRobotics]

Ok, the printing a variable solution:

PosX = 0                          'position 0 of 84 in the x direction
PosY = 0                           'row 0 (of 0-5)
gosub Lcd_GotoXY
Lcd_Data = (result dig 3) + 48
gosub Lcd_SendChar

PosX = 6                          'position 6 of 84 in the x direction
PosY = 0                           'row 0 (of 0-5)
gosub Lcd_GotoXY
Lcd_Data = (result dig 2)+ 48
gosub Lcd_SendChar

PosX = 12                          'position 12 of 84 in the x direction
PosY = 0                           'row 0 (of 0-5)
gosub Lcd_GotoXY
Lcd_Data = (result dig 1) + 48
gosub Lcd_SendChar

PosX = 18                          'position 18 of 84 in the x direction
PosY = 0                           'row 0 (of 0-5)
gosub Lcd_GotoXY
Lcd_Data = (result dig 0) + 48
gosub Lcd_SendChar

got a little old. So I managed to write my first macro. It lets you do the above with a two liner:

    
VarData = 12345   'load the variable with desired number
@ PrintVar 0,0      'print the variable VarData, starting at the desired location 0,0

The code does the rest, and moves to the next position to print the next digit, until done.
I also edited the PrintStr function to scroll to the next line when it runs past the end of the current line.

@ PrintStr 0,0, "If I write more than one line, it will scroll to the next one, and next."

It runs on an 18f67j50. Not sure if it would run on a 16f or not.