home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / utilities / disc / hdbackup / !HDBackup / !Run < prev    next >
Encoding:
Text File  |  1994-11-18  |  708 b   |  30 lines
  1. |Run-Datei für !HDBackup
  2. |© 1994 Andreas Schubert
  3.  
  4. Set HDBackup$Dir <Obey$Dir>
  5. Set HDSourceFS IDEFS
  6. Set HDSourceDrive 4
  7. Set HDSourcePath $.*
  8. Set HDDestFS ADFS
  9. Set HDDestDrive 0
  10. Set HDDestPath $.Backup
  11. Set tar$compress <HDBackup$Dir>.Resources.compress < %%1 > %%2
  12. Set tar$decompress <HDBackup$Dir>.Resources.compress -d < %%1 > %%2
  13. Set tar$filetype 110
  14. Set File$Type_110  HDBackup
  15. Set File$Type_10f  HDJob
  16. Set Alias$@RunType_10f Run <Obey$Dir> %%*0
  17.  
  18. If "<Wimp$Scrap>" = "" Then Error 0 Kann das Scrap Directory nicht finden!
  19.  
  20. Set Dummy$Path <Run$Path>,<Obey$Dir>.Resources.
  21. Run Dummy:ResFind HDBackup
  22. Unset Dummy$Path
  23.  
  24. WimpSlot -min 64K -max 64K
  25. Run HDBackupRes:!RunImage %*0
  26.  
  27. Unset HDSource*
  28. Unset HDDest*
  29.  
  30.