%externalroutine SETDEFAULTPROTECTION(%integer PROT)

where PROT is of the form

              W    G    O    S
            ___________________
           |____|____|____|____|
             ^
             |
           DEWR

    0 in bit position gives access
    1 denies access

e.g.
         0000101111101111

gives  (S,O:R,G:E,W:RWED)