/*********************************************************/
/*          Virus Check    by   KMel  16-I-92            */
/*********************************************************/

PARSE ARG device

IF ~SHOW("Ports","Virus_Checker") THEN EXIT 10

ADDRESS "Virus_Checker"

out = ">con:50/50/400/100/Virus_Check/AUTO/WAIT"

IF device = '' THEN DO
  IF ~SHOW('Libraries','rexxarplib.library') THEN ADDLIB('rexxarplib.library',0,-30,0)
  GetFile(40,20,'',,'Virus_Check: Get Path','Workbench',NOFILES,dirs,,,)
  IF dirs.0 = 0 THEN RETURN 20

  IF dirs.1 = "" THEN DO
    'window\ON'			/* openwindow */
    SIGNAL prog_end
  END

  device = dirs.1
END

IF RIGHT(device,1)='"' then device = LEFT(device,LENGTH(device)-1)
IF LEFT(device,1)='"' then device = RIGHT(device,LENGTH(device)-1)

IF RIGHT(device,1)="/" THEN device = LEFT(device,LENGTH(device)-1)

'checkdrive\'device

prog_end:
RETURN 0