Das Word in einen String läßt du am besten Bascom erledigen
Code:
DIM dezi as string * 4
    dezi = str(word-variable)
dann hast du einen string "1250"

die einzelnen Zeichen am besten mit "overlay"

Code:
DIM z(4) as byte at dezi OVERLAY
   z(1)     "1" 
   z(2)     "2" 
   z(3)     "5" 
   z(4)     "0"
der Ascii-code z.B. "1" ist 49
für deinen "Lookup" also am besten
Code:
  tmp = asc(Z(1))  -  48 
  segpattern = lookup (tmp, table)
Die Sache mit Dezimalpunkt ist da aber noch offen