home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 95 / af095a.adf / archives / extras.lzx / DiskSqueeze / Check < prev    next >
Encoding:
Text File  |  1997-01-17  |  2.8 KB  |  127 lines
  1. .bra {
  2. .ket }
  3.  
  4. ; $VER: DiskSqueeze Check utility v1.1 (2/8/96)
  5.  
  6. Echo "                  DiskSqueeze's Check Tool v1.1    "
  7. Echo "              © 1996 Dirk Vael - No Rights Reserved"
  8. Path SYS:System add
  9. Echo ""
  10. Echo "  Don't panic if you're being asked to de-protect your WB floppy"
  11. Echo "It is just adding a few global environmental files in Prefs/EnvArc"
  12. Echo ""
  13. Echo "Hold on, I'm searching your system for the required files..."
  14. Echo ""
  15.  
  16. Echo "ChDir.........." NOLINE
  17. Which ChDir >ENV:ChDir
  18. If Warn
  19.  Echo "WARNING! not found (NO DMS COMPATIBILITY!!)"
  20. else
  21.  Echo "OK, found at -> $ChDir"
  22.  Copy ENV:ChDir ENVARC:
  23. EndIf
  24.  
  25. Echo "DirII.........." NOLINE
  26. Which DirII >ENV:DirII
  27. If Warn
  28.  Echo "not found !!"
  29.  Skip MSG
  30. else
  31.  Echo "OK, found at -> $DirII"
  32.  Copy ENV:DirII ENVARC:
  33. EndIf
  34.  
  35. Echo "DiskCopy......." NOLINE
  36. Which DiskCopy >ENV:DiskCopy
  37. If Warn
  38.  Echo "not found !!"
  39.  Skip MSG
  40. else
  41.  Echo "OK, found at -> $DiskCopy"
  42.  Copy ENV:DiskCopy ENVARC:
  43. EndIf
  44.  
  45. Echo "DiskType......." NOLINE
  46. Which DiskType >ENV:DiskType
  47. If Warn
  48.  Echo "not found !!"
  49.  Skip MSG
  50. else
  51.  Echo "OK, found at -> $DiskType"
  52.  Copy ENV:DiskType ENVARC:
  53. EndIf
  54.  
  55. Echo "GetChars......." NOLINE
  56. Which GetChars >ENV:GetChars
  57. If Warn
  58.  Echo "not found !!"
  59.  Skip MSG
  60. else
  61.  Echo "OK, found at -> $GetChars"
  62.  Copy ENV:GetChars ENVARC:
  63. EndIf
  64.  
  65. Echo "LZX............" NOLINE
  66. Which LZX >ENV:LZX
  67. If Warn
  68.  Echo "not found !!"
  69.  Skip MSG
  70. else
  71.  Echo "OK, found at -> $LZX"
  72.  Copy ENV:LZX ENVARC:
  73. EndIf
  74.  
  75. Echo "More..........." NOLINE
  76. Which More >ENV:More
  77. If Warn
  78.  Echo "not found !!"
  79.  Skip MSG
  80. else
  81.  Echo "OK, found at -> $More"
  82.  Copy ENV:More ENVARC:
  83. EndIf
  84.  
  85. Echo "PackDev........" NOLINE
  86. Which PackDev >ENV:PackDev
  87. If Warn
  88.  Echo "not found !!"
  89.  Skip MSG
  90. else
  91.  Echo "OK, found at -> $PackDev"
  92.  Copy ENV:PackDev ENVARC:
  93. EndIf
  94.  
  95. Echo "PathName......." NOLINE
  96. Which PathName >ENV:PathName
  97. If Warn
  98.  Echo "not found !!"
  99.  Skip MSG
  100. else
  101.  Echo "OK, found at -> $PathName"
  102.  Copy ENV:PathName ENVARC:
  103. EndIf
  104.  
  105. Echo "dms.device....." NOLINE
  106. If NOT EXISTS DEVS:dms.device
  107.  Echo "WARNING! not found (NO DMS COMPATIBILITY!!)"
  108. else
  109.  Echo "OK, found in DEVS:"
  110. EndIf
  111.  
  112. Echo ""
  113. Echo "Environmental files now installed in ENV: & ENVARC: directories"
  114. Echo ""
  115. Echo "DiskSqueeze will now be starting a bit faster ;-)"
  116. Echo ""
  117. Echo ""
  118. Echo "If you do move one of the above mentioned files on your system,"
  119. Echo "please re-run this program, or DiskSqueeze *will* malfunction !"
  120. Echo ""
  121. Echo "Operation complete!                    [CLICK OR ENTER TO QUIT]" NOLINE
  122. Ask "" >NIL:
  123. Skip END
  124. LAB MSG
  125. RequestChoice >NIL: "Fatal Error Message" "Oops! Can't find a required tool...*n  Please re-install DiskSqueeze,*n        and re-run Check!" "QUIT"
  126. LAB END
  127.