home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / varia / fix_wb3.1 / fix_wb3.1 next >
AmigaDOS Script File  |  1977-12-31  |  7KB  |  305 lines
  1. .KEY Sys3.1_Partition,Ask/S,NoReq/S
  2. .BRA {
  3. .KET }
  4.  
  5. ;$VER: Fix_WB3.1 38.1 (20.8.94)
  6. ;© 1994 by Klaus Weber. Freely redistributable.
  7.  
  8. set result "-cancelled-"
  9.  
  10. if "{Sys3.1_Partition}" EQ ""
  11.    if $language EQ "deutsch"
  12.       set result `RequestFile DRAWER="SYS:" TITLE="Bitte wählen Sie Ihre 3.1 Systempartition oder -schublade:" DRAWERSONLY NOICONS`
  13.    else
  14.       set result `RequestFile DRAWER="SYS:" TITLE="Please select your 3.1 System Partition or Drawer:" DRAWERSONLY NOICONS`
  15.    endif
  16. else
  17.    if {Ask} EQ "Ask"
  18.       if $language EQ "deutsch"
  19.          set result `RequestFile DRAWER="{Sys3.1_Partition}" TITLE="Bitte wählen Sie Ihre 3.1 Systempartition oder -schublade:" DRAWERSONLY NOICONS`
  20.       else
  21.          set result `RequestFile DRAWER="{Sys3.1_Partition}" TITLE="Please select your 3.1 System Partition or Drawer:" DRAWERSONLY NOICONS`
  22.       endif
  23.    else
  24.       set result "{Sys3.1_Partition}"
  25.    endif
  26. endif
  27.  
  28. if $result EQ "-cancelled-"
  29.    if $language EQ "deutsch"
  30.       echo "Benutzerabbruch"
  31.       quit 5
  32.    else
  33.       echo "User break"
  34.       quit 5
  35.    endif
  36. endif
  37.  
  38. set validdest TRUE
  39.  
  40. if NOT exists $result
  41.    set validdest FALSE
  42. endif
  43.  
  44. set System System
  45. set Rexxc Rexxc
  46. set Utilities Utilities
  47. set C C
  48.  
  49. if NOT exists $result$System
  50.    set validdest FALSE
  51. endif
  52.  
  53. if NOT exists $result$Rexxc
  54.    set validdest FALSE
  55. endif
  56.  
  57. if NOT exists $result$Utilities
  58.    set validdest FALSE
  59. endif
  60.  
  61. if NOT exists $result$C
  62.    set validdest FALSE
  63. endif
  64.  
  65. if NOT $validdest EQ "TRUE"
  66.    if $language EQ "deutsch"
  67.       echo "'$result' ist kein gültiges System-Verzeichnis. Operation abgebrochen"
  68.       quit 6
  69.    else
  70.       echo "'$result' is not a valid system directory. Operation cancelled"
  71.       quit 6
  72.    endif
  73. endif
  74.  
  75. unset validdest
  76.  
  77. if NOT {NoReq} EQ "NoReq"
  78.    if $language EQ "deutsch"
  79.       set confirm `RequestChoice "Sicherheitsabfrage" "PURE-Bits auf '$result' setzen?" "Weiter|Abbruch"`
  80.    else
  81.       set confirm `RequestChoice "Please confirm" "Set PURE-Bits on '$result'?" "Continue|Abort"`
  82.    endif
  83.    if $confirm EQ 0
  84.       if $language EQ "deutsch"
  85.          echo "Benutzerabbruch"
  86.          quit 5
  87.       else
  88.          echo "User break"
  89.          quit 5
  90.       endif
  91.    endif
  92.    unset confirm
  93. endif
  94.  
  95. echo ""
  96.  
  97. if $language EQ "deutsch"
  98.    echo Setze PURE-Bits auf '$result' "*N" 
  99. else
  100.    echo Setting PURE-Bits on '$result' "*N" 
  101. endif
  102.  
  103. failat 50
  104.  
  105. ; Generated from <16840@cbmger.de.so.commodore.com> by Dr. Peter Kittel
  106.  
  107. echo " " NOLINE
  108. echo $result$System/CLI ... NOLINE
  109. protect $result$System/CLI p add
  110.  
  111. echo OK "*N" $result$System/DiskCopy ... NOLINE
  112. protect $result$System/DiskCopy p add
  113.  
  114. echo OK "*N" $result$System/FixFonts ... NOLINE
  115. protect $result$System/FixFonts p add
  116.  
  117. echo OK "*N" $result$System/Format ... NOLINE
  118. protect $result$System/Format p add
  119.  
  120. echo OK "*N" $result$Rexxc/HI ... NOLINE
  121. protect $result$Rexxc/HI p add
  122.  
  123. echo OK "*N" $result$Rexxc/RX ... NOLINE
  124. protect $result$Rexxc/RX p add
  125.  
  126. echo OK "*N" $result$Rexxc/RXC ... NOLINE
  127. protect $result$Rexxc/RXC p add
  128.  
  129. echo OK "*N" $result$Rexxc/RXLIB ... NOLINE
  130. protect $result$Rexxc/RXLIB p add
  131.  
  132. echo OK "*N" $result$Rexxc/RXSET ... NOLINE
  133. protect $result$Rexxc/RXSET p add
  134.  
  135. echo OK "*N" $result$Rexxc/TCC ... NOLINE
  136. protect $result$Rexxc/TCC p add
  137.  
  138. echo OK "*N" $result$Rexxc/TCO ... NOLINE
  139. protect $result$Rexxc/TCO p add
  140.  
  141. echo OK "*N" $result$Rexxc/TE ... NOLINE
  142. protect $result$Rexxc/TE p add
  143.  
  144. echo OK "*N" $result$Rexxc/TS ... NOLINE
  145. protect $result$Rexxc/TS p add
  146.  
  147. echo OK "*N" $result$Rexxc/WaitForPort ... NOLINE
  148. protect $result$Rexxc/WaitForPort p add
  149.  
  150. echo OK "*N" $result$Utilities/More ... NOLINE
  151. protect $result$Utilities/More p add
  152.  
  153. echo OK "*N" $result$Utilities/MultiView ... NOLINE
  154. protect $result$Utilities/MultiView p add
  155.  
  156. echo OK "*N" $result$C/AddBuffers ... NOLINE
  157. protect $result$C/AddBuffers p add
  158.  
  159. echo OK "*N" $result$C/AddDataTypes ... NOLINE
  160. protect $result$C/AddDataTypes p add
  161.  
  162. echo OK "*N" $result$C/Assign ... NOLINE
  163. protect $result$C/Assign p add
  164.  
  165. echo OK "*N" $result$C/Avail ... NOLINE
  166. protect $result$C/Avail p add
  167.  
  168. echo OK "*N" $result$C/Break ... NOLINE
  169. protect $result$C/Break p add
  170.  
  171. echo OK "*N" $result$C/ChangeTaskPri ... NOLINE
  172. protect $result$C/ChangeTaskPri p add
  173.  
  174. echo OK "*N" $result$C/ConClip ... NOLINE
  175. protect $result$C/ConClip p add
  176.  
  177. echo OK "*N" $result$C/Copy ... NOLINE
  178. protect $result$C/Copy p add
  179.  
  180. echo OK "*N" $result$C/CPU ... NOLINE
  181. protect $result$C/CPU p add
  182.  
  183. echo OK "*N" $result$C/Date ... NOLINE
  184. protect $result$C/Date p add
  185.  
  186. echo OK "*N" $result$C/Delete ... NOLINE
  187. protect $result$C/Delete p add
  188.  
  189. echo OK "*N" $result$C/Dir ... NOLINE
  190. protect $result$C/Dir p add
  191.  
  192. echo OK "*N" $result$C/DiskChange ... NOLINE
  193. protect $result$C/DiskChange p add
  194.  
  195. echo OK "*N" $result$C/Ed ... NOLINE
  196. protect $result$C/Ed p add
  197.  
  198. echo OK "*N" $result$C/Edit ... NOLINE
  199. protect $result$C/Edit p add
  200.  
  201. echo OK "*N" $result$C/Eval ... NOLINE
  202. protect $result$C/Eval p add
  203.  
  204. echo OK "*N" $result$C/Execute ... NOLINE
  205. protect $result$C/Execute p add
  206.  
  207. echo OK "*N" $result$C/Filenote ... NOLINE
  208. protect $result$C/Filenote p add
  209.  
  210. echo OK "*N" $result$C/IconX ... NOLINE
  211. protect $result$C/IconX p add
  212.  
  213. echo OK "*N" $result$C/Info ... NOLINE
  214. protect $result$C/Info p add
  215.  
  216. echo OK "*N" $result$C/Install ... NOLINE
  217. protect $result$C/Install p add
  218.  
  219. echo OK "*N" $result$C/Join ... NOLINE
  220. protect $result$C/Join p add
  221.  
  222. echo OK "*N" $result$C/List ... NOLINE
  223. protect $result$C/List p add
  224.  
  225. echo OK "*N" $result$C/Lock ... NOLINE
  226. protect $result$C/Lock p add
  227.  
  228. echo OK "*N" $result$C/MagTape ... NOLINE
  229. protect $result$C/MagTape p add
  230.  
  231. echo OK "*N" $result$C/MakeDir ... NOLINE
  232. protect $result$C/MakeDir p add
  233.  
  234. echo OK "*N" $result$C/MakeLink ... NOLINE
  235. protect $result$C/MakeLink p add
  236.  
  237. echo OK "*N" $result$C/Mount ... NOLINE
  238. protect $result$C/Mount p add
  239.  
  240. echo OK "*N" $result$C/Protect ... NOLINE
  241. protect $result$C/Protect p add
  242.  
  243. echo OK "*N" $result$C/Relabel ... NOLINE
  244. protect $result$C/Relabel p add
  245.  
  246. echo OK "*N" $result$C/RemRAD ... NOLINE
  247. protect $result$C/RemRAD p add
  248.  
  249. echo OK "*N" $result$C/Rename ... NOLINE
  250. protect $result$C/Rename p add
  251.  
  252. echo OK "*N" $result$C/RequestChoice ... NOLINE
  253. protect $result$C/RequestChoice p add
  254.  
  255. echo OK "*N" $result$C/RequestFile ... NOLINE
  256. protect $result$C/RequestFile p add
  257.  
  258. echo OK "*N" $result$C/Search ... NOLINE
  259. protect $result$C/Search p add
  260.  
  261. echo OK "*N" $result$C/SetClock ... NOLINE
  262. protect $result$C/SetClock p add
  263.  
  264. echo OK "*N" $result$C/SetDate ... NOLINE
  265. protect $result$C/SetDate p add
  266.  
  267. echo OK "*N" $result$C/SetFont ... NOLINE
  268. protect $result$C/SetFont p add
  269.  
  270. echo OK "*N" $result$C/SetKeyboard ... NOLINE
  271. protect $result$C/SetKeyboard p add
  272.  
  273. echo OK "*N" $result$C/Sort ... NOLINE
  274. protect $result$C/Sort p add
  275.  
  276. echo OK "*N" $result$C/Status ... NOLINE
  277. protect $result$C/Status p add
  278.  
  279. echo OK "*N" $result$C/Type ... NOLINE
  280. protect $result$C/Type p add
  281.  
  282. echo OK "*N" $result$C/Version ... NOLINE
  283. protect $result$C/Version p add
  284.  
  285. echo OK "*N" $result$C/Wait ... NOLINE
  286. protect $result$C/Wait p add
  287.  
  288. echo OK "*N" $result$C/Which ... NOLINE
  289. protect $result$C/Which p add
  290.  
  291. echo "OK"
  292.  
  293. unset System
  294. unset Rexxc
  295. unset Utilities
  296. unset C
  297.  
  298. unset result
  299.  
  300. if $language EQ "deutsch"
  301.    echo "fertig*N"
  302. else
  303.    echo "done*N"
  304. endif
  305.