/* */
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'
               (
geocities.com/vmvse)