/* */
parse upper arg arg1
arg1 = strip(arg1,B)

'pipe (name qt3590 endchar ?)',
   '  cp q 200-203 700-703',
   '| split /,/',
   '| strip',
   '| change /TAPE //',
   '| change /ATTACHED TO //',
   '| change (1.1) /0//',
   '| locate /' || arg1 || '/',
   '| hexsort',
   '| spec 1-13',
   '| pad 15',
   '| join 4',
   '| preface literal "3590 Drives"',
   '| console'

'pipe (name qt3490 endchar ?)',
   '  cp q c00-c05 c08-c0d',
   '| split /,/',
   '| strip',
   '| change /TAPE //',
   '| change /ATTACHED TO //',
   '| change (1.1) /0//',
   '| locate /' || arg1 || '/',
   '| hexsort',
   '| spec 1-13',
   '| pad 15',
   '| join 4',
   '| preface literal "3490 Drives"',
   '| preface literal " "',
   '| console'

'pipe (name qt3480 endchar ?)',
   '  cp q f80-f87',
   '| split /,/',
   '| strip',
   '| change /TAPE //',
   '| change /ATTACHED TO //',
   '| change (1.1) /0//',
   '| locate /' || arg1 || '/',
   '| hexsort',
   '| spec 1-13',
   '| pad 15',
   '| join 4',
   '| preface literal "3480 Drives"',
   '| preface literal " "',
   '| console'

'pipe (name qt3420 endchar ?)',
   '  cp q 580-581 880-881',
   '| split /,/',
   '| strip',
   '| change /TAPE //',
   '| change /ATTACHED TO //',
   '| change (1.1) /0//',
   '| locate /' || arg1 || '/',
   '| hexsort',
   '| spec 1-13',
   '| pad 15',
   '| join 4',
   '| preface literal "3422 Drives"',
   '| preface literal " "',
   '| console'

'pipe (name qtdatab endchar ?)',
   '  cp q 300-30f 500-50f 600-60f a00-a0f f00-f0f',
   '| split /,/',
   '| strip',
   '| change /TAPE //',
   '| change /ATTACHED TO //',
   '| change (1.1) /0//',
   '| locate /' || arg1 || '/',
   '| hexsort',
   '| spec 1-13',
   '| pad 15',
   '| join 4',
   '| preface literal "Data Blaster"',
   '| preface literal " "',
   '| console'

    Source: geocities.com/vmvse/files

               ( geocities.com/vmvse)