home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 342b.lha / RM / purge < prev    next >
Encoding:
AmigaDOS Script File  |  1990-02-10  |  536 b   |  22 lines
  1. .key drive
  2. .bra [
  3. .ket ]
  4.  
  5. if [drive]~ eq ~
  6.   purge DH0:
  7.   purge DH1:
  8. else
  9.   info [drive] | search STDIN [drive] | read num drive size used free per errs 
  10. tat name
  11.   delete >nil: [drive]Junk/#? all quiet
  12.   info [drive] | search STDIN [drive] | read num drive size used1 free1 per1 er
  13. s stat name
  14.  
  15.   rx "parse value '${per1}' || '${per}' with p1 '%' p '%'; say 'Purged ${drive}
  16. (${name}, ${size}) -- Usage went from ${per} to ${per1} ('p1-p'%).'"
  17.  
  18.   diff= num= drive= size= used= free= per= errs= stat= name= used1= free1=
  19.   per1=
  20. endif
  21.  
  22.