' Read the TracID into the 3 letters represented

16 bits are in SSD1-SSD4:

SSD4= (ssmax[1]>>4)
SSD3= (ssmax[1] & $f)
SSD2= (ssmax[0]>>4)
SSD1= (ssmax[0] & $f)
TracID_D=(ssd4*4096)+(ssd3*256)+(ssd2*16)+ssd1 ' convert to dec

TC1=(TracID_D/1600)
Select Case TC1
case 0
TracID1 = " "
case TC1 < 27 'A-Z
TracID1 = TC1 + 64
case TC1 < 37 '0-9
TracID1 = TC1 + 21
case 37
TracID1 = ":"
case 38
TracID1 = "."
case else
TracID1 = "$"
End Select

t2=TracID_D-(TC1*1600)
TC2=t2/40
Select Case TC2
case 0
TracID2 = " "
case TC2 < 27 'A-Z
TracID2 = TC2 + 64
case TC2 < 37 '0-9
TracID2 = TC2 + 21
case 37
TracID1 = ":"
case 38
TracID1 = "."
case else
TracID1 = "$"
End Select

TC3=t2-(TC2*40)
Select Case TC3
case 0
TracID3 = " "
case TC3 < 27 'A-Z
TracID3 = TC3 + 64
case TC3 < 37 '0-9
TracID3 = TC3 + 21
case 37
TracID1 = ":"
case 38
TracID1 = "."
case else
TracID1 = "$"
End Select


TracID1, TracID2, TracID3 will be the 3 letters..

TG