class Session(uid, Users) # , NetConnections)

method CheckUid(input_line, start)
   if (uid := trim( input_line[start:*input_line],' ',0) ) === (""|"\n"|"\r") then
      {
         uid := ""
         fail
      }
   else
      return
end 

method NotLogged(usercmd)
   if uid === "" & usercmd === "login" then 
      return
   else
      fail
end

method logout()
 #  write(" session.logout uid: ", uid )
   delete(Users, uid)
   uid := ""
end

initially
    uid := ""
    Users := table()           # the entitiy-relationship seems wrong here
   # NetConnections := table() # doesn't seem to be in use
end