'----------------------------------------------------------------------------------------
'    Name:  Read_T_Code.tig
'    Type:  TIGER-BASIC(tm) Source Code
' Purpose:  DEMO - demonstrates reading out the serial number of the TINY Tiger 2
'
'
'  (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
'
'----------------------------------------------------------------------------------------
'
' required Hardware:    Tiger 2
'
' With this function you can read out the serial number of the Tiger,
' which is unique. The versions of this Tiger are available, too.
' There are no possibilities to change the entries in the Tiger 2.
'
'
'-------------------------------------------------------------------------------
'
'   ERG$ = READ_T_CODE$(Option)
'                          !
'                          !--	0:   T-Code / Serial Number
'	         		1:   Softwareversion
'		                2:   Hardwareversion
'	                  	3:   XLINX Version
'		                4:   Test program version
'		              128:   complete String (all 128 Bytes)
'
'
'-------------------------------------------------------------------------------
'
'
' Serial number data:
' =================
'
' There are 128 Bytes of data
'
' 12  Byte: T-Code / Serial number
' 5   Byte: Version Software (vv.rr)
' 5   Byte: Version Hardware (vv.rr)
' 5   Byte: Version XLINX    (vv.rr)
' 5   Byte: Version Test program (vv.rr)
' 96  Byte: future evaluation...
'
'
'-------------------------------------------------------------------------------

task main				'

  string read$(128)			'

  read$ = read_t_code$(0)		' T-Code / Serial number
  read$ = read_t_code$(1)		' Softwareversion
  read$ = read_t_code$(2)		' Hardwareversion
  read$ = read_t_code$(3)		' XLINX Version
  read$ = read_t_code$(128)		' complete String (all 128 Bytes)

end