! Set filestore access mode:
!     NONE        prohibit connects and logins (except using system pass)
!     SYSPASS     allow connects, prohibit logins (except using system pass)
!     ALL         allow connects and logins

%include "Inc:FS.IMP"
%include "Inc:UTIL.IMP"

%begin
   %string(127) mode
   %integer i
      mode = CLI param
      %if mode="" %or mode="?" %start
          prompt ("NONE, SYSPASS, ALL : ")
          readline (mode)
      %finish
      %stop %if mode=""
      toupper(mode)
      %if mode = "NONE" %start
         i = fcomm(']' << 8, "5,0")
      %else %if mode = "SYSPASS"
         i = fcomm(']' << 8, "5,3")
      %else %if mode = "ALL"
         i = fcomm(']' << 8, "5,7")
      %else
         printstring("Unknown access mode """.mode."""")
         newline
         %stop
      %finish
      printstring ("Access mode set to """.mode."""")
      newline
%end %of %program