section "xblib"

GET "LIBHDR"

let devicename(name) = valof
$( let devices = table task.filehandler,  0, 0, 0
   let x = findarg("DK0=SYS,DK1,DK2,DK3", name)
   TEST x=-1
   THEN RESULTIS 0
   ELSE RESULTIS devices+x
$)