home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SetAttributesDir / Pearls / dev / Oberon / Oberon-A / Examples / SetAttributes
Text File  |  1995-10-13  |  683b  |  23 lines
  1. .k ScriptDir/A
  2. SetProtection "AMOK.info" RWD
  3. CD "AMOK"
  4. Assign ScriptDir<$$>.6: "<ScriptDir>"
  5. Execute "ScriptDir<$$>.6:AMOK/SetAttributes" "ScriptDir<$$>.6:AMOK"
  6. CD /
  7. SetProtection "Libraries.info" RWD
  8. CD "Libraries"
  9. Assign ScriptDir<$$>.6: "<ScriptDir>"
  10. Execute "ScriptDir<$$>.6:Libraries/SetAttributes" "ScriptDir<$$>.6:Libraries"
  11. CD /
  12. SetProtection "Oberon0.info" RWD
  13. CD "Oberon0"
  14. Assign ScriptDir<$$>.6: "<ScriptDir>"
  15. Execute "ScriptDir<$$>.6:Oberon0/SetAttributes" "ScriptDir<$$>.6:Oberon0"
  16. CD /
  17. SetProtection "Roland.info" RWD
  18. CD "Roland"
  19. Assign ScriptDir<$$>.6: "<ScriptDir>"
  20. Execute "ScriptDir<$$>.6:Roland/SetAttributes" "ScriptDir<$$>.6:Roland"
  21. CD /
  22. Assign ScriptDir<$$>.6:
  23.