did -a weg 16,17,18 00 White
  did -a weg 16,17,18 01 Black
  did -a weg 16,17,18 02 D.Blue
  did -a weg 16,17,18 03 D.Green
  did -a weg 16,17,18 04 Red
  did -a weg 16,17,18 05 D.Red
  did -a weg 16,17,18 06 Purple
  did -a weg 16,17,18 07 Orange
  did -a weg 16,17,18 08 Yellow
  did -a weg 16,17,18 09 N.Green
  did -a weg 16,17,18 10 D.Teal
  did -a weg 16,17,18 11 Teal
  did -a weg 16,17,18 12 Blue
  did -a weg 16,17,18 13 N.Purple
  did -a weg 16,17,18 14 D.Grey
  did -a weg 16,17,18 15 Grey

could be shortene'd using a while loop to...

Var %x White/Black/Dark Blue/Dark Green/Red/Brown/Purple/Orange/Yellow/Light Green/Teal/Light Blue/Blue/Pink/Dark Grey/Light Grey
var %z $numtok(%x,47)
var %loop 1
while (%loop <= %z) {
did -a $dname 16,17,18 $Gettok(%x,%loop,47)
inc %loop