home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Archiver / xdm.lzx / xDM_GUI < prev    next >
Encoding:
Text File  |  1995-04-08  |  2.2 KB  |  108 lines
  1. .bra {
  2. .ket }
  3.  
  4. ; $VER: xDM v1.0 (6.4.95)
  5.  
  6. Cd >ENV:origcd
  7. Which >ENV:lzxpath LZX
  8.  
  9. If WARN
  10.     Echo "LZX is not installed"
  11.     Skip getout
  12. EndIf
  13.  
  14. If NOT EXISTS L:Rawdisk-handler
  15.     Echo "Rawdisk-Handler is not installed"
  16.     Skip getout
  17. EndIf
  18.  
  19. If NOT EXISTS ENV:xdm
  20.     If NOT EXISTS ENVARC:xdm
  21.         Echo >ENV:xdm "T:" NOLINE
  22.     Else
  23.         Copy >NIL: ENVARC:xdm TO ENV:
  24.     EndIf
  25. EndIf
  26.  
  27. Assign >NIL: RawDisk: DISMOUNT
  28. RequestChoice >ENV:xdmaction "xDM" "Select Action" "Compress" "Decompress" "QUIT"
  29.  
  30. If $xdmaction EQ "0"
  31.     Skip getout
  32. EndIf
  33.  
  34. LAB startpack
  35. RequestChoice >ENV:xdmdev "xDM" "Select Drive" "DF0:" "DF1:" "DF2:" "QUIT"
  36.  
  37. If $xdmdev EQ "0"
  38.     Skip getout
  39. EndIf
  40.  
  41. Eval >ENV:xdmdrive $xdmdev - 1
  42. Echo >T:RawDisk "/** xDM **/*n*nRawDisk:*nFileSystem    = l:RawDisk-Handler*nDevice        = trackdisk.device*nUnit        = $xdmdrive"
  43. Echo >>T:RawDisk "Priority    = 5*nStacksize    = 5000*nGlobVec        = -1*nMount        = 1*nSurfaces    = 2*nBlocksPerTrack    = 9*nLowCyl        = 0*nHighCyl        = 79*n#"
  44. Mount >NIL: RawDisk: FROM T:RawDisk
  45.  
  46. If $xdmaction EQ "1"
  47.     Skip compress
  48. EndIf
  49.  
  50. If $xdmaction EQ "2"
  51.     Skip decompress
  52. EndIf
  53.  
  54. LAB compress
  55. FailAt 21
  56. RequestFile >ENV:xdmdest FILE ".xdm" PATTERN "#?.xdm" TITLE "Select Destination File" NOICONS
  57.  
  58. If FAIL
  59.     Skip getout
  60. EndIf
  61.  
  62. Echo "xDM - © 1995 Adam Chapman"
  63. Echo "Creating disk image... Please wait!"
  64. Cd "$xdm"
  65. Copy >NIL: RawDisk: TO xDM.dsk
  66.  
  67. If ERROR
  68.     Echo "Sorry, an error has occured... Was the disk in the drive?"
  69.     Skip startpack BACK
  70. EndIf
  71.  
  72. Echo "Archiving image... Please wait!"
  73. $lzxpath -3 -e -r -R -X0 -Y -M1024 a $xdmdest xDM.dsk
  74. Echo "Process complete!"
  75. Skip getout
  76.  
  77. LAB decompress
  78. FailAt 21
  79. RequestFile >ENV:xdmdest PATTERN "#?.xdm" TITLE "Select Archive" NOICONS
  80.  
  81. If FAIL
  82.     Skip getout
  83. EndIf
  84.  
  85. Echo "xDM - © 1995 Adam Chapman"
  86. Echo "Decompressing image... Please wait!"
  87. $lzxpath -X0 x $xdmdest "$xdm"
  88. Echo "Recreating disk image... Please wait!"
  89. Cd "$xdm"
  90. Copy >NIL: xDM.dsk TO RawDisk:
  91.  
  92. If ERROR
  93.     Echo "Sorry, an error has occured... Was the disk in the drive?"
  94.     Skip getout
  95. EndIf
  96.  
  97. Echo "Process complete!"
  98. DiskChange Df$xdmdrive:
  99.  
  100. LAB getout
  101. Assign >NIL: RAWDISK: DISMOUNT
  102. Cd "$xdm"
  103. Delete >NIL: xDM.dsk
  104. Cd ENV:
  105. Delete >NIL: lzxpath xdmdev xdmdrive xdmdest xdmaction T:RawDisk
  106. Cd "$origcd"
  107. Delete >NIL: ENV:origcd
  108.