! 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