home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / doc / intlist / folio / os2folio / clean.cmd < prev    next >
Encoding:
Text File  |  1993-10-14  |  422 b   |  19 lines
  1. /* clean.cmd */ 
  2.  parse arg szCommandComArgs 
  3.  select 
  4.    when 'CMD' = address()  then do 
  5.      'STARTDOS clean' 
  6.    end 
  7.    when 'STARTDOS' = address()  then do 
  8.      rc = StartBackground() 
  9.      rc = ExecSynchronous( ) 
  10.      rc = SetCommandArgs( "/c cleandsk a:" )
  11.      rc = StartWindowed()
  12.    end 
  13.    otherwise do 
  14.      say 'Unexpected execution environment' 
  15.      return 4 
  16.    end 
  17.  end 
  18.  return 0 
  19.