// Old material number: struxture xxxx-yyyy

// Determine lenght of 1st part
Set V[flen] 1

label test_character

// Use substring notation to address character number V[flen]
Set V[char] "&F[Old material number ](&V[flen]-&V[flen])"

if not V[char=-] and V[flen<18]
  Set V[flen] &V[flen] + 1
  goto test_character
endif 

// Structured number? Then emphasize both parts
if V[char=-]
  Set V[flen] &V[flen] + 0.5 decimalseparator="."

  Offset [Old material number]+(0,20)

  // First part: blue border 
  Image (-0.5,0.5) (-0.3,&V[flen]) "blue.gif" -plain
  Image (0.4,0.5) (0.6,&V[flen]) "blue.gif" -plain

  // Second part: red border 
  Image (-0.5,&V[flen]) (-0.3,19.4) "red.gif" -plain
  Image (0.4,&V[flen]) (0.6,19.4) "red.gif" -plain
endif