home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SetAttributesDir / Pearls / arc / XPK / XPK25Dev / oberon / SetAttributes
Text File  |  1995-10-13  |  598b  |  20 lines
  1. .k ScriptDir/A
  2. CD "rlen"
  3. Assign ScriptDir<$$>.6: "<ScriptDir>"
  4. Execute "ScriptDir<$$>.6:rlen/SetAttributes" "ScriptDir<$$>.6:rlen"
  5. CD /
  6. SetProtection "ReadMe.info" RWD
  7. SetProtection "LiesMich.info" RWD
  8. SetProtection "examples.info" RWD
  9. SetProtection "rlen.info" RWD
  10. SetProtection "interfaces.info" RWD
  11. CD "examples"
  12. Assign ScriptDir<$$>.6: "<ScriptDir>"
  13. Execute "ScriptDir<$$>.6:examples/SetAttributes" "ScriptDir<$$>.6:examples"
  14. CD /
  15. CD "interfaces"
  16. Assign ScriptDir<$$>.6: "<ScriptDir>"
  17. Execute "ScriptDir<$$>.6:interfaces/SetAttributes" "ScriptDir<$$>.6:interfaces"
  18. CD /
  19. Assign ScriptDir<$$>.6:
  20.