001   $stat.arr =  find station in galaxy: startsector=Königstal class or type=Argonen Produktionskomplex Torpedos race=null flags=0 refobj=null serial=null max.jumps=999
002   $count = 0
003   $count.max =  size of array $stat.arr
004   while $count < $count.max
005   |$stat = $stat.arr[$count]
006   |if not $stat -> uses ware Enterkapsel as product
007   ||$stat -> add product to factory or dock: Enterkapsel
008   ||
009   ||inc $count = 
010   |end
011   end
012   
013   $stat.arr =  find station in galaxy: startsector=Königstal class or type=Split Produktionskomplex Torpedos race=null flags=0 refobj=null serial=null max.jumps=999
014   $count = 0
015   $count.max =  size of array $stat.arr
016   while $count < $count.max
017   |$stat = $stat.arr[$count]
018   |if not $stat -> uses ware Enterkapsel as product
019   ||$stat -> add product to factory or dock: Enterkapsel
020   ||
021   ||inc $count = 
022   |end
023   end
024   
025   return null