'----------------------------------------------------------------------------------------
'    Name:  WORD_2_HEX_Conversion.TIG
'    Type:  TIGER-BASIC(tm) Source Code
' Purpose:  Sample on how to convert a numeric value into a string containing
'           its hexadecimal equivalent by using the STRI$ function.
'
'  (C) - Copyright Wilke Technology, P.O.Box 1727, D-52018 Aachen, Germany
'----------------------------------------------------------------------------------------
'
' Thank you for using BASIC Tigers in your products. If you have questions, ideas
' or special needs, please contact your next distributor or the Tiger support team
' and visit our web site:
'
'	Wilke Technology GmbH
'	The Tiger Support Team
'	P.O.Box 1727,       D-52018 Aachen, Germany
'	Krefelder Str. 147, D-52070 Aachen, Germany
'
'	email: support@wilke-technology.com  (english)
'	email: support@wilke.de              (german)
'	Phone: +49 (241) 918 900    Mo to Fr, 7:00 to 16:00 (GMT)
'	Fax:   +49 (241) 918 9068
'
' New information, new drivers and free downloads see:
'
'	www.wilke-technology.com	     (english)
'	www.wilke.de                         (german)
'
' Sincerely,
'
'	Your Tiger Support Team
'
'----------------------------------------------------------------------------------------
USER_VAR_STRICT				' variables must be declared

STRING H$				' variable for hex string
WORD   N				' variable for numeric value

TASK MAIN				' begin task MAIN

  INSTALL_DEVICE #1, "LCD1.TDD"		' include LCD driver

  FOR N = 16 TO 32768			' loop for numeric values
    H$ = STRI$(N,"UH<4><4>   0.0.0.0.4")' convert to hex string
    PRINT #1, "<27>A<0><1><240>"; H$	' output hex value
    WAIT_DURATION 500			' wait 500 ms
  NEXT					' next value
END					' end of task MAIN