REM This routine prints an integer number right justified at specified position
REM Line 1 starts at 0, line 2 starts at 64,
REM Line 3 starts at 20 and line 4 starts at 84
SUBROUTINE LCD_print_RJ(arg AS INTEGER,location AS INTEGER)
	LOCAL sign AS INTEGER
	sign = arg<0
	DO
		LCD_COMMAND(0x80 + location - 1)
		PRINT (arg \ 10)
		arg = arg /  10
		location = location - 1
	LOOP UNTIL arg = 0
	LCD_COMMAND(128 + location)
	IF sign
		PRINT "-"
	ELSE
		PRINT "+"
	ENDIF
END

GLOBAL index AS INTEGER

REM ***************** main routine  *********************
PIPE PRINT LCD
index = -3000
DO
	index = index + 1
	LCD_print_RJ(index,72)
LOOP UNTIL index > 10000