home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Meeting_Pearls_II / SetAttributesDir / Pearls / disk / File / Zaphod / SetAttributes
Text File  |  1995-03-09  |  1KB  |  40 lines
  1. .k ScriptDir/A
  2. Failat 21
  3. Protect "Developer" "RWED"
  4. FileNote "Developer" ""
  5. CD "Developer"
  6. Assign ScriptDir<$$>.5: "<ScriptDir>"
  7. Execute "ScriptDir<$$>.5:Developer/SetAttributes" "ScriptDir<$$>.5:Developer"
  8. CD /
  9. Protect "Docs.info" "RWD"
  10. FileNote "Docs.info" ""
  11. Protect "Docs" "RWED"
  12. FileNote "Docs" ""
  13. CD "Docs"
  14. Assign ScriptDir<$$>.5: "<ScriptDir>"
  15. Execute "ScriptDir<$$>.5:Docs/SetAttributes" "ScriptDir<$$>.5:Docs"
  16. CD /
  17. Protect "fonts" "RWED"
  18. FileNote "fonts" ""
  19. CD "fonts"
  20. Assign ScriptDir<$$>.5: "<ScriptDir>"
  21. Execute "ScriptDir<$$>.5:fonts/SetAttributes" "ScriptDir<$$>.5:fonts"
  22. CD /
  23. Protect "Locale" "RWED"
  24. FileNote "Locale" ""
  25. CD "Locale"
  26. Assign ScriptDir<$$>.5: "<ScriptDir>"
  27. Execute "ScriptDir<$$>.5:Locale/SetAttributes" "ScriptDir<$$>.5:Locale"
  28. CD /
  29. Protect "Source" "RWED"
  30. FileNote "Source" ""
  31. CD "Source"
  32. Assign ScriptDir<$$>.5: "<ScriptDir>"
  33. Execute "ScriptDir<$$>.5:Source/SetAttributes" "ScriptDir<$$>.5:Source"
  34. CD /
  35. Protect "Zaphod" "RWED"
  36. FileNote "Zaphod" ""
  37. Protect "Zaphod.info" "RWD"
  38. FileNote "Zaphod.info" ""
  39. Assign ScriptDir<$$>.5:
  40.